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