source: FOIAVistA/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YTQQI00J.m@ 1499

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

initial load of FOIAVistA 6/30/08 version
File size: 8.8 KB
Line 
1YTQQI00J ;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,14347,0)
6 ;;=6140^10^1554
7 ;;^UTILITY(U,$J,601.751,14348,0)
8 ;;=6140^11^1555
9 ;;^UTILITY(U,$J,601.751,14349,0)
10 ;;=6140^12^1556
11 ;;^UTILITY(U,$J,601.751,14350,0)
12 ;;=6140^13^1557
13 ;;^UTILITY(U,$J,601.751,14351,0)
14 ;;=6141^1^1562
15 ;;^UTILITY(U,$J,601.751,14352,0)
16 ;;=6141^2^1563
17 ;;^UTILITY(U,$J,601.751,14353,0)
18 ;;=6141^3^1564
19 ;;^UTILITY(U,$J,601.751,14354,0)
20 ;;=6141^4^1565
21 ;;^UTILITY(U,$J,601.751,14355,0)
22 ;;=6141^5^1566
23 ;;^UTILITY(U,$J,601.751,14356,0)
24 ;;=6141^6^1614
25 ;;^UTILITY(U,$J,601.751,14357,0)
26 ;;=6141^7^1567
27 ;;^UTILITY(U,$J,601.751,14358,0)
28 ;;=6141^8^1622
29 ;;^UTILITY(U,$J,601.751,14359,0)
30 ;;=6141^9^1568
31 ;;^UTILITY(U,$J,601.751,14360,0)
32 ;;=6141^10^1569
33 ;;^UTILITY(U,$J,601.751,14361,0)
34 ;;=6141^11^1570
35 ;;^UTILITY(U,$J,601.751,14362,0)
36 ;;=6141^12^1571
37 ;;^UTILITY(U,$J,601.751,14363,0)
38 ;;=6141^13^1819
39 ;;^UTILITY(U,$J,601.751,14364,0)
40 ;;=6141^14^1573
41 ;;^UTILITY(U,$J,601.751,14365,0)
42 ;;=6141^15^1574
43 ;;^UTILITY(U,$J,601.751,14366,0)
44 ;;=6141^16^1575
45 ;;^UTILITY(U,$J,601.751,14367,0)
46 ;;=6141^17^1576
47 ;;^UTILITY(U,$J,601.751,14368,0)
48 ;;=6141^18^1577
49 ;;^UTILITY(U,$J,601.751,14369,0)
50 ;;=6141^19^1653
51 ;;^UTILITY(U,$J,601.751,14370,0)
52 ;;=6141^20^1655
53 ;;^UTILITY(U,$J,601.751,14371,0)
54 ;;=6141^21^1659
55 ;;^UTILITY(U,$J,601.751,14372,0)
56 ;;=6142^1^237
57 ;;^UTILITY(U,$J,601.751,14373,0)
58 ;;=6142^2^241
59 ;;^UTILITY(U,$J,601.751,14374,0)
60 ;;=6143^1^1
61 ;;^UTILITY(U,$J,601.751,14375,0)
62 ;;=6143^2^1579
63 ;;^UTILITY(U,$J,601.751,14376,0)
64 ;;=6143^3^1580
65 ;;^UTILITY(U,$J,601.751,14377,0)
66 ;;=6143^4^743
67 ;;^UTILITY(U,$J,601.751,14378,0)
68 ;;=6144^1^237
69 ;;^UTILITY(U,$J,601.751,14379,0)
70 ;;=6144^2^241
71 ;;^UTILITY(U,$J,601.751,14380,0)
72 ;;=6145^1^237
73 ;;^UTILITY(U,$J,601.751,14381,0)
74 ;;=6145^2^241
75 ;;^UTILITY(U,$J,601.751,14382,0)
76 ;;=6146^1^237
77 ;;^UTILITY(U,$J,601.751,14383,0)
78 ;;=6146^2^241
79 ;;^UTILITY(U,$J,601.751,14384,0)
80 ;;=6147^1^1581
81 ;;^UTILITY(U,$J,601.751,14385,0)
82 ;;=6147^2^1582
83 ;;^UTILITY(U,$J,601.751,14386,0)
84 ;;=6147^3^1583
85 ;;^UTILITY(U,$J,601.751,14387,0)
86 ;;=6147^4^1584
87 ;;^UTILITY(U,$J,601.751,14388,0)
88 ;;=6147^5^1585
89 ;;^UTILITY(U,$J,601.751,14389,0)
90 ;;=6147^6^1525
91 ;;^UTILITY(U,$J,601.751,14390,0)
92 ;;=6147^7^1586
93 ;;^UTILITY(U,$J,601.751,14391,0)
94 ;;=6147^8^1587
95 ;;^UTILITY(U,$J,601.751,14392,0)
96 ;;=6147^9^1588
97 ;;^UTILITY(U,$J,601.751,14393,0)
98 ;;=6147^10^743
99 ;;^UTILITY(U,$J,601.751,14394,0)
100 ;;=6148^1^100924
101 ;;^UTILITY(U,$J,601.751,14395,0)
102 ;;=6148^2^100925
103 ;;^UTILITY(U,$J,601.751,14396,0)
104 ;;=6149^1^237
105 ;;^UTILITY(U,$J,601.751,14397,0)
106 ;;=6149^2^241
107 ;;^UTILITY(U,$J,601.751,14398,0)
108 ;;=6150^1^237
109 ;;^UTILITY(U,$J,601.751,14399,0)
110 ;;=6150^2^241
111 ;;^UTILITY(U,$J,601.751,14400,0)
112 ;;=6151^1^237
113 ;;^UTILITY(U,$J,601.751,14401,0)
114 ;;=6151^2^241
115 ;;^UTILITY(U,$J,601.751,14402,0)
116 ;;=6152^1^237
117 ;;^UTILITY(U,$J,601.751,14403,0)
118 ;;=6152^2^241
119 ;;^UTILITY(U,$J,601.751,14404,0)
120 ;;=6153^1^237
121 ;;^UTILITY(U,$J,601.751,14405,0)
122 ;;=6153^2^241
123 ;;^UTILITY(U,$J,601.751,14406,0)
124 ;;=6154^1^237
125 ;;^UTILITY(U,$J,601.751,14407,0)
126 ;;=6154^2^241
127 ;;^UTILITY(U,$J,601.751,14408,0)
128 ;;=6155^1^237
129 ;;^UTILITY(U,$J,601.751,14409,0)
130 ;;=6155^2^241
131 ;;^UTILITY(U,$J,601.751,14410,0)
132 ;;=6156^1^237
133 ;;^UTILITY(U,$J,601.751,14411,0)
134 ;;=6156^2^241
135 ;;^UTILITY(U,$J,601.751,14412,0)
136 ;;=6157^1^237
137 ;;^UTILITY(U,$J,601.751,14413,0)
138 ;;=6157^2^241
139 ;;^UTILITY(U,$J,601.751,14414,0)
140 ;;=6158^1^237
141 ;;^UTILITY(U,$J,601.751,14415,0)
142 ;;=6158^2^241
143 ;;^UTILITY(U,$J,601.751,14416,0)
144 ;;=6159^1^237
145 ;;^UTILITY(U,$J,601.751,14417,0)
146 ;;=6159^2^241
147 ;;^UTILITY(U,$J,601.751,14418,0)
148 ;;=6160^1^237
149 ;;^UTILITY(U,$J,601.751,14419,0)
150 ;;=6160^2^241
151 ;;^UTILITY(U,$J,601.751,14420,0)
152 ;;=6161^1^237
153 ;;^UTILITY(U,$J,601.751,14421,0)
154 ;;=6161^2^241
155 ;;^UTILITY(U,$J,601.751,14422,0)
156 ;;=6162^1^237
157 ;;^UTILITY(U,$J,601.751,14423,0)
158 ;;=6162^2^241
159 ;;^UTILITY(U,$J,601.751,14424,0)
160 ;;=6163^1^237
161 ;;^UTILITY(U,$J,601.751,14425,0)
162 ;;=6163^2^241
163 ;;^UTILITY(U,$J,601.751,14426,0)
164 ;;=6164^1^237
165 ;;^UTILITY(U,$J,601.751,14427,0)
166 ;;=6164^2^241
167 ;;^UTILITY(U,$J,601.751,14428,0)
168 ;;=6165^1^100884
169 ;;^UTILITY(U,$J,601.751,14429,0)
170 ;;=6165^2^100885
171 ;;^UTILITY(U,$J,601.751,14430,0)
172 ;;=6165^3^100886
173 ;;^UTILITY(U,$J,601.751,14431,0)
174 ;;=6165^4^100887
175 ;;^UTILITY(U,$J,601.751,14432,0)
176 ;;=6166^1^100888
177 ;;^UTILITY(U,$J,601.751,14433,0)
178 ;;=6166^2^100889
179 ;;^UTILITY(U,$J,601.751,14434,0)
180 ;;=6166^3^100890
181 ;;^UTILITY(U,$J,601.751,14435,0)
182 ;;=6166^4^100891
183 ;;^UTILITY(U,$J,601.751,14436,0)
184 ;;=6166^5^100892
185 ;;^UTILITY(U,$J,601.751,14437,0)
186 ;;=6166^6^100893
187 ;;^UTILITY(U,$J,601.751,14438,0)
188 ;;=6167^1^100888
189 ;;^UTILITY(U,$J,601.751,14439,0)
190 ;;=6167^2^100889
191 ;;^UTILITY(U,$J,601.751,14440,0)
192 ;;=6167^3^100890
193 ;;^UTILITY(U,$J,601.751,14441,0)
194 ;;=6167^4^100891
195 ;;^UTILITY(U,$J,601.751,14442,0)
196 ;;=6167^5^100892
197 ;;^UTILITY(U,$J,601.751,14443,0)
198 ;;=6167^6^100893
199 ;;^UTILITY(U,$J,601.751,14444,0)
200 ;;=6168^1^856
201 ;;^UTILITY(U,$J,601.751,14445,0)
202 ;;=6168^2^100947
203 ;;^UTILITY(U,$J,601.751,14446,0)
204 ;;=6168^3^855
205 ;;^UTILITY(U,$J,601.751,14447,0)
206 ;;=6168^4^100948
207 ;;^UTILITY(U,$J,601.751,14448,0)
208 ;;=6168^5^100949
209 ;;^UTILITY(U,$J,601.751,14449,0)
210 ;;=6169^1^856
211 ;;^UTILITY(U,$J,601.751,14450,0)
212 ;;=6169^2^100947
213 ;;^UTILITY(U,$J,601.751,14451,0)
214 ;;=6169^3^855
215 ;;^UTILITY(U,$J,601.751,14452,0)
216 ;;=6169^4^100948
217 ;;^UTILITY(U,$J,601.751,14453,0)
218 ;;=6169^5^100949
219 ;;^UTILITY(U,$J,601.751,14454,0)
220 ;;=6170^1^856
221 ;;^UTILITY(U,$J,601.751,14455,0)
222 ;;=6170^2^100947
223 ;;^UTILITY(U,$J,601.751,14456,0)
224 ;;=6170^3^855
225 ;;^UTILITY(U,$J,601.751,14457,0)
226 ;;=6170^4^100948
227 ;;^UTILITY(U,$J,601.751,14458,0)
228 ;;=6170^5^100949
229 ;;^UTILITY(U,$J,601.751,14459,0)
230 ;;=6171^1^856
231 ;;^UTILITY(U,$J,601.751,14460,0)
232 ;;=6171^2^100947
233 ;;^UTILITY(U,$J,601.751,14461,0)
234 ;;=6171^3^855
235 ;;^UTILITY(U,$J,601.751,14462,0)
236 ;;=6171^4^100948
237 ;;^UTILITY(U,$J,601.751,14463,0)
238 ;;=6171^5^100949
239 ;;^UTILITY(U,$J,601.751,14464,0)
240 ;;=6172^1^856
241 ;;^UTILITY(U,$J,601.751,14465,0)
242 ;;=6172^2^100947
243 ;;^UTILITY(U,$J,601.751,14466,0)
244 ;;=6172^3^855
245 ;;^UTILITY(U,$J,601.751,14467,0)
246 ;;=6172^4^100948
247 ;;^UTILITY(U,$J,601.751,14468,0)
248 ;;=6172^5^100949
249 ;;^UTILITY(U,$J,601.751,14469,0)
250 ;;=6173^1^100888
251 ;;^UTILITY(U,$J,601.751,14470,0)
252 ;;=6173^2^1404
253 ;;^UTILITY(U,$J,601.751,14471,0)
254 ;;=6173^3^1405
255 ;;^UTILITY(U,$J,601.751,14472,0)
256 ;;=6173^4^1406
257 ;;^UTILITY(U,$J,601.751,14473,0)
258 ;;=6173^5^1407
259 ;;^UTILITY(U,$J,601.751,14474,0)
260 ;;=6173^6^1408
261 ;;^UTILITY(U,$J,601.751,14475,0)
262 ;;=6174^1^1409
263 ;;^UTILITY(U,$J,601.751,14476,0)
264 ;;=6174^2^217
265 ;;^UTILITY(U,$J,601.751,14477,0)
266 ;;=6174^3^242
267 ;;^UTILITY(U,$J,601.751,14478,0)
268 ;;=6174^4^290
269 ;;^UTILITY(U,$J,601.751,14479,0)
270 ;;=6174^5^213
271 ;;^UTILITY(U,$J,601.751,14480,0)
272 ;;=6174^6^215
273 ;;^UTILITY(U,$J,601.751,14481,0)
274 ;;=6174^7^291
275 ;;^UTILITY(U,$J,601.751,14482,0)
276 ;;=6174^8^995
277 ;;^UTILITY(U,$J,601.751,14483,0)
278 ;;=6175^1^1409
279 ;;^UTILITY(U,$J,601.751,14484,0)
280 ;;=6175^2^217
281 ;;^UTILITY(U,$J,601.751,14485,0)
282 ;;=6175^3^242
283 ;;^UTILITY(U,$J,601.751,14486,0)
284 ;;=6175^4^290
285 ;;^UTILITY(U,$J,601.751,14487,0)
286 ;;=6175^5^213
287 ;;^UTILITY(U,$J,601.751,14488,0)
288 ;;=6175^6^215
289 ;;^UTILITY(U,$J,601.751,14489,0)
290 ;;=6175^7^291
291 ;;^UTILITY(U,$J,601.751,14490,0)
292 ;;=6175^8^995
293 ;;^UTILITY(U,$J,601.751,14491,0)
294 ;;=6176^1^1409
295 ;;^UTILITY(U,$J,601.751,14492,0)
296 ;;=6176^2^217
297 ;;^UTILITY(U,$J,601.751,14493,0)
298 ;;=6176^3^242
299 ;;^UTILITY(U,$J,601.751,14494,0)
300 ;;=6176^4^290
301 ;;^UTILITY(U,$J,601.751,14495,0)
302 ;;=6176^5^213
303 ;;^UTILITY(U,$J,601.751,14496,0)
304 ;;=6176^6^215
305 ;;^UTILITY(U,$J,601.751,14497,0)
306 ;;=6176^7^291
307 ;;^UTILITY(U,$J,601.751,14498,0)
308 ;;=6176^8^995
309 ;;^UTILITY(U,$J,601.751,14499,0)
310 ;;=6177^1^1409
311 ;;^UTILITY(U,$J,601.751,14500,0)
312 ;;=6177^2^217
313 ;;^UTILITY(U,$J,601.751,14501,0)
314 ;;=6177^3^242
315 ;;^UTILITY(U,$J,601.751,14502,0)
316 ;;=6177^4^290
317 ;;^UTILITY(U,$J,601.751,14503,0)
318 ;;=6177^5^213
319 ;;^UTILITY(U,$J,601.751,14504,0)
320 ;;=6177^6^215
321 ;;^UTILITY(U,$J,601.751,14505,0)
322 ;;=6177^7^291
323 ;;^UTILITY(U,$J,601.751,14506,0)
324 ;;=6177^8^995
325 ;;^UTILITY(U,$J,601.751,14507,0)
326 ;;=6178^1^1409
327 ;;^UTILITY(U,$J,601.751,14508,0)
328 ;;=6178^2^217
329 ;;^UTILITY(U,$J,601.751,14509,0)
330 ;;=6178^3^242
331 ;;^UTILITY(U,$J,601.751,14510,0)
332 ;;=6178^4^290
333 ;;^UTILITY(U,$J,601.751,14511,0)
334 ;;=6178^5^213
335 ;;^UTILITY(U,$J,601.751,14512,0)
336 ;;=6178^6^215
337 ;;^UTILITY(U,$J,601.751,14513,0)
338 ;;=6178^7^291
339 ;;^UTILITY(U,$J,601.751,14514,0)
340 ;;=6178^8^995
341 ;;^UTILITY(U,$J,601.751,14515,0)
342 ;;=6179^1^1409
343 ;;^UTILITY(U,$J,601.751,14516,0)
344 ;;=6179^2^217
345 ;;^UTILITY(U,$J,601.751,14517,0)
346 ;;=6179^3^242
347 ;;^UTILITY(U,$J,601.751,14518,0)
348 ;;=6179^4^290
349 ;;^UTILITY(U,$J,601.751,14519,0)
350 ;;=6179^5^213
351 ;;^UTILITY(U,$J,601.751,14520,0)
352 ;;=6179^6^215
353 ;;^UTILITY(U,$J,601.751,14521,0)
354 ;;=6179^7^291
355 ;;^UTILITY(U,$J,601.751,14522,0)
356 ;;=6179^8^995
Note: See TracBrowser for help on using the repository browser.