source: FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YTQQI008.m@ 636

Last change on this file since 636 was 628, checked in by George Lilly, 14 years ago

initial load of FOIAVistA 6/30/08 version

File size: 8.9 KB
Line 
1YTQQI008 ;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
4Q 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
Note: See TracBrowser for help on using the repository browser.