source: WorldVistAEHR/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YTQQI00B.m@ 1261

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

initial load of WorldVistAEHR
File size: 8.9 KB
RevLine 
[613]1YTQQI00B ;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,1714,0)
6 ;;=6258^2^3
7 ;;^UTILITY(U,$J,601.751,1715,0)
8 ;;=6258^3^4
9 ;;^UTILITY(U,$J,601.751,1716,0)
10 ;;=6258^4^5
11 ;;^UTILITY(U,$J,601.751,1717,0)
12 ;;=6258^5^1457
13 ;;^UTILITY(U,$J,601.751,1718,0)
14 ;;=6259^1^1
15 ;;^UTILITY(U,$J,601.751,1719,0)
16 ;;=6259^2^3
17 ;;^UTILITY(U,$J,601.751,1720,0)
18 ;;=6259^3^4
19 ;;^UTILITY(U,$J,601.751,1721,0)
20 ;;=6259^4^5
21 ;;^UTILITY(U,$J,601.751,1722,0)
22 ;;=6259^5^1457
23 ;;^UTILITY(U,$J,601.751,1723,0)
24 ;;=6260^1^1
25 ;;^UTILITY(U,$J,601.751,1724,0)
26 ;;=6260^2^3
27 ;;^UTILITY(U,$J,601.751,1725,0)
28 ;;=6260^3^4
29 ;;^UTILITY(U,$J,601.751,1726,0)
30 ;;=6260^4^5
31 ;;^UTILITY(U,$J,601.751,1727,0)
32 ;;=6260^5^1457
33 ;;^UTILITY(U,$J,601.751,1728,0)
34 ;;=6261^1^1
35 ;;^UTILITY(U,$J,601.751,1729,0)
36 ;;=6261^2^3
37 ;;^UTILITY(U,$J,601.751,1730,0)
38 ;;=6261^3^4
39 ;;^UTILITY(U,$J,601.751,1731,0)
40 ;;=6261^4^5
41 ;;^UTILITY(U,$J,601.751,1732,0)
42 ;;=6261^5^1457
43 ;;^UTILITY(U,$J,601.751,1733,0)
44 ;;=6262^1^1
45 ;;^UTILITY(U,$J,601.751,1734,0)
46 ;;=6262^2^3
47 ;;^UTILITY(U,$J,601.751,1735,0)
48 ;;=6262^3^4
49 ;;^UTILITY(U,$J,601.751,1736,0)
50 ;;=6262^4^5
51 ;;^UTILITY(U,$J,601.751,1737,0)
52 ;;=6262^5^1457
53 ;;^UTILITY(U,$J,601.751,1738,0)
54 ;;=6263^1^1
55 ;;^UTILITY(U,$J,601.751,1739,0)
56 ;;=6263^2^3
57 ;;^UTILITY(U,$J,601.751,1740,0)
58 ;;=6263^3^4
59 ;;^UTILITY(U,$J,601.751,1741,0)
60 ;;=6263^4^5
61 ;;^UTILITY(U,$J,601.751,1742,0)
62 ;;=6263^5^1457
63 ;;^UTILITY(U,$J,601.751,1743,0)
64 ;;=6264^1^1
65 ;;^UTILITY(U,$J,601.751,1744,0)
66 ;;=6264^2^3
67 ;;^UTILITY(U,$J,601.751,1745,0)
68 ;;=6264^3^4
69 ;;^UTILITY(U,$J,601.751,1746,0)
70 ;;=6264^4^5
71 ;;^UTILITY(U,$J,601.751,1747,0)
72 ;;=6264^5^1457
73 ;;^UTILITY(U,$J,601.751,1748,0)
74 ;;=6265^1^1
75 ;;^UTILITY(U,$J,601.751,1749,0)
76 ;;=6265^2^3
77 ;;^UTILITY(U,$J,601.751,1750,0)
78 ;;=6265^3^4
79 ;;^UTILITY(U,$J,601.751,1751,0)
80 ;;=6265^4^5
81 ;;^UTILITY(U,$J,601.751,1752,0)
82 ;;=6265^5^1457
83 ;;^UTILITY(U,$J,601.751,1753,0)
84 ;;=6266^1^1
85 ;;^UTILITY(U,$J,601.751,1754,0)
86 ;;=6266^2^3
87 ;;^UTILITY(U,$J,601.751,1755,0)
88 ;;=6266^3^4
89 ;;^UTILITY(U,$J,601.751,1756,0)
90 ;;=6266^4^5
91 ;;^UTILITY(U,$J,601.751,1757,0)
92 ;;=6266^5^1457
93 ;;^UTILITY(U,$J,601.751,1758,0)
94 ;;=6267^1^1
95 ;;^UTILITY(U,$J,601.751,1759,0)
96 ;;=6267^2^3
97 ;;^UTILITY(U,$J,601.751,1760,0)
98 ;;=6267^3^4
99 ;;^UTILITY(U,$J,601.751,1761,0)
100 ;;=6267^4^5
101 ;;^UTILITY(U,$J,601.751,1762,0)
102 ;;=6267^5^1457
103 ;;^UTILITY(U,$J,601.751,1763,0)
104 ;;=6268^1^1
105 ;;^UTILITY(U,$J,601.751,1764,0)
106 ;;=6268^2^3
107 ;;^UTILITY(U,$J,601.751,1765,0)
108 ;;=6268^3^4
109 ;;^UTILITY(U,$J,601.751,1766,0)
110 ;;=6268^4^5
111 ;;^UTILITY(U,$J,601.751,1767,0)
112 ;;=6268^5^1457
113 ;;^UTILITY(U,$J,601.751,1768,0)
114 ;;=6269^1^1
115 ;;^UTILITY(U,$J,601.751,1769,0)
116 ;;=6269^2^3
117 ;;^UTILITY(U,$J,601.751,1770,0)
118 ;;=6269^3^4
119 ;;^UTILITY(U,$J,601.751,1771,0)
120 ;;=6269^4^5
121 ;;^UTILITY(U,$J,601.751,1772,0)
122 ;;=6269^5^1457
123 ;;^UTILITY(U,$J,601.751,1773,0)
124 ;;=6270^1^1
125 ;;^UTILITY(U,$J,601.751,1774,0)
126 ;;=6270^2^3
127 ;;^UTILITY(U,$J,601.751,1775,0)
128 ;;=6270^3^4
129 ;;^UTILITY(U,$J,601.751,1776,0)
130 ;;=6270^4^5
131 ;;^UTILITY(U,$J,601.751,1777,0)
132 ;;=6270^5^1457
133 ;;^UTILITY(U,$J,601.751,1778,0)
134 ;;=6271^1^1
135 ;;^UTILITY(U,$J,601.751,1779,0)
136 ;;=6271^2^3
137 ;;^UTILITY(U,$J,601.751,1780,0)
138 ;;=6271^3^4
139 ;;^UTILITY(U,$J,601.751,1781,0)
140 ;;=6271^4^5
141 ;;^UTILITY(U,$J,601.751,1782,0)
142 ;;=6271^5^1457
143 ;;^UTILITY(U,$J,601.751,1783,0)
144 ;;=6272^1^1
145 ;;^UTILITY(U,$J,601.751,1784,0)
146 ;;=6272^2^3
147 ;;^UTILITY(U,$J,601.751,1785,0)
148 ;;=6272^3^4
149 ;;^UTILITY(U,$J,601.751,1786,0)
150 ;;=6272^4^5
151 ;;^UTILITY(U,$J,601.751,1787,0)
152 ;;=6272^5^1457
153 ;;^UTILITY(U,$J,601.751,1788,0)
154 ;;=6273^1^237
155 ;;^UTILITY(U,$J,601.751,1789,0)
156 ;;=6273^2^241
157 ;;^UTILITY(U,$J,601.751,1790,0)
158 ;;=6274^1^1514
159 ;;^UTILITY(U,$J,601.751,1791,0)
160 ;;=6274^2^1515
161 ;;^UTILITY(U,$J,601.751,1792,0)
162 ;;=6274^3^1516
163 ;;^UTILITY(U,$J,601.751,1793,0)
164 ;;=6274^4^1517
165 ;;^UTILITY(U,$J,601.751,1794,0)
166 ;;=6274^5^1518
167 ;;^UTILITY(U,$J,601.751,1795,0)
168 ;;=6274^6^1519
169 ;;^UTILITY(U,$J,601.751,1796,0)
170 ;;=6274^7^1520
171 ;;^UTILITY(U,$J,601.751,1797,0)
172 ;;=6274^8^743
173 ;;^UTILITY(U,$J,601.751,1798,0)
174 ;;=6275^1^1
175 ;;^UTILITY(U,$J,601.751,1799,0)
176 ;;=6275^2^3
177 ;;^UTILITY(U,$J,601.751,1800,0)
178 ;;=6275^3^4
179 ;;^UTILITY(U,$J,601.751,1801,0)
180 ;;=6275^4^5
181 ;;^UTILITY(U,$J,601.751,1802,0)
182 ;;=6275^5^1457
183 ;;^UTILITY(U,$J,601.751,1803,0)
184 ;;=6276^1^1521
185 ;;^UTILITY(U,$J,601.751,1804,0)
186 ;;=6276^2^1522
187 ;;^UTILITY(U,$J,601.751,1805,0)
188 ;;=6276^3^1523
189 ;;^UTILITY(U,$J,601.751,1806,0)
190 ;;=6277^1^237
191 ;;^UTILITY(U,$J,601.751,1807,0)
192 ;;=6277^2^1513
193 ;;^UTILITY(U,$J,601.751,1808,0)
194 ;;=6277^3^1524
195 ;;^UTILITY(U,$J,601.751,1809,0)
196 ;;=6277^4^241
197 ;;^UTILITY(U,$J,601.751,1810,0)
198 ;;=6278^1^1525
199 ;;^UTILITY(U,$J,601.751,1811,0)
200 ;;=6278^2^1526
201 ;;^UTILITY(U,$J,601.751,1812,0)
202 ;;=6278^3^1527
203 ;;^UTILITY(U,$J,601.751,1813,0)
204 ;;=6278^4^1528
205 ;;^UTILITY(U,$J,601.751,1814,0)
206 ;;=6278^5^1665
207 ;;^UTILITY(U,$J,601.751,1815,0)
208 ;;=6278^6^1530
209 ;;^UTILITY(U,$J,601.751,1816,0)
210 ;;=6278^7^1531
211 ;;^UTILITY(U,$J,601.751,1817,0)
212 ;;=6278^8^1532
213 ;;^UTILITY(U,$J,601.751,1818,0)
214 ;;=6279^1^237
215 ;;^UTILITY(U,$J,601.751,1819,0)
216 ;;=6279^2^241
217 ;;^UTILITY(U,$J,601.751,1820,0)
218 ;;=6280^1^1
219 ;;^UTILITY(U,$J,601.751,1821,0)
220 ;;=6280^2^1533
221 ;;^UTILITY(U,$J,601.751,1822,0)
222 ;;=6280^3^1534
223 ;;^UTILITY(U,$J,601.751,1823,0)
224 ;;=6280^4^1535
225 ;;^UTILITY(U,$J,601.751,1824,0)
226 ;;=6280^5^1536
227 ;;^UTILITY(U,$J,601.751,1825,0)
228 ;;=6280^6^1537
229 ;;^UTILITY(U,$J,601.751,1826,0)
230 ;;=6280^7^1538
231 ;;^UTILITY(U,$J,601.751,1827,0)
232 ;;=6280^8^1539
233 ;;^UTILITY(U,$J,601.751,1828,0)
234 ;;=6280^9^1540
235 ;;^UTILITY(U,$J,601.751,1829,0)
236 ;;=6281^1^237
237 ;;^UTILITY(U,$J,601.751,1830,0)
238 ;;=6281^2^241
239 ;;^UTILITY(U,$J,601.751,1831,0)
240 ;;=6281^3^1513
241 ;;^UTILITY(U,$J,601.751,1832,0)
242 ;;=6282^1^237
243 ;;^UTILITY(U,$J,601.751,1833,0)
244 ;;=6282^2^241
245 ;;^UTILITY(U,$J,601.751,1834,0)
246 ;;=6282^3^1512
247 ;;^UTILITY(U,$J,601.751,1835,0)
248 ;;=6283^1^1541
249 ;;^UTILITY(U,$J,601.751,1836,0)
250 ;;=6283^2^1542
251 ;;^UTILITY(U,$J,601.751,1837,0)
252 ;;=6283^3^1543
253 ;;^UTILITY(U,$J,601.751,1838,0)
254 ;;=6283^4^1544
255 ;;^UTILITY(U,$J,601.751,1839,0)
256 ;;=6284^1^237
257 ;;^UTILITY(U,$J,601.751,1840,0)
258 ;;=6284^2^241
259 ;;^UTILITY(U,$J,601.751,1841,0)
260 ;;=6285^1^1545
261 ;;^UTILITY(U,$J,601.751,1842,0)
262 ;;=6285^2^1546
263 ;;^UTILITY(U,$J,601.751,1843,0)
264 ;;=6285^3^1547
265 ;;^UTILITY(U,$J,601.751,1844,0)
266 ;;=6285^4^1548
267 ;;^UTILITY(U,$J,601.751,1845,0)
268 ;;=6285^5^1549
269 ;;^UTILITY(U,$J,601.751,1846,0)
270 ;;=6285^6^1550
271 ;;^UTILITY(U,$J,601.751,1847,0)
272 ;;=6285^7^1551
273 ;;^UTILITY(U,$J,601.751,1848,0)
274 ;;=6285^8^1552
275 ;;^UTILITY(U,$J,601.751,1849,0)
276 ;;=6285^9^1553
277 ;;^UTILITY(U,$J,601.751,1850,0)
278 ;;=6285^10^1554
279 ;;^UTILITY(U,$J,601.751,1851,0)
280 ;;=6285^11^1555
281 ;;^UTILITY(U,$J,601.751,1852,0)
282 ;;=6285^12^1556
283 ;;^UTILITY(U,$J,601.751,1853,0)
284 ;;=6285^13^1557
285 ;;^UTILITY(U,$J,601.751,1854,0)
286 ;;=6286^1^1562
287 ;;^UTILITY(U,$J,601.751,1855,0)
288 ;;=6286^2^1563
289 ;;^UTILITY(U,$J,601.751,1856,0)
290 ;;=6286^3^1564
291 ;;^UTILITY(U,$J,601.751,1857,0)
292 ;;=6286^4^1565
293 ;;^UTILITY(U,$J,601.751,1858,0)
294 ;;=6286^5^1566
295 ;;^UTILITY(U,$J,601.751,1859,0)
296 ;;=6286^6^1614
297 ;;^UTILITY(U,$J,601.751,1860,0)
298 ;;=6286^7^1567
299 ;;^UTILITY(U,$J,601.751,1861,0)
300 ;;=6286^8^1622
301 ;;^UTILITY(U,$J,601.751,1862,0)
302 ;;=6286^9^1568
303 ;;^UTILITY(U,$J,601.751,1863,0)
304 ;;=6286^10^1569
305 ;;^UTILITY(U,$J,601.751,1864,0)
306 ;;=6286^11^1570
307 ;;^UTILITY(U,$J,601.751,1865,0)
308 ;;=6286^12^1571
309 ;;^UTILITY(U,$J,601.751,1866,0)
310 ;;=6286^13^1819
311 ;;^UTILITY(U,$J,601.751,1867,0)
312 ;;=6286^14^1573
313 ;;^UTILITY(U,$J,601.751,1868,0)
314 ;;=6286^15^1574
315 ;;^UTILITY(U,$J,601.751,1869,0)
316 ;;=6286^16^1575
317 ;;^UTILITY(U,$J,601.751,1870,0)
318 ;;=6286^17^1576
319 ;;^UTILITY(U,$J,601.751,1871,0)
320 ;;=6286^18^1577
321 ;;^UTILITY(U,$J,601.751,1872,0)
322 ;;=6286^19^1653
323 ;;^UTILITY(U,$J,601.751,1873,0)
324 ;;=6286^20^1655
325 ;;^UTILITY(U,$J,601.751,1874,0)
326 ;;=6286^21^1659
327 ;;^UTILITY(U,$J,601.751,1875,0)
328 ;;=6287^1^237
329 ;;^UTILITY(U,$J,601.751,1876,0)
330 ;;=6287^2^241
331 ;;^UTILITY(U,$J,601.751,1877,0)
332 ;;=6288^1^1
333 ;;^UTILITY(U,$J,601.751,1878,0)
334 ;;=6288^2^1579
335 ;;^UTILITY(U,$J,601.751,1879,0)
336 ;;=6288^3^1580
337 ;;^UTILITY(U,$J,601.751,1880,0)
338 ;;=6288^4^743
339 ;;^UTILITY(U,$J,601.751,1881,0)
340 ;;=6289^1^237
341 ;;^UTILITY(U,$J,601.751,1882,0)
342 ;;=6289^2^241
343 ;;^UTILITY(U,$J,601.751,1883,0)
344 ;;=6290^1^237
345 ;;^UTILITY(U,$J,601.751,1884,0)
346 ;;=6290^2^241
347 ;;^UTILITY(U,$J,601.751,1885,0)
348 ;;=6291^1^237
349 ;;^UTILITY(U,$J,601.751,1886,0)
350 ;;=6291^2^241
351 ;;^UTILITY(U,$J,601.751,1887,0)
352 ;;=6292^1^1581
353 ;;^UTILITY(U,$J,601.751,1888,0)
354 ;;=6292^2^1582
355 ;;^UTILITY(U,$J,601.751,1889,0)
356 ;;=6292^3^1583
357 ;;^UTILITY(U,$J,601.751,1890,0)
358 ;;=6292^4^1584
359 ;;^UTILITY(U,$J,601.751,1891,0)
360 ;;=6292^5^1585
361 ;;^UTILITY(U,$J,601.751,1892,0)
362 ;;=6292^6^1525
363 ;;^UTILITY(U,$J,601.751,1893,0)
364 ;;=6292^7^1586
365 ;;^UTILITY(U,$J,601.751,1894,0)
366 ;;=6292^8^1587
367 ;;^UTILITY(U,$J,601.751,1895,0)
368 ;;=6292^9^1588
369 ;;^UTILITY(U,$J,601.751,1896,0)
370 ;;=6292^10^743
371 ;;^UTILITY(U,$J,601.751,1897,0)
372 ;;=47^2^1333
Note: See TracBrowser for help on using the repository browser.