infile ptid str8 sonstudy str8 stx str8 ssex age fab karn wbc plt hgb str8 seval str8 scr crchemo str8 scrdate str8 sfudate str8 sstatus str8 sbmtx str8 sbmtxdate str8 sincl using leukemia.txt
g onstudy= date(sonstudy,"md19y")
drop in 1
g tx= .
replace tx=0 if stx=="D"
replace tx=1 if stx=="I"
g male= .
replace male=0 if ssex=="F"
replace male=1 if ssex=="M"
g eval= .
replace eval=0 if seval=="N"
replace eval=1 if seval=="Y"
g cr= .
replace cr=0 if scr=="N"
replace cr=1 if scr=="Y"
g crdate= date(scrdate,"md19y")
g fudate= date(sfudate,"md19y")
g death= .
replace death= 0 if sstatus=="A"
replace death= 1 if sstatus=="D"
g bmtx= .
replace bmtx= 0 if sbmtx=="N"
replace bmtx= 1 if sbmtx=="Y"
g bmtxdate = date(sbmtxdate,"mdy19")
g incl= .
replace incl= 0 if sincl=="N"
replace incl= 1 if sincl=="Y"
g ttodeath= fudate - onstudy
g ttocr = crdate - onstudy
replace crdate=fudate if crdate==.
replace ttocr=ttodeath if ttocr==.