source: WorldVistAEHR/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YTQQI003.m@ 824

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

initial load of WorldVistAEHR

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