cap program drop Smoking_R_intervene0
program define Smoking_R_intervene0

	syntax [varlist] [if] [in], is_startyr(integer)

* Smoking R Initial Intervention
*	Marks people who are current smokers to be treated

	marksample touse, zeroweight strok novarlist

		replace  treat_now = (smoken == 1) & died == 0  if `touse'
		replace  treat_effective = 0  if `touse'

end