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

BGP61C4.m

Go to the documentation of this file.
BGP61C4 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 18, 2015 ;
 ;;16.1;IHS CLINICAL REPORTING;;MAR 22, 2016;Build 170
 ;
START ;
 K:'$G(ATXPGMC) ^TMP("ATX",$J)
 S ATXPGMC=$G(ATXPGMC)+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
 Q
 ;
TMP ;;TAXONOMY (WITH BULLETIN)
 ;;21,"66336-0938-90 ")
 ;;1024
 ;;21,"66336-0977-30 ")
 ;;1025
 ;;21,"66689-0020-01 ")
 ;;1026
 ;;21,"66689-0020-50 ")
 ;;1027
 ;;21,"67253-0460-10 ")
 ;;1028
 ;;21,"67253-0461-10 ")
 ;;1029
 ;;21,"67253-0461-11 ")
 ;;1030
 ;;21,"67253-0461-50 ")
 ;;1031
 ;;21,"67253-0462-10 ")
 ;;1032
 ;;21,"67253-0462-11 ")
 ;;1033
 ;;21,"67253-0462-50 ")
 ;;1034
 ;;21,"67544-0296-70 ")
 ;;1035
 ;;21,"67544-0511-70 ")
 ;;1036
 ;;21,"67544-0511-94 ")
 ;;1037
 ;;21,"67544-0566-53 ")
 ;;1038
 ;;21,"67544-0566-60 ")
 ;;1039
 ;;21,"67544-0566-70 ")
 ;;1040
 ;;21,"67544-0566-80 ")
 ;;1041
 ;;21,"67544-0566-92 ")
 ;;1042
 ;;21,"67544-0566-94 ")
 ;;1043
 ;;21,"67544-0613-53 ")
 ;;1044
 ;;21,"67544-0653-53 ")
 ;;1045
 ;;21,"67544-0653-60 ")
 ;;1046
 ;;21,"67544-0653-70 ")
 ;;1047
 ;;21,"67544-0653-80 ")
 ;;1048
 ;;21,"67544-0653-90 ")
 ;;1049
 ;;21,"67544-0653-92 ")
 ;;1050
 ;;21,"67544-0653-94 ")
 ;;1051
 ;;21,"67544-0653-98 ")
 ;;1052
 ;;21,"67544-0661-41 ")
 ;;1053
 ;;21,"67544-0661-81 ")
 ;;1054
 ;;21,"67544-0875-60 ")
 ;;1055
 ;;21,"67544-0875-80 ")
 ;;1056
 ;;21,"68025-0065-30 ")
 ;;1057
 ;;21,"68025-0066-30 ")
 ;;1058
 ;;21,"68025-0067-30 ")
 ;;1059
 ;;21,"68071-0028-30 ")
 ;;1060
 ;;21,"68071-0028-60 ")
 ;;1061
 ;;21,"68084-0136-01 ")
 ;;1062
 ;;21,"68084-0136-11 ")
 ;;1063
 ;;21,"68084-0137-01 ")
 ;;1064
 ;;21,"68084-0137-11 ")
 ;;1065
 ;;21,"68084-0138-01 ")
 ;;1066
 ;;21,"68084-0138-11 ")
 ;;1067
 ;;21,"68084-0745-25 ")
 ;;1068
 ;;21,"68084-0745-95 ")
 ;;1069
 ;;21,"68084-0807-01 ")
 ;;1070
 ;;21,"68084-0807-11 ")
 ;;1071
 ;;21,"68094-0250-59 ")
 ;;1072
 ;;21,"68094-0250-61 ")
 ;;1073
 ;;21,"68094-0250-62 ")
 ;;1074
 ;;21,"68094-0361-59 ")
 ;;1075
 ;;21,"68094-0361-62 ")
 ;;1076
 ;;21,"68094-0518-59 ")
 ;;1077
 ;;21,"68094-0518-62 ")
 ;;1078
 ;;21,"68094-0528-59 ")
 ;;1079
 ;;21,"68094-0528-61 ")
 ;;1080
 ;;21,"68094-0528-62 ")
 ;;1081
 ;;21,"68258-5975-08 ")
 ;;1082
 ;;21,"68258-5978-02 ")
 ;;1083
 ;;21,"68258-5979-02 ")
 ;;1084
 ;;21,"68258-5980-02 ")
 ;;1085
 ;;21,"68258-5981-02 ")
 ;;1086
 ;;21,"68462-0656-29 ")
 ;;1087
 ;;21,"68462-0656-84 ")
 ;;1088
 ;;21,"68462-0657-29 ")
 ;;1089
 ;;21,"68462-0657-84 ")
 ;;1090
 ;;21,"68462-0657-90 ")
 ;;1091
 ;;21,"68645-0210-54 ")
 ;;1092
 ;;21,"68645-0211-54 ")
 ;;1093
 ;;21,"68788-9128-03 ")
 ;;1094
 ;;21,"68788-9128-06 ")
 ;;1095
 ;;21,"68788-9128-09 ")
 ;;1096
 ;;21,"68788-9716-03 ")
 ;;1097
 ;;21,"68788-9716-06 ")
 ;;1098
 ;;21,"68788-9716-09 ")
 ;;1099
 ;;21,"68788-9728-03 ")
 ;;1100
 ;;21,"68968-0514-08 ")
 ;;1101
 ;;21,"68968-0525-08 ")
 ;;1102
 ;;21,"68968-6610-08 ")
 ;;1103
 ;;21,"68968-6625-08 ")
 ;;1104
 ;;21,"68968-6637-08 ")
 ;;1105
 ;;21,"68968-6650-08 ")
 ;;1106
 ;;21,"68968-6675-08 ")
 ;;1107
 ;;21,"69238-1251-06 ")
 ;;1108
 ;;21,"69238-1251-08 ")
 ;;1109
 ;;21,"69238-1252-06 ")
 ;;1110
 ;;21,"69238-1252-08 ")
 ;;1111
 ;;21,"99207-0190-56 ")
 ;;1112
 ;;9002226,1801,.01)
 ;;BGP HEDIS ENDOCRINE NDC
 ;;9002226,1801,.02)
 ;;@
 ;;9002226,1801,.04)
 ;;n
 ;;9002226,1801,.06)
 ;;@
 ;;9002226,1801,.08)
 ;;@
 ;;9002226,1801,.09)
 ;;3150818
 ;;9002226,1801,.11)
 ;;@
 ;;9002226,1801,.12)
 ;;@
 ;;9002226,1801,.13)
 ;;1
 ;;9002226,1801,.14)
 ;;@
 ;;9002226,1801,.15)
 ;;50.67
 ;;9002226,1801,.16)
 ;;@
 ;;9002226,1801,.17)
 ;;@
 ;;9002226,1801,3101)
 ;;@
 ;;9002226.02101,"1801,00008-1123-12 ",.01)
 ;;00008-1123-12
 ;;9002226.02101,"1801,00008-1123-12 ",.02)
 ;;00008-1123-12
 ;;9002226.02101,"1801,00009-0341-01 ",.01)
 ;;00009-0341-01
 ;;9002226.02101,"1801,00009-0341-01 ",.02)
 ;;00009-0341-01
 ;;9002226.02101,"1801,00009-0352-01 ",.01)
 ;;00009-0352-01
 ;;9002226.02101,"1801,00009-0352-01 ",.02)
 ;;00009-0352-01
 ;;9002226.02101,"1801,00009-0352-04 ",.01)
 ;;00009-0352-04
 ;;9002226.02101,"1801,00009-0352-04 ",.02)
 ;;00009-0352-04
 ;;9002226.02101,"1801,00009-3449-01 ",.01)
 ;;00009-3449-01
 ;;9002226.02101,"1801,00009-3449-01 ",.02)
 ;;00009-3449-01
 ;;9002226.02101,"1801,00009-3449-03 ",.01)
 ;;00009-3449-03
 ;;9002226.02101,"1801,00009-3449-03 ",.02)
 ;;00009-3449-03
 ;;9002226.02101,"1801,00009-3774-17 ",.01)
 ;;00009-3774-17
 ;;9002226.02101,"1801,00009-3774-17 ",.02)
 ;;00009-3774-17
 ;;9002226.02101,"1801,00015-0508-42 ",.01)
 ;;00015-0508-42
 ;;9002226.02101,"1801,00015-0508-42 ",.02)
 ;;00015-0508-42
 ;;9002226.02101,"1801,00037-4801-35 ",.01)
 ;;00037-4801-35
 ;;9002226.02101,"1801,00037-4801-35 ",.02)
 ;;00037-4801-35
 ;;9002226.02101,"1801,00037-4802-35 ",.01)
 ;;00037-4802-35
 ;;9002226.02101,"1801,00037-4802-35 ",.02)
 ;;00037-4802-35
 ;;9002226.02101,"1801,00039-0051-10 ",.01)
 ;;00039-0051-10
 ;;9002226.02101,"1801,00039-0051-10 ",.02)
 ;;00039-0051-10
 ;;9002226.02101,"1801,00039-0052-10 ",.01)
 ;;00039-0052-10
 ;;9002226.02101,"1801,00039-0052-10 ",.02)
 ;;00039-0052-10
 ;;9002226.02101,"1801,00039-0052-70 ",.01)
 ;;00039-0052-70
 ;;9002226.02101,"1801,00039-0052-70 ",.02)
 ;;00039-0052-70
 ;;9002226.02101,"1801,00039-0053-05 ",.01)
 ;;00039-0053-05
 ;;9002226.02101,"1801,00039-0053-05 ",.02)
 ;;00039-0053-05
 ;;9002226.02101,"1801,00046-1100-81 ",.01)
 ;;00046-1100-81
 ;;9002226.02101,"1801,00046-1100-81 ",.02)
 ;;00046-1100-81
 ;;9002226.02101,"1801,00046-1100-91 ",.01)
 ;;00046-1100-91
 ;;9002226.02101,"1801,00046-1100-91 ",.02)
 ;;00046-1100-91
 ;;9002226.02101,"1801,00046-1101-81 ",.01)
 ;;00046-1101-81
 ;;9002226.02101,"1801,00046-1101-81 ",.02)
 ;;00046-1101-81
 ;;9002226.02101,"1801,00046-1102-81 ",.01)
 ;;00046-1102-81
 ;;9002226.02101,"1801,00046-1102-81 ",.02)
 ;;00046-1102-81
 ;;9002226.02101,"1801,00046-1102-91 ",.01)
 ;;00046-1102-91
 ;;9002226.02101,"1801,00046-1102-91 ",.02)
 ;;00046-1102-91
 ;;9002226.02101,"1801,00046-1103-81 ",.01)
 ;;00046-1103-81
 ;;9002226.02101,"1801,00046-1103-81 ",.02)
 ;;00046-1103-81
 ;;9002226.02101,"1801,00046-1104-81 ",.01)
 ;;00046-1104-81
 ;;9002226.02101,"1801,00046-1104-81 ",.02)
 ;;00046-1104-81
 ;;9002226.02101,"1801,00046-1104-91 ",.01)
 ;;00046-1104-91
 ;;9002226.02101,"1801,00046-1104-91 ",.02)
 ;;00046-1104-91
 ;;9002226.02101,"1801,00046-1105-11 ",.01)
 ;;00046-1105-11
 ;;9002226.02101,"1801,00046-1105-11 ",.02)
 ;;00046-1105-11
 ;;9002226.02101,"1801,00046-1106-11 ",.01)
 ;;00046-1106-11
 ;;9002226.02101,"1801,00046-1106-11 ",.02)
 ;;00046-1106-11
 ;;9002226.02101,"1801,00046-1107-11 ",.01)
 ;;00046-1107-11
 ;;9002226.02101,"1801,00046-1107-11 ",.02)
 ;;00046-1107-11
 ;;9002226.02101,"1801,00046-1108-11 ",.01)
 ;;00046-1108-11
 ;;9002226.02101,"1801,00046-1108-11 ",.02)
 ;;00046-1108-11
 ;;9002226.02101,"1801,00046-2575-12 ",.01)
 ;;00046-2575-12
 ;;9002226.02101,"1801,00046-2575-12 ",.02)
 ;;00046-2575-12
 ;;9002226.02101,"1801,00046-2579-11 ",.01)
 ;;00046-2579-11
 ;;9002226.02101,"1801,00046-2579-11 ",.02)
 ;;00046-2579-11
 ;;9002226.02101,"1801,00054-3542-58 ",.01)
 ;;00054-3542-58
 ;;9002226.02101,"1801,00054-3542-58 ",.02)
 ;;00054-3542-58
 ;;9002226.02101,"1801,00054-4603-25 ",.01)
 ;;00054-4603-25
 ;;9002226.02101,"1801,00054-4603-25 ",.02)
 ;;00054-4603-25
 ;;9002226.02101,"1801,00054-4604-25 ",.01)
 ;;00054-4604-25
 ;;9002226.02101,"1801,00054-4604-25 ",.02)
 ;;00054-4604-25
 ;;9002226.02101,"1801,00054-8603-25 ",.01)
 ;;00054-8603-25
 ;;9002226.02101,"1801,00054-8603-25 ",.02)
 ;;00054-8603-25
 ;;9002226.02101,"1801,00054-8604-25 ",.01)
 ;;00054-8604-25
 ;;9002226.02101,"1801,00054-8604-25 ",.02)
 ;;00054-8604-25
 ;;9002226.02101,"1801,00078-0343-42 ",.01)
 ;;00078-0343-42
 ;;9002226.02101,"1801,00078-0343-42 ",.02)
 ;;00078-0343-42
 ;;9002226.02101,"1801,00078-0343-45 ",.01)
 ;;00078-0343-45
 ;;9002226.02101,"1801,00078-0343-45 ",.02)
 ;;00078-0343-45
 ;;9002226.02101,"1801,00078-0343-62 ",.01)
 ;;00078-0343-62
 ;;9002226.02101,"1801,00078-0343-62 ",.02)
 ;;00078-0343-62
 ;;9002226.02101,"1801,00078-0344-42 ",.01)
 ;;00078-0344-42
 ;;9002226.02101,"1801,00078-0344-42 ",.02)
 ;;00078-0344-42
 ;;9002226.02101,"1801,00078-0344-45 ",.01)
 ;;00078-0344-45
 ;;9002226.02101,"1801,00078-0344-45 ",.02)
 ;;00078-0344-45
 ;;9002226.02101,"1801,00078-0344-62 ",.01)
 ;;00078-0344-62
 ;;9002226.02101,"1801,00078-0344-62 ",.02)
 ;;00078-0344-62
 ;;9002226.02101,"1801,00078-0345-42 ",.01)
 ;;00078-0345-42
 ;;9002226.02101,"1801,00078-0345-42 ",.02)
 ;;00078-0345-42
 ;;9002226.02101,"1801,00078-0345-45 ",.01)
 ;;00078-0345-45
 ;;9002226.02101,"1801,00078-0345-45 ",.02)
 ;;00078-0345-45
 ;;9002226.02101,"1801,00078-0345-62 ",.01)
 ;;00078-0345-62
 ;;9002226.02101,"1801,00078-0345-62 ",.02)
 ;;00078-0345-62
 ;;9002226.02101,"1801,00078-0346-42 ",.01)
 ;;00078-0346-42
 ;;9002226.02101,"1801,00078-0346-42 ",.02)
 ;;00078-0346-42
 ;;9002226.02101,"1801,00078-0346-45 ",.01)
 ;;00078-0346-45
 ;;9002226.02101,"1801,00078-0346-45 ",.02)
 ;;00078-0346-45
 ;;9002226.02101,"1801,00078-0346-62 ",.01)
 ;;00078-0346-62
 ;;9002226.02101,"1801,00078-0346-62 ",.02)
 ;;00078-0346-62
 ;;9002226.02101,"1801,00078-0365-42 ",.01)
 ;;00078-0365-42
 ;;9002226.02101,"1801,00078-0365-42 ",.02)
 ;;00078-0365-42
 ;;9002226.02101,"1801,00078-0365-45 ",.01)
 ;;00078-0365-45
 ;;9002226.02101,"1801,00078-0365-45 ",.02)
 ;;00078-0365-45
 ;;9002226.02101,"1801,00078-0377-42 ",.01)
 ;;00078-0377-42
 ;;9002226.02101,"1801,00078-0377-42 ",.02)
 ;;00078-0377-42
 ;;9002226.02101,"1801,00078-0377-62 ",.01)
 ;;00078-0377-62
 ;;9002226.02101,"1801,00078-0377-62 ",.02)
 ;;00078-0377-62
 ;;9002226.02101,"1801,00078-0378-42 ",.01)
 ;;00078-0378-42
 ;;9002226.02101,"1801,00078-0378-42 ",.02)
 ;;00078-0378-42
 ;;9002226.02101,"1801,00078-0378-62 ",.01)
 ;;00078-0378-62
 ;;9002226.02101,"1801,00078-0378-62 ",.02)
 ;;00078-0378-62
 ;;9002226.02101,"1801,00087-6072-11 ",.01)
 ;;00087-6072-11
 ;;9002226.02101,"1801,00087-6072-11 ",.02)
 ;;00087-6072-11
 ;;9002226.02101,"1801,00087-6073-11 ",.01)
 ;;00087-6073-11
 ;;9002226.02101,"1801,00087-6073-11 ",.02)
 ;;00087-6073-11
 ;;9002226.02101,"1801,00087-6074-11 ",.01)
 ;;00087-6074-11
 ;;9002226.02101,"1801,00087-6074-11 ",.02)
 ;;00087-6074-11
 ;;9002226.02101,"1801,00093-3122-42 ",.01)
 ;;00093-3122-42
 ;;9002226.02101,"1801,00093-3122-42 ",.02)
 ;;00093-3122-42
 ;;9002226.02101,"1801,00093-3122-98 ",.01)
 ;;00093-3122-98
 ;;9002226.02101,"1801,00093-3122-98 ",.02)
 ;;00093-3122-98
 ;;9002226.02101,"1801,00093-5454-28 ",.01)
 ;;00093-5454-28
 ;;9002226.02101,"1801,00093-5454-28 ",.02)
 ;;00093-5454-28
 ;;9002226.02101,"1801,00093-5454-62 ",.01)
 ;;00093-5454-62
 ;;9002226.02101,"1801,00093-5454-62 ",.02)
 ;;00093-5454-62
 ;;9002226.02101,"1801,00093-5455-28 ",.01)
 ;;00093-5455-28
 ;;9002226.02101,"1801,00093-5455-28 ",.02)
 ;;00093-5455-28
 ;;9002226.02101,"1801,00093-5455-42 ",.01)
 ;;00093-5455-42
 ;;9002226.02101,"1801,00093-5455-42 ",.02)
 ;;00093-5455-42
 ;;9002226.02101,"1801,00093-5710-01 ",.01)
 ;;00093-5710-01
 ;;9002226.02101,"1801,00093-5710-01 ",.02)
 ;;00093-5710-01
 ;;9002226.02101,"1801,00093-5710-05 ",.01)
 ;;00093-5710-05
 ;;9002226.02101,"1801,00093-5710-05 ",.02)
 ;;00093-5710-05
 ;;9002226.02101,"1801,00093-5710-19 ",.01)
 ;;00093-5710-19
 ;;9002226.02101,"1801,00093-5710-19 ",.02)
 ;;00093-5710-19
 ;;9002226.02101,"1801,00093-5711-01 ",.01)
 ;;00093-5711-01
 ;;9002226.02101,"1801,00093-5711-01 ",.02)
 ;;00093-5711-01
 ;;9002226.02101,"1801,00093-5711-05 ",.01)
 ;;00093-5711-05
 ;;9002226.02101,"1801,00093-5711-05 ",.02)
 ;;00093-5711-05
 ;;9002226.02101,"1801,00093-5711-19 ",.01)
 ;;00093-5711-19
 ;;9002226.02101,"1801,00093-5711-19 ",.02)
 ;;00093-5711-19