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