cap program drop Wealth_intervene0
program define Wealth_intervene0
	syntax [varlist] [if] [in], is_startyr(integer)



* Wealth Initial Intervention
* Parameter: init_intervene_wealth_mult (scalar)
* Adjusts the hatota by the init_intervene_wealth_mult parameter


					assert lhatota == hatota
       		assert hatota == fhatota
       		replace hatota = hatota*init_intervene_wealth_mult
       		replace hatotax = min(hatota,2000) if hatota!=.
       		capt drop loghatotax
       		egen loghatotax = h(hatotax)
       		replace loghatotax = loghatotax/100
					replace fhatota = hatota
					replace floghatotax = loghatotax
					replace fhatotax = hatotax
					capt drop lloghatotax
					capt drop lhatotax
					capt drop lhatota
					gen lloghatotax = loghatotax
					gen lhatotax = hatotax
					gen lhatota = hatota

end