YTQQI008	;ASF/ALB- MH3 PATCH 85 INIT ; 7/27/07 2:16pm
	;;5.01;MENTAL HEALTH;**85**;;Build 49
	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