source: WorldVistAEHR/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YTQQI00A.m@ 814

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

initial load of WorldVistAEHR

File size: 8.9 KB
RevLine 
[613]1YTQQI00A ;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,1531,0)
6 ;;=758^4^1229
7 ;;^UTILITY(U,$J,601.751,1532,0)
8 ;;=759^1^1235
9 ;;^UTILITY(U,$J,601.751,1533,0)
10 ;;=759^2^1204
11 ;;^UTILITY(U,$J,601.751,1534,0)
12 ;;=759^3^1205
13 ;;^UTILITY(U,$J,601.751,1535,0)
14 ;;=759^4^1236
15 ;;^UTILITY(U,$J,601.751,1536,0)
16 ;;=760^1^1237
17 ;;^UTILITY(U,$J,601.751,1537,0)
18 ;;=760^2^1238
19 ;;^UTILITY(U,$J,601.751,1538,0)
20 ;;=760^3^1239
21 ;;^UTILITY(U,$J,601.751,1539,0)
22 ;;=760^4^1240
23 ;;^UTILITY(U,$J,601.751,1540,0)
24 ;;=761^1^1241
25 ;;^UTILITY(U,$J,601.751,1541,0)
26 ;;=761^2^1242
27 ;;^UTILITY(U,$J,601.751,1542,0)
28 ;;=761^3^1243
29 ;;^UTILITY(U,$J,601.751,1543,0)
30 ;;=762^1^1244
31 ;;^UTILITY(U,$J,601.751,1544,0)
32 ;;=762^2^1245
33 ;;^UTILITY(U,$J,601.751,1545,0)
34 ;;=762^3^1246
35 ;;^UTILITY(U,$J,601.751,1546,0)
36 ;;=762^4^1247
37 ;;^UTILITY(U,$J,601.751,1547,0)
38 ;;=3916^2^1378
39 ;;^UTILITY(U,$J,601.751,1548,0)
40 ;;=3916^3^1379
41 ;;^UTILITY(U,$J,601.751,1549,0)
42 ;;=6228^1^1488
43 ;;^UTILITY(U,$J,601.751,1550,0)
44 ;;=6228^2^1489
45 ;;^UTILITY(U,$J,601.751,1551,0)
46 ;;=6228^3^1490
47 ;;^UTILITY(U,$J,601.751,1552,0)
48 ;;=6228^4^1491
49 ;;^UTILITY(U,$J,601.751,1553,0)
50 ;;=6229^1^237
51 ;;^UTILITY(U,$J,601.751,1554,0)
52 ;;=6229^2^1478
53 ;;^UTILITY(U,$J,601.751,1555,0)
54 ;;=765^1^1250
55 ;;^UTILITY(U,$J,601.751,1556,0)
56 ;;=765^2^1186
57 ;;^UTILITY(U,$J,601.751,1557,0)
58 ;;=765^3^1187
59 ;;^UTILITY(U,$J,601.751,1558,0)
60 ;;=6229^3^1479
61 ;;^UTILITY(U,$J,601.751,1559,0)
62 ;;=6229^4^1480
63 ;;^UTILITY(U,$J,601.751,1560,0)
64 ;;=6229^5^1481
65 ;;^UTILITY(U,$J,601.751,1561,0)
66 ;;=6229^6^1482
67 ;;^UTILITY(U,$J,601.751,1562,0)
68 ;;=767^1^1177
69 ;;^UTILITY(U,$J,601.751,1563,0)
70 ;;=767^2^100971
71 ;;^UTILITY(U,$J,601.751,1564,0)
72 ;;=6230^1^1488
73 ;;^UTILITY(U,$J,601.751,1565,0)
74 ;;=6230^2^1489
75 ;;^UTILITY(U,$J,601.751,1566,0)
76 ;;=769^1^100986
77 ;;^UTILITY(U,$J,601.751,1567,0)
78 ;;=769^2^101059
79 ;;^UTILITY(U,$J,601.751,1568,0)
80 ;;=770^1^100988
81 ;;^UTILITY(U,$J,601.751,1569,0)
82 ;;=770^2^101029
83 ;;^UTILITY(U,$J,601.751,1570,0)
84 ;;=771^1^100805
85 ;;^UTILITY(U,$J,601.751,1571,0)
86 ;;=771^2^1254
87 ;;^UTILITY(U,$J,601.751,1572,0)
88 ;;=772^1^100992
89 ;;^UTILITY(U,$J,601.751,1573,0)
90 ;;=772^2^1255
91 ;;^UTILITY(U,$J,601.751,1574,0)
92 ;;=773^1^101000
93 ;;^UTILITY(U,$J,601.751,1575,0)
94 ;;=773^2^1256
95 ;;^UTILITY(U,$J,601.751,1576,0)
96 ;;=774^1^101003
97 ;;^UTILITY(U,$J,601.751,1577,0)
98 ;;=774^2^1257
99 ;;^UTILITY(U,$J,601.751,1578,0)
100 ;;=775^1^101006
101 ;;^UTILITY(U,$J,601.751,1579,0)
102 ;;=775^2^1258
103 ;;^UTILITY(U,$J,601.751,1580,0)
104 ;;=776^1^101015
105 ;;^UTILITY(U,$J,601.751,1581,0)
106 ;;=776^2^1259
107 ;;^UTILITY(U,$J,601.751,1582,0)
108 ;;=6230^3^1490
109 ;;^UTILITY(U,$J,601.751,1583,0)
110 ;;=6230^4^1491
111 ;;^UTILITY(U,$J,601.751,1584,0)
112 ;;=6231^1^237
113 ;;^UTILITY(U,$J,601.751,1585,0)
114 ;;=6231^2^1478
115 ;;^UTILITY(U,$J,601.751,1586,0)
116 ;;=6231^3^1479
117 ;;^UTILITY(U,$J,601.751,1587,0)
118 ;;=6231^4^1480
119 ;;^UTILITY(U,$J,601.751,1588,0)
120 ;;=6231^5^1481
121 ;;^UTILITY(U,$J,601.751,1589,0)
122 ;;=6231^6^1482
123 ;;^UTILITY(U,$J,601.751,1590,0)
124 ;;=6232^1^1488
125 ;;^UTILITY(U,$J,601.751,1591,0)
126 ;;=6232^2^1489
127 ;;^UTILITY(U,$J,601.751,1592,0)
128 ;;=6232^3^1490
129 ;;^UTILITY(U,$J,601.751,1593,0)
130 ;;=6232^4^1491
131 ;;^UTILITY(U,$J,601.751,1594,0)
132 ;;=6233^1^237
133 ;;^UTILITY(U,$J,601.751,1595,0)
134 ;;=6233^2^1478
135 ;;^UTILITY(U,$J,601.751,1596,0)
136 ;;=6233^3^1479
137 ;;^UTILITY(U,$J,601.751,1597,0)
138 ;;=6233^4^1480
139 ;;^UTILITY(U,$J,601.751,1598,0)
140 ;;=6233^5^1481
141 ;;^UTILITY(U,$J,601.751,1599,0)
142 ;;=6233^6^1482
143 ;;^UTILITY(U,$J,601.751,1600,0)
144 ;;=6234^1^1488
145 ;;^UTILITY(U,$J,601.751,1601,0)
146 ;;=6234^2^1489
147 ;;^UTILITY(U,$J,601.751,1602,0)
148 ;;=6234^3^1490
149 ;;^UTILITY(U,$J,601.751,1603,0)
150 ;;=6234^4^1491
151 ;;^UTILITY(U,$J,601.751,1604,0)
152 ;;=6235^1^1492
153 ;;^UTILITY(U,$J,601.751,1605,0)
154 ;;=6235^2^1493
155 ;;^UTILITY(U,$J,601.751,1606,0)
156 ;;=6235^3^1664
157 ;;^UTILITY(U,$J,601.751,1607,0)
158 ;;=6235^4^1495
159 ;;^UTILITY(U,$J,601.751,1608,0)
160 ;;=6235^5^1496
161 ;;^UTILITY(U,$J,601.751,1609,0)
162 ;;=6235^6^743
163 ;;^UTILITY(U,$J,601.751,1610,0)
164 ;;=6235^7^100894
165 ;;^UTILITY(U,$J,601.751,1611,0)
166 ;;=6236^1^237
167 ;;^UTILITY(U,$J,601.751,1612,0)
168 ;;=6236^2^1478
169 ;;^UTILITY(U,$J,601.751,1613,0)
170 ;;=6236^3^1479
171 ;;^UTILITY(U,$J,601.751,1614,0)
172 ;;=6236^4^1480
173 ;;^UTILITY(U,$J,601.751,1615,0)
174 ;;=6236^5^1481
175 ;;^UTILITY(U,$J,601.751,1616,0)
176 ;;=6236^6^1482
177 ;;^UTILITY(U,$J,601.751,1617,0)
178 ;;=6237^1^1820
179 ;;^UTILITY(U,$J,601.751,1618,0)
180 ;;=6237^2^1821
181 ;;^UTILITY(U,$J,601.751,1619,0)
182 ;;=6237^3^1822
183 ;;^UTILITY(U,$J,601.751,1620,0)
184 ;;=6237^4^1823
185 ;;^UTILITY(U,$J,601.751,1621,0)
186 ;;=6237^5^1824
187 ;;^UTILITY(U,$J,601.751,1622,0)
188 ;;=6237^6^1825
189 ;;^UTILITY(U,$J,601.751,1623,0)
190 ;;=6237^7^1826
191 ;;^UTILITY(U,$J,601.751,1624,0)
192 ;;=6238^1^237
193 ;;^UTILITY(U,$J,601.751,1625,0)
194 ;;=6238^2^1478
195 ;;^UTILITY(U,$J,601.751,1626,0)
196 ;;=6238^3^1479
197 ;;^UTILITY(U,$J,601.751,1627,0)
198 ;;=6238^4^1480
199 ;;^UTILITY(U,$J,601.751,1628,0)
200 ;;=6238^5^1481
201 ;;^UTILITY(U,$J,601.751,1629,0)
202 ;;=6238^6^1482
203 ;;^UTILITY(U,$J,601.751,1630,0)
204 ;;=6239^1^1827
205 ;;^UTILITY(U,$J,601.751,1631,0)
206 ;;=6239^2^1503
207 ;;^UTILITY(U,$J,601.751,1632,0)
208 ;;=6239^3^1828
209 ;;^UTILITY(U,$J,601.751,1633,0)
210 ;;=6239^4^1825
211 ;;^UTILITY(U,$J,601.751,1634,0)
212 ;;=6239^5^1829
213 ;;^UTILITY(U,$J,601.751,1635,0)
214 ;;=6239^6^1830
215 ;;^UTILITY(U,$J,601.751,1636,0)
216 ;;=6239^7^1831
217 ;;^UTILITY(U,$J,601.751,1637,0)
218 ;;=6240^1^237
219 ;;^UTILITY(U,$J,601.751,1638,0)
220 ;;=6240^2^1478
221 ;;^UTILITY(U,$J,601.751,1639,0)
222 ;;=6240^3^1479
223 ;;^UTILITY(U,$J,601.751,1640,0)
224 ;;=6240^4^1480
225 ;;^UTILITY(U,$J,601.751,1641,0)
226 ;;=6240^5^1481
227 ;;^UTILITY(U,$J,601.751,1642,0)
228 ;;=6240^6^1482
229 ;;^UTILITY(U,$J,601.751,1643,0)
230 ;;=6241^1^1832
231 ;;^UTILITY(U,$J,601.751,1644,0)
232 ;;=6241^2^1503
233 ;;^UTILITY(U,$J,601.751,1645,0)
234 ;;=6241^3^1828
235 ;;^UTILITY(U,$J,601.751,1646,0)
236 ;;=6241^4^1825
237 ;;^UTILITY(U,$J,601.751,1647,0)
238 ;;=6241^5^1829
239 ;;^UTILITY(U,$J,601.751,1648,0)
240 ;;=6241^6^1830
241 ;;^UTILITY(U,$J,601.751,1649,0)
242 ;;=6241^7^1831
243 ;;^UTILITY(U,$J,601.751,1650,0)
244 ;;=6242^1^237
245 ;;^UTILITY(U,$J,601.751,1651,0)
246 ;;=6242^2^241
247 ;;^UTILITY(U,$J,601.751,1652,0)
248 ;;=6243^1^237
249 ;;^UTILITY(U,$J,601.751,1653,0)
250 ;;=6243^2^241
251 ;;^UTILITY(U,$J,601.751,1654,0)
252 ;;=6244^1^237
253 ;;^UTILITY(U,$J,601.751,1655,0)
254 ;;=6244^2^1508
255 ;;^UTILITY(U,$J,601.751,1656,0)
256 ;;=6244^3^1509
257 ;;^UTILITY(U,$J,601.751,1657,0)
258 ;;=6245^1^237
259 ;;^UTILITY(U,$J,601.751,1658,0)
260 ;;=6245^2^1510
261 ;;^UTILITY(U,$J,601.751,1659,0)
262 ;;=6245^3^1511
263 ;;^UTILITY(U,$J,601.751,1660,0)
264 ;;=6246^1^237
265 ;;^UTILITY(U,$J,601.751,1661,0)
266 ;;=6246^2^1510
267 ;;^UTILITY(U,$J,601.751,1662,0)
268 ;;=6246^3^1511
269 ;;^UTILITY(U,$J,601.751,1663,0)
270 ;;=6247^1^237
271 ;;^UTILITY(U,$J,601.751,1664,0)
272 ;;=6247^2^241
273 ;;^UTILITY(U,$J,601.751,1665,0)
274 ;;=6247^3^1512
275 ;;^UTILITY(U,$J,601.751,1666,0)
276 ;;=6247^4^1513
277 ;;^UTILITY(U,$J,601.751,1667,0)
278 ;;=6248^1^237
279 ;;^UTILITY(U,$J,601.751,1668,0)
280 ;;=6248^2^241
281 ;;^UTILITY(U,$J,601.751,1669,0)
282 ;;=6248^3^1512
283 ;;^UTILITY(U,$J,601.751,1670,0)
284 ;;=6248^4^1513
285 ;;^UTILITY(U,$J,601.751,1671,0)
286 ;;=6249^1^237
287 ;;^UTILITY(U,$J,601.751,1672,0)
288 ;;=6249^2^241
289 ;;^UTILITY(U,$J,601.751,1673,0)
290 ;;=6250^1^1
291 ;;^UTILITY(U,$J,601.751,1674,0)
292 ;;=6250^2^3
293 ;;^UTILITY(U,$J,601.751,1675,0)
294 ;;=6250^3^4
295 ;;^UTILITY(U,$J,601.751,1676,0)
296 ;;=6250^4^5
297 ;;^UTILITY(U,$J,601.751,1677,0)
298 ;;=6250^5^1457
299 ;;^UTILITY(U,$J,601.751,1678,0)
300 ;;=6251^1^1
301 ;;^UTILITY(U,$J,601.751,1679,0)
302 ;;=6251^2^3
303 ;;^UTILITY(U,$J,601.751,1680,0)
304 ;;=6251^3^4
305 ;;^UTILITY(U,$J,601.751,1681,0)
306 ;;=6251^4^5
307 ;;^UTILITY(U,$J,601.751,1682,0)
308 ;;=6251^5^1457
309 ;;^UTILITY(U,$J,601.751,1683,0)
310 ;;=6252^1^1
311 ;;^UTILITY(U,$J,601.751,1684,0)
312 ;;=6252^2^3
313 ;;^UTILITY(U,$J,601.751,1685,0)
314 ;;=6252^3^4
315 ;;^UTILITY(U,$J,601.751,1686,0)
316 ;;=6252^4^5
317 ;;^UTILITY(U,$J,601.751,1687,0)
318 ;;=6252^5^1457
319 ;;^UTILITY(U,$J,601.751,1688,0)
320 ;;=6253^1^1
321 ;;^UTILITY(U,$J,601.751,1689,0)
322 ;;=6253^2^3
323 ;;^UTILITY(U,$J,601.751,1690,0)
324 ;;=6253^3^4
325 ;;^UTILITY(U,$J,601.751,1691,0)
326 ;;=6253^4^5
327 ;;^UTILITY(U,$J,601.751,1692,0)
328 ;;=6253^5^1457
329 ;;^UTILITY(U,$J,601.751,1693,0)
330 ;;=6254^1^1
331 ;;^UTILITY(U,$J,601.751,1694,0)
332 ;;=6254^2^3
333 ;;^UTILITY(U,$J,601.751,1695,0)
334 ;;=6254^3^4
335 ;;^UTILITY(U,$J,601.751,1696,0)
336 ;;=6254^4^5
337 ;;^UTILITY(U,$J,601.751,1697,0)
338 ;;=6254^5^1457
339 ;;^UTILITY(U,$J,601.751,1698,0)
340 ;;=6255^1^1
341 ;;^UTILITY(U,$J,601.751,1699,0)
342 ;;=6255^2^3
343 ;;^UTILITY(U,$J,601.751,1700,0)
344 ;;=6255^3^4
345 ;;^UTILITY(U,$J,601.751,1701,0)
346 ;;=6255^4^5
347 ;;^UTILITY(U,$J,601.751,1702,0)
348 ;;=6255^5^1457
349 ;;^UTILITY(U,$J,601.751,1703,0)
350 ;;=6256^1^1
351 ;;^UTILITY(U,$J,601.751,1704,0)
352 ;;=6256^2^3
353 ;;^UTILITY(U,$J,601.751,1705,0)
354 ;;=6256^3^4
355 ;;^UTILITY(U,$J,601.751,1706,0)
356 ;;=6256^4^5
357 ;;^UTILITY(U,$J,601.751,1707,0)
358 ;;=6256^5^1457
359 ;;^UTILITY(U,$J,601.751,1708,0)
360 ;;=6257^1^1
361 ;;^UTILITY(U,$J,601.751,1709,0)
362 ;;=6257^2^3
363 ;;^UTILITY(U,$J,601.751,1710,0)
364 ;;=6257^3^4
365 ;;^UTILITY(U,$J,601.751,1711,0)
366 ;;=6257^4^5
367 ;;^UTILITY(U,$J,601.751,1712,0)
368 ;;=6257^5^1457
369 ;;^UTILITY(U,$J,601.751,1713,0)
370 ;;=6258^1^1
Note: See TracBrowser for help on using the repository browser.