* PROCESO: 2012. 
*---------------------------------------------------------------------------------------------------------------------------------------------------------------------.
* CUADRO N. 10 2012 NACIONAL  Y    SECTOR PUBLICO (PARTE A) .
* EGRESOS HOSPITALARIOS POR CONDICION AL EGRESO, DIAS Y PROMEDIO DE ESTADA.
* TASAS DE MORTALIDAD HOSPITALARIA, SEGúN SECTOR, CLASE Y ESTABLECIMIENTO HOSPITALARIO .
*------------------------------------------------------------------------------------------------------------------.
*-------------------------------------------------------------------------------------------.
* seleccionar el SECTOR PUBLICO. 
USE ALL.
COMPUTE filter_$=(sector=1).
VARIABLE LABEL filter_$ 'sector=1 (FILTER)'.
VALUE LABELS filter_$  0 'No seleccionado' 1 'Seleccionado'.
FORMAT filter_$ (f1.0).
FILTER BY filter_$.
EXECUTE .

*---------------------------------------.
*Crear variables  de trabajo.
*---------------------------------------.
compute t0 = 1.
compute t1 = 1.


*--------------------------------------------------------------------------.
*Definición de variables para la condición de egreso.
* En el formato del cuadro.
*--------------------------------------------------------------------------.
if con_egrpa = 1 altas = 1.
if con_egrpa = 1 daltas = dia_estad.
if con_egrpa = 2 men48 = 1.
if con_egrpa = 2 dmen48 = dia_estad.
if con_egrpa = 3 mas48 = 1.
if con_egrpa = 3 dmas48 = dia_estad.
if con_egrpa = 2 or con_egrpa = 3 bajas = 1.
if con_egrpa = 2 or con_egrpa = 3 dbajas = dia_estad.
EXECUTE.

*------------------------------------------------------------.
* Para agrupar las sectores con entidades.
*------------------------------------------------------------.
STRING wclase1 (A1).
COMPUTE wclase1 = '1'.
COMPUTE wclase1 = '9'.

if clase = 11 wclase1 = '1'.
if (clase = 3 or clase = 4  or clase = 5  or clase = 6  or clase = 7  or clase = 8  or clase = 9  or clase = 10)  wclase1 = '2'.
if clase = 2 wclase1 = '3'.
if clase = 1 wclase1 = '4'.


*   Definición de Etiquetas.
*------------------------------------------.
VARIABLE LABELS 
t0   'Total Egresos' 
t1   'Total Tipo'
/daltas 'Altas'
/dbajas 'Fallecidos'
/dmen48 'Menos de 48 horas'
/dmas48 '48 Horas y más'
/altas  'Egresos'
/bajas 'Fallecidos'
/men48  'Egresos menos de 48 horas'
/mas48  'Egresos 48 horas y más'.

VALUE LABELS 
t0 1	' '
/t1 1      ' '
/wclase1
'1'	'Hospital de Especialidades'
'2'	'Hospital Especializado'
'3'	'Hospital General'
'4'	'Hospital Básico'
'9'	'ERRADO'.

*	12345678901234567890123456789012345678901234567890123456789012345678901234567890.
*	         1         2         3         4         5         6         7         8.
*----------------------------------------------------------------------------------------.
*Para los totales del sector Público.
* De preferencia la salida colocarlo en otro archivo de totales. 
*----------------------------------------------------------------------------------------.
TABLES
/OBSERVATION dia_estad daltas dbajas
/TABLE t0 +  (t1>wclase1)
	 by t0+dia_estad+(altas+daltas+bajas+men48+mas48+dbajas)
/STATISTICS SUM((f6)"Días  Estada")  MEAN((f3.1)'Promedio Días Estada')
/TITLES 'Cuadro N° 10 	Totales Sector Público' 
	'Egresos Hospitalarios por Condición al Egreso, Días y Promedio de Estada'
	'Tasas de Mortalidad Hospitalaria, según Sector, Clase y Establecimiento Hospitalario'
/CORNER.  'Sector Público'.
EXECUTE.

********************************************************.
* Detalle del cuadro   PARTE A. 
********************************************************.

TABLES
/OBSERVATION dia_estad daltas dbajas
/TABLE t0 +  (wclase1) >(prov_ubie >cod_est> parr_ubie)
	 by t0+dia_estad+(altas+daltas+bajas+men48+mas48+dbajas)
/STATISTICS SUM((f6)"Días Estada")  MEAN((f3.1)'Promedio días Estada')
/TITLES 'Cuadro N. 10 	Sector Publico' 
	'Egresos Hospitalarios por Condición al Egreso, Días y Promedio de Estada'
	'Tasas de Mortalidad Hospitalaria, según Sector, Clase y Establecimiento Hospitalario'
/CORNER.  'Sector Público'.
EXECUTE.

******* Después de ejecutar el cuadro para seleccionar todos los casos.
FILTER OFF.
USE ALL.
EXECUTE .
***************************************************************************.
* FIN PARTE A.
***************************************************************************.
