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

BGP13D20.m

Go to the documentation of this file.
  1. BGP13D20 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 14, 2011 ;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
  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,"994,57866-3874-01 ",.01)
  1. ;;57866-3874-01
  1. ;;9002226.02101,"994,57866-3874-01 ",.02)
  1. ;;57866-3874-01
  1. ;;9002226.02101,"994,57866-3874-03 ",.01)
  1. ;;57866-3874-03
  1. ;;9002226.02101,"994,57866-3874-03 ",.02)
  1. ;;57866-3874-03
  1. ;;9002226.02101,"994,57866-3874-04 ",.01)
  1. ;;57866-3874-04
  1. ;;9002226.02101,"994,57866-3874-04 ",.02)
  1. ;;57866-3874-04
  1. ;;9002226.02101,"994,57866-3874-06 ",.01)
  1. ;;57866-3874-06
  1. ;;9002226.02101,"994,57866-3874-06 ",.02)
  1. ;;57866-3874-06
  1. ;;9002226.02101,"994,57866-3875-01 ",.01)
  1. ;;57866-3875-01
  1. ;;9002226.02101,"994,57866-3875-01 ",.02)
  1. ;;57866-3875-01
  1. ;;9002226.02101,"994,57866-3875-04 ",.01)
  1. ;;57866-3875-04
  1. ;;9002226.02101,"994,57866-3875-04 ",.02)
  1. ;;57866-3875-04
  1. ;;9002226.02101,"994,57866-3876-02 ",.01)
  1. ;;57866-3876-02
  1. ;;9002226.02101,"994,57866-3876-02 ",.02)
  1. ;;57866-3876-02
  1. ;;9002226.02101,"994,57866-3876-03 ",.01)
  1. ;;57866-3876-03
  1. ;;9002226.02101,"994,57866-3876-03 ",.02)
  1. ;;57866-3876-03
  1. ;;9002226.02101,"994,57866-3876-04 ",.01)
  1. ;;57866-3876-04
  1. ;;9002226.02101,"994,57866-3876-04 ",.02)
  1. ;;57866-3876-04
  1. ;;9002226.02101,"994,57866-3893-01 ",.01)
  1. ;;57866-3893-01
  1. ;;9002226.02101,"994,57866-3893-01 ",.02)
  1. ;;57866-3893-01
  1. ;;9002226.02101,"994,57866-3893-02 ",.01)
  1. ;;57866-3893-02
  1. ;;9002226.02101,"994,57866-3893-02 ",.02)
  1. ;;57866-3893-02
  1. ;;9002226.02101,"994,57866-3893-03 ",.01)
  1. ;;57866-3893-03
  1. ;;9002226.02101,"994,57866-3893-03 ",.02)
  1. ;;57866-3893-03
  1. ;;9002226.02101,"994,57866-3894-01 ",.01)
  1. ;;57866-3894-01
  1. ;;9002226.02101,"994,57866-3894-01 ",.02)
  1. ;;57866-3894-01
  1. ;;9002226.02101,"994,57866-3894-02 ",.01)
  1. ;;57866-3894-02
  1. ;;9002226.02101,"994,57866-3894-02 ",.02)
  1. ;;57866-3894-02
  1. ;;9002226.02101,"994,57866-3894-03 ",.01)
  1. ;;57866-3894-03
  1. ;;9002226.02101,"994,57866-3894-03 ",.02)
  1. ;;57866-3894-03
  1. ;;9002226.02101,"994,57866-4379-01 ",.01)
  1. ;;57866-4379-01
  1. ;;9002226.02101,"994,57866-4379-01 ",.02)
  1. ;;57866-4379-01
  1. ;;9002226.02101,"994,57866-4379-02 ",.01)
  1. ;;57866-4379-02
  1. ;;9002226.02101,"994,57866-4379-02 ",.02)
  1. ;;57866-4379-02
  1. ;;9002226.02101,"994,57866-4379-04 ",.01)
  1. ;;57866-4379-04
  1. ;;9002226.02101,"994,57866-4379-04 ",.02)
  1. ;;57866-4379-04
  1. ;;9002226.02101,"994,57866-4379-06 ",.01)
  1. ;;57866-4379-06
  1. ;;9002226.02101,"994,57866-4379-06 ",.02)
  1. ;;57866-4379-06
  1. ;;9002226.02101,"994,57866-4379-07 ",.01)
  1. ;;57866-4379-07
  1. ;;9002226.02101,"994,57866-4379-07 ",.02)
  1. ;;57866-4379-07
  1. ;;9002226.02101,"994,57866-4379-08 ",.01)
  1. ;;57866-4379-08
  1. ;;9002226.02101,"994,57866-4379-08 ",.02)
  1. ;;57866-4379-08
  1. ;;9002226.02101,"994,57896-0224-01 ",.01)
  1. ;;57896-0224-01
  1. ;;9002226.02101,"994,57896-0224-01 ",.02)
  1. ;;57896-0224-01
  1. ;;9002226.02101,"994,57896-0224-05 ",.01)
  1. ;;57896-0224-05
  1. ;;9002226.02101,"994,57896-0224-05 ",.02)
  1. ;;57896-0224-05
  1. ;;9002226.02101,"994,58016-0041-00 ",.01)
  1. ;;58016-0041-00
  1. ;;9002226.02101,"994,58016-0041-00 ",.02)
  1. ;;58016-0041-00
  1. ;;9002226.02101,"994,58016-0041-30 ",.01)
  1. ;;58016-0041-30
  1. ;;9002226.02101,"994,58016-0041-30 ",.02)
  1. ;;58016-0041-30
  1. ;;9002226.02101,"994,58016-0041-60 ",.01)
  1. ;;58016-0041-60
  1. ;;9002226.02101,"994,58016-0041-60 ",.02)
  1. ;;58016-0041-60
  1. ;;9002226.02101,"994,58016-0041-90 ",.01)
  1. ;;58016-0041-90
  1. ;;9002226.02101,"994,58016-0041-90 ",.02)
  1. ;;58016-0041-90
  1. ;;9002226.02101,"994,58016-0259-00 ",.01)
  1. ;;58016-0259-00
  1. ;;9002226.02101,"994,58016-0259-00 ",.02)
  1. ;;58016-0259-00
  1. ;;9002226.02101,"994,58016-0259-02 ",.01)
  1. ;;58016-0259-02
  1. ;;9002226.02101,"994,58016-0259-02 ",.02)
  1. ;;58016-0259-02
  1. ;;9002226.02101,"994,58016-0259-10 ",.01)
  1. ;;58016-0259-10
  1. ;;9002226.02101,"994,58016-0259-10 ",.02)
  1. ;;58016-0259-10
  1. ;;9002226.02101,"994,58016-0259-20 ",.01)
  1. ;;58016-0259-20
  1. ;;9002226.02101,"994,58016-0259-20 ",.02)
  1. ;;58016-0259-20
  1. ;;9002226.02101,"994,58016-0259-30 ",.01)
  1. ;;58016-0259-30
  1. ;;9002226.02101,"994,58016-0259-30 ",.02)
  1. ;;58016-0259-30
  1. ;;9002226.02101,"994,58016-0259-50 ",.01)
  1. ;;58016-0259-50
  1. ;;9002226.02101,"994,58016-0259-50 ",.02)
  1. ;;58016-0259-50
  1. ;;9002226.02101,"994,58016-0259-60 ",.01)
  1. ;;58016-0259-60
  1. ;;9002226.02101,"994,58016-0259-60 ",.02)
  1. ;;58016-0259-60
  1. ;;9002226.02101,"994,58016-0259-90 ",.01)
  1. ;;58016-0259-90
  1. ;;9002226.02101,"994,58016-0259-90 ",.02)
  1. ;;58016-0259-90
  1. ;;9002226.02101,"994,58016-0390-01 ",.01)
  1. ;;58016-0390-01
  1. ;;9002226.02101,"994,58016-0390-01 ",.02)
  1. ;;58016-0390-01
  1. ;;9002226.02101,"994,58016-0405-00 ",.01)
  1. ;;58016-0405-00
  1. ;;9002226.02101,"994,58016-0405-00 ",.02)
  1. ;;58016-0405-00
  1. ;;9002226.02101,"994,58016-0405-06 ",.01)
  1. ;;58016-0405-06
  1. ;;9002226.02101,"994,58016-0405-06 ",.02)
  1. ;;58016-0405-06
  1. ;;9002226.02101,"994,58016-0405-15 ",.01)
  1. ;;58016-0405-15
  1. ;;9002226.02101,"994,58016-0405-15 ",.02)
  1. ;;58016-0405-15
  1. ;;9002226.02101,"994,58016-0405-20 ",.01)
  1. ;;58016-0405-20
  1. ;;9002226.02101,"994,58016-0405-20 ",.02)
  1. ;;58016-0405-20
  1. ;;9002226.02101,"994,58016-0405-30 ",.01)
  1. ;;58016-0405-30
  1. ;;9002226.02101,"994,58016-0405-30 ",.02)
  1. ;;58016-0405-30
  1. ;;9002226.02101,"994,58016-0406-00 ",.01)
  1. ;;58016-0406-00
  1. ;;9002226.02101,"994,58016-0406-00 ",.02)
  1. ;;58016-0406-00
  1. ;;9002226.02101,"994,58016-0406-12 ",.01)
  1. ;;58016-0406-12
  1. ;;9002226.02101,"994,58016-0406-12 ",.02)
  1. ;;58016-0406-12
  1. ;;9002226.02101,"994,58016-0406-15 ",.01)
  1. ;;58016-0406-15
  1. ;;9002226.02101,"994,58016-0406-15 ",.02)
  1. ;;58016-0406-15
  1. ;;9002226.02101,"994,58016-0406-20 ",.01)
  1. ;;58016-0406-20
  1. ;;9002226.02101,"994,58016-0406-20 ",.02)
  1. ;;58016-0406-20
  1. ;;9002226.02101,"994,58016-0406-30 ",.01)
  1. ;;58016-0406-30
  1. ;;9002226.02101,"994,58016-0406-30 ",.02)
  1. ;;58016-0406-30
  1. ;;9002226.02101,"994,58016-0406-40 ",.01)
  1. ;;58016-0406-40
  1. ;;9002226.02101,"994,58016-0406-40 ",.02)
  1. ;;58016-0406-40
  1. ;;9002226.02101,"994,58016-0406-60 ",.01)
  1. ;;58016-0406-60
  1. ;;9002226.02101,"994,58016-0406-60 ",.02)
  1. ;;58016-0406-60
  1. ;;9002226.02101,"994,58016-0408-00 ",.01)
  1. ;;58016-0408-00
  1. ;;9002226.02101,"994,58016-0408-00 ",.02)
  1. ;;58016-0408-00
  1. ;;9002226.02101,"994,58016-0408-06 ",.01)
  1. ;;58016-0408-06
  1. ;;9002226.02101,"994,58016-0408-06 ",.02)
  1. ;;58016-0408-06
  1. ;;9002226.02101,"994,58016-0408-09 ",.01)
  1. ;;58016-0408-09
  1. ;;9002226.02101,"994,58016-0408-09 ",.02)
  1. ;;58016-0408-09
  1. ;;9002226.02101,"994,58016-0408-10 ",.01)
  1. ;;58016-0408-10
  1. ;;9002226.02101,"994,58016-0408-10 ",.02)
  1. ;;58016-0408-10
  1. ;;9002226.02101,"994,58016-0408-12 ",.01)
  1. ;;58016-0408-12
  1. ;;9002226.02101,"994,58016-0408-12 ",.02)
  1. ;;58016-0408-12
  1. ;;9002226.02101,"994,58016-0408-14 ",.01)
  1. ;;58016-0408-14
  1. ;;9002226.02101,"994,58016-0408-14 ",.02)
  1. ;;58016-0408-14
  1. ;;9002226.02101,"994,58016-0408-15 ",.01)
  1. ;;58016-0408-15
  1. ;;9002226.02101,"994,58016-0408-15 ",.02)
  1. ;;58016-0408-15
  1. ;;9002226.02101,"994,58016-0408-20 ",.01)
  1. ;;58016-0408-20
  1. ;;9002226.02101,"994,58016-0408-20 ",.02)
  1. ;;58016-0408-20
  1. ;;9002226.02101,"994,58016-0408-21 ",.01)
  1. ;;58016-0408-21
  1. ;;9002226.02101,"994,58016-0408-21 ",.02)
  1. ;;58016-0408-21
  1. ;;9002226.02101,"994,58016-0408-24 ",.01)
  1. ;;58016-0408-24
  1. ;;9002226.02101,"994,58016-0408-24 ",.02)
  1. ;;58016-0408-24
  1. ;;9002226.02101,"994,58016-0408-25 ",.01)
  1. ;;58016-0408-25
  1. ;;9002226.02101,"994,58016-0408-25 ",.02)
  1. ;;58016-0408-25
  1. ;;9002226.02101,"994,58016-0408-28 ",.01)
  1. ;;58016-0408-28
  1. ;;9002226.02101,"994,58016-0408-28 ",.02)
  1. ;;58016-0408-28
  1. ;;9002226.02101,"994,58016-0408-30 ",.01)
  1. ;;58016-0408-30
  1. ;;9002226.02101,"994,58016-0408-30 ",.02)
  1. ;;58016-0408-30
  1. ;;9002226.02101,"994,58016-0408-40 ",.01)
  1. ;;58016-0408-40
  1. ;;9002226.02101,"994,58016-0408-40 ",.02)
  1. ;;58016-0408-40
  1. ;;9002226.02101,"994,58016-0408-60 ",.01)
  1. ;;58016-0408-60
  1. ;;9002226.02101,"994,58016-0408-60 ",.02)
  1. ;;58016-0408-60
  1. ;;9002226.02101,"994,58016-0409-00 ",.01)
  1. ;;58016-0409-00
  1. ;;9002226.02101,"994,58016-0409-00 ",.02)
  1. ;;58016-0409-00
  1. ;;9002226.02101,"994,58016-0409-10 ",.01)
  1. ;;58016-0409-10
  1. ;;9002226.02101,"994,58016-0409-10 ",.02)
  1. ;;58016-0409-10
  1. ;;9002226.02101,"994,58016-0409-12 ",.01)
  1. ;;58016-0409-12
  1. ;;9002226.02101,"994,58016-0409-12 ",.02)
  1. ;;58016-0409-12
  1. ;;9002226.02101,"994,58016-0409-15 ",.01)
  1. ;;58016-0409-15
  1. ;;9002226.02101,"994,58016-0409-15 ",.02)
  1. ;;58016-0409-15
  1. ;;9002226.02101,"994,58016-0409-20 ",.01)
  1. ;;58016-0409-20
  1. ;;9002226.02101,"994,58016-0409-20 ",.02)
  1. ;;58016-0409-20
  1. ;;9002226.02101,"994,58016-0409-24 ",.01)
  1. ;;58016-0409-24
  1. ;;9002226.02101,"994,58016-0409-24 ",.02)
  1. ;;58016-0409-24
  1. ;;9002226.02101,"994,58016-0409-30 ",.01)
  1. ;;58016-0409-30
  1. ;;9002226.02101,"994,58016-0409-30 ",.02)
  1. ;;58016-0409-30
  1. ;;9002226.02101,"994,58016-0409-40 ",.01)
  1. ;;58016-0409-40
  1. ;;9002226.02101,"994,58016-0409-40 ",.02)
  1. ;;58016-0409-40
  1. ;;9002226.02101,"994,58016-0409-60 ",.01)
  1. ;;58016-0409-60
  1. ;;9002226.02101,"994,58016-0409-60 ",.02)
  1. ;;58016-0409-60
  1. ;;9002226.02101,"994,58016-0409-90 ",.01)
  1. ;;58016-0409-90
  1. ;;9002226.02101,"994,58016-0409-90 ",.02)
  1. ;;58016-0409-90
  1. ;;9002226.02101,"994,58016-0424-00 ",.01)
  1. ;;58016-0424-00
  1. ;;9002226.02101,"994,58016-0424-00 ",.02)
  1. ;;58016-0424-00
  1. ;;9002226.02101,"994,58016-0424-02 ",.01)
  1. ;;58016-0424-02
  1. ;;9002226.02101,"994,58016-0424-02 ",.02)
  1. ;;58016-0424-02
  1. ;;9002226.02101,"994,58016-0424-03 ",.01)
  1. ;;58016-0424-03
  1. ;;9002226.02101,"994,58016-0424-03 ",.02)
  1. ;;58016-0424-03
  1. ;;9002226.02101,"994,58016-0424-10 ",.01)
  1. ;;58016-0424-10
  1. ;;9002226.02101,"994,58016-0424-10 ",.02)
  1. ;;58016-0424-10
  1. ;;9002226.02101,"994,58016-0424-12 ",.01)
  1. ;;58016-0424-12
  1. ;;9002226.02101,"994,58016-0424-12 ",.02)
  1. ;;58016-0424-12
  1. ;;9002226.02101,"994,58016-0424-15 ",.01)
  1. ;;58016-0424-15
  1. ;;9002226.02101,"994,58016-0424-15 ",.02)
  1. ;;58016-0424-15
  1. ;;9002226.02101,"994,58016-0424-20 ",.01)
  1. ;;58016-0424-20
  1. ;;9002226.02101,"994,58016-0424-20 ",.02)
  1. ;;58016-0424-20
  1. ;;9002226.02101,"994,58016-0424-30 ",.01)
  1. ;;58016-0424-30
  1. ;;9002226.02101,"994,58016-0424-30 ",.02)
  1. ;;58016-0424-30
  1. ;;9002226.02101,"994,58016-0424-50 ",.01)
  1. ;;58016-0424-50
  1. ;;9002226.02101,"994,58016-0424-50 ",.02)
  1. ;;58016-0424-50
  1. ;;9002226.02101,"994,58016-0424-60 ",.01)
  1. ;;58016-0424-60
  1. ;;9002226.02101,"994,58016-0424-60 ",.02)
  1. ;;58016-0424-60
  1. ;;9002226.02101,"994,58016-0424-73 ",.01)
  1. ;;58016-0424-73
  1. ;;9002226.02101,"994,58016-0424-73 ",.02)
  1. ;;58016-0424-73
  1. ;;9002226.02101,"994,58016-0424-89 ",.01)
  1. ;;58016-0424-89
  1. ;;9002226.02101,"994,58016-0424-89 ",.02)
  1. ;;58016-0424-89
  1. ;;9002226.02101,"994,58016-0424-90 ",.01)
  1. ;;58016-0424-90
  1. ;;9002226.02101,"994,58016-0424-90 ",.02)
  1. ;;58016-0424-90
  1. ;;9002226.02101,"994,58016-0452-00 ",.01)
  1. ;;58016-0452-00
  1. ;;9002226.02101,"994,58016-0452-00 ",.02)
  1. ;;58016-0452-00
  1. ;;9002226.02101,"994,58016-0452-20 ",.01)
  1. ;;58016-0452-20
  1. ;;9002226.02101,"994,58016-0452-20 ",.02)
  1. ;;58016-0452-20
  1. ;;9002226.02101,"994,58016-0452-30 ",.01)
  1. ;;58016-0452-30
  1. ;;9002226.02101,"994,58016-0452-30 ",.02)
  1. ;;58016-0452-30
  1. ;;9002226.02101,"994,58016-0464-10 ",.01)
  1. ;;58016-0464-10
  1. ;;9002226.02101,"994,58016-0464-10 ",.02)
  1. ;;58016-0464-10
  1. ;;9002226.02101,"994,58016-0464-15 ",.01)
  1. ;;58016-0464-15
  1. ;;9002226.02101,"994,58016-0464-15 ",.02)
  1. ;;58016-0464-15
  1. ;;9002226.02101,"994,58016-0464-20 ",.01)
  1. ;;58016-0464-20
  1. ;;9002226.02101,"994,58016-0464-20 ",.02)
  1. ;;58016-0464-20
  1. ;;9002226.02101,"994,58016-0464-30 ",.01)
  1. ;;58016-0464-30
  1. ;;9002226.02101,"994,58016-0464-30 ",.02)
  1. ;;58016-0464-30
  1. ;;9002226.02101,"994,58016-4016-01 ",.01)
  1. ;;58016-4016-01
  1. ;;9002226.02101,"994,58016-4016-01 ",.02)
  1. ;;58016-4016-01
  1. ;;9002226.02101,"994,58016-4845-01 ",.01)
  1. ;;58016-4845-01
  1. ;;9002226.02101,"994,58016-4845-01 ",.02)
  1. ;;58016-4845-01
  1. ;;9002226.02101,"994,58864-0045-20 ",.01)
  1. ;;58864-0045-20
  1. ;;9002226.02101,"994,58864-0045-20 ",.02)
  1. ;;58864-0045-20
  1. ;;9002226.02101,"994,58864-0045-30 ",.01)
  1. ;;58864-0045-30
  1. ;;9002226.02101,"994,58864-0045-30 ",.02)
  1. ;;58864-0045-30
  1. ;;9002226.02101,"994,58864-0045-42 ",.01)
  1. ;;58864-0045-42
  1. ;;9002226.02101,"994,58864-0045-42 ",.02)
  1. ;;58864-0045-42
  1. ;;9002226.02101,"994,58864-0045-60 ",.01)
  1. ;;58864-0045-60
  1. ;;9002226.02101,"994,58864-0045-60 ",.02)
  1. ;;58864-0045-60
  1. ;;9002226.02101,"994,58864-0162-30 ",.01)
  1. ;;58864-0162-30
  1. ;;9002226.02101,"994,58864-0162-30 ",.02)
  1. ;;58864-0162-30
  1. ;;9002226.02101,"994,58864-0162-56 ",.01)
  1. ;;58864-0162-56
  1. ;;9002226.02101,"994,58864-0162-56 ",.02)
  1. ;;58864-0162-56
  1. ;;9002226.02101,"994,58864-0162-60 ",.01)
  1. ;;58864-0162-60
  1. ;;9002226.02101,"994,58864-0162-60 ",.02)
  1. ;;58864-0162-60
  1. ;;9002226.02101,"994,58864-0761-10 ",.01)
  1. ;;58864-0761-10
  1. ;;9002226.02101,"994,58864-0761-10 ",.02)
  1. ;;58864-0761-10
  1. ;;9002226.02101,"994,59390-0065-35 ",.01)
  1. ;;59390-0065-35