**  SAS CODE for Surgery Dates:    ;
**   This code fixes missing surgical procedure dates: sdat01-sdat12.   ;
|| array op{*} SC01-SC12; 
|| array sdat{*} sdate01-sdate12; 
|| if op01 > '0000' then do; 
|| if sdate01=0 then sdate01=input(dateadm,6.); 
|| end; 
|| do i=2 to 12 while(SC{i}>'0000'); 
|| if sdat{i}=0 then sdat{i}=sdat{i-1}; 
|| end;