如何使用SAS循环将符合条件的诊断码记录转换为标识列

嘿，这个需求我熟，刚好有两种SAS方案能解决，其中一种完全贴合你想要的循环思路，给你详细讲讲：

要实现动态创建诊断码列并按条件赋值，得先拿到所有唯一的诊断码，再循环处理每一个：

步骤1：提取所有唯一诊断码到宏变量 #

先通过PROC SQL把数据里所有不重复的code值捞出来，存到宏变量里，方便后面循环调用：

/* 获取所有唯一诊断码，用引号包裹避免特殊字符问题 */
proc sql noprint;
    select distinct quote(trim(code)) into :code_list separated by ','
    from your_input_data; /* 替换成你的实际输入数据集名 */
quit;

/* 可选：查看宏变量内容，确认是否正确提取了所有code */
%put &code_list.;

步骤2：DATA步循环创建并赋值新列 #

接下来在DATA步里，先初始化所有诊断码列为0，再根据found的值修改对应列：

data desired_output; /* 输出数据集名 */
    set your_input_data;
    /* 循环初始化所有code_*列为0 */
    %do i=1 %to %sysfunc(countw(&code_list.,','));
        %let current_code = %sysfunc(dequote(%scan(&code_list.,&i.,',')));
        code_&current_code. = 0;
    %end;

    /* 当found=1时，把对应诊断码的列设为1 */
    if found = 1 then do;
        code_&code. = 1;
    end;

    /* 只保留id和所有code_开头的列 */
    keep id code_:;
run;

这段代码的逻辑很直白：先给所有诊断码列默认设0，只有当当前行found=1时，才把该行对应的诊断码列改成1，完美匹配你的需求。

如果不是必须要手动写循环，用PROC TRANSPOSE会更高效，代码也更短：

/* 先生成一个临时变量：found=1时为1，否则为0 */
data temp;
    set your_input_data;
    value = ifn(found=1, 1, 0);
run;

/* 转置成宽格式，自动生成code_前缀的列 */
proc transpose data=temp out=desired_output(drop=_name_) prefix=code_;
    by id; /* 按id分组 */
    id code; /* 用code的值作为新列名 */
    var value; /* 把value的值填充到对应列 */
run;

/* 把转置后的缺失值替换为0（因为没有匹配到的行会是缺失） */
data desired_output;
    set desired_output;
    array code_cols[*] code_:; /* 定义数组包含所有code_开头的列 */
    do i=1 to dim(code_cols);
        if code_cols[i] = . then code_cols[i] = 0;
    end;
    drop i;
run;

小提醒 #

如果你的诊断码里有特殊字符（比如空格、小数点），得先处理成合法的SAS变量名，比如用compress(code, ' .')这类函数清理一下，不然生成列的时候会报错。

内容的提问来源于stack exchange，提问作者DOT