YTQQI009 ;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,1348,0)
 ;;=506^1^1121
 ;;^UTILITY(U,$J,601.751,1349,0)
 ;;=506^2^1122
 ;;^UTILITY(U,$J,601.751,1350,0)
 ;;=507^1^1123
 ;;^UTILITY(U,$J,601.751,1351,0)
 ;;=507^2^1124
 ;;^UTILITY(U,$J,601.751,1352,0)
 ;;=508^1^794
 ;;^UTILITY(U,$J,601.751,1353,0)
 ;;=508^2^1125
 ;;^UTILITY(U,$J,601.751,1354,0)
 ;;=509^1^796
 ;;^UTILITY(U,$J,601.751,1355,0)
 ;;=509^2^1126
 ;;^UTILITY(U,$J,601.751,1356,0)
 ;;=510^1^798
 ;;^UTILITY(U,$J,601.751,1357,0)
 ;;=510^2^1127
 ;;^UTILITY(U,$J,601.751,1358,0)
 ;;=511^1^802
 ;;^UTILITY(U,$J,601.751,1359,0)
 ;;=511^2^1128
 ;;^UTILITY(U,$J,601.751,1360,0)
 ;;=512^1^1129
 ;;^UTILITY(U,$J,601.751,1361,0)
 ;;=512^2^1130
 ;;^UTILITY(U,$J,601.751,1362,0)
 ;;=513^1^1131
 ;;^UTILITY(U,$J,601.751,1363,0)
 ;;=513^2^1132
 ;;^UTILITY(U,$J,601.751,1364,0)
 ;;=514^1^808
 ;;^UTILITY(U,$J,601.751,1365,0)
 ;;=514^2^1133
 ;;^UTILITY(U,$J,601.751,1366,0)
 ;;=515^1^810
 ;;^UTILITY(U,$J,601.751,1367,0)
 ;;=515^2^1134
 ;;^UTILITY(U,$J,601.751,1368,0)
 ;;=516^1^1135
 ;;^UTILITY(U,$J,601.751,1369,0)
 ;;=516^2^1136
 ;;^UTILITY(U,$J,601.751,1370,0)
 ;;=517^1^1137
 ;;^UTILITY(U,$J,601.751,1371,0)
 ;;=517^2^1138
 ;;^UTILITY(U,$J,601.751,1372,0)
 ;;=518^1^1139
 ;;^UTILITY(U,$J,601.751,1373,0)
 ;;=518^2^1140
 ;;^UTILITY(U,$J,601.751,1374,0)
 ;;=519^1^1141
 ;;^UTILITY(U,$J,601.751,1375,0)
 ;;=519^2^821
 ;;^UTILITY(U,$J,601.751,1376,0)
 ;;=520^1^1142
 ;;^UTILITY(U,$J,601.751,1377,0)
 ;;=520^2^1143
 ;;^UTILITY(U,$J,601.751,1378,0)
 ;;=521^1^828
 ;;^UTILITY(U,$J,601.751,1379,0)
 ;;=521^2^1144
 ;;^UTILITY(U,$J,601.751,1380,0)
 ;;=723^5^995
 ;;^UTILITY(U,$J,601.751,1381,0)
 ;;=724^1^818
 ;;^UTILITY(U,$J,601.751,1382,0)
 ;;=523^1^1147
 ;;^UTILITY(U,$J,601.751,1383,0)
 ;;=523^2^833
 ;;^UTILITY(U,$J,601.751,1384,0)
 ;;=524^1^1148
 ;;^UTILITY(U,$J,601.751,1385,0)
 ;;=524^2^1149
 ;;^UTILITY(U,$J,601.751,1386,0)
 ;;=525^1^836
 ;;^UTILITY(U,$J,601.751,1387,0)
 ;;=525^2^1150
 ;;^UTILITY(U,$J,601.751,1388,0)
 ;;=526^1^840
 ;;^UTILITY(U,$J,601.751,1389,0)
 ;;=526^2^1151
 ;;^UTILITY(U,$J,601.751,1390,0)
 ;;=527^1^1152
 ;;^UTILITY(U,$J,601.751,1391,0)
 ;;=527^2^1153
 ;;^UTILITY(U,$J,601.751,1392,0)
 ;;=528^1^1145
 ;;^UTILITY(U,$J,601.751,1393,0)
 ;;=528^2^1154
 ;;^UTILITY(U,$J,601.751,1394,0)
 ;;=724^2^819
 ;;^UTILITY(U,$J,601.751,1395,0)
 ;;=725^1^826
 ;;^UTILITY(U,$J,601.751,1396,0)
 ;;=725^2^832
 ;;^UTILITY(U,$J,601.751,1397,0)
 ;;=726^1^739
 ;;^UTILITY(U,$J,601.751,1398,0)
 ;;=726^2^100052
 ;;^UTILITY(U,$J,601.751,1399,0)
 ;;=726^3^835
 ;;^UTILITY(U,$J,601.751,1400,0)
 ;;=726^4^100054
 ;;^UTILITY(U,$J,601.751,1401,0)
 ;;=726^5^742
 ;;^UTILITY(U,$J,601.751,1402,0)
 ;;=726^6^837
 ;;^UTILITY(U,$J,601.751,1403,0)
 ;;=727^1^842
 ;;^UTILITY(U,$J,601.751,1404,0)
 ;;=727^2^843
 ;;^UTILITY(U,$J,601.751,1405,0)
 ;;=727^3^743
 ;;^UTILITY(U,$J,601.751,1406,0)
 ;;=728^1^749
 ;;^UTILITY(U,$J,601.751,1407,0)
 ;;=728^2^750
 ;;^UTILITY(U,$J,601.751,1408,0)
 ;;=728^3^1146
 ;;^UTILITY(U,$J,601.751,1409,0)
 ;;=728^4^752
 ;;^UTILITY(U,$J,601.751,1410,0)
 ;;=728^5^1158
 ;;^UTILITY(U,$J,601.751,1411,0)
 ;;=729^1^744
 ;;^UTILITY(U,$J,601.751,1412,0)
 ;;=729^2^746
 ;;^UTILITY(U,$J,601.751,1413,0)
 ;;=729^3^747
 ;;^UTILITY(U,$J,601.751,1414,0)
 ;;=729^4^745
 ;;^UTILITY(U,$J,601.751,1415,0)
 ;;=729^5^748
 ;;^UTILITY(U,$J,601.751,1416,0)
 ;;=730^1^1159
 ;;^UTILITY(U,$J,601.751,1417,0)
 ;;=730^2^1160
 ;;^UTILITY(U,$J,601.751,1418,0)
 ;;=730^3^1161
 ;;^UTILITY(U,$J,601.751,1419,0)
 ;;=730^4^1162
 ;;^UTILITY(U,$J,601.751,1420,0)
 ;;=730^5^743
 ;;^UTILITY(U,$J,601.751,1421,0)
 ;;=730^6^1163
 ;;^UTILITY(U,$J,601.751,1422,0)
 ;;=731^1^1164
 ;;^UTILITY(U,$J,601.751,1423,0)
 ;;=731^2^1165
 ;;^UTILITY(U,$J,601.751,1424,0)
 ;;=731^3^1166
 ;;^UTILITY(U,$J,601.751,1425,0)
 ;;=731^4^1167
 ;;^UTILITY(U,$J,601.751,1426,0)
 ;;=731^5^1168
 ;;^UTILITY(U,$J,601.751,1427,0)
 ;;=731^6^1169
 ;;^UTILITY(U,$J,601.751,1428,0)
 ;;=731^7^1170
 ;;^UTILITY(U,$J,601.751,1429,0)
 ;;=731^8^743
 ;;^UTILITY(U,$J,601.751,1430,0)
 ;;=732^1^237
 ;;^UTILITY(U,$J,601.751,1431,0)
 ;;=732^2^1171
 ;;^UTILITY(U,$J,601.751,1432,0)
 ;;=732^3^1172
 ;;^UTILITY(U,$J,601.751,1433,0)
 ;;=732^4^1173
 ;;^UTILITY(U,$J,601.751,1434,0)
 ;;=733^1^237
 ;;^UTILITY(U,$J,601.751,1435,0)
 ;;=733^2^1174
 ;;^UTILITY(U,$J,601.751,1436,0)
 ;;=733^3^1175
 ;;^UTILITY(U,$J,601.751,1437,0)
 ;;=733^4^1176
 ;;^UTILITY(U,$J,601.751,1438,0)
 ;;=6223^6^1482
 ;;^UTILITY(U,$J,601.751,1439,0)
 ;;=135^1^464
 ;;^UTILITY(U,$J,601.751,1440,0)
 ;;=734^1^100994
 ;;^UTILITY(U,$J,601.751,1441,0)
 ;;=734^2^1178
 ;;^UTILITY(U,$J,601.751,1442,0)
 ;;=735^1^101008
 ;;^UTILITY(U,$J,601.751,1443,0)
 ;;=735^2^1179
 ;;^UTILITY(U,$J,601.751,1444,0)
 ;;=736^1^212
 ;;^UTILITY(U,$J,601.751,1445,0)
 ;;=736^2^1180
 ;;^UTILITY(U,$J,601.751,1446,0)
 ;;=737^1^101019
 ;;^UTILITY(U,$J,601.751,1447,0)
 ;;=737^2^1181
 ;;^UTILITY(U,$J,601.751,1448,0)
 ;;=738^1^1182
 ;;^UTILITY(U,$J,601.751,1449,0)
 ;;=738^2^1183
 ;;^UTILITY(U,$J,601.751,1450,0)
 ;;=738^3^1184
 ;;^UTILITY(U,$J,601.751,1451,0)
 ;;=6224^1^237
 ;;^UTILITY(U,$J,601.751,1452,0)
 ;;=6224^2^1478
 ;;^UTILITY(U,$J,601.751,1453,0)
 ;;=6224^3^1479
 ;;^UTILITY(U,$J,601.751,1454,0)
 ;;=740^1^1188
 ;;^UTILITY(U,$J,601.751,1455,0)
 ;;=740^2^1189
 ;;^UTILITY(U,$J,601.751,1456,0)
 ;;=6224^4^1480
 ;;^UTILITY(U,$J,601.751,1457,0)
 ;;=6224^5^1481
 ;;^UTILITY(U,$J,601.751,1458,0)
 ;;=6224^6^1482
 ;;^UTILITY(U,$J,601.751,1459,0)
 ;;=6225^1^237
 ;;^UTILITY(U,$J,601.751,1460,0)
 ;;=6225^2^1483
 ;;^UTILITY(U,$J,601.751,1461,0)
 ;;=6225^3^1484
 ;;^UTILITY(U,$J,601.751,1462,0)
 ;;=6225^4^1485
 ;;^UTILITY(U,$J,601.751,1463,0)
 ;;=6225^5^1486
 ;;^UTILITY(U,$J,601.751,1464,0)
 ;;=6225^6^1487
 ;;^UTILITY(U,$J,601.751,1465,0)
 ;;=6226^1^237
 ;;^UTILITY(U,$J,601.751,1466,0)
 ;;=6226^2^1478
 ;;^UTILITY(U,$J,601.751,1467,0)
 ;;=6226^3^1479
 ;;^UTILITY(U,$J,601.751,1468,0)
 ;;=6226^4^1480
 ;;^UTILITY(U,$J,601.751,1469,0)
 ;;=6226^5^1481
 ;;^UTILITY(U,$J,601.751,1470,0)
 ;;=6226^6^1482
 ;;^UTILITY(U,$J,601.751,1471,0)
 ;;=6227^1^237
 ;;^UTILITY(U,$J,601.751,1472,0)
 ;;=6227^2^1478
 ;;^UTILITY(U,$J,601.751,1473,0)
 ;;=6227^3^1479
 ;;^UTILITY(U,$J,601.751,1474,0)
 ;;=6227^4^1480
 ;;^UTILITY(U,$J,601.751,1475,0)
 ;;=6227^5^1481
 ;;^UTILITY(U,$J,601.751,1476,0)
 ;;=6227^6^1482
 ;;^UTILITY(U,$J,601.751,1477,0)
 ;;=3906^1^1338
 ;;^UTILITY(U,$J,601.751,1478,0)
 ;;=3906^2^1339
 ;;^UTILITY(U,$J,601.751,1479,0)
 ;;=3906^3^1340
 ;;^UTILITY(U,$J,601.751,1480,0)
 ;;=3906^4^1385
 ;;^UTILITY(U,$J,601.751,1481,0)
 ;;=3907^1^1342
 ;;^UTILITY(U,$J,601.751,1482,0)
 ;;=3907^2^1343
 ;;^UTILITY(U,$J,601.751,1483,0)
 ;;=3907^3^1344
 ;;^UTILITY(U,$J,601.751,1484,0)
 ;;=3907^4^1345
 ;;^UTILITY(U,$J,601.751,1485,0)
 ;;=3907^5^1346
 ;;^UTILITY(U,$J,601.751,1486,0)
 ;;=3908^1^1347
 ;;^UTILITY(U,$J,601.751,1487,0)
 ;;=3908^2^1381
 ;;^UTILITY(U,$J,601.751,1488,0)
 ;;=3908^3^1349
 ;;^UTILITY(U,$J,601.751,1489,0)
 ;;=3908^4^1350
 ;;^UTILITY(U,$J,601.751,1490,0)
 ;;=3909^1^1351
 ;;^UTILITY(U,$J,601.751,1491,0)
 ;;=3909^2^1352
 ;;^UTILITY(U,$J,601.751,1492,0)
 ;;=3909^3^1353
 ;;^UTILITY(U,$J,601.751,1493,0)
 ;;=749^1^1203
 ;;^UTILITY(U,$J,601.751,1494,0)
 ;;=749^2^1204
 ;;^UTILITY(U,$J,601.751,1495,0)
 ;;=749^3^1205
 ;;^UTILITY(U,$J,601.751,1496,0)
 ;;=749^4^1206
 ;;^UTILITY(U,$J,601.751,1497,0)
 ;;=3909^4^1354
 ;;^UTILITY(U,$J,601.751,1498,0)
 ;;=3910^1^614
 ;;^UTILITY(U,$J,601.751,1499,0)
 ;;=3910^2^1355
 ;;^UTILITY(U,$J,601.751,1500,0)
 ;;=3910^3^1382
 ;;^UTILITY(U,$J,601.751,1501,0)
 ;;=3910^4^1383
 ;;^UTILITY(U,$J,601.751,1502,0)
 ;;=3911^1^614
 ;;^UTILITY(U,$J,601.751,1503,0)
 ;;=3911^2^1358
 ;;^UTILITY(U,$J,601.751,1504,0)
 ;;=3911^3^1359
 ;;^UTILITY(U,$J,601.751,1505,0)
 ;;=3911^4^1360
 ;;^UTILITY(U,$J,601.751,1506,0)
 ;;=3912^1^1361
 ;;^UTILITY(U,$J,601.751,1507,0)
 ;;=3912^2^1362
 ;;^UTILITY(U,$J,601.751,1508,0)
 ;;=3912^3^1363
 ;;^UTILITY(U,$J,601.751,1509,0)
 ;;=3912^4^1364
 ;;^UTILITY(U,$J,601.751,1510,0)
 ;;=3912^5^1365
 ;;^UTILITY(U,$J,601.751,1511,0)
 ;;=3913^1^1366
 ;;^UTILITY(U,$J,601.751,1512,0)
 ;;=3913^2^1367
 ;;^UTILITY(U,$J,601.751,1513,0)
 ;;=3913^3^1368
 ;;^UTILITY(U,$J,601.751,1514,0)
 ;;=3913^4^1369
 ;;^UTILITY(U,$J,601.751,1515,0)
 ;;=3914^1^1370
 ;;^UTILITY(U,$J,601.751,1516,0)
 ;;=3914^2^1371
 ;;^UTILITY(U,$J,601.751,1517,0)
 ;;=3914^3^1372
 ;;^UTILITY(U,$J,601.751,1518,0)
 ;;=3914^4^1373
 ;;^UTILITY(U,$J,601.751,1519,0)
 ;;=3915^1^1
 ;;^UTILITY(U,$J,601.751,1520,0)
 ;;=3915^2^1374
 ;;^UTILITY(U,$J,601.751,1521,0)
 ;;=3915^3^1375
 ;;^UTILITY(U,$J,601.751,1522,0)
 ;;=3915^4^1384
 ;;^UTILITY(U,$J,601.751,1523,0)
 ;;=3916^1^1377
 ;;^UTILITY(U,$J,601.751,1524,0)
 ;;=757^1^1230
 ;;^UTILITY(U,$J,601.751,1525,0)
 ;;=757^2^1231
 ;;^UTILITY(U,$J,601.751,1526,0)
 ;;=757^3^1232
 ;;^UTILITY(U,$J,601.751,1527,0)
 ;;=757^4^1233
 ;;^UTILITY(U,$J,601.751,1528,0)
 ;;=758^1^1234
 ;;^UTILITY(U,$J,601.751,1529,0)
 ;;=758^2^1227
 ;;^UTILITY(U,$J,601.751,1530,0)
 ;;=758^3^1228