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

BGP13T34.m

Go to the documentation of this file.
BGP13T34 ; 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,"992,33358-0344-30 ",.02)
 ;;33358-0344-30
 ;;9002226.02101,"992,33358-0344-60 ",.01)
 ;;33358-0344-60
 ;;9002226.02101,"992,33358-0344-60 ",.02)
 ;;33358-0344-60
 ;;9002226.02101,"992,33358-0345-30 ",.01)
 ;;33358-0345-30
 ;;9002226.02101,"992,33358-0345-30 ",.02)
 ;;33358-0345-30
 ;;9002226.02101,"992,33358-0345-90 ",.01)
 ;;33358-0345-90
 ;;9002226.02101,"992,33358-0345-90 ",.02)
 ;;33358-0345-90
 ;;9002226.02101,"992,33358-0346-30 ",.01)
 ;;33358-0346-30
 ;;9002226.02101,"992,33358-0346-30 ",.02)
 ;;33358-0346-30
 ;;9002226.02101,"992,33358-0346-60 ",.01)
 ;;33358-0346-60
 ;;9002226.02101,"992,33358-0346-60 ",.02)
 ;;33358-0346-60
 ;;9002226.02101,"992,33358-0346-90 ",.01)
 ;;33358-0346-90
 ;;9002226.02101,"992,33358-0346-90 ",.02)
 ;;33358-0346-90
 ;;9002226.02101,"992,35356-0028-30 ",.01)
 ;;35356-0028-30
 ;;9002226.02101,"992,35356-0028-30 ",.02)
 ;;35356-0028-30
 ;;9002226.02101,"992,35356-0029-30 ",.01)
 ;;35356-0029-30
 ;;9002226.02101,"992,35356-0029-30 ",.02)
 ;;35356-0029-30
 ;;9002226.02101,"992,35356-0030-30 ",.01)
 ;;35356-0030-30
 ;;9002226.02101,"992,35356-0030-30 ",.02)
 ;;35356-0030-30
 ;;9002226.02101,"992,35356-0031-30 ",.01)
 ;;35356-0031-30
 ;;9002226.02101,"992,35356-0031-30 ",.02)
 ;;35356-0031-30
 ;;9002226.02101,"992,35356-0032-30 ",.01)
 ;;35356-0032-30
 ;;9002226.02101,"992,35356-0032-30 ",.02)
 ;;35356-0032-30
 ;;9002226.02101,"992,35356-0033-30 ",.01)
 ;;35356-0033-30
 ;;9002226.02101,"992,35356-0033-30 ",.02)
 ;;35356-0033-30
 ;;9002226.02101,"992,35356-0045-30 ",.01)
 ;;35356-0045-30
 ;;9002226.02101,"992,35356-0045-30 ",.02)
 ;;35356-0045-30
 ;;9002226.02101,"992,35356-0046-30 ",.01)
 ;;35356-0046-30
 ;;9002226.02101,"992,35356-0046-30 ",.02)
 ;;35356-0046-30
 ;;9002226.02101,"992,35356-0087-30 ",.01)
 ;;35356-0087-30
 ;;9002226.02101,"992,35356-0087-30 ",.02)
 ;;35356-0087-30
 ;;9002226.02101,"992,35356-0087-60 ",.01)
 ;;35356-0087-60
 ;;9002226.02101,"992,35356-0087-60 ",.02)
 ;;35356-0087-60
 ;;9002226.02101,"992,35356-0087-90 ",.01)
 ;;35356-0087-90
 ;;9002226.02101,"992,35356-0087-90 ",.02)
 ;;35356-0087-90
 ;;9002226.02101,"992,35356-0369-60 ",.01)
 ;;35356-0369-60
 ;;9002226.02101,"992,35356-0369-60 ",.02)
 ;;35356-0369-60
 ;;9002226.02101,"992,39506-0033-30 ",.01)
 ;;39506-0033-30
 ;;9002226.02101,"992,39506-0033-30 ",.02)
 ;;39506-0033-30
 ;;9002226.02101,"992,39506-0044-30 ",.01)
 ;;39506-0044-30
 ;;9002226.02101,"992,39506-0044-30 ",.02)
 ;;39506-0044-30
 ;;9002226.02101,"992,39506-0055-30 ",.01)
 ;;39506-0055-30
 ;;9002226.02101,"992,39506-0055-30 ",.02)
 ;;39506-0055-30
 ;;9002226.02101,"992,41616-0758-81 ",.01)
 ;;41616-0758-81
 ;;9002226.02101,"992,41616-0758-81 ",.02)
 ;;41616-0758-81
 ;;9002226.02101,"992,41616-0758-83 ",.01)
 ;;41616-0758-83
 ;;9002226.02101,"992,41616-0758-83 ",.02)
 ;;41616-0758-83
 ;;9002226.02101,"992,41616-0759-81 ",.01)
 ;;41616-0759-81
 ;;9002226.02101,"992,41616-0759-81 ",.02)
 ;;41616-0759-81
 ;;9002226.02101,"992,41616-0759-83 ",.01)
 ;;41616-0759-83
 ;;9002226.02101,"992,41616-0759-83 ",.02)
 ;;41616-0759-83
 ;;9002226.02101,"992,41616-0760-81 ",.01)
 ;;41616-0760-81
 ;;9002226.02101,"992,41616-0760-81 ",.02)
 ;;41616-0760-81
 ;;9002226.02101,"992,41616-0760-83 ",.01)
 ;;41616-0760-83
 ;;9002226.02101,"992,41616-0760-83 ",.02)
 ;;41616-0760-83
 ;;9002226.02101,"992,42769-1221-00 ",.01)
 ;;42769-1221-00
 ;;9002226.02101,"992,42769-1221-00 ",.02)
 ;;42769-1221-00
 ;;9002226.02101,"992,42769-1222-00 ",.01)
 ;;42769-1222-00
 ;;9002226.02101,"992,42769-1222-00 ",.02)
 ;;42769-1222-00
 ;;9002226.02101,"992,42769-1225-00 ",.01)
 ;;42769-1225-00
 ;;9002226.02101,"992,42769-1225-00 ",.02)
 ;;42769-1225-00
 ;;9002226.02101,"992,42847-0103-03 ",.01)
 ;;42847-0103-03
 ;;9002226.02101,"992,42847-0103-03 ",.02)
 ;;42847-0103-03
 ;;9002226.02101,"992,42847-0106-03 ",.01)
 ;;42847-0106-03
 ;;9002226.02101,"992,42847-0106-03 ",.02)
 ;;42847-0106-03
 ;;9002226.02101,"992,43063-0009-01 ",.01)
 ;;43063-0009-01
 ;;9002226.02101,"992,43063-0009-01 ",.02)
 ;;43063-0009-01
 ;;9002226.02101,"992,43063-0033-01 ",.01)
 ;;43063-0033-01
 ;;9002226.02101,"992,43063-0033-01 ",.02)
 ;;43063-0033-01
 ;;9002226.02101,"992,43063-0262-30 ",.01)
 ;;43063-0262-30
 ;;9002226.02101,"992,43063-0262-30 ",.02)
 ;;43063-0262-30
 ;;9002226.02101,"992,43353-0362-15 ",.01)
 ;;43353-0362-15
 ;;9002226.02101,"992,43353-0362-15 ",.02)
 ;;43353-0362-15
 ;;9002226.02101,"992,43353-0364-15 ",.01)
 ;;43353-0364-15
 ;;9002226.02101,"992,43353-0364-15 ",.02)
 ;;43353-0364-15
 ;;9002226.02101,"992,43353-0370-53 ",.01)
 ;;43353-0370-53
 ;;9002226.02101,"992,43353-0370-53 ",.02)
 ;;43353-0370-53
 ;;9002226.02101,"992,43353-0378-45 ",.01)
 ;;43353-0378-45
 ;;9002226.02101,"992,43353-0378-45 ",.02)
 ;;43353-0378-45
 ;;9002226.02101,"992,43353-0382-30 ",.01)
 ;;43353-0382-30
 ;;9002226.02101,"992,43353-0382-30 ",.02)
 ;;43353-0382-30
 ;;9002226.02101,"992,43353-0415-30 ",.01)
 ;;43353-0415-30
 ;;9002226.02101,"992,43353-0415-30 ",.02)
 ;;43353-0415-30
 ;;9002226.02101,"992,43353-0419-15 ",.01)
 ;;43353-0419-15
 ;;9002226.02101,"992,43353-0419-15 ",.02)
 ;;43353-0419-15
 ;;9002226.02101,"992,43353-0421-30 ",.01)
 ;;43353-0421-30
 ;;9002226.02101,"992,43353-0421-30 ",.02)
 ;;43353-0421-30
 ;;9002226.02101,"992,43353-0429-15 ",.01)
 ;;43353-0429-15
 ;;9002226.02101,"992,43353-0429-15 ",.02)
 ;;43353-0429-15
 ;;9002226.02101,"992,43353-0435-30 ",.01)
 ;;43353-0435-30
 ;;9002226.02101,"992,43353-0435-30 ",.02)
 ;;43353-0435-30
 ;;9002226.02101,"992,43353-0441-53 ",.01)
 ;;43353-0441-53
 ;;9002226.02101,"992,43353-0441-53 ",.02)
 ;;43353-0441-53
 ;;9002226.02101,"992,43353-0447-15 ",.01)
 ;;43353-0447-15
 ;;9002226.02101,"992,43353-0447-15 ",.02)
 ;;43353-0447-15
 ;;9002226.02101,"992,43595-0080-03 ",.01)
 ;;43595-0080-03
 ;;9002226.02101,"992,43595-0080-03 ",.02)
 ;;43595-0080-03
 ;;9002226.02101,"992,43595-0081-03 ",.01)
 ;;43595-0081-03
 ;;9002226.02101,"992,43595-0081-03 ",.02)
 ;;43595-0081-03
 ;;9002226.02101,"992,45802-0306-65 ",.01)
 ;;45802-0306-65
 ;;9002226.02101,"992,45802-0306-65 ",.02)
 ;;45802-0306-65
 ;;9002226.02101,"992,45802-0306-78 ",.01)
 ;;45802-0306-78
 ;;9002226.02101,"992,45802-0306-78 ",.02)
 ;;45802-0306-78
 ;;9002226.02101,"992,45802-0596-65 ",.01)
 ;;45802-0596-65
 ;;9002226.02101,"992,45802-0596-65 ",.02)
 ;;45802-0596-65
 ;;9002226.02101,"992,45802-0596-78 ",.01)
 ;;45802-0596-78
 ;;9002226.02101,"992,45802-0596-78 ",.02)
 ;;45802-0596-78
 ;;9002226.02101,"992,45802-0616-65 ",.01)
 ;;45802-0616-65
 ;;9002226.02101,"992,45802-0616-65 ",.02)
 ;;45802-0616-65
 ;;9002226.02101,"992,45802-0616-78 ",.01)
 ;;45802-0616-78
 ;;9002226.02101,"992,45802-0616-78 ",.02)
 ;;45802-0616-78
 ;;9002226.02101,"992,47335-0736-13 ",.01)
 ;;47335-0736-13
 ;;9002226.02101,"992,47335-0736-13 ",.02)
 ;;47335-0736-13
 ;;9002226.02101,"992,47335-0736-86 ",.01)
 ;;47335-0736-86
 ;;9002226.02101,"992,47335-0736-86 ",.02)
 ;;47335-0736-86
 ;;9002226.02101,"992,47335-0736-88 ",.01)
 ;;47335-0736-88
 ;;9002226.02101,"992,47335-0736-88 ",.02)
 ;;47335-0736-88
 ;;9002226.02101,"992,47335-0737-13 ",.01)
 ;;47335-0737-13
 ;;9002226.02101,"992,47335-0737-13 ",.02)
 ;;47335-0737-13
 ;;9002226.02101,"992,47335-0737-86 ",.01)
 ;;47335-0737-86
 ;;9002226.02101,"992,47335-0737-86 ",.02)
 ;;47335-0737-86
 ;;9002226.02101,"992,47335-0737-88 ",.01)
 ;;47335-0737-88
 ;;9002226.02101,"992,47335-0737-88 ",.02)
 ;;47335-0737-88
 ;;9002226.02101,"992,47335-0738-86 ",.01)
 ;;47335-0738-86
 ;;9002226.02101,"992,47335-0738-86 ",.02)
 ;;47335-0738-86
 ;;9002226.02101,"992,49502-0900-30 ",.01)
 ;;49502-0900-30
 ;;9002226.02101,"992,49502-0900-30 ",.02)
 ;;49502-0900-30
 ;;9002226.02101,"992,49502-0901-30 ",.01)
 ;;49502-0901-30
 ;;9002226.02101,"992,49502-0901-30 ",.02)
 ;;49502-0901-30
 ;;9002226.02101,"992,49502-0902-30 ",.01)
 ;;49502-0902-30
 ;;9002226.02101,"992,49502-0902-30 ",.02)
 ;;49502-0902-30
 ;;9002226.02101,"992,49727-0159-02 ",.01)
 ;;49727-0159-02
 ;;9002226.02101,"992,49727-0159-02 ",.02)
 ;;49727-0159-02
 ;;9002226.02101,"992,49727-0159-05 ",.01)
 ;;49727-0159-05
 ;;9002226.02101,"992,49727-0159-05 ",.02)
 ;;49727-0159-05
 ;;9002226.02101,"992,49884-0032-01 ",.01)
 ;;49884-0032-01
 ;;9002226.02101,"992,49884-0032-01 ",.02)
 ;;49884-0032-01
 ;;9002226.02101,"992,49884-0054-01 ",.01)
 ;;49884-0054-01
 ;;9002226.02101,"992,49884-0054-01 ",.02)
 ;;49884-0054-01
 ;;9002226.02101,"992,49884-0054-10 ",.01)
 ;;49884-0054-10
 ;;9002226.02101,"992,49884-0054-10 ",.02)
 ;;49884-0054-10
 ;;9002226.02101,"992,49884-0055-01 ",.01)
 ;;49884-0055-01
 ;;9002226.02101,"992,49884-0055-01 ",.02)
 ;;49884-0055-01
 ;;9002226.02101,"992,49884-0055-10 ",.01)
 ;;49884-0055-10
 ;;9002226.02101,"992,49884-0055-10 ",.02)
 ;;49884-0055-10
 ;;9002226.02101,"992,49884-0056-01 ",.01)
 ;;49884-0056-01
 ;;9002226.02101,"992,49884-0056-01 ",.02)
 ;;49884-0056-01
 ;;9002226.02101,"992,49884-0056-10 ",.01)
 ;;49884-0056-10
 ;;9002226.02101,"992,49884-0056-10 ",.02)
 ;;49884-0056-10
 ;;9002226.02101,"992,49884-0217-01 ",.01)
 ;;49884-0217-01
 ;;9002226.02101,"992,49884-0217-01 ",.02)
 ;;49884-0217-01
 ;;9002226.02101,"992,49884-0217-05 ",.01)
 ;;49884-0217-05
 ;;9002226.02101,"992,49884-0217-05 ",.02)
 ;;49884-0217-05
 ;;9002226.02101,"992,49884-0217-10 ",.01)
 ;;49884-0217-10
 ;;9002226.02101,"992,49884-0217-10 ",.02)
 ;;49884-0217-10
 ;;9002226.02101,"992,49884-0218-01 ",.01)
 ;;49884-0218-01
 ;;9002226.02101,"992,49884-0218-01 ",.02)
 ;;49884-0218-01
 ;;9002226.02101,"992,49884-0218-05 ",.01)
 ;;49884-0218-05
 ;;9002226.02101,"992,49884-0218-05 ",.02)
 ;;49884-0218-05
 ;;9002226.02101,"992,49884-0218-10 ",.01)
 ;;49884-0218-10
 ;;9002226.02101,"992,49884-0218-10 ",.02)
 ;;49884-0218-10
 ;;9002226.02101,"992,49884-0219-01 ",.01)
 ;;49884-0219-01
 ;;9002226.02101,"992,49884-0219-01 ",.02)
 ;;49884-0219-01
 ;;9002226.02101,"992,49884-0219-05 ",.01)
 ;;49884-0219-05
 ;;9002226.02101,"992,49884-0219-05 ",.02)
 ;;49884-0219-05
 ;;9002226.02101,"992,49884-0219-10 ",.01)
 ;;49884-0219-10
 ;;9002226.02101,"992,49884-0219-10 ",.02)
 ;;49884-0219-10
 ;;9002226.02101,"992,49884-0220-01 ",.01)
 ;;49884-0220-01
 ;;9002226.02101,"992,49884-0220-01 ",.02)
 ;;49884-0220-01
 ;;9002226.02101,"992,49884-0220-05 ",.01)
 ;;49884-0220-05
 ;;9002226.02101,"992,49884-0220-05 ",.02)
 ;;49884-0220-05
 ;;9002226.02101,"992,49884-0220-10 ",.01)
 ;;49884-0220-10
 ;;9002226.02101,"992,49884-0220-10 ",.02)
 ;;49884-0220-10
 ;;9002226.02101,"992,49884-0221-01 ",.01)
 ;;49884-0221-01
 ;;9002226.02101,"992,49884-0221-01 ",.02)
 ;;49884-0221-01
 ;;9002226.02101,"992,49884-0221-05 ",.01)
 ;;49884-0221-05
 ;;9002226.02101,"992,49884-0221-05 ",.02)
 ;;49884-0221-05
 ;;9002226.02101,"992,49884-0221-10 ",.01)
 ;;49884-0221-10
 ;;9002226.02101,"992,49884-0221-10 ",.02)
 ;;49884-0221-10
 ;;9002226.02101,"992,49884-0222-01 ",.01)
 ;;49884-0222-01
 ;;9002226.02101,"992,49884-0222-01 ",.02)
 ;;49884-0222-01
 ;;9002226.02101,"992,49884-0222-03 ",.01)
 ;;49884-0222-03
 ;;9002226.02101,"992,49884-0222-03 ",.02)
 ;;49884-0222-03
 ;;9002226.02101,"992,49884-0222-05 ",.01)
 ;;49884-0222-05
 ;;9002226.02101,"992,49884-0222-05 ",.02)
 ;;49884-0222-05
 ;;9002226.02101,"992,49884-0655-01 ",.01)
 ;;49884-0655-01
 ;;9002226.02101,"992,49884-0655-01 ",.02)
 ;;49884-0655-01
 ;;9002226.02101,"992,49884-0655-11 ",.01)
 ;;49884-0655-11
 ;;9002226.02101,"992,49884-0655-11 ",.02)
 ;;49884-0655-11
 ;;9002226.02101,"992,49884-0656-01 ",.01)
 ;;49884-0656-01
 ;;9002226.02101,"992,49884-0656-01 ",.02)
 ;;49884-0656-01
 ;;9002226.02101,"992,49884-0656-11 ",.01)
 ;;49884-0656-11
 ;;9002226.02101,"992,49884-0656-11 ",.02)
 ;;49884-0656-11
 ;;9002226.02101,"992,49884-0699-37 ",.01)
 ;;49884-0699-37
 ;;9002226.02101,"992,49884-0699-37 ",.02)
 ;;49884-0699-37
 ;;9002226.02101,"992,49884-0732-01 ",.01)
 ;;49884-0732-01
 ;;9002226.02101,"992,49884-0732-01 ",.02)
 ;;49884-0732-01
 ;;9002226.02101,"992,49884-0732-10 ",.01)
 ;;49884-0732-10
 ;;9002226.02101,"992,49884-0732-10 ",.02)
 ;;49884-0732-10
 ;;9002226.02101,"992,49884-0733-01 ",.01)
 ;;49884-0733-01
 ;;9002226.02101,"992,49884-0733-01 ",.02)
 ;;49884-0733-01
 ;;9002226.02101,"992,49884-0733-10 ",.01)
 ;;49884-0733-10
 ;;9002226.02101,"992,49884-0733-10 ",.02)
 ;;49884-0733-10
 ;;9002226.02101,"992,49884-0733-82 ",.01)
 ;;49884-0733-82
 ;;9002226.02101,"992,49884-0733-82 ",.02)
 ;;49884-0733-82
 ;;9002226.02101,"992,49884-0734-01 ",.01)
 ;;49884-0734-01
 ;;9002226.02101,"992,49884-0734-01 ",.02)
 ;;49884-0734-01