YTQQI005 ;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,591,0)
 ;;=140^1^484
 ;;^UTILITY(U,$J,601.751,592,0)
 ;;=140^2^485
 ;;^UTILITY(U,$J,601.751,593,0)
 ;;=140^3^486
 ;;^UTILITY(U,$J,601.751,594,0)
 ;;=140^4^487
 ;;^UTILITY(U,$J,601.751,595,0)
 ;;=141^1^488
 ;;^UTILITY(U,$J,601.751,596,0)
 ;;=141^2^489
 ;;^UTILITY(U,$J,601.751,597,0)
 ;;=141^3^490
 ;;^UTILITY(U,$J,601.751,598,0)
 ;;=141^4^491
 ;;^UTILITY(U,$J,601.751,599,0)
 ;;=142^1^492
 ;;^UTILITY(U,$J,601.751,600,0)
 ;;=142^2^493
 ;;^UTILITY(U,$J,601.751,601,0)
 ;;=142^3^494
 ;;^UTILITY(U,$J,601.751,602,0)
 ;;=142^4^495
 ;;^UTILITY(U,$J,601.751,603,0)
 ;;=143^1^496
 ;;^UTILITY(U,$J,601.751,604,0)
 ;;=143^2^497
 ;;^UTILITY(U,$J,601.751,605,0)
 ;;=143^3^498
 ;;^UTILITY(U,$J,601.751,606,0)
 ;;=143^4^499
 ;;^UTILITY(U,$J,601.751,607,0)
 ;;=144^1^500
 ;;^UTILITY(U,$J,601.751,608,0)
 ;;=144^2^501
 ;;^UTILITY(U,$J,601.751,609,0)
 ;;=144^3^502
 ;;^UTILITY(U,$J,601.751,610,0)
 ;;=144^4^503
 ;;^UTILITY(U,$J,601.751,611,0)
 ;;=145^1^504
 ;;^UTILITY(U,$J,601.751,612,0)
 ;;=145^2^505
 ;;^UTILITY(U,$J,601.751,613,0)
 ;;=145^3^506
 ;;^UTILITY(U,$J,601.751,614,0)
 ;;=145^4^507
 ;;^UTILITY(U,$J,601.751,615,0)
 ;;=146^1^508
 ;;^UTILITY(U,$J,601.751,616,0)
 ;;=146^2^509
 ;;^UTILITY(U,$J,601.751,617,0)
 ;;=146^3^510
 ;;^UTILITY(U,$J,601.751,618,0)
 ;;=146^4^511
 ;;^UTILITY(U,$J,601.751,619,0)
 ;;=147^1^512
 ;;^UTILITY(U,$J,601.751,620,0)
 ;;=147^2^513
 ;;^UTILITY(U,$J,601.751,621,0)
 ;;=148^1^514
 ;;^UTILITY(U,$J,601.751,622,0)
 ;;=148^2^515
 ;;^UTILITY(U,$J,601.751,623,0)
 ;;=148^3^516
 ;;^UTILITY(U,$J,601.751,624,0)
 ;;=148^4^517
 ;;^UTILITY(U,$J,601.751,625,0)
 ;;=149^1^518
 ;;^UTILITY(U,$J,601.751,626,0)
 ;;=149^2^519
 ;;^UTILITY(U,$J,601.751,627,0)
 ;;=149^3^520
 ;;^UTILITY(U,$J,601.751,628,0)
 ;;=149^4^521
 ;;^UTILITY(U,$J,601.751,629,0)
 ;;=150^1^522
 ;;^UTILITY(U,$J,601.751,630,0)
 ;;=150^2^523
 ;;^UTILITY(U,$J,601.751,631,0)
 ;;=150^3^524
 ;;^UTILITY(U,$J,601.751,632,0)
 ;;=150^4^525
 ;;^UTILITY(U,$J,601.751,633,0)
 ;;=151^1^526
 ;;^UTILITY(U,$J,601.751,634,0)
 ;;=151^2^527
 ;;^UTILITY(U,$J,601.751,635,0)
 ;;=151^3^528
 ;;^UTILITY(U,$J,601.751,636,0)
 ;;=151^4^529
 ;;^UTILITY(U,$J,601.751,637,0)
 ;;=152^1^530
 ;;^UTILITY(U,$J,601.751,638,0)
 ;;=152^2^531
 ;;^UTILITY(U,$J,601.751,639,0)
 ;;=152^3^532
 ;;^UTILITY(U,$J,601.751,640,0)
 ;;=152^4^533
 ;;^UTILITY(U,$J,601.751,641,0)
 ;;=153^1^534
 ;;^UTILITY(U,$J,601.751,642,0)
 ;;=153^2^535
 ;;^UTILITY(U,$J,601.751,643,0)
 ;;=153^3^536
 ;;^UTILITY(U,$J,601.751,644,0)
 ;;=153^4^537
 ;;^UTILITY(U,$J,601.751,645,0)
 ;;=154^1^538
 ;;^UTILITY(U,$J,601.751,646,0)
 ;;=154^2^539
 ;;^UTILITY(U,$J,601.751,647,0)
 ;;=154^3^540
 ;;^UTILITY(U,$J,601.751,648,0)
 ;;=154^4^541
 ;;^UTILITY(U,$J,601.751,649,0)
 ;;=155^1^542
 ;;^UTILITY(U,$J,601.751,650,0)
 ;;=155^2^543
 ;;^UTILITY(U,$J,601.751,651,0)
 ;;=155^3^544
 ;;^UTILITY(U,$J,601.751,652,0)
 ;;=155^4^545
 ;;^UTILITY(U,$J,601.751,653,0)
 ;;=156^1^546
 ;;^UTILITY(U,$J,601.751,654,0)
 ;;=156^2^547
 ;;^UTILITY(U,$J,601.751,655,0)
 ;;=156^3^548
 ;;^UTILITY(U,$J,601.751,656,0)
 ;;=156^4^549
 ;;^UTILITY(U,$J,601.751,657,0)
 ;;=157^1^550
 ;;^UTILITY(U,$J,601.751,658,0)
 ;;=157^2^551
 ;;^UTILITY(U,$J,601.751,659,0)
 ;;=157^3^552
 ;;^UTILITY(U,$J,601.751,660,0)
 ;;=157^4^553
 ;;^UTILITY(U,$J,601.751,661,0)
 ;;=158^1^554
 ;;^UTILITY(U,$J,601.751,662,0)
 ;;=158^2^555
 ;;^UTILITY(U,$J,601.751,663,0)
 ;;=158^3^556
 ;;^UTILITY(U,$J,601.751,664,0)
 ;;=158^4^557
 ;;^UTILITY(U,$J,601.751,665,0)
 ;;=159^1^558
 ;;^UTILITY(U,$J,601.751,666,0)
 ;;=159^2^559
 ;;^UTILITY(U,$J,601.751,667,0)
 ;;=159^3^560
 ;;^UTILITY(U,$J,601.751,668,0)
 ;;=159^4^561
 ;;^UTILITY(U,$J,601.751,669,0)
 ;;=160^1^562
 ;;^UTILITY(U,$J,601.751,670,0)
 ;;=160^2^563
 ;;^UTILITY(U,$J,601.751,671,0)
 ;;=160^3^564
 ;;^UTILITY(U,$J,601.751,672,0)
 ;;=160^4^565
 ;;^UTILITY(U,$J,601.751,673,0)
 ;;=161^1^566
 ;;^UTILITY(U,$J,601.751,674,0)
 ;;=161^2^567
 ;;^UTILITY(U,$J,601.751,675,0)
 ;;=161^3^568
 ;;^UTILITY(U,$J,601.751,676,0)
 ;;=161^4^569
 ;;^UTILITY(U,$J,601.751,677,0)
 ;;=162^1^570
 ;;^UTILITY(U,$J,601.751,678,0)
 ;;=162^2^571
 ;;^UTILITY(U,$J,601.751,679,0)
 ;;=162^3^572
 ;;^UTILITY(U,$J,601.751,680,0)
 ;;=162^4^573
 ;;^UTILITY(U,$J,601.751,681,0)
 ;;=163^1^574
 ;;^UTILITY(U,$J,601.751,682,0)
 ;;=163^2^575
 ;;^UTILITY(U,$J,601.751,683,0)
 ;;=163^3^576
 ;;^UTILITY(U,$J,601.751,684,0)
 ;;=163^4^577
 ;;^UTILITY(U,$J,601.751,685,0)
 ;;=164^1^578
 ;;^UTILITY(U,$J,601.751,686,0)
 ;;=164^2^579
 ;;^UTILITY(U,$J,601.751,687,0)
 ;;=164^3^580
 ;;^UTILITY(U,$J,601.751,688,0)
 ;;=164^4^581
 ;;^UTILITY(U,$J,601.751,689,0)
 ;;=165^1^582
 ;;^UTILITY(U,$J,601.751,690,0)
 ;;=165^2^583
 ;;^UTILITY(U,$J,601.751,691,0)
 ;;=165^3^584
 ;;^UTILITY(U,$J,601.751,692,0)
 ;;=165^4^585
 ;;^UTILITY(U,$J,601.751,693,0)
 ;;=165^5^586
 ;;^UTILITY(U,$J,601.751,694,0)
 ;;=165^6^587
 ;;^UTILITY(U,$J,601.751,695,0)
 ;;=165^7^588
 ;;^UTILITY(U,$J,601.751,696,0)
 ;;=166^1^589
 ;;^UTILITY(U,$J,601.751,697,0)
 ;;=166^2^590
 ;;^UTILITY(U,$J,601.751,698,0)
 ;;=166^3^591
 ;;^UTILITY(U,$J,601.751,699,0)
 ;;=166^4^592
 ;;^UTILITY(U,$J,601.751,700,0)
 ;;=167^1^593
 ;;^UTILITY(U,$J,601.751,701,0)
 ;;=167^2^594
 ;;^UTILITY(U,$J,601.751,702,0)
 ;;=167^3^595
 ;;^UTILITY(U,$J,601.751,703,0)
 ;;=167^4^596
 ;;^UTILITY(U,$J,601.751,704,0)
 ;;=167^5^597
 ;;^UTILITY(U,$J,601.751,705,0)
 ;;=167^6^598
 ;;^UTILITY(U,$J,601.751,706,0)
 ;;=167^7^599
 ;;^UTILITY(U,$J,601.751,707,0)
 ;;=168^1^600
 ;;^UTILITY(U,$J,601.751,708,0)
 ;;=168^2^601
 ;;^UTILITY(U,$J,601.751,709,0)
 ;;=168^3^602
 ;;^UTILITY(U,$J,601.751,710,0)
 ;;=168^4^603
 ;;^UTILITY(U,$J,601.751,711,0)
 ;;=169^1^604
 ;;^UTILITY(U,$J,601.751,712,0)
 ;;=169^2^605
 ;;^UTILITY(U,$J,601.751,713,0)
 ;;=169^3^606
 ;;^UTILITY(U,$J,601.751,714,0)
 ;;=169^4^607
 ;;^UTILITY(U,$J,601.751,715,0)
 ;;=170^1^608
 ;;^UTILITY(U,$J,601.751,716,0)
 ;;=170^2^609
 ;;^UTILITY(U,$J,601.751,717,0)
 ;;=170^3^610
 ;;^UTILITY(U,$J,601.751,718,0)
 ;;=170^4^611
 ;;^UTILITY(U,$J,601.751,719,0)
 ;;=171^1^612
 ;;^UTILITY(U,$J,601.751,720,0)
 ;;=171^2^613
 ;;^UTILITY(U,$J,601.751,721,0)
 ;;=172^1^614
 ;;^UTILITY(U,$J,601.751,722,0)
 ;;=172^2^615
 ;;^UTILITY(U,$J,601.751,723,0)
 ;;=172^3^616
 ;;^UTILITY(U,$J,601.751,724,0)
 ;;=172^4^617
 ;;^UTILITY(U,$J,601.751,725,0)
 ;;=172^5^618
 ;;^UTILITY(U,$J,601.751,726,0)
 ;;=172^6^619
 ;;^UTILITY(U,$J,601.751,727,0)
 ;;=172^7^620
 ;;^UTILITY(U,$J,601.751,728,0)
 ;;=173^1^621
 ;;^UTILITY(U,$J,601.751,729,0)
 ;;=173^2^622
 ;;^UTILITY(U,$J,601.751,730,0)
 ;;=173^3^623
 ;;^UTILITY(U,$J,601.751,731,0)
 ;;=174^1^624
 ;;^UTILITY(U,$J,601.751,732,0)
 ;;=174^2^625
 ;;^UTILITY(U,$J,601.751,733,0)
 ;;=174^3^626
 ;;^UTILITY(U,$J,601.751,734,0)
 ;;=175^1^627
 ;;^UTILITY(U,$J,601.751,735,0)
 ;;=175^2^628
 ;;^UTILITY(U,$J,601.751,736,0)
 ;;=175^3^629
 ;;^UTILITY(U,$J,601.751,737,0)
 ;;=176^1^630
 ;;^UTILITY(U,$J,601.751,738,0)
 ;;=176^2^631
 ;;^UTILITY(U,$J,601.751,739,0)
 ;;=176^3^632
 ;;^UTILITY(U,$J,601.751,740,0)
 ;;=177^1^633
 ;;^UTILITY(U,$J,601.751,741,0)
 ;;=177^2^634
 ;;^UTILITY(U,$J,601.751,742,0)
 ;;=177^3^635
 ;;^UTILITY(U,$J,601.751,743,0)
 ;;=178^1^636
 ;;^UTILITY(U,$J,601.751,744,0)
 ;;=178^2^637
 ;;^UTILITY(U,$J,601.751,745,0)
 ;;=178^3^638
 ;;^UTILITY(U,$J,601.751,746,0)
 ;;=179^1^639
 ;;^UTILITY(U,$J,601.751,747,0)
 ;;=179^2^640
 ;;^UTILITY(U,$J,601.751,748,0)
 ;;=179^3^641
 ;;^UTILITY(U,$J,601.751,749,0)
 ;;=180^1^642
 ;;^UTILITY(U,$J,601.751,750,0)
 ;;=180^2^643
 ;;^UTILITY(U,$J,601.751,751,0)
 ;;=180^3^644
 ;;^UTILITY(U,$J,601.751,752,0)
 ;;=181^1^645
 ;;^UTILITY(U,$J,601.751,753,0)
 ;;=181^2^646
 ;;^UTILITY(U,$J,601.751,754,0)
 ;;=181^3^647
 ;;^UTILITY(U,$J,601.751,755,0)
 ;;=182^1^648
 ;;^UTILITY(U,$J,601.751,756,0)
 ;;=182^2^649
 ;;^UTILITY(U,$J,601.751,757,0)
 ;;=182^3^650
 ;;^UTILITY(U,$J,601.751,758,0)
 ;;=183^1^651
 ;;^UTILITY(U,$J,601.751,759,0)
 ;;=183^2^652
 ;;^UTILITY(U,$J,601.751,760,0)
 ;;=183^3^653
 ;;^UTILITY(U,$J,601.751,761,0)
 ;;=184^1^654
 ;;^UTILITY(U,$J,601.751,762,0)
 ;;=184^2^655
 ;;^UTILITY(U,$J,601.751,763,0)
 ;;=184^3^656
 ;;^UTILITY(U,$J,601.751,764,0)
 ;;=185^1^657
 ;;^UTILITY(U,$J,601.751,765,0)
 ;;=185^2^658
 ;;^UTILITY(U,$J,601.751,766,0)
 ;;=185^3^659
 ;;^UTILITY(U,$J,601.751,767,0)
 ;;=186^1^660
 ;;^UTILITY(U,$J,601.751,768,0)
 ;;=186^2^661
 ;;^UTILITY(U,$J,601.751,769,0)
 ;;=186^3^662
 ;;^UTILITY(U,$J,601.751,770,0)
 ;;=187^1^663
 ;;^UTILITY(U,$J,601.751,771,0)
 ;;=187^2^664
 ;;^UTILITY(U,$J,601.751,772,0)
 ;;=187^3^665
 ;;^UTILITY(U,$J,601.751,773,0)
 ;;=188^1^666
 ;;^UTILITY(U,$J,601.751,774,0)
 ;;=188^2^667
 ;;^UTILITY(U,$J,601.751,775,0)
 ;;=188^3^668
 ;;^UTILITY(U,$J,601.751,776,0)
 ;;=189^1^669
 ;;^UTILITY(U,$J,601.751,777,0)
 ;;=189^2^670
 ;;^UTILITY(U,$J,601.751,778,0)
 ;;=189^3^671
 ;;^UTILITY(U,$J,601.751,779,0)
 ;;=190^1^672
 ;;^UTILITY(U,$J,601.751,780,0)
 ;;=190^2^673
 ;;^UTILITY(U,$J,601.751,781,0)
 ;;=190^3^674
 ;;^UTILITY(U,$J,601.751,782,0)
 ;;=191^1^675