filename sheet1 dde "excel|sheet1!r7c1:r155c60" notab; libname sd2 'e:\tempsas\sd2\prepared'; data sd2.pt_checklist; infile sheet1 missover dlm='09'x dsd; input id : $10. hosp : $10. carer : 1. ward : $10. postcode : 4. Q13 : date9. checklist: 1. Q14 : 1. Q15 : date9. reason : $10. Q17 : date9. Q18 : 4. Q21 : 1. Q22 : 1. Q23 : 1. Q24 : 1. Q25 : 1. Q26 : 1. Q27 : 1. Q31 : 1. Q31a : 1. Q32 : 1. Q32a : 1. Q33 : 1. Q41 : 1. Q42 : 1. Q43tran : 1. Q43meds : 1. Q43DK : 1. Q43oth : 1. Q51 : 1. Q52 : 1. Q53 : 1. Q54 : 1. Q55 : 1. Q56 : 1. Q61GP : 2. Q61PT : 2. Q61OT : 2. Q61DC : 2. Q61DN : 2. Q61ED : 2. Q61SP : 2. Q61Ch : 2. Q61MOW : 2. Q61OthHP : 2. Q62mods : 1. Q62shop : 1. Q62clean : 1. Q62oth : 1. Q63 : 1. Q63taxi : 6. Q63shop : 6. Q63chmst : 6. Q63oth : 6. Q63pet : 6. Q63gap : 6. Q63PH : 6. Q64elect : 1. Q71 : 1. Q81 : $10. Q82 : 1. Q83 : 2. Q84 : 1. ; run; data temp11; set sd2.pt_checklist; **Process domains; **Domain 1 information on support structures; dom1raw=Q25+Q26+Q27+Q31+Q32; dom1=(dom1raw/8)*100; if (Q26 ne 9) or (Q27 ne 9); proc sort; by id; run; data temp12; set sd2.pt_checklist; **Domain 2 medication management; dom2raw=Q21+Q22+Q23; dom2=(dom2raw/5)*100; if (Q21 ne 9) or (Q22 ne 9) or (Q23 ne 9); proc sort; by id; run; data temp13; set sd2.pt_checklist; **Domain 3 information on community management; dom3raw=Q33+Q51; dom3=(dom3raw/2)*100; proc sort; by id; run; data temp14; set sd2.pt_checklist; **Domain 4 control of circumstances; dom4raw=Q41+Q42; dom4=(dom4raw/3)*100; proc sort; by id; run; data temp15; merge temp11 temp12 temp13 temp14; by id; **total process domain; totdomraw=dom1raw+dom2raw+dom3raw+dom4raw; totdom=(totdomraw/18)*100; proc sort; by id; run; data temp16; set sd2.pt_checklist; **Outcome; outcomraw=Q51+Q53+Q55+Q56; outcome=(outcomraw/4)*100; proc sort; by id; run; data temp17; set sd2.pt_checklist; **overall prepared is Q71; **serviceuse; servuse=Q61GP+Q61PT+Q61OT+Q61DC+Q61DN+Q61ED+Q61SP+Q61Ch+Q61MOW+Q61OthHP; **costs; costs=Q63taxi+Q63shop+Q63chmst+Q63oth+Q63pet+Q63gap+Q63PH; proc sort; by id; run; data temp17; merge temp15 temp16 temp17; by id; run; proc sort; by hosp; proc means; var dom1 dom2 dom3 dom4 totdom outcome Q71 servuse costs; proc means; by hosp; var dom1 dom2 dom3 dom4 totdom outcome Q71 servuse costs; proc freq; tables hosp*checklist; proc sort; by checklist; proc means; by checklist; var dom1 dom2 dom3 dom4 totdom outcome Q71 servuse costs; proc ttest; class checklist; var dom1 dom2 dom3 dom4 totdom outcome Q71 servuse costs; run; data temp17a; set temp17; where hosp='flinders'; title 'hospital=flinders'; proc sort; by checklist; proc means; by checklist; var dom1 dom2 dom3 dom4 totdom outcome Q71 servuse costs; proc ttest; class checklist; var dom1 dom2 dom3 dom4 totdom outcome Q71 servuse costs; run; data temp17b; set temp17; where hosp='LMHS'; title 'hospital=LMHS'; proc sort; by checklist; proc means; by checklist; var dom1 dom2 dom3 dom4 totdom outcome Q71 servuse costs; proc ttest; class checklist; var dom1 dom2 dom3 dom4 totdom outcome Q71 servuse costs; run; data temp17c; set temp17; where hosp='RAH'; title 'hospital=RAH'; proc sort; by checklist; proc means; by checklist; var dom1 dom2 dom3 dom4 totdom outcome Q71 servuse costs; proc ttest; class checklist; var dom1 dom2 dom3 dom4 totdom outcome Q71 servuse costs; run; data temp20; set sd2.pt_checklist; proc freq; tables hosp ward postcode Q14 Q18; proc sort; by hosp; proc freq; tables hosp*Q18; proc freq; tables hosp*Q21; proc freq; tables hosp*Q22; proc freq; tables hosp*Q23; proc freq; tables hosp*Q24; proc freq; tables hosp*Q25; proc freq; tables hosp*Q26; proc freq; tables hosp*Q27; proc freq; tables hosp*Q31; proc freq; tables hosp*Q31a; proc freq; tables hosp*Q32; proc freq; tables hosp*Q32a; proc freq; tables hosp*Q33; proc freq; tables hosp*Q41; proc freq; tables hosp*Q42; proc freq; tables hosp*Q43tran; proc freq; tables hosp*Q43meds; proc freq; tables hosp*Q43DK; proc freq; tables hosp*Q43oth; proc freq; tables hosp*Q51; proc freq; tables hosp*Q52; proc freq; tables hosp*Q53; proc freq; tables hosp*Q54; proc freq; tables hosp*Q55; proc freq; tables hosp*Q56; proc freq; tables hosp*Q61GP; proc freq; tables hosp*Q61PT; proc freq; tables hosp*Q61OT; proc freq; tables hosp*Q61DC; proc freq; tables hosp*Q61DN; proc freq; tables hosp*Q61ED; proc freq; tables hosp*Q61SP; proc freq; tables hosp*Q61Ch; proc freq; tables hosp*Q61MOW; proc freq; tables hosp*Q61OthHP; proc freq; tables hosp*Q62mods; proc freq; tables hosp*Q62shop; proc freq; tables hosp*Q62clean; proc freq; tables hosp*Q62oth; proc freq; tables hosp*Q63; proc freq; tables hosp*Q63taxi; proc freq; tables hosp*Q63shop; proc freq; tables hosp*Q63chmst; proc freq; tables hosp*Q63oth; proc freq; tables hosp*Q63pet; proc freq; tables hosp*Q63gap; proc freq; tables hosp*Q63PH; proc freq; tables hosp*Q64elect; proc freq; tables hosp*Q71; run;