source: WorldVistAEHR/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YTQQI00D.m@ 724

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

initial load of WorldVistAEHR

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