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

BGP06L6.m

Go to the documentation of this file.
BGP06L6 ;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,"692,18837-0038-30 ",.01)
 ;;18837-0038-30
 ;;9002226.02101,"692,18837-0038-30 ",.02)
 ;;18837-0038-30
 ;;9002226.02101,"692,18837-0038-60 ",.01)
 ;;18837-0038-60
 ;;9002226.02101,"692,18837-0038-60 ",.02)
 ;;18837-0038-60
 ;;9002226.02101,"692,18837-0038-90 ",.01)
 ;;18837-0038-90
 ;;9002226.02101,"692,18837-0038-90 ",.02)
 ;;18837-0038-90
 ;;9002226.02101,"692,18837-0038-98 ",.01)
 ;;18837-0038-98
 ;;9002226.02101,"692,18837-0038-98 ",.02)
 ;;18837-0038-98
 ;;9002226.02101,"692,18837-0038-99 ",.01)
 ;;18837-0038-99
 ;;9002226.02101,"692,18837-0038-99 ",.02)
 ;;18837-0038-99
 ;;9002226.02101,"692,18837-0039-03 ",.01)
 ;;18837-0039-03
 ;;9002226.02101,"692,18837-0039-03 ",.02)
 ;;18837-0039-03
 ;;9002226.02101,"692,18837-0039-30 ",.01)
 ;;18837-0039-30
 ;;9002226.02101,"692,18837-0039-30 ",.02)
 ;;18837-0039-30
 ;;9002226.02101,"692,18837-0039-60 ",.01)
 ;;18837-0039-60
 ;;9002226.02101,"692,18837-0039-60 ",.02)
 ;;18837-0039-60
 ;;9002226.02101,"692,18837-0039-90 ",.01)
 ;;18837-0039-90
 ;;9002226.02101,"692,18837-0039-90 ",.02)
 ;;18837-0039-90
 ;;9002226.02101,"692,21695-0264-02 ",.01)
 ;;21695-0264-02
 ;;9002226.02101,"692,21695-0264-02 ",.02)
 ;;21695-0264-02
 ;;9002226.02101,"692,21695-0264-15 ",.01)
 ;;21695-0264-15
 ;;9002226.02101,"692,21695-0264-15 ",.02)
 ;;21695-0264-15
 ;;9002226.02101,"692,21695-0264-20 ",.01)
 ;;21695-0264-20
 ;;9002226.02101,"692,21695-0264-20 ",.02)
 ;;21695-0264-20
 ;;9002226.02101,"692,21695-0264-30 ",.01)
 ;;21695-0264-30
 ;;9002226.02101,"692,21695-0264-30 ",.02)
 ;;21695-0264-30
 ;;9002226.02101,"692,21695-0264-60 ",.01)
 ;;21695-0264-60
 ;;9002226.02101,"692,21695-0264-60 ",.02)
 ;;21695-0264-60
 ;;9002226.02101,"692,21695-0264-90 ",.01)
 ;;21695-0264-90
 ;;9002226.02101,"692,21695-0264-90 ",.02)
 ;;21695-0264-90
 ;;9002226.02101,"692,21695-0265-30 ",.01)
 ;;21695-0265-30
 ;;9002226.02101,"692,21695-0265-30 ",.02)
 ;;21695-0265-30
 ;;9002226.02101,"692,23490-0428-03 ",.01)
 ;;23490-0428-03
 ;;9002226.02101,"692,23490-0428-03 ",.02)
 ;;23490-0428-03
 ;;9002226.02101,"692,23490-0428-06 ",.01)
 ;;23490-0428-06
 ;;9002226.02101,"692,23490-0428-06 ",.02)
 ;;23490-0428-06
 ;;9002226.02101,"692,23490-5266-01 ",.01)
 ;;23490-5266-01
 ;;9002226.02101,"692,23490-5266-01 ",.02)
 ;;23490-5266-01
 ;;9002226.02101,"692,23490-5267-01 ",.01)
 ;;23490-5267-01
 ;;9002226.02101,"692,23490-5267-01 ",.02)
 ;;23490-5267-01
 ;;9002226.02101,"692,23490-5267-02 ",.01)
 ;;23490-5267-02
 ;;9002226.02101,"692,23490-5267-02 ",.02)
 ;;23490-5267-02
 ;;9002226.02101,"692,23490-5267-03 ",.01)
 ;;23490-5267-03
 ;;9002226.02101,"692,23490-5267-03 ",.02)
 ;;23490-5267-03
 ;;9002226.02101,"692,23490-5269-01 ",.01)
 ;;23490-5269-01
 ;;9002226.02101,"692,23490-5269-01 ",.02)
 ;;23490-5269-01
 ;;9002226.02101,"692,23490-5269-02 ",.01)
 ;;23490-5269-02
 ;;9002226.02101,"692,23490-5269-02 ",.02)
 ;;23490-5269-02
 ;;9002226.02101,"692,23490-5269-03 ",.01)
 ;;23490-5269-03
 ;;9002226.02101,"692,23490-5269-03 ",.02)
 ;;23490-5269-03
 ;;9002226.02101,"692,23490-5418-00 ",.01)
 ;;23490-5418-00
 ;;9002226.02101,"692,23490-5418-00 ",.02)
 ;;23490-5418-00
 ;;9002226.02101,"692,23490-5418-01 ",.01)
 ;;23490-5418-01
 ;;9002226.02101,"692,23490-5418-01 ",.02)
 ;;23490-5418-01
 ;;9002226.02101,"692,23490-5418-02 ",.01)
 ;;23490-5418-02
 ;;9002226.02101,"692,23490-5418-02 ",.02)
 ;;23490-5418-02
 ;;9002226.02101,"692,23490-5418-03 ",.01)
 ;;23490-5418-03
 ;;9002226.02101,"692,23490-5418-03 ",.02)
 ;;23490-5418-03
 ;;9002226.02101,"692,23490-5418-04 ",.01)
 ;;23490-5418-04
 ;;9002226.02101,"692,23490-5418-04 ",.02)
 ;;23490-5418-04
 ;;9002226.02101,"692,23490-5418-05 ",.01)
 ;;23490-5418-05
 ;;9002226.02101,"692,23490-5418-05 ",.02)
 ;;23490-5418-05
 ;;9002226.02101,"692,23490-5418-06 ",.01)
 ;;23490-5418-06
 ;;9002226.02101,"692,23490-5418-06 ",.02)
 ;;23490-5418-06
 ;;9002226.02101,"692,23490-5418-07 ",.01)
 ;;23490-5418-07
 ;;9002226.02101,"692,23490-5418-07 ",.02)
 ;;23490-5418-07
 ;;9002226.02101,"692,23490-5419-01 ",.01)
 ;;23490-5419-01
 ;;9002226.02101,"692,23490-5419-01 ",.02)
 ;;23490-5419-01
 ;;9002226.02101,"692,23490-5419-03 ",.01)
 ;;23490-5419-03
 ;;9002226.02101,"692,23490-5419-03 ",.02)
 ;;23490-5419-03
 ;;9002226.02101,"692,23490-5420-01 ",.01)
 ;;23490-5420-01
 ;;9002226.02101,"692,23490-5420-01 ",.02)
 ;;23490-5420-01
 ;;9002226.02101,"692,23490-5420-02 ",.01)
 ;;23490-5420-02
 ;;9002226.02101,"692,23490-5420-02 ",.02)
 ;;23490-5420-02
 ;;9002226.02101,"692,23490-5420-03 ",.01)
 ;;23490-5420-03
 ;;9002226.02101,"692,23490-5420-03 ",.02)
 ;;23490-5420-03
 ;;9002226.02101,"692,23490-5420-04 ",.01)
 ;;23490-5420-04
 ;;9002226.02101,"692,23490-5420-04 ",.02)
 ;;23490-5420-04
 ;;9002226.02101,"692,23490-5420-05 ",.01)
 ;;23490-5420-05
 ;;9002226.02101,"692,23490-5420-05 ",.02)
 ;;23490-5420-05
 ;;9002226.02101,"692,23490-5420-06 ",.01)
 ;;23490-5420-06
 ;;9002226.02101,"692,23490-5420-06 ",.02)
 ;;23490-5420-06
 ;;9002226.02101,"692,23490-5420-07 ",.01)
 ;;23490-5420-07
 ;;9002226.02101,"692,23490-5420-07 ",.02)
 ;;23490-5420-07
 ;;9002226.02101,"692,23490-5610-03 ",.01)
 ;;23490-5610-03
 ;;9002226.02101,"692,23490-5610-03 ",.02)
 ;;23490-5610-03
 ;;9002226.02101,"692,23490-5610-06 ",.01)
 ;;23490-5610-06
 ;;9002226.02101,"692,23490-5610-06 ",.02)
 ;;23490-5610-06
 ;;9002226.02101,"692,23490-5611-03 ",.01)
 ;;23490-5611-03
 ;;9002226.02101,"692,23490-5611-03 ",.02)
 ;;23490-5611-03
 ;;9002226.02101,"692,23490-5611-06 ",.01)
 ;;23490-5611-06
 ;;9002226.02101,"692,23490-5611-06 ",.02)
 ;;23490-5611-06
 ;;9002226.02101,"692,33358-0101-30 ",.01)
 ;;33358-0101-30
 ;;9002226.02101,"692,33358-0101-30 ",.02)
 ;;33358-0101-30
 ;;9002226.02101,"692,33358-0102-12 ",.01)
 ;;33358-0102-12
 ;;9002226.02101,"692,33358-0102-12 ",.02)
 ;;33358-0102-12
 ;;9002226.02101,"692,33358-0102-15 ",.01)
 ;;33358-0102-15
 ;;9002226.02101,"692,33358-0102-15 ",.02)
 ;;33358-0102-15
 ;;9002226.02101,"692,33358-0102-20 ",.01)
 ;;33358-0102-20
 ;;9002226.02101,"692,33358-0102-20 ",.02)
 ;;33358-0102-20
 ;;9002226.02101,"692,33358-0102-30 ",.01)
 ;;33358-0102-30
 ;;9002226.02101,"692,33358-0102-30 ",.02)
 ;;33358-0102-30
 ;;9002226.02101,"692,33358-0102-60 ",.01)
 ;;33358-0102-60
 ;;9002226.02101,"692,33358-0102-60 ",.02)
 ;;33358-0102-60
 ;;9002226.02101,"692,33358-0102-90 ",.01)
 ;;33358-0102-90
 ;;9002226.02101,"692,33358-0102-90 ",.02)
 ;;33358-0102-90
 ;;9002226.02101,"692,33358-0103-00 ",.01)
 ;;33358-0103-00
 ;;9002226.02101,"692,33358-0103-00 ",.02)
 ;;33358-0103-00
 ;;9002226.02101,"692,33358-0103-20 ",.01)
 ;;33358-0103-20
 ;;9002226.02101,"692,33358-0103-20 ",.02)
 ;;33358-0103-20
 ;;9002226.02101,"692,33358-0103-30 ",.01)
 ;;33358-0103-30
 ;;9002226.02101,"692,33358-0103-30 ",.02)
 ;;33358-0103-30
 ;;9002226.02101,"692,33358-0103-40 ",.01)
 ;;33358-0103-40
 ;;9002226.02101,"692,33358-0103-40 ",.02)
 ;;33358-0103-40
 ;;9002226.02101,"692,33358-0103-50 ",.01)
 ;;33358-0103-50
 ;;9002226.02101,"692,33358-0103-50 ",.02)
 ;;33358-0103-50
 ;;9002226.02101,"692,33358-0103-60 ",.01)
 ;;33358-0103-60
 ;;9002226.02101,"692,33358-0103-60 ",.02)
 ;;33358-0103-60
 ;;9002226.02101,"692,33358-0103-90 ",.01)
 ;;33358-0103-90
 ;;9002226.02101,"692,33358-0103-90 ",.02)
 ;;33358-0103-90
 ;;9002226.02101,"692,33358-0146-30 ",.01)
 ;;33358-0146-30
 ;;9002226.02101,"692,33358-0146-30 ",.02)
 ;;33358-0146-30
 ;;9002226.02101,"692,33358-0146-60 ",.01)
 ;;33358-0146-60
 ;;9002226.02101,"692,33358-0146-60 ",.02)
 ;;33358-0146-60
 ;;9002226.02101,"692,33358-0147-30 ",.01)
 ;;33358-0147-30
 ;;9002226.02101,"692,33358-0147-30 ",.02)
 ;;33358-0147-30
 ;;9002226.02101,"692,33358-0147-60 ",.01)
 ;;33358-0147-60
 ;;9002226.02101,"692,33358-0147-60 ",.02)
 ;;33358-0147-60
 ;;9002226.02101,"692,35356-0006-00 ",.01)
 ;;35356-0006-00
 ;;9002226.02101,"692,35356-0006-00 ",.02)
 ;;35356-0006-00
 ;;9002226.02101,"692,35356-0022-00 ",.01)
 ;;35356-0022-00
 ;;9002226.02101,"692,35356-0022-00 ",.02)
 ;;35356-0022-00
 ;;9002226.02101,"692,43063-0018-06 ",.01)
 ;;43063-0018-06
 ;;9002226.02101,"692,43063-0018-06 ",.02)
 ;;43063-0018-06
 ;;9002226.02101,"692,43063-0046-03 ",.01)
 ;;43063-0046-03
 ;;9002226.02101,"692,43063-0046-03 ",.02)
 ;;43063-0046-03
 ;;9002226.02101,"692,43063-0046-15 ",.01)
 ;;43063-0046-15
 ;;9002226.02101,"692,43063-0046-15 ",.02)
 ;;43063-0046-15
 ;;9002226.02101,"692,49884-0958-01 ",.01)
 ;;49884-0958-01
 ;;9002226.02101,"692,49884-0958-01 ",.02)
 ;;49884-0958-01
 ;;9002226.02101,"692,49884-0959-01 ",.01)
 ;;49884-0959-01
 ;;9002226.02101,"692,49884-0959-01 ",.02)
 ;;49884-0959-01
 ;;9002226.02101,"692,49884-0960-01 ",.01)
 ;;49884-0960-01
 ;;9002226.02101,"692,49884-0960-01 ",.02)
 ;;49884-0960-01
 ;;9002226.02101,"692,49884-0961-01 ",.01)
 ;;49884-0961-01
 ;;9002226.02101,"692,49884-0961-01 ",.02)
 ;;49884-0961-01
 ;;9002226.02101,"692,49884-0962-01 ",.01)
 ;;49884-0962-01
 ;;9002226.02101,"692,49884-0962-01 ",.02)
 ;;49884-0962-01
 ;;9002226.02101,"692,49999-0018-02 ",.01)
 ;;49999-0018-02
 ;;9002226.02101,"692,49999-0018-02 ",.02)
 ;;49999-0018-02
 ;;9002226.02101,"692,49999-0018-05 ",.01)
 ;;49999-0018-05
 ;;9002226.02101,"692,49999-0018-05 ",.02)
 ;;49999-0018-05
 ;;9002226.02101,"692,49999-0018-10 ",.01)
 ;;49999-0018-10
 ;;9002226.02101,"692,49999-0018-10 ",.02)
 ;;49999-0018-10
 ;;9002226.02101,"692,49999-0018-15 ",.01)
 ;;49999-0018-15
 ;;9002226.02101,"692,49999-0018-15 ",.02)
 ;;49999-0018-15
 ;;9002226.02101,"692,49999-0018-20 ",.01)
 ;;49999-0018-20
 ;;9002226.02101,"692,49999-0018-20 ",.02)
 ;;49999-0018-20
 ;;9002226.02101,"692,49999-0018-30 ",.01)
 ;;49999-0018-30
 ;;9002226.02101,"692,49999-0018-30 ",.02)
 ;;49999-0018-30
 ;;9002226.02101,"692,49999-0018-60 ",.01)
 ;;49999-0018-60
 ;;9002226.02101,"692,49999-0018-60 ",.02)
 ;;49999-0018-60
 ;;9002226.02101,"692,49999-0018-90 ",.01)
 ;;49999-0018-90
 ;;9002226.02101,"692,49999-0018-90 ",.02)
 ;;49999-0018-90
 ;;9002226.02101,"692,49999-0027-00 ",.01)
 ;;49999-0027-00
 ;;9002226.02101,"692,49999-0027-00 ",.02)
 ;;49999-0027-00
 ;;9002226.02101,"692,49999-0027-01 ",.01)
 ;;49999-0027-01
 ;;9002226.02101,"692,49999-0027-01 ",.02)
 ;;49999-0027-01
 ;;9002226.02101,"692,49999-0027-02 ",.01)
 ;;49999-0027-02
 ;;9002226.02101,"692,49999-0027-02 ",.02)
 ;;49999-0027-02
 ;;9002226.02101,"692,49999-0027-20 ",.01)
 ;;49999-0027-20
 ;;9002226.02101,"692,49999-0027-20 ",.02)
 ;;49999-0027-20
 ;;9002226.02101,"692,49999-0027-30 ",.01)
 ;;49999-0027-30
 ;;9002226.02101,"692,49999-0027-30 ",.02)
 ;;49999-0027-30
 ;;9002226.02101,"692,49999-0027-60 ",.01)
 ;;49999-0027-60
 ;;9002226.02101,"692,49999-0027-60 ",.02)
 ;;49999-0027-60
 ;;9002226.02101,"692,49999-0027-90 ",.01)
 ;;49999-0027-90
 ;;9002226.02101,"692,49999-0027-90 ",.02)
 ;;49999-0027-90
 ;;9002226.02101,"692,49999-0079-30 ",.01)
 ;;49999-0079-30
 ;;9002226.02101,"692,49999-0079-30 ",.02)
 ;;49999-0079-30
 ;;9002226.02101,"692,49999-0214-50 ",.01)
 ;;49999-0214-50
 ;;9002226.02101,"692,49999-0214-50 ",.02)
 ;;49999-0214-50
 ;;9002226.02101,"692,49999-0244-10 ",.01)
 ;;49999-0244-10
 ;;9002226.02101,"692,49999-0244-10 ",.02)
 ;;49999-0244-10
 ;;9002226.02101,"692,49999-0244-20 ",.01)
 ;;49999-0244-20
 ;;9002226.02101,"692,49999-0244-20 ",.02)
 ;;49999-0244-20
 ;;9002226.02101,"692,49999-0244-30 ",.01)
 ;;49999-0244-30
 ;;9002226.02101,"692,49999-0244-30 ",.02)
 ;;49999-0244-30
 ;;9002226.02101,"692,51079-0141-01 ",.01)
 ;;51079-0141-01
 ;;9002226.02101,"692,51079-0141-01 ",.02)
 ;;51079-0141-01
 ;;9002226.02101,"692,51079-0141-20 ",.01)
 ;;51079-0141-20
 ;;9002226.02101,"692,51079-0141-20 ",.02)
 ;;51079-0141-20
 ;;9002226.02101,"692,51079-0284-01 ",.01)
 ;;51079-0284-01
 ;;9002226.02101,"692,51079-0284-01 ",.02)
 ;;51079-0284-01
 ;;9002226.02101,"692,51079-0284-20 ",.01)
 ;;51079-0284-20
 ;;9002226.02101,"692,51079-0284-20 ",.02)
 ;;51079-0284-20
 ;;9002226.02101,"692,51079-0284-21 ",.01)
 ;;51079-0284-21
 ;;9002226.02101,"692,51079-0284-21 ",.02)
 ;;51079-0284-21
 ;;9002226.02101,"692,51079-0285-01 ",.01)
 ;;51079-0285-01
 ;;9002226.02101,"692,51079-0285-01 ",.02)
 ;;51079-0285-01
 ;;9002226.02101,"692,51079-0285-20 ",.01)
 ;;51079-0285-20
 ;;9002226.02101,"692,51079-0285-20 ",.02)
 ;;51079-0285-20
 ;;9002226.02101,"692,51079-0285-21 ",.01)
 ;;51079-0285-21
 ;;9002226.02101,"692,51079-0285-21 ",.02)
 ;;51079-0285-21
 ;;9002226.02101,"692,51079-0286-01 ",.01)
 ;;51079-0286-01
 ;;9002226.02101,"692,51079-0286-01 ",.02)
 ;;51079-0286-01
 ;;9002226.02101,"692,51079-0286-20 ",.01)
 ;;51079-0286-20
 ;;9002226.02101,"692,51079-0286-20 ",.02)
 ;;51079-0286-20
 ;;9002226.02101,"692,51079-0286-21 ",.01)
 ;;51079-0286-21
 ;;9002226.02101,"692,51079-0286-21 ",.02)
 ;;51079-0286-21
 ;;9002226.02101,"692,51079-0302-01 ",.01)
 ;;51079-0302-01
 ;;9002226.02101,"692,51079-0302-01 ",.02)
 ;;51079-0302-01
 ;;9002226.02101,"692,51079-0302-20 ",.01)
 ;;51079-0302-20
 ;;9002226.02101,"692,51079-0302-20 ",.02)
 ;;51079-0302-20
 ;;9002226.02101,"692,51079-0302-21 ",.01)
 ;;51079-0302-21
 ;;9002226.02101,"692,51079-0302-21 ",.02)
 ;;51079-0302-21
 ;;9002226.02101,"692,51079-0303-01 ",.01)
 ;;51079-0303-01
 ;;9002226.02101,"692,51079-0303-01 ",.02)
 ;;51079-0303-01
 ;;9002226.02101,"692,51079-0303-20 ",.01)
 ;;51079-0303-20
 ;;9002226.02101,"692,51079-0303-20 ",.02)
 ;;51079-0303-20
 ;;9002226.02101,"692,51079-0303-21 ",.01)
 ;;51079-0303-21
 ;;9002226.02101,"692,51079-0303-21 ",.02)
 ;;51079-0303-21