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