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