YTQQI006	;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,783,0)
	;;=191^2^676
	;;^UTILITY(U,$J,601.751,784,0)
	;;=191^3^677
	;;^UTILITY(U,$J,601.751,785,0)
	;;=192^1^678
	;;^UTILITY(U,$J,601.751,786,0)
	;;=192^2^679
	;;^UTILITY(U,$J,601.751,787,0)
	;;=192^3^680
	;;^UTILITY(U,$J,601.751,788,0)
	;;=193^1^681
	;;^UTILITY(U,$J,601.751,789,0)
	;;=193^2^682
	;;^UTILITY(U,$J,601.751,790,0)
	;;=193^3^683
	;;^UTILITY(U,$J,601.751,791,0)
	;;=194^1^432
	;;^UTILITY(U,$J,601.751,792,0)
	;;=194^2^684
	;;^UTILITY(U,$J,601.751,793,0)
	;;=194^3^685
	;;^UTILITY(U,$J,601.751,794,0)
	;;=194^4^686
	;;^UTILITY(U,$J,601.751,795,0)
	;;=194^5^687
	;;^UTILITY(U,$J,601.751,796,0)
	;;=195^1^688
	;;^UTILITY(U,$J,601.751,797,0)
	;;=195^2^689
	;;^UTILITY(U,$J,601.751,798,0)
	;;=3711^1^237
	;;^UTILITY(U,$J,601.751,799,0)
	;;=3711^2^241
	;;^UTILITY(U,$J,601.751,800,0)
	;;=197^1^692
	;;^UTILITY(U,$J,601.751,801,0)
	;;=197^2^693
	;;^UTILITY(U,$J,601.751,802,0)
	;;=197^3^694
	;;^UTILITY(U,$J,601.751,803,0)
	;;=197^4^695
	;;^UTILITY(U,$J,601.751,804,0)
	;;=198^1^696
	;;^UTILITY(U,$J,601.751,805,0)
	;;=198^2^697
	;;^UTILITY(U,$J,601.751,806,0)
	;;=198^3^698
	;;^UTILITY(U,$J,601.751,807,0)
	;;=198^4^699
	;;^UTILITY(U,$J,601.751,808,0)
	;;=198^5^700
	;;^UTILITY(U,$J,601.751,809,0)
	;;=199^1^701
	;;^UTILITY(U,$J,601.751,810,0)
	;;=199^2^702
	;;^UTILITY(U,$J,601.751,811,0)
	;;=199^3^703
	;;^UTILITY(U,$J,601.751,812,0)
	;;=199^4^704
	;;^UTILITY(U,$J,601.751,813,0)
	;;=199^5^705
	;;^UTILITY(U,$J,601.751,814,0)
	;;=199^6^706
	;;^UTILITY(U,$J,601.751,815,0)
	;;=200^1^701
	;;^UTILITY(U,$J,601.751,816,0)
	;;=200^2^702
	;;^UTILITY(U,$J,601.751,817,0)
	;;=200^3^703
	;;^UTILITY(U,$J,601.751,818,0)
	;;=200^4^704
	;;^UTILITY(U,$J,601.751,819,0)
	;;=200^5^707
	;;^UTILITY(U,$J,601.751,820,0)
	;;=200^6^708
	;;^UTILITY(U,$J,601.751,821,0)
	;;=200^7^709
	;;^UTILITY(U,$J,601.751,822,0)
	;;=201^1^701
	;;^UTILITY(U,$J,601.751,823,0)
	;;=201^2^710
	;;^UTILITY(U,$J,601.751,824,0)
	;;=201^3^711
	;;^UTILITY(U,$J,601.751,825,0)
	;;=201^4^712
	;;^UTILITY(U,$J,601.751,826,0)
	;;=201^5^713
	;;^UTILITY(U,$J,601.751,827,0)
	;;=201^6^714
	;;^UTILITY(U,$J,601.751,828,0)
	;;=201^7^715
	;;^UTILITY(U,$J,601.751,829,0)
	;;=202^1^716
	;;^UTILITY(U,$J,601.751,830,0)
	;;=202^2^717
	;;^UTILITY(U,$J,601.751,831,0)
	;;=202^3^718
	;;^UTILITY(U,$J,601.751,832,0)
	;;=202^4^719
	;;^UTILITY(U,$J,601.751,833,0)
	;;=202^5^720
	;;^UTILITY(U,$J,601.751,834,0)
	;;=203^1^721
	;;^UTILITY(U,$J,601.751,835,0)
	;;=203^2^722
	;;^UTILITY(U,$J,601.751,836,0)
	;;=203^3^362
	;;^UTILITY(U,$J,601.751,837,0)
	;;=204^1^723
	;;^UTILITY(U,$J,601.751,838,0)
	;;=205^1^716
	;;^UTILITY(U,$J,601.751,839,0)
	;;=205^2^724
	;;^UTILITY(U,$J,601.751,840,0)
	;;=205^3^725
	;;^UTILITY(U,$J,601.751,841,0)
	;;=205^4^726
	;;^UTILITY(U,$J,601.751,842,0)
	;;=206^1^240
	;;^UTILITY(U,$J,601.751,843,0)
	;;=206^2^727
	;;^UTILITY(U,$J,601.751,844,0)
	;;=206^3^728
	;;^UTILITY(U,$J,601.751,845,0)
	;;=206^4^729
	;;^UTILITY(U,$J,601.751,846,0)
	;;=207^1^240
	;;^UTILITY(U,$J,601.751,847,0)
	;;=207^2^730
	;;^UTILITY(U,$J,601.751,848,0)
	;;=207^3^731
	;;^UTILITY(U,$J,601.751,849,0)
	;;=207^4^732
	;;^UTILITY(U,$J,601.751,850,0)
	;;=208^1^240
	;;^UTILITY(U,$J,601.751,851,0)
	;;=208^2^733
	;;^UTILITY(U,$J,601.751,852,0)
	;;=208^3^734
	;;^UTILITY(U,$J,601.751,853,0)
	;;=208^4^735
	;;^UTILITY(U,$J,601.751,854,0)
	;;=209^1^240
	;;^UTILITY(U,$J,601.751,855,0)
	;;=209^2^736
	;;^UTILITY(U,$J,601.751,856,0)
	;;=209^3^737
	;;^UTILITY(U,$J,601.751,857,0)
	;;=209^4^738
	;;^UTILITY(U,$J,601.751,858,0)
	;;=210^1^739
	;;^UTILITY(U,$J,601.751,859,0)
	;;=210^2^740
	;;^UTILITY(U,$J,601.751,860,0)
	;;=210^3^741
	;;^UTILITY(U,$J,601.751,861,0)
	;;=210^4^742
	;;^UTILITY(U,$J,601.751,862,0)
	;;=210^5^743
	;;^UTILITY(U,$J,601.751,863,0)
	;;=211^1^744
	;;^UTILITY(U,$J,601.751,864,0)
	;;=211^2^745
	;;^UTILITY(U,$J,601.751,865,0)
	;;=211^3^746
	;;^UTILITY(U,$J,601.751,866,0)
	;;=211^4^747
	;;^UTILITY(U,$J,601.751,867,0)
	;;=211^5^748
	;;^UTILITY(U,$J,601.751,868,0)
	;;=212^1^749
	;;^UTILITY(U,$J,601.751,869,0)
	;;=212^2^750
	;;^UTILITY(U,$J,601.751,870,0)
	;;=212^3^751
	;;^UTILITY(U,$J,601.751,871,0)
	;;=212^4^752
	;;^UTILITY(U,$J,601.751,872,0)
	;;=212^5^753
	;;^UTILITY(U,$J,601.751,873,0)
	;;=212^6^754
	;;^UTILITY(U,$J,601.751,874,0)
	;;=213^1^701
	;;^UTILITY(U,$J,601.751,875,0)
	;;=213^2^702
	;;^UTILITY(U,$J,601.751,876,0)
	;;=213^3^703
	;;^UTILITY(U,$J,601.751,877,0)
	;;=213^4^704
	;;^UTILITY(U,$J,601.751,878,0)
	;;=213^5^755
	;;^UTILITY(U,$J,601.751,879,0)
	;;=214^1^756
	;;^UTILITY(U,$J,601.751,880,0)
	;;=214^2^757
	;;^UTILITY(U,$J,601.751,881,0)
	;;=214^3^758
	;;^UTILITY(U,$J,601.751,882,0)
	;;=214^4^759
	;;^UTILITY(U,$J,601.751,883,0)
	;;=214^5^760
	;;^UTILITY(U,$J,601.751,884,0)
	;;=215^1^761
	;;^UTILITY(U,$J,601.751,885,0)
	;;=215^2^762
	;;^UTILITY(U,$J,601.751,886,0)
	;;=215^3^763
	;;^UTILITY(U,$J,601.751,887,0)
	;;=215^4^764
	;;^UTILITY(U,$J,601.751,888,0)
	;;=215^5^765
	;;^UTILITY(U,$J,601.751,889,0)
	;;=216^1^361
	;;^UTILITY(U,$J,601.751,890,0)
	;;=216^2^766
	;;^UTILITY(U,$J,601.751,891,0)
	;;=216^3^767
	;;^UTILITY(U,$J,601.751,892,0)
	;;=217^1^768
	;;^UTILITY(U,$J,601.751,893,0)
	;;=217^2^769
	;;^UTILITY(U,$J,601.751,894,0)
	;;=217^3^770
	;;^UTILITY(U,$J,601.751,895,0)
	;;=217^4^771
	;;^UTILITY(U,$J,601.751,896,0)
	;;=218^1^772
	;;^UTILITY(U,$J,601.751,897,0)
	;;=218^2^773
	;;^UTILITY(U,$J,601.751,898,0)
	;;=218^3^774
	;;^UTILITY(U,$J,601.751,899,0)
	;;=218^4^775
	;;^UTILITY(U,$J,601.751,900,0)
	;;=219^1^776
	;;^UTILITY(U,$J,601.751,901,0)
	;;=219^2^777
	;;^UTILITY(U,$J,601.751,902,0)
	;;=219^3^778
	;;^UTILITY(U,$J,601.751,903,0)
	;;=219^4^779
	;;^UTILITY(U,$J,601.751,904,0)
	;;=220^1^780
	;;^UTILITY(U,$J,601.751,905,0)
	;;=220^2^781
	;;^UTILITY(U,$J,601.751,906,0)
	;;=220^3^782
	;;^UTILITY(U,$J,601.751,907,0)
	;;=220^4^783
	;;^UTILITY(U,$J,601.751,908,0)
	;;=220^5^784
	;;^UTILITY(U,$J,601.751,909,0)
	;;=220^6^785
	;;^UTILITY(U,$J,601.751,910,0)
	;;=3712^1^237
	;;^UTILITY(U,$J,601.751,911,0)
	;;=3712^2^241
	;;^UTILITY(U,$J,601.751,912,0)
	;;=3713^1^237
	;;^UTILITY(U,$J,601.751,913,0)
	;;=3713^2^241
	;;^UTILITY(U,$J,601.751,914,0)
	;;=3714^1^237
	;;^UTILITY(U,$J,601.751,915,0)
	;;=3714^2^241
	;;^UTILITY(U,$J,601.751,916,0)
	;;=6220^1^1465
	;;^UTILITY(U,$J,601.751,917,0)
	;;=6220^2^1466
	;;^UTILITY(U,$J,601.751,918,0)
	;;=6220^3^1467
	;;^UTILITY(U,$J,601.751,919,0)
	;;=6220^4^745
	;;^UTILITY(U,$J,601.751,920,0)
	;;=6221^1^1468
	;;^UTILITY(U,$J,601.751,921,0)
	;;=6221^2^1469
	;;^UTILITY(U,$J,601.751,922,0)
	;;=6221^3^1470
	;;^UTILITY(U,$J,601.751,923,0)
	;;=6221^4^753
	;;^UTILITY(U,$J,601.751,924,0)
	;;=228^1^800
	;;^UTILITY(U,$J,601.751,925,0)
	;;=228^2^801
	;;^UTILITY(U,$J,601.751,926,0)
	;;=6221^5^1471
	;;^UTILITY(U,$J,601.751,927,0)
	;;=6222^1^1814
	;;^UTILITY(U,$J,601.751,928,0)
	;;=6222^2^1472
	;;^UTILITY(U,$J,601.751,929,0)
	;;=6222^3^1473
	;;^UTILITY(U,$J,601.751,930,0)
	;;=6222^4^1474
	;;^UTILITY(U,$J,601.751,931,0)
	;;=6222^5^1475
	;;^UTILITY(U,$J,601.751,932,0)
	;;=232^1^808
	;;^UTILITY(U,$J,601.751,933,0)
	;;=232^2^809
	;;^UTILITY(U,$J,601.751,934,0)
	;;=233^1^810
	;;^UTILITY(U,$J,601.751,935,0)
	;;=233^2^811
	;;^UTILITY(U,$J,601.751,936,0)
	;;=234^1^812
	;;^UTILITY(U,$J,601.751,937,0)
	;;=234^2^813
	;;^UTILITY(U,$J,601.751,938,0)
	;;=6222^6^1476
	;;^UTILITY(U,$J,601.751,939,0)
	;;=6222^7^1477
	;;^UTILITY(U,$J,601.751,940,0)
	;;=721^1^803
	;;^UTILITY(U,$J,601.751,941,0)
	;;=721^2^804
	;;^UTILITY(U,$J,601.751,942,0)
	;;=721^3^805
	;;^UTILITY(U,$J,601.751,943,0)
	;;=721^4^806
	;;^UTILITY(U,$J,601.751,944,0)
	;;=238^1^820
	;;^UTILITY(U,$J,601.751,945,0)
	;;=238^2^821
	;;^UTILITY(U,$J,601.751,946,0)
	;;=239^1^822
	;;^UTILITY(U,$J,601.751,947,0)
	;;=239^2^823
	;;^UTILITY(U,$J,601.751,948,0)
	;;=240^1^824
	;;^UTILITY(U,$J,601.751,949,0)
	;;=240^2^825
	;;^UTILITY(U,$J,601.751,950,0)
	;;=721^5^807
	;;^UTILITY(U,$J,601.751,951,0)
	;;=722^1^814
	;;^UTILITY(U,$J,601.751,952,0)
	;;=242^1^828
	;;^UTILITY(U,$J,601.751,953,0)
	;;=242^2^829
	;;^UTILITY(U,$J,601.751,954,0)
	;;=243^1^830
	;;^UTILITY(U,$J,601.751,955,0)
	;;=243^2^831
	;;^UTILITY(U,$J,601.751,956,0)
	;;=722^2^815
	;;^UTILITY(U,$J,601.751,957,0)
	;;=722^3^884
	;;^UTILITY(U,$J,601.751,958,0)
	;;=722^4^772
	;;^UTILITY(U,$J,601.751,959,0)
	;;=722^5^817
	;;^UTILITY(U,$J,601.751,960,0)
	;;=723^1^217
	;;^UTILITY(U,$J,601.751,961,0)
	;;=723^2^242
	;;^UTILITY(U,$J,601.751,962,0)
	;;=247^1^838
	;;^UTILITY(U,$J,601.751,963,0)
	;;=247^2^839
	;;^UTILITY(U,$J,601.751,964,0)
	;;=248^1^840
	;;^UTILITY(U,$J,601.751,965,0)
	;;=248^2^841
	;;^UTILITY(U,$J,601.751,966,0)
	;;=723^3^213
	;;^UTILITY(U,$J,601.751,967,0)
	;;=723^4^215
	;;^UTILITY(U,$J,601.751,968,0)
	;;=250^1^289
	;;^UTILITY(U,$J,601.751,969,0)
	;;=250^2^290
	;;^UTILITY(U,$J,601.751,970,0)
	;;=250^3^844
	;;^UTILITY(U,$J,601.751,971,0)
	;;=251^1^845
	;;^UTILITY(U,$J,601.751,972,0)
	;;=251^2^846
	;;^UTILITY(U,$J,601.751,973,0)
	;;=251^3^847