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