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

BGP82D4.m

Go to the documentation of this file.
  1. BGP82D4 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 09, 2017 ;
  1. ;;18.0;IHS CLINICAL REPORTING;;NOV 21, 2017;Build 51
  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,"68094-0361-62 ")
  1. ;;1024
  1. ;;21,"68094-0518-59 ")
  1. ;;1025
  1. ;;21,"68094-0518-62 ")
  1. ;;1026
  1. ;;21,"68094-0528-59 ")
  1. ;;1027
  1. ;;21,"68094-0528-61 ")
  1. ;;1028
  1. ;;21,"68094-0528-62 ")
  1. ;;1029
  1. ;;21,"68180-0827-09 ")
  1. ;;1030
  1. ;;21,"68180-0827-11 ")
  1. ;;1031
  1. ;;21,"68180-0827-13 ")
  1. ;;1032
  1. ;;21,"68180-0828-09 ")
  1. ;;1033
  1. ;;21,"68180-0828-11 ")
  1. ;;1034
  1. ;;21,"68180-0828-13 ")
  1. ;;1035
  1. ;;21,"68180-0829-11 ")
  1. ;;1036
  1. ;;21,"68180-0829-13 ")
  1. ;;1037
  1. ;;21,"68180-0830-11 ")
  1. ;;1038
  1. ;;21,"68180-0830-13 ")
  1. ;;1039
  1. ;;21,"68258-5978-02 ")
  1. ;;1040
  1. ;;21,"68258-5980-02 ")
  1. ;;1041
  1. ;;21,"68382-0653-01 ")
  1. ;;1042
  1. ;;21,"68382-0653-05 ")
  1. ;;1043
  1. ;;21,"68382-0654-01 ")
  1. ;;1044
  1. ;;21,"68382-0654-05 ")
  1. ;;1045
  1. ;;21,"68382-0655-01 ")
  1. ;;1046
  1. ;;21,"68382-0655-05 ")
  1. ;;1047
  1. ;;21,"68382-0656-01 ")
  1. ;;1048
  1. ;;21,"68382-0657-01 ")
  1. ;;1049
  1. ;;21,"68382-0657-05 ")
  1. ;;1050
  1. ;;21,"68382-0658-01 ")
  1. ;;1051
  1. ;;21,"68382-0658-10 ")
  1. ;;1052
  1. ;;21,"68462-0656-29 ")
  1. ;;1053
  1. ;;21,"68462-0656-84 ")
  1. ;;1054
  1. ;;21,"68462-0657-29 ")
  1. ;;1055
  1. ;;21,"68462-0657-84 ")
  1. ;;1056
  1. ;;21,"68462-0657-90 ")
  1. ;;1057
  1. ;;21,"68645-0210-54 ")
  1. ;;1058
  1. ;;21,"68645-0211-54 ")
  1. ;;1059
  1. ;;21,"68788-6426-03 ")
  1. ;;1060
  1. ;;21,"68788-6426-06 ")
  1. ;;1061
  1. ;;21,"68788-6426-09 ")
  1. ;;1062
  1. ;;21,"68788-6428-01 ")
  1. ;;1063
  1. ;;21,"68788-9128-03 ")
  1. ;;1064
  1. ;;21,"68788-9128-06 ")
  1. ;;1065
  1. ;;21,"68788-9128-09 ")
  1. ;;1066
  1. ;;21,"68788-9216-01 ")
  1. ;;1067
  1. ;;21,"68788-9216-03 ")
  1. ;;1068
  1. ;;21,"68788-9216-06 ")
  1. ;;1069
  1. ;;21,"68788-9216-09 ")
  1. ;;1070
  1. ;;21,"68788-9716-03 ")
  1. ;;1071
  1. ;;21,"68788-9716-06 ")
  1. ;;1072
  1. ;;21,"68788-9716-09 ")
  1. ;;1073
  1. ;;21,"68788-9728-03 ")
  1. ;;1074
  1. ;;21,"68968-0514-01 ")
  1. ;;1075
  1. ;;21,"68968-0514-08 ")
  1. ;;1076
  1. ;;21,"68968-0525-01 ")
  1. ;;1077
  1. ;;21,"68968-0525-08 ")
  1. ;;1078
  1. ;;21,"68968-6610-01 ")
  1. ;;1079
  1. ;;21,"68968-6610-08 ")
  1. ;;1080
  1. ;;21,"68968-6625-01 ")
  1. ;;1081
  1. ;;21,"68968-6625-08 ")
  1. ;;1082
  1. ;;21,"68968-6637-01 ")
  1. ;;1083
  1. ;;21,"68968-6637-08 ")
  1. ;;1084
  1. ;;21,"68968-6650-01 ")
  1. ;;1085
  1. ;;21,"68968-6650-08 ")
  1. ;;1086
  1. ;;21,"68968-6675-01 ")
  1. ;;1087
  1. ;;21,"68968-6675-08 ")
  1. ;;1088
  1. ;;21,"69238-1251-06 ")
  1. ;;1089
  1. ;;21,"69238-1251-08 ")
  1. ;;1090
  1. ;;21,"69238-1252-06 ")
  1. ;;1091
  1. ;;21,"69238-1252-08 ")
  1. ;;1092
  1. ;;21,"75834-0129-29 ")
  1. ;;1093
  1. ;;21,"75834-0129-84 ")
  1. ;;1094
  1. ;;21,"75834-0130-29 ")
  1. ;;1095
  1. ;;21,"75834-0130-84 ")
  1. ;;1096
  1. ;;21,"76420-0680-30 ")
  1. ;;1097
  1. ;;21,"76420-0680-60 ")
  1. ;;1098
  1. ;;21,"76420-0681-30 ")
  1. ;;1099
  1. ;;21,"76420-0681-60 ")
  1. ;;1100
  1. ;;9002226,1801,.01)
  1. ;;BGP HEDIS ENDOCRINE NDC
  1. ;;9002226,1801,.02)
  1. ;;@
  1. ;;9002226,1801,.04)
  1. ;;n
  1. ;;9002226,1801,.06)
  1. ;;@
  1. ;;9002226,1801,.08)
  1. ;;@
  1. ;;9002226,1801,.09)
  1. ;;3170809
  1. ;;9002226,1801,.11)
  1. ;;@
  1. ;;9002226,1801,.12)
  1. ;;@
  1. ;;9002226,1801,.13)
  1. ;;1
  1. ;;9002226,1801,.14)
  1. ;;@
  1. ;;9002226,1801,.15)
  1. ;;50.67
  1. ;;9002226,1801,.16)
  1. ;;@
  1. ;;9002226,1801,.17)
  1. ;;@
  1. ;;9002226,1801,.22)
  1. ;;1
  1. ;;9002226,1801,3101)
  1. ;;@
  1. ;;9002226.02101,"1801,00008-1123-12 ",.01)
  1. ;;00008-1123-12
  1. ;;9002226.02101,"1801,00008-1123-12 ",.02)
  1. ;;00008-1123-12
  1. ;;9002226.02101,"1801,00009-0341-01 ",.01)
  1. ;;00009-0341-01
  1. ;;9002226.02101,"1801,00009-0341-01 ",.02)
  1. ;;00009-0341-01
  1. ;;9002226.02101,"1801,00009-0352-01 ",.01)
  1. ;;00009-0352-01
  1. ;;9002226.02101,"1801,00009-0352-01 ",.02)
  1. ;;00009-0352-01
  1. ;;9002226.02101,"1801,00009-0352-04 ",.01)
  1. ;;00009-0352-04
  1. ;;9002226.02101,"1801,00009-0352-04 ",.02)
  1. ;;00009-0352-04
  1. ;;9002226.02101,"1801,00009-3449-01 ",.01)
  1. ;;00009-3449-01
  1. ;;9002226.02101,"1801,00009-3449-01 ",.02)
  1. ;;00009-3449-01
  1. ;;9002226.02101,"1801,00009-3449-03 ",.01)
  1. ;;00009-3449-03
  1. ;;9002226.02101,"1801,00009-3449-03 ",.02)
  1. ;;00009-3449-03
  1. ;;9002226.02101,"1801,00015-0508-42 ",.01)
  1. ;;00015-0508-42
  1. ;;9002226.02101,"1801,00015-0508-42 ",.02)
  1. ;;00015-0508-42
  1. ;;9002226.02101,"1801,00037-4801-35 ",.01)
  1. ;;00037-4801-35
  1. ;;9002226.02101,"1801,00037-4801-35 ",.02)
  1. ;;00037-4801-35
  1. ;;9002226.02101,"1801,00037-4802-35 ",.01)
  1. ;;00037-4802-35
  1. ;;9002226.02101,"1801,00037-4802-35 ",.02)
  1. ;;00037-4802-35
  1. ;;9002226.02101,"1801,00039-0051-10 ",.01)
  1. ;;00039-0051-10
  1. ;;9002226.02101,"1801,00039-0051-10 ",.02)
  1. ;;00039-0051-10
  1. ;;9002226.02101,"1801,00039-0052-10 ",.01)
  1. ;;00039-0052-10
  1. ;;9002226.02101,"1801,00039-0052-10 ",.02)
  1. ;;00039-0052-10
  1. ;;9002226.02101,"1801,00039-0052-70 ",.01)
  1. ;;00039-0052-70
  1. ;;9002226.02101,"1801,00039-0052-70 ",.02)
  1. ;;00039-0052-70
  1. ;;9002226.02101,"1801,00039-0053-05 ",.01)
  1. ;;00039-0053-05
  1. ;;9002226.02101,"1801,00039-0053-05 ",.02)
  1. ;;00039-0053-05
  1. ;;9002226.02101,"1801,00046-1100-81 ",.01)
  1. ;;00046-1100-81
  1. ;;9002226.02101,"1801,00046-1100-81 ",.02)
  1. ;;00046-1100-81
  1. ;;9002226.02101,"1801,00046-1100-91 ",.01)
  1. ;;00046-1100-91
  1. ;;9002226.02101,"1801,00046-1100-91 ",.02)
  1. ;;00046-1100-91
  1. ;;9002226.02101,"1801,00046-1101-81 ",.01)
  1. ;;00046-1101-81
  1. ;;9002226.02101,"1801,00046-1101-81 ",.02)
  1. ;;00046-1101-81
  1. ;;9002226.02101,"1801,00046-1102-81 ",.01)
  1. ;;00046-1102-81
  1. ;;9002226.02101,"1801,00046-1102-81 ",.02)
  1. ;;00046-1102-81
  1. ;;9002226.02101,"1801,00046-1102-91 ",.01)
  1. ;;00046-1102-91
  1. ;;9002226.02101,"1801,00046-1102-91 ",.02)
  1. ;;00046-1102-91
  1. ;;9002226.02101,"1801,00046-1103-81 ",.01)
  1. ;;00046-1103-81
  1. ;;9002226.02101,"1801,00046-1103-81 ",.02)
  1. ;;00046-1103-81
  1. ;;9002226.02101,"1801,00046-1104-81 ",.01)
  1. ;;00046-1104-81
  1. ;;9002226.02101,"1801,00046-1104-81 ",.02)
  1. ;;00046-1104-81
  1. ;;9002226.02101,"1801,00046-1104-91 ",.01)
  1. ;;00046-1104-91
  1. ;;9002226.02101,"1801,00046-1104-91 ",.02)
  1. ;;00046-1104-91
  1. ;;9002226.02101,"1801,00046-1105-11 ",.01)
  1. ;;00046-1105-11
  1. ;;9002226.02101,"1801,00046-1105-11 ",.02)
  1. ;;00046-1105-11
  1. ;;9002226.02101,"1801,00046-1106-11 ",.01)
  1. ;;00046-1106-11
  1. ;;9002226.02101,"1801,00046-1106-11 ",.02)
  1. ;;00046-1106-11
  1. ;;9002226.02101,"1801,00046-1107-11 ",.01)
  1. ;;00046-1107-11
  1. ;;9002226.02101,"1801,00046-1107-11 ",.02)
  1. ;;00046-1107-11
  1. ;;9002226.02101,"1801,00046-1108-11 ",.01)
  1. ;;00046-1108-11
  1. ;;9002226.02101,"1801,00046-1108-11 ",.02)
  1. ;;00046-1108-11
  1. ;;9002226.02101,"1801,00046-2575-12 ",.01)
  1. ;;00046-2575-12
  1. ;;9002226.02101,"1801,00046-2575-12 ",.02)
  1. ;;00046-2575-12
  1. ;;9002226.02101,"1801,00054-3542-58 ",.01)
  1. ;;00054-3542-58
  1. ;;9002226.02101,"1801,00054-3542-58 ",.02)
  1. ;;00054-3542-58
  1. ;;9002226.02101,"1801,00054-4603-25 ",.01)
  1. ;;00054-4603-25
  1. ;;9002226.02101,"1801,00054-4603-25 ",.02)
  1. ;;00054-4603-25
  1. ;;9002226.02101,"1801,00054-4604-25 ",.01)
  1. ;;00054-4604-25
  1. ;;9002226.02101,"1801,00054-4604-25 ",.02)
  1. ;;00054-4604-25
  1. ;;9002226.02101,"1801,00054-8603-25 ",.01)
  1. ;;00054-8603-25
  1. ;;9002226.02101,"1801,00054-8603-25 ",.02)
  1. ;;00054-8603-25
  1. ;;9002226.02101,"1801,00054-8604-25 ",.01)
  1. ;;00054-8604-25
  1. ;;9002226.02101,"1801,00054-8604-25 ",.02)
  1. ;;00054-8604-25
  1. ;;9002226.02101,"1801,00078-0343-42 ",.01)
  1. ;;00078-0343-42
  1. ;;9002226.02101,"1801,00078-0343-42 ",.02)
  1. ;;00078-0343-42
  1. ;;9002226.02101,"1801,00078-0343-45 ",.01)
  1. ;;00078-0343-45
  1. ;;9002226.02101,"1801,00078-0343-45 ",.02)
  1. ;;00078-0343-45
  1. ;;9002226.02101,"1801,00078-0343-62 ",.01)
  1. ;;00078-0343-62
  1. ;;9002226.02101,"1801,00078-0343-62 ",.02)
  1. ;;00078-0343-62
  1. ;;9002226.02101,"1801,00078-0344-42 ",.01)
  1. ;;00078-0344-42
  1. ;;9002226.02101,"1801,00078-0344-42 ",.02)
  1. ;;00078-0344-42
  1. ;;9002226.02101,"1801,00078-0344-45 ",.01)
  1. ;;00078-0344-45
  1. ;;9002226.02101,"1801,00078-0344-45 ",.02)
  1. ;;00078-0344-45
  1. ;;9002226.02101,"1801,00078-0344-62 ",.01)
  1. ;;00078-0344-62
  1. ;;9002226.02101,"1801,00078-0344-62 ",.02)
  1. ;;00078-0344-62
  1. ;;9002226.02101,"1801,00078-0345-42 ",.01)
  1. ;;00078-0345-42
  1. ;;9002226.02101,"1801,00078-0345-42 ",.02)
  1. ;;00078-0345-42
  1. ;;9002226.02101,"1801,00078-0345-45 ",.01)
  1. ;;00078-0345-45
  1. ;;9002226.02101,"1801,00078-0345-45 ",.02)
  1. ;;00078-0345-45
  1. ;;9002226.02101,"1801,00078-0345-62 ",.01)
  1. ;;00078-0345-62
  1. ;;9002226.02101,"1801,00078-0345-62 ",.02)
  1. ;;00078-0345-62
  1. ;;9002226.02101,"1801,00078-0346-42 ",.01)
  1. ;;00078-0346-42
  1. ;;9002226.02101,"1801,00078-0346-42 ",.02)
  1. ;;00078-0346-42
  1. ;;9002226.02101,"1801,00078-0346-45 ",.01)
  1. ;;00078-0346-45
  1. ;;9002226.02101,"1801,00078-0346-45 ",.02)
  1. ;;00078-0346-45
  1. ;;9002226.02101,"1801,00078-0346-62 ",.01)
  1. ;;00078-0346-62
  1. ;;9002226.02101,"1801,00078-0346-62 ",.02)
  1. ;;00078-0346-62
  1. ;;9002226.02101,"1801,00078-0365-42 ",.01)
  1. ;;00078-0365-42
  1. ;;9002226.02101,"1801,00078-0365-42 ",.02)
  1. ;;00078-0365-42
  1. ;;9002226.02101,"1801,00078-0365-45 ",.01)
  1. ;;00078-0365-45
  1. ;;9002226.02101,"1801,00078-0365-45 ",.02)
  1. ;;00078-0365-45
  1. ;;9002226.02101,"1801,00078-0365-62 ",.01)
  1. ;;00078-0365-62
  1. ;;9002226.02101,"1801,00078-0365-62 ",.02)
  1. ;;00078-0365-62
  1. ;;9002226.02101,"1801,00078-0377-42 ",.01)
  1. ;;00078-0377-42
  1. ;;9002226.02101,"1801,00078-0377-42 ",.02)
  1. ;;00078-0377-42
  1. ;;9002226.02101,"1801,00078-0377-62 ",.01)
  1. ;;00078-0377-62
  1. ;;9002226.02101,"1801,00078-0377-62 ",.02)
  1. ;;00078-0377-62
  1. ;;9002226.02101,"1801,00078-0378-42 ",.01)
  1. ;;00078-0378-42
  1. ;;9002226.02101,"1801,00078-0378-42 ",.02)
  1. ;;00078-0378-42
  1. ;;9002226.02101,"1801,00078-0378-62 ",.01)
  1. ;;00078-0378-62
  1. ;;9002226.02101,"1801,00078-0378-62 ",.02)
  1. ;;00078-0378-62
  1. ;;9002226.02101,"1801,00087-6073-11 ",.01)
  1. ;;00087-6073-11
  1. ;;9002226.02101,"1801,00087-6073-11 ",.02)
  1. ;;00087-6073-11
  1. ;;9002226.02101,"1801,00087-6074-11 ",.01)
  1. ;;00087-6074-11
  1. ;;9002226.02101,"1801,00087-6074-11 ",.02)
  1. ;;00087-6074-11
  1. ;;9002226.02101,"1801,00093-3122-28 ",.01)
  1. ;;00093-3122-28
  1. ;;9002226.02101,"1801,00093-3122-28 ",.02)
  1. ;;00093-3122-28
  1. ;;9002226.02101,"1801,00093-3122-42 ",.01)
  1. ;;00093-3122-42
  1. ;;9002226.02101,"1801,00093-3122-42 ",.02)
  1. ;;00093-3122-42
  1. ;;9002226.02101,"1801,00093-3122-98 ",.01)
  1. ;;00093-3122-98
  1. ;;9002226.02101,"1801,00093-3122-98 ",.02)
  1. ;;00093-3122-98
  1. ;;9002226.02101,"1801,00093-5454-28 ",.01)
  1. ;;00093-5454-28
  1. ;;9002226.02101,"1801,00093-5454-28 ",.02)
  1. ;;00093-5454-28
  1. ;;9002226.02101,"1801,00093-5454-62 ",.01)
  1. ;;00093-5454-62
  1. ;;9002226.02101,"1801,00093-5454-62 ",.02)
  1. ;;00093-5454-62
  1. ;;9002226.02101,"1801,00093-5455-28 ",.01)
  1. ;;00093-5455-28
  1. ;;9002226.02101,"1801,00093-5455-28 ",.02)
  1. ;;00093-5455-28
  1. ;;9002226.02101,"1801,00093-5455-42 ",.01)
  1. ;;00093-5455-42
  1. ;;9002226.02101,"1801,00093-5455-42 ",.02)
  1. ;;00093-5455-42
  1. ;;9002226.02101,"1801,00093-5710-01 ",.01)
  1. ;;00093-5710-01
  1. ;;9002226.02101,"1801,00093-5710-01 ",.02)
  1. ;;00093-5710-01
  1. ;;9002226.02101,"1801,00093-5710-05 ",.01)
  1. ;;00093-5710-05
  1. ;;9002226.02101,"1801,00093-5710-05 ",.02)
  1. ;;00093-5710-05
  1. ;;9002226.02101,"1801,00093-5711-01 ",.01)
  1. ;;00093-5711-01
  1. ;;9002226.02101,"1801,00093-5711-01 ",.02)
  1. ;;00093-5711-01
  1. ;;9002226.02101,"1801,00093-5711-05 ",.01)
  1. ;;00093-5711-05
  1. ;;9002226.02101,"1801,00093-5711-05 ",.02)
  1. ;;00093-5711-05
  1. ;;9002226.02101,"1801,00093-5711-19 ",.01)
  1. ;;00093-5711-19
  1. ;;9002226.02101,"1801,00093-5711-19 ",.02)
  1. ;;00093-5711-19
  1. ;;9002226.02101,"1801,00093-5712-01 ",.01)
  1. ;;00093-5712-01
  1. ;;9002226.02101,"1801,00093-5712-01 ",.02)
  1. ;;00093-5712-01
  1. ;;9002226.02101,"1801,00093-5712-05 ",.01)
  1. ;;00093-5712-05
  1. ;;9002226.02101,"1801,00093-5712-05 ",.02)
  1. ;;00093-5712-05
  1. ;;9002226.02101,"1801,00093-5712-19 ",.01)
  1. ;;00093-5712-19
  1. ;;9002226.02101,"1801,00093-5712-19 ",.02)
  1. ;;00093-5712-19
  1. ;;9002226.02101,"1801,00093-7261-05 ",.01)
  1. ;;00093-7261-05
  1. ;;9002226.02101,"1801,00093-7261-05 ",.02)
  1. ;;00093-7261-05
  1. ;;9002226.02101,"1801,00093-7262-05 ",.01)
  1. ;;00093-7262-05
  1. ;;9002226.02101,"1801,00093-7262-05 ",.02)
  1. ;;00093-7262-05