source: FOIAVistA/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YTQQI006.m@ 711

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

initial load of FOIAVistA 6/30/08 version

File size: 8.9 KB
Line 
1YTQQI006 ;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
4Q 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
Note: See TracBrowser for help on using the repository browser.