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

BGP51I3.m

Go to the documentation of this file.
BGP51I3 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 19, 2014;
 ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143
 ;
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,"726,24987-0249-55 ",.02)
 ;;24987-0249-55
 ;;9002226.02101,"726,24987-0249-56 ",.01)
 ;;24987-0249-56
 ;;9002226.02101,"726,24987-0249-56 ",.02)
 ;;24987-0249-56
 ;;9002226.02101,"726,24987-0249-57 ",.01)
 ;;24987-0249-57
 ;;9002226.02101,"726,24987-0249-57 ",.02)
 ;;24987-0249-57
 ;;9002226.02101,"726,24987-0249-75 ",.01)
 ;;24987-0249-75
 ;;9002226.02101,"726,24987-0249-75 ",.02)
 ;;24987-0249-75
 ;;9002226.02101,"726,24987-0249-76 ",.01)
 ;;24987-0249-76
 ;;9002226.02101,"726,24987-0249-76 ",.02)
 ;;24987-0249-76
 ;;9002226.02101,"726,24987-0260-10 ",.01)
 ;;24987-0260-10
 ;;9002226.02101,"726,24987-0260-10 ",.02)
 ;;24987-0260-10
 ;;9002226.02101,"726,24987-0262-10 ",.01)
 ;;24987-0262-10
 ;;9002226.02101,"726,24987-0262-10 ",.02)
 ;;24987-0262-10
 ;;9002226.02101,"726,33261-0753-30 ",.01)
 ;;33261-0753-30
 ;;9002226.02101,"726,33261-0753-30 ",.02)
 ;;33261-0753-30
 ;;9002226.02101,"726,33261-0753-60 ",.01)
 ;;33261-0753-60
 ;;9002226.02101,"726,33261-0753-60 ",.02)
 ;;33261-0753-60
 ;;9002226.02101,"726,33261-0753-90 ",.01)
 ;;33261-0753-90
 ;;9002226.02101,"726,33261-0753-90 ",.02)
 ;;33261-0753-90
 ;;9002226.02101,"726,33261-0832-00 ",.01)
 ;;33261-0832-00
 ;;9002226.02101,"726,33261-0832-00 ",.02)
 ;;33261-0832-00
 ;;9002226.02101,"726,33261-0832-30 ",.01)
 ;;33261-0832-30
 ;;9002226.02101,"726,33261-0832-30 ",.02)
 ;;33261-0832-30
 ;;9002226.02101,"726,33261-0832-60 ",.01)
 ;;33261-0832-60
 ;;9002226.02101,"726,33261-0832-60 ",.02)
 ;;33261-0832-60
 ;;9002226.02101,"726,33261-0832-90 ",.01)
 ;;33261-0832-90
 ;;9002226.02101,"726,33261-0832-90 ",.02)
 ;;33261-0832-90
 ;;9002226.02101,"726,33358-0108-30 ",.01)
 ;;33358-0108-30
 ;;9002226.02101,"726,33358-0108-30 ",.02)
 ;;33358-0108-30
 ;;9002226.02101,"726,33358-0261-00 ",.01)
 ;;33358-0261-00
 ;;9002226.02101,"726,33358-0261-00 ",.02)
 ;;33358-0261-00
 ;;9002226.02101,"726,33358-0261-20 ",.01)
 ;;33358-0261-20
 ;;9002226.02101,"726,33358-0261-20 ",.02)
 ;;33358-0261-20
 ;;9002226.02101,"726,33358-0261-30 ",.01)
 ;;33358-0261-30
 ;;9002226.02101,"726,33358-0261-30 ",.02)
 ;;33358-0261-30
 ;;9002226.02101,"726,33358-0261-90 ",.01)
 ;;33358-0261-90
 ;;9002226.02101,"726,33358-0261-90 ",.02)
 ;;33358-0261-90
 ;;9002226.02101,"726,35356-0161-30 ",.01)
 ;;35356-0161-30
 ;;9002226.02101,"726,35356-0161-30 ",.02)
 ;;35356-0161-30
 ;;9002226.02101,"726,35356-0161-90 ",.01)
 ;;35356-0161-90
 ;;9002226.02101,"726,35356-0161-90 ",.02)
 ;;35356-0161-90
 ;;9002226.02101,"726,42254-0342-90 ",.01)
 ;;42254-0342-90
 ;;9002226.02101,"726,42254-0342-90 ",.02)
 ;;42254-0342-90
 ;;9002226.02101,"726,42254-0351-90 ",.01)
 ;;42254-0351-90
 ;;9002226.02101,"726,42254-0351-90 ",.02)
 ;;42254-0351-90
 ;;9002226.02101,"726,42254-0367-60 ",.01)
 ;;42254-0367-60
 ;;9002226.02101,"726,42254-0367-60 ",.02)
 ;;42254-0367-60
 ;;9002226.02101,"726,42291-0234-01 ",.01)
 ;;42291-0234-01
 ;;9002226.02101,"726,42291-0234-01 ",.02)
 ;;42291-0234-01
 ;;9002226.02101,"726,42291-0235-01 ",.01)
 ;;42291-0235-01
 ;;9002226.02101,"726,42291-0235-01 ",.02)
 ;;42291-0235-01
 ;;9002226.02101,"726,42291-0310-90 ",.01)
 ;;42291-0310-90
 ;;9002226.02101,"726,42291-0310-90 ",.02)
 ;;42291-0310-90
 ;;9002226.02101,"726,42291-0311-90 ",.01)
 ;;42291-0311-90
 ;;9002226.02101,"726,42291-0311-90 ",.02)
 ;;42291-0311-90
 ;;9002226.02101,"726,42806-0048-01 ",.01)
 ;;42806-0048-01
 ;;9002226.02101,"726,42806-0048-01 ",.02)
 ;;42806-0048-01
 ;;9002226.02101,"726,42806-0049-01 ",.01)
 ;;42806-0049-01
 ;;9002226.02101,"726,42806-0049-01 ",.02)
 ;;42806-0049-01
 ;;9002226.02101,"726,43353-0498-60 ",.01)
 ;;43353-0498-60
 ;;9002226.02101,"726,43353-0498-60 ",.02)
 ;;43353-0498-60
 ;;9002226.02101,"726,43353-0498-70 ",.01)
 ;;43353-0498-70
 ;;9002226.02101,"726,43353-0498-70 ",.02)
 ;;43353-0498-70
 ;;9002226.02101,"726,43353-0511-60 ",.01)
 ;;43353-0511-60
 ;;9002226.02101,"726,43353-0511-60 ",.02)
 ;;43353-0511-60
 ;;9002226.02101,"726,43353-0724-30 ",.01)
 ;;43353-0724-30
 ;;9002226.02101,"726,43353-0724-30 ",.02)
 ;;43353-0724-30
 ;;9002226.02101,"726,43353-0724-60 ",.01)
 ;;43353-0724-60
 ;;9002226.02101,"726,43353-0724-60 ",.02)
 ;;43353-0724-60
 ;;9002226.02101,"726,43353-0724-70 ",.01)
 ;;43353-0724-70
 ;;9002226.02101,"726,43353-0724-70 ",.02)
 ;;43353-0724-70
 ;;9002226.02101,"726,43353-0725-30 ",.01)
 ;;43353-0725-30
 ;;9002226.02101,"726,43353-0725-30 ",.02)
 ;;43353-0725-30
 ;;9002226.02101,"726,43353-0725-60 ",.01)
 ;;43353-0725-60
 ;;9002226.02101,"726,43353-0725-60 ",.02)
 ;;43353-0725-60
 ;;9002226.02101,"726,43353-0835-30 ",.01)
 ;;43353-0835-30
 ;;9002226.02101,"726,43353-0835-30 ",.02)
 ;;43353-0835-30
 ;;9002226.02101,"726,43353-0835-60 ",.01)
 ;;43353-0835-60
 ;;9002226.02101,"726,43353-0835-60 ",.02)
 ;;43353-0835-60
 ;;9002226.02101,"726,43386-0440-24 ",.01)
 ;;43386-0440-24
 ;;9002226.02101,"726,43386-0440-24 ",.02)
 ;;43386-0440-24
 ;;9002226.02101,"726,47463-0208-30 ",.01)
 ;;47463-0208-30
 ;;9002226.02101,"726,47463-0208-30 ",.02)
 ;;47463-0208-30
 ;;9002226.02101,"726,47463-0209-30 ",.01)
 ;;47463-0209-30
 ;;9002226.02101,"726,47463-0209-30 ",.02)
 ;;47463-0209-30
 ;;9002226.02101,"726,49884-0494-01 ",.01)
 ;;49884-0494-01
 ;;9002226.02101,"726,49884-0494-01 ",.02)
 ;;49884-0494-01
 ;;9002226.02101,"726,49884-0494-10 ",.01)
 ;;49884-0494-10
 ;;9002226.02101,"726,49884-0494-10 ",.02)
 ;;49884-0494-10
 ;;9002226.02101,"726,49884-0514-01 ",.01)
 ;;49884-0514-01
 ;;9002226.02101,"726,49884-0514-01 ",.02)
 ;;49884-0514-01
 ;;9002226.02101,"726,49884-0514-10 ",.01)
 ;;49884-0514-10
 ;;9002226.02101,"726,49884-0514-10 ",.02)
 ;;49884-0514-10
 ;;9002226.02101,"726,49999-0073-30 ",.01)
 ;;49999-0073-30
 ;;9002226.02101,"726,49999-0073-30 ",.02)
 ;;49999-0073-30
 ;;9002226.02101,"726,49999-0082-60 ",.01)
 ;;49999-0082-60
 ;;9002226.02101,"726,49999-0082-60 ",.02)
 ;;49999-0082-60
 ;;9002226.02101,"726,49999-0098-60 ",.01)
 ;;49999-0098-60
 ;;9002226.02101,"726,49999-0098-60 ",.02)
 ;;49999-0098-60
 ;;9002226.02101,"726,49999-0161-28 ",.01)
 ;;49999-0161-28
 ;;9002226.02101,"726,49999-0161-28 ",.02)
 ;;49999-0161-28
 ;;9002226.02101,"726,49999-0161-90 ",.01)
 ;;49999-0161-90
 ;;9002226.02101,"726,49999-0161-90 ",.02)
 ;;49999-0161-90
 ;;9002226.02101,"726,49999-0180-30 ",.01)
 ;;49999-0180-30
 ;;9002226.02101,"726,49999-0180-30 ",.02)
 ;;49999-0180-30
 ;;9002226.02101,"726,49999-0181-00 ",.01)
 ;;49999-0181-00
 ;;9002226.02101,"726,49999-0181-00 ",.02)
 ;;49999-0181-00
 ;;9002226.02101,"726,49999-0181-30 ",.01)
 ;;49999-0181-30
 ;;9002226.02101,"726,49999-0181-30 ",.02)
 ;;49999-0181-30
 ;;9002226.02101,"726,49999-0945-30 ",.01)
 ;;49999-0945-30
 ;;9002226.02101,"726,49999-0945-30 ",.02)
 ;;49999-0945-30
 ;;9002226.02101,"726,51079-0200-01 ",.01)
 ;;51079-0200-01
 ;;9002226.02101,"726,51079-0200-01 ",.02)
 ;;51079-0200-01
 ;;9002226.02101,"726,51079-0200-20 ",.01)
 ;;51079-0200-20
 ;;9002226.02101,"726,51079-0200-20 ",.02)
 ;;51079-0200-20
 ;;9002226.02101,"726,51079-0201-01 ",.01)
 ;;51079-0201-01
 ;;9002226.02101,"726,51079-0201-01 ",.02)
 ;;51079-0201-01
 ;;9002226.02101,"726,51079-0201-20 ",.01)
 ;;51079-0201-20
 ;;9002226.02101,"726,51079-0201-20 ",.02)
 ;;51079-0201-20
 ;;9002226.02101,"726,51079-0847-01 ",.01)
 ;;51079-0847-01
 ;;9002226.02101,"726,51079-0847-01 ",.02)
 ;;51079-0847-01
 ;;9002226.02101,"726,51079-0847-20 ",.01)
 ;;51079-0847-20
 ;;9002226.02101,"726,51079-0847-20 ",.02)
 ;;51079-0847-20
 ;;9002226.02101,"726,51079-0848-01 ",.01)
 ;;51079-0848-01
 ;;9002226.02101,"726,51079-0848-01 ",.02)
 ;;51079-0848-01
 ;;9002226.02101,"726,51079-0848-20 ",.01)
 ;;51079-0848-20
 ;;9002226.02101,"726,51079-0848-20 ",.02)
 ;;51079-0848-20
 ;;9002226.02101,"726,51138-0400-30 ",.01)
 ;;51138-0400-30
 ;;9002226.02101,"726,51138-0400-30 ",.02)
 ;;51138-0400-30
 ;;9002226.02101,"726,51138-0401-30 ",.01)
 ;;51138-0401-30
 ;;9002226.02101,"726,51138-0401-30 ",.02)
 ;;51138-0401-30
 ;;9002226.02101,"726,51138-0402-30 ",.01)
 ;;51138-0402-30
 ;;9002226.02101,"726,51138-0402-30 ",.02)
 ;;51138-0402-30
 ;;9002226.02101,"726,51138-0403-30 ",.01)
 ;;51138-0403-30
 ;;9002226.02101,"726,51138-0403-30 ",.02)
 ;;51138-0403-30
 ;;9002226.02101,"726,51138-0407-30 ",.01)
 ;;51138-0407-30
 ;;9002226.02101,"726,51138-0407-30 ",.02)
 ;;51138-0407-30
 ;;9002226.02101,"726,51138-0408-30 ",.01)
 ;;51138-0408-30
 ;;9002226.02101,"726,51138-0408-30 ",.02)
 ;;51138-0408-30
 ;;9002226.02101,"726,51138-0549-30 ",.01)
 ;;51138-0549-30
 ;;9002226.02101,"726,51138-0549-30 ",.02)
 ;;51138-0549-30
 ;;9002226.02101,"726,51138-0550-30 ",.01)
 ;;51138-0550-30
 ;;9002226.02101,"726,51138-0550-30 ",.02)
 ;;51138-0550-30
 ;;9002226.02101,"726,52959-0273-08 ",.01)
 ;;52959-0273-08
 ;;9002226.02101,"726,52959-0273-08 ",.02)
 ;;52959-0273-08
 ;;9002226.02101,"726,52959-0273-10 ",.01)
 ;;52959-0273-10
 ;;9002226.02101,"726,52959-0273-10 ",.02)
 ;;52959-0273-10
 ;;9002226.02101,"726,52959-0273-30 ",.01)
 ;;52959-0273-30
 ;;9002226.02101,"726,52959-0273-30 ",.02)
 ;;52959-0273-30
 ;;9002226.02101,"726,52959-0273-40 ",.01)
 ;;52959-0273-40
 ;;9002226.02101,"726,52959-0273-40 ",.02)
 ;;52959-0273-40
 ;;9002226.02101,"726,52959-0488-30 ",.01)
 ;;52959-0488-30
 ;;9002226.02101,"726,52959-0488-30 ",.02)
 ;;52959-0488-30
 ;;9002226.02101,"726,52959-0945-00 ",.01)
 ;;52959-0945-00
 ;;9002226.02101,"726,52959-0945-00 ",.02)
 ;;52959-0945-00
 ;;9002226.02101,"726,53217-0005-30 ",.01)
 ;;53217-0005-30
 ;;9002226.02101,"726,53217-0005-30 ",.02)
 ;;53217-0005-30
 ;;9002226.02101,"726,53217-0005-60 ",.01)
 ;;53217-0005-60
 ;;9002226.02101,"726,53217-0005-60 ",.02)
 ;;53217-0005-60
 ;;9002226.02101,"726,53217-0005-90 ",.01)
 ;;53217-0005-90
 ;;9002226.02101,"726,53217-0005-90 ",.02)
 ;;53217-0005-90
 ;;9002226.02101,"726,54092-0513-02 ",.01)
 ;;54092-0513-02
 ;;9002226.02101,"726,54092-0513-02 ",.02)
 ;;54092-0513-02
 ;;9002226.02101,"726,54092-0515-02 ",.01)
 ;;54092-0515-02
 ;;9002226.02101,"726,54092-0515-02 ",.02)
 ;;54092-0515-02
 ;;9002226.02101,"726,54092-0517-02 ",.01)
 ;;54092-0517-02
 ;;9002226.02101,"726,54092-0517-02 ",.02)
 ;;54092-0517-02
 ;;9002226.02101,"726,54092-0519-02 ",.01)
 ;;54092-0519-02
 ;;9002226.02101,"726,54092-0519-02 ",.02)
 ;;54092-0519-02
 ;;9002226.02101,"726,54348-0101-30 ",.01)
 ;;54348-0101-30
 ;;9002226.02101,"726,54348-0101-30 ",.02)
 ;;54348-0101-30
 ;;9002226.02101,"726,54348-0102-30 ",.01)
 ;;54348-0102-30
 ;;9002226.02101,"726,54348-0102-30 ",.02)
 ;;54348-0102-30
 ;;9002226.02101,"726,54348-0107-12 ",.01)
 ;;54348-0107-12
 ;;9002226.02101,"726,54348-0107-12 ",.02)
 ;;54348-0107-12
 ;;9002226.02101,"726,54569-0483-00 ",.01)
 ;;54569-0483-00
 ;;9002226.02101,"726,54569-0483-00 ",.02)
 ;;54569-0483-00
 ;;9002226.02101,"726,54569-0484-00 ",.01)
 ;;54569-0484-00
 ;;9002226.02101,"726,54569-0484-00 ",.02)
 ;;54569-0484-00
 ;;9002226.02101,"726,54569-0508-01 ",.01)
 ;;54569-0508-01
 ;;9002226.02101,"726,54569-0508-01 ",.02)
 ;;54569-0508-01
 ;;9002226.02101,"726,54569-0510-00 ",.01)
 ;;54569-0510-00
 ;;9002226.02101,"726,54569-0510-00 ",.02)
 ;;54569-0510-00
 ;;9002226.02101,"726,54569-3121-04 ",.01)
 ;;54569-3121-04
 ;;9002226.02101,"726,54569-3121-04 ",.02)
 ;;54569-3121-04
 ;;9002226.02101,"726,54569-3265-01 ",.01)
 ;;54569-3265-01
 ;;9002226.02101,"726,54569-3265-01 ",.02)
 ;;54569-3265-01
 ;;9002226.02101,"726,54569-5758-00 ",.01)
 ;;54569-5758-00
 ;;9002226.02101,"726,54569-5758-00 ",.02)
 ;;54569-5758-00
 ;;9002226.02101,"726,54569-5758-01 ",.01)
 ;;54569-5758-01
 ;;9002226.02101,"726,54569-5758-01 ",.02)
 ;;54569-5758-01
 ;;9002226.02101,"726,54868-0050-01 ",.01)
 ;;54868-0050-01
 ;;9002226.02101,"726,54868-0050-01 ",.02)
 ;;54868-0050-01
 ;;9002226.02101,"726,54868-0050-02 ",.01)
 ;;54868-0050-02
 ;;9002226.02101,"726,54868-0050-02 ",.02)
 ;;54868-0050-02
 ;;9002226.02101,"726,54868-0050-03 ",.01)
 ;;54868-0050-03
 ;;9002226.02101,"726,54868-0050-03 ",.02)
 ;;54868-0050-03
 ;;9002226.02101,"726,54868-0050-04 ",.01)
 ;;54868-0050-04
 ;;9002226.02101,"726,54868-0050-04 ",.02)
 ;;54868-0050-04
 ;;9002226.02101,"726,54868-0055-00 ",.01)
 ;;54868-0055-00
 ;;9002226.02101,"726,54868-0055-00 ",.02)
 ;;54868-0055-00
 ;;9002226.02101,"726,54868-0055-02 ",.01)
 ;;54868-0055-02
 ;;9002226.02101,"726,54868-0055-02 ",.02)
 ;;54868-0055-02
 ;;9002226.02101,"726,54868-0683-01 ",.01)
 ;;54868-0683-01
 ;;9002226.02101,"726,54868-0683-01 ",.02)
 ;;54868-0683-01
 ;;9002226.02101,"726,54868-0683-02 ",.01)
 ;;54868-0683-02
 ;;9002226.02101,"726,54868-0683-02 ",.02)
 ;;54868-0683-02
 ;;9002226.02101,"726,54868-0683-04 ",.01)
 ;;54868-0683-04
 ;;9002226.02101,"726,54868-0683-04 ",.02)
 ;;54868-0683-04
 ;;9002226.02101,"726,54868-0692-00 ",.01)
 ;;54868-0692-00
 ;;9002226.02101,"726,54868-0692-00 ",.02)
 ;;54868-0692-00
 ;;9002226.02101,"726,54868-0790-02 ",.01)
 ;;54868-0790-02
 ;;9002226.02101,"726,54868-0790-02 ",.02)
 ;;54868-0790-02
 ;;9002226.02101,"726,54868-0790-03 ",.01)
 ;;54868-0790-03
 ;;9002226.02101,"726,54868-0790-03 ",.02)
 ;;54868-0790-03
 ;;9002226.02101,"726,54868-0790-05 ",.01)
 ;;54868-0790-05
 ;;9002226.02101,"726,54868-0790-05 ",.02)
 ;;54868-0790-05
 ;;9002226.02101,"726,54868-1310-01 ",.01)
 ;;54868-1310-01
 ;;9002226.02101,"726,54868-1310-01 ",.02)
 ;;54868-1310-01
 ;;9002226.02101,"726,54868-1326-02 ",.01)
 ;;54868-1326-02
 ;;9002226.02101,"726,54868-1326-02 ",.02)
 ;;54868-1326-02
 ;;9002226.02101,"726,54868-1326-04 ",.01)
 ;;54868-1326-04