YTQQI00F	;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,10225,0)
	;;=5410^3^1791
	;;^UTILITY(U,$J,601.751,10226,0)
	;;=5410^4^1792
	;;^UTILITY(U,$J,601.751,10227,0)
	;;=5410^5^1793
	;;^UTILITY(U,$J,601.751,10228,0)
	;;=5411^1^237
	;;^UTILITY(U,$J,601.751,10229,0)
	;;=5411^2^241
	;;^UTILITY(U,$J,601.751,10230,0)
	;;=5412^1^1794
	;;^UTILITY(U,$J,601.751,10231,0)
	;;=5412^2^1217
	;;^UTILITY(U,$J,601.751,10232,0)
	;;=5412^3^1795
	;;^UTILITY(U,$J,601.751,10233,0)
	;;=5412^4^1796
	;;^UTILITY(U,$J,601.751,10234,0)
	;;=5413^1^1797
	;;^UTILITY(U,$J,601.751,10235,0)
	;;=5413^2^1217
	;;^UTILITY(U,$J,601.751,10236,0)
	;;=5413^3^1795
	;;^UTILITY(U,$J,601.751,10237,0)
	;;=5413^4^1798
	;;^UTILITY(U,$J,601.751,10238,0)
	;;=5414^1^1799
	;;^UTILITY(U,$J,601.751,10239,0)
	;;=5414^2^1217
	;;^UTILITY(U,$J,601.751,10240,0)
	;;=5414^3^1795
	;;^UTILITY(U,$J,601.751,10241,0)
	;;=5414^4^1800
	;;^UTILITY(U,$J,601.751,10242,0)
	;;=5415^1^1801
	;;^UTILITY(U,$J,601.751,10243,0)
	;;=5415^2^1813
	;;^UTILITY(U,$J,601.751,10244,0)
	;;=5415^3^1803
	;;^UTILITY(U,$J,601.751,10245,0)
	;;=5416^1^1804
	;;^UTILITY(U,$J,601.751,10246,0)
	;;=5416^2^1805
	;;^UTILITY(U,$J,601.751,10247,0)
	;;=5416^3^1806
	;;^UTILITY(U,$J,601.751,10248,0)
	;;=5416^4^1807
	;;^UTILITY(U,$J,601.751,10249,0)
	;;=5417^1^780
	;;^UTILITY(U,$J,601.751,10250,0)
	;;=5417^2^781
	;;^UTILITY(U,$J,601.751,10251,0)
	;;=5417^3^1808
	;;^UTILITY(U,$J,601.751,10252,0)
	;;=5417^4^1809
	;;^UTILITY(U,$J,601.751,10253,0)
	;;=5417^5^1810
	;;^UTILITY(U,$J,601.751,10254,0)
	;;=5417^6^784
	;;^UTILITY(U,$J,601.751,10255,0)
	;;=5417^7^785
	;;^UTILITY(U,$J,601.751,10537,0)
	;;=3110^1^803
	;;^UTILITY(U,$J,601.751,10538,0)
	;;=3110^2^804
	;;^UTILITY(U,$J,601.751,10539,0)
	;;=3110^3^805
	;;^UTILITY(U,$J,601.751,10540,0)
	;;=3110^4^806
	;;^UTILITY(U,$J,601.751,10541,0)
	;;=3110^5^807
	;;^UTILITY(U,$J,601.751,10542,0)
	;;=3111^1^803
	;;^UTILITY(U,$J,601.751,10543,0)
	;;=3111^2^804
	;;^UTILITY(U,$J,601.751,10544,0)
	;;=3111^3^805
	;;^UTILITY(U,$J,601.751,10545,0)
	;;=3111^4^806
	;;^UTILITY(U,$J,601.751,10546,0)
	;;=3111^5^807
	;;^UTILITY(U,$J,601.751,10547,0)
	;;=3112^1^803
	;;^UTILITY(U,$J,601.751,10548,0)
	;;=3112^2^804
	;;^UTILITY(U,$J,601.751,10549,0)
	;;=3112^3^805
	;;^UTILITY(U,$J,601.751,10550,0)
	;;=3112^4^806
	;;^UTILITY(U,$J,601.751,10551,0)
	;;=3112^5^807
	;;^UTILITY(U,$J,601.751,10552,0)
	;;=3113^1^814
	;;^UTILITY(U,$J,601.751,10553,0)
	;;=3113^2^815
	;;^UTILITY(U,$J,601.751,10554,0)
	;;=3113^3^884
	;;^UTILITY(U,$J,601.751,10555,0)
	;;=3113^4^772
	;;^UTILITY(U,$J,601.751,10556,0)
	;;=3113^5^817
	;;^UTILITY(U,$J,601.751,10557,0)
	;;=3114^1^814
	;;^UTILITY(U,$J,601.751,10558,0)
	;;=3114^2^815
	;;^UTILITY(U,$J,601.751,10559,0)
	;;=3114^3^884
	;;^UTILITY(U,$J,601.751,10560,0)
	;;=3114^4^772
	;;^UTILITY(U,$J,601.751,10561,0)
	;;=3114^5^817
	;;^UTILITY(U,$J,601.751,10562,0)
	;;=3115^1^814
	;;^UTILITY(U,$J,601.751,10563,0)
	;;=3115^2^815
	;;^UTILITY(U,$J,601.751,10564,0)
	;;=3115^3^884
	;;^UTILITY(U,$J,601.751,10565,0)
	;;=3115^4^772
	;;^UTILITY(U,$J,601.751,10566,0)
	;;=3115^5^817
	;;^UTILITY(U,$J,601.751,10567,0)
	;;=3116^1^814
	;;^UTILITY(U,$J,601.751,10568,0)
	;;=3116^2^815
	;;^UTILITY(U,$J,601.751,10569,0)
	;;=3116^3^884
	;;^UTILITY(U,$J,601.751,10570,0)
	;;=3116^4^772
	;;^UTILITY(U,$J,601.751,10571,0)
	;;=3116^5^817
	;;^UTILITY(U,$J,601.751,10572,0)
	;;=3117^1^814
	;;^UTILITY(U,$J,601.751,10573,0)
	;;=3117^2^815
	;;^UTILITY(U,$J,601.751,10574,0)
	;;=3117^3^884
	;;^UTILITY(U,$J,601.751,10575,0)
	;;=3117^4^772
	;;^UTILITY(U,$J,601.751,10576,0)
	;;=3117^5^817
	;;^UTILITY(U,$J,601.751,10577,0)
	;;=3118^1^814
	;;^UTILITY(U,$J,601.751,10578,0)
	;;=3118^2^815
	;;^UTILITY(U,$J,601.751,10579,0)
	;;=3118^3^884
	;;^UTILITY(U,$J,601.751,10580,0)
	;;=3118^4^772
	;;^UTILITY(U,$J,601.751,10581,0)
	;;=3118^5^817
	;;^UTILITY(U,$J,601.751,10582,0)
	;;=3119^1^814
	;;^UTILITY(U,$J,601.751,10583,0)
	;;=3119^2^815
	;;^UTILITY(U,$J,601.751,10584,0)
	;;=3119^3^884
	;;^UTILITY(U,$J,601.751,10585,0)
	;;=3119^4^772
	;;^UTILITY(U,$J,601.751,10586,0)
	;;=3119^5^817
	;;^UTILITY(U,$J,601.751,10587,0)
	;;=3120^1^814
	;;^UTILITY(U,$J,601.751,10588,0)
	;;=3120^2^815
	;;^UTILITY(U,$J,601.751,10589,0)
	;;=3120^3^884
	;;^UTILITY(U,$J,601.751,10590,0)
	;;=3120^4^772
	;;^UTILITY(U,$J,601.751,10591,0)
	;;=3120^5^817
	;;^UTILITY(U,$J,601.751,10592,0)
	;;=3121^1^814
	;;^UTILITY(U,$J,601.751,10593,0)
	;;=3121^2^815
	;;^UTILITY(U,$J,601.751,10594,0)
	;;=3121^3^884
	;;^UTILITY(U,$J,601.751,10595,0)
	;;=3121^4^772
	;;^UTILITY(U,$J,601.751,10596,0)
	;;=3121^5^817
	;;^UTILITY(U,$J,601.751,10597,0)
	;;=3122^1^217
	;;^UTILITY(U,$J,601.751,10598,0)
	;;=3122^2^242
	;;^UTILITY(U,$J,601.751,10599,0)
	;;=3122^3^213
	;;^UTILITY(U,$J,601.751,10600,0)
	;;=3122^4^215
	;;^UTILITY(U,$J,601.751,10601,0)
	;;=3122^5^995
	;;^UTILITY(U,$J,601.751,10602,0)
	;;=3123^1^217
	;;^UTILITY(U,$J,601.751,10603,0)
	;;=3123^2^242
	;;^UTILITY(U,$J,601.751,10604,0)
	;;=3123^3^213
	;;^UTILITY(U,$J,601.751,10605,0)
	;;=3123^4^215
	;;^UTILITY(U,$J,601.751,10606,0)
	;;=3123^5^995
	;;^UTILITY(U,$J,601.751,10607,0)
	;;=3124^1^217
	;;^UTILITY(U,$J,601.751,10608,0)
	;;=3124^2^242
	;;^UTILITY(U,$J,601.751,10609,0)
	;;=3124^3^213
	;;^UTILITY(U,$J,601.751,10610,0)
	;;=3124^4^215
	;;^UTILITY(U,$J,601.751,10611,0)
	;;=3124^5^995
	;;^UTILITY(U,$J,601.751,10612,0)
	;;=3125^1^217
	;;^UTILITY(U,$J,601.751,10613,0)
	;;=3125^2^242
	;;^UTILITY(U,$J,601.751,10614,0)
	;;=3125^3^213
	;;^UTILITY(U,$J,601.751,10615,0)
	;;=3125^4^215
	;;^UTILITY(U,$J,601.751,10616,0)
	;;=3125^5^995
	;;^UTILITY(U,$J,601.751,10617,0)
	;;=3126^1^217
	;;^UTILITY(U,$J,601.751,10618,0)
	;;=3126^2^242
	;;^UTILITY(U,$J,601.751,10619,0)
	;;=3126^3^213
	;;^UTILITY(U,$J,601.751,10620,0)
	;;=3126^4^215
	;;^UTILITY(U,$J,601.751,10621,0)
	;;=3126^5^995
	;;^UTILITY(U,$J,601.751,10622,0)
	;;=3127^1^217
	;;^UTILITY(U,$J,601.751,10623,0)
	;;=3127^2^242
	;;^UTILITY(U,$J,601.751,10624,0)
	;;=3127^3^213
	;;^UTILITY(U,$J,601.751,10625,0)
	;;=3127^4^215
	;;^UTILITY(U,$J,601.751,10626,0)
	;;=3127^5^995
	;;^UTILITY(U,$J,601.751,10627,0)
	;;=3128^1^217
	;;^UTILITY(U,$J,601.751,10628,0)
	;;=3128^2^242
	;;^UTILITY(U,$J,601.751,10629,0)
	;;=3128^3^213
	;;^UTILITY(U,$J,601.751,10630,0)
	;;=3128^4^215
	;;^UTILITY(U,$J,601.751,10631,0)
	;;=3128^5^995
	;;^UTILITY(U,$J,601.751,10632,0)
	;;=3129^1^217
	;;^UTILITY(U,$J,601.751,10633,0)
	;;=3129^2^242
	;;^UTILITY(U,$J,601.751,10634,0)
	;;=3129^3^213
	;;^UTILITY(U,$J,601.751,10635,0)
	;;=3129^4^215
	;;^UTILITY(U,$J,601.751,10636,0)
	;;=3129^5^995
	;;^UTILITY(U,$J,601.751,10637,0)
	;;=3130^1^217
	;;^UTILITY(U,$J,601.751,10638,0)
	;;=3130^2^242
	;;^UTILITY(U,$J,601.751,10639,0)
	;;=3130^3^213
	;;^UTILITY(U,$J,601.751,10640,0)
	;;=3130^4^215
	;;^UTILITY(U,$J,601.751,10641,0)
	;;=3130^5^995
	;;^UTILITY(U,$J,601.751,10642,0)
	;;=3131^1^217
	;;^UTILITY(U,$J,601.751,10643,0)
	;;=3131^2^242
	;;^UTILITY(U,$J,601.751,10644,0)
	;;=3131^3^213
	;;^UTILITY(U,$J,601.751,10645,0)
	;;=3131^4^215
	;;^UTILITY(U,$J,601.751,10646,0)
	;;=3131^5^995
	;;^UTILITY(U,$J,601.751,10647,0)
	;;=3132^1^217
	;;^UTILITY(U,$J,601.751,10648,0)
	;;=3132^2^242
	;;^UTILITY(U,$J,601.751,10649,0)
	;;=3132^3^213
	;;^UTILITY(U,$J,601.751,10650,0)
	;;=3132^4^215
	;;^UTILITY(U,$J,601.751,10651,0)
	;;=3132^5^995
	;;^UTILITY(U,$J,601.751,10652,0)
	;;=3133^1^217
	;;^UTILITY(U,$J,601.751,10653,0)
	;;=3133^2^242
	;;^UTILITY(U,$J,601.751,10654,0)
	;;=3133^3^213
	;;^UTILITY(U,$J,601.751,10655,0)
	;;=3133^4^215
	;;^UTILITY(U,$J,601.751,10656,0)
	;;=3133^5^995
	;;^UTILITY(U,$J,601.751,10657,0)
	;;=3134^1^237
	;;^UTILITY(U,$J,601.751,10658,0)
	;;=3134^2^241
	;;^UTILITY(U,$J,601.751,10659,0)
	;;=3135^1^237
	;;^UTILITY(U,$J,601.751,10660,0)
	;;=3135^2^241
	;;^UTILITY(U,$J,601.751,10661,0)
	;;=3136^1^1425
	;;^UTILITY(U,$J,601.751,10662,0)
	;;=3136^2^1426
	;;^UTILITY(U,$J,601.751,10663,0)
	;;=3136^3^1427
	;;^UTILITY(U,$J,601.751,10664,0)
	;;=3136^4^1428
	;;^UTILITY(U,$J,601.751,10665,0)
	;;=3136^5^1429
	;;^UTILITY(U,$J,601.751,10666,0)
	;;=3136^6^1430
	;;^UTILITY(U,$J,601.751,10667,0)
	;;=3136^7^1431
	;;^UTILITY(U,$J,601.751,10668,0)
	;;=3136^8^1432
	;;^UTILITY(U,$J,601.751,10669,0)
	;;=3136^9^1433
	;;^UTILITY(U,$J,601.751,10670,0)
	;;=3137^1^1434
	;;^UTILITY(U,$J,601.751,10671,0)
	;;=3137^2^1435
	;;^UTILITY(U,$J,601.751,10672,0)
	;;=3137^3^1436
	;;^UTILITY(U,$J,601.751,10673,0)
	;;=3137^4^1437
	;;^UTILITY(U,$J,601.751,10674,0)
	;;=3137^5^1438
	;;^UTILITY(U,$J,601.751,10675,0)
	;;=3138^1^237
	;;^UTILITY(U,$J,601.751,10676,0)
	;;=3138^2^241
	;;^UTILITY(U,$J,601.751,10677,0)
	;;=3139^1^100805
	;;^UTILITY(U,$J,601.751,10678,0)
	;;=3139^2^1439
	;;^UTILITY(U,$J,601.751,10679,0)
	;;=3139^3^1440
	;;^UTILITY(U,$J,601.751,10680,0)
	;;=3140^1^237
	;;^UTILITY(U,$J,601.751,10681,0)
	;;=3140^2^241
	;;^UTILITY(U,$J,601.751,10682,0)
	;;=3141^1^237
	;;^UTILITY(U,$J,601.751,10683,0)
	;;=3141^2^241
	;;^UTILITY(U,$J,601.751,10684,0)
	;;=3142^1^237