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


	marksample touse, zeroweight strok novarlist
* Obesity Reduction Initial Intervention
* Parameter: init_intervene_obs_rd (scalar)
*	Treats obesity in a fraction of the population given by the init_intervene_obs_rd parameter

		replace treat_now = (obese == 1) & died == 0 if `touse'
		replace obese = 0 if treat_now & normal(x_wtstate2004) <= init_intervene_obs_rd & `touse'
		replace treat_effective = old_obese == 1 & obese == 0 if `touse'
		replace lobese = obese

end