source: WorldVistAEHR/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YTQQI00F.m@ 1579

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

initial load of WorldVistAEHR
File size: 8.9 KB
Line 
1YTQQI00F ;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,10225,0)
6 ;;=5410^3^1791
7 ;;^UTILITY(U,$J,601.751,10226,0)
8 ;;=5410^4^1792
9 ;;^UTILITY(U,$J,601.751,10227,0)
10 ;;=5410^5^1793
11 ;;^UTILITY(U,$J,601.751,10228,0)
12 ;;=5411^1^237
13 ;;^UTILITY(U,$J,601.751,10229,0)
14 ;;=5411^2^241
15 ;;^UTILITY(U,$J,601.751,10230,0)
16 ;;=5412^1^1794
17 ;;^UTILITY(U,$J,601.751,10231,0)
18 ;;=5412^2^1217
19 ;;^UTILITY(U,$J,601.751,10232,0)
20 ;;=5412^3^1795
21 ;;^UTILITY(U,$J,601.751,10233,0)
22 ;;=5412^4^1796
23 ;;^UTILITY(U,$J,601.751,10234,0)
24 ;;=5413^1^1797
25 ;;^UTILITY(U,$J,601.751,10235,0)
26 ;;=5413^2^1217
27 ;;^UTILITY(U,$J,601.751,10236,0)
28 ;;=5413^3^1795
29 ;;^UTILITY(U,$J,601.751,10237,0)
30 ;;=5413^4^1798
31 ;;^UTILITY(U,$J,601.751,10238,0)
32 ;;=5414^1^1799
33 ;;^UTILITY(U,$J,601.751,10239,0)
34 ;;=5414^2^1217
35 ;;^UTILITY(U,$J,601.751,10240,0)
36 ;;=5414^3^1795
37 ;;^UTILITY(U,$J,601.751,10241,0)
38 ;;=5414^4^1800
39 ;;^UTILITY(U,$J,601.751,10242,0)
40 ;;=5415^1^1801
41 ;;^UTILITY(U,$J,601.751,10243,0)
42 ;;=5415^2^1813
43 ;;^UTILITY(U,$J,601.751,10244,0)
44 ;;=5415^3^1803
45 ;;^UTILITY(U,$J,601.751,10245,0)
46 ;;=5416^1^1804
47 ;;^UTILITY(U,$J,601.751,10246,0)
48 ;;=5416^2^1805
49 ;;^UTILITY(U,$J,601.751,10247,0)
50 ;;=5416^3^1806
51 ;;^UTILITY(U,$J,601.751,10248,0)
52 ;;=5416^4^1807
53 ;;^UTILITY(U,$J,601.751,10249,0)
54 ;;=5417^1^780
55 ;;^UTILITY(U,$J,601.751,10250,0)
56 ;;=5417^2^781
57 ;;^UTILITY(U,$J,601.751,10251,0)
58 ;;=5417^3^1808
59 ;;^UTILITY(U,$J,601.751,10252,0)
60 ;;=5417^4^1809
61 ;;^UTILITY(U,$J,601.751,10253,0)
62 ;;=5417^5^1810
63 ;;^UTILITY(U,$J,601.751,10254,0)
64 ;;=5417^6^784
65 ;;^UTILITY(U,$J,601.751,10255,0)
66 ;;=5417^7^785
67 ;;^UTILITY(U,$J,601.751,10537,0)
68 ;;=3110^1^803
69 ;;^UTILITY(U,$J,601.751,10538,0)
70 ;;=3110^2^804
71 ;;^UTILITY(U,$J,601.751,10539,0)
72 ;;=3110^3^805
73 ;;^UTILITY(U,$J,601.751,10540,0)
74 ;;=3110^4^806
75 ;;^UTILITY(U,$J,601.751,10541,0)
76 ;;=3110^5^807
77 ;;^UTILITY(U,$J,601.751,10542,0)
78 ;;=3111^1^803
79 ;;^UTILITY(U,$J,601.751,10543,0)
80 ;;=3111^2^804
81 ;;^UTILITY(U,$J,601.751,10544,0)
82 ;;=3111^3^805
83 ;;^UTILITY(U,$J,601.751,10545,0)
84 ;;=3111^4^806
85 ;;^UTILITY(U,$J,601.751,10546,0)
86 ;;=3111^5^807
87 ;;^UTILITY(U,$J,601.751,10547,0)
88 ;;=3112^1^803
89 ;;^UTILITY(U,$J,601.751,10548,0)
90 ;;=3112^2^804
91 ;;^UTILITY(U,$J,601.751,10549,0)
92 ;;=3112^3^805
93 ;;^UTILITY(U,$J,601.751,10550,0)
94 ;;=3112^4^806
95 ;;^UTILITY(U,$J,601.751,10551,0)
96 ;;=3112^5^807
97 ;;^UTILITY(U,$J,601.751,10552,0)
98 ;;=3113^1^814
99 ;;^UTILITY(U,$J,601.751,10553,0)
100 ;;=3113^2^815
101 ;;^UTILITY(U,$J,601.751,10554,0)
102 ;;=3113^3^884
103 ;;^UTILITY(U,$J,601.751,10555,0)
104 ;;=3113^4^772
105 ;;^UTILITY(U,$J,601.751,10556,0)
106 ;;=3113^5^817
107 ;;^UTILITY(U,$J,601.751,10557,0)
108 ;;=3114^1^814
109 ;;^UTILITY(U,$J,601.751,10558,0)
110 ;;=3114^2^815
111 ;;^UTILITY(U,$J,601.751,10559,0)
112 ;;=3114^3^884
113 ;;^UTILITY(U,$J,601.751,10560,0)
114 ;;=3114^4^772
115 ;;^UTILITY(U,$J,601.751,10561,0)
116 ;;=3114^5^817
117 ;;^UTILITY(U,$J,601.751,10562,0)
118 ;;=3115^1^814
119 ;;^UTILITY(U,$J,601.751,10563,0)
120 ;;=3115^2^815
121 ;;^UTILITY(U,$J,601.751,10564,0)
122 ;;=3115^3^884
123 ;;^UTILITY(U,$J,601.751,10565,0)
124 ;;=3115^4^772
125 ;;^UTILITY(U,$J,601.751,10566,0)
126 ;;=3115^5^817
127 ;;^UTILITY(U,$J,601.751,10567,0)
128 ;;=3116^1^814
129 ;;^UTILITY(U,$J,601.751,10568,0)
130 ;;=3116^2^815
131 ;;^UTILITY(U,$J,601.751,10569,0)
132 ;;=3116^3^884
133 ;;^UTILITY(U,$J,601.751,10570,0)
134 ;;=3116^4^772
135 ;;^UTILITY(U,$J,601.751,10571,0)
136 ;;=3116^5^817
137 ;;^UTILITY(U,$J,601.751,10572,0)
138 ;;=3117^1^814
139 ;;^UTILITY(U,$J,601.751,10573,0)
140 ;;=3117^2^815
141 ;;^UTILITY(U,$J,601.751,10574,0)
142 ;;=3117^3^884
143 ;;^UTILITY(U,$J,601.751,10575,0)
144 ;;=3117^4^772
145 ;;^UTILITY(U,$J,601.751,10576,0)
146 ;;=3117^5^817
147 ;;^UTILITY(U,$J,601.751,10577,0)
148 ;;=3118^1^814
149 ;;^UTILITY(U,$J,601.751,10578,0)
150 ;;=3118^2^815
151 ;;^UTILITY(U,$J,601.751,10579,0)
152 ;;=3118^3^884
153 ;;^UTILITY(U,$J,601.751,10580,0)
154 ;;=3118^4^772
155 ;;^UTILITY(U,$J,601.751,10581,0)
156 ;;=3118^5^817
157 ;;^UTILITY(U,$J,601.751,10582,0)
158 ;;=3119^1^814
159 ;;^UTILITY(U,$J,601.751,10583,0)
160 ;;=3119^2^815
161 ;;^UTILITY(U,$J,601.751,10584,0)
162 ;;=3119^3^884
163 ;;^UTILITY(U,$J,601.751,10585,0)
164 ;;=3119^4^772
165 ;;^UTILITY(U,$J,601.751,10586,0)
166 ;;=3119^5^817
167 ;;^UTILITY(U,$J,601.751,10587,0)
168 ;;=3120^1^814
169 ;;^UTILITY(U,$J,601.751,10588,0)
170 ;;=3120^2^815
171 ;;^UTILITY(U,$J,601.751,10589,0)
172 ;;=3120^3^884
173 ;;^UTILITY(U,$J,601.751,10590,0)
174 ;;=3120^4^772
175 ;;^UTILITY(U,$J,601.751,10591,0)
176 ;;=3120^5^817
177 ;;^UTILITY(U,$J,601.751,10592,0)
178 ;;=3121^1^814
179 ;;^UTILITY(U,$J,601.751,10593,0)
180 ;;=3121^2^815
181 ;;^UTILITY(U,$J,601.751,10594,0)
182 ;;=3121^3^884
183 ;;^UTILITY(U,$J,601.751,10595,0)
184 ;;=3121^4^772
185 ;;^UTILITY(U,$J,601.751,10596,0)
186 ;;=3121^5^817
187 ;;^UTILITY(U,$J,601.751,10597,0)
188 ;;=3122^1^217
189 ;;^UTILITY(U,$J,601.751,10598,0)
190 ;;=3122^2^242
191 ;;^UTILITY(U,$J,601.751,10599,0)
192 ;;=3122^3^213
193 ;;^UTILITY(U,$J,601.751,10600,0)
194 ;;=3122^4^215
195 ;;^UTILITY(U,$J,601.751,10601,0)
196 ;;=3122^5^995
197 ;;^UTILITY(U,$J,601.751,10602,0)
198 ;;=3123^1^217
199 ;;^UTILITY(U,$J,601.751,10603,0)
200 ;;=3123^2^242
201 ;;^UTILITY(U,$J,601.751,10604,0)
202 ;;=3123^3^213
203 ;;^UTILITY(U,$J,601.751,10605,0)
204 ;;=3123^4^215
205 ;;^UTILITY(U,$J,601.751,10606,0)
206 ;;=3123^5^995
207 ;;^UTILITY(U,$J,601.751,10607,0)
208 ;;=3124^1^217
209 ;;^UTILITY(U,$J,601.751,10608,0)
210 ;;=3124^2^242
211 ;;^UTILITY(U,$J,601.751,10609,0)
212 ;;=3124^3^213
213 ;;^UTILITY(U,$J,601.751,10610,0)
214 ;;=3124^4^215
215 ;;^UTILITY(U,$J,601.751,10611,0)
216 ;;=3124^5^995
217 ;;^UTILITY(U,$J,601.751,10612,0)
218 ;;=3125^1^217
219 ;;^UTILITY(U,$J,601.751,10613,0)
220 ;;=3125^2^242
221 ;;^UTILITY(U,$J,601.751,10614,0)
222 ;;=3125^3^213
223 ;;^UTILITY(U,$J,601.751,10615,0)
224 ;;=3125^4^215
225 ;;^UTILITY(U,$J,601.751,10616,0)
226 ;;=3125^5^995
227 ;;^UTILITY(U,$J,601.751,10617,0)
228 ;;=3126^1^217
229 ;;^UTILITY(U,$J,601.751,10618,0)
230 ;;=3126^2^242
231 ;;^UTILITY(U,$J,601.751,10619,0)
232 ;;=3126^3^213
233 ;;^UTILITY(U,$J,601.751,10620,0)
234 ;;=3126^4^215
235 ;;^UTILITY(U,$J,601.751,10621,0)
236 ;;=3126^5^995
237 ;;^UTILITY(U,$J,601.751,10622,0)
238 ;;=3127^1^217
239 ;;^UTILITY(U,$J,601.751,10623,0)
240 ;;=3127^2^242
241 ;;^UTILITY(U,$J,601.751,10624,0)
242 ;;=3127^3^213
243 ;;^UTILITY(U,$J,601.751,10625,0)
244 ;;=3127^4^215
245 ;;^UTILITY(U,$J,601.751,10626,0)
246 ;;=3127^5^995
247 ;;^UTILITY(U,$J,601.751,10627,0)
248 ;;=3128^1^217
249 ;;^UTILITY(U,$J,601.751,10628,0)
250 ;;=3128^2^242
251 ;;^UTILITY(U,$J,601.751,10629,0)
252 ;;=3128^3^213
253 ;;^UTILITY(U,$J,601.751,10630,0)
254 ;;=3128^4^215
255 ;;^UTILITY(U,$J,601.751,10631,0)
256 ;;=3128^5^995
257 ;;^UTILITY(U,$J,601.751,10632,0)
258 ;;=3129^1^217
259 ;;^UTILITY(U,$J,601.751,10633,0)
260 ;;=3129^2^242
261 ;;^UTILITY(U,$J,601.751,10634,0)
262 ;;=3129^3^213
263 ;;^UTILITY(U,$J,601.751,10635,0)
264 ;;=3129^4^215
265 ;;^UTILITY(U,$J,601.751,10636,0)
266 ;;=3129^5^995
267 ;;^UTILITY(U,$J,601.751,10637,0)
268 ;;=3130^1^217
269 ;;^UTILITY(U,$J,601.751,10638,0)
270 ;;=3130^2^242
271 ;;^UTILITY(U,$J,601.751,10639,0)
272 ;;=3130^3^213
273 ;;^UTILITY(U,$J,601.751,10640,0)
274 ;;=3130^4^215
275 ;;^UTILITY(U,$J,601.751,10641,0)
276 ;;=3130^5^995
277 ;;^UTILITY(U,$J,601.751,10642,0)
278 ;;=3131^1^217
279 ;;^UTILITY(U,$J,601.751,10643,0)
280 ;;=3131^2^242
281 ;;^UTILITY(U,$J,601.751,10644,0)
282 ;;=3131^3^213
283 ;;^UTILITY(U,$J,601.751,10645,0)
284 ;;=3131^4^215
285 ;;^UTILITY(U,$J,601.751,10646,0)
286 ;;=3131^5^995
287 ;;^UTILITY(U,$J,601.751,10647,0)
288 ;;=3132^1^217
289 ;;^UTILITY(U,$J,601.751,10648,0)
290 ;;=3132^2^242
291 ;;^UTILITY(U,$J,601.751,10649,0)
292 ;;=3132^3^213
293 ;;^UTILITY(U,$J,601.751,10650,0)
294 ;;=3132^4^215
295 ;;^UTILITY(U,$J,601.751,10651,0)
296 ;;=3132^5^995
297 ;;^UTILITY(U,$J,601.751,10652,0)
298 ;;=3133^1^217
299 ;;^UTILITY(U,$J,601.751,10653,0)
300 ;;=3133^2^242
301 ;;^UTILITY(U,$J,601.751,10654,0)
302 ;;=3133^3^213
303 ;;^UTILITY(U,$J,601.751,10655,0)
304 ;;=3133^4^215
305 ;;^UTILITY(U,$J,601.751,10656,0)
306 ;;=3133^5^995
307 ;;^UTILITY(U,$J,601.751,10657,0)
308 ;;=3134^1^237
309 ;;^UTILITY(U,$J,601.751,10658,0)
310 ;;=3134^2^241
311 ;;^UTILITY(U,$J,601.751,10659,0)
312 ;;=3135^1^237
313 ;;^UTILITY(U,$J,601.751,10660,0)
314 ;;=3135^2^241
315 ;;^UTILITY(U,$J,601.751,10661,0)
316 ;;=3136^1^1425
317 ;;^UTILITY(U,$J,601.751,10662,0)
318 ;;=3136^2^1426
319 ;;^UTILITY(U,$J,601.751,10663,0)
320 ;;=3136^3^1427
321 ;;^UTILITY(U,$J,601.751,10664,0)
322 ;;=3136^4^1428
323 ;;^UTILITY(U,$J,601.751,10665,0)
324 ;;=3136^5^1429
325 ;;^UTILITY(U,$J,601.751,10666,0)
326 ;;=3136^6^1430
327 ;;^UTILITY(U,$J,601.751,10667,0)
328 ;;=3136^7^1431
329 ;;^UTILITY(U,$J,601.751,10668,0)
330 ;;=3136^8^1432
331 ;;^UTILITY(U,$J,601.751,10669,0)
332 ;;=3136^9^1433
333 ;;^UTILITY(U,$J,601.751,10670,0)
334 ;;=3137^1^1434
335 ;;^UTILITY(U,$J,601.751,10671,0)
336 ;;=3137^2^1435
337 ;;^UTILITY(U,$J,601.751,10672,0)
338 ;;=3137^3^1436
339 ;;^UTILITY(U,$J,601.751,10673,0)
340 ;;=3137^4^1437
341 ;;^UTILITY(U,$J,601.751,10674,0)
342 ;;=3137^5^1438
343 ;;^UTILITY(U,$J,601.751,10675,0)
344 ;;=3138^1^237
345 ;;^UTILITY(U,$J,601.751,10676,0)
346 ;;=3138^2^241
347 ;;^UTILITY(U,$J,601.751,10677,0)
348 ;;=3139^1^100805
349 ;;^UTILITY(U,$J,601.751,10678,0)
350 ;;=3139^2^1439
351 ;;^UTILITY(U,$J,601.751,10679,0)
352 ;;=3139^3^1440
353 ;;^UTILITY(U,$J,601.751,10680,0)
354 ;;=3140^1^237
355 ;;^UTILITY(U,$J,601.751,10681,0)
356 ;;=3140^2^241
357 ;;^UTILITY(U,$J,601.751,10682,0)
358 ;;=3141^1^237
359 ;;^UTILITY(U,$J,601.751,10683,0)
360 ;;=3141^2^241
361 ;;^UTILITY(U,$J,601.751,10684,0)
362 ;;=3142^1^237
Note: See TracBrowser for help on using the repository browser.