1 | YTQQI009 ;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,1348,0)
|
---|
6 | ;;=506^1^1121
|
---|
7 | ;;^UTILITY(U,$J,601.751,1349,0)
|
---|
8 | ;;=506^2^1122
|
---|
9 | ;;^UTILITY(U,$J,601.751,1350,0)
|
---|
10 | ;;=507^1^1123
|
---|
11 | ;;^UTILITY(U,$J,601.751,1351,0)
|
---|
12 | ;;=507^2^1124
|
---|
13 | ;;^UTILITY(U,$J,601.751,1352,0)
|
---|
14 | ;;=508^1^794
|
---|
15 | ;;^UTILITY(U,$J,601.751,1353,0)
|
---|
16 | ;;=508^2^1125
|
---|
17 | ;;^UTILITY(U,$J,601.751,1354,0)
|
---|
18 | ;;=509^1^796
|
---|
19 | ;;^UTILITY(U,$J,601.751,1355,0)
|
---|
20 | ;;=509^2^1126
|
---|
21 | ;;^UTILITY(U,$J,601.751,1356,0)
|
---|
22 | ;;=510^1^798
|
---|
23 | ;;^UTILITY(U,$J,601.751,1357,0)
|
---|
24 | ;;=510^2^1127
|
---|
25 | ;;^UTILITY(U,$J,601.751,1358,0)
|
---|
26 | ;;=511^1^802
|
---|
27 | ;;^UTILITY(U,$J,601.751,1359,0)
|
---|
28 | ;;=511^2^1128
|
---|
29 | ;;^UTILITY(U,$J,601.751,1360,0)
|
---|
30 | ;;=512^1^1129
|
---|
31 | ;;^UTILITY(U,$J,601.751,1361,0)
|
---|
32 | ;;=512^2^1130
|
---|
33 | ;;^UTILITY(U,$J,601.751,1362,0)
|
---|
34 | ;;=513^1^1131
|
---|
35 | ;;^UTILITY(U,$J,601.751,1363,0)
|
---|
36 | ;;=513^2^1132
|
---|
37 | ;;^UTILITY(U,$J,601.751,1364,0)
|
---|
38 | ;;=514^1^808
|
---|
39 | ;;^UTILITY(U,$J,601.751,1365,0)
|
---|
40 | ;;=514^2^1133
|
---|
41 | ;;^UTILITY(U,$J,601.751,1366,0)
|
---|
42 | ;;=515^1^810
|
---|
43 | ;;^UTILITY(U,$J,601.751,1367,0)
|
---|
44 | ;;=515^2^1134
|
---|
45 | ;;^UTILITY(U,$J,601.751,1368,0)
|
---|
46 | ;;=516^1^1135
|
---|
47 | ;;^UTILITY(U,$J,601.751,1369,0)
|
---|
48 | ;;=516^2^1136
|
---|
49 | ;;^UTILITY(U,$J,601.751,1370,0)
|
---|
50 | ;;=517^1^1137
|
---|
51 | ;;^UTILITY(U,$J,601.751,1371,0)
|
---|
52 | ;;=517^2^1138
|
---|
53 | ;;^UTILITY(U,$J,601.751,1372,0)
|
---|
54 | ;;=518^1^1139
|
---|
55 | ;;^UTILITY(U,$J,601.751,1373,0)
|
---|
56 | ;;=518^2^1140
|
---|
57 | ;;^UTILITY(U,$J,601.751,1374,0)
|
---|
58 | ;;=519^1^1141
|
---|
59 | ;;^UTILITY(U,$J,601.751,1375,0)
|
---|
60 | ;;=519^2^821
|
---|
61 | ;;^UTILITY(U,$J,601.751,1376,0)
|
---|
62 | ;;=520^1^1142
|
---|
63 | ;;^UTILITY(U,$J,601.751,1377,0)
|
---|
64 | ;;=520^2^1143
|
---|
65 | ;;^UTILITY(U,$J,601.751,1378,0)
|
---|
66 | ;;=521^1^828
|
---|
67 | ;;^UTILITY(U,$J,601.751,1379,0)
|
---|
68 | ;;=521^2^1144
|
---|
69 | ;;^UTILITY(U,$J,601.751,1380,0)
|
---|
70 | ;;=723^5^995
|
---|
71 | ;;^UTILITY(U,$J,601.751,1381,0)
|
---|
72 | ;;=724^1^818
|
---|
73 | ;;^UTILITY(U,$J,601.751,1382,0)
|
---|
74 | ;;=523^1^1147
|
---|
75 | ;;^UTILITY(U,$J,601.751,1383,0)
|
---|
76 | ;;=523^2^833
|
---|
77 | ;;^UTILITY(U,$J,601.751,1384,0)
|
---|
78 | ;;=524^1^1148
|
---|
79 | ;;^UTILITY(U,$J,601.751,1385,0)
|
---|
80 | ;;=524^2^1149
|
---|
81 | ;;^UTILITY(U,$J,601.751,1386,0)
|
---|
82 | ;;=525^1^836
|
---|
83 | ;;^UTILITY(U,$J,601.751,1387,0)
|
---|
84 | ;;=525^2^1150
|
---|
85 | ;;^UTILITY(U,$J,601.751,1388,0)
|
---|
86 | ;;=526^1^840
|
---|
87 | ;;^UTILITY(U,$J,601.751,1389,0)
|
---|
88 | ;;=526^2^1151
|
---|
89 | ;;^UTILITY(U,$J,601.751,1390,0)
|
---|
90 | ;;=527^1^1152
|
---|
91 | ;;^UTILITY(U,$J,601.751,1391,0)
|
---|
92 | ;;=527^2^1153
|
---|
93 | ;;^UTILITY(U,$J,601.751,1392,0)
|
---|
94 | ;;=528^1^1145
|
---|
95 | ;;^UTILITY(U,$J,601.751,1393,0)
|
---|
96 | ;;=528^2^1154
|
---|
97 | ;;^UTILITY(U,$J,601.751,1394,0)
|
---|
98 | ;;=724^2^819
|
---|
99 | ;;^UTILITY(U,$J,601.751,1395,0)
|
---|
100 | ;;=725^1^826
|
---|
101 | ;;^UTILITY(U,$J,601.751,1396,0)
|
---|
102 | ;;=725^2^832
|
---|
103 | ;;^UTILITY(U,$J,601.751,1397,0)
|
---|
104 | ;;=726^1^739
|
---|
105 | ;;^UTILITY(U,$J,601.751,1398,0)
|
---|
106 | ;;=726^2^100052
|
---|
107 | ;;^UTILITY(U,$J,601.751,1399,0)
|
---|
108 | ;;=726^3^835
|
---|
109 | ;;^UTILITY(U,$J,601.751,1400,0)
|
---|
110 | ;;=726^4^100054
|
---|
111 | ;;^UTILITY(U,$J,601.751,1401,0)
|
---|
112 | ;;=726^5^742
|
---|
113 | ;;^UTILITY(U,$J,601.751,1402,0)
|
---|
114 | ;;=726^6^837
|
---|
115 | ;;^UTILITY(U,$J,601.751,1403,0)
|
---|
116 | ;;=727^1^842
|
---|
117 | ;;^UTILITY(U,$J,601.751,1404,0)
|
---|
118 | ;;=727^2^843
|
---|
119 | ;;^UTILITY(U,$J,601.751,1405,0)
|
---|
120 | ;;=727^3^743
|
---|
121 | ;;^UTILITY(U,$J,601.751,1406,0)
|
---|
122 | ;;=728^1^749
|
---|
123 | ;;^UTILITY(U,$J,601.751,1407,0)
|
---|
124 | ;;=728^2^750
|
---|
125 | ;;^UTILITY(U,$J,601.751,1408,0)
|
---|
126 | ;;=728^3^1146
|
---|
127 | ;;^UTILITY(U,$J,601.751,1409,0)
|
---|
128 | ;;=728^4^752
|
---|
129 | ;;^UTILITY(U,$J,601.751,1410,0)
|
---|
130 | ;;=728^5^1158
|
---|
131 | ;;^UTILITY(U,$J,601.751,1411,0)
|
---|
132 | ;;=729^1^744
|
---|
133 | ;;^UTILITY(U,$J,601.751,1412,0)
|
---|
134 | ;;=729^2^746
|
---|
135 | ;;^UTILITY(U,$J,601.751,1413,0)
|
---|
136 | ;;=729^3^747
|
---|
137 | ;;^UTILITY(U,$J,601.751,1414,0)
|
---|
138 | ;;=729^4^745
|
---|
139 | ;;^UTILITY(U,$J,601.751,1415,0)
|
---|
140 | ;;=729^5^748
|
---|
141 | ;;^UTILITY(U,$J,601.751,1416,0)
|
---|
142 | ;;=730^1^1159
|
---|
143 | ;;^UTILITY(U,$J,601.751,1417,0)
|
---|
144 | ;;=730^2^1160
|
---|
145 | ;;^UTILITY(U,$J,601.751,1418,0)
|
---|
146 | ;;=730^3^1161
|
---|
147 | ;;^UTILITY(U,$J,601.751,1419,0)
|
---|
148 | ;;=730^4^1162
|
---|
149 | ;;^UTILITY(U,$J,601.751,1420,0)
|
---|
150 | ;;=730^5^743
|
---|
151 | ;;^UTILITY(U,$J,601.751,1421,0)
|
---|
152 | ;;=730^6^1163
|
---|
153 | ;;^UTILITY(U,$J,601.751,1422,0)
|
---|
154 | ;;=731^1^1164
|
---|
155 | ;;^UTILITY(U,$J,601.751,1423,0)
|
---|
156 | ;;=731^2^1165
|
---|
157 | ;;^UTILITY(U,$J,601.751,1424,0)
|
---|
158 | ;;=731^3^1166
|
---|
159 | ;;^UTILITY(U,$J,601.751,1425,0)
|
---|
160 | ;;=731^4^1167
|
---|
161 | ;;^UTILITY(U,$J,601.751,1426,0)
|
---|
162 | ;;=731^5^1168
|
---|
163 | ;;^UTILITY(U,$J,601.751,1427,0)
|
---|
164 | ;;=731^6^1169
|
---|
165 | ;;^UTILITY(U,$J,601.751,1428,0)
|
---|
166 | ;;=731^7^1170
|
---|
167 | ;;^UTILITY(U,$J,601.751,1429,0)
|
---|
168 | ;;=731^8^743
|
---|
169 | ;;^UTILITY(U,$J,601.751,1430,0)
|
---|
170 | ;;=732^1^237
|
---|
171 | ;;^UTILITY(U,$J,601.751,1431,0)
|
---|
172 | ;;=732^2^1171
|
---|
173 | ;;^UTILITY(U,$J,601.751,1432,0)
|
---|
174 | ;;=732^3^1172
|
---|
175 | ;;^UTILITY(U,$J,601.751,1433,0)
|
---|
176 | ;;=732^4^1173
|
---|
177 | ;;^UTILITY(U,$J,601.751,1434,0)
|
---|
178 | ;;=733^1^237
|
---|
179 | ;;^UTILITY(U,$J,601.751,1435,0)
|
---|
180 | ;;=733^2^1174
|
---|
181 | ;;^UTILITY(U,$J,601.751,1436,0)
|
---|
182 | ;;=733^3^1175
|
---|
183 | ;;^UTILITY(U,$J,601.751,1437,0)
|
---|
184 | ;;=733^4^1176
|
---|
185 | ;;^UTILITY(U,$J,601.751,1438,0)
|
---|
186 | ;;=6223^6^1482
|
---|
187 | ;;^UTILITY(U,$J,601.751,1439,0)
|
---|
188 | ;;=135^1^464
|
---|
189 | ;;^UTILITY(U,$J,601.751,1440,0)
|
---|
190 | ;;=734^1^100994
|
---|
191 | ;;^UTILITY(U,$J,601.751,1441,0)
|
---|
192 | ;;=734^2^1178
|
---|
193 | ;;^UTILITY(U,$J,601.751,1442,0)
|
---|
194 | ;;=735^1^101008
|
---|
195 | ;;^UTILITY(U,$J,601.751,1443,0)
|
---|
196 | ;;=735^2^1179
|
---|
197 | ;;^UTILITY(U,$J,601.751,1444,0)
|
---|
198 | ;;=736^1^212
|
---|
199 | ;;^UTILITY(U,$J,601.751,1445,0)
|
---|
200 | ;;=736^2^1180
|
---|
201 | ;;^UTILITY(U,$J,601.751,1446,0)
|
---|
202 | ;;=737^1^101019
|
---|
203 | ;;^UTILITY(U,$J,601.751,1447,0)
|
---|
204 | ;;=737^2^1181
|
---|
205 | ;;^UTILITY(U,$J,601.751,1448,0)
|
---|
206 | ;;=738^1^1182
|
---|
207 | ;;^UTILITY(U,$J,601.751,1449,0)
|
---|
208 | ;;=738^2^1183
|
---|
209 | ;;^UTILITY(U,$J,601.751,1450,0)
|
---|
210 | ;;=738^3^1184
|
---|
211 | ;;^UTILITY(U,$J,601.751,1451,0)
|
---|
212 | ;;=6224^1^237
|
---|
213 | ;;^UTILITY(U,$J,601.751,1452,0)
|
---|
214 | ;;=6224^2^1478
|
---|
215 | ;;^UTILITY(U,$J,601.751,1453,0)
|
---|
216 | ;;=6224^3^1479
|
---|
217 | ;;^UTILITY(U,$J,601.751,1454,0)
|
---|
218 | ;;=740^1^1188
|
---|
219 | ;;^UTILITY(U,$J,601.751,1455,0)
|
---|
220 | ;;=740^2^1189
|
---|
221 | ;;^UTILITY(U,$J,601.751,1456,0)
|
---|
222 | ;;=6224^4^1480
|
---|
223 | ;;^UTILITY(U,$J,601.751,1457,0)
|
---|
224 | ;;=6224^5^1481
|
---|
225 | ;;^UTILITY(U,$J,601.751,1458,0)
|
---|
226 | ;;=6224^6^1482
|
---|
227 | ;;^UTILITY(U,$J,601.751,1459,0)
|
---|
228 | ;;=6225^1^237
|
---|
229 | ;;^UTILITY(U,$J,601.751,1460,0)
|
---|
230 | ;;=6225^2^1483
|
---|
231 | ;;^UTILITY(U,$J,601.751,1461,0)
|
---|
232 | ;;=6225^3^1484
|
---|
233 | ;;^UTILITY(U,$J,601.751,1462,0)
|
---|
234 | ;;=6225^4^1485
|
---|
235 | ;;^UTILITY(U,$J,601.751,1463,0)
|
---|
236 | ;;=6225^5^1486
|
---|
237 | ;;^UTILITY(U,$J,601.751,1464,0)
|
---|
238 | ;;=6225^6^1487
|
---|
239 | ;;^UTILITY(U,$J,601.751,1465,0)
|
---|
240 | ;;=6226^1^237
|
---|
241 | ;;^UTILITY(U,$J,601.751,1466,0)
|
---|
242 | ;;=6226^2^1478
|
---|
243 | ;;^UTILITY(U,$J,601.751,1467,0)
|
---|
244 | ;;=6226^3^1479
|
---|
245 | ;;^UTILITY(U,$J,601.751,1468,0)
|
---|
246 | ;;=6226^4^1480
|
---|
247 | ;;^UTILITY(U,$J,601.751,1469,0)
|
---|
248 | ;;=6226^5^1481
|
---|
249 | ;;^UTILITY(U,$J,601.751,1470,0)
|
---|
250 | ;;=6226^6^1482
|
---|
251 | ;;^UTILITY(U,$J,601.751,1471,0)
|
---|
252 | ;;=6227^1^237
|
---|
253 | ;;^UTILITY(U,$J,601.751,1472,0)
|
---|
254 | ;;=6227^2^1478
|
---|
255 | ;;^UTILITY(U,$J,601.751,1473,0)
|
---|
256 | ;;=6227^3^1479
|
---|
257 | ;;^UTILITY(U,$J,601.751,1474,0)
|
---|
258 | ;;=6227^4^1480
|
---|
259 | ;;^UTILITY(U,$J,601.751,1475,0)
|
---|
260 | ;;=6227^5^1481
|
---|
261 | ;;^UTILITY(U,$J,601.751,1476,0)
|
---|
262 | ;;=6227^6^1482
|
---|
263 | ;;^UTILITY(U,$J,601.751,1477,0)
|
---|
264 | ;;=3906^1^1338
|
---|
265 | ;;^UTILITY(U,$J,601.751,1478,0)
|
---|
266 | ;;=3906^2^1339
|
---|
267 | ;;^UTILITY(U,$J,601.751,1479,0)
|
---|
268 | ;;=3906^3^1340
|
---|
269 | ;;^UTILITY(U,$J,601.751,1480,0)
|
---|
270 | ;;=3906^4^1385
|
---|
271 | ;;^UTILITY(U,$J,601.751,1481,0)
|
---|
272 | ;;=3907^1^1342
|
---|
273 | ;;^UTILITY(U,$J,601.751,1482,0)
|
---|
274 | ;;=3907^2^1343
|
---|
275 | ;;^UTILITY(U,$J,601.751,1483,0)
|
---|
276 | ;;=3907^3^1344
|
---|
277 | ;;^UTILITY(U,$J,601.751,1484,0)
|
---|
278 | ;;=3907^4^1345
|
---|
279 | ;;^UTILITY(U,$J,601.751,1485,0)
|
---|
280 | ;;=3907^5^1346
|
---|
281 | ;;^UTILITY(U,$J,601.751,1486,0)
|
---|
282 | ;;=3908^1^1347
|
---|
283 | ;;^UTILITY(U,$J,601.751,1487,0)
|
---|
284 | ;;=3908^2^1381
|
---|
285 | ;;^UTILITY(U,$J,601.751,1488,0)
|
---|
286 | ;;=3908^3^1349
|
---|
287 | ;;^UTILITY(U,$J,601.751,1489,0)
|
---|
288 | ;;=3908^4^1350
|
---|
289 | ;;^UTILITY(U,$J,601.751,1490,0)
|
---|
290 | ;;=3909^1^1351
|
---|
291 | ;;^UTILITY(U,$J,601.751,1491,0)
|
---|
292 | ;;=3909^2^1352
|
---|
293 | ;;^UTILITY(U,$J,601.751,1492,0)
|
---|
294 | ;;=3909^3^1353
|
---|
295 | ;;^UTILITY(U,$J,601.751,1493,0)
|
---|
296 | ;;=749^1^1203
|
---|
297 | ;;^UTILITY(U,$J,601.751,1494,0)
|
---|
298 | ;;=749^2^1204
|
---|
299 | ;;^UTILITY(U,$J,601.751,1495,0)
|
---|
300 | ;;=749^3^1205
|
---|
301 | ;;^UTILITY(U,$J,601.751,1496,0)
|
---|
302 | ;;=749^4^1206
|
---|
303 | ;;^UTILITY(U,$J,601.751,1497,0)
|
---|
304 | ;;=3909^4^1354
|
---|
305 | ;;^UTILITY(U,$J,601.751,1498,0)
|
---|
306 | ;;=3910^1^614
|
---|
307 | ;;^UTILITY(U,$J,601.751,1499,0)
|
---|
308 | ;;=3910^2^1355
|
---|
309 | ;;^UTILITY(U,$J,601.751,1500,0)
|
---|
310 | ;;=3910^3^1382
|
---|
311 | ;;^UTILITY(U,$J,601.751,1501,0)
|
---|
312 | ;;=3910^4^1383
|
---|
313 | ;;^UTILITY(U,$J,601.751,1502,0)
|
---|
314 | ;;=3911^1^614
|
---|
315 | ;;^UTILITY(U,$J,601.751,1503,0)
|
---|
316 | ;;=3911^2^1358
|
---|
317 | ;;^UTILITY(U,$J,601.751,1504,0)
|
---|
318 | ;;=3911^3^1359
|
---|
319 | ;;^UTILITY(U,$J,601.751,1505,0)
|
---|
320 | ;;=3911^4^1360
|
---|
321 | ;;^UTILITY(U,$J,601.751,1506,0)
|
---|
322 | ;;=3912^1^1361
|
---|
323 | ;;^UTILITY(U,$J,601.751,1507,0)
|
---|
324 | ;;=3912^2^1362
|
---|
325 | ;;^UTILITY(U,$J,601.751,1508,0)
|
---|
326 | ;;=3912^3^1363
|
---|
327 | ;;^UTILITY(U,$J,601.751,1509,0)
|
---|
328 | ;;=3912^4^1364
|
---|
329 | ;;^UTILITY(U,$J,601.751,1510,0)
|
---|
330 | ;;=3912^5^1365
|
---|
331 | ;;^UTILITY(U,$J,601.751,1511,0)
|
---|
332 | ;;=3913^1^1366
|
---|
333 | ;;^UTILITY(U,$J,601.751,1512,0)
|
---|
334 | ;;=3913^2^1367
|
---|
335 | ;;^UTILITY(U,$J,601.751,1513,0)
|
---|
336 | ;;=3913^3^1368
|
---|
337 | ;;^UTILITY(U,$J,601.751,1514,0)
|
---|
338 | ;;=3913^4^1369
|
---|
339 | ;;^UTILITY(U,$J,601.751,1515,0)
|
---|
340 | ;;=3914^1^1370
|
---|
341 | ;;^UTILITY(U,$J,601.751,1516,0)
|
---|
342 | ;;=3914^2^1371
|
---|
343 | ;;^UTILITY(U,$J,601.751,1517,0)
|
---|
344 | ;;=3914^3^1372
|
---|
345 | ;;^UTILITY(U,$J,601.751,1518,0)
|
---|
346 | ;;=3914^4^1373
|
---|
347 | ;;^UTILITY(U,$J,601.751,1519,0)
|
---|
348 | ;;=3915^1^1
|
---|
349 | ;;^UTILITY(U,$J,601.751,1520,0)
|
---|
350 | ;;=3915^2^1374
|
---|
351 | ;;^UTILITY(U,$J,601.751,1521,0)
|
---|
352 | ;;=3915^3^1375
|
---|
353 | ;;^UTILITY(U,$J,601.751,1522,0)
|
---|
354 | ;;=3915^4^1384
|
---|
355 | ;;^UTILITY(U,$J,601.751,1523,0)
|
---|
356 | ;;=3916^1^1377
|
---|
357 | ;;^UTILITY(U,$J,601.751,1524,0)
|
---|
358 | ;;=757^1^1230
|
---|
359 | ;;^UTILITY(U,$J,601.751,1525,0)
|
---|
360 | ;;=757^2^1231
|
---|
361 | ;;^UTILITY(U,$J,601.751,1526,0)
|
---|
362 | ;;=757^3^1232
|
---|
363 | ;;^UTILITY(U,$J,601.751,1527,0)
|
---|
364 | ;;=757^4^1233
|
---|
365 | ;;^UTILITY(U,$J,601.751,1528,0)
|
---|
366 | ;;=758^1^1234
|
---|
367 | ;;^UTILITY(U,$J,601.751,1529,0)
|
---|
368 | ;;=758^2^1227
|
---|
369 | ;;^UTILITY(U,$J,601.751,1530,0)
|
---|
370 | ;;=758^3^1228
|
---|