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