🔄 数据重塑

/* 长→宽：一步完成，无需中间数据集 */
proc sql;
    create table final as
    select
        USUBJID,
        VISITNUM,
        EGTPTNUM,
        max(case when PARAMCD = "HR"   then AVALC else "" end) as HR,
        max(case when PARAMCD = "PR"   then AVALC else "" end) as PR,
        max(case when PARAMCD = "RR"   then AVALC else "" end) as RR,
        max(case when PARAMCD = "QRS"  then AVALC else "" end) as QRS,
        max(case when PARAMCD = "QT"   then AVALC else "" end) as QT,
        max(case when PARAMCD = "QTCF" then AVALC else "" end) as QTCF,
        max(case when PARAMCD = "INTP" then AVALC else "" end) as INTP,
        max(case when PARAMCD = "INTP" then EGDESC else "" end) as EGDESC1
    from ADAM.ADEG
    group by USUBJID, VISITNUM, EGTPTNUM;
quit;

/* SUPPDA → 主域DA：SQL替代TRANSPOSE+MERGE */
data SUPPDA;
    set SDTM.SUPPDA;
    DASEQ = input(IDVARVAL, best.);  /* IDVARVAL转数值用于join */
run;

proc sql;
    create table DA1 as
    select A.*,
        B.QVAL as DAIPBSA,
        C.QVAL as IPNUM,
        D.QVAL as DACOM,
        E.QVAL as IPCNCOM
    from SDTM.DA as A
    left join SUPPDA(where=(QNAM="DAIPBSA"))  B
        on A.USUBJID = B.USUBJID and A.DASEQ = B.DASEQ
    left join SUPPDA(where=(QNAM="IPNUM"))    C
        on A.USUBJID = C.USUBJID and A.DASEQ = C.DASEQ
    left join SUPPDA(where=(QNAM="DACOM"))    D
        on A.USUBJID = D.USUBJID and A.DASEQ = D.DASEQ
    left join SUPPDA(where=(QNAM="IPCNCOM")) E
        on A.USUBJID = E.USUBJID and A.DASEQ = E.DASEQ;
quit;

/* 宽→长：分析集flag展开为Listing行 */
data FINAL;
    length COL1-COL5 $200;
    set ADSL;

    COL1 = strip(substr(SPART,1,2)) || '/' || strip(compress(TRT01P));
    COL2 = SUBJID;

    array _FL{5} $ SAFFL EFFFL DLTSFL PKSFL PDSFL;
    array _REASONS{5} $ SAFREAS EFFREAS DLTSREAS PKSREAS PDSREAS;
    array _SETS{5} $200 _temporary_ (
        "安全分析集" "疗效分析集" "DLT可评价分析集"
        "PK分析集" "PD分析集"
    );

    do I = 1 to dim(_FL);
        COL3 = _SETS{I};
        if _FL{I} = "N" then do;
            COL4 = "是";
            COL5 = _REASONS{I};
            output;    /* 每条flag生成一行 */
        end;
    end;
    drop I;
run;