YTQQI003	;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,201,0)
	;;=41^4^196
	;;^UTILITY(U,$J,601.751,202,0)
	;;=41^5^197
	;;^UTILITY(U,$J,601.751,203,0)
	;;=42^1^198
	;;^UTILITY(U,$J,601.751,204,0)
	;;=42^2^199
	;;^UTILITY(U,$J,601.751,205,0)
	;;=42^3^102
	;;^UTILITY(U,$J,601.751,206,0)
	;;=42^4^200
	;;^UTILITY(U,$J,601.751,207,0)
	;;=42^5^201
	;;^UTILITY(U,$J,601.751,208,0)
	;;=43^1^202
	;;^UTILITY(U,$J,601.751,209,0)
	;;=43^2^203
	;;^UTILITY(U,$J,601.751,210,0)
	;;=43^3^204
	;;^UTILITY(U,$J,601.751,211,0)
	;;=43^4^205
	;;^UTILITY(U,$J,601.751,212,0)
	;;=43^5^206
	;;^UTILITY(U,$J,601.751,213,0)
	;;=44^1^207
	;;^UTILITY(U,$J,601.751,214,0)
	;;=44^2^208
	;;^UTILITY(U,$J,601.751,215,0)
	;;=44^3^209
	;;^UTILITY(U,$J,601.751,216,0)
	;;=44^4^210
	;;^UTILITY(U,$J,601.751,217,0)
	;;=44^5^211
	;;^UTILITY(U,$J,601.751,218,0)
	;;=45^1^212
	;;^UTILITY(U,$J,601.751,219,0)
	;;=45^2^213
	;;^UTILITY(U,$J,601.751,220,0)
	;;=45^3^214
	;;^UTILITY(U,$J,601.751,221,0)
	;;=45^4^215
	;;^UTILITY(U,$J,601.751,222,0)
	;;=45^5^216
	;;^UTILITY(U,$J,601.751,223,0)
	;;=46^1^217
	;;^UTILITY(U,$J,601.751,224,0)
	;;=46^2^218
	;;^UTILITY(U,$J,601.751,225,0)
	;;=46^3^219
	;;^UTILITY(U,$J,601.751,226,0)
	;;=46^4^220
	;;^UTILITY(U,$J,601.751,227,0)
	;;=46^5^221
	;;^UTILITY(U,$J,601.751,228,0)
	;;=47^1^222
	;;^UTILITY(U,$J,601.751,229,0)
	;;=47^3^223
	;;^UTILITY(U,$J,601.751,230,0)
	;;=47^4^224
	;;^UTILITY(U,$J,601.751,231,0)
	;;=47^40^225
	;;^UTILITY(U,$J,601.751,232,0)
	;;=47^50^226
	;;^UTILITY(U,$J,601.751,233,0)
	;;=48^1^217
	;;^UTILITY(U,$J,601.751,234,0)
	;;=48^2^227
	;;^UTILITY(U,$J,601.751,235,0)
	;;=48^3^228
	;;^UTILITY(U,$J,601.751,236,0)
	;;=48^4^229
	;;^UTILITY(U,$J,601.751,237,0)
	;;=48^5^230
	;;^UTILITY(U,$J,601.751,238,0)
	;;=49^1^231
	;;^UTILITY(U,$J,601.751,239,0)
	;;=49^2^232
	;;^UTILITY(U,$J,601.751,240,0)
	;;=49^3^233
	;;^UTILITY(U,$J,601.751,241,0)
	;;=49^4^234
	;;^UTILITY(U,$J,601.751,242,0)
	;;=49^5^235
	;;^UTILITY(U,$J,601.751,243,0)
	;;=49^6^236
	;;^UTILITY(U,$J,601.751,244,0)
	;;=50^1^237
	;;^UTILITY(U,$J,601.751,245,0)
	;;=50^2^238
	;;^UTILITY(U,$J,601.751,246,0)
	;;=50^3^239
	;;^UTILITY(U,$J,601.751,247,0)
	;;=51^1^240
	;;^UTILITY(U,$J,601.751,248,0)
	;;=51^2^241
	;;^UTILITY(U,$J,601.751,249,0)
	;;=52^1^240
	;;^UTILITY(U,$J,601.751,250,0)
	;;=52^2^242
	;;^UTILITY(U,$J,601.751,251,0)
	;;=52^3^243
	;;^UTILITY(U,$J,601.751,252,0)
	;;=52^4^244
	;;^UTILITY(U,$J,601.751,253,0)
	;;=53^1^240
	;;^UTILITY(U,$J,601.751,254,0)
	;;=53^2^245
	;;^UTILITY(U,$J,601.751,255,0)
	;;=53^3^246
	;;^UTILITY(U,$J,601.751,256,0)
	;;=54^1^247
	;;^UTILITY(U,$J,601.751,257,0)
	;;=54^2^248
	;;^UTILITY(U,$J,601.751,258,0)
	;;=54^3^249
	;;^UTILITY(U,$J,601.751,259,0)
	;;=54^4^250
	;;^UTILITY(U,$J,601.751,260,0)
	;;=55^1^240
	;;^UTILITY(U,$J,601.751,261,0)
	;;=55^2^251
	;;^UTILITY(U,$J,601.751,262,0)
	;;=55^3^252
	;;^UTILITY(U,$J,601.751,263,0)
	;;=55^4^253
	;;^UTILITY(U,$J,601.751,264,0)
	;;=56^1^240
	;;^UTILITY(U,$J,601.751,265,0)
	;;=56^2^254
	;;^UTILITY(U,$J,601.751,266,0)
	;;=56^3^255
	;;^UTILITY(U,$J,601.751,267,0)
	;;=57^1^240
	;;^UTILITY(U,$J,601.751,268,0)
	;;=57^2^256
	;;^UTILITY(U,$J,601.751,269,0)
	;;=57^3^257
	;;^UTILITY(U,$J,601.751,270,0)
	;;=57^4^258
	;;^UTILITY(U,$J,601.751,271,0)
	;;=58^1^259
	;;^UTILITY(U,$J,601.751,272,0)
	;;=58^2^260
	;;^UTILITY(U,$J,601.751,273,0)
	;;=58^3^261
	;;^UTILITY(U,$J,601.751,274,0)
	;;=58^4^262
	;;^UTILITY(U,$J,601.751,275,0)
	;;=58^5^263
	;;^UTILITY(U,$J,601.751,276,0)
	;;=58^6^264
	;;^UTILITY(U,$J,601.751,277,0)
	;;=59^1^240
	;;^UTILITY(U,$J,601.751,278,0)
	;;=59^2^265
	;;^UTILITY(U,$J,601.751,279,0)
	;;=59^3^266
	;;^UTILITY(U,$J,601.751,280,0)
	;;=59^4^267
	;;^UTILITY(U,$J,601.751,281,0)
	;;=60^1^268
	;;^UTILITY(U,$J,601.751,282,0)
	;;=60^2^269
	;;^UTILITY(U,$J,601.751,283,0)
	;;=60^3^243
	;;^UTILITY(U,$J,601.751,284,0)
	;;=60^4^270
	;;^UTILITY(U,$J,601.751,285,0)
	;;=61^1^240
	;;^UTILITY(U,$J,601.751,286,0)
	;;=61^2^271
	;;^UTILITY(U,$J,601.751,287,0)
	;;=61^3^272
	;;^UTILITY(U,$J,601.751,288,0)
	;;=62^1^273
	;;^UTILITY(U,$J,601.751,289,0)
	;;=62^2^274
	;;^UTILITY(U,$J,601.751,290,0)
	;;=63^1^275
	;;^UTILITY(U,$J,601.751,291,0)
	;;=63^2^276
	;;^UTILITY(U,$J,601.751,292,0)
	;;=63^3^277
	;;^UTILITY(U,$J,601.751,293,0)
	;;=63^4^278
	;;^UTILITY(U,$J,601.751,294,0)
	;;=64^1^240
	;;^UTILITY(U,$J,601.751,295,0)
	;;=64^2^245
	;;^UTILITY(U,$J,601.751,296,0)
	;;=64^3^279
	;;^UTILITY(U,$J,601.751,297,0)
	;;=65^1^259
	;;^UTILITY(U,$J,601.751,298,0)
	;;=65^2^280
	;;^UTILITY(U,$J,601.751,299,0)
	;;=65^3^281
	;;^UTILITY(U,$J,601.751,300,0)
	;;=65^4^282
	;;^UTILITY(U,$J,601.751,301,0)
	;;=65^5^283
	;;^UTILITY(U,$J,601.751,302,0)
	;;=65^6^284
	;;^UTILITY(U,$J,601.751,303,0)
	;;=66^1^285
	;;^UTILITY(U,$J,601.751,304,0)
	;;=66^2^286
	;;^UTILITY(U,$J,601.751,305,0)
	;;=66^3^287
	;;^UTILITY(U,$J,601.751,306,0)
	;;=66^4^288
	;;^UTILITY(U,$J,601.751,307,0)
	;;=67^1^240
	;;^UTILITY(U,$J,601.751,308,0)
	;;=67^2^276
	;;^UTILITY(U,$J,601.751,309,0)
	;;=67^3^277
	;;^UTILITY(U,$J,601.751,310,0)
	;;=68^1^289
	;;^UTILITY(U,$J,601.751,311,0)
	;;=68^2^290
	;;^UTILITY(U,$J,601.751,312,0)
	;;=68^3^277
	;;^UTILITY(U,$J,601.751,313,0)
	;;=68^4^291
	;;^UTILITY(U,$J,601.751,314,0)
	;;=69^1^292
	;;^UTILITY(U,$J,601.751,315,0)
	;;=69^2^290
	;;^UTILITY(U,$J,601.751,316,0)
	;;=69^3^277
	;;^UTILITY(U,$J,601.751,317,0)
	;;=69^4^293
	;;^UTILITY(U,$J,601.751,318,0)
	;;=70^1^294
	;;^UTILITY(U,$J,601.751,319,0)
	;;=70^2^295
	;;^UTILITY(U,$J,601.751,320,0)
	;;=70^3^296
	;;^UTILITY(U,$J,601.751,321,0)
	;;=71^1^240
	;;^UTILITY(U,$J,601.751,322,0)
	;;=71^2^297
	;;^UTILITY(U,$J,601.751,323,0)
	;;=71^3^298
	;;^UTILITY(U,$J,601.751,324,0)
	;;=72^1^259
	;;^UTILITY(U,$J,601.751,325,0)
	;;=72^2^299
	;;^UTILITY(U,$J,601.751,326,0)
	;;=72^3^300
	;;^UTILITY(U,$J,601.751,327,0)
	;;=72^4^301
	;;^UTILITY(U,$J,601.751,328,0)
	;;=72^5^302
	;;^UTILITY(U,$J,601.751,329,0)
	;;=72^6^303
	;;^UTILITY(U,$J,601.751,330,0)
	;;=73^1^240
	;;^UTILITY(U,$J,601.751,331,0)
	;;=73^2^304
	;;^UTILITY(U,$J,601.751,332,0)
	;;=73^3^305
	;;^UTILITY(U,$J,601.751,333,0)
	;;=73^4^306
	;;^UTILITY(U,$J,601.751,334,0)
	;;=74^1^240
	;;^UTILITY(U,$J,601.751,335,0)
	;;=74^2^276
	;;^UTILITY(U,$J,601.751,336,0)
	;;=74^3^277
	;;^UTILITY(U,$J,601.751,337,0)
	;;=74^4^291
	;;^UTILITY(U,$J,601.751,338,0)
	;;=75^1^240
	;;^UTILITY(U,$J,601.751,339,0)
	;;=75^2^307
	;;^UTILITY(U,$J,601.751,340,0)
	;;=75^3^308
	;;^UTILITY(U,$J,601.751,341,0)
	;;=75^4^309
	;;^UTILITY(U,$J,601.751,342,0)
	;;=76^1^240
	;;^UTILITY(U,$J,601.751,343,0)
	;;=76^2^276
	;;^UTILITY(U,$J,601.751,344,0)
	;;=76^3^310
	;;^UTILITY(U,$J,601.751,345,0)
	;;=76^4^311
	;;^UTILITY(U,$J,601.751,346,0)
	;;=77^1^312
	;;^UTILITY(U,$J,601.751,347,0)
	;;=77^2^313
	;;^UTILITY(U,$J,601.751,348,0)
	;;=77^3^314
	;;^UTILITY(U,$J,601.751,349,0)
	;;=77^4^315
	;;^UTILITY(U,$J,601.751,350,0)
	;;=78^1^240
	;;^UTILITY(U,$J,601.751,351,0)
	;;=78^2^316
	;;^UTILITY(U,$J,601.751,352,0)
	;;=78^3^317
	;;^UTILITY(U,$J,601.751,353,0)
	;;=79^1^240
	;;^UTILITY(U,$J,601.751,354,0)
	;;=79^2^318
	;;^UTILITY(U,$J,601.751,355,0)
	;;=79^3^319
	;;^UTILITY(U,$J,601.751,356,0)
	;;=80^1^240
	;;^UTILITY(U,$J,601.751,357,0)
	;;=80^2^276
	;;^UTILITY(U,$J,601.751,358,0)
	;;=80^3^320
	;;^UTILITY(U,$J,601.751,359,0)
	;;=81^1^321
	;;^UTILITY(U,$J,601.751,360,0)
	;;=81^2^322
	;;^UTILITY(U,$J,601.751,361,0)
	;;=81^3^323
	;;^UTILITY(U,$J,601.751,362,0)
	;;=81^4^324
	;;^UTILITY(U,$J,601.751,363,0)
	;;=82^1^240
	;;^UTILITY(U,$J,601.751,364,0)
	;;=82^2^276
	;;^UTILITY(U,$J,601.751,365,0)
	;;=82^3^277
	;;^UTILITY(U,$J,601.751,366,0)
	;;=82^4^325
	;;^UTILITY(U,$J,601.751,367,0)
	;;=83^1^326
	;;^UTILITY(U,$J,601.751,368,0)
	;;=83^2^327
	;;^UTILITY(U,$J,601.751,369,0)
	;;=83^3^328
	;;^UTILITY(U,$J,601.751,370,0)
	;;=83^4^315
	;;^UTILITY(U,$J,601.751,371,0)
	;;=84^1^240
	;;^UTILITY(U,$J,601.751,372,0)
	;;=84^2^329
	;;^UTILITY(U,$J,601.751,373,0)
	;;=84^3^277
	;;^UTILITY(U,$J,601.751,374,0)
	;;=84^4^330
	;;^UTILITY(U,$J,601.751,375,0)
	;;=85^1^240
	;;^UTILITY(U,$J,601.751,376,0)
	;;=85^2^331
	;;^UTILITY(U,$J,601.751,377,0)
	;;=85^3^332
	;;^UTILITY(U,$J,601.751,378,0)
	;;=85^4^333
	;;^UTILITY(U,$J,601.751,379,0)
	;;=86^1^240
	;;^UTILITY(U,$J,601.751,380,0)
	;;=86^2^331
	;;^UTILITY(U,$J,601.751,381,0)
	;;=86^3^334
	;;^UTILITY(U,$J,601.751,382,0)
	;;=87^1^335
	;;^UTILITY(U,$J,601.751,383,0)
	;;=87^2^336
	;;^UTILITY(U,$J,601.751,384,0)
	;;=87^3^337
	;;^UTILITY(U,$J,601.751,385,0)
	;;=87^4^338
	;;^UTILITY(U,$J,601.751,386,0)
	;;=88^1^240
	;;^UTILITY(U,$J,601.751,387,0)
	;;=88^2^339
	;;^UTILITY(U,$J,601.751,388,0)
	;;=88^3^340
	;;^UTILITY(U,$J,601.751,389,0)
	;;=88^4^341
	;;^UTILITY(U,$J,601.751,390,0)
	;;=89^1^289
	;;^UTILITY(U,$J,601.751,391,0)
	;;=89^2^329
	;;^UTILITY(U,$J,601.751,392,0)
	;;=89^3^342
	;;^UTILITY(U,$J,601.751,393,0)
	;;=89^4^291
	;;^UTILITY(U,$J,601.751,394,0)
	;;=90^1^240
	;;^UTILITY(U,$J,601.751,395,0)
	;;=90^2^329
	;;^UTILITY(U,$J,601.751,396,0)
	;;=90^3^277
	;;^UTILITY(U,$J,601.751,397,0)
	;;=90^4^291