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