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


	marksample touse, zeroweight strok novarlist 
* Hbp Reduction Initial Intervention
* Parameter: init_intervene_hbp_rd (scalar)
*	Treats hbp in a fraction of the population given by the init_intervene_diab_rd parameter
		
		replace treat_now = hibpe == 1 & died == 0 if `touse'
		replace hibpe = 0 if treat_now & normal(x_hibpe2004) <= init_intervene_hbp_rd & `touse'
		replace treat_effective = old_hibpe == 1 & hibpe == 0 if `touse'
		replace lhibpe = hibpe
end