*求最后一次产检的孕周;

                %letchkweek= chk_week1-chk_week20;

                arrayarr_y{*} &chkweek;

                y_max=max(ofarr_y(*));

                doi=1 to dim(arr_y);

       y_last=ifn(missing(arr_y(i)),y_last,arr_y(i));

       y_mis=ifn(i gt 1 and missing(arr_y(i)),min(i,y_mis),y_mis);

   end;

   y_mis=arr_y(y_mis-1);

                diff=y_max-y_last;

                ifdiff^=0 then delete;

                labely_last='最后一次产检的孕周';

*求最后一次产检的--体重;

                %letwght_g= wght1-wght20;

                arrayarr_w{*} &wght_g;

                wght_g_max=max(ofarr_w(*));

                doi=1 to dim(arr_w);

       wght_g_last=ifn(missing(arr_w(i)),wght_g_last,arr_w(i));

       wght_g_mis=ifn(i gt 1 andmissing(arr_w(i)),min(i,wght_g_mis),wght_g_mis);

   end;

   wght_g_mis=arr_w(wght_g_mis-1);

                labelwght_g_last='最后一次记录的产检体重';