YTQQI007 ;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,974,0)
 ;;=252^1^848
 ;;^UTILITY(U,$J,601.751,975,0)
 ;;=252^2^849
 ;;^UTILITY(U,$J,601.751,976,0)
 ;;=252^3^850
 ;;^UTILITY(U,$J,601.751,977,0)
 ;;=252^4^851
 ;;^UTILITY(U,$J,601.751,978,0)
 ;;=253^1^852
 ;;^UTILITY(U,$J,601.751,979,0)
 ;;=253^2^853
 ;;^UTILITY(U,$J,601.751,980,0)
 ;;=253^3^854
 ;;^UTILITY(U,$J,601.751,981,0)
 ;;=253^4^855
 ;;^UTILITY(U,$J,601.751,982,0)
 ;;=253^5^856
 ;;^UTILITY(U,$J,601.751,983,0)
 ;;=254^1^857
 ;;^UTILITY(U,$J,601.751,984,0)
 ;;=254^2^858
 ;;^UTILITY(U,$J,601.751,985,0)
 ;;=255^1^859
 ;;^UTILITY(U,$J,601.751,986,0)
 ;;=255^2^860
 ;;^UTILITY(U,$J,601.751,987,0)
 ;;=255^3^861
 ;;^UTILITY(U,$J,601.751,988,0)
 ;;=255^4^862
 ;;^UTILITY(U,$J,601.751,989,0)
 ;;=256^1^863
 ;;^UTILITY(U,$J,601.751,990,0)
 ;;=256^2^864
 ;;^UTILITY(U,$J,601.751,991,0)
 ;;=256^3^865
 ;;^UTILITY(U,$J,601.751,992,0)
 ;;=257^1^866
 ;;^UTILITY(U,$J,601.751,993,0)
 ;;=257^2^867
 ;;^UTILITY(U,$J,601.751,994,0)
 ;;=257^3^868
 ;;^UTILITY(U,$J,601.751,995,0)
 ;;=258^1^869
 ;;^UTILITY(U,$J,601.751,996,0)
 ;;=258^2^290
 ;;^UTILITY(U,$J,601.751,997,0)
 ;;=258^3^870
 ;;^UTILITY(U,$J,601.751,998,0)
 ;;=259^1^871
 ;;^UTILITY(U,$J,601.751,999,0)
 ;;=259^2^242
 ;;^UTILITY(U,$J,601.751,1000,0)
 ;;=259^3^872
 ;;^UTILITY(U,$J,601.751,1001,0)
 ;;=260^1^873
 ;;^UTILITY(U,$J,601.751,1002,0)
 ;;=260^2^290
 ;;^UTILITY(U,$J,601.751,1003,0)
 ;;=260^3^874
 ;;^UTILITY(U,$J,601.751,1004,0)
 ;;=261^1^875
 ;;^UTILITY(U,$J,601.751,1005,0)
 ;;=261^2^876
 ;;^UTILITY(U,$J,601.751,1006,0)
 ;;=261^3^877
 ;;^UTILITY(U,$J,601.751,1007,0)
 ;;=261^4^878
 ;;^UTILITY(U,$J,601.751,1008,0)
 ;;=262^1^879
 ;;^UTILITY(U,$J,601.751,1009,0)
 ;;=262^2^880
 ;;^UTILITY(U,$J,601.751,1010,0)
 ;;=262^3^881
 ;;^UTILITY(U,$J,601.751,1011,0)
 ;;=262^4^882
 ;;^UTILITY(U,$J,601.751,1012,0)
 ;;=263^1^883
 ;;^UTILITY(U,$J,601.751,1013,0)
 ;;=263^2^884
 ;;^UTILITY(U,$J,601.751,1014,0)
 ;;=263^3^885
 ;;^UTILITY(U,$J,601.751,1015,0)
 ;;=263^4^886
 ;;^UTILITY(U,$J,601.751,1016,0)
 ;;=264^1^887
 ;;^UTILITY(U,$J,601.751,1017,0)
 ;;=264^2^888
 ;;^UTILITY(U,$J,601.751,1018,0)
 ;;=264^3^889
 ;;^UTILITY(U,$J,601.751,1019,0)
 ;;=264^4^890
 ;;^UTILITY(U,$J,601.751,1020,0)
 ;;=265^1^891
 ;;^UTILITY(U,$J,601.751,1021,0)
 ;;=265^2^892
 ;;^UTILITY(U,$J,601.751,1022,0)
 ;;=265^3^893
 ;;^UTILITY(U,$J,601.751,1023,0)
 ;;=265^4^894
 ;;^UTILITY(U,$J,601.751,1024,0)
 ;;=266^1^895
 ;;^UTILITY(U,$J,601.751,1025,0)
 ;;=266^2^896
 ;;^UTILITY(U,$J,601.751,1026,0)
 ;;=266^3^897
 ;;^UTILITY(U,$J,601.751,1027,0)
 ;;=267^1^898
 ;;^UTILITY(U,$J,601.751,1028,0)
 ;;=267^2^899
 ;;^UTILITY(U,$J,601.751,1029,0)
 ;;=267^3^900
 ;;^UTILITY(U,$J,601.751,1030,0)
 ;;=267^4^901
 ;;^UTILITY(U,$J,601.751,1031,0)
 ;;=268^1^902
 ;;^UTILITY(U,$J,601.751,1032,0)
 ;;=268^2^903
 ;;^UTILITY(U,$J,601.751,1033,0)
 ;;=268^3^904
 ;;^UTILITY(U,$J,601.751,1034,0)
 ;;=268^4^905
 ;;^UTILITY(U,$J,601.751,1035,0)
 ;;=269^1^902
 ;;^UTILITY(U,$J,601.751,1036,0)
 ;;=269^2^903
 ;;^UTILITY(U,$J,601.751,1037,0)
 ;;=269^3^904
 ;;^UTILITY(U,$J,601.751,1038,0)
 ;;=269^4^906
 ;;^UTILITY(U,$J,601.751,1039,0)
 ;;=270^1^907
 ;;^UTILITY(U,$J,601.751,1040,0)
 ;;=270^2^908
 ;;^UTILITY(U,$J,601.751,1041,0)
 ;;=270^3^909
 ;;^UTILITY(U,$J,601.751,1042,0)
 ;;=271^1^910
 ;;^UTILITY(U,$J,601.751,1043,0)
 ;;=271^2^911
 ;;^UTILITY(U,$J,601.751,1044,0)
 ;;=271^3^912
 ;;^UTILITY(U,$J,601.751,1045,0)
 ;;=271^4^886
 ;;^UTILITY(U,$J,601.751,1046,0)
 ;;=272^1^913
 ;;^UTILITY(U,$J,601.751,1047,0)
 ;;=272^2^914
 ;;^UTILITY(U,$J,601.751,1048,0)
 ;;=273^1^915
 ;;^UTILITY(U,$J,601.751,1049,0)
 ;;=273^2^916
 ;;^UTILITY(U,$J,601.751,1050,0)
 ;;=273^3^917
 ;;^UTILITY(U,$J,601.751,1051,0)
 ;;=274^1^918
 ;;^UTILITY(U,$J,601.751,1052,0)
 ;;=274^2^919
 ;;^UTILITY(U,$J,601.751,1053,0)
 ;;=274^3^920
 ;;^UTILITY(U,$J,601.751,1054,0)
 ;;=275^1^921
 ;;^UTILITY(U,$J,601.751,1055,0)
 ;;=275^2^922
 ;;^UTILITY(U,$J,601.751,1056,0)
 ;;=275^3^923
 ;;^UTILITY(U,$J,601.751,1057,0)
 ;;=276^1^361
 ;;^UTILITY(U,$J,601.751,1058,0)
 ;;=276^2^924
 ;;^UTILITY(U,$J,601.751,1059,0)
 ;;=276^3^243
 ;;^UTILITY(U,$J,601.751,1060,0)
 ;;=277^1^925
 ;;^UTILITY(U,$J,601.751,1061,0)
 ;;=277^2^926
 ;;^UTILITY(U,$J,601.751,1062,0)
 ;;=277^3^927
 ;;^UTILITY(U,$J,601.751,1063,0)
 ;;=278^1^928
 ;;^UTILITY(U,$J,601.751,1064,0)
 ;;=278^2^929
 ;;^UTILITY(U,$J,601.751,1065,0)
 ;;=278^3^930
 ;;^UTILITY(U,$J,601.751,1066,0)
 ;;=278^4^931
 ;;^UTILITY(U,$J,601.751,1067,0)
 ;;=279^1^932
 ;;^UTILITY(U,$J,601.751,1068,0)
 ;;=279^2^933
 ;;^UTILITY(U,$J,601.751,1069,0)
 ;;=280^1^934
 ;;^UTILITY(U,$J,601.751,1070,0)
 ;;=280^2^935
 ;;^UTILITY(U,$J,601.751,1071,0)
 ;;=280^3^936
 ;;^UTILITY(U,$J,601.751,1072,0)
 ;;=281^1^289
 ;;^UTILITY(U,$J,601.751,1073,0)
 ;;=281^2^290
 ;;^UTILITY(U,$J,601.751,1074,0)
 ;;=281^3^937
 ;;^UTILITY(U,$J,601.751,1075,0)
 ;;=282^1^938
 ;;^UTILITY(U,$J,601.751,1076,0)
 ;;=282^2^939
 ;;^UTILITY(U,$J,601.751,1077,0)
 ;;=282^3^940
 ;;^UTILITY(U,$J,601.751,1078,0)
 ;;=282^4^941
 ;;^UTILITY(U,$J,601.751,1079,0)
 ;;=283^1^942
 ;;^UTILITY(U,$J,601.751,1080,0)
 ;;=283^2^943
 ;;^UTILITY(U,$J,601.751,1081,0)
 ;;=283^3^944
 ;;^UTILITY(U,$J,601.751,1082,0)
 ;;=283^4^945
 ;;^UTILITY(U,$J,601.751,1083,0)
 ;;=284^1^946
 ;;^UTILITY(U,$J,601.751,1084,0)
 ;;=284^2^947
 ;;^UTILITY(U,$J,601.751,1085,0)
 ;;=284^3^948
 ;;^UTILITY(U,$J,601.751,1086,0)
 ;;=284^4^949
 ;;^UTILITY(U,$J,601.751,1087,0)
 ;;=285^1^950
 ;;^UTILITY(U,$J,601.751,1088,0)
 ;;=285^2^951
 ;;^UTILITY(U,$J,601.751,1089,0)
 ;;=285^3^952
 ;;^UTILITY(U,$J,601.751,1090,0)
 ;;=285^4^953
 ;;^UTILITY(U,$J,601.751,1091,0)
 ;;=286^1^954
 ;;^UTILITY(U,$J,601.751,1092,0)
 ;;=286^2^955
 ;;^UTILITY(U,$J,601.751,1093,0)
 ;;=286^3^956
 ;;^UTILITY(U,$J,601.751,1094,0)
 ;;=286^4^957
 ;;^UTILITY(U,$J,601.751,1095,0)
 ;;=287^1^958
 ;;^UTILITY(U,$J,601.751,1096,0)
 ;;=287^2^959
 ;;^UTILITY(U,$J,601.751,1097,0)
 ;;=287^3^960
 ;;^UTILITY(U,$J,601.751,1098,0)
 ;;=287^4^961
 ;;^UTILITY(U,$J,601.751,1099,0)
 ;;=287^5^962
 ;;^UTILITY(U,$J,601.751,1100,0)
 ;;=287^6^963
 ;;^UTILITY(U,$J,601.751,1101,0)
 ;;=288^1^780
 ;;^UTILITY(U,$J,601.751,1102,0)
 ;;=288^2^781
 ;;^UTILITY(U,$J,601.751,1103,0)
 ;;=288^3^964
 ;;^UTILITY(U,$J,601.751,1104,0)
 ;;=288^4^965
 ;;^UTILITY(U,$J,601.751,1105,0)
 ;;=288^5^784
 ;;^UTILITY(U,$J,601.751,1106,0)
 ;;=288^6^785
 ;;^UTILITY(U,$J,601.751,1107,0)
 ;;=289^1^966
 ;;^UTILITY(U,$J,601.751,1108,0)
 ;;=290^1^967
 ;;^UTILITY(U,$J,601.751,1109,0)
 ;;=290^2^968
 ;;^UTILITY(U,$J,601.751,1110,0)
 ;;=290^3^969
 ;;^UTILITY(U,$J,601.751,1111,0)
 ;;=290^4^970
 ;;^UTILITY(U,$J,601.751,1112,0)
 ;;=290^5^971
 ;;^UTILITY(U,$J,601.751,1113,0)
 ;;=291^1^972
 ;;^UTILITY(U,$J,601.751,1114,0)
 ;;=291^2^973
 ;;^UTILITY(U,$J,601.751,1115,0)
 ;;=291^3^974
 ;;^UTILITY(U,$J,601.751,1116,0)
 ;;=291^4^975
 ;;^UTILITY(U,$J,601.751,1117,0)
 ;;=291^5^976
 ;;^UTILITY(U,$J,601.751,1118,0)
 ;;=292^1^977
 ;;^UTILITY(U,$J,601.751,1119,0)
 ;;=292^2^978
 ;;^UTILITY(U,$J,601.751,1120,0)
 ;;=292^3^979
 ;;^UTILITY(U,$J,601.751,1121,0)
 ;;=292^4^980
 ;;^UTILITY(U,$J,601.751,1122,0)
 ;;=292^5^981
 ;;^UTILITY(U,$J,601.751,1123,0)
 ;;=293^1^982
 ;;^UTILITY(U,$J,601.751,1124,0)
 ;;=293^2^983
 ;;^UTILITY(U,$J,601.751,1125,0)
 ;;=293^3^984
 ;;^UTILITY(U,$J,601.751,1126,0)
 ;;=293^4^985
 ;;^UTILITY(U,$J,601.751,1127,0)
 ;;=293^5^986
 ;;^UTILITY(U,$J,601.751,1128,0)
 ;;=294^1^972
 ;;^UTILITY(U,$J,601.751,1129,0)
 ;;=294^2^973
 ;;^UTILITY(U,$J,601.751,1130,0)
 ;;=294^3^974
 ;;^UTILITY(U,$J,601.751,1131,0)
 ;;=294^4^987
 ;;^UTILITY(U,$J,601.751,1132,0)
 ;;=294^5^988
 ;;^UTILITY(U,$J,601.751,1133,0)
 ;;=295^1^967
 ;;^UTILITY(U,$J,601.751,1134,0)
 ;;=295^2^973
 ;;^UTILITY(U,$J,601.751,1135,0)
 ;;=295^3^974
 ;;^UTILITY(U,$J,601.751,1136,0)
 ;;=295^4^987
 ;;^UTILITY(U,$J,601.751,1137,0)
 ;;=295^5^988
 ;;^UTILITY(U,$J,601.751,1138,0)
 ;;=296^1^967
 ;;^UTILITY(U,$J,601.751,1139,0)
 ;;=296^2^973
 ;;^UTILITY(U,$J,601.751,1140,0)
 ;;=296^3^974
 ;;^UTILITY(U,$J,601.751,1141,0)
 ;;=296^4^970
 ;;^UTILITY(U,$J,601.751,1142,0)
 ;;=296^5^989
 ;;^UTILITY(U,$J,601.751,1143,0)
 ;;=297^1^967
 ;;^UTILITY(U,$J,601.751,1144,0)
 ;;=297^2^973
 ;;^UTILITY(U,$J,601.751,1145,0)
 ;;=297^3^969
 ;;^UTILITY(U,$J,601.751,1146,0)
 ;;=297^4^970
 ;;^UTILITY(U,$J,601.751,1147,0)
 ;;=297^5^971
 ;;^UTILITY(U,$J,601.751,1148,0)
 ;;=298^1^972
 ;;^UTILITY(U,$J,601.751,1149,0)
 ;;=298^2^973
 ;;^UTILITY(U,$J,601.751,1150,0)
 ;;=298^3^974
 ;;^UTILITY(U,$J,601.751,1151,0)
 ;;=298^4^970
 ;;^UTILITY(U,$J,601.751,1152,0)
 ;;=298^5^976
 ;;^UTILITY(U,$J,601.751,1153,0)
 ;;=299^1^982
 ;;^UTILITY(U,$J,601.751,1154,0)
 ;;=299^2^983
 ;;^UTILITY(U,$J,601.751,1155,0)
 ;;=299^3^984
 ;;^UTILITY(U,$J,601.751,1156,0)
 ;;=299^4^990
 ;;^UTILITY(U,$J,601.751,1157,0)
 ;;=299^5^991
 ;;^UTILITY(U,$J,601.751,1158,0)
 ;;=300^1^967
 ;;^UTILITY(U,$J,601.751,1159,0)
 ;;=300^2^968
 ;;^UTILITY(U,$J,601.751,1160,0)
 ;;=300^3^969
 ;;^UTILITY(U,$J,601.751,1161,0)
 ;;=300^4^992
 ;;^UTILITY(U,$J,601.751,1162,0)
 ;;=300^5^993