source: WorldVistAEHR/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSASFS1.m@ 1710

Last change on this file since 1710 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 4.3 KB
Line 
1YSASFS1 ;ALB/ASF- ASI FACTOR SCORES CONT;10/24/01 11:47
2 ;;5.01;MENTAL HEALTH;**71**;Dec 30, 1994
3LEGALFS S X=14.02 D NUM^YSASFS S YSL2=N
4 S X=14.27 D NUM^YSASFS S YSL22=N
5 S X=14.32 D NUM^YSASFS S YSL26=N
6 S X=14.33 D NUM^YSASFS S YSL27=N
7 ;
8 S YSL2=(((YSL2-0.2)/0.4)*3)+10
9 S YSL22=(((YSL22-0.1)/0.3)*3)+10
10 S YSL26=(((YSL26-0.6)/1.2)*3)+10
11 S YSL27=(((YSL27-0.5)/1.2)*3)+10
12 S YSFSLG=YSL2+YSL22+YSL26+YSL27+.0000001
13LGT ;
14 I (YSFSLG>71) S YSTLG=73
15 I (YSFSLG>69)&(YSFSLG<71) S YSTLG=70
16 I (YSFSLG>66)&(YSFSLG<69) S YSTLG=68
17 I (YSFSLG>64)&(YSFSLG<66) S YSTLG=66
18 I (YSFSLG>61)&(YSFSLG<64) S YSTLG=65
19 I (YSFSLG>58)&(YSFSLG<61) S YSTLG=64
20 I (YSFSLG>56)&(YSFSLG<58) S YSTLG=63
21 I (YSFSLG>54)&(YSFSLG<56) S YSTLG=62
22 I (YSFSLG>53)&(YSFSLG<54) S YSTLG=61
23 I (YSFSLG>50)&(YSFSLG<53) S YSTLG=60
24 I (YSFSLG>46)&(YSFSLG<50) S YSTLG=59
25 I (YSFSLG>45)&(YSFSLG<46) S YSTLG=58
26 I (YSFSLG>43)&(YSFSLG<45) S YSTLG=57
27 I (YSFSLG>40)&(YSFSLG<43) S YSTLG=55
28 I (YSFSLG>38)&(YSFSLG<40) S YSTLG=54
29 I YSFSLG<38 S YSTLG=45
30 S YSDATA(4)="LEGAL^"_$J(YSFSLG-.0000001,6,2)_U_YSTLG
31 ;
32PSYFS S X=10.22 D NUM^YSASFS S YSDA13=N
33 S X=19.04 D NUM^YSASFS S YSP4=N
34 S X=19.06 D NUM^YSASFS S YSP6=N
35 S X=19.11 D NUM^YSASFS S YSP10=N
36 S X=19.16 D NUM^YSASFS S YSP14=N
37 S X=19.21 D NUM^YSASFS S YSP18=N
38 S X=19.23 D NUM^YSASFS S YSP20=N
39 S X=19.24 D NUM^YSASFS S YSP21=N
40 S X=19.25 D NUM^YSASFS S YSP22=N
41 ;
42 S YSDA13=(((YSDA13-2.6)/7.3)*3+10)
43 S YSP4=(((YSP4-.3)/.5)*3)+10
44 S YSP6=(((YSP6-.3)/.5)*3)+10
45 S YSP10=(((YSP10-.2)/.4)*3)+10
46 S YSP14=(((YSP14-.1)/.3)*3)+10
47 S YSP18=(((YSP18-.1)/.3)*3)+10
48 S YSP20=(((YSP20-7.4)/10.8)*3)+10
49 S YSP21=(((YSP21-1.5)/1.7)*3)+10
50 S YSP22=(((YSP22-1.5)/1.8)*3)+10
51 S YSFSPSY=YSDA13+YSP4+YSP6+YSP10+YSP14+YSP18+YSP20+YSP21+YSP22+.0000001
52 ;
53PSYT ;
54 I (YSFSPSY>138) S YSTPSY=73
55 I (YSFSPSY>133)&(YSFSPSY<138) S YSTPSY=70
56 I (YSFSPSY>129)&(YSFSPSY<133) S YSTPSY=68
57 I (YSFSPSY>127)&(YSFSPSY<129) S YSTPSY=67
58 I (YSFSPSY>125)&(YSFSPSY<127) S YSTPSY=66
59 I (YSFSPSY>124)&(YSFSPSY<125) S YSTPSY=65
60 I (YSFSPSY>120)&(YSFSPSY<124) S YSTPSY=64
61 I (YSFSPSY>119)&(YSFSPSY<120) S YSTPSY=63
62 I (YSFSPSY>116)&(YSFSPSY<119) S YSTPSY=62
63 I (YSFSPSY>114)&(YSFSPSY<116) S YSTPSY=61
64 I (YSFSPSY>112)&(YSFSPSY<114) S YSTPSY=60
65 I (YSFSPSY>110)&(YSFSPSY<112) S YSTPSY=59
66 I (YSFSPSY>107)&(YSFSPSY<110) S YSTPSY=58
67 I (YSFSPSY>105)&(YSFSPSY<107) S YSTPSY=57
68 I (YSFSPSY>102)&(YSFSPSY<105) S YSTPSY=56
69 I (YSFSPSY>100)&(YSFSPSY<102) S YSTPSY=55
70 I (YSFSPSY>97)&(YSFSPSY<100) S YSTPSY=54
71 I (YSFSPSY>94)&(YSFSPSY<97) S YSTPSY=53
72 I (YSFSPSY>91)&(YSFSPSY<94) S YSTPSY=52
73 I (YSFSPSY>88)&(YSFSPSY<91) S YSTPSY=51
74 I (YSFSPSY>84)&(YSFSPSY<88) S YSTPSY=50
75 I (YSFSPSY>80)&(YSFSPSY<84) S YSTPSY=49
76 I (YSFSPSY>76)&(YSFSPSY<80) S YSTPSY=48
77 I (YSFSPSY>75)&(YSFSPSY<76) S YSTPSY=47
78 I (YSFSPSY<75) S YSTPSY=41
79 S YSDATA(5)="PSYCHIATRIC^"_$J(YSFSPSY-.0000001,6,2)_U_YSTPSY
80 ;
81FAMFS ;
82 S X=18.03 D NUM^YSASFS S YSFS14=N
83 S X=18.09 D NUM^YSASFS S YSFS20=N
84 S X=18.23 D NUM^YSASFS S YSFS22=N
85 S X=18.23 D NUM^YSASFS S YSFS10=N
86 S X=18.01 D NUM^YSASFS S YSFS12=N
87 S X=18.05 D NUM^YSASFS S YSFS16=N
88 S X=18.07 D NUM^YSASFS S YSFS18=N
89 S X=18.25 D NUM^YSASFS S YSFS30=N
90 S X=18.27 D NUM^YSASFS S YSFS32=N
91 S YSFAM=YSFS14+YSFS20+YSFS22+.0000001
92 ;
93 S YSFS10=(((YSFS10-2.2)/6.1)*3)+10
94 S YSFS12=(((YSFS12-.1)/.3)*3)+10
95 S YSFS16=(((YSFS16-.1)/.3)*3)+10
96 S YSFS18=(((YSFS18-.2)/.4)*3)+10
97 S YSFAM=(((YSFAM-.1)/.4)*3)+10
98 S YSFS30=(((YSFS30-1.1)/1.5)*3)+10
99 S YSFS32=(((YSFS32-1)/1.5)*3)+10
100 ;
101 S YSFSFS=YSFS10+YSFS12+YSFS16+YSFS18+YSFAM+YSFS30+YSFS32
102 ;
103FAMT I YSFSFS>115 S YSTFAM=73
104 I (YSFSFS>108)&(YSFSFS<115) S YSTFAM=70
105 I (YSFSFS>105)&(YSFSFS<108) S YSTFAM=68
106 I (YSFSFS>103)&(YSFSFS<105) S YSTFAM=67
107 I (YSFSFS>101)&(YSFSFS<103) S YSTFAM=66
108 I (YSFSFS>99)&(YSFSFS<101) S YSTFAM=65
109 I (YSFSFS>95)&(YSFSFS<99) S YSTFAM=64
110 I (YSFSFS>94)&(YSFSFS<95) S YSTFAM=63
111 I (YSFSFS>91)&(YSFSFS<94) S YSTFAM=62
112 I (YSFSFS>88)&(YSFSFS<91) S YSTFAM=61
113 I (YSFSFS>86)&(YSFSFS<88) S YSTFAM=60
114 I (YSFSFS>84)&(YSFSFS<86) S YSTFAM=59
115 I (YSFSFS>82)&(YSFSFS<84) S YSTFAM=58
116 I (YSFSFS>78)&(YSFSFS<82) S YSTFAM=57
117 I (YSFSFS>76)&(YSFSFS<78) S YSTFAM=56
118 I (YSFSFS>74)&(YSFSFS<76) S YSTFAM=55
119 I (YSFSFS>70)&(YSFSFS<74) S YSTFAM=54
120 I (YSFSFS>68)&(YSFSFS<70) S YSTFAM=53
121 I (YSFSFS>67)&(YSFSFS<68) S YSTFAM=52
122 I (YSFSFS>62)&(YSFSFS<67) S YSTFAM=51
123 I (YSFSFS>61)&(YSFSFS<62) S YSTFAM=50
124 I (YSFSFS<61) S YSTFAM=43
125 S YSDATA(6)="FAMILY/SOCIAL^"_$J(YSFSFS-.0000001,6,2)_U_YSTFAM
Note: See TracBrowser for help on using the repository browser.