*-------------------- 时 间 及 体 温 整 理 -----------------;
proc sort data=&ds. out=&ds._; by center no; run;
data &ds._(keep=treat center no Temp1-Temp28 TWT1-TWT28 DRUGDT: drugday:);
set &ds.(rename=(
TBDTEMPT1_1-TBDTEMPT1_12=Temp1-Temp12 TBDTEMPT2_1-TBDTEMPT2_4=Temp13-Temp16
TBDTEMPT3_1-TBDTEMPT3_4=Temp17-Temp20 TBDTEMPT4_1-TBDTEMPT4_4=Temp21-Temp24
TBDTEMPT5_1-TBDTEMPT5_4=Temp25-Temp28
));
*--时间格式化;
%do i=1 %to 5;
drugday&i.=mdy(scan(strip(DRUGDT&i.),2,''),scan(strip(DRUGDT&i.),3,''),scan(strip(DRUGDT&i.),1,''));
%end;
*--赋label;
%do i=1 %to 28;
label Temp&i.="第&i.次";
%end;
proc sort;by center no;
run;
data &ds._;
set &ds._;
array twtime[12] TWT1-TWT12;
array tt[12];
do i=1 to 12;
if twtime(i)<twtime1 and twtime(i)^=. then do;
tt(i)=twtime(i)+24;
end;
end;
format drugday1-drugday5 yymmdd10.;
run;
%mend;
%clean_TWJR(fas,tab4_52);