source: WorldVistAEHR/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YTQQI004.m@ 1093

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

initial load of WorldVistAEHR

File size: 8.9 KB
RevLine 
[613]1YTQQI004 ;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,398,0)
6 ;;=91^1^240
7 ;;^UTILITY(U,$J,601.751,399,0)
8 ;;=91^2^343
9 ;;^UTILITY(U,$J,601.751,400,0)
10 ;;=91^3^344
11 ;;^UTILITY(U,$J,601.751,401,0)
12 ;;=91^4^345
13 ;;^UTILITY(U,$J,601.751,402,0)
14 ;;=92^1^240
15 ;;^UTILITY(U,$J,601.751,403,0)
16 ;;=92^2^265
17 ;;^UTILITY(U,$J,601.751,404,0)
18 ;;=92^3^266
19 ;;^UTILITY(U,$J,601.751,405,0)
20 ;;=92^4^346
21 ;;^UTILITY(U,$J,601.751,406,0)
22 ;;=93^1^347
23 ;;^UTILITY(U,$J,601.751,407,0)
24 ;;=93^2^276
25 ;;^UTILITY(U,$J,601.751,408,0)
26 ;;=93^3^310
27 ;;^UTILITY(U,$J,601.751,409,0)
28 ;;=93^4^348
29 ;;^UTILITY(U,$J,601.751,410,0)
30 ;;=94^1^240
31 ;;^UTILITY(U,$J,601.751,411,0)
32 ;;=94^2^290
33 ;;^UTILITY(U,$J,601.751,412,0)
34 ;;=94^3^277
35 ;;^UTILITY(U,$J,601.751,413,0)
36 ;;=94^4^291
37 ;;^UTILITY(U,$J,601.751,414,0)
38 ;;=95^1^349
39 ;;^UTILITY(U,$J,601.751,415,0)
40 ;;=95^2^350
41 ;;^UTILITY(U,$J,601.751,416,0)
42 ;;=95^3^351
43 ;;^UTILITY(U,$J,601.751,417,0)
44 ;;=95^4^352
45 ;;^UTILITY(U,$J,601.751,418,0)
46 ;;=96^1^353
47 ;;^UTILITY(U,$J,601.751,419,0)
48 ;;=96^2^354
49 ;;^UTILITY(U,$J,601.751,420,0)
50 ;;=96^3^355
51 ;;^UTILITY(U,$J,601.751,421,0)
52 ;;=96^4^356
53 ;;^UTILITY(U,$J,601.751,422,0)
54 ;;=97^1^240
55 ;;^UTILITY(U,$J,601.751,423,0)
56 ;;=97^2^329
57 ;;^UTILITY(U,$J,601.751,424,0)
58 ;;=97^3^334
59 ;;^UTILITY(U,$J,601.751,425,0)
60 ;;=97^4^330
61 ;;^UTILITY(U,$J,601.751,426,0)
62 ;;=98^1^240
63 ;;^UTILITY(U,$J,601.751,427,0)
64 ;;=98^2^297
65 ;;^UTILITY(U,$J,601.751,428,0)
66 ;;=98^3^257
67 ;;^UTILITY(U,$J,601.751,429,0)
68 ;;=98^4^258
69 ;;^UTILITY(U,$J,601.751,430,0)
70 ;;=99^1^357
71 ;;^UTILITY(U,$J,601.751,431,0)
72 ;;=99^2^358
73 ;;^UTILITY(U,$J,601.751,432,0)
74 ;;=99^3^359
75 ;;^UTILITY(U,$J,601.751,433,0)
76 ;;=99^4^360
77 ;;^UTILITY(U,$J,601.751,434,0)
78 ;;=100^1^361
79 ;;^UTILITY(U,$J,601.751,435,0)
80 ;;=100^2^276
81 ;;^UTILITY(U,$J,601.751,436,0)
82 ;;=100^3^362
83 ;;^UTILITY(U,$J,601.751,437,0)
84 ;;=101^1^289
85 ;;^UTILITY(U,$J,601.751,438,0)
86 ;;=101^2^331
87 ;;^UTILITY(U,$J,601.751,439,0)
88 ;;=101^3^334
89 ;;^UTILITY(U,$J,601.751,440,0)
90 ;;=102^1^363
91 ;;^UTILITY(U,$J,601.751,441,0)
92 ;;=102^2^339
93 ;;^UTILITY(U,$J,601.751,442,0)
94 ;;=102^3^340
95 ;;^UTILITY(U,$J,601.751,443,0)
96 ;;=102^4^364
97 ;;^UTILITY(U,$J,601.751,444,0)
98 ;;=103^1^365
99 ;;^UTILITY(U,$J,601.751,445,0)
100 ;;=103^2^366
101 ;;^UTILITY(U,$J,601.751,446,0)
102 ;;=103^3^367
103 ;;^UTILITY(U,$J,601.751,447,0)
104 ;;=103^4^368
105 ;;^UTILITY(U,$J,601.751,448,0)
106 ;;=104^1^259
107 ;;^UTILITY(U,$J,601.751,449,0)
108 ;;=104^2^369
109 ;;^UTILITY(U,$J,601.751,450,0)
110 ;;=104^3^370
111 ;;^UTILITY(U,$J,601.751,451,0)
112 ;;=104^4^371
113 ;;^UTILITY(U,$J,601.751,452,0)
114 ;;=105^1^372
115 ;;^UTILITY(U,$J,601.751,453,0)
116 ;;=105^2^373
117 ;;^UTILITY(U,$J,601.751,454,0)
118 ;;=105^3^374
119 ;;^UTILITY(U,$J,601.751,455,0)
120 ;;=105^4^375
121 ;;^UTILITY(U,$J,601.751,456,0)
122 ;;=106^1^240
123 ;;^UTILITY(U,$J,601.751,457,0)
124 ;;=106^2^256
125 ;;^UTILITY(U,$J,601.751,458,0)
126 ;;=106^3^376
127 ;;^UTILITY(U,$J,601.751,459,0)
128 ;;=106^4^377
129 ;;^UTILITY(U,$J,601.751,460,0)
130 ;;=106^5^378
131 ;;^UTILITY(U,$J,601.751,461,0)
132 ;;=107^1^379
133 ;;^UTILITY(U,$J,601.751,462,0)
134 ;;=107^2^380
135 ;;^UTILITY(U,$J,601.751,463,0)
136 ;;=107^3^381
137 ;;^UTILITY(U,$J,601.751,464,0)
138 ;;=108^1^289
139 ;;^UTILITY(U,$J,601.751,465,0)
140 ;;=108^2^331
141 ;;^UTILITY(U,$J,601.751,466,0)
142 ;;=108^3^332
143 ;;^UTILITY(U,$J,601.751,467,0)
144 ;;=108^4^382
145 ;;^UTILITY(U,$J,601.751,468,0)
146 ;;=109^1^383
147 ;;^UTILITY(U,$J,601.751,469,0)
148 ;;=109^2^339
149 ;;^UTILITY(U,$J,601.751,470,0)
150 ;;=109^3^340
151 ;;^UTILITY(U,$J,601.751,471,0)
152 ;;=109^4^364
153 ;;^UTILITY(U,$J,601.751,472,0)
154 ;;=110^1^384
155 ;;^UTILITY(U,$J,601.751,473,0)
156 ;;=110^2^385
157 ;;^UTILITY(U,$J,601.751,474,0)
158 ;;=110^3^386
159 ;;^UTILITY(U,$J,601.751,475,0)
160 ;;=110^4^387
161 ;;^UTILITY(U,$J,601.751,476,0)
162 ;;=111^1^289
163 ;;^UTILITY(U,$J,601.751,477,0)
164 ;;=111^2^276
165 ;;^UTILITY(U,$J,601.751,478,0)
166 ;;=111^3^277
167 ;;^UTILITY(U,$J,601.751,479,0)
168 ;;=111^4^325
169 ;;^UTILITY(U,$J,601.751,480,0)
170 ;;=112^1^240
171 ;;^UTILITY(U,$J,601.751,481,0)
172 ;;=112^2^297
173 ;;^UTILITY(U,$J,601.751,482,0)
174 ;;=112^3^388
175 ;;^UTILITY(U,$J,601.751,483,0)
176 ;;=112^4^389
177 ;;^UTILITY(U,$J,601.751,484,0)
178 ;;=113^1^240
179 ;;^UTILITY(U,$J,601.751,485,0)
180 ;;=113^2^390
181 ;;^UTILITY(U,$J,601.751,486,0)
182 ;;=113^3^391
183 ;;^UTILITY(U,$J,601.751,487,0)
184 ;;=113^4^392
185 ;;^UTILITY(U,$J,601.751,488,0)
186 ;;=114^1^240
187 ;;^UTILITY(U,$J,601.751,489,0)
188 ;;=114^2^393
189 ;;^UTILITY(U,$J,601.751,490,0)
190 ;;=114^3^394
191 ;;^UTILITY(U,$J,601.751,491,0)
192 ;;=114^4^395
193 ;;^UTILITY(U,$J,601.751,492,0)
194 ;;=115^1^289
195 ;;^UTILITY(U,$J,601.751,493,0)
196 ;;=115^2^331
197 ;;^UTILITY(U,$J,601.751,494,0)
198 ;;=115^3^332
199 ;;^UTILITY(U,$J,601.751,495,0)
200 ;;=115^4^396
201 ;;^UTILITY(U,$J,601.751,496,0)
202 ;;=116^1^397
203 ;;^UTILITY(U,$J,601.751,497,0)
204 ;;=116^2^398
205 ;;^UTILITY(U,$J,601.751,498,0)
206 ;;=116^3^399
207 ;;^UTILITY(U,$J,601.751,499,0)
208 ;;=116^4^400
209 ;;^UTILITY(U,$J,601.751,500,0)
210 ;;=117^1^401
211 ;;^UTILITY(U,$J,601.751,501,0)
212 ;;=117^2^402
213 ;;^UTILITY(U,$J,601.751,502,0)
214 ;;=117^3^403
215 ;;^UTILITY(U,$J,601.751,503,0)
216 ;;=117^4^404
217 ;;^UTILITY(U,$J,601.751,504,0)
218 ;;=118^1^405
219 ;;^UTILITY(U,$J,601.751,505,0)
220 ;;=118^2^406
221 ;;^UTILITY(U,$J,601.751,506,0)
222 ;;=118^3^407
223 ;;^UTILITY(U,$J,601.751,507,0)
224 ;;=119^1^240
225 ;;^UTILITY(U,$J,601.751,508,0)
226 ;;=119^2^329
227 ;;^UTILITY(U,$J,601.751,509,0)
228 ;;=119^3^334
229 ;;^UTILITY(U,$J,601.751,510,0)
230 ;;=119^4^244
231 ;;^UTILITY(U,$J,601.751,511,0)
232 ;;=120^1^240
233 ;;^UTILITY(U,$J,601.751,512,0)
234 ;;=120^2^408
235 ;;^UTILITY(U,$J,601.751,513,0)
236 ;;=120^3^409
237 ;;^UTILITY(U,$J,601.751,514,0)
238 ;;=120^4^410
239 ;;^UTILITY(U,$J,601.751,515,0)
240 ;;=121^1^411
241 ;;^UTILITY(U,$J,601.751,516,0)
242 ;;=121^2^412
243 ;;^UTILITY(U,$J,601.751,517,0)
244 ;;=121^3^413
245 ;;^UTILITY(U,$J,601.751,518,0)
246 ;;=121^4^414
247 ;;^UTILITY(U,$J,601.751,519,0)
248 ;;=122^1^415
249 ;;^UTILITY(U,$J,601.751,520,0)
250 ;;=122^2^416
251 ;;^UTILITY(U,$J,601.751,521,0)
252 ;;=122^3^417
253 ;;^UTILITY(U,$J,601.751,522,0)
254 ;;=122^4^418
255 ;;^UTILITY(U,$J,601.751,523,0)
256 ;;=123^1^419
257 ;;^UTILITY(U,$J,601.751,524,0)
258 ;;=123^2^420
259 ;;^UTILITY(U,$J,601.751,525,0)
260 ;;=123^3^421
261 ;;^UTILITY(U,$J,601.751,526,0)
262 ;;=123^4^422
263 ;;^UTILITY(U,$J,601.751,527,0)
264 ;;=124^1^423
265 ;;^UTILITY(U,$J,601.751,528,0)
266 ;;=124^2^424
267 ;;^UTILITY(U,$J,601.751,529,0)
268 ;;=124^3^425
269 ;;^UTILITY(U,$J,601.751,530,0)
270 ;;=124^4^426
271 ;;^UTILITY(U,$J,601.751,531,0)
272 ;;=125^1^427
273 ;;^UTILITY(U,$J,601.751,532,0)
274 ;;=125^2^428
275 ;;^UTILITY(U,$J,601.751,533,0)
276 ;;=125^3^429
277 ;;^UTILITY(U,$J,601.751,534,0)
278 ;;=125^4^430
279 ;;^UTILITY(U,$J,601.751,535,0)
280 ;;=126^1^240
281 ;;^UTILITY(U,$J,601.751,536,0)
282 ;;=126^2^331
283 ;;^UTILITY(U,$J,601.751,537,0)
284 ;;=126^3^431
285 ;;^UTILITY(U,$J,601.751,538,0)
286 ;;=126^4^396
287 ;;^UTILITY(U,$J,601.751,539,0)
288 ;;=127^1^432
289 ;;^UTILITY(U,$J,601.751,540,0)
290 ;;=127^2^433
291 ;;^UTILITY(U,$J,601.751,541,0)
292 ;;=127^3^434
293 ;;^UTILITY(U,$J,601.751,542,0)
294 ;;=127^4^435
295 ;;^UTILITY(U,$J,601.751,543,0)
296 ;;=128^1^436
297 ;;^UTILITY(U,$J,601.751,544,0)
298 ;;=128^2^437
299 ;;^UTILITY(U,$J,601.751,545,0)
300 ;;=128^3^438
301 ;;^UTILITY(U,$J,601.751,546,0)
302 ;;=128^4^439
303 ;;^UTILITY(U,$J,601.751,547,0)
304 ;;=129^1^440
305 ;;^UTILITY(U,$J,601.751,548,0)
306 ;;=129^2^441
307 ;;^UTILITY(U,$J,601.751,549,0)
308 ;;=129^3^442
309 ;;^UTILITY(U,$J,601.751,550,0)
310 ;;=129^4^443
311 ;;^UTILITY(U,$J,601.751,551,0)
312 ;;=130^1^444
313 ;;^UTILITY(U,$J,601.751,552,0)
314 ;;=130^2^445
315 ;;^UTILITY(U,$J,601.751,553,0)
316 ;;=130^3^446
317 ;;^UTILITY(U,$J,601.751,554,0)
318 ;;=130^4^447
319 ;;^UTILITY(U,$J,601.751,555,0)
320 ;;=131^1^448
321 ;;^UTILITY(U,$J,601.751,556,0)
322 ;;=131^2^449
323 ;;^UTILITY(U,$J,601.751,557,0)
324 ;;=131^3^450
325 ;;^UTILITY(U,$J,601.751,558,0)
326 ;;=131^4^451
327 ;;^UTILITY(U,$J,601.751,559,0)
328 ;;=132^1^452
329 ;;^UTILITY(U,$J,601.751,560,0)
330 ;;=132^2^453
331 ;;^UTILITY(U,$J,601.751,561,0)
332 ;;=132^3^454
333 ;;^UTILITY(U,$J,601.751,562,0)
334 ;;=132^4^455
335 ;;^UTILITY(U,$J,601.751,563,0)
336 ;;=133^1^456
337 ;;^UTILITY(U,$J,601.751,564,0)
338 ;;=133^2^457
339 ;;^UTILITY(U,$J,601.751,565,0)
340 ;;=133^3^458
341 ;;^UTILITY(U,$J,601.751,566,0)
342 ;;=133^4^459
343 ;;^UTILITY(U,$J,601.751,567,0)
344 ;;=134^1^460
345 ;;^UTILITY(U,$J,601.751,568,0)
346 ;;=134^2^461
347 ;;^UTILITY(U,$J,601.751,569,0)
348 ;;=134^3^462
349 ;;^UTILITY(U,$J,601.751,570,0)
350 ;;=134^4^463
351 ;;^UTILITY(U,$J,601.751,571,0)
352 ;;=135^1^464
353 ;;^UTILITY(U,$J,601.751,572,0)
354 ;;=135^2^465
355 ;;^UTILITY(U,$J,601.751,573,0)
356 ;;=135^3^466
357 ;;^UTILITY(U,$J,601.751,574,0)
358 ;;=135^4^467
359 ;;^UTILITY(U,$J,601.751,575,0)
360 ;;=136^1^468
361 ;;^UTILITY(U,$J,601.751,576,0)
362 ;;=136^2^469
363 ;;^UTILITY(U,$J,601.751,577,0)
364 ;;=136^3^470
365 ;;^UTILITY(U,$J,601.751,578,0)
366 ;;=136^4^471
367 ;;^UTILITY(U,$J,601.751,579,0)
368 ;;=137^1^472
369 ;;^UTILITY(U,$J,601.751,580,0)
370 ;;=137^2^473
371 ;;^UTILITY(U,$J,601.751,581,0)
372 ;;=137^3^474
373 ;;^UTILITY(U,$J,601.751,582,0)
374 ;;=137^4^475
375 ;;^UTILITY(U,$J,601.751,583,0)
376 ;;=138^1^476
377 ;;^UTILITY(U,$J,601.751,584,0)
378 ;;=138^2^477
379 ;;^UTILITY(U,$J,601.751,585,0)
380 ;;=138^3^478
381 ;;^UTILITY(U,$J,601.751,586,0)
382 ;;=138^4^479
383 ;;^UTILITY(U,$J,601.751,587,0)
384 ;;=139^1^480
385 ;;^UTILITY(U,$J,601.751,588,0)
386 ;;=139^2^481
387 ;;^UTILITY(U,$J,601.751,589,0)
388 ;;=139^3^482
389 ;;^UTILITY(U,$J,601.751,590,0)
390 ;;=139^4^483
Note: See TracBrowser for help on using the repository browser.