* Program: Program for the Impact of COVID - Colombia
*  
* Date: March 2020
* Version: 1.0
*--------------------------------------------------------------------------------


set more off
clear all
global root_COVID     = "C:\Users\wb521296\OneDrive - WBG\Desktop\COVID"

*===============================================================================
//------------------------------------------------------------------------------
// DO NOT MODIFY BEYOND THIS POINT
//------------------------------------------------------------------------------
*===============================================================================

* COVID - GEIH *

global data_COVID     = "$root_COVID/data" 
global dataout_COVID  = "$root_COVID/dataout"	
global dta_COVID	  = "$root_COVID/dta"			         // Save intermediate results in Stata format
global xls_COVID	  = "$root_COVID/xls"        	         // Saves MS Excel results
global graphs_COVID	  = "$root_COVID/grphs"			         // Saves graphs into
global dofiles_COVID  = "$root_COVID/dofiles/GEIH"           // Saves Dofile 

*-------------------------------------------------------------------------------
*--------		 USe the database used to the presidency presentation   --------
*-------------------------------------------------------------------------------

use "$dta_COVID\presentacion_presidencia_final.dta", clear

/********************************************************************************
****                   Social mitigation measures                           *****
*********************************************************************************/

global CM3 80000
global MFA3 145000
global JeA3 375000

gen CM_adicional4=(($CM3 /12)*total_CM)
gen MFA_adicional4= $MFA3 /12 if Beneficiario_MFA==1
gen JeA_adicional4=(($JeA3 /12)*total_JeA)

global simulaciones sim1 sim1_4 sim3 sim3_4

foreach k of global simulaciones{
	egen ingreso_ug_`k'_af_end=rowtotal(ingreso_ug_`k'_af_final CM_adicional4 MFA_adicional4 JeA_adicional4)
	gen ingreso_pc_ug_`k'_af_end=ingreso_ug_`k'_af_end/Npersug
	}
	
foreach var of global simulaciones{ 
	gen poor_extrem_af_end_`var'=1 if ingreso_pc_ug_`var'_af_end<Li_inflacion
	recode poor_extrem_af_end_`var' .=0
	gen poor_af_end_`var'=1 if ingreso_pc_ug_`var'_af_end<Lp_inflacion
	recode poor_af_end_`var' .=0
	} 


/********************************************************************************
****                   Economic mitigation measures                          *****
*********************************************************************************/

/* Impacto de todas las politicas -laborales - */

global subsidio_prima_mitad_ano=220000

gen ingreso_adicional_prima= (($subsidio_prima_mitad_ano )/ 12) if P6870!=1 & informal_legal2==0 & afectado_total==1 & ingresos_laborales<=1000000
replace ingreso_adicional_prima= 0 if P6870!=1 & informal_legal2==0 & afectado_total==1 & ingresos_laborales>1000000
replace ingreso_adicional_prima= 0 if P6870==1
replace ingreso_adicional_prima=0 if informal_legal2==1
replace ingreso_adicional_prima=0 if afectado_total==0

global alivio_pensiones 3

gen eliminacion_aportes=.
replace eliminacion_aportes=ingresos_laborales* 0.04/0.92 if  no_pension==0 & inlist(P6430 ,1,2,3,5,6,7,8,9)
replace eliminacion_aportes=ingresos_laborales* 0.064/0.886 if  no_pension==0 & P6430==4
replace eliminacion_aportes=eliminacion_aportes*$alivio_pensiones /12


foreach k of global simulaciones{	
	egen ingreso_laboral_nomina_`k'_f = rowtotal ( ingresos_laborales_`k' ingreso_adicional_nomina ingreso_adicional_prima eliminacion_aportes)
 } 
 
foreach k of global simulaciones{ 
	egen ingresos_totales_nomina_`k'_f=rowtotal(ingreso_laboral_nomina_`k'_f Imdi Imdies Iof1 Iof1es Iof2 Iof2es Iof3h Iof3hes Iof3i Iof3ies Isa Isaes Iof6 Iof6es ) 
	replace ingresos_totales_nomina_`k'_f=0 if ug==0
	bys Directorio Secuencia_p: egen total_ingreso_ug_nomina_`k'_f=total(ingresos_totales_nomina_`k'_f)
	egen ingreso_total_ug_arr_n_`k'_f=rowtotal(impu_arr total_ingreso_ug_nomina_`k'_f)

	gen ingreso_pc_ug_n_`k'_f=ingreso_total_ug_arr_n_`k'_f/Npersug
	}
 
 
 foreach k of global sim{ 
	gen ingresos_totales_ml_`k'_f=.
	replace ingresos_totales_ml_`k'_f= ingresos_totales_cr_`k' if ingresos_totales_cr_`k'>= ingresos_totales_nomina_`k'_f
	replace ingresos_totales_ml_`k'_f= ingresos_totales_nomina_`k' if ingresos_totales_cr_`k'<= ingresos_totales_nomina_`k'_f
	
	bys Directorio Secuencia_p: egen total_ingreso_ug_ml_`k'_f=total(ingresos_totales_ml_`k'_f)
	egen ingreso_total_ug_arr_ml_`k'_f=rowtotal(impu_arr total_ingreso_ug_ml_`k'_f)
	gen ingreso_pc_ug_ml_`k'_f=ingreso_total_ug_arr_ml_`k'_f/Npersug
	}


foreach var of global sim{ 
	gen poor_extrem_ml_`var'_f=1 if ingreso_pc_ug_ml_`var'_f<Li
	recode poor_extrem_ml_`var'_f .=0
	gen poor_ml_`var'_f=1 if ingreso_pc_ug_ml_`var'_f<Lp
	recode poor_ml_`var'_f .=0
	}
	

/* Ingresos con todas las medidas de mitigación - sociales y de mercado laboral */
	
foreach k of global simulaciones{ 
	egen ingresos_totales_todas_`k'_f=rowtotal( ingreso_total_ug_arr_ml_`k'_f CM_adicional MFA_adicional JeA_adicional beneficio_devolucion_iva ingreso_solidario PAE_adicional Mercado_adicional ICBF_adicional CM_adicional4 MFA_adicional4 JeA_adicional4 ) 
	gen ingreso_pc_ug_todas_`k'_f=ingresos_totales_todas_`k'_f/Npersug
	}

foreach var of global sim{ 
	gen poor_extrem_todas_`var'_f=1 if ingreso_pc_ug_todas_`var'_f<Li
	recode poor_extrem_todas_`var'_f .=0
	gen poor_todas_`var'_f=1 if ingreso_pc_ug_todas_`var'_f<Lp
	recode poor_todas_`var'_f .=0
	}
	
global simulaciones sim1 sim1_4 sim3 sim3_4

foreach var of global sim{ 
	gen poor_extrem_`var'=1 if ingreso_pc_ug_`var'<Li
	recode poor_extrem_`var' .=0
	gen poor_`var'=1 if ingreso_pc_ug_`var'<Lp
	recode poor_`var' .=0
	}
	
	
	
foreach k of global simulaciones{ 
	egen ingresos_totales_todas_`k'_f=rowtotal( ingreso_total_ug_arr_ml_`k'_f CM_adicional MFA_adicional JeA_adicional beneficio_devolucion_iva ingreso_solidario PAE_adicional Mercado_adicional ICBF_adicional CM_adicional4 MFA_adicional4 JeA_adicional4 ) 
	gen ingreso_pc_ug_todas_`k'_f=ingresos_totales_todas_`k'_f/Npersug
	}
	
	
/*   Effects for each of the mitigation measures */
	
foreach k of global simulaciones{
	egen ingresos_ug_`k'_af=rowtotal(ingreso_total_ug_arr_`k' CM_adicional CM_adicional4 MFA_adicional MFA_adicional4 JeA_adicional JeA_adicional4 beneficio_devolucion_iva ingreso_solidario PAE_adicional Mercado_adicional ICBF_adicional )
	gen ingresos_pc_ug_`k'_af=ingresos_ug_`k'_af/Npersug
	}
	
foreach k of global simulaciones{
	egen ingresos_ug_`k'_cm=rowtotal(ingreso_total_ug_arr_`k' CM_adicional CM_adicional4)
	gen ingresos_pc_ug_`k'_cm=ingresos_ug_`k'_cm/Npersug
	}

foreach k of global simulaciones{
	egen ingresos_ug_`k'_mfa=rowtotal(ingreso_total_ug_arr_`k' CM_adicional CM_adicional4 MFA_adicional MFA_adicional4)
	gen ingresos_pc_ug_`k'_mfa=ingresos_ug_`k'_mfa/Npersug
	}
	
foreach k of global simulaciones{
	egen ingresos_ug_`k'_JeA=rowtotal(ingreso_total_ug_arr_`k' CM_adicional CM_adicional4 MFA_adicional MFA_adicional4 JeA_adicional JeA_adicional4)
	gen ingresos_pc_ug_`k'_JeA=ingresos_ug_`k'_JeA/Npersug
	}

foreach k of global simulaciones{
	egen ingresos_ug_`k'_iva=rowtotal(ingreso_total_ug_arr_`k' CM_adicional CM_adicional4 MFA_adicional MFA_adicional4 JeA_adicional JeA_adicional4 beneficio_devolucion_iva)
	gen ingresos_pc_ug_`k'_iva=ingresos_ug_`k'_iva/Npersug
	}
	
foreach k of global simulaciones{
	egen ingresos_ug_`k'_solidario=rowtotal(ingreso_total_ug_arr_`k' CM_adicional CM_adicional4 MFA_adicional MFA_adicional4 JeA_adicional JeA_adicional4 beneficio_devolucion_iva ingreso_solidario)
	gen ingresos_pc_ug_`k'_solidario=ingresos_ug_`k'_solidario/Npersug
	}
	

foreach k of global simulaciones{
	egen ingresos_ug_`k'_mercados=rowtotal(ingreso_total_ug_arr_`k' CM_adicional CM_adicional4 MFA_adicional MFA_adicional4 JeA_adicional JeA_adicional4 beneficio_devolucion_iva ingreso_solidario  Mercado_adicional)
	gen ingresos_pc_ug_`k'_mercados =ingresos_ug_`k'_mercados/Npersug
	}
	
foreach k of global simulaciones{
	egen ingresos_ug_`k'_icbf=rowtotal(ingreso_total_ug_arr_`k' CM_adicional CM_adicional4 MFA_adicional MFA_adicional4 JeA_adicional JeA_adicional4 beneficio_devolucion_iva ingreso_solidario  Mercado_adicional ICBF_adicional)
	gen ingresos_pc_ug_`k'_icbf=ingresos_ug_`k'_icbf/Npersug
	}
	

gen all = 1	
	
local plines Lp Li
	
preserve
	sp_groupfunction [aw=Fex_c],  poverty(ingresos_pc_ug*) povertyline(`plines') by(P6020) 

tempfile poverty2
save `poverty2'

export excel "$xls_COVID/Results_covid_paper.xls", sheet(social_mitigation_measures) sheetreplace first(variable)

restore	


foreach k of global simulaciones{	
	egen ingreso_laboral_nomina1_`k'_f = rowtotal ( ingresos_laborales_`k' ingreso_adicional_nomina )
 } 
 
 foreach k of global simulaciones{	
	egen ingreso_laboral_nomina2_`k'_f = rowtotal ( ingresos_laborales_`k' ingreso_adicional_nomina ingreso_adicional_prima )
 } 
 
 foreach k of global simulaciones{	
	egen ingreso_laboral_nomina3_`k'_f = rowtotal ( ingresos_laborales_`k' ingreso_adicional_nomina ingreso_adicional_prima eliminacion_aportes)
 } 
 
forval j=1/3{
	foreach k of global simulaciones{ 
		egen ingresos_totales_n`j'_`k'_f=rowtotal(ingreso_laboral_nomina`j'_`k'_f Imdi Imdies Iof1 Iof1es Iof2 Iof2es Iof3h Iof3hes Iof3i Iof3ies Isa Isaes Iof6 Iof6es ) 
		replace ingresos_totales_n`j'_`k'_f=0 if ug==0
		bys Directorio Secuencia_p: egen total_ingreso_ug_n`j'_`k'_f=total(ingresos_totales_n`j'_`k'_f)
		egen ingreso_total_ug_arr_n`j'_`k'_f=rowtotal(impu_arr total_ingreso_ug_n`j'_`k'_f)

		gen ingreso_pc_ug_n`j'_`k'_f=ingreso_total_ug_arr_n`j'_`k'_f/Npersug	
	}
}

foreach k of global simulaciones{ 
	gen ingreso_pc_ug_credito_`k'= ingreso_pc_ug_`k'
	replace ingreso_pc_ug_credito_`k'= ingreso_pc_ug_cr_`k' if ingresos_totales_cr_`k'>= ingresos_totales_nomina_`k'_f

	gen ingreso_pc_ug_nomina1_`k'= ingreso_pc_ug_credito_`k' if ingresos_totales_cr_`k'>= ingresos_totales_nomina_`k'_f
	replace ingreso_pc_ug_nomina1_`k'= ingreso_pc_ug_n1_`k'_f if ingresos_totales_cr_`k'<= ingresos_totales_nomina_`k'_f

	gen ingreso_pc_ug_nomina2_`k'= ingreso_pc_ug_credito_`k' if ingresos_totales_cr_`k'>= ingresos_totales_nomina_`k'_f
	replace ingreso_pc_ug_nomina2_`k'= ingreso_pc_ug_n2_`k'_f if ingresos_totales_cr_`k'<= ingresos_totales_nomina_`k'_f

	gen ingreso_pc_ug_nomina3_`k'= ingreso_pc_ug_credito_`k' if ingresos_totales_cr_`k'>= ingresos_totales_nomina_`k'_f
	replace ingreso_pc_ug_nomina3_`k'= ingreso_pc_ug_n3_`k'_f if ingresos_totales_cr_`k'<= ingresos_totales_nomina_`k'_f
}	

	
		
local plines Lp Li
	
preserve
	sp_groupfunction [aw=Fex_c],  poverty(ingresos_pc_ug* ingreso_pc_ug_credito* ingreso_pc_ug_nomina*) povertyline(`plines') by(all) 

tempfile poverty2
save `poverty2'

export excel "$xls_COVID/Results_covid_paper2.xls", sheet (mitigation_measures_all) sheetreplace first(variable)

restore	
	
global simulaciones sim1 sim1_4 sim3 sim3_4

foreach k of global simulaciones{
	gen poor_cm_`k'=1 if ingresos_pc_ug_`k'_cm<Lp
	recode poor_cm_`k' .=0
	
	gen poor_mfa_`k'=1 if ingresos_pc_ug_`k'_mfa<Lp
	recode poor_mfa_`k' .=0
	
	gen poor_JeA_`k'=1 if ingresos_pc_ug_`k'_JeA<Lp
	recode poor_JeA_`k' .=0
	
	gen poor_iva_`k'=1 if ingresos_pc_ug_`k'_iva<Lp
	recode poor_iva_`k' .=0
	
	gen poor_solidario_`k'=1 if ingresos_pc_ug_`k'_solidario<Lp
	recode poor_solidario_`k' .=0
	
	gen poor_mercados_`k'=1 if ingresos_pc_ug_`k'_mercados<Lp
	recode poor_mercados_`k' .=0
	
	gen poor_icbf_`k'=1 if ingresos_pc_ug_`k'_icbf<Lp
	recode poor_icbf_`k' .=0
	
	gen poor_credito_`k'=1 if ingreso_pc_ug_credito_`k'<Lp
	recode poor_credito_`k' .=0

	gen poor_nomina1_`k'=1 if ingreso_pc_ug_nomina1_`k'<Lp
	recode poor_nomina1_`k' .=0
	
	gen poor_nomina2_`k'=1 if ingreso_pc_ug_nomina2_`k'<Lp
	recode poor_nomina2_`k' .=0
	
	gen poor_nomina3_`k'=1 if ingreso_pc_ug_nomina3_`k'<Lp
	recode poor_nomina3_`k' .=0
	
	}
	
	
capture drop ingresos_laborales_ais2_* 	ingresos_totales_ais2* total_ingreso_ug_ais2* ingreso_total_ug_arr_ais2* ingreso_pc_ug_ais2* poor_extrem_ais2* poor_ais2*
 
foreach k of global simulaciones{ 
	gen ingresos_laborales_ais2_`k'= ingresos_laborales_`k'
	replace ingresos_laborales_ais2_`k'=ingresos_laborales*(9.5/12) if afectado_total==1 & sectores_nivel_alto==0
	replace ingresos_laborales_ais2_`k'=ingresos_laborales*(9/12) if afectado_total==1 & sectores_nivel_alto==1
	replace ingresos_laborales_ais2_`k'=ingresos_laborales*(11/12) if afectado_total==1 & seccion_sector==42
	replace ingresos_laborales_ais2_`k'=ingresos_laborales*(10.5/12) if afectado_total==1 & inlist(seccion_sector, 43,41,13,14,15,16,17,20,25,26,27,28,29,30) 
	replace ingresos_laborales_ais2_`k'=ingresos_laborales*(10.5/12) if afectado_total==1 & RAMA4D=="4663" 
	replace ingresos_laborales_ais2_`k'=ingresos_laborales*(10/12) if afectado_total==1 & inlist(RAMA4D, "4731", "4732", "4761", "3315", "9601")
	replace ingresos_laborales_ais2_`k'=ingresos_laborales*(10/12) if afectado_total==1 & seccion_sector==45
	replace ingresos_laborales_ais2_`k'=ingresos_laborales*(10/12) if afectado_total==1 & seccion_sector==31
	replace ingresos_laborales_ais2_`k'=ingresos_laborales*(10/12) if riesgo==0 & afectado_total==1

	} 


foreach k of global simulaciones{ 
	forval j=2/2{ 
		egen ingresos_totales_ais`j'_`k'=rowtotal(ingresos_laborales_ais`j'_`k' Imdi Imdies Iof1 Iof1es Iof2 Iof2es Iof3h Iof3hes Iof3i Iof3ies Isa Isaes Iof6 Iof6es ) 
		replace ingresos_totales_ais`j'_`k'=0 if ug==0
		bys Directorio Secuencia_p: egen total_ingreso_ug_ais`j'_`k'=total(ingresos_totales_ais`j'_`k')
		egen ingreso_total_ug_arr_ais`j'_`k'=rowtotal(impu_arr total_ingreso_ug_ais`j'_`k')

		gen ingreso_pc_ug_ais`j'_`k'=ingreso_total_ug_arr_ais`j'_`k'/Npersug

	}
}

forval j=1/1{ 
	foreach var of global sim{ 
	gen poor_extrem_ais`j'_`var'=1 if ingreso_pc_ug_ais`j'_`var'<Li
	recode poor_extrem_ais`j'_`var' .=0
	gen poor_ais`j'_`var'=1 if ingreso_pc_ug_ais`j'_`var'<Lp
	recode poor_ais`j'_`var' .=0
	} 
}


/* Ingreso único universal */

gen UBI_paper=  19320.5

global simulaciones sim1 sim1_4 sim3 sim3_4

foreach k of global simulaciones{ 
	egen ingresos_totales_Up_`k'=rowtotal(ingresos_laborales_`k' UBI_paper Imdi Imdies Iof1 Iof1es Iof2 Iof2es Iof3h Iof3hes Iof3i Iof3ies Isa Isaes Iof6 Iof6es ) 
	replace ingresos_totales_Up_`k'=0 if ug==0
	bys Directorio Secuencia_p: egen total_ingreso_ug_Up_`k'=total(ingresos_totales_Up_`k')
	egen ingreso_total_ug_arr_Up_`k'=rowtotal(impu_arr total_ingreso_ug_Up_`k')

	gen ingreso_pc_ug_Up_`k'=ingreso_total_ug_arr_Up_`k'/Npersug
	}	


foreach var of global simulaciones{ 
	gen poor_UBI_p_`var'=1 if ingreso_pc_ug_Up_`var'<Lp
	recode poor_UBI_p_`var' .=0
	}