source: WorldVistAEHR/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YTQQI00I.m@ 1604

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

initial load of WorldVistAEHR
File size: 8.9 KB
RevLine 
[613]1YTQQI00I ;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,14164,0)
6 ;;=6103^1^237
7 ;;^UTILITY(U,$J,601.751,14165,0)
8 ;;=6103^2^241
9 ;;^UTILITY(U,$J,601.751,14166,0)
10 ;;=6103^3^1512
11 ;;^UTILITY(U,$J,601.751,14167,0)
12 ;;=6103^4^1513
13 ;;^UTILITY(U,$J,601.751,14168,0)
14 ;;=6104^1^237
15 ;;^UTILITY(U,$J,601.751,14169,0)
16 ;;=6104^2^241
17 ;;^UTILITY(U,$J,601.751,14170,0)
18 ;;=6105^1^1
19 ;;^UTILITY(U,$J,601.751,14171,0)
20 ;;=6105^2^3
21 ;;^UTILITY(U,$J,601.751,14172,0)
22 ;;=6105^3^4
23 ;;^UTILITY(U,$J,601.751,14173,0)
24 ;;=6105^4^5
25 ;;^UTILITY(U,$J,601.751,14174,0)
26 ;;=6105^5^1457
27 ;;^UTILITY(U,$J,601.751,14175,0)
28 ;;=6106^1^1
29 ;;^UTILITY(U,$J,601.751,14176,0)
30 ;;=6106^2^3
31 ;;^UTILITY(U,$J,601.751,14177,0)
32 ;;=6106^3^4
33 ;;^UTILITY(U,$J,601.751,14178,0)
34 ;;=6106^4^5
35 ;;^UTILITY(U,$J,601.751,14179,0)
36 ;;=6106^5^1457
37 ;;^UTILITY(U,$J,601.751,14180,0)
38 ;;=6107^1^1
39 ;;^UTILITY(U,$J,601.751,14181,0)
40 ;;=6107^2^3
41 ;;^UTILITY(U,$J,601.751,14182,0)
42 ;;=6107^3^4
43 ;;^UTILITY(U,$J,601.751,14183,0)
44 ;;=6107^4^5
45 ;;^UTILITY(U,$J,601.751,14184,0)
46 ;;=6107^5^1457
47 ;;^UTILITY(U,$J,601.751,14185,0)
48 ;;=6108^1^1
49 ;;^UTILITY(U,$J,601.751,14186,0)
50 ;;=6108^2^3
51 ;;^UTILITY(U,$J,601.751,14187,0)
52 ;;=6108^3^4
53 ;;^UTILITY(U,$J,601.751,14188,0)
54 ;;=6108^4^5
55 ;;^UTILITY(U,$J,601.751,14189,0)
56 ;;=6108^5^1457
57 ;;^UTILITY(U,$J,601.751,14190,0)
58 ;;=6109^1^1
59 ;;^UTILITY(U,$J,601.751,14191,0)
60 ;;=6109^2^3
61 ;;^UTILITY(U,$J,601.751,14192,0)
62 ;;=6109^3^4
63 ;;^UTILITY(U,$J,601.751,14193,0)
64 ;;=6109^4^5
65 ;;^UTILITY(U,$J,601.751,14194,0)
66 ;;=6109^5^1457
67 ;;^UTILITY(U,$J,601.751,14195,0)
68 ;;=6110^1^1
69 ;;^UTILITY(U,$J,601.751,14196,0)
70 ;;=6110^2^3
71 ;;^UTILITY(U,$J,601.751,14197,0)
72 ;;=6110^3^4
73 ;;^UTILITY(U,$J,601.751,14198,0)
74 ;;=6110^4^5
75 ;;^UTILITY(U,$J,601.751,14199,0)
76 ;;=6110^5^1457
77 ;;^UTILITY(U,$J,601.751,14200,0)
78 ;;=6111^1^1
79 ;;^UTILITY(U,$J,601.751,14201,0)
80 ;;=6111^2^3
81 ;;^UTILITY(U,$J,601.751,14202,0)
82 ;;=6111^3^4
83 ;;^UTILITY(U,$J,601.751,14203,0)
84 ;;=6111^4^5
85 ;;^UTILITY(U,$J,601.751,14204,0)
86 ;;=6111^5^1457
87 ;;^UTILITY(U,$J,601.751,14205,0)
88 ;;=6112^1^1
89 ;;^UTILITY(U,$J,601.751,14206,0)
90 ;;=6112^2^3
91 ;;^UTILITY(U,$J,601.751,14207,0)
92 ;;=6112^3^4
93 ;;^UTILITY(U,$J,601.751,14208,0)
94 ;;=6112^4^5
95 ;;^UTILITY(U,$J,601.751,14209,0)
96 ;;=6112^5^1457
97 ;;^UTILITY(U,$J,601.751,14210,0)
98 ;;=6113^1^1
99 ;;^UTILITY(U,$J,601.751,14211,0)
100 ;;=6113^2^3
101 ;;^UTILITY(U,$J,601.751,14212,0)
102 ;;=6113^3^4
103 ;;^UTILITY(U,$J,601.751,14213,0)
104 ;;=6113^4^5
105 ;;^UTILITY(U,$J,601.751,14214,0)
106 ;;=6113^5^1457
107 ;;^UTILITY(U,$J,601.751,14215,0)
108 ;;=6114^1^1
109 ;;^UTILITY(U,$J,601.751,14216,0)
110 ;;=6114^2^3
111 ;;^UTILITY(U,$J,601.751,14217,0)
112 ;;=6114^3^4
113 ;;^UTILITY(U,$J,601.751,14218,0)
114 ;;=6114^4^5
115 ;;^UTILITY(U,$J,601.751,14219,0)
116 ;;=6114^5^1457
117 ;;^UTILITY(U,$J,601.751,14220,0)
118 ;;=6115^1^1
119 ;;^UTILITY(U,$J,601.751,14221,0)
120 ;;=6115^2^3
121 ;;^UTILITY(U,$J,601.751,14222,0)
122 ;;=6115^3^4
123 ;;^UTILITY(U,$J,601.751,14223,0)
124 ;;=6115^4^5
125 ;;^UTILITY(U,$J,601.751,14224,0)
126 ;;=6115^5^1457
127 ;;^UTILITY(U,$J,601.751,14225,0)
128 ;;=6116^1^1
129 ;;^UTILITY(U,$J,601.751,14226,0)
130 ;;=6116^2^3
131 ;;^UTILITY(U,$J,601.751,14227,0)
132 ;;=6116^3^4
133 ;;^UTILITY(U,$J,601.751,14228,0)
134 ;;=6116^4^5
135 ;;^UTILITY(U,$J,601.751,14229,0)
136 ;;=6116^5^1457
137 ;;^UTILITY(U,$J,601.751,14230,0)
138 ;;=6117^1^1
139 ;;^UTILITY(U,$J,601.751,14231,0)
140 ;;=6117^2^3
141 ;;^UTILITY(U,$J,601.751,14232,0)
142 ;;=6117^3^4
143 ;;^UTILITY(U,$J,601.751,14233,0)
144 ;;=6117^4^5
145 ;;^UTILITY(U,$J,601.751,14234,0)
146 ;;=6117^5^1457
147 ;;^UTILITY(U,$J,601.751,14235,0)
148 ;;=6118^1^1
149 ;;^UTILITY(U,$J,601.751,14236,0)
150 ;;=6118^2^3
151 ;;^UTILITY(U,$J,601.751,14237,0)
152 ;;=6118^3^4
153 ;;^UTILITY(U,$J,601.751,14238,0)
154 ;;=6118^4^5
155 ;;^UTILITY(U,$J,601.751,14239,0)
156 ;;=6118^5^1457
157 ;;^UTILITY(U,$J,601.751,14240,0)
158 ;;=6119^1^1
159 ;;^UTILITY(U,$J,601.751,14241,0)
160 ;;=6119^2^3
161 ;;^UTILITY(U,$J,601.751,14242,0)
162 ;;=6119^3^4
163 ;;^UTILITY(U,$J,601.751,14243,0)
164 ;;=6119^4^5
165 ;;^UTILITY(U,$J,601.751,14244,0)
166 ;;=6119^5^1457
167 ;;^UTILITY(U,$J,601.751,14245,0)
168 ;;=6120^1^1
169 ;;^UTILITY(U,$J,601.751,14246,0)
170 ;;=6120^2^3
171 ;;^UTILITY(U,$J,601.751,14247,0)
172 ;;=6120^3^4
173 ;;^UTILITY(U,$J,601.751,14248,0)
174 ;;=6120^4^5
175 ;;^UTILITY(U,$J,601.751,14249,0)
176 ;;=6120^5^1457
177 ;;^UTILITY(U,$J,601.751,14250,0)
178 ;;=6121^1^1
179 ;;^UTILITY(U,$J,601.751,14251,0)
180 ;;=6121^2^3
181 ;;^UTILITY(U,$J,601.751,14252,0)
182 ;;=6121^3^4
183 ;;^UTILITY(U,$J,601.751,14253,0)
184 ;;=6121^4^5
185 ;;^UTILITY(U,$J,601.751,14254,0)
186 ;;=6121^5^1457
187 ;;^UTILITY(U,$J,601.751,14255,0)
188 ;;=6122^1^1
189 ;;^UTILITY(U,$J,601.751,14256,0)
190 ;;=6122^2^3
191 ;;^UTILITY(U,$J,601.751,14257,0)
192 ;;=6122^3^4
193 ;;^UTILITY(U,$J,601.751,14258,0)
194 ;;=6122^4^5
195 ;;^UTILITY(U,$J,601.751,14259,0)
196 ;;=6122^5^1457
197 ;;^UTILITY(U,$J,601.751,14260,0)
198 ;;=6123^1^1
199 ;;^UTILITY(U,$J,601.751,14261,0)
200 ;;=6123^2^3
201 ;;^UTILITY(U,$J,601.751,14262,0)
202 ;;=6123^3^4
203 ;;^UTILITY(U,$J,601.751,14263,0)
204 ;;=6123^4^5
205 ;;^UTILITY(U,$J,601.751,14264,0)
206 ;;=6123^5^1457
207 ;;^UTILITY(U,$J,601.751,14265,0)
208 ;;=6124^1^1
209 ;;^UTILITY(U,$J,601.751,14266,0)
210 ;;=6124^2^3
211 ;;^UTILITY(U,$J,601.751,14267,0)
212 ;;=6124^3^4
213 ;;^UTILITY(U,$J,601.751,14268,0)
214 ;;=6124^4^5
215 ;;^UTILITY(U,$J,601.751,14269,0)
216 ;;=6124^5^1457
217 ;;^UTILITY(U,$J,601.751,14270,0)
218 ;;=6125^1^1
219 ;;^UTILITY(U,$J,601.751,14271,0)
220 ;;=6125^2^3
221 ;;^UTILITY(U,$J,601.751,14272,0)
222 ;;=6125^3^4
223 ;;^UTILITY(U,$J,601.751,14273,0)
224 ;;=6125^4^5
225 ;;^UTILITY(U,$J,601.751,14274,0)
226 ;;=6125^5^1457
227 ;;^UTILITY(U,$J,601.751,14275,0)
228 ;;=6126^1^1
229 ;;^UTILITY(U,$J,601.751,14276,0)
230 ;;=6126^2^3
231 ;;^UTILITY(U,$J,601.751,14277,0)
232 ;;=6126^3^4
233 ;;^UTILITY(U,$J,601.751,14278,0)
234 ;;=6126^4^5
235 ;;^UTILITY(U,$J,601.751,14279,0)
236 ;;=6126^5^1457
237 ;;^UTILITY(U,$J,601.751,14280,0)
238 ;;=6127^1^1
239 ;;^UTILITY(U,$J,601.751,14281,0)
240 ;;=6127^2^3
241 ;;^UTILITY(U,$J,601.751,14282,0)
242 ;;=6127^3^4
243 ;;^UTILITY(U,$J,601.751,14283,0)
244 ;;=6127^4^5
245 ;;^UTILITY(U,$J,601.751,14284,0)
246 ;;=6127^5^1457
247 ;;^UTILITY(U,$J,601.751,14285,0)
248 ;;=6128^1^237
249 ;;^UTILITY(U,$J,601.751,14286,0)
250 ;;=6128^2^241
251 ;;^UTILITY(U,$J,601.751,14287,0)
252 ;;=6129^1^1514
253 ;;^UTILITY(U,$J,601.751,14288,0)
254 ;;=6129^2^1515
255 ;;^UTILITY(U,$J,601.751,14289,0)
256 ;;=6129^3^1516
257 ;;^UTILITY(U,$J,601.751,14290,0)
258 ;;=6129^4^1517
259 ;;^UTILITY(U,$J,601.751,14291,0)
260 ;;=6129^5^1518
261 ;;^UTILITY(U,$J,601.751,14292,0)
262 ;;=6129^6^1519
263 ;;^UTILITY(U,$J,601.751,14293,0)
264 ;;=6129^7^1520
265 ;;^UTILITY(U,$J,601.751,14294,0)
266 ;;=6129^8^743
267 ;;^UTILITY(U,$J,601.751,14295,0)
268 ;;=6130^1^1
269 ;;^UTILITY(U,$J,601.751,14296,0)
270 ;;=6130^2^3
271 ;;^UTILITY(U,$J,601.751,14297,0)
272 ;;=6130^3^4
273 ;;^UTILITY(U,$J,601.751,14298,0)
274 ;;=6130^4^5
275 ;;^UTILITY(U,$J,601.751,14299,0)
276 ;;=6130^5^1457
277 ;;^UTILITY(U,$J,601.751,14300,0)
278 ;;=6131^1^1521
279 ;;^UTILITY(U,$J,601.751,14301,0)
280 ;;=6131^2^1522
281 ;;^UTILITY(U,$J,601.751,14302,0)
282 ;;=6131^3^1523
283 ;;^UTILITY(U,$J,601.751,14303,0)
284 ;;=6132^1^237
285 ;;^UTILITY(U,$J,601.751,14304,0)
286 ;;=6132^2^1513
287 ;;^UTILITY(U,$J,601.751,14305,0)
288 ;;=6132^3^1524
289 ;;^UTILITY(U,$J,601.751,14306,0)
290 ;;=6132^4^241
291 ;;^UTILITY(U,$J,601.751,14307,0)
292 ;;=6133^1^1525
293 ;;^UTILITY(U,$J,601.751,14308,0)
294 ;;=6133^2^1526
295 ;;^UTILITY(U,$J,601.751,14309,0)
296 ;;=6133^3^1527
297 ;;^UTILITY(U,$J,601.751,14310,0)
298 ;;=6133^4^1528
299 ;;^UTILITY(U,$J,601.751,14311,0)
300 ;;=6133^5^1665
301 ;;^UTILITY(U,$J,601.751,14312,0)
302 ;;=6133^6^1530
303 ;;^UTILITY(U,$J,601.751,14313,0)
304 ;;=6133^7^1531
305 ;;^UTILITY(U,$J,601.751,14314,0)
306 ;;=6133^8^1532
307 ;;^UTILITY(U,$J,601.751,14315,0)
308 ;;=6134^1^237
309 ;;^UTILITY(U,$J,601.751,14316,0)
310 ;;=6134^2^241
311 ;;^UTILITY(U,$J,601.751,14317,0)
312 ;;=6135^1^1
313 ;;^UTILITY(U,$J,601.751,14318,0)
314 ;;=6135^2^1533
315 ;;^UTILITY(U,$J,601.751,14319,0)
316 ;;=6135^3^1534
317 ;;^UTILITY(U,$J,601.751,14320,0)
318 ;;=6135^4^1535
319 ;;^UTILITY(U,$J,601.751,14321,0)
320 ;;=6135^5^1536
321 ;;^UTILITY(U,$J,601.751,14322,0)
322 ;;=6135^6^1537
323 ;;^UTILITY(U,$J,601.751,14323,0)
324 ;;=6135^7^1538
325 ;;^UTILITY(U,$J,601.751,14324,0)
326 ;;=6135^8^1539
327 ;;^UTILITY(U,$J,601.751,14325,0)
328 ;;=6135^9^1540
329 ;;^UTILITY(U,$J,601.751,14326,0)
330 ;;=6136^1^237
331 ;;^UTILITY(U,$J,601.751,14327,0)
332 ;;=6136^2^241
333 ;;^UTILITY(U,$J,601.751,14328,0)
334 ;;=6136^3^1513
335 ;;^UTILITY(U,$J,601.751,14329,0)
336 ;;=6137^1^237
337 ;;^UTILITY(U,$J,601.751,14330,0)
338 ;;=6137^2^241
339 ;;^UTILITY(U,$J,601.751,14331,0)
340 ;;=6137^3^1512
341 ;;^UTILITY(U,$J,601.751,14332,0)
342 ;;=6138^1^1541
343 ;;^UTILITY(U,$J,601.751,14333,0)
344 ;;=6138^2^1542
345 ;;^UTILITY(U,$J,601.751,14334,0)
346 ;;=6138^3^1543
347 ;;^UTILITY(U,$J,601.751,14335,0)
348 ;;=6138^4^1544
349 ;;^UTILITY(U,$J,601.751,14336,0)
350 ;;=6139^1^237
351 ;;^UTILITY(U,$J,601.751,14337,0)
352 ;;=6139^2^241
353 ;;^UTILITY(U,$J,601.751,14338,0)
354 ;;=6140^1^1545
355 ;;^UTILITY(U,$J,601.751,14339,0)
356 ;;=6140^2^1546
357 ;;^UTILITY(U,$J,601.751,14340,0)
358 ;;=6140^3^1547
359 ;;^UTILITY(U,$J,601.751,14341,0)
360 ;;=6140^4^1548
361 ;;^UTILITY(U,$J,601.751,14342,0)
362 ;;=6140^5^1549
363 ;;^UTILITY(U,$J,601.751,14343,0)
364 ;;=6140^6^1550
365 ;;^UTILITY(U,$J,601.751,14344,0)
366 ;;=6140^7^1551
367 ;;^UTILITY(U,$J,601.751,14345,0)
368 ;;=6140^8^1552
369 ;;^UTILITY(U,$J,601.751,14346,0)
370 ;;=6140^9^1553
Note: See TracBrowser for help on using the repository browser.