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

BGP63E16.m

Go to the documentation of this file.
BGP63E16 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 11, 2016;
 ;;16.1;IHS CLINICAL REPORTING;;MAR 22, 2016;Build 170
 ;
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,"873,49999-0305-30 ",.02)
 ;;49999-0305-30
 ;;9002226.02101,"873,49999-0321-00 ",.01)
 ;;49999-0321-00
 ;;9002226.02101,"873,49999-0321-00 ",.02)
 ;;49999-0321-00
 ;;9002226.02101,"873,49999-0321-30 ",.01)
 ;;49999-0321-30
 ;;9002226.02101,"873,49999-0321-30 ",.02)
 ;;49999-0321-30
 ;;9002226.02101,"873,49999-0321-60 ",.01)
 ;;49999-0321-60
 ;;9002226.02101,"873,49999-0321-60 ",.02)
 ;;49999-0321-60
 ;;9002226.02101,"873,49999-0543-30 ",.01)
 ;;49999-0543-30
 ;;9002226.02101,"873,49999-0543-30 ",.02)
 ;;49999-0543-30
 ;;9002226.02101,"873,49999-0761-00 ",.01)
 ;;49999-0761-00
 ;;9002226.02101,"873,49999-0761-00 ",.02)
 ;;49999-0761-00
 ;;9002226.02101,"873,49999-0761-30 ",.01)
 ;;49999-0761-30
 ;;9002226.02101,"873,49999-0761-30 ",.02)
 ;;49999-0761-30
 ;;9002226.02101,"873,49999-0815-30 ",.01)
 ;;49999-0815-30
 ;;9002226.02101,"873,49999-0815-30 ",.02)
 ;;49999-0815-30
 ;;9002226.02101,"873,49999-0815-90 ",.01)
 ;;49999-0815-90
 ;;9002226.02101,"873,49999-0815-90 ",.02)
 ;;49999-0815-90
 ;;9002226.02101,"873,49999-0823-00 ",.01)
 ;;49999-0823-00
 ;;9002226.02101,"873,49999-0823-00 ",.02)
 ;;49999-0823-00
 ;;9002226.02101,"873,49999-0877-00 ",.01)
 ;;49999-0877-00
 ;;9002226.02101,"873,49999-0877-00 ",.02)
 ;;49999-0877-00
 ;;9002226.02101,"873,49999-0877-30 ",.01)
 ;;49999-0877-30
 ;;9002226.02101,"873,49999-0877-30 ",.02)
 ;;49999-0877-30
 ;;9002226.02101,"873,49999-0877-90 ",.01)
 ;;49999-0877-90
 ;;9002226.02101,"873,49999-0877-90 ",.02)
 ;;49999-0877-90
 ;;9002226.02101,"873,49999-0878-00 ",.01)
 ;;49999-0878-00
 ;;9002226.02101,"873,49999-0878-00 ",.02)
 ;;49999-0878-00
 ;;9002226.02101,"873,49999-0878-30 ",.01)
 ;;49999-0878-30
 ;;9002226.02101,"873,49999-0878-30 ",.02)
 ;;49999-0878-30
 ;;9002226.02101,"873,49999-0878-90 ",.01)
 ;;49999-0878-90
 ;;9002226.02101,"873,49999-0878-90 ",.02)
 ;;49999-0878-90
 ;;9002226.02101,"873,49999-0879-00 ",.01)
 ;;49999-0879-00
 ;;9002226.02101,"873,49999-0879-00 ",.02)
 ;;49999-0879-00
 ;;9002226.02101,"873,49999-0879-30 ",.01)
 ;;49999-0879-30
 ;;9002226.02101,"873,49999-0879-30 ",.02)
 ;;49999-0879-30
 ;;9002226.02101,"873,49999-0880-30 ",.01)
 ;;49999-0880-30
 ;;9002226.02101,"873,49999-0880-30 ",.02)
 ;;49999-0880-30
 ;;9002226.02101,"873,49999-0880-90 ",.01)
 ;;49999-0880-90
 ;;9002226.02101,"873,49999-0880-90 ",.02)
 ;;49999-0880-90
 ;;9002226.02101,"873,49999-0924-10 ",.01)
 ;;49999-0924-10
 ;;9002226.02101,"873,49999-0924-10 ",.02)
 ;;49999-0924-10
 ;;9002226.02101,"873,49999-0924-30 ",.01)
 ;;49999-0924-30
 ;;9002226.02101,"873,49999-0924-30 ",.02)
 ;;49999-0924-30
 ;;9002226.02101,"873,49999-0924-60 ",.01)
 ;;49999-0924-60
 ;;9002226.02101,"873,49999-0924-60 ",.02)
 ;;49999-0924-60
 ;;9002226.02101,"873,49999-0940-30 ",.01)
 ;;49999-0940-30
 ;;9002226.02101,"873,49999-0940-30 ",.02)
 ;;49999-0940-30
 ;;9002226.02101,"873,49999-0940-90 ",.01)
 ;;49999-0940-90
 ;;9002226.02101,"873,49999-0940-90 ",.02)
 ;;49999-0940-90
 ;;9002226.02101,"873,49999-0943-00 ",.01)
 ;;49999-0943-00
 ;;9002226.02101,"873,49999-0943-00 ",.02)
 ;;49999-0943-00
 ;;9002226.02101,"873,49999-0943-90 ",.01)
 ;;49999-0943-90
 ;;9002226.02101,"873,49999-0943-90 ",.02)
 ;;49999-0943-90
 ;;9002226.02101,"873,49999-0946-30 ",.01)
 ;;49999-0946-30
 ;;9002226.02101,"873,49999-0946-30 ",.02)
 ;;49999-0946-30
 ;;9002226.02101,"873,49999-0947-30 ",.01)
 ;;49999-0947-30
 ;;9002226.02101,"873,49999-0947-30 ",.02)
 ;;49999-0947-30
 ;;9002226.02101,"873,49999-0948-30 ",.01)
 ;;49999-0948-30
 ;;9002226.02101,"873,49999-0948-30 ",.02)
 ;;49999-0948-30
 ;;9002226.02101,"873,49999-0988-30 ",.01)
 ;;49999-0988-30
 ;;9002226.02101,"873,49999-0988-30 ",.02)
 ;;49999-0988-30
 ;;9002226.02101,"873,49999-0991-90 ",.01)
 ;;49999-0991-90
 ;;9002226.02101,"873,49999-0991-90 ",.02)
 ;;49999-0991-90
 ;;9002226.02101,"873,50268-0513-15 ",.01)
 ;;50268-0513-15
 ;;9002226.02101,"873,50268-0513-15 ",.02)
 ;;50268-0513-15
 ;;9002226.02101,"873,50268-0514-15 ",.01)
 ;;50268-0514-15
 ;;9002226.02101,"873,50268-0514-15 ",.02)
 ;;50268-0514-15
 ;;9002226.02101,"873,50268-0515-15 ",.01)
 ;;50268-0515-15
 ;;9002226.02101,"873,50268-0515-15 ",.02)
 ;;50268-0515-15
 ;;9002226.02101,"873,50268-0516-15 ",.01)
 ;;50268-0516-15
 ;;9002226.02101,"873,50268-0516-15 ",.02)
 ;;50268-0516-15
 ;;9002226.02101,"873,50268-0517-15 ",.01)
 ;;50268-0517-15
 ;;9002226.02101,"873,50268-0517-15 ",.02)
 ;;50268-0517-15
 ;;9002226.02101,"873,50268-0518-15 ",.01)
 ;;50268-0518-15
 ;;9002226.02101,"873,50268-0518-15 ",.02)
 ;;50268-0518-15
 ;;9002226.02101,"873,51079-0192-01 ",.01)
 ;;51079-0192-01
 ;;9002226.02101,"873,51079-0192-01 ",.02)
 ;;51079-0192-01
 ;;9002226.02101,"873,51079-0192-03 ",.01)
 ;;51079-0192-03
 ;;9002226.02101,"873,51079-0192-03 ",.02)
 ;;51079-0192-03
 ;;9002226.02101,"873,51079-0193-01 ",.01)
 ;;51079-0193-01
 ;;9002226.02101,"873,51079-0193-01 ",.02)
 ;;51079-0193-01
 ;;9002226.02101,"873,51079-0193-03 ",.01)
 ;;51079-0193-03
 ;;9002226.02101,"873,51079-0193-03 ",.02)
 ;;51079-0193-03
 ;;9002226.02101,"873,51079-0194-01 ",.01)
 ;;51079-0194-01
 ;;9002226.02101,"873,51079-0194-01 ",.02)
 ;;51079-0194-01
 ;;9002226.02101,"873,51079-0194-03 ",.01)
 ;;51079-0194-03
 ;;9002226.02101,"873,51079-0194-03 ",.02)
 ;;51079-0194-03
 ;;9002226.02101,"873,51079-0697-40 ",.01)
 ;;51079-0697-40
 ;;9002226.02101,"873,51079-0697-40 ",.02)
 ;;51079-0697-40
 ;;9002226.02101,"873,51079-0698-40 ",.01)
 ;;51079-0698-40
 ;;9002226.02101,"873,51079-0698-40 ",.02)
 ;;51079-0698-40
 ;;9002226.02101,"873,51079-0699-40 ",.01)
 ;;51079-0699-40
 ;;9002226.02101,"873,51079-0699-40 ",.02)
 ;;51079-0699-40
 ;;9002226.02101,"873,51079-0750-01 ",.01)
 ;;51079-0750-01
 ;;9002226.02101,"873,51079-0750-01 ",.02)
 ;;51079-0750-01
 ;;9002226.02101,"873,51079-0750-20 ",.01)
 ;;51079-0750-20
 ;;9002226.02101,"873,51079-0750-20 ",.02)
 ;;51079-0750-20
 ;;9002226.02101,"873,51079-0751-01 ",.01)
 ;;51079-0751-01
 ;;9002226.02101,"873,51079-0751-01 ",.02)
 ;;51079-0751-01
 ;;9002226.02101,"873,51079-0751-20 ",.01)
 ;;51079-0751-20
 ;;9002226.02101,"873,51079-0751-20 ",.02)
 ;;51079-0751-20
 ;;9002226.02101,"873,51079-0752-01 ",.01)
 ;;51079-0752-01
 ;;9002226.02101,"873,51079-0752-01 ",.02)
 ;;51079-0752-01
 ;;9002226.02101,"873,51079-0752-20 ",.01)
 ;;51079-0752-20
 ;;9002226.02101,"873,51079-0752-20 ",.02)
 ;;51079-0752-20
 ;;9002226.02101,"873,51079-0757-01 ",.01)
 ;;51079-0757-01
 ;;9002226.02101,"873,51079-0757-01 ",.02)
 ;;51079-0757-01
 ;;9002226.02101,"873,51079-0757-20 ",.01)
 ;;51079-0757-20
 ;;9002226.02101,"873,51079-0757-20 ",.02)
 ;;51079-0757-20
 ;;9002226.02101,"873,51660-0140-30 ",.01)
 ;;51660-0140-30
 ;;9002226.02101,"873,51660-0140-30 ",.02)
 ;;51660-0140-30
 ;;9002226.02101,"873,51660-0141-90 ",.01)
 ;;51660-0141-90
 ;;9002226.02101,"873,51660-0141-90 ",.02)
 ;;51660-0141-90
 ;;9002226.02101,"873,51660-0142-90 ",.01)
 ;;51660-0142-90
 ;;9002226.02101,"873,51660-0142-90 ",.02)
 ;;51660-0142-90
 ;;9002226.02101,"873,51660-0143-90 ",.01)
 ;;51660-0143-90
 ;;9002226.02101,"873,51660-0143-90 ",.02)
 ;;51660-0143-90
 ;;9002226.02101,"873,51672-4045-01 ",.01)
 ;;51672-4045-01
 ;;9002226.02101,"873,51672-4045-01 ",.02)
 ;;51672-4045-01
 ;;9002226.02101,"873,51672-4046-01 ",.01)
 ;;51672-4046-01
 ;;9002226.02101,"873,51672-4046-01 ",.02)
 ;;51672-4046-01
 ;;9002226.02101,"873,52427-0435-90 ",.01)
 ;;52427-0435-90
 ;;9002226.02101,"873,52427-0435-90 ",.02)
 ;;52427-0435-90
 ;;9002226.02101,"873,52427-0436-90 ",.01)
 ;;52427-0436-90
 ;;9002226.02101,"873,52427-0436-90 ",.02)
 ;;52427-0436-90
 ;;9002226.02101,"873,52427-0437-90 ",.01)
 ;;52427-0437-90
 ;;9002226.02101,"873,52427-0437-90 ",.02)
 ;;52427-0437-90
 ;;9002226.02101,"873,52959-0137-15 ",.01)
 ;;52959-0137-15
 ;;9002226.02101,"873,52959-0137-15 ",.02)
 ;;52959-0137-15
 ;;9002226.02101,"873,52959-0498-00 ",.01)
 ;;52959-0498-00
 ;;9002226.02101,"873,52959-0498-00 ",.02)
 ;;52959-0498-00
 ;;9002226.02101,"873,52959-0756-30 ",.01)
 ;;52959-0756-30
 ;;9002226.02101,"873,52959-0756-30 ",.02)
 ;;52959-0756-30
 ;;9002226.02101,"873,52959-0907-30 ",.01)
 ;;52959-0907-30
 ;;9002226.02101,"873,52959-0907-30 ",.02)
 ;;52959-0907-30
 ;;9002226.02101,"873,52959-0997-02 ",.01)
 ;;52959-0997-02
 ;;9002226.02101,"873,52959-0997-02 ",.02)
 ;;52959-0997-02
 ;;9002226.02101,"873,52959-0997-30 ",.01)
 ;;52959-0997-30
 ;;9002226.02101,"873,52959-0997-30 ",.02)
 ;;52959-0997-30
 ;;9002226.02101,"873,52959-0997-60 ",.01)
 ;;52959-0997-60
 ;;9002226.02101,"873,52959-0997-60 ",.02)
 ;;52959-0997-60
 ;;9002226.02101,"873,52959-0997-90 ",.01)
 ;;52959-0997-90
 ;;9002226.02101,"873,52959-0997-90 ",.02)
 ;;52959-0997-90
 ;;9002226.02101,"873,54458-0886-10 ",.01)
 ;;54458-0886-10
 ;;9002226.02101,"873,54458-0886-10 ",.02)
 ;;54458-0886-10
 ;;9002226.02101,"873,54458-0907-02 ",.01)
 ;;54458-0907-02
 ;;9002226.02101,"873,54458-0907-02 ",.02)
 ;;54458-0907-02
 ;;9002226.02101,"873,54458-0910-02 ",.01)
 ;;54458-0910-02
 ;;9002226.02101,"873,54458-0910-02 ",.02)
 ;;54458-0910-02
 ;;9002226.02101,"873,54458-0991-10 ",.01)
 ;;54458-0991-10
 ;;9002226.02101,"873,54458-0991-10 ",.02)
 ;;54458-0991-10
 ;;9002226.02101,"873,54458-0992-10 ",.01)
 ;;54458-0992-10
 ;;9002226.02101,"873,54458-0992-10 ",.02)
 ;;54458-0992-10
 ;;9002226.02101,"873,54458-0993-09 ",.01)
 ;;54458-0993-09
 ;;9002226.02101,"873,54458-0993-09 ",.02)
 ;;54458-0993-09
 ;;9002226.02101,"873,54569-4437-00 ",.01)
 ;;54569-4437-00
 ;;9002226.02101,"873,54569-4437-00 ",.02)
 ;;54569-4437-00
 ;;9002226.02101,"873,54569-4438-00 ",.01)
 ;;54569-4438-00
 ;;9002226.02101,"873,54569-4438-00 ",.02)
 ;;54569-4438-00
 ;;9002226.02101,"873,54569-4572-00 ",.01)
 ;;54569-4572-00
 ;;9002226.02101,"873,54569-4572-00 ",.02)
 ;;54569-4572-00
 ;;9002226.02101,"873,54569-4696-00 ",.01)
 ;;54569-4696-00
 ;;9002226.02101,"873,54569-4696-00 ",.02)
 ;;54569-4696-00
 ;;9002226.02101,"873,54569-4698-00 ",.01)
 ;;54569-4698-00
 ;;9002226.02101,"873,54569-4698-00 ",.02)
 ;;54569-4698-00
 ;;9002226.02101,"873,54569-4714-00 ",.01)
 ;;54569-4714-00
 ;;9002226.02101,"873,54569-4714-00 ",.02)
 ;;54569-4714-00
 ;;9002226.02101,"873,54569-4719-00 ",.01)
 ;;54569-4719-00
 ;;9002226.02101,"873,54569-4719-00 ",.02)
 ;;54569-4719-00
 ;;9002226.02101,"873,54569-4719-01 ",.01)
 ;;54569-4719-01
 ;;9002226.02101,"873,54569-4719-01 ",.02)
 ;;54569-4719-01
 ;;9002226.02101,"873,54569-4722-00 ",.01)
 ;;54569-4722-00
 ;;9002226.02101,"873,54569-4722-00 ",.02)
 ;;54569-4722-00
 ;;9002226.02101,"873,54569-4722-01 ",.01)
 ;;54569-4722-01
 ;;9002226.02101,"873,54569-4722-01 ",.02)
 ;;54569-4722-01
 ;;9002226.02101,"873,54569-4766-00 ",.01)
 ;;54569-4766-00
 ;;9002226.02101,"873,54569-4766-00 ",.02)
 ;;54569-4766-00
 ;;9002226.02101,"873,54569-4766-03 ",.01)
 ;;54569-4766-03
 ;;9002226.02101,"873,54569-4766-03 ",.02)
 ;;54569-4766-03
 ;;9002226.02101,"873,54569-4767-00 ",.01)
 ;;54569-4767-00
 ;;9002226.02101,"873,54569-4767-00 ",.02)
 ;;54569-4767-00
 ;;9002226.02101,"873,54569-4767-03 ",.01)
 ;;54569-4767-03
 ;;9002226.02101,"873,54569-4767-03 ",.02)
 ;;54569-4767-03
 ;;9002226.02101,"873,54569-4829-00 ",.01)
 ;;54569-4829-00
 ;;9002226.02101,"873,54569-4829-00 ",.02)
 ;;54569-4829-00
 ;;9002226.02101,"873,54569-4895-00 ",.01)
 ;;54569-4895-00
 ;;9002226.02101,"873,54569-4895-00 ",.02)
 ;;54569-4895-00
 ;;9002226.02101,"873,54569-5232-00 ",.01)
 ;;54569-5232-00
 ;;9002226.02101,"873,54569-5232-00 ",.02)
 ;;54569-5232-00
 ;;9002226.02101,"873,54569-5361-00 ",.01)
 ;;54569-5361-00
 ;;9002226.02101,"873,54569-5361-00 ",.02)
 ;;54569-5361-00
 ;;9002226.02101,"873,54569-5362-00 ",.01)
 ;;54569-5362-00