********************************************************************; * 6/30/2010: with thanks to Brett Larive of the Cleveland *; * Clinic for bringing to our attention a problem with the *; * RAND-HSI scoring. IMPUTEd value needed to be rounded *; * in order for sums that fell on boundaries to be *; * classified properly. *; * *; * For example, in this situation: *; * *; * i3 i4 i5 i6 i7 i8 i9 i10 i11 i12 *; * 3 1 3 2 3 1 . 3 3 3 *; * *; * we get: *; * NEW3 100 *; * NEW4 21 *; * NEW5 50 *; * NEW6 50 *; * NEW7 44 *; * NEW8 22 *; * NEW9 44.1111 *; * NEW10 51 *; * NEW11 35 *; * NEW12 24 *; * MISS 1 *; * IMPUTE 44.1111 *; * PHYFUN 441.111 *; * *; * but 441.111 does not get classified properly: *; * *; * IF 433<=PHYFUN<=441 then TPF=43; *; * IF 442<=PHYFUN<=450 then TPF=44; *; * *; * The updated code now rounds the value to the nearest integer *; * so that the classification can take place. *; * *; ********************************************************************; data randhsi(keep=id tphc tmhc tghc); set main(keep=id i1 i3-i36); by id; *****************************************************************; *** CREATING RAND-36 HSI SCORES; ********************************; *****************************************************************; IF I1=1 THEN NEW1=100; ELSE IF I1=2 THEN NEW1= 79; ELSE IF I1=3 THEN NEW1= 46; ELSE IF I1=4 THEN NEW1= 18; ELSE IF I1=5 THEN NEW1= 0; IF I3=1 THEN NEW3= 50; ELSE IF I3=2 THEN NEW3= 76; ELSE IF I3=3 THEN NEW3=100; IF I4=1 THEN NEW4=21; ELSE IF I4=2 THEN NEW4=38; ELSE IF I4=3 THEN NEW4=56; IF I5=1 THEN NEW5=17; ELSE IF I5=2 THEN NEW5=33; ELSE IF I5=3 THEN NEW5=50; IF I6=1 THEN NEW6=28; ELSE IF I6=2 THEN NEW6=50; ELSE IF I6=3 THEN NEW6=72; IF I7=1 THEN NEW7=13; ELSE IF I7=2 THEN NEW7=28; ELSE IF I7=3 THEN NEW7=44; IF I8=1 THEN NEW8=22; ELSE IF I8=2 THEN NEW8=44; ELSE IF I8=3 THEN NEW8=67; IF I9=1 THEN NEW9=31; ELSE IF I9=2 THEN NEW9=47; ELSE IF I9=3 THEN NEW9=65; IF I10=1 THEN NEW10=19; ELSE IF I10=2 THEN NEW10=36; ELSE IF I10=3 THEN NEW10=51; IF I11=1 THEN NEW11= 8; ELSE IF I11=2 THEN NEW11=21; ELSE IF I11=3 THEN NEW11=35; IF I12=1 THEN NEW12= 0; ELSE IF I12=2 THEN NEW12=13; ELSE IF I12=3 THEN NEW12=24; IF I13=1 THEN NEW13= 0; ELSE IF I13=2 THEN NEW13=44; IF I14=1 THEN NEW14= 56; ELSE IF I14=2 THEN NEW14=100; IF I15=1 THEN NEW15=30; ELSE IF I15=2 THEN NEW15=74; IF I16=1 THEN NEW16=26; ELSE IF I16=2 THEN NEW16=70; IF I17=1 THEN NEW17= 0; ELSE IF I17=2 THEN NEW17=41; IF I18=1 THEN NEW18= 59; ELSE IF I18=2 THEN NEW18=100; IF I19=1 THEN NEW19=13; ELSE IF I19=2 THEN NEW19=54; IF I20=1 THEN NEW20=88; ELSE IF I20=2 THEN NEW20=70; ELSE IF I20=3 THEN NEW20=44; ELSE IF I20=4 THEN NEW20=18; ELSE IF I20=5 THEN NEW20= 0; IF I21=1 THEN NEW21=100; ELSE IF I21=2 THEN NEW21= 78; ELSE IF I21=3 THEN NEW21= 51; ELSE IF I21=4 THEN NEW21= 34; ELSE IF I21=5 THEN NEW21= 15; ELSE IF I21=6 THEN NEW21= 6; IF I22=1 THEN NEW22=61; ELSE IF I22=2 THEN NEW22=49; ELSE IF I22=3 THEN NEW22=32; ELSE IF I22=4 THEN NEW22=14; ELSE IF I22=5 THEN NEW22= 0; IF I23=1 THEN NEW23=100; ELSE IF I23=2 THEN NEW23= 76; ELSE IF I23=3 THEN NEW23= 47; ELSE IF I23=4 THEN NEW23= 31; ELSE IF I23=5 THEN NEW23= 16; ELSE IF I23=6 THEN NEW23= 4; IF I24=1 THEN NEW24= 8; ELSE IF I24=2 THEN NEW24=15; ELSE IF I24=3 THEN NEW24=23; ELSE IF I24=4 THEN NEW24=31; ELSE IF I24=5 THEN NEW24=46; ELSE IF I24=6 THEN NEW24=60; IF I25=1 THEN NEW25= 5; ELSE IF I25=2 THEN NEW25=13; ELSE IF I25=3 THEN NEW25=21; ELSE IF I25=4 THEN NEW25=27; ELSE IF I25=5 THEN NEW25=36; ELSE IF I25=6 THEN NEW25=46; IF I26=1 THEN NEW26=100; ELSE IF I26=2 THEN NEW26= 73; ELSE IF I26=3 THEN NEW26= 45; ELSE IF I26=4 THEN NEW26= 32; ELSE IF I26=5 THEN NEW26= 17; ELSE IF I26=6 THEN NEW26= 5; IF I27=1 THEN NEW27=90; ELSE IF I27=2 THEN NEW27=70; ELSE IF I27=3 THEN NEW27=45; ELSE IF I27=4 THEN NEW27=30; ELSE IF I27=5 THEN NEW27=13; ELSE IF I27=6 THEN NEW27= 1; IF I28=1 THEN NEW28= 4; ELSE IF I28=2 THEN NEW28=13; ELSE IF I28=3 THEN NEW28=22; ELSE IF I28=4 THEN NEW28=31; ELSE IF I28=5 THEN NEW28=47; ELSE IF I28=6 THEN NEW28=64; IF I29=1 THEN NEW29= 0; ELSE IF I29=2 THEN NEW29=10; ELSE IF I29=3 THEN NEW29=22; ELSE IF I29=4 THEN NEW29=35; ELSE IF I29=5 THEN NEW29=56; ELSE IF I29=6 THEN NEW29=73; IF I30=1 THEN NEW30=91; ELSE IF I30=2 THEN NEW30=64; ELSE IF I30=3 THEN NEW30=37; ELSE IF I30=4 THEN NEW30=26; ELSE IF I30=5 THEN NEW30=12; ELSE IF I30=6 THEN NEW30= 0; IF I31=1 THEN NEW31= 0; ELSE IF I31=2 THEN NEW31=11; ELSE IF I31=3 THEN NEW31=25; ELSE IF I31=4 THEN NEW31=40; ELSE IF I31=5 THEN NEW31=71; ELSE IF I31=6 THEN NEW31=91; IF I32=1 THEN NEW32= 27; ELSE IF I32=2 THEN NEW32= 38; ELSE IF I32=3 THEN NEW32= 53; ELSE IF I32=4 THEN NEW32= 79; ELSE IF I32=5 THEN NEW32=100; IF I33=1 THEN NEW33=10; ELSE IF I33=2 THEN NEW33=20; ELSE IF I33=3 THEN NEW33=36; ELSE IF I33=4 THEN NEW33=52; ELSE IF I33=5 THEN NEW33=66; IF I34=1 THEN NEW34=89; ELSE IF I34=2 THEN NEW34=67; ELSE IF I34=3 THEN NEW34=46; ELSE IF I34=4 THEN NEW34=33; ELSE IF I34=5 THEN NEW34=21; IF I35=1 THEN NEW35=10; ELSE IF I35=2 THEN NEW35=25; ELSE IF I35=3 THEN NEW35=49; ELSE IF I35=4 THEN NEW35=70; ELSE IF I35=5 THEN NEW35=84; IF I36=1 THEN NEW36=95; ELSE IF I36=2 THEN NEW36=69; ELSE IF I36=3 THEN NEW36=48; ELSE IF I36=4 THEN NEW36=36; ELSE IF I36=5 THEN NEW36=26; *********************************************************; *********************************************************; MISS=NMISS(of I3-I12); IF MISS>1 THEN PHYFUN=.; ELSE IF MISS=0 THEN PHYFUN=SUM(of NEW3-NEW12); ELSE IF MISS=1 THEN DO; IMPUTE=round(MEAN(of NEW3-NEW12),1); IF NEW3<=.Z AND IMPUTE<50 THEN NEW3=50; ELSE IF NEW3<=.Z AND IMPUTE>100 THEN NEW3=100; ELSE IF NEW3<=.Z THEN NEW3=IMPUTE; IF NEW4<=.Z AND IMPUTE<21 THEN NEW4=21; ELSE IF NEW4<=.Z AND IMPUTE>56 THEN NEW4=56; ELSE IF NEW4<=.Z THEN NEW4=IMPUTE; IF NEW5<=.Z AND IMPUTE<17 THEN NEW5=17; ELSE IF NEW5<=.Z AND IMPUTE>50 THEN NEW5=50; ELSE IF NEW5<=.Z THEN NEW5=IMPUTE; IF NEW6<=.Z AND IMPUTE<28 THEN NEW6=28; ELSE IF NEW6<=.Z AND IMPUTE>72 THEN NEW6=72; ELSE IF NEW6<=.Z THEN NEW6=IMPUTE; IF NEW7<=.Z AND IMPUTE<13 THEN NEW7=13; ELSE IF NEW7<=.Z AND IMPUTE>44 THEN NEW7=44; ELSE IF NEW7<=.Z THEN NEW7=IMPUTE; IF NEW8<=.Z AND IMPUTE<22 THEN NEW8=22; ELSE IF NEW8<=.Z AND IMPUTE>67 THEN NEW8=67; ELSE IF NEW8<=.Z THEN NEW8=IMPUTE; IF NEW9<=.Z AND IMPUTE<31 THEN NEW9=31; ELSE IF NEW9<=.Z AND IMPUTE>65 THEN NEW9=65; ELSE IF NEW9<=.Z THEN NEW9=IMPUTE; IF NEW10<=.Z AND IMPUTE<19 THEN NEW10=19; ELSE IF NEW10<=.Z AND IMPUTE>51 THEN NEW10=51; ELSE IF NEW10<=.Z THEN NEW10=IMPUTE; IF NEW11<=.Z AND IMPUTE<8 THEN NEW11=8; ELSE IF NEW11<=.Z AND IMPUTE>35 THEN NEW11=35; ELSE IF NEW11<=.Z THEN NEW11=IMPUTE; IF NEW12<=.Z AND IMPUTE<0 THEN NEW12=0; ELSE IF NEW12<=.Z AND IMPUTE>24 THEN NEW12=24; ELSE IF NEW12<=.Z THEN NEW12=IMPUTE; PHYFUN=SUM(of NEW3-NEW12); END; *********************************************************; MISS=NMISS(of I13-I16); IF MISS>1 THEN ROLEP=.; ELSE IF MISS=0 THEN ROLEP=SUM(of NEW13-NEW16); ELSE IF MISS=1 THEN DO; IMPUTE=round(MEAN(of NEW13-NEW16),1); IF NEW13<=.Z AND IMPUTE<0 THEN NEW13=0; ELSE IF NEW13<=.Z AND IMPUTE>44 THEN NEW13=44; ELSE IF NEW13<=.Z THEN NEW13=IMPUTE; IF NEW14<=.Z AND IMPUTE<56 THEN NEW14=56; ELSE IF NEW14<=.Z AND IMPUTE>100 THEN NEW14=100; ELSE IF NEW14<=.Z THEN NEW14=IMPUTE; IF NEW15<=.Z AND IMPUTE<30 THEN NEW15=30; ELSE IF NEW15<=.Z AND IMPUTE>74 THEN NEW15=74; ELSE IF NEW15<=.Z THEN NEW15=IMPUTE; IF NEW16<=.Z AND IMPUTE<26 THEN NEW16=26; ELSE IF NEW16<=.Z AND IMPUTE>70 THEN NEW16=70; ELSE IF NEW16<=.Z THEN NEW16=IMPUTE; ROLEP=SUM(of NEW13-NEW16); END; *********************************************************; MISS=NMISS(I21,I22); IF MISS>1 THEN PAIN=.; ELSE IF MISS=0 THEN PAIN=SUM(NEW21,NEW22); ELSE IF MISS=1 THEN DO; IMPUTE=round(MEAN(NEW21,NEW22),1); IF NEW21<=.Z AND IMPUTE<6 THEN NEW21=6; ELSE IF NEW21<=.Z AND IMPUTE>100 THEN NEW21=100; ELSE IF NEW21<=.Z THEN NEW21=IMPUTE; IF NEW22<=.Z AND IMPUTE<0 THEN NEW22=0; ELSE IF NEW22<=.Z AND IMPUTE>61 THEN NEW22=61; ELSE IF NEW22<=.Z THEN NEW22=IMPUTE; PAIN=SUM(NEW21,NEW22); END; *********************************************************; MISS=NMISS(of I1 I33-I36); IF MISS>1 THEN GENH=.; ELSE IF MISS=0 THEN GENH=SUM(of NEW1 NEW33-NEW36); ELSE IF MISS=1 THEN DO; IMPUTE=round(MEAN(of NEW1 NEW33-NEW36),1); IF NEW1<=.Z AND IMPUTE<0 THEN NEW1=0; ELSE IF NEW1<=.Z AND IMPUTE>100 THEN NEW1=100; ELSE IF NEW1<=.Z THEN NEW1=IMPUTE; IF NEW33<=.Z AND IMPUTE<10 THEN NEW33=10; ELSE IF NEW33<=.Z AND IMPUTE>66 THEN NEW33=66; ELSE IF NEW33<=.Z THEN NEW33=IMPUTE; IF NEW34<=.Z AND IMPUTE<21 THEN NEW34=21; ELSE IF NEW34<=.Z AND IMPUTE>89 THEN NEW34=89; ELSE IF NEW34<=.Z THEN NEW34=IMPUTE; IF NEW35<=.Z AND IMPUTE<10 THEN NEW35=10; ELSE IF NEW35<=.Z AND IMPUTE>84 THEN NEW35=84; ELSE IF NEW35<=.Z THEN NEW35=IMPUTE; IF NEW36<=.Z AND IMPUTE<26 THEN NEW36=26; ELSE IF NEW36<=.Z AND IMPUTE>95 THEN NEW36=95; ELSE IF NEW36<=.Z THEN NEW36=IMPUTE; GENH=SUM(of NEW1 NEW33-NEW36); END; *********************************************************; MISS=NMISS(of I24-I26 I28 I30); IF MISS>1 THEN EMOT=.; ELSE IF MISS=0 THEN EMOT=SUM(of NEW24-NEW26 NEW28 NEW30); ELSE IF MISS=1 THEN DO; IMPUTE=round(MEAN(of NEW24-NEW26 NEW28 NEW30),1); IF NEW24<=.Z AND IMPUTE<8 THEN NEW24=8; ELSE IF NEW24<=.Z AND IMPUTE>60 THEN NEW24=60; ELSE IF NEW24<=.Z THEN NEW24=IMPUTE; IF NEW25<=.Z AND IMPUTE<5 THEN NEW25=5; ELSE IF NEW25<=.Z AND IMPUTE>46 THEN NEW25=46; ELSE IF NEW25<=.Z THEN NEW25=IMPUTE; IF NEW26<=.Z AND IMPUTE<5 THEN NEW26=5; ELSE IF NEW26<=.Z AND IMPUTE>100 THEN NEW26=100; ELSE IF NEW26<=.Z THEN NEW26=IMPUTE; IF NEW28<=.Z AND IMPUTE<4 THEN NEW28=4; ELSE IF NEW28<=.Z AND IMPUTE>64 THEN NEW28=64; ELSE IF NEW28<=.Z THEN NEW28=IMPUTE; IF NEW30<=.Z AND IMPUTE<0 THEN NEW30=0; ELSE IF NEW30<=.Z AND IMPUTE>91 THEN NEW30=91; ELSE IF NEW30<=.Z THEN NEW30=IMPUTE; EMOT=SUM(of NEW24-NEW26 NEW28 NEW30); END; *********************************************************; MISS=NMISS(of I17-I19); IF MISS>1 THEN ROLEE=.; ELSE IF MISS=0 THEN ROLEE=SUM(of NEW17-NEW19); ELSE IF MISS=1 THEN DO; IMPUTE=round(MEAN(of NEW17-NEW19),1); IF NEW17<=.Z AND IMPUTE<0 THEN NEW17=0; ELSE IF NEW17<=.Z AND IMPUTE>41 THEN NEW17=41; ELSE IF NEW17<=.Z THEN NEW17=IMPUTE; IF NEW18<=.Z AND IMPUTE<59 THEN NEW18=59; ELSE IF NEW18<=.Z AND IMPUTE>100 THEN NEW18=100; ELSE IF NEW18<=.Z THEN NEW18=IMPUTE; IF NEW19<=.Z AND IMPUTE<13 THEN NEW19=13; ELSE IF NEW19<=.Z AND IMPUTE>54 THEN NEW19=54; ELSE IF NEW19<=.Z THEN NEW19=IMPUTE; ROLEE=SUM(of NEW17-NEW19); END; *********************************************************; MISS=NMISS(I20,I32); IF MISS>1 THEN SOCFUN=.; ELSE IF MISS=0 THEN SOCFUN=SUM(NEW20,NEW32); ELSE IF MISS=1 THEN DO; IMPUTE=round(MEAN(NEW20,NEW32),1); IF NEW20<=.Z AND IMPUTE<0 THEN NEW20=0; ELSE IF NEW20<=.Z AND IMPUTE>88 THEN NEW20=88; ELSE IF NEW20<=.Z THEN NEW20=IMPUTE; IF NEW32<=.Z AND IMPUTE<27 THEN NEW32=27; ELSE IF NEW32<=.Z AND IMPUTE>100 THEN NEW32=100; ELSE IF NEW32<=.Z THEN NEW32=IMPUTE; SOCFUN=SUM(NEW20,NEW32); END; *********************************************************; MISS=NMISS(I23,I27,I29,I31); IF MISS>1 THEN ENFAT=.; ELSE IF MISS=0 THEN ENFAT=SUM(NEW23,NEW27,NEW29,NEW31); ELSE IF MISS=1 THEN DO; IMPUTE=round(MEAN(NEW23,NEW27,NEW29,NEW31),1); IF NEW23<=.Z AND IMPUTE<4 THEN NEW23=4; ELSE IF NEW23<=.Z AND IMPUTE>100 THEN NEW23=100; ELSE IF NEW23<=.Z THEN NEW23=IMPUTE; IF NEW27<=.Z AND IMPUTE<1 THEN NEW27=1; ELSE IF NEW27<=.Z AND IMPUTE>90 THEN NEW27=90; ELSE IF NEW27<=.Z THEN NEW27=IMPUTE; IF NEW29<=.Z AND IMPUTE<0 THEN NEW29=0; ELSE IF NEW29<=.Z AND IMPUTE>73 THEN NEW29=73; ELSE IF NEW29<=.Z THEN NEW29=IMPUTE; IF NEW31<=.Z AND IMPUTE<0 THEN NEW31=0; ELSE IF NEW31<=.Z AND IMPUTE>91 THEN NEW31=91; ELSE IF NEW31<=.Z THEN NEW31=IMPUTE; ENFAT=SUM(NEW23,NEW27,NEW29,NEW31); END; ****************************************************; * Assign T-scores for scales; ****************************************************; IF PHYFUN=209 then TPF=16; ELSE IF 210<=PHYFUN<=218 then TPF=17; ELSE IF 219<=PHYFUN<=227 then TPF=18; ELSE IF 228<=PHYFUN<=235 then TPF=19; ELSE IF 236<=PHYFUN<=244 then TPF=20; ELSE IF 245<=PHYFUN<=252 then TPF=21; ELSE IF 253<=PHYFUN<=261 then TPF=22; ELSE IF 262<=PHYFUN<=269 then TPF=23; ELSE IF 270<=PHYFUN<=278 then TPF=24; ELSE IF 279<=PHYFUN<=287 then TPF=25; ELSE IF 288<=PHYFUN<=295 then TPF=26; ELSE IF 296<=PHYFUN<=304 then TPF=27; ELSE IF 305<=PHYFUN<=312 then TPF=28; ELSE IF 313<=PHYFUN<=321 then TPF=29; ELSE IF 322<=PHYFUN<=329 then TPF=30; ELSE IF 330<=PHYFUN<=338 then TPF=31; ELSE IF 339<=PHYFUN<=347 then TPF=32; ELSE IF 348<=PHYFUN<=355 then TPF=33; ELSE IF 356<=PHYFUN<=364 then TPF=34; ELSE IF 365<=PHYFUN<=372 then TPF=35; ELSE IF 373<=PHYFUN<=381 then TPF=36; ELSE IF 382<=PHYFUN<=390 then TPF=37; ELSE IF 391<=PHYFUN<=398 then TPF=38; ELSE IF 399<=PHYFUN<=407 then TPF=39; ELSE IF 408<=PHYFUN<=415 then TPF=40; ELSE IF 416<=PHYFUN<=424 then TPF=41; ELSE IF 425<=PHYFUN<=432 then TPF=42; ELSE IF 433<=PHYFUN<=441 then TPF=43; ELSE IF 442<=PHYFUN<=450 then TPF=44; ELSE IF 451<=PHYFUN<=458 then TPF=45; ELSE IF 459<=PHYFUN<=467 then TPF=46; ELSE IF 468<=PHYFUN<=475 then TPF=47; ELSE IF 476<=PHYFUN<=484 then TPF=48; ELSE IF 485<=PHYFUN<=492 then TPF=49; ELSE IF 493<=PHYFUN<=501 then TPF=50; ELSE IF 502<=PHYFUN<=510 then TPF=51; ELSE IF 511<=PHYFUN<=518 then TPF=52; ELSE IF 519<=PHYFUN<=527 then TPF=53; ELSE IF 528<=PHYFUN<=535 then TPF=54; ELSE IF 536<=PHYFUN<=544 then TPF=55; ELSE IF 545<=PHYFUN<=553 then TPF=56; ELSE IF 554<=PHYFUN<=561 then TPF=57; ELSE IF 562<=PHYFUN<=564 then TPF=58; IF 112<=ROLEP<=117 then TRLP=26; ELSE IF 118<=ROLEP<=123 then TRLP=27; ELSE IF 124<=ROLEP<=129 then TRLP=28; ELSE IF 130<=ROLEP<=135 then TRLP=29; ELSE IF 136<=ROLEP<=141 then TRLP=30; ELSE IF 142<=ROLEP<=147 then TRLP=31; ELSE IF 148<=ROLEP<=153 then TRLP=32; ELSE IF 154<=ROLEP<=158 then TRLP=33; ELSE IF 159<=ROLEP<=164 then TRLP=34; ELSE IF 165<=ROLEP<=170 then TRLP=35; ELSE IF 171<=ROLEP<=176 then TRLP=36; ELSE IF 177<=ROLEP<=182 then TRLP=37; ELSE IF 183<=ROLEP<=188 then TRLP=38; ELSE IF 189<=ROLEP<=194 then TRLP=39; ELSE IF 195<=ROLEP<=199 then TRLP=40; ELSE IF 200<=ROLEP<=205 then TRLP=41; ELSE IF 206<=ROLEP<=211 then TRLP=42; ELSE IF 212<=ROLEP<=217 then TRLP=43; ELSE IF 218<=ROLEP<=223 then TRLP=44; ELSE IF 224<=ROLEP<=229 then TRLP=45; ELSE IF 230<=ROLEP<=235 then TRLP=46; ELSE IF 236<=ROLEP<=240 then TRLP=47; ELSE IF 241<=ROLEP<=246 then TRLP=48; ELSE IF 247<=ROLEP<=252 then TRLP=49; ELSE IF 253<=ROLEP<=258 then TRLP=50; ELSE IF 259<=ROLEP<=264 then TRLP=51; ELSE IF 265<=ROLEP<=270 then TRLP=52; ELSE IF 271<=ROLEP<=276 then TRLP=53; ELSE IF 277<=ROLEP<=281 then TRLP=54; ELSE IF 282<=ROLEP<=287 then TRLP=55; ELSE IF ROLEP=288 then TRLP=56; IF 6<=PAIN<=9 then TPA=20; ELSE IF 10<=PAIN<=13 then TPA=21; ELSE IF 14<=PAIN<=17 then TPA=22; ELSE IF 18<=PAIN<=21 then TPA=23; ELSE IF 22<=PAIN<=25 then TPA=24; ELSE IF 26<=PAIN<=28 then TPA=25; ELSE IF 29<=PAIN<=32 then TPA=26; ELSE IF 33<=PAIN<=36 then TPA=27; ELSE IF 37<=PAIN<=40 then TPA=28; ELSE IF 41<=PAIN<=44 then TPA=29; ELSE IF 45<=PAIN<=48 then TPA=30; ELSE IF 49<=PAIN<=52 then TPA=31; ELSE IF 53<=PAIN<=55 then TPA=32; ELSE IF 56<=PAIN<=59 then TPA=33; ELSE IF 60<=PAIN<=63 then TPA=34; ELSE IF 64<=PAIN<=67 then TPA=35; ELSE IF 68<=PAIN<=71 then TPA=36; ELSE IF 72<=PAIN<=75 then TPA=37; ELSE IF 76<=PAIN<=79 then TPA=38; ELSE IF 80<=PAIN<=82 then TPA=39; ELSE IF 83<=PAIN<=86 then TPA=40; ELSE IF 87<=PAIN<=90 then TPA=41; ELSE IF 91<=PAIN<=94 then TPA=42; ELSE IF 95<=PAIN<=98 then TPA=43; ELSE IF 99<=PAIN<=102 then TPA=44; ELSE IF 103<=PAIN<=106 then TPA=45; ELSE IF 107<=PAIN<=110 then TPA=46; ELSE IF 111<=PAIN<=113 then TPA=47; ELSE IF 114<=PAIN<=117 then TPA=48; ELSE IF 118<=PAIN<=121 then TPA=49; ELSE IF 122<=PAIN<=125 then TPA=50; ELSE IF 126<=PAIN<=129 then TPA=51; ELSE IF 130<=PAIN<=133 then TPA=52; ELSE IF 134<=PAIN<=137 then TPA=53; ELSE IF 138<=PAIN<=140 then TPA=54; ELSE IF 141<=PAIN<=144 then TPA=55; ELSE IF 145<=PAIN<=148 then TPA=56; ELSE IF 149<=PAIN<=152 then TPA=57; ELSE IF 153<=PAIN<=156 then TPA=58; ELSE IF 157<=PAIN<=160 then TPA=59; ELSE IF PAIN=161 then TPA=60; IF 67<=GENH<=74 then TGHP=20; ELSE IF 75<=GENH<=83 then TGHP=21; ELSE IF 84<=GENH<=91 then TGHP=22; ELSE IF 92<=GENH<=99 then TGHP=23; ELSE IF 100<=GENH<=108 then TGHP=24; ELSE IF 109<=GENH<=116 then TGHP=25; ELSE IF 117<=GENH<=124 then TGHP=26; ELSE IF 125<=GENH<=132 then TGHP=27; ELSE IF 133<=GENH<=141 then TGHP=28; ELSE IF 142<=GENH<=149 then TGHP=29; ELSE IF 150<=GENH<=157 then TGHP=30; ELSE IF 158<=GENH<=166 then TGHP=31; ELSE IF 167<=GENH<=174 then TGHP=32; ELSE IF 175<=GENH<=182 then TGHP=33; ELSE IF 183<=GENH<=190 then TGHP=34; ELSE IF 191<=GENH<=199 then TGHP=35; ELSE IF 200<=GENH<=207 then TGHP=36; ELSE IF 208<=GENH<=215 then TGHP=37; ELSE IF 216<=GENH<=223 then TGHP=38; ELSE IF 224<=GENH<=232 then TGHP=39; ELSE IF 233<=GENH<=240 then TGHP=40; ELSE IF 241<=GENH<=248 then TGHP=41; ELSE IF 249<=GENH<=257 then TGHP=42; ELSE IF 258<=GENH<=265 then TGHP=43; ELSE IF 266<=GENH<=273 then TGHP=44; ELSE IF 274<=GENH<=281 then TGHP=45; ELSE IF 282<=GENH<=290 then TGHP=46; ELSE IF 291<=GENH<=298 then TGHP=47; ELSE IF 299<=GENH<=306 then TGHP=48; ELSE IF 307<=GENH<=315 then TGHP=49; ELSE IF 316<=GENH<=323 then TGHP=50; ELSE IF 324<=GENH<=331 then TGHP=51; ELSE IF 332<=GENH<=339 then TGHP=52; ELSE IF 340<=GENH<=348 then TGHP=53; ELSE IF 349<=GENH<=356 then TGHP=54; ELSE IF 357<=GENH<=364 then TGHP=55; ELSE IF 365<=GENH<=373 then TGHP=56; ELSE IF 374<=GENH<=381 then TGHP=57; ELSE IF 382<=GENH<=389 then TGHP=58; ELSE IF 390<=GENH<=397 then TGHP=59; ELSE IF 398<=GENH<=406 then TGHP=60; ELSE IF 407<=GENH<=414 then TGHP=61; ELSE IF 415<=GENH<=422 then TGHP=62; ELSE IF 423<=GENH<=431 then TGHP=63; ELSE IF 432<=GENH<=434 then TGHP=64; IF 22<=EMOT<=27 then TEWB=16; ELSE IF 28<=EMOT<=34 then TEWB=17; ELSE IF 35<=EMOT<=41 then TEWB=18; ELSE IF 42<=EMOT<=47 then TEWB=19; ELSE IF 48<=EMOT<=54 then TEWB=20; ELSE IF 55<=EMOT<=61 then TEWB=21; ELSE IF 62<=EMOT<=67 then TEWB=22; ELSE IF 68<=EMOT<=74 then TEWB=23; ELSE IF 75<=EMOT<=81 then TEWB=24; ELSE IF 82<=EMOT<=87 then TEWB=25; ELSE IF 88<=EMOT<=94 then TEWB=26; ELSE IF 95<=EMOT<=101 then TEWB=27; ELSE IF 102<=EMOT<=108 then TEWB=28; ELSE IF 109<=EMOT<=114 then TEWB=29; ELSE IF 115<=EMOT<=121 then TEWB=30; ELSE IF 122<=EMOT<=128 then TEWB=31; ELSE IF 129<=EMOT<=134 then TEWB=32; ELSE IF 135<=EMOT<=141 then TEWB=33; ELSE IF 142<=EMOT<=148 then TEWB=34; ELSE IF 149<=EMOT<=154 then TEWB=35; ELSE IF 155<=EMOT<=161 then TEWB=36; ELSE IF 162<=EMOT<=168 then TEWB=37; ELSE IF 169<=EMOT<=174 then TEWB=38; ELSE IF 175<=EMOT<=181 then TEWB=39; ELSE IF 182<=EMOT<=188 then TEWB=40; ELSE IF 189<=EMOT<=194 then TEWB=41; ELSE IF 195<=EMOT<=201 then TEWB=42; ELSE IF 202<=EMOT<=208 then TEWB=43; ELSE IF 209<=EMOT<=214 then TEWB=44; ELSE IF 215<=EMOT<=221 then TEWB=45; ELSE IF 222<=EMOT<=228 then TEWB=46; ELSE IF 229<=EMOT<=234 then TEWB=47; ELSE IF 235<=EMOT<=241 then TEWB=48; ELSE IF 242<=EMOT<=248 then TEWB=49; ELSE IF 249<=EMOT<=254 then TEWB=50; ELSE IF 255<=EMOT<=261 then TEWB=51; ELSE IF 262<=EMOT<=268 then TEWB=52; ELSE IF 269<=EMOT<=275 then TEWB=53; ELSE IF 276<=EMOT<=281 then TEWB=54; ELSE IF 282<=EMOT<=288 then TEWB=55; ELSE IF 289<=EMOT<=295 then TEWB=56; ELSE IF 296<=EMOT<=301 then TEWB=57; ELSE IF 302<=EMOT<=308 then TEWB=58; ELSE IF 309<=EMOT<=315 then TEWB=59; ELSE IF 316<=EMOT<=321 then TEWB=60; ELSE IF 322<=EMOT<=328 then TEWB=61; ELSE IF 329<=EMOT<=335 then TEWB=62; ELSE IF 336<=EMOT<=341 then TEWB=63; ELSE IF 342<=EMOT<=348 then TEWB=64; ELSE IF 349<=EMOT<=355 then TEWB=65; ELSE IF 356<=EMOT<=361 then TEWB=66; IF 72<=ROLEE<=73 then TRLE=19; ELSE IF 74<=ROLEE<=77 then TRLE=20; ELSE IF 78<=ROLEE<=80 then TRLE=21; ELSE IF 81<=ROLEE<=83 then TRLE=22; ELSE IF 84<=ROLEE<=87 then TRLE=23; ELSE IF 88<=ROLEE<=90 then TRLE=24; ELSE IF 91<=ROLEE<=94 then TRLE=25; ELSE IF 95<=ROLEE<=97 then TRLE=26; ELSE IF 98<=ROLEE<=101 then TRLE=27; ELSE IF 102<=ROLEE<=104 then TRLE=28; ELSE IF 105<=ROLEE<=108 then TRLE=29; ELSE IF 109<=ROLEE<=111 then TRLE=30; ELSE IF 112<=ROLEE<=115 then TRLE=31; ELSE IF 116<=ROLEE<=118 then TRLE=32; ELSE IF 119<=ROLEE<=122 then TRLE=33; ELSE IF 123<=ROLEE<=125 then TRLE=34; ELSE IF 126<=ROLEE<=129 then TRLE=35; ELSE IF 130<=ROLEE<=132 then TRLE=36; ELSE IF 133<=ROLEE<=136 then TRLE=37; ELSE IF 137<=ROLEE<=139 then TRLE=38; ELSE IF 140<=ROLEE<=143 then TRLE=39; ELSE IF 144<=ROLEE<=146 then TRLE=40; ELSE IF 147<=ROLEE<=150 then TRLE=41; ELSE IF 151<=ROLEE<=153 then TRLE=42; ELSE IF 154<=ROLEE<=157 then TRLE=43; ELSE IF 158<=ROLEE<=160 then TRLE=44; ELSE IF 161<=ROLEE<=164 then TRLE=45; ELSE IF 165<=ROLEE<=167 then TRLE=46; ELSE IF 168<=ROLEE<=171 then TRLE=47; ELSE IF 172<=ROLEE<=174 then TRLE=48; ELSE IF 175<=ROLEE<=178 then TRLE=49; ELSE IF 179<=ROLEE<=181 then TRLE=50; ELSE IF 182<=ROLEE<=185 then TRLE=51; ELSE IF 186<=ROLEE<=188 then TRLE=52; ELSE IF 189<=ROLEE<=192 then TRLE=53; ELSE IF 193<=ROLEE<=195 then TRLE=54; IF 27<=SOCFUN<=28 then TSF=12; ELSE IF 29<=SOCFUN<=32 then TSF=13; ELSE IF 33<=SOCFUN<=35 then TSF=14; ELSE IF 36<=SOCFUN<=39 then TSF=15; ELSE IF 40<=SOCFUN<=43 then TSF=16; ELSE IF 44<=SOCFUN<=46 then TSF=17; ELSE IF 47<=SOCFUN<=50 then TSF=18; ELSE IF 51<=SOCFUN<=53 then TSF=19; ELSE IF 54<=SOCFUN<=57 then TSF=20; ELSE IF 58<=SOCFUN<=61 then TSF=21; ELSE IF 62<=SOCFUN<=64 then TSF=22; ELSE IF 65<=SOCFUN<=68 then TSF=23; ELSE IF 69<=SOCFUN<=72 then TSF=24; ELSE IF 73<=SOCFUN<=75 then TSF=25; ELSE IF 76<=SOCFUN<=79 then TSF=26; ELSE IF 80<=SOCFUN<=82 then TSF=27; ELSE IF 83<=SOCFUN<=86 then TSF=28; ELSE IF 87<=SOCFUN<=90 then TSF=29; ELSE IF 91<=SOCFUN<=93 then TSF=30; ELSE IF 94<=SOCFUN<=97 then TSF=31; ELSE IF 98<=SOCFUN<=100 then TSF=32; ELSE IF 101<=SOCFUN<=104 then TSF=33; ELSE IF 105<=SOCFUN<=108 then TSF=34; ELSE IF 109<=SOCFUN<=111 then TSF=35; ELSE IF 112<=SOCFUN<=115 then TSF=36; ELSE IF 116<=SOCFUN<=119 then TSF=37; ELSE IF 120<=SOCFUN<=122 then TSF=38; ELSE IF 123<=SOCFUN<=126 then TSF=39; ELSE IF 127<=SOCFUN<=129 then TSF=40; ELSE IF 130<=SOCFUN<=133 then TSF=41; ELSE IF 134<=SOCFUN<=137 then TSF=42; ELSE IF 138<=SOCFUN<=140 then TSF=43; ELSE IF 141<=SOCFUN<=144 then TSF=44; ELSE IF 145<=SOCFUN<=148 then TSF=45; ELSE IF 149<=SOCFUN<=151 then TSF=46; ELSE IF 152<=SOCFUN<=155 then TSF=47; ELSE IF 156<=SOCFUN<=158 then TSF=48; ELSE IF 159<=SOCFUN<=162 then TSF=49; ELSE IF 163<=SOCFUN<=166 then TSF=50; ELSE IF 167<=SOCFUN<=169 then TSF=51; ELSE IF 170<=SOCFUN<=173 then TSF=52; ELSE IF 174<=SOCFUN<=176 then TSF=53; ELSE IF 177<=SOCFUN<=180 then TSF=54; ELSE IF 181<=SOCFUN<=184 then TSF=55; ELSE IF 185<=SOCFUN<=187 then TSF=56; ELSE IF SOCFUN=188 then TSF=57; IF 5<=ENFAT<=11 then TEF=26; ELSE IF 12<=ENFAT<=18 then TEF=27; ELSE IF 19<=ENFAT<=26 then TEF=28; ELSE IF 27<=ENFAT<=34 then TEF=29; ELSE IF 35<=ENFAT<=42 then TEF=30; ELSE IF 43<=ENFAT<=50 then TEF=31; ELSE IF 51<=ENFAT<=58 then TEF=32; ELSE IF 59<=ENFAT<=66 then TEF=33; ELSE IF 67<=ENFAT<=74 then TEF=34; ELSE IF 75<=ENFAT<=82 then TEF=35; ELSE IF 83<=ENFAT<=90 then TEF=36; ELSE IF 91<=ENFAT<=97 then TEF=37; ELSE IF 98<=ENFAT<=105 then TEF=38; ELSE IF 106<=ENFAT<=113 then TEF=39; ELSE IF 114<=ENFAT<=121 then TEF=40; ELSE IF 122<=ENFAT<=129 then TEF=41; ELSE IF 130<=ENFAT<=137 then TEF=42; ELSE IF 138<=ENFAT<=145 then TEF=43; ELSE IF 146<=ENFAT<=153 then TEF=44; ELSE IF 154<=ENFAT<=161 then TEF=45; ELSE IF 162<=ENFAT<=168 then TEF=46; ELSE IF 169<=ENFAT<=176 then TEF=47; ELSE IF 177<=ENFAT<=184 then TEF=48; ELSE IF 185<=ENFAT<=192 then TEF=49; ELSE IF 193<=ENFAT<=200 then TEF=50; ELSE IF 201<=ENFAT<=208 then TEF=51; ELSE IF 209<=ENFAT<=216 then TEF=52; ELSE IF 217<=ENFAT<=224 then TEF=53; ELSE IF 225<=ENFAT<=232 then TEF=54; ELSE IF 233<=ENFAT<=240 then TEF=55; ELSE IF 241<=ENFAT<=247 then TEF=56; ELSE IF 248<=ENFAT<=255 then TEF=57; ELSE IF 256<=ENFAT<=263 then TEF=58; ELSE IF 264<=ENFAT<=271 then TEF=59; ELSE IF 272<=ENFAT<=279 then TEF=60; ELSE IF 280<=ENFAT<=287 then TEF=61; ELSE IF 288<=ENFAT<=295 then TEF=62; ELSE IF 296<=ENFAT<=303 then TEF=63; ELSE IF 304<=ENFAT<=311 then TEF=64; ELSE IF 312<=ENFAT<=319 then TEF=65; ELSE IF 320<=ENFAT<=326 then TEF=66; ELSE IF 327<=ENFAT<=334 then TEF=67; ELSE IF 335<=ENFAT<=342 then TEF=68; ELSE IF 343<=ENFAT<=350 then TEF=69; ELSE IF 351<=ENFAT<=354 then TEF=70; *******************************************; PPHC = (.2712*TPF) + (.3487*TRLP) + (.2755*TPA) + (.2931*TGHP); MMHC = (.4333*TEWB) + (.1623*TRLE) + (.3112*TSF) + (.3136*TEF); GGHC = (.1103*TPF) + (.1775*TRLP) + (.1446*TPA) + (.1621*TGHP) + (.2651*TEWB) + (.1013*TRLE) + (.2016*TSF) + (.1911*TEF); *********************************************************; PHC=ROUND(PPHC); MHC=ROUND(MMHC); GHC=ROUND(GGHC); *********************************************************; IF 1<=PHC<=25 THEN TPHC=15; ELSE IF PHC>=26 & PHC <=70 THEN TPHC=PHC-10; ELSE IF PHC>=71 THEN TPHC=61; *********************************************************; IF 1<=MHC<=22 THEN TMHC=11; ELSE IF MHC>=23 & MHC <=76 THEN TMHC=MHC-11; ELSE IF MHC>=77 THEN TMHC=66; *************************************; IF 1<=GHC<=26 THEN TGHC=8; ELSE IF GHC >=27 & GHC <=82 THEN TGHC=GHC-18; ELSE IF GHC>=83 THEN TGHC=65; label tphc="Physical health composite t-score"; label tmhc="Mental health composite t-score"; label tghc="Global health composite t-score"; run;