source: WorldVistAEHR/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YTQQI00C.m@ 861

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

initial load of WorldVistAEHR

File size: 8.9 KB
RevLine 
[613]1YTQQI00C ;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,1991,0)
6 ;;=889^1^212
7 ;;^UTILITY(U,$J,601.751,1992,0)
8 ;;=889^2^1008
9 ;;^UTILITY(U,$J,601.751,1993,0)
10 ;;=889^3^1009
11 ;;^UTILITY(U,$J,601.751,1994,0)
12 ;;=889^4^1010
13 ;;^UTILITY(U,$J,601.751,1995,0)
14 ;;=890^1^212
15 ;;^UTILITY(U,$J,601.751,1996,0)
16 ;;=890^2^1008
17 ;;^UTILITY(U,$J,601.751,1997,0)
18 ;;=890^3^1009
19 ;;^UTILITY(U,$J,601.751,1998,0)
20 ;;=890^4^1010
21 ;;^UTILITY(U,$J,601.751,1999,0)
22 ;;=891^1^212
23 ;;^UTILITY(U,$J,601.751,2000,0)
24 ;;=891^2^1008
25 ;;^UTILITY(U,$J,601.751,2001,0)
26 ;;=891^3^1009
27 ;;^UTILITY(U,$J,601.751,2002,0)
28 ;;=891^4^1010
29 ;;^UTILITY(U,$J,601.751,2003,0)
30 ;;=892^1^212
31 ;;^UTILITY(U,$J,601.751,2004,0)
32 ;;=892^2^1008
33 ;;^UTILITY(U,$J,601.751,2005,0)
34 ;;=892^3^1009
35 ;;^UTILITY(U,$J,601.751,2006,0)
36 ;;=892^4^1010
37 ;;^UTILITY(U,$J,601.751,2007,0)
38 ;;=893^1^212
39 ;;^UTILITY(U,$J,601.751,2008,0)
40 ;;=893^2^1008
41 ;;^UTILITY(U,$J,601.751,2009,0)
42 ;;=893^3^1009
43 ;;^UTILITY(U,$J,601.751,2010,0)
44 ;;=893^4^1010
45 ;;^UTILITY(U,$J,601.751,2011,0)
46 ;;=894^1^212
47 ;;^UTILITY(U,$J,601.751,2012,0)
48 ;;=894^2^1008
49 ;;^UTILITY(U,$J,601.751,2013,0)
50 ;;=894^3^1009
51 ;;^UTILITY(U,$J,601.751,2014,0)
52 ;;=894^4^1010
53 ;;^UTILITY(U,$J,601.751,2015,0)
54 ;;=895^1^212
55 ;;^UTILITY(U,$J,601.751,2016,0)
56 ;;=895^2^1008
57 ;;^UTILITY(U,$J,601.751,2017,0)
58 ;;=895^3^1009
59 ;;^UTILITY(U,$J,601.751,2018,0)
60 ;;=895^4^1010
61 ;;^UTILITY(U,$J,601.751,2019,0)
62 ;;=896^1^212
63 ;;^UTILITY(U,$J,601.751,2020,0)
64 ;;=896^2^1008
65 ;;^UTILITY(U,$J,601.751,2021,0)
66 ;;=896^3^1009
67 ;;^UTILITY(U,$J,601.751,2022,0)
68 ;;=896^4^1010
69 ;;^UTILITY(U,$J,601.751,2023,0)
70 ;;=897^1^212
71 ;;^UTILITY(U,$J,601.751,2024,0)
72 ;;=897^2^1008
73 ;;^UTILITY(U,$J,601.751,2025,0)
74 ;;=897^3^1009
75 ;;^UTILITY(U,$J,601.751,2026,0)
76 ;;=897^4^1010
77 ;;^UTILITY(U,$J,601.751,2027,0)
78 ;;=898^1^1334
79 ;;^UTILITY(U,$J,601.751,2028,0)
80 ;;=898^2^1335
81 ;;^UTILITY(U,$J,601.751,2029,0)
82 ;;=898^3^1336
83 ;;^UTILITY(U,$J,601.751,2030,0)
84 ;;=898^4^1337
85 ;;^UTILITY(U,$J,601.751,2071,0)
86 ;;=909^1^212
87 ;;^UTILITY(U,$J,601.751,2072,0)
88 ;;=909^2^1008
89 ;;^UTILITY(U,$J,601.751,2073,0)
90 ;;=909^3^1009
91 ;;^UTILITY(U,$J,601.751,2074,0)
92 ;;=909^4^1010
93 ;;^UTILITY(U,$J,601.751,2075,0)
94 ;;=910^1^212
95 ;;^UTILITY(U,$J,601.751,2076,0)
96 ;;=910^2^1008
97 ;;^UTILITY(U,$J,601.751,2077,0)
98 ;;=910^3^1009
99 ;;^UTILITY(U,$J,601.751,2078,0)
100 ;;=910^4^1010
101 ;;^UTILITY(U,$J,601.751,2909,0)
102 ;;=4175^1^1
103 ;;^UTILITY(U,$J,601.751,2910,0)
104 ;;=4175^2^3
105 ;;^UTILITY(U,$J,601.751,2911,0)
106 ;;=4175^3^4
107 ;;^UTILITY(U,$J,601.751,2912,0)
108 ;;=4175^4^5
109 ;;^UTILITY(U,$J,601.751,2913,0)
110 ;;=4175^5^1457
111 ;;^UTILITY(U,$J,601.751,2914,0)
112 ;;=4176^1^1
113 ;;^UTILITY(U,$J,601.751,2915,0)
114 ;;=4176^2^3
115 ;;^UTILITY(U,$J,601.751,2916,0)
116 ;;=4176^3^4
117 ;;^UTILITY(U,$J,601.751,2917,0)
118 ;;=4176^4^5
119 ;;^UTILITY(U,$J,601.751,2918,0)
120 ;;=4176^5^1457
121 ;;^UTILITY(U,$J,601.751,2919,0)
122 ;;=4177^1^1
123 ;;^UTILITY(U,$J,601.751,2920,0)
124 ;;=4177^2^3
125 ;;^UTILITY(U,$J,601.751,2921,0)
126 ;;=4177^3^4
127 ;;^UTILITY(U,$J,601.751,2922,0)
128 ;;=4177^4^5
129 ;;^UTILITY(U,$J,601.751,2923,0)
130 ;;=4177^5^1457
131 ;;^UTILITY(U,$J,601.751,2924,0)
132 ;;=4178^1^1
133 ;;^UTILITY(U,$J,601.751,2925,0)
134 ;;=4178^2^3
135 ;;^UTILITY(U,$J,601.751,2926,0)
136 ;;=4178^3^4
137 ;;^UTILITY(U,$J,601.751,2927,0)
138 ;;=4178^4^5
139 ;;^UTILITY(U,$J,601.751,2928,0)
140 ;;=4178^5^1457
141 ;;^UTILITY(U,$J,601.751,2929,0)
142 ;;=4179^1^1
143 ;;^UTILITY(U,$J,601.751,2930,0)
144 ;;=4179^2^3
145 ;;^UTILITY(U,$J,601.751,2931,0)
146 ;;=4179^3^4
147 ;;^UTILITY(U,$J,601.751,2932,0)
148 ;;=4179^4^5
149 ;;^UTILITY(U,$J,601.751,2933,0)
150 ;;=4179^5^1457
151 ;;^UTILITY(U,$J,601.751,2934,0)
152 ;;=4180^1^1
153 ;;^UTILITY(U,$J,601.751,2935,0)
154 ;;=4180^2^3
155 ;;^UTILITY(U,$J,601.751,2936,0)
156 ;;=4180^3^4
157 ;;^UTILITY(U,$J,601.751,2937,0)
158 ;;=4180^4^5
159 ;;^UTILITY(U,$J,601.751,2938,0)
160 ;;=4180^5^1457
161 ;;^UTILITY(U,$J,601.751,2939,0)
162 ;;=4181^1^1
163 ;;^UTILITY(U,$J,601.751,2940,0)
164 ;;=4181^2^3
165 ;;^UTILITY(U,$J,601.751,2941,0)
166 ;;=4181^3^4
167 ;;^UTILITY(U,$J,601.751,2942,0)
168 ;;=4181^4^5
169 ;;^UTILITY(U,$J,601.751,2943,0)
170 ;;=4181^5^1457
171 ;;^UTILITY(U,$J,601.751,2944,0)
172 ;;=4182^1^1
173 ;;^UTILITY(U,$J,601.751,2945,0)
174 ;;=4182^2^3
175 ;;^UTILITY(U,$J,601.751,2946,0)
176 ;;=4182^3^4
177 ;;^UTILITY(U,$J,601.751,2947,0)
178 ;;=4182^4^5
179 ;;^UTILITY(U,$J,601.751,2948,0)
180 ;;=4182^5^1457
181 ;;^UTILITY(U,$J,601.751,2949,0)
182 ;;=4183^1^1
183 ;;^UTILITY(U,$J,601.751,2950,0)
184 ;;=4183^2^3
185 ;;^UTILITY(U,$J,601.751,2951,0)
186 ;;=4183^3^4
187 ;;^UTILITY(U,$J,601.751,2952,0)
188 ;;=4183^4^5
189 ;;^UTILITY(U,$J,601.751,2953,0)
190 ;;=4183^5^1457
191 ;;^UTILITY(U,$J,601.751,2954,0)
192 ;;=4184^1^1
193 ;;^UTILITY(U,$J,601.751,2955,0)
194 ;;=4184^2^3
195 ;;^UTILITY(U,$J,601.751,2956,0)
196 ;;=4184^3^4
197 ;;^UTILITY(U,$J,601.751,2957,0)
198 ;;=4184^4^5
199 ;;^UTILITY(U,$J,601.751,2958,0)
200 ;;=4184^5^1457
201 ;;^UTILITY(U,$J,601.751,2959,0)
202 ;;=4185^1^1
203 ;;^UTILITY(U,$J,601.751,2960,0)
204 ;;=4185^2^3
205 ;;^UTILITY(U,$J,601.751,2961,0)
206 ;;=4185^3^4
207 ;;^UTILITY(U,$J,601.751,2962,0)
208 ;;=4185^4^5
209 ;;^UTILITY(U,$J,601.751,2963,0)
210 ;;=4185^5^1457
211 ;;^UTILITY(U,$J,601.751,2964,0)
212 ;;=4186^1^1
213 ;;^UTILITY(U,$J,601.751,2965,0)
214 ;;=4186^2^3
215 ;;^UTILITY(U,$J,601.751,2966,0)
216 ;;=4186^3^4
217 ;;^UTILITY(U,$J,601.751,2967,0)
218 ;;=4186^4^5
219 ;;^UTILITY(U,$J,601.751,2968,0)
220 ;;=4186^5^1457
221 ;;^UTILITY(U,$J,601.751,2969,0)
222 ;;=4187^1^1
223 ;;^UTILITY(U,$J,601.751,2970,0)
224 ;;=4187^2^3
225 ;;^UTILITY(U,$J,601.751,2971,0)
226 ;;=4187^3^4
227 ;;^UTILITY(U,$J,601.751,2972,0)
228 ;;=4187^4^5
229 ;;^UTILITY(U,$J,601.751,2973,0)
230 ;;=4187^5^1457
231 ;;^UTILITY(U,$J,601.751,2974,0)
232 ;;=4188^1^1
233 ;;^UTILITY(U,$J,601.751,2975,0)
234 ;;=4188^2^3
235 ;;^UTILITY(U,$J,601.751,2976,0)
236 ;;=4188^3^4
237 ;;^UTILITY(U,$J,601.751,2977,0)
238 ;;=4188^4^5
239 ;;^UTILITY(U,$J,601.751,2978,0)
240 ;;=4188^5^1457
241 ;;^UTILITY(U,$J,601.751,2979,0)
242 ;;=4189^1^1
243 ;;^UTILITY(U,$J,601.751,2980,0)
244 ;;=4189^2^3
245 ;;^UTILITY(U,$J,601.751,2981,0)
246 ;;=4189^3^4
247 ;;^UTILITY(U,$J,601.751,2982,0)
248 ;;=4189^4^5
249 ;;^UTILITY(U,$J,601.751,2983,0)
250 ;;=4189^5^1457
251 ;;^UTILITY(U,$J,601.751,2984,0)
252 ;;=4190^1^1
253 ;;^UTILITY(U,$J,601.751,2985,0)
254 ;;=4190^2^3
255 ;;^UTILITY(U,$J,601.751,2986,0)
256 ;;=4190^3^4
257 ;;^UTILITY(U,$J,601.751,2987,0)
258 ;;=4190^4^5
259 ;;^UTILITY(U,$J,601.751,2988,0)
260 ;;=4190^5^1457
261 ;;^UTILITY(U,$J,601.751,2989,0)
262 ;;=4191^1^1
263 ;;^UTILITY(U,$J,601.751,2990,0)
264 ;;=4191^2^3
265 ;;^UTILITY(U,$J,601.751,2991,0)
266 ;;=4191^3^4
267 ;;^UTILITY(U,$J,601.751,2992,0)
268 ;;=4191^4^5
269 ;;^UTILITY(U,$J,601.751,2993,0)
270 ;;=4191^5^1457
271 ;;^UTILITY(U,$J,601.751,2994,0)
272 ;;=4192^1^1
273 ;;^UTILITY(U,$J,601.751,2995,0)
274 ;;=4192^2^3
275 ;;^UTILITY(U,$J,601.751,2996,0)
276 ;;=4192^3^4
277 ;;^UTILITY(U,$J,601.751,2997,0)
278 ;;=4192^4^5
279 ;;^UTILITY(U,$J,601.751,2998,0)
280 ;;=4192^5^1457
281 ;;^UTILITY(U,$J,601.751,2999,0)
282 ;;=4193^1^1
283 ;;^UTILITY(U,$J,601.751,3000,0)
284 ;;=4193^2^3
285 ;;^UTILITY(U,$J,601.751,3001,0)
286 ;;=4193^3^4
287 ;;^UTILITY(U,$J,601.751,3002,0)
288 ;;=4193^4^5
289 ;;^UTILITY(U,$J,601.751,3003,0)
290 ;;=4193^5^1457
291 ;;^UTILITY(U,$J,601.751,3004,0)
292 ;;=4194^1^1
293 ;;^UTILITY(U,$J,601.751,3005,0)
294 ;;=4194^2^3
295 ;;^UTILITY(U,$J,601.751,3006,0)
296 ;;=4194^3^4
297 ;;^UTILITY(U,$J,601.751,3007,0)
298 ;;=4194^4^5
299 ;;^UTILITY(U,$J,601.751,3008,0)
300 ;;=4194^5^1457
301 ;;^UTILITY(U,$J,601.751,3009,0)
302 ;;=4195^1^1
303 ;;^UTILITY(U,$J,601.751,3010,0)
304 ;;=4195^2^3
305 ;;^UTILITY(U,$J,601.751,3011,0)
306 ;;=4195^3^4
307 ;;^UTILITY(U,$J,601.751,3012,0)
308 ;;=4195^4^5
309 ;;^UTILITY(U,$J,601.751,3013,0)
310 ;;=4195^5^1457
311 ;;^UTILITY(U,$J,601.751,3014,0)
312 ;;=4196^1^1
313 ;;^UTILITY(U,$J,601.751,3015,0)
314 ;;=4196^2^3
315 ;;^UTILITY(U,$J,601.751,3016,0)
316 ;;=4196^3^4
317 ;;^UTILITY(U,$J,601.751,3017,0)
318 ;;=4196^4^5
319 ;;^UTILITY(U,$J,601.751,3018,0)
320 ;;=4196^5^1457
321 ;;^UTILITY(U,$J,601.751,3821,0)
322 ;;=1334^1^1387
323 ;;^UTILITY(U,$J,601.751,3822,0)
324 ;;=1334^2^1388
325 ;;^UTILITY(U,$J,601.751,3823,0)
326 ;;=1334^3^1389
327 ;;^UTILITY(U,$J,601.751,3824,0)
328 ;;=1334^4^1390
329 ;;^UTILITY(U,$J,601.751,3825,0)
330 ;;=1334^5^1391
331 ;;^UTILITY(U,$J,601.751,3826,0)
332 ;;=1334^6^1392
333 ;;^UTILITY(U,$J,601.751,3827,0)
334 ;;=1334^7^743
335 ;;^UTILITY(U,$J,601.751,3828,0)
336 ;;=1335^1^1393
337 ;;^UTILITY(U,$J,601.751,3829,0)
338 ;;=1335^2^1394
339 ;;^UTILITY(U,$J,601.751,3830,0)
340 ;;=1335^3^743
341 ;;^UTILITY(U,$J,601.751,3831,0)
342 ;;=1336^1^1395
343 ;;^UTILITY(U,$J,601.751,3832,0)
344 ;;=1336^2^1396
345 ;;^UTILITY(U,$J,601.751,3833,0)
346 ;;=1336^3^1397
347 ;;^UTILITY(U,$J,601.751,3834,0)
348 ;;=1336^4^1398
349 ;;^UTILITY(U,$J,601.751,8561,0)
350 ;;=2638^1^101060
351 ;;^UTILITY(U,$J,601.751,8562,0)
352 ;;=2638^2^101061
353 ;;^UTILITY(U,$J,601.751,8563,0)
354 ;;=2638^3^101062
355 ;;^UTILITY(U,$J,601.751,8564,0)
356 ;;=2638^4^101063
357 ;;^UTILITY(U,$J,601.751,8565,0)
358 ;;=2639^1^100924
359 ;;^UTILITY(U,$J,601.751,8566,0)
360 ;;=2639^2^100925
361 ;;^UTILITY(U,$J,601.751,8567,0)
362 ;;=2640^1^237
363 ;;^UTILITY(U,$J,601.751,8568,0)
364 ;;=2640^2^241
365 ;;^UTILITY(U,$J,601.751,8569,0)
366 ;;=2641^1^237
367 ;;^UTILITY(U,$J,601.751,8570,0)
368 ;;=2641^2^241
369 ;;^UTILITY(U,$J,601.751,8571,0)
370 ;;=2642^1^237
371 ;;^UTILITY(U,$J,601.751,8572,0)
372 ;;=2642^2^241
373 ;;^UTILITY(U,$J,601.751,8573,0)
374 ;;=2643^1^237
375 ;;^UTILITY(U,$J,601.751,8574,0)
376 ;;=2643^2^241
377 ;;^UTILITY(U,$J,601.751,8575,0)
378 ;;=2644^1^237
Note: See TracBrowser for help on using the repository browser.