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

BGP81W7.m

Go to the documentation of this file.
BGP81W7 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 09, 2017 ;
 ;;18.0;IHS CLINICAL REPORTING;;NOV 21, 2017;Build 51
 ;
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,"68084-0255-01 ")
 ;;2023
 ;;21,"68084-0255-11 ")
 ;;2024
 ;;21,"68084-0381-01 ")
 ;;2025
 ;;21,"68084-0381-11 ")
 ;;2026
 ;;21,"68084-0388-01 ")
 ;;2027
 ;;21,"68084-0388-11 ")
 ;;2028
 ;;21,"68084-0389-01 ")
 ;;2029
 ;;21,"68084-0389-11 ")
 ;;2030
 ;;21,"68084-0490-01 ")
 ;;2031
 ;;21,"68084-0490-11 ")
 ;;2032
 ;;21,"68084-0491-01 ")
 ;;2033
 ;;21,"68084-0491-11 ")
 ;;2034
 ;;21,"68084-0847-01 ")
 ;;2035
 ;;21,"68084-0847-11 ")
 ;;2036
 ;;21,"68220-0111-05 ")
 ;;2037
 ;;21,"68220-0112-10 ")
 ;;2038
 ;;21,"68220-0113-10 ")
 ;;2039
 ;;21,"68220-0115-10 ")
 ;;2040
 ;;21,"68220-0118-10 ")
 ;;2041
 ;;21,"68258-3011-04 ")
 ;;2042
 ;;21,"68258-3028-01 ")
 ;;2043
 ;;21,"68382-0040-01 ")
 ;;2044
 ;;21,"68382-0040-10 ")
 ;;2045
 ;;21,"68382-0041-01 ")
 ;;2046
 ;;21,"68382-0041-10 ")
 ;;2047
 ;;21,"68382-0042-01 ")
 ;;2048
 ;;21,"68382-0042-10 ")
 ;;2049
 ;;21,"68462-0352-01 ")
 ;;2050
 ;;21,"68462-0352-05 ")
 ;;2051
 ;;21,"68462-0353-01 ")
 ;;2052
 ;;21,"68462-0353-05 ")
 ;;2053
 ;;21,"68462-0354-01 ")
 ;;2054
 ;;21,"68462-0354-05 ")
 ;;2055
 ;;21,"68462-0360-01 ")
 ;;2056
 ;;21,"68462-0360-05 ")
 ;;2057
 ;;21,"68462-0361-01 ")
 ;;2058
 ;;21,"68462-0361-05 ")
 ;;2059
 ;;21,"68462-0362-01 ")
 ;;2060
 ;;21,"68462-0362-05 ")
 ;;2061
 ;;21,"68645-0230-59 ")
 ;;2062
 ;;21,"68682-0409-10 ")
 ;;2063
 ;;21,"68788-6404-01 ")
 ;;2064
 ;;21,"68788-6404-02 ")
 ;;2065
 ;;21,"68788-6404-03 ")
 ;;2066
 ;;21,"68788-6404-06 ")
 ;;2067
 ;;21,"68788-6453-01 ")
 ;;2068
 ;;21,"68788-8948-03 ")
 ;;2069
 ;;21,"68788-9183-01 ")
 ;;2070
 ;;21,"68788-9183-03 ")
 ;;2071
 ;;21,"68788-9183-06 ")
 ;;2072
 ;;21,"68788-9291-01 ")
 ;;2073
 ;;21,"68788-9291-02 ")
 ;;2074
 ;;21,"68788-9291-03 ")
 ;;2075
 ;;21,"68788-9291-06 ")
 ;;2076
 ;;21,"68788-9466-04 ")
 ;;2077
 ;;21,"68788-9679-01 ")
 ;;2078
 ;;21,"68788-9679-03 ")
 ;;2079
 ;;21,"68788-9679-06 ")
 ;;2080
 ;;21,"68788-9762-01 ")
 ;;2081
 ;;21,"68788-9762-02 ")
 ;;2082
 ;;21,"68788-9762-03 ")
 ;;2083
 ;;21,"68788-9762-05 ")
 ;;2084
 ;;21,"68788-9762-06 ")
 ;;2085
 ;;21,"68788-9762-08 ")
 ;;2086
 ;;21,"68788-9762-09 ")
 ;;2087
 ;;21,"68788-9895-01 ")
 ;;2088
 ;;21,"69097-0826-07 ")
 ;;2089
 ;;21,"69097-0827-07 ")
 ;;2090
 ;;21,"69097-0827-15 ")
 ;;2091
 ;;21,"69097-0832-07 ")
 ;;2092
 ;;21,"69097-0832-15 ")
 ;;2093
 ;;21,"69315-0136-01 ")
 ;;2094
 ;;21,"69315-0136-10 ")
 ;;2095
 ;;21,"69315-0137-01 ")
 ;;2096
 ;;21,"69315-0137-10 ")
 ;;2097
 ;;21,"69315-0138-01 ")
 ;;2098
 ;;21,"69315-0138-10 ")
 ;;2099
 ;;21,"69339-0135-01 ")
 ;;2100
 ;;21,"69339-0135-10 ")
 ;;2101
 ;;21,"69442-0480-01 ")
 ;;2102
 ;;21,"70092-1001-44 ")
 ;;2103
 ;;21,"70092-1050-02 ")
 ;;2104
 ;;21,"70092-1173-43 ")
 ;;2105
 ;;21,"70332-0103-01 ")
 ;;2106
 ;;21,"70408-0146-31 ")
 ;;2107
 ;;21,"70408-0146-34 ")
 ;;2108
 ;;21,"70408-0185-31 ")
 ;;2109
 ;;21,"70408-0185-34 ")
 ;;2110
 ;;21,"75826-0112-10 ")
 ;;2111
 ;;21,"75826-0118-10 ")
 ;;2112
 ;;21,"75901-5200-30 ")
 ;;2113
 ;;21,"76329-3339-01 ")
 ;;2114
 ;;21,"76385-0103-01 ")
 ;;2115
 ;;21,"76385-0103-10 ")
 ;;2116
 ;;21,"76385-0104-01 ")
 ;;2117
 ;;21,"76385-0104-10 ")
 ;;2118
 ;;21,"76385-0105-01 ")
 ;;2119
 ;;21,"76385-0105-10 ")
 ;;2120
 ;;21,"76439-0302-10 ")
 ;;2121
 ;;21,"76439-0307-10 ")
 ;;2122
 ;;21,"76439-0308-10 ")
 ;;2123
 ;;21,"76439-0309-10 ")
 ;;2124
 ;;9002226,1795,.01)
 ;;BGP HEDIS ANTICHOLINERGIC NDC
 ;;9002226,1795,.02)
 ;;@
 ;;9002226,1795,.04)
 ;;n
 ;;9002226,1795,.06)
 ;;@
 ;;9002226,1795,.08)
 ;;@
 ;;9002226,1795,.09)
 ;;3170809
 ;;9002226,1795,.11)
 ;;@
 ;;9002226,1795,.12)
 ;;@
 ;;9002226,1795,.13)
 ;;1
 ;;9002226,1795,.14)
 ;;@
 ;;9002226,1795,.15)
 ;;50.67
 ;;9002226,1795,.16)
 ;;@
 ;;9002226,1795,.17)
 ;;@
 ;;9002226,1795,.22)
 ;;1
 ;;9002226,1795,3101)
 ;;@
 ;;9002226.02101,"1795,00025-0061-31 ",.01)
 ;;00025-0061-31
 ;;9002226.02101,"1795,00025-0061-31 ",.02)
 ;;00025-0061-31
 ;;9002226.02101,"1795,00049-2100-66 ",.01)
 ;;00049-2100-66
 ;;9002226.02101,"1795,00049-2100-66 ",.02)
 ;;00049-2100-66
 ;;9002226.02101,"1795,00049-2110-66 ",.01)
 ;;00049-2110-66
 ;;9002226.02101,"1795,00049-2110-66 ",.02)
 ;;00049-2110-66
 ;;9002226.02101,"1795,00049-2140-66 ",.01)
 ;;00049-2140-66
 ;;9002226.02101,"1795,00049-2140-66 ",.02)
 ;;00049-2140-66
 ;;9002226.02101,"1795,00054-3194-46 ",.01)
 ;;00054-3194-46
 ;;9002226.02101,"1795,00054-3194-46 ",.02)
 ;;00054-3194-46
 ;;9002226.02101,"1795,00054-4721-25 ",.01)
 ;;00054-4721-25
 ;;9002226.02101,"1795,00054-4721-25 ",.02)
 ;;00054-4721-25
 ;;9002226.02101,"1795,00067-4345-04 ",.01)
 ;;00067-4345-04
 ;;9002226.02101,"1795,00067-4345-04 ",.02)
 ;;00067-4345-04
 ;;9002226.02101,"1795,00067-4345-09 ",.01)
 ;;00067-4345-09
 ;;9002226.02101,"1795,00067-4345-09 ",.02)
 ;;00067-4345-09
 ;;9002226.02101,"1795,00069-5410-66 ",.01)
 ;;00069-5410-66
 ;;9002226.02101,"1795,00069-5410-66 ",.02)
 ;;00069-5410-66
 ;;9002226.02101,"1795,00069-5420-66 ",.01)
 ;;00069-5420-66
 ;;9002226.02101,"1795,00069-5420-66 ",.02)
 ;;00069-5420-66
 ;;9002226.02101,"1795,00076-0901-01 ",.01)
 ;;00076-0901-01
 ;;9002226.02101,"1795,00076-0901-01 ",.02)
 ;;00076-0901-01
 ;;9002226.02101,"1795,00093-0308-01 ",.01)
 ;;00093-0308-01
 ;;9002226.02101,"1795,00093-0308-01 ",.02)
 ;;00093-0308-01
 ;;9002226.02101,"1795,00093-0309-12 ",.01)
 ;;00093-0309-12
 ;;9002226.02101,"1795,00093-0309-12 ",.02)
 ;;00093-0309-12
 ;;9002226.02101,"1795,00093-2929-01 ",.01)
 ;;00093-2929-01
 ;;9002226.02101,"1795,00093-2929-01 ",.02)
 ;;00093-2929-01
 ;;9002226.02101,"1795,00093-2929-10 ",.01)
 ;;00093-2929-10
 ;;9002226.02101,"1795,00093-2929-10 ",.02)
 ;;00093-2929-10
 ;;9002226.02101,"1795,00093-5060-01 ",.01)
 ;;00093-5060-01
 ;;9002226.02101,"1795,00093-5060-01 ",.02)
 ;;00093-5060-01
 ;;9002226.02101,"1795,00093-5060-05 ",.01)
 ;;00093-5060-05
 ;;9002226.02101,"1795,00093-5060-05 ",.02)
 ;;00093-5060-05
 ;;9002226.02101,"1795,00093-5060-10 ",.01)
 ;;00093-5060-10
 ;;9002226.02101,"1795,00093-5060-10 ",.02)
 ;;00093-5060-10
 ;;9002226.02101,"1795,00093-5061-01 ",.01)
 ;;00093-5061-01
 ;;9002226.02101,"1795,00093-5061-01 ",.02)
 ;;00093-5061-01
 ;;9002226.02101,"1795,00093-5061-05 ",.01)
 ;;00093-5061-05
 ;;9002226.02101,"1795,00093-5061-05 ",.02)
 ;;00093-5061-05
 ;;9002226.02101,"1795,00093-5061-10 ",.01)
 ;;00093-5061-10
 ;;9002226.02101,"1795,00093-5061-10 ",.02)
 ;;00093-5061-10
 ;;9002226.02101,"1795,00093-5062-01 ",.01)
 ;;00093-5062-01
 ;;9002226.02101,"1795,00093-5062-01 ",.02)
 ;;00093-5062-01
 ;;9002226.02101,"1795,00093-5062-05 ",.01)
 ;;00093-5062-05
 ;;9002226.02101,"1795,00093-5062-05 ",.02)
 ;;00093-5062-05
 ;;9002226.02101,"1795,00093-5062-10 ",.01)
 ;;00093-5062-10
 ;;9002226.02101,"1795,00093-5062-10 ",.02)
 ;;00093-5062-10
 ;;9002226.02101,"1795,00095-0054-20 ",.01)
 ;;00095-0054-20
 ;;9002226.02101,"1795,00095-0054-20 ",.02)
 ;;00095-0054-20
 ;;9002226.02101,"1795,00095-0108-01 ",.01)
 ;;00095-0108-01
 ;;9002226.02101,"1795,00095-0108-01 ",.02)
 ;;00095-0108-01
 ;;9002226.02101,"1795,00095-0108-20 ",.01)
 ;;00095-0108-20
 ;;9002226.02101,"1795,00095-0108-20 ",.02)
 ;;00095-0108-20
 ;;9002226.02101,"1795,00115-1042-01 ",.01)
 ;;00115-1042-01
 ;;9002226.02101,"1795,00115-1042-01 ",.02)
 ;;00115-1042-01
 ;;9002226.02101,"1795,00115-1670-01 ",.01)
 ;;00115-1670-01
 ;;9002226.02101,"1795,00115-1670-01 ",.02)
 ;;00115-1670-01
 ;;9002226.02101,"1795,00115-1670-02 ",.01)
 ;;00115-1670-02
 ;;9002226.02101,"1795,00115-1670-02 ",.02)
 ;;00115-1670-02
 ;;9002226.02101,"1795,00115-1671-01 ",.01)
 ;;00115-1671-01
 ;;9002226.02101,"1795,00115-1671-01 ",.02)
 ;;00115-1671-01
 ;;9002226.02101,"1795,00115-1671-02 ",.01)
 ;;00115-1671-02
 ;;9002226.02101,"1795,00115-1671-02 ",.02)
 ;;00115-1671-02
 ;;9002226.02101,"1795,00121-0489-05 ",.01)
 ;;00121-0489-05
 ;;9002226.02101,"1795,00121-0489-05 ",.02)
 ;;00121-0489-05
 ;;9002226.02101,"1795,00121-0489-10 ",.01)
 ;;00121-0489-10
 ;;9002226.02101,"1795,00121-0489-10 ",.02)
 ;;00121-0489-10
 ;;9002226.02101,"1795,00121-0547-05 ",.01)
 ;;00121-0547-05
 ;;9002226.02101,"1795,00121-0547-05 ",.02)
 ;;00121-0547-05
 ;;9002226.02101,"1795,00121-0658-16 ",.01)
 ;;00121-0658-16
 ;;9002226.02101,"1795,00121-0658-16 ",.02)
 ;;00121-0658-16
 ;;9002226.02101,"1795,00121-0788-16 ",.01)
 ;;00121-0788-16
 ;;9002226.02101,"1795,00121-0788-16 ",.02)
 ;;00121-0788-16
 ;;9002226.02101,"1795,00121-4788-10 ",.01)
 ;;00121-4788-10
 ;;9002226.02101,"1795,00121-4788-10 ",.02)
 ;;00121-4788-10
 ;;9002226.02101,"1795,00121-4822-25 ",.01)
 ;;00121-4822-25
 ;;9002226.02101,"1795,00121-4822-25 ",.02)
 ;;00121-4822-25
 ;;9002226.02101,"1795,00143-1227-01 ",.01)
 ;;00143-1227-01
 ;;9002226.02101,"1795,00143-1227-01 ",.02)
 ;;00143-1227-01
 ;;9002226.02101,"1795,00143-1227-10 ",.01)
 ;;00143-1227-10
 ;;9002226.02101,"1795,00143-1227-10 ",.02)
 ;;00143-1227-10
 ;;9002226.02101,"1795,00143-1763-01 ",.01)
 ;;00143-1763-01
 ;;9002226.02101,"1795,00143-1763-01 ",.02)
 ;;00143-1763-01
 ;;9002226.02101,"1795,00143-1763-10 ",.01)
 ;;00143-1763-10
 ;;9002226.02101,"1795,00143-1763-10 ",.02)
 ;;00143-1763-10
 ;;9002226.02101,"1795,00143-1764-01 ",.01)
 ;;00143-1764-01
 ;;9002226.02101,"1795,00143-1764-01 ",.02)
 ;;00143-1764-01
 ;;9002226.02101,"1795,00143-1764-10 ",.01)
 ;;00143-1764-10
 ;;9002226.02101,"1795,00143-1764-10 ",.02)
 ;;00143-1764-10
 ;;9002226.02101,"1795,00143-3126-01 ",.01)
 ;;00143-3126-01
 ;;9002226.02101,"1795,00143-3126-01 ",.02)
 ;;00143-3126-01
 ;;9002226.02101,"1795,00143-3126-10 ",.01)
 ;;00143-3126-10
 ;;9002226.02101,"1795,00143-3126-10 ",.02)
 ;;00143-3126-10
 ;;9002226.02101,"1795,00179-0072-30 ",.01)
 ;;00179-0072-30
 ;;9002226.02101,"1795,00179-0072-30 ",.02)
 ;;00179-0072-30
 ;;9002226.02101,"1795,00185-0613-01 ",.01)
 ;;00185-0613-01
 ;;9002226.02101,"1795,00185-0613-01 ",.02)
 ;;00185-0613-01
 ;;9002226.02101,"1795,00185-0613-05 ",.01)
 ;;00185-0613-05
 ;;9002226.02101,"1795,00185-0613-05 ",.02)
 ;;00185-0613-05
 ;;9002226.02101,"1795,00185-0615-01 ",.01)
 ;;00185-0615-01
 ;;9002226.02101,"1795,00185-0615-01 ",.02)
 ;;00185-0615-01
 ;;9002226.02101,"1795,00185-0615-05 ",.01)
 ;;00185-0615-05
 ;;9002226.02101,"1795,00185-0615-05 ",.02)
 ;;00185-0615-05
 ;;9002226.02101,"1795,00185-0674-01 ",.01)
 ;;00185-0674-01
 ;;9002226.02101,"1795,00185-0674-01 ",.02)
 ;;00185-0674-01
 ;;9002226.02101,"1795,00185-0674-05 ",.01)
 ;;00185-0674-05
 ;;9002226.02101,"1795,00185-0674-05 ",.02)
 ;;00185-0674-05
 ;;9002226.02101,"1795,00187-0054-01 ",.01)
 ;;00187-0054-01
 ;;9002226.02101,"1795,00187-0054-01 ",.02)
 ;;00187-0054-01
 ;;9002226.02101,"1795,00187-0054-20 ",.01)
 ;;00187-0054-20
 ;;9002226.02101,"1795,00187-0054-20 ",.02)
 ;;00187-0054-20
 ;;9002226.02101,"1795,00187-0108-01 ",.01)
 ;;00187-0108-01
 ;;9002226.02101,"1795,00187-0108-01 ",.02)
 ;;00187-0108-01
 ;;9002226.02101,"1795,00187-0108-20 ",.01)
 ;;00187-0108-20
 ;;9002226.02101,"1795,00187-0108-20 ",.02)
 ;;00187-0108-20
 ;;9002226.02101,"1795,00187-0500-02 ",.01)
 ;;00187-0500-02
 ;;9002226.02101,"1795,00187-0500-02 ",.02)
 ;;00187-0500-02
 ;;9002226.02101,"1795,00187-4100-10 ",.01)
 ;;00187-4100-10
 ;;9002226.02101,"1795,00187-4100-10 ",.02)
 ;;00187-4100-10
 ;;9002226.02101,"1795,00225-0295-15 ",.01)
 ;;00225-0295-15
 ;;9002226.02101,"1795,00225-0295-15 ",.02)
 ;;00225-0295-15
 ;;9002226.02101,"1795,00225-0295-20 ",.01)
 ;;00225-0295-20
 ;;9002226.02101,"1795,00225-0295-20 ",.02)
 ;;00225-0295-20