383 lines
8.9 KiB
Mathematica
383 lines
8.9 KiB
Mathematica
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
|