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

BGP13D9.m

Go to the documentation of this file.
BGP13D9 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 14, 2011 ;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
 ;
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,"994,00247-1167-03 ",.02)
 ;;00247-1167-03
 ;;9002226.02101,"994,00247-1167-04 ",.01)
 ;;00247-1167-04
 ;;9002226.02101,"994,00247-1167-04 ",.02)
 ;;00247-1167-04
 ;;9002226.02101,"994,00247-1167-06 ",.01)
 ;;00247-1167-06
 ;;9002226.02101,"994,00247-1167-06 ",.02)
 ;;00247-1167-06
 ;;9002226.02101,"994,00247-1167-10 ",.01)
 ;;00247-1167-10
 ;;9002226.02101,"994,00247-1167-10 ",.02)
 ;;00247-1167-10
 ;;9002226.02101,"994,00247-1167-12 ",.01)
 ;;00247-1167-12
 ;;9002226.02101,"994,00247-1167-12 ",.02)
 ;;00247-1167-12
 ;;9002226.02101,"994,00247-1167-15 ",.01)
 ;;00247-1167-15
 ;;9002226.02101,"994,00247-1167-15 ",.02)
 ;;00247-1167-15
 ;;9002226.02101,"994,00247-1167-24 ",.01)
 ;;00247-1167-24
 ;;9002226.02101,"994,00247-1167-24 ",.02)
 ;;00247-1167-24
 ;;9002226.02101,"994,00247-1167-30 ",.01)
 ;;00247-1167-30
 ;;9002226.02101,"994,00247-1167-30 ",.02)
 ;;00247-1167-30
 ;;9002226.02101,"994,00247-1168-01 ",.01)
 ;;00247-1168-01
 ;;9002226.02101,"994,00247-1168-01 ",.02)
 ;;00247-1168-01
 ;;9002226.02101,"994,00247-1168-02 ",.01)
 ;;00247-1168-02
 ;;9002226.02101,"994,00247-1168-02 ",.02)
 ;;00247-1168-02
 ;;9002226.02101,"994,00247-1168-04 ",.01)
 ;;00247-1168-04
 ;;9002226.02101,"994,00247-1168-04 ",.02)
 ;;00247-1168-04
 ;;9002226.02101,"994,00247-1168-20 ",.01)
 ;;00247-1168-20
 ;;9002226.02101,"994,00247-1168-20 ",.02)
 ;;00247-1168-20
 ;;9002226.02101,"994,00247-1168-30 ",.01)
 ;;00247-1168-30
 ;;9002226.02101,"994,00247-1168-30 ",.02)
 ;;00247-1168-30
 ;;9002226.02101,"994,00247-1322-10 ",.01)
 ;;00247-1322-10
 ;;9002226.02101,"994,00247-1322-10 ",.02)
 ;;00247-1322-10
 ;;9002226.02101,"994,00247-1322-12 ",.01)
 ;;00247-1322-12
 ;;9002226.02101,"994,00247-1322-12 ",.02)
 ;;00247-1322-12
 ;;9002226.02101,"994,00247-1350-30 ",.01)
 ;;00247-1350-30
 ;;9002226.02101,"994,00247-1350-30 ",.02)
 ;;00247-1350-30
 ;;9002226.02101,"994,00247-1350-52 ",.01)
 ;;00247-1350-52
 ;;9002226.02101,"994,00247-1350-52 ",.02)
 ;;00247-1350-52
 ;;9002226.02101,"994,00247-1350-60 ",.01)
 ;;00247-1350-60
 ;;9002226.02101,"994,00247-1350-60 ",.02)
 ;;00247-1350-60
 ;;9002226.02101,"994,00247-1350-77 ",.01)
 ;;00247-1350-77
 ;;9002226.02101,"994,00247-1350-77 ",.02)
 ;;00247-1350-77
 ;;9002226.02101,"994,00247-1597-52 ",.01)
 ;;00247-1597-52
 ;;9002226.02101,"994,00247-1597-52 ",.02)
 ;;00247-1597-52
 ;;9002226.02101,"994,00247-1597-77 ",.01)
 ;;00247-1597-77
 ;;9002226.02101,"994,00247-1597-77 ",.02)
 ;;00247-1597-77
 ;;9002226.02101,"994,00247-2020-01 ",.01)
 ;;00247-2020-01
 ;;9002226.02101,"994,00247-2020-01 ",.02)
 ;;00247-2020-01
 ;;9002226.02101,"994,00247-2020-02 ",.01)
 ;;00247-2020-02
 ;;9002226.02101,"994,00247-2020-02 ",.02)
 ;;00247-2020-02
 ;;9002226.02101,"994,00247-2236-00 ",.01)
 ;;00247-2236-00
 ;;9002226.02101,"994,00247-2236-00 ",.02)
 ;;00247-2236-00
 ;;9002226.02101,"994,00247-2236-50 ",.01)
 ;;00247-2236-50
 ;;9002226.02101,"994,00247-2236-50 ",.02)
 ;;00247-2236-50
 ;;9002226.02101,"994,00280-8070-20 ",.01)
 ;;00280-8070-20
 ;;9002226.02101,"994,00280-8070-20 ",.02)
 ;;00280-8070-20
 ;;9002226.02101,"994,00363-0235-06 ",.01)
 ;;00363-0235-06
 ;;9002226.02101,"994,00363-0235-06 ",.02)
 ;;00363-0235-06
 ;;9002226.02101,"994,00363-0235-15 ",.01)
 ;;00363-0235-15
 ;;9002226.02101,"994,00363-0235-15 ",.02)
 ;;00363-0235-15
 ;;9002226.02101,"994,00363-0246-15 ",.01)
 ;;00363-0246-15
 ;;9002226.02101,"994,00363-0246-15 ",.02)
 ;;00363-0246-15
 ;;9002226.02101,"994,00363-0360-50 ",.01)
 ;;00363-0360-50
 ;;9002226.02101,"994,00363-0360-50 ",.02)
 ;;00363-0360-50
 ;;9002226.02101,"994,00364-0484-01 ",.01)
 ;;00364-0484-01
 ;;9002226.02101,"994,00364-0484-01 ",.02)
 ;;00364-0484-01
 ;;9002226.02101,"994,00364-0484-05 ",.01)
 ;;00364-0484-05
 ;;9002226.02101,"994,00364-0484-05 ",.02)
 ;;00364-0484-05
 ;;9002226.02101,"994,00372-0047-08 ",.01)
 ;;00372-0047-08
 ;;9002226.02101,"994,00372-0047-08 ",.02)
 ;;00372-0047-08
 ;;9002226.02101,"994,00372-0047-16 ",.01)
 ;;00372-0047-16
 ;;9002226.02101,"994,00372-0047-16 ",.02)
 ;;00372-0047-16
 ;;9002226.02101,"994,00372-0047-28 ",.01)
 ;;00372-0047-28
 ;;9002226.02101,"994,00372-0047-28 ",.02)
 ;;00372-0047-28
 ;;9002226.02101,"994,00378-2586-01 ",.01)
 ;;00378-2586-01
 ;;9002226.02101,"994,00378-2586-01 ",.02)
 ;;00378-2586-01
 ;;9002226.02101,"994,00378-2586-10 ",.01)
 ;;00378-2586-10
 ;;9002226.02101,"994,00378-2586-10 ",.02)
 ;;00378-2586-10
 ;;9002226.02101,"994,00378-2587-01 ",.01)
 ;;00378-2587-01
 ;;9002226.02101,"994,00378-2587-01 ",.02)
 ;;00378-2587-01
 ;;9002226.02101,"994,00378-2587-10 ",.01)
 ;;00378-2587-10
 ;;9002226.02101,"994,00378-2587-10 ",.02)
 ;;00378-2587-10
 ;;9002226.02101,"994,00378-2588-01 ",.01)
 ;;00378-2588-01
 ;;9002226.02101,"994,00378-2588-01 ",.02)
 ;;00378-2588-01
 ;;9002226.02101,"994,00378-2588-10 ",.01)
 ;;00378-2588-10
 ;;9002226.02101,"994,00378-2588-10 ",.02)
 ;;00378-2588-10
 ;;9002226.02101,"994,00406-2040-01 ",.01)
 ;;00406-2040-01
 ;;9002226.02101,"994,00406-2040-01 ",.02)
 ;;00406-2040-01
 ;;9002226.02101,"994,00406-2041-01 ",.01)
 ;;00406-2041-01
 ;;9002226.02101,"994,00406-2041-01 ",.02)
 ;;00406-2041-01
 ;;9002226.02101,"994,00406-2041-10 ",.01)
 ;;00406-2041-10
 ;;9002226.02101,"994,00406-2041-10 ",.02)
 ;;00406-2041-10
 ;;9002226.02101,"994,00406-2042-01 ",.01)
 ;;00406-2042-01
 ;;9002226.02101,"994,00406-2042-01 ",.02)
 ;;00406-2042-01
 ;;9002226.02101,"994,00436-0525-04 ",.01)
 ;;00436-0525-04
 ;;9002226.02101,"994,00436-0525-04 ",.02)
 ;;00436-0525-04
 ;;9002226.02101,"994,00436-0525-16 ",.01)
 ;;00436-0525-16
 ;;9002226.02101,"994,00436-0525-16 ",.02)
 ;;00436-0525-16
 ;;9002226.02101,"994,00436-0525-28 ",.01)
 ;;00436-0525-28
 ;;9002226.02101,"994,00436-0525-28 ",.02)
 ;;00436-0525-28
 ;;9002226.02101,"994,00436-0580-04 ",.01)
 ;;00436-0580-04
 ;;9002226.02101,"994,00436-0580-04 ",.02)
 ;;00436-0580-04
 ;;9002226.02101,"994,00436-0580-16 ",.01)
 ;;00436-0580-16
 ;;9002226.02101,"994,00436-0580-16 ",.02)
 ;;00436-0580-16
 ;;9002226.02101,"994,00436-0580-28 ",.01)
 ;;00436-0580-28
 ;;9002226.02101,"994,00436-0580-28 ",.02)
 ;;00436-0580-28
 ;;9002226.02101,"994,00440-7425-16 ",.01)
 ;;00440-7425-16
 ;;9002226.02101,"994,00440-7425-16 ",.02)
 ;;00440-7425-16
 ;;9002226.02101,"994,00440-7616-30 ",.01)
 ;;00440-7616-30
 ;;9002226.02101,"994,00440-7616-30 ",.02)
 ;;00440-7616-30
 ;;9002226.02101,"994,00440-8195-10 ",.01)
 ;;00440-8195-10
 ;;9002226.02101,"994,00440-8195-10 ",.02)
 ;;00440-8195-10
 ;;9002226.02101,"994,00463-2022-10 ",.01)
 ;;00463-2022-10
 ;;9002226.02101,"994,00463-2022-10 ",.02)
 ;;00463-2022-10
 ;;9002226.02101,"994,00463-2023-10 ",.01)
 ;;00463-2023-10
 ;;9002226.02101,"994,00463-2023-10 ",.02)
 ;;00463-2023-10
 ;;9002226.02101,"994,00463-6156-10 ",.01)
 ;;00463-6156-10
 ;;9002226.02101,"994,00463-6156-10 ",.02)
 ;;00463-6156-10
 ;;9002226.02101,"994,00463-9030-28 ",.01)
 ;;00463-9030-28
 ;;9002226.02101,"994,00463-9030-28 ",.02)
 ;;00463-9030-28
 ;;9002226.02101,"994,00472-0755-16 ",.01)
 ;;00472-0755-16
 ;;9002226.02101,"994,00472-0755-16 ",.02)
 ;;00472-0755-16
 ;;9002226.02101,"994,00472-0771-16 ",.01)
 ;;00472-0771-16
 ;;9002226.02101,"994,00472-0771-16 ",.02)
 ;;00472-0771-16
 ;;9002226.02101,"994,00472-0771-28 ",.01)
 ;;00472-0771-28
 ;;9002226.02101,"994,00472-0771-28 ",.02)
 ;;00472-0771-28
 ;;9002226.02101,"994,00472-1400-16 ",.01)
 ;;00472-1400-16
 ;;9002226.02101,"994,00472-1400-16 ",.02)
 ;;00472-1400-16
 ;;9002226.02101,"994,00472-1504-04 ",.01)
 ;;00472-1504-04
 ;;9002226.02101,"994,00472-1504-04 ",.02)
 ;;00472-1504-04
 ;;9002226.02101,"994,00472-1504-08 ",.01)
 ;;00472-1504-08
 ;;9002226.02101,"994,00472-1504-08 ",.02)
 ;;00472-1504-08
 ;;9002226.02101,"994,00472-1504-16 ",.01)
 ;;00472-1504-16
 ;;9002226.02101,"994,00472-1504-16 ",.02)
 ;;00472-1504-16
 ;;9002226.02101,"994,00472-1627-04 ",.01)
 ;;00472-1627-04
 ;;9002226.02101,"994,00472-1627-04 ",.02)
 ;;00472-1627-04
 ;;9002226.02101,"994,00472-1627-16 ",.01)
 ;;00472-1627-16
 ;;9002226.02101,"994,00472-1627-16 ",.02)
 ;;00472-1627-16
 ;;9002226.02101,"994,00472-1627-28 ",.01)
 ;;00472-1627-28
 ;;9002226.02101,"994,00472-1627-28 ",.02)
 ;;00472-1627-28
 ;;9002226.02101,"994,00472-1628-04 ",.01)
 ;;00472-1628-04
 ;;9002226.02101,"994,00472-1628-04 ",.02)
 ;;00472-1628-04
 ;;9002226.02101,"994,00472-1628-16 ",.01)
 ;;00472-1628-16
 ;;9002226.02101,"994,00472-1628-16 ",.02)
 ;;00472-1628-16
 ;;9002226.02101,"994,00472-1629-04 ",.01)
 ;;00472-1629-04
 ;;9002226.02101,"994,00472-1629-04 ",.02)
 ;;00472-1629-04
 ;;9002226.02101,"994,00472-1629-08 ",.01)
 ;;00472-1629-08
 ;;9002226.02101,"994,00472-1629-08 ",.02)
 ;;00472-1629-08
 ;;9002226.02101,"994,00472-1629-16 ",.01)
 ;;00472-1629-16
 ;;9002226.02101,"994,00472-1629-16 ",.02)
 ;;00472-1629-16
 ;;9002226.02101,"994,00472-1630-04 ",.01)
 ;;00472-1630-04
 ;;9002226.02101,"994,00472-1630-04 ",.02)
 ;;00472-1630-04
 ;;9002226.02101,"994,00472-1630-16 ",.01)
 ;;00472-1630-16
 ;;9002226.02101,"994,00472-1630-16 ",.02)
 ;;00472-1630-16
 ;;9002226.02101,"994,00472-1630-28 ",.01)
 ;;00472-1630-28
 ;;9002226.02101,"994,00472-1630-28 ",.02)
 ;;00472-1630-28
 ;;9002226.02101,"994,00501-2000-24 ",.01)
 ;;00501-2000-24
 ;;9002226.02101,"994,00501-2000-24 ",.02)
 ;;00501-2000-24
 ;;9002226.02101,"994,00501-2000-48 ",.01)
 ;;00501-2000-48
 ;;9002226.02101,"994,00501-2000-48 ",.02)
 ;;00501-2000-48
 ;;9002226.02101,"994,00501-2001-24 ",.01)
 ;;00501-2001-24
 ;;9002226.02101,"994,00501-2001-24 ",.02)
 ;;00501-2001-24
 ;;9002226.02101,"994,00501-2005-24 ",.01)
 ;;00501-2005-24
 ;;9002226.02101,"994,00501-2005-24 ",.02)
 ;;00501-2005-24
 ;;9002226.02101,"994,00501-2006-24 ",.01)
 ;;00501-2006-24
 ;;9002226.02101,"994,00501-2006-24 ",.02)
 ;;00501-2006-24
 ;;9002226.02101,"994,00501-2007-24 ",.01)
 ;;00501-2007-24
 ;;9002226.02101,"994,00501-2007-24 ",.02)
 ;;00501-2007-24
 ;;9002226.02101,"994,00501-2007-48 ",.01)
 ;;00501-2007-48
 ;;9002226.02101,"994,00501-2007-48 ",.02)
 ;;00501-2007-48
 ;;9002226.02101,"994,00501-2009-24 ",.01)
 ;;00501-2009-24
 ;;9002226.02101,"994,00501-2009-24 ",.02)
 ;;00501-2009-24
 ;;9002226.02101,"994,00501-2009-48 ",.01)
 ;;00501-2009-48
 ;;9002226.02101,"994,00501-2009-48 ",.02)
 ;;00501-2009-48
 ;;9002226.02101,"994,00501-2009-99 ",.01)
 ;;00501-2009-99
 ;;9002226.02101,"994,00501-2009-99 ",.02)
 ;;00501-2009-99
 ;;9002226.02101,"994,00501-2010-24 ",.01)
 ;;00501-2010-24
 ;;9002226.02101,"994,00501-2010-24 ",.02)
 ;;00501-2010-24
 ;;9002226.02101,"994,00501-2020-20 ",.01)
 ;;00501-2020-20
 ;;9002226.02101,"994,00501-2020-20 ",.02)
 ;;00501-2020-20
 ;;9002226.02101,"994,00501-2021-20 ",.01)
 ;;00501-2021-20
 ;;9002226.02101,"994,00501-2021-20 ",.02)
 ;;00501-2021-20
 ;;9002226.02101,"994,00501-2022-20 ",.01)
 ;;00501-2022-20
 ;;9002226.02101,"994,00501-2022-20 ",.02)
 ;;00501-2022-20
 ;;9002226.02101,"994,00501-2030-20 ",.01)
 ;;00501-2030-20
 ;;9002226.02101,"994,00501-2030-20 ",.02)
 ;;00501-2030-20
 ;;9002226.02101,"994,00501-2041-04 ",.01)
 ;;00501-2041-04
 ;;9002226.02101,"994,00501-2041-04 ",.02)
 ;;00501-2041-04
 ;;9002226.02101,"994,00501-2043-10 ",.01)
 ;;00501-2043-10
 ;;9002226.02101,"994,00501-2043-10 ",.02)
 ;;00501-2043-10
 ;;9002226.02101,"994,00501-2043-20 ",.01)
 ;;00501-2043-20
 ;;9002226.02101,"994,00501-2043-20 ",.02)
 ;;00501-2043-20
 ;;9002226.02101,"994,00501-2050-04 ",.01)
 ;;00501-2050-04
 ;;9002226.02101,"994,00501-2050-04 ",.02)
 ;;00501-2050-04
 ;;9002226.02101,"994,00501-2050-08 ",.01)
 ;;00501-2050-08
 ;;9002226.02101,"994,00501-2050-08 ",.02)
 ;;00501-2050-08
 ;;9002226.02101,"994,00501-2051-04 ",.01)
 ;;00501-2051-04
 ;;9002226.02101,"994,00501-2051-04 ",.02)
 ;;00501-2051-04
 ;;9002226.02101,"994,00501-2052-08 ",.01)
 ;;00501-2052-08
 ;;9002226.02101,"994,00501-2052-08 ",.02)
 ;;00501-2052-08
 ;;9002226.02101,"994,00501-2053-04 ",.01)
 ;;00501-2053-04
 ;;9002226.02101,"994,00501-2053-04 ",.02)
 ;;00501-2053-04
 ;;9002226.02101,"994,00501-2061-04 ",.01)
 ;;00501-2061-04
 ;;9002226.02101,"994,00501-2061-04 ",.02)
 ;;00501-2061-04
 ;;9002226.02101,"994,00501-2752-20 ",.01)
 ;;00501-2752-20
 ;;9002226.02101,"994,00501-2752-20 ",.02)
 ;;00501-2752-20
 ;;9002226.02101,"994,00501-2907-20 ",.01)
 ;;00501-2907-20
 ;;9002226.02101,"994,00501-2907-20 ",.02)
 ;;00501-2907-20
 ;;9002226.02101,"994,00501-6000-08 ",.01)
 ;;00501-6000-08
 ;;9002226.02101,"994,00501-6000-08 ",.02)
 ;;00501-6000-08
 ;;9002226.02101,"994,00501-6000-16 ",.01)
 ;;00501-6000-16
 ;;9002226.02101,"994,00501-6000-16 ",.02)
 ;;00501-6000-16