About converting data

[hellorc]

Closed

[Ksharp · Accepted solution]

data have;
input id gender $ enrolldate : mmddyy. aaa : mmddyy. bbb : mmddyy. inflam_1 : mmddyy. inflam_2 : mmddyy. inflam_3 : mmddyy. @@;
format enrolldate aaa bbb inflam_1 inflam_2 inflam_3 mmddyy10.;
datalines;
1 M 08/01/2019 09/04/2019 09/16/2019 10/02/2019 11/03/2019 12/04/2019
2 M 08/02/2019 08/14/2019 . 06/25/2019 09/14/2019 .
3 F 08/03/2019 . . 10/13/2019 11/13/2019 .
4 F 08/04/2019 07/04/2019 09/16/2019 . . .
5 F 08/05/2019 05/04/2019 07/04/2019 09/18/2019 10/18/2019 .
;
run;

data temp;
 set have;
 by id;
 if first.id then group=0;

 length flag $ 40;
 min=min(enrolldate,aaa,bbb,inflam_1,inflam_2,inflam_3);
 do date=min to '31dec2019'd;
   if date=enrolldate then do;flag='enrolldate';group+1;end;
   if date=aaa then do;flag='aaa';group+1;end;
   if date=bbb then do;flag='bbb';group+1;end;
   if date=inflam_1 then do;flag='inflam_1';group+1;end;
   if date=inflam_2 then do;flag='inflam_2';group+1;end;
   if date=inflam_3 then do;flag='inflam_3';group+1;end;
   output;
 end;
 format date mmddyy10.;
 keep  id gender  flag date group;
run;
proc summary data=temp;
by id gender group flag;
var date ;
output out=temp2(drop=_:) min=start max=stop;
run;
data temp3;
 set temp2;
 by id;
 retain trt_status ;
 if first.id then trt_status=0;
 if flag='aaa' then trt_status=1;
 if flag='bbb' then trt_status=2;
run;
data temp4;
 merge temp3 temp3(keep=id flag rename=(id=_id flag=_flag) firstobs=2);
 inflam_event=0;
 if id=_id and _flag=:'inflam_' then inflam_event=1;

 retain inflam_count _count1 _count2;
 if id ne lag(id) then do;inflam_count=0;_count1=0;_count2=0;end;
 if flag=:'inflam_' then _count1=input(scan(flag,-1,'_'),best.);
 if id=_id and _flag=:'inflam_' then _count2=input(scan(_flag,-1,'_'),best.);
 inflam_count=max(_count1,_count2);
 drop _:;
run;
data temp5;
 set temp4;
 by id;
 retain prior_inflam ;
 if first.id then prior_inflam=0;
 if id=lag(id) and lag(inflam_count)=1 then prior_inflam=1;
run;
data temp6;
 set temp5;
 by id;
 retain found;
 if first.id then found=0;
 if flag='enrolldate' then found=1;
 if found;
run;
data want;
 set temp6(drop=group flag found);
 if stop ne '31dec2019'd then stop=stop+1;
run;