/******************************************************************************* INSTITUTO NACIONAL PARA LA EVALUACIÓN DE LA EDUCACIÓN DIRECCIÓN GENERAL PARA LA INTEGRACIÓN Y ANÁLISIS DE LA INFORMACIÓN *******************************************************************************/ /******************************************************************************* NOMBRE DEL PROGRAMA: MCR-MG PRIMARIA_PEM2015.SAS -------------------------------------------------------------------------------- DESCRIPCIÓN DEL PROGRAMA: Se usa el metodo MCR-MG para generar varios indicadores. Los calculos se hacen para el nivel educativo de Primaria y se desagregan por tipos de servicio y por sexo. Indicador del Panorma Educativo de México 2015. -------------------------------------------------------------------------------- NOMBRE Y DESCRIPCIÓN DE ARCHIVOS DE ENTRADA: Formato 911 Tipo: censo administrativo Unidad: escuelas Diseño muestral: no aplica Fuente(s): Estadisticas contínuas del formato 911 (inicios y fines de los ciclos escolares 2003/2004 e inicio del ciclo escolar 2014/2015), SEP, DGPEE. -------------------------------------------------------------------------------- NOMBRE Y DESCRIPCIÓN DE ARCHIVOS DE SALIDA: Tasas_--.xls son archivos excel que contienen los tabulados de los indicadores generados a partir del MCR-MG. T_ representa los calculo para el Total, H_ representa el calculo para Hombres y M_ representa el calculo para Mujeres. A continuación de describen los indicadores para el Total. De forma similar se identifican los indicadores de Hombres (por ejemplo, H_AA) y de Mujeres (por ejemplo, M_AA). T_AA Años-Alumnos. T_CE Coeficiente de eficiencia. T_G0 Egreso oportuno. T_G1 Egreso un ciclo después. T_G2 Egreso dos ciclos después. T_GT Egreso total. T_GG1 Aprobados del 1°. T_GG2 Aprobados del 2°. T_GG3 Aprobados del 3°. T_GG4 Aprobados del 4°. T_GG5 Aprobados del 5°. T_GG6 Aprobados del 6°. T_GGT Aprobados totales por grado. T_AB0 Abandono de la trayectoria ideal. T_AB1 Abandono de la trayectoria con rezago de 1 año. T_AB2 Abandono de la trayectoria con rezago de 2 años. T_ABT Abandonos totales. T_PAB0 % abandono de la trayectoria ideal. T_PAB1 % abandono de la trayectoria con rezago de 1 año. T_PAB2 % abandono de la trayectoria con rezago de 2 años. T_A0_DT % abandono con respecto del total. T_PAB01 % abandono de la trayectoria ideal en 1°. T_PAB02 % abandono de la trayectoria ideal en 2°. T_PAB03 % abandono de la trayectoria ideal en 3°. T_PAB04 % abandono de la trayectoria ideal en 4°. T_PAB05 % abandono de la trayectoria ideal en 5°. T_PAB06 % abandono de la trayectoria ideal en 6°. T_PABT1 % abandono total del 1°. T_PABT2 % abandono total del 2°. T_PABT3 % abandono total del 3°. T_PABT4 % abandono total del 4°. T_PABT5 % abandono total del 5°. T_PABT6 % abandono total del 6°. T_COCI1 % abandono del 1° con respecto del total de abandonos del 1°. T_COCI2 % abandono del 2° con respecto del total de abandonos del 2°. T_COCI3 % abandono del 3° con respecto del total de abandonos del 3°. T_COCI4 % abandono del 4° con respecto del total de abandonos del 4°. T_COCI5 % abandono del 5° con respecto del total de abandonos del 5°. T_COCI6 % abandono del 6° con respecto del total de abandonos del 6°. Claves de los archivos excel Tasas..1 Calculo total (General + Indigena + Comunitaria). Tasas..2 Calculo de Primaria General. Tasas..3 Calculo de Primaria Indigena. Tasas..4 Calculo de Primaria Comunitaria (No se presenta tabulado). El macro muestra las tasas de promoción, repetición y abandono antes del ajuste. El ajuste se hace cuendo prom>0, repe>0 y deser<0. Panorama 2013. -------------------------------------------------------------------------------- MACROS UTILIZADAS: Para las estadísticas de matricula, nuevos ingresos y repetidores. General_P_PEM2015.sas Indigena_P_PEM2015.sas Comunitaria1_P_PEM2015.sas "Debido al cambio 2001/2002" **** deja de aplicar Comunitaria2_P_PEM2015.sas Para las estadísticas de Egresados EgresadosGEN_P_PEM2015.sas EgresadosIND_P_PEM2015.sas EgresadosCOM1_P_PEM2015.sas "Debido al cambio 2001/2002" **** deja de aplicar EgresadosCOM2_P_PEM2015.sas -------------------------------------------------------------------------------- INSTRUCCIONES: 1. Cree una carpeta con el nombre "C:\BASES-F911" y en ella copie los archivos de las estadisticas continuas del formato 911. 2. Modifique la línea de comando (LIBNAME) de acuerdo con la ruta. 3. Modifique el nombre de las carpetas, así: 2006_2007 a 2006-2007. De esta forma la macro no tiene problema en leer la carpeta 2006-2007. Según el programa. 4. Modifique la línea de comando (%INCLUDE) de acuerdo con la ruta en donde se ubica la macro que utiliza este programa y que puede bajar del sitio web del INEE. 5. Modifique el procedimiento (OUTFILE y/o FILE) actualizando la ruta en donde se ubicarán los archivos de salida. 6. Ejecute el programa. -------------------------------------------------------------------------------- ELABORADO POR: INEE-DIE, Valencia Romero Edgar Adscripción: Dirección de Indicadores Educativos. Subdirección de Análisis de Estadísticas Educativas. FECHA DE ELABORACIÓN: 2009/09/07 ÚLTIMA MODIFICACIÓN: 2016/01/01 por Edgar Valencia Romero *******************************************************************************/ *PRIMARIA GENERAL; %INCLUDE "D:\DATOS_EVR\INDICADORES\New_Cohorte\PrimariaP2010v2\GENERAL_P_PEM2015.SAS"; %GENERAL_P_PEM2015(MODALI=prim_g,CICLO=1998_1999,MatI=v347,NIH1=v12,NIM1=v35,NIH2=v70,NIM2=v92,NIH3=v125,NIM3=v145,NIH4=v175,NIM4=v193,NIH5=v220,NIM5=v236,NIH6=v260,NIM6=v274,RH1=v23,RM1=v46,RH2=v81,RM2=v103,RH3=v135,RM3=v155,RH4=v184,RM4=v202,RH5=v228,RM5=v244,RH6=v267,RM6=v281,MOD=9899,OUTFILE=G9899); %GENERAL_P_PEM2015(MODALI=prim_g,CICLO=1999_2000,MatI=v347,NIH1=v12,NIM1=v35,NIH2=v70,NIM2=v92,NIH3=v125,NIM3=v145,NIH4=v175,NIM4=v193,NIH5=v220,NIM5=v236,NIH6=v260,NIM6=v274,RH1=v23,RM1=v46,RH2=v81,RM2=v103,RH3=v135,RM3=v155,RH4=v184,RM4=v202,RH5=v228,RM5=v244,RH6=v267,RM6=v281,MOD=9900,OUTFILE=G9900); %GENERAL_P_PEM2015(MODALI=prim_g,CICLO=2000_2001,MatI=v347,NIH1=v12,NIM1=v35,NIH2=v70,NIM2=v92,NIH3=v125,NIM3=v145,NIH4=v175,NIM4=v193,NIH5=v220,NIM5=v236,NIH6=v260,NIM6=v274,RH1=v23,RM1=v46,RH2=v81,RM2=v103,RH3=v135,RM3=v155,RH4=v184,RM4=v202,RH5=v228,RM5=v244,RH6=v267,RM6=v281,MOD=0001,OUTFILE=G0001); %GENERAL_P_PEM2015(MODALI=prim_g,CICLO=2001_2002,MatI=v347,NIH1=v12,NIM1=v35,NIH2=v70,NIM2=v92,NIH3=v125,NIM3=v145,NIH4=v175,NIM4=v193,NIH5=v220,NIM5=v236,NIH6=v260,NIM6=v274,RH1=v23,RM1=v46,RH2=v81,RM2=v103,RH3=v135,RM3=v155,RH4=v184,RM4=v202,RH5=v228,RM5=v244,RH6=v267,RM6=v281,MOD=0102,OUTFILE=G0102); %GENERAL_P_PEM2015(MODALI=prim_g,CICLO=2002_2003,MatI=v347,NIH1=v12,NIM1=v35,NIH2=v70,NIM2=v92,NIH3=v125,NIM3=v145,NIH4=v175,NIM4=v193,NIH5=v220,NIM5=v236,NIH6=v260,NIM6=v274,RH1=v23,RM1=v46,RH2=v81,RM2=v103,RH3=v135,RM3=v155,RH4=v184,RM4=v202,RH5=v228,RM5=v244,RH6=v267,RM6=v281,MOD=0203,OUTFILE=G0203); %GENERAL_P_PEM2015(MODALI=prim_g,CICLO=2003_2004,MatI=v347,NIH1=v12,NIM1=v35,NIH2=v70,NIM2=v92,NIH3=v125,NIM3=v145,NIH4=v175,NIM4=v193,NIH5=v220,NIM5=v236,NIH6=v260,NIM6=v274,RH1=v23,RM1=v46,RH2=v81,RM2=v103,RH3=v135,RM3=v155,RH4=v184,RM4=v202,RH5=v228,RM5=v244,RH6=v267,RM6=v281,MOD=0304,OUTFILE=G0304); %GENERAL_P_PEM2015(MODALI=prim_g,CICLO=2004_2005,MatI=v347,NIH1=v12,NIM1=v35,NIH2=v70,NIM2=v92,NIH3=v125,NIM3=v145,NIH4=v175,NIM4=v193,NIH5=v220,NIM5=v236,NIH6=v260,NIM6=v274,RH1=v23,RM1=v46,RH2=v81,RM2=v103,RH3=v135,RM3=v155,RH4=v184,RM4=v202,RH5=v228,RM5=v244,RH6=v267,RM6=v281,MOD=0405,OUTFILE=G0405); %GENERAL_P_PEM2015(MODALI=prim_g,CICLO=2005_2006,MatI=v347,NIH1=v12,NIM1=v35,NIH2=v70,NIM2=v92,NIH3=v125,NIM3=v145,NIH4=v175,NIM4=v193,NIH5=v220,NIM5=v236,NIH6=v260,NIM6=v274,RH1=v23,RM1=v46,RH2=v81,RM2=v103,RH3=v135,RM3=v155,RH4=v184,RM4=v202,RH5=v228,RM5=v244,RH6=v267,RM6=v281,MOD=0506,OUTFILE=G0506); %GENERAL_P_PEM2015(MODALI=prim_g,CICLO=2006_2007,MatI=v347,NIH1=v12,NIM1=v35,NIH2=v70,NIM2=v92,NIH3=v125,NIM3=v145,NIH4=v175,NIM4=v193,NIH5=v220,NIM5=v236,NIH6=v260,NIM6=v274,RH1=v23,RM1=v46,RH2=v81,RM2=v103,RH3=v135,RM3=v155,RH4=v184,RM4=v202,RH5=v228,RM5=v244,RH6=v267,RM6=v281,MOD=0607,OUTFILE=G0607); %GENERAL_P_PEM2015(MODALI=prim_g,CICLO=2007_2008,MatI=v347,NIH1=v12,NIM1=v35,NIH2=v70,NIM2=v92,NIH3=v125,NIM3=v145,NIH4=v175,NIM4=v193,NIH5=v220,NIM5=v236,NIH6=v260,NIM6=v274,RH1=v23,RM1=v46,RH2=v81,RM2=v103,RH3=v135,RM3=v155,RH4=v184,RM4=v202,RH5=v228,RM5=v244,RH6=v267,RM6=v281,MOD=0708,OUTFILE=G0708); %GENERAL_P_PEM2015(MODALI=prim_g,CICLO=2008_2009,MatI=v347,NIH1=v12,NIM1=v35,NIH2=v70,NIM2=v92,NIH3=v125,NIM3=v145,NIH4=v175,NIM4=v193,NIH5=v220,NIM5=v236,NIH6=v260,NIM6=v274,RH1=v23,RM1=v46,RH2=v81,RM2=v103,RH3=v135,RM3=v155,RH4=v184,RM4=v202,RH5=v228,RM5=v244,RH6=v267,RM6=v281,MOD=0809,OUTFILE=G0809); %GENERAL_P_PEM2015(MODALI=prim_g,CICLO=2009_2010,MatI=v347,NIH1=v12,NIM1=v35,NIH2=v70,NIM2=v92,NIH3=v125,NIM3=v145,NIH4=v175,NIM4=v193,NIH5=v220,NIM5=v236,NIH6=v260,NIM6=v274,RH1=v23,RM1=v46,RH2=v81,RM2=v103,RH3=v135,RM3=v155,RH4=v184,RM4=v202,RH5=v228,RM5=v244,RH6=v267,RM6=v281,MOD=0910,OUTFILE=G0910); %GENERAL_P_PEM2015(MODALI=prim_g,CICLO=2010_2011,MatI=v347,NIH1=v12,NIM1=v35,NIH2=v70,NIM2=v92,NIH3=v125,NIM3=v145,NIH4=v175,NIM4=v193,NIH5=v220,NIM5=v236,NIH6=v260,NIM6=v274,RH1=v23,RM1=v46,RH2=v81,RM2=v103,RH3=v135,RM3=v155,RH4=v184,RM4=v202,RH5=v228,RM5=v244,RH6=v267,RM6=v281,MOD=1011,OUTFILE=G1011); %GENERAL_P_PEM2015(MODALI=prim_g,CICLO=2011_2012,MatI=v347,NIH1=v12,NIM1=v35,NIH2=v70,NIM2=v92,NIH3=v125,NIM3=v145,NIH4=v175,NIM4=v193,NIH5=v220,NIM5=v236,NIH6=v260,NIM6=v274,RH1=v23,RM1=v46,RH2=v81,RM2=v103,RH3=v135,RM3=v155,RH4=v184,RM4=v202,RH5=v228,RM5=v244,RH6=v267,RM6=v281,MOD=1112,OUTFILE=G1112); %GENERAL_P_PEM2015(MODALI=prim_g,CICLO=2012_2013,MatI=v347,NIH1=v12,NIM1=v35,NIH2=v70,NIM2=v92,NIH3=v125,NIM3=v145,NIH4=v175,NIM4=v193,NIH5=v220,NIM5=v236,NIH6=v260,NIM6=v274,RH1=v23,RM1=v46,RH2=v81,RM2=v103,RH3=v135,RM3=v155,RH4=v184,RM4=v202,RH5=v228,RM5=v244,RH6=v267,RM6=v281,MOD=1213,OUTFILE=G1213); %GENERAL_P_PEM2015(MODALI=prim_g,CICLO=2013_2014,MatI=v347,NIH1=v12,NIM1=v35,NIH2=v70,NIM2=v92,NIH3=v125,NIM3=v145,NIH4=v175,NIM4=v193,NIH5=v220,NIM5=v236,NIH6=v260,NIM6=v274,RH1=v23,RM1=v46,RH2=v81,RM2=v103,RH3=v135,RM3=v155,RH4=v184,RM4=v202,RH5=v228,RM5=v244,RH6=v267,RM6=v281,MOD=1314,OUTFILE=G1314); %GENERAL_P_PEM2015(MODALI=prim_g,CICLO=2014_2015,MatI=v347,NIH1=v12,NIM1=v35,NIH2=v70,NIM2=v92,NIH3=v125,NIM3=v145,NIH4=v175,NIM4=v193,NIH5=v220,NIM5=v236,NIH6=v260,NIM6=v274,RH1=v23,RM1=v46,RH2=v81,RM2=v103,RH3=v135,RM3=v155,RH4=v184,RM4=v202,RH5=v228,RM5=v244,RH6=v267,RM6=v281,MOD=1415,OUTFILE=G1415); *PRIMARIA INDIGENA; %INCLUDE "D:\DATOS_EVR\INDICADORES\New_Cohorte\PrimariaP2010v2\INDIGENA_P_PEM2015.SAS"; %INDIGENA_P_PEM2015(MODALI=prim_i,CICLO=1998_1999,MatI=v344,NIH1=v15,NIM1=v38,NIH2=v72,NIM2=v94,NIH3=v126,NIM3=v146,NIH4=v175,NIM4=v193,NIH5=v219,NIM5=v235,NIH6=v258,NIM6=v272,RH1=v26,RM1=v49,RH2=v83,RM2=v105,RH3=v136,RM3=v156,RH4=v184,RM4=v202,RH5=v227,RM5=v243,RH6=v265,RM6=v279,MOD=9899,OUTFILE=I9899); %INDIGENA_P_PEM2015(MODALI=prim_i,CICLO=1999_2000,MatI=v344,NIH1=v15,NIM1=v38,NIH2=v72,NIM2=v94,NIH3=v126,NIM3=v146,NIH4=v175,NIM4=v193,NIH5=v219,NIM5=v235,NIH6=v258,NIM6=v272,RH1=v26,RM1=v49,RH2=v83,RM2=v105,RH3=v136,RM3=v156,RH4=v184,RM4=v202,RH5=v227,RM5=v243,RH6=v265,RM6=v279,MOD=9900,OUTFILE=I9900); %INDIGENA_P_PEM2015(MODALI=prim_i,CICLO=2000_2001,MatI=v344,NIH1=v15,NIM1=v38,NIH2=v72,NIM2=v94,NIH3=v126,NIM3=v146,NIH4=v175,NIM4=v193,NIH5=v219,NIM5=v235,NIH6=v258,NIM6=v272,RH1=v26,RM1=v49,RH2=v83,RM2=v105,RH3=v136,RM3=v156,RH4=v184,RM4=v202,RH5=v227,RM5=v243,RH6=v265,RM6=v279,MOD=0001,OUTFILE=I0001); %INDIGENA_P_PEM2015(MODALI=prim_i,CICLO=2001_2002,MatI=v344,NIH1=v15,NIM1=v38,NIH2=v72,NIM2=v94,NIH3=v126,NIM3=v146,NIH4=v175,NIM4=v193,NIH5=v219,NIM5=v235,NIH6=v258,NIM6=v272,RH1=v26,RM1=v49,RH2=v83,RM2=v105,RH3=v136,RM3=v156,RH4=v184,RM4=v202,RH5=v227,RM5=v243,RH6=v265,RM6=v279,MOD=0102,OUTFILE=I0102); %INDIGENA_P_PEM2015(MODALI=prim_i,CICLO=2002_2003,MatI=v344,NIH1=v15,NIM1=v38,NIH2=v72,NIM2=v94,NIH3=v126,NIM3=v146,NIH4=v175,NIM4=v193,NIH5=v219,NIM5=v235,NIH6=v258,NIM6=v272,RH1=v26,RM1=v49,RH2=v83,RM2=v105,RH3=v136,RM3=v156,RH4=v184,RM4=v202,RH5=v227,RM5=v243,RH6=v265,RM6=v279,MOD=0203,OUTFILE=I0203); %INDIGENA_P_PEM2015(MODALI=prim_i,CICLO=2003_2004,MatI=v344,NIH1=v15,NIM1=v38,NIH2=v72,NIM2=v94,NIH3=v126,NIM3=v146,NIH4=v175,NIM4=v193,NIH5=v219,NIM5=v235,NIH6=v258,NIM6=v272,RH1=v26,RM1=v49,RH2=v83,RM2=v105,RH3=v136,RM3=v156,RH4=v184,RM4=v202,RH5=v227,RM5=v243,RH6=v265,RM6=v279,MOD=0304,OUTFILE=I0304); %INDIGENA_P_PEM2015(MODALI=prim_i,CICLO=2004_2005,MatI=v344,NIH1=v15,NIM1=v38,NIH2=v72,NIM2=v94,NIH3=v126,NIM3=v146,NIH4=v175,NIM4=v193,NIH5=v219,NIM5=v235,NIH6=v258,NIM6=v272,RH1=v26,RM1=v49,RH2=v83,RM2=v105,RH3=v136,RM3=v156,RH4=v184,RM4=v202,RH5=v227,RM5=v243,RH6=v265,RM6=v279,MOD=0405,OUTFILE=I0405); %INDIGENA_P_PEM2015(MODALI=prim_i,CICLO=2005_2006,MatI=v344,NIH1=v15,NIM1=v38,NIH2=v72,NIM2=v94,NIH3=v126,NIM3=v146,NIH4=v175,NIM4=v193,NIH5=v219,NIM5=v235,NIH6=v258,NIM6=v272,RH1=v26,RM1=v49,RH2=v83,RM2=v105,RH3=v136,RM3=v156,RH4=v184,RM4=v202,RH5=v227,RM5=v243,RH6=v265,RM6=v279,MOD=0506,OUTFILE=I0506); %INDIGENA_P_PEM2015(MODALI=prim_i,CICLO=2006_2007,MatI=v344,NIH1=v15,NIM1=v38,NIH2=v72,NIM2=v94,NIH3=v126,NIM3=v146,NIH4=v175,NIM4=v193,NIH5=v219,NIM5=v235,NIH6=v258,NIM6=v272,RH1=v26,RM1=v49,RH2=v83,RM2=v105,RH3=v136,RM3=v156,RH4=v184,RM4=v202,RH5=v227,RM5=v243,RH6=v265,RM6=v279,MOD=0607,OUTFILE=I0607); %INDIGENA_P_PEM2015(MODALI=prim_i,CICLO=2007_2008,MatI=v344,NIH1=v15,NIM1=v38,NIH2=v72,NIM2=v94,NIH3=v126,NIM3=v146,NIH4=v175,NIM4=v193,NIH5=v219,NIM5=v235,NIH6=v258,NIM6=v272,RH1=v26,RM1=v49,RH2=v83,RM2=v105,RH3=v136,RM3=v156,RH4=v184,RM4=v202,RH5=v227,RM5=v243,RH6=v265,RM6=v279,MOD=0708,OUTFILE=I0708); %INDIGENA_P_PEM2015(MODALI=prim_i,CICLO=2008_2009,MatI=v344,NIH1=v15,NIM1=v38,NIH2=v72,NIM2=v94,NIH3=v126,NIM3=v146,NIH4=v175,NIM4=v193,NIH5=v219,NIM5=v235,NIH6=v258,NIM6=v272,RH1=v26,RM1=v49,RH2=v83,RM2=v105,RH3=v136,RM3=v156,RH4=v184,RM4=v202,RH5=v227,RM5=v243,RH6=v265,RM6=v279,MOD=0809,OUTFILE=I0809); %INDIGENA_P_PEM2015(MODALI=prim_i,CICLO=2009_2010,MatI=v344,NIH1=v15,NIM1=v38,NIH2=v72,NIM2=v94,NIH3=v126,NIM3=v146,NIH4=v175,NIM4=v193,NIH5=v219,NIM5=v235,NIH6=v258,NIM6=v272,RH1=v26,RM1=v49,RH2=v83,RM2=v105,RH3=v136,RM3=v156,RH4=v184,RM4=v202,RH5=v227,RM5=v243,RH6=v265,RM6=v279,MOD=0910,OUTFILE=I0910); %INDIGENA_P_PEM2015(MODALI=prim_i,CICLO=2010_2011,MatI=v344,NIH1=v15,NIM1=v38,NIH2=v72,NIM2=v94,NIH3=v126,NIM3=v146,NIH4=v175,NIM4=v193,NIH5=v219,NIM5=v235,NIH6=v258,NIM6=v272,RH1=v26,RM1=v49,RH2=v83,RM2=v105,RH3=v136,RM3=v156,RH4=v184,RM4=v202,RH5=v227,RM5=v243,RH6=v265,RM6=v279,MOD=1011,OUTFILE=I1011); %INDIGENA_P_PEM2015(MODALI=prim_i,CICLO=2011_2012,MatI=v344,NIH1=v15,NIM1=v38,NIH2=v72,NIM2=v94,NIH3=v126,NIM3=v146,NIH4=v175,NIM4=v193,NIH5=v219,NIM5=v235,NIH6=v258,NIM6=v272,RH1=v26,RM1=v49,RH2=v83,RM2=v105,RH3=v136,RM3=v156,RH4=v184,RM4=v202,RH5=v227,RM5=v243,RH6=v265,RM6=v279,MOD=1112,OUTFILE=I1112); %INDIGENA_P_PEM2015(MODALI=prim_i,CICLO=2012_2013,MatI=v344,NIH1=v15,NIM1=v38,NIH2=v72,NIM2=v94,NIH3=v126,NIM3=v146,NIH4=v175,NIM4=v193,NIH5=v219,NIM5=v235,NIH6=v258,NIM6=v272,RH1=v26,RM1=v49,RH2=v83,RM2=v105,RH3=v136,RM3=v156,RH4=v184,RM4=v202,RH5=v227,RM5=v243,RH6=v265,RM6=v279,MOD=1213,OUTFILE=I1213); %INDIGENA_P_PEM2015(MODALI=prim_i,CICLO=2013_2014,MatI=v344,NIH1=v15,NIM1=v38,NIH2=v72,NIM2=v94,NIH3=v126,NIM3=v146,NIH4=v175,NIM4=v193,NIH5=v219,NIM5=v235,NIH6=v258,NIM6=v272,RH1=v26,RM1=v49,RH2=v83,RM2=v105,RH3=v136,RM3=v156,RH4=v184,RM4=v202,RH5=v227,RM5=v243,RH6=v265,RM6=v279,MOD=1314,OUTFILE=I1314); %INDIGENA_P_PEM2015(MODALI=prim_i,CICLO=2014_2015,MatI=v344,NIH1=v15,NIM1=v38,NIH2=v72,NIM2=v94,NIH3=v126,NIM3=v146,NIH4=v175,NIM4=v193,NIH5=v219,NIM5=v235,NIH6=v258,NIM6=v272,RH1=v26,RM1=v49,RH2=v83,RM2=v105,RH3=v136,RM3=v156,RH4=v184,RM4=v202,RH5=v227,RM5=v243,RH6=v265,RM6=v279,MOD=1415,OUTFILE=I1415); *PRIMARIA COMUNITARIA; %INCLUDE "D:\DATOS_EVR\INDICADORES\New_Cohorte\PrimariaP2010v2\COMUNITARIA1_P_PEM2015.SAS"; %COMUNITARIA1_P_PEM2015(MODALI=prim_c,CICLO=1998_1999,MatI=v363,NIH1=v15,NIM1=v27,NIH3=v123,NIM3=v135,NIH6=v231,NIM6=v243,CRH1C1=v51, CRH1C2=v87, CRM1C1=v63, CRM1C2=v99,CRH3C1=v159,CRH3C2=v195,CRM3C1=v171,CRM3C2=v207,CRH6C1=v267,CRH6C2=v303,CRM6C1=v279,CRM6C2=v315,MOD=9899,OUTFILE=C9899); %COMUNITARIA1_P_PEM2015(MODALI=prim_c,CICLO=1999_2000,MatI=v363,NIH1=v15,NIM1=v27,NIH3=v123,NIM3=v135,NIH6=v231,NIM6=v243,CRH1C1=v51, CRH1C2=v87, CRM1C1=v63, CRM1C2=v99,CRH3C1=v159,CRH3C2=v195,CRM3C1=v171,CRM3C2=v207,CRH6C1=v267,CRH6C2=v303,CRM6C1=v279,CRM6C2=v315,MOD=9900,OUTFILE=C9900); %COMUNITARIA1_P_PEM2015(MODALI=prim_c,CICLO=2000_2001,MatI=v363,NIH1=v15,NIM1=v27,NIH3=v123,NIM3=v135,NIH6=v231,NIM6=v243,CRH1C1=v51, CRH1C2=v87, CRM1C1=v63, CRM1C2=v99,CRH3C1=v159,CRH3C2=v195,CRM3C1=v171,CRM3C2=v207,CRH6C1=v267,CRH6C2=v303,CRM6C1=v279,CRM6C2=v315,MOD=0001,OUTFILE=C0001); %COMUNITARIA1_P_PEM2015(MODALI=prim_c,CICLO=2001_2002,MatI=v363,NIH1=v15,NIM1=v27,NIH3=v123,NIM3=v135,NIH6=v231,NIM6=v243,CRH1C1=v51, CRH1C2=v87, CRM1C1=v63, CRM1C2=v99,CRH3C1=v159,CRH3C2=v195,CRM3C1=v171,CRM3C2=v207,CRH6C1=v267,CRH6C2=v303,CRM6C1=v279,CRM6C2=v315,MOD=0102,OUTFILE=C0102); %INCLUDE "D:\DATOS_EVR\INDICADORES\New_Cohorte\PrimariaP2010v2\COMUNITARIA2_P_PEM2015.SAS"; %COMUNITARIA2_P_PEM2015(MODALI=prim_c,CICLO=2002_2003,MatI=v363,NIH1=v15,NIM1=v27,NIH2=v51,NIM2=v63,NIH3=v123,NIM3=v135,NIH4=v159,NIM4=v171,NIH5=v231,NIM5=v243,NIH6=v267,NIM6=v279,CRH2C3=v87,CRM2C3=v99,CRH4C3=v195,CRM4C3=v207,CRH6C3=v303,CRM6C3=v315,MOD=0203,OUTFILE=C0203); %COMUNITARIA2_P_PEM2015(MODALI=prim_c,CICLO=2003_2004,MatI=v363,NIH1=v15,NIM1=v27,NIH2=v51,NIM2=v63,NIH3=v123,NIM3=v135,NIH4=v159,NIM4=v171,NIH5=v231,NIM5=v243,NIH6=v267,NIM6=v279,CRH2C3=v87,CRM2C3=v99,CRH4C3=v195,CRM4C3=v207,CRH6C3=v303,CRM6C3=v315,MOD=0304,OUTFILE=C0304); %COMUNITARIA2_P_PEM2015(MODALI=prim_c,CICLO=2004_2005,MatI=v363,NIH1=v15,NIM1=v27,NIH2=v51,NIM2=v63,NIH3=v123,NIM3=v135,NIH4=v159,NIM4=v171,NIH5=v231,NIM5=v243,NIH6=v267,NIM6=v279,CRH2C3=v87,CRM2C3=v99,CRH4C3=v195,CRM4C3=v207,CRH6C3=v303,CRM6C3=v315,MOD=0405,OUTFILE=C0405); %COMUNITARIA2_P_PEM2015(MODALI=prim_c,CICLO=2005_2006,MatI=v363,NIH1=v15,NIM1=v27,NIH2=v51,NIM2=v63,NIH3=v123,NIM3=v135,NIH4=v159,NIM4=v171,NIH5=v231,NIM5=v243,NIH6=v267,NIM6=v279,CRH2C3=v87,CRM2C3=v99,CRH4C3=v195,CRM4C3=v207,CRH6C3=v303,CRM6C3=v315,MOD=0506,OUTFILE=C0506); %COMUNITARIA2_P_PEM2015(MODALI=prim_c,CICLO=2006_2007,MatI=v363,NIH1=v15,NIM1=v27,NIH2=v51,NIM2=v63,NIH3=v123,NIM3=v135,NIH4=v159,NIM4=v171,NIH5=v231,NIM5=v243,NIH6=v267,NIM6=v279,CRH2C3=v87,CRM2C3=v99,CRH4C3=v195,CRM4C3=v207,CRH6C3=v303,CRM6C3=v315,MOD=0607,OUTFILE=C0607); %COMUNITARIA2_P_PEM2015(MODALI=prim_c,CICLO=2007_2008,MatI=v363,NIH1=v15,NIM1=v27,NIH2=v51,NIM2=v63,NIH3=v123,NIM3=v135,NIH4=v159,NIM4=v171,NIH5=v231,NIM5=v243,NIH6=v267,NIM6=v279,CRH2C3=v87,CRM2C3=v99,CRH4C3=v195,CRM4C3=v207,CRH6C3=v303,CRM6C3=v315,MOD=0708,OUTFILE=C0708); %COMUNITARIA2_P_PEM2015(MODALI=prim_c,CICLO=2008_2009,MatI=v363,NIH1=v15,NIM1=v27,NIH2=v51,NIM2=v63,NIH3=v123,NIM3=v135,NIH4=v159,NIM4=v171,NIH5=v231,NIM5=v243,NIH6=v267,NIM6=v279,CRH2C3=v87,CRM2C3=v99,CRH4C3=v195,CRM4C3=v207,CRH6C3=v303,CRM6C3=v315,MOD=0809,OUTFILE=C0809); %COMUNITARIA2_P_PEM2015(MODALI=prim_c,CICLO=2009_2010,MatI=v363,NIH1=v15,NIM1=v27,NIH2=v51,NIM2=v63,NIH3=v123,NIM3=v135,NIH4=v159,NIM4=v171,NIH5=v231,NIM5=v243,NIH6=v267,NIM6=v279,CRH2C3=v87,CRM2C3=v99,CRH4C3=v195,CRM4C3=v207,CRH6C3=v303,CRM6C3=v315,MOD=0910,OUTFILE=C0910); %COMUNITARIA2_P_PEM2015(MODALI=prim_c,CICLO=2010_2011,MatI=v363,NIH1=v15,NIM1=v27,NIH2=v51,NIM2=v63,NIH3=v123,NIM3=v135,NIH4=v159,NIM4=v171,NIH5=v231,NIM5=v243,NIH6=v267,NIM6=v279,CRH2C3=v87,CRM2C3=v99,CRH4C3=v195,CRM4C3=v207,CRH6C3=v303,CRM6C3=v315,MOD=1011,OUTFILE=C1011); %COMUNITARIA2_P_PEM2015(MODALI=prim_c,CICLO=2011_2012,MatI=v363,NIH1=v15,NIM1=v27,NIH2=v51,NIM2=v63,NIH3=v123,NIM3=v135,NIH4=v159,NIM4=v171,NIH5=v231,NIM5=v243,NIH6=v267,NIM6=v279,CRH2C3=v87,CRM2C3=v99,CRH4C3=v195,CRM4C3=v207,CRH6C3=v303,CRM6C3=v315,MOD=1112,OUTFILE=C1112); %COMUNITARIA2_P_PEM2015(MODALI=prim_c,CICLO=2012_2013,MatI=v363,NIH1=v15,NIM1=v27,NIH2=v51,NIM2=v63,NIH3=v123,NIM3=v135,NIH4=v159,NIM4=v171,NIH5=v231,NIM5=v243,NIH6=v267,NIM6=v279,CRH2C3=v87,CRM2C3=v99,CRH4C3=v195,CRM4C3=v207,CRH6C3=v303,CRM6C3=v315,MOD=1213,OUTFILE=C1213); %COMUNITARIA2_P_PEM2015(MODALI=prim_c,CICLO=2013_2014,MatI=v363,NIH1=v15,NIM1=v27,NIH2=v51,NIM2=v63,NIH3=v123,NIM3=v135,NIH4=v159,NIM4=v171,NIH5=v231,NIM5=v243,NIH6=v267,NIM6=v279,CRH2C3=v87,CRM2C3=v99,CRH4C3=v195,CRM4C3=v207,CRH6C3=v303,CRM6C3=v315,MOD=1314,OUTFILE=C1314); %COMUNITARIA2_P_PEM2015(MODALI=prim_c,CICLO=2014_2015,MatI=v363,NIH1=v15,NIM1=v27,NIH2=v51,NIM2=v63,NIH3=v123,NIM3=v135,NIH4=v159,NIM4=v171,NIH5=v231,NIM5=v243,NIH6=v267,NIM6=v279,CRH2C3=v87,CRM2C3=v99,CRH4C3=v195,CRM4C3=v207,CRH6C3=v303,CRM6C3=v315,MOD=1415,OUTFILE=C1415); /******************************************************************************* EGRESADOS DE 6° DE PRIMARIA *******************************************************************************/ *PRIMARIA GENERAL; %INCLUDE "D:\DATOS_EVR\INDICADORES\New_Cohorte\PrimariaP2010v2\EgresadosGEN_P_PEM2015.SAS"; %EgresadosGEN_P_PEM2015(MODALI=prim_g,CICLO=1998_1999,MatF=var609,EH6=var471,EM6=var492,MOD=9899,OUTFILE=GE9899); %EgresadosGEN_P_PEM2015(MODALI=prim_g,CICLO=1999_2000,MatF=var609,EH6=var471,EM6=var492,MOD=9900,OUTFILE=GE9900); %EgresadosGEN_P_PEM2015(MODALI=prim_g,CICLO=2000_2001,MatF=var609,EH6=var471,EM6=var492,MOD=0001,OUTFILE=GE0001); %EgresadosGEN_P_PEM2015(MODALI=prim_g,CICLO=2001_2002,MatF=var609,EH6=var471,EM6=var492,MOD=0102,OUTFILE=GE0102); %EgresadosGEN_P_PEM2015(MODALI=prim_g,CICLO=2002_2003,MatF=var609,EH6=var471,EM6=var492,MOD=0203,OUTFILE=GE0203); %EgresadosGEN_P_PEM2015(MODALI=prim_g,CICLO=2003_2004,MatF=var609,EH6=var471,EM6=var492,MOD=0304,OUTFILE=GE0304); %EgresadosGEN_P_PEM2015(MODALI=prim_g,CICLO=2004_2005,MatF=var609,EH6=var471,EM6=var492,MOD=0405,OUTFILE=GE0405); %EgresadosGEN_P_PEM2015(MODALI=prim_g,CICLO=2005_2006,MatF=var609,EH6=var471,EM6=var492,MOD=0506,OUTFILE=GE0506); %EgresadosGEN_P_PEM2015(MODALI=prim_g,CICLO=2006_2007,MatF=var609,EH6=var471,EM6=var492,MOD=0607,OUTFILE=GE0607); %EgresadosGEN_P_PEM2015(MODALI=prim_g,CICLO=2007_2008,MatF=var609,EH6=var471,EM6=var492,MOD=0708,OUTFILE=GE0708); %EgresadosGEN_P_PEM2015(MODALI=prim_g,CICLO=2008_2009,MatF=var609,EH6=var471,EM6=var492,MOD=0809,OUTFILE=GE0809); %EgresadosGEN_P_PEM2015(MODALI=prim_g,CICLO=2009_2010,MatF=var609,EH6=var471,EM6=var492,MOD=0910,OUTFILE=GE0910); %EgresadosGEN_P_PEM2015(MODALI=prim_g,CICLO=2010_2011,MatF=var609,EH6=var471,EM6=var492,MOD=1011,OUTFILE=GE1011); %EgresadosGEN_P_PEM2015(MODALI=prim_g,CICLO=2011_2012,MatF=var609,EH6=var471,EM6=var492,MOD=1112,OUTFILE=GE1112); %EgresadosGEN_P_PEM2015(MODALI=prim_g,CICLO=2012_2013,MatF=var609,EH6=var471,EM6=var492,MOD=1213,OUTFILE=GE1213); %EgresadosGEN_P_PEM2015(MODALI=prim_g,CICLO=2013_2014,MatF=var609,EH6=var471,EM6=var492,MOD=1314,OUTFILE=GE1314); *PRIMARIA INDIGENA; %INCLUDE "D:\DATOS_EVR\INDICADORES\New_Cohorte\PrimariaP2010v2\EgresadosIND_P_PEM2015.SAS"; %EgresadosIND_P_PEM2015(MODALI=prim_i,CICLO=1998_1999,MatF=var618,EH6=var479, EM6=var500, MOD=9899,OUTFILE=IE9899); %EgresadosIND_P_PEM2015(MODALI=prim_i,CICLO=1999_2000,MatF=var618,EH6=var479, EM6=var500, MOD=9900,OUTFILE=IE9900); %EgresadosIND_P_PEM2015(MODALI=prim_i,CICLO=2000_2001,MatF=var618,EH6=var479, EM6=var500, MOD=0001,OUTFILE=IE0001); %EgresadosIND_P_PEM2015(MODALI=prim_i,CICLO=2001_2002,MatF=var618,EH6=var479, EM6=var500, MOD=0102,OUTFILE=IE0102); %EgresadosIND_P_PEM2015(MODALI=prim_i,CICLO=2002_2003,MatF=var618,EH6=var479, EM6=var500, MOD=0203,OUTFILE=IE0203); %EgresadosIND_P_PEM2015(MODALI=prim_i,CICLO=2003_2004,MatF=var618,EH6=var479, EM6=var500, MOD=0304,OUTFILE=IE0304); %EgresadosIND_P_PEM2015(MODALI=prim_i,CICLO=2004_2005,MatF=var618,EH6=var479, EM6=var500, MOD=0405,OUTFILE=IE0405); %EgresadosIND_P_PEM2015(MODALI=prim_i,CICLO=2005_2006,MatF=var618,EH6=var479, EM6=var500, MOD=0506,OUTFILE=IE0506); %EgresadosIND_P_PEM2015(MODALI=prim_i,CICLO=2006_2007,MatF=var618,EH6=var479, EM6=var500, MOD=0607,OUTFILE=IE0607); %EgresadosIND_P_PEM2015(MODALI=prim_i,CICLO=2007_2008,MatF=var618,EH6=var479, EM6=var500, MOD=0708,OUTFILE=IE0708); %EgresadosIND_P_PEM2015(MODALI=prim_i,CICLO=2008_2009,MatF=var618,EH6=var479, EM6=var500, MOD=0809,OUTFILE=IE0809); %EgresadosIND_P_PEM2015(MODALI=prim_i,CICLO=2009_2010,MatF=var618,EH6=var479, EM6=var500, MOD=0910,OUTFILE=IE0910); %EgresadosIND_P_PEM2015(MODALI=prim_i,CICLO=2010_2011,MatF=var618,EH6=var479, EM6=var500, MOD=1011,OUTFILE=IE1011); %EgresadosIND_P_PEM2015(MODALI=prim_i,CICLO=2011_2012,MatF=var618,EH6=var479, EM6=var500, MOD=1112,OUTFILE=IE1112); %EgresadosIND_P_PEM2015(MODALI=prim_i,CICLO=2012_2013,MatF=var618,EH6=var479, EM6=var500, MOD=1213,OUTFILE=IE1213); %EgresadosIND_P_PEM2015(MODALI=prim_i,CICLO=2013_2014,MatF=var618,EH6=var479, EM6=var500, MOD=1314,OUTFILE=IE1314); *PRIMARIA COMUNITARIA; %INCLUDE "D:\DATOS_EVR\INDICADORES\New_Cohorte\PrimariaP2010v2\EgresadosCOM1_P_PEM2015.SAS"; %EgresadosCOM1_P_PEM2015(MODALI=prim_c,CICLO=1998_1999,MatF=var999,CEHC1=var687,CEHC2=var795,CEHC3=var903,CEMC1=var723,CEMC2=var831,CEMC3=var939,MOD=9899,OUTFILE=CE9899); %EgresadosCOM1_P_PEM2015(MODALI=prim_c,CICLO=1999_2000,MatF=var999,CEHC1=var687,CEHC2=var795,CEHC3=var903,CEMC1=var723,CEMC2=var831,CEMC3=var939,MOD=9900,OUTFILE=CE9900); %EgresadosCOM1_P_PEM2015(MODALI=prim_c,CICLO=2000_2001,MatF=var999,CEHC1=var687,CEHC2=var795,CEHC3=var903,CEMC1=var723,CEMC2=var831,CEMC3=var939,MOD=0001,OUTFILE=CE0001); %EgresadosCOM1_P_PEM2015(MODALI=prim_c,CICLO=2001_2002,MatF=var999,CEHC1=var687,CEHC2=var795,CEHC3=var903,CEMC1=var723,CEMC2=var831,CEMC3=var939,MOD=0102,OUTFILE=CE0102); %INCLUDE "D:\DATOS_EVR\INDICADORES\New_Cohorte\PrimariaP2010v2\EgresadosCOM2_P_PEM2015.SAS"; %EgresadosCOM2_P_PEM2015(MODALI=prim_c,CICLO=2002_2003,MatF=var999,CEHC2=var795,CEHC3=var903,CEMC2=var831,CEMC3=var939,MOD=0203,OUTFILE=CE0203); %EgresadosCOM2_P_PEM2015(MODALI=prim_c,CICLO=2003_2004,MatF=var999,CEHC2=var795,CEHC3=var903,CEMC2=var831,CEMC3=var939,MOD=0304,OUTFILE=CE0304); %EgresadosCOM2_P_PEM2015(MODALI=prim_c,CICLO=2004_2005,MatF=var999,CEHC2=var795,CEHC3=var903,CEMC2=var831,CEMC3=var939,MOD=0405,OUTFILE=CE0405); %EgresadosCOM2_P_PEM2015(MODALI=prim_c,CICLO=2005_2006,MatF=var999,CEHC2=var795,CEHC3=var903,CEMC2=var831,CEMC3=var939,MOD=0506,OUTFILE=CE0506); %EgresadosCOM2_P_PEM2015(MODALI=prim_c,CICLO=2006_2007,MatF=var999,CEHC2=var795,CEHC3=var903,CEMC2=var831,CEMC3=var939,MOD=0607,OUTFILE=CE0607); %EgresadosCOM2_P_PEM2015(MODALI=prim_c,CICLO=2007_2008,MatF=var999,CEHC2=var795,CEHC3=var903,CEMC2=var831,CEMC3=var939,MOD=0708,OUTFILE=CE0708); %EgresadosCOM2_P_PEM2015(MODALI=prim_c,CICLO=2008_2009,MatF=var999,CEHC2=var795,CEHC3=var903,CEMC2=var831,CEMC3=var939,MOD=0809,OUTFILE=CE0809); %EgresadosCOM2_P_PEM2015(MODALI=prim_c,CICLO=2009_2010,MatF=var999,CEHC2=var795,CEHC3=var903,CEMC2=var831,CEMC3=var939,MOD=0910,OUTFILE=CE0910); %EgresadosCOM2_P_PEM2015(MODALI=prim_c,CICLO=2010_2011,MatF=var999,CEHC2=var795,CEHC3=var903,CEMC2=var831,CEMC3=var939,MOD=1011,OUTFILE=CE1011); %EgresadosCOM2_P_PEM2015(MODALI=prim_c,CICLO=2011_2012,MatF=var999,CEHC2=var795,CEHC3=var903,CEMC2=var831,CEMC3=var939,MOD=1112,OUTFILE=CE1112); %EgresadosCOM2_P_PEM2015(MODALI=prim_c,CICLO=2012_2013,MatF=var999,CEHC2=var795,CEHC3=var903,CEMC2=var831,CEMC3=var939,MOD=1213,OUTFILE=CE1213); %EgresadosCOM2_P_PEM2015(MODALI=prim_c,CICLO=2013_2014,MatF=var999,CEHC2=var795,CEHC3=var903,CEMC2=var831,CEMC3=var939,MOD=1314,OUTFILE=CE1314); /******************************************************************************* Entidades federativas Tipo de servicio (Tserv): 1 Calculo Total (General + Indigena + Comunitaria). 2 Calculo de Primaria General. 3 Calculo de Primaria Indigena. 4 Calculo de Primaria Comunitaria. (No se muestran tabulados) *******************************************************************************/ DATA ENTIDADES; INPUT Tserv N_ENT$2. NOMBRE_ENT$25.; DATALINES; 2 01 Aguascalientes 2 02 Baja California 2 03 Baja California Sur 2 04 Campeche 2 05 Coahuila 2 06 Colima 2 07 Chiapas 2 08 Chihuahua 2 09 Distrito Federal 2 10 Durango 2 11 Guanajuato 2 12 Guerrero 2 13 Hidalgo 2 14 Jalisco 2 15 México 2 16 Michoacán 2 17 Morelos 2 18 Nayarit 2 19 Nuevo León 2 20 Oaxaca 2 21 Puebla 2 22 Querétaro 2 23 Quintana Roo 2 24 San Luis Potosí 2 25 Sinaloa 2 26 Sonora 2 27 Tabasco 2 28 Tamaulipas 2 29 Tlaxcala 2 30 Veracruz 2 31 Yucatán 2 32 Zacatecas 2 33 Nacional 3 01 Aguascalientes 3 02 Baja California 3 03 Baja California Sur 3 04 Campeche 3 05 Coahuila 3 06 Colima 3 07 Chiapas 3 08 Chihuahua 3 09 Distrito Federal 3 10 Durango 3 11 Guanajuato 3 12 Guerrero 3 13 Hidalgo 3 14 Jalisco 3 15 México 3 16 Michoacán 3 17 Morelos 3 18 Nayarit 3 19 Nuevo León 3 20 Oaxaca 3 21 Puebla 3 22 Querétaro 3 23 Quintana Roo 3 24 San Luis Potosí 3 25 Sinaloa 3 26 Sonora 3 27 Tabasco 3 28 Tamaulipas 3 29 Tlaxcala 3 30 Veracruz 3 31 Yucatán 3 32 Zacatecas 3 33 Nacional 4 01 Aguascalientes 4 02 Baja California 4 03 Baja California Sur 4 04 Campeche 4 05 Coahuila 4 06 Colima 4 07 Chiapas 4 08 Chihuahua 4 09 Distrito Federal 4 10 Durango 4 11 Guanajuato 4 12 Guerrero 4 13 Hidalgo 4 14 Jalisco 4 15 México 4 16 Michoacán 4 17 Morelos 4 18 Nayarit 4 19 Nuevo León 4 20 Oaxaca 4 21 Puebla 4 22 Querétaro 4 23 Quintana Roo 4 24 San Luis Potosí 4 25 Sinaloa 4 26 Sonora 4 27 Tabasco 4 28 Tamaulipas 4 29 Tlaxcala 4 30 Veracruz 4 31 Yucatán 4 32 Zacatecas 4 33 Nacional ; RUN; /******************************************************************************* MACRO QUE CALCULA LOS INDICADORES DEL MCR-MG DEL NIVEL PRIMARIA *******************************************************************************/ %MACRO PR(D01=, D02=, D03=, D04=, D05=, D06=, D07=, D08=, D09=, D10=, D11=, D12=, D13=, D14=, D15=, D16=, D17=, D18=, D19=, D20=, D21=, D22=, D23=, D24=, D25=, D26=, D27=, D28=, D29=, D30=, D31=, D32=, D33=, D34=, D35=, D36=, D37=, D38=, D39=, D40=, D41=, D42=, D43=, D44=, D45=, D46=, D47=, D48=, D49=, D50=, D51=, OUT=, CICLO=, ENT=, A001=, A002=, A003=, A004=, A005=, A006=, A007=, A008=, A009=, A010=, A011=, A012=, A013=, A014=, A015=, A016=, A017=, A018=, A019=, A020=, A021=, A022=, A023=, A024=, A025=, A026=, A027=, A028=, A029=, A030=, A031=, A032=, A033=, A034=, A035=, A036=, A037=, A038=, A039=, A040=, A041=, A042=, A043=, A044=, A045=, A046=, A047=, A048=, A049=, A050=, A051=, A052=, A053=, A054=, A055=, A056=, A057=, A058=, A059=, A060=, A061=, A062=, A063=, A064=, A065=, A066=, A067=, A068=, A069=, A070=, A071=, A072=, A073=, A074=, A075=, A076=, A077=, A078=, A079=, A080=, A081=, A082=, A083=, A084=, A085=, A086=, A087=, A088=, A089=, A090=, A091=, A092=, A093=, A094=, A095=, A096=, A097=, A098=, A099=, A100=, A101=, A102=, A103=, A104=, A105=, A106=, A107=, A108=, A109=, A110=, A111=, A112=, A113=, A114=, A115=, A116=, B001=, B002=, B003=, B004=, B005=, B006=, B007=, B008=, B009=, B010=, B011=, B012=, B013=, B014=, B015=, B016=, B017=, B018=, B019=, B020=, B021=, B022=, B023=, B024=, B025=, B026=, B027=, B028=, B029=, B030=, B031=, B032=, B033=, B034=, B035=, B036=, B037=, B038=, B039=, B040=, B041=, B042=, B043=, B044=, B045=, B046=, B047=, B048=, B049=, B050=, B051=, B052=, B053=, B054=, B055=, B056=, B057=, B058=, B059=, B060=, B061=, B062=, B063=, B064=, B065=, B066=, B067=, B068=, B069=, B070=, B071=, B072=, B073=, B074=, B075=, B076=, B077=, B078=, B079=, B080=, B081=, B082=, B083=, B084=, B085=, B086=, B087=, B088=, B089=, B090=, B091=, B092=, B093=, B094=, B095=, B096=, B097=, B098=, B099=, B100=, B101=, B102=, B103=, B104=, B105=, B106=, B107=, B108=, B109=, B110=, B111=, B112=, B113=, B114=, B115=, B116=, C001=, C002=, C003=, C004=, C005=, C006=, C007=, C008=, C009=, C010=, C011=, C012=, C013=, C014=, C015=, C016=, C017=, C018=, C019=, C020=, C021=, C022=, C023=, C024=, C025=, C026=, C027=, C028=, C029=, C030=, C031=, C032=, C033=, C034=, C035=, C036=, C037=, C038=, C039=, C040=, C041=, C042=, C043=, C044=, C045=, C046=, C047=, C048=, C049=, C050=, C051=, C052=, C053=, C054=, C055=, C056=, C057=, C058=, C059=, C060=, C061=, C062=, C063=, C064=, C065=, C066=, C067=, C068=, C069=, C070=, C071=, C072=, C073=, C074=, C075=, C076=, C077=, C078=, C079=, C080=, C081=, C082=, C083=, C084=, C085=, C086=, C087=, C088=, C089=, C090=, C091=, C092=, C093=, C094=, C095=, C096=, C097=, C098=, C099=, C100=, C101=, C102=, C103=, C104=, C105=, C106=, C107=, C108=, C109=, C110=, C111=, C112=, C113=, C114=, C115=, C116=); DATA UNO_1; SET &D01 &D02 &D03; RUN; DATA DOS_1; SET &D04 &D05 &D06; RUN; DATA TRE_1; MERGE &ENT (IN=INEE) UNO_1 DOS_1; BY TSERV N_ENT; IF INEE; RUN; DATA UNO_2; SET &D07 &D08 &D09; RUN; DATA DOS_2; SET &D10 &D11 &D12; RUN; DATA TRE_2; MERGE &ENT (IN=INEE) UNO_2 DOS_2; BY TSERV N_ENT; IF INEE; RUN; DATA UNO_3; SET &D13 &D14 &D15; RUN; DATA DOS_3; SET &D16 &D17 &D18; RUN; DATA TRE_3; MERGE &ENT (IN=INEE) UNO_3 DOS_3; BY TSERV N_ENT; IF INEE; RUN; DATA UNO_4; SET &D19 &D20 &D21; RUN; DATA DOS_4; SET &D22 &D23 &D24; RUN; DATA TRE_4; MERGE &ENT (IN=INEE) UNO_4 DOS_4; BY TSERV N_ENT; IF INEE; RUN; DATA UNO_5; SET &D25 &D26 &D27; RUN; DATA DOS_5; SET &D28 &D29 &D30; RUN; DATA TRE_5; MERGE &ENT (IN=INEE) UNO_5 DOS_5; BY TSERV N_ENT; IF INEE; RUN; DATA UNO_6; SET &D31 &D32 &D33; RUN; DATA DOS_6; SET &D34 &D35 &D36; RUN; DATA TRE_6; MERGE &ENT (IN=INEE) UNO_6 DOS_6; BY TSERV N_ENT; IF INEE; RUN; DATA UNO_7; SET &D37 &D38 &D39; RUN; DATA DOS_7; SET &D40 &D41 &D42; RUN; DATA TRE_7; MERGE &ENT (IN=INEE) UNO_7 DOS_7; BY TSERV N_ENT; IF INEE; RUN; DATA UNO_8; SET &D43 &D44 &D45; RUN; DATA DOS_8; SET &D46 &D47 &D48; RUN; DATA TRE_8; MERGE &ENT (IN=INEE) UNO_8 DOS_8; BY TSERV N_ENT; IF INEE; RUN; DATA UNO_9; SET &D49 &D50 &D51; RUN; DATA TRE_9; MERGE &ENT (IN=INEE) UNO_9; BY TSERV N_ENT; IF INEE; RUN; PROC SORT DATA=TRE_1; BY TSERV N_ENT; RUN; PROC SORT DATA=TRE_2; BY TSERV N_ENT; RUN; PROC SORT DATA=TRE_3; BY TSERV N_ENT; RUN; PROC SORT DATA=TRE_4; BY TSERV N_ENT; RUN; PROC SORT DATA=TRE_5; BY TSERV N_ENT; RUN; PROC SORT DATA=TRE_6; BY TSERV N_ENT; RUN; PROC SORT DATA=TRE_7; BY TSERV N_ENT; RUN; PROC SORT DATA=TRE_8; BY TSERV N_ENT; RUN; PROC SORT DATA=TRE_9; BY TSERV N_ENT; RUN; DATA PRIMARIA; MERGE TRE_1 (IN=INEE) TRE_2 TRE_3 TRE_4 TRE_5 TRE_6 TRE_7 TRE_8 TRE_9; BY TSERV N_ENT NOMBRE_ENT; IF INEE; RUN; PROC SQL; CREATE TABLE ORDEN_&OUT AS SELECT Tserv, N_ENT, &A001,&A002,&A003,&A004,&A005,&A006,&B001,&B002,&B003,&B004,&B005,&B006,&C001,&C002,&C003,&C004,&C005,&C006,&A007,&B007,&C007, &A008,&A009,&A010,&A011,&A012,&A013,&B008,&B009,&B010,&B011,&B012,&B013,&C008,&C009,&C010,&C011,&C012,&C013, &A014,&A015,&A016,&A017,&A018,&A019,&B014,&B015,&B016,&B017,&B018,&B019,&C014,&C015,&C016,&C017,&C018,&C019,&A020,&B020,&C020, &A021,&A022,&A023,&A024,&A025,&A026,&B021,&B022,&B023,&B024,&B025,&B026,&C021,&C022,&C023,&C024,&C025,&C026, &A027,&A028,&A029,&A030,&A031,&A032,&B027,&B028,&B029,&B030,&B031,&B032,&C027,&C028,&C029,&C030,&C031,&C032,&A033,&B033,&C033, &A034,&A035,&A036,&A037,&A038,&A039,&B034,&B035,&B036,&B037,&B038,&B039,&C034,&C035,&C036,&C037,&C038,&C039, &A040,&A041,&A042,&A043,&A044,&A045,&B040,&B041,&B042,&B043,&B044,&B045,&C040,&C041,&C042,&C043,&C044,&C045,&A046,&B046,&C046, &A047,&A048,&A049,&A050,&A051,&A052,&B047,&B048,&B049,&B050,&B051,&B052,&C047,&C048,&C049,&C050,&C051,&C052, &A053,&A054,&A055,&A056,&A057,&A058,&B053,&B054,&B055,&B056,&B057,&B058,&C053,&C054,&C055,&C056,&C057,&C058,&A059,&B059,&C059, &A060,&A061,&A062,&A063,&A064,&A065,&B060,&B061,&B062,&B063,&B064,&B065,&C060,&C061,&C062,&C063,&C064,&C065, &A066,&A067,&A068,&A069,&A070,&A071,&B066,&B067,&B068,&B069,&B070,&B071,&C066,&C067,&C068,&C069,&C070,&C071,&A072,&B072,&C072, &A073,&A074,&A075,&A076,&A077,&A078,&B073,&B074,&B075,&B076,&B077,&B078,&C073,&C074,&C075,&C076,&C077,&C078, &A079,&A080,&A081,&A082,&A083,&A084,&B079,&B080,&B081,&B082,&B083,&B084,&C079,&C080,&C081,&C082,&C083,&C084,&A085,&B085,&C085, &A086,&A087,&A088,&A089,&A090,&A091,&B086,&B087,&B088,&B089,&B090,&B091,&C086,&C087,&C088,&C089,&C090,&C091, &A092,&A093,&A094,&A095,&A096,&A097,&B092,&B093,&B094,&B095,&B096,&B097,&C092,&C093,&C094,&C095,&C096,&C097,&A098,&B098,&C098, &A099,&A100,&A101,&A102,&A103,&A104,&B099,&B100,&B101,&B102,&B103,&B104,&C099,&C100,&C101,&C102,&C103,&C104, &A105,&A106,&A107,&A108,&A109,&A110,&B105,&B106,&B107,&B108,&B109,&B110,&C105,&C106,&C107,&C108,&C109,&C110, &A111,&A112,&A113,&A114,&A115,&A116,&B111,&B112,&B113,&B114,&B115,&B116,&C111,&C112,&C113,&C114,&C115,&C116 FROM PRIMARIA; QUIT; PROC MEANS DATA=ORDEN_&OUT SUM NOPRINT; CLASS Tserv n_ent; VAR &A001 &A002 &A003 &A004 &A005 &A006 &B001 &B002 &B003 &B004 &B005 &B006 &C001 &C002 &C003 &C004 &C005 &C006 &A007 &B007 &C007 &A008 &A009 &A010 &A011 &A012 &A013 &B008 &B009 &B010 &B011 &B012 &B013 &C008 &C009 &C010 &C011 &C012 &C013 &A014 &A015 &A016 &A017 &A018 &A019 &B014 &B015 &B016 &B017 &B018 &B019 &C014 &C015 &C016 &C017 &C018 &C019 &A020 &B020 &C020 &A021 &A022 &A023 &A024 &A025 &A026 &B021 &B022 &B023 &B024 &B025 &B026 &C021 &C022 &C023 &C024 &C025 &C026 &A027 &A028 &A029 &A030 &A031 &A032 &B027 &B028 &B029 &B030 &B031 &B032 &C027 &C028 &C029 &C030 &C031 &C032 &A033 &B033 &C033 &A034 &A035 &A036 &A037 &A038 &A039 &B034 &B035 &B036 &B037 &B038 &B039 &C034 &C035 &C036 &C037 &C038 &C039 &A040 &A041 &A042 &A043 &A044 &A045 &B040 &B041 &B042 &B043 &B044 &B045 &C040 &C041 &C042 &C043 &C044 &C045 &A046 &B046 &C046 &A047 &A048 &A049 &A050 &A051 &A052 &B047 &B048 &B049 &B050 &B051 &B052 &C047 &C048 &C049 &C050 &C051 &C052 &A053 &A054 &A055 &A056 &A057 &A058 &B053 &B054 &B055 &B056 &B057 &B058 &C053 &C054 &C055 &C056 &C057 &C058 &A059 &B059 &C059 &A060 &A061 &A062 &A063 &A064 &A065 &B060 &B061 &B062 &B063 &B064 &B065 &C060 &C061 &C062 &C063 &C064 &C065 &A066 &A067 &A068 &A069 &A070 &A071 &B066 &B067 &B068 &B069 &B070 &B071 &C066 &C067 &C068 &C069 &C070 &C071 &A072 &B072 &C072 &A073 &A074 &A075 &A076 &A077 &A078 &B073 &B074 &B075 &B076 &B077 &B078 &C073 &C074 &C075 &C076 &C077 &C078 &A079 &A080 &A081 &A082 &A083 &A084 &B079 &B080 &B081 &B082 &B083 &B084 &C079 &C080 &C081 &C082 &C083 &C084 &A085 &B085 &C085 &A086 &A087 &A088 &A089 &A090 &A091 &B086 &B087 &B088 &B089 &B090 &B091 &C086 &C087 &C088 &C089 &C090 &C091 &A092 &A093 &A094 &A095 &A096 &A097 &B092 &B093 &B094 &B095 &B096 &B097 &C092 &C093 &C094 &C095 &C096 &C097 &A098 &B098 &C098 &A099 &A100 &A101 &A102 &A103 &A104 &B099 &B100 &B101 &B102 &B103 &B104 &C099 &C100 &C101 &C102 &C103 &C104 &A105 &A106 &A107 &A108 &A109 &A110 &B105 &B106 &B107 &B108 &B109 &B110 &C105 &C106 &C107 &C108 &C109 &C110 &A111 &A112 &A113 &A114 &A115 &A116 &B111 &B112 &B113 &B114 &B115 &B116 &C111 &C112 &C113 &C114 &C115 &C116; OUTPUT OUT=ESTPRIMARIA_&OUT (KEEP=Tserv n_ent &A001 &A002 &A003 &A004 &A005 &A006 &B001 &B002 &B003 &B004 &B005 &B006 &C001 &C002 &C003 &C004 &C005 &C006 &A007 &B007 &C007 &A008 &A009 &A010 &A011 &A012 &A013 &B008 &B009 &B010 &B011 &B012 &B013 &C008 &C009 &C010 &C011 &C012 &C013 &A014 &A015 &A016 &A017 &A018 &A019 &B014 &B015 &B016 &B017 &B018 &B019 &C014 &C015 &C016 &C017 &C018 &C019 &A020 &B020 &C020 &A021 &A022 &A023 &A024 &A025 &A026 &B021 &B022 &B023 &B024 &B025 &B026 &C021 &C022 &C023 &C024 &C025 &C026 &A027 &A028 &A029 &A030 &A031 &A032 &B027 &B028 &B029 &B030 &B031 &B032 &C027 &C028 &C029 &C030 &C031 &C032 &A033 &B033 &C033 &A034 &A035 &A036 &A037 &A038 &A039 &B034 &B035 &B036 &B037 &B038 &B039 &C034 &C035 &C036 &C037 &C038 &C039 &A040 &A041 &A042 &A043 &A044 &A045 &B040 &B041 &B042 &B043 &B044 &B045 &C040 &C041 &C042 &C043 &C044 &C045 &A046 &B046 &C046 &A047 &A048 &A049 &A050 &A051 &A052 &B047 &B048 &B049 &B050 &B051 &B052 &C047 &C048 &C049 &C050 &C051 &C052 &A053 &A054 &A055 &A056 &A057 &A058 &B053 &B054 &B055 &B056 &B057 &B058 &C053 &C054 &C055 &C056 &C057 &C058 &A059 &B059 &C059 &A060 &A061 &A062 &A063 &A064 &A065 &B060 &B061 &B062 &B063 &B064 &B065 &C060 &C061 &C062 &C063 &C064 &C065 &A066 &A067 &A068 &A069 &A070 &A071 &B066 &B067 &B068 &B069 &B070 &B071 &C066 &C067 &C068 &C069 &C070 &C071 &A072 &B072 &C072 &A073 &A074 &A075 &A076 &A077 &A078 &B073 &B074 &B075 &B076 &B077 &B078 &C073 &C074 &C075 &C076 &C077 &C078 &A079 &A080 &A081 &A082 &A083 &A084 &B079 &B080 &B081 &B082 &B083 &B084 &C079 &C080 &C081 &C082 &C083 &C084 &A085 &B085 &C085 &A086 &A087 &A088 &A089 &A090 &A091 &B086 &B087 &B088 &B089 &B090 &B091 &C086 &C087 &C088 &C089 &C090 &C091 &A092 &A093 &A094 &A095 &A096 &A097 &B092 &B093 &B094 &B095 &B096 &B097 &C092 &C093 &C094 &C095 &C096 &C097 &A098 &B098 &C098 &A099 &A100 &A101 &A102 &A103 &A104 &B099 &B100 &B101 &B102 &B103 &B104 &C099 &C100 &C101 &C102 &C103 &C104 &A105 &A106 &A107 &A108 &A109 &A110 &B105 &B106 &B107 &B108 &B109 &B110 &C105 &C106 &C107 &C108 &C109 &C110 &A111 &A112 &A113 &A114 &A115 &A116 &B111 &B112 &B113 &B114 &B115 &B116 &C111 &C112 &C113 &C114 &C115 &C116) SUM(&A001 &A002 &A003 &A004 &A005 &A006 &B001 &B002 &B003 &B004 &B005 &B006 &C001 &C002 &C003 &C004 &C005 &C006 &A007 &B007 &C007 &A008 &A009 &A010 &A011 &A012 &A013 &B008 &B009 &B010 &B011 &B012 &B013 &C008 &C009 &C010 &C011 &C012 &C013 &A014 &A015 &A016 &A017 &A018 &A019 &B014 &B015 &B016 &B017 &B018 &B019 &C014 &C015 &C016 &C017 &C018 &C019 &A020 &B020 &C020 &A021 &A022 &A023 &A024 &A025 &A026 &B021 &B022 &B023 &B024 &B025 &B026 &C021 &C022 &C023 &C024 &C025 &C026 &A027 &A028 &A029 &A030 &A031 &A032 &B027 &B028 &B029 &B030 &B031 &B032 &C027 &C028 &C029 &C030 &C031 &C032 &A033 &B033 &C033 &A034 &A035 &A036 &A037 &A038 &A039 &B034 &B035 &B036 &B037 &B038 &B039 &C034 &C035 &C036 &C037 &C038 &C039 &A040 &A041 &A042 &A043 &A044 &A045 &B040 &B041 &B042 &B043 &B044 &B045 &C040 &C041 &C042 &C043 &C044 &C045 &A046 &B046 &C046 &A047 &A048 &A049 &A050 &A051 &A052 &B047 &B048 &B049 &B050 &B051 &B052 &C047 &C048 &C049 &C050 &C051 &C052 &A053 &A054 &A055 &A056 &A057 &A058 &B053 &B054 &B055 &B056 &B057 &B058 &C053 &C054 &C055 &C056 &C057 &C058 &A059 &B059 &C059 &A060 &A061 &A062 &A063 &A064 &A065 &B060 &B061 &B062 &B063 &B064 &B065 &C060 &C061 &C062 &C063 &C064 &C065 &A066 &A067 &A068 &A069 &A070 &A071 &B066 &B067 &B068 &B069 &B070 &B071 &C066 &C067 &C068 &C069 &C070 &C071 &A072 &B072 &C072 &A073 &A074 &A075 &A076 &A077 &A078 &B073 &B074 &B075 &B076 &B077 &B078 &C073 &C074 &C075 &C076 &C077 &C078 &A079 &A080 &A081 &A082 &A083 &A084 &B079 &B080 &B081 &B082 &B083 &B084 &C079 &C080 &C081 &C082 &C083 &C084 &A085 &B085 &C085 &A086 &A087 &A088 &A089 &A090 &A091 &B086 &B087 &B088 &B089 &B090 &B091 &C086 &C087 &C088 &C089 &C090 &C091 &A092 &A093 &A094 &A095 &A096 &A097 &B092 &B093 &B094 &B095 &B096 &B097 &C092 &C093 &C094 &C095 &C096 &C097 &A098 &B098 &C098 &A099 &A100 &A101 &A102 &A103 &A104 &B099 &B100 &B101 &B102 &B103 &B104 &C099 &C100 &C101 &C102 &C103 &C104 &A105 &A106 &A107 &A108 &A109 &A110 &B105 &B106 &B107 &B108 &B109 &B110 &C105 &C106 &C107 &C108 &C109 &C110 &A111 &A112 &A113 &A114 &A115 &A116 &B111 &B112 &B113 &B114 &B115 &B116 &C111 &C112 &C113 &C114 &C115 &C116)= &A001 &A002 &A003 &A004 &A005 &A006 &B001 &B002 &B003 &B004 &B005 &B006 &C001 &C002 &C003 &C004 &C005 &C006 &A007 &B007 &C007 &A008 &A009 &A010 &A011 &A012 &A013 &B008 &B009 &B010 &B011 &B012 &B013 &C008 &C009 &C010 &C011 &C012 &C013 &A014 &A015 &A016 &A017 &A018 &A019 &B014 &B015 &B016 &B017 &B018 &B019 &C014 &C015 &C016 &C017 &C018 &C019 &A020 &B020 &C020 &A021 &A022 &A023 &A024 &A025 &A026 &B021 &B022 &B023 &B024 &B025 &B026 &C021 &C022 &C023 &C024 &C025 &C026 &A027 &A028 &A029 &A030 &A031 &A032 &B027 &B028 &B029 &B030 &B031 &B032 &C027 &C028 &C029 &C030 &C031 &C032 &A033 &B033 &C033 &A034 &A035 &A036 &A037 &A038 &A039 &B034 &B035 &B036 &B037 &B038 &B039 &C034 &C035 &C036 &C037 &C038 &C039 &A040 &A041 &A042 &A043 &A044 &A045 &B040 &B041 &B042 &B043 &B044 &B045 &C040 &C041 &C042 &C043 &C044 &C045 &A046 &B046 &C046 &A047 &A048 &A049 &A050 &A051 &A052 &B047 &B048 &B049 &B050 &B051 &B052 &C047 &C048 &C049 &C050 &C051 &C052 &A053 &A054 &A055 &A056 &A057 &A058 &B053 &B054 &B055 &B056 &B057 &B058 &C053 &C054 &C055 &C056 &C057 &C058 &A059 &B059 &C059 &A060 &A061 &A062 &A063 &A064 &A065 &B060 &B061 &B062 &B063 &B064 &B065 &C060 &C061 &C062 &C063 &C064 &C065 &A066 &A067 &A068 &A069 &A070 &A071 &B066 &B067 &B068 &B069 &B070 &B071 &C066 &C067 &C068 &C069 &C070 &C071 &A072 &B072 &C072 &A073 &A074 &A075 &A076 &A077 &A078 &B073 &B074 &B075 &B076 &B077 &B078 &C073 &C074 &C075 &C076 &C077 &C078 &A079 &A080 &A081 &A082 &A083 &A084 &B079 &B080 &B081 &B082 &B083 &B084 &C079 &C080 &C081 &C082 &C083 &C084 &A085 &B085 &C085 &A086 &A087 &A088 &A089 &A090 &A091 &B086 &B087 &B088 &B089 &B090 &B091 &C086 &C087 &C088 &C089 &C090 &C091 &A092 &A093 &A094 &A095 &A096 &A097 &B092 &B093 &B094 &B095 &B096 &B097 &C092 &C093 &C094 &C095 &C096 &C097 &A098 &B098 &C098 &A099 &A100 &A101 &A102 &A103 &A104 &B099 &B100 &B101 &B102 &B103 &B104 &C099 &C100 &C101 &C102 &C103 &C104 &A105 &A106 &A107 &A108 &A109 &A110 &B105 &B106 &B107 &B108 &B109 &B110 &C105 &C106 &C107 &C108 &C109 &C110 &A111 &A112 &A113 &A114 &A115 &A116 &B111 &B112 &B113 &B114 &B115 &B116 &C111 &C112 &C113 &C114 &C115 &C116; RUN; DATA ESTPRIMARIA_&OUT; SET ESTPRIMARIA_&OUT; IF TSERV = . THEN TSERV = 1; RUN; DATA ESTPRIMARIA_&OUT; SET ESTPRIMARIA_&OUT; IF NOT MISSING(N_ENT); RUN; PROC SORT DATA=ESTPRIMARIA_&OUT; BY TSERV N_ENT; RUN; PROC DATASETS LIBRARY=WORK NOLIST; DELETE UNO_1 UNO_2 UNO_3 UNO_4 UNO_5 UNO_6 UNO_7 UNO_8 UNO_9 DOS_1 DOS_2 DOS_3 DOS_4 DOS_5 DOS_6 DOS_7 DOS_8 DOS_9 TRE_1 TRE_2 TRE_3 TRE_4 TRE_5 TRE_6 TRE_7 TRE_8 TRE_9 PRIMARIA ORDEN_&OUT; RUN; %DO K = 1 %TO 3; DATA ESTPRIMARIA_&OUT.&&K; SET ESTPRIMARIA_&OUT; WHERE TSERV = &&K; RUN; %END; %DO K = 1 %TO 3; DATA TASA_&OUT.&&K; SET ESTPRIMARIA_&OUT.&&K; %DO I = 1 %TO 33; IF N_ENT = &I THEN DO; PromocionT_01a=SUM(&A015,-&A022)/&A001; PromocionT_02a=SUM(&A028,-&A035)/&A014; PromocionT_03a=SUM(&A041,-&A048)/&A027; PromocionT_04a=SUM(&A054,-&A061)/&A040; PromocionT_05a=SUM(&A067,-&A074)/&A053; PromocionT_06a=SUM(&A080,-&A087)/&A066; PromocionT_07a=SUM(&A093,-&A100)/&A079; PromocionT_08a=SUM(&A106,-&A112)/&A092; PromocionT_11a=SUM(&A016,-&A023)/&A002; PromocionT_12a=SUM(&A029,-&A036)/&A015; PromocionT_13a=SUM(&A042,-&A049)/&A028; PromocionT_14a=SUM(&A055,-&A062)/&A041; PromocionT_15a=SUM(&A068,-&A075)/&A054; PromocionT_16a=SUM(&A081,-&A088)/&A067; PromocionT_17a=SUM(&A094,-&A101)/&A080; PromocionT_18a=SUM(&A107,-&A113)/&A093; PromocionT_21a=SUM(&A017,-&A024)/&A003; PromocionT_22a=SUM(&A030,-&A037)/&A016; PromocionT_23a=SUM(&A043,-&A050)/&A029; PromocionT_24a=SUM(&A056,-&A063)/&A042; PromocionT_25a=SUM(&A069,-&A076)/&A055; PromocionT_26a=SUM(&A082,-&A089)/&A068; PromocionT_27a=SUM(&A095,-&A102)/&A081; PromocionT_28a=SUM(&A108,-&A114)/&A094; PromocionT_31a=SUM(&A018,-&A025)/&A004; PromocionT_32a=SUM(&A031,-&A038)/&A017; PromocionT_33a=SUM(&A044,-&A051)/&A030; PromocionT_34a=SUM(&A057,-&A064)/&A043; PromocionT_35a=SUM(&A070,-&A077)/&A056; PromocionT_36a=SUM(&A083,-&A090)/&A069; PromocionT_37a=SUM(&A096,-&A103)/&A082; PromocionT_38a=SUM(&A109,-&A115)/&A095; PromocionT_41a=SUM(&A019,-&A026)/&A005; PromocionT_42a=SUM(&A032,-&A039)/&A018; PromocionT_43a=SUM(&A045,-&A052)/&A031; PromocionT_44a=SUM(&A058,-&A065)/&A044; PromocionT_45a=SUM(&A071,-&A078)/&A057; PromocionT_46a=SUM(&A084,-&A091)/&A070; PromocionT_47a=SUM(&A097,-&A104)/&A083; PromocionT_48a=SUM(&A110,-&A116)/&A096; PromocionT_51a=&A007/&A006; PromocionT_52a=&A020/&A019; PromocionT_53a=&A033/&A032; PromocionT_54a=&A046/&A045; PromocionT_55a=&A059/&A058; PromocionT_56a=&A072/&A071; PromocionT_57a=&A085/&A084; PromocionT_58a=&A098/&A097; RepeticionT_01a=&A021/&A001; RepeticionT_02a=&A034/&A014; RepeticionT_03a=&A047/&A027; RepeticionT_04a=&A060/&A040; RepeticionT_05a=&A073/&A053; RepeticionT_06a=&A086/&A066; RepeticionT_07a=&A099/&A079; RepeticionT_08a=&A111/&A092; RepeticionT_11a=&A022/&A002; RepeticionT_12a=&A035/&A015; RepeticionT_13a=&A048/&A028; RepeticionT_14a=&A061/&A041; RepeticionT_15a=&A074/&A054; RepeticionT_16a=&A087/&A067; RepeticionT_17a=&A100/&A080; RepeticionT_18a=&A112/&A093; RepeticionT_21a=&A023/&A003; RepeticionT_22a=&A036/&A016; RepeticionT_23a=&A049/&A029; RepeticionT_24a=&A062/&A042; RepeticionT_25a=&A075/&A055; RepeticionT_26a=&A088/&A068; RepeticionT_27a=&A101/&A081; RepeticionT_28a=&A113/&A094; RepeticionT_31a=&A024/&A004; RepeticionT_32a=&A037/&A017; RepeticionT_33a=&A050/&A030; RepeticionT_34a=&A063/&A043; RepeticionT_35a=&A076/&A056; RepeticionT_36a=&A089/&A069; RepeticionT_37a=&A102/&A082; RepeticionT_38a=&A114/&A095; RepeticionT_41a=&A025/&A005; RepeticionT_42a=&A038/&A018; RepeticionT_43a=&A051/&A031; RepeticionT_44a=&A064/&A044; RepeticionT_45a=&A077/&A057; RepeticionT_46a=&A090/&A070; RepeticionT_47a=&A103/&A083; RepeticionT_48a=&A115/&A096; RepeticionT_51a=&A026/&A006; RepeticionT_52a=&A039/&A019; RepeticionT_53a=&A052/&A032; RepeticionT_54a=&A065/&A045; RepeticionT_55a=&A078/&A058; RepeticionT_56a=&A091/&A071; RepeticionT_57a=&A104/&A084; RepeticionT_58a=&A116/&A097; DesercionT_01a=SUM(1,-RepeticionT_01a,-PromocionT_01a); DesercionT_02a=SUM(1,-RepeticionT_02a,-PromocionT_02a); DesercionT_03a=SUM(1,-RepeticionT_03a,-PromocionT_03a); DesercionT_04a=SUM(1,-RepeticionT_04a,-PromocionT_04a); DesercionT_05a=SUM(1,-RepeticionT_05a,-PromocionT_05a); DesercionT_06a=SUM(1,-RepeticionT_06a,-PromocionT_06a); DesercionT_07a=SUM(1,-RepeticionT_07a,-PromocionT_07a); DesercionT_08a=SUM(1,-RepeticionT_08a,-PromocionT_08a); DesercionT_11a=SUM(1,-RepeticionT_11a,-PromocionT_11a); DesercionT_12a=SUM(1,-RepeticionT_12a,-PromocionT_12a); DesercionT_13a=SUM(1,-RepeticionT_13a,-PromocionT_13a); DesercionT_14a=SUM(1,-RepeticionT_14a,-PromocionT_14a); DesercionT_15a=SUM(1,-RepeticionT_15a,-PromocionT_15a); DesercionT_16a=SUM(1,-RepeticionT_16a,-PromocionT_16a); DesercionT_17a=SUM(1,-RepeticionT_17a,-PromocionT_17a); DesercionT_18a=SUM(1,-RepeticionT_18a,-PromocionT_18a); DesercionT_21a=SUM(1,-RepeticionT_21a,-PromocionT_21a); DesercionT_22a=SUM(1,-RepeticionT_22a,-PromocionT_22a); DesercionT_23a=SUM(1,-RepeticionT_23a,-PromocionT_23a); DesercionT_24a=SUM(1,-RepeticionT_24a,-PromocionT_24a); DesercionT_25a=SUM(1,-RepeticionT_25a,-PromocionT_25a); DesercionT_26a=SUM(1,-RepeticionT_26a,-PromocionT_26a); DesercionT_27a=SUM(1,-RepeticionT_27a,-PromocionT_27a); DesercionT_28a=SUM(1,-RepeticionT_28a,-PromocionT_28a); DesercionT_31a=SUM(1,-RepeticionT_31a,-PromocionT_31a); DesercionT_32a=SUM(1,-RepeticionT_32a,-PromocionT_32a); DesercionT_33a=SUM(1,-RepeticionT_33a,-PromocionT_33a); DesercionT_34a=SUM(1,-RepeticionT_34a,-PromocionT_34a); DesercionT_35a=SUM(1,-RepeticionT_35a,-PromocionT_35a); DesercionT_36a=SUM(1,-RepeticionT_36a,-PromocionT_36a); DesercionT_37a=SUM(1,-RepeticionT_37a,-PromocionT_37a); DesercionT_38a=SUM(1,-RepeticionT_38a,-PromocionT_38a); DesercionT_41a=SUM(1,-RepeticionT_41a,-PromocionT_41a); DesercionT_42a=SUM(1,-RepeticionT_42a,-PromocionT_42a); DesercionT_43a=SUM(1,-RepeticionT_43a,-PromocionT_43a); DesercionT_44a=SUM(1,-RepeticionT_44a,-PromocionT_44a); DesercionT_45a=SUM(1,-RepeticionT_45a,-PromocionT_45a); DesercionT_46a=SUM(1,-RepeticionT_46a,-PromocionT_46a); DesercionT_47a=SUM(1,-RepeticionT_47a,-PromocionT_47a); DesercionT_48a=SUM(1,-RepeticionT_48a,-PromocionT_48a); DesercionT_51a=SUM(1,-RepeticionT_51a,-PromocionT_51a); DesercionT_52a=SUM(1,-RepeticionT_52a,-PromocionT_52a); DesercionT_53a=SUM(1,-RepeticionT_53a,-PromocionT_53a); DesercionT_54a=SUM(1,-RepeticionT_54a,-PromocionT_54a); DesercionT_55a=SUM(1,-RepeticionT_55a,-PromocionT_55a); DesercionT_56a=SUM(1,-RepeticionT_56a,-PromocionT_56a); DesercionT_57a=SUM(1,-RepeticionT_57a,-PromocionT_57a); DesercionT_58a=SUM(1,-RepeticionT_58a,-PromocionT_58a); /*Ajustes*/ PromocionT_01=PromocionT_01a; PromocionT_02=PromocionT_02a; PromocionT_03=PromocionT_03a; PromocionT_04=PromocionT_04a; PromocionT_05=PromocionT_05a; PromocionT_06=PromocionT_06a; PromocionT_07=PromocionT_07a; PromocionT_08=PromocionT_08a; PromocionT_11=PromocionT_11a; PromocionT_12=PromocionT_12a; PromocionT_13=PromocionT_13a; PromocionT_14=PromocionT_14a; PromocionT_15=PromocionT_15a; PromocionT_16=PromocionT_16a; PromocionT_17=PromocionT_17a; PromocionT_18=PromocionT_18a; PromocionT_21=PromocionT_21a; PromocionT_22=PromocionT_22a; PromocionT_23=PromocionT_23a; PromocionT_24=PromocionT_24a; PromocionT_25=PromocionT_25a; PromocionT_26=PromocionT_26a; PromocionT_27=PromocionT_27a; PromocionT_28=PromocionT_28a; PromocionT_31=PromocionT_31a; PromocionT_32=PromocionT_32a; PromocionT_33=PromocionT_33a; PromocionT_34=PromocionT_34a; PromocionT_35=PromocionT_35a; PromocionT_36=PromocionT_36a; PromocionT_37=PromocionT_37a; PromocionT_38=PromocionT_38a; PromocionT_41=PromocionT_41a; PromocionT_42=PromocionT_42a; PromocionT_43=PromocionT_43a; PromocionT_44=PromocionT_44a; PromocionT_45=PromocionT_45a; PromocionT_46=PromocionT_46a; PromocionT_47=PromocionT_47a; PromocionT_48=PromocionT_48a; PromocionT_51=PromocionT_51a; PromocionT_52=PromocionT_52a; PromocionT_53=PromocionT_53a; PromocionT_54=PromocionT_54a; PromocionT_55=PromocionT_55a; PromocionT_56=PromocionT_56a; PromocionT_57=PromocionT_57a; PromocionT_58=PromocionT_58a; RepeticionT_01=RepeticionT_01a; RepeticionT_02=RepeticionT_02a; RepeticionT_03=RepeticionT_03a; RepeticionT_04=RepeticionT_04a; RepeticionT_05=RepeticionT_05a; RepeticionT_06=RepeticionT_06a; RepeticionT_07=RepeticionT_07a; RepeticionT_08=RepeticionT_08a; RepeticionT_11=RepeticionT_11a; RepeticionT_12=RepeticionT_12a; RepeticionT_13=RepeticionT_13a; RepeticionT_14=RepeticionT_14a; RepeticionT_15=RepeticionT_15a; RepeticionT_16=RepeticionT_16a; RepeticionT_17=RepeticionT_17a; RepeticionT_18=RepeticionT_18a; RepeticionT_21=RepeticionT_21a; RepeticionT_22=RepeticionT_22a; RepeticionT_23=RepeticionT_23a; RepeticionT_24=RepeticionT_24a; RepeticionT_25=RepeticionT_25a; RepeticionT_26=RepeticionT_26a; RepeticionT_27=RepeticionT_27a; RepeticionT_28=RepeticionT_28a; RepeticionT_31=RepeticionT_31a; RepeticionT_32=RepeticionT_32a; RepeticionT_33=RepeticionT_33a; RepeticionT_34=RepeticionT_34a; RepeticionT_35=RepeticionT_35a; RepeticionT_36=RepeticionT_36a; RepeticionT_37=RepeticionT_37a; RepeticionT_38=RepeticionT_38a; RepeticionT_41=RepeticionT_41a; RepeticionT_42=RepeticionT_42a; RepeticionT_43=RepeticionT_43a; RepeticionT_44=RepeticionT_44a; RepeticionT_45=RepeticionT_45a; RepeticionT_46=RepeticionT_46a; RepeticionT_47=RepeticionT_47a; RepeticionT_48=RepeticionT_48a; RepeticionT_51=RepeticionT_51a; RepeticionT_52=RepeticionT_52a; RepeticionT_53=RepeticionT_53a; RepeticionT_54=RepeticionT_54a; RepeticionT_55=RepeticionT_55a; RepeticionT_56=RepeticionT_56a; RepeticionT_57=RepeticionT_57a; RepeticionT_58=RepeticionT_58a; DesercionT_01=DesercionT_01a; DesercionT_02=DesercionT_02a; DesercionT_03=DesercionT_03a; DesercionT_04=DesercionT_04a; DesercionT_05=DesercionT_05a; DesercionT_06=DesercionT_06a; DesercionT_07=DesercionT_07a; DesercionT_08=DesercionT_08a; DesercionT_11=DesercionT_11a; DesercionT_12=DesercionT_12a; DesercionT_13=DesercionT_13a; DesercionT_14=DesercionT_14a; DesercionT_15=DesercionT_15a; DesercionT_16=DesercionT_16a; DesercionT_17=DesercionT_17a; DesercionT_18=DesercionT_18a; DesercionT_21=DesercionT_21a; DesercionT_22=DesercionT_22a; DesercionT_23=DesercionT_23a; DesercionT_24=DesercionT_24a; DesercionT_25=DesercionT_25a; DesercionT_26=DesercionT_26a; DesercionT_27=DesercionT_27a; DesercionT_28=DesercionT_28a; DesercionT_31=DesercionT_31a; DesercionT_32=DesercionT_32a; DesercionT_33=DesercionT_33a; DesercionT_34=DesercionT_34a; DesercionT_35=DesercionT_35a; DesercionT_36=DesercionT_36a; DesercionT_37=DesercionT_37a; DesercionT_38=DesercionT_38a; DesercionT_41=DesercionT_41a; DesercionT_42=DesercionT_42a; DesercionT_43=DesercionT_43a; DesercionT_44=DesercionT_44a; DesercionT_45=DesercionT_45a; DesercionT_46=DesercionT_46a; DesercionT_47=DesercionT_47a; DesercionT_48=DesercionT_48a; DesercionT_51=DesercionT_51a; DesercionT_52=DesercionT_52a; DesercionT_53=DesercionT_53a; DesercionT_54=DesercionT_54a; DesercionT_55=DesercionT_55a; DesercionT_56=DesercionT_56a; DesercionT_57=DesercionT_57a; DesercionT_58=DesercionT_58a; IF SUM(RepeticionT_01a,PromocionT_01a)>1 THEN DO; DesercionT_01=0; PromocionT_01=(PromocionT_01a/SUM(RepeticionT_01a,PromocionT_01a));RepeticionT_01=(RepeticionT_01a/SUM(RepeticionT_01a,PromocionT_01a)); END; IF SUM(RepeticionT_02a,PromocionT_02a)>1 THEN DO; DesercionT_02=0; PromocionT_02=(PromocionT_02a/SUM(RepeticionT_02a,PromocionT_02a));RepeticionT_02=(RepeticionT_02a/SUM(RepeticionT_02a,PromocionT_02a)); END; IF SUM(RepeticionT_03a,PromocionT_03a)>1 THEN DO; DesercionT_03=0; PromocionT_03=(PromocionT_03a/SUM(RepeticionT_03a,PromocionT_03a));RepeticionT_03=(RepeticionT_03a/SUM(RepeticionT_03a,PromocionT_03a)); END; IF SUM(RepeticionT_04a,PromocionT_04a)>1 THEN DO; DesercionT_04=0; PromocionT_04=(PromocionT_04a/SUM(RepeticionT_04a,PromocionT_04a));RepeticionT_04=(RepeticionT_04a/SUM(RepeticionT_04a,PromocionT_04a)); END; IF SUM(RepeticionT_05a,PromocionT_05a)>1 THEN DO; DesercionT_05=0; PromocionT_05=(PromocionT_05a/SUM(RepeticionT_05a,PromocionT_05a));RepeticionT_05=(RepeticionT_05a/SUM(RepeticionT_05a,PromocionT_05a)); END; IF SUM(RepeticionT_06a,PromocionT_06a)>1 THEN DO; DesercionT_06=0; PromocionT_06=(PromocionT_06a/SUM(RepeticionT_06a,PromocionT_06a));RepeticionT_06=(RepeticionT_06a/SUM(RepeticionT_06a,PromocionT_06a)); END; IF SUM(RepeticionT_07a,PromocionT_07a)>1 THEN DO; DesercionT_07=0; PromocionT_07=(PromocionT_07a/SUM(RepeticionT_07a,PromocionT_07a));RepeticionT_07=(RepeticionT_07a/SUM(RepeticionT_07a,PromocionT_07a)); END; IF SUM(RepeticionT_08a,PromocionT_08a)>1 THEN DO; DesercionT_08=0; PromocionT_08=(PromocionT_08a/SUM(RepeticionT_08a,PromocionT_08a));RepeticionT_08=(RepeticionT_08a/SUM(RepeticionT_08a,PromocionT_08a)); END; IF SUM(RepeticionT_11a,PromocionT_11a)>1 THEN DO; DesercionT_11=0; PromocionT_11=(PromocionT_11a/SUM(RepeticionT_11a,PromocionT_11a));RepeticionT_11=(RepeticionT_11a/SUM(RepeticionT_11a,PromocionT_11a)); END; IF SUM(RepeticionT_12a,PromocionT_12a)>1 THEN DO; DesercionT_12=0; PromocionT_12=(PromocionT_12a/SUM(RepeticionT_12a,PromocionT_12a));RepeticionT_12=(RepeticionT_12a/SUM(RepeticionT_12a,PromocionT_12a)); END; IF SUM(RepeticionT_13a,PromocionT_13a)>1 THEN DO; DesercionT_13=0; PromocionT_13=(PromocionT_13a/SUM(RepeticionT_13a,PromocionT_13a));RepeticionT_13=(RepeticionT_13a/SUM(RepeticionT_13a,PromocionT_13a)); END; IF SUM(RepeticionT_14a,PromocionT_14a)>1 THEN DO; DesercionT_14=0; PromocionT_14=(PromocionT_14a/SUM(RepeticionT_14a,PromocionT_14a));RepeticionT_14=(RepeticionT_14a/SUM(RepeticionT_14a,PromocionT_14a)); END; IF SUM(RepeticionT_15a,PromocionT_15a)>1 THEN DO; DesercionT_15=0; PromocionT_15=(PromocionT_15a/SUM(RepeticionT_15a,PromocionT_15a));RepeticionT_15=(RepeticionT_15a/SUM(RepeticionT_15a,PromocionT_15a)); END; IF SUM(RepeticionT_16a,PromocionT_16a)>1 THEN DO; DesercionT_16=0; PromocionT_16=(PromocionT_16a/SUM(RepeticionT_16a,PromocionT_16a));RepeticionT_16=(RepeticionT_16a/SUM(RepeticionT_16a,PromocionT_16a)); END; IF SUM(RepeticionT_17a,PromocionT_17a)>1 THEN DO; DesercionT_17=0; PromocionT_17=(PromocionT_17a/SUM(RepeticionT_17a,PromocionT_17a));RepeticionT_17=(RepeticionT_17a/SUM(RepeticionT_17a,PromocionT_17a)); END; IF SUM(RepeticionT_18a,PromocionT_18a)>1 THEN DO; DesercionT_18=0; PromocionT_18=(PromocionT_18a/SUM(RepeticionT_18a,PromocionT_18a));RepeticionT_18=(RepeticionT_18a/SUM(RepeticionT_18a,PromocionT_18a)); END; IF SUM(RepeticionT_21a,PromocionT_21a)>1 THEN DO; DesercionT_21=0; PromocionT_21=(PromocionT_21a/SUM(RepeticionT_21a,PromocionT_21a));RepeticionT_21=(RepeticionT_21a/SUM(RepeticionT_21a,PromocionT_21a)); END; IF SUM(RepeticionT_22a,PromocionT_22a)>1 THEN DO; DesercionT_22=0; PromocionT_22=(PromocionT_22a/SUM(RepeticionT_22a,PromocionT_22a));RepeticionT_22=(RepeticionT_22a/SUM(RepeticionT_22a,PromocionT_22a)); END; IF SUM(RepeticionT_23a,PromocionT_23a)>1 THEN DO; DesercionT_23=0; PromocionT_23=(PromocionT_23a/SUM(RepeticionT_23a,PromocionT_23a));RepeticionT_23=(RepeticionT_23a/SUM(RepeticionT_23a,PromocionT_23a)); END; IF SUM(RepeticionT_24a,PromocionT_24a)>1 THEN DO; DesercionT_24=0; PromocionT_24=(PromocionT_24a/SUM(RepeticionT_24a,PromocionT_24a));RepeticionT_24=(RepeticionT_24a/SUM(RepeticionT_24a,PromocionT_24a)); END; IF SUM(RepeticionT_25a,PromocionT_25a)>1 THEN DO; DesercionT_25=0; PromocionT_25=(PromocionT_25a/SUM(RepeticionT_25a,PromocionT_25a));RepeticionT_25=(RepeticionT_25a/SUM(RepeticionT_25a,PromocionT_25a)); END; IF SUM(RepeticionT_26a,PromocionT_26a)>1 THEN DO; DesercionT_26=0; PromocionT_26=(PromocionT_26a/SUM(RepeticionT_26a,PromocionT_26a));RepeticionT_26=(RepeticionT_26a/SUM(RepeticionT_26a,PromocionT_26a)); END; IF SUM(RepeticionT_27a,PromocionT_27a)>1 THEN DO; DesercionT_27=0; PromocionT_27=(PromocionT_27a/SUM(RepeticionT_27a,PromocionT_27a));RepeticionT_27=(RepeticionT_27a/SUM(RepeticionT_27a,PromocionT_27a)); END; IF SUM(RepeticionT_28a,PromocionT_28a)>1 THEN DO; DesercionT_28=0; PromocionT_28=(PromocionT_28a/SUM(RepeticionT_28a,PromocionT_28a));RepeticionT_28=(RepeticionT_28a/SUM(RepeticionT_28a,PromocionT_28a)); END; IF SUM(RepeticionT_31a,PromocionT_31a)>1 THEN DO; DesercionT_31=0; PromocionT_31=(PromocionT_31a/SUM(RepeticionT_31a,PromocionT_31a));RepeticionT_31=(RepeticionT_31a/SUM(RepeticionT_31a,PromocionT_31a)); END; IF SUM(RepeticionT_32a,PromocionT_32a)>1 THEN DO; DesercionT_32=0; PromocionT_32=(PromocionT_32a/SUM(RepeticionT_32a,PromocionT_32a));RepeticionT_32=(RepeticionT_32a/SUM(RepeticionT_32a,PromocionT_32a)); END; IF SUM(RepeticionT_33a,PromocionT_33a)>1 THEN DO; DesercionT_33=0; PromocionT_33=(PromocionT_33a/SUM(RepeticionT_33a,PromocionT_33a));RepeticionT_33=(RepeticionT_33a/SUM(RepeticionT_33a,PromocionT_33a)); END; IF SUM(RepeticionT_34a,PromocionT_34a)>1 THEN DO; DesercionT_34=0; PromocionT_34=(PromocionT_34a/SUM(RepeticionT_34a,PromocionT_34a));RepeticionT_34=(RepeticionT_34a/SUM(RepeticionT_34a,PromocionT_34a)); END; IF SUM(RepeticionT_35a,PromocionT_35a)>1 THEN DO; DesercionT_35=0; PromocionT_35=(PromocionT_35a/SUM(RepeticionT_35a,PromocionT_35a));RepeticionT_35=(RepeticionT_35a/SUM(RepeticionT_35a,PromocionT_35a)); END; IF SUM(RepeticionT_36a,PromocionT_36a)>1 THEN DO; DesercionT_36=0; PromocionT_36=(PromocionT_36a/SUM(RepeticionT_36a,PromocionT_36a));RepeticionT_36=(RepeticionT_36a/SUM(RepeticionT_36a,PromocionT_36a)); END; IF SUM(RepeticionT_37a,PromocionT_37a)>1 THEN DO; DesercionT_37=0; PromocionT_37=(PromocionT_37a/SUM(RepeticionT_37a,PromocionT_37a));RepeticionT_37=(RepeticionT_37a/SUM(RepeticionT_37a,PromocionT_37a)); END; IF SUM(RepeticionT_38a,PromocionT_38a)>1 THEN DO; DesercionT_38=0; PromocionT_38=(PromocionT_38a/SUM(RepeticionT_38a,PromocionT_38a));RepeticionT_38=(RepeticionT_38a/SUM(RepeticionT_38a,PromocionT_38a)); END; IF SUM(RepeticionT_41a,PromocionT_41a)>1 THEN DO; DesercionT_41=0; PromocionT_41=(PromocionT_41a/SUM(RepeticionT_41a,PromocionT_41a));RepeticionT_41=(RepeticionT_41a/SUM(RepeticionT_41a,PromocionT_41a)); END; IF SUM(RepeticionT_42a,PromocionT_42a)>1 THEN DO; DesercionT_42=0; PromocionT_42=(PromocionT_42a/SUM(RepeticionT_42a,PromocionT_42a));RepeticionT_42=(RepeticionT_42a/SUM(RepeticionT_42a,PromocionT_42a)); END; IF SUM(RepeticionT_43a,PromocionT_43a)>1 THEN DO; DesercionT_43=0; PromocionT_43=(PromocionT_43a/SUM(RepeticionT_43a,PromocionT_43a));RepeticionT_43=(RepeticionT_43a/SUM(RepeticionT_43a,PromocionT_43a)); END; IF SUM(RepeticionT_44a,PromocionT_44a)>1 THEN DO; DesercionT_44=0; PromocionT_44=(PromocionT_44a/SUM(RepeticionT_44a,PromocionT_44a));RepeticionT_44=(RepeticionT_44a/SUM(RepeticionT_44a,PromocionT_44a)); END; IF SUM(RepeticionT_45a,PromocionT_45a)>1 THEN DO; DesercionT_45=0; PromocionT_45=(PromocionT_45a/SUM(RepeticionT_45a,PromocionT_45a));RepeticionT_45=(RepeticionT_45a/SUM(RepeticionT_45a,PromocionT_45a)); END; IF SUM(RepeticionT_46a,PromocionT_46a)>1 THEN DO; DesercionT_46=0; PromocionT_46=(PromocionT_46a/SUM(RepeticionT_46a,PromocionT_46a));RepeticionT_46=(RepeticionT_46a/SUM(RepeticionT_46a,PromocionT_46a)); END; IF SUM(RepeticionT_47a,PromocionT_47a)>1 THEN DO; DesercionT_47=0; PromocionT_47=(PromocionT_47a/SUM(RepeticionT_47a,PromocionT_47a));RepeticionT_47=(RepeticionT_47a/SUM(RepeticionT_47a,PromocionT_47a)); END; IF SUM(RepeticionT_48a,PromocionT_48a)>1 THEN DO; DesercionT_48=0; PromocionT_48=(PromocionT_48a/SUM(RepeticionT_48a,PromocionT_48a));RepeticionT_48=(RepeticionT_48a/SUM(RepeticionT_48a,PromocionT_48a)); END; IF SUM(RepeticionT_51a,PromocionT_51a)>1 THEN DO; DesercionT_51=0; PromocionT_51=(PromocionT_51a/SUM(RepeticionT_51a,PromocionT_51a));RepeticionT_51=(RepeticionT_51a/SUM(RepeticionT_51a,PromocionT_51a)); END; IF SUM(RepeticionT_52a,PromocionT_52a)>1 THEN DO; DesercionT_52=0; PromocionT_52=(PromocionT_52a/SUM(RepeticionT_52a,PromocionT_52a));RepeticionT_52=(RepeticionT_52a/SUM(RepeticionT_52a,PromocionT_52a)); END; IF SUM(RepeticionT_53a,PromocionT_53a)>1 THEN DO; DesercionT_53=0; PromocionT_53=(PromocionT_53a/SUM(RepeticionT_53a,PromocionT_53a));RepeticionT_53=(RepeticionT_53a/SUM(RepeticionT_53a,PromocionT_53a)); END; IF SUM(RepeticionT_54a,PromocionT_54a)>1 THEN DO; DesercionT_54=0; PromocionT_54=(PromocionT_54a/SUM(RepeticionT_54a,PromocionT_54a));RepeticionT_54=(RepeticionT_54a/SUM(RepeticionT_54a,PromocionT_54a)); END; IF SUM(RepeticionT_55a,PromocionT_55a)>1 THEN DO; DesercionT_55=0; PromocionT_55=(PromocionT_55a/SUM(RepeticionT_55a,PromocionT_55a));RepeticionT_55=(RepeticionT_55a/SUM(RepeticionT_55a,PromocionT_55a)); END; IF SUM(RepeticionT_56a,PromocionT_56a)>1 THEN DO; DesercionT_56=0; PromocionT_56=(PromocionT_56a/SUM(RepeticionT_56a,PromocionT_56a));RepeticionT_56=(RepeticionT_56a/SUM(RepeticionT_56a,PromocionT_56a)); END; IF SUM(RepeticionT_57a,PromocionT_57a)>1 THEN DO; DesercionT_57=0; PromocionT_57=(PromocionT_57a/SUM(RepeticionT_57a,PromocionT_57a));RepeticionT_57=(RepeticionT_57a/SUM(RepeticionT_57a,PromocionT_57a)); END; IF SUM(RepeticionT_58a,PromocionT_58a)>1 THEN DO; DesercionT_58=0; PromocionT_58=(PromocionT_58a/SUM(RepeticionT_58a,PromocionT_58a));RepeticionT_58=(RepeticionT_58a/SUM(RepeticionT_58a,PromocionT_58a)); END; /**/ Tx00=1000; Tx01=DesercionT_01*Tx00; Tx02=PromocionT_01*Tx00; Tx03=RepeticionT_01*Tx00; Tx04=DesercionT_12*Tx02; Tx05=PromocionT_12*Tx02; Tx06=RepeticionT_12*Tx02; Tx07=DesercionT_23*Tx05; Tx08=PromocionT_23*Tx05; Tx09=RepeticionT_23*Tx05; Tx10=DesercionT_34*Tx08; Tx11=PromocionT_34*Tx08; Tx12=RepeticionT_34*Tx08; Tx13=DesercionT_45*Tx11; Tx14=PromocionT_45*Tx11; Tx15=RepeticionT_45*Tx11; Tx16=DesercionT_56*Tx14; Tx17=PromocionT_56*Tx14; Tx18=RepeticionT_56*Tx14; Tx19=DesercionT_02*Tx03; Tx20=PromocionT_02*Tx03; Tx21=RepeticionT_02*Tx03; Tx22=DesercionT_13*SUM(Tx20,Tx06); Tx23=PromocionT_13*SUM(Tx20,Tx06); Tx24=RepeticionT_13*SUM(Tx20,Tx06); Tx25=DesercionT_24*SUM(Tx23,Tx09); Tx26=PromocionT_24*SUM(Tx23,Tx09); Tx27=RepeticionT_24*SUM(Tx23,Tx09); Tx28=DesercionT_35*SUM(Tx26,Tx12); Tx29=PromocionT_35*SUM(Tx26,Tx12); Tx30=RepeticionT_35*SUM(Tx26,Tx12); Tx31=DesercionT_46*SUM(Tx29,Tx15); Tx32=PromocionT_46*SUM(Tx29,Tx15); Tx33=RepeticionT_46*SUM(Tx29,Tx15); Tx34=DesercionT_57*SUM(Tx32,Tx18); Tx35=PromocionT_57*SUM(Tx32,Tx18); Tx36=RepeticionT_57*SUM(Tx32,Tx18); Tx37=DesercionT_03*Tx21; Tx38=PromocionT_03*Tx21; Tx39=RepeticionT_03*Tx21; Tx40=DesercionT_14*SUM(Tx38,Tx24); Tx41=PromocionT_14*SUM(Tx38,Tx24); Tx42=RepeticionT_14*SUM(Tx38,Tx24); Tx43=DesercionT_25*SUM(Tx41,Tx27); Tx44=PromocionT_25*SUM(Tx41,Tx27); Tx45=RepeticionT_25*SUM(Tx41,Tx27); Tx46=DesercionT_36*SUM(Tx44,Tx30); Tx47=PromocionT_36*SUM(Tx44,Tx30); Tx48=RepeticionT_36*SUM(Tx44,Tx30); Tx49=DesercionT_47*SUM(Tx47,Tx33); Tx50=PromocionT_47*SUM(Tx47,Tx33); Tx51=RepeticionT_47*SUM(Tx47,Tx33); Tx52=DesercionT_58*SUM(Tx50,Tx36); Tx53=PromocionT_58*SUM(Tx50,Tx36); Tx54=RepeticionT_58*SUM(Tx50,Tx36); T_AA = SUM(SUM(6*Tx17,7*Tx35,8*Tx53), SUM(1*Tx01,2*Tx19,3*Tx37), SUM(2*Tx04,3*Tx22,4*Tx40), SUM(3*Tx07,4*Tx25,5*Tx43), SUM(4*Tx10,5*Tx28,6*Tx46), SUM(5*Tx13,6*Tx31,7*Tx49), SUM(6*Tx16,7*Tx34,8*Tx52)) / SUM(Tx17,Tx35,Tx53); T_CE = 6*SUM(Tx17,Tx35,Tx53) / SUM(SUM(6*Tx17,7*Tx35,8*Tx53), SUM(1*Tx01,2*Tx19,3*Tx37), SUM(2*Tx04,3*Tx22,4*Tx40), SUM(3*Tx07,4*Tx25,5*Tx43), SUM(4*Tx10,5*Tx28,6*Tx46), SUM(5*Tx13,6*Tx31,7*Tx49), SUM(6*Tx16,7*Tx34,8*Tx52)); T_G0 = Tx17; T_G1 = Tx35; T_G2 = Tx53; T_GT = SUM(T_G0,T_G1,T_G2); T_GG1 = SUM(Tx02,Tx20,Tx38); T_GG2 = SUM(Tx05,Tx23,Tx41); T_GG3 = SUM(Tx08,Tx26,Tx44); T_GG4 = SUM(Tx11,Tx29,Tx47); T_GG5 = SUM(Tx14,Tx32,Tx50); T_GG6 = SUM(Tx17,Tx35,Tx53); T_GGT = SUM(T_GG1,T_GG2,T_GG3,T_GG4,T_GG5,T_GG6); T_AB0 = SUM(Tx01,Tx04,Tx07,Tx10,Tx13,Tx16); T_AB1 = SUM(Tx19,Tx22,Tx25,Tx28,Tx31,Tx34); T_AB2 = SUM(Tx37,Tx40,Tx43,Tx46,Tx49,Tx52); T_ABT = SUM(T_AB0,T_AB1,T_AB2); T_PAB0 = T_AB0 / 10; T_PAB1 = T_AB1 / 10; T_PAB2 = T_AB2 / 10; T_A0_DT = (T_AB0 / T_ABT) * 100; T_PAB01 = Tx01 / 10; T_PAB02 = Tx04 / 10; T_PAB03 = Tx07 / 10; T_PAB04 = Tx10 / 10; T_PAB05 = Tx13 / 10; T_PAB06 = Tx16 / 10; T_PABT1 = SUM(Tx01,Tx19,Tx37) / 10; T_PABT2 = SUM(Tx04,Tx22,Tx40) / 10; T_PABT3 = SUM(Tx07,Tx25,Tx43) / 10; T_PABT4 = SUM(Tx10,Tx28,Tx46) / 10; T_PABT5 = SUM(Tx13,Tx31,Tx49) / 10; T_PABT6 = SUM(Tx16,Tx34,Tx52) / 10; T_COCI1a = (T_PAB01 / T_PABT1)*100; T_COCI2a = (T_PAB02 / T_PABT2)*100; T_COCI3a = (T_PAB03 / T_PABT3)*100; T_COCI4a = (T_PAB04 / T_PABT4)*100; T_COCI5a = (T_PAB05 / T_PABT5)*100; T_COCI6a = (T_PAB06 / T_PABT6)*100; T_COCI1=T_COCI1a; T_COCI2=T_COCI2a; T_COCI3=T_COCI3a; T_COCI4=T_COCI4a; T_COCI5=T_COCI5a; T_COCI6=T_COCI6a; IF T_PABT1=0 THEN DO; T_COCI1=.; END; IF T_PABT2=0 THEN DO; T_COCI2=.; END; IF T_PABT3=0 THEN DO; T_COCI3=.; END; IF T_PABT4=0 THEN DO; T_COCI4=.; END; IF T_PABT5=0 THEN DO; T_COCI5=.; END; IF T_PABT6=0 THEN DO; T_COCI6=.; END; PromocionH_01a=SUM(&B015,-&B022)/&B001; PromocionH_02a=SUM(&B028,-&B035)/&B014; PromocionH_03a=SUM(&B041,-&B048)/&B027; PromocionH_04a=SUM(&B054,-&B061)/&B040; PromocionH_05a=SUM(&B067,-&B074)/&B053; PromocionH_06a=SUM(&B080,-&B087)/&B066; PromocionH_07a=SUM(&B093,-&B100)/&B079; PromocionH_08a=SUM(&B106,-&B112)/&B092; PromocionH_11a=SUM(&B016,-&B023)/&B002; PromocionH_12a=SUM(&B029,-&B036)/&B015; PromocionH_13a=SUM(&B042,-&B049)/&B028; PromocionH_14a=SUM(&B055,-&B062)/&B041; PromocionH_15a=SUM(&B068,-&B075)/&B054; PromocionH_16a=SUM(&B081,-&B088)/&B067; PromocionH_17a=SUM(&B094,-&B101)/&B080; PromocionH_18a=SUM(&B107,-&B113)/&B093; PromocionH_21a=SUM(&B017,-&B024)/&B003; PromocionH_22a=SUM(&B030,-&B037)/&B016; PromocionH_23a=SUM(&B043,-&B050)/&B029; PromocionH_24a=SUM(&B056,-&B063)/&B042; PromocionH_25a=SUM(&B069,-&B076)/&B055; PromocionH_26a=SUM(&B082,-&B089)/&B068; PromocionH_27a=SUM(&B095,-&B102)/&B081; PromocionH_28a=SUM(&B108,-&B114)/&B094; PromocionH_31a=SUM(&B018,-&B025)/&B004; PromocionH_32a=SUM(&B031,-&B038)/&B017; PromocionH_33a=SUM(&B044,-&B051)/&B030; PromocionH_34a=SUM(&B057,-&B064)/&B043; PromocionH_35a=SUM(&B070,-&B077)/&B056; PromocionH_36a=SUM(&B083,-&B090)/&B069; PromocionH_37a=SUM(&B096,-&B103)/&B082; PromocionH_38a=SUM(&B109,-&B115)/&B095; PromocionH_41a=SUM(&B019,-&B026)/&B005; PromocionH_42a=SUM(&B032,-&B039)/&B018; PromocionH_43a=SUM(&B045,-&B052)/&B031; PromocionH_44a=SUM(&B058,-&B065)/&B044; PromocionH_45a=SUM(&B071,-&B078)/&B057; PromocionH_46a=SUM(&B084,-&B091)/&B070; PromocionH_47a=SUM(&B097,-&B104)/&B083; PromocionH_48a=SUM(&B110,-&B116)/&B096; PromocionH_51a=&B007/&B006; PromocionH_52a=&B020/&B019; PromocionH_53a=&B033/&B032; PromocionH_54a=&B046/&B045; PromocionH_55a=&B059/&B058; PromocionH_56a=&B072/&B071; PromocionH_57a=&B085/&B084; PromocionH_58a=&B098/&B097; RepeticionH_01a=&B021/&B001; RepeticionH_02a=&B034/&B014; RepeticionH_03a=&B047/&B027; RepeticionH_04a=&B060/&B040; RepeticionH_05a=&B073/&B053; RepeticionH_06a=&B086/&B066; RepeticionH_07a=&B099/&B079; RepeticionH_08a=&B111/&B092; RepeticionH_11a=&B022/&B002; RepeticionH_12a=&B035/&B015; RepeticionH_13a=&B048/&B028; RepeticionH_14a=&B061/&B041; RepeticionH_15a=&B074/&B054; RepeticionH_16a=&B087/&B067; RepeticionH_17a=&B100/&B080; RepeticionH_18a=&B112/&B093; RepeticionH_21a=&B023/&B003; RepeticionH_22a=&B036/&B016; RepeticionH_23a=&B049/&B029; RepeticionH_24a=&B062/&B042; RepeticionH_25a=&B075/&B055; RepeticionH_26a=&B088/&B068; RepeticionH_27a=&B101/&B081; RepeticionH_28a=&B113/&B094; RepeticionH_31a=&B024/&B004; RepeticionH_32a=&B037/&B017; RepeticionH_33a=&B050/&B030; RepeticionH_34a=&B063/&B043; RepeticionH_35a=&B076/&B056; RepeticionH_36a=&B089/&B069; RepeticionH_37a=&B102/&B082; RepeticionH_38a=&B114/&B095; RepeticionH_41a=&B025/&B005; RepeticionH_42a=&B038/&B018; RepeticionH_43a=&B051/&B031; RepeticionH_44a=&B064/&B044; RepeticionH_45a=&B077/&B057; RepeticionH_46a=&B090/&B070; RepeticionH_47a=&B103/&B083; RepeticionH_48a=&B115/&B096; RepeticionH_51a=&B026/&B006; RepeticionH_52a=&B039/&B019; RepeticionH_53a=&B052/&B032; RepeticionH_54a=&B065/&B045; RepeticionH_55a=&B078/&B058; RepeticionH_56a=&B091/&B071; RepeticionH_57a=&B104/&B084; RepeticionH_58a=&B116/&B097; DesercionH_01a=SUM(1,-RepeticionH_01a,-PromocionH_01a); DesercionH_02a=SUM(1,-RepeticionH_02a,-PromocionH_02a); DesercionH_03a=SUM(1,-RepeticionH_03a,-PromocionH_03a); DesercionH_04a=SUM(1,-RepeticionH_04a,-PromocionH_04a); DesercionH_05a=SUM(1,-RepeticionH_05a,-PromocionH_05a); DesercionH_06a=SUM(1,-RepeticionH_06a,-PromocionH_06a); DesercionH_07a=SUM(1,-RepeticionH_07a,-PromocionH_07a); DesercionH_08a=SUM(1,-RepeticionH_08a,-PromocionH_08a); DesercionH_11a=SUM(1,-RepeticionH_11a,-PromocionH_11a); DesercionH_12a=SUM(1,-RepeticionH_12a,-PromocionH_12a); DesercionH_13a=SUM(1,-RepeticionH_13a,-PromocionH_13a); DesercionH_14a=SUM(1,-RepeticionH_14a,-PromocionH_14a); DesercionH_15a=SUM(1,-RepeticionH_15a,-PromocionH_15a); DesercionH_16a=SUM(1,-RepeticionH_16a,-PromocionH_16a); DesercionH_17a=SUM(1,-RepeticionH_17a,-PromocionH_17a); DesercionH_18a=SUM(1,-RepeticionH_18a,-PromocionH_18a); DesercionH_21a=SUM(1,-RepeticionH_21a,-PromocionH_21a); DesercionH_22a=SUM(1,-RepeticionH_22a,-PromocionH_22a); DesercionH_23a=SUM(1,-RepeticionH_23a,-PromocionH_23a); DesercionH_24a=SUM(1,-RepeticionH_24a,-PromocionH_24a); DesercionH_25a=SUM(1,-RepeticionH_25a,-PromocionH_25a); DesercionH_26a=SUM(1,-RepeticionH_26a,-PromocionH_26a); DesercionH_27a=SUM(1,-RepeticionH_27a,-PromocionH_27a); DesercionH_28a=SUM(1,-RepeticionH_28a,-PromocionH_28a); DesercionH_31a=SUM(1,-RepeticionH_31a,-PromocionH_31a); DesercionH_32a=SUM(1,-RepeticionH_32a,-PromocionH_32a); DesercionH_33a=SUM(1,-RepeticionH_33a,-PromocionH_33a); DesercionH_34a=SUM(1,-RepeticionH_34a,-PromocionH_34a); DesercionH_35a=SUM(1,-RepeticionH_35a,-PromocionH_35a); DesercionH_36a=SUM(1,-RepeticionH_36a,-PromocionH_36a); DesercionH_37a=SUM(1,-RepeticionH_37a,-PromocionH_37a); DesercionH_38a=SUM(1,-RepeticionH_38a,-PromocionH_38a); DesercionH_41a=SUM(1,-RepeticionH_41a,-PromocionH_41a); DesercionH_42a=SUM(1,-RepeticionH_42a,-PromocionH_42a); DesercionH_43a=SUM(1,-RepeticionH_43a,-PromocionH_43a); DesercionH_44a=SUM(1,-RepeticionH_44a,-PromocionH_44a); DesercionH_45a=SUM(1,-RepeticionH_45a,-PromocionH_45a); DesercionH_46a=SUM(1,-RepeticionH_46a,-PromocionH_46a); DesercionH_47a=SUM(1,-RepeticionH_47a,-PromocionH_47a); DesercionH_48a=SUM(1,-RepeticionH_48a,-PromocionH_48a); DesercionH_51a=SUM(1,-RepeticionH_51a,-PromocionH_51a); DesercionH_52a=SUM(1,-RepeticionH_52a,-PromocionH_52a); DesercionH_53a=SUM(1,-RepeticionH_53a,-PromocionH_53a); DesercionH_54a=SUM(1,-RepeticionH_54a,-PromocionH_54a); DesercionH_55a=SUM(1,-RepeticionH_55a,-PromocionH_55a); DesercionH_56a=SUM(1,-RepeticionH_56a,-PromocionH_56a); DesercionH_57a=SUM(1,-RepeticionH_57a,-PromocionH_57a); DesercionH_58a=SUM(1,-RepeticionH_58a,-PromocionH_58a); /*Ajustes*/ PromocionH_01=PromocionH_01a; PromocionH_02=PromocionH_02a; PromocionH_03=PromocionH_03a; PromocionH_04=PromocionH_04a; PromocionH_05=PromocionH_05a; PromocionH_06=PromocionH_06a; PromocionH_07=PromocionH_07a; PromocionH_08=PromocionH_08a; PromocionH_11=PromocionH_11a; PromocionH_12=PromocionH_12a; PromocionH_13=PromocionH_13a; PromocionH_14=PromocionH_14a; PromocionH_15=PromocionH_15a; PromocionH_16=PromocionH_16a; PromocionH_17=PromocionH_17a; PromocionH_18=PromocionH_18a; PromocionH_21=PromocionH_21a; PromocionH_22=PromocionH_22a; PromocionH_23=PromocionH_23a; PromocionH_24=PromocionH_24a; PromocionH_25=PromocionH_25a; PromocionH_26=PromocionH_26a; PromocionH_27=PromocionH_27a; PromocionH_28=PromocionH_28a; PromocionH_31=PromocionH_31a; PromocionH_32=PromocionH_32a; PromocionH_33=PromocionH_33a; PromocionH_34=PromocionH_34a; PromocionH_35=PromocionH_35a; PromocionH_36=PromocionH_36a; PromocionH_37=PromocionH_37a; PromocionH_38=PromocionH_38a; PromocionH_41=PromocionH_41a; PromocionH_42=PromocionH_42a; PromocionH_43=PromocionH_43a; PromocionH_44=PromocionH_44a; PromocionH_45=PromocionH_45a; PromocionH_46=PromocionH_46a; PromocionH_47=PromocionH_47a; PromocionH_48=PromocionH_48a; PromocionH_51=PromocionH_51a; PromocionH_52=PromocionH_52a; PromocionH_53=PromocionH_53a; PromocionH_54=PromocionH_54a; PromocionH_55=PromocionH_55a; PromocionH_56=PromocionH_56a; PromocionH_57=PromocionH_57a; PromocionH_58=PromocionH_58a; RepeticionH_01=RepeticionH_01a; RepeticionH_02=RepeticionH_02a; RepeticionH_03=RepeticionH_03a; RepeticionH_04=RepeticionH_04a; RepeticionH_05=RepeticionH_05a; RepeticionH_06=RepeticionH_06a; RepeticionH_07=RepeticionH_07a; RepeticionH_08=RepeticionH_08a; RepeticionH_11=RepeticionH_11a; RepeticionH_12=RepeticionH_12a; RepeticionH_13=RepeticionH_13a; RepeticionH_14=RepeticionH_14a; RepeticionH_15=RepeticionH_15a; RepeticionH_16=RepeticionH_16a; RepeticionH_17=RepeticionH_17a; RepeticionH_18=RepeticionH_18a; RepeticionH_21=RepeticionH_21a; RepeticionH_22=RepeticionH_22a; RepeticionH_23=RepeticionH_23a; RepeticionH_24=RepeticionH_24a; RepeticionH_25=RepeticionH_25a; RepeticionH_26=RepeticionH_26a; RepeticionH_27=RepeticionH_27a; RepeticionH_28=RepeticionH_28a; RepeticionH_31=RepeticionH_31a; RepeticionH_32=RepeticionH_32a; RepeticionH_33=RepeticionH_33a; RepeticionH_34=RepeticionH_34a; RepeticionH_35=RepeticionH_35a; RepeticionH_36=RepeticionH_36a; RepeticionH_37=RepeticionH_37a; RepeticionH_38=RepeticionH_38a; RepeticionH_41=RepeticionH_41a; RepeticionH_42=RepeticionH_42a; RepeticionH_43=RepeticionH_43a; RepeticionH_44=RepeticionH_44a; RepeticionH_45=RepeticionH_45a; RepeticionH_46=RepeticionH_46a; RepeticionH_47=RepeticionH_47a; RepeticionH_48=RepeticionH_48a; RepeticionH_51=RepeticionH_51a; RepeticionH_52=RepeticionH_52a; RepeticionH_53=RepeticionH_53a; RepeticionH_54=RepeticionH_54a; RepeticionH_55=RepeticionH_55a; RepeticionH_56=RepeticionH_56a; RepeticionH_57=RepeticionH_57a; RepeticionH_58=RepeticionH_58a; DesercionH_01=DesercionH_01a; DesercionH_02=DesercionH_02a; DesercionH_03=DesercionH_03a; DesercionH_04=DesercionH_04a; DesercionH_05=DesercionH_05a; DesercionH_06=DesercionH_06a; DesercionH_07=DesercionH_07a; DesercionH_08=DesercionH_08a; DesercionH_11=DesercionH_11a; DesercionH_12=DesercionH_12a; DesercionH_13=DesercionH_13a; DesercionH_14=DesercionH_14a; DesercionH_15=DesercionH_15a; DesercionH_16=DesercionH_16a; DesercionH_17=DesercionH_17a; DesercionH_18=DesercionH_18a; DesercionH_21=DesercionH_21a; DesercionH_22=DesercionH_22a; DesercionH_23=DesercionH_23a; DesercionH_24=DesercionH_24a; DesercionH_25=DesercionH_25a; DesercionH_26=DesercionH_26a; DesercionH_27=DesercionH_27a; DesercionH_28=DesercionH_28a; DesercionH_31=DesercionH_31a; DesercionH_32=DesercionH_32a; DesercionH_33=DesercionH_33a; DesercionH_34=DesercionH_34a; DesercionH_35=DesercionH_35a; DesercionH_36=DesercionH_36a; DesercionH_37=DesercionH_37a; DesercionH_38=DesercionH_38a; DesercionH_41=DesercionH_41a; DesercionH_42=DesercionH_42a; DesercionH_43=DesercionH_43a; DesercionH_44=DesercionH_44a; DesercionH_45=DesercionH_45a; DesercionH_46=DesercionH_46a; DesercionH_47=DesercionH_47a; DesercionH_48=DesercionH_48a; DesercionH_51=DesercionH_51a; DesercionH_52=DesercionH_52a; DesercionH_53=DesercionH_53a; DesercionH_54=DesercionH_54a; DesercionH_55=DesercionH_55a; DesercionH_56=DesercionH_56a; DesercionH_57=DesercionH_57a; DesercionH_58=DesercionH_58a; IF SUM(RepeticionH_01a,PromocionH_01a)>1 THEN DO; DesercionH_01=0; PromocionH_01=(PromocionH_01a/SUM(RepeticionH_01a,PromocionH_01a));RepeticionH_01=(RepeticionH_01a/SUM(RepeticionH_01a,PromocionH_01a)); END; IF SUM(RepeticionH_02a,PromocionH_02a)>1 THEN DO; DesercionH_02=0; PromocionH_02=(PromocionH_02a/SUM(RepeticionH_02a,PromocionH_02a));RepeticionH_02=(RepeticionH_02a/SUM(RepeticionH_02a,PromocionH_02a)); END; IF SUM(RepeticionH_03a,PromocionH_03a)>1 THEN DO; DesercionH_03=0; PromocionH_03=(PromocionH_03a/SUM(RepeticionH_03a,PromocionH_03a));RepeticionH_03=(RepeticionH_03a/SUM(RepeticionH_03a,PromocionH_03a)); END; IF SUM(RepeticionH_04a,PromocionH_04a)>1 THEN DO; DesercionH_04=0; PromocionH_04=(PromocionH_04a/SUM(RepeticionH_04a,PromocionH_04a));RepeticionH_04=(RepeticionH_04a/SUM(RepeticionH_04a,PromocionH_04a)); END; IF SUM(RepeticionH_05a,PromocionH_05a)>1 THEN DO; DesercionH_05=0; PromocionH_05=(PromocionH_05a/SUM(RepeticionH_05a,PromocionH_05a));RepeticionH_05=(RepeticionH_05a/SUM(RepeticionH_05a,PromocionH_05a)); END; IF SUM(RepeticionH_06a,PromocionH_06a)>1 THEN DO; DesercionH_06=0; PromocionH_06=(PromocionH_06a/SUM(RepeticionH_06a,PromocionH_06a));RepeticionH_06=(RepeticionH_06a/SUM(RepeticionH_06a,PromocionH_06a)); END; IF SUM(RepeticionH_07a,PromocionH_07a)>1 THEN DO; DesercionH_07=0; PromocionH_07=(PromocionH_07a/SUM(RepeticionH_07a,PromocionH_07a));RepeticionH_07=(RepeticionH_07a/SUM(RepeticionH_07a,PromocionH_07a)); END; IF SUM(RepeticionH_08a,PromocionH_08a)>1 THEN DO; DesercionH_08=0; PromocionH_08=(PromocionH_08a/SUM(RepeticionH_08a,PromocionH_08a));RepeticionH_08=(RepeticionH_08a/SUM(RepeticionH_08a,PromocionH_08a)); END; IF SUM(RepeticionH_11a,PromocionH_11a)>1 THEN DO; DesercionH_11=0; PromocionH_11=(PromocionH_11a/SUM(RepeticionH_11a,PromocionH_11a));RepeticionH_11=(RepeticionH_11a/SUM(RepeticionH_11a,PromocionH_11a)); END; IF SUM(RepeticionH_12a,PromocionH_12a)>1 THEN DO; DesercionH_12=0; PromocionH_12=(PromocionH_12a/SUM(RepeticionH_12a,PromocionH_12a));RepeticionH_12=(RepeticionH_12a/SUM(RepeticionH_12a,PromocionH_12a)); END; IF SUM(RepeticionH_13a,PromocionH_13a)>1 THEN DO; DesercionH_13=0; PromocionH_13=(PromocionH_13a/SUM(RepeticionH_13a,PromocionH_13a));RepeticionH_13=(RepeticionH_13a/SUM(RepeticionH_13a,PromocionH_13a)); END; IF SUM(RepeticionH_14a,PromocionH_14a)>1 THEN DO; DesercionH_14=0; PromocionH_14=(PromocionH_14a/SUM(RepeticionH_14a,PromocionH_14a));RepeticionH_14=(RepeticionH_14a/SUM(RepeticionH_14a,PromocionH_14a)); END; IF SUM(RepeticionH_15a,PromocionH_15a)>1 THEN DO; DesercionH_15=0; PromocionH_15=(PromocionH_15a/SUM(RepeticionH_15a,PromocionH_15a));RepeticionH_15=(RepeticionH_15a/SUM(RepeticionH_15a,PromocionH_15a)); END; IF SUM(RepeticionH_16a,PromocionH_16a)>1 THEN DO; DesercionH_16=0; PromocionH_16=(PromocionH_16a/SUM(RepeticionH_16a,PromocionH_16a));RepeticionH_16=(RepeticionH_16a/SUM(RepeticionH_16a,PromocionH_16a)); END; IF SUM(RepeticionH_17a,PromocionH_17a)>1 THEN DO; DesercionH_17=0; PromocionH_17=(PromocionH_17a/SUM(RepeticionH_17a,PromocionH_17a));RepeticionH_17=(RepeticionH_17a/SUM(RepeticionH_17a,PromocionH_17a)); END; IF SUM(RepeticionH_18a,PromocionH_18a)>1 THEN DO; DesercionH_18=0; PromocionH_18=(PromocionH_18a/SUM(RepeticionH_18a,PromocionH_18a));RepeticionH_18=(RepeticionH_18a/SUM(RepeticionH_18a,PromocionH_18a)); END; IF SUM(RepeticionH_21a,PromocionH_21a)>1 THEN DO; DesercionH_21=0; PromocionH_21=(PromocionH_21a/SUM(RepeticionH_21a,PromocionH_21a));RepeticionH_21=(RepeticionH_21a/SUM(RepeticionH_21a,PromocionH_21a)); END; IF SUM(RepeticionH_22a,PromocionH_22a)>1 THEN DO; DesercionH_22=0; PromocionH_22=(PromocionH_22a/SUM(RepeticionH_22a,PromocionH_22a));RepeticionH_22=(RepeticionH_22a/SUM(RepeticionH_22a,PromocionH_22a)); END; IF SUM(RepeticionH_23a,PromocionH_23a)>1 THEN DO; DesercionH_23=0; PromocionH_23=(PromocionH_23a/SUM(RepeticionH_23a,PromocionH_23a));RepeticionH_23=(RepeticionH_23a/SUM(RepeticionH_23a,PromocionH_23a)); END; IF SUM(RepeticionH_24a,PromocionH_24a)>1 THEN DO; DesercionH_24=0; PromocionH_24=(PromocionH_24a/SUM(RepeticionH_24a,PromocionH_24a));RepeticionH_24=(RepeticionH_24a/SUM(RepeticionH_24a,PromocionH_24a)); END; IF SUM(RepeticionH_25a,PromocionH_25a)>1 THEN DO; DesercionH_25=0; PromocionH_25=(PromocionH_25a/SUM(RepeticionH_25a,PromocionH_25a));RepeticionH_25=(RepeticionH_25a/SUM(RepeticionH_25a,PromocionH_25a)); END; IF SUM(RepeticionH_26a,PromocionH_26a)>1 THEN DO; DesercionH_26=0; PromocionH_26=(PromocionH_26a/SUM(RepeticionH_26a,PromocionH_26a));RepeticionH_26=(RepeticionH_26a/SUM(RepeticionH_26a,PromocionH_26a)); END; IF SUM(RepeticionH_27a,PromocionH_27a)>1 THEN DO; DesercionH_27=0; PromocionH_27=(PromocionH_27a/SUM(RepeticionH_27a,PromocionH_27a));RepeticionH_27=(RepeticionH_27a/SUM(RepeticionH_27a,PromocionH_27a)); END; IF SUM(RepeticionH_28a,PromocionH_28a)>1 THEN DO; DesercionH_28=0; PromocionH_28=(PromocionH_28a/SUM(RepeticionH_28a,PromocionH_28a));RepeticionH_28=(RepeticionH_28a/SUM(RepeticionH_28a,PromocionH_28a)); END; IF SUM(RepeticionH_31a,PromocionH_31a)>1 THEN DO; DesercionH_31=0; PromocionH_31=(PromocionH_31a/SUM(RepeticionH_31a,PromocionH_31a));RepeticionH_31=(RepeticionH_31a/SUM(RepeticionH_31a,PromocionH_31a)); END; IF SUM(RepeticionH_32a,PromocionH_32a)>1 THEN DO; DesercionH_32=0; PromocionH_32=(PromocionH_32a/SUM(RepeticionH_32a,PromocionH_32a));RepeticionH_32=(RepeticionH_32a/SUM(RepeticionH_32a,PromocionH_32a)); END; IF SUM(RepeticionH_33a,PromocionH_33a)>1 THEN DO; DesercionH_33=0; PromocionH_33=(PromocionH_33a/SUM(RepeticionH_33a,PromocionH_33a));RepeticionH_33=(RepeticionH_33a/SUM(RepeticionH_33a,PromocionH_33a)); END; IF SUM(RepeticionH_34a,PromocionH_34a)>1 THEN DO; DesercionH_34=0; PromocionH_34=(PromocionH_34a/SUM(RepeticionH_34a,PromocionH_34a));RepeticionH_34=(RepeticionH_34a/SUM(RepeticionH_34a,PromocionH_34a)); END; IF SUM(RepeticionH_35a,PromocionH_35a)>1 THEN DO; DesercionH_35=0; PromocionH_35=(PromocionH_35a/SUM(RepeticionH_35a,PromocionH_35a));RepeticionH_35=(RepeticionH_35a/SUM(RepeticionH_35a,PromocionH_35a)); END; IF SUM(RepeticionH_36a,PromocionH_36a)>1 THEN DO; DesercionH_36=0; PromocionH_36=(PromocionH_36a/SUM(RepeticionH_36a,PromocionH_36a));RepeticionH_36=(RepeticionH_36a/SUM(RepeticionH_36a,PromocionH_36a)); END; IF SUM(RepeticionH_37a,PromocionH_37a)>1 THEN DO; DesercionH_37=0; PromocionH_37=(PromocionH_37a/SUM(RepeticionH_37a,PromocionH_37a));RepeticionH_37=(RepeticionH_37a/SUM(RepeticionH_37a,PromocionH_37a)); END; IF SUM(RepeticionH_38a,PromocionH_38a)>1 THEN DO; DesercionH_38=0; PromocionH_38=(PromocionH_38a/SUM(RepeticionH_38a,PromocionH_38a));RepeticionH_38=(RepeticionH_38a/SUM(RepeticionH_38a,PromocionH_38a)); END; IF SUM(RepeticionH_41a,PromocionH_41a)>1 THEN DO; DesercionH_41=0; PromocionH_41=(PromocionH_41a/SUM(RepeticionH_41a,PromocionH_41a));RepeticionH_41=(RepeticionH_41a/SUM(RepeticionH_41a,PromocionH_41a)); END; IF SUM(RepeticionH_42a,PromocionH_42a)>1 THEN DO; DesercionH_42=0; PromocionH_42=(PromocionH_42a/SUM(RepeticionH_42a,PromocionH_42a));RepeticionH_42=(RepeticionH_42a/SUM(RepeticionH_42a,PromocionH_42a)); END; IF SUM(RepeticionH_43a,PromocionH_43a)>1 THEN DO; DesercionH_43=0; PromocionH_43=(PromocionH_43a/SUM(RepeticionH_43a,PromocionH_43a));RepeticionH_43=(RepeticionH_43a/SUM(RepeticionH_43a,PromocionH_43a)); END; IF SUM(RepeticionH_44a,PromocionH_44a)>1 THEN DO; DesercionH_44=0; PromocionH_44=(PromocionH_44a/SUM(RepeticionH_44a,PromocionH_44a));RepeticionH_44=(RepeticionH_44a/SUM(RepeticionH_44a,PromocionH_44a)); END; IF SUM(RepeticionH_45a,PromocionH_45a)>1 THEN DO; DesercionH_45=0; PromocionH_45=(PromocionH_45a/SUM(RepeticionH_45a,PromocionH_45a));RepeticionH_45=(RepeticionH_45a/SUM(RepeticionH_45a,PromocionH_45a)); END; IF SUM(RepeticionH_46a,PromocionH_46a)>1 THEN DO; DesercionH_46=0; PromocionH_46=(PromocionH_46a/SUM(RepeticionH_46a,PromocionH_46a));RepeticionH_46=(RepeticionH_46a/SUM(RepeticionH_46a,PromocionH_46a)); END; IF SUM(RepeticionH_47a,PromocionH_47a)>1 THEN DO; DesercionH_47=0; PromocionH_47=(PromocionH_47a/SUM(RepeticionH_47a,PromocionH_47a));RepeticionH_47=(RepeticionH_47a/SUM(RepeticionH_47a,PromocionH_47a)); END; IF SUM(RepeticionH_48a,PromocionH_48a)>1 THEN DO; DesercionH_48=0; PromocionH_48=(PromocionH_48a/SUM(RepeticionH_48a,PromocionH_48a));RepeticionH_48=(RepeticionH_48a/SUM(RepeticionH_48a,PromocionH_48a)); END; IF SUM(RepeticionH_51a,PromocionH_51a)>1 THEN DO; DesercionH_51=0; PromocionH_51=(PromocionH_51a/SUM(RepeticionH_51a,PromocionH_51a));RepeticionH_51=(RepeticionH_51a/SUM(RepeticionH_51a,PromocionH_51a)); END; IF SUM(RepeticionH_52a,PromocionH_52a)>1 THEN DO; DesercionH_52=0; PromocionH_52=(PromocionH_52a/SUM(RepeticionH_52a,PromocionH_52a));RepeticionH_52=(RepeticionH_52a/SUM(RepeticionH_52a,PromocionH_52a)); END; IF SUM(RepeticionH_53a,PromocionH_53a)>1 THEN DO; DesercionH_53=0; PromocionH_53=(PromocionH_53a/SUM(RepeticionH_53a,PromocionH_53a));RepeticionH_53=(RepeticionH_53a/SUM(RepeticionH_53a,PromocionH_53a)); END; IF SUM(RepeticionH_54a,PromocionH_54a)>1 THEN DO; DesercionH_54=0; PromocionH_54=(PromocionH_54a/SUM(RepeticionH_54a,PromocionH_54a));RepeticionH_54=(RepeticionH_54a/SUM(RepeticionH_54a,PromocionH_54a)); END; IF SUM(RepeticionH_55a,PromocionH_55a)>1 THEN DO; DesercionH_55=0; PromocionH_55=(PromocionH_55a/SUM(RepeticionH_55a,PromocionH_55a));RepeticionH_55=(RepeticionH_55a/SUM(RepeticionH_55a,PromocionH_55a)); END; IF SUM(RepeticionH_56a,PromocionH_56a)>1 THEN DO; DesercionH_56=0; PromocionH_56=(PromocionH_56a/SUM(RepeticionH_56a,PromocionH_56a));RepeticionH_56=(RepeticionH_56a/SUM(RepeticionH_56a,PromocionH_56a)); END; IF SUM(RepeticionH_57a,PromocionH_57a)>1 THEN DO; DesercionH_57=0; PromocionH_57=(PromocionH_57a/SUM(RepeticionH_57a,PromocionH_57a));RepeticionH_57=(RepeticionH_57a/SUM(RepeticionH_57a,PromocionH_57a)); END; IF SUM(RepeticionH_58a,PromocionH_58a)>1 THEN DO; DesercionH_58=0; PromocionH_58=(PromocionH_58a/SUM(RepeticionH_58a,PromocionH_58a));RepeticionH_58=(RepeticionH_58a/SUM(RepeticionH_58a,PromocionH_58a)); END; /**/ Hx00=1000; Hx01=DesercionH_01*Hx00; Hx02=PromocionH_01*Hx00; Hx03=RepeticionH_01*Hx00; Hx04=DesercionH_12*Hx02; Hx05=PromocionH_12*Hx02; Hx06=RepeticionH_12*Hx02; Hx07=DesercionH_23*Hx05; Hx08=PromocionH_23*Hx05; Hx09=RepeticionH_23*Hx05; Hx10=DesercionH_34*Hx08; Hx11=PromocionH_34*Hx08; Hx12=RepeticionH_34*Hx08; Hx13=DesercionH_45*Hx11; Hx14=PromocionH_45*Hx11; Hx15=RepeticionH_45*Hx11; Hx16=DesercionH_56*Hx14; Hx17=PromocionH_56*Hx14; Hx18=RepeticionH_56*Hx14; Hx19=DesercionH_02*Hx03; Hx20=PromocionH_02*Hx03; Hx21=RepeticionH_02*Hx03; Hx22=DesercionH_13*SUM(Hx20,Hx06); Hx23=PromocionH_13*SUM(Hx20,Hx06); Hx24=RepeticionH_13*SUM(Hx20,Hx06); Hx25=DesercionH_24*SUM(Hx23,Hx09); Hx26=PromocionH_24*SUM(Hx23,Hx09); Hx27=RepeticionH_24*SUM(Hx23,Hx09); Hx28=DesercionH_35*SUM(Hx26,Hx12); Hx29=PromocionH_35*SUM(Hx26,Hx12); Hx30=RepeticionH_35*SUM(Hx26,Hx12); Hx31=DesercionH_46*SUM(Hx29,Hx15); Hx32=PromocionH_46*SUM(Hx29,Hx15); Hx33=RepeticionH_46*SUM(Hx29,Hx15); Hx34=DesercionH_57*SUM(Hx32,Hx18); Hx35=PromocionH_57*SUM(Hx32,Hx18); Hx36=RepeticionH_57*SUM(Hx32,Hx18); Hx37=DesercionH_03*Hx21; Hx38=PromocionH_03*Hx21; Hx39=RepeticionH_03*Hx21; Hx40=DesercionH_14*SUM(Hx38,Hx24); Hx41=PromocionH_14*SUM(Hx38,Hx24); Hx42=RepeticionH_14*SUM(Hx38,Hx24); Hx43=DesercionH_25*SUM(Hx41,Hx27); Hx44=PromocionH_25*SUM(Hx41,Hx27); Hx45=RepeticionH_25*SUM(Hx41,Hx27); Hx46=DesercionH_36*SUM(Hx44,Hx30); Hx47=PromocionH_36*SUM(Hx44,Hx30); Hx48=RepeticionH_36*SUM(Hx44,Hx30); Hx49=DesercionH_47*SUM(Hx47,Hx33); Hx50=PromocionH_47*SUM(Hx47,Hx33); Hx51=RepeticionH_47*SUM(Hx47,Hx33); Hx52=DesercionH_58*SUM(Hx50,Hx36); Hx53=PromocionH_58*SUM(Hx50,Hx36); Hx54=RepeticionH_58*SUM(Hx50,Hx36); H_AA = SUM(SUM(6*Hx17,7*Hx35,8*Hx53), SUM(1*Hx01,2*Hx19,3*Hx37), SUM(2*Hx04,3*Hx22,4*Hx40), SUM(3*Hx07,4*Hx25,5*Hx43), SUM(4*Hx10,5*Hx28,6*Hx46), SUM(5*Hx13,6*Hx31,7*Hx49), SUM(6*Hx16,7*Hx34,8*Hx52)) / SUM(Hx17,Hx35,Hx53); H_CE = 6*SUM(Hx17,Hx35,Hx53) / SUM(SUM(6*Hx17,7*Hx35,8*Hx53), SUM(1*Hx01,2*Hx19,3*Hx37), SUM(2*Hx04,3*Hx22,4*Hx40), SUM(3*Hx07,4*Hx25,5*Hx43), SUM(4*Hx10,5*Hx28,6*Hx46), SUM(5*Hx13,6*Hx31,7*Hx49), SUM(6*Hx16,7*Hx34,8*Hx52)); H_G0 = Hx17; H_G1 = Hx35; H_G2 = Hx53; H_GT = SUM(H_G0,H_G1,H_G2); H_GG1 = SUM(Hx02,Hx20,Hx38); H_GG2 = SUM(Hx05,Hx23,Hx41); H_GG3 = SUM(Hx08,Hx26,Hx44); H_GG4 = SUM(Hx11,Hx29,Hx47); H_GG5 = SUM(Hx14,Hx32,Hx50); H_GG6 = SUM(Hx17,Hx35,Hx53); H_GGT = SUM(H_GG1,H_GG2,H_GG3,H_GG4,H_GG5,H_GG6); H_AB0 = SUM(Hx01,Hx04,Hx07,Hx10,Hx13,Hx16); H_AB1 = SUM(Hx19,Hx22,Hx25,Hx28,Hx31,Hx34); H_AB2 = SUM(Hx37,Hx40,Hx43,Hx46,Hx49,Hx52); H_ABT = SUM(H_AB0,H_AB1,H_AB2); H_PAB0 = H_AB0 / 10; H_PAB1 = H_AB1 / 10; H_PAB2 = H_AB2 / 10; H_A0_DT = (H_AB0 / H_ABT) * 100; H_PAB01 = Hx01 / 10; H_PAB02 = Hx04 / 10; H_PAB03 = Hx07 / 10; H_PAB04 = Hx10 / 10; H_PAB05 = Hx13 / 10; H_PAB06 = Hx16 / 10; H_PABT1 = SUM(Hx01,Hx19,Hx37) / 10; H_PABT2 = SUM(Hx04,Hx22,Hx40) / 10; H_PABT3 = SUM(Hx07,Hx25,Hx43) / 10; H_PABT4 = SUM(Hx10,Hx28,Hx46) / 10; H_PABT5 = SUM(Hx13,Hx31,Hx49) / 10; H_PABT6 = SUM(Hx16,Hx34,Hx52) / 10; H_COCI1a = (H_PAB01 / H_PABT1)*100; H_COCI2a = (H_PAB02 / H_PABT2)*100; H_COCI3a = (H_PAB03 / H_PABT3)*100; H_COCI4a = (H_PAB04 / H_PABT4)*100; H_COCI5a = (H_PAB05 / H_PABT5)*100; H_COCI6a = (H_PAB06 / H_PABT6)*100; H_COCI1=H_COCI1a; H_COCI2=H_COCI2a; H_COCI3=H_COCI3a; H_COCI4=H_COCI4a; H_COCI5=H_COCI5a; H_COCI6=H_COCI6a; IF H_PABT1=0 THEN DO; H_COCI1=.; END; IF H_PABT2=0 THEN DO; H_COCI2=.; END; IF H_PABT3=0 THEN DO; H_COCI3=.; END; IF H_PABT4=0 THEN DO; H_COCI4=.; END; IF H_PABT5=0 THEN DO; H_COCI5=.; END; IF H_PABT6=0 THEN DO; H_COCI6=.; END; PromocionM_01a=SUM(&C015,-&C022)/&C001; PromocionM_02a=SUM(&C028,-&C035)/&C014; PromocionM_03a=SUM(&C041,-&C048)/&C027; PromocionM_04a=SUM(&C054,-&C061)/&C040; PromocionM_05a=SUM(&C067,-&C074)/&C053; PromocionM_06a=SUM(&C080,-&C087)/&C066; PromocionM_07a=SUM(&C093,-&C100)/&C079; PromocionM_08a=SUM(&C106,-&C112)/&C092; PromocionM_11a=SUM(&C016,-&C023)/&C002; PromocionM_12a=SUM(&C029,-&C036)/&C015; PromocionM_13a=SUM(&C042,-&C049)/&C028; PromocionM_14a=SUM(&C055,-&C062)/&C041; PromocionM_15a=SUM(&C068,-&C075)/&C054; PromocionM_16a=SUM(&C081,-&C088)/&C067; PromocionM_17a=SUM(&C094,-&C101)/&C080; PromocionM_18a=SUM(&C107,-&C113)/&C093; PromocionM_21a=SUM(&C017,-&C024)/&C003; PromocionM_22a=SUM(&C030,-&C037)/&C016; PromocionM_23a=SUM(&C043,-&C050)/&C029; PromocionM_24a=SUM(&C056,-&C063)/&C042; PromocionM_25a=SUM(&C069,-&C076)/&C055; PromocionM_26a=SUM(&C082,-&C089)/&C068; PromocionM_27a=SUM(&C095,-&C102)/&C081; PromocionM_28a=SUM(&C108,-&C114)/&C094; PromocionM_31a=SUM(&C018,-&C025)/&C004; PromocionM_32a=SUM(&C031,-&C038)/&C017; PromocionM_33a=SUM(&C044,-&C051)/&C030; PromocionM_34a=SUM(&C057,-&C064)/&C043; PromocionM_35a=SUM(&C070,-&C077)/&C056; PromocionM_36a=SUM(&C083,-&C090)/&C069; PromocionM_37a=SUM(&C096,-&C103)/&C082; PromocionM_38a=SUM(&C109,-&C115)/&C095; PromocionM_41a=SUM(&C019,-&C026)/&C005; PromocionM_42a=SUM(&C032,-&C039)/&C018; PromocionM_43a=SUM(&C045,-&C052)/&C031; PromocionM_44a=SUM(&C058,-&C065)/&C044; PromocionM_45a=SUM(&C071,-&C078)/&C057; PromocionM_46a=SUM(&C084,-&C091)/&C070; PromocionM_47a=SUM(&C097,-&C104)/&C083; PromocionM_48a=SUM(&C110,-&C116)/&C096; PromocionM_51a=&C007/&C006; PromocionM_52a=&C020/&C019; PromocionM_53a=&C033/&C032; PromocionM_54a=&C046/&C045; PromocionM_55a=&C059/&C058; PromocionM_56a=&C072/&C071; PromocionM_57a=&C085/&C084; PromocionM_58a=&C098/&C097; RepeticionM_01a=&C021/&C001; RepeticionM_02a=&C034/&C014; RepeticionM_03a=&C047/&C027; RepeticionM_04a=&C060/&C040; RepeticionM_05a=&C073/&C053; RepeticionM_06a=&C086/&C066; RepeticionM_07a=&C099/&C079; RepeticionM_08a=&C111/&C092; RepeticionM_11a=&C022/&C002; RepeticionM_12a=&C035/&C015; RepeticionM_13a=&C048/&C028; RepeticionM_14a=&C061/&C041; RepeticionM_15a=&C074/&C054; RepeticionM_16a=&C087/&C067; RepeticionM_17a=&C100/&C080; RepeticionM_18a=&C112/&C093; RepeticionM_21a=&C023/&C003; RepeticionM_22a=&C036/&C016; RepeticionM_23a=&C049/&C029; RepeticionM_24a=&C062/&C042; RepeticionM_25a=&C075/&C055; RepeticionM_26a=&C088/&C068; RepeticionM_27a=&C101/&C081; RepeticionM_28a=&C113/&C094; RepeticionM_31a=&C024/&C004; RepeticionM_32a=&C037/&C017; RepeticionM_33a=&C050/&C030; RepeticionM_34a=&C063/&C043; RepeticionM_35a=&C076/&C056; RepeticionM_36a=&C089/&C069; RepeticionM_37a=&C102/&C082; RepeticionM_38a=&C114/&C095; RepeticionM_41a=&C025/&C005; RepeticionM_42a=&C038/&C018; RepeticionM_43a=&C051/&C031; RepeticionM_44a=&C064/&C044; RepeticionM_45a=&C077/&C057; RepeticionM_46a=&C090/&C070; RepeticionM_47a=&C103/&C083; RepeticionM_48a=&C115/&C096; RepeticionM_51a=&C026/&C006; RepeticionM_52a=&C039/&C019; RepeticionM_53a=&C052/&C032; RepeticionM_54a=&C065/&C045; RepeticionM_55a=&C078/&C058; RepeticionM_56a=&C091/&C071; RepeticionM_57a=&C104/&C084; RepeticionM_58a=&C116/&C097; DesercionM_01a=SUM(1,-RepeticionM_01a,-PromocionM_01a); DesercionM_02a=SUM(1,-RepeticionM_02a,-PromocionM_02a); DesercionM_03a=SUM(1,-RepeticionM_03a,-PromocionM_03a); DesercionM_04a=SUM(1,-RepeticionM_04a,-PromocionM_04a); DesercionM_05a=SUM(1,-RepeticionM_05a,-PromocionM_05a); DesercionM_06a=SUM(1,-RepeticionM_06a,-PromocionM_06a); DesercionM_07a=SUM(1,-RepeticionM_07a,-PromocionM_07a); DesercionM_08a=SUM(1,-RepeticionM_08a,-PromocionM_08a); DesercionM_11a=SUM(1,-RepeticionM_11a,-PromocionM_11a); DesercionM_12a=SUM(1,-RepeticionM_12a,-PromocionM_12a); DesercionM_13a=SUM(1,-RepeticionM_13a,-PromocionM_13a); DesercionM_14a=SUM(1,-RepeticionM_14a,-PromocionM_14a); DesercionM_15a=SUM(1,-RepeticionM_15a,-PromocionM_15a); DesercionM_16a=SUM(1,-RepeticionM_16a,-PromocionM_16a); DesercionM_17a=SUM(1,-RepeticionM_17a,-PromocionM_17a); DesercionM_18a=SUM(1,-RepeticionM_18a,-PromocionM_18a); DesercionM_21a=SUM(1,-RepeticionM_21a,-PromocionM_21a); DesercionM_22a=SUM(1,-RepeticionM_22a,-PromocionM_22a); DesercionM_23a=SUM(1,-RepeticionM_23a,-PromocionM_23a); DesercionM_24a=SUM(1,-RepeticionM_24a,-PromocionM_24a); DesercionM_25a=SUM(1,-RepeticionM_25a,-PromocionM_25a); DesercionM_26a=SUM(1,-RepeticionM_26a,-PromocionM_26a); DesercionM_27a=SUM(1,-RepeticionM_27a,-PromocionM_27a); DesercionM_28a=SUM(1,-RepeticionM_28a,-PromocionM_28a); DesercionM_31a=SUM(1,-RepeticionM_31a,-PromocionM_31a); DesercionM_32a=SUM(1,-RepeticionM_32a,-PromocionM_32a); DesercionM_33a=SUM(1,-RepeticionM_33a,-PromocionM_33a); DesercionM_34a=SUM(1,-RepeticionM_34a,-PromocionM_34a); DesercionM_35a=SUM(1,-RepeticionM_35a,-PromocionM_35a); DesercionM_36a=SUM(1,-RepeticionM_36a,-PromocionM_36a); DesercionM_37a=SUM(1,-RepeticionM_37a,-PromocionM_37a); DesercionM_38a=SUM(1,-RepeticionM_38a,-PromocionM_38a); DesercionM_41a=SUM(1,-RepeticionM_41a,-PromocionM_41a); DesercionM_42a=SUM(1,-RepeticionM_42a,-PromocionM_42a); DesercionM_43a=SUM(1,-RepeticionM_43a,-PromocionM_43a); DesercionM_44a=SUM(1,-RepeticionM_44a,-PromocionM_44a); DesercionM_45a=SUM(1,-RepeticionM_45a,-PromocionM_45a); DesercionM_46a=SUM(1,-RepeticionM_46a,-PromocionM_46a); DesercionM_47a=SUM(1,-RepeticionM_47a,-PromocionM_47a); DesercionM_48a=SUM(1,-RepeticionM_48a,-PromocionM_48a); DesercionM_51a=SUM(1,-RepeticionM_51a,-PromocionM_51a); DesercionM_52a=SUM(1,-RepeticionM_52a,-PromocionM_52a); DesercionM_53a=SUM(1,-RepeticionM_53a,-PromocionM_53a); DesercionM_54a=SUM(1,-RepeticionM_54a,-PromocionM_54a); DesercionM_55a=SUM(1,-RepeticionM_55a,-PromocionM_55a); DesercionM_56a=SUM(1,-RepeticionM_56a,-PromocionM_56a); DesercionM_57a=SUM(1,-RepeticionM_57a,-PromocionM_57a); DesercionM_58a=SUM(1,-RepeticionM_58a,-PromocionM_58a); /*Ajustes*/ PromocionM_01=PromocionM_01a; PromocionM_02=PromocionM_02a; PromocionM_03=PromocionM_03a; PromocionM_04=PromocionM_04a; PromocionM_05=PromocionM_05a; PromocionM_06=PromocionM_06a; PromocionM_07=PromocionM_07a; PromocionM_08=PromocionM_08a; PromocionM_11=PromocionM_11a; PromocionM_12=PromocionM_12a; PromocionM_13=PromocionM_13a; PromocionM_14=PromocionM_14a; PromocionM_15=PromocionM_15a; PromocionM_16=PromocionM_16a; PromocionM_17=PromocionM_17a; PromocionM_18=PromocionM_18a; PromocionM_21=PromocionM_21a; PromocionM_22=PromocionM_22a; PromocionM_23=PromocionM_23a; PromocionM_24=PromocionM_24a; PromocionM_25=PromocionM_25a; PromocionM_26=PromocionM_26a; PromocionM_27=PromocionM_27a; PromocionM_28=PromocionM_28a; PromocionM_31=PromocionM_31a; PromocionM_32=PromocionM_32a; PromocionM_33=PromocionM_33a; PromocionM_34=PromocionM_34a; PromocionM_35=PromocionM_35a; PromocionM_36=PromocionM_36a; PromocionM_37=PromocionM_37a; PromocionM_38=PromocionM_38a; PromocionM_41=PromocionM_41a; PromocionM_42=PromocionM_42a; PromocionM_43=PromocionM_43a; PromocionM_44=PromocionM_44a; PromocionM_45=PromocionM_45a; PromocionM_46=PromocionM_46a; PromocionM_47=PromocionM_47a; PromocionM_48=PromocionM_48a; PromocionM_51=PromocionM_51a; PromocionM_52=PromocionM_52a; PromocionM_53=PromocionM_53a; PromocionM_54=PromocionM_54a; PromocionM_55=PromocionM_55a; PromocionM_56=PromocionM_56a; PromocionM_57=PromocionM_57a; PromocionM_58=PromocionM_58a; RepeticionM_01=RepeticionM_01a; RepeticionM_02=RepeticionM_02a; RepeticionM_03=RepeticionM_03a; RepeticionM_04=RepeticionM_04a; RepeticionM_05=RepeticionM_05a; RepeticionM_06=RepeticionM_06a; RepeticionM_07=RepeticionM_07a; RepeticionM_08=RepeticionM_08a; RepeticionM_11=RepeticionM_11a; RepeticionM_12=RepeticionM_12a; RepeticionM_13=RepeticionM_13a; RepeticionM_14=RepeticionM_14a; RepeticionM_15=RepeticionM_15a; RepeticionM_16=RepeticionM_16a; RepeticionM_17=RepeticionM_17a; RepeticionM_18=RepeticionM_18a; RepeticionM_21=RepeticionM_21a; RepeticionM_22=RepeticionM_22a; RepeticionM_23=RepeticionM_23a; RepeticionM_24=RepeticionM_24a; RepeticionM_25=RepeticionM_25a; RepeticionM_26=RepeticionM_26a; RepeticionM_27=RepeticionM_27a; RepeticionM_28=RepeticionM_28a; RepeticionM_31=RepeticionM_31a; RepeticionM_32=RepeticionM_32a; RepeticionM_33=RepeticionM_33a; RepeticionM_34=RepeticionM_34a; RepeticionM_35=RepeticionM_35a; RepeticionM_36=RepeticionM_36a; RepeticionM_37=RepeticionM_37a; RepeticionM_38=RepeticionM_38a; RepeticionM_41=RepeticionM_41a; RepeticionM_42=RepeticionM_42a; RepeticionM_43=RepeticionM_43a; RepeticionM_44=RepeticionM_44a; RepeticionM_45=RepeticionM_45a; RepeticionM_46=RepeticionM_46a; RepeticionM_47=RepeticionM_47a; RepeticionM_48=RepeticionM_48a; RepeticionM_51=RepeticionM_51a; RepeticionM_52=RepeticionM_52a; RepeticionM_53=RepeticionM_53a; RepeticionM_54=RepeticionM_54a; RepeticionM_55=RepeticionM_55a; RepeticionM_56=RepeticionM_56a; RepeticionM_57=RepeticionM_57a; RepeticionM_58=RepeticionM_58a; DesercionM_01=DesercionM_01a; DesercionM_02=DesercionM_02a; DesercionM_03=DesercionM_03a; DesercionM_04=DesercionM_04a; DesercionM_05=DesercionM_05a; DesercionM_06=DesercionM_06a; DesercionM_07=DesercionM_07a; DesercionM_08=DesercionM_08a; DesercionM_11=DesercionM_11a; DesercionM_12=DesercionM_12a; DesercionM_13=DesercionM_13a; DesercionM_14=DesercionM_14a; DesercionM_15=DesercionM_15a; DesercionM_16=DesercionM_16a; DesercionM_17=DesercionM_17a; DesercionM_18=DesercionM_18a; DesercionM_21=DesercionM_21a; DesercionM_22=DesercionM_22a; DesercionM_23=DesercionM_23a; DesercionM_24=DesercionM_24a; DesercionM_25=DesercionM_25a; DesercionM_26=DesercionM_26a; DesercionM_27=DesercionM_27a; DesercionM_28=DesercionM_28a; DesercionM_31=DesercionM_31a; DesercionM_32=DesercionM_32a; DesercionM_33=DesercionM_33a; DesercionM_34=DesercionM_34a; DesercionM_35=DesercionM_35a; DesercionM_36=DesercionM_36a; DesercionM_37=DesercionM_37a; DesercionM_38=DesercionM_38a; DesercionM_41=DesercionM_41a; DesercionM_42=DesercionM_42a; DesercionM_43=DesercionM_43a; DesercionM_44=DesercionM_44a; DesercionM_45=DesercionM_45a; DesercionM_46=DesercionM_46a; DesercionM_47=DesercionM_47a; DesercionM_48=DesercionM_48a; DesercionM_51=DesercionM_51a; DesercionM_52=DesercionM_52a; DesercionM_53=DesercionM_53a; DesercionM_54=DesercionM_54a; DesercionM_55=DesercionM_55a; DesercionM_56=DesercionM_56a; DesercionM_57=DesercionM_57a; DesercionM_58=DesercionM_58a; IF SUM(RepeticionM_01a,PromocionM_01a)>1 THEN DO; DesercionM_01=0; PromocionM_01=(PromocionM_01a/SUM(RepeticionM_01a,PromocionM_01a));RepeticionM_01=(RepeticionM_01a/SUM(RepeticionM_01a,PromocionM_01a)); END; IF SUM(RepeticionM_02a,PromocionM_02a)>1 THEN DO; DesercionM_02=0; PromocionM_02=(PromocionM_02a/SUM(RepeticionM_02a,PromocionM_02a));RepeticionM_02=(RepeticionM_02a/SUM(RepeticionM_02a,PromocionM_02a)); END; IF SUM(RepeticionM_03a,PromocionM_03a)>1 THEN DO; DesercionM_03=0; PromocionM_03=(PromocionM_03a/SUM(RepeticionM_03a,PromocionM_03a));RepeticionM_03=(RepeticionM_03a/SUM(RepeticionM_03a,PromocionM_03a)); END; IF SUM(RepeticionM_04a,PromocionM_04a)>1 THEN DO; DesercionM_04=0; PromocionM_04=(PromocionM_04a/SUM(RepeticionM_04a,PromocionM_04a));RepeticionM_04=(RepeticionM_04a/SUM(RepeticionM_04a,PromocionM_04a)); END; IF SUM(RepeticionM_05a,PromocionM_05a)>1 THEN DO; DesercionM_05=0; PromocionM_05=(PromocionM_05a/SUM(RepeticionM_05a,PromocionM_05a));RepeticionM_05=(RepeticionM_05a/SUM(RepeticionM_05a,PromocionM_05a)); END; IF SUM(RepeticionM_06a,PromocionM_06a)>1 THEN DO; DesercionM_06=0; PromocionM_06=(PromocionM_06a/SUM(RepeticionM_06a,PromocionM_06a));RepeticionM_06=(RepeticionM_06a/SUM(RepeticionM_06a,PromocionM_06a)); END; IF SUM(RepeticionM_07a,PromocionM_07a)>1 THEN DO; DesercionM_07=0; PromocionM_07=(PromocionM_07a/SUM(RepeticionM_07a,PromocionM_07a));RepeticionM_07=(RepeticionM_07a/SUM(RepeticionM_07a,PromocionM_07a)); END; IF SUM(RepeticionM_08a,PromocionM_08a)>1 THEN DO; DesercionM_08=0; PromocionM_08=(PromocionM_08a/SUM(RepeticionM_08a,PromocionM_08a));RepeticionM_08=(RepeticionM_08a/SUM(RepeticionM_08a,PromocionM_08a)); END; IF SUM(RepeticionM_11a,PromocionM_11a)>1 THEN DO; DesercionM_11=0; PromocionM_11=(PromocionM_11a/SUM(RepeticionM_11a,PromocionM_11a));RepeticionM_11=(RepeticionM_11a/SUM(RepeticionM_11a,PromocionM_11a)); END; IF SUM(RepeticionM_12a,PromocionM_12a)>1 THEN DO; DesercionM_12=0; PromocionM_12=(PromocionM_12a/SUM(RepeticionM_12a,PromocionM_12a));RepeticionM_12=(RepeticionM_12a/SUM(RepeticionM_12a,PromocionM_12a)); END; IF SUM(RepeticionM_13a,PromocionM_13a)>1 THEN DO; DesercionM_13=0; PromocionM_13=(PromocionM_13a/SUM(RepeticionM_13a,PromocionM_13a));RepeticionM_13=(RepeticionM_13a/SUM(RepeticionM_13a,PromocionM_13a)); END; IF SUM(RepeticionM_14a,PromocionM_14a)>1 THEN DO; DesercionM_14=0; PromocionM_14=(PromocionM_14a/SUM(RepeticionM_14a,PromocionM_14a));RepeticionM_14=(RepeticionM_14a/SUM(RepeticionM_14a,PromocionM_14a)); END; IF SUM(RepeticionM_15a,PromocionM_15a)>1 THEN DO; DesercionM_15=0; PromocionM_15=(PromocionM_15a/SUM(RepeticionM_15a,PromocionM_15a));RepeticionM_15=(RepeticionM_15a/SUM(RepeticionM_15a,PromocionM_15a)); END; IF SUM(RepeticionM_16a,PromocionM_16a)>1 THEN DO; DesercionM_16=0; PromocionM_16=(PromocionM_16a/SUM(RepeticionM_16a,PromocionM_16a));RepeticionM_16=(RepeticionM_16a/SUM(RepeticionM_16a,PromocionM_16a)); END; IF SUM(RepeticionM_17a,PromocionM_17a)>1 THEN DO; DesercionM_17=0; PromocionM_17=(PromocionM_17a/SUM(RepeticionM_17a,PromocionM_17a));RepeticionM_17=(RepeticionM_17a/SUM(RepeticionM_17a,PromocionM_17a)); END; IF SUM(RepeticionM_18a,PromocionM_18a)>1 THEN DO; DesercionM_18=0; PromocionM_18=(PromocionM_18a/SUM(RepeticionM_18a,PromocionM_18a));RepeticionM_18=(RepeticionM_18a/SUM(RepeticionM_18a,PromocionM_18a)); END; IF SUM(RepeticionM_21a,PromocionM_21a)>1 THEN DO; DesercionM_21=0; PromocionM_21=(PromocionM_21a/SUM(RepeticionM_21a,PromocionM_21a));RepeticionM_21=(RepeticionM_21a/SUM(RepeticionM_21a,PromocionM_21a)); END; IF SUM(RepeticionM_22a,PromocionM_22a)>1 THEN DO; DesercionM_22=0; PromocionM_22=(PromocionM_22a/SUM(RepeticionM_22a,PromocionM_22a));RepeticionM_22=(RepeticionM_22a/SUM(RepeticionM_22a,PromocionM_22a)); END; IF SUM(RepeticionM_23a,PromocionM_23a)>1 THEN DO; DesercionM_23=0; PromocionM_23=(PromocionM_23a/SUM(RepeticionM_23a,PromocionM_23a));RepeticionM_23=(RepeticionM_23a/SUM(RepeticionM_23a,PromocionM_23a)); END; IF SUM(RepeticionM_24a,PromocionM_24a)>1 THEN DO; DesercionM_24=0; PromocionM_24=(PromocionM_24a/SUM(RepeticionM_24a,PromocionM_24a));RepeticionM_24=(RepeticionM_24a/SUM(RepeticionM_24a,PromocionM_24a)); END; IF SUM(RepeticionM_25a,PromocionM_25a)>1 THEN DO; DesercionM_25=0; PromocionM_25=(PromocionM_25a/SUM(RepeticionM_25a,PromocionM_25a));RepeticionM_25=(RepeticionM_25a/SUM(RepeticionM_25a,PromocionM_25a)); END; IF SUM(RepeticionM_26a,PromocionM_26a)>1 THEN DO; DesercionM_26=0; PromocionM_26=(PromocionM_26a/SUM(RepeticionM_26a,PromocionM_26a));RepeticionM_26=(RepeticionM_26a/SUM(RepeticionM_26a,PromocionM_26a)); END; IF SUM(RepeticionM_27a,PromocionM_27a)>1 THEN DO; DesercionM_27=0; PromocionM_27=(PromocionM_27a/SUM(RepeticionM_27a,PromocionM_27a));RepeticionM_27=(RepeticionM_27a/SUM(RepeticionM_27a,PromocionM_27a)); END; IF SUM(RepeticionM_28a,PromocionM_28a)>1 THEN DO; DesercionM_28=0; PromocionM_28=(PromocionM_28a/SUM(RepeticionM_28a,PromocionM_28a));RepeticionM_28=(RepeticionM_28a/SUM(RepeticionM_28a,PromocionM_28a)); END; IF SUM(RepeticionM_31a,PromocionM_31a)>1 THEN DO; DesercionM_31=0; PromocionM_31=(PromocionM_31a/SUM(RepeticionM_31a,PromocionM_31a));RepeticionM_31=(RepeticionM_31a/SUM(RepeticionM_31a,PromocionM_31a)); END; IF SUM(RepeticionM_32a,PromocionM_32a)>1 THEN DO; DesercionM_32=0; PromocionM_32=(PromocionM_32a/SUM(RepeticionM_32a,PromocionM_32a));RepeticionM_32=(RepeticionM_32a/SUM(RepeticionM_32a,PromocionM_32a)); END; IF SUM(RepeticionM_33a,PromocionM_33a)>1 THEN DO; DesercionM_33=0; PromocionM_33=(PromocionM_33a/SUM(RepeticionM_33a,PromocionM_33a));RepeticionM_33=(RepeticionM_33a/SUM(RepeticionM_33a,PromocionM_33a)); END; IF SUM(RepeticionM_34a,PromocionM_34a)>1 THEN DO; DesercionM_34=0; PromocionM_34=(PromocionM_34a/SUM(RepeticionM_34a,PromocionM_34a));RepeticionM_34=(RepeticionM_34a/SUM(RepeticionM_34a,PromocionM_34a)); END; IF SUM(RepeticionM_35a,PromocionM_35a)>1 THEN DO; DesercionM_35=0; PromocionM_35=(PromocionM_35a/SUM(RepeticionM_35a,PromocionM_35a));RepeticionM_35=(RepeticionM_35a/SUM(RepeticionM_35a,PromocionM_35a)); END; IF SUM(RepeticionM_36a,PromocionM_36a)>1 THEN DO; DesercionM_36=0; PromocionM_36=(PromocionM_36a/SUM(RepeticionM_36a,PromocionM_36a));RepeticionM_36=(RepeticionM_36a/SUM(RepeticionM_36a,PromocionM_36a)); END; IF SUM(RepeticionM_37a,PromocionM_37a)>1 THEN DO; DesercionM_37=0; PromocionM_37=(PromocionM_37a/SUM(RepeticionM_37a,PromocionM_37a));RepeticionM_37=(RepeticionM_37a/SUM(RepeticionM_37a,PromocionM_37a)); END; IF SUM(RepeticionM_38a,PromocionM_38a)>1 THEN DO; DesercionM_38=0; PromocionM_38=(PromocionM_38a/SUM(RepeticionM_38a,PromocionM_38a));RepeticionM_38=(RepeticionM_38a/SUM(RepeticionM_38a,PromocionM_38a)); END; IF SUM(RepeticionM_41a,PromocionM_41a)>1 THEN DO; DesercionM_41=0; PromocionM_41=(PromocionM_41a/SUM(RepeticionM_41a,PromocionM_41a));RepeticionM_41=(RepeticionM_41a/SUM(RepeticionM_41a,PromocionM_41a)); END; IF SUM(RepeticionM_42a,PromocionM_42a)>1 THEN DO; DesercionM_42=0; PromocionM_42=(PromocionM_42a/SUM(RepeticionM_42a,PromocionM_42a));RepeticionM_42=(RepeticionM_42a/SUM(RepeticionM_42a,PromocionM_42a)); END; IF SUM(RepeticionM_43a,PromocionM_43a)>1 THEN DO; DesercionM_43=0; PromocionM_43=(PromocionM_43a/SUM(RepeticionM_43a,PromocionM_43a));RepeticionM_43=(RepeticionM_43a/SUM(RepeticionM_43a,PromocionM_43a)); END; IF SUM(RepeticionM_44a,PromocionM_44a)>1 THEN DO; DesercionM_44=0; PromocionM_44=(PromocionM_44a/SUM(RepeticionM_44a,PromocionM_44a));RepeticionM_44=(RepeticionM_44a/SUM(RepeticionM_44a,PromocionM_44a)); END; IF SUM(RepeticionM_45a,PromocionM_45a)>1 THEN DO; DesercionM_45=0; PromocionM_45=(PromocionM_45a/SUM(RepeticionM_45a,PromocionM_45a));RepeticionM_45=(RepeticionM_45a/SUM(RepeticionM_45a,PromocionM_45a)); END; IF SUM(RepeticionM_46a,PromocionM_46a)>1 THEN DO; DesercionM_46=0; PromocionM_46=(PromocionM_46a/SUM(RepeticionM_46a,PromocionM_46a));RepeticionM_46=(RepeticionM_46a/SUM(RepeticionM_46a,PromocionM_46a)); END; IF SUM(RepeticionM_47a,PromocionM_47a)>1 THEN DO; DesercionM_47=0; PromocionM_47=(PromocionM_47a/SUM(RepeticionM_47a,PromocionM_47a));RepeticionM_47=(RepeticionM_47a/SUM(RepeticionM_47a,PromocionM_47a)); END; IF SUM(RepeticionM_48a,PromocionM_48a)>1 THEN DO; DesercionM_48=0; PromocionM_48=(PromocionM_48a/SUM(RepeticionM_48a,PromocionM_48a));RepeticionM_48=(RepeticionM_48a/SUM(RepeticionM_48a,PromocionM_48a)); END; IF SUM(RepeticionM_51a,PromocionM_51a)>1 THEN DO; DesercionM_51=0; PromocionM_51=(PromocionM_51a/SUM(RepeticionM_51a,PromocionM_51a));RepeticionM_51=(RepeticionM_51a/SUM(RepeticionM_51a,PromocionM_51a)); END; IF SUM(RepeticionM_52a,PromocionM_52a)>1 THEN DO; DesercionM_52=0; PromocionM_52=(PromocionM_52a/SUM(RepeticionM_52a,PromocionM_52a));RepeticionM_52=(RepeticionM_52a/SUM(RepeticionM_52a,PromocionM_52a)); END; IF SUM(RepeticionM_53a,PromocionM_53a)>1 THEN DO; DesercionM_53=0; PromocionM_53=(PromocionM_53a/SUM(RepeticionM_53a,PromocionM_53a));RepeticionM_53=(RepeticionM_53a/SUM(RepeticionM_53a,PromocionM_53a)); END; IF SUM(RepeticionM_54a,PromocionM_54a)>1 THEN DO; DesercionM_54=0; PromocionM_54=(PromocionM_54a/SUM(RepeticionM_54a,PromocionM_54a));RepeticionM_54=(RepeticionM_54a/SUM(RepeticionM_54a,PromocionM_54a)); END; IF SUM(RepeticionM_55a,PromocionM_55a)>1 THEN DO; DesercionM_55=0; PromocionM_55=(PromocionM_55a/SUM(RepeticionM_55a,PromocionM_55a));RepeticionM_55=(RepeticionM_55a/SUM(RepeticionM_55a,PromocionM_55a)); END; IF SUM(RepeticionM_56a,PromocionM_56a)>1 THEN DO; DesercionM_56=0; PromocionM_56=(PromocionM_56a/SUM(RepeticionM_56a,PromocionM_56a));RepeticionM_56=(RepeticionM_56a/SUM(RepeticionM_56a,PromocionM_56a)); END; IF SUM(RepeticionM_57a,PromocionM_57a)>1 THEN DO; DesercionM_57=0; PromocionM_57=(PromocionM_57a/SUM(RepeticionM_57a,PromocionM_57a));RepeticionM_57=(RepeticionM_57a/SUM(RepeticionM_57a,PromocionM_57a)); END; IF SUM(RepeticionM_58a,PromocionM_58a)>1 THEN DO; DesercionM_58=0; PromocionM_58=(PromocionM_58a/SUM(RepeticionM_58a,PromocionM_58a));RepeticionM_58=(RepeticionM_58a/SUM(RepeticionM_58a,PromocionM_58a)); END; /**/ Mx00=1000; Mx01=DesercionM_01*Mx00; Mx02=PromocionM_01*Mx00; Mx03=RepeticionM_01*Mx00; Mx04=DesercionM_12*Mx02; Mx05=PromocionM_12*Mx02; Mx06=RepeticionM_12*Mx02; Mx07=DesercionM_23*Mx05; Mx08=PromocionM_23*Mx05; Mx09=RepeticionM_23*Mx05; Mx10=DesercionM_34*Mx08; Mx11=PromocionM_34*Mx08; Mx12=RepeticionM_34*Mx08; Mx13=DesercionM_45*Mx11; Mx14=PromocionM_45*Mx11; Mx15=RepeticionM_45*Mx11; Mx16=DesercionM_56*Mx14; Mx17=PromocionM_56*Mx14; Mx18=RepeticionM_56*Mx14; Mx19=DesercionM_02*Mx03; Mx20=PromocionM_02*Mx03; Mx21=RepeticionM_02*Mx03; Mx22=DesercionM_13*SUM(Mx20,Mx06); Mx23=PromocionM_13*SUM(Mx20,Mx06); Mx24=RepeticionM_13*SUM(Mx20,Mx06); Mx25=DesercionM_24*SUM(Mx23,Mx09); Mx26=PromocionM_24*SUM(Mx23,Mx09); Mx27=RepeticionM_24*SUM(Mx23,Mx09); Mx28=DesercionM_35*SUM(Mx26,Mx12); Mx29=PromocionM_35*SUM(Mx26,Mx12); Mx30=RepeticionM_35*SUM(Mx26,Mx12); Mx31=DesercionM_46*SUM(Mx29,Mx15); Mx32=PromocionM_46*SUM(Mx29,Mx15); Mx33=RepeticionM_46*SUM(Mx29,Mx15); Mx34=DesercionM_57*SUM(Mx32,Mx18); Mx35=PromocionM_57*SUM(Mx32,Mx18); Mx36=RepeticionM_57*SUM(Mx32,Mx18); Mx37=DesercionM_03*Mx21; Mx38=PromocionM_03*Mx21; Mx39=RepeticionM_03*Mx21; Mx40=DesercionM_14*SUM(Mx38,Mx24); Mx41=PromocionM_14*SUM(Mx38,Mx24); Mx42=RepeticionM_14*SUM(Mx38,Mx24); Mx43=DesercionM_25*SUM(Mx41,Mx27); Mx44=PromocionM_25*SUM(Mx41,Mx27); Mx45=RepeticionM_25*SUM(Mx41,Mx27); Mx46=DesercionM_36*SUM(Mx44,Mx30); Mx47=PromocionM_36*SUM(Mx44,Mx30); Mx48=RepeticionM_36*SUM(Mx44,Mx30); Mx49=DesercionM_47*SUM(Mx47,Mx33); Mx50=PromocionM_47*SUM(Mx47,Mx33); Mx51=RepeticionM_47*SUM(Mx47,Mx33); Mx52=DesercionM_58*SUM(Mx50,Mx36); Mx53=PromocionM_58*SUM(Mx50,Mx36); Mx54=RepeticionM_58*SUM(Mx50,Mx36); M_AA = SUM(SUM(6*Mx17,7*Mx35,8*Mx53), SUM(1*Mx01,2*Mx19,3*Mx37), SUM(2*Mx04,3*Mx22,4*Mx40), SUM(3*Mx07,4*Mx25,5*Mx43), SUM(4*Mx10,5*Mx28,6*Mx46), SUM(5*Mx13,6*Mx31,7*Mx49), SUM(6*Mx16,7*Mx34,8*Mx52)) / SUM(Mx17,Mx35,Mx53); M_CE = 6*SUM(Mx17,Mx35,Mx53) / SUM(SUM(6*Mx17,7*Mx35,8*Mx53), SUM(1*Mx01,2*Mx19,3*Mx37), SUM(2*Mx04,3*Mx22,4*Mx40), SUM(3*Mx07,4*Mx25,5*Mx43), SUM(4*Mx10,5*Mx28,6*Mx46), SUM(5*Mx13,6*Mx31,7*Mx49), SUM(6*Mx16,7*Mx34,8*Mx52)); M_G0 = Mx17; M_G1 = Mx35; M_G2 = Mx53; M_GT = SUM(M_G0,M_G1,M_G2); M_GG1 = SUM(Mx02,Mx20,Mx38); M_GG2 = SUM(Mx05,Mx23,Mx41); M_GG3 = SUM(Mx08,Mx26,Mx44); M_GG4 = SUM(Mx11,Mx29,Mx47); M_GG5 = SUM(Mx14,Mx32,Mx50); M_GG6 = SUM(Mx17,Mx35,Mx53); M_GGT = SUM(M_GG1,M_GG2,M_GG3,M_GG4,M_GG5,M_GG6); M_AB0 = SUM(Mx01,Mx04,Mx07,Mx10,Mx13,Mx16); M_AB1 = SUM(Mx19,Mx22,Mx25,Mx28,Mx31,Mx34); M_AB2 = SUM(Mx37,Mx40,Mx43,Mx46,Mx49,Mx52); M_ABT = SUM(M_AB0,M_AB1,M_AB2); M_PAB0 = M_AB0 / 10; M_PAB1 = M_AB1 / 10; M_PAB2 = M_AB2 / 10; M_A0_DT = (M_AB0 / M_ABT) * 100; M_PAB01 = Mx01 / 10; M_PAB02 = Mx04 / 10; M_PAB03 = Mx07 / 10; M_PAB04 = Mx10 / 10; M_PAB05 = Mx13 / 10; M_PAB06 = Mx16 / 10; M_PABT1 = SUM(Mx01,Mx19,Mx37) / 10; M_PABT2 = SUM(Mx04,Mx22,Mx40) / 10; M_PABT3 = SUM(Mx07,Mx25,Mx43) / 10; M_PABT4 = SUM(Mx10,Mx28,Mx46) / 10; M_PABT5 = SUM(Mx13,Mx31,Mx49) / 10; M_PABT6 = SUM(Mx16,Mx34,Mx52) / 10; M_COCI1a = (M_PAB01 / M_PABT1)*100; M_COCI2a = (M_PAB02 / M_PABT2)*100; M_COCI3a = (M_PAB03 / M_PABT3)*100; M_COCI4a = (M_PAB04 / M_PABT4)*100; M_COCI5a = (M_PAB05 / M_PABT5)*100; M_COCI6a = (M_PAB06 / M_PABT6)*100; M_COCI1=M_COCI1a; M_COCI2=M_COCI2a; M_COCI3=M_COCI3a; M_COCI4=M_COCI4a; M_COCI5=M_COCI5a; M_COCI6=M_COCI6a; IF M_PABT1=0 THEN DO; M_COCI1=.; END; IF M_PABT2=0 THEN DO; M_COCI2=.; END; IF M_PABT3=0 THEN DO; M_COCI3=.; END; IF M_PABT4=0 THEN DO; M_COCI4=.; END; IF M_PABT5=0 THEN DO; M_COCI5=.; END; IF M_PABT6=0 THEN DO; M_COCI6=.; END; END; %END; RUN; PROC SQL; CREATE TABLE TASAS_&OUT.&&K AS SELECT TSERV, N_ENT, T_AA, H_AA, M_AA, /*AT03c Años Alumnos*/ T_CE, H_CE, M_CE, /*AT03d Coeficiente de eficiencia*/ T_PAB0, H_PAB0, M_PAB0, /*AT03b Abandono respecto a la generacion escolar*/ T_A0_DT, H_A0_DT, M_A0_DT, /*AT03b Abandono respecto al total de desertores*/ T_ABT, H_ABT, M_ABT, /*Para calcular los absolutos del abandono total de la generacion escolar*/ T_GT, T_G0, T_G1, T_G2, /**/ H_GT, H_G0, H_G1, H_G2, /* AT03a Egreso oportuno*/ M_GT, M_G0, M_G1, M_G2 /**/ FROM TASA_&OUT.&&K; QUIT; PROC EXPORT DATA=WORK.TASAS_&OUT.&&K OUTFILE="D:\DATOS_EVR\INDICADORES\New_Cohorte\PrimariaP2010v2\&CICLO\new_TASAS_&OUT.&&K" DBMS=XLSX REPLACE; SHEET="TASAS"; RUN; PROC DATASETS LIBRARY=WORK NOLIST; DELETE ESTPRIMARIA_&OUT ESTPRIMARIA_&OUT.&&K TASA_&OUT.&&K; RUN; %END; %MEND; /*PANORAMA 2015*/ %PR(D01=G0607, D02=I0607, D03=C0607, D04=GE0607, D05=IE0607, D06=CE0607, D07=G0708, D08=I0708, D09=C0708, D10=GE0708, D11=IE0708, D12=CE0708, D13=G0809, D14=I0809, D15=C0809, D16=GE0809, D17=IE0809, D18=CE0809, D19=G0910, D20=I0910, D21=C0910, D22=GE0910, D23=IE0910, D24=CE0910, D25=G1011, D26=I1011, D27=C1011, D28=GE1011, D29=IE1011, D30=CE1011, D31=G1112, D32=I1112, D33=C1112, D34=GE1112, D35=IE1112, D36=CE1112, D37=G1213, D38=I1213, D39=C1213, D40=GE1213, D41=IE1213, D42=CE1213, D43=G1314, D44=I1314, D45=C1314, D46=GE1314, D47=IE1314, D48=CE1314, D49=G1415, D50=I1415, D51=C1415, OUT=0607,CICLO=2006-2007,ENT=ENTIDADES, /*Total*/ A001=MT1_0607, A002=MT2_0607, A003=MT3_0607, A004=MT4_0607, A005=MT5_0607, A006=MT6_0607, A007=ET6_0607, A008=RT1_0607, A009=RT2_0607, A010=RT3_0607, A011=RT4_0607, A012=RT5_0607, A013=RT6_0607, A014=MT1_0708, A015=MT2_0708, A016=MT3_0708, A017=MT4_0708, A018=MT5_0708, A019=MT6_0708, A020=ET6_0708, A021=RT1_0708, A022=RT2_0708, A023=RT3_0708, A024=RT4_0708, A025=RT5_0708, A026=RT6_0708, A027=MT1_0809, A028=MT2_0809, A029=MT3_0809, A030=MT4_0809, A031=MT5_0809, A032=MT6_0809, A033=ET6_0809, A034=RT1_0809, A035=RT2_0809, A036=RT3_0809, A037=RT4_0809, A038=RT5_0809, A039=RT6_0809, A040=MT1_0910, A041=MT2_0910, A042=MT3_0910, A043=MT4_0910, A044=MT5_0910, A045=MT6_0910, A046=ET6_0910, A047=RT1_0910, A048=RT2_0910, A049=RT3_0910, A050=RT4_0910, A051=RT5_0910, A052=RT6_0910, A053=MT1_1011, A054=MT2_1011, A055=MT3_1011, A056=MT4_1011, A057=MT5_1011, A058=MT6_1011, A059=ET6_1011, A060=RT1_1011, A061=RT2_1011, A062=RT3_1011, A063=RT4_1011, A064=RT5_1011, A065=RT6_1011, A066=MT1_1112, A067=MT2_1112, A068=MT3_1112, A069=MT4_1112, A070=MT5_1112, A071=MT6_1112, A072=ET6_1112, A073=RT1_1112, A074=RT2_1112, A075=RT3_1112, A076=RT4_1112, A077=RT5_1112, A078=RT6_1112, A079=MT1_1213, A080=MT2_1213, A081=MT3_1213, A082=MT4_1213, A083=MT5_1213, A084=MT6_1213, A085=ET6_1213, A086=RT1_1213, A087=RT2_1213, A088=RT3_1213, A089=RT4_1213, A090=RT5_1213, A091=RT6_1213, A092=MT1_1314, A093=MT2_1314, A094=MT3_1314, A095=MT4_1314, A096=MT5_1314, A097=MT6_1314, A098=ET6_1314, A099=RT1_1314, A100=RT2_1314, A101=RT3_1314, A102=RT4_1314, A103=RT5_1314, A104=RT6_1314, A105=MT1_1415, A106=MT2_1415, A107=MT3_1415, A108=MT4_1415, A109=MT5_1415, A110=MT6_1415, A111=RT1_1415, A112=RT2_1415, A113=RT3_1415, A114=RT4_1415, A115=RT5_1415, A116=RT6_1415, /*Hombres*/ B001=MH1_0607, B002=MH2_0607, B003=MH3_0607, B004=MH4_0607, B005=MH5_0607, B006=MH6_0607, B007=EH6_0607, B008=RH1_0607, B009=RH2_0607, B010=RH3_0607, B011=RH4_0607, B012=RH5_0607, B013=RH6_0607, B014=MH1_0708, B015=MH2_0708, B016=MH3_0708, B017=MH4_0708, B018=MH5_0708, B019=MH6_0708, B020=EH6_0708, B021=RH1_0708, B022=RH2_0708, B023=RH3_0708, B024=RH4_0708, B025=RH5_0708, B026=RH6_0708, B027=MH1_0809, B028=MH2_0809, B029=MH3_0809, B030=MH4_0809, B031=MH5_0809, B032=MH6_0809, B033=EH6_0809, B034=RH1_0809, B035=RH2_0809, B036=RH3_0809, B037=RH4_0809, B038=RH5_0809, B039=RH6_0809, B040=MH1_0910, B041=MH2_0910, B042=MH3_0910, B043=MH4_0910, B044=MH5_0910, B045=MH6_0910, B046=EH6_0910, B047=RH1_0910, B048=RH2_0910, B049=RH3_0910, B050=RH4_0910, B051=RH5_0910, B052=RH6_0910, B053=MH1_1011, B054=MH2_1011, B055=MH3_1011, B056=MH4_1011, B057=MH5_1011, B058=MH6_1011, B059=EH6_1011, B060=RH1_1011, B061=RH2_1011, B062=RH3_1011, B063=RH4_1011, B064=RH5_1011, B065=RH6_1011, B066=MH1_1112, B067=MH2_1112, B068=MH3_1112, B069=MH4_1112, B070=MH5_1112, B071=MH6_1112, B072=EH6_1112, B073=RH1_1112, B074=RH2_1112, B075=RH3_1112, B076=RH4_1112, B077=RH5_1112, B078=RH6_1112, B079=MH1_1213, B080=MH2_1213, B081=MH3_1213, B082=MH4_1213, B083=MH5_1213, B084=MH6_1213, B085=EH6_1213, B086=RH1_1213, B087=RH2_1213, B088=RH3_1213, B089=RH4_1213, B090=RH5_1213, B091=RH6_1213, B092=MH1_1314, B093=MH2_1314, B094=MH3_1314, B095=MH4_1314, B096=MH5_1314, B097=MH6_1314, B098=EH6_1314, B099=RH1_1314, B100=RH2_1314, B101=RH3_1314, B102=RH4_1314, B103=RH5_1314, B104=RH6_1314, B105=MH1_1415, B106=MH2_1415, B107=MH3_1415, B108=MH4_1415, B109=MH5_1415, B110=MH6_1415, B111=RH1_1415, B112=RH2_1415, B113=RH3_1415, B114=RH4_1415, B115=RH5_1415, B116=RH6_1415, /*Mujeres*/ C001=MM1_0607, C002=MM2_0607, C003=MM3_0607, C004=MM4_0607, C005=MM5_0607, C006=MM6_0607, C007=EM6_0607, C008=RM1_0607, C009=RM2_0607, C010=RM3_0607, C011=RM4_0607, C012=RM5_0607, C013=RM6_0607, C014=MM1_0708, C015=MM2_0708, C016=MM3_0708, C017=MM4_0708, C018=MM5_0708, C019=MM6_0708, C020=EM6_0708, C021=RM1_0708, C022=RM2_0708, C023=RM3_0708, C024=RM4_0708, C025=RM5_0708, C026=RM6_0708, C027=MM1_0809, C028=MM2_0809, C029=MM3_0809, C030=MM4_0809, C031=MM5_0809, C032=MM6_0809, C033=EM6_0809, C034=RM1_0809, C035=RM2_0809, C036=RM3_0809, C037=RM4_0809, C038=RM5_0809, C039=RM6_0809, C040=MM1_0910, C041=MM2_0910, C042=MM3_0910, C043=MM4_0910, C044=MM5_0910, C045=MM6_0910, C046=EM6_0910, C047=RM1_0910, C048=RM2_0910, C049=RM3_0910, C050=RM4_0910, C051=RM5_0910, C052=RM6_0910, C053=MM1_1011, C054=MM2_1011, C055=MM3_1011, C056=MM4_1011, C057=MM5_1011, C058=MM6_1011, C059=EM6_1011, C060=RM1_1011, C061=RM2_1011, C062=RM3_1011, C063=RM4_1011, C064=RM5_1011, C065=RM6_1011, C066=MM1_1112, C067=MM2_1112, C068=MM3_1112, C069=MM4_1112, C070=MM5_1112, C071=MM6_1112, C072=EM6_1112, C073=RM1_1112, C074=RM2_1112, C075=RM3_1112, C076=RM4_1112, C077=RM5_1112, C078=RM6_1112, C079=MM1_1213, C080=MM2_1213, C081=MM3_1213, C082=MM4_1213, C083=MM5_1213, C084=MM6_1213, C085=EM6_1213, C086=RM1_1213, C087=RM2_1213, C088=RM3_1213, C089=RM4_1213, C090=RM5_1213, C091=RM6_1213, C092=MM1_1314, C093=MM2_1314, C094=MM3_1314, C095=MM4_1314, C096=MM5_1314, C097=MM6_1314, C098=EM6_1314, C099=RM1_1314, C100=RM2_1314, C101=RM3_1314, C102=RM4_1314, C103=RM5_1314, C104=RM6_1314, C105=MM1_1415, C106=MM2_1415, C107=MM3_1415, C108=MM4_1415, C109=MM5_1415, C110=MM6_1415, C111=RM1_1415, C112=RM2_1415, C113=RM3_1415, C114=RM4_1415, C115=RM5_1415, C116=RM6_1415); /*Fin del Programa*/