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