YTQQI00C	;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,1991,0)
	;;=889^1^212
	;;^UTILITY(U,$J,601.751,1992,0)
	;;=889^2^1008
	;;^UTILITY(U,$J,601.751,1993,0)
	;;=889^3^1009
	;;^UTILITY(U,$J,601.751,1994,0)
	;;=889^4^1010
	;;^UTILITY(U,$J,601.751,1995,0)
	;;=890^1^212
	;;^UTILITY(U,$J,601.751,1996,0)
	;;=890^2^1008
	;;^UTILITY(U,$J,601.751,1997,0)
	;;=890^3^1009
	;;^UTILITY(U,$J,601.751,1998,0)
	;;=890^4^1010
	;;^UTILITY(U,$J,601.751,1999,0)
	;;=891^1^212
	;;^UTILITY(U,$J,601.751,2000,0)
	;;=891^2^1008
	;;^UTILITY(U,$J,601.751,2001,0)
	;;=891^3^1009
	;;^UTILITY(U,$J,601.751,2002,0)
	;;=891^4^1010
	;;^UTILITY(U,$J,601.751,2003,0)
	;;=892^1^212
	;;^UTILITY(U,$J,601.751,2004,0)
	;;=892^2^1008
	;;^UTILITY(U,$J,601.751,2005,0)
	;;=892^3^1009
	;;^UTILITY(U,$J,601.751,2006,0)
	;;=892^4^1010
	;;^UTILITY(U,$J,601.751,2007,0)
	;;=893^1^212
	;;^UTILITY(U,$J,601.751,2008,0)
	;;=893^2^1008
	;;^UTILITY(U,$J,601.751,2009,0)
	;;=893^3^1009
	;;^UTILITY(U,$J,601.751,2010,0)
	;;=893^4^1010
	;;^UTILITY(U,$J,601.751,2011,0)
	;;=894^1^212
	;;^UTILITY(U,$J,601.751,2012,0)
	;;=894^2^1008
	;;^UTILITY(U,$J,601.751,2013,0)
	;;=894^3^1009
	;;^UTILITY(U,$J,601.751,2014,0)
	;;=894^4^1010
	;;^UTILITY(U,$J,601.751,2015,0)
	;;=895^1^212
	;;^UTILITY(U,$J,601.751,2016,0)
	;;=895^2^1008
	;;^UTILITY(U,$J,601.751,2017,0)
	;;=895^3^1009
	;;^UTILITY(U,$J,601.751,2018,0)
	;;=895^4^1010
	;;^UTILITY(U,$J,601.751,2019,0)
	;;=896^1^212
	;;^UTILITY(U,$J,601.751,2020,0)
	;;=896^2^1008
	;;^UTILITY(U,$J,601.751,2021,0)
	;;=896^3^1009
	;;^UTILITY(U,$J,601.751,2022,0)
	;;=896^4^1010
	;;^UTILITY(U,$J,601.751,2023,0)
	;;=897^1^212
	;;^UTILITY(U,$J,601.751,2024,0)
	;;=897^2^1008
	;;^UTILITY(U,$J,601.751,2025,0)
	;;=897^3^1009
	;;^UTILITY(U,$J,601.751,2026,0)
	;;=897^4^1010
	;;^UTILITY(U,$J,601.751,2027,0)
	;;=898^1^1334
	;;^UTILITY(U,$J,601.751,2028,0)
	;;=898^2^1335
	;;^UTILITY(U,$J,601.751,2029,0)
	;;=898^3^1336
	;;^UTILITY(U,$J,601.751,2030,0)
	;;=898^4^1337
	;;^UTILITY(U,$J,601.751,2071,0)
	;;=909^1^212
	;;^UTILITY(U,$J,601.751,2072,0)
	;;=909^2^1008
	;;^UTILITY(U,$J,601.751,2073,0)
	;;=909^3^1009
	;;^UTILITY(U,$J,601.751,2074,0)
	;;=909^4^1010
	;;^UTILITY(U,$J,601.751,2075,0)
	;;=910^1^212
	;;^UTILITY(U,$J,601.751,2076,0)
	;;=910^2^1008
	;;^UTILITY(U,$J,601.751,2077,0)
	;;=910^3^1009
	;;^UTILITY(U,$J,601.751,2078,0)
	;;=910^4^1010
	;;^UTILITY(U,$J,601.751,2909,0)
	;;=4175^1^1
	;;^UTILITY(U,$J,601.751,2910,0)
	;;=4175^2^3
	;;^UTILITY(U,$J,601.751,2911,0)
	;;=4175^3^4
	;;^UTILITY(U,$J,601.751,2912,0)
	;;=4175^4^5
	;;^UTILITY(U,$J,601.751,2913,0)
	;;=4175^5^1457
	;;^UTILITY(U,$J,601.751,2914,0)
	;;=4176^1^1
	;;^UTILITY(U,$J,601.751,2915,0)
	;;=4176^2^3
	;;^UTILITY(U,$J,601.751,2916,0)
	;;=4176^3^4
	;;^UTILITY(U,$J,601.751,2917,0)
	;;=4176^4^5
	;;^UTILITY(U,$J,601.751,2918,0)
	;;=4176^5^1457
	;;^UTILITY(U,$J,601.751,2919,0)
	;;=4177^1^1
	;;^UTILITY(U,$J,601.751,2920,0)
	;;=4177^2^3
	;;^UTILITY(U,$J,601.751,2921,0)
	;;=4177^3^4
	;;^UTILITY(U,$J,601.751,2922,0)
	;;=4177^4^5
	;;^UTILITY(U,$J,601.751,2923,0)
	;;=4177^5^1457
	;;^UTILITY(U,$J,601.751,2924,0)
	;;=4178^1^1
	;;^UTILITY(U,$J,601.751,2925,0)
	;;=4178^2^3
	;;^UTILITY(U,$J,601.751,2926,0)
	;;=4178^3^4
	;;^UTILITY(U,$J,601.751,2927,0)
	;;=4178^4^5
	;;^UTILITY(U,$J,601.751,2928,0)
	;;=4178^5^1457
	;;^UTILITY(U,$J,601.751,2929,0)
	;;=4179^1^1
	;;^UTILITY(U,$J,601.751,2930,0)
	;;=4179^2^3
	;;^UTILITY(U,$J,601.751,2931,0)
	;;=4179^3^4
	;;^UTILITY(U,$J,601.751,2932,0)
	;;=4179^4^5
	;;^UTILITY(U,$J,601.751,2933,0)
	;;=4179^5^1457
	;;^UTILITY(U,$J,601.751,2934,0)
	;;=4180^1^1
	;;^UTILITY(U,$J,601.751,2935,0)
	;;=4180^2^3
	;;^UTILITY(U,$J,601.751,2936,0)
	;;=4180^3^4
	;;^UTILITY(U,$J,601.751,2937,0)
	;;=4180^4^5
	;;^UTILITY(U,$J,601.751,2938,0)
	;;=4180^5^1457
	;;^UTILITY(U,$J,601.751,2939,0)
	;;=4181^1^1
	;;^UTILITY(U,$J,601.751,2940,0)
	;;=4181^2^3
	;;^UTILITY(U,$J,601.751,2941,0)
	;;=4181^3^4
	;;^UTILITY(U,$J,601.751,2942,0)
	;;=4181^4^5
	;;^UTILITY(U,$J,601.751,2943,0)
	;;=4181^5^1457
	;;^UTILITY(U,$J,601.751,2944,0)
	;;=4182^1^1
	;;^UTILITY(U,$J,601.751,2945,0)
	;;=4182^2^3
	;;^UTILITY(U,$J,601.751,2946,0)
	;;=4182^3^4
	;;^UTILITY(U,$J,601.751,2947,0)
	;;=4182^4^5
	;;^UTILITY(U,$J,601.751,2948,0)
	;;=4182^5^1457
	;;^UTILITY(U,$J,601.751,2949,0)
	;;=4183^1^1
	;;^UTILITY(U,$J,601.751,2950,0)
	;;=4183^2^3
	;;^UTILITY(U,$J,601.751,2951,0)
	;;=4183^3^4
	;;^UTILITY(U,$J,601.751,2952,0)
	;;=4183^4^5
	;;^UTILITY(U,$J,601.751,2953,0)
	;;=4183^5^1457
	;;^UTILITY(U,$J,601.751,2954,0)
	;;=4184^1^1
	;;^UTILITY(U,$J,601.751,2955,0)
	;;=4184^2^3
	;;^UTILITY(U,$J,601.751,2956,0)
	;;=4184^3^4
	;;^UTILITY(U,$J,601.751,2957,0)
	;;=4184^4^5
	;;^UTILITY(U,$J,601.751,2958,0)
	;;=4184^5^1457
	;;^UTILITY(U,$J,601.751,2959,0)
	;;=4185^1^1
	;;^UTILITY(U,$J,601.751,2960,0)
	;;=4185^2^3
	;;^UTILITY(U,$J,601.751,2961,0)
	;;=4185^3^4
	;;^UTILITY(U,$J,601.751,2962,0)
	;;=4185^4^5
	;;^UTILITY(U,$J,601.751,2963,0)
	;;=4185^5^1457
	;;^UTILITY(U,$J,601.751,2964,0)
	;;=4186^1^1
	;;^UTILITY(U,$J,601.751,2965,0)
	;;=4186^2^3
	;;^UTILITY(U,$J,601.751,2966,0)
	;;=4186^3^4
	;;^UTILITY(U,$J,601.751,2967,0)
	;;=4186^4^5
	;;^UTILITY(U,$J,601.751,2968,0)
	;;=4186^5^1457
	;;^UTILITY(U,$J,601.751,2969,0)
	;;=4187^1^1
	;;^UTILITY(U,$J,601.751,2970,0)
	;;=4187^2^3
	;;^UTILITY(U,$J,601.751,2971,0)
	;;=4187^3^4
	;;^UTILITY(U,$J,601.751,2972,0)
	;;=4187^4^5
	;;^UTILITY(U,$J,601.751,2973,0)
	;;=4187^5^1457
	;;^UTILITY(U,$J,601.751,2974,0)
	;;=4188^1^1
	;;^UTILITY(U,$J,601.751,2975,0)
	;;=4188^2^3
	;;^UTILITY(U,$J,601.751,2976,0)
	;;=4188^3^4
	;;^UTILITY(U,$J,601.751,2977,0)
	;;=4188^4^5
	;;^UTILITY(U,$J,601.751,2978,0)
	;;=4188^5^1457
	;;^UTILITY(U,$J,601.751,2979,0)
	;;=4189^1^1
	;;^UTILITY(U,$J,601.751,2980,0)
	;;=4189^2^3
	;;^UTILITY(U,$J,601.751,2981,0)
	;;=4189^3^4
	;;^UTILITY(U,$J,601.751,2982,0)
	;;=4189^4^5
	;;^UTILITY(U,$J,601.751,2983,0)
	;;=4189^5^1457
	;;^UTILITY(U,$J,601.751,2984,0)
	;;=4190^1^1
	;;^UTILITY(U,$J,601.751,2985,0)
	;;=4190^2^3
	;;^UTILITY(U,$J,601.751,2986,0)
	;;=4190^3^4
	;;^UTILITY(U,$J,601.751,2987,0)
	;;=4190^4^5
	;;^UTILITY(U,$J,601.751,2988,0)
	;;=4190^5^1457
	;;^UTILITY(U,$J,601.751,2989,0)
	;;=4191^1^1
	;;^UTILITY(U,$J,601.751,2990,0)
	;;=4191^2^3
	;;^UTILITY(U,$J,601.751,2991,0)
	;;=4191^3^4
	;;^UTILITY(U,$J,601.751,2992,0)
	;;=4191^4^5
	;;^UTILITY(U,$J,601.751,2993,0)
	;;=4191^5^1457
	;;^UTILITY(U,$J,601.751,2994,0)
	;;=4192^1^1
	;;^UTILITY(U,$J,601.751,2995,0)
	;;=4192^2^3
	;;^UTILITY(U,$J,601.751,2996,0)
	;;=4192^3^4
	;;^UTILITY(U,$J,601.751,2997,0)
	;;=4192^4^5
	;;^UTILITY(U,$J,601.751,2998,0)
	;;=4192^5^1457
	;;^UTILITY(U,$J,601.751,2999,0)
	;;=4193^1^1
	;;^UTILITY(U,$J,601.751,3000,0)
	;;=4193^2^3
	;;^UTILITY(U,$J,601.751,3001,0)
	;;=4193^3^4
	;;^UTILITY(U,$J,601.751,3002,0)
	;;=4193^4^5
	;;^UTILITY(U,$J,601.751,3003,0)
	;;=4193^5^1457
	;;^UTILITY(U,$J,601.751,3004,0)
	;;=4194^1^1
	;;^UTILITY(U,$J,601.751,3005,0)
	;;=4194^2^3
	;;^UTILITY(U,$J,601.751,3006,0)
	;;=4194^3^4
	;;^UTILITY(U,$J,601.751,3007,0)
	;;=4194^4^5
	;;^UTILITY(U,$J,601.751,3008,0)
	;;=4194^5^1457
	;;^UTILITY(U,$J,601.751,3009,0)
	;;=4195^1^1
	;;^UTILITY(U,$J,601.751,3010,0)
	;;=4195^2^3
	;;^UTILITY(U,$J,601.751,3011,0)
	;;=4195^3^4
	;;^UTILITY(U,$J,601.751,3012,0)
	;;=4195^4^5
	;;^UTILITY(U,$J,601.751,3013,0)
	;;=4195^5^1457
	;;^UTILITY(U,$J,601.751,3014,0)
	;;=4196^1^1
	;;^UTILITY(U,$J,601.751,3015,0)
	;;=4196^2^3
	;;^UTILITY(U,$J,601.751,3016,0)
	;;=4196^3^4
	;;^UTILITY(U,$J,601.751,3017,0)
	;;=4196^4^5
	;;^UTILITY(U,$J,601.751,3018,0)
	;;=4196^5^1457
	;;^UTILITY(U,$J,601.751,3821,0)
	;;=1334^1^1387
	;;^UTILITY(U,$J,601.751,3822,0)
	;;=1334^2^1388
	;;^UTILITY(U,$J,601.751,3823,0)
	;;=1334^3^1389
	;;^UTILITY(U,$J,601.751,3824,0)
	;;=1334^4^1390
	;;^UTILITY(U,$J,601.751,3825,0)
	;;=1334^5^1391
	;;^UTILITY(U,$J,601.751,3826,0)
	;;=1334^6^1392
	;;^UTILITY(U,$J,601.751,3827,0)
	;;=1334^7^743
	;;^UTILITY(U,$J,601.751,3828,0)
	;;=1335^1^1393
	;;^UTILITY(U,$J,601.751,3829,0)
	;;=1335^2^1394
	;;^UTILITY(U,$J,601.751,3830,0)
	;;=1335^3^743
	;;^UTILITY(U,$J,601.751,3831,0)
	;;=1336^1^1395
	;;^UTILITY(U,$J,601.751,3832,0)
	;;=1336^2^1396
	;;^UTILITY(U,$J,601.751,3833,0)
	;;=1336^3^1397
	;;^UTILITY(U,$J,601.751,3834,0)
	;;=1336^4^1398
	;;^UTILITY(U,$J,601.751,8561,0)
	;;=2638^1^101060
	;;^UTILITY(U,$J,601.751,8562,0)
	;;=2638^2^101061
	;;^UTILITY(U,$J,601.751,8563,0)
	;;=2638^3^101062
	;;^UTILITY(U,$J,601.751,8564,0)
	;;=2638^4^101063
	;;^UTILITY(U,$J,601.751,8565,0)
	;;=2639^1^100924
	;;^UTILITY(U,$J,601.751,8566,0)
	;;=2639^2^100925
	;;^UTILITY(U,$J,601.751,8567,0)
	;;=2640^1^237
	;;^UTILITY(U,$J,601.751,8568,0)
	;;=2640^2^241
	;;^UTILITY(U,$J,601.751,8569,0)
	;;=2641^1^237
	;;^UTILITY(U,$J,601.751,8570,0)
	;;=2641^2^241
	;;^UTILITY(U,$J,601.751,8571,0)
	;;=2642^1^237
	;;^UTILITY(U,$J,601.751,8572,0)
	;;=2642^2^241
	;;^UTILITY(U,$J,601.751,8573,0)
	;;=2643^1^237
	;;^UTILITY(U,$J,601.751,8574,0)
	;;=2643^2^241
	;;^UTILITY(U,$J,601.751,8575,0)
	;;=2644^1^237