1 | YTQQI00A ;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
|
---|
4 | Q 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
|
---|