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