*for merge domain and supp;
%macro merge_supp(sdtm=,supp=y);
*transpose supp;
data supp&sdtm.;set sdtm.supp&sdtm.;&sdtm.seq=input(idvarval,best.);run;
proc sort data=supp&sdtm.;by usubjid &sdtm.seq;quit;
proc transpose data=supp&sdtm. out=supp&sdtm.(drop=_:);
by usubjid &sdtm.seq;
id qnam;
idlabel qlabel;
var qval;
quit;
*merge supp;
data &sdtm.;set sdtm.&sdtm;%if %upcase(&sdtm.)=DM %then %do; &sdtm.seq=.;%end;run;
proc sort data=sdtm.&sdtm out=&sdtm;by usubjid &sdtm.seq;run;
data &sdtm.;
merge &sdtm. supp&sdtm.(where=(usubjid ne ''));
by usubjid &sdtm.seq;
run;
%mend merge_supp;
%merge_supp(sdtm=ae);



雷达卡


京公网安备 11010802022788号







