source: WorldVistAEHR/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YTQQI00E.m@ 1154

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

initial load of WorldVistAEHR
File size: 8.9 KB
RevLine 
[613]1YTQQI00E ;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,8757,0)
6 ;;=2693^2^241
7 ;;^UTILITY(U,$J,601.751,8758,0)
8 ;;=2694^1^237
9 ;;^UTILITY(U,$J,601.751,8759,0)
10 ;;=2694^2^241
11 ;;^UTILITY(U,$J,601.751,8760,0)
12 ;;=2695^1^237
13 ;;^UTILITY(U,$J,601.751,8761,0)
14 ;;=2695^2^241
15 ;;^UTILITY(U,$J,601.751,8762,0)
16 ;;=2696^1^237
17 ;;^UTILITY(U,$J,601.751,8763,0)
18 ;;=2696^2^241
19 ;;^UTILITY(U,$J,601.751,8764,0)
20 ;;=2697^1^237
21 ;;^UTILITY(U,$J,601.751,8765,0)
22 ;;=2697^2^241
23 ;;^UTILITY(U,$J,601.751,8766,0)
24 ;;=2698^1^237
25 ;;^UTILITY(U,$J,601.751,8767,0)
26 ;;=2698^2^241
27 ;;^UTILITY(U,$J,601.751,8768,0)
28 ;;=2699^1^237
29 ;;^UTILITY(U,$J,601.751,8769,0)
30 ;;=2699^2^241
31 ;;^UTILITY(U,$J,601.751,8775,0)
32 ;;=471^1^237
33 ;;^UTILITY(U,$J,601.751,8776,0)
34 ;;=471^2^241
35 ;;^UTILITY(U,$J,601.751,8777,0)
36 ;;=351^1^241
37 ;;^UTILITY(U,$J,601.751,8778,0)
38 ;;=351^2^237
39 ;;^UTILITY(U,$J,601.751,8779,0)
40 ;;=469^1^1458
41 ;;^UTILITY(U,$J,601.751,8780,0)
42 ;;=469^2^1459
43 ;;^UTILITY(U,$J,601.751,8781,0)
44 ;;=469^3^1460
45 ;;^UTILITY(U,$J,601.751,8782,0)
46 ;;=469^4^1461
47 ;;^UTILITY(U,$J,601.751,8783,0)
48 ;;=488^1^1462
49 ;;^UTILITY(U,$J,601.751,8784,0)
50 ;;=488^2^1463
51 ;;^UTILITY(U,$J,601.751,8785,0)
52 ;;=488^3^1464
53 ;;^UTILITY(U,$J,601.751,10072,0)
54 ;;=5391^1^1667
55 ;;^UTILITY(U,$J,601.751,10073,0)
56 ;;=5391^2^1668
57 ;;^UTILITY(U,$J,601.751,10074,0)
58 ;;=5391^3^1669
59 ;;^UTILITY(U,$J,601.751,10075,0)
60 ;;=5391^4^1670
61 ;;^UTILITY(U,$J,601.751,10076,0)
62 ;;=5391^5^1671
63 ;;^UTILITY(U,$J,601.751,10077,0)
64 ;;=5391^6^1672
65 ;;^UTILITY(U,$J,601.751,10078,0)
66 ;;=5391^7^1673
67 ;;^UTILITY(U,$J,601.751,10079,0)
68 ;;=5391^8^1674
69 ;;^UTILITY(U,$J,601.751,10080,0)
70 ;;=5391^9^1675
71 ;;^UTILITY(U,$J,601.751,10081,0)
72 ;;=5391^10^1676
73 ;;^UTILITY(U,$J,601.751,10082,0)
74 ;;=5391^11^1677
75 ;;^UTILITY(U,$J,601.751,10083,0)
76 ;;=5391^12^1678
77 ;;^UTILITY(U,$J,601.751,10084,0)
78 ;;=5391^13^1679
79 ;;^UTILITY(U,$J,601.751,10085,0)
80 ;;=5391^14^1680
81 ;;^UTILITY(U,$J,601.751,10086,0)
82 ;;=5391^15^1681
83 ;;^UTILITY(U,$J,601.751,10087,0)
84 ;;=5391^16^1682
85 ;;^UTILITY(U,$J,601.751,10088,0)
86 ;;=5391^17^1683
87 ;;^UTILITY(U,$J,601.751,10089,0)
88 ;;=5391^18^1811
89 ;;^UTILITY(U,$J,601.751,10090,0)
90 ;;=5391^19^1812
91 ;;^UTILITY(U,$J,601.751,10091,0)
92 ;;=5391^20^1686
93 ;;^UTILITY(U,$J,601.751,10092,0)
94 ;;=5391^21^1687
95 ;;^UTILITY(U,$J,601.751,10093,0)
96 ;;=5391^22^1688
97 ;;^UTILITY(U,$J,601.751,10094,0)
98 ;;=5392^1^1689
99 ;;^UTILITY(U,$J,601.751,10095,0)
100 ;;=5392^2^1690
101 ;;^UTILITY(U,$J,601.751,10096,0)
102 ;;=5392^3^1691
103 ;;^UTILITY(U,$J,601.751,10097,0)
104 ;;=5392^4^1692
105 ;;^UTILITY(U,$J,601.751,10098,0)
106 ;;=5393^1^1693
107 ;;^UTILITY(U,$J,601.751,10099,0)
108 ;;=5393^2^1694
109 ;;^UTILITY(U,$J,601.751,10100,0)
110 ;;=5393^3^1695
111 ;;^UTILITY(U,$J,601.751,10101,0)
112 ;;=5393^4^1696
113 ;;^UTILITY(U,$J,601.751,10102,0)
114 ;;=5394^1^1697
115 ;;^UTILITY(U,$J,601.751,10103,0)
116 ;;=5394^2^1698
117 ;;^UTILITY(U,$J,601.751,10104,0)
118 ;;=5394^3^1699
119 ;;^UTILITY(U,$J,601.751,10105,0)
120 ;;=5395^1^1700
121 ;;^UTILITY(U,$J,601.751,10106,0)
122 ;;=5395^2^1701
123 ;;^UTILITY(U,$J,601.751,10107,0)
124 ;;=5395^3^1702
125 ;;^UTILITY(U,$J,601.751,10108,0)
126 ;;=5395^4^1703
127 ;;^UTILITY(U,$J,601.751,10109,0)
128 ;;=5395^5^1704
129 ;;^UTILITY(U,$J,601.751,10110,0)
130 ;;=5396^1^1705
131 ;;^UTILITY(U,$J,601.751,10111,0)
132 ;;=5396^2^1706
133 ;;^UTILITY(U,$J,601.751,10112,0)
134 ;;=5396^3^1707
135 ;;^UTILITY(U,$J,601.751,10113,0)
136 ;;=5396^4^1708
137 ;;^UTILITY(U,$J,601.751,10114,0)
138 ;;=5396^5^1709
139 ;;^UTILITY(U,$J,601.751,10115,0)
140 ;;=5397^1^1710
141 ;;^UTILITY(U,$J,601.751,10116,0)
142 ;;=5397^2^1711
143 ;;^UTILITY(U,$J,601.751,10117,0)
144 ;;=5397^3^1712
145 ;;^UTILITY(U,$J,601.751,10118,0)
146 ;;=5397^4^1713
147 ;;^UTILITY(U,$J,601.751,10119,0)
148 ;;=5398^1^1714
149 ;;^UTILITY(U,$J,601.751,10120,0)
150 ;;=5398^2^1715
151 ;;^UTILITY(U,$J,601.751,10121,0)
152 ;;=5398^3^1716
153 ;;^UTILITY(U,$J,601.751,10122,0)
154 ;;=5398^4^1717
155 ;;^UTILITY(U,$J,601.751,10123,0)
156 ;;=5398^5^1718
157 ;;^UTILITY(U,$J,601.751,10124,0)
158 ;;=5399^1^1719
159 ;;^UTILITY(U,$J,601.751,10125,0)
160 ;;=5399^2^1720
161 ;;^UTILITY(U,$J,601.751,10126,0)
162 ;;=5399^3^1721
163 ;;^UTILITY(U,$J,601.751,10127,0)
164 ;;=5399^4^1722
165 ;;^UTILITY(U,$J,601.751,10128,0)
166 ;;=5399^5^1723
167 ;;^UTILITY(U,$J,601.751,10129,0)
168 ;;=5399^6^1724
169 ;;^UTILITY(U,$J,601.751,10130,0)
170 ;;=5399^7^1725
171 ;;^UTILITY(U,$J,601.751,10131,0)
172 ;;=5399^8^1726
173 ;;^UTILITY(U,$J,601.751,10132,0)
174 ;;=5399^9^1727
175 ;;^UTILITY(U,$J,601.751,10133,0)
176 ;;=5399^10^1728
177 ;;^UTILITY(U,$J,601.751,10134,0)
178 ;;=5399^11^1729
179 ;;^UTILITY(U,$J,601.751,10135,0)
180 ;;=5399^12^1730
181 ;;^UTILITY(U,$J,601.751,10136,0)
182 ;;=5399^13^1731
183 ;;^UTILITY(U,$J,601.751,10137,0)
184 ;;=5399^14^1732
185 ;;^UTILITY(U,$J,601.751,10138,0)
186 ;;=5399^15^1733
187 ;;^UTILITY(U,$J,601.751,10139,0)
188 ;;=5399^16^743
189 ;;^UTILITY(U,$J,601.751,10140,0)
190 ;;=5399^17^1688
191 ;;^UTILITY(U,$J,601.751,10141,0)
192 ;;=5400^1^267
193 ;;^UTILITY(U,$J,601.751,10142,0)
194 ;;=5400^2^686
195 ;;^UTILITY(U,$J,601.751,10143,0)
196 ;;=5400^3^1734
197 ;;^UTILITY(U,$J,601.751,10144,0)
198 ;;=5400^4^265
199 ;;^UTILITY(U,$J,601.751,10145,0)
200 ;;=5400^5^212
201 ;;^UTILITY(U,$J,601.751,10146,0)
202 ;;=5401^1^1735
203 ;;^UTILITY(U,$J,601.751,10147,0)
204 ;;=5401^2^1736
205 ;;^UTILITY(U,$J,601.751,10148,0)
206 ;;=5401^3^1737
207 ;;^UTILITY(U,$J,601.751,10149,0)
208 ;;=5401^4^1738
209 ;;^UTILITY(U,$J,601.751,10150,0)
210 ;;=5401^5^1739
211 ;;^UTILITY(U,$J,601.751,10151,0)
212 ;;=5401^6^1740
213 ;;^UTILITY(U,$J,601.751,10152,0)
214 ;;=5401^7^1741
215 ;;^UTILITY(U,$J,601.751,10153,0)
216 ;;=5401^8^1742
217 ;;^UTILITY(U,$J,601.751,10154,0)
218 ;;=5401^9^1743
219 ;;^UTILITY(U,$J,601.751,10155,0)
220 ;;=5401^10^743
221 ;;^UTILITY(U,$J,601.751,10156,0)
222 ;;=5401^11^1688
223 ;;^UTILITY(U,$J,601.751,10157,0)
224 ;;=5402^1^1744
225 ;;^UTILITY(U,$J,601.751,10158,0)
226 ;;=5402^2^1745
227 ;;^UTILITY(U,$J,601.751,10159,0)
228 ;;=5402^3^1746
229 ;;^UTILITY(U,$J,601.751,10160,0)
230 ;;=5402^4^1747
231 ;;^UTILITY(U,$J,601.751,10161,0)
232 ;;=5402^5^1748
233 ;;^UTILITY(U,$J,601.751,10162,0)
234 ;;=5402^6^1749
235 ;;^UTILITY(U,$J,601.751,10163,0)
236 ;;=5402^7^1750
237 ;;^UTILITY(U,$J,601.751,10164,0)
238 ;;=5402^8^1751
239 ;;^UTILITY(U,$J,601.751,10165,0)
240 ;;=5402^9^1752
241 ;;^UTILITY(U,$J,601.751,10166,0)
242 ;;=5402^10^1753
243 ;;^UTILITY(U,$J,601.751,10167,0)
244 ;;=5402^11^1677
245 ;;^UTILITY(U,$J,601.751,10168,0)
246 ;;=5402^12^1754
247 ;;^UTILITY(U,$J,601.751,10169,0)
248 ;;=5402^13^1755
249 ;;^UTILITY(U,$J,601.751,10170,0)
250 ;;=5402^14^1756
251 ;;^UTILITY(U,$J,601.751,10171,0)
252 ;;=5402^15^1757
253 ;;^UTILITY(U,$J,601.751,10172,0)
254 ;;=5402^16^1758
255 ;;^UTILITY(U,$J,601.751,10173,0)
256 ;;=5402^17^1678
257 ;;^UTILITY(U,$J,601.751,10174,0)
258 ;;=5402^18^1759
259 ;;^UTILITY(U,$J,601.751,10175,0)
260 ;;=5402^19^1760
261 ;;^UTILITY(U,$J,601.751,10176,0)
262 ;;=5402^20^743
263 ;;^UTILITY(U,$J,601.751,10177,0)
264 ;;=5402^21^1688
265 ;;^UTILITY(U,$J,601.751,10178,0)
266 ;;=5403^1^1761
267 ;;^UTILITY(U,$J,601.751,10179,0)
268 ;;=5403^2^1762
269 ;;^UTILITY(U,$J,601.751,10180,0)
270 ;;=5403^3^1525
271 ;;^UTILITY(U,$J,601.751,10181,0)
272 ;;=5403^4^1763
273 ;;^UTILITY(U,$J,601.751,10182,0)
274 ;;=5403^5^1720
275 ;;^UTILITY(U,$J,601.751,10183,0)
276 ;;=5403^6^1764
277 ;;^UTILITY(U,$J,601.751,10184,0)
278 ;;=5403^7^1765
279 ;;^UTILITY(U,$J,601.751,10185,0)
280 ;;=5403^8^1766
281 ;;^UTILITY(U,$J,601.751,10186,0)
282 ;;=5403^9^1767
283 ;;^UTILITY(U,$J,601.751,10187,0)
284 ;;=5403^10^1768
285 ;;^UTILITY(U,$J,601.751,10188,0)
286 ;;=5403^11^1769
287 ;;^UTILITY(U,$J,601.751,10189,0)
288 ;;=5403^12^1770
289 ;;^UTILITY(U,$J,601.751,10190,0)
290 ;;=5403^13^1771
291 ;;^UTILITY(U,$J,601.751,10191,0)
292 ;;=5404^1^1761
293 ;;^UTILITY(U,$J,601.751,10192,0)
294 ;;=5404^2^1762
295 ;;^UTILITY(U,$J,601.751,10193,0)
296 ;;=5404^3^1525
297 ;;^UTILITY(U,$J,601.751,10194,0)
298 ;;=5404^4^1763
299 ;;^UTILITY(U,$J,601.751,10195,0)
300 ;;=5404^5^1720
301 ;;^UTILITY(U,$J,601.751,10196,0)
302 ;;=5404^6^1764
303 ;;^UTILITY(U,$J,601.751,10197,0)
304 ;;=5404^7^1765
305 ;;^UTILITY(U,$J,601.751,10198,0)
306 ;;=5404^8^1766
307 ;;^UTILITY(U,$J,601.751,10199,0)
308 ;;=5404^9^1767
309 ;;^UTILITY(U,$J,601.751,10200,0)
310 ;;=5404^10^1768
311 ;;^UTILITY(U,$J,601.751,10201,0)
312 ;;=5404^11^1769
313 ;;^UTILITY(U,$J,601.751,10202,0)
314 ;;=5404^12^1770
315 ;;^UTILITY(U,$J,601.751,10203,0)
316 ;;=5404^13^1771
317 ;;^UTILITY(U,$J,601.751,10204,0)
318 ;;=5405^1^1052
319 ;;^UTILITY(U,$J,601.751,10205,0)
320 ;;=5405^2^1772
321 ;;^UTILITY(U,$J,601.751,10206,0)
322 ;;=5405^3^1773
323 ;;^UTILITY(U,$J,601.751,10207,0)
324 ;;=5405^4^1774
325 ;;^UTILITY(U,$J,601.751,10208,0)
326 ;;=5405^5^1775
327 ;;^UTILITY(U,$J,601.751,10209,0)
328 ;;=5406^1^1776
329 ;;^UTILITY(U,$J,601.751,10210,0)
330 ;;=5406^2^855
331 ;;^UTILITY(U,$J,601.751,10211,0)
332 ;;=5406^3^1777
333 ;;^UTILITY(U,$J,601.751,10212,0)
334 ;;=5406^4^1778
335 ;;^UTILITY(U,$J,601.751,10213,0)
336 ;;=5406^5^1779
337 ;;^UTILITY(U,$J,601.751,10214,0)
338 ;;=5407^1^1780
339 ;;^UTILITY(U,$J,601.751,10215,0)
340 ;;=5407^2^1781
341 ;;^UTILITY(U,$J,601.751,10216,0)
342 ;;=5407^3^1782
343 ;;^UTILITY(U,$J,601.751,10217,0)
344 ;;=5408^1^1783
345 ;;^UTILITY(U,$J,601.751,10218,0)
346 ;;=5408^2^1784
347 ;;^UTILITY(U,$J,601.751,10219,0)
348 ;;=5408^3^1785
349 ;;^UTILITY(U,$J,601.751,10220,0)
350 ;;=5409^1^1786
351 ;;^UTILITY(U,$J,601.751,10221,0)
352 ;;=5409^2^1787
353 ;;^UTILITY(U,$J,601.751,10222,0)
354 ;;=5409^3^1788
355 ;;^UTILITY(U,$J,601.751,10223,0)
356 ;;=5410^1^1789
357 ;;^UTILITY(U,$J,601.751,10224,0)
358 ;;=5410^2^1790
Note: See TracBrowser for help on using the repository browser.