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

BGP06M6.m

Go to the documentation of this file.
BGP06M6 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
 ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
 ;
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,"63874-0388-10 ")
 ;;1953
 ;;21,"63874-0388-12 ")
 ;;1954
 ;;21,"63874-0388-15 ")
 ;;1955
 ;;21,"63874-0388-20 ")
 ;;1956
 ;;21,"63874-0388-30 ")
 ;;1957
 ;;21,"63874-0406-01 ")
 ;;1958
 ;;21,"63874-0406-10 ")
 ;;1959
 ;;21,"63874-0406-14 ")
 ;;1960
 ;;21,"63874-0406-15 ")
 ;;1961
 ;;21,"63874-0406-20 ")
 ;;1962
 ;;21,"63874-0406-28 ")
 ;;1963
 ;;21,"63874-0406-30 ")
 ;;1964
 ;;21,"63874-0406-60 ")
 ;;1965
 ;;21,"63874-0407-01 ")
 ;;1966
 ;;21,"63874-0407-10 ")
 ;;1967
 ;;21,"63874-0407-15 ")
 ;;1968
 ;;21,"63874-0407-20 ")
 ;;1969
 ;;21,"63874-0407-30 ")
 ;;1970
 ;;21,"63874-0407-60 ")
 ;;1971
 ;;21,"63874-0407-90 ")
 ;;1972
 ;;21,"63874-0454-01 ")
 ;;1973
 ;;21,"63874-0454-02 ")
 ;;1974
 ;;21,"63874-0454-04 ")
 ;;1975
 ;;21,"63874-0454-15 ")
 ;;1976
 ;;21,"63874-0454-20 ")
 ;;1977
 ;;21,"63874-0454-30 ")
 ;;1978
 ;;21,"63874-0454-60 ")
 ;;1979
 ;;21,"63874-0468-01 ")
 ;;1980
 ;;21,"63874-0468-10 ")
 ;;1981
 ;;21,"63874-0468-14 ")
 ;;1982
 ;;21,"63874-0468-15 ")
 ;;1983
 ;;21,"63874-0468-20 ")
 ;;1984
 ;;21,"63874-0468-30 ")
 ;;1985
 ;;21,"63874-0468-60 ")
 ;;1986
 ;;21,"63874-0468-90 ")
 ;;1987
 ;;21,"63874-0486-01 ")
 ;;1988
 ;;21,"63874-0486-02 ")
 ;;1989
 ;;21,"63874-0486-15 ")
 ;;1990
 ;;21,"63874-0486-30 ")
 ;;1991
 ;;21,"63874-0486-40 ")
 ;;1992
 ;;21,"63874-0486-60 ")
 ;;1993
 ;;21,"63874-0676-01 ")
 ;;1994
 ;;21,"63874-0676-12 ")
 ;;1995
 ;;21,"63874-0676-15 ")
 ;;1996
 ;;21,"63874-0676-20 ")
 ;;1997
 ;;21,"64376-0503-01 ")
 ;;1998
 ;;21,"64376-0503-10 ")
 ;;1999
 ;;21,"65162-0669-10 ")
 ;;2000
 ;;21,"65162-0670-10 ")
 ;;2001
 ;;21,"65162-0725-10 ")
 ;;2002
 ;;21,"65162-0727-10 ")
 ;;2003
 ;;21,"65162-0731-10 ")
 ;;2004
 ;;21,"65483-0391-10 ")
 ;;2005
 ;;21,"65483-0391-11 ")
 ;;2006
 ;;21,"65483-0391-50 ")
 ;;2007
 ;;21,"65483-0392-10 ")
 ;;2008
 ;;21,"65483-0392-22 ")
 ;;2009
 ;;21,"65483-0392-50 ")
 ;;2010
 ;;21,"65483-0393-10 ")
 ;;2011
 ;;21,"65483-0393-33 ")
 ;;2012
 ;;21,"65483-0393-50 ")
 ;;2013
 ;;21,"65726-0250-10 ")
 ;;2014
 ;;21,"65726-0250-25 ")
 ;;2015
 ;;21,"65726-0251-10 ")
 ;;2016
 ;;21,"65726-0251-25 ")
 ;;2017
 ;;21,"65862-0062-01 ")
 ;;2018
 ;;21,"65862-0063-01 ")
 ;;2019
 ;;21,"65862-0063-99 ")
 ;;2020
 ;;21,"65862-0064-01 ")
 ;;2021
 ;;21,"65862-0064-99 ")
 ;;2022
 ;;21,"65862-0086-01 ")
 ;;2023
 ;;21,"65862-0086-30 ")
 ;;2024
 ;;21,"65862-0087-01 ")
 ;;2025
 ;;21,"65862-0087-30 ")
 ;;2026
 ;;21,"65862-0142-01 ")
 ;;2027
 ;;21,"65862-0143-01 ")
 ;;2028
 ;;21,"65862-0144-01 ")
 ;;2029
 ;;21,"65862-0145-01 ")
 ;;2030
 ;;21,"65862-0168-01 ")
 ;;2031
 ;;21,"65862-0168-99 ")
 ;;2032
 ;;21,"65862-0169-01 ")
 ;;2033
 ;;21,"65862-0169-99 ")
 ;;2034
 ;;21,"65862-0170-01 ")
 ;;2035
 ;;21,"65862-0170-99 ")
 ;;2036
 ;;21,"66105-0994-03 ")
 ;;2037
 ;;21,"66105-0994-06 ")
 ;;2038
 ;;21,"66105-0994-10 ")
 ;;2039
 ;;21,"66105-0994-11 ")
 ;;2040
 ;;21,"66105-0994-15 ")
 ;;2041
 ;;21,"66105-0996-03 ")
 ;;2042
 ;;21,"66105-0996-06 ")
 ;;2043
 ;;21,"66105-0996-10 ")
 ;;2044
 ;;21,"66105-0996-11 ")
 ;;2045
 ;;21,"66105-0996-15 ")
 ;;2046
 ;;21,"66116-0239-30 ")
 ;;2047
 ;;21,"66116-0455-30 ")
 ;;2048
 ;;21,"66267-0031-30 ")
 ;;2049
 ;;21,"66336-0125-60 ")
 ;;2050
 ;;21,"66336-0126-60 ")
 ;;2051
 ;;21,"66336-0514-30 ")
 ;;2052
 ;;21,"66336-0514-60 ")
 ;;2053
 ;;21,"66336-0523-30 ")
 ;;2054
 ;;21,"66336-0523-60 ")
 ;;2055
 ;;21,"66336-0587-30 ")
 ;;2056
 ;;21,"66336-0587-60 ")
 ;;2057
 ;;21,"66336-0587-90 ")
 ;;2058
 ;;21,"66336-0719-30 ")
 ;;2059
 ;;21,"66336-0719-60 ")
 ;;2060
 ;;21,"67046-0030-30 ")
 ;;2061
 ;;21,"67046-0475-30 ")
 ;;2062
 ;;21,"67046-0476-30 ")
 ;;2063
 ;;21,"67046-0590-30 ")
 ;;2064
 ;;21,"67046-0590-60 ")
 ;;2065
 ;;21,"67253-0420-10 ")
 ;;2066
 ;;21,"67253-0420-11 ")
 ;;2067
 ;;21,"67253-0421-10 ")
 ;;2068
 ;;21,"67253-0421-11 ")
 ;;2069
 ;;21,"67253-0422-10 ")
 ;;2070
 ;;21,"67253-0422-11 ")
 ;;2071
 ;;21,"67286-4177-01 ")
 ;;2072
 ;;21,"67286-4179-01 ")
 ;;2073
 ;;21,"67801-0304-30 ")
 ;;2074
 ;;21,"67801-0315-30 ")
 ;;2075
 ;;21,"67801-0316-03 ")
 ;;2076
 ;;21,"67857-0700-01 ")
 ;;2077
 ;;21,"67857-0701-01 ")
 ;;2078
 ;;21,"68084-0209-01 ")
 ;;2079
 ;;21,"68084-0209-11 ")
 ;;2080
 ;;21,"68084-0210-01 ")
 ;;2081
 ;;21,"68084-0210-11 ")
 ;;2082
 ;;21,"68084-0211-01 ")
 ;;2083
 ;;21,"68084-0211-11 ")
 ;;2084
 ;;21,"68084-0212-01 ")
 ;;2085
 ;;21,"68084-0212-11 ")
 ;;2086
 ;;21,"68084-0261-01 ")
 ;;2087
 ;;21,"68084-0261-11 ")
 ;;2088
 ;;21,"68084-0262-01 ")
 ;;2089
 ;;21,"68084-0262-11 ")
 ;;2090
 ;;21,"68084-0263-01 ")
 ;;2091
 ;;21,"68084-0263-11 ")
 ;;2092
 ;;21,"68084-0264-01 ")
 ;;2093
 ;;21,"68084-0264-11 ")
 ;;2094
 ;;21,"68115-0038-30 ")
 ;;2095
 ;;21,"68115-0039-30 ")
 ;;2096
 ;;21,"68115-0039-60 ")
 ;;2097
 ;;21,"68115-0039-90 ")
 ;;2098
 ;;21,"68115-0040-15 ")
 ;;2099
 ;;21,"68115-0040-30 ")
 ;;2100
 ;;21,"68115-0040-60 ")
 ;;2101
 ;;21,"68115-0040-90 ")
 ;;2102
 ;;21,"68115-0238-00 ")
 ;;2103
 ;;21,"68115-0238-30 ")
 ;;2104
 ;;21,"68115-0238-60 ")
 ;;2105
 ;;21,"68115-0238-90 ")
 ;;2106
 ;;21,"68115-0239-30 ")
 ;;2107
 ;;21,"68115-0239-60 ")
 ;;2108
 ;;21,"68115-0239-90 ")
 ;;2109
 ;;21,"68115-0239-97 ")
 ;;2110
 ;;21,"68115-0307-60 ")
 ;;2111
 ;;21,"68115-0308-60 ")
 ;;2112
 ;;21,"68115-0308-99 ")
 ;;2113
 ;;21,"68115-0309-30 ")
 ;;2114
 ;;21,"68115-0309-60 ")
 ;;2115
 ;;21,"68115-0309-90 ")
 ;;2116
 ;;21,"68115-0310-30 ")
 ;;2117
 ;;21,"68115-0310-60 ")
 ;;2118
 ;;21,"68115-0419-30 ")
 ;;2119
 ;;21,"68115-0551-00 ")
 ;;2120
 ;;21,"68115-0629-00 ")
 ;;2121
 ;;21,"68115-0629-30 ")
 ;;2122
 ;;21,"68115-0661-00 ")
 ;;2123
 ;;21,"68115-0715-00 ")
 ;;2124
 ;;21,"68115-0727-00 ")
 ;;2125
 ;;21,"68115-0741-00 ")
 ;;2126
 ;;21,"68382-0022-01 ")
 ;;2127
 ;;21,"68382-0022-10 ")
 ;;2128
 ;;21,"68382-0023-01 ")
 ;;2129
 ;;21,"68382-0023-10 ")
 ;;2130
 ;;21,"68382-0024-01 ")
 ;;2131
 ;;21,"68382-0024-10 ")
 ;;2132
 ;;21,"68382-0092-01 ")
 ;;2133
 ;;21,"68382-0092-05 ")
 ;;2134
 ;;21,"68382-0092-17 ")
 ;;2135
 ;;21,"68382-0093-01 ")
 ;;2136
 ;;21,"68382-0093-05 ")
 ;;2137
 ;;21,"68382-0093-17 ")
 ;;2138
 ;;21,"68382-0094-01 ")
 ;;2139
 ;;21,"68382-0094-05 ")
 ;;2140
 ;;21,"68382-0094-17 ")
 ;;2141
 ;;21,"68382-0095-01 ")
 ;;2142
 ;;21,"68382-0095-05 ")
 ;;2143
 ;;21,"68382-0095-17 ")
 ;;2144
 ;;21,"68387-0538-30 ")
 ;;2145
 ;;21,"68387-0539-30 ")
 ;;2146
 ;;21,"68462-0162-01 ")
 ;;2147
 ;;21,"68462-0162-05 ")
 ;;2148
 ;;21,"68462-0163-01 ")
 ;;2149
 ;;21,"68462-0163-05 ")
 ;;2150
 ;;21,"68462-0164-01 ")
 ;;2151
 ;;21,"68462-0164-05 ")
 ;;2152
 ;;21,"68462-0165-01 ")
 ;;2153
 ;;21,"68462-0165-05 ")
 ;;2154
 ;;9002226,977,.01)
 ;;BGP HEDIS BETA BLOCKER NDC
 ;;9002226,977,.02)
 ;;@
 ;;9002226,977,.04)
 ;;n
 ;;9002226,977,.06)
 ;;@
 ;;9002226,977,.08)
 ;;@
 ;;9002226,977,.09)
 ;;@
 ;;9002226,977,.11)
 ;;@
 ;;9002226,977,.12)
 ;;@
 ;;9002226,977,.13)
 ;;1
 ;;9002226,977,.14)
 ;;@
 ;;9002226,977,.15)
 ;;@
 ;;9002226,977,.16)
 ;;@
 ;;9002226,977,.17)
 ;;@
 ;;9002226,977,3101)
 ;;@
 ;;9002226.02101,"977,00003-0207-76 ",.01)
 ;;00003-0207-76
 ;;9002226.02101,"977,00003-0207-76 ",.02)
 ;;00003-0207-76
 ;;9002226.02101,"977,00003-0241-76 ",.01)
 ;;00003-0241-76
 ;;9002226.02101,"977,00003-0241-76 ",.02)
 ;;00003-0241-76
 ;;9002226.02101,"977,00005-3234-23 ",.01)
 ;;00005-3234-23
 ;;9002226.02101,"977,00005-3234-23 ",.02)
 ;;00005-3234-23
 ;;9002226.02101,"977,00005-3235-38 ",.01)
 ;;00005-3235-38
 ;;9002226.02101,"977,00005-3235-38 ",.02)
 ;;00005-3235-38
 ;;9002226.02101,"977,00005-3238-23 ",.01)
 ;;00005-3238-23
 ;;9002226.02101,"977,00005-3238-23 ",.02)
 ;;00005-3238-23
 ;;9002226.02101,"977,00006-0437-68 ",.01)
 ;;00006-0437-68
 ;;9002226.02101,"977,00006-0437-68 ",.02)
 ;;00006-0437-68
 ;;9002226.02101,"977,00007-3370-13 ",.01)
 ;;00007-3370-13
 ;;9002226.02101,"977,00007-3370-13 ",.02)
 ;;00007-3370-13
 ;;9002226.02101,"977,00007-3370-59 ",.01)
 ;;00007-3370-59
 ;;9002226.02101,"977,00007-3370-59 ",.02)
 ;;00007-3370-59
 ;;9002226.02101,"977,00007-3371-13 ",.01)
 ;;00007-3371-13
 ;;9002226.02101,"977,00007-3371-13 ",.02)
 ;;00007-3371-13
 ;;9002226.02101,"977,00007-3371-59 ",.01)
 ;;00007-3371-59
 ;;9002226.02101,"977,00007-3371-59 ",.02)
 ;;00007-3371-59
 ;;9002226.02101,"977,00007-3372-13 ",.01)
 ;;00007-3372-13
 ;;9002226.02101,"977,00007-3372-13 ",.02)
 ;;00007-3372-13
 ;;9002226.02101,"977,00007-3372-59 ",.01)
 ;;00007-3372-59
 ;;9002226.02101,"977,00007-3372-59 ",.02)
 ;;00007-3372-59
 ;;9002226.02101,"977,00007-3373-13 ",.01)
 ;;00007-3373-13
 ;;9002226.02101,"977,00007-3373-13 ",.02)
 ;;00007-3373-13
 ;;9002226.02101,"977,00007-3373-59 ",.01)
 ;;00007-3373-59
 ;;9002226.02101,"977,00007-3373-59 ",.02)
 ;;00007-3373-59
 ;;9002226.02101,"977,00007-4139-20 ",.01)
 ;;00007-4139-20
 ;;9002226.02101,"977,00007-4139-20 ",.02)
 ;;00007-4139-20
 ;;9002226.02101,"977,00007-4140-20 ",.01)
 ;;00007-4140-20
 ;;9002226.02101,"977,00007-4140-20 ",.02)
 ;;00007-4140-20
 ;;9002226.02101,"977,00007-4141-20 ",.01)
 ;;00007-4141-20
 ;;9002226.02101,"977,00007-4141-20 ",.02)
 ;;00007-4141-20
 ;;9002226.02101,"977,00007-4142-20 ",.01)
 ;;00007-4142-20
 ;;9002226.02101,"977,00007-4142-20 ",.02)
 ;;00007-4142-20
 ;;9002226.02101,"977,00024-2300-20 ",.01)
 ;;00024-2300-20
 ;;9002226.02101,"977,00024-2300-20 ",.02)
 ;;00024-2300-20
 ;;9002226.02101,"977,00024-2301-10 ",.01)
 ;;00024-2301-10
 ;;9002226.02101,"977,00024-2301-10 ",.02)
 ;;00024-2301-10
 ;;9002226.02101,"977,00025-5101-31 ",.01)
 ;;00025-5101-31
 ;;9002226.02101,"977,00025-5101-31 ",.02)
 ;;00025-5101-31
 ;;9002226.02101,"977,00025-5201-31 ",.01)
 ;;00025-5201-31
 ;;9002226.02101,"977,00025-5201-31 ",.02)
 ;;00025-5201-31
 ;;9002226.02101,"977,00028-0035-01 ",.01)
 ;;00028-0035-01
 ;;9002226.02101,"977,00028-0035-01 ",.02)
 ;;00028-0035-01
 ;;9002226.02101,"977,00028-0051-01 ",.01)
 ;;00028-0051-01
 ;;9002226.02101,"977,00028-0051-01 ",.02)
 ;;00028-0051-01
 ;;9002226.02101,"977,00028-0051-10 ",.01)
 ;;00028-0051-10
 ;;9002226.02101,"977,00028-0051-10 ",.02)
 ;;00028-0051-10
 ;;9002226.02101,"977,00028-0053-01 ",.01)
 ;;00028-0053-01
 ;;9002226.02101,"977,00028-0053-01 ",.02)
 ;;00028-0053-01
 ;;9002226.02101,"977,00028-0071-01 ",.01)
 ;;00028-0071-01
 ;;9002226.02101,"977,00028-0071-01 ",.02)
 ;;00028-0071-01
 ;;9002226.02101,"977,00028-0071-10 ",.01)
 ;;00028-0071-10
 ;;9002226.02101,"977,00028-0071-10 ",.02)
 ;;00028-0071-10
 ;;9002226.02101,"977,00028-0073-01 ",.01)
 ;;00028-0073-01
 ;;9002226.02101,"977,00028-0073-01 ",.02)
 ;;00028-0073-01
 ;;9002226.02101,"977,00046-0421-81 ",.01)
 ;;00046-0421-81
 ;;9002226.02101,"977,00046-0421-81 ",.02)
 ;;00046-0421-81
 ;;9002226.02101,"977,00046-0421-95 ",.01)
 ;;00046-0421-95
 ;;9002226.02101,"977,00046-0421-95 ",.02)
 ;;00046-0421-95
 ;;9002226.02101,"977,00046-0422-81 ",.01)
 ;;00046-0422-81
 ;;9002226.02101,"977,00046-0422-81 ",.02)
 ;;00046-0422-81
 ;;9002226.02101,"977,00046-0422-95 ",.01)
 ;;00046-0422-95
 ;;9002226.02101,"977,00046-0422-95 ",.02)
 ;;00046-0422-95
 ;;9002226.02101,"977,00046-0424-81 ",.01)
 ;;00046-0424-81
 ;;9002226.02101,"977,00046-0424-81 ",.02)
 ;;00046-0424-81
 ;;9002226.02101,"977,00046-0424-95 ",.01)
 ;;00046-0424-95
 ;;9002226.02101,"977,00046-0424-95 ",.02)
 ;;00046-0424-95
 ;;9002226.02101,"977,00046-0426-81 ",.01)
 ;;00046-0426-81
 ;;9002226.02101,"977,00046-0426-81 ",.02)
 ;;00046-0426-81
 ;;9002226.02101,"977,00046-0428-81 ",.01)
 ;;00046-0428-81
 ;;9002226.02101,"977,00046-0428-81 ",.02)
 ;;00046-0428-81
 ;;9002226.02101,"977,00046-0428-95 ",.01)
 ;;00046-0428-95
 ;;9002226.02101,"977,00046-0428-95 ",.02)
 ;;00046-0428-95
 ;;9002226.02101,"977,00046-0470-81 ",.01)
 ;;00046-0470-81
 ;;9002226.02101,"977,00046-0470-81 ",.02)
 ;;00046-0470-81
 ;;9002226.02101,"977,00046-0471-81 ",.01)
 ;;00046-0471-81
 ;;9002226.02101,"977,00046-0471-81 ",.02)
 ;;00046-0471-81
 ;;9002226.02101,"977,00046-0473-81 ",.01)
 ;;00046-0473-81
 ;;9002226.02101,"977,00046-0473-81 ",.02)
 ;;00046-0473-81
 ;;9002226.02101,"977,00046-0479-81 ",.01)
 ;;00046-0479-81
 ;;9002226.02101,"977,00046-0479-81 ",.02)
 ;;00046-0479-81
 ;;9002226.02101,"977,00046-0484-81 ",.01)
 ;;00046-0484-81
 ;;9002226.02101,"977,00046-0484-81 ",.02)
 ;;00046-0484-81
 ;;9002226.02101,"977,00046-0488-81 ",.01)
 ;;00046-0488-81
 ;;9002226.02101,"977,00046-0488-81 ",.02)
 ;;00046-0488-81
 ;;9002226.02101,"977,00054-3727-63 ",.01)
 ;;00054-3727-63
 ;;9002226.02101,"977,00054-3727-63 ",.02)
 ;;00054-3727-63
 ;;9002226.02101,"977,00054-3730-63 ",.01)
 ;;00054-3730-63
 ;;9002226.02101,"977,00054-3730-63 ",.02)
 ;;00054-3730-63
 ;;9002226.02101,"977,00054-8764-16 ",.01)
 ;;00054-8764-16
 ;;9002226.02101,"977,00054-8764-16 ",.02)
 ;;00054-8764-16
 ;;9002226.02101,"977,00074-1664-13 ",.01)
 ;;00074-1664-13
 ;;9002226.02101,"977,00074-1664-13 ",.02)
 ;;00074-1664-13
 ;;9002226.02101,"977,00074-1665-13 ",.01)
 ;;00074-1665-13
 ;;9002226.02101,"977,00074-1665-13 ",.02)
 ;;00074-1665-13
 ;;9002226.02101,"977,00078-0458-05 ",.01)
 ;;00078-0458-05