*-------------------- 时 间 及 体 温 整 理 -----------------;       
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);