YTQQI00E ;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,8757,0)
 ;;=2693^2^241
 ;;^UTILITY(U,$J,601.751,8758,0)
 ;;=2694^1^237
 ;;^UTILITY(U,$J,601.751,8759,0)
 ;;=2694^2^241
 ;;^UTILITY(U,$J,601.751,8760,0)
 ;;=2695^1^237
 ;;^UTILITY(U,$J,601.751,8761,0)
 ;;=2695^2^241
 ;;^UTILITY(U,$J,601.751,8762,0)
 ;;=2696^1^237
 ;;^UTILITY(U,$J,601.751,8763,0)
 ;;=2696^2^241
 ;;^UTILITY(U,$J,601.751,8764,0)
 ;;=2697^1^237
 ;;^UTILITY(U,$J,601.751,8765,0)
 ;;=2697^2^241
 ;;^UTILITY(U,$J,601.751,8766,0)
 ;;=2698^1^237
 ;;^UTILITY(U,$J,601.751,8767,0)
 ;;=2698^2^241
 ;;^UTILITY(U,$J,601.751,8768,0)
 ;;=2699^1^237
 ;;^UTILITY(U,$J,601.751,8769,0)
 ;;=2699^2^241
 ;;^UTILITY(U,$J,601.751,8775,0)
 ;;=471^1^237
 ;;^UTILITY(U,$J,601.751,8776,0)
 ;;=471^2^241
 ;;^UTILITY(U,$J,601.751,8777,0)
 ;;=351^1^241
 ;;^UTILITY(U,$J,601.751,8778,0)
 ;;=351^2^237
 ;;^UTILITY(U,$J,601.751,8779,0)
 ;;=469^1^1458
 ;;^UTILITY(U,$J,601.751,8780,0)
 ;;=469^2^1459
 ;;^UTILITY(U,$J,601.751,8781,0)
 ;;=469^3^1460
 ;;^UTILITY(U,$J,601.751,8782,0)
 ;;=469^4^1461
 ;;^UTILITY(U,$J,601.751,8783,0)
 ;;=488^1^1462
 ;;^UTILITY(U,$J,601.751,8784,0)
 ;;=488^2^1463
 ;;^UTILITY(U,$J,601.751,8785,0)
 ;;=488^3^1464
 ;;^UTILITY(U,$J,601.751,10072,0)
 ;;=5391^1^1667
 ;;^UTILITY(U,$J,601.751,10073,0)
 ;;=5391^2^1668
 ;;^UTILITY(U,$J,601.751,10074,0)
 ;;=5391^3^1669
 ;;^UTILITY(U,$J,601.751,10075,0)
 ;;=5391^4^1670
 ;;^UTILITY(U,$J,601.751,10076,0)
 ;;=5391^5^1671
 ;;^UTILITY(U,$J,601.751,10077,0)
 ;;=5391^6^1672
 ;;^UTILITY(U,$J,601.751,10078,0)
 ;;=5391^7^1673
 ;;^UTILITY(U,$J,601.751,10079,0)
 ;;=5391^8^1674
 ;;^UTILITY(U,$J,601.751,10080,0)
 ;;=5391^9^1675
 ;;^UTILITY(U,$J,601.751,10081,0)
 ;;=5391^10^1676
 ;;^UTILITY(U,$J,601.751,10082,0)
 ;;=5391^11^1677
 ;;^UTILITY(U,$J,601.751,10083,0)
 ;;=5391^12^1678
 ;;^UTILITY(U,$J,601.751,10084,0)
 ;;=5391^13^1679
 ;;^UTILITY(U,$J,601.751,10085,0)
 ;;=5391^14^1680
 ;;^UTILITY(U,$J,601.751,10086,0)
 ;;=5391^15^1681
 ;;^UTILITY(U,$J,601.751,10087,0)
 ;;=5391^16^1682
 ;;^UTILITY(U,$J,601.751,10088,0)
 ;;=5391^17^1683
 ;;^UTILITY(U,$J,601.751,10089,0)
 ;;=5391^18^1811
 ;;^UTILITY(U,$J,601.751,10090,0)
 ;;=5391^19^1812
 ;;^UTILITY(U,$J,601.751,10091,0)
 ;;=5391^20^1686
 ;;^UTILITY(U,$J,601.751,10092,0)
 ;;=5391^21^1687
 ;;^UTILITY(U,$J,601.751,10093,0)
 ;;=5391^22^1688
 ;;^UTILITY(U,$J,601.751,10094,0)
 ;;=5392^1^1689
 ;;^UTILITY(U,$J,601.751,10095,0)
 ;;=5392^2^1690
 ;;^UTILITY(U,$J,601.751,10096,0)
 ;;=5392^3^1691
 ;;^UTILITY(U,$J,601.751,10097,0)
 ;;=5392^4^1692
 ;;^UTILITY(U,$J,601.751,10098,0)
 ;;=5393^1^1693
 ;;^UTILITY(U,$J,601.751,10099,0)
 ;;=5393^2^1694
 ;;^UTILITY(U,$J,601.751,10100,0)
 ;;=5393^3^1695
 ;;^UTILITY(U,$J,601.751,10101,0)
 ;;=5393^4^1696
 ;;^UTILITY(U,$J,601.751,10102,0)
 ;;=5394^1^1697
 ;;^UTILITY(U,$J,601.751,10103,0)
 ;;=5394^2^1698
 ;;^UTILITY(U,$J,601.751,10104,0)
 ;;=5394^3^1699
 ;;^UTILITY(U,$J,601.751,10105,0)
 ;;=5395^1^1700
 ;;^UTILITY(U,$J,601.751,10106,0)
 ;;=5395^2^1701
 ;;^UTILITY(U,$J,601.751,10107,0)
 ;;=5395^3^1702
 ;;^UTILITY(U,$J,601.751,10108,0)
 ;;=5395^4^1703
 ;;^UTILITY(U,$J,601.751,10109,0)
 ;;=5395^5^1704
 ;;^UTILITY(U,$J,601.751,10110,0)
 ;;=5396^1^1705
 ;;^UTILITY(U,$J,601.751,10111,0)
 ;;=5396^2^1706
 ;;^UTILITY(U,$J,601.751,10112,0)
 ;;=5396^3^1707
 ;;^UTILITY(U,$J,601.751,10113,0)
 ;;=5396^4^1708
 ;;^UTILITY(U,$J,601.751,10114,0)
 ;;=5396^5^1709
 ;;^UTILITY(U,$J,601.751,10115,0)
 ;;=5397^1^1710
 ;;^UTILITY(U,$J,601.751,10116,0)
 ;;=5397^2^1711
 ;;^UTILITY(U,$J,601.751,10117,0)
 ;;=5397^3^1712
 ;;^UTILITY(U,$J,601.751,10118,0)
 ;;=5397^4^1713
 ;;^UTILITY(U,$J,601.751,10119,0)
 ;;=5398^1^1714
 ;;^UTILITY(U,$J,601.751,10120,0)
 ;;=5398^2^1715
 ;;^UTILITY(U,$J,601.751,10121,0)
 ;;=5398^3^1716
 ;;^UTILITY(U,$J,601.751,10122,0)
 ;;=5398^4^1717
 ;;^UTILITY(U,$J,601.751,10123,0)
 ;;=5398^5^1718
 ;;^UTILITY(U,$J,601.751,10124,0)
 ;;=5399^1^1719
 ;;^UTILITY(U,$J,601.751,10125,0)
 ;;=5399^2^1720
 ;;^UTILITY(U,$J,601.751,10126,0)
 ;;=5399^3^1721
 ;;^UTILITY(U,$J,601.751,10127,0)
 ;;=5399^4^1722
 ;;^UTILITY(U,$J,601.751,10128,0)
 ;;=5399^5^1723
 ;;^UTILITY(U,$J,601.751,10129,0)
 ;;=5399^6^1724
 ;;^UTILITY(U,$J,601.751,10130,0)
 ;;=5399^7^1725
 ;;^UTILITY(U,$J,601.751,10131,0)
 ;;=5399^8^1726
 ;;^UTILITY(U,$J,601.751,10132,0)
 ;;=5399^9^1727
 ;;^UTILITY(U,$J,601.751,10133,0)
 ;;=5399^10^1728
 ;;^UTILITY(U,$J,601.751,10134,0)
 ;;=5399^11^1729
 ;;^UTILITY(U,$J,601.751,10135,0)
 ;;=5399^12^1730
 ;;^UTILITY(U,$J,601.751,10136,0)
 ;;=5399^13^1731
 ;;^UTILITY(U,$J,601.751,10137,0)
 ;;=5399^14^1732
 ;;^UTILITY(U,$J,601.751,10138,0)
 ;;=5399^15^1733
 ;;^UTILITY(U,$J,601.751,10139,0)
 ;;=5399^16^743
 ;;^UTILITY(U,$J,601.751,10140,0)
 ;;=5399^17^1688
 ;;^UTILITY(U,$J,601.751,10141,0)
 ;;=5400^1^267
 ;;^UTILITY(U,$J,601.751,10142,0)
 ;;=5400^2^686
 ;;^UTILITY(U,$J,601.751,10143,0)
 ;;=5400^3^1734
 ;;^UTILITY(U,$J,601.751,10144,0)
 ;;=5400^4^265
 ;;^UTILITY(U,$J,601.751,10145,0)
 ;;=5400^5^212
 ;;^UTILITY(U,$J,601.751,10146,0)
 ;;=5401^1^1735
 ;;^UTILITY(U,$J,601.751,10147,0)
 ;;=5401^2^1736
 ;;^UTILITY(U,$J,601.751,10148,0)
 ;;=5401^3^1737
 ;;^UTILITY(U,$J,601.751,10149,0)
 ;;=5401^4^1738
 ;;^UTILITY(U,$J,601.751,10150,0)
 ;;=5401^5^1739
 ;;^UTILITY(U,$J,601.751,10151,0)
 ;;=5401^6^1740
 ;;^UTILITY(U,$J,601.751,10152,0)
 ;;=5401^7^1741
 ;;^UTILITY(U,$J,601.751,10153,0)
 ;;=5401^8^1742
 ;;^UTILITY(U,$J,601.751,10154,0)
 ;;=5401^9^1743
 ;;^UTILITY(U,$J,601.751,10155,0)
 ;;=5401^10^743
 ;;^UTILITY(U,$J,601.751,10156,0)
 ;;=5401^11^1688
 ;;^UTILITY(U,$J,601.751,10157,0)
 ;;=5402^1^1744
 ;;^UTILITY(U,$J,601.751,10158,0)
 ;;=5402^2^1745
 ;;^UTILITY(U,$J,601.751,10159,0)
 ;;=5402^3^1746
 ;;^UTILITY(U,$J,601.751,10160,0)
 ;;=5402^4^1747
 ;;^UTILITY(U,$J,601.751,10161,0)
 ;;=5402^5^1748
 ;;^UTILITY(U,$J,601.751,10162,0)
 ;;=5402^6^1749
 ;;^UTILITY(U,$J,601.751,10163,0)
 ;;=5402^7^1750
 ;;^UTILITY(U,$J,601.751,10164,0)
 ;;=5402^8^1751
 ;;^UTILITY(U,$J,601.751,10165,0)
 ;;=5402^9^1752
 ;;^UTILITY(U,$J,601.751,10166,0)
 ;;=5402^10^1753
 ;;^UTILITY(U,$J,601.751,10167,0)
 ;;=5402^11^1677
 ;;^UTILITY(U,$J,601.751,10168,0)
 ;;=5402^12^1754
 ;;^UTILITY(U,$J,601.751,10169,0)
 ;;=5402^13^1755
 ;;^UTILITY(U,$J,601.751,10170,0)
 ;;=5402^14^1756
 ;;^UTILITY(U,$J,601.751,10171,0)
 ;;=5402^15^1757
 ;;^UTILITY(U,$J,601.751,10172,0)
 ;;=5402^16^1758
 ;;^UTILITY(U,$J,601.751,10173,0)
 ;;=5402^17^1678
 ;;^UTILITY(U,$J,601.751,10174,0)
 ;;=5402^18^1759
 ;;^UTILITY(U,$J,601.751,10175,0)
 ;;=5402^19^1760
 ;;^UTILITY(U,$J,601.751,10176,0)
 ;;=5402^20^743
 ;;^UTILITY(U,$J,601.751,10177,0)
 ;;=5402^21^1688
 ;;^UTILITY(U,$J,601.751,10178,0)
 ;;=5403^1^1761
 ;;^UTILITY(U,$J,601.751,10179,0)
 ;;=5403^2^1762
 ;;^UTILITY(U,$J,601.751,10180,0)
 ;;=5403^3^1525
 ;;^UTILITY(U,$J,601.751,10181,0)
 ;;=5403^4^1763
 ;;^UTILITY(U,$J,601.751,10182,0)
 ;;=5403^5^1720
 ;;^UTILITY(U,$J,601.751,10183,0)
 ;;=5403^6^1764
 ;;^UTILITY(U,$J,601.751,10184,0)
 ;;=5403^7^1765
 ;;^UTILITY(U,$J,601.751,10185,0)
 ;;=5403^8^1766
 ;;^UTILITY(U,$J,601.751,10186,0)
 ;;=5403^9^1767
 ;;^UTILITY(U,$J,601.751,10187,0)
 ;;=5403^10^1768
 ;;^UTILITY(U,$J,601.751,10188,0)
 ;;=5403^11^1769
 ;;^UTILITY(U,$J,601.751,10189,0)
 ;;=5403^12^1770
 ;;^UTILITY(U,$J,601.751,10190,0)
 ;;=5403^13^1771
 ;;^UTILITY(U,$J,601.751,10191,0)
 ;;=5404^1^1761
 ;;^UTILITY(U,$J,601.751,10192,0)
 ;;=5404^2^1762
 ;;^UTILITY(U,$J,601.751,10193,0)
 ;;=5404^3^1525
 ;;^UTILITY(U,$J,601.751,10194,0)
 ;;=5404^4^1763
 ;;^UTILITY(U,$J,601.751,10195,0)
 ;;=5404^5^1720
 ;;^UTILITY(U,$J,601.751,10196,0)
 ;;=5404^6^1764
 ;;^UTILITY(U,$J,601.751,10197,0)
 ;;=5404^7^1765
 ;;^UTILITY(U,$J,601.751,10198,0)
 ;;=5404^8^1766
 ;;^UTILITY(U,$J,601.751,10199,0)
 ;;=5404^9^1767
 ;;^UTILITY(U,$J,601.751,10200,0)
 ;;=5404^10^1768
 ;;^UTILITY(U,$J,601.751,10201,0)
 ;;=5404^11^1769
 ;;^UTILITY(U,$J,601.751,10202,0)
 ;;=5404^12^1770
 ;;^UTILITY(U,$J,601.751,10203,0)
 ;;=5404^13^1771
 ;;^UTILITY(U,$J,601.751,10204,0)
 ;;=5405^1^1052
 ;;^UTILITY(U,$J,601.751,10205,0)
 ;;=5405^2^1772
 ;;^UTILITY(U,$J,601.751,10206,0)
 ;;=5405^3^1773
 ;;^UTILITY(U,$J,601.751,10207,0)
 ;;=5405^4^1774
 ;;^UTILITY(U,$J,601.751,10208,0)
 ;;=5405^5^1775
 ;;^UTILITY(U,$J,601.751,10209,0)
 ;;=5406^1^1776
 ;;^UTILITY(U,$J,601.751,10210,0)
 ;;=5406^2^855
 ;;^UTILITY(U,$J,601.751,10211,0)
 ;;=5406^3^1777
 ;;^UTILITY(U,$J,601.751,10212,0)
 ;;=5406^4^1778
 ;;^UTILITY(U,$J,601.751,10213,0)
 ;;=5406^5^1779
 ;;^UTILITY(U,$J,601.751,10214,0)
 ;;=5407^1^1780
 ;;^UTILITY(U,$J,601.751,10215,0)
 ;;=5407^2^1781
 ;;^UTILITY(U,$J,601.751,10216,0)
 ;;=5407^3^1782
 ;;^UTILITY(U,$J,601.751,10217,0)
 ;;=5408^1^1783
 ;;^UTILITY(U,$J,601.751,10218,0)
 ;;=5408^2^1784
 ;;^UTILITY(U,$J,601.751,10219,0)
 ;;=5408^3^1785
 ;;^UTILITY(U,$J,601.751,10220,0)
 ;;=5409^1^1786
 ;;^UTILITY(U,$J,601.751,10221,0)
 ;;=5409^2^1787
 ;;^UTILITY(U,$J,601.751,10222,0)
 ;;=5409^3^1788
 ;;^UTILITY(U,$J,601.751,10223,0)
 ;;=5410^1^1789
 ;;^UTILITY(U,$J,601.751,10224,0)
 ;;=5410^2^1790