source: WorldVistAEHR/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YTQQI002.m@ 1015

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

initial load of WorldVistAEHR
File size: 8.9 KB
Line 
1YTQQI002 ;ASF/ALB- MH3 PATCH 85 INIT ; 7/27/07 2:16pm
2 ;;5.01;MENTAL HEALTH;**85**;;Build 49
3 Q:'DIFQR(601.751) F I=1:2 S X=$T(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
4Q Q
5 ;;^UTILITY(U,$J,601.751)
6 ;;=^YTT(601.751,
7 ;;^UTILITY(U,$J,601.751,0)
8 ;;=MH CHOICETYPES^601.751^^3128
9 ;;^UTILITY(U,$J,601.751,1,0)
10 ;;=1^1^1
11 ;;^UTILITY(U,$J,601.751,2,0)
12 ;;=1^2^2
13 ;;^UTILITY(U,$J,601.751,3,0)
14 ;;=1^3^3
15 ;;^UTILITY(U,$J,601.751,4,0)
16 ;;=1^4^4
17 ;;^UTILITY(U,$J,601.751,5,0)
18 ;;=1^5^5
19 ;;^UTILITY(U,$J,601.751,6,0)
20 ;;=2^1^6
21 ;;^UTILITY(U,$J,601.751,7,0)
22 ;;=2^2^7
23 ;;^UTILITY(U,$J,601.751,8,0)
24 ;;=2^3^8
25 ;;^UTILITY(U,$J,601.751,9,0)
26 ;;=2^4^9
27 ;;^UTILITY(U,$J,601.751,10,0)
28 ;;=2^5^10
29 ;;^UTILITY(U,$J,601.751,11,0)
30 ;;=3^1^11
31 ;;^UTILITY(U,$J,601.751,12,0)
32 ;;=3^2^12
33 ;;^UTILITY(U,$J,601.751,13,0)
34 ;;=3^3^13
35 ;;^UTILITY(U,$J,601.751,14,0)
36 ;;=3^4^14
37 ;;^UTILITY(U,$J,601.751,15,0)
38 ;;=3^5^15
39 ;;^UTILITY(U,$J,601.751,16,0)
40 ;;=4^1^16
41 ;;^UTILITY(U,$J,601.751,17,0)
42 ;;=4^2^17
43 ;;^UTILITY(U,$J,601.751,18,0)
44 ;;=5^1^18
45 ;;^UTILITY(U,$J,601.751,19,0)
46 ;;=5^2^19
47 ;;^UTILITY(U,$J,601.751,20,0)
48 ;;=5^3^20
49 ;;^UTILITY(U,$J,601.751,21,0)
50 ;;=5^4^21
51 ;;^UTILITY(U,$J,601.751,22,0)
52 ;;=5^5^22
53 ;;^UTILITY(U,$J,601.751,23,0)
54 ;;=6^1^23
55 ;;^UTILITY(U,$J,601.751,24,0)
56 ;;=6^2^24
57 ;;^UTILITY(U,$J,601.751,25,0)
58 ;;=6^3^25
59 ;;^UTILITY(U,$J,601.751,26,0)
60 ;;=6^4^26
61 ;;^UTILITY(U,$J,601.751,27,0)
62 ;;=6^5^27
63 ;;^UTILITY(U,$J,601.751,28,0)
64 ;;=7^1^18
65 ;;^UTILITY(U,$J,601.751,29,0)
66 ;;=7^2^28
67 ;;^UTILITY(U,$J,601.751,30,0)
68 ;;=7^3^29
69 ;;^UTILITY(U,$J,601.751,31,0)
70 ;;=7^4^21
71 ;;^UTILITY(U,$J,601.751,32,0)
72 ;;=7^5^30
73 ;;^UTILITY(U,$J,601.751,33,0)
74 ;;=8^1^31
75 ;;^UTILITY(U,$J,601.751,34,0)
76 ;;=8^2^32
77 ;;^UTILITY(U,$J,601.751,35,0)
78 ;;=8^3^33
79 ;;^UTILITY(U,$J,601.751,36,0)
80 ;;=8^4^34
81 ;;^UTILITY(U,$J,601.751,37,0)
82 ;;=8^5^35
83 ;;^UTILITY(U,$J,601.751,38,0)
84 ;;=9^1^36
85 ;;^UTILITY(U,$J,601.751,39,0)
86 ;;=9^2^37
87 ;;^UTILITY(U,$J,601.751,40,0)
88 ;;=9^3^38
89 ;;^UTILITY(U,$J,601.751,41,0)
90 ;;=9^4^39
91 ;;^UTILITY(U,$J,601.751,42,0)
92 ;;=9^5^40
93 ;;^UTILITY(U,$J,601.751,43,0)
94 ;;=10^1^41
95 ;;^UTILITY(U,$J,601.751,44,0)
96 ;;=10^2^42
97 ;;^UTILITY(U,$J,601.751,45,0)
98 ;;=10^3^43
99 ;;^UTILITY(U,$J,601.751,46,0)
100 ;;=10^4^44
101 ;;^UTILITY(U,$J,601.751,47,0)
102 ;;=10^5^45
103 ;;^UTILITY(U,$J,601.751,48,0)
104 ;;=11^1^46
105 ;;^UTILITY(U,$J,601.751,49,0)
106 ;;=11^2^47
107 ;;^UTILITY(U,$J,601.751,50,0)
108 ;;=11^3^48
109 ;;^UTILITY(U,$J,601.751,51,0)
110 ;;=11^4^49
111 ;;^UTILITY(U,$J,601.751,52,0)
112 ;;=11^5^50
113 ;;^UTILITY(U,$J,601.751,53,0)
114 ;;=12^1^51
115 ;;^UTILITY(U,$J,601.751,54,0)
116 ;;=12^2^52
117 ;;^UTILITY(U,$J,601.751,55,0)
118 ;;=12^3^53
119 ;;^UTILITY(U,$J,601.751,56,0)
120 ;;=12^4^54
121 ;;^UTILITY(U,$J,601.751,57,0)
122 ;;=12^5^55
123 ;;^UTILITY(U,$J,601.751,58,0)
124 ;;=13^1^56
125 ;;^UTILITY(U,$J,601.751,59,0)
126 ;;=13^2^57
127 ;;^UTILITY(U,$J,601.751,60,0)
128 ;;=13^3^58
129 ;;^UTILITY(U,$J,601.751,61,0)
130 ;;=13^4^59
131 ;;^UTILITY(U,$J,601.751,62,0)
132 ;;=13^5^60
133 ;;^UTILITY(U,$J,601.751,63,0)
134 ;;=14^1^61
135 ;;^UTILITY(U,$J,601.751,64,0)
136 ;;=14^2^62
137 ;;^UTILITY(U,$J,601.751,65,0)
138 ;;=14^3^20
139 ;;^UTILITY(U,$J,601.751,66,0)
140 ;;=14^4^63
141 ;;^UTILITY(U,$J,601.751,67,0)
142 ;;=14^5^64
143 ;;^UTILITY(U,$J,601.751,68,0)
144 ;;=15^1^65
145 ;;^UTILITY(U,$J,601.751,69,0)
146 ;;=15^2^66
147 ;;^UTILITY(U,$J,601.751,70,0)
148 ;;=15^3^67
149 ;;^UTILITY(U,$J,601.751,71,0)
150 ;;=15^4^68
151 ;;^UTILITY(U,$J,601.751,72,0)
152 ;;=15^5^69
153 ;;^UTILITY(U,$J,601.751,73,0)
154 ;;=16^1^70
155 ;;^UTILITY(U,$J,601.751,74,0)
156 ;;=16^2^71
157 ;;^UTILITY(U,$J,601.751,75,0)
158 ;;=16^3^72
159 ;;^UTILITY(U,$J,601.751,76,0)
160 ;;=16^4^73
161 ;;^UTILITY(U,$J,601.751,77,0)
162 ;;=16^5^74
163 ;;^UTILITY(U,$J,601.751,78,0)
164 ;;=17^1^75
165 ;;^UTILITY(U,$J,601.751,79,0)
166 ;;=17^2^76
167 ;;^UTILITY(U,$J,601.751,80,0)
168 ;;=17^3^77
169 ;;^UTILITY(U,$J,601.751,81,0)
170 ;;=17^4^78
171 ;;^UTILITY(U,$J,601.751,82,0)
172 ;;=17^5^79
173 ;;^UTILITY(U,$J,601.751,83,0)
174 ;;=18^1^80
175 ;;^UTILITY(U,$J,601.751,84,0)
176 ;;=18^2^81
177 ;;^UTILITY(U,$J,601.751,85,0)
178 ;;=18^3^82
179 ;;^UTILITY(U,$J,601.751,86,0)
180 ;;=18^4^83
181 ;;^UTILITY(U,$J,601.751,87,0)
182 ;;=18^5^84
183 ;;^UTILITY(U,$J,601.751,88,0)
184 ;;=19^1^85
185 ;;^UTILITY(U,$J,601.751,89,0)
186 ;;=19^2^86
187 ;;^UTILITY(U,$J,601.751,90,0)
188 ;;=19^3^87
189 ;;^UTILITY(U,$J,601.751,91,0)
190 ;;=19^4^88
191 ;;^UTILITY(U,$J,601.751,92,0)
192 ;;=19^5^89
193 ;;^UTILITY(U,$J,601.751,93,0)
194 ;;=20^1^90
195 ;;^UTILITY(U,$J,601.751,94,0)
196 ;;=20^2^91
197 ;;^UTILITY(U,$J,601.751,95,0)
198 ;;=20^3^92
199 ;;^UTILITY(U,$J,601.751,96,0)
200 ;;=20^4^93
201 ;;^UTILITY(U,$J,601.751,97,0)
202 ;;=20^5^94
203 ;;^UTILITY(U,$J,601.751,98,0)
204 ;;=21^1^95
205 ;;^UTILITY(U,$J,601.751,99,0)
206 ;;=21^2^96
207 ;;^UTILITY(U,$J,601.751,100,0)
208 ;;=21^3^97
209 ;;^UTILITY(U,$J,601.751,101,0)
210 ;;=21^4^98
211 ;;^UTILITY(U,$J,601.751,102,0)
212 ;;=21^5^99
213 ;;^UTILITY(U,$J,601.751,103,0)
214 ;;=22^1^100
215 ;;^UTILITY(U,$J,601.751,104,0)
216 ;;=22^2^101
217 ;;^UTILITY(U,$J,601.751,105,0)
218 ;;=22^3^102
219 ;;^UTILITY(U,$J,601.751,106,0)
220 ;;=22^4^68
221 ;;^UTILITY(U,$J,601.751,107,0)
222 ;;=22^5^22
223 ;;^UTILITY(U,$J,601.751,108,0)
224 ;;=23^1^103
225 ;;^UTILITY(U,$J,601.751,109,0)
226 ;;=23^2^104
227 ;;^UTILITY(U,$J,601.751,110,0)
228 ;;=23^3^105
229 ;;^UTILITY(U,$J,601.751,111,0)
230 ;;=23^4^106
231 ;;^UTILITY(U,$J,601.751,112,0)
232 ;;=23^5^107
233 ;;^UTILITY(U,$J,601.751,113,0)
234 ;;=24^1^108
235 ;;^UTILITY(U,$J,601.751,114,0)
236 ;;=24^2^109
237 ;;^UTILITY(U,$J,601.751,115,0)
238 ;;=24^3^110
239 ;;^UTILITY(U,$J,601.751,116,0)
240 ;;=24^4^111
241 ;;^UTILITY(U,$J,601.751,117,0)
242 ;;=24^5^112
243 ;;^UTILITY(U,$J,601.751,118,0)
244 ;;=25^1^113
245 ;;^UTILITY(U,$J,601.751,119,0)
246 ;;=25^2^114
247 ;;^UTILITY(U,$J,601.751,120,0)
248 ;;=25^3^115
249 ;;^UTILITY(U,$J,601.751,121,0)
250 ;;=25^4^116
251 ;;^UTILITY(U,$J,601.751,122,0)
252 ;;=25^5^117
253 ;;^UTILITY(U,$J,601.751,123,0)
254 ;;=26^1^118
255 ;;^UTILITY(U,$J,601.751,124,0)
256 ;;=26^2^119
257 ;;^UTILITY(U,$J,601.751,125,0)
258 ;;=26^3^120
259 ;;^UTILITY(U,$J,601.751,126,0)
260 ;;=26^4^121
261 ;;^UTILITY(U,$J,601.751,127,0)
262 ;;=26^5^122
263 ;;^UTILITY(U,$J,601.751,128,0)
264 ;;=27^1^123
265 ;;^UTILITY(U,$J,601.751,129,0)
266 ;;=27^2^124
267 ;;^UTILITY(U,$J,601.751,130,0)
268 ;;=27^3^125
269 ;;^UTILITY(U,$J,601.751,131,0)
270 ;;=27^4^126
271 ;;^UTILITY(U,$J,601.751,132,0)
272 ;;=27^5^127
273 ;;^UTILITY(U,$J,601.751,133,0)
274 ;;=28^1^128
275 ;;^UTILITY(U,$J,601.751,134,0)
276 ;;=28^2^129
277 ;;^UTILITY(U,$J,601.751,135,0)
278 ;;=28^3^130
279 ;;^UTILITY(U,$J,601.751,136,0)
280 ;;=28^4^131
281 ;;^UTILITY(U,$J,601.751,137,0)
282 ;;=28^5^132
283 ;;^UTILITY(U,$J,601.751,138,0)
284 ;;=29^1^133
285 ;;^UTILITY(U,$J,601.751,139,0)
286 ;;=29^2^134
287 ;;^UTILITY(U,$J,601.751,140,0)
288 ;;=29^3^135
289 ;;^UTILITY(U,$J,601.751,141,0)
290 ;;=29^4^136
291 ;;^UTILITY(U,$J,601.751,142,0)
292 ;;=29^5^137
293 ;;^UTILITY(U,$J,601.751,143,0)
294 ;;=30^1^138
295 ;;^UTILITY(U,$J,601.751,144,0)
296 ;;=30^2^139
297 ;;^UTILITY(U,$J,601.751,145,0)
298 ;;=30^3^140
299 ;;^UTILITY(U,$J,601.751,146,0)
300 ;;=30^4^141
301 ;;^UTILITY(U,$J,601.751,147,0)
302 ;;=30^5^142
303 ;;^UTILITY(U,$J,601.751,148,0)
304 ;;=31^1^143
305 ;;^UTILITY(U,$J,601.751,149,0)
306 ;;=31^2^144
307 ;;^UTILITY(U,$J,601.751,150,0)
308 ;;=31^3^145
309 ;;^UTILITY(U,$J,601.751,151,0)
310 ;;=31^4^146
311 ;;^UTILITY(U,$J,601.751,152,0)
312 ;;=31^5^147
313 ;;^UTILITY(U,$J,601.751,153,0)
314 ;;=32^1^148
315 ;;^UTILITY(U,$J,601.751,154,0)
316 ;;=32^2^149
317 ;;^UTILITY(U,$J,601.751,155,0)
318 ;;=32^3^150
319 ;;^UTILITY(U,$J,601.751,156,0)
320 ;;=32^4^151
321 ;;^UTILITY(U,$J,601.751,157,0)
322 ;;=32^5^152
323 ;;^UTILITY(U,$J,601.751,158,0)
324 ;;=33^1^153
325 ;;^UTILITY(U,$J,601.751,159,0)
326 ;;=33^2^154
327 ;;^UTILITY(U,$J,601.751,160,0)
328 ;;=33^3^155
329 ;;^UTILITY(U,$J,601.751,161,0)
330 ;;=33^4^156
331 ;;^UTILITY(U,$J,601.751,162,0)
332 ;;=33^5^157
333 ;;^UTILITY(U,$J,601.751,163,0)
334 ;;=34^1^158
335 ;;^UTILITY(U,$J,601.751,164,0)
336 ;;=34^2^159
337 ;;^UTILITY(U,$J,601.751,165,0)
338 ;;=34^3^160
339 ;;^UTILITY(U,$J,601.751,166,0)
340 ;;=34^4^161
341 ;;^UTILITY(U,$J,601.751,167,0)
342 ;;=34^5^162
343 ;;^UTILITY(U,$J,601.751,168,0)
344 ;;=35^1^163
345 ;;^UTILITY(U,$J,601.751,169,0)
346 ;;=35^2^164
347 ;;^UTILITY(U,$J,601.751,170,0)
348 ;;=35^3^165
349 ;;^UTILITY(U,$J,601.751,171,0)
350 ;;=35^4^166
351 ;;^UTILITY(U,$J,601.751,172,0)
352 ;;=35^5^167
353 ;;^UTILITY(U,$J,601.751,173,0)
354 ;;=36^1^168
355 ;;^UTILITY(U,$J,601.751,174,0)
356 ;;=36^2^169
357 ;;^UTILITY(U,$J,601.751,175,0)
358 ;;=36^3^170
359 ;;^UTILITY(U,$J,601.751,176,0)
360 ;;=36^4^171
361 ;;^UTILITY(U,$J,601.751,177,0)
362 ;;=36^5^172
363 ;;^UTILITY(U,$J,601.751,178,0)
364 ;;=37^1^173
365 ;;^UTILITY(U,$J,601.751,179,0)
366 ;;=37^2^174
367 ;;^UTILITY(U,$J,601.751,180,0)
368 ;;=37^3^175
369 ;;^UTILITY(U,$J,601.751,181,0)
370 ;;=37^4^176
371 ;;^UTILITY(U,$J,601.751,182,0)
372 ;;=37^5^177
373 ;;^UTILITY(U,$J,601.751,183,0)
374 ;;=38^1^178
375 ;;^UTILITY(U,$J,601.751,184,0)
376 ;;=38^2^179
377 ;;^UTILITY(U,$J,601.751,185,0)
378 ;;=38^3^180
379 ;;^UTILITY(U,$J,601.751,186,0)
380 ;;=38^4^181
381 ;;^UTILITY(U,$J,601.751,187,0)
382 ;;=38^5^182
383 ;;^UTILITY(U,$J,601.751,188,0)
384 ;;=39^1^183
385 ;;^UTILITY(U,$J,601.751,189,0)
386 ;;=39^2^184
387 ;;^UTILITY(U,$J,601.751,190,0)
388 ;;=39^3^185
389 ;;^UTILITY(U,$J,601.751,191,0)
390 ;;=39^4^186
391 ;;^UTILITY(U,$J,601.751,192,0)
392 ;;=39^5^187
393 ;;^UTILITY(U,$J,601.751,193,0)
394 ;;=40^1^188
395 ;;^UTILITY(U,$J,601.751,194,0)
396 ;;=40^2^189
397 ;;^UTILITY(U,$J,601.751,195,0)
398 ;;=40^3^190
399 ;;^UTILITY(U,$J,601.751,196,0)
400 ;;=40^4^191
401 ;;^UTILITY(U,$J,601.751,197,0)
402 ;;=40^5^192
403 ;;^UTILITY(U,$J,601.751,198,0)
404 ;;=41^1^193
405 ;;^UTILITY(U,$J,601.751,199,0)
406 ;;=41^2^194
407 ;;^UTILITY(U,$J,601.751,200,0)
408 ;;=41^3^195
Note: See TracBrowser for help on using the repository browser.