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

BGP14C11.m

Go to the documentation of this file.
BGP14C11 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 14, 2011 ;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
 ;
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,"1105,49999-0488-30 ",.01)
 ;;49999-0488-30
 ;;9002226.02101,"1105,49999-0488-30 ",.02)
 ;;49999-0488-30
 ;;9002226.02101,"1105,49999-0873-30 ",.01)
 ;;49999-0873-30
 ;;9002226.02101,"1105,49999-0873-30 ",.02)
 ;;49999-0873-30
 ;;9002226.02101,"1105,49999-0873-90 ",.01)
 ;;49999-0873-90
 ;;9002226.02101,"1105,49999-0873-90 ",.02)
 ;;49999-0873-90
 ;;9002226.02101,"1105,49999-0882-30 ",.01)
 ;;49999-0882-30
 ;;9002226.02101,"1105,49999-0882-30 ",.02)
 ;;49999-0882-30
 ;;9002226.02101,"1105,49999-0882-90 ",.01)
 ;;49999-0882-90
 ;;9002226.02101,"1105,49999-0882-90 ",.02)
 ;;49999-0882-90
 ;;9002226.02101,"1105,49999-0889-30 ",.01)
 ;;49999-0889-30
 ;;9002226.02101,"1105,49999-0889-30 ",.02)
 ;;49999-0889-30
 ;;9002226.02101,"1105,49999-0889-60 ",.01)
 ;;49999-0889-60
 ;;9002226.02101,"1105,49999-0889-60 ",.02)
 ;;49999-0889-60
 ;;9002226.02101,"1105,49999-0889-90 ",.01)
 ;;49999-0889-90
 ;;9002226.02101,"1105,49999-0889-90 ",.02)
 ;;49999-0889-90
 ;;9002226.02101,"1105,49999-0900-90 ",.01)
 ;;49999-0900-90
 ;;9002226.02101,"1105,49999-0900-90 ",.02)
 ;;49999-0900-90
 ;;9002226.02101,"1105,49999-0903-15 ",.01)
 ;;49999-0903-15
 ;;9002226.02101,"1105,49999-0903-15 ",.02)
 ;;49999-0903-15
 ;;9002226.02101,"1105,49999-0903-30 ",.01)
 ;;49999-0903-30
 ;;9002226.02101,"1105,49999-0903-30 ",.02)
 ;;49999-0903-30
 ;;9002226.02101,"1105,49999-0957-30 ",.01)
 ;;49999-0957-30
 ;;9002226.02101,"1105,49999-0957-30 ",.02)
 ;;49999-0957-30
 ;;9002226.02101,"1105,49999-0958-30 ",.01)
 ;;49999-0958-30
 ;;9002226.02101,"1105,49999-0958-30 ",.02)
 ;;49999-0958-30
 ;;9002226.02101,"1105,49999-0989-30 ",.01)
 ;;49999-0989-30
 ;;9002226.02101,"1105,49999-0989-30 ",.02)
 ;;49999-0989-30
 ;;9002226.02101,"1105,49999-0992-30 ",.01)
 ;;49999-0992-30
 ;;9002226.02101,"1105,49999-0992-30 ",.02)
 ;;49999-0992-30
 ;;9002226.02101,"1105,49999-0992-90 ",.01)
 ;;49999-0992-90
 ;;9002226.02101,"1105,49999-0992-90 ",.02)
 ;;49999-0992-90
 ;;9002226.02101,"1105,50111-0761-17 ",.01)
 ;;50111-0761-17
 ;;9002226.02101,"1105,50111-0761-17 ",.02)
 ;;50111-0761-17
 ;;9002226.02101,"1105,50111-0762-03 ",.01)
 ;;50111-0762-03
 ;;9002226.02101,"1105,50111-0762-03 ",.02)
 ;;50111-0762-03
 ;;9002226.02101,"1105,50111-0762-17 ",.01)
 ;;50111-0762-17
 ;;9002226.02101,"1105,50111-0762-17 ",.02)
 ;;50111-0762-17
 ;;9002226.02101,"1105,50111-0764-03 ",.01)
 ;;50111-0764-03
 ;;9002226.02101,"1105,50111-0764-03 ",.02)
 ;;50111-0764-03
 ;;9002226.02101,"1105,50111-0764-17 ",.01)
 ;;50111-0764-17
 ;;9002226.02101,"1105,50111-0764-17 ",.02)
 ;;50111-0764-17
 ;;9002226.02101,"1105,51079-0454-01 ",.01)
 ;;51079-0454-01
 ;;9002226.02101,"1105,51079-0454-01 ",.02)
 ;;51079-0454-01
 ;;9002226.02101,"1105,51079-0454-20 ",.01)
 ;;51079-0454-20
 ;;9002226.02101,"1105,51079-0454-20 ",.02)
 ;;51079-0454-20
 ;;9002226.02101,"1105,51079-0455-01 ",.01)
 ;;51079-0455-01
 ;;9002226.02101,"1105,51079-0455-01 ",.02)
 ;;51079-0455-01
 ;;9002226.02101,"1105,51079-0455-20 ",.01)
 ;;51079-0455-20
 ;;9002226.02101,"1105,51079-0455-20 ",.02)
 ;;51079-0455-20
 ;;9002226.02101,"1105,51079-0456-01 ",.01)
 ;;51079-0456-01
 ;;9002226.02101,"1105,51079-0456-01 ",.02)
 ;;51079-0456-01
 ;;9002226.02101,"1105,51079-0456-20 ",.01)
 ;;51079-0456-20
 ;;9002226.02101,"1105,51079-0456-20 ",.02)
 ;;51079-0456-20
 ;;9002226.02101,"1105,51079-0458-01 ",.01)
 ;;51079-0458-01
 ;;9002226.02101,"1105,51079-0458-01 ",.02)
 ;;51079-0458-01
 ;;9002226.02101,"1105,51079-0458-20 ",.01)
 ;;51079-0458-20
 ;;9002226.02101,"1105,51079-0458-20 ",.02)
 ;;51079-0458-20
 ;;9002226.02101,"1105,51079-0782-01 ",.01)
 ;;51079-0782-01
 ;;9002226.02101,"1105,51079-0782-01 ",.02)
 ;;51079-0782-01
 ;;9002226.02101,"1105,51079-0782-20 ",.01)
 ;;51079-0782-20
 ;;9002226.02101,"1105,51079-0782-20 ",.02)
 ;;51079-0782-20
 ;;9002226.02101,"1105,51079-0974-01 ",.01)
 ;;51079-0974-01
 ;;9002226.02101,"1105,51079-0974-01 ",.02)
 ;;51079-0974-01
 ;;9002226.02101,"1105,51079-0974-20 ",.01)
 ;;51079-0974-20
 ;;9002226.02101,"1105,51079-0974-20 ",.02)
 ;;51079-0974-20
 ;;9002226.02101,"1105,51079-0975-01 ",.01)
 ;;51079-0975-01
 ;;9002226.02101,"1105,51079-0975-01 ",.02)
 ;;51079-0975-01
 ;;9002226.02101,"1105,51079-0975-20 ",.01)
 ;;51079-0975-20
 ;;9002226.02101,"1105,51079-0975-20 ",.02)
 ;;51079-0975-20
 ;;9002226.02101,"1105,51079-0975-56 ",.01)
 ;;51079-0975-56
 ;;9002226.02101,"1105,51079-0975-56 ",.02)
 ;;51079-0975-56
 ;;9002226.02101,"1105,51079-0976-01 ",.01)
 ;;51079-0976-01
 ;;9002226.02101,"1105,51079-0976-01 ",.02)
 ;;51079-0976-01
 ;;9002226.02101,"1105,51079-0976-20 ",.01)
 ;;51079-0976-20
 ;;9002226.02101,"1105,51079-0976-20 ",.02)
 ;;51079-0976-20
 ;;9002226.02101,"1105,51079-0976-56 ",.01)
 ;;51079-0976-56
 ;;9002226.02101,"1105,51079-0976-56 ",.02)
 ;;51079-0976-56
 ;;9002226.02101,"1105,52959-0046-30 ",.01)
 ;;52959-0046-30
 ;;9002226.02101,"1105,52959-0046-30 ",.02)
 ;;52959-0046-30
 ;;9002226.02101,"1105,52959-0112-30 ",.01)
 ;;52959-0112-30
 ;;9002226.02101,"1105,52959-0112-30 ",.02)
 ;;52959-0112-30
 ;;9002226.02101,"1105,52959-0720-30 ",.01)
 ;;52959-0720-30
 ;;9002226.02101,"1105,52959-0720-30 ",.02)
 ;;52959-0720-30
 ;;9002226.02101,"1105,52959-0759-90 ",.01)
 ;;52959-0759-90
 ;;9002226.02101,"1105,52959-0759-90 ",.02)
 ;;52959-0759-90
 ;;9002226.02101,"1105,52959-0760-90 ",.01)
 ;;52959-0760-90
 ;;9002226.02101,"1105,52959-0760-90 ",.02)
 ;;52959-0760-90
 ;;9002226.02101,"1105,52959-0944-30 ",.01)
 ;;52959-0944-30
 ;;9002226.02101,"1105,52959-0944-30 ",.02)
 ;;52959-0944-30
 ;;9002226.02101,"1105,52959-0974-00 ",.01)
 ;;52959-0974-00
 ;;9002226.02101,"1105,52959-0974-00 ",.02)
 ;;52959-0974-00
 ;;9002226.02101,"1105,52959-0974-30 ",.01)
 ;;52959-0974-30
 ;;9002226.02101,"1105,52959-0974-30 ",.02)
 ;;52959-0974-30
 ;;9002226.02101,"1105,52959-0988-30 ",.01)
 ;;52959-0988-30
 ;;9002226.02101,"1105,52959-0988-30 ",.02)
 ;;52959-0988-30
 ;;9002226.02101,"1105,52959-0989-30 ",.01)
 ;;52959-0989-30
 ;;9002226.02101,"1105,52959-0989-30 ",.02)
 ;;52959-0989-30
 ;;9002226.02101,"1105,53002-0570-00 ",.01)
 ;;53002-0570-00
 ;;9002226.02101,"1105,53002-0570-00 ",.02)
 ;;53002-0570-00
 ;;9002226.02101,"1105,53002-0570-30 ",.01)
 ;;53002-0570-30
 ;;9002226.02101,"1105,53002-0570-30 ",.02)
 ;;53002-0570-30
 ;;9002226.02101,"1105,53002-1177-00 ",.01)
 ;;53002-1177-00
 ;;9002226.02101,"1105,53002-1177-00 ",.02)
 ;;53002-1177-00
 ;;9002226.02101,"1105,53002-1177-03 ",.01)
 ;;53002-1177-03
 ;;9002226.02101,"1105,53002-1177-03 ",.02)
 ;;53002-1177-03
 ;;9002226.02101,"1105,53002-1385-00 ",.01)
 ;;53002-1385-00
 ;;9002226.02101,"1105,53002-1385-00 ",.02)
 ;;53002-1385-00
 ;;9002226.02101,"1105,53002-1385-03 ",.01)
 ;;53002-1385-03
 ;;9002226.02101,"1105,53002-1385-03 ",.02)
 ;;53002-1385-03
 ;;9002226.02101,"1105,53002-1527-00 ",.01)
 ;;53002-1527-00
 ;;9002226.02101,"1105,53002-1527-00 ",.02)
 ;;53002-1527-00
 ;;9002226.02101,"1105,53002-1527-03 ",.01)
 ;;53002-1527-03
 ;;9002226.02101,"1105,53002-1527-03 ",.02)
 ;;53002-1527-03
 ;;9002226.02101,"1105,53002-1528-00 ",.01)
 ;;53002-1528-00
 ;;9002226.02101,"1105,53002-1528-00 ",.02)
 ;;53002-1528-00
 ;;9002226.02101,"1105,53002-1528-03 ",.01)
 ;;53002-1528-03
 ;;9002226.02101,"1105,53002-1528-03 ",.02)
 ;;53002-1528-03
 ;;9002226.02101,"1105,53002-1569-00 ",.01)
 ;;53002-1569-00
 ;;9002226.02101,"1105,53002-1569-00 ",.02)
 ;;53002-1569-00
 ;;9002226.02101,"1105,53002-1569-03 ",.01)
 ;;53002-1569-03
 ;;9002226.02101,"1105,53002-1569-03 ",.02)
 ;;53002-1569-03
 ;;9002226.02101,"1105,53489-0607-01 ",.01)
 ;;53489-0607-01
 ;;9002226.02101,"1105,53489-0607-01 ",.02)
 ;;53489-0607-01
 ;;9002226.02101,"1105,53489-0607-06 ",.01)
 ;;53489-0607-06
 ;;9002226.02101,"1105,53489-0607-06 ",.02)
 ;;53489-0607-06
 ;;9002226.02101,"1105,53489-0608-01 ",.01)
 ;;53489-0608-01
 ;;9002226.02101,"1105,53489-0608-01 ",.02)
 ;;53489-0608-01
 ;;9002226.02101,"1105,53489-0608-06 ",.01)
 ;;53489-0608-06
 ;;9002226.02101,"1105,53489-0608-06 ",.02)
 ;;53489-0608-06
 ;;9002226.02101,"1105,53489-0608-10 ",.01)
 ;;53489-0608-10
 ;;9002226.02101,"1105,53489-0608-10 ",.02)
 ;;53489-0608-10
 ;;9002226.02101,"1105,53489-0609-01 ",.01)
 ;;53489-0609-01
 ;;9002226.02101,"1105,53489-0609-01 ",.02)
 ;;53489-0609-01
 ;;9002226.02101,"1105,53489-0609-06 ",.01)
 ;;53489-0609-06
 ;;9002226.02101,"1105,53489-0609-06 ",.02)
 ;;53489-0609-06
 ;;9002226.02101,"1105,53489-0609-10 ",.01)
 ;;53489-0609-10
 ;;9002226.02101,"1105,53489-0609-10 ",.02)
 ;;53489-0609-10
 ;;9002226.02101,"1105,54458-0936-10 ",.01)
 ;;54458-0936-10
 ;;9002226.02101,"1105,54458-0936-10 ",.02)
 ;;54458-0936-10
 ;;9002226.02101,"1105,54458-0937-10 ",.01)
 ;;54458-0937-10
 ;;9002226.02101,"1105,54458-0937-10 ",.02)
 ;;54458-0937-10
 ;;9002226.02101,"1105,54458-0938-10 ",.01)
 ;;54458-0938-10
 ;;9002226.02101,"1105,54458-0938-10 ",.02)
 ;;54458-0938-10
 ;;9002226.02101,"1105,54458-0982-10 ",.01)
 ;;54458-0982-10
 ;;9002226.02101,"1105,54458-0982-10 ",.02)
 ;;54458-0982-10
 ;;9002226.02101,"1105,54458-0983-10 ",.01)
 ;;54458-0983-10
 ;;9002226.02101,"1105,54458-0983-10 ",.02)
 ;;54458-0983-10
 ;;9002226.02101,"1105,54458-0984-10 ",.01)
 ;;54458-0984-10
 ;;9002226.02101,"1105,54458-0984-10 ",.02)
 ;;54458-0984-10
 ;;9002226.02101,"1105,54458-0985-07 ",.01)
 ;;54458-0985-07
 ;;9002226.02101,"1105,54458-0985-07 ",.02)
 ;;54458-0985-07
 ;;9002226.02101,"1105,54458-0985-10 ",.01)
 ;;54458-0985-10
 ;;9002226.02101,"1105,54458-0985-10 ",.02)
 ;;54458-0985-10
 ;;9002226.02101,"1105,54458-0986-10 ",.01)
 ;;54458-0986-10
 ;;9002226.02101,"1105,54458-0986-10 ",.02)
 ;;54458-0986-10
 ;;9002226.02101,"1105,54458-0987-09 ",.01)
 ;;54458-0987-09
 ;;9002226.02101,"1105,54458-0987-09 ",.02)
 ;;54458-0987-09
 ;;9002226.02101,"1105,54569-0613-00 ",.01)
 ;;54569-0613-00
 ;;9002226.02101,"1105,54569-0613-00 ",.02)
 ;;54569-0613-00
 ;;9002226.02101,"1105,54569-0613-02 ",.01)
 ;;54569-0613-02
 ;;9002226.02101,"1105,54569-0613-02 ",.02)
 ;;54569-0613-02
 ;;9002226.02101,"1105,54569-3256-00 ",.01)
 ;;54569-3256-00
 ;;9002226.02101,"1105,54569-3256-00 ",.02)
 ;;54569-3256-00
 ;;9002226.02101,"1105,54569-3256-01 ",.01)
 ;;54569-3256-01
 ;;9002226.02101,"1105,54569-3256-01 ",.02)
 ;;54569-3256-01
 ;;9002226.02101,"1105,54569-3821-00 ",.01)
 ;;54569-3821-00
 ;;9002226.02101,"1105,54569-3821-00 ",.02)
 ;;54569-3821-00
 ;;9002226.02101,"1105,54569-3821-01 ",.01)
 ;;54569-3821-01
 ;;9002226.02101,"1105,54569-3821-01 ",.02)
 ;;54569-3821-01
 ;;9002226.02101,"1105,54569-4071-00 ",.01)
 ;;54569-4071-00
 ;;9002226.02101,"1105,54569-4071-00 ",.02)
 ;;54569-4071-00
 ;;9002226.02101,"1105,54569-4180-01 ",.01)
 ;;54569-4180-01
 ;;9002226.02101,"1105,54569-4180-01 ",.02)
 ;;54569-4180-01
 ;;9002226.02101,"1105,54569-4346-01 ",.01)
 ;;54569-4346-01
 ;;9002226.02101,"1105,54569-4346-01 ",.02)
 ;;54569-4346-01
 ;;9002226.02101,"1105,54569-4403-00 ",.01)
 ;;54569-4403-00
 ;;9002226.02101,"1105,54569-4403-00 ",.02)
 ;;54569-4403-00
 ;;9002226.02101,"1105,54569-4404-00 ",.01)
 ;;54569-4404-00
 ;;9002226.02101,"1105,54569-4404-00 ",.02)
 ;;54569-4404-00
 ;;9002226.02101,"1105,54569-4466-00 ",.01)
 ;;54569-4466-00
 ;;9002226.02101,"1105,54569-4466-00 ",.02)
 ;;54569-4466-00
 ;;9002226.02101,"1105,54569-4466-01 ",.01)
 ;;54569-4466-01
 ;;9002226.02101,"1105,54569-4466-01 ",.02)
 ;;54569-4466-01
 ;;9002226.02101,"1105,54569-4466-02 ",.01)
 ;;54569-4466-02
 ;;9002226.02101,"1105,54569-4466-02 ",.02)
 ;;54569-4466-02
 ;;9002226.02101,"1105,54569-4467-00 ",.01)
 ;;54569-4467-00
 ;;9002226.02101,"1105,54569-4467-00 ",.02)
 ;;54569-4467-00
 ;;9002226.02101,"1105,54569-4467-01 ",.01)
 ;;54569-4467-01
 ;;9002226.02101,"1105,54569-4467-01 ",.02)
 ;;54569-4467-01
 ;;9002226.02101,"1105,54569-4584-00 ",.01)
 ;;54569-4584-00
 ;;9002226.02101,"1105,54569-4584-00 ",.02)
 ;;54569-4584-00
 ;;9002226.02101,"1105,54569-4587-00 ",.01)
 ;;54569-4587-00
 ;;9002226.02101,"1105,54569-4587-00 ",.02)
 ;;54569-4587-00
 ;;9002226.02101,"1105,54569-4587-01 ",.01)
 ;;54569-4587-01
 ;;9002226.02101,"1105,54569-4587-01 ",.02)
 ;;54569-4587-01
 ;;9002226.02101,"1105,54569-4610-00 ",.01)
 ;;54569-4610-00
 ;;9002226.02101,"1105,54569-4610-00 ",.02)
 ;;54569-4610-00
 ;;9002226.02101,"1105,54569-4761-00 ",.01)
 ;;54569-4761-00
 ;;9002226.02101,"1105,54569-4761-00 ",.02)
 ;;54569-4761-00
 ;;9002226.02101,"1105,54569-4761-01 ",.01)
 ;;54569-4761-01
 ;;9002226.02101,"1105,54569-4761-01 ",.02)
 ;;54569-4761-01
 ;;9002226.02101,"1105,54569-5345-00 ",.01)
 ;;54569-5345-00
 ;;9002226.02101,"1105,54569-5345-00 ",.02)
 ;;54569-5345-00