program stpm2_ml_lf_hazard
	version 11.0
	args lnf xb dxb xb0
	tempvar ht st st0 

	local del_entry = 0
	qui summ _t0 , meanonly
	if r(max)>0 local del_entry = 1
	
	qui replace `lnf' = _d*(ln(`dxb') + `xb') - exp(`xb')

	if `del_entry' == 1 {
		qui replace `lnf' = `lnf' + exp(`xb0') if _t0>0
	}
end