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

BGP8ZP7.m

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