1 | YTQQI006 ;ASF/ALB- MH3 PATCH 85 INIT ; 7/27/07 2:16pm
|
---|
2 | ;;5.01;MENTAL HEALTH;**85**;;Build 48
|
---|
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,783,0)
|
---|
6 | ;;=191^2^676
|
---|
7 | ;;^UTILITY(U,$J,601.751,784,0)
|
---|
8 | ;;=191^3^677
|
---|
9 | ;;^UTILITY(U,$J,601.751,785,0)
|
---|
10 | ;;=192^1^678
|
---|
11 | ;;^UTILITY(U,$J,601.751,786,0)
|
---|
12 | ;;=192^2^679
|
---|
13 | ;;^UTILITY(U,$J,601.751,787,0)
|
---|
14 | ;;=192^3^680
|
---|
15 | ;;^UTILITY(U,$J,601.751,788,0)
|
---|
16 | ;;=193^1^681
|
---|
17 | ;;^UTILITY(U,$J,601.751,789,0)
|
---|
18 | ;;=193^2^682
|
---|
19 | ;;^UTILITY(U,$J,601.751,790,0)
|
---|
20 | ;;=193^3^683
|
---|
21 | ;;^UTILITY(U,$J,601.751,791,0)
|
---|
22 | ;;=194^1^432
|
---|
23 | ;;^UTILITY(U,$J,601.751,792,0)
|
---|
24 | ;;=194^2^684
|
---|
25 | ;;^UTILITY(U,$J,601.751,793,0)
|
---|
26 | ;;=194^3^685
|
---|
27 | ;;^UTILITY(U,$J,601.751,794,0)
|
---|
28 | ;;=194^4^686
|
---|
29 | ;;^UTILITY(U,$J,601.751,795,0)
|
---|
30 | ;;=194^5^687
|
---|
31 | ;;^UTILITY(U,$J,601.751,796,0)
|
---|
32 | ;;=195^1^688
|
---|
33 | ;;^UTILITY(U,$J,601.751,797,0)
|
---|
34 | ;;=195^2^689
|
---|
35 | ;;^UTILITY(U,$J,601.751,798,0)
|
---|
36 | ;;=3711^1^237
|
---|
37 | ;;^UTILITY(U,$J,601.751,799,0)
|
---|
38 | ;;=3711^2^241
|
---|
39 | ;;^UTILITY(U,$J,601.751,800,0)
|
---|
40 | ;;=197^1^692
|
---|
41 | ;;^UTILITY(U,$J,601.751,801,0)
|
---|
42 | ;;=197^2^693
|
---|
43 | ;;^UTILITY(U,$J,601.751,802,0)
|
---|
44 | ;;=197^3^694
|
---|
45 | ;;^UTILITY(U,$J,601.751,803,0)
|
---|
46 | ;;=197^4^695
|
---|
47 | ;;^UTILITY(U,$J,601.751,804,0)
|
---|
48 | ;;=198^1^696
|
---|
49 | ;;^UTILITY(U,$J,601.751,805,0)
|
---|
50 | ;;=198^2^697
|
---|
51 | ;;^UTILITY(U,$J,601.751,806,0)
|
---|
52 | ;;=198^3^698
|
---|
53 | ;;^UTILITY(U,$J,601.751,807,0)
|
---|
54 | ;;=198^4^699
|
---|
55 | ;;^UTILITY(U,$J,601.751,808,0)
|
---|
56 | ;;=198^5^700
|
---|
57 | ;;^UTILITY(U,$J,601.751,809,0)
|
---|
58 | ;;=199^1^701
|
---|
59 | ;;^UTILITY(U,$J,601.751,810,0)
|
---|
60 | ;;=199^2^702
|
---|
61 | ;;^UTILITY(U,$J,601.751,811,0)
|
---|
62 | ;;=199^3^703
|
---|
63 | ;;^UTILITY(U,$J,601.751,812,0)
|
---|
64 | ;;=199^4^704
|
---|
65 | ;;^UTILITY(U,$J,601.751,813,0)
|
---|
66 | ;;=199^5^705
|
---|
67 | ;;^UTILITY(U,$J,601.751,814,0)
|
---|
68 | ;;=199^6^706
|
---|
69 | ;;^UTILITY(U,$J,601.751,815,0)
|
---|
70 | ;;=200^1^701
|
---|
71 | ;;^UTILITY(U,$J,601.751,816,0)
|
---|
72 | ;;=200^2^702
|
---|
73 | ;;^UTILITY(U,$J,601.751,817,0)
|
---|
74 | ;;=200^3^703
|
---|
75 | ;;^UTILITY(U,$J,601.751,818,0)
|
---|
76 | ;;=200^4^704
|
---|
77 | ;;^UTILITY(U,$J,601.751,819,0)
|
---|
78 | ;;=200^5^707
|
---|
79 | ;;^UTILITY(U,$J,601.751,820,0)
|
---|
80 | ;;=200^6^708
|
---|
81 | ;;^UTILITY(U,$J,601.751,821,0)
|
---|
82 | ;;=200^7^709
|
---|
83 | ;;^UTILITY(U,$J,601.751,822,0)
|
---|
84 | ;;=201^1^701
|
---|
85 | ;;^UTILITY(U,$J,601.751,823,0)
|
---|
86 | ;;=201^2^710
|
---|
87 | ;;^UTILITY(U,$J,601.751,824,0)
|
---|
88 | ;;=201^3^711
|
---|
89 | ;;^UTILITY(U,$J,601.751,825,0)
|
---|
90 | ;;=201^4^712
|
---|
91 | ;;^UTILITY(U,$J,601.751,826,0)
|
---|
92 | ;;=201^5^713
|
---|
93 | ;;^UTILITY(U,$J,601.751,827,0)
|
---|
94 | ;;=201^6^714
|
---|
95 | ;;^UTILITY(U,$J,601.751,828,0)
|
---|
96 | ;;=201^7^715
|
---|
97 | ;;^UTILITY(U,$J,601.751,829,0)
|
---|
98 | ;;=202^1^716
|
---|
99 | ;;^UTILITY(U,$J,601.751,830,0)
|
---|
100 | ;;=202^2^717
|
---|
101 | ;;^UTILITY(U,$J,601.751,831,0)
|
---|
102 | ;;=202^3^718
|
---|
103 | ;;^UTILITY(U,$J,601.751,832,0)
|
---|
104 | ;;=202^4^719
|
---|
105 | ;;^UTILITY(U,$J,601.751,833,0)
|
---|
106 | ;;=202^5^720
|
---|
107 | ;;^UTILITY(U,$J,601.751,834,0)
|
---|
108 | ;;=203^1^721
|
---|
109 | ;;^UTILITY(U,$J,601.751,835,0)
|
---|
110 | ;;=203^2^722
|
---|
111 | ;;^UTILITY(U,$J,601.751,836,0)
|
---|
112 | ;;=203^3^362
|
---|
113 | ;;^UTILITY(U,$J,601.751,837,0)
|
---|
114 | ;;=204^1^723
|
---|
115 | ;;^UTILITY(U,$J,601.751,838,0)
|
---|
116 | ;;=205^1^716
|
---|
117 | ;;^UTILITY(U,$J,601.751,839,0)
|
---|
118 | ;;=205^2^724
|
---|
119 | ;;^UTILITY(U,$J,601.751,840,0)
|
---|
120 | ;;=205^3^725
|
---|
121 | ;;^UTILITY(U,$J,601.751,841,0)
|
---|
122 | ;;=205^4^726
|
---|
123 | ;;^UTILITY(U,$J,601.751,842,0)
|
---|
124 | ;;=206^1^240
|
---|
125 | ;;^UTILITY(U,$J,601.751,843,0)
|
---|
126 | ;;=206^2^727
|
---|
127 | ;;^UTILITY(U,$J,601.751,844,0)
|
---|
128 | ;;=206^3^728
|
---|
129 | ;;^UTILITY(U,$J,601.751,845,0)
|
---|
130 | ;;=206^4^729
|
---|
131 | ;;^UTILITY(U,$J,601.751,846,0)
|
---|
132 | ;;=207^1^240
|
---|
133 | ;;^UTILITY(U,$J,601.751,847,0)
|
---|
134 | ;;=207^2^730
|
---|
135 | ;;^UTILITY(U,$J,601.751,848,0)
|
---|
136 | ;;=207^3^731
|
---|
137 | ;;^UTILITY(U,$J,601.751,849,0)
|
---|
138 | ;;=207^4^732
|
---|
139 | ;;^UTILITY(U,$J,601.751,850,0)
|
---|
140 | ;;=208^1^240
|
---|
141 | ;;^UTILITY(U,$J,601.751,851,0)
|
---|
142 | ;;=208^2^733
|
---|
143 | ;;^UTILITY(U,$J,601.751,852,0)
|
---|
144 | ;;=208^3^734
|
---|
145 | ;;^UTILITY(U,$J,601.751,853,0)
|
---|
146 | ;;=208^4^735
|
---|
147 | ;;^UTILITY(U,$J,601.751,854,0)
|
---|
148 | ;;=209^1^240
|
---|
149 | ;;^UTILITY(U,$J,601.751,855,0)
|
---|
150 | ;;=209^2^736
|
---|
151 | ;;^UTILITY(U,$J,601.751,856,0)
|
---|
152 | ;;=209^3^737
|
---|
153 | ;;^UTILITY(U,$J,601.751,857,0)
|
---|
154 | ;;=209^4^738
|
---|
155 | ;;^UTILITY(U,$J,601.751,858,0)
|
---|
156 | ;;=210^1^739
|
---|
157 | ;;^UTILITY(U,$J,601.751,859,0)
|
---|
158 | ;;=210^2^740
|
---|
159 | ;;^UTILITY(U,$J,601.751,860,0)
|
---|
160 | ;;=210^3^741
|
---|
161 | ;;^UTILITY(U,$J,601.751,861,0)
|
---|
162 | ;;=210^4^742
|
---|
163 | ;;^UTILITY(U,$J,601.751,862,0)
|
---|
164 | ;;=210^5^743
|
---|
165 | ;;^UTILITY(U,$J,601.751,863,0)
|
---|
166 | ;;=211^1^744
|
---|
167 | ;;^UTILITY(U,$J,601.751,864,0)
|
---|
168 | ;;=211^2^745
|
---|
169 | ;;^UTILITY(U,$J,601.751,865,0)
|
---|
170 | ;;=211^3^746
|
---|
171 | ;;^UTILITY(U,$J,601.751,866,0)
|
---|
172 | ;;=211^4^747
|
---|
173 | ;;^UTILITY(U,$J,601.751,867,0)
|
---|
174 | ;;=211^5^748
|
---|
175 | ;;^UTILITY(U,$J,601.751,868,0)
|
---|
176 | ;;=212^1^749
|
---|
177 | ;;^UTILITY(U,$J,601.751,869,0)
|
---|
178 | ;;=212^2^750
|
---|
179 | ;;^UTILITY(U,$J,601.751,870,0)
|
---|
180 | ;;=212^3^751
|
---|
181 | ;;^UTILITY(U,$J,601.751,871,0)
|
---|
182 | ;;=212^4^752
|
---|
183 | ;;^UTILITY(U,$J,601.751,872,0)
|
---|
184 | ;;=212^5^753
|
---|
185 | ;;^UTILITY(U,$J,601.751,873,0)
|
---|
186 | ;;=212^6^754
|
---|
187 | ;;^UTILITY(U,$J,601.751,874,0)
|
---|
188 | ;;=213^1^701
|
---|
189 | ;;^UTILITY(U,$J,601.751,875,0)
|
---|
190 | ;;=213^2^702
|
---|
191 | ;;^UTILITY(U,$J,601.751,876,0)
|
---|
192 | ;;=213^3^703
|
---|
193 | ;;^UTILITY(U,$J,601.751,877,0)
|
---|
194 | ;;=213^4^704
|
---|
195 | ;;^UTILITY(U,$J,601.751,878,0)
|
---|
196 | ;;=213^5^755
|
---|
197 | ;;^UTILITY(U,$J,601.751,879,0)
|
---|
198 | ;;=214^1^756
|
---|
199 | ;;^UTILITY(U,$J,601.751,880,0)
|
---|
200 | ;;=214^2^757
|
---|
201 | ;;^UTILITY(U,$J,601.751,881,0)
|
---|
202 | ;;=214^3^758
|
---|
203 | ;;^UTILITY(U,$J,601.751,882,0)
|
---|
204 | ;;=214^4^759
|
---|
205 | ;;^UTILITY(U,$J,601.751,883,0)
|
---|
206 | ;;=214^5^760
|
---|
207 | ;;^UTILITY(U,$J,601.751,884,0)
|
---|
208 | ;;=215^1^761
|
---|
209 | ;;^UTILITY(U,$J,601.751,885,0)
|
---|
210 | ;;=215^2^762
|
---|
211 | ;;^UTILITY(U,$J,601.751,886,0)
|
---|
212 | ;;=215^3^763
|
---|
213 | ;;^UTILITY(U,$J,601.751,887,0)
|
---|
214 | ;;=215^4^764
|
---|
215 | ;;^UTILITY(U,$J,601.751,888,0)
|
---|
216 | ;;=215^5^765
|
---|
217 | ;;^UTILITY(U,$J,601.751,889,0)
|
---|
218 | ;;=216^1^361
|
---|
219 | ;;^UTILITY(U,$J,601.751,890,0)
|
---|
220 | ;;=216^2^766
|
---|
221 | ;;^UTILITY(U,$J,601.751,891,0)
|
---|
222 | ;;=216^3^767
|
---|
223 | ;;^UTILITY(U,$J,601.751,892,0)
|
---|
224 | ;;=217^1^768
|
---|
225 | ;;^UTILITY(U,$J,601.751,893,0)
|
---|
226 | ;;=217^2^769
|
---|
227 | ;;^UTILITY(U,$J,601.751,894,0)
|
---|
228 | ;;=217^3^770
|
---|
229 | ;;^UTILITY(U,$J,601.751,895,0)
|
---|
230 | ;;=217^4^771
|
---|
231 | ;;^UTILITY(U,$J,601.751,896,0)
|
---|
232 | ;;=218^1^772
|
---|
233 | ;;^UTILITY(U,$J,601.751,897,0)
|
---|
234 | ;;=218^2^773
|
---|
235 | ;;^UTILITY(U,$J,601.751,898,0)
|
---|
236 | ;;=218^3^774
|
---|
237 | ;;^UTILITY(U,$J,601.751,899,0)
|
---|
238 | ;;=218^4^775
|
---|
239 | ;;^UTILITY(U,$J,601.751,900,0)
|
---|
240 | ;;=219^1^776
|
---|
241 | ;;^UTILITY(U,$J,601.751,901,0)
|
---|
242 | ;;=219^2^777
|
---|
243 | ;;^UTILITY(U,$J,601.751,902,0)
|
---|
244 | ;;=219^3^778
|
---|
245 | ;;^UTILITY(U,$J,601.751,903,0)
|
---|
246 | ;;=219^4^779
|
---|
247 | ;;^UTILITY(U,$J,601.751,904,0)
|
---|
248 | ;;=220^1^780
|
---|
249 | ;;^UTILITY(U,$J,601.751,905,0)
|
---|
250 | ;;=220^2^781
|
---|
251 | ;;^UTILITY(U,$J,601.751,906,0)
|
---|
252 | ;;=220^3^782
|
---|
253 | ;;^UTILITY(U,$J,601.751,907,0)
|
---|
254 | ;;=220^4^783
|
---|
255 | ;;^UTILITY(U,$J,601.751,908,0)
|
---|
256 | ;;=220^5^784
|
---|
257 | ;;^UTILITY(U,$J,601.751,909,0)
|
---|
258 | ;;=220^6^785
|
---|
259 | ;;^UTILITY(U,$J,601.751,910,0)
|
---|
260 | ;;=3712^1^237
|
---|
261 | ;;^UTILITY(U,$J,601.751,911,0)
|
---|
262 | ;;=3712^2^241
|
---|
263 | ;;^UTILITY(U,$J,601.751,912,0)
|
---|
264 | ;;=3713^1^237
|
---|
265 | ;;^UTILITY(U,$J,601.751,913,0)
|
---|
266 | ;;=3713^2^241
|
---|
267 | ;;^UTILITY(U,$J,601.751,914,0)
|
---|
268 | ;;=3714^1^237
|
---|
269 | ;;^UTILITY(U,$J,601.751,915,0)
|
---|
270 | ;;=3714^2^241
|
---|
271 | ;;^UTILITY(U,$J,601.751,916,0)
|
---|
272 | ;;=6220^1^1465
|
---|
273 | ;;^UTILITY(U,$J,601.751,917,0)
|
---|
274 | ;;=6220^2^1466
|
---|
275 | ;;^UTILITY(U,$J,601.751,918,0)
|
---|
276 | ;;=6220^3^1467
|
---|
277 | ;;^UTILITY(U,$J,601.751,919,0)
|
---|
278 | ;;=6220^4^745
|
---|
279 | ;;^UTILITY(U,$J,601.751,920,0)
|
---|
280 | ;;=6221^1^1468
|
---|
281 | ;;^UTILITY(U,$J,601.751,921,0)
|
---|
282 | ;;=6221^2^1469
|
---|
283 | ;;^UTILITY(U,$J,601.751,922,0)
|
---|
284 | ;;=6221^3^1470
|
---|
285 | ;;^UTILITY(U,$J,601.751,923,0)
|
---|
286 | ;;=6221^4^753
|
---|
287 | ;;^UTILITY(U,$J,601.751,924,0)
|
---|
288 | ;;=228^1^800
|
---|
289 | ;;^UTILITY(U,$J,601.751,925,0)
|
---|
290 | ;;=228^2^801
|
---|
291 | ;;^UTILITY(U,$J,601.751,926,0)
|
---|
292 | ;;=6221^5^1471
|
---|
293 | ;;^UTILITY(U,$J,601.751,927,0)
|
---|
294 | ;;=6222^1^1814
|
---|
295 | ;;^UTILITY(U,$J,601.751,928,0)
|
---|
296 | ;;=6222^2^1472
|
---|
297 | ;;^UTILITY(U,$J,601.751,929,0)
|
---|
298 | ;;=6222^3^1473
|
---|
299 | ;;^UTILITY(U,$J,601.751,930,0)
|
---|
300 | ;;=6222^4^1474
|
---|
301 | ;;^UTILITY(U,$J,601.751,931,0)
|
---|
302 | ;;=6222^5^1475
|
---|
303 | ;;^UTILITY(U,$J,601.751,932,0)
|
---|
304 | ;;=232^1^808
|
---|
305 | ;;^UTILITY(U,$J,601.751,933,0)
|
---|
306 | ;;=232^2^809
|
---|
307 | ;;^UTILITY(U,$J,601.751,934,0)
|
---|
308 | ;;=233^1^810
|
---|
309 | ;;^UTILITY(U,$J,601.751,935,0)
|
---|
310 | ;;=233^2^811
|
---|
311 | ;;^UTILITY(U,$J,601.751,936,0)
|
---|
312 | ;;=234^1^812
|
---|
313 | ;;^UTILITY(U,$J,601.751,937,0)
|
---|
314 | ;;=234^2^813
|
---|
315 | ;;^UTILITY(U,$J,601.751,938,0)
|
---|
316 | ;;=6222^6^1476
|
---|
317 | ;;^UTILITY(U,$J,601.751,939,0)
|
---|
318 | ;;=6222^7^1477
|
---|
319 | ;;^UTILITY(U,$J,601.751,940,0)
|
---|
320 | ;;=721^1^803
|
---|
321 | ;;^UTILITY(U,$J,601.751,941,0)
|
---|
322 | ;;=721^2^804
|
---|
323 | ;;^UTILITY(U,$J,601.751,942,0)
|
---|
324 | ;;=721^3^805
|
---|
325 | ;;^UTILITY(U,$J,601.751,943,0)
|
---|
326 | ;;=721^4^806
|
---|
327 | ;;^UTILITY(U,$J,601.751,944,0)
|
---|
328 | ;;=238^1^820
|
---|
329 | ;;^UTILITY(U,$J,601.751,945,0)
|
---|
330 | ;;=238^2^821
|
---|
331 | ;;^UTILITY(U,$J,601.751,946,0)
|
---|
332 | ;;=239^1^822
|
---|
333 | ;;^UTILITY(U,$J,601.751,947,0)
|
---|
334 | ;;=239^2^823
|
---|
335 | ;;^UTILITY(U,$J,601.751,948,0)
|
---|
336 | ;;=240^1^824
|
---|
337 | ;;^UTILITY(U,$J,601.751,949,0)
|
---|
338 | ;;=240^2^825
|
---|
339 | ;;^UTILITY(U,$J,601.751,950,0)
|
---|
340 | ;;=721^5^807
|
---|
341 | ;;^UTILITY(U,$J,601.751,951,0)
|
---|
342 | ;;=722^1^814
|
---|
343 | ;;^UTILITY(U,$J,601.751,952,0)
|
---|
344 | ;;=242^1^828
|
---|
345 | ;;^UTILITY(U,$J,601.751,953,0)
|
---|
346 | ;;=242^2^829
|
---|
347 | ;;^UTILITY(U,$J,601.751,954,0)
|
---|
348 | ;;=243^1^830
|
---|
349 | ;;^UTILITY(U,$J,601.751,955,0)
|
---|
350 | ;;=243^2^831
|
---|
351 | ;;^UTILITY(U,$J,601.751,956,0)
|
---|
352 | ;;=722^2^815
|
---|
353 | ;;^UTILITY(U,$J,601.751,957,0)
|
---|
354 | ;;=722^3^884
|
---|
355 | ;;^UTILITY(U,$J,601.751,958,0)
|
---|
356 | ;;=722^4^772
|
---|
357 | ;;^UTILITY(U,$J,601.751,959,0)
|
---|
358 | ;;=722^5^817
|
---|
359 | ;;^UTILITY(U,$J,601.751,960,0)
|
---|
360 | ;;=723^1^217
|
---|
361 | ;;^UTILITY(U,$J,601.751,961,0)
|
---|
362 | ;;=723^2^242
|
---|
363 | ;;^UTILITY(U,$J,601.751,962,0)
|
---|
364 | ;;=247^1^838
|
---|
365 | ;;^UTILITY(U,$J,601.751,963,0)
|
---|
366 | ;;=247^2^839
|
---|
367 | ;;^UTILITY(U,$J,601.751,964,0)
|
---|
368 | ;;=248^1^840
|
---|
369 | ;;^UTILITY(U,$J,601.751,965,0)
|
---|
370 | ;;=248^2^841
|
---|
371 | ;;^UTILITY(U,$J,601.751,966,0)
|
---|
372 | ;;=723^3^213
|
---|
373 | ;;^UTILITY(U,$J,601.751,967,0)
|
---|
374 | ;;=723^4^215
|
---|
375 | ;;^UTILITY(U,$J,601.751,968,0)
|
---|
376 | ;;=250^1^289
|
---|
377 | ;;^UTILITY(U,$J,601.751,969,0)
|
---|
378 | ;;=250^2^290
|
---|
379 | ;;^UTILITY(U,$J,601.751,970,0)
|
---|
380 | ;;=250^3^844
|
---|
381 | ;;^UTILITY(U,$J,601.751,971,0)
|
---|
382 | ;;=251^1^845
|
---|
383 | ;;^UTILITY(U,$J,601.751,972,0)
|
---|
384 | ;;=251^2^846
|
---|
385 | ;;^UTILITY(U,$J,601.751,973,0)
|
---|
386 | ;;=251^3^847
|
---|