source: FOIAVistA/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YTQQI005.m@ 839

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

initial load of FOIAVistA 6/30/08 version
File size: 8.9 KB
Line 
1YTQQI005 ;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,591,0)
6 ;;=140^1^484
7 ;;^UTILITY(U,$J,601.751,592,0)
8 ;;=140^2^485
9 ;;^UTILITY(U,$J,601.751,593,0)
10 ;;=140^3^486
11 ;;^UTILITY(U,$J,601.751,594,0)
12 ;;=140^4^487
13 ;;^UTILITY(U,$J,601.751,595,0)
14 ;;=141^1^488
15 ;;^UTILITY(U,$J,601.751,596,0)
16 ;;=141^2^489
17 ;;^UTILITY(U,$J,601.751,597,0)
18 ;;=141^3^490
19 ;;^UTILITY(U,$J,601.751,598,0)
20 ;;=141^4^491
21 ;;^UTILITY(U,$J,601.751,599,0)
22 ;;=142^1^492
23 ;;^UTILITY(U,$J,601.751,600,0)
24 ;;=142^2^493
25 ;;^UTILITY(U,$J,601.751,601,0)
26 ;;=142^3^494
27 ;;^UTILITY(U,$J,601.751,602,0)
28 ;;=142^4^495
29 ;;^UTILITY(U,$J,601.751,603,0)
30 ;;=143^1^496
31 ;;^UTILITY(U,$J,601.751,604,0)
32 ;;=143^2^497
33 ;;^UTILITY(U,$J,601.751,605,0)
34 ;;=143^3^498
35 ;;^UTILITY(U,$J,601.751,606,0)
36 ;;=143^4^499
37 ;;^UTILITY(U,$J,601.751,607,0)
38 ;;=144^1^500
39 ;;^UTILITY(U,$J,601.751,608,0)
40 ;;=144^2^501
41 ;;^UTILITY(U,$J,601.751,609,0)
42 ;;=144^3^502
43 ;;^UTILITY(U,$J,601.751,610,0)
44 ;;=144^4^503
45 ;;^UTILITY(U,$J,601.751,611,0)
46 ;;=145^1^504
47 ;;^UTILITY(U,$J,601.751,612,0)
48 ;;=145^2^505
49 ;;^UTILITY(U,$J,601.751,613,0)
50 ;;=145^3^506
51 ;;^UTILITY(U,$J,601.751,614,0)
52 ;;=145^4^507
53 ;;^UTILITY(U,$J,601.751,615,0)
54 ;;=146^1^508
55 ;;^UTILITY(U,$J,601.751,616,0)
56 ;;=146^2^509
57 ;;^UTILITY(U,$J,601.751,617,0)
58 ;;=146^3^510
59 ;;^UTILITY(U,$J,601.751,618,0)
60 ;;=146^4^511
61 ;;^UTILITY(U,$J,601.751,619,0)
62 ;;=147^1^512
63 ;;^UTILITY(U,$J,601.751,620,0)
64 ;;=147^2^513
65 ;;^UTILITY(U,$J,601.751,621,0)
66 ;;=148^1^514
67 ;;^UTILITY(U,$J,601.751,622,0)
68 ;;=148^2^515
69 ;;^UTILITY(U,$J,601.751,623,0)
70 ;;=148^3^516
71 ;;^UTILITY(U,$J,601.751,624,0)
72 ;;=148^4^517
73 ;;^UTILITY(U,$J,601.751,625,0)
74 ;;=149^1^518
75 ;;^UTILITY(U,$J,601.751,626,0)
76 ;;=149^2^519
77 ;;^UTILITY(U,$J,601.751,627,0)
78 ;;=149^3^520
79 ;;^UTILITY(U,$J,601.751,628,0)
80 ;;=149^4^521
81 ;;^UTILITY(U,$J,601.751,629,0)
82 ;;=150^1^522
83 ;;^UTILITY(U,$J,601.751,630,0)
84 ;;=150^2^523
85 ;;^UTILITY(U,$J,601.751,631,0)
86 ;;=150^3^524
87 ;;^UTILITY(U,$J,601.751,632,0)
88 ;;=150^4^525
89 ;;^UTILITY(U,$J,601.751,633,0)
90 ;;=151^1^526
91 ;;^UTILITY(U,$J,601.751,634,0)
92 ;;=151^2^527
93 ;;^UTILITY(U,$J,601.751,635,0)
94 ;;=151^3^528
95 ;;^UTILITY(U,$J,601.751,636,0)
96 ;;=151^4^529
97 ;;^UTILITY(U,$J,601.751,637,0)
98 ;;=152^1^530
99 ;;^UTILITY(U,$J,601.751,638,0)
100 ;;=152^2^531
101 ;;^UTILITY(U,$J,601.751,639,0)
102 ;;=152^3^532
103 ;;^UTILITY(U,$J,601.751,640,0)
104 ;;=152^4^533
105 ;;^UTILITY(U,$J,601.751,641,0)
106 ;;=153^1^534
107 ;;^UTILITY(U,$J,601.751,642,0)
108 ;;=153^2^535
109 ;;^UTILITY(U,$J,601.751,643,0)
110 ;;=153^3^536
111 ;;^UTILITY(U,$J,601.751,644,0)
112 ;;=153^4^537
113 ;;^UTILITY(U,$J,601.751,645,0)
114 ;;=154^1^538
115 ;;^UTILITY(U,$J,601.751,646,0)
116 ;;=154^2^539
117 ;;^UTILITY(U,$J,601.751,647,0)
118 ;;=154^3^540
119 ;;^UTILITY(U,$J,601.751,648,0)
120 ;;=154^4^541
121 ;;^UTILITY(U,$J,601.751,649,0)
122 ;;=155^1^542
123 ;;^UTILITY(U,$J,601.751,650,0)
124 ;;=155^2^543
125 ;;^UTILITY(U,$J,601.751,651,0)
126 ;;=155^3^544
127 ;;^UTILITY(U,$J,601.751,652,0)
128 ;;=155^4^545
129 ;;^UTILITY(U,$J,601.751,653,0)
130 ;;=156^1^546
131 ;;^UTILITY(U,$J,601.751,654,0)
132 ;;=156^2^547
133 ;;^UTILITY(U,$J,601.751,655,0)
134 ;;=156^3^548
135 ;;^UTILITY(U,$J,601.751,656,0)
136 ;;=156^4^549
137 ;;^UTILITY(U,$J,601.751,657,0)
138 ;;=157^1^550
139 ;;^UTILITY(U,$J,601.751,658,0)
140 ;;=157^2^551
141 ;;^UTILITY(U,$J,601.751,659,0)
142 ;;=157^3^552
143 ;;^UTILITY(U,$J,601.751,660,0)
144 ;;=157^4^553
145 ;;^UTILITY(U,$J,601.751,661,0)
146 ;;=158^1^554
147 ;;^UTILITY(U,$J,601.751,662,0)
148 ;;=158^2^555
149 ;;^UTILITY(U,$J,601.751,663,0)
150 ;;=158^3^556
151 ;;^UTILITY(U,$J,601.751,664,0)
152 ;;=158^4^557
153 ;;^UTILITY(U,$J,601.751,665,0)
154 ;;=159^1^558
155 ;;^UTILITY(U,$J,601.751,666,0)
156 ;;=159^2^559
157 ;;^UTILITY(U,$J,601.751,667,0)
158 ;;=159^3^560
159 ;;^UTILITY(U,$J,601.751,668,0)
160 ;;=159^4^561
161 ;;^UTILITY(U,$J,601.751,669,0)
162 ;;=160^1^562
163 ;;^UTILITY(U,$J,601.751,670,0)
164 ;;=160^2^563
165 ;;^UTILITY(U,$J,601.751,671,0)
166 ;;=160^3^564
167 ;;^UTILITY(U,$J,601.751,672,0)
168 ;;=160^4^565
169 ;;^UTILITY(U,$J,601.751,673,0)
170 ;;=161^1^566
171 ;;^UTILITY(U,$J,601.751,674,0)
172 ;;=161^2^567
173 ;;^UTILITY(U,$J,601.751,675,0)
174 ;;=161^3^568
175 ;;^UTILITY(U,$J,601.751,676,0)
176 ;;=161^4^569
177 ;;^UTILITY(U,$J,601.751,677,0)
178 ;;=162^1^570
179 ;;^UTILITY(U,$J,601.751,678,0)
180 ;;=162^2^571
181 ;;^UTILITY(U,$J,601.751,679,0)
182 ;;=162^3^572
183 ;;^UTILITY(U,$J,601.751,680,0)
184 ;;=162^4^573
185 ;;^UTILITY(U,$J,601.751,681,0)
186 ;;=163^1^574
187 ;;^UTILITY(U,$J,601.751,682,0)
188 ;;=163^2^575
189 ;;^UTILITY(U,$J,601.751,683,0)
190 ;;=163^3^576
191 ;;^UTILITY(U,$J,601.751,684,0)
192 ;;=163^4^577
193 ;;^UTILITY(U,$J,601.751,685,0)
194 ;;=164^1^578
195 ;;^UTILITY(U,$J,601.751,686,0)
196 ;;=164^2^579
197 ;;^UTILITY(U,$J,601.751,687,0)
198 ;;=164^3^580
199 ;;^UTILITY(U,$J,601.751,688,0)
200 ;;=164^4^581
201 ;;^UTILITY(U,$J,601.751,689,0)
202 ;;=165^1^582
203 ;;^UTILITY(U,$J,601.751,690,0)
204 ;;=165^2^583
205 ;;^UTILITY(U,$J,601.751,691,0)
206 ;;=165^3^584
207 ;;^UTILITY(U,$J,601.751,692,0)
208 ;;=165^4^585
209 ;;^UTILITY(U,$J,601.751,693,0)
210 ;;=165^5^586
211 ;;^UTILITY(U,$J,601.751,694,0)
212 ;;=165^6^587
213 ;;^UTILITY(U,$J,601.751,695,0)
214 ;;=165^7^588
215 ;;^UTILITY(U,$J,601.751,696,0)
216 ;;=166^1^589
217 ;;^UTILITY(U,$J,601.751,697,0)
218 ;;=166^2^590
219 ;;^UTILITY(U,$J,601.751,698,0)
220 ;;=166^3^591
221 ;;^UTILITY(U,$J,601.751,699,0)
222 ;;=166^4^592
223 ;;^UTILITY(U,$J,601.751,700,0)
224 ;;=167^1^593
225 ;;^UTILITY(U,$J,601.751,701,0)
226 ;;=167^2^594
227 ;;^UTILITY(U,$J,601.751,702,0)
228 ;;=167^3^595
229 ;;^UTILITY(U,$J,601.751,703,0)
230 ;;=167^4^596
231 ;;^UTILITY(U,$J,601.751,704,0)
232 ;;=167^5^597
233 ;;^UTILITY(U,$J,601.751,705,0)
234 ;;=167^6^598
235 ;;^UTILITY(U,$J,601.751,706,0)
236 ;;=167^7^599
237 ;;^UTILITY(U,$J,601.751,707,0)
238 ;;=168^1^600
239 ;;^UTILITY(U,$J,601.751,708,0)
240 ;;=168^2^601
241 ;;^UTILITY(U,$J,601.751,709,0)
242 ;;=168^3^602
243 ;;^UTILITY(U,$J,601.751,710,0)
244 ;;=168^4^603
245 ;;^UTILITY(U,$J,601.751,711,0)
246 ;;=169^1^604
247 ;;^UTILITY(U,$J,601.751,712,0)
248 ;;=169^2^605
249 ;;^UTILITY(U,$J,601.751,713,0)
250 ;;=169^3^606
251 ;;^UTILITY(U,$J,601.751,714,0)
252 ;;=169^4^607
253 ;;^UTILITY(U,$J,601.751,715,0)
254 ;;=170^1^608
255 ;;^UTILITY(U,$J,601.751,716,0)
256 ;;=170^2^609
257 ;;^UTILITY(U,$J,601.751,717,0)
258 ;;=170^3^610
259 ;;^UTILITY(U,$J,601.751,718,0)
260 ;;=170^4^611
261 ;;^UTILITY(U,$J,601.751,719,0)
262 ;;=171^1^612
263 ;;^UTILITY(U,$J,601.751,720,0)
264 ;;=171^2^613
265 ;;^UTILITY(U,$J,601.751,721,0)
266 ;;=172^1^614
267 ;;^UTILITY(U,$J,601.751,722,0)
268 ;;=172^2^615
269 ;;^UTILITY(U,$J,601.751,723,0)
270 ;;=172^3^616
271 ;;^UTILITY(U,$J,601.751,724,0)
272 ;;=172^4^617
273 ;;^UTILITY(U,$J,601.751,725,0)
274 ;;=172^5^618
275 ;;^UTILITY(U,$J,601.751,726,0)
276 ;;=172^6^619
277 ;;^UTILITY(U,$J,601.751,727,0)
278 ;;=172^7^620
279 ;;^UTILITY(U,$J,601.751,728,0)
280 ;;=173^1^621
281 ;;^UTILITY(U,$J,601.751,729,0)
282 ;;=173^2^622
283 ;;^UTILITY(U,$J,601.751,730,0)
284 ;;=173^3^623
285 ;;^UTILITY(U,$J,601.751,731,0)
286 ;;=174^1^624
287 ;;^UTILITY(U,$J,601.751,732,0)
288 ;;=174^2^625
289 ;;^UTILITY(U,$J,601.751,733,0)
290 ;;=174^3^626
291 ;;^UTILITY(U,$J,601.751,734,0)
292 ;;=175^1^627
293 ;;^UTILITY(U,$J,601.751,735,0)
294 ;;=175^2^628
295 ;;^UTILITY(U,$J,601.751,736,0)
296 ;;=175^3^629
297 ;;^UTILITY(U,$J,601.751,737,0)
298 ;;=176^1^630
299 ;;^UTILITY(U,$J,601.751,738,0)
300 ;;=176^2^631
301 ;;^UTILITY(U,$J,601.751,739,0)
302 ;;=176^3^632
303 ;;^UTILITY(U,$J,601.751,740,0)
304 ;;=177^1^633
305 ;;^UTILITY(U,$J,601.751,741,0)
306 ;;=177^2^634
307 ;;^UTILITY(U,$J,601.751,742,0)
308 ;;=177^3^635
309 ;;^UTILITY(U,$J,601.751,743,0)
310 ;;=178^1^636
311 ;;^UTILITY(U,$J,601.751,744,0)
312 ;;=178^2^637
313 ;;^UTILITY(U,$J,601.751,745,0)
314 ;;=178^3^638
315 ;;^UTILITY(U,$J,601.751,746,0)
316 ;;=179^1^639
317 ;;^UTILITY(U,$J,601.751,747,0)
318 ;;=179^2^640
319 ;;^UTILITY(U,$J,601.751,748,0)
320 ;;=179^3^641
321 ;;^UTILITY(U,$J,601.751,749,0)
322 ;;=180^1^642
323 ;;^UTILITY(U,$J,601.751,750,0)
324 ;;=180^2^643
325 ;;^UTILITY(U,$J,601.751,751,0)
326 ;;=180^3^644
327 ;;^UTILITY(U,$J,601.751,752,0)
328 ;;=181^1^645
329 ;;^UTILITY(U,$J,601.751,753,0)
330 ;;=181^2^646
331 ;;^UTILITY(U,$J,601.751,754,0)
332 ;;=181^3^647
333 ;;^UTILITY(U,$J,601.751,755,0)
334 ;;=182^1^648
335 ;;^UTILITY(U,$J,601.751,756,0)
336 ;;=182^2^649
337 ;;^UTILITY(U,$J,601.751,757,0)
338 ;;=182^3^650
339 ;;^UTILITY(U,$J,601.751,758,0)
340 ;;=183^1^651
341 ;;^UTILITY(U,$J,601.751,759,0)
342 ;;=183^2^652
343 ;;^UTILITY(U,$J,601.751,760,0)
344 ;;=183^3^653
345 ;;^UTILITY(U,$J,601.751,761,0)
346 ;;=184^1^654
347 ;;^UTILITY(U,$J,601.751,762,0)
348 ;;=184^2^655
349 ;;^UTILITY(U,$J,601.751,763,0)
350 ;;=184^3^656
351 ;;^UTILITY(U,$J,601.751,764,0)
352 ;;=185^1^657
353 ;;^UTILITY(U,$J,601.751,765,0)
354 ;;=185^2^658
355 ;;^UTILITY(U,$J,601.751,766,0)
356 ;;=185^3^659
357 ;;^UTILITY(U,$J,601.751,767,0)
358 ;;=186^1^660
359 ;;^UTILITY(U,$J,601.751,768,0)
360 ;;=186^2^661
361 ;;^UTILITY(U,$J,601.751,769,0)
362 ;;=186^3^662
363 ;;^UTILITY(U,$J,601.751,770,0)
364 ;;=187^1^663
365 ;;^UTILITY(U,$J,601.751,771,0)
366 ;;=187^2^664
367 ;;^UTILITY(U,$J,601.751,772,0)
368 ;;=187^3^665
369 ;;^UTILITY(U,$J,601.751,773,0)
370 ;;=188^1^666
371 ;;^UTILITY(U,$J,601.751,774,0)
372 ;;=188^2^667
373 ;;^UTILITY(U,$J,601.751,775,0)
374 ;;=188^3^668
375 ;;^UTILITY(U,$J,601.751,776,0)
376 ;;=189^1^669
377 ;;^UTILITY(U,$J,601.751,777,0)
378 ;;=189^2^670
379 ;;^UTILITY(U,$J,601.751,778,0)
380 ;;=189^3^671
381 ;;^UTILITY(U,$J,601.751,779,0)
382 ;;=190^1^672
383 ;;^UTILITY(U,$J,601.751,780,0)
384 ;;=190^2^673
385 ;;^UTILITY(U,$J,601.751,781,0)
386 ;;=190^3^674
387 ;;^UTILITY(U,$J,601.751,782,0)
388 ;;=191^1^675
Note: See TracBrowser for help on using the repository browser.