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

BGP33Q6.m

Go to the documentation of this file.
BGP33Q6 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 23, 2013;
 ;;13.0;IHS CLINICAL REPORTING;**1**;NOV 20, 2012;Build 7
 ;
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,"67253-0421-10 ")
 ;;1953
 ;;21,"67253-0421-11 ")
 ;;1954
 ;;21,"67253-0422-10 ")
 ;;1955
 ;;21,"67253-0422-11 ")
 ;;1956
 ;;21,"67286-4177-01 ")
 ;;1957
 ;;21,"67286-4179-01 ")
 ;;1958
 ;;21,"67544-0043-30 ")
 ;;1959
 ;;21,"67544-0076-30 ")
 ;;1960
 ;;21,"67544-0087-30 ")
 ;;1961
 ;;21,"67544-0122-30 ")
 ;;1962
 ;;21,"67544-0130-30 ")
 ;;1963
 ;;21,"67544-0143-30 ")
 ;;1964
 ;;21,"67544-0161-30 ")
 ;;1965
 ;;21,"67544-0208-30 ")
 ;;1966
 ;;21,"67544-0240-30 ")
 ;;1967
 ;;21,"67544-0272-30 ")
 ;;1968
 ;;21,"67544-0305-30 ")
 ;;1969
 ;;21,"67544-0326-30 ")
 ;;1970
 ;;21,"67544-0332-60 ")
 ;;1971
 ;;21,"67544-0376-30 ")
 ;;1972
 ;;21,"67544-0491-45 ")
 ;;1973
 ;;21,"67544-0567-30 ")
 ;;1974
 ;;21,"67544-0567-60 ")
 ;;1975
 ;;21,"67544-0573-82 ")
 ;;1976
 ;;21,"67544-0627-80 ")
 ;;1977
 ;;21,"67544-0911-60 ")
 ;;1978
 ;;21,"67801-0304-30 ")
 ;;1979
 ;;21,"67801-0315-30 ")
 ;;1980
 ;;21,"67801-0316-03 ")
 ;;1981
 ;;21,"67857-0700-01 ")
 ;;1982
 ;;21,"67857-0701-01 ")
 ;;1983
 ;;21,"68084-0209-01 ")
 ;;1984
 ;;21,"68084-0209-11 ")
 ;;1985
 ;;21,"68084-0210-01 ")
 ;;1986
 ;;21,"68084-0210-11 ")
 ;;1987
 ;;21,"68084-0211-01 ")
 ;;1988
 ;;21,"68084-0211-11 ")
 ;;1989
 ;;21,"68084-0212-01 ")
 ;;1990
 ;;21,"68084-0212-11 ")
 ;;1991
 ;;21,"68084-0261-01 ")
 ;;1992
 ;;21,"68084-0261-11 ")
 ;;1993
 ;;21,"68084-0262-01 ")
 ;;1994
 ;;21,"68084-0262-11 ")
 ;;1995
 ;;21,"68084-0263-01 ")
 ;;1996
 ;;21,"68084-0263-11 ")
 ;;1997
 ;;21,"68084-0264-01 ")
 ;;1998
 ;;21,"68084-0264-11 ")
 ;;1999
 ;;21,"68084-0301-01 ")
 ;;2000
 ;;21,"68084-0301-11 ")
 ;;2001
 ;;21,"68084-0302-11 ")
 ;;2002
 ;;21,"68084-0302-21 ")
 ;;2003
 ;;21,"68084-0303-01 ")
 ;;2004
 ;;21,"68084-0303-11 ")
 ;;2005
 ;;21,"68084-0304-01 ")
 ;;2006
 ;;21,"68084-0304-11 ")
 ;;2007
 ;;21,"68084-0387-01 ")
 ;;2008
 ;;21,"68084-0456-01 ")
 ;;2009
 ;;21,"68084-0456-11 ")
 ;;2010
 ;;21,"68084-0457-01 ")
 ;;2011
 ;;21,"68084-0457-11 ")
 ;;2012
 ;;21,"68084-0487-11 ")
 ;;2013
 ;;21,"68084-0487-21 ")
 ;;2014
 ;;21,"68084-0497-01 ")
 ;;2015
 ;;21,"68084-0497-11 ")
 ;;2016
 ;;21,"68084-0503-01 ")
 ;;2017
 ;;21,"68084-0503-11 ")
 ;;2018
 ;;21,"68084-0504-01 ")
 ;;2019
 ;;21,"68084-0504-11 ")
 ;;2020
 ;;21,"68115-0038-30 ")
 ;;2021
 ;;21,"68115-0039-30 ")
 ;;2022
 ;;21,"68115-0039-60 ")
 ;;2023
 ;;21,"68115-0039-90 ")
 ;;2024
 ;;21,"68115-0040-15 ")
 ;;2025
 ;;21,"68115-0040-30 ")
 ;;2026
 ;;21,"68115-0040-60 ")
 ;;2027
 ;;21,"68115-0040-90 ")
 ;;2028
 ;;21,"68115-0238-00 ")
 ;;2029
 ;;21,"68115-0238-30 ")
 ;;2030
 ;;21,"68115-0238-60 ")
 ;;2031
 ;;21,"68115-0238-90 ")
 ;;2032
 ;;21,"68115-0239-30 ")
 ;;2033
 ;;21,"68115-0239-60 ")
 ;;2034
 ;;21,"68115-0239-90 ")
 ;;2035
 ;;21,"68115-0239-97 ")
 ;;2036
 ;;21,"68115-0307-60 ")
 ;;2037
 ;;21,"68115-0308-60 ")
 ;;2038
 ;;21,"68115-0308-99 ")
 ;;2039
 ;;21,"68115-0309-30 ")
 ;;2040
 ;;21,"68115-0309-60 ")
 ;;2041
 ;;21,"68115-0309-90 ")
 ;;2042
 ;;21,"68115-0310-30 ")
 ;;2043
 ;;21,"68115-0310-60 ")
 ;;2044
 ;;21,"68115-0419-30 ")
 ;;2045
 ;;21,"68115-0551-00 ")
 ;;2046
 ;;21,"68115-0629-00 ")
 ;;2047
 ;;21,"68115-0629-30 ")
 ;;2048
 ;;21,"68115-0661-00 ")
 ;;2049
 ;;21,"68115-0715-00 ")
 ;;2050
 ;;21,"68115-0727-00 ")
 ;;2051
 ;;21,"68115-0727-30 ")
 ;;2052
 ;;21,"68115-0741-00 ")
 ;;2053
 ;;21,"68382-0022-01 ")
 ;;2054
 ;;21,"68382-0022-10 ")
 ;;2055
 ;;21,"68382-0023-01 ")
 ;;2056
 ;;21,"68382-0023-10 ")
 ;;2057
 ;;21,"68382-0024-01 ")
 ;;2058
 ;;21,"68382-0024-10 ")
 ;;2059
 ;;21,"68382-0092-01 ")
 ;;2060
 ;;21,"68382-0092-05 ")
 ;;2061
 ;;21,"68382-0093-01 ")
 ;;2062
 ;;21,"68382-0093-05 ")
 ;;2063
 ;;21,"68382-0094-01 ")
 ;;2064
 ;;21,"68382-0094-05 ")
 ;;2065
 ;;21,"68382-0095-01 ")
 ;;2066
 ;;21,"68382-0095-05 ")
 ;;2067
 ;;21,"68387-0538-30 ")
 ;;2068
 ;;21,"68387-0539-30 ")
 ;;2069
 ;;21,"68462-0162-01 ")
 ;;2070
 ;;21,"68462-0162-05 ")
 ;;2071
 ;;21,"68462-0163-01 ")
 ;;2072
 ;;21,"68462-0163-05 ")
 ;;2073
 ;;21,"68462-0164-01 ")
 ;;2074
 ;;21,"68462-0164-05 ")
 ;;2075
 ;;21,"68462-0165-01 ")
 ;;2076
 ;;21,"68462-0165-05 ")
 ;;2077
 ;;21,"68645-0190-59 ")
 ;;2078
 ;;21,"68645-0191-59 ")
 ;;2079
 ;;9002226,805,.01)
 ;;BGP HEDIS BETA BLOCKER NDC
 ;;9002226,805,.02)
 ;;@
 ;;9002226,805,.04)
 ;;n
 ;;9002226,805,.06)
 ;;@
 ;;9002226,805,.08)
 ;;@
 ;;9002226,805,.09)
 ;;3130123
 ;;9002226,805,.11)
 ;;@
 ;;9002226,805,.12)
 ;;@
 ;;9002226,805,.13)
 ;;1
 ;;9002226,805,.14)
 ;;@
 ;;9002226,805,.15)
 ;;@
 ;;9002226,805,.16)
 ;;@
 ;;9002226,805,.17)
 ;;@
 ;;9002226,805,3101)
 ;;@
 ;;9002226.02101,"805,00007-3370-13 ",.01)
 ;;00007-3370-13
 ;;9002226.02101,"805,00007-3370-13 ",.02)
 ;;00007-3370-13
 ;;9002226.02101,"805,00007-3370-59 ",.01)
 ;;00007-3370-59
 ;;9002226.02101,"805,00007-3370-59 ",.02)
 ;;00007-3370-59
 ;;9002226.02101,"805,00007-3371-13 ",.01)
 ;;00007-3371-13
 ;;9002226.02101,"805,00007-3371-13 ",.02)
 ;;00007-3371-13
 ;;9002226.02101,"805,00007-3371-59 ",.01)
 ;;00007-3371-59
 ;;9002226.02101,"805,00007-3371-59 ",.02)
 ;;00007-3371-59
 ;;9002226.02101,"805,00007-3372-13 ",.01)
 ;;00007-3372-13
 ;;9002226.02101,"805,00007-3372-13 ",.02)
 ;;00007-3372-13
 ;;9002226.02101,"805,00007-3372-59 ",.01)
 ;;00007-3372-59
 ;;9002226.02101,"805,00007-3372-59 ",.02)
 ;;00007-3372-59
 ;;9002226.02101,"805,00007-3373-13 ",.01)
 ;;00007-3373-13
 ;;9002226.02101,"805,00007-3373-13 ",.02)
 ;;00007-3373-13
 ;;9002226.02101,"805,00007-3373-59 ",.01)
 ;;00007-3373-59
 ;;9002226.02101,"805,00007-3373-59 ",.02)
 ;;00007-3373-59
 ;;9002226.02101,"805,00007-4139-20 ",.01)
 ;;00007-4139-20
 ;;9002226.02101,"805,00007-4139-20 ",.02)
 ;;00007-4139-20
 ;;9002226.02101,"805,00007-4140-20 ",.01)
 ;;00007-4140-20
 ;;9002226.02101,"805,00007-4140-20 ",.02)
 ;;00007-4140-20
 ;;9002226.02101,"805,00007-4141-20 ",.01)
 ;;00007-4141-20
 ;;9002226.02101,"805,00007-4141-20 ",.02)
 ;;00007-4141-20
 ;;9002226.02101,"805,00007-4142-20 ",.01)
 ;;00007-4142-20
 ;;9002226.02101,"805,00007-4142-20 ",.02)
 ;;00007-4142-20
 ;;9002226.02101,"805,00024-2300-20 ",.01)
 ;;00024-2300-20
 ;;9002226.02101,"805,00024-2300-20 ",.02)
 ;;00024-2300-20
 ;;9002226.02101,"805,00024-2301-10 ",.01)
 ;;00024-2301-10
 ;;9002226.02101,"805,00024-2301-10 ",.02)
 ;;00024-2301-10
 ;;9002226.02101,"805,00028-0051-01 ",.01)
 ;;00028-0051-01
 ;;9002226.02101,"805,00028-0051-01 ",.02)
 ;;00028-0051-01
 ;;9002226.02101,"805,00028-0051-10 ",.01)
 ;;00028-0051-10
 ;;9002226.02101,"805,00028-0051-10 ",.02)
 ;;00028-0051-10
 ;;9002226.02101,"805,00028-0071-01 ",.01)
 ;;00028-0071-01
 ;;9002226.02101,"805,00028-0071-01 ",.02)
 ;;00028-0071-01
 ;;9002226.02101,"805,00028-0071-10 ",.01)
 ;;00028-0071-10
 ;;9002226.02101,"805,00028-0071-10 ",.02)
 ;;00028-0071-10
 ;;9002226.02101,"805,00046-0421-81 ",.01)
 ;;00046-0421-81
 ;;9002226.02101,"805,00046-0421-81 ",.02)
 ;;00046-0421-81
 ;;9002226.02101,"805,00046-0422-81 ",.01)
 ;;00046-0422-81
 ;;9002226.02101,"805,00046-0422-81 ",.02)
 ;;00046-0422-81
 ;;9002226.02101,"805,00046-0424-81 ",.01)
 ;;00046-0424-81
 ;;9002226.02101,"805,00046-0424-81 ",.02)
 ;;00046-0424-81
 ;;9002226.02101,"805,00046-0426-81 ",.01)
 ;;00046-0426-81
 ;;9002226.02101,"805,00046-0426-81 ",.02)
 ;;00046-0426-81
 ;;9002226.02101,"805,00046-0428-81 ",.01)
 ;;00046-0428-81
 ;;9002226.02101,"805,00046-0428-81 ",.02)
 ;;00046-0428-81
 ;;9002226.02101,"805,00046-0471-81 ",.01)
 ;;00046-0471-81
 ;;9002226.02101,"805,00046-0471-81 ",.02)
 ;;00046-0471-81
 ;;9002226.02101,"805,00046-0473-81 ",.01)
 ;;00046-0473-81
 ;;9002226.02101,"805,00046-0473-81 ",.02)
 ;;00046-0473-81
 ;;9002226.02101,"805,00046-0479-81 ",.01)
 ;;00046-0479-81
 ;;9002226.02101,"805,00046-0479-81 ",.02)
 ;;00046-0479-81
 ;;9002226.02101,"805,00046-0484-81 ",.01)
 ;;00046-0484-81
 ;;9002226.02101,"805,00046-0484-81 ",.02)
 ;;00046-0484-81
 ;;9002226.02101,"805,00054-3727-63 ",.01)
 ;;00054-3727-63
 ;;9002226.02101,"805,00054-3727-63 ",.02)
 ;;00054-3727-63
 ;;9002226.02101,"805,00054-3730-63 ",.01)
 ;;00054-3730-63
 ;;9002226.02101,"805,00054-3730-63 ",.02)
 ;;00054-3730-63
 ;;9002226.02101,"805,00074-1664-13 ",.01)
 ;;00074-1664-13
 ;;9002226.02101,"805,00074-1664-13 ",.02)
 ;;00074-1664-13
 ;;9002226.02101,"805,00074-1665-13 ",.01)
 ;;00074-1665-13
 ;;9002226.02101,"805,00074-1665-13 ",.02)
 ;;00074-1665-13
 ;;9002226.02101,"805,00078-0458-05 ",.01)
 ;;00078-0458-05
 ;;9002226.02101,"805,00078-0458-05 ",.02)
 ;;00078-0458-05
 ;;9002226.02101,"805,00078-0458-09 ",.01)
 ;;00078-0458-09
 ;;9002226.02101,"805,00078-0458-09 ",.02)
 ;;00078-0458-09
 ;;9002226.02101,"805,00078-0459-05 ",.01)
 ;;00078-0459-05
 ;;9002226.02101,"805,00078-0459-05 ",.02)
 ;;00078-0459-05
 ;;9002226.02101,"805,00078-0459-09 ",.01)
 ;;00078-0459-09
 ;;9002226.02101,"805,00078-0459-09 ",.02)
 ;;00078-0459-09
 ;;9002226.02101,"805,00078-0460-05 ",.01)
 ;;00078-0460-05
 ;;9002226.02101,"805,00078-0460-05 ",.02)
 ;;00078-0460-05
 ;;9002226.02101,"805,00078-0461-05 ",.01)
 ;;00078-0461-05
 ;;9002226.02101,"805,00078-0461-05 ",.02)
 ;;00078-0461-05
 ;;9002226.02101,"805,00078-0462-05 ",.01)
 ;;00078-0462-05
 ;;9002226.02101,"805,00078-0462-05 ",.02)
 ;;00078-0462-05
 ;;9002226.02101,"805,00085-0244-04 ",.01)
 ;;00085-0244-04
 ;;9002226.02101,"805,00085-0244-04 ",.02)
 ;;00085-0244-04
 ;;9002226.02101,"805,00085-0244-05 ",.01)
 ;;00085-0244-05
 ;;9002226.02101,"805,00085-0244-05 ",.02)
 ;;00085-0244-05
 ;;9002226.02101,"805,00085-0244-07 ",.01)
 ;;00085-0244-07
 ;;9002226.02101,"805,00085-0244-07 ",.02)
 ;;00085-0244-07
 ;;9002226.02101,"805,00085-0244-08 ",.01)
 ;;00085-0244-08
 ;;9002226.02101,"805,00085-0244-08 ",.02)
 ;;00085-0244-08
 ;;9002226.02101,"805,00085-0438-03 ",.01)
 ;;00085-0438-03
 ;;9002226.02101,"805,00085-0438-03 ",.02)
 ;;00085-0438-03
 ;;9002226.02101,"805,00085-0438-05 ",.01)
 ;;00085-0438-05
 ;;9002226.02101,"805,00085-0438-05 ",.02)
 ;;00085-0438-05
 ;;9002226.02101,"805,00085-0438-06 ",.01)
 ;;00085-0438-06
 ;;9002226.02101,"805,00085-0438-06 ",.02)
 ;;00085-0438-06
 ;;9002226.02101,"805,00085-0752-04 ",.01)
 ;;00085-0752-04
 ;;9002226.02101,"805,00085-0752-04 ",.02)
 ;;00085-0752-04
 ;;9002226.02101,"805,00085-0752-05 ",.01)
 ;;00085-0752-05
 ;;9002226.02101,"805,00085-0752-05 ",.02)
 ;;00085-0752-05
 ;;9002226.02101,"805,00085-0752-07 ",.01)
 ;;00085-0752-07
 ;;9002226.02101,"805,00085-0752-07 ",.02)
 ;;00085-0752-07
 ;;9002226.02101,"805,00085-0752-08 ",.01)
 ;;00085-0752-08
 ;;9002226.02101,"805,00085-0752-08 ",.02)
 ;;00085-0752-08
 ;;9002226.02101,"805,00091-4500-15 ",.01)
 ;;00091-4500-15
 ;;9002226.02101,"805,00091-4500-15 ",.02)
 ;;00091-4500-15
 ;;9002226.02101,"805,00093-0051-01 ",.01)
 ;;00093-0051-01
 ;;9002226.02101,"805,00093-0051-01 ",.02)
 ;;00093-0051-01
 ;;9002226.02101,"805,00093-0051-05 ",.01)
 ;;00093-0051-05
 ;;9002226.02101,"805,00093-0051-05 ",.02)
 ;;00093-0051-05
 ;;9002226.02101,"805,00093-0135-01 ",.01)
 ;;00093-0135-01
 ;;9002226.02101,"805,00093-0135-01 ",.02)
 ;;00093-0135-01
 ;;9002226.02101,"805,00093-0135-05 ",.01)
 ;;00093-0135-05
 ;;9002226.02101,"805,00093-0135-05 ",.02)
 ;;00093-0135-05
 ;;9002226.02101,"805,00093-0733-01 ",.01)
 ;;00093-0733-01
 ;;9002226.02101,"805,00093-0733-01 ",.02)
 ;;00093-0733-01
 ;;9002226.02101,"805,00093-0733-10 ",.01)
 ;;00093-0733-10
 ;;9002226.02101,"805,00093-0733-10 ",.02)
 ;;00093-0733-10
 ;;9002226.02101,"805,00093-0734-01 ",.01)
 ;;00093-0734-01
 ;;9002226.02101,"805,00093-0734-01 ",.02)
 ;;00093-0734-01
 ;;9002226.02101,"805,00093-0734-10 ",.01)
 ;;00093-0734-10
 ;;9002226.02101,"805,00093-0734-10 ",.02)
 ;;00093-0734-10
 ;;9002226.02101,"805,00093-0752-01 ",.01)
 ;;00093-0752-01
 ;;9002226.02101,"805,00093-0752-01 ",.02)
 ;;00093-0752-01
 ;;9002226.02101,"805,00093-0752-10 ",.01)
 ;;00093-0752-10
 ;;9002226.02101,"805,00093-0752-10 ",.02)
 ;;00093-0752-10
 ;;9002226.02101,"805,00093-0753-01 ",.01)
 ;;00093-0753-01
 ;;9002226.02101,"805,00093-0753-01 ",.02)
 ;;00093-0753-01
 ;;9002226.02101,"805,00093-0753-05 ",.01)
 ;;00093-0753-05
 ;;9002226.02101,"805,00093-0753-05 ",.02)
 ;;00093-0753-05
 ;;9002226.02101,"805,00093-0787-01 ",.01)
 ;;00093-0787-01
 ;;9002226.02101,"805,00093-0787-01 ",.02)
 ;;00093-0787-01
 ;;9002226.02101,"805,00093-0787-10 ",.01)
 ;;00093-0787-10
 ;;9002226.02101,"805,00093-0787-10 ",.02)
 ;;00093-0787-10
 ;;9002226.02101,"805,00093-1060-01 ",.01)
 ;;00093-1060-01
 ;;9002226.02101,"805,00093-1060-01 ",.02)
 ;;00093-1060-01
 ;;9002226.02101,"805,00093-1061-01 ",.01)
 ;;00093-1061-01
 ;;9002226.02101,"805,00093-1061-01 ",.02)
 ;;00093-1061-01
 ;;9002226.02101,"805,00093-1062-01 ",.01)
 ;;00093-1062-01
 ;;9002226.02101,"805,00093-1062-01 ",.02)
 ;;00093-1062-01
 ;;9002226.02101,"805,00093-1063-01 ",.01)
 ;;00093-1063-01
 ;;9002226.02101,"805,00093-1063-01 ",.02)
 ;;00093-1063-01
 ;;9002226.02101,"805,00093-4235-01 ",.01)
 ;;00093-4235-01
 ;;9002226.02101,"805,00093-4235-01 ",.02)
 ;;00093-4235-01
 ;;9002226.02101,"805,00093-4236-01 ",.01)
 ;;00093-4236-01
 ;;9002226.02101,"805,00093-4236-01 ",.02)
 ;;00093-4236-01
 ;;9002226.02101,"805,00093-4237-01 ",.01)
 ;;00093-4237-01
 ;;9002226.02101,"805,00093-4237-01 ",.02)
 ;;00093-4237-01