Derivation
variable: neg_date* [HIV negative date(s)] (table[s]: hivart_kps_known_all)
gen datehiv=intdate
replace datehiv=starteps if starteps~=.
merge m:1 ident using ${hivdata}\hivart_kps_known_all, keep(master match) keepusing(firsthivposdate lastneverart_date firstart_date lastonart_date lastartstop_date neg_date*) nogen
*hivstatus
gen hivstatus=.
gen nearesthivnegdate=.
lookfor neg_date
foreach neg_date in `r(varlist)' {
replace nearesthivnegdate=`neg_date' if datehiv-`neg_date'<=(365.25*3) & datehiv-`neg_date'>=-31 & `neg_date'~=.
replace hivstatus=0 if datehiv-`neg_date'<=(365.25*3) & datehiv-`neg_date'>=-31 & `neg_date'~=.
}