**  This SAS code looks at admissions to PCH  ;
data pch ;
   set cpe8.pcsa0102 ;
   where phin ^= '000000000' ;
   if '1' <= levelpad <= '4' ;
run ;

** no missing dates **;
proc sort data = pch ;
   by phin datepad datepaid ;
run ;

** take datepad from first phin and datepaid from last phin **;
data pchadm ;
   set pch ;
   by phin datepad datepaid ;
   if first.phin ;
   keep phin datepad ;
run ;
  
data pchsep ;
   set pch ;
   by phin datepad datepaid ;
   if last.phin ;
   keep phin datepaid levelpad tsepcode ;
run ;
 
data allpch ;
   merge pchadm pchsep ;
   by phin ;
run ; 

data deathlnk ;
   merge allhcmer(in=hsphc)
           allpch(in=a);
   by phin ;
   if hsphc ;
   datpsas=input(datepaid,yymmdd8.); ** sas last date paid*;
   diffpc = deathsas-datpsas; *substr date of death and last date paid pch; 
run;