1 | YTQQI008 ;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,1163,0)
|
---|
6 | ;;=301^1^982
|
---|
7 | ;;^UTILITY(U,$J,601.751,1164,0)
|
---|
8 | ;;=301^2^994
|
---|
9 | ;;^UTILITY(U,$J,601.751,1165,0)
|
---|
10 | ;;=301^3^984
|
---|
11 | ;;^UTILITY(U,$J,601.751,1166,0)
|
---|
12 | ;;=301^4^985
|
---|
13 | ;;^UTILITY(U,$J,601.751,1167,0)
|
---|
14 | ;;=301^5^986
|
---|
15 | ;;^UTILITY(U,$J,601.751,1168,0)
|
---|
16 | ;;=302^1^982
|
---|
17 | ;;^UTILITY(U,$J,601.751,1169,0)
|
---|
18 | ;;=302^2^983
|
---|
19 | ;;^UTILITY(U,$J,601.751,1170,0)
|
---|
20 | ;;=302^3^984
|
---|
21 | ;;^UTILITY(U,$J,601.751,1171,0)
|
---|
22 | ;;=302^4^990
|
---|
23 | ;;^UTILITY(U,$J,601.751,1172,0)
|
---|
24 | ;;=302^5^995
|
---|
25 | ;;^UTILITY(U,$J,601.751,1173,0)
|
---|
26 | ;;=303^1^982
|
---|
27 | ;;^UTILITY(U,$J,601.751,1174,0)
|
---|
28 | ;;=303^2^983
|
---|
29 | ;;^UTILITY(U,$J,601.751,1175,0)
|
---|
30 | ;;=303^3^984
|
---|
31 | ;;^UTILITY(U,$J,601.751,1176,0)
|
---|
32 | ;;=303^4^985
|
---|
33 | ;;^UTILITY(U,$J,601.751,1177,0)
|
---|
34 | ;;=303^5^996
|
---|
35 | ;;^UTILITY(U,$J,601.751,1178,0)
|
---|
36 | ;;=304^1^967
|
---|
37 | ;;^UTILITY(U,$J,601.751,1179,0)
|
---|
38 | ;;=304^2^973
|
---|
39 | ;;^UTILITY(U,$J,601.751,1180,0)
|
---|
40 | ;;=304^3^969
|
---|
41 | ;;^UTILITY(U,$J,601.751,1181,0)
|
---|
42 | ;;=304^4^975
|
---|
43 | ;;^UTILITY(U,$J,601.751,1182,0)
|
---|
44 | ;;=304^5^989
|
---|
45 | ;;^UTILITY(U,$J,601.751,1183,0)
|
---|
46 | ;;=305^1^967
|
---|
47 | ;;^UTILITY(U,$J,601.751,1184,0)
|
---|
48 | ;;=305^2^973
|
---|
49 | ;;^UTILITY(U,$J,601.751,1185,0)
|
---|
50 | ;;=305^3^974
|
---|
51 | ;;^UTILITY(U,$J,601.751,1186,0)
|
---|
52 | ;;=305^4^987
|
---|
53 | ;;^UTILITY(U,$J,601.751,1187,0)
|
---|
54 | ;;=305^5^989
|
---|
55 | ;;^UTILITY(U,$J,601.751,1188,0)
|
---|
56 | ;;=306^1^997
|
---|
57 | ;;^UTILITY(U,$J,601.751,1189,0)
|
---|
58 | ;;=306^2^998
|
---|
59 | ;;^UTILITY(U,$J,601.751,1190,0)
|
---|
60 | ;;=306^3^999
|
---|
61 | ;;^UTILITY(U,$J,601.751,1191,0)
|
---|
62 | ;;=306^4^1000
|
---|
63 | ;;^UTILITY(U,$J,601.751,1192,0)
|
---|
64 | ;;=306^5^1001
|
---|
65 | ;;^UTILITY(U,$J,601.751,1193,0)
|
---|
66 | ;;=6223^1^237
|
---|
67 | ;;^UTILITY(U,$J,601.751,1194,0)
|
---|
68 | ;;=308^1^1003
|
---|
69 | ;;^UTILITY(U,$J,601.751,1195,0)
|
---|
70 | ;;=308^2^1004
|
---|
71 | ;;^UTILITY(U,$J,601.751,1196,0)
|
---|
72 | ;;=308^3^1005
|
---|
73 | ;;^UTILITY(U,$J,601.751,1197,0)
|
---|
74 | ;;=308^4^1006
|
---|
75 | ;;^UTILITY(U,$J,601.751,1198,0)
|
---|
76 | ;;=309^1^716
|
---|
77 | ;;^UTILITY(U,$J,601.751,1199,0)
|
---|
78 | ;;=309^2^1007
|
---|
79 | ;;^UTILITY(U,$J,601.751,1200,0)
|
---|
80 | ;;=309^3^718
|
---|
81 | ;;^UTILITY(U,$J,601.751,1201,0)
|
---|
82 | ;;=309^4^719
|
---|
83 | ;;^UTILITY(U,$J,601.751,1202,0)
|
---|
84 | ;;=309^5^720
|
---|
85 | ;;^UTILITY(U,$J,601.751,1203,0)
|
---|
86 | ;;=6223^2^1478
|
---|
87 | ;;^UTILITY(U,$J,601.751,1204,0)
|
---|
88 | ;;=6223^3^1479
|
---|
89 | ;;^UTILITY(U,$J,601.751,1205,0)
|
---|
90 | ;;=6223^4^1480
|
---|
91 | ;;^UTILITY(U,$J,601.751,1206,0)
|
---|
92 | ;;=6223^5^1481
|
---|
93 | ;;^UTILITY(U,$J,601.751,1207,0)
|
---|
94 | ;;=311^1^1011
|
---|
95 | ;;^UTILITY(U,$J,601.751,1208,0)
|
---|
96 | ;;=311^2^1012
|
---|
97 | ;;^UTILITY(U,$J,601.751,1209,0)
|
---|
98 | ;;=312^1^1013
|
---|
99 | ;;^UTILITY(U,$J,601.751,1210,0)
|
---|
100 | ;;=312^2^789
|
---|
101 | ;;^UTILITY(U,$J,601.751,1211,0)
|
---|
102 | ;;=313^1^1014
|
---|
103 | ;;^UTILITY(U,$J,601.751,1212,0)
|
---|
104 | ;;=313^2^1015
|
---|
105 | ;;^UTILITY(U,$J,601.751,1213,0)
|
---|
106 | ;;=314^1^1016
|
---|
107 | ;;^UTILITY(U,$J,601.751,1214,0)
|
---|
108 | ;;=314^2^1017
|
---|
109 | ;;^UTILITY(U,$J,601.751,1215,0)
|
---|
110 | ;;=315^1^794
|
---|
111 | ;;^UTILITY(U,$J,601.751,1216,0)
|
---|
112 | ;;=315^2^1018
|
---|
113 | ;;^UTILITY(U,$J,601.751,1217,0)
|
---|
114 | ;;=316^1^796
|
---|
115 | ;;^UTILITY(U,$J,601.751,1218,0)
|
---|
116 | ;;=316^2^1019
|
---|
117 | ;;^UTILITY(U,$J,601.751,1219,0)
|
---|
118 | ;;=317^1^798
|
---|
119 | ;;^UTILITY(U,$J,601.751,1220,0)
|
---|
120 | ;;=317^2^1020
|
---|
121 | ;;^UTILITY(U,$J,601.751,1221,0)
|
---|
122 | ;;=318^1^802
|
---|
123 | ;;^UTILITY(U,$J,601.751,1222,0)
|
---|
124 | ;;=318^2^1021
|
---|
125 | ;;^UTILITY(U,$J,601.751,1223,0)
|
---|
126 | ;;=319^1^1022
|
---|
127 | ;;^UTILITY(U,$J,601.751,1224,0)
|
---|
128 | ;;=319^2^1023
|
---|
129 | ;;^UTILITY(U,$J,601.751,1225,0)
|
---|
130 | ;;=320^1^1024
|
---|
131 | ;;^UTILITY(U,$J,601.751,1226,0)
|
---|
132 | ;;=320^2^1025
|
---|
133 | ;;^UTILITY(U,$J,601.751,1227,0)
|
---|
134 | ;;=321^1^1026
|
---|
135 | ;;^UTILITY(U,$J,601.751,1228,0)
|
---|
136 | ;;=321^2^1027
|
---|
137 | ;;^UTILITY(U,$J,601.751,1229,0)
|
---|
138 | ;;=322^1^816
|
---|
139 | ;;^UTILITY(U,$J,601.751,1230,0)
|
---|
140 | ;;=322^2^1028
|
---|
141 | ;;^UTILITY(U,$J,601.751,1231,0)
|
---|
142 | ;;=323^1^1029
|
---|
143 | ;;^UTILITY(U,$J,601.751,1232,0)
|
---|
144 | ;;=323^2^1030
|
---|
145 | ;;^UTILITY(U,$J,601.751,1233,0)
|
---|
146 | ;;=324^1^822
|
---|
147 | ;;^UTILITY(U,$J,601.751,1234,0)
|
---|
148 | ;;=324^2^1031
|
---|
149 | ;;^UTILITY(U,$J,601.751,1235,0)
|
---|
150 | ;;=325^1^1032
|
---|
151 | ;;^UTILITY(U,$J,601.751,1236,0)
|
---|
152 | ;;=325^2^827
|
---|
153 | ;;^UTILITY(U,$J,601.751,1237,0)
|
---|
154 | ;;=326^1^1033
|
---|
155 | ;;^UTILITY(U,$J,601.751,1238,0)
|
---|
156 | ;;=326^2^833
|
---|
157 | ;;^UTILITY(U,$J,601.751,1239,0)
|
---|
158 | ;;=327^1^834
|
---|
159 | ;;^UTILITY(U,$J,601.751,1240,0)
|
---|
160 | ;;=327^2^1034
|
---|
161 | ;;^UTILITY(U,$J,601.751,1241,0)
|
---|
162 | ;;=328^1^836
|
---|
163 | ;;^UTILITY(U,$J,601.751,1242,0)
|
---|
164 | ;;=328^2^1035
|
---|
165 | ;;^UTILITY(U,$J,601.751,1243,0)
|
---|
166 | ;;=329^1^1036
|
---|
167 | ;;^UTILITY(U,$J,601.751,1244,0)
|
---|
168 | ;;=329^2^1037
|
---|
169 | ;;^UTILITY(U,$J,601.751,1245,0)
|
---|
170 | ;;=330^1^289
|
---|
171 | ;;^UTILITY(U,$J,601.751,1246,0)
|
---|
172 | ;;=330^2^1038
|
---|
173 | ;;^UTILITY(U,$J,601.751,1247,0)
|
---|
174 | ;;=330^3^1039
|
---|
175 | ;;^UTILITY(U,$J,601.751,1248,0)
|
---|
176 | ;;=330^4^1040
|
---|
177 | ;;^UTILITY(U,$J,601.751,1249,0)
|
---|
178 | ;;=330^5^1041
|
---|
179 | ;;^UTILITY(U,$J,601.751,1250,0)
|
---|
180 | ;;=331^1^1042
|
---|
181 | ;;^UTILITY(U,$J,601.751,1251,0)
|
---|
182 | ;;=331^2^1043
|
---|
183 | ;;^UTILITY(U,$J,601.751,1252,0)
|
---|
184 | ;;=331^3^1044
|
---|
185 | ;;^UTILITY(U,$J,601.751,1253,0)
|
---|
186 | ;;=331^4^1045
|
---|
187 | ;;^UTILITY(U,$J,601.751,1254,0)
|
---|
188 | ;;=331^5^1046
|
---|
189 | ;;^UTILITY(U,$J,601.751,1255,0)
|
---|
190 | ;;=332^1^716
|
---|
191 | ;;^UTILITY(U,$J,601.751,1256,0)
|
---|
192 | ;;=332^2^717
|
---|
193 | ;;^UTILITY(U,$J,601.751,1257,0)
|
---|
194 | ;;=332^3^1047
|
---|
195 | ;;^UTILITY(U,$J,601.751,1258,0)
|
---|
196 | ;;=332^4^1048
|
---|
197 | ;;^UTILITY(U,$J,601.751,1259,0)
|
---|
198 | ;;=333^1^289
|
---|
199 | ;;^UTILITY(U,$J,601.751,1260,0)
|
---|
200 | ;;=333^2^1049
|
---|
201 | ;;^UTILITY(U,$J,601.751,1261,0)
|
---|
202 | ;;=333^3^1050
|
---|
203 | ;;^UTILITY(U,$J,601.751,1262,0)
|
---|
204 | ;;=333^4^1051
|
---|
205 | ;;^UTILITY(U,$J,601.751,1263,0)
|
---|
206 | ;;=334^1^289
|
---|
207 | ;;^UTILITY(U,$J,601.751,1264,0)
|
---|
208 | ;;=334^2^228
|
---|
209 | ;;^UTILITY(U,$J,601.751,1265,0)
|
---|
210 | ;;=334^3^229
|
---|
211 | ;;^UTILITY(U,$J,601.751,1266,0)
|
---|
212 | ;;=334^4^1052
|
---|
213 | ;;^UTILITY(U,$J,601.751,1267,0)
|
---|
214 | ;;=334^5^1053
|
---|
215 | ;;^UTILITY(U,$J,601.751,1268,0)
|
---|
216 | ;;=335^1^289
|
---|
217 | ;;^UTILITY(U,$J,601.751,1269,0)
|
---|
218 | ;;=335^2^276
|
---|
219 | ;;^UTILITY(U,$J,601.751,1270,0)
|
---|
220 | ;;=335^3^277
|
---|
221 | ;;^UTILITY(U,$J,601.751,1271,0)
|
---|
222 | ;;=335^4^291
|
---|
223 | ;;^UTILITY(U,$J,601.751,1272,0)
|
---|
224 | ;;=336^1^1054
|
---|
225 | ;;^UTILITY(U,$J,601.751,1273,0)
|
---|
226 | ;;=336^2^1055
|
---|
227 | ;;^UTILITY(U,$J,601.751,1274,0)
|
---|
228 | ;;=336^3^1056
|
---|
229 | ;;^UTILITY(U,$J,601.751,1275,0)
|
---|
230 | ;;=336^4^1057
|
---|
231 | ;;^UTILITY(U,$J,601.751,1276,0)
|
---|
232 | ;;=336^5^1058
|
---|
233 | ;;^UTILITY(U,$J,601.751,1277,0)
|
---|
234 | ;;=337^1^1059
|
---|
235 | ;;^UTILITY(U,$J,601.751,1278,0)
|
---|
236 | ;;=337^2^1060
|
---|
237 | ;;^UTILITY(U,$J,601.751,1279,0)
|
---|
238 | ;;=337^3^1061
|
---|
239 | ;;^UTILITY(U,$J,601.751,1280,0)
|
---|
240 | ;;=337^4^1062
|
---|
241 | ;;^UTILITY(U,$J,601.751,1281,0)
|
---|
242 | ;;=337^5^1063
|
---|
243 | ;;^UTILITY(U,$J,601.751,1282,0)
|
---|
244 | ;;=338^1^1064
|
---|
245 | ;;^UTILITY(U,$J,601.751,1283,0)
|
---|
246 | ;;=338^2^1065
|
---|
247 | ;;^UTILITY(U,$J,601.751,1284,0)
|
---|
248 | ;;=338^3^1066
|
---|
249 | ;;^UTILITY(U,$J,601.751,1285,0)
|
---|
250 | ;;=338^4^1067
|
---|
251 | ;;^UTILITY(U,$J,601.751,1286,0)
|
---|
252 | ;;=338^5^1068
|
---|
253 | ;;^UTILITY(U,$J,601.751,1287,0)
|
---|
254 | ;;=339^1^1069
|
---|
255 | ;;^UTILITY(U,$J,601.751,1288,0)
|
---|
256 | ;;=339^2^1070
|
---|
257 | ;;^UTILITY(U,$J,601.751,1289,0)
|
---|
258 | ;;=339^3^1071
|
---|
259 | ;;^UTILITY(U,$J,601.751,1290,0)
|
---|
260 | ;;=340^1^1072
|
---|
261 | ;;^UTILITY(U,$J,601.751,1291,0)
|
---|
262 | ;;=340^2^1073
|
---|
263 | ;;^UTILITY(U,$J,601.751,1292,0)
|
---|
264 | ;;=341^1^1074
|
---|
265 | ;;^UTILITY(U,$J,601.751,1293,0)
|
---|
266 | ;;=341^2^1075
|
---|
267 | ;;^UTILITY(U,$J,601.751,1294,0)
|
---|
268 | ;;=341^3^1076
|
---|
269 | ;;^UTILITY(U,$J,601.751,1295,0)
|
---|
270 | ;;=341^4^1077
|
---|
271 | ;;^UTILITY(U,$J,601.751,1296,0)
|
---|
272 | ;;=341^5^1078
|
---|
273 | ;;^UTILITY(U,$J,601.751,1297,0)
|
---|
274 | ;;=342^1^1079
|
---|
275 | ;;^UTILITY(U,$J,601.751,1298,0)
|
---|
276 | ;;=342^2^1080
|
---|
277 | ;;^UTILITY(U,$J,601.751,1299,0)
|
---|
278 | ;;=342^3^1081
|
---|
279 | ;;^UTILITY(U,$J,601.751,1300,0)
|
---|
280 | ;;=342^4^1082
|
---|
281 | ;;^UTILITY(U,$J,601.751,1301,0)
|
---|
282 | ;;=342^5^1083
|
---|
283 | ;;^UTILITY(U,$J,601.751,1302,0)
|
---|
284 | ;;=342^6^1084
|
---|
285 | ;;^UTILITY(U,$J,601.751,1303,0)
|
---|
286 | ;;=343^1^1074
|
---|
287 | ;;^UTILITY(U,$J,601.751,1304,0)
|
---|
288 | ;;=343^2^1085
|
---|
289 | ;;^UTILITY(U,$J,601.751,1305,0)
|
---|
290 | ;;=343^3^1076
|
---|
291 | ;;^UTILITY(U,$J,601.751,1306,0)
|
---|
292 | ;;=343^4^1077
|
---|
293 | ;;^UTILITY(U,$J,601.751,1307,0)
|
---|
294 | ;;=343^5^1078
|
---|
295 | ;;^UTILITY(U,$J,601.751,1308,0)
|
---|
296 | ;;=344^1^1086
|
---|
297 | ;;^UTILITY(U,$J,601.751,1309,0)
|
---|
298 | ;;=344^2^1087
|
---|
299 | ;;^UTILITY(U,$J,601.751,1310,0)
|
---|
300 | ;;=344^3^1088
|
---|
301 | ;;^UTILITY(U,$J,601.751,1311,0)
|
---|
302 | ;;=344^4^1089
|
---|
303 | ;;^UTILITY(U,$J,601.751,1312,0)
|
---|
304 | ;;=344^5^1090
|
---|
305 | ;;^UTILITY(U,$J,601.751,1313,0)
|
---|
306 | ;;=344^6^1091
|
---|
307 | ;;^UTILITY(U,$J,601.751,1314,0)
|
---|
308 | ;;=345^1^1086
|
---|
309 | ;;^UTILITY(U,$J,601.751,1315,0)
|
---|
310 | ;;=345^2^1087
|
---|
311 | ;;^UTILITY(U,$J,601.751,1316,0)
|
---|
312 | ;;=345^3^1092
|
---|
313 | ;;^UTILITY(U,$J,601.751,1317,0)
|
---|
314 | ;;=345^4^1093
|
---|
315 | ;;^UTILITY(U,$J,601.751,1318,0)
|
---|
316 | ;;=345^5^1094
|
---|
317 | ;;^UTILITY(U,$J,601.751,1319,0)
|
---|
318 | ;;=346^1^1095
|
---|
319 | ;;^UTILITY(U,$J,601.751,1320,0)
|
---|
320 | ;;=346^2^1096
|
---|
321 | ;;^UTILITY(U,$J,601.751,1321,0)
|
---|
322 | ;;=346^3^1097
|
---|
323 | ;;^UTILITY(U,$J,601.751,1322,0)
|
---|
324 | ;;=346^4^1098
|
---|
325 | ;;^UTILITY(U,$J,601.751,1323,0)
|
---|
326 | ;;=346^5^1099
|
---|
327 | ;;^UTILITY(U,$J,601.751,1324,0)
|
---|
328 | ;;=347^1^212
|
---|
329 | ;;^UTILITY(U,$J,601.751,1325,0)
|
---|
330 | ;;=347^2^1100
|
---|
331 | ;;^UTILITY(U,$J,601.751,1326,0)
|
---|
332 | ;;=347^3^1101
|
---|
333 | ;;^UTILITY(U,$J,601.751,1327,0)
|
---|
334 | ;;=347^4^1102
|
---|
335 | ;;^UTILITY(U,$J,601.751,1328,0)
|
---|
336 | ;;=348^1^1103
|
---|
337 | ;;^UTILITY(U,$J,601.751,1329,0)
|
---|
338 | ;;=348^2^213
|
---|
339 | ;;^UTILITY(U,$J,601.751,1330,0)
|
---|
340 | ;;=348^3^1104
|
---|
341 | ;;^UTILITY(U,$J,601.751,1331,0)
|
---|
342 | ;;=348^4^1105
|
---|
343 | ;;^UTILITY(U,$J,601.751,1332,0)
|
---|
344 | ;;=349^1^1106
|
---|
345 | ;;^UTILITY(U,$J,601.751,1333,0)
|
---|
346 | ;;=349^2^1107
|
---|
347 | ;;^UTILITY(U,$J,601.751,1334,0)
|
---|
348 | ;;=349^3^1108
|
---|
349 | ;;^UTILITY(U,$J,601.751,1335,0)
|
---|
350 | ;;=349^4^1109
|
---|
351 | ;;^UTILITY(U,$J,601.751,1336,0)
|
---|
352 | ;;=350^1^1110
|
---|
353 | ;;^UTILITY(U,$J,601.751,1337,0)
|
---|
354 | ;;=350^2^1111
|
---|
355 | ;;^UTILITY(U,$J,601.751,1338,0)
|
---|
356 | ;;=350^3^1112
|
---|
357 | ;;^UTILITY(U,$J,601.751,1339,0)
|
---|
358 | ;;=350^4^1113
|
---|
359 | ;;^UTILITY(U,$J,601.751,1340,0)
|
---|
360 | ;;=503^1^1114
|
---|
361 | ;;^UTILITY(U,$J,601.751,1341,0)
|
---|
362 | ;;=503^2^1115
|
---|
363 | ;;^UTILITY(U,$J,601.751,1342,0)
|
---|
364 | ;;=503^3^1116
|
---|
365 | ;;^UTILITY(U,$J,601.751,1343,0)
|
---|
366 | ;;=503^4^1117
|
---|
367 | ;;^UTILITY(U,$J,601.751,1344,0)
|
---|
368 | ;;=504^1^1118
|
---|
369 | ;;^UTILITY(U,$J,601.751,1345,0)
|
---|
370 | ;;=504^2^1119
|
---|
371 | ;;^UTILITY(U,$J,601.751,1346,0)
|
---|
372 | ;;=505^1^1120
|
---|
373 | ;;^UTILITY(U,$J,601.751,1347,0)
|
---|
374 | ;;=505^2^789
|
---|