YTQQI008 ;ASF/ALB- MH3 PATCH 85 INIT ; 7/27/07 2:16pm
 ;;5.01;MENTAL HEALTH;**85**;;Build 48
 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
Q Q
 ;;^UTILITY(U,$J,601.751,1163,0)
 ;;=301^1^982
 ;;^UTILITY(U,$J,601.751,1164,0)
 ;;=301^2^994
 ;;^UTILITY(U,$J,601.751,1165,0)
 ;;=301^3^984
 ;;^UTILITY(U,$J,601.751,1166,0)
 ;;=301^4^985
 ;;^UTILITY(U,$J,601.751,1167,0)
 ;;=301^5^986
 ;;^UTILITY(U,$J,601.751,1168,0)
 ;;=302^1^982
 ;;^UTILITY(U,$J,601.751,1169,0)
 ;;=302^2^983
 ;;^UTILITY(U,$J,601.751,1170,0)
 ;;=302^3^984
 ;;^UTILITY(U,$J,601.751,1171,0)
 ;;=302^4^990
 ;;^UTILITY(U,$J,601.751,1172,0)
 ;;=302^5^995
 ;;^UTILITY(U,$J,601.751,1173,0)
 ;;=303^1^982
 ;;^UTILITY(U,$J,601.751,1174,0)
 ;;=303^2^983
 ;;^UTILITY(U,$J,601.751,1175,0)
 ;;=303^3^984
 ;;^UTILITY(U,$J,601.751,1176,0)
 ;;=303^4^985
 ;;^UTILITY(U,$J,601.751,1177,0)
 ;;=303^5^996
 ;;^UTILITY(U,$J,601.751,1178,0)
 ;;=304^1^967
 ;;^UTILITY(U,$J,601.751,1179,0)
 ;;=304^2^973
 ;;^UTILITY(U,$J,601.751,1180,0)
 ;;=304^3^969
 ;;^UTILITY(U,$J,601.751,1181,0)
 ;;=304^4^975
 ;;^UTILITY(U,$J,601.751,1182,0)
 ;;=304^5^989
 ;;^UTILITY(U,$J,601.751,1183,0)
 ;;=305^1^967
 ;;^UTILITY(U,$J,601.751,1184,0)
 ;;=305^2^973
 ;;^UTILITY(U,$J,601.751,1185,0)
 ;;=305^3^974
 ;;^UTILITY(U,$J,601.751,1186,0)
 ;;=305^4^987
 ;;^UTILITY(U,$J,601.751,1187,0)
 ;;=305^5^989
 ;;^UTILITY(U,$J,601.751,1188,0)
 ;;=306^1^997
 ;;^UTILITY(U,$J,601.751,1189,0)
 ;;=306^2^998
 ;;^UTILITY(U,$J,601.751,1190,0)
 ;;=306^3^999
 ;;^UTILITY(U,$J,601.751,1191,0)
 ;;=306^4^1000
 ;;^UTILITY(U,$J,601.751,1192,0)
 ;;=306^5^1001
 ;;^UTILITY(U,$J,601.751,1193,0)
 ;;=6223^1^237
 ;;^UTILITY(U,$J,601.751,1194,0)
 ;;=308^1^1003
 ;;^UTILITY(U,$J,601.751,1195,0)
 ;;=308^2^1004
 ;;^UTILITY(U,$J,601.751,1196,0)
 ;;=308^3^1005
 ;;^UTILITY(U,$J,601.751,1197,0)
 ;;=308^4^1006
 ;;^UTILITY(U,$J,601.751,1198,0)
 ;;=309^1^716
 ;;^UTILITY(U,$J,601.751,1199,0)
 ;;=309^2^1007
 ;;^UTILITY(U,$J,601.751,1200,0)
 ;;=309^3^718
 ;;^UTILITY(U,$J,601.751,1201,0)
 ;;=309^4^719
 ;;^UTILITY(U,$J,601.751,1202,0)
 ;;=309^5^720
 ;;^UTILITY(U,$J,601.751,1203,0)
 ;;=6223^2^1478
 ;;^UTILITY(U,$J,601.751,1204,0)
 ;;=6223^3^1479
 ;;^UTILITY(U,$J,601.751,1205,0)
 ;;=6223^4^1480
 ;;^UTILITY(U,$J,601.751,1206,0)
 ;;=6223^5^1481
 ;;^UTILITY(U,$J,601.751,1207,0)
 ;;=311^1^1011
 ;;^UTILITY(U,$J,601.751,1208,0)
 ;;=311^2^1012
 ;;^UTILITY(U,$J,601.751,1209,0)
 ;;=312^1^1013
 ;;^UTILITY(U,$J,601.751,1210,0)
 ;;=312^2^789
 ;;^UTILITY(U,$J,601.751,1211,0)
 ;;=313^1^1014
 ;;^UTILITY(U,$J,601.751,1212,0)
 ;;=313^2^1015
 ;;^UTILITY(U,$J,601.751,1213,0)
 ;;=314^1^1016
 ;;^UTILITY(U,$J,601.751,1214,0)
 ;;=314^2^1017
 ;;^UTILITY(U,$J,601.751,1215,0)
 ;;=315^1^794
 ;;^UTILITY(U,$J,601.751,1216,0)
 ;;=315^2^1018
 ;;^UTILITY(U,$J,601.751,1217,0)
 ;;=316^1^796
 ;;^UTILITY(U,$J,601.751,1218,0)
 ;;=316^2^1019
 ;;^UTILITY(U,$J,601.751,1219,0)
 ;;=317^1^798
 ;;^UTILITY(U,$J,601.751,1220,0)
 ;;=317^2^1020
 ;;^UTILITY(U,$J,601.751,1221,0)
 ;;=318^1^802
 ;;^UTILITY(U,$J,601.751,1222,0)
 ;;=318^2^1021
 ;;^UTILITY(U,$J,601.751,1223,0)
 ;;=319^1^1022
 ;;^UTILITY(U,$J,601.751,1224,0)
 ;;=319^2^1023
 ;;^UTILITY(U,$J,601.751,1225,0)
 ;;=320^1^1024
 ;;^UTILITY(U,$J,601.751,1226,0)
 ;;=320^2^1025
 ;;^UTILITY(U,$J,601.751,1227,0)
 ;;=321^1^1026
 ;;^UTILITY(U,$J,601.751,1228,0)
 ;;=321^2^1027
 ;;^UTILITY(U,$J,601.751,1229,0)
 ;;=322^1^816
 ;;^UTILITY(U,$J,601.751,1230,0)
 ;;=322^2^1028
 ;;^UTILITY(U,$J,601.751,1231,0)
 ;;=323^1^1029
 ;;^UTILITY(U,$J,601.751,1232,0)
 ;;=323^2^1030
 ;;^UTILITY(U,$J,601.751,1233,0)
 ;;=324^1^822
 ;;^UTILITY(U,$J,601.751,1234,0)
 ;;=324^2^1031
 ;;^UTILITY(U,$J,601.751,1235,0)
 ;;=325^1^1032
 ;;^UTILITY(U,$J,601.751,1236,0)
 ;;=325^2^827
 ;;^UTILITY(U,$J,601.751,1237,0)
 ;;=326^1^1033
 ;;^UTILITY(U,$J,601.751,1238,0)
 ;;=326^2^833
 ;;^UTILITY(U,$J,601.751,1239,0)
 ;;=327^1^834
 ;;^UTILITY(U,$J,601.751,1240,0)
 ;;=327^2^1034
 ;;^UTILITY(U,$J,601.751,1241,0)
 ;;=328^1^836
 ;;^UTILITY(U,$J,601.751,1242,0)
 ;;=328^2^1035
 ;;^UTILITY(U,$J,601.751,1243,0)
 ;;=329^1^1036
 ;;^UTILITY(U,$J,601.751,1244,0)
 ;;=329^2^1037
 ;;^UTILITY(U,$J,601.751,1245,0)
 ;;=330^1^289
 ;;^UTILITY(U,$J,601.751,1246,0)
 ;;=330^2^1038
 ;;^UTILITY(U,$J,601.751,1247,0)
 ;;=330^3^1039
 ;;^UTILITY(U,$J,601.751,1248,0)
 ;;=330^4^1040
 ;;^UTILITY(U,$J,601.751,1249,0)
 ;;=330^5^1041
 ;;^UTILITY(U,$J,601.751,1250,0)
 ;;=331^1^1042
 ;;^UTILITY(U,$J,601.751,1251,0)
 ;;=331^2^1043
 ;;^UTILITY(U,$J,601.751,1252,0)
 ;;=331^3^1044
 ;;^UTILITY(U,$J,601.751,1253,0)
 ;;=331^4^1045
 ;;^UTILITY(U,$J,601.751,1254,0)
 ;;=331^5^1046
 ;;^UTILITY(U,$J,601.751,1255,0)
 ;;=332^1^716
 ;;^UTILITY(U,$J,601.751,1256,0)
 ;;=332^2^717
 ;;^UTILITY(U,$J,601.751,1257,0)
 ;;=332^3^1047
 ;;^UTILITY(U,$J,601.751,1258,0)
 ;;=332^4^1048
 ;;^UTILITY(U,$J,601.751,1259,0)
 ;;=333^1^289
 ;;^UTILITY(U,$J,601.751,1260,0)
 ;;=333^2^1049
 ;;^UTILITY(U,$J,601.751,1261,0)
 ;;=333^3^1050
 ;;^UTILITY(U,$J,601.751,1262,0)
 ;;=333^4^1051
 ;;^UTILITY(U,$J,601.751,1263,0)
 ;;=334^1^289
 ;;^UTILITY(U,$J,601.751,1264,0)
 ;;=334^2^228
 ;;^UTILITY(U,$J,601.751,1265,0)
 ;;=334^3^229
 ;;^UTILITY(U,$J,601.751,1266,0)
 ;;=334^4^1052
 ;;^UTILITY(U,$J,601.751,1267,0)
 ;;=334^5^1053
 ;;^UTILITY(U,$J,601.751,1268,0)
 ;;=335^1^289
 ;;^UTILITY(U,$J,601.751,1269,0)
 ;;=335^2^276
 ;;^UTILITY(U,$J,601.751,1270,0)
 ;;=335^3^277
 ;;^UTILITY(U,$J,601.751,1271,0)
 ;;=335^4^291
 ;;^UTILITY(U,$J,601.751,1272,0)
 ;;=336^1^1054
 ;;^UTILITY(U,$J,601.751,1273,0)
 ;;=336^2^1055
 ;;^UTILITY(U,$J,601.751,1274,0)
 ;;=336^3^1056
 ;;^UTILITY(U,$J,601.751,1275,0)
 ;;=336^4^1057
 ;;^UTILITY(U,$J,601.751,1276,0)
 ;;=336^5^1058
 ;;^UTILITY(U,$J,601.751,1277,0)
 ;;=337^1^1059
 ;;^UTILITY(U,$J,601.751,1278,0)
 ;;=337^2^1060
 ;;^UTILITY(U,$J,601.751,1279,0)
 ;;=337^3^1061
 ;;^UTILITY(U,$J,601.751,1280,0)
 ;;=337^4^1062
 ;;^UTILITY(U,$J,601.751,1281,0)
 ;;=337^5^1063
 ;;^UTILITY(U,$J,601.751,1282,0)
 ;;=338^1^1064
 ;;^UTILITY(U,$J,601.751,1283,0)
 ;;=338^2^1065
 ;;^UTILITY(U,$J,601.751,1284,0)
 ;;=338^3^1066
 ;;^UTILITY(U,$J,601.751,1285,0)
 ;;=338^4^1067
 ;;^UTILITY(U,$J,601.751,1286,0)
 ;;=338^5^1068
 ;;^UTILITY(U,$J,601.751,1287,0)
 ;;=339^1^1069
 ;;^UTILITY(U,$J,601.751,1288,0)
 ;;=339^2^1070
 ;;^UTILITY(U,$J,601.751,1289,0)
 ;;=339^3^1071
 ;;^UTILITY(U,$J,601.751,1290,0)
 ;;=340^1^1072
 ;;^UTILITY(U,$J,601.751,1291,0)
 ;;=340^2^1073
 ;;^UTILITY(U,$J,601.751,1292,0)
 ;;=341^1^1074
 ;;^UTILITY(U,$J,601.751,1293,0)
 ;;=341^2^1075
 ;;^UTILITY(U,$J,601.751,1294,0)
 ;;=341^3^1076
 ;;^UTILITY(U,$J,601.751,1295,0)
 ;;=341^4^1077
 ;;^UTILITY(U,$J,601.751,1296,0)
 ;;=341^5^1078
 ;;^UTILITY(U,$J,601.751,1297,0)
 ;;=342^1^1079
 ;;^UTILITY(U,$J,601.751,1298,0)
 ;;=342^2^1080
 ;;^UTILITY(U,$J,601.751,1299,0)
 ;;=342^3^1081
 ;;^UTILITY(U,$J,601.751,1300,0)
 ;;=342^4^1082
 ;;^UTILITY(U,$J,601.751,1301,0)
 ;;=342^5^1083
 ;;^UTILITY(U,$J,601.751,1302,0)
 ;;=342^6^1084
 ;;^UTILITY(U,$J,601.751,1303,0)
 ;;=343^1^1074
 ;;^UTILITY(U,$J,601.751,1304,0)
 ;;=343^2^1085
 ;;^UTILITY(U,$J,601.751,1305,0)
 ;;=343^3^1076
 ;;^UTILITY(U,$J,601.751,1306,0)
 ;;=343^4^1077
 ;;^UTILITY(U,$J,601.751,1307,0)
 ;;=343^5^1078
 ;;^UTILITY(U,$J,601.751,1308,0)
 ;;=344^1^1086
 ;;^UTILITY(U,$J,601.751,1309,0)
 ;;=344^2^1087
 ;;^UTILITY(U,$J,601.751,1310,0)
 ;;=344^3^1088
 ;;^UTILITY(U,$J,601.751,1311,0)
 ;;=344^4^1089
 ;;^UTILITY(U,$J,601.751,1312,0)
 ;;=344^5^1090
 ;;^UTILITY(U,$J,601.751,1313,0)
 ;;=344^6^1091
 ;;^UTILITY(U,$J,601.751,1314,0)
 ;;=345^1^1086
 ;;^UTILITY(U,$J,601.751,1315,0)
 ;;=345^2^1087
 ;;^UTILITY(U,$J,601.751,1316,0)
 ;;=345^3^1092
 ;;^UTILITY(U,$J,601.751,1317,0)
 ;;=345^4^1093
 ;;^UTILITY(U,$J,601.751,1318,0)
 ;;=345^5^1094
 ;;^UTILITY(U,$J,601.751,1319,0)
 ;;=346^1^1095
 ;;^UTILITY(U,$J,601.751,1320,0)
 ;;=346^2^1096
 ;;^UTILITY(U,$J,601.751,1321,0)
 ;;=346^3^1097
 ;;^UTILITY(U,$J,601.751,1322,0)
 ;;=346^4^1098
 ;;^UTILITY(U,$J,601.751,1323,0)
 ;;=346^5^1099
 ;;^UTILITY(U,$J,601.751,1324,0)
 ;;=347^1^212
 ;;^UTILITY(U,$J,601.751,1325,0)
 ;;=347^2^1100
 ;;^UTILITY(U,$J,601.751,1326,0)
 ;;=347^3^1101
 ;;^UTILITY(U,$J,601.751,1327,0)
 ;;=347^4^1102
 ;;^UTILITY(U,$J,601.751,1328,0)
 ;;=348^1^1103
 ;;^UTILITY(U,$J,601.751,1329,0)
 ;;=348^2^213
 ;;^UTILITY(U,$J,601.751,1330,0)
 ;;=348^3^1104
 ;;^UTILITY(U,$J,601.751,1331,0)
 ;;=348^4^1105
 ;;^UTILITY(U,$J,601.751,1332,0)
 ;;=349^1^1106
 ;;^UTILITY(U,$J,601.751,1333,0)
 ;;=349^2^1107
 ;;^UTILITY(U,$J,601.751,1334,0)
 ;;=349^3^1108
 ;;^UTILITY(U,$J,601.751,1335,0)
 ;;=349^4^1109
 ;;^UTILITY(U,$J,601.751,1336,0)
 ;;=350^1^1110
 ;;^UTILITY(U,$J,601.751,1337,0)
 ;;=350^2^1111
 ;;^UTILITY(U,$J,601.751,1338,0)
 ;;=350^3^1112
 ;;^UTILITY(U,$J,601.751,1339,0)
 ;;=350^4^1113
 ;;^UTILITY(U,$J,601.751,1340,0)
 ;;=503^1^1114
 ;;^UTILITY(U,$J,601.751,1341,0)
 ;;=503^2^1115
 ;;^UTILITY(U,$J,601.751,1342,0)
 ;;=503^3^1116
 ;;^UTILITY(U,$J,601.751,1343,0)
 ;;=503^4^1117
 ;;^UTILITY(U,$J,601.751,1344,0)
 ;;=504^1^1118
 ;;^UTILITY(U,$J,601.751,1345,0)
 ;;=504^2^1119
 ;;^UTILITY(U,$J,601.751,1346,0)
 ;;=505^1^1120
 ;;^UTILITY(U,$J,601.751,1347,0)
 ;;=505^2^789