YTQQI00A	;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,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