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

BGP82X3.m

Go to the documentation of this file.
  1. BGP82X3 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 09, 2017 ;
  1. ;;18.0;IHS CLINICAL REPORTING;;NOV 21, 2017;Build 51
  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,"1921,00440-8476-14 ",.01)
  1. ;;00440-8476-14
  1. ;;9002226.02101,"1921,00440-8476-14 ",.02)
  1. ;;00440-8476-14
  1. ;;9002226.02101,"1921,00440-8476-15 ",.01)
  1. ;;00440-8476-15
  1. ;;9002226.02101,"1921,00440-8476-15 ",.02)
  1. ;;00440-8476-15
  1. ;;9002226.02101,"1921,00440-8476-30 ",.01)
  1. ;;00440-8476-30
  1. ;;9002226.02101,"1921,00440-8476-30 ",.02)
  1. ;;00440-8476-30
  1. ;;9002226.02101,"1921,00591-0744-01 ",.01)
  1. ;;00591-0744-01
  1. ;;9002226.02101,"1921,00591-0744-01 ",.02)
  1. ;;00591-0744-01
  1. ;;9002226.02101,"1921,00591-0745-01 ",.01)
  1. ;;00591-0745-01
  1. ;;9002226.02101,"1921,00591-0745-01 ",.02)
  1. ;;00591-0745-01
  1. ;;9002226.02101,"1921,00603-5891-21 ",.01)
  1. ;;00603-5891-21
  1. ;;9002226.02101,"1921,00603-5891-21 ",.02)
  1. ;;00603-5891-21
  1. ;;9002226.02101,"1921,00603-5892-21 ",.01)
  1. ;;00603-5892-21
  1. ;;9002226.02101,"1921,00603-5892-21 ",.02)
  1. ;;00603-5892-21
  1. ;;9002226.02101,"1921,00603-5892-28 ",.01)
  1. ;;00603-5892-28
  1. ;;9002226.02101,"1921,00603-5892-28 ",.02)
  1. ;;00603-5892-28
  1. ;;9002226.02101,"1921,00603-5893-16 ",.01)
  1. ;;00603-5893-16
  1. ;;9002226.02101,"1921,00603-5893-16 ",.02)
  1. ;;00603-5893-16
  1. ;;9002226.02101,"1921,00603-5894-21 ",.01)
  1. ;;00603-5894-21
  1. ;;9002226.02101,"1921,00603-5894-21 ",.02)
  1. ;;00603-5894-21
  1. ;;9002226.02101,"1921,00603-5894-28 ",.01)
  1. ;;00603-5894-28
  1. ;;9002226.02101,"1921,00603-5894-28 ",.02)
  1. ;;00603-5894-28
  1. ;;9002226.02101,"1921,00781-2201-01 ",.01)
  1. ;;00781-2201-01
  1. ;;9002226.02101,"1921,00781-2201-01 ",.02)
  1. ;;00781-2201-01
  1. ;;9002226.02101,"1921,00781-2201-05 ",.01)
  1. ;;00781-2201-05
  1. ;;9002226.02101,"1921,00781-2201-05 ",.02)
  1. ;;00781-2201-05
  1. ;;9002226.02101,"1921,00781-2202-01 ",.01)
  1. ;;00781-2202-01
  1. ;;9002226.02101,"1921,00781-2202-01 ",.02)
  1. ;;00781-2202-01
  1. ;;9002226.02101,"1921,00781-2202-05 ",.01)
  1. ;;00781-2202-05
  1. ;;9002226.02101,"1921,00781-2202-05 ",.02)
  1. ;;00781-2202-05
  1. ;;9002226.02101,"1921,00904-6436-04 ",.01)
  1. ;;00904-6436-04
  1. ;;9002226.02101,"1921,00904-6436-04 ",.02)
  1. ;;00904-6436-04
  1. ;;9002226.02101,"1921,00904-6436-60 ",.01)
  1. ;;00904-6436-60
  1. ;;9002226.02101,"1921,00904-6436-60 ",.02)
  1. ;;00904-6436-60
  1. ;;9002226.02101,"1921,16590-0214-28 ",.01)
  1. ;;16590-0214-28
  1. ;;9002226.02101,"1921,16590-0214-28 ",.02)
  1. ;;16590-0214-28
  1. ;;9002226.02101,"1921,16590-0214-30 ",.01)
  1. ;;16590-0214-30
  1. ;;9002226.02101,"1921,16590-0214-30 ",.02)
  1. ;;16590-0214-30
  1. ;;9002226.02101,"1921,16590-0214-45 ",.01)
  1. ;;16590-0214-45
  1. ;;9002226.02101,"1921,16590-0214-45 ",.02)
  1. ;;16590-0214-45
  1. ;;9002226.02101,"1921,16590-0214-60 ",.01)
  1. ;;16590-0214-60
  1. ;;9002226.02101,"1921,16590-0214-60 ",.02)
  1. ;;16590-0214-60
  1. ;;9002226.02101,"1921,16590-0214-90 ",.01)
  1. ;;16590-0214-90
  1. ;;9002226.02101,"1921,16590-0214-90 ",.02)
  1. ;;16590-0214-90
  1. ;;9002226.02101,"1921,16590-0236-30 ",.01)
  1. ;;16590-0236-30
  1. ;;9002226.02101,"1921,16590-0236-30 ",.02)
  1. ;;16590-0236-30
  1. ;;9002226.02101,"1921,16590-0236-60 ",.01)
  1. ;;16590-0236-60
  1. ;;9002226.02101,"1921,16590-0236-60 ",.02)
  1. ;;16590-0236-60
  1. ;;9002226.02101,"1921,16590-0236-90 ",.01)
  1. ;;16590-0236-90
  1. ;;9002226.02101,"1921,16590-0236-90 ",.02)
  1. ;;16590-0236-90
  1. ;;9002226.02101,"1921,21695-0220-30 ",.01)
  1. ;;21695-0220-30
  1. ;;9002226.02101,"1921,21695-0220-30 ",.02)
  1. ;;21695-0220-30
  1. ;;9002226.02101,"1921,21695-0282-30 ",.01)
  1. ;;21695-0282-30
  1. ;;9002226.02101,"1921,21695-0282-30 ",.02)
  1. ;;21695-0282-30
  1. ;;9002226.02101,"1921,21695-0282-60 ",.01)
  1. ;;21695-0282-60
  1. ;;9002226.02101,"1921,21695-0282-60 ",.02)
  1. ;;21695-0282-60
  1. ;;9002226.02101,"1921,21695-0282-78 ",.01)
  1. ;;21695-0282-78
  1. ;;9002226.02101,"1921,21695-0282-78 ",.02)
  1. ;;21695-0282-78
  1. ;;9002226.02101,"1921,21695-0283-30 ",.01)
  1. ;;21695-0283-30
  1. ;;9002226.02101,"1921,21695-0283-30 ",.02)
  1. ;;21695-0283-30
  1. ;;9002226.02101,"1921,21695-0283-90 ",.01)
  1. ;;21695-0283-90
  1. ;;9002226.02101,"1921,21695-0283-90 ",.02)
  1. ;;21695-0283-90
  1. ;;9002226.02101,"1921,21695-0284-00 ",.01)
  1. ;;21695-0284-00
  1. ;;9002226.02101,"1921,21695-0284-00 ",.02)
  1. ;;21695-0284-00
  1. ;;9002226.02101,"1921,21695-0284-10 ",.01)
  1. ;;21695-0284-10
  1. ;;9002226.02101,"1921,21695-0284-10 ",.02)
  1. ;;21695-0284-10
  1. ;;9002226.02101,"1921,21695-0303-10 ",.01)
  1. ;;21695-0303-10
  1. ;;9002226.02101,"1921,21695-0303-10 ",.02)
  1. ;;21695-0303-10
  1. ;;9002226.02101,"1921,21695-0303-30 ",.01)
  1. ;;21695-0303-30
  1. ;;9002226.02101,"1921,21695-0303-30 ",.02)
  1. ;;21695-0303-30
  1. ;;9002226.02101,"1921,21695-0363-30 ",.01)
  1. ;;21695-0363-30
  1. ;;9002226.02101,"1921,21695-0363-30 ",.02)
  1. ;;21695-0363-30
  1. ;;9002226.02101,"1921,33261-0047-00 ",.01)
  1. ;;33261-0047-00
  1. ;;9002226.02101,"1921,33261-0047-00 ",.02)
  1. ;;33261-0047-00
  1. ;;9002226.02101,"1921,33261-0047-30 ",.01)
  1. ;;33261-0047-30
  1. ;;9002226.02101,"1921,33261-0047-30 ",.02)
  1. ;;33261-0047-30
  1. ;;9002226.02101,"1921,33261-0047-60 ",.01)
  1. ;;33261-0047-60
  1. ;;9002226.02101,"1921,33261-0047-60 ",.02)
  1. ;;33261-0047-60
  1. ;;9002226.02101,"1921,33261-0047-90 ",.01)
  1. ;;33261-0047-90
  1. ;;9002226.02101,"1921,33261-0047-90 ",.02)
  1. ;;33261-0047-90
  1. ;;9002226.02101,"1921,33261-0101-07 ",.01)
  1. ;;33261-0101-07
  1. ;;9002226.02101,"1921,33261-0101-07 ",.02)
  1. ;;33261-0101-07
  1. ;;9002226.02101,"1921,33261-0101-10 ",.01)
  1. ;;33261-0101-10
  1. ;;9002226.02101,"1921,33261-0101-10 ",.02)
  1. ;;33261-0101-10
  1. ;;9002226.02101,"1921,33261-0101-14 ",.01)
  1. ;;33261-0101-14
  1. ;;9002226.02101,"1921,33261-0101-14 ",.02)
  1. ;;33261-0101-14
  1. ;;9002226.02101,"1921,33261-0101-15 ",.01)
  1. ;;33261-0101-15
  1. ;;9002226.02101,"1921,33261-0101-15 ",.02)
  1. ;;33261-0101-15
  1. ;;9002226.02101,"1921,33261-0101-20 ",.01)
  1. ;;33261-0101-20
  1. ;;9002226.02101,"1921,33261-0101-20 ",.02)
  1. ;;33261-0101-20
  1. ;;9002226.02101,"1921,33261-0101-21 ",.01)
  1. ;;33261-0101-21
  1. ;;9002226.02101,"1921,33261-0101-21 ",.02)
  1. ;;33261-0101-21
  1. ;;9002226.02101,"1921,33261-0101-28 ",.01)
  1. ;;33261-0101-28
  1. ;;9002226.02101,"1921,33261-0101-28 ",.02)
  1. ;;33261-0101-28
  1. ;;9002226.02101,"1921,33261-0101-30 ",.01)
  1. ;;33261-0101-30
  1. ;;9002226.02101,"1921,33261-0101-30 ",.02)
  1. ;;33261-0101-30
  1. ;;9002226.02101,"1921,33261-0101-40 ",.01)
  1. ;;33261-0101-40
  1. ;;9002226.02101,"1921,33261-0101-40 ",.02)
  1. ;;33261-0101-40
  1. ;;9002226.02101,"1921,33261-0101-60 ",.01)
  1. ;;33261-0101-60
  1. ;;9002226.02101,"1921,33261-0101-60 ",.02)
  1. ;;33261-0101-60
  1. ;;9002226.02101,"1921,33261-0101-90 ",.01)
  1. ;;33261-0101-90
  1. ;;9002226.02101,"1921,33261-0101-90 ",.02)
  1. ;;33261-0101-90
  1. ;;9002226.02101,"1921,33261-0102-02 ",.01)
  1. ;;33261-0102-02
  1. ;;9002226.02101,"1921,33261-0102-02 ",.02)
  1. ;;33261-0102-02
  1. ;;9002226.02101,"1921,33261-0102-07 ",.01)
  1. ;;33261-0102-07
  1. ;;9002226.02101,"1921,33261-0102-07 ",.02)
  1. ;;33261-0102-07
  1. ;;9002226.02101,"1921,33261-0102-14 ",.01)
  1. ;;33261-0102-14
  1. ;;9002226.02101,"1921,33261-0102-14 ",.02)
  1. ;;33261-0102-14
  1. ;;9002226.02101,"1921,33261-0102-20 ",.01)
  1. ;;33261-0102-20
  1. ;;9002226.02101,"1921,33261-0102-20 ",.02)
  1. ;;33261-0102-20
  1. ;;9002226.02101,"1921,33261-0102-21 ",.01)
  1. ;;33261-0102-21
  1. ;;9002226.02101,"1921,33261-0102-21 ",.02)
  1. ;;33261-0102-21
  1. ;;9002226.02101,"1921,33261-0102-28 ",.01)
  1. ;;33261-0102-28
  1. ;;9002226.02101,"1921,33261-0102-28 ",.02)
  1. ;;33261-0102-28
  1. ;;9002226.02101,"1921,33261-0102-30 ",.01)
  1. ;;33261-0102-30
  1. ;;9002226.02101,"1921,33261-0102-30 ",.02)
  1. ;;33261-0102-30
  1. ;;9002226.02101,"1921,33261-0102-40 ",.01)
  1. ;;33261-0102-40
  1. ;;9002226.02101,"1921,33261-0102-40 ",.02)
  1. ;;33261-0102-40
  1. ;;9002226.02101,"1921,33261-0102-60 ",.01)
  1. ;;33261-0102-60
  1. ;;9002226.02101,"1921,33261-0102-60 ",.02)
  1. ;;33261-0102-60
  1. ;;9002226.02101,"1921,33261-0102-82 ",.01)
  1. ;;33261-0102-82
  1. ;;9002226.02101,"1921,33261-0102-82 ",.02)
  1. ;;33261-0102-82
  1. ;;9002226.02101,"1921,33261-0102-90 ",.01)
  1. ;;33261-0102-90
  1. ;;9002226.02101,"1921,33261-0102-90 ",.02)
  1. ;;33261-0102-90
  1. ;;9002226.02101,"1921,33261-0108-05 ",.01)
  1. ;;33261-0108-05
  1. ;;9002226.02101,"1921,33261-0108-05 ",.02)
  1. ;;33261-0108-05
  1. ;;9002226.02101,"1921,33261-0108-14 ",.01)
  1. ;;33261-0108-14
  1. ;;9002226.02101,"1921,33261-0108-14 ",.02)
  1. ;;33261-0108-14
  1. ;;9002226.02101,"1921,33261-0108-30 ",.01)
  1. ;;33261-0108-30
  1. ;;9002226.02101,"1921,33261-0108-30 ",.02)
  1. ;;33261-0108-30
  1. ;;9002226.02101,"1921,33261-0108-60 ",.01)
  1. ;;33261-0108-60
  1. ;;9002226.02101,"1921,33261-0108-60 ",.02)
  1. ;;33261-0108-60
  1. ;;9002226.02101,"1921,33261-0108-90 ",.01)
  1. ;;33261-0108-90
  1. ;;9002226.02101,"1921,33261-0108-90 ",.02)
  1. ;;33261-0108-90
  1. ;;9002226.02101,"1921,33261-0882-00 ",.01)
  1. ;;33261-0882-00
  1. ;;9002226.02101,"1921,33261-0882-00 ",.02)
  1. ;;33261-0882-00
  1. ;;9002226.02101,"1921,33261-0882-30 ",.01)
  1. ;;33261-0882-30
  1. ;;9002226.02101,"1921,33261-0882-30 ",.02)
  1. ;;33261-0882-30
  1. ;;9002226.02101,"1921,33261-0882-60 ",.01)
  1. ;;33261-0882-60
  1. ;;9002226.02101,"1921,33261-0882-60 ",.02)
  1. ;;33261-0882-60
  1. ;;9002226.02101,"1921,33261-0882-90 ",.01)
  1. ;;33261-0882-90
  1. ;;9002226.02101,"1921,33261-0882-90 ",.02)
  1. ;;33261-0882-90
  1. ;;9002226.02101,"1921,33358-0146-30 ",.01)
  1. ;;33358-0146-30
  1. ;;9002226.02101,"1921,33358-0146-30 ",.02)
  1. ;;33358-0146-30
  1. ;;9002226.02101,"1921,33358-0146-60 ",.01)
  1. ;;33358-0146-60
  1. ;;9002226.02101,"1921,33358-0146-60 ",.02)
  1. ;;33358-0146-60
  1. ;;9002226.02101,"1921,33358-0147-30 ",.01)
  1. ;;33358-0147-30
  1. ;;9002226.02101,"1921,33358-0147-30 ",.02)
  1. ;;33358-0147-30
  1. ;;9002226.02101,"1921,33358-0147-60 ",.01)
  1. ;;33358-0147-60
  1. ;;9002226.02101,"1921,33358-0147-60 ",.02)
  1. ;;33358-0147-60
  1. ;;9002226.02101,"1921,33358-0332-20 ",.01)
  1. ;;33358-0332-20
  1. ;;9002226.02101,"1921,33358-0332-20 ",.02)
  1. ;;33358-0332-20
  1. ;;9002226.02101,"1921,33358-0332-30 ",.01)
  1. ;;33358-0332-30
  1. ;;9002226.02101,"1921,33358-0332-30 ",.02)
  1. ;;33358-0332-30
  1. ;;9002226.02101,"1921,33358-0332-60 ",.01)
  1. ;;33358-0332-60
  1. ;;9002226.02101,"1921,33358-0332-60 ",.02)
  1. ;;33358-0332-60
  1. ;;9002226.02101,"1921,33358-0333-00 ",.01)
  1. ;;33358-0333-00
  1. ;;9002226.02101,"1921,33358-0333-00 ",.02)
  1. ;;33358-0333-00
  1. ;;9002226.02101,"1921,33358-0333-30 ",.01)
  1. ;;33358-0333-30
  1. ;;9002226.02101,"1921,33358-0333-30 ",.02)
  1. ;;33358-0333-30
  1. ;;9002226.02101,"1921,33358-0333-60 ",.01)
  1. ;;33358-0333-60
  1. ;;9002226.02101,"1921,33358-0333-60 ",.02)
  1. ;;33358-0333-60
  1. ;;9002226.02101,"1921,33358-0333-90 ",.01)
  1. ;;33358-0333-90
  1. ;;9002226.02101,"1921,33358-0333-90 ",.02)
  1. ;;33358-0333-90
  1. ;;9002226.02101,"1921,33358-0350-10 ",.01)
  1. ;;33358-0350-10
  1. ;;9002226.02101,"1921,33358-0350-10 ",.02)
  1. ;;33358-0350-10
  1. ;;9002226.02101,"1921,33358-0350-15 ",.01)
  1. ;;33358-0350-15
  1. ;;9002226.02101,"1921,33358-0350-15 ",.02)
  1. ;;33358-0350-15
  1. ;;9002226.02101,"1921,33358-0350-30 ",.01)
  1. ;;33358-0350-30
  1. ;;9002226.02101,"1921,33358-0350-30 ",.02)
  1. ;;33358-0350-30
  1. ;;9002226.02101,"1921,33358-0350-60 ",.01)
  1. ;;33358-0350-60
  1. ;;9002226.02101,"1921,33358-0350-60 ",.02)
  1. ;;33358-0350-60
  1. ;;9002226.02101,"1921,35356-0430-30 ",.01)
  1. ;;35356-0430-30
  1. ;;9002226.02101,"1921,35356-0430-30 ",.02)
  1. ;;35356-0430-30
  1. ;;9002226.02101,"1921,35356-0657-30 ",.01)
  1. ;;35356-0657-30
  1. ;;9002226.02101,"1921,35356-0657-30 ",.02)
  1. ;;35356-0657-30
  1. ;;9002226.02101,"1921,35356-0663-15 ",.01)
  1. ;;35356-0663-15
  1. ;;9002226.02101,"1921,35356-0663-15 ",.02)
  1. ;;35356-0663-15
  1. ;;9002226.02101,"1921,35356-0663-30 ",.01)
  1. ;;35356-0663-30
  1. ;;9002226.02101,"1921,35356-0663-30 ",.02)
  1. ;;35356-0663-30
  1. ;;9002226.02101,"1921,35356-0663-60 ",.01)
  1. ;;35356-0663-60
  1. ;;9002226.02101,"1921,35356-0663-60 ",.02)
  1. ;;35356-0663-60
  1. ;;9002226.02101,"1921,35356-0664-15 ",.01)
  1. ;;35356-0664-15
  1. ;;9002226.02101,"1921,35356-0664-15 ",.02)
  1. ;;35356-0664-15
  1. ;;9002226.02101,"1921,35356-0664-30 ",.01)
  1. ;;35356-0664-30
  1. ;;9002226.02101,"1921,35356-0664-30 ",.02)
  1. ;;35356-0664-30
  1. ;;9002226.02101,"1921,35356-0664-60 ",.01)
  1. ;;35356-0664-60
  1. ;;9002226.02101,"1921,35356-0664-60 ",.02)
  1. ;;35356-0664-60
  1. ;;9002226.02101,"1921,35356-0664-90 ",.01)
  1. ;;35356-0664-90