Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BGPM5ATQ

BGPM5ATQ.m

Go to the documentation of this file.
  1. BGPM5ATQ ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 2011;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  1. F ATXI=1:1 S X=$P($T(TMP+ATXI),";;",2,99) Q:X="" S X="^TMP(""ATX"",$J,"_X,ATXI=ATXI+1,Y=$P($T(TMP+ATXI),";;",2,99) S @X=Y
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;21,"54868239104 ")
  1. ;;799
  1. ;;21,"54868239105 ")
  1. ;;800
  1. ;;21,"54868287500 ")
  1. ;;801
  1. ;;21,"54868287501 ")
  1. ;;802
  1. ;;21,"54868310500 ")
  1. ;;803
  1. ;;21,"54868310501 ")
  1. ;;804
  1. ;;21,"54868310502 ")
  1. ;;805
  1. ;;21,"54868310503 ")
  1. ;;806
  1. ;;21,"54868310700 ")
  1. ;;807
  1. ;;21,"54868310701 ")
  1. ;;808
  1. ;;21,"54868310702 ")
  1. ;;809
  1. ;;21,"54868310703 ")
  1. ;;810
  1. ;;21,"54868310706 ")
  1. ;;811
  1. ;;21,"54868310707 ")
  1. ;;812
  1. ;;21,"54868310708 ")
  1. ;;813
  1. ;;21,"54868310709 ")
  1. ;;814
  1. ;;21,"54868310900 ")
  1. ;;815
  1. ;;21,"54868310901 ")
  1. ;;816
  1. ;;21,"54868310902 ")
  1. ;;817
  1. ;;21,"54868310903 ")
  1. ;;818
  1. ;;21,"54868310904 ")
  1. ;;819
  1. ;;21,"54868310905 ")
  1. ;;820
  1. ;;21,"54868310906 ")
  1. ;;821
  1. ;;21,"54868310907 ")
  1. ;;822
  1. ;;21,"54868310908 ")
  1. ;;823
  1. ;;21,"54868310909 ")
  1. ;;824
  1. ;;21,"54868311100 ")
  1. ;;825
  1. ;;21,"54868311101 ")
  1. ;;826
  1. ;;21,"54868311103 ")
  1. ;;827
  1. ;;21,"54868311104 ")
  1. ;;828
  1. ;;21,"54868311105 ")
  1. ;;829
  1. ;;21,"54868311300 ")
  1. ;;830
  1. ;;21,"54868311303 ")
  1. ;;831
  1. ;;21,"54868311305 ")
  1. ;;832
  1. ;;21,"54868311307 ")
  1. ;;833
  1. ;;21,"54868311308 ")
  1. ;;834
  1. ;;21,"54868311309 ")
  1. ;;835
  1. ;;21,"54868316900 ")
  1. ;;836
  1. ;;21,"54868316901 ")
  1. ;;837
  1. ;;21,"54868316902 ")
  1. ;;838
  1. ;;21,"54868316903 ")
  1. ;;839
  1. ;;21,"54868316904 ")
  1. ;;840
  1. ;;21,"54868316905 ")
  1. ;;841
  1. ;;21,"54868316906 ")
  1. ;;842
  1. ;;21,"54868347200 ")
  1. ;;843
  1. ;;21,"54868347300 ")
  1. ;;844
  1. ;;21,"54868347800 ")
  1. ;;845
  1. ;;21,"54868347801 ")
  1. ;;846
  1. ;;21,"54868347802 ")
  1. ;;847
  1. ;;21,"54868347803 ")
  1. ;;848
  1. ;;21,"54868348000 ")
  1. ;;849
  1. ;;21,"54868348100 ")
  1. ;;850
  1. ;;21,"54868351100 ")
  1. ;;851
  1. ;;21,"54868351101 ")
  1. ;;852
  1. ;;21,"54868351102 ")
  1. ;;853
  1. ;;21,"54868351104 ")
  1. ;;854
  1. ;;21,"54868369500 ")
  1. ;;855
  1. ;;21,"54868374201 ")
  1. ;;856
  1. ;;21,"54868374202 ")
  1. ;;857
  1. ;;21,"54868374203 ")
  1. ;;858
  1. ;;21,"54868404700 ")
  1. ;;859
  1. ;;21,"54868412501 ")
  1. ;;860
  1. ;;21,"54868412502 ")
  1. ;;861
  1. ;;21,"54868412901 ")
  1. ;;862
  1. ;;21,"54868412902 ")
  1. ;;863
  1. ;;21,"54868413101 ")
  1. ;;864
  1. ;;21,"54868415000 ")
  1. ;;865
  1. ;;21,"54868415001 ")
  1. ;;866
  1. ;;21,"54868415002 ")
  1. ;;867
  1. ;;21,"54868415500 ")
  1. ;;868
  1. ;;21,"54868415501 ")
  1. ;;869
  1. ;;21,"54868415502 ")
  1. ;;870
  1. ;;21,"54868415503 ")
  1. ;;871
  1. ;;21,"54868415504 ")
  1. ;;872
  1. ;;21,"54868433500 ")
  1. ;;873
  1. ;;21,"54868446800 ")
  1. ;;874
  1. ;;21,"54868448800 ")
  1. ;;875
  1. ;;21,"54868454300 ")
  1. ;;876
  1. ;;21,"54868454301 ")
  1. ;;877
  1. ;;21,"54868454302 ")
  1. ;;878
  1. ;;21,"54868454303 ")
  1. ;;879
  1. ;;21,"54868461400 ")
  1. ;;880
  1. ;;21,"54868461401 ")
  1. ;;881
  1. ;;21,"54868461402 ")
  1. ;;882
  1. ;;21,"54868465100 ")
  1. ;;883
  1. ;;21,"54868465400 ")
  1. ;;884
  1. ;;21,"54868465401 ")
  1. ;;885
  1. ;;21,"54868471100 ")
  1. ;;886
  1. ;;21,"54868474300 ")
  1. ;;887
  1. ;;21,"54868474301 ")
  1. ;;888
  1. ;;21,"54868474302 ")
  1. ;;889
  1. ;;21,"54868480500 ")
  1. ;;890
  1. ;;21,"54868480600 ")
  1. ;;891
  1. ;;21,"54868485800 ")
  1. ;;892
  1. ;;21,"54868485801 ")
  1. ;;893
  1. ;;21,"54868485802 ")
  1. ;;894
  1. ;;21,"54868485803 ")
  1. ;;895
  1. ;;21,"54868485804 ")
  1. ;;896
  1. ;;21,"54868485805 ")
  1. ;;897
  1. ;;21,"54868485806 ")
  1. ;;898
  1. ;;21,"54868485807 ")
  1. ;;899
  1. ;;21,"54868485808 ")
  1. ;;900
  1. ;;21,"54868489800 ")
  1. ;;901
  1. ;;21,"54868489801 ")
  1. ;;902
  1. ;;21,"54868489802 ")
  1. ;;903
  1. ;;21,"54868489803 ")
  1. ;;904
  1. ;;21,"54868489804 ")
  1. ;;905
  1. ;;21,"54868495100 ")
  1. ;;906
  1. ;;21,"54868495101 ")
  1. ;;907
  1. ;;21,"54868495102 ")
  1. ;;908
  1. ;;21,"54868495103 ")
  1. ;;909
  1. ;;21,"54868495104 ")
  1. ;;910
  1. ;;21,"54868498700 ")
  1. ;;911
  1. ;;21,"54868498701 ")
  1. ;;912
  1. ;;21,"54868499000 ")
  1. ;;913
  1. ;;21,"54868502200 ")
  1. ;;914
  1. ;;21,"54868502201 ")
  1. ;;915
  1. ;;21,"54868502202 ")
  1. ;;916
  1. ;;21,"54868502203 ")
  1. ;;917
  1. ;;21,"54868502300 ")
  1. ;;918
  1. ;;21,"54868502301 ")
  1. ;;919
  1. ;;21,"54868502302 ")
  1. ;;920
  1. ;;21,"54868504000 ")
  1. ;;921
  1. ;;21,"54868504001 ")
  1. ;;922
  1. ;;21,"54868504002 ")
  1. ;;923
  1. ;;21,"54868510100 ")
  1. ;;924
  1. ;;21,"54868510101 ")
  1. ;;925
  1. ;;21,"54868510102 ")
  1. ;;926
  1. ;;21,"54868510103 ")
  1. ;;927
  1. ;;21,"54868516500 ")
  1. ;;928
  1. ;;21,"54868516501 ")
  1. ;;929
  1. ;;21,"54868517500 ")
  1. ;;930
  1. ;;21,"54868521100 ")
  1. ;;931
  1. ;;21,"54868521101 ")
  1. ;;932
  1. ;;21,"54868521102 ")
  1. ;;933
  1. ;;21,"54868521103 ")
  1. ;;934
  1. ;;21,"54868521104 ")
  1. ;;935
  1. ;;21,"54868521105 ")
  1. ;;936
  1. ;;21,"54868526900 ")
  1. ;;937
  1. ;;21,"54868530700 ")
  1. ;;938
  1. ;;21,"54868543000 ")
  1. ;;939
  1. ;;21,"54868543001 ")
  1. ;;940
  1. ;;21,"54868543002 ")
  1. ;;941
  1. ;;21,"54868543003 ")
  1. ;;942
  1. ;;21,"54868547100 ")
  1. ;;943
  1. ;;21,"54868547801 ")
  1. ;;944
  1. ;;21,"54868547802 ")
  1. ;;945
  1. ;;21,"54868553300 ")
  1. ;;946
  1. ;;21,"54868558900 ")
  1. ;;947
  1. ;;21,"54868564700 ")
  1. ;;948
  1. ;;21,"54868564701 ")
  1. ;;949
  1. ;;21,"54868564800 ")
  1. ;;950
  1. ;;21,"54868564801 ")
  1. ;;951
  1. ;;21,"54868564802 ")
  1. ;;952
  1. ;;21,"54868569300 ")
  1. ;;953
  1. ;;21,"54868569400 ")
  1. ;;954
  1. ;;21,"54868575600 ")
  1. ;;955
  1. ;;21,"54868575700 ")
  1. ;;956
  1. ;;21,"54868576700 ")
  1. ;;957
  1. ;;21,"54868576701 ")
  1. ;;958
  1. ;;21,"54868576800 ")
  1. ;;959
  1. ;;21,"54868576801 ")
  1. ;;960
  1. ;;21,"54868576900 ")
  1. ;;961
  1. ;;21,"54868576901 ")
  1. ;;962
  1. ;;21,"54868593800 ")
  1. ;;963
  1. ;;21,"54868598100 ")
  1. ;;964
  1. ;;21,"54868619000 ")
  1. ;;965
  1. ;;21,"54868627100 ")
  1. ;;966
  1. ;;21,"54868627900 ")
  1. ;;967
  1. ;;21,"54868627901 ")
  1. ;;968
  1. ;;21,"54868687501 ")
  1. ;;969
  1. ;;21,"54907014801 ")
  1. ;;970
  1. ;;21,"54907014805 ")
  1. ;;971
  1. ;;21,"54907014901 ")
  1. ;;972
  1. ;;21,"54907014904 ")
  1. ;;973
  1. ;;21,"54907014905 ")
  1. ;;974
  1. ;;21,"54907050902 ")
  1. ;;975
  1. ;;21,"54907051503 ")
  1. ;;976
  1. ;;21,"54907052001 ")
  1. ;;977
  1. ;;21,"54907052002 ")
  1. ;;978
  1. ;;21,"54907052101 ")
  1. ;;979
  1. ;;21,"54907052102 ")
  1. ;;980
  1. ;;21,"54907058200 ")
  1. ;;981
  1. ;;21,"54907058201 ")
  1. ;;982
  1. ;;21,"54907065701 ")
  1. ;;983
  1. ;;21,"54907065702 ")
  1. ;;984
  1. ;;21,"54907065705 ")
  1. ;;985
  1. ;;21,"54907070901 ")
  1. ;;986
  1. ;;21,"54907070903 ")
  1. ;;987
  1. ;;21,"54907071001 ")
  1. ;;988
  1. ;;21,"54907071002 ")
  1. ;;989
  1. ;;21,"54907071302 ")
  1. ;;990
  1. ;;21,"54907071504 ")
  1. ;;991
  1. ;;21,"54907071505 ")
  1. ;;992
  1. ;;21,"54907071603 ")
  1. ;;993
  1. ;;21,"54907071604 ")
  1. ;;994
  1. ;;21,"54907071701 ")
  1. ;;995
  1. ;;21,"54907071708 ")
  1. ;;996
  1. ;;21,"54907072501 ")
  1. ;;997
  1. ;;21,"54907072506 ")
  1. ;;998
  1. ;;21,"54907072601 ")
  1. ;;999
  1. ;;21,"54907072606 ")
  1. ;;1000
  1. ;;21,"54907075001 ")
  1. ;;1001
  1. ;;21,"54907075006 ")
  1. ;;1002
  1. ;;21,"54907075101 ")
  1. ;;1003
  1. ;;21,"54907075102 ")
  1. ;;1004
  1. ;;21,"54907075106 ")
  1. ;;1005
  1. ;;21,"54907075107 ")
  1. ;;1006
  1. ;;21,"54907075201 ")
  1. ;;1007
  1. ;;21,"54907075202 ")
  1. ;;1008
  1. ;;21,"54907075206 ")
  1. ;;1009
  1. ;;21,"54907075207 ")
  1. ;;1010
  1. ;;21,"54907075302 ")
  1. ;;1011
  1. ;;21,"54907075402 ")
  1. ;;1012
  1. ;;21,"54907076801 ")
  1. ;;1013
  1. ;;21,"54907076802 ")
  1. ;;1014
  1. ;;21,"54907076807 ")
  1. ;;1015
  1. ;;21,"54907082103 ")
  1. ;;1016
  1. ;;21,"54907082104 ")
  1. ;;1017
  1. ;;21,"54907082203 ")
  1. ;;1018
  1. ;;21,"54907082204 ")
  1. ;;1019
  1. ;;21,"54907096001 ")
  1. ;;1020
  1. ;;21,"54907096003 ")
  1. ;;1021
  1. ;;21,"54907096004 ")
  1. ;;1022
  1. ;;21,"54907096101 ")
  1. ;;1023
  1. ;;21,"54907096103 ")
  1. ;;1024
  1. ;;21,"54907096104 ")
  1. ;;1025
  1. ;;21,"54907096304 ")
  1. ;;1026
  1. ;;21,"54907096403 ")
  1. ;;1027
  1. ;;21,"54907096404 ")
  1. ;;1028
  1. ;;21,"54907096501 ")
  1. ;;1029
  1. ;;21,"54907096503 ")
  1. ;;1030
  1. ;;21,"54907096504 ")
  1. ;;1031
  1. ;;21,"54907096601 ")
  1. ;;1032
  1. ;;21,"54907096603 ")
  1. ;;1033
  1. ;;21,"54907096604 ")
  1. ;;1034
  1. ;;21,"54907096901 ")
  1. ;;1035
  1. ;;21,"54907096903 ")
  1. ;;1036
  1. ;;21,"54907096904 ")
  1. ;;1037
  1. ;;21,"54907097001 ")
  1. ;;1038
  1. ;;21,"54907097003 ")
  1. ;;1039
  1. ;;21,"54907097004 ")
  1. ;;1040
  1. ;;21,"54907097204 ")
  1. ;;1041
  1. ;;21,"54907097304 ")
  1. ;;1042
  1. ;;21,"54907097401 ")
  1. ;;1043
  1. ;;21,"54907097404 ")
  1. ;;1044
  1. ;;21,"54907097701 ")
  1. ;;1045
  1. ;;21,"54907097703 ")
  1. ;;1046
  1. ;;21,"54907097704 ")
  1. ;;1047
  1. ;;21,"54907097901 ")
  1. ;;1048
  1. ;;21,"54907097903 ")
  1. ;;1049
  1. ;;21,"54907097904 ")
  1. ;;1050
  1. ;;21,"54907512001 ")
  1. ;;1051
  1. ;;21,"54907512005 ")
  1. ;;1052
  1. ;;21,"54907514001 ")
  1. ;;1053
  1. ;;21,"54907515001 ")
  1. ;;1054
  1. ;;21,"54907515004 ")
  1. ;;1055
  1. ;;21,"54907654001 ")
  1. ;;1056
  1. ;;21,"54907654005 ")
  1. ;;1057
  1. ;;21,"54907655001 ")
  1. ;;1058
  1. ;;21,"54907655005 ")
  1. ;;1059
  1. ;;21,"54907656001 ")
  1. ;;1060
  1. ;;21,"54907656005 ")
  1. ;;1061
  1. ;;21,"54907657001 ")
  1. ;;1062
  1. ;;21,"54907657005 ")
  1. ;;1063
  1. ;;21,"54907658001 ")
  1. ;;1064
  1. ;;21,"54907659001 ")
  1. ;;1065
  1. ;;21,"54907760002 ")
  1. ;;1066
  1. ;;21,"54907761001 ")
  1. ;;1067
  1. ;;21,"54907761002 ")
  1. ;;1068
  1. ;;21,"54907762002 ")
  1. ;;1069
  1. ;;21,"54907763001 ")
  1. ;;1070
  1. ;;21,"54907763002 ")
  1. ;;1071
  1. ;;21,"54907763005 ")
  1. ;;1072
  1. ;;21,"54907954001 ")
  1. ;;1073
  1. ;;21,"54907954002 ")
  1. ;;1074
  1. ;;21,"54907955003 ")
  1. ;;1075
  1. ;;21,"54907955004 ")
  1. ;;1076
  1. ;;21,"54907956001 ")
  1. ;;1077
  1. ;;21,"54907956002 ")
  1. ;;1078
  1. ;;21,"54907957003 ")
  1. ;;1079
  1. ;;21,"54907957004 ")
  1. ;;1080
  1. ;;21,"54907958001 ")
  1. ;;1081
  1. ;;21,"54907958002 ")
  1. ;;1082
  1. ;;21,"54907959001 ")
  1. ;;1083
  1. ;;21,"54907959002 ")
  1. ;;1084
  1. ;;21,"55045111300 ")
  1. ;;1085
  1. ;;21,"55045111301 ")
  1. ;;1086
  1. ;;21,"55045111303 ")
  1. ;;1087
  1. ;;21,"55045111307 ")
  1. ;;1088
  1. ;;21,"55045111309 ")
  1. ;;1089
  1. ;;21,"55045111700 ")
  1. ;;1090
  1. ;;21,"55045111701 ")
  1. ;;1091
  1. ;;21,"55045111702 ")
  1. ;;1092
  1. ;;21,"55045111703 ")
  1. ;;1093
  1. ;;21,"55045111704 ")
  1. ;;1094
  1. ;;21,"55045111705 ")
  1. ;;1095
  1. ;;21,"55045111706 ")
  1. ;;1096
  1. ;;21,"55045111707 ")
  1. ;;1097
  1. ;;21,"55045111708 ")
  1. ;;1098
  1. ;;21,"55045111709 ")
  1. ;;1099
  1. ;;21,"55045112200 ")
  1. ;;1100
  1. ;;21,"55045112201 ")
  1. ;;1101
  1. ;;21,"55045112202 ")
  1. ;;1102
  1. ;;21,"55045112203 ")
  1. ;;1103
  1. ;;21,"55045112204 ")
  1. ;;1104
  1. ;;21,"55045112205 ")
  1. ;;1105
  1. ;;21,"55045112207 ")
  1. ;;1106
  1. ;;21,"55045112208 ")
  1. ;;1107
  1. ;;21,"55045112209 ")
  1. ;;1108
  1. ;;21,"55045116803 ")
  1. ;;1109
  1. ;;21,"55045116804 ")
  1. ;;1110
  1. ;;21,"55045116806 ")
  1. ;;1111
  1. ;;21,"55045116807 ")
  1. ;;1112
  1. ;;21,"55045116808 ")
  1. ;;1113
  1. ;;21,"55045117000 ")
  1. ;;1114
  1. ;;21,"55045117001 ")
  1. ;;1115
  1. ;;21,"55045117002 ")
  1. ;;1116
  1. ;;21,"55045117003 ")
  1. ;;1117
  1. ;;21,"55045117004 ")
  1. ;;1118
  1. ;;21,"55045117005 ")
  1. ;;1119
  1. ;;21,"55045117006 ")
  1. ;;1120
  1. ;;21,"55045117007 ")
  1. ;;1121
  1. ;;21,"55045117008 ")
  1. ;;1122
  1. ;;21,"55045117009 ")
  1. ;;1123
  1. ;;21,"55045117801 ")
  1. ;;1124
  1. ;;21,"55045117802 ")
  1. ;;1125
  1. ;;21,"55045117901 ")
  1. ;;1126
  1. ;;21,"55045117902 ")
  1. ;;1127
  1. ;;21,"55045118800 ")
  1. ;;1128
  1. ;;21,"55045118801 ")
  1. ;;1129
  1. ;;21,"55045118901 ")
  1. ;;1130
  1. ;;21,"55045119501 ")
  1. ;;1131
  1. ;;21,"55045119502 ")
  1. ;;1132
  1. ;;21,"55045119903 ")
  1. ;;1133
  1. ;;21,"55045120000 ")
  1. ;;1134
  1. ;;21,"55045120003 ")
  1. ;;1135
  1. ;;21,"55045120101 ")
  1. ;;1136
  1. ;;21,"55045120102 ")
  1. ;;1137
  1. ;;21,"55045120103 ")
  1. ;;1138
  1. ;;21,"55045120107 ")
  1. ;;1139
  1. ;;21,"55045120108 ")
  1. ;;1140
  1. ;;21,"55045120200 ")
  1. ;;1141
  1. ;;21,"55045120201 ")
  1. ;;1142
  1. ;;21,"55045120202 ")
  1. ;;1143
  1. ;;21,"55045120203 ")
  1. ;;1144
  1. ;;21,"55045120204 ")
  1. ;;1145
  1. ;;21,"55045120205 ")
  1. ;;1146
  1. ;;21,"55045120206 ")
  1. ;;1147
  1. ;;21,"55045120207 ")
  1. ;;1148
  1. ;;21,"55045120208 ")
  1. ;;1149
  1. ;;21,"55045120209 ")
  1. ;;1150
  1. ;;21,"55045120403 ")
  1. ;;1151
  1. ;;21,"55045120405 ")
  1. ;;1152
  1. ;;21,"55045120407 ")
  1. ;;1153
  1. ;;21,"55045120409 ")
  1. ;;1154
  1. ;;21,"55045120601 ")
  1. ;;1155