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

BGP06A32.m

Go to the documentation of this file.
  1. BGP06A32 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
  1. ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
  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,"974,00403-3511-14 ",.01)
  1. ;;00403-3511-14
  1. ;;9002226.02101,"974,00403-3511-14 ",.02)
  1. ;;00403-3511-14
  1. ;;9002226.02101,"974,00403-3511-20 ",.01)
  1. ;;00403-3511-20
  1. ;;9002226.02101,"974,00403-3511-20 ",.02)
  1. ;;00403-3511-20
  1. ;;9002226.02101,"974,00403-5183-18 ",.01)
  1. ;;00403-5183-18
  1. ;;9002226.02101,"974,00403-5183-18 ",.02)
  1. ;;00403-5183-18
  1. ;;9002226.02101,"974,00405-2275-70 ",.01)
  1. ;;00405-2275-70
  1. ;;9002226.02101,"974,00405-2275-70 ",.02)
  1. ;;00405-2275-70
  1. ;;9002226.02101,"974,00405-2500-60 ",.01)
  1. ;;00405-2500-60
  1. ;;9002226.02101,"974,00405-2500-60 ",.02)
  1. ;;00405-2500-60
  1. ;;9002226.02101,"974,00405-2500-70 ",.01)
  1. ;;00405-2500-70
  1. ;;9002226.02101,"974,00405-2500-70 ",.02)
  1. ;;00405-2500-70
  1. ;;9002226.02101,"974,00405-3500-60 ",.01)
  1. ;;00405-3500-60
  1. ;;9002226.02101,"974,00405-3500-60 ",.02)
  1. ;;00405-3500-60
  1. ;;9002226.02101,"974,00405-3500-70 ",.01)
  1. ;;00405-3500-70
  1. ;;9002226.02101,"974,00405-3500-70 ",.02)
  1. ;;00405-3500-70
  1. ;;9002226.02101,"974,00405-3525-60 ",.01)
  1. ;;00405-3525-60
  1. ;;9002226.02101,"974,00405-3525-60 ",.02)
  1. ;;00405-3525-60
  1. ;;9002226.02101,"974,00405-3525-70 ",.01)
  1. ;;00405-3525-70
  1. ;;9002226.02101,"974,00405-3525-70 ",.02)
  1. ;;00405-3525-70
  1. ;;9002226.02101,"974,00405-3675-16 ",.01)
  1. ;;00405-3675-16
  1. ;;9002226.02101,"974,00405-3675-16 ",.02)
  1. ;;00405-3675-16
  1. ;;9002226.02101,"974,00405-4083-01 ",.01)
  1. ;;00405-4083-01
  1. ;;9002226.02101,"974,00405-4083-01 ",.02)
  1. ;;00405-4083-01
  1. ;;9002226.02101,"974,00405-4083-02 ",.01)
  1. ;;00405-4083-02
  1. ;;9002226.02101,"974,00405-4083-02 ",.02)
  1. ;;00405-4083-02
  1. ;;9002226.02101,"974,00405-4084-02 ",.01)
  1. ;;00405-4084-02
  1. ;;9002226.02101,"974,00405-4084-02 ",.02)
  1. ;;00405-4084-02
  1. ;;9002226.02101,"974,00405-4084-50 ",.01)
  1. ;;00405-4084-50
  1. ;;9002226.02101,"974,00405-4084-50 ",.02)
  1. ;;00405-4084-50
  1. ;;9002226.02101,"974,00405-4086-01 ",.01)
  1. ;;00405-4086-01
  1. ;;9002226.02101,"974,00405-4086-01 ",.02)
  1. ;;00405-4086-01
  1. ;;9002226.02101,"974,00405-4086-02 ",.01)
  1. ;;00405-4086-02
  1. ;;9002226.02101,"974,00405-4086-02 ",.02)
  1. ;;00405-4086-02
  1. ;;9002226.02101,"974,00405-4089-01 ",.01)
  1. ;;00405-4089-01
  1. ;;9002226.02101,"974,00405-4089-01 ",.02)
  1. ;;00405-4089-01
  1. ;;9002226.02101,"974,00405-4089-02 ",.01)
  1. ;;00405-4089-02
  1. ;;9002226.02101,"974,00405-4089-02 ",.02)
  1. ;;00405-4089-02
  1. ;;9002226.02101,"974,00405-4090-01 ",.01)
  1. ;;00405-4090-01
  1. ;;9002226.02101,"974,00405-4090-01 ",.02)
  1. ;;00405-4090-01
  1. ;;9002226.02101,"974,00405-4090-02 ",.01)
  1. ;;00405-4090-02
  1. ;;9002226.02101,"974,00405-4090-02 ",.02)
  1. ;;00405-4090-02
  1. ;;9002226.02101,"974,00405-4152-02 ",.01)
  1. ;;00405-4152-02
  1. ;;9002226.02101,"974,00405-4152-02 ",.02)
  1. ;;00405-4152-02
  1. ;;9002226.02101,"974,00405-4153-01 ",.01)
  1. ;;00405-4153-01
  1. ;;9002226.02101,"974,00405-4153-01 ",.02)
  1. ;;00405-4153-01
  1. ;;9002226.02101,"974,00405-4153-02 ",.01)
  1. ;;00405-4153-02
  1. ;;9002226.02101,"974,00405-4153-02 ",.02)
  1. ;;00405-4153-02
  1. ;;9002226.02101,"974,00405-4158-01 ",.01)
  1. ;;00405-4158-01
  1. ;;9002226.02101,"974,00405-4158-01 ",.02)
  1. ;;00405-4158-01
  1. ;;9002226.02101,"974,00405-4159-01 ",.01)
  1. ;;00405-4159-01
  1. ;;9002226.02101,"974,00405-4159-01 ",.02)
  1. ;;00405-4159-01
  1. ;;9002226.02101,"974,00405-4233-01 ",.01)
  1. ;;00405-4233-01
  1. ;;9002226.02101,"974,00405-4233-01 ",.02)
  1. ;;00405-4233-01
  1. ;;9002226.02101,"974,00405-4322-01 ",.01)
  1. ;;00405-4322-01
  1. ;;9002226.02101,"974,00405-4322-01 ",.02)
  1. ;;00405-4322-01
  1. ;;9002226.02101,"974,00405-4323-01 ",.01)
  1. ;;00405-4323-01
  1. ;;9002226.02101,"974,00405-4323-01 ",.02)
  1. ;;00405-4323-01
  1. ;;9002226.02101,"974,00405-4377-02 ",.01)
  1. ;;00405-4377-02
  1. ;;9002226.02101,"974,00405-4377-02 ",.02)
  1. ;;00405-4377-02
  1. ;;9002226.02101,"974,00405-4377-50 ",.01)
  1. ;;00405-4377-50
  1. ;;9002226.02101,"974,00405-4377-50 ",.02)
  1. ;;00405-4377-50
  1. ;;9002226.02101,"974,00405-4378-50 ",.01)
  1. ;;00405-4378-50
  1. ;;9002226.02101,"974,00405-4378-50 ",.02)
  1. ;;00405-4378-50
  1. ;;9002226.02101,"974,00405-4379-02 ",.01)
  1. ;;00405-4379-02
  1. ;;9002226.02101,"974,00405-4379-02 ",.02)
  1. ;;00405-4379-02
  1. ;;9002226.02101,"974,00405-4379-50 ",.01)
  1. ;;00405-4379-50
  1. ;;9002226.02101,"974,00405-4379-50 ",.02)
  1. ;;00405-4379-50
  1. ;;9002226.02101,"974,00405-4398-01 ",.01)
  1. ;;00405-4398-01
  1. ;;9002226.02101,"974,00405-4398-01 ",.02)
  1. ;;00405-4398-01
  1. ;;9002226.02101,"974,00405-4398-02 ",.01)
  1. ;;00405-4398-02
  1. ;;9002226.02101,"974,00405-4398-02 ",.02)
  1. ;;00405-4398-02
  1. ;;9002226.02101,"974,00405-4399-01 ",.01)
  1. ;;00405-4399-01
  1. ;;9002226.02101,"974,00405-4399-01 ",.02)
  1. ;;00405-4399-01
  1. ;;9002226.02101,"974,00405-4399-02 ",.01)
  1. ;;00405-4399-02
  1. ;;9002226.02101,"974,00405-4399-02 ",.02)
  1. ;;00405-4399-02
  1. ;;9002226.02101,"974,00405-4401-01 ",.01)
  1. ;;00405-4401-01
  1. ;;9002226.02101,"974,00405-4401-01 ",.02)
  1. ;;00405-4401-01
  1. ;;9002226.02101,"974,00405-4411-01 ",.01)
  1. ;;00405-4411-01
  1. ;;9002226.02101,"974,00405-4411-01 ",.02)
  1. ;;00405-4411-01
  1. ;;9002226.02101,"974,00405-4411-02 ",.01)
  1. ;;00405-4411-02
  1. ;;9002226.02101,"974,00405-4411-02 ",.02)
  1. ;;00405-4411-02
  1. ;;9002226.02101,"974,00405-4680-01 ",.01)
  1. ;;00405-4680-01
  1. ;;9002226.02101,"974,00405-4680-01 ",.02)
  1. ;;00405-4680-01
  1. ;;9002226.02101,"974,00405-4681-50 ",.01)
  1. ;;00405-4681-50
  1. ;;9002226.02101,"974,00405-4681-50 ",.02)
  1. ;;00405-4681-50
  1. ;;9002226.02101,"974,00405-4762-01 ",.01)
  1. ;;00405-4762-01
  1. ;;9002226.02101,"974,00405-4762-01 ",.02)
  1. ;;00405-4762-01
  1. ;;9002226.02101,"974,00405-4762-03 ",.01)
  1. ;;00405-4762-03
  1. ;;9002226.02101,"974,00405-4762-03 ",.02)
  1. ;;00405-4762-03
  1. ;;9002226.02101,"974,00405-4763-01 ",.01)
  1. ;;00405-4763-01
  1. ;;9002226.02101,"974,00405-4763-01 ",.02)
  1. ;;00405-4763-01
  1. ;;9002226.02101,"974,00405-4763-03 ",.01)
  1. ;;00405-4763-03
  1. ;;9002226.02101,"974,00405-4763-03 ",.02)
  1. ;;00405-4763-03
  1. ;;9002226.02101,"974,00405-4768-01 ",.01)
  1. ;;00405-4768-01
  1. ;;9002226.02101,"974,00405-4768-01 ",.02)
  1. ;;00405-4768-01
  1. ;;9002226.02101,"974,00405-4768-03 ",.01)
  1. ;;00405-4768-03
  1. ;;9002226.02101,"974,00405-4768-03 ",.02)
  1. ;;00405-4768-03
  1. ;;9002226.02101,"974,00405-4769-01 ",.01)
  1. ;;00405-4769-01
  1. ;;9002226.02101,"974,00405-4769-01 ",.02)
  1. ;;00405-4769-01
  1. ;;9002226.02101,"974,00405-4769-03 ",.01)
  1. ;;00405-4769-03
  1. ;;9002226.02101,"974,00405-4769-03 ",.02)
  1. ;;00405-4769-03
  1. ;;9002226.02101,"974,00405-4928-01 ",.01)
  1. ;;00405-4928-01
  1. ;;9002226.02101,"974,00405-4928-01 ",.02)
  1. ;;00405-4928-01
  1. ;;9002226.02101,"974,00405-4929-01 ",.01)
  1. ;;00405-4929-01
  1. ;;9002226.02101,"974,00405-4929-01 ",.02)
  1. ;;00405-4929-01
  1. ;;9002226.02101,"974,00405-4929-02 ",.01)
  1. ;;00405-4929-02
  1. ;;9002226.02101,"974,00405-4929-02 ",.02)
  1. ;;00405-4929-02
  1. ;;9002226.02101,"974,00405-4971-01 ",.01)
  1. ;;00405-4971-01
  1. ;;9002226.02101,"974,00405-4971-01 ",.02)
  1. ;;00405-4971-01
  1. ;;9002226.02101,"974,00405-4976-01 ",.01)
  1. ;;00405-4976-01
  1. ;;9002226.02101,"974,00405-4976-01 ",.02)
  1. ;;00405-4976-01
  1. ;;9002226.02101,"974,00405-4976-03 ",.01)
  1. ;;00405-4976-03
  1. ;;9002226.02101,"974,00405-4976-03 ",.02)
  1. ;;00405-4976-03
  1. ;;9002226.02101,"974,00405-4981-01 ",.01)
  1. ;;00405-4981-01
  1. ;;9002226.02101,"974,00405-4981-01 ",.02)
  1. ;;00405-4981-01
  1. ;;9002226.02101,"974,00405-4981-03 ",.01)
  1. ;;00405-4981-03
  1. ;;9002226.02101,"974,00405-4981-03 ",.02)
  1. ;;00405-4981-03
  1. ;;9002226.02101,"974,00409-4050-01 ",.01)
  1. ;;00409-4050-01
  1. ;;9002226.02101,"974,00409-4050-01 ",.02)
  1. ;;00409-4050-01
  1. ;;9002226.02101,"974,00409-4051-01 ",.01)
  1. ;;00409-4051-01
  1. ;;9002226.02101,"974,00409-4051-01 ",.02)
  1. ;;00409-4051-01
  1. ;;9002226.02101,"974,00409-4052-01 ",.01)
  1. ;;00409-4052-01
  1. ;;9002226.02101,"974,00409-4052-01 ",.02)
  1. ;;00409-4052-01
  1. ;;9002226.02101,"974,00409-4053-03 ",.01)
  1. ;;00409-4053-03
  1. ;;9002226.02101,"974,00409-4053-03 ",.02)
  1. ;;00409-4053-03
  1. ;;9002226.02101,"974,00409-4054-03 ",.01)
  1. ;;00409-4054-03
  1. ;;9002226.02101,"974,00409-4054-03 ",.02)
  1. ;;00409-4054-03
  1. ;;9002226.02101,"974,00409-4055-03 ",.01)
  1. ;;00409-4055-03
  1. ;;9002226.02101,"974,00409-4055-03 ",.02)
  1. ;;00409-4055-03
  1. ;;9002226.02101,"974,00409-4197-01 ",.01)
  1. ;;00409-4197-01
  1. ;;9002226.02101,"974,00409-4197-01 ",.02)
  1. ;;00409-4197-01
  1. ;;9002226.02101,"974,00409-4765-86 ",.01)
  1. ;;00409-4765-86
  1. ;;9002226.02101,"974,00409-4765-86 ",.02)
  1. ;;00409-4765-86
  1. ;;9002226.02101,"974,00409-4778-86 ",.01)
  1. ;;00409-4778-86
  1. ;;9002226.02101,"974,00409-4778-86 ",.02)
  1. ;;00409-4778-86
  1. ;;9002226.02101,"974,00409-6476-44 ",.01)
  1. ;;00409-6476-44
  1. ;;9002226.02101,"974,00409-6476-44 ",.02)
  1. ;;00409-6476-44
  1. ;;9002226.02101,"974,00409-6482-01 ",.01)
  1. ;;00409-6482-01
  1. ;;9002226.02101,"974,00409-6482-01 ",.02)
  1. ;;00409-6482-01
  1. ;;9002226.02101,"974,00409-7332-01 ",.01)
  1. ;;00409-7332-01
  1. ;;9002226.02101,"974,00409-7332-01 ",.02)
  1. ;;00409-7332-01
  1. ;;9002226.02101,"974,00409-7333-04 ",.01)
  1. ;;00409-7333-04
  1. ;;9002226.02101,"974,00409-7333-04 ",.02)
  1. ;;00409-7333-04
  1. ;;9002226.02101,"974,00409-7333-49 ",.01)
  1. ;;00409-7333-49
  1. ;;9002226.02101,"974,00409-7333-49 ",.02)
  1. ;;00409-7333-49
  1. ;;9002226.02101,"974,00409-7334-10 ",.01)
  1. ;;00409-7334-10
  1. ;;9002226.02101,"974,00409-7334-10 ",.02)
  1. ;;00409-7334-10
  1. ;;9002226.02101,"974,00409-7335-03 ",.01)
  1. ;;00409-7335-03
  1. ;;9002226.02101,"974,00409-7335-03 ",.02)
  1. ;;00409-7335-03
  1. ;;9002226.02101,"974,00409-7336-04 ",.01)
  1. ;;00409-7336-04
  1. ;;9002226.02101,"974,00409-7336-04 ",.02)
  1. ;;00409-7336-04
  1. ;;9002226.02101,"974,00409-7336-49 ",.01)
  1. ;;00409-7336-49
  1. ;;9002226.02101,"974,00409-7336-49 ",.02)
  1. ;;00409-7336-49
  1. ;;9002226.02101,"974,00409-7337-01 ",.01)
  1. ;;00409-7337-01
  1. ;;9002226.02101,"974,00409-7337-01 ",.02)
  1. ;;00409-7337-01
  1. ;;9002226.02101,"974,00409-7338-01 ",.01)
  1. ;;00409-7338-01
  1. ;;9002226.02101,"974,00409-7338-01 ",.02)
  1. ;;00409-7338-01
  1. ;;9002226.02101,"974,00430-0111-20 ",.01)
  1. ;;00430-0111-20
  1. ;;9002226.02101,"974,00430-0111-20 ",.02)
  1. ;;00430-0111-20
  1. ;;9002226.02101,"974,00430-0112-24 ",.01)
  1. ;;00430-0112-24
  1. ;;9002226.02101,"974,00430-0112-24 ",.02)
  1. ;;00430-0112-24
  1. ;;9002226.02101,"974,00430-0696-24 ",.01)
  1. ;;00430-0696-24
  1. ;;9002226.02101,"974,00430-0696-24 ",.02)
  1. ;;00430-0696-24
  1. ;;9002226.02101,"974,00430-0780-19 ",.01)
  1. ;;00430-0780-19
  1. ;;9002226.02101,"974,00430-0780-19 ",.02)
  1. ;;00430-0780-19
  1. ;;9002226.02101,"974,00430-0836-20 ",.01)
  1. ;;00430-0836-20
  1. ;;9002226.02101,"974,00430-0836-20 ",.02)
  1. ;;00430-0836-20
  1. ;;9002226.02101,"974,00430-0838-19 ",.01)
  1. ;;00430-0838-19
  1. ;;9002226.02101,"974,00430-0838-19 ",.02)
  1. ;;00430-0838-19
  1. ;;9002226.02101,"974,00430-2782-15 ",.01)
  1. ;;00430-2782-15
  1. ;;9002226.02101,"974,00430-2782-15 ",.02)
  1. ;;00430-2782-15
  1. ;;9002226.02101,"974,00430-2782-17 ",.01)
  1. ;;00430-2782-17
  1. ;;9002226.02101,"974,00430-2782-17 ",.02)
  1. ;;00430-2782-17
  1. ;;9002226.02101,"974,00430-2783-16 ",.01)
  1. ;;00430-2783-16
  1. ;;9002226.02101,"974,00430-2783-16 ",.02)
  1. ;;00430-2783-16
  1. ;;9002226.02101,"974,00430-2783-17 ",.01)
  1. ;;00430-2783-17
  1. ;;9002226.02101,"974,00430-2783-17 ",.02)
  1. ;;00430-2783-17
  1. ;;9002226.02101,"974,00463-5001-01 ",.01)
  1. ;;00463-5001-01
  1. ;;9002226.02101,"974,00463-5001-01 ",.02)
  1. ;;00463-5001-01
  1. ;;9002226.02101,"974,00463-5001-10 ",.01)
  1. ;;00463-5001-10
  1. ;;9002226.02101,"974,00463-5001-10 ",.02)
  1. ;;00463-5001-10
  1. ;;9002226.02101,"974,00463-5002-16 ",.01)
  1. ;;00463-5002-16
  1. ;;9002226.02101,"974,00463-5002-16 ",.02)
  1. ;;00463-5002-16
  1. ;;9002226.02101,"974,00463-5003-10 ",.01)
  1. ;;00463-5003-10
  1. ;;9002226.02101,"974,00463-5003-10 ",.02)
  1. ;;00463-5003-10
  1. ;;9002226.02101,"974,00463-5011-01 ",.01)
  1. ;;00463-5011-01
  1. ;;9002226.02101,"974,00463-5011-01 ",.02)
  1. ;;00463-5011-01
  1. ;;9002226.02101,"974,00463-5011-10 ",.01)
  1. ;;00463-5011-10
  1. ;;9002226.02101,"974,00463-5011-10 ",.02)
  1. ;;00463-5011-10
  1. ;;9002226.02101,"974,00463-5012-01 ",.01)
  1. ;;00463-5012-01
  1. ;;9002226.02101,"974,00463-5012-01 ",.02)
  1. ;;00463-5012-01
  1. ;;9002226.02101,"974,00463-5012-10 ",.01)
  1. ;;00463-5012-10
  1. ;;9002226.02101,"974,00463-5012-10 ",.02)
  1. ;;00463-5012-10
  1. ;;9002226.02101,"974,00463-5015-01 ",.01)
  1. ;;00463-5015-01
  1. ;;9002226.02101,"974,00463-5015-01 ",.02)
  1. ;;00463-5015-01
  1. ;;9002226.02101,"974,00463-5015-15 ",.01)
  1. ;;00463-5015-15
  1. ;;9002226.02101,"974,00463-5015-15 ",.02)
  1. ;;00463-5015-15
  1. ;;9002226.02101,"974,00463-5016-01 ",.01)
  1. ;;00463-5016-01
  1. ;;9002226.02101,"974,00463-5016-01 ",.02)
  1. ;;00463-5016-01
  1. ;;9002226.02101,"974,00463-5016-15 ",.01)
  1. ;;00463-5016-15
  1. ;;9002226.02101,"974,00463-5016-15 ",.02)
  1. ;;00463-5016-15
  1. ;;9002226.02101,"974,00463-5017-10 ",.01)
  1. ;;00463-5017-10
  1. ;;9002226.02101,"974,00463-5017-10 ",.02)
  1. ;;00463-5017-10
  1. ;;9002226.02101,"974,00463-5019-01 ",.01)
  1. ;;00463-5019-01
  1. ;;9002226.02101,"974,00463-5019-01 ",.02)
  1. ;;00463-5019-01
  1. ;;9002226.02101,"974,00463-5020-55 ",.01)
  1. ;;00463-5020-55
  1. ;;9002226.02101,"974,00463-5020-55 ",.02)
  1. ;;00463-5020-55
  1. ;;9002226.02101,"974,00463-5023-10 ",.01)
  1. ;;00463-5023-10
  1. ;;9002226.02101,"974,00463-5023-10 ",.02)
  1. ;;00463-5023-10
  1. ;;9002226.02101,"974,00463-6214-10 ",.01)
  1. ;;00463-6214-10
  1. ;;9002226.02101,"974,00463-6214-10 ",.02)
  1. ;;00463-6214-10
  1. ;;9002226.02101,"974,00472-0971-16 ",.01)
  1. ;;00472-0971-16
  1. ;;9002226.02101,"974,00472-0971-16 ",.02)
  1. ;;00472-0971-16
  1. ;;9002226.02101,"974,00472-0974-16 ",.01)
  1. ;;00472-0974-16
  1. ;;9002226.02101,"974,00472-0974-16 ",.02)
  1. ;;00472-0974-16
  1. ;;9002226.02101,"974,00472-0977-16 ",.01)
  1. ;;00472-0977-16
  1. ;;9002226.02101,"974,00472-0977-16 ",.02)
  1. ;;00472-0977-16
  1. ;;9002226.02101,"974,00472-0979-16 ",.01)
  1. ;;00472-0979-16
  1. ;;9002226.02101,"974,00472-0979-16 ",.02)
  1. ;;00472-0979-16
  1. ;;9002226.02101,"974,00472-1284-16 ",.01)
  1. ;;00472-1284-16
  1. ;;9002226.02101,"974,00472-1284-16 ",.02)
  1. ;;00472-1284-16