source: FOIAVistA/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YTQQI00G.m@ 1801

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

initial load of FOIAVistA 6/30/08 version
File size: 8.9 KB
Line 
1YTQQI00G ;ASF/ALB- MH3 PATCH 85 INIT ; 7/27/07 2:16pm
2 ;;5.01;MENTAL HEALTH;**85**;;Build 48
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,10685,0)
6 ;;=3142^2^241
7 ;;^UTILITY(U,$J,601.751,10686,0)
8 ;;=3143^1^237
9 ;;^UTILITY(U,$J,601.751,10687,0)
10 ;;=3143^2^241
11 ;;^UTILITY(U,$J,601.751,10688,0)
12 ;;=3144^1^237
13 ;;^UTILITY(U,$J,601.751,10689,0)
14 ;;=3144^2^241
15 ;;^UTILITY(U,$J,601.751,10690,0)
16 ;;=3145^1^237
17 ;;^UTILITY(U,$J,601.751,10691,0)
18 ;;=3145^2^241
19 ;;^UTILITY(U,$J,601.751,10692,0)
20 ;;=3146^1^237
21 ;;^UTILITY(U,$J,601.751,10693,0)
22 ;;=3146^2^241
23 ;;^UTILITY(U,$J,601.751,10694,0)
24 ;;=3147^1^1441
25 ;;^UTILITY(U,$J,601.751,10695,0)
26 ;;=3147^2^1442
27 ;;^UTILITY(U,$J,601.751,10696,0)
28 ;;=3148^1^1446
29 ;;^UTILITY(U,$J,601.751,10697,0)
30 ;;=3148^2^1447
31 ;;^UTILITY(U,$J,601.751,10698,0)
32 ;;=3149^1^1443
33 ;;^UTILITY(U,$J,601.751,10699,0)
34 ;;=3149^2^1444
35 ;;^UTILITY(U,$J,601.751,10700,0)
36 ;;=3149^3^1445
37 ;;^UTILITY(U,$J,601.751,10701,0)
38 ;;=3150^1^237
39 ;;^UTILITY(U,$J,601.751,10702,0)
40 ;;=3150^2^241
41 ;;^UTILITY(U,$J,601.751,10719,0)
42 ;;=3155^1^100098
43 ;;^UTILITY(U,$J,601.751,10720,0)
44 ;;=3155^2^100099
45 ;;^UTILITY(U,$J,601.751,10721,0)
46 ;;=3155^3^100100
47 ;;^UTILITY(U,$J,601.751,10722,0)
48 ;;=3155^4^100101
49 ;;^UTILITY(U,$J,601.751,10723,0)
50 ;;=3156^1^100098
51 ;;^UTILITY(U,$J,601.751,10724,0)
52 ;;=3156^2^100099
53 ;;^UTILITY(U,$J,601.751,10725,0)
54 ;;=3156^3^100100
55 ;;^UTILITY(U,$J,601.751,10726,0)
56 ;;=3156^4^100101
57 ;;^UTILITY(U,$J,601.751,10727,0)
58 ;;=3157^1^100098
59 ;;^UTILITY(U,$J,601.751,10728,0)
60 ;;=3157^2^100099
61 ;;^UTILITY(U,$J,601.751,10729,0)
62 ;;=3157^3^100100
63 ;;^UTILITY(U,$J,601.751,10730,0)
64 ;;=3157^4^100101
65 ;;^UTILITY(U,$J,601.751,10731,0)
66 ;;=3158^1^100098
67 ;;^UTILITY(U,$J,601.751,10732,0)
68 ;;=3158^2^100099
69 ;;^UTILITY(U,$J,601.751,10733,0)
70 ;;=3158^3^100100
71 ;;^UTILITY(U,$J,601.751,10734,0)
72 ;;=3158^4^100101
73 ;;^UTILITY(U,$J,601.751,10735,0)
74 ;;=3159^1^100165
75 ;;^UTILITY(U,$J,601.751,10736,0)
76 ;;=3159^2^100166
77 ;;^UTILITY(U,$J,601.751,10737,0)
78 ;;=3159^3^100752
79 ;;^UTILITY(U,$J,601.751,10738,0)
80 ;;=3160^1^818
81 ;;^UTILITY(U,$J,601.751,10739,0)
82 ;;=3160^2^819
83 ;;^UTILITY(U,$J,601.751,10740,0)
84 ;;=3161^1^744
85 ;;^UTILITY(U,$J,601.751,10741,0)
86 ;;=3161^2^100092
87 ;;^UTILITY(U,$J,601.751,10742,0)
88 ;;=3161^3^745
89 ;;^UTILITY(U,$J,601.751,10743,0)
90 ;;=3161^4^746
91 ;;^UTILITY(U,$J,601.751,10744,0)
92 ;;=3161^5^747
93 ;;^UTILITY(U,$J,601.751,10745,0)
94 ;;=3161^6^748
95 ;;^UTILITY(U,$J,601.751,10746,0)
96 ;;=3161^7^100894
97 ;;^UTILITY(U,$J,601.751,10747,0)
98 ;;=3162^1^1273
99 ;;^UTILITY(U,$J,601.751,10748,0)
100 ;;=3162^2^1274
101 ;;^UTILITY(U,$J,601.751,10749,0)
102 ;;=3162^3^1275
103 ;;^UTILITY(U,$J,601.751,10750,0)
104 ;;=3162^4^1276
105 ;;^UTILITY(U,$J,601.751,10751,0)
106 ;;=3162^5^1277
107 ;;^UTILITY(U,$J,601.751,10752,0)
108 ;;=3162^6^100052
109 ;;^UTILITY(U,$J,601.751,10753,0)
110 ;;=3162^7^1278
111 ;;^UTILITY(U,$J,601.751,10754,0)
112 ;;=3162^8^1279
113 ;;^UTILITY(U,$J,601.751,10755,0)
114 ;;=3163^1^237
115 ;;^UTILITY(U,$J,601.751,10756,0)
116 ;;=3163^2^241
117 ;;^UTILITY(U,$J,601.751,10757,0)
118 ;;=3163^3^1280
119 ;;^UTILITY(U,$J,601.751,10758,0)
120 ;;=3163^4^1281
121 ;;^UTILITY(U,$J,601.751,10759,0)
122 ;;=3164^1^237
123 ;;^UTILITY(U,$J,601.751,10760,0)
124 ;;=3164^2^241
125 ;;^UTILITY(U,$J,601.751,10761,0)
126 ;;=3164^3^1280
127 ;;^UTILITY(U,$J,601.751,10762,0)
128 ;;=3164^4^1281
129 ;;^UTILITY(U,$J,601.751,10763,0)
130 ;;=3165^1^237
131 ;;^UTILITY(U,$J,601.751,10764,0)
132 ;;=3165^2^241
133 ;;^UTILITY(U,$J,601.751,10765,0)
134 ;;=3165^3^1280
135 ;;^UTILITY(U,$J,601.751,10766,0)
136 ;;=3165^4^1281
137 ;;^UTILITY(U,$J,601.751,10767,0)
138 ;;=3166^1^1282
139 ;;^UTILITY(U,$J,601.751,10768,0)
140 ;;=3166^2^1316
141 ;;^UTILITY(U,$J,601.751,10769,0)
142 ;;=3166^3^1284
143 ;;^UTILITY(U,$J,601.751,10770,0)
144 ;;=3166^4^1285
145 ;;^UTILITY(U,$J,601.751,10771,0)
146 ;;=3166^5^1280
147 ;;^UTILITY(U,$J,601.751,10772,0)
148 ;;=3166^6^1281
149 ;;^UTILITY(U,$J,601.751,10773,0)
150 ;;=3167^1^1286
151 ;;^UTILITY(U,$J,601.751,10774,0)
152 ;;=3167^2^1287
153 ;;^UTILITY(U,$J,601.751,10775,0)
154 ;;=3167^3^1288
155 ;;^UTILITY(U,$J,601.751,10776,0)
156 ;;=3167^4^1289
157 ;;^UTILITY(U,$J,601.751,10777,0)
158 ;;=3167^5^1290
159 ;;^UTILITY(U,$J,601.751,10778,0)
160 ;;=3167^6^1291
161 ;;^UTILITY(U,$J,601.751,10779,0)
162 ;;=3167^7^1292
163 ;;^UTILITY(U,$J,601.751,10780,0)
164 ;;=3167^8^1293
165 ;;^UTILITY(U,$J,601.751,10781,0)
166 ;;=3168^1^237
167 ;;^UTILITY(U,$J,601.751,10782,0)
168 ;;=3168^2^241
169 ;;^UTILITY(U,$J,601.751,10783,0)
170 ;;=3168^3^1280
171 ;;^UTILITY(U,$J,601.751,10784,0)
172 ;;=3168^4^1281
173 ;;^UTILITY(U,$J,601.751,10785,0)
174 ;;=3169^1^237
175 ;;^UTILITY(U,$J,601.751,10786,0)
176 ;;=3169^2^241
177 ;;^UTILITY(U,$J,601.751,10787,0)
178 ;;=3169^3^1280
179 ;;^UTILITY(U,$J,601.751,10788,0)
180 ;;=3169^4^1281
181 ;;^UTILITY(U,$J,601.751,10789,0)
182 ;;=3170^1^237
183 ;;^UTILITY(U,$J,601.751,10790,0)
184 ;;=3170^2^241
185 ;;^UTILITY(U,$J,601.751,10791,0)
186 ;;=3170^3^1280
187 ;;^UTILITY(U,$J,601.751,10792,0)
188 ;;=3170^4^1281
189 ;;^UTILITY(U,$J,601.751,10793,0)
190 ;;=3171^1^237
191 ;;^UTILITY(U,$J,601.751,10794,0)
192 ;;=3171^2^241
193 ;;^UTILITY(U,$J,601.751,10795,0)
194 ;;=3171^3^1280
195 ;;^UTILITY(U,$J,601.751,10796,0)
196 ;;=3171^4^1281
197 ;;^UTILITY(U,$J,601.751,10797,0)
198 ;;=3172^1^237
199 ;;^UTILITY(U,$J,601.751,10798,0)
200 ;;=3172^2^241
201 ;;^UTILITY(U,$J,601.751,10799,0)
202 ;;=3172^3^1280
203 ;;^UTILITY(U,$J,601.751,10800,0)
204 ;;=3172^4^1281
205 ;;^UTILITY(U,$J,601.751,10801,0)
206 ;;=3173^1^237
207 ;;^UTILITY(U,$J,601.751,10802,0)
208 ;;=3173^2^241
209 ;;^UTILITY(U,$J,601.751,10803,0)
210 ;;=3173^3^1280
211 ;;^UTILITY(U,$J,601.751,10804,0)
212 ;;=3173^4^1281
213 ;;^UTILITY(U,$J,601.751,10805,0)
214 ;;=3174^1^237
215 ;;^UTILITY(U,$J,601.751,10806,0)
216 ;;=3174^2^1294
217 ;;^UTILITY(U,$J,601.751,10807,0)
218 ;;=3174^3^1295
219 ;;^UTILITY(U,$J,601.751,10808,0)
220 ;;=3174^4^1280
221 ;;^UTILITY(U,$J,601.751,10809,0)
222 ;;=3174^5^1281
223 ;;^UTILITY(U,$J,601.751,10810,0)
224 ;;=3175^1^237
225 ;;^UTILITY(U,$J,601.751,10811,0)
226 ;;=3175^2^1296
227 ;;^UTILITY(U,$J,601.751,10812,0)
228 ;;=3175^3^1297
229 ;;^UTILITY(U,$J,601.751,10813,0)
230 ;;=3175^4^1298
231 ;;^UTILITY(U,$J,601.751,10814,0)
232 ;;=3175^5^1280
233 ;;^UTILITY(U,$J,601.751,10815,0)
234 ;;=3175^6^1281
235 ;;^UTILITY(U,$J,601.751,10816,0)
236 ;;=3176^1^237
237 ;;^UTILITY(U,$J,601.751,10817,0)
238 ;;=3176^2^1296
239 ;;^UTILITY(U,$J,601.751,10818,0)
240 ;;=3176^3^1297
241 ;;^UTILITY(U,$J,601.751,10819,0)
242 ;;=3176^4^1298
243 ;;^UTILITY(U,$J,601.751,10820,0)
244 ;;=3176^5^1280
245 ;;^UTILITY(U,$J,601.751,10821,0)
246 ;;=3176^6^1281
247 ;;^UTILITY(U,$J,601.751,10822,0)
248 ;;=3177^1^237
249 ;;^UTILITY(U,$J,601.751,10823,0)
250 ;;=3177^2^241
251 ;;^UTILITY(U,$J,601.751,10824,0)
252 ;;=3177^3^1280
253 ;;^UTILITY(U,$J,601.751,10825,0)
254 ;;=3177^4^1281
255 ;;^UTILITY(U,$J,601.751,10826,0)
256 ;;=3178^1^237
257 ;;^UTILITY(U,$J,601.751,10827,0)
258 ;;=3178^2^241
259 ;;^UTILITY(U,$J,601.751,10828,0)
260 ;;=3178^3^1280
261 ;;^UTILITY(U,$J,601.751,10829,0)
262 ;;=3178^4^1281
263 ;;^UTILITY(U,$J,601.751,10830,0)
264 ;;=3179^1^237
265 ;;^UTILITY(U,$J,601.751,10831,0)
266 ;;=3179^2^241
267 ;;^UTILITY(U,$J,601.751,10832,0)
268 ;;=3179^3^1280
269 ;;^UTILITY(U,$J,601.751,10833,0)
270 ;;=3179^4^1281
271 ;;^UTILITY(U,$J,601.751,10834,0)
272 ;;=3180^1^1301
273 ;;^UTILITY(U,$J,601.751,10835,0)
274 ;;=3180^2^1302
275 ;;^UTILITY(U,$J,601.751,10836,0)
276 ;;=3180^3^1305
277 ;;^UTILITY(U,$J,601.751,10837,0)
278 ;;=3180^4^1304
279 ;;^UTILITY(U,$J,601.751,10838,0)
280 ;;=3180^5^1280
281 ;;^UTILITY(U,$J,601.751,10839,0)
282 ;;=3180^6^1281
283 ;;^UTILITY(U,$J,601.751,10840,0)
284 ;;=3181^1^237
285 ;;^UTILITY(U,$J,601.751,10841,0)
286 ;;=3181^2^1306
287 ;;^UTILITY(U,$J,601.751,10842,0)
288 ;;=3181^3^1307
289 ;;^UTILITY(U,$J,601.751,10843,0)
290 ;;=3181^4^1280
291 ;;^UTILITY(U,$J,601.751,10844,0)
292 ;;=3181^5^1281
293 ;;^UTILITY(U,$J,601.751,10845,0)
294 ;;=3182^1^237
295 ;;^UTILITY(U,$J,601.751,10846,0)
296 ;;=3182^2^241
297 ;;^UTILITY(U,$J,601.751,10847,0)
298 ;;=3182^3^1281
299 ;;^UTILITY(U,$J,601.751,10848,0)
300 ;;=3183^1^237
301 ;;^UTILITY(U,$J,601.751,10849,0)
302 ;;=3183^2^241
303 ;;^UTILITY(U,$J,601.751,10850,0)
304 ;;=3183^3^1281
305 ;;^UTILITY(U,$J,601.751,10851,0)
306 ;;=3184^1^237
307 ;;^UTILITY(U,$J,601.751,10852,0)
308 ;;=3184^2^241
309 ;;^UTILITY(U,$J,601.751,10853,0)
310 ;;=3184^3^1281
311 ;;^UTILITY(U,$J,601.751,10854,0)
312 ;;=3185^1^237
313 ;;^UTILITY(U,$J,601.751,10855,0)
314 ;;=3185^2^241
315 ;;^UTILITY(U,$J,601.751,10856,0)
316 ;;=3185^3^1281
317 ;;^UTILITY(U,$J,601.751,10857,0)
318 ;;=3186^1^237
319 ;;^UTILITY(U,$J,601.751,10858,0)
320 ;;=3186^2^241
321 ;;^UTILITY(U,$J,601.751,10859,0)
322 ;;=3186^3^1281
323 ;;^UTILITY(U,$J,601.751,10860,0)
324 ;;=3187^1^237
325 ;;^UTILITY(U,$J,601.751,10861,0)
326 ;;=3187^2^241
327 ;;^UTILITY(U,$J,601.751,10862,0)
328 ;;=3187^3^1281
329 ;;^UTILITY(U,$J,601.751,10863,0)
330 ;;=3188^1^237
331 ;;^UTILITY(U,$J,601.751,10864,0)
332 ;;=3188^2^241
333 ;;^UTILITY(U,$J,601.751,10865,0)
334 ;;=3188^3^1281
335 ;;^UTILITY(U,$J,601.751,10866,0)
336 ;;=3189^1^237
337 ;;^UTILITY(U,$J,601.751,10867,0)
338 ;;=3189^2^241
339 ;;^UTILITY(U,$J,601.751,10868,0)
340 ;;=3189^3^1281
341 ;;^UTILITY(U,$J,601.751,10869,0)
342 ;;=3190^1^237
343 ;;^UTILITY(U,$J,601.751,10870,0)
344 ;;=3190^2^241
345 ;;^UTILITY(U,$J,601.751,10871,0)
346 ;;=3190^3^1281
347 ;;^UTILITY(U,$J,601.751,10872,0)
348 ;;=3191^1^237
349 ;;^UTILITY(U,$J,601.751,10873,0)
350 ;;=3191^2^241
351 ;;^UTILITY(U,$J,601.751,10874,0)
352 ;;=3191^3^1281
353 ;;^UTILITY(U,$J,601.751,10875,0)
354 ;;=3192^1^237
355 ;;^UTILITY(U,$J,601.751,10876,0)
356 ;;=3192^2^241
357 ;;^UTILITY(U,$J,601.751,10877,0)
358 ;;=3192^3^1281
Note: See TracBrowser for help on using the repository browser.