YSASFS1 ;ALB/ASF- ASI FACTOR SCORES CONT;10/24/01  11:47
 ;;5.01;MENTAL HEALTH;**71**;Dec 30, 1994
LEGALFS S X=14.02 D NUM^YSASFS S YSL2=N
 S X=14.27 D NUM^YSASFS S YSL22=N
 S X=14.32 D NUM^YSASFS S YSL26=N
 S X=14.33 D NUM^YSASFS S YSL27=N
 ;
 S YSL2=(((YSL2-0.2)/0.4)*3)+10
 S YSL22=(((YSL22-0.1)/0.3)*3)+10
 S YSL26=(((YSL26-0.6)/1.2)*3)+10
 S YSL27=(((YSL27-0.5)/1.2)*3)+10
 S YSFSLG=YSL2+YSL22+YSL26+YSL27+.0000001
LGT ;
 I (YSFSLG>71) S YSTLG=73
 I (YSFSLG>69)&(YSFSLG<71) S YSTLG=70
 I (YSFSLG>66)&(YSFSLG<69) S YSTLG=68
 I (YSFSLG>64)&(YSFSLG<66) S YSTLG=66
 I (YSFSLG>61)&(YSFSLG<64) S YSTLG=65
 I (YSFSLG>58)&(YSFSLG<61) S YSTLG=64
 I (YSFSLG>56)&(YSFSLG<58) S YSTLG=63
 I (YSFSLG>54)&(YSFSLG<56) S YSTLG=62
 I (YSFSLG>53)&(YSFSLG<54) S YSTLG=61
 I (YSFSLG>50)&(YSFSLG<53) S YSTLG=60
 I (YSFSLG>46)&(YSFSLG<50) S YSTLG=59
 I (YSFSLG>45)&(YSFSLG<46) S YSTLG=58
 I (YSFSLG>43)&(YSFSLG<45) S YSTLG=57
 I (YSFSLG>40)&(YSFSLG<43) S YSTLG=55
 I (YSFSLG>38)&(YSFSLG<40) S YSTLG=54
 I YSFSLG<38 S YSTLG=45
 S YSDATA(4)="LEGAL^"_$J(YSFSLG-.0000001,6,2)_U_YSTLG
 ;
PSYFS S X=10.22 D NUM^YSASFS S YSDA13=N
 S X=19.04 D NUM^YSASFS S YSP4=N
 S X=19.06 D NUM^YSASFS S YSP6=N
 S X=19.11 D NUM^YSASFS S YSP10=N
 S X=19.16 D NUM^YSASFS S YSP14=N
 S X=19.21 D NUM^YSASFS S YSP18=N
 S X=19.23 D NUM^YSASFS S YSP20=N
 S X=19.24 D NUM^YSASFS S YSP21=N
 S X=19.25 D NUM^YSASFS S YSP22=N
 ;
 S YSDA13=(((YSDA13-2.6)/7.3)*3+10)
 S YSP4=(((YSP4-.3)/.5)*3)+10
 S YSP6=(((YSP6-.3)/.5)*3)+10
 S YSP10=(((YSP10-.2)/.4)*3)+10
 S YSP14=(((YSP14-.1)/.3)*3)+10
 S YSP18=(((YSP18-.1)/.3)*3)+10
 S YSP20=(((YSP20-7.4)/10.8)*3)+10
 S YSP21=(((YSP21-1.5)/1.7)*3)+10
 S YSP22=(((YSP22-1.5)/1.8)*3)+10
 S YSFSPSY=YSDA13+YSP4+YSP6+YSP10+YSP14+YSP18+YSP20+YSP21+YSP22+.0000001
 ;
PSYT ;
 I (YSFSPSY>138) S YSTPSY=73
 I (YSFSPSY>133)&(YSFSPSY<138) S YSTPSY=70
 I (YSFSPSY>129)&(YSFSPSY<133) S YSTPSY=68
 I (YSFSPSY>127)&(YSFSPSY<129) S YSTPSY=67
 I (YSFSPSY>125)&(YSFSPSY<127) S YSTPSY=66
 I (YSFSPSY>124)&(YSFSPSY<125) S YSTPSY=65
 I (YSFSPSY>120)&(YSFSPSY<124) S YSTPSY=64
 I (YSFSPSY>119)&(YSFSPSY<120) S YSTPSY=63
 I (YSFSPSY>116)&(YSFSPSY<119) S YSTPSY=62
 I (YSFSPSY>114)&(YSFSPSY<116) S YSTPSY=61
 I (YSFSPSY>112)&(YSFSPSY<114) S YSTPSY=60
 I (YSFSPSY>110)&(YSFSPSY<112) S YSTPSY=59
 I (YSFSPSY>107)&(YSFSPSY<110) S YSTPSY=58
 I (YSFSPSY>105)&(YSFSPSY<107) S YSTPSY=57
 I (YSFSPSY>102)&(YSFSPSY<105) S YSTPSY=56
 I (YSFSPSY>100)&(YSFSPSY<102) S YSTPSY=55
 I (YSFSPSY>97)&(YSFSPSY<100) S YSTPSY=54
 I (YSFSPSY>94)&(YSFSPSY<97) S YSTPSY=53
 I (YSFSPSY>91)&(YSFSPSY<94) S YSTPSY=52
 I (YSFSPSY>88)&(YSFSPSY<91) S YSTPSY=51
 I (YSFSPSY>84)&(YSFSPSY<88) S YSTPSY=50
 I (YSFSPSY>80)&(YSFSPSY<84) S YSTPSY=49
 I (YSFSPSY>76)&(YSFSPSY<80) S YSTPSY=48
 I (YSFSPSY>75)&(YSFSPSY<76) S YSTPSY=47
 I (YSFSPSY<75) S YSTPSY=41
 S YSDATA(5)="PSYCHIATRIC^"_$J(YSFSPSY-.0000001,6,2)_U_YSTPSY
 ;
FAMFS ;
 S X=18.03 D NUM^YSASFS S YSFS14=N
 S X=18.09 D NUM^YSASFS S YSFS20=N
 S X=18.23 D NUM^YSASFS S YSFS22=N
 S X=18.23 D NUM^YSASFS S YSFS10=N
 S X=18.01 D NUM^YSASFS S YSFS12=N
 S X=18.05 D NUM^YSASFS S YSFS16=N
 S X=18.07 D NUM^YSASFS S YSFS18=N
 S X=18.25 D NUM^YSASFS S YSFS30=N
 S X=18.27 D NUM^YSASFS S YSFS32=N
 S YSFAM=YSFS14+YSFS20+YSFS22+.0000001
 ;
 S YSFS10=(((YSFS10-2.2)/6.1)*3)+10
 S YSFS12=(((YSFS12-.1)/.3)*3)+10
 S YSFS16=(((YSFS16-.1)/.3)*3)+10
 S YSFS18=(((YSFS18-.2)/.4)*3)+10
 S YSFAM=(((YSFAM-.1)/.4)*3)+10
 S YSFS30=(((YSFS30-1.1)/1.5)*3)+10
 S YSFS32=(((YSFS32-1)/1.5)*3)+10
 ;
 S YSFSFS=YSFS10+YSFS12+YSFS16+YSFS18+YSFAM+YSFS30+YSFS32
 ;
FAMT I YSFSFS>115 S YSTFAM=73
 I (YSFSFS>108)&(YSFSFS<115) S YSTFAM=70
 I (YSFSFS>105)&(YSFSFS<108) S YSTFAM=68
 I (YSFSFS>103)&(YSFSFS<105) S YSTFAM=67
 I (YSFSFS>101)&(YSFSFS<103) S YSTFAM=66
 I (YSFSFS>99)&(YSFSFS<101) S YSTFAM=65
 I (YSFSFS>95)&(YSFSFS<99) S YSTFAM=64
 I (YSFSFS>94)&(YSFSFS<95) S YSTFAM=63
 I (YSFSFS>91)&(YSFSFS<94) S YSTFAM=62
 I (YSFSFS>88)&(YSFSFS<91) S YSTFAM=61
 I (YSFSFS>86)&(YSFSFS<88) S YSTFAM=60
 I (YSFSFS>84)&(YSFSFS<86) S YSTFAM=59
 I (YSFSFS>82)&(YSFSFS<84) S YSTFAM=58
 I (YSFSFS>78)&(YSFSFS<82) S YSTFAM=57
 I (YSFSFS>76)&(YSFSFS<78) S YSTFAM=56
 I (YSFSFS>74)&(YSFSFS<76) S YSTFAM=55
 I (YSFSFS>70)&(YSFSFS<74) S YSTFAM=54
 I (YSFSFS>68)&(YSFSFS<70) S YSTFAM=53
 I (YSFSFS>67)&(YSFSFS<68) S YSTFAM=52
 I (YSFSFS>62)&(YSFSFS<67) S YSTFAM=51
 I (YSFSFS>61)&(YSFSFS<62) S YSTFAM=50
 I (YSFSFS<61) S YSTFAM=43
 S YSDATA(6)="FAMILY/SOCIAL^"_$J(YSFSFS-.0000001,6,2)_U_YSTFAM