YTQQI004 ;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,398,0)
 ;;=91^1^240
 ;;^UTILITY(U,$J,601.751,399,0)
 ;;=91^2^343
 ;;^UTILITY(U,$J,601.751,400,0)
 ;;=91^3^344
 ;;^UTILITY(U,$J,601.751,401,0)
 ;;=91^4^345
 ;;^UTILITY(U,$J,601.751,402,0)
 ;;=92^1^240
 ;;^UTILITY(U,$J,601.751,403,0)
 ;;=92^2^265
 ;;^UTILITY(U,$J,601.751,404,0)
 ;;=92^3^266
 ;;^UTILITY(U,$J,601.751,405,0)
 ;;=92^4^346
 ;;^UTILITY(U,$J,601.751,406,0)
 ;;=93^1^347
 ;;^UTILITY(U,$J,601.751,407,0)
 ;;=93^2^276
 ;;^UTILITY(U,$J,601.751,408,0)
 ;;=93^3^310
 ;;^UTILITY(U,$J,601.751,409,0)
 ;;=93^4^348
 ;;^UTILITY(U,$J,601.751,410,0)
 ;;=94^1^240
 ;;^UTILITY(U,$J,601.751,411,0)
 ;;=94^2^290
 ;;^UTILITY(U,$J,601.751,412,0)
 ;;=94^3^277
 ;;^UTILITY(U,$J,601.751,413,0)
 ;;=94^4^291
 ;;^UTILITY(U,$J,601.751,414,0)
 ;;=95^1^349
 ;;^UTILITY(U,$J,601.751,415,0)
 ;;=95^2^350
 ;;^UTILITY(U,$J,601.751,416,0)
 ;;=95^3^351
 ;;^UTILITY(U,$J,601.751,417,0)
 ;;=95^4^352
 ;;^UTILITY(U,$J,601.751,418,0)
 ;;=96^1^353
 ;;^UTILITY(U,$J,601.751,419,0)
 ;;=96^2^354
 ;;^UTILITY(U,$J,601.751,420,0)
 ;;=96^3^355
 ;;^UTILITY(U,$J,601.751,421,0)
 ;;=96^4^356
 ;;^UTILITY(U,$J,601.751,422,0)
 ;;=97^1^240
 ;;^UTILITY(U,$J,601.751,423,0)
 ;;=97^2^329
 ;;^UTILITY(U,$J,601.751,424,0)
 ;;=97^3^334
 ;;^UTILITY(U,$J,601.751,425,0)
 ;;=97^4^330
 ;;^UTILITY(U,$J,601.751,426,0)
 ;;=98^1^240
 ;;^UTILITY(U,$J,601.751,427,0)
 ;;=98^2^297
 ;;^UTILITY(U,$J,601.751,428,0)
 ;;=98^3^257
 ;;^UTILITY(U,$J,601.751,429,0)
 ;;=98^4^258
 ;;^UTILITY(U,$J,601.751,430,0)
 ;;=99^1^357
 ;;^UTILITY(U,$J,601.751,431,0)
 ;;=99^2^358
 ;;^UTILITY(U,$J,601.751,432,0)
 ;;=99^3^359
 ;;^UTILITY(U,$J,601.751,433,0)
 ;;=99^4^360
 ;;^UTILITY(U,$J,601.751,434,0)
 ;;=100^1^361
 ;;^UTILITY(U,$J,601.751,435,0)
 ;;=100^2^276
 ;;^UTILITY(U,$J,601.751,436,0)
 ;;=100^3^362
 ;;^UTILITY(U,$J,601.751,437,0)
 ;;=101^1^289
 ;;^UTILITY(U,$J,601.751,438,0)
 ;;=101^2^331
 ;;^UTILITY(U,$J,601.751,439,0)
 ;;=101^3^334
 ;;^UTILITY(U,$J,601.751,440,0)
 ;;=102^1^363
 ;;^UTILITY(U,$J,601.751,441,0)
 ;;=102^2^339
 ;;^UTILITY(U,$J,601.751,442,0)
 ;;=102^3^340
 ;;^UTILITY(U,$J,601.751,443,0)
 ;;=102^4^364
 ;;^UTILITY(U,$J,601.751,444,0)
 ;;=103^1^365
 ;;^UTILITY(U,$J,601.751,445,0)
 ;;=103^2^366
 ;;^UTILITY(U,$J,601.751,446,0)
 ;;=103^3^367
 ;;^UTILITY(U,$J,601.751,447,0)
 ;;=103^4^368
 ;;^UTILITY(U,$J,601.751,448,0)
 ;;=104^1^259
 ;;^UTILITY(U,$J,601.751,449,0)
 ;;=104^2^369
 ;;^UTILITY(U,$J,601.751,450,0)
 ;;=104^3^370
 ;;^UTILITY(U,$J,601.751,451,0)
 ;;=104^4^371
 ;;^UTILITY(U,$J,601.751,452,0)
 ;;=105^1^372
 ;;^UTILITY(U,$J,601.751,453,0)
 ;;=105^2^373
 ;;^UTILITY(U,$J,601.751,454,0)
 ;;=105^3^374
 ;;^UTILITY(U,$J,601.751,455,0)
 ;;=105^4^375
 ;;^UTILITY(U,$J,601.751,456,0)
 ;;=106^1^240
 ;;^UTILITY(U,$J,601.751,457,0)
 ;;=106^2^256
 ;;^UTILITY(U,$J,601.751,458,0)
 ;;=106^3^376
 ;;^UTILITY(U,$J,601.751,459,0)
 ;;=106^4^377
 ;;^UTILITY(U,$J,601.751,460,0)
 ;;=106^5^378
 ;;^UTILITY(U,$J,601.751,461,0)
 ;;=107^1^379
 ;;^UTILITY(U,$J,601.751,462,0)
 ;;=107^2^380
 ;;^UTILITY(U,$J,601.751,463,0)
 ;;=107^3^381
 ;;^UTILITY(U,$J,601.751,464,0)
 ;;=108^1^289
 ;;^UTILITY(U,$J,601.751,465,0)
 ;;=108^2^331
 ;;^UTILITY(U,$J,601.751,466,0)
 ;;=108^3^332
 ;;^UTILITY(U,$J,601.751,467,0)
 ;;=108^4^382
 ;;^UTILITY(U,$J,601.751,468,0)
 ;;=109^1^383
 ;;^UTILITY(U,$J,601.751,469,0)
 ;;=109^2^339
 ;;^UTILITY(U,$J,601.751,470,0)
 ;;=109^3^340
 ;;^UTILITY(U,$J,601.751,471,0)
 ;;=109^4^364
 ;;^UTILITY(U,$J,601.751,472,0)
 ;;=110^1^384
 ;;^UTILITY(U,$J,601.751,473,0)
 ;;=110^2^385
 ;;^UTILITY(U,$J,601.751,474,0)
 ;;=110^3^386
 ;;^UTILITY(U,$J,601.751,475,0)
 ;;=110^4^387
 ;;^UTILITY(U,$J,601.751,476,0)
 ;;=111^1^289
 ;;^UTILITY(U,$J,601.751,477,0)
 ;;=111^2^276
 ;;^UTILITY(U,$J,601.751,478,0)
 ;;=111^3^277
 ;;^UTILITY(U,$J,601.751,479,0)
 ;;=111^4^325
 ;;^UTILITY(U,$J,601.751,480,0)
 ;;=112^1^240
 ;;^UTILITY(U,$J,601.751,481,0)
 ;;=112^2^297
 ;;^UTILITY(U,$J,601.751,482,0)
 ;;=112^3^388
 ;;^UTILITY(U,$J,601.751,483,0)
 ;;=112^4^389
 ;;^UTILITY(U,$J,601.751,484,0)
 ;;=113^1^240
 ;;^UTILITY(U,$J,601.751,485,0)
 ;;=113^2^390
 ;;^UTILITY(U,$J,601.751,486,0)
 ;;=113^3^391
 ;;^UTILITY(U,$J,601.751,487,0)
 ;;=113^4^392
 ;;^UTILITY(U,$J,601.751,488,0)
 ;;=114^1^240
 ;;^UTILITY(U,$J,601.751,489,0)
 ;;=114^2^393
 ;;^UTILITY(U,$J,601.751,490,0)
 ;;=114^3^394
 ;;^UTILITY(U,$J,601.751,491,0)
 ;;=114^4^395
 ;;^UTILITY(U,$J,601.751,492,0)
 ;;=115^1^289
 ;;^UTILITY(U,$J,601.751,493,0)
 ;;=115^2^331
 ;;^UTILITY(U,$J,601.751,494,0)
 ;;=115^3^332
 ;;^UTILITY(U,$J,601.751,495,0)
 ;;=115^4^396
 ;;^UTILITY(U,$J,601.751,496,0)
 ;;=116^1^397
 ;;^UTILITY(U,$J,601.751,497,0)
 ;;=116^2^398
 ;;^UTILITY(U,$J,601.751,498,0)
 ;;=116^3^399
 ;;^UTILITY(U,$J,601.751,499,0)
 ;;=116^4^400
 ;;^UTILITY(U,$J,601.751,500,0)
 ;;=117^1^401
 ;;^UTILITY(U,$J,601.751,501,0)
 ;;=117^2^402
 ;;^UTILITY(U,$J,601.751,502,0)
 ;;=117^3^403
 ;;^UTILITY(U,$J,601.751,503,0)
 ;;=117^4^404
 ;;^UTILITY(U,$J,601.751,504,0)
 ;;=118^1^405
 ;;^UTILITY(U,$J,601.751,505,0)
 ;;=118^2^406
 ;;^UTILITY(U,$J,601.751,506,0)
 ;;=118^3^407
 ;;^UTILITY(U,$J,601.751,507,0)
 ;;=119^1^240
 ;;^UTILITY(U,$J,601.751,508,0)
 ;;=119^2^329
 ;;^UTILITY(U,$J,601.751,509,0)
 ;;=119^3^334
 ;;^UTILITY(U,$J,601.751,510,0)
 ;;=119^4^244
 ;;^UTILITY(U,$J,601.751,511,0)
 ;;=120^1^240
 ;;^UTILITY(U,$J,601.751,512,0)
 ;;=120^2^408
 ;;^UTILITY(U,$J,601.751,513,0)
 ;;=120^3^409
 ;;^UTILITY(U,$J,601.751,514,0)
 ;;=120^4^410
 ;;^UTILITY(U,$J,601.751,515,0)
 ;;=121^1^411
 ;;^UTILITY(U,$J,601.751,516,0)
 ;;=121^2^412
 ;;^UTILITY(U,$J,601.751,517,0)
 ;;=121^3^413
 ;;^UTILITY(U,$J,601.751,518,0)
 ;;=121^4^414
 ;;^UTILITY(U,$J,601.751,519,0)
 ;;=122^1^415
 ;;^UTILITY(U,$J,601.751,520,0)
 ;;=122^2^416
 ;;^UTILITY(U,$J,601.751,521,0)
 ;;=122^3^417
 ;;^UTILITY(U,$J,601.751,522,0)
 ;;=122^4^418
 ;;^UTILITY(U,$J,601.751,523,0)
 ;;=123^1^419
 ;;^UTILITY(U,$J,601.751,524,0)
 ;;=123^2^420
 ;;^UTILITY(U,$J,601.751,525,0)
 ;;=123^3^421
 ;;^UTILITY(U,$J,601.751,526,0)
 ;;=123^4^422
 ;;^UTILITY(U,$J,601.751,527,0)
 ;;=124^1^423
 ;;^UTILITY(U,$J,601.751,528,0)
 ;;=124^2^424
 ;;^UTILITY(U,$J,601.751,529,0)
 ;;=124^3^425
 ;;^UTILITY(U,$J,601.751,530,0)
 ;;=124^4^426
 ;;^UTILITY(U,$J,601.751,531,0)
 ;;=125^1^427
 ;;^UTILITY(U,$J,601.751,532,0)
 ;;=125^2^428
 ;;^UTILITY(U,$J,601.751,533,0)
 ;;=125^3^429
 ;;^UTILITY(U,$J,601.751,534,0)
 ;;=125^4^430
 ;;^UTILITY(U,$J,601.751,535,0)
 ;;=126^1^240
 ;;^UTILITY(U,$J,601.751,536,0)
 ;;=126^2^331
 ;;^UTILITY(U,$J,601.751,537,0)
 ;;=126^3^431
 ;;^UTILITY(U,$J,601.751,538,0)
 ;;=126^4^396
 ;;^UTILITY(U,$J,601.751,539,0)
 ;;=127^1^432
 ;;^UTILITY(U,$J,601.751,540,0)
 ;;=127^2^433
 ;;^UTILITY(U,$J,601.751,541,0)
 ;;=127^3^434
 ;;^UTILITY(U,$J,601.751,542,0)
 ;;=127^4^435
 ;;^UTILITY(U,$J,601.751,543,0)
 ;;=128^1^436
 ;;^UTILITY(U,$J,601.751,544,0)
 ;;=128^2^437
 ;;^UTILITY(U,$J,601.751,545,0)
 ;;=128^3^438
 ;;^UTILITY(U,$J,601.751,546,0)
 ;;=128^4^439
 ;;^UTILITY(U,$J,601.751,547,0)
 ;;=129^1^440
 ;;^UTILITY(U,$J,601.751,548,0)
 ;;=129^2^441
 ;;^UTILITY(U,$J,601.751,549,0)
 ;;=129^3^442
 ;;^UTILITY(U,$J,601.751,550,0)
 ;;=129^4^443
 ;;^UTILITY(U,$J,601.751,551,0)
 ;;=130^1^444
 ;;^UTILITY(U,$J,601.751,552,0)
 ;;=130^2^445
 ;;^UTILITY(U,$J,601.751,553,0)
 ;;=130^3^446
 ;;^UTILITY(U,$J,601.751,554,0)
 ;;=130^4^447
 ;;^UTILITY(U,$J,601.751,555,0)
 ;;=131^1^448
 ;;^UTILITY(U,$J,601.751,556,0)
 ;;=131^2^449
 ;;^UTILITY(U,$J,601.751,557,0)
 ;;=131^3^450
 ;;^UTILITY(U,$J,601.751,558,0)
 ;;=131^4^451
 ;;^UTILITY(U,$J,601.751,559,0)
 ;;=132^1^452
 ;;^UTILITY(U,$J,601.751,560,0)
 ;;=132^2^453
 ;;^UTILITY(U,$J,601.751,561,0)
 ;;=132^3^454
 ;;^UTILITY(U,$J,601.751,562,0)
 ;;=132^4^455
 ;;^UTILITY(U,$J,601.751,563,0)
 ;;=133^1^456
 ;;^UTILITY(U,$J,601.751,564,0)
 ;;=133^2^457
 ;;^UTILITY(U,$J,601.751,565,0)
 ;;=133^3^458
 ;;^UTILITY(U,$J,601.751,566,0)
 ;;=133^4^459
 ;;^UTILITY(U,$J,601.751,567,0)
 ;;=134^1^460
 ;;^UTILITY(U,$J,601.751,568,0)
 ;;=134^2^461
 ;;^UTILITY(U,$J,601.751,569,0)
 ;;=134^3^462
 ;;^UTILITY(U,$J,601.751,570,0)
 ;;=134^4^463
 ;;^UTILITY(U,$J,601.751,571,0)
 ;;=135^1^464
 ;;^UTILITY(U,$J,601.751,572,0)
 ;;=135^2^465
 ;;^UTILITY(U,$J,601.751,573,0)
 ;;=135^3^466
 ;;^UTILITY(U,$J,601.751,574,0)
 ;;=135^4^467
 ;;^UTILITY(U,$J,601.751,575,0)
 ;;=136^1^468
 ;;^UTILITY(U,$J,601.751,576,0)
 ;;=136^2^469
 ;;^UTILITY(U,$J,601.751,577,0)
 ;;=136^3^470
 ;;^UTILITY(U,$J,601.751,578,0)
 ;;=136^4^471
 ;;^UTILITY(U,$J,601.751,579,0)
 ;;=137^1^472
 ;;^UTILITY(U,$J,601.751,580,0)
 ;;=137^2^473
 ;;^UTILITY(U,$J,601.751,581,0)
 ;;=137^3^474
 ;;^UTILITY(U,$J,601.751,582,0)
 ;;=137^4^475
 ;;^UTILITY(U,$J,601.751,583,0)
 ;;=138^1^476
 ;;^UTILITY(U,$J,601.751,584,0)
 ;;=138^2^477
 ;;^UTILITY(U,$J,601.751,585,0)
 ;;=138^3^478
 ;;^UTILITY(U,$J,601.751,586,0)
 ;;=138^4^479
 ;;^UTILITY(U,$J,601.751,587,0)
 ;;=139^1^480
 ;;^UTILITY(U,$J,601.751,588,0)
 ;;=139^2^481
 ;;^UTILITY(U,$J,601.751,589,0)
 ;;=139^3^482
 ;;^UTILITY(U,$J,601.751,590,0)
 ;;=139^4^483