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

BGP06D9.m

Go to the documentation of this file.
  1. BGP06D9 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
  1. ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
  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. ;;9002226.02101,"978,00372-0047-28 ",.01)
  1. ;;00372-0047-28
  1. ;;9002226.02101,"978,00372-0047-28 ",.02)
  1. ;;00372-0047-28
  1. ;;9002226.02101,"978,00406-2040-01 ",.01)
  1. ;;00406-2040-01
  1. ;;9002226.02101,"978,00406-2040-01 ",.02)
  1. ;;00406-2040-01
  1. ;;9002226.02101,"978,00406-2041-01 ",.01)
  1. ;;00406-2041-01
  1. ;;9002226.02101,"978,00406-2041-01 ",.02)
  1. ;;00406-2041-01
  1. ;;9002226.02101,"978,00406-2041-10 ",.01)
  1. ;;00406-2041-10
  1. ;;9002226.02101,"978,00406-2041-10 ",.02)
  1. ;;00406-2041-10
  1. ;;9002226.02101,"978,00406-2042-01 ",.01)
  1. ;;00406-2042-01
  1. ;;9002226.02101,"978,00406-2042-01 ",.02)
  1. ;;00406-2042-01
  1. ;;9002226.02101,"978,00436-0525-04 ",.01)
  1. ;;00436-0525-04
  1. ;;9002226.02101,"978,00436-0525-04 ",.02)
  1. ;;00436-0525-04
  1. ;;9002226.02101,"978,00436-0525-16 ",.01)
  1. ;;00436-0525-16
  1. ;;9002226.02101,"978,00436-0525-16 ",.02)
  1. ;;00436-0525-16
  1. ;;9002226.02101,"978,00436-0525-28 ",.01)
  1. ;;00436-0525-28
  1. ;;9002226.02101,"978,00436-0525-28 ",.02)
  1. ;;00436-0525-28
  1. ;;9002226.02101,"978,00436-0580-04 ",.01)
  1. ;;00436-0580-04
  1. ;;9002226.02101,"978,00436-0580-04 ",.02)
  1. ;;00436-0580-04
  1. ;;9002226.02101,"978,00436-0580-16 ",.01)
  1. ;;00436-0580-16
  1. ;;9002226.02101,"978,00436-0580-16 ",.02)
  1. ;;00436-0580-16
  1. ;;9002226.02101,"978,00436-0580-28 ",.01)
  1. ;;00436-0580-28
  1. ;;9002226.02101,"978,00436-0580-28 ",.02)
  1. ;;00436-0580-28
  1. ;;9002226.02101,"978,00463-2022-10 ",.01)
  1. ;;00463-2022-10
  1. ;;9002226.02101,"978,00463-2022-10 ",.02)
  1. ;;00463-2022-10
  1. ;;9002226.02101,"978,00463-2023-10 ",.01)
  1. ;;00463-2023-10
  1. ;;9002226.02101,"978,00463-2023-10 ",.02)
  1. ;;00463-2023-10
  1. ;;9002226.02101,"978,00463-6156-10 ",.01)
  1. ;;00463-6156-10
  1. ;;9002226.02101,"978,00463-6156-10 ",.02)
  1. ;;00463-6156-10
  1. ;;9002226.02101,"978,00463-9030-28 ",.01)
  1. ;;00463-9030-28
  1. ;;9002226.02101,"978,00463-9030-28 ",.02)
  1. ;;00463-9030-28
  1. ;;9002226.02101,"978,00472-0755-16 ",.01)
  1. ;;00472-0755-16
  1. ;;9002226.02101,"978,00472-0755-16 ",.02)
  1. ;;00472-0755-16
  1. ;;9002226.02101,"978,00472-0771-16 ",.01)
  1. ;;00472-0771-16
  1. ;;9002226.02101,"978,00472-0771-16 ",.02)
  1. ;;00472-0771-16
  1. ;;9002226.02101,"978,00472-0771-28 ",.01)
  1. ;;00472-0771-28
  1. ;;9002226.02101,"978,00472-0771-28 ",.02)
  1. ;;00472-0771-28
  1. ;;9002226.02101,"978,00472-1400-16 ",.01)
  1. ;;00472-1400-16
  1. ;;9002226.02101,"978,00472-1400-16 ",.02)
  1. ;;00472-1400-16
  1. ;;9002226.02101,"978,00472-1504-04 ",.01)
  1. ;;00472-1504-04
  1. ;;9002226.02101,"978,00472-1504-04 ",.02)
  1. ;;00472-1504-04
  1. ;;9002226.02101,"978,00472-1504-08 ",.01)
  1. ;;00472-1504-08
  1. ;;9002226.02101,"978,00472-1504-08 ",.02)
  1. ;;00472-1504-08
  1. ;;9002226.02101,"978,00472-1504-16 ",.01)
  1. ;;00472-1504-16
  1. ;;9002226.02101,"978,00472-1504-16 ",.02)
  1. ;;00472-1504-16
  1. ;;9002226.02101,"978,00472-1627-04 ",.01)
  1. ;;00472-1627-04
  1. ;;9002226.02101,"978,00472-1627-04 ",.02)
  1. ;;00472-1627-04
  1. ;;9002226.02101,"978,00472-1627-16 ",.01)
  1. ;;00472-1627-16
  1. ;;9002226.02101,"978,00472-1627-16 ",.02)
  1. ;;00472-1627-16
  1. ;;9002226.02101,"978,00472-1627-28 ",.01)
  1. ;;00472-1627-28
  1. ;;9002226.02101,"978,00472-1627-28 ",.02)
  1. ;;00472-1627-28
  1. ;;9002226.02101,"978,00472-1628-04 ",.01)
  1. ;;00472-1628-04
  1. ;;9002226.02101,"978,00472-1628-04 ",.02)
  1. ;;00472-1628-04
  1. ;;9002226.02101,"978,00472-1628-16 ",.01)
  1. ;;00472-1628-16
  1. ;;9002226.02101,"978,00472-1628-16 ",.02)
  1. ;;00472-1628-16
  1. ;;9002226.02101,"978,00472-1629-04 ",.01)
  1. ;;00472-1629-04
  1. ;;9002226.02101,"978,00472-1629-04 ",.02)
  1. ;;00472-1629-04
  1. ;;9002226.02101,"978,00472-1629-08 ",.01)
  1. ;;00472-1629-08
  1. ;;9002226.02101,"978,00472-1629-08 ",.02)
  1. ;;00472-1629-08
  1. ;;9002226.02101,"978,00472-1629-16 ",.01)
  1. ;;00472-1629-16
  1. ;;9002226.02101,"978,00472-1629-16 ",.02)
  1. ;;00472-1629-16
  1. ;;9002226.02101,"978,00472-1630-04 ",.01)
  1. ;;00472-1630-04
  1. ;;9002226.02101,"978,00472-1630-04 ",.02)
  1. ;;00472-1630-04
  1. ;;9002226.02101,"978,00472-1630-16 ",.01)
  1. ;;00472-1630-16
  1. ;;9002226.02101,"978,00472-1630-16 ",.02)
  1. ;;00472-1630-16
  1. ;;9002226.02101,"978,00472-1630-28 ",.01)
  1. ;;00472-1630-28
  1. ;;9002226.02101,"978,00472-1630-28 ",.02)
  1. ;;00472-1630-28
  1. ;;9002226.02101,"978,00501-2000-24 ",.01)
  1. ;;00501-2000-24
  1. ;;9002226.02101,"978,00501-2000-24 ",.02)
  1. ;;00501-2000-24
  1. ;;9002226.02101,"978,00501-2000-48 ",.01)
  1. ;;00501-2000-48
  1. ;;9002226.02101,"978,00501-2000-48 ",.02)
  1. ;;00501-2000-48
  1. ;;9002226.02101,"978,00501-2001-24 ",.01)
  1. ;;00501-2001-24
  1. ;;9002226.02101,"978,00501-2001-24 ",.02)
  1. ;;00501-2001-24
  1. ;;9002226.02101,"978,00501-2005-24 ",.01)
  1. ;;00501-2005-24
  1. ;;9002226.02101,"978,00501-2005-24 ",.02)
  1. ;;00501-2005-24
  1. ;;9002226.02101,"978,00501-2006-24 ",.01)
  1. ;;00501-2006-24
  1. ;;9002226.02101,"978,00501-2006-24 ",.02)
  1. ;;00501-2006-24
  1. ;;9002226.02101,"978,00501-2007-24 ",.01)
  1. ;;00501-2007-24
  1. ;;9002226.02101,"978,00501-2007-24 ",.02)
  1. ;;00501-2007-24
  1. ;;9002226.02101,"978,00501-2007-48 ",.01)
  1. ;;00501-2007-48
  1. ;;9002226.02101,"978,00501-2007-48 ",.02)
  1. ;;00501-2007-48
  1. ;;9002226.02101,"978,00501-2008-24 ",.01)
  1. ;;00501-2008-24
  1. ;;9002226.02101,"978,00501-2008-24 ",.02)
  1. ;;00501-2008-24
  1. ;;9002226.02101,"978,00501-2009-24 ",.01)
  1. ;;00501-2009-24
  1. ;;9002226.02101,"978,00501-2009-24 ",.02)
  1. ;;00501-2009-24
  1. ;;9002226.02101,"978,00501-2009-48 ",.01)
  1. ;;00501-2009-48
  1. ;;9002226.02101,"978,00501-2009-48 ",.02)
  1. ;;00501-2009-48
  1. ;;9002226.02101,"978,00501-2009-99 ",.01)
  1. ;;00501-2009-99
  1. ;;9002226.02101,"978,00501-2009-99 ",.02)
  1. ;;00501-2009-99
  1. ;;9002226.02101,"978,00501-2010-24 ",.01)
  1. ;;00501-2010-24
  1. ;;9002226.02101,"978,00501-2010-24 ",.02)
  1. ;;00501-2010-24
  1. ;;9002226.02101,"978,00501-2020-20 ",.01)
  1. ;;00501-2020-20
  1. ;;9002226.02101,"978,00501-2020-20 ",.02)
  1. ;;00501-2020-20
  1. ;;9002226.02101,"978,00501-2021-20 ",.01)
  1. ;;00501-2021-20
  1. ;;9002226.02101,"978,00501-2021-20 ",.02)
  1. ;;00501-2021-20
  1. ;;9002226.02101,"978,00501-2022-20 ",.01)
  1. ;;00501-2022-20
  1. ;;9002226.02101,"978,00501-2022-20 ",.02)
  1. ;;00501-2022-20
  1. ;;9002226.02101,"978,00501-2030-20 ",.01)
  1. ;;00501-2030-20
  1. ;;9002226.02101,"978,00501-2030-20 ",.02)
  1. ;;00501-2030-20
  1. ;;9002226.02101,"978,00501-2041-04 ",.01)
  1. ;;00501-2041-04
  1. ;;9002226.02101,"978,00501-2041-04 ",.02)
  1. ;;00501-2041-04
  1. ;;9002226.02101,"978,00501-2043-10 ",.01)
  1. ;;00501-2043-10
  1. ;;9002226.02101,"978,00501-2043-10 ",.02)
  1. ;;00501-2043-10
  1. ;;9002226.02101,"978,00501-2043-20 ",.01)
  1. ;;00501-2043-20
  1. ;;9002226.02101,"978,00501-2043-20 ",.02)
  1. ;;00501-2043-20
  1. ;;9002226.02101,"978,00501-2050-04 ",.01)
  1. ;;00501-2050-04
  1. ;;9002226.02101,"978,00501-2050-04 ",.02)
  1. ;;00501-2050-04
  1. ;;9002226.02101,"978,00501-2050-08 ",.01)
  1. ;;00501-2050-08
  1. ;;9002226.02101,"978,00501-2050-08 ",.02)
  1. ;;00501-2050-08
  1. ;;9002226.02101,"978,00501-2051-04 ",.01)
  1. ;;00501-2051-04
  1. ;;9002226.02101,"978,00501-2051-04 ",.02)
  1. ;;00501-2051-04
  1. ;;9002226.02101,"978,00501-2052-08 ",.01)
  1. ;;00501-2052-08
  1. ;;9002226.02101,"978,00501-2052-08 ",.02)
  1. ;;00501-2052-08
  1. ;;9002226.02101,"978,00501-2053-04 ",.01)
  1. ;;00501-2053-04
  1. ;;9002226.02101,"978,00501-2053-04 ",.02)
  1. ;;00501-2053-04
  1. ;;9002226.02101,"978,00501-2061-04 ",.01)
  1. ;;00501-2061-04
  1. ;;9002226.02101,"978,00501-2061-04 ",.02)
  1. ;;00501-2061-04
  1. ;;9002226.02101,"978,00501-2752-20 ",.01)
  1. ;;00501-2752-20
  1. ;;9002226.02101,"978,00501-2752-20 ",.02)
  1. ;;00501-2752-20
  1. ;;9002226.02101,"978,00501-2907-20 ",.01)
  1. ;;00501-2907-20
  1. ;;9002226.02101,"978,00501-2907-20 ",.02)
  1. ;;00501-2907-20
  1. ;;9002226.02101,"978,00501-6000-08 ",.01)
  1. ;;00501-6000-08
  1. ;;9002226.02101,"978,00501-6000-08 ",.02)
  1. ;;00501-6000-08
  1. ;;9002226.02101,"978,00501-6000-16 ",.01)
  1. ;;00501-6000-16
  1. ;;9002226.02101,"978,00501-6000-16 ",.02)
  1. ;;00501-6000-16
  1. ;;9002226.02101,"978,00501-6000-32 ",.01)
  1. ;;00501-6000-32
  1. ;;9002226.02101,"978,00501-6000-32 ",.02)
  1. ;;00501-6000-32
  1. ;;9002226.02101,"978,00536-0632-47 ",.01)
  1. ;;00536-0632-47
  1. ;;9002226.02101,"978,00536-0632-47 ",.02)
  1. ;;00536-0632-47
  1. ;;9002226.02101,"978,00536-0632-97 ",.01)
  1. ;;00536-0632-97
  1. ;;9002226.02101,"978,00536-0632-97 ",.02)
  1. ;;00536-0632-97
  1. ;;9002226.02101,"978,00536-0770-58 ",.01)
  1. ;;00536-0770-58
  1. ;;9002226.02101,"978,00536-0770-58 ",.02)
  1. ;;00536-0770-58
  1. ;;9002226.02101,"978,00536-0770-85 ",.01)
  1. ;;00536-0770-85
  1. ;;9002226.02101,"978,00536-0770-85 ",.02)
  1. ;;00536-0770-85
  1. ;;9002226.02101,"978,00536-0770-97 ",.01)
  1. ;;00536-0770-97
  1. ;;9002226.02101,"978,00536-0770-97 ",.02)
  1. ;;00536-0770-97
  1. ;;9002226.02101,"978,00536-1002-85 ",.01)
  1. ;;00536-1002-85
  1. ;;9002226.02101,"978,00536-1002-85 ",.02)
  1. ;;00536-1002-85
  1. ;;9002226.02101,"978,00536-1745-90 ",.01)
  1. ;;00536-1745-90
  1. ;;9002226.02101,"978,00536-1745-90 ",.02)
  1. ;;00536-1745-90
  1. ;;9002226.02101,"978,00536-1930-85 ",.01)
  1. ;;00536-1930-85
  1. ;;9002226.02101,"978,00536-1930-85 ",.02)
  1. ;;00536-1930-85
  1. ;;9002226.02101,"978,00536-3283-35 ",.01)
  1. ;;00536-3283-35
  1. ;;9002226.02101,"978,00536-3283-35 ",.02)
  1. ;;00536-3283-35
  1. ;;9002226.02101,"978,00536-3594-01 ",.01)
  1. ;;00536-3594-01
  1. ;;9002226.02101,"978,00536-3594-01 ",.02)
  1. ;;00536-3594-01
  1. ;;9002226.02101,"978,00536-3594-10 ",.01)
  1. ;;00536-3594-10
  1. ;;9002226.02101,"978,00536-3594-10 ",.02)
  1. ;;00536-3594-10
  1. ;;9002226.02101,"978,00536-3594-35 ",.01)
  1. ;;00536-3594-35
  1. ;;9002226.02101,"978,00536-3594-35 ",.02)
  1. ;;00536-3594-35
  1. ;;9002226.02101,"978,00536-3597-01 ",.01)
  1. ;;00536-3597-01
  1. ;;9002226.02101,"978,00536-3597-01 ",.02)
  1. ;;00536-3597-01
  1. ;;9002226.02101,"978,00536-3772-06 ",.01)
  1. ;;00536-3772-06
  1. ;;9002226.02101,"978,00536-3772-06 ",.02)
  1. ;;00536-3772-06
  1. ;;9002226.02101,"978,00555-0059-02 ",.01)
  1. ;;00555-0059-02
  1. ;;9002226.02101,"978,00555-0059-02 ",.02)
  1. ;;00555-0059-02
  1. ;;9002226.02101,"978,00555-0059-05 ",.01)
  1. ;;00555-0059-05
  1. ;;9002226.02101,"978,00555-0059-05 ",.02)
  1. ;;00555-0059-05
  1. ;;9002226.02101,"978,00555-0302-02 ",.01)
  1. ;;00555-0302-02
  1. ;;9002226.02101,"978,00555-0302-02 ",.02)
  1. ;;00555-0302-02
  1. ;;9002226.02101,"978,00555-0302-04 ",.01)
  1. ;;00555-0302-04
  1. ;;9002226.02101,"978,00555-0302-04 ",.02)
  1. ;;00555-0302-04
  1. ;;9002226.02101,"978,00555-0323-02 ",.01)
  1. ;;00555-0323-02
  1. ;;9002226.02101,"978,00555-0323-02 ",.02)
  1. ;;00555-0323-02
  1. ;;9002226.02101,"978,00555-0323-04 ",.01)
  1. ;;00555-0323-04
  1. ;;9002226.02101,"978,00555-0323-04 ",.02)
  1. ;;00555-0323-04
  1. ;;9002226.02101,"978,00555-0324-02 ",.01)
  1. ;;00555-0324-02
  1. ;;9002226.02101,"978,00555-0324-02 ",.02)
  1. ;;00555-0324-02
  1. ;;9002226.02101,"978,00573-0315-10 ",.01)
  1. ;;00573-0315-10
  1. ;;9002226.02101,"978,00573-0315-10 ",.02)
  1. ;;00573-0315-10
  1. ;;9002226.02101,"978,00573-0315-20 ",.01)
  1. ;;00573-0315-20
  1. ;;9002226.02101,"978,00573-0315-20 ",.02)
  1. ;;00573-0315-20
  1. ;;9002226.02101,"978,00573-3412-10 ",.01)
  1. ;;00573-3412-10
  1. ;;9002226.02101,"978,00573-3412-10 ",.02)
  1. ;;00573-3412-10
  1. ;;9002226.02101,"978,00573-3412-15 ",.01)
  1. ;;00573-3412-15
  1. ;;9002226.02101,"978,00573-3412-15 ",.02)
  1. ;;00573-3412-15
  1. ;;9002226.02101,"978,00591-0800-01 ",.01)
  1. ;;00591-0800-01
  1. ;;9002226.02101,"978,00591-0800-01 ",.02)
  1. ;;00591-0800-01
  1. ;;9002226.02101,"978,00591-0800-05 ",.01)
  1. ;;00591-0800-05
  1. ;;9002226.02101,"978,00591-0800-05 ",.02)
  1. ;;00591-0800-05
  1. ;;9002226.02101,"978,00591-0801-01 ",.01)
  1. ;;00591-0801-01
  1. ;;9002226.02101,"978,00591-0801-01 ",.02)
  1. ;;00591-0801-01
  1. ;;9002226.02101,"978,00591-0801-05 ",.01)
  1. ;;00591-0801-05
  1. ;;9002226.02101,"978,00591-0801-05 ",.02)
  1. ;;00591-0801-05
  1. ;;9002226.02101,"978,00591-1408-01 ",.01)
  1. ;;00591-1408-01
  1. ;;9002226.02101,"978,00591-1408-01 ",.02)
  1. ;;00591-1408-01
  1. ;;9002226.02101,"978,00591-3423-01 ",.01)
  1. ;;00591-3423-01
  1. ;;9002226.02101,"978,00591-3423-01 ",.02)
  1. ;;00591-3423-01
  1. ;;9002226.02101,"978,00591-3423-05 ",.01)
  1. ;;00591-3423-05
  1. ;;9002226.02101,"978,00591-3423-05 ",.02)
  1. ;;00591-3423-05
  1. ;;9002226.02101,"978,00591-3423-10 ",.01)
  1. ;;00591-3423-10
  1. ;;9002226.02101,"978,00591-3423-10 ",.02)
  1. ;;00591-3423-10
  1. ;;9002226.02101,"978,00591-4009-01 ",.01)
  1. ;;00591-4009-01
  1. ;;9002226.02101,"978,00591-4009-01 ",.02)
  1. ;;00591-4009-01
  1. ;;9002226.02101,"978,00591-5307-01 ",.01)
  1. ;;00591-5307-01
  1. ;;9002226.02101,"978,00591-5307-01 ",.02)
  1. ;;00591-5307-01
  1. ;;9002226.02101,"978,00591-5307-10 ",.01)
  1. ;;00591-5307-10
  1. ;;9002226.02101,"978,00591-5307-10 ",.02)
  1. ;;00591-5307-10
  1. ;;9002226.02101,"978,00591-5319-01 ",.01)
  1. ;;00591-5319-01
  1. ;;9002226.02101,"978,00591-5319-01 ",.02)
  1. ;;00591-5319-01
  1. ;;9002226.02101,"978,00591-5522-01 ",.01)
  1. ;;00591-5522-01
  1. ;;9002226.02101,"978,00591-5522-01 ",.02)
  1. ;;00591-5522-01
  1. ;;9002226.02101,"978,00591-5522-05 ",.01)
  1. ;;00591-5522-05
  1. ;;9002226.02101,"978,00591-5522-05 ",.02)
  1. ;;00591-5522-05
  1. ;;9002226.02101,"978,00591-5523-01 ",.01)
  1. ;;00591-5523-01
  1. ;;9002226.02101,"978,00591-5523-01 ",.02)
  1. ;;00591-5523-01
  1. ;;9002226.02101,"978,00591-5523-05 ",.01)
  1. ;;00591-5523-05
  1. ;;9002226.02101,"978,00591-5523-05 ",.02)
  1. ;;00591-5523-05
  1. ;;9002226.02101,"978,00591-5523-10 ",.01)
  1. ;;00591-5523-10
  1. ;;9002226.02101,"978,00591-5523-10 ",.02)
  1. ;;00591-5523-10
  1. ;;9002226.02101,"978,00591-5565-01 ",.01)
  1. ;;00591-5565-01
  1. ;;9002226.02101,"978,00591-5565-01 ",.02)
  1. ;;00591-5565-01
  1. ;;9002226.02101,"978,00591-5565-05 ",.01)
  1. ;;00591-5565-05
  1. ;;9002226.02101,"978,00591-5565-05 ",.02)
  1. ;;00591-5565-05
  1. ;;9002226.02101,"978,00591-5726-01 ",.01)
  1. ;;00591-5726-01
  1. ;;9002226.02101,"978,00591-5726-01 ",.02)
  1. ;;00591-5726-01
  1. ;;9002226.02101,"978,00591-5726-05 ",.01)
  1. ;;00591-5726-05
  1. ;;9002226.02101,"978,00591-5726-05 ",.02)
  1. ;;00591-5726-05
  1. ;;9002226.02101,"978,00603-0239-18 ",.01)
  1. ;;00603-0239-18
  1. ;;9002226.02101,"978,00603-0239-18 ",.02)
  1. ;;00603-0239-18
  1. ;;9002226.02101,"978,00603-0240-18 ",.01)
  1. ;;00603-0240-18
  1. ;;9002226.02101,"978,00603-0240-18 ",.02)
  1. ;;00603-0240-18