source: WorldVistAEHR/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YTQQI009.m@ 1351

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

initial load of WorldVistAEHR

File size: 8.9 KB
RevLine 
[613]1YTQQI009 ;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,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
Note: See TracBrowser for help on using the repository browser.