source: WorldVistAEHR/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YTQQI00H.m@ 1384

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

initial load of WorldVistAEHR
File size: 8.9 KB
RevLine 
[613]1YTQQI00H ;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,10878,0)
6 ;;=3193^1^1308
7 ;;^UTILITY(U,$J,601.751,10879,0)
8 ;;=3193^2^1309
9 ;;^UTILITY(U,$J,601.751,10880,0)
10 ;;=3193^3^1310
11 ;;^UTILITY(U,$J,601.751,10881,0)
12 ;;=3193^4^1311
13 ;;^UTILITY(U,$J,601.751,10882,0)
14 ;;=3193^5^1312
15 ;;^UTILITY(U,$J,601.751,10883,0)
16 ;;=3193^6^1280
17 ;;^UTILITY(U,$J,601.751,10884,0)
18 ;;=3193^7^1281
19 ;;^UTILITY(U,$J,601.751,10885,0)
20 ;;=3194^1^237
21 ;;^UTILITY(U,$J,601.751,10886,0)
22 ;;=3194^2^1313
23 ;;^UTILITY(U,$J,601.751,10887,0)
24 ;;=3194^3^1314
25 ;;^UTILITY(U,$J,601.751,10888,0)
26 ;;=3194^4^1315
27 ;;^UTILITY(U,$J,601.751,10889,0)
28 ;;=3194^5^1280
29 ;;^UTILITY(U,$J,601.751,10890,0)
30 ;;=3194^6^1281
31 ;;^UTILITY(U,$J,601.751,10891,0)
32 ;;=3195^1^237
33 ;;^UTILITY(U,$J,601.751,10892,0)
34 ;;=3195^2^241
35 ;;^UTILITY(U,$J,601.751,10893,0)
36 ;;=3195^3^1280
37 ;;^UTILITY(U,$J,601.751,10894,0)
38 ;;=3195^4^1281
39 ;;^UTILITY(U,$J,601.751,10895,0)
40 ;;=3196^1^237
41 ;;^UTILITY(U,$J,601.751,10896,0)
42 ;;=3196^2^241
43 ;;^UTILITY(U,$J,601.751,10897,0)
44 ;;=3197^1^237
45 ;;^UTILITY(U,$J,601.751,10898,0)
46 ;;=3197^2^241
47 ;;^UTILITY(U,$J,601.751,10899,0)
48 ;;=3197^3^1280
49 ;;^UTILITY(U,$J,601.751,10900,0)
50 ;;=3197^4^1281
51 ;;^UTILITY(U,$J,601.751,10901,0)
52 ;;=3198^1^237
53 ;;^UTILITY(U,$J,601.751,10902,0)
54 ;;=3198^2^241
55 ;;^UTILITY(U,$J,601.751,10903,0)
56 ;;=3198^3^1280
57 ;;^UTILITY(U,$J,601.751,10904,0)
58 ;;=3198^4^1281
59 ;;^UTILITY(U,$J,601.751,10905,0)
60 ;;=3199^1^237
61 ;;^UTILITY(U,$J,601.751,10906,0)
62 ;;=3199^2^241
63 ;;^UTILITY(U,$J,601.751,10907,0)
64 ;;=3199^3^1280
65 ;;^UTILITY(U,$J,601.751,10908,0)
66 ;;=3199^4^1281
67 ;;^UTILITY(U,$J,601.751,10909,0)
68 ;;=3200^1^1317
69 ;;^UTILITY(U,$J,601.751,10910,0)
70 ;;=3200^2^1318
71 ;;^UTILITY(U,$J,601.751,10911,0)
72 ;;=3200^3^1319
73 ;;^UTILITY(U,$J,601.751,14021,0)
74 ;;=6075^1^1465
75 ;;^UTILITY(U,$J,601.751,14022,0)
76 ;;=6075^2^1466
77 ;;^UTILITY(U,$J,601.751,14023,0)
78 ;;=6075^3^1467
79 ;;^UTILITY(U,$J,601.751,14024,0)
80 ;;=6075^4^745
81 ;;^UTILITY(U,$J,601.751,14025,0)
82 ;;=6076^1^1468
83 ;;^UTILITY(U,$J,601.751,14026,0)
84 ;;=6076^2^1469
85 ;;^UTILITY(U,$J,601.751,14027,0)
86 ;;=6076^3^1470
87 ;;^UTILITY(U,$J,601.751,14028,0)
88 ;;=6076^4^753
89 ;;^UTILITY(U,$J,601.751,14029,0)
90 ;;=6076^5^1471
91 ;;^UTILITY(U,$J,601.751,14030,0)
92 ;;=6077^1^1814
93 ;;^UTILITY(U,$J,601.751,14031,0)
94 ;;=6077^2^1472
95 ;;^UTILITY(U,$J,601.751,14032,0)
96 ;;=6077^3^1473
97 ;;^UTILITY(U,$J,601.751,14033,0)
98 ;;=6077^4^1474
99 ;;^UTILITY(U,$J,601.751,14034,0)
100 ;;=6077^5^1475
101 ;;^UTILITY(U,$J,601.751,14035,0)
102 ;;=6077^6^1476
103 ;;^UTILITY(U,$J,601.751,14036,0)
104 ;;=6077^7^1477
105 ;;^UTILITY(U,$J,601.751,14037,0)
106 ;;=6078^1^237
107 ;;^UTILITY(U,$J,601.751,14038,0)
108 ;;=6078^2^1478
109 ;;^UTILITY(U,$J,601.751,14039,0)
110 ;;=6078^3^1479
111 ;;^UTILITY(U,$J,601.751,14040,0)
112 ;;=6078^4^1480
113 ;;^UTILITY(U,$J,601.751,14041,0)
114 ;;=6078^5^1481
115 ;;^UTILITY(U,$J,601.751,14042,0)
116 ;;=6078^6^1482
117 ;;^UTILITY(U,$J,601.751,14043,0)
118 ;;=6079^1^237
119 ;;^UTILITY(U,$J,601.751,14044,0)
120 ;;=6079^2^1478
121 ;;^UTILITY(U,$J,601.751,14045,0)
122 ;;=6079^3^1479
123 ;;^UTILITY(U,$J,601.751,14046,0)
124 ;;=6079^4^1480
125 ;;^UTILITY(U,$J,601.751,14047,0)
126 ;;=6079^5^1481
127 ;;^UTILITY(U,$J,601.751,14048,0)
128 ;;=6079^6^1482
129 ;;^UTILITY(U,$J,601.751,14049,0)
130 ;;=6080^1^237
131 ;;^UTILITY(U,$J,601.751,14050,0)
132 ;;=6080^2^1483
133 ;;^UTILITY(U,$J,601.751,14051,0)
134 ;;=6080^3^1484
135 ;;^UTILITY(U,$J,601.751,14052,0)
136 ;;=6080^4^1485
137 ;;^UTILITY(U,$J,601.751,14053,0)
138 ;;=6080^5^1486
139 ;;^UTILITY(U,$J,601.751,14054,0)
140 ;;=6080^6^1487
141 ;;^UTILITY(U,$J,601.751,14055,0)
142 ;;=6081^1^237
143 ;;^UTILITY(U,$J,601.751,14056,0)
144 ;;=6081^2^1478
145 ;;^UTILITY(U,$J,601.751,14057,0)
146 ;;=6081^3^1479
147 ;;^UTILITY(U,$J,601.751,14058,0)
148 ;;=6081^4^1480
149 ;;^UTILITY(U,$J,601.751,14059,0)
150 ;;=6081^5^1481
151 ;;^UTILITY(U,$J,601.751,14060,0)
152 ;;=6081^6^1482
153 ;;^UTILITY(U,$J,601.751,14061,0)
154 ;;=6082^1^237
155 ;;^UTILITY(U,$J,601.751,14062,0)
156 ;;=6082^2^1478
157 ;;^UTILITY(U,$J,601.751,14063,0)
158 ;;=6082^3^1479
159 ;;^UTILITY(U,$J,601.751,14064,0)
160 ;;=6082^4^1480
161 ;;^UTILITY(U,$J,601.751,14065,0)
162 ;;=6082^5^1481
163 ;;^UTILITY(U,$J,601.751,14066,0)
164 ;;=6082^6^1482
165 ;;^UTILITY(U,$J,601.751,14067,0)
166 ;;=6083^1^1488
167 ;;^UTILITY(U,$J,601.751,14068,0)
168 ;;=6083^2^1489
169 ;;^UTILITY(U,$J,601.751,14069,0)
170 ;;=6083^3^1490
171 ;;^UTILITY(U,$J,601.751,14070,0)
172 ;;=6083^4^1491
173 ;;^UTILITY(U,$J,601.751,14071,0)
174 ;;=6084^1^237
175 ;;^UTILITY(U,$J,601.751,14072,0)
176 ;;=6084^2^1478
177 ;;^UTILITY(U,$J,601.751,14073,0)
178 ;;=6084^3^1479
179 ;;^UTILITY(U,$J,601.751,14074,0)
180 ;;=6084^4^1480
181 ;;^UTILITY(U,$J,601.751,14075,0)
182 ;;=6084^5^1481
183 ;;^UTILITY(U,$J,601.751,14076,0)
184 ;;=6084^6^1482
185 ;;^UTILITY(U,$J,601.751,14077,0)
186 ;;=6085^1^1488
187 ;;^UTILITY(U,$J,601.751,14078,0)
188 ;;=6085^2^1489
189 ;;^UTILITY(U,$J,601.751,14079,0)
190 ;;=6085^3^1490
191 ;;^UTILITY(U,$J,601.751,14080,0)
192 ;;=6085^4^1491
193 ;;^UTILITY(U,$J,601.751,14081,0)
194 ;;=6086^1^237
195 ;;^UTILITY(U,$J,601.751,14082,0)
196 ;;=6086^2^1478
197 ;;^UTILITY(U,$J,601.751,14083,0)
198 ;;=6086^3^1479
199 ;;^UTILITY(U,$J,601.751,14084,0)
200 ;;=6086^4^1480
201 ;;^UTILITY(U,$J,601.751,14085,0)
202 ;;=6086^5^1481
203 ;;^UTILITY(U,$J,601.751,14086,0)
204 ;;=6086^6^1482
205 ;;^UTILITY(U,$J,601.751,14087,0)
206 ;;=6087^1^1488
207 ;;^UTILITY(U,$J,601.751,14088,0)
208 ;;=6087^2^1489
209 ;;^UTILITY(U,$J,601.751,14089,0)
210 ;;=6087^3^1490
211 ;;^UTILITY(U,$J,601.751,14090,0)
212 ;;=6087^4^1491
213 ;;^UTILITY(U,$J,601.751,14091,0)
214 ;;=6088^1^237
215 ;;^UTILITY(U,$J,601.751,14092,0)
216 ;;=6088^2^1478
217 ;;^UTILITY(U,$J,601.751,14093,0)
218 ;;=6088^3^1479
219 ;;^UTILITY(U,$J,601.751,14094,0)
220 ;;=6088^4^1480
221 ;;^UTILITY(U,$J,601.751,14095,0)
222 ;;=6088^5^1481
223 ;;^UTILITY(U,$J,601.751,14096,0)
224 ;;=6088^6^1482
225 ;;^UTILITY(U,$J,601.751,14097,0)
226 ;;=6089^1^1488
227 ;;^UTILITY(U,$J,601.751,14098,0)
228 ;;=6089^2^1489
229 ;;^UTILITY(U,$J,601.751,14099,0)
230 ;;=6089^3^1490
231 ;;^UTILITY(U,$J,601.751,14100,0)
232 ;;=6089^4^1491
233 ;;^UTILITY(U,$J,601.751,14101,0)
234 ;;=6090^1^1492
235 ;;^UTILITY(U,$J,601.751,14102,0)
236 ;;=6090^2^1493
237 ;;^UTILITY(U,$J,601.751,14103,0)
238 ;;=6090^3^1664
239 ;;^UTILITY(U,$J,601.751,14104,0)
240 ;;=6090^4^1495
241 ;;^UTILITY(U,$J,601.751,14105,0)
242 ;;=6090^5^1496
243 ;;^UTILITY(U,$J,601.751,14106,0)
244 ;;=6090^6^743
245 ;;^UTILITY(U,$J,601.751,14107,0)
246 ;;=6090^7^100894
247 ;;^UTILITY(U,$J,601.751,14108,0)
248 ;;=6091^1^237
249 ;;^UTILITY(U,$J,601.751,14109,0)
250 ;;=6091^2^1478
251 ;;^UTILITY(U,$J,601.751,14110,0)
252 ;;=6091^3^1479
253 ;;^UTILITY(U,$J,601.751,14111,0)
254 ;;=6091^4^1480
255 ;;^UTILITY(U,$J,601.751,14112,0)
256 ;;=6091^5^1481
257 ;;^UTILITY(U,$J,601.751,14113,0)
258 ;;=6091^6^1482
259 ;;^UTILITY(U,$J,601.751,14114,0)
260 ;;=6092^1^1820
261 ;;^UTILITY(U,$J,601.751,14115,0)
262 ;;=6092^2^1821
263 ;;^UTILITY(U,$J,601.751,14116,0)
264 ;;=6092^3^1822
265 ;;^UTILITY(U,$J,601.751,14117,0)
266 ;;=6092^4^1823
267 ;;^UTILITY(U,$J,601.751,14118,0)
268 ;;=6092^5^1824
269 ;;^UTILITY(U,$J,601.751,14119,0)
270 ;;=6092^6^1825
271 ;;^UTILITY(U,$J,601.751,14120,0)
272 ;;=6092^7^1826
273 ;;^UTILITY(U,$J,601.751,14121,0)
274 ;;=6093^1^237
275 ;;^UTILITY(U,$J,601.751,14122,0)
276 ;;=6093^2^1478
277 ;;^UTILITY(U,$J,601.751,14123,0)
278 ;;=6093^3^1479
279 ;;^UTILITY(U,$J,601.751,14124,0)
280 ;;=6093^4^1480
281 ;;^UTILITY(U,$J,601.751,14125,0)
282 ;;=6093^5^1481
283 ;;^UTILITY(U,$J,601.751,14126,0)
284 ;;=6093^6^1482
285 ;;^UTILITY(U,$J,601.751,14127,0)
286 ;;=6094^1^1827
287 ;;^UTILITY(U,$J,601.751,14128,0)
288 ;;=6094^2^1503
289 ;;^UTILITY(U,$J,601.751,14129,0)
290 ;;=6094^3^1828
291 ;;^UTILITY(U,$J,601.751,14130,0)
292 ;;=6094^4^1825
293 ;;^UTILITY(U,$J,601.751,14131,0)
294 ;;=6094^5^1829
295 ;;^UTILITY(U,$J,601.751,14132,0)
296 ;;=6094^6^1830
297 ;;^UTILITY(U,$J,601.751,14133,0)
298 ;;=6094^7^1831
299 ;;^UTILITY(U,$J,601.751,14134,0)
300 ;;=6095^1^237
301 ;;^UTILITY(U,$J,601.751,14135,0)
302 ;;=6095^2^1478
303 ;;^UTILITY(U,$J,601.751,14136,0)
304 ;;=6095^3^1479
305 ;;^UTILITY(U,$J,601.751,14137,0)
306 ;;=6095^4^1480
307 ;;^UTILITY(U,$J,601.751,14138,0)
308 ;;=6095^5^1481
309 ;;^UTILITY(U,$J,601.751,14139,0)
310 ;;=6095^6^1482
311 ;;^UTILITY(U,$J,601.751,14140,0)
312 ;;=6096^1^1832
313 ;;^UTILITY(U,$J,601.751,14141,0)
314 ;;=6096^2^1503
315 ;;^UTILITY(U,$J,601.751,14142,0)
316 ;;=6096^3^1828
317 ;;^UTILITY(U,$J,601.751,14143,0)
318 ;;=6096^4^1825
319 ;;^UTILITY(U,$J,601.751,14144,0)
320 ;;=6096^5^1829
321 ;;^UTILITY(U,$J,601.751,14145,0)
322 ;;=6096^6^1830
323 ;;^UTILITY(U,$J,601.751,14146,0)
324 ;;=6096^7^1831
325 ;;^UTILITY(U,$J,601.751,14147,0)
326 ;;=6097^1^237
327 ;;^UTILITY(U,$J,601.751,14148,0)
328 ;;=6097^2^241
329 ;;^UTILITY(U,$J,601.751,14149,0)
330 ;;=6098^1^237
331 ;;^UTILITY(U,$J,601.751,14150,0)
332 ;;=6098^2^241
333 ;;^UTILITY(U,$J,601.751,14151,0)
334 ;;=6099^1^237
335 ;;^UTILITY(U,$J,601.751,14152,0)
336 ;;=6099^2^1508
337 ;;^UTILITY(U,$J,601.751,14153,0)
338 ;;=6099^3^1509
339 ;;^UTILITY(U,$J,601.751,14154,0)
340 ;;=6100^1^237
341 ;;^UTILITY(U,$J,601.751,14155,0)
342 ;;=6100^2^1510
343 ;;^UTILITY(U,$J,601.751,14156,0)
344 ;;=6100^3^1511
345 ;;^UTILITY(U,$J,601.751,14157,0)
346 ;;=6101^1^237
347 ;;^UTILITY(U,$J,601.751,14158,0)
348 ;;=6101^2^1510
349 ;;^UTILITY(U,$J,601.751,14159,0)
350 ;;=6101^3^1511
351 ;;^UTILITY(U,$J,601.751,14160,0)
352 ;;=6102^1^237
353 ;;^UTILITY(U,$J,601.751,14161,0)
354 ;;=6102^2^241
355 ;;^UTILITY(U,$J,601.751,14162,0)
356 ;;=6102^3^1512
357 ;;^UTILITY(U,$J,601.751,14163,0)
358 ;;=6102^4^1513
Note: See TracBrowser for help on using the repository browser.