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