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

BGP06D19.m

Go to the documentation of this file.
BGP06D19 ;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,57866-3762-05 ",.01)
 ;;57866-3762-05
 ;;9002226.02101,"978,57866-3762-05 ",.02)
 ;;57866-3762-05
 ;;9002226.02101,"978,57866-3874-01 ",.01)
 ;;57866-3874-01
 ;;9002226.02101,"978,57866-3874-01 ",.02)
 ;;57866-3874-01
 ;;9002226.02101,"978,57866-3874-03 ",.01)
 ;;57866-3874-03
 ;;9002226.02101,"978,57866-3874-03 ",.02)
 ;;57866-3874-03
 ;;9002226.02101,"978,57866-3874-04 ",.01)
 ;;57866-3874-04
 ;;9002226.02101,"978,57866-3874-04 ",.02)
 ;;57866-3874-04
 ;;9002226.02101,"978,57866-3874-06 ",.01)
 ;;57866-3874-06
 ;;9002226.02101,"978,57866-3874-06 ",.02)
 ;;57866-3874-06
 ;;9002226.02101,"978,57866-3875-01 ",.01)
 ;;57866-3875-01
 ;;9002226.02101,"978,57866-3875-01 ",.02)
 ;;57866-3875-01
 ;;9002226.02101,"978,57866-3875-04 ",.01)
 ;;57866-3875-04
 ;;9002226.02101,"978,57866-3875-04 ",.02)
 ;;57866-3875-04
 ;;9002226.02101,"978,57866-3876-02 ",.01)
 ;;57866-3876-02
 ;;9002226.02101,"978,57866-3876-02 ",.02)
 ;;57866-3876-02
 ;;9002226.02101,"978,57866-3876-03 ",.01)
 ;;57866-3876-03
 ;;9002226.02101,"978,57866-3876-03 ",.02)
 ;;57866-3876-03
 ;;9002226.02101,"978,57866-3876-04 ",.01)
 ;;57866-3876-04
 ;;9002226.02101,"978,57866-3876-04 ",.02)
 ;;57866-3876-04
 ;;9002226.02101,"978,57866-3893-01 ",.01)
 ;;57866-3893-01
 ;;9002226.02101,"978,57866-3893-01 ",.02)
 ;;57866-3893-01
 ;;9002226.02101,"978,57866-3893-02 ",.01)
 ;;57866-3893-02
 ;;9002226.02101,"978,57866-3893-02 ",.02)
 ;;57866-3893-02
 ;;9002226.02101,"978,57866-3893-03 ",.01)
 ;;57866-3893-03
 ;;9002226.02101,"978,57866-3893-03 ",.02)
 ;;57866-3893-03
 ;;9002226.02101,"978,57866-3894-01 ",.01)
 ;;57866-3894-01
 ;;9002226.02101,"978,57866-3894-01 ",.02)
 ;;57866-3894-01
 ;;9002226.02101,"978,57866-3894-02 ",.01)
 ;;57866-3894-02
 ;;9002226.02101,"978,57866-3894-02 ",.02)
 ;;57866-3894-02
 ;;9002226.02101,"978,57866-3894-03 ",.01)
 ;;57866-3894-03
 ;;9002226.02101,"978,57866-3894-03 ",.02)
 ;;57866-3894-03
 ;;9002226.02101,"978,57866-4328-03 ",.01)
 ;;57866-4328-03
 ;;9002226.02101,"978,57866-4328-03 ",.02)
 ;;57866-4328-03
 ;;9002226.02101,"978,57866-4379-01 ",.01)
 ;;57866-4379-01
 ;;9002226.02101,"978,57866-4379-01 ",.02)
 ;;57866-4379-01
 ;;9002226.02101,"978,57866-4379-02 ",.01)
 ;;57866-4379-02
 ;;9002226.02101,"978,57866-4379-02 ",.02)
 ;;57866-4379-02
 ;;9002226.02101,"978,57866-4379-04 ",.01)
 ;;57866-4379-04
 ;;9002226.02101,"978,57866-4379-04 ",.02)
 ;;57866-4379-04
 ;;9002226.02101,"978,57866-4379-06 ",.01)
 ;;57866-4379-06
 ;;9002226.02101,"978,57866-4379-06 ",.02)
 ;;57866-4379-06
 ;;9002226.02101,"978,57866-4379-07 ",.01)
 ;;57866-4379-07
 ;;9002226.02101,"978,57866-4379-07 ",.02)
 ;;57866-4379-07
 ;;9002226.02101,"978,57866-4379-08 ",.01)
 ;;57866-4379-08
 ;;9002226.02101,"978,57866-4379-08 ",.02)
 ;;57866-4379-08
 ;;9002226.02101,"978,58016-0041-00 ",.01)
 ;;58016-0041-00
 ;;9002226.02101,"978,58016-0041-00 ",.02)
 ;;58016-0041-00
 ;;9002226.02101,"978,58016-0041-30 ",.01)
 ;;58016-0041-30
 ;;9002226.02101,"978,58016-0041-30 ",.02)
 ;;58016-0041-30
 ;;9002226.02101,"978,58016-0041-60 ",.01)
 ;;58016-0041-60
 ;;9002226.02101,"978,58016-0041-60 ",.02)
 ;;58016-0041-60
 ;;9002226.02101,"978,58016-0041-90 ",.01)
 ;;58016-0041-90
 ;;9002226.02101,"978,58016-0041-90 ",.02)
 ;;58016-0041-90
 ;;9002226.02101,"978,58016-0259-00 ",.01)
 ;;58016-0259-00
 ;;9002226.02101,"978,58016-0259-00 ",.02)
 ;;58016-0259-00
 ;;9002226.02101,"978,58016-0259-02 ",.01)
 ;;58016-0259-02
 ;;9002226.02101,"978,58016-0259-02 ",.02)
 ;;58016-0259-02
 ;;9002226.02101,"978,58016-0259-10 ",.01)
 ;;58016-0259-10
 ;;9002226.02101,"978,58016-0259-10 ",.02)
 ;;58016-0259-10
 ;;9002226.02101,"978,58016-0259-20 ",.01)
 ;;58016-0259-20
 ;;9002226.02101,"978,58016-0259-20 ",.02)
 ;;58016-0259-20
 ;;9002226.02101,"978,58016-0259-30 ",.01)
 ;;58016-0259-30
 ;;9002226.02101,"978,58016-0259-30 ",.02)
 ;;58016-0259-30
 ;;9002226.02101,"978,58016-0259-50 ",.01)
 ;;58016-0259-50
 ;;9002226.02101,"978,58016-0259-50 ",.02)
 ;;58016-0259-50
 ;;9002226.02101,"978,58016-0259-60 ",.01)
 ;;58016-0259-60
 ;;9002226.02101,"978,58016-0259-60 ",.02)
 ;;58016-0259-60
 ;;9002226.02101,"978,58016-0259-90 ",.01)
 ;;58016-0259-90
 ;;9002226.02101,"978,58016-0259-90 ",.02)
 ;;58016-0259-90
 ;;9002226.02101,"978,58016-0283-00 ",.01)
 ;;58016-0283-00
 ;;9002226.02101,"978,58016-0283-00 ",.02)
 ;;58016-0283-00
 ;;9002226.02101,"978,58016-0283-02 ",.01)
 ;;58016-0283-02
 ;;9002226.02101,"978,58016-0283-02 ",.02)
 ;;58016-0283-02
 ;;9002226.02101,"978,58016-0283-30 ",.01)
 ;;58016-0283-30
 ;;9002226.02101,"978,58016-0283-30 ",.02)
 ;;58016-0283-30
 ;;9002226.02101,"978,58016-0283-60 ",.01)
 ;;58016-0283-60
 ;;9002226.02101,"978,58016-0283-60 ",.02)
 ;;58016-0283-60
 ;;9002226.02101,"978,58016-0283-90 ",.01)
 ;;58016-0283-90
 ;;9002226.02101,"978,58016-0283-90 ",.02)
 ;;58016-0283-90
 ;;9002226.02101,"978,58016-0390-01 ",.01)
 ;;58016-0390-01
 ;;9002226.02101,"978,58016-0390-01 ",.02)
 ;;58016-0390-01
 ;;9002226.02101,"978,58016-0405-00 ",.01)
 ;;58016-0405-00
 ;;9002226.02101,"978,58016-0405-00 ",.02)
 ;;58016-0405-00
 ;;9002226.02101,"978,58016-0405-06 ",.01)
 ;;58016-0405-06
 ;;9002226.02101,"978,58016-0405-06 ",.02)
 ;;58016-0405-06
 ;;9002226.02101,"978,58016-0405-10 ",.01)
 ;;58016-0405-10
 ;;9002226.02101,"978,58016-0405-10 ",.02)
 ;;58016-0405-10
 ;;9002226.02101,"978,58016-0405-15 ",.01)
 ;;58016-0405-15
 ;;9002226.02101,"978,58016-0405-15 ",.02)
 ;;58016-0405-15
 ;;9002226.02101,"978,58016-0405-20 ",.01)
 ;;58016-0405-20
 ;;9002226.02101,"978,58016-0405-20 ",.02)
 ;;58016-0405-20
 ;;9002226.02101,"978,58016-0405-30 ",.01)
 ;;58016-0405-30
 ;;9002226.02101,"978,58016-0405-30 ",.02)
 ;;58016-0405-30
 ;;9002226.02101,"978,58016-0406-00 ",.01)
 ;;58016-0406-00
 ;;9002226.02101,"978,58016-0406-00 ",.02)
 ;;58016-0406-00
 ;;9002226.02101,"978,58016-0406-09 ",.01)
 ;;58016-0406-09
 ;;9002226.02101,"978,58016-0406-09 ",.02)
 ;;58016-0406-09
 ;;9002226.02101,"978,58016-0406-12 ",.01)
 ;;58016-0406-12
 ;;9002226.02101,"978,58016-0406-12 ",.02)
 ;;58016-0406-12
 ;;9002226.02101,"978,58016-0406-15 ",.01)
 ;;58016-0406-15
 ;;9002226.02101,"978,58016-0406-15 ",.02)
 ;;58016-0406-15
 ;;9002226.02101,"978,58016-0406-20 ",.01)
 ;;58016-0406-20
 ;;9002226.02101,"978,58016-0406-20 ",.02)
 ;;58016-0406-20
 ;;9002226.02101,"978,58016-0406-30 ",.01)
 ;;58016-0406-30
 ;;9002226.02101,"978,58016-0406-30 ",.02)
 ;;58016-0406-30
 ;;9002226.02101,"978,58016-0406-40 ",.01)
 ;;58016-0406-40
 ;;9002226.02101,"978,58016-0406-40 ",.02)
 ;;58016-0406-40
 ;;9002226.02101,"978,58016-0406-60 ",.01)
 ;;58016-0406-60
 ;;9002226.02101,"978,58016-0406-60 ",.02)
 ;;58016-0406-60
 ;;9002226.02101,"978,58016-0408-00 ",.01)
 ;;58016-0408-00
 ;;9002226.02101,"978,58016-0408-00 ",.02)
 ;;58016-0408-00
 ;;9002226.02101,"978,58016-0408-06 ",.01)
 ;;58016-0408-06
 ;;9002226.02101,"978,58016-0408-06 ",.02)
 ;;58016-0408-06
 ;;9002226.02101,"978,58016-0408-09 ",.01)
 ;;58016-0408-09
 ;;9002226.02101,"978,58016-0408-09 ",.02)
 ;;58016-0408-09
 ;;9002226.02101,"978,58016-0408-10 ",.01)
 ;;58016-0408-10
 ;;9002226.02101,"978,58016-0408-10 ",.02)
 ;;58016-0408-10
 ;;9002226.02101,"978,58016-0408-12 ",.01)
 ;;58016-0408-12
 ;;9002226.02101,"978,58016-0408-12 ",.02)
 ;;58016-0408-12
 ;;9002226.02101,"978,58016-0408-14 ",.01)
 ;;58016-0408-14
 ;;9002226.02101,"978,58016-0408-14 ",.02)
 ;;58016-0408-14
 ;;9002226.02101,"978,58016-0408-15 ",.01)
 ;;58016-0408-15
 ;;9002226.02101,"978,58016-0408-15 ",.02)
 ;;58016-0408-15
 ;;9002226.02101,"978,58016-0408-20 ",.01)
 ;;58016-0408-20
 ;;9002226.02101,"978,58016-0408-20 ",.02)
 ;;58016-0408-20
 ;;9002226.02101,"978,58016-0408-21 ",.01)
 ;;58016-0408-21
 ;;9002226.02101,"978,58016-0408-21 ",.02)
 ;;58016-0408-21
 ;;9002226.02101,"978,58016-0408-24 ",.01)
 ;;58016-0408-24
 ;;9002226.02101,"978,58016-0408-24 ",.02)
 ;;58016-0408-24
 ;;9002226.02101,"978,58016-0408-25 ",.01)
 ;;58016-0408-25
 ;;9002226.02101,"978,58016-0408-25 ",.02)
 ;;58016-0408-25
 ;;9002226.02101,"978,58016-0408-28 ",.01)
 ;;58016-0408-28
 ;;9002226.02101,"978,58016-0408-28 ",.02)
 ;;58016-0408-28
 ;;9002226.02101,"978,58016-0408-30 ",.01)
 ;;58016-0408-30
 ;;9002226.02101,"978,58016-0408-30 ",.02)
 ;;58016-0408-30
 ;;9002226.02101,"978,58016-0408-40 ",.01)
 ;;58016-0408-40
 ;;9002226.02101,"978,58016-0408-40 ",.02)
 ;;58016-0408-40
 ;;9002226.02101,"978,58016-0408-60 ",.01)
 ;;58016-0408-60
 ;;9002226.02101,"978,58016-0408-60 ",.02)
 ;;58016-0408-60
 ;;9002226.02101,"978,58016-0409-00 ",.01)
 ;;58016-0409-00
 ;;9002226.02101,"978,58016-0409-00 ",.02)
 ;;58016-0409-00
 ;;9002226.02101,"978,58016-0409-10 ",.01)
 ;;58016-0409-10
 ;;9002226.02101,"978,58016-0409-10 ",.02)
 ;;58016-0409-10
 ;;9002226.02101,"978,58016-0409-12 ",.01)
 ;;58016-0409-12
 ;;9002226.02101,"978,58016-0409-12 ",.02)
 ;;58016-0409-12
 ;;9002226.02101,"978,58016-0409-15 ",.01)
 ;;58016-0409-15
 ;;9002226.02101,"978,58016-0409-15 ",.02)
 ;;58016-0409-15
 ;;9002226.02101,"978,58016-0409-20 ",.01)
 ;;58016-0409-20
 ;;9002226.02101,"978,58016-0409-20 ",.02)
 ;;58016-0409-20
 ;;9002226.02101,"978,58016-0409-21 ",.01)
 ;;58016-0409-21
 ;;9002226.02101,"978,58016-0409-21 ",.02)
 ;;58016-0409-21
 ;;9002226.02101,"978,58016-0409-24 ",.01)
 ;;58016-0409-24
 ;;9002226.02101,"978,58016-0409-24 ",.02)
 ;;58016-0409-24
 ;;9002226.02101,"978,58016-0409-30 ",.01)
 ;;58016-0409-30
 ;;9002226.02101,"978,58016-0409-30 ",.02)
 ;;58016-0409-30
 ;;9002226.02101,"978,58016-0409-40 ",.01)
 ;;58016-0409-40
 ;;9002226.02101,"978,58016-0409-40 ",.02)
 ;;58016-0409-40
 ;;9002226.02101,"978,58016-0409-60 ",.01)
 ;;58016-0409-60
 ;;9002226.02101,"978,58016-0409-60 ",.02)
 ;;58016-0409-60
 ;;9002226.02101,"978,58016-0409-90 ",.01)
 ;;58016-0409-90
 ;;9002226.02101,"978,58016-0409-90 ",.02)
 ;;58016-0409-90
 ;;9002226.02101,"978,58016-0424-00 ",.01)
 ;;58016-0424-00
 ;;9002226.02101,"978,58016-0424-00 ",.02)
 ;;58016-0424-00
 ;;9002226.02101,"978,58016-0424-02 ",.01)
 ;;58016-0424-02
 ;;9002226.02101,"978,58016-0424-02 ",.02)
 ;;58016-0424-02
 ;;9002226.02101,"978,58016-0424-03 ",.01)
 ;;58016-0424-03
 ;;9002226.02101,"978,58016-0424-03 ",.02)
 ;;58016-0424-03
 ;;9002226.02101,"978,58016-0424-10 ",.01)
 ;;58016-0424-10
 ;;9002226.02101,"978,58016-0424-10 ",.02)
 ;;58016-0424-10
 ;;9002226.02101,"978,58016-0424-12 ",.01)
 ;;58016-0424-12
 ;;9002226.02101,"978,58016-0424-12 ",.02)
 ;;58016-0424-12
 ;;9002226.02101,"978,58016-0424-15 ",.01)
 ;;58016-0424-15
 ;;9002226.02101,"978,58016-0424-15 ",.02)
 ;;58016-0424-15
 ;;9002226.02101,"978,58016-0424-20 ",.01)
 ;;58016-0424-20
 ;;9002226.02101,"978,58016-0424-20 ",.02)
 ;;58016-0424-20
 ;;9002226.02101,"978,58016-0424-30 ",.01)
 ;;58016-0424-30
 ;;9002226.02101,"978,58016-0424-30 ",.02)
 ;;58016-0424-30
 ;;9002226.02101,"978,58016-0424-50 ",.01)
 ;;58016-0424-50
 ;;9002226.02101,"978,58016-0424-50 ",.02)
 ;;58016-0424-50
 ;;9002226.02101,"978,58016-0424-60 ",.01)
 ;;58016-0424-60
 ;;9002226.02101,"978,58016-0424-60 ",.02)
 ;;58016-0424-60
 ;;9002226.02101,"978,58016-0424-73 ",.01)
 ;;58016-0424-73
 ;;9002226.02101,"978,58016-0424-73 ",.02)
 ;;58016-0424-73
 ;;9002226.02101,"978,58016-0424-89 ",.01)
 ;;58016-0424-89
 ;;9002226.02101,"978,58016-0424-89 ",.02)
 ;;58016-0424-89
 ;;9002226.02101,"978,58016-0424-90 ",.01)
 ;;58016-0424-90
 ;;9002226.02101,"978,58016-0424-90 ",.02)
 ;;58016-0424-90
 ;;9002226.02101,"978,58016-0452-00 ",.01)
 ;;58016-0452-00
 ;;9002226.02101,"978,58016-0452-00 ",.02)
 ;;58016-0452-00
 ;;9002226.02101,"978,58016-0452-20 ",.01)
 ;;58016-0452-20
 ;;9002226.02101,"978,58016-0452-20 ",.02)
 ;;58016-0452-20
 ;;9002226.02101,"978,58016-0452-30 ",.01)
 ;;58016-0452-30
 ;;9002226.02101,"978,58016-0452-30 ",.02)
 ;;58016-0452-30
 ;;9002226.02101,"978,58016-0464-10 ",.01)
 ;;58016-0464-10
 ;;9002226.02101,"978,58016-0464-10 ",.02)
 ;;58016-0464-10
 ;;9002226.02101,"978,58016-0464-15 ",.01)
 ;;58016-0464-15
 ;;9002226.02101,"978,58016-0464-15 ",.02)
 ;;58016-0464-15
 ;;9002226.02101,"978,58016-0464-20 ",.01)
 ;;58016-0464-20
 ;;9002226.02101,"978,58016-0464-20 ",.02)
 ;;58016-0464-20
 ;;9002226.02101,"978,58016-0464-30 ",.01)
 ;;58016-0464-30
 ;;9002226.02101,"978,58016-0464-30 ",.02)
 ;;58016-0464-30
 ;;9002226.02101,"978,58016-0472-24 ",.01)
 ;;58016-0472-24
 ;;9002226.02101,"978,58016-0472-24 ",.02)
 ;;58016-0472-24
 ;;9002226.02101,"978,58016-0472-36 ",.01)
 ;;58016-0472-36
 ;;9002226.02101,"978,58016-0472-36 ",.02)
 ;;58016-0472-36
 ;;9002226.02101,"978,58016-4008-01 ",.01)
 ;;58016-4008-01
 ;;9002226.02101,"978,58016-4008-01 ",.02)
 ;;58016-4008-01
 ;;9002226.02101,"978,58016-4011-01 ",.01)
 ;;58016-4011-01
 ;;9002226.02101,"978,58016-4011-01 ",.02)
 ;;58016-4011-01
 ;;9002226.02101,"978,58016-4016-01 ",.01)
 ;;58016-4016-01
 ;;9002226.02101,"978,58016-4016-01 ",.02)
 ;;58016-4016-01
 ;;9002226.02101,"978,58016-4845-01 ",.01)
 ;;58016-4845-01
 ;;9002226.02101,"978,58016-4845-01 ",.02)
 ;;58016-4845-01
 ;;9002226.02101,"978,58864-0045-20 ",.01)
 ;;58864-0045-20
 ;;9002226.02101,"978,58864-0045-20 ",.02)
 ;;58864-0045-20
 ;;9002226.02101,"978,58864-0045-30 ",.01)
 ;;58864-0045-30
 ;;9002226.02101,"978,58864-0045-30 ",.02)
 ;;58864-0045-30
 ;;9002226.02101,"978,58864-0045-42 ",.01)
 ;;58864-0045-42
 ;;9002226.02101,"978,58864-0045-42 ",.02)
 ;;58864-0045-42
 ;;9002226.02101,"978,58864-0045-60 ",.01)
 ;;58864-0045-60
 ;;9002226.02101,"978,58864-0045-60 ",.02)
 ;;58864-0045-60