YTQQI00B	;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,1714,0)
	;;=6258^2^3
	;;^UTILITY(U,$J,601.751,1715,0)
	;;=6258^3^4
	;;^UTILITY(U,$J,601.751,1716,0)
	;;=6258^4^5
	;;^UTILITY(U,$J,601.751,1717,0)
	;;=6258^5^1457
	;;^UTILITY(U,$J,601.751,1718,0)
	;;=6259^1^1
	;;^UTILITY(U,$J,601.751,1719,0)
	;;=6259^2^3
	;;^UTILITY(U,$J,601.751,1720,0)
	;;=6259^3^4
	;;^UTILITY(U,$J,601.751,1721,0)
	;;=6259^4^5
	;;^UTILITY(U,$J,601.751,1722,0)
	;;=6259^5^1457
	;;^UTILITY(U,$J,601.751,1723,0)
	;;=6260^1^1
	;;^UTILITY(U,$J,601.751,1724,0)
	;;=6260^2^3
	;;^UTILITY(U,$J,601.751,1725,0)
	;;=6260^3^4
	;;^UTILITY(U,$J,601.751,1726,0)
	;;=6260^4^5
	;;^UTILITY(U,$J,601.751,1727,0)
	;;=6260^5^1457
	;;^UTILITY(U,$J,601.751,1728,0)
	;;=6261^1^1
	;;^UTILITY(U,$J,601.751,1729,0)
	;;=6261^2^3
	;;^UTILITY(U,$J,601.751,1730,0)
	;;=6261^3^4
	;;^UTILITY(U,$J,601.751,1731,0)
	;;=6261^4^5
	;;^UTILITY(U,$J,601.751,1732,0)
	;;=6261^5^1457
	;;^UTILITY(U,$J,601.751,1733,0)
	;;=6262^1^1
	;;^UTILITY(U,$J,601.751,1734,0)
	;;=6262^2^3
	;;^UTILITY(U,$J,601.751,1735,0)
	;;=6262^3^4
	;;^UTILITY(U,$J,601.751,1736,0)
	;;=6262^4^5
	;;^UTILITY(U,$J,601.751,1737,0)
	;;=6262^5^1457
	;;^UTILITY(U,$J,601.751,1738,0)
	;;=6263^1^1
	;;^UTILITY(U,$J,601.751,1739,0)
	;;=6263^2^3
	;;^UTILITY(U,$J,601.751,1740,0)
	;;=6263^3^4
	;;^UTILITY(U,$J,601.751,1741,0)
	;;=6263^4^5
	;;^UTILITY(U,$J,601.751,1742,0)
	;;=6263^5^1457
	;;^UTILITY(U,$J,601.751,1743,0)
	;;=6264^1^1
	;;^UTILITY(U,$J,601.751,1744,0)
	;;=6264^2^3
	;;^UTILITY(U,$J,601.751,1745,0)
	;;=6264^3^4
	;;^UTILITY(U,$J,601.751,1746,0)
	;;=6264^4^5
	;;^UTILITY(U,$J,601.751,1747,0)
	;;=6264^5^1457
	;;^UTILITY(U,$J,601.751,1748,0)
	;;=6265^1^1
	;;^UTILITY(U,$J,601.751,1749,0)
	;;=6265^2^3
	;;^UTILITY(U,$J,601.751,1750,0)
	;;=6265^3^4
	;;^UTILITY(U,$J,601.751,1751,0)
	;;=6265^4^5
	;;^UTILITY(U,$J,601.751,1752,0)
	;;=6265^5^1457
	;;^UTILITY(U,$J,601.751,1753,0)
	;;=6266^1^1
	;;^UTILITY(U,$J,601.751,1754,0)
	;;=6266^2^3
	;;^UTILITY(U,$J,601.751,1755,0)
	;;=6266^3^4
	;;^UTILITY(U,$J,601.751,1756,0)
	;;=6266^4^5
	;;^UTILITY(U,$J,601.751,1757,0)
	;;=6266^5^1457
	;;^UTILITY(U,$J,601.751,1758,0)
	;;=6267^1^1
	;;^UTILITY(U,$J,601.751,1759,0)
	;;=6267^2^3
	;;^UTILITY(U,$J,601.751,1760,0)
	;;=6267^3^4
	;;^UTILITY(U,$J,601.751,1761,0)
	;;=6267^4^5
	;;^UTILITY(U,$J,601.751,1762,0)
	;;=6267^5^1457
	;;^UTILITY(U,$J,601.751,1763,0)
	;;=6268^1^1
	;;^UTILITY(U,$J,601.751,1764,0)
	;;=6268^2^3
	;;^UTILITY(U,$J,601.751,1765,0)
	;;=6268^3^4
	;;^UTILITY(U,$J,601.751,1766,0)
	;;=6268^4^5
	;;^UTILITY(U,$J,601.751,1767,0)
	;;=6268^5^1457
	;;^UTILITY(U,$J,601.751,1768,0)
	;;=6269^1^1
	;;^UTILITY(U,$J,601.751,1769,0)
	;;=6269^2^3
	;;^UTILITY(U,$J,601.751,1770,0)
	;;=6269^3^4
	;;^UTILITY(U,$J,601.751,1771,0)
	;;=6269^4^5
	;;^UTILITY(U,$J,601.751,1772,0)
	;;=6269^5^1457
	;;^UTILITY(U,$J,601.751,1773,0)
	;;=6270^1^1
	;;^UTILITY(U,$J,601.751,1774,0)
	;;=6270^2^3
	;;^UTILITY(U,$J,601.751,1775,0)
	;;=6270^3^4
	;;^UTILITY(U,$J,601.751,1776,0)
	;;=6270^4^5
	;;^UTILITY(U,$J,601.751,1777,0)
	;;=6270^5^1457
	;;^UTILITY(U,$J,601.751,1778,0)
	;;=6271^1^1
	;;^UTILITY(U,$J,601.751,1779,0)
	;;=6271^2^3
	;;^UTILITY(U,$J,601.751,1780,0)
	;;=6271^3^4
	;;^UTILITY(U,$J,601.751,1781,0)
	;;=6271^4^5
	;;^UTILITY(U,$J,601.751,1782,0)
	;;=6271^5^1457
	;;^UTILITY(U,$J,601.751,1783,0)
	;;=6272^1^1
	;;^UTILITY(U,$J,601.751,1784,0)
	;;=6272^2^3
	;;^UTILITY(U,$J,601.751,1785,0)
	;;=6272^3^4
	;;^UTILITY(U,$J,601.751,1786,0)
	;;=6272^4^5
	;;^UTILITY(U,$J,601.751,1787,0)
	;;=6272^5^1457
	;;^UTILITY(U,$J,601.751,1788,0)
	;;=6273^1^237
	;;^UTILITY(U,$J,601.751,1789,0)
	;;=6273^2^241
	;;^UTILITY(U,$J,601.751,1790,0)
	;;=6274^1^1514
	;;^UTILITY(U,$J,601.751,1791,0)
	;;=6274^2^1515
	;;^UTILITY(U,$J,601.751,1792,0)
	;;=6274^3^1516
	;;^UTILITY(U,$J,601.751,1793,0)
	;;=6274^4^1517
	;;^UTILITY(U,$J,601.751,1794,0)
	;;=6274^5^1518
	;;^UTILITY(U,$J,601.751,1795,0)
	;;=6274^6^1519
	;;^UTILITY(U,$J,601.751,1796,0)
	;;=6274^7^1520
	;;^UTILITY(U,$J,601.751,1797,0)
	;;=6274^8^743
	;;^UTILITY(U,$J,601.751,1798,0)
	;;=6275^1^1
	;;^UTILITY(U,$J,601.751,1799,0)
	;;=6275^2^3
	;;^UTILITY(U,$J,601.751,1800,0)
	;;=6275^3^4
	;;^UTILITY(U,$J,601.751,1801,0)
	;;=6275^4^5
	;;^UTILITY(U,$J,601.751,1802,0)
	;;=6275^5^1457
	;;^UTILITY(U,$J,601.751,1803,0)
	;;=6276^1^1521
	;;^UTILITY(U,$J,601.751,1804,0)
	;;=6276^2^1522
	;;^UTILITY(U,$J,601.751,1805,0)
	;;=6276^3^1523
	;;^UTILITY(U,$J,601.751,1806,0)
	;;=6277^1^237
	;;^UTILITY(U,$J,601.751,1807,0)
	;;=6277^2^1513
	;;^UTILITY(U,$J,601.751,1808,0)
	;;=6277^3^1524
	;;^UTILITY(U,$J,601.751,1809,0)
	;;=6277^4^241
	;;^UTILITY(U,$J,601.751,1810,0)
	;;=6278^1^1525
	;;^UTILITY(U,$J,601.751,1811,0)
	;;=6278^2^1526
	;;^UTILITY(U,$J,601.751,1812,0)
	;;=6278^3^1527
	;;^UTILITY(U,$J,601.751,1813,0)
	;;=6278^4^1528
	;;^UTILITY(U,$J,601.751,1814,0)
	;;=6278^5^1665
	;;^UTILITY(U,$J,601.751,1815,0)
	;;=6278^6^1530
	;;^UTILITY(U,$J,601.751,1816,0)
	;;=6278^7^1531
	;;^UTILITY(U,$J,601.751,1817,0)
	;;=6278^8^1532
	;;^UTILITY(U,$J,601.751,1818,0)
	;;=6279^1^237
	;;^UTILITY(U,$J,601.751,1819,0)
	;;=6279^2^241
	;;^UTILITY(U,$J,601.751,1820,0)
	;;=6280^1^1
	;;^UTILITY(U,$J,601.751,1821,0)
	;;=6280^2^1533
	;;^UTILITY(U,$J,601.751,1822,0)
	;;=6280^3^1534
	;;^UTILITY(U,$J,601.751,1823,0)
	;;=6280^4^1535
	;;^UTILITY(U,$J,601.751,1824,0)
	;;=6280^5^1536
	;;^UTILITY(U,$J,601.751,1825,0)
	;;=6280^6^1537
	;;^UTILITY(U,$J,601.751,1826,0)
	;;=6280^7^1538
	;;^UTILITY(U,$J,601.751,1827,0)
	;;=6280^8^1539
	;;^UTILITY(U,$J,601.751,1828,0)
	;;=6280^9^1540
	;;^UTILITY(U,$J,601.751,1829,0)
	;;=6281^1^237
	;;^UTILITY(U,$J,601.751,1830,0)
	;;=6281^2^241
	;;^UTILITY(U,$J,601.751,1831,0)
	;;=6281^3^1513
	;;^UTILITY(U,$J,601.751,1832,0)
	;;=6282^1^237
	;;^UTILITY(U,$J,601.751,1833,0)
	;;=6282^2^241
	;;^UTILITY(U,$J,601.751,1834,0)
	;;=6282^3^1512
	;;^UTILITY(U,$J,601.751,1835,0)
	;;=6283^1^1541
	;;^UTILITY(U,$J,601.751,1836,0)
	;;=6283^2^1542
	;;^UTILITY(U,$J,601.751,1837,0)
	;;=6283^3^1543
	;;^UTILITY(U,$J,601.751,1838,0)
	;;=6283^4^1544
	;;^UTILITY(U,$J,601.751,1839,0)
	;;=6284^1^237
	;;^UTILITY(U,$J,601.751,1840,0)
	;;=6284^2^241
	;;^UTILITY(U,$J,601.751,1841,0)
	;;=6285^1^1545
	;;^UTILITY(U,$J,601.751,1842,0)
	;;=6285^2^1546
	;;^UTILITY(U,$J,601.751,1843,0)
	;;=6285^3^1547
	;;^UTILITY(U,$J,601.751,1844,0)
	;;=6285^4^1548
	;;^UTILITY(U,$J,601.751,1845,0)
	;;=6285^5^1549
	;;^UTILITY(U,$J,601.751,1846,0)
	;;=6285^6^1550
	;;^UTILITY(U,$J,601.751,1847,0)
	;;=6285^7^1551
	;;^UTILITY(U,$J,601.751,1848,0)
	;;=6285^8^1552
	;;^UTILITY(U,$J,601.751,1849,0)
	;;=6285^9^1553
	;;^UTILITY(U,$J,601.751,1850,0)
	;;=6285^10^1554
	;;^UTILITY(U,$J,601.751,1851,0)
	;;=6285^11^1555
	;;^UTILITY(U,$J,601.751,1852,0)
	;;=6285^12^1556
	;;^UTILITY(U,$J,601.751,1853,0)
	;;=6285^13^1557
	;;^UTILITY(U,$J,601.751,1854,0)
	;;=6286^1^1562
	;;^UTILITY(U,$J,601.751,1855,0)
	;;=6286^2^1563
	;;^UTILITY(U,$J,601.751,1856,0)
	;;=6286^3^1564
	;;^UTILITY(U,$J,601.751,1857,0)
	;;=6286^4^1565
	;;^UTILITY(U,$J,601.751,1858,0)
	;;=6286^5^1566
	;;^UTILITY(U,$J,601.751,1859,0)
	;;=6286^6^1614
	;;^UTILITY(U,$J,601.751,1860,0)
	;;=6286^7^1567
	;;^UTILITY(U,$J,601.751,1861,0)
	;;=6286^8^1622
	;;^UTILITY(U,$J,601.751,1862,0)
	;;=6286^9^1568
	;;^UTILITY(U,$J,601.751,1863,0)
	;;=6286^10^1569
	;;^UTILITY(U,$J,601.751,1864,0)
	;;=6286^11^1570
	;;^UTILITY(U,$J,601.751,1865,0)
	;;=6286^12^1571
	;;^UTILITY(U,$J,601.751,1866,0)
	;;=6286^13^1819
	;;^UTILITY(U,$J,601.751,1867,0)
	;;=6286^14^1573
	;;^UTILITY(U,$J,601.751,1868,0)
	;;=6286^15^1574
	;;^UTILITY(U,$J,601.751,1869,0)
	;;=6286^16^1575
	;;^UTILITY(U,$J,601.751,1870,0)
	;;=6286^17^1576
	;;^UTILITY(U,$J,601.751,1871,0)
	;;=6286^18^1577
	;;^UTILITY(U,$J,601.751,1872,0)
	;;=6286^19^1653
	;;^UTILITY(U,$J,601.751,1873,0)
	;;=6286^20^1655
	;;^UTILITY(U,$J,601.751,1874,0)
	;;=6286^21^1659
	;;^UTILITY(U,$J,601.751,1875,0)
	;;=6287^1^237
	;;^UTILITY(U,$J,601.751,1876,0)
	;;=6287^2^241
	;;^UTILITY(U,$J,601.751,1877,0)
	;;=6288^1^1
	;;^UTILITY(U,$J,601.751,1878,0)
	;;=6288^2^1579
	;;^UTILITY(U,$J,601.751,1879,0)
	;;=6288^3^1580
	;;^UTILITY(U,$J,601.751,1880,0)
	;;=6288^4^743
	;;^UTILITY(U,$J,601.751,1881,0)
	;;=6289^1^237
	;;^UTILITY(U,$J,601.751,1882,0)
	;;=6289^2^241
	;;^UTILITY(U,$J,601.751,1883,0)
	;;=6290^1^237
	;;^UTILITY(U,$J,601.751,1884,0)
	;;=6290^2^241
	;;^UTILITY(U,$J,601.751,1885,0)
	;;=6291^1^237
	;;^UTILITY(U,$J,601.751,1886,0)
	;;=6291^2^241
	;;^UTILITY(U,$J,601.751,1887,0)
	;;=6292^1^1581
	;;^UTILITY(U,$J,601.751,1888,0)
	;;=6292^2^1582
	;;^UTILITY(U,$J,601.751,1889,0)
	;;=6292^3^1583
	;;^UTILITY(U,$J,601.751,1890,0)
	;;=6292^4^1584
	;;^UTILITY(U,$J,601.751,1891,0)
	;;=6292^5^1585
	;;^UTILITY(U,$J,601.751,1892,0)
	;;=6292^6^1525
	;;^UTILITY(U,$J,601.751,1893,0)
	;;=6292^7^1586
	;;^UTILITY(U,$J,601.751,1894,0)
	;;=6292^8^1587
	;;^UTILITY(U,$J,601.751,1895,0)
	;;=6292^9^1588
	;;^UTILITY(U,$J,601.751,1896,0)
	;;=6292^10^743
	;;^UTILITY(U,$J,601.751,1897,0)
	;;=47^2^1333