* PROCESO: 2012. 
*---------------------------------------------------------------------------------------------------------------------------------------------------------------------.
* CUADRO N. 10 2012	SECTOR PRIVADO SIN FINES DE LUCRO (PARTE B) .
* EGRESOS HOSPITALARIOS POR CONDICION AL EGRESO, DIAS Y PROMEDIO DE ESTADA.
* TASAS DE MORTALIDAD HOSPITALARIA, SEGúN SECTOR, CLASE Y ESTABLECIMIENTO HOSPITALARIO .

* Selección SFL. 
*-------------------------------------------------------------------------.
* SECTOR PRIVADO SFL. 
USE ALL.
COMPUTE filter_$=(sector=3 and (clase=1 or clase=2 or
  clase=3 or clase=4 or clase=5 or clase=6 or
  clase=7 or clase=8 or clase=9 or clase=10 or
  clase=11 or clase=12 or clase=13 or clase=14 or
  clase=15 or clase=16 or clase=17)).
VARIABLE LABELS filter_$ 'sector=3 and (clase=1 or clase=2 or'+
 ' clase=3 or clase=4 or clase=5 or clase... (FILTER)'.
VALUE LABELS filter_$  0 'No seleccionado' 1 'Seleccionado'.
FORMAT filter_$ (f1.0).
FILTER BY filter_$.

*-----------------------------------------------------------------------------.
*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.
*---------------------------------------.
*Crear variables  de trabajo.
*---------------------------------------.
compute t0 = 1.
compute t1 = 1.
compute t2 = 1.

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

if (clase = 1 or clase = 2  or clase = 3  or clase = 4  or clase = 5  or clase = 6  or clase = 7  or clase = 8 or clase = 9 or clase = 10 or clase = 11)  wclase1 = '1'.
if (clase = 13  or clase = 14 or clase = 15 or clase = 16 or clase = 17) wclase1 = '2'.
if (clase = 12) wclase1 = '3'.

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

VALUE LABELS 
t0 1       ' '
/t1 1      ' '
/t2 1      ' '
/wclase1
'1' 'Hospitales Privados sin Fines de Lucro'
'2' 'Clínica Especializada'
'3' 'Clínica General'
'9' 'ERRADA'.


* Para los totales del sector Privado.
* De preferencia la salida colocrlo 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 Privado SIN FINES DE LUCRO'
 '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 Privado'.
EXECUTE.

*********************************************************************.
* Detalle del cuadro   PARTE B. 
*********************************************************************.
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 Privado con Fines de Lucro'
	'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 Privado'.
EXECUTE.

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