1 | YTQQI00D ;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,8576,0)
|
---|
6 | ;;=2644^2^241
|
---|
7 | ;;^UTILITY(U,$J,601.751,8577,0)
|
---|
8 | ;;=2645^1^237
|
---|
9 | ;;^UTILITY(U,$J,601.751,8578,0)
|
---|
10 | ;;=2645^2^241
|
---|
11 | ;;^UTILITY(U,$J,601.751,8579,0)
|
---|
12 | ;;=2646^1^237
|
---|
13 | ;;^UTILITY(U,$J,601.751,8580,0)
|
---|
14 | ;;=2646^2^241
|
---|
15 | ;;^UTILITY(U,$J,601.751,8581,0)
|
---|
16 | ;;=2647^1^237
|
---|
17 | ;;^UTILITY(U,$J,601.751,8582,0)
|
---|
18 | ;;=2647^2^241
|
---|
19 | ;;^UTILITY(U,$J,601.751,8583,0)
|
---|
20 | ;;=2648^1^237
|
---|
21 | ;;^UTILITY(U,$J,601.751,8584,0)
|
---|
22 | ;;=2648^2^241
|
---|
23 | ;;^UTILITY(U,$J,601.751,8585,0)
|
---|
24 | ;;=2649^1^237
|
---|
25 | ;;^UTILITY(U,$J,601.751,8586,0)
|
---|
26 | ;;=2649^2^241
|
---|
27 | ;;^UTILITY(U,$J,601.751,8587,0)
|
---|
28 | ;;=2650^1^237
|
---|
29 | ;;^UTILITY(U,$J,601.751,8588,0)
|
---|
30 | ;;=2650^2^241
|
---|
31 | ;;^UTILITY(U,$J,601.751,8589,0)
|
---|
32 | ;;=2651^1^237
|
---|
33 | ;;^UTILITY(U,$J,601.751,8590,0)
|
---|
34 | ;;=2651^2^241
|
---|
35 | ;;^UTILITY(U,$J,601.751,8591,0)
|
---|
36 | ;;=2652^1^237
|
---|
37 | ;;^UTILITY(U,$J,601.751,8592,0)
|
---|
38 | ;;=2652^2^241
|
---|
39 | ;;^UTILITY(U,$J,601.751,8593,0)
|
---|
40 | ;;=2653^1^237
|
---|
41 | ;;^UTILITY(U,$J,601.751,8594,0)
|
---|
42 | ;;=2653^2^241
|
---|
43 | ;;^UTILITY(U,$J,601.751,8595,0)
|
---|
44 | ;;=2654^1^237
|
---|
45 | ;;^UTILITY(U,$J,601.751,8596,0)
|
---|
46 | ;;=2654^2^241
|
---|
47 | ;;^UTILITY(U,$J,601.751,8597,0)
|
---|
48 | ;;=2655^1^237
|
---|
49 | ;;^UTILITY(U,$J,601.751,8598,0)
|
---|
50 | ;;=2655^2^241
|
---|
51 | ;;^UTILITY(U,$J,601.751,8599,0)
|
---|
52 | ;;=2656^1^100884
|
---|
53 | ;;^UTILITY(U,$J,601.751,8600,0)
|
---|
54 | ;;=2656^2^100885
|
---|
55 | ;;^UTILITY(U,$J,601.751,8601,0)
|
---|
56 | ;;=2656^3^100886
|
---|
57 | ;;^UTILITY(U,$J,601.751,8602,0)
|
---|
58 | ;;=2656^4^100887
|
---|
59 | ;;^UTILITY(U,$J,601.751,8603,0)
|
---|
60 | ;;=2657^1^100888
|
---|
61 | ;;^UTILITY(U,$J,601.751,8604,0)
|
---|
62 | ;;=2657^2^100889
|
---|
63 | ;;^UTILITY(U,$J,601.751,8605,0)
|
---|
64 | ;;=2657^3^100890
|
---|
65 | ;;^UTILITY(U,$J,601.751,8606,0)
|
---|
66 | ;;=2657^4^100891
|
---|
67 | ;;^UTILITY(U,$J,601.751,8607,0)
|
---|
68 | ;;=2657^5^100892
|
---|
69 | ;;^UTILITY(U,$J,601.751,8608,0)
|
---|
70 | ;;=2657^6^100893
|
---|
71 | ;;^UTILITY(U,$J,601.751,8609,0)
|
---|
72 | ;;=2658^1^100888
|
---|
73 | ;;^UTILITY(U,$J,601.751,8610,0)
|
---|
74 | ;;=2658^2^100889
|
---|
75 | ;;^UTILITY(U,$J,601.751,8611,0)
|
---|
76 | ;;=2658^3^100890
|
---|
77 | ;;^UTILITY(U,$J,601.751,8612,0)
|
---|
78 | ;;=2658^4^100891
|
---|
79 | ;;^UTILITY(U,$J,601.751,8613,0)
|
---|
80 | ;;=2658^5^100892
|
---|
81 | ;;^UTILITY(U,$J,601.751,8614,0)
|
---|
82 | ;;=2658^6^100893
|
---|
83 | ;;^UTILITY(U,$J,601.751,8615,0)
|
---|
84 | ;;=2659^1^856
|
---|
85 | ;;^UTILITY(U,$J,601.751,8616,0)
|
---|
86 | ;;=2659^2^100947
|
---|
87 | ;;^UTILITY(U,$J,601.751,8617,0)
|
---|
88 | ;;=2659^3^855
|
---|
89 | ;;^UTILITY(U,$J,601.751,8618,0)
|
---|
90 | ;;=2659^4^100948
|
---|
91 | ;;^UTILITY(U,$J,601.751,8619,0)
|
---|
92 | ;;=2659^5^100949
|
---|
93 | ;;^UTILITY(U,$J,601.751,8620,0)
|
---|
94 | ;;=2660^1^856
|
---|
95 | ;;^UTILITY(U,$J,601.751,8621,0)
|
---|
96 | ;;=2660^2^100947
|
---|
97 | ;;^UTILITY(U,$J,601.751,8622,0)
|
---|
98 | ;;=2660^3^855
|
---|
99 | ;;^UTILITY(U,$J,601.751,8623,0)
|
---|
100 | ;;=2660^4^100948
|
---|
101 | ;;^UTILITY(U,$J,601.751,8624,0)
|
---|
102 | ;;=2660^5^100949
|
---|
103 | ;;^UTILITY(U,$J,601.751,8625,0)
|
---|
104 | ;;=2661^1^856
|
---|
105 | ;;^UTILITY(U,$J,601.751,8626,0)
|
---|
106 | ;;=2661^2^100947
|
---|
107 | ;;^UTILITY(U,$J,601.751,8627,0)
|
---|
108 | ;;=2661^3^855
|
---|
109 | ;;^UTILITY(U,$J,601.751,8628,0)
|
---|
110 | ;;=2661^4^100948
|
---|
111 | ;;^UTILITY(U,$J,601.751,8629,0)
|
---|
112 | ;;=2661^5^100949
|
---|
113 | ;;^UTILITY(U,$J,601.751,8630,0)
|
---|
114 | ;;=2662^1^856
|
---|
115 | ;;^UTILITY(U,$J,601.751,8631,0)
|
---|
116 | ;;=2662^2^100947
|
---|
117 | ;;^UTILITY(U,$J,601.751,8632,0)
|
---|
118 | ;;=2662^3^855
|
---|
119 | ;;^UTILITY(U,$J,601.751,8633,0)
|
---|
120 | ;;=2662^4^100948
|
---|
121 | ;;^UTILITY(U,$J,601.751,8634,0)
|
---|
122 | ;;=2662^5^100949
|
---|
123 | ;;^UTILITY(U,$J,601.751,8635,0)
|
---|
124 | ;;=2663^1^856
|
---|
125 | ;;^UTILITY(U,$J,601.751,8636,0)
|
---|
126 | ;;=2663^2^100947
|
---|
127 | ;;^UTILITY(U,$J,601.751,8637,0)
|
---|
128 | ;;=2663^3^855
|
---|
129 | ;;^UTILITY(U,$J,601.751,8638,0)
|
---|
130 | ;;=2663^4^100948
|
---|
131 | ;;^UTILITY(U,$J,601.751,8639,0)
|
---|
132 | ;;=2663^5^100949
|
---|
133 | ;;^UTILITY(U,$J,601.751,8640,0)
|
---|
134 | ;;=2664^1^100888
|
---|
135 | ;;^UTILITY(U,$J,601.751,8641,0)
|
---|
136 | ;;=2664^2^1404
|
---|
137 | ;;^UTILITY(U,$J,601.751,8642,0)
|
---|
138 | ;;=2664^3^1405
|
---|
139 | ;;^UTILITY(U,$J,601.751,8643,0)
|
---|
140 | ;;=2664^4^1406
|
---|
141 | ;;^UTILITY(U,$J,601.751,8644,0)
|
---|
142 | ;;=2664^5^1407
|
---|
143 | ;;^UTILITY(U,$J,601.751,8645,0)
|
---|
144 | ;;=2664^6^1408
|
---|
145 | ;;^UTILITY(U,$J,601.751,8646,0)
|
---|
146 | ;;=2665^1^1409
|
---|
147 | ;;^UTILITY(U,$J,601.751,8647,0)
|
---|
148 | ;;=2665^2^217
|
---|
149 | ;;^UTILITY(U,$J,601.751,8648,0)
|
---|
150 | ;;=2665^3^242
|
---|
151 | ;;^UTILITY(U,$J,601.751,8649,0)
|
---|
152 | ;;=2665^4^290
|
---|
153 | ;;^UTILITY(U,$J,601.751,8650,0)
|
---|
154 | ;;=2665^5^213
|
---|
155 | ;;^UTILITY(U,$J,601.751,8651,0)
|
---|
156 | ;;=2665^6^215
|
---|
157 | ;;^UTILITY(U,$J,601.751,8652,0)
|
---|
158 | ;;=2665^7^291
|
---|
159 | ;;^UTILITY(U,$J,601.751,8653,0)
|
---|
160 | ;;=2665^8^995
|
---|
161 | ;;^UTILITY(U,$J,601.751,8654,0)
|
---|
162 | ;;=2666^1^1409
|
---|
163 | ;;^UTILITY(U,$J,601.751,8655,0)
|
---|
164 | ;;=2666^2^217
|
---|
165 | ;;^UTILITY(U,$J,601.751,8656,0)
|
---|
166 | ;;=2666^3^242
|
---|
167 | ;;^UTILITY(U,$J,601.751,8657,0)
|
---|
168 | ;;=2666^4^290
|
---|
169 | ;;^UTILITY(U,$J,601.751,8658,0)
|
---|
170 | ;;=2666^5^213
|
---|
171 | ;;^UTILITY(U,$J,601.751,8659,0)
|
---|
172 | ;;=2666^6^215
|
---|
173 | ;;^UTILITY(U,$J,601.751,8660,0)
|
---|
174 | ;;=2666^7^291
|
---|
175 | ;;^UTILITY(U,$J,601.751,8661,0)
|
---|
176 | ;;=2666^8^995
|
---|
177 | ;;^UTILITY(U,$J,601.751,8662,0)
|
---|
178 | ;;=2667^1^1409
|
---|
179 | ;;^UTILITY(U,$J,601.751,8663,0)
|
---|
180 | ;;=2667^2^217
|
---|
181 | ;;^UTILITY(U,$J,601.751,8664,0)
|
---|
182 | ;;=2667^3^242
|
---|
183 | ;;^UTILITY(U,$J,601.751,8665,0)
|
---|
184 | ;;=2667^4^290
|
---|
185 | ;;^UTILITY(U,$J,601.751,8666,0)
|
---|
186 | ;;=2667^5^213
|
---|
187 | ;;^UTILITY(U,$J,601.751,8667,0)
|
---|
188 | ;;=2667^6^215
|
---|
189 | ;;^UTILITY(U,$J,601.751,8668,0)
|
---|
190 | ;;=2667^7^291
|
---|
191 | ;;^UTILITY(U,$J,601.751,8669,0)
|
---|
192 | ;;=2667^8^995
|
---|
193 | ;;^UTILITY(U,$J,601.751,8670,0)
|
---|
194 | ;;=2668^1^1409
|
---|
195 | ;;^UTILITY(U,$J,601.751,8671,0)
|
---|
196 | ;;=2668^2^217
|
---|
197 | ;;^UTILITY(U,$J,601.751,8672,0)
|
---|
198 | ;;=2668^3^242
|
---|
199 | ;;^UTILITY(U,$J,601.751,8673,0)
|
---|
200 | ;;=2668^4^290
|
---|
201 | ;;^UTILITY(U,$J,601.751,8674,0)
|
---|
202 | ;;=2668^5^213
|
---|
203 | ;;^UTILITY(U,$J,601.751,8675,0)
|
---|
204 | ;;=2668^6^215
|
---|
205 | ;;^UTILITY(U,$J,601.751,8676,0)
|
---|
206 | ;;=2668^7^291
|
---|
207 | ;;^UTILITY(U,$J,601.751,8677,0)
|
---|
208 | ;;=2668^8^995
|
---|
209 | ;;^UTILITY(U,$J,601.751,8678,0)
|
---|
210 | ;;=2669^1^1409
|
---|
211 | ;;^UTILITY(U,$J,601.751,8679,0)
|
---|
212 | ;;=2669^2^217
|
---|
213 | ;;^UTILITY(U,$J,601.751,8680,0)
|
---|
214 | ;;=2669^3^242
|
---|
215 | ;;^UTILITY(U,$J,601.751,8681,0)
|
---|
216 | ;;=2669^4^290
|
---|
217 | ;;^UTILITY(U,$J,601.751,8682,0)
|
---|
218 | ;;=2669^5^213
|
---|
219 | ;;^UTILITY(U,$J,601.751,8683,0)
|
---|
220 | ;;=2669^6^215
|
---|
221 | ;;^UTILITY(U,$J,601.751,8684,0)
|
---|
222 | ;;=2669^7^291
|
---|
223 | ;;^UTILITY(U,$J,601.751,8685,0)
|
---|
224 | ;;=2669^8^995
|
---|
225 | ;;^UTILITY(U,$J,601.751,8686,0)
|
---|
226 | ;;=2670^1^1409
|
---|
227 | ;;^UTILITY(U,$J,601.751,8687,0)
|
---|
228 | ;;=2670^2^217
|
---|
229 | ;;^UTILITY(U,$J,601.751,8688,0)
|
---|
230 | ;;=2670^3^242
|
---|
231 | ;;^UTILITY(U,$J,601.751,8689,0)
|
---|
232 | ;;=2670^4^290
|
---|
233 | ;;^UTILITY(U,$J,601.751,8690,0)
|
---|
234 | ;;=2670^5^213
|
---|
235 | ;;^UTILITY(U,$J,601.751,8691,0)
|
---|
236 | ;;=2670^6^215
|
---|
237 | ;;^UTILITY(U,$J,601.751,8692,0)
|
---|
238 | ;;=2670^7^291
|
---|
239 | ;;^UTILITY(U,$J,601.751,8693,0)
|
---|
240 | ;;=2670^8^995
|
---|
241 | ;;^UTILITY(U,$J,601.751,8694,0)
|
---|
242 | ;;=2671^1^1410
|
---|
243 | ;;^UTILITY(U,$J,601.751,8695,0)
|
---|
244 | ;;=2671^2^1411
|
---|
245 | ;;^UTILITY(U,$J,601.751,8696,0)
|
---|
246 | ;;=2671^3^1063
|
---|
247 | ;;^UTILITY(U,$J,601.751,8697,0)
|
---|
248 | ;;=2671^4^1062
|
---|
249 | ;;^UTILITY(U,$J,601.751,8698,0)
|
---|
250 | ;;=2671^5^1061
|
---|
251 | ;;^UTILITY(U,$J,601.751,8699,0)
|
---|
252 | ;;=2671^6^1059
|
---|
253 | ;;^UTILITY(U,$J,601.751,8700,0)
|
---|
254 | ;;=2672^1^100884
|
---|
255 | ;;^UTILITY(U,$J,601.751,8701,0)
|
---|
256 | ;;=2672^2^1412
|
---|
257 | ;;^UTILITY(U,$J,601.751,8702,0)
|
---|
258 | ;;=2672^3^1413
|
---|
259 | ;;^UTILITY(U,$J,601.751,8703,0)
|
---|
260 | ;;=2672^4^1414
|
---|
261 | ;;^UTILITY(U,$J,601.751,8704,0)
|
---|
262 | ;;=2672^5^1415
|
---|
263 | ;;^UTILITY(U,$J,601.751,8705,0)
|
---|
264 | ;;=2672^6^1416
|
---|
265 | ;;^UTILITY(U,$J,601.751,8706,0)
|
---|
266 | ;;=2673^1^100884
|
---|
267 | ;;^UTILITY(U,$J,601.751,8707,0)
|
---|
268 | ;;=2673^2^1412
|
---|
269 | ;;^UTILITY(U,$J,601.751,8708,0)
|
---|
270 | ;;=2673^3^1413
|
---|
271 | ;;^UTILITY(U,$J,601.751,8709,0)
|
---|
272 | ;;=2673^4^1414
|
---|
273 | ;;^UTILITY(U,$J,601.751,8710,0)
|
---|
274 | ;;=2673^5^1415
|
---|
275 | ;;^UTILITY(U,$J,601.751,8711,0)
|
---|
276 | ;;=2673^6^1416
|
---|
277 | ;;^UTILITY(U,$J,601.751,8712,0)
|
---|
278 | ;;=2674^1^1417
|
---|
279 | ;;^UTILITY(U,$J,601.751,8713,0)
|
---|
280 | ;;=2674^2^1418
|
---|
281 | ;;^UTILITY(U,$J,601.751,8714,0)
|
---|
282 | ;;=2674^3^1419
|
---|
283 | ;;^UTILITY(U,$J,601.751,8715,0)
|
---|
284 | ;;=2674^4^1420
|
---|
285 | ;;^UTILITY(U,$J,601.751,8716,0)
|
---|
286 | ;;=2674^5^1421
|
---|
287 | ;;^UTILITY(U,$J,601.751,8717,0)
|
---|
288 | ;;=2674^6^1422
|
---|
289 | ;;^UTILITY(U,$J,601.751,8718,0)
|
---|
290 | ;;=2674^7^1423
|
---|
291 | ;;^UTILITY(U,$J,601.751,8719,0)
|
---|
292 | ;;=2674^8^1424
|
---|
293 | ;;^UTILITY(U,$J,601.751,8720,0)
|
---|
294 | ;;=2675^1^237
|
---|
295 | ;;^UTILITY(U,$J,601.751,8721,0)
|
---|
296 | ;;=2675^2^241
|
---|
297 | ;;^UTILITY(U,$J,601.751,8722,0)
|
---|
298 | ;;=2676^1^237
|
---|
299 | ;;^UTILITY(U,$J,601.751,8723,0)
|
---|
300 | ;;=2676^2^241
|
---|
301 | ;;^UTILITY(U,$J,601.751,8724,0)
|
---|
302 | ;;=2677^1^237
|
---|
303 | ;;^UTILITY(U,$J,601.751,8725,0)
|
---|
304 | ;;=2677^2^241
|
---|
305 | ;;^UTILITY(U,$J,601.751,8726,0)
|
---|
306 | ;;=2678^1^237
|
---|
307 | ;;^UTILITY(U,$J,601.751,8727,0)
|
---|
308 | ;;=2678^2^241
|
---|
309 | ;;^UTILITY(U,$J,601.751,8728,0)
|
---|
310 | ;;=2679^1^237
|
---|
311 | ;;^UTILITY(U,$J,601.751,8729,0)
|
---|
312 | ;;=2679^2^241
|
---|
313 | ;;^UTILITY(U,$J,601.751,8730,0)
|
---|
314 | ;;=2680^1^237
|
---|
315 | ;;^UTILITY(U,$J,601.751,8731,0)
|
---|
316 | ;;=2680^2^241
|
---|
317 | ;;^UTILITY(U,$J,601.751,8732,0)
|
---|
318 | ;;=2681^1^237
|
---|
319 | ;;^UTILITY(U,$J,601.751,8733,0)
|
---|
320 | ;;=2681^2^241
|
---|
321 | ;;^UTILITY(U,$J,601.751,8734,0)
|
---|
322 | ;;=2682^1^237
|
---|
323 | ;;^UTILITY(U,$J,601.751,8735,0)
|
---|
324 | ;;=2682^2^241
|
---|
325 | ;;^UTILITY(U,$J,601.751,8736,0)
|
---|
326 | ;;=2683^1^237
|
---|
327 | ;;^UTILITY(U,$J,601.751,8737,0)
|
---|
328 | ;;=2683^2^241
|
---|
329 | ;;^UTILITY(U,$J,601.751,8738,0)
|
---|
330 | ;;=2684^1^237
|
---|
331 | ;;^UTILITY(U,$J,601.751,8739,0)
|
---|
332 | ;;=2684^2^241
|
---|
333 | ;;^UTILITY(U,$J,601.751,8740,0)
|
---|
334 | ;;=2685^1^237
|
---|
335 | ;;^UTILITY(U,$J,601.751,8741,0)
|
---|
336 | ;;=2685^2^241
|
---|
337 | ;;^UTILITY(U,$J,601.751,8742,0)
|
---|
338 | ;;=2686^1^237
|
---|
339 | ;;^UTILITY(U,$J,601.751,8743,0)
|
---|
340 | ;;=2686^2^241
|
---|
341 | ;;^UTILITY(U,$J,601.751,8744,0)
|
---|
342 | ;;=2687^1^237
|
---|
343 | ;;^UTILITY(U,$J,601.751,8745,0)
|
---|
344 | ;;=2687^2^241
|
---|
345 | ;;^UTILITY(U,$J,601.751,8746,0)
|
---|
346 | ;;=2688^1^237
|
---|
347 | ;;^UTILITY(U,$J,601.751,8747,0)
|
---|
348 | ;;=2688^2^241
|
---|
349 | ;;^UTILITY(U,$J,601.751,8748,0)
|
---|
350 | ;;=2689^1^237
|
---|
351 | ;;^UTILITY(U,$J,601.751,8749,0)
|
---|
352 | ;;=2689^2^241
|
---|
353 | ;;^UTILITY(U,$J,601.751,8750,0)
|
---|
354 | ;;=2690^1^237
|
---|
355 | ;;^UTILITY(U,$J,601.751,8751,0)
|
---|
356 | ;;=2690^2^241
|
---|
357 | ;;^UTILITY(U,$J,601.751,8752,0)
|
---|
358 | ;;=2691^1^237
|
---|
359 | ;;^UTILITY(U,$J,601.751,8753,0)
|
---|
360 | ;;=2691^2^241
|
---|
361 | ;;^UTILITY(U,$J,601.751,8754,0)
|
---|
362 | ;;=2692^1^237
|
---|
363 | ;;^UTILITY(U,$J,601.751,8755,0)
|
---|
364 | ;;=2692^2^241
|
---|
365 | ;;^UTILITY(U,$J,601.751,8756,0)
|
---|
366 | ;;=2693^1^237
|
---|