source: WorldVistAEHR/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSASFS.m@ 1500

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

initial load of WorldVistAEHR
File size: 4.5 KB
Line 
1YSASFS ;ALB/ASF- ASI FACTOR SCORES ;10/24/01 14:55
2 ;;5.01;MENTAL HEALTH;**71**;Dec 30, 1994
3 Q
4NUM ;
5 S N=$$GET1^DIQ(604,YSIEN,X)
6 S:N="YES" N=1
7 S:N="NO" N=0
8 ; test I N'?1N.N W !,X
9 Q
10EN(YSDATA,YS) ;
11 N X,N,YSDA1,YSDA13,YSDA15,YSDA25,YSDA3,YSDA36,YSDA37,YSDA39,YSDA40,YSDA41,YSDA42,YSDA43,YSDA44,YSDA5,YSE17,YSFAM,YSFS10,YSFS12,YSFS14,YSFS16,YSFS18,YSFS20,YSFS22,YSFS30,YSFS32,YSFSAF,YSFSAL,YSFSDR
12 N YSFSFS,YSFSLG,YSFSPSY,YSIEN,YSL2,YSL22,YSL25,YSL26,YSL27,YSNUM,YSP10,YSP14,YSP18,YSP20,YSP21,YSP22,YSP4,YSP6,YSTALC,YSTDRU,YSTFAM,YSTLG,YSTPSY
13 S YSIEN=$G(YS("IEN"))
14 I YSIEN="" S YSDATA(1)="[ERROR]",YSDATA(2)="NO IEN" Q ;--> OUT
15 I '$D(^YSTX(604,YSIEN)) S YSDATA(1)="[ERROR]",YSDATA(2)="NO SUCH ASI" Q ;--> OUT
16 S YSDATA(1)="[DATA]"
17CHKFILL ;check that All are answered
18 S YSNUM=0
19 F X=10.01,10.22,10.25,10.42,10.04,11.09 Q:YSNUM D NUM
20 F X=11.11,11.14,11.15,11.16,11.17,11.165,11.175 Q:YSNUM D NUM
21 F X=10.07,9.25,18.23,18.05,18.07,18.25,18.27 Q:YSNUM D NUM
22 F X=14.02,14.27,14.31,14.32,14.33,19.11,19.16,19.21,19.23,19.24,19.25,19.04,19.06 Q:YSNUM D NUM
23 I YSNUM S YSDATA(2)=YSNUM_" NOT NUMERIC" Q ;-->OUT
24ALCFS ;alcohol factor
25 S X=10.01 D NUM S YSDA1=N
26 S X=10.04 D NUM S YSDA3=N
27 S X=11.09 D NUM S YSDA36=N
28 S X=11.14 D NUM S YSDA39=N
29 S X=11.16 D NUM S YSDA41=N
30 S X=11.165 D NUM S YSDA43=N
31 ;
32 S YSDA1=(((YSDA1-8.1)/10.4)*3)+10
33 S YSDA3=(((YSDA3-6.2)/9.8)*3)+10
34 S YSDA36=(((YSDA36-42.1)/98)*3)+10
35 S YSDA39=(((YSDA39-4.4)/9.1)*3)+10
36 S YSDA41=(((YSDA41-0.8)/1.4)*3)+10
37 S YSDA43=(((YSDA43-1.1)/1.7)*3)+10
38 S YSFSAL=YSDA1+YSDA3+YSDA36+YSDA39+YSDA41+YSDA43+.0000001
39ALCT I (YSFSAL>101) S YSTALC=73
40 I (YSFSAL>98)&(YSFSAL<101) S YSTALC=70
41 I (YSFSAL>96)&(YSFSAL<98) S YSTALC=68
42 I (YSFSAL>94)&(YSFSAL<96) S YSTALC=67
43 I (YSFSAL>92)&(YSFSAL<94) S YSTALC=66
44 I (YSFSAL>90)&(YSFSAL<92) S YSTALC=65
45 I (YSFSAL>88)&(YSFSAL<90) S YSTALC=64
46 I (YSFSAL>86)&(YSFSAL<88) S YSTALC=63
47 I (YSFSAL>84)&(YSFSAL<86) S YSTALC=62
48 I (YSFSAL>81)&(YSFSAL<84) S YSTALC=61
49 I (YSFSAL>79)&(YSFSAL<81) S YSTALC=60
50 I (YSFSAL>76)&(YSFSAL<79) S YSTALC=59
51 I (YSFSAL>72)&(YSFSAL<76) S YSTALC=58
52 I (YSFSAL>69)&(YSFSAL<72) S YSTALC=57
53 I (YSFSAL>66)&(YSFSAL<69) S YSTALC=56
54 I (YSFSAL>63)&(YSFSAL<66) S YSTALC=55
55 I (YSFSAL>61)&(YSFSAL<63) S YSTALC=54
56 I (YSFSAL>58)&(YSFSAL<61) S YSTALC=53
57 I (YSFSAL>56)&(YSFSAL<58) S YSTALC=52
58 I (YSFSAL>53)&(YSFSAL<56) S YSTALC=51
59 I (YSFSAL>52)&(YSFSAL<53) S YSTALC=50
60 I (YSFSAL>51)&(YSFSAL<52) S YSTALC=49
61 I (YSFSAL>50)&(YSFSAL<51) S YSTALC=46
62 I (YSFSAL<50) S YSTALC=40
63 S YSDATA(2)="ALCOHOL^"_$J(YSFSAL-.0000001,6,2)_U_YSTALC
64DRUGFS ;drug abuse factor
65 S X=9.25 D NUM S YSE17=N
66 S X=10.07 D NUM S YSDA5=N
67 S X=10.25 D NUM S YSDA15=N
68 S X=10.42 D NUM S YSDA25=N
69 S X=11.11 D NUM S YSDA37=N
70 S X=11.15 D NUM S YSDA40=N
71 S X=11.17 D NUM S YSDA42=N
72 S X=11.175 D NUM S YSDA44=N
73 S X=14.31 D NUM S YSL25=N
74 ;
75 S YSE17=(((YSE17-303.9)/1076.1)*3)+10
76 S YSDA5=(((YSDA5-7.2)/11.2)*3)+10
77 S YSDA15=(((YSDA15-7.4)/10.2)*3)+10
78 S YSDA25=(((YSDA25-10.9)/11.5)*3)+10
79 S YSDA37=(((YSDA37-489.8)/863.9)*3)+10
80 S YSDA40=(((YSDA40-12.5)/12.8)*3)+10
81 S YSDA42=(((YSDA42-2.2)/1.7)*3)+10
82 S YSDA44=(((YSDA44-2.7)/1.7)*3)+10
83 S YSL25=(((YSL25-3.9)/8.8)*3)+10
84 ;
85 S YSFSDR=YSE17+YSDA5+YSDA15+YSDA25+YSDA37+YSDA40+YSDA42+YSDA44+YSL25+.0000001
86DRT I YSFSDR>141 S YSTDRU=73
87 I (YSFSDR>135)&(YSFSDR<141) S YSTDRU=70
88 I (YSFSDR>131)&(YSFSDR<135) S YSTDRU=68
89 I (YSFSDR>127)&(YSFSDR<131) S YSTDRU=67
90 I (YSFSDR>125)&(YSFSDR<127) S YSTDRU=66
91 I (YSFSDR>121)&(YSFSDR<125) S YSTDRU=65
92 I (YSFSDR>117)&(YSFSDR<121) S YSTDRU=64
93 I (YSFSDR>116)&(YSFSDR<117) S YSTDRU=63
94 I (YSFSDR>113)&(YSFSDR<116) S YSTDRU=62
95 I (YSFSDR>111)&(YSFSDR<113) S YSTDRU=61
96 I (YSFSDR>109)&(YSFSDR<111) S YSTDRU=60
97 I (YSFSDR>107)&((YSFSDR<109)) S YSTDRU=59
98 I (YSFSDR>104)&(YSFSDR<107) S YSTDRU=58
99 I (YSFSDR>102)&(YSFSDR<104) S YSTDRU=57
100 I (YSFSDR>100)&(YSFSDR<102) S YSTDRU=56
101 I (YSFSDR>98)&(YSFSDR<100) S YSTDRU=55
102 I (YSFSDR>96)&(YSFSDR<98) S YSTDRU=54
103 I (YSFSDR>94)&(YSFSDR<96) S YSTDRU=53
104 I (YSFSDR>92)&(YSFSDR<94) S YSTDRU=52
105 I (YSFSDR>90)&(YSFSDR<92) S YSTDRU=51
106 I (YSFSDR>89)&(YSFSDR<90) S YSTDRU=50
107 I (YSFSDR>87)&(YSFSDR<89) S YSTDRU=49
108 I (YSFSDR>86)&(YSFSDR<87) S YSTDRU=48
109 I (YSFSDR>84)&(YSFSDR<86) S YSTDRU=47
110 I (YSFSDR>82)&(YSFSDR<84) S YSTDRU=46
111 I (YSFSDR>80)&(YSFSDR<82) S YSTDRU=45
112 I (YSFSDR>78)&(YSFSDR<80) S YSTDRU=44
113 I (YSFSDR>76)&(YSFSDR<78) S YSTDRU=43
114 I (YSFSDR>75)&(YSFSDR<76) S YSTDRU=42
115 I (YSFSDR>72)&(YSFSDR<75) S YSTDRU=41
116 I (YSFSDR>70)&(YSFSDR<72) S YSTDRU=40
117 I (YSFSDR>69)&(YSFSDR<70) S YSTDRU=39
118 I YSFSDR<69 S YSTDRU=35
119 ;
120 S YSDATA(3)="DRUG^"_$J(YSFSDR-.0000001,6,2)_U_YSTDRU
121 ;
122 D ^YSASFS1 ;NEXT FACTORS
Note: See TracBrowser for help on using the repository browser.