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

BGP13D14.m

Go to the documentation of this file.
BGP13D14 ; 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,43063-0049-06 ",.01)
 ;;43063-0049-06
 ;;9002226.02101,"994,43063-0049-06 ",.02)
 ;;43063-0049-06
 ;;9002226.02101,"994,43063-0095-06 ",.01)
 ;;43063-0095-06
 ;;9002226.02101,"994,43063-0095-06 ",.02)
 ;;43063-0095-06
 ;;9002226.02101,"994,43063-0179-06 ",.01)
 ;;43063-0179-06
 ;;9002226.02101,"994,43063-0179-06 ",.02)
 ;;43063-0179-06
 ;;9002226.02101,"994,43292-0556-31 ",.01)
 ;;43292-0556-31
 ;;9002226.02101,"994,43292-0556-31 ",.02)
 ;;43292-0556-31
 ;;9002226.02101,"994,43292-0557-65 ",.01)
 ;;43292-0557-65
 ;;9002226.02101,"994,43292-0557-65 ",.02)
 ;;43292-0557-65
 ;;9002226.02101,"994,45800-0235-30 ",.01)
 ;;45800-0235-30
 ;;9002226.02101,"994,45800-0235-30 ",.02)
 ;;45800-0235-30
 ;;9002226.02101,"994,45985-0652-16 ",.01)
 ;;45985-0652-16
 ;;9002226.02101,"994,45985-0652-16 ",.02)
 ;;45985-0652-16
 ;;9002226.02101,"994,47682-0182-32 ",.01)
 ;;47682-0182-32
 ;;9002226.02101,"994,47682-0182-32 ",.02)
 ;;47682-0182-32
 ;;9002226.02101,"994,47682-0182-47 ",.01)
 ;;47682-0182-47
 ;;9002226.02101,"994,47682-0182-47 ",.02)
 ;;47682-0182-47
 ;;9002226.02101,"994,47682-0182-64 ",.01)
 ;;47682-0182-64
 ;;9002226.02101,"994,47682-0182-64 ",.02)
 ;;47682-0182-64
 ;;9002226.02101,"994,47682-0847-87 ",.01)
 ;;47682-0847-87
 ;;9002226.02101,"994,47682-0847-87 ",.02)
 ;;47682-0847-87
 ;;9002226.02101,"994,47682-0858-87 ",.01)
 ;;47682-0858-87
 ;;9002226.02101,"994,47682-0858-87 ",.02)
 ;;47682-0858-87
 ;;9002226.02101,"994,49348-0044-04 ",.01)
 ;;49348-0044-04
 ;;9002226.02101,"994,49348-0044-04 ",.02)
 ;;49348-0044-04
 ;;9002226.02101,"994,49348-0044-10 ",.01)
 ;;49348-0044-10
 ;;9002226.02101,"994,49348-0044-10 ",.02)
 ;;49348-0044-10
 ;;9002226.02101,"994,49348-0044-44 ",.01)
 ;;49348-0044-44
 ;;9002226.02101,"994,49348-0044-44 ",.02)
 ;;49348-0044-44
 ;;9002226.02101,"994,49348-0045-34 ",.01)
 ;;49348-0045-34
 ;;9002226.02101,"994,49348-0045-34 ",.02)
 ;;49348-0045-34
 ;;9002226.02101,"994,49348-0045-37 ",.01)
 ;;49348-0045-37
 ;;9002226.02101,"994,49348-0045-37 ",.02)
 ;;49348-0045-37
 ;;9002226.02101,"994,49348-0072-09 ",.01)
 ;;49348-0072-09
 ;;9002226.02101,"994,49348-0072-09 ",.02)
 ;;49348-0072-09
 ;;9002226.02101,"994,49348-0073-09 ",.01)
 ;;49348-0073-09
 ;;9002226.02101,"994,49348-0073-09 ",.02)
 ;;49348-0073-09
 ;;9002226.02101,"994,49348-0074-03 ",.01)
 ;;49348-0074-03
 ;;9002226.02101,"994,49348-0074-03 ",.02)
 ;;49348-0074-03
 ;;9002226.02101,"994,49348-0074-06 ",.01)
 ;;49348-0074-06
 ;;9002226.02101,"994,49348-0074-06 ",.02)
 ;;49348-0074-06
 ;;9002226.02101,"994,49348-0205-37 ",.01)
 ;;49348-0205-37
 ;;9002226.02101,"994,49348-0205-37 ",.02)
 ;;49348-0205-37
 ;;9002226.02101,"994,49348-0206-04 ",.01)
 ;;49348-0206-04
 ;;9002226.02101,"994,49348-0206-04 ",.02)
 ;;49348-0206-04
 ;;9002226.02101,"994,49348-0282-08 ",.01)
 ;;49348-0282-08
 ;;9002226.02101,"994,49348-0282-08 ",.02)
 ;;49348-0282-08
 ;;9002226.02101,"994,49348-0292-09 ",.01)
 ;;49348-0292-09
 ;;9002226.02101,"994,49348-0292-09 ",.02)
 ;;49348-0292-09
 ;;9002226.02101,"994,49348-0348-54 ",.01)
 ;;49348-0348-54
 ;;9002226.02101,"994,49348-0348-54 ",.02)
 ;;49348-0348-54
 ;;9002226.02101,"994,49348-0349-09 ",.01)
 ;;49348-0349-09
 ;;9002226.02101,"994,49348-0349-09 ",.02)
 ;;49348-0349-09
 ;;9002226.02101,"994,49348-0349-10 ",.01)
 ;;49348-0349-10
 ;;9002226.02101,"994,49348-0349-10 ",.02)
 ;;49348-0349-10
 ;;9002226.02101,"994,49348-0349-54 ",.01)
 ;;49348-0349-54
 ;;9002226.02101,"994,49348-0349-54 ",.02)
 ;;49348-0349-54
 ;;9002226.02101,"994,49348-0375-08 ",.01)
 ;;49348-0375-08
 ;;9002226.02101,"994,49348-0375-08 ",.02)
 ;;49348-0375-08
 ;;9002226.02101,"994,49348-0375-10 ",.01)
 ;;49348-0375-10
 ;;9002226.02101,"994,49348-0375-10 ",.02)
 ;;49348-0375-10
 ;;9002226.02101,"994,49348-0471-04 ",.01)
 ;;49348-0471-04
 ;;9002226.02101,"994,49348-0471-04 ",.02)
 ;;49348-0471-04
 ;;9002226.02101,"994,49348-0564-04 ",.01)
 ;;49348-0564-04
 ;;9002226.02101,"994,49348-0564-04 ",.02)
 ;;49348-0564-04
 ;;9002226.02101,"994,49348-0564-07 ",.01)
 ;;49348-0564-07
 ;;9002226.02101,"994,49348-0564-07 ",.02)
 ;;49348-0564-07
 ;;9002226.02101,"994,49348-0611-09 ",.01)
 ;;49348-0611-09
 ;;9002226.02101,"994,49348-0611-09 ",.02)
 ;;49348-0611-09
 ;;9002226.02101,"994,49348-0779-04 ",.01)
 ;;49348-0779-04
 ;;9002226.02101,"994,49348-0779-04 ",.02)
 ;;49348-0779-04
 ;;9002226.02101,"994,49348-0904-70 ",.01)
 ;;49348-0904-70
 ;;9002226.02101,"994,49348-0904-70 ",.02)
 ;;49348-0904-70
 ;;9002226.02101,"994,49348-0918-09 ",.01)
 ;;49348-0918-09
 ;;9002226.02101,"994,49348-0918-09 ",.02)
 ;;49348-0918-09
 ;;9002226.02101,"994,49348-0918-10 ",.01)
 ;;49348-0918-10
 ;;9002226.02101,"994,49348-0918-10 ",.02)
 ;;49348-0918-10
 ;;9002226.02101,"994,49884-0043-01 ",.01)
 ;;49884-0043-01
 ;;9002226.02101,"994,49884-0043-01 ",.02)
 ;;49884-0043-01
 ;;9002226.02101,"994,49884-0043-10 ",.01)
 ;;49884-0043-10
 ;;9002226.02101,"994,49884-0043-10 ",.02)
 ;;49884-0043-10
 ;;9002226.02101,"994,49999-0003-00 ",.01)
 ;;49999-0003-00
 ;;9002226.02101,"994,49999-0003-00 ",.02)
 ;;49999-0003-00
 ;;9002226.02101,"994,49999-0003-06 ",.01)
 ;;49999-0003-06
 ;;9002226.02101,"994,49999-0003-06 ",.02)
 ;;49999-0003-06
 ;;9002226.02101,"994,49999-0003-15 ",.01)
 ;;49999-0003-15
 ;;9002226.02101,"994,49999-0003-15 ",.02)
 ;;49999-0003-15
 ;;9002226.02101,"994,49999-0003-20 ",.01)
 ;;49999-0003-20
 ;;9002226.02101,"994,49999-0003-20 ",.02)
 ;;49999-0003-20
 ;;9002226.02101,"994,49999-0003-21 ",.01)
 ;;49999-0003-21
 ;;9002226.02101,"994,49999-0003-21 ",.02)
 ;;49999-0003-21
 ;;9002226.02101,"994,49999-0003-24 ",.01)
 ;;49999-0003-24
 ;;9002226.02101,"994,49999-0003-24 ",.02)
 ;;49999-0003-24
 ;;9002226.02101,"994,49999-0003-30 ",.01)
 ;;49999-0003-30
 ;;9002226.02101,"994,49999-0003-30 ",.02)
 ;;49999-0003-30
 ;;9002226.02101,"994,49999-0003-40 ",.01)
 ;;49999-0003-40
 ;;9002226.02101,"994,49999-0003-40 ",.02)
 ;;49999-0003-40
 ;;9002226.02101,"994,49999-0003-60 ",.01)
 ;;49999-0003-60
 ;;9002226.02101,"994,49999-0003-60 ",.02)
 ;;49999-0003-60
 ;;9002226.02101,"994,49999-0024-00 ",.01)
 ;;49999-0024-00
 ;;9002226.02101,"994,49999-0024-00 ",.02)
 ;;49999-0024-00
 ;;9002226.02101,"994,49999-0024-12 ",.01)
 ;;49999-0024-12
 ;;9002226.02101,"994,49999-0024-12 ",.02)
 ;;49999-0024-12
 ;;9002226.02101,"994,49999-0024-24 ",.01)
 ;;49999-0024-24
 ;;9002226.02101,"994,49999-0024-24 ",.02)
 ;;49999-0024-24
 ;;9002226.02101,"994,49999-0024-30 ",.01)
 ;;49999-0024-30
 ;;9002226.02101,"994,49999-0024-30 ",.02)
 ;;49999-0024-30
 ;;9002226.02101,"994,49999-0024-60 ",.01)
 ;;49999-0024-60
 ;;9002226.02101,"994,49999-0024-60 ",.02)
 ;;49999-0024-60
 ;;9002226.02101,"994,49999-0035-24 ",.01)
 ;;49999-0035-24
 ;;9002226.02101,"994,49999-0035-24 ",.02)
 ;;49999-0035-24
 ;;9002226.02101,"994,49999-0035-30 ",.01)
 ;;49999-0035-30
 ;;9002226.02101,"994,49999-0035-30 ",.02)
 ;;49999-0035-30
 ;;9002226.02101,"994,49999-0035-60 ",.01)
 ;;49999-0035-60
 ;;9002226.02101,"994,49999-0035-60 ",.02)
 ;;49999-0035-60
 ;;9002226.02101,"994,49999-0036-12 ",.01)
 ;;49999-0036-12
 ;;9002226.02101,"994,49999-0036-12 ",.02)
 ;;49999-0036-12
 ;;9002226.02101,"994,49999-0036-60 ",.01)
 ;;49999-0036-60
 ;;9002226.02101,"994,49999-0036-60 ",.02)
 ;;49999-0036-60
 ;;9002226.02101,"994,49999-0090-05 ",.01)
 ;;49999-0090-05
 ;;9002226.02101,"994,49999-0090-05 ",.02)
 ;;49999-0090-05
 ;;9002226.02101,"994,49999-0090-10 ",.01)
 ;;49999-0090-10
 ;;9002226.02101,"994,49999-0090-10 ",.02)
 ;;49999-0090-10
 ;;9002226.02101,"994,49999-0090-12 ",.01)
 ;;49999-0090-12
 ;;9002226.02101,"994,49999-0090-12 ",.02)
 ;;49999-0090-12
 ;;9002226.02101,"994,49999-0090-15 ",.01)
 ;;49999-0090-15
 ;;9002226.02101,"994,49999-0090-15 ",.02)
 ;;49999-0090-15
 ;;9002226.02101,"994,49999-0090-20 ",.01)
 ;;49999-0090-20
 ;;9002226.02101,"994,49999-0090-20 ",.02)
 ;;49999-0090-20
 ;;9002226.02101,"994,49999-0090-30 ",.01)
 ;;49999-0090-30
 ;;9002226.02101,"994,49999-0090-30 ",.02)
 ;;49999-0090-30
 ;;9002226.02101,"994,49999-0090-60 ",.01)
 ;;49999-0090-60
 ;;9002226.02101,"994,49999-0090-60 ",.02)
 ;;49999-0090-60
 ;;9002226.02101,"994,49999-0091-04 ",.01)
 ;;49999-0091-04
 ;;9002226.02101,"994,49999-0091-04 ",.02)
 ;;49999-0091-04
 ;;9002226.02101,"994,49999-0091-15 ",.01)
 ;;49999-0091-15
 ;;9002226.02101,"994,49999-0091-15 ",.02)
 ;;49999-0091-15
 ;;9002226.02101,"994,49999-0091-20 ",.01)
 ;;49999-0091-20
 ;;9002226.02101,"994,49999-0091-20 ",.02)
 ;;49999-0091-20
 ;;9002226.02101,"994,49999-0091-30 ",.01)
 ;;49999-0091-30
 ;;9002226.02101,"994,49999-0091-30 ",.02)
 ;;49999-0091-30
 ;;9002226.02101,"994,49999-0091-60 ",.01)
 ;;49999-0091-60
 ;;9002226.02101,"994,49999-0091-60 ",.02)
 ;;49999-0091-60
 ;;9002226.02101,"994,49999-0152-04 ",.01)
 ;;49999-0152-04
 ;;9002226.02101,"994,49999-0152-04 ",.02)
 ;;49999-0152-04
 ;;9002226.02101,"994,49999-0247-04 ",.01)
 ;;49999-0247-04
 ;;9002226.02101,"994,49999-0247-04 ",.02)
 ;;49999-0247-04
 ;;9002226.02101,"994,49999-0262-04 ",.01)
 ;;49999-0262-04
 ;;9002226.02101,"994,49999-0262-04 ",.02)
 ;;49999-0262-04
 ;;9002226.02101,"994,49999-0269-06 ",.01)
 ;;49999-0269-06
 ;;9002226.02101,"994,49999-0269-06 ",.02)
 ;;49999-0269-06
 ;;9002226.02101,"994,49999-0314-04 ",.01)
 ;;49999-0314-04
 ;;9002226.02101,"994,49999-0314-04 ",.02)
 ;;49999-0314-04
 ;;9002226.02101,"994,49999-0326-04 ",.01)
 ;;49999-0326-04
 ;;9002226.02101,"994,49999-0326-04 ",.02)
 ;;49999-0326-04
 ;;9002226.02101,"994,49999-0493-18 ",.01)
 ;;49999-0493-18
 ;;9002226.02101,"994,49999-0493-18 ",.02)
 ;;49999-0493-18
 ;;9002226.02101,"994,49999-0594-05 ",.01)
 ;;49999-0594-05
 ;;9002226.02101,"994,49999-0594-05 ",.02)
 ;;49999-0594-05
 ;;9002226.02101,"994,49999-0594-30 ",.01)
 ;;49999-0594-30
 ;;9002226.02101,"994,49999-0594-30 ",.02)
 ;;49999-0594-30
 ;;9002226.02101,"994,49999-0594-90 ",.01)
 ;;49999-0594-90
 ;;9002226.02101,"994,49999-0594-90 ",.02)
 ;;49999-0594-90
 ;;9002226.02101,"994,49999-0657-04 ",.01)
 ;;49999-0657-04
 ;;9002226.02101,"994,49999-0657-04 ",.02)
 ;;49999-0657-04
 ;;9002226.02101,"994,49999-0902-20 ",.01)
 ;;49999-0902-20
 ;;9002226.02101,"994,49999-0902-20 ",.02)
 ;;49999-0902-20
 ;;9002226.02101,"994,50111-0307-01 ",.01)
 ;;50111-0307-01
 ;;9002226.02101,"994,50111-0307-01 ",.02)
 ;;50111-0307-01
 ;;9002226.02101,"994,50111-0307-02 ",.01)
 ;;50111-0307-02
 ;;9002226.02101,"994,50111-0307-02 ",.02)
 ;;50111-0307-02
 ;;9002226.02101,"994,50111-0307-03 ",.01)
 ;;50111-0307-03
 ;;9002226.02101,"994,50111-0307-03 ",.02)
 ;;50111-0307-03
 ;;9002226.02101,"994,50111-0308-01 ",.01)
 ;;50111-0308-01
 ;;9002226.02101,"994,50111-0308-01 ",.02)
 ;;50111-0308-01
 ;;9002226.02101,"994,50111-0308-02 ",.01)
 ;;50111-0308-02
 ;;9002226.02101,"994,50111-0308-02 ",.02)
 ;;50111-0308-02
 ;;9002226.02101,"994,50111-0308-03 ",.01)
 ;;50111-0308-03
 ;;9002226.02101,"994,50111-0308-03 ",.02)
 ;;50111-0308-03
 ;;9002226.02101,"994,50111-0309-01 ",.01)
 ;;50111-0309-01
 ;;9002226.02101,"994,50111-0309-01 ",.02)
 ;;50111-0309-01
 ;;9002226.02101,"994,50111-0309-02 ",.01)
 ;;50111-0309-02
 ;;9002226.02101,"994,50111-0309-02 ",.02)
 ;;50111-0309-02
 ;;9002226.02101,"994,50111-0309-03 ",.01)
 ;;50111-0309-03
 ;;9002226.02101,"994,50111-0309-03 ",.02)
 ;;50111-0309-03
 ;;9002226.02101,"994,50111-0314-01 ",.01)
 ;;50111-0314-01
 ;;9002226.02101,"994,50111-0314-01 ",.02)
 ;;50111-0314-01
 ;;9002226.02101,"994,50111-0314-03 ",.01)
 ;;50111-0314-03
 ;;9002226.02101,"994,50111-0314-03 ",.02)
 ;;50111-0314-03
 ;;9002226.02101,"994,50383-0578-04 ",.01)
 ;;50383-0578-04
 ;;9002226.02101,"994,50383-0578-04 ",.02)
 ;;50383-0578-04
 ;;9002226.02101,"994,50383-0578-16 ",.01)
 ;;50383-0578-16
 ;;9002226.02101,"994,50383-0578-16 ",.02)
 ;;50383-0578-16
 ;;9002226.02101,"994,50383-0579-04 ",.01)
 ;;50383-0579-04
 ;;9002226.02101,"994,50383-0579-04 ",.02)
 ;;50383-0579-04
 ;;9002226.02101,"994,50383-0579-08 ",.01)
 ;;50383-0579-08
 ;;9002226.02101,"994,50383-0579-08 ",.02)
 ;;50383-0579-08
 ;;9002226.02101,"994,50383-0579-16 ",.01)
 ;;50383-0579-16
 ;;9002226.02101,"994,50383-0579-16 ",.02)
 ;;50383-0579-16
 ;;9002226.02101,"994,50383-0579-28 ",.01)
 ;;50383-0579-28
 ;;9002226.02101,"994,50383-0579-28 ",.02)
 ;;50383-0579-28
 ;;9002226.02101,"994,50383-0581-04 ",.01)
 ;;50383-0581-04
 ;;9002226.02101,"994,50383-0581-04 ",.02)
 ;;50383-0581-04
 ;;9002226.02101,"994,50383-0581-16 ",.01)
 ;;50383-0581-16
 ;;9002226.02101,"994,50383-0581-16 ",.02)
 ;;50383-0581-16
 ;;9002226.02101,"994,50383-0796-16 ",.01)
 ;;50383-0796-16