YTQQI00A ;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,1531,0)
 ;;=758^4^1229
 ;;^UTILITY(U,$J,601.751,1532,0)
 ;;=759^1^1235
 ;;^UTILITY(U,$J,601.751,1533,0)
 ;;=759^2^1204
 ;;^UTILITY(U,$J,601.751,1534,0)
 ;;=759^3^1205
 ;;^UTILITY(U,$J,601.751,1535,0)
 ;;=759^4^1236
 ;;^UTILITY(U,$J,601.751,1536,0)
 ;;=760^1^1237
 ;;^UTILITY(U,$J,601.751,1537,0)
 ;;=760^2^1238
 ;;^UTILITY(U,$J,601.751,1538,0)
 ;;=760^3^1239
 ;;^UTILITY(U,$J,601.751,1539,0)
 ;;=760^4^1240
 ;;^UTILITY(U,$J,601.751,1540,0)
 ;;=761^1^1241
 ;;^UTILITY(U,$J,601.751,1541,0)
 ;;=761^2^1242
 ;;^UTILITY(U,$J,601.751,1542,0)
 ;;=761^3^1243
 ;;^UTILITY(U,$J,601.751,1543,0)
 ;;=762^1^1244
 ;;^UTILITY(U,$J,601.751,1544,0)
 ;;=762^2^1245
 ;;^UTILITY(U,$J,601.751,1545,0)
 ;;=762^3^1246
 ;;^UTILITY(U,$J,601.751,1546,0)
 ;;=762^4^1247
 ;;^UTILITY(U,$J,601.751,1547,0)
 ;;=3916^2^1378
 ;;^UTILITY(U,$J,601.751,1548,0)
 ;;=3916^3^1379
 ;;^UTILITY(U,$J,601.751,1549,0)
 ;;=6228^1^1488
 ;;^UTILITY(U,$J,601.751,1550,0)
 ;;=6228^2^1489
 ;;^UTILITY(U,$J,601.751,1551,0)
 ;;=6228^3^1490
 ;;^UTILITY(U,$J,601.751,1552,0)
 ;;=6228^4^1491
 ;;^UTILITY(U,$J,601.751,1553,0)
 ;;=6229^1^237
 ;;^UTILITY(U,$J,601.751,1554,0)
 ;;=6229^2^1478
 ;;^UTILITY(U,$J,601.751,1555,0)
 ;;=765^1^1250
 ;;^UTILITY(U,$J,601.751,1556,0)
 ;;=765^2^1186
 ;;^UTILITY(U,$J,601.751,1557,0)
 ;;=765^3^1187
 ;;^UTILITY(U,$J,601.751,1558,0)
 ;;=6229^3^1479
 ;;^UTILITY(U,$J,601.751,1559,0)
 ;;=6229^4^1480
 ;;^UTILITY(U,$J,601.751,1560,0)
 ;;=6229^5^1481
 ;;^UTILITY(U,$J,601.751,1561,0)
 ;;=6229^6^1482
 ;;^UTILITY(U,$J,601.751,1562,0)
 ;;=767^1^1177
 ;;^UTILITY(U,$J,601.751,1563,0)
 ;;=767^2^100971
 ;;^UTILITY(U,$J,601.751,1564,0)
 ;;=6230^1^1488
 ;;^UTILITY(U,$J,601.751,1565,0)
 ;;=6230^2^1489
 ;;^UTILITY(U,$J,601.751,1566,0)
 ;;=769^1^100986
 ;;^UTILITY(U,$J,601.751,1567,0)
 ;;=769^2^101059
 ;;^UTILITY(U,$J,601.751,1568,0)
 ;;=770^1^100988
 ;;^UTILITY(U,$J,601.751,1569,0)
 ;;=770^2^101029
 ;;^UTILITY(U,$J,601.751,1570,0)
 ;;=771^1^100805
 ;;^UTILITY(U,$J,601.751,1571,0)
 ;;=771^2^1254
 ;;^UTILITY(U,$J,601.751,1572,0)
 ;;=772^1^100992
 ;;^UTILITY(U,$J,601.751,1573,0)
 ;;=772^2^1255
 ;;^UTILITY(U,$J,601.751,1574,0)
 ;;=773^1^101000
 ;;^UTILITY(U,$J,601.751,1575,0)
 ;;=773^2^1256
 ;;^UTILITY(U,$J,601.751,1576,0)
 ;;=774^1^101003
 ;;^UTILITY(U,$J,601.751,1577,0)
 ;;=774^2^1257
 ;;^UTILITY(U,$J,601.751,1578,0)
 ;;=775^1^101006
 ;;^UTILITY(U,$J,601.751,1579,0)
 ;;=775^2^1258
 ;;^UTILITY(U,$J,601.751,1580,0)
 ;;=776^1^101015
 ;;^UTILITY(U,$J,601.751,1581,0)
 ;;=776^2^1259
 ;;^UTILITY(U,$J,601.751,1582,0)
 ;;=6230^3^1490
 ;;^UTILITY(U,$J,601.751,1583,0)
 ;;=6230^4^1491
 ;;^UTILITY(U,$J,601.751,1584,0)
 ;;=6231^1^237
 ;;^UTILITY(U,$J,601.751,1585,0)
 ;;=6231^2^1478
 ;;^UTILITY(U,$J,601.751,1586,0)
 ;;=6231^3^1479
 ;;^UTILITY(U,$J,601.751,1587,0)
 ;;=6231^4^1480
 ;;^UTILITY(U,$J,601.751,1588,0)
 ;;=6231^5^1481
 ;;^UTILITY(U,$J,601.751,1589,0)
 ;;=6231^6^1482
 ;;^UTILITY(U,$J,601.751,1590,0)
 ;;=6232^1^1488
 ;;^UTILITY(U,$J,601.751,1591,0)
 ;;=6232^2^1489
 ;;^UTILITY(U,$J,601.751,1592,0)
 ;;=6232^3^1490
 ;;^UTILITY(U,$J,601.751,1593,0)
 ;;=6232^4^1491
 ;;^UTILITY(U,$J,601.751,1594,0)
 ;;=6233^1^237
 ;;^UTILITY(U,$J,601.751,1595,0)
 ;;=6233^2^1478
 ;;^UTILITY(U,$J,601.751,1596,0)
 ;;=6233^3^1479
 ;;^UTILITY(U,$J,601.751,1597,0)
 ;;=6233^4^1480
 ;;^UTILITY(U,$J,601.751,1598,0)
 ;;=6233^5^1481
 ;;^UTILITY(U,$J,601.751,1599,0)
 ;;=6233^6^1482
 ;;^UTILITY(U,$J,601.751,1600,0)
 ;;=6234^1^1488
 ;;^UTILITY(U,$J,601.751,1601,0)
 ;;=6234^2^1489
 ;;^UTILITY(U,$J,601.751,1602,0)
 ;;=6234^3^1490
 ;;^UTILITY(U,$J,601.751,1603,0)
 ;;=6234^4^1491
 ;;^UTILITY(U,$J,601.751,1604,0)
 ;;=6235^1^1492
 ;;^UTILITY(U,$J,601.751,1605,0)
 ;;=6235^2^1493
 ;;^UTILITY(U,$J,601.751,1606,0)
 ;;=6235^3^1664
 ;;^UTILITY(U,$J,601.751,1607,0)
 ;;=6235^4^1495
 ;;^UTILITY(U,$J,601.751,1608,0)
 ;;=6235^5^1496
 ;;^UTILITY(U,$J,601.751,1609,0)
 ;;=6235^6^743
 ;;^UTILITY(U,$J,601.751,1610,0)
 ;;=6235^7^100894
 ;;^UTILITY(U,$J,601.751,1611,0)
 ;;=6236^1^237
 ;;^UTILITY(U,$J,601.751,1612,0)
 ;;=6236^2^1478
 ;;^UTILITY(U,$J,601.751,1613,0)
 ;;=6236^3^1479
 ;;^UTILITY(U,$J,601.751,1614,0)
 ;;=6236^4^1480
 ;;^UTILITY(U,$J,601.751,1615,0)
 ;;=6236^5^1481
 ;;^UTILITY(U,$J,601.751,1616,0)
 ;;=6236^6^1482
 ;;^UTILITY(U,$J,601.751,1617,0)
 ;;=6237^1^1820
 ;;^UTILITY(U,$J,601.751,1618,0)
 ;;=6237^2^1821
 ;;^UTILITY(U,$J,601.751,1619,0)
 ;;=6237^3^1822
 ;;^UTILITY(U,$J,601.751,1620,0)
 ;;=6237^4^1823
 ;;^UTILITY(U,$J,601.751,1621,0)
 ;;=6237^5^1824
 ;;^UTILITY(U,$J,601.751,1622,0)
 ;;=6237^6^1825
 ;;^UTILITY(U,$J,601.751,1623,0)
 ;;=6237^7^1826
 ;;^UTILITY(U,$J,601.751,1624,0)
 ;;=6238^1^237
 ;;^UTILITY(U,$J,601.751,1625,0)
 ;;=6238^2^1478
 ;;^UTILITY(U,$J,601.751,1626,0)
 ;;=6238^3^1479
 ;;^UTILITY(U,$J,601.751,1627,0)
 ;;=6238^4^1480
 ;;^UTILITY(U,$J,601.751,1628,0)
 ;;=6238^5^1481
 ;;^UTILITY(U,$J,601.751,1629,0)
 ;;=6238^6^1482
 ;;^UTILITY(U,$J,601.751,1630,0)
 ;;=6239^1^1827
 ;;^UTILITY(U,$J,601.751,1631,0)
 ;;=6239^2^1503
 ;;^UTILITY(U,$J,601.751,1632,0)
 ;;=6239^3^1828
 ;;^UTILITY(U,$J,601.751,1633,0)
 ;;=6239^4^1825
 ;;^UTILITY(U,$J,601.751,1634,0)
 ;;=6239^5^1829
 ;;^UTILITY(U,$J,601.751,1635,0)
 ;;=6239^6^1830
 ;;^UTILITY(U,$J,601.751,1636,0)
 ;;=6239^7^1831
 ;;^UTILITY(U,$J,601.751,1637,0)
 ;;=6240^1^237
 ;;^UTILITY(U,$J,601.751,1638,0)
 ;;=6240^2^1478
 ;;^UTILITY(U,$J,601.751,1639,0)
 ;;=6240^3^1479
 ;;^UTILITY(U,$J,601.751,1640,0)
 ;;=6240^4^1480
 ;;^UTILITY(U,$J,601.751,1641,0)
 ;;=6240^5^1481
 ;;^UTILITY(U,$J,601.751,1642,0)
 ;;=6240^6^1482
 ;;^UTILITY(U,$J,601.751,1643,0)
 ;;=6241^1^1832
 ;;^UTILITY(U,$J,601.751,1644,0)
 ;;=6241^2^1503
 ;;^UTILITY(U,$J,601.751,1645,0)
 ;;=6241^3^1828
 ;;^UTILITY(U,$J,601.751,1646,0)
 ;;=6241^4^1825
 ;;^UTILITY(U,$J,601.751,1647,0)
 ;;=6241^5^1829
 ;;^UTILITY(U,$J,601.751,1648,0)
 ;;=6241^6^1830
 ;;^UTILITY(U,$J,601.751,1649,0)
 ;;=6241^7^1831
 ;;^UTILITY(U,$J,601.751,1650,0)
 ;;=6242^1^237
 ;;^UTILITY(U,$J,601.751,1651,0)
 ;;=6242^2^241
 ;;^UTILITY(U,$J,601.751,1652,0)
 ;;=6243^1^237
 ;;^UTILITY(U,$J,601.751,1653,0)
 ;;=6243^2^241
 ;;^UTILITY(U,$J,601.751,1654,0)
 ;;=6244^1^237
 ;;^UTILITY(U,$J,601.751,1655,0)
 ;;=6244^2^1508
 ;;^UTILITY(U,$J,601.751,1656,0)
 ;;=6244^3^1509
 ;;^UTILITY(U,$J,601.751,1657,0)
 ;;=6245^1^237
 ;;^UTILITY(U,$J,601.751,1658,0)
 ;;=6245^2^1510
 ;;^UTILITY(U,$J,601.751,1659,0)
 ;;=6245^3^1511
 ;;^UTILITY(U,$J,601.751,1660,0)
 ;;=6246^1^237
 ;;^UTILITY(U,$J,601.751,1661,0)
 ;;=6246^2^1510
 ;;^UTILITY(U,$J,601.751,1662,0)
 ;;=6246^3^1511
 ;;^UTILITY(U,$J,601.751,1663,0)
 ;;=6247^1^237
 ;;^UTILITY(U,$J,601.751,1664,0)
 ;;=6247^2^241
 ;;^UTILITY(U,$J,601.751,1665,0)
 ;;=6247^3^1512
 ;;^UTILITY(U,$J,601.751,1666,0)
 ;;=6247^4^1513
 ;;^UTILITY(U,$J,601.751,1667,0)
 ;;=6248^1^237
 ;;^UTILITY(U,$J,601.751,1668,0)
 ;;=6248^2^241
 ;;^UTILITY(U,$J,601.751,1669,0)
 ;;=6248^3^1512
 ;;^UTILITY(U,$J,601.751,1670,0)
 ;;=6248^4^1513
 ;;^UTILITY(U,$J,601.751,1671,0)
 ;;=6249^1^237
 ;;^UTILITY(U,$J,601.751,1672,0)
 ;;=6249^2^241
 ;;^UTILITY(U,$J,601.751,1673,0)
 ;;=6250^1^1
 ;;^UTILITY(U,$J,601.751,1674,0)
 ;;=6250^2^3
 ;;^UTILITY(U,$J,601.751,1675,0)
 ;;=6250^3^4
 ;;^UTILITY(U,$J,601.751,1676,0)
 ;;=6250^4^5
 ;;^UTILITY(U,$J,601.751,1677,0)
 ;;=6250^5^1457
 ;;^UTILITY(U,$J,601.751,1678,0)
 ;;=6251^1^1
 ;;^UTILITY(U,$J,601.751,1679,0)
 ;;=6251^2^3
 ;;^UTILITY(U,$J,601.751,1680,0)
 ;;=6251^3^4
 ;;^UTILITY(U,$J,601.751,1681,0)
 ;;=6251^4^5
 ;;^UTILITY(U,$J,601.751,1682,0)
 ;;=6251^5^1457
 ;;^UTILITY(U,$J,601.751,1683,0)
 ;;=6252^1^1
 ;;^UTILITY(U,$J,601.751,1684,0)
 ;;=6252^2^3
 ;;^UTILITY(U,$J,601.751,1685,0)
 ;;=6252^3^4
 ;;^UTILITY(U,$J,601.751,1686,0)
 ;;=6252^4^5
 ;;^UTILITY(U,$J,601.751,1687,0)
 ;;=6252^5^1457
 ;;^UTILITY(U,$J,601.751,1688,0)
 ;;=6253^1^1
 ;;^UTILITY(U,$J,601.751,1689,0)
 ;;=6253^2^3
 ;;^UTILITY(U,$J,601.751,1690,0)
 ;;=6253^3^4
 ;;^UTILITY(U,$J,601.751,1691,0)
 ;;=6253^4^5
 ;;^UTILITY(U,$J,601.751,1692,0)
 ;;=6253^5^1457
 ;;^UTILITY(U,$J,601.751,1693,0)
 ;;=6254^1^1
 ;;^UTILITY(U,$J,601.751,1694,0)
 ;;=6254^2^3
 ;;^UTILITY(U,$J,601.751,1695,0)
 ;;=6254^3^4
 ;;^UTILITY(U,$J,601.751,1696,0)
 ;;=6254^4^5
 ;;^UTILITY(U,$J,601.751,1697,0)
 ;;=6254^5^1457
 ;;^UTILITY(U,$J,601.751,1698,0)
 ;;=6255^1^1
 ;;^UTILITY(U,$J,601.751,1699,0)
 ;;=6255^2^3
 ;;^UTILITY(U,$J,601.751,1700,0)
 ;;=6255^3^4
 ;;^UTILITY(U,$J,601.751,1701,0)
 ;;=6255^4^5
 ;;^UTILITY(U,$J,601.751,1702,0)
 ;;=6255^5^1457
 ;;^UTILITY(U,$J,601.751,1703,0)
 ;;=6256^1^1
 ;;^UTILITY(U,$J,601.751,1704,0)
 ;;=6256^2^3
 ;;^UTILITY(U,$J,601.751,1705,0)
 ;;=6256^3^4
 ;;^UTILITY(U,$J,601.751,1706,0)
 ;;=6256^4^5
 ;;^UTILITY(U,$J,601.751,1707,0)
 ;;=6256^5^1457
 ;;^UTILITY(U,$J,601.751,1708,0)
 ;;=6257^1^1
 ;;^UTILITY(U,$J,601.751,1709,0)
 ;;=6257^2^3
 ;;^UTILITY(U,$J,601.751,1710,0)
 ;;=6257^3^4
 ;;^UTILITY(U,$J,601.751,1711,0)
 ;;=6257^4^5
 ;;^UTILITY(U,$J,601.751,1712,0)
 ;;=6257^5^1457
 ;;^UTILITY(U,$J,601.751,1713,0)
 ;;=6258^1^1