1 | YTQQI004 ;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
|
---|
4 | Q 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
|
---|