需要实现的场景，cd48指标连续两次测量结果为阳性才诊断为阳性，且在基线检查时不能为阳性

*step1:cd48=1表示第一次的值小于1;

data temp;
    set temp;
    by pid;
    if first.pid=1 and .<cd48<1 then
        cd48x=1;
run;
proc sort;
    by pid cd4_date;
run;

*step2 产生两次检查的时间差

data temp1;
    set temp;
    by pid;
    *if first.pid^=1 then datedif=dif(cd4_date);
    datedif=dif(cd4_date)/12;
    format datedif 7.3;

    if first.pid=1 then
        datedif=.;
run;

*step3 对cd48g赋值;

data temp2;
    set temp1;
    by pid;

    if (first.pid^=1 and cd48>=1) then
        cd48g=1;
    else if ( first.pid^=1 and .<cd48<1) then
        cd48g=0;
run;

*使用lag函数进行累加，连续两次为阳性则累加值=2，及两次检查为阳性患者；

data temp3;
    set temp2;
    cd48g_lag=lag(cd48g);

    if first.pid＝1 then cd48g_lag=.;
run;
data temp4;
    set temp3;
    sum=cd48g+cd48g_lag;
run;

*最后再需要对 阳性和阴性人群分别生成数据库，去重、排序，设定随访终点（阳性者为最早出现阳性的时间，阴性为最后一次随访检测时间）

Done！