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

BGP47E29.m

Go to the documentation of this file.
BGP47E29 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 16, 2014;
 ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
 ;
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,"798,33358-0119-60 ",.01)
 ;;33358-0119-60
 ;;9002226.02101,"798,33358-0119-60 ",.02)
 ;;33358-0119-60
 ;;9002226.02101,"798,33358-0123-30 ",.01)
 ;;33358-0123-30
 ;;9002226.02101,"798,33358-0123-30 ",.02)
 ;;33358-0123-30
 ;;9002226.02101,"798,33358-0123-60 ",.01)
 ;;33358-0123-60
 ;;9002226.02101,"798,33358-0123-60 ",.02)
 ;;33358-0123-60
 ;;9002226.02101,"798,33358-0123-90 ",.01)
 ;;33358-0123-90
 ;;9002226.02101,"798,33358-0123-90 ",.02)
 ;;33358-0123-90
 ;;9002226.02101,"798,33358-0124-30 ",.01)
 ;;33358-0124-30
 ;;9002226.02101,"798,33358-0124-30 ",.02)
 ;;33358-0124-30
 ;;9002226.02101,"798,33358-0124-60 ",.01)
 ;;33358-0124-60
 ;;9002226.02101,"798,33358-0124-60 ",.02)
 ;;33358-0124-60
 ;;9002226.02101,"798,33358-0124-90 ",.01)
 ;;33358-0124-90
 ;;9002226.02101,"798,33358-0124-90 ",.02)
 ;;33358-0124-90
 ;;9002226.02101,"798,33358-0125-30 ",.01)
 ;;33358-0125-30
 ;;9002226.02101,"798,33358-0125-30 ",.02)
 ;;33358-0125-30
 ;;9002226.02101,"798,33358-0125-60 ",.01)
 ;;33358-0125-60
 ;;9002226.02101,"798,33358-0125-60 ",.02)
 ;;33358-0125-60
 ;;9002226.02101,"798,33358-0125-90 ",.01)
 ;;33358-0125-90
 ;;9002226.02101,"798,33358-0125-90 ",.02)
 ;;33358-0125-90
 ;;9002226.02101,"798,33358-0144-30 ",.01)
 ;;33358-0144-30
 ;;9002226.02101,"798,33358-0144-30 ",.02)
 ;;33358-0144-30
 ;;9002226.02101,"798,33358-0144-60 ",.01)
 ;;33358-0144-60
 ;;9002226.02101,"798,33358-0144-60 ",.02)
 ;;33358-0144-60
 ;;9002226.02101,"798,33358-0144-90 ",.01)
 ;;33358-0144-90
 ;;9002226.02101,"798,33358-0144-90 ",.02)
 ;;33358-0144-90
 ;;9002226.02101,"798,33358-0145-30 ",.01)
 ;;33358-0145-30
 ;;9002226.02101,"798,33358-0145-30 ",.02)
 ;;33358-0145-30
 ;;9002226.02101,"798,33358-0145-60 ",.01)
 ;;33358-0145-60
 ;;9002226.02101,"798,33358-0145-60 ",.02)
 ;;33358-0145-60
 ;;9002226.02101,"798,33358-0208-30 ",.01)
 ;;33358-0208-30
 ;;9002226.02101,"798,33358-0208-30 ",.02)
 ;;33358-0208-30
 ;;9002226.02101,"798,33358-0209-30 ",.01)
 ;;33358-0209-30
 ;;9002226.02101,"798,33358-0209-30 ",.02)
 ;;33358-0209-30
 ;;9002226.02101,"798,33358-0270-30 ",.01)
 ;;33358-0270-30
 ;;9002226.02101,"798,33358-0270-30 ",.02)
 ;;33358-0270-30
 ;;9002226.02101,"798,33358-0270-60 ",.01)
 ;;33358-0270-60
 ;;9002226.02101,"798,33358-0270-60 ",.02)
 ;;33358-0270-60
 ;;9002226.02101,"798,33358-0270-90 ",.01)
 ;;33358-0270-90
 ;;9002226.02101,"798,33358-0270-90 ",.02)
 ;;33358-0270-90
 ;;9002226.02101,"798,33358-0271-01 ",.01)
 ;;33358-0271-01
 ;;9002226.02101,"798,33358-0271-01 ",.02)
 ;;33358-0271-01
 ;;9002226.02101,"798,33358-0271-30 ",.01)
 ;;33358-0271-30
 ;;9002226.02101,"798,33358-0271-30 ",.02)
 ;;33358-0271-30
 ;;9002226.02101,"798,33358-0271-60 ",.01)
 ;;33358-0271-60
 ;;9002226.02101,"798,33358-0271-60 ",.02)
 ;;33358-0271-60
 ;;9002226.02101,"798,33358-0283-30 ",.01)
 ;;33358-0283-30
 ;;9002226.02101,"798,33358-0283-30 ",.02)
 ;;33358-0283-30
 ;;9002226.02101,"798,33358-0283-60 ",.01)
 ;;33358-0283-60
 ;;9002226.02101,"798,33358-0283-60 ",.02)
 ;;33358-0283-60
 ;;9002226.02101,"798,33358-0283-90 ",.01)
 ;;33358-0283-90
 ;;9002226.02101,"798,33358-0283-90 ",.02)
 ;;33358-0283-90
 ;;9002226.02101,"798,33358-0321-30 ",.01)
 ;;33358-0321-30
 ;;9002226.02101,"798,33358-0321-30 ",.02)
 ;;33358-0321-30
 ;;9002226.02101,"798,33358-0322-30 ",.01)
 ;;33358-0322-30
 ;;9002226.02101,"798,33358-0322-30 ",.02)
 ;;33358-0322-30
 ;;9002226.02101,"798,33358-0323-30 ",.01)
 ;;33358-0323-30
 ;;9002226.02101,"798,33358-0323-30 ",.02)
 ;;33358-0323-30
 ;;9002226.02101,"798,33358-0344-20 ",.01)
 ;;33358-0344-20
 ;;9002226.02101,"798,33358-0344-20 ",.02)
 ;;33358-0344-20
 ;;9002226.02101,"798,33358-0344-30 ",.01)
 ;;33358-0344-30
 ;;9002226.02101,"798,33358-0344-30 ",.02)
 ;;33358-0344-30
 ;;9002226.02101,"798,33358-0344-60 ",.01)
 ;;33358-0344-60
 ;;9002226.02101,"798,33358-0344-60 ",.02)
 ;;33358-0344-60
 ;;9002226.02101,"798,33358-0345-30 ",.01)
 ;;33358-0345-30
 ;;9002226.02101,"798,33358-0345-30 ",.02)
 ;;33358-0345-30
 ;;9002226.02101,"798,33358-0345-90 ",.01)
 ;;33358-0345-90
 ;;9002226.02101,"798,33358-0345-90 ",.02)
 ;;33358-0345-90
 ;;9002226.02101,"798,33358-0346-30 ",.01)
 ;;33358-0346-30
 ;;9002226.02101,"798,33358-0346-30 ",.02)
 ;;33358-0346-30
 ;;9002226.02101,"798,33358-0346-60 ",.01)
 ;;33358-0346-60
 ;;9002226.02101,"798,33358-0346-60 ",.02)
 ;;33358-0346-60
 ;;9002226.02101,"798,33358-0346-90 ",.01)
 ;;33358-0346-90
 ;;9002226.02101,"798,33358-0346-90 ",.02)
 ;;33358-0346-90
 ;;9002226.02101,"798,35356-0028-30 ",.01)
 ;;35356-0028-30
 ;;9002226.02101,"798,35356-0028-30 ",.02)
 ;;35356-0028-30
 ;;9002226.02101,"798,35356-0029-30 ",.01)
 ;;35356-0029-30
 ;;9002226.02101,"798,35356-0029-30 ",.02)
 ;;35356-0029-30
 ;;9002226.02101,"798,35356-0030-30 ",.01)
 ;;35356-0030-30
 ;;9002226.02101,"798,35356-0030-30 ",.02)
 ;;35356-0030-30
 ;;9002226.02101,"798,35356-0031-30 ",.01)
 ;;35356-0031-30
 ;;9002226.02101,"798,35356-0031-30 ",.02)
 ;;35356-0031-30
 ;;9002226.02101,"798,35356-0032-30 ",.01)
 ;;35356-0032-30
 ;;9002226.02101,"798,35356-0032-30 ",.02)
 ;;35356-0032-30
 ;;9002226.02101,"798,35356-0033-30 ",.01)
 ;;35356-0033-30
 ;;9002226.02101,"798,35356-0033-30 ",.02)
 ;;35356-0033-30
 ;;9002226.02101,"798,35356-0045-30 ",.01)
 ;;35356-0045-30
 ;;9002226.02101,"798,35356-0045-30 ",.02)
 ;;35356-0045-30
 ;;9002226.02101,"798,35356-0046-30 ",.01)
 ;;35356-0046-30
 ;;9002226.02101,"798,35356-0046-30 ",.02)
 ;;35356-0046-30
 ;;9002226.02101,"798,35356-0087-30 ",.01)
 ;;35356-0087-30
 ;;9002226.02101,"798,35356-0087-30 ",.02)
 ;;35356-0087-30
 ;;9002226.02101,"798,35356-0087-60 ",.01)
 ;;35356-0087-60
 ;;9002226.02101,"798,35356-0087-60 ",.02)
 ;;35356-0087-60
 ;;9002226.02101,"798,35356-0087-90 ",.01)
 ;;35356-0087-90
 ;;9002226.02101,"798,35356-0087-90 ",.02)
 ;;35356-0087-90
 ;;9002226.02101,"798,35356-0369-60 ",.01)
 ;;35356-0369-60
 ;;9002226.02101,"798,35356-0369-60 ",.02)
 ;;35356-0369-60
 ;;9002226.02101,"798,35356-0491-30 ",.01)
 ;;35356-0491-30
 ;;9002226.02101,"798,35356-0491-30 ",.02)
 ;;35356-0491-30
 ;;9002226.02101,"798,36818-0137-01 ",.01)
 ;;36818-0137-01
 ;;9002226.02101,"798,36818-0137-01 ",.02)
 ;;36818-0137-01
 ;;9002226.02101,"798,39506-0033-30 ",.01)
 ;;39506-0033-30
 ;;9002226.02101,"798,39506-0033-30 ",.02)
 ;;39506-0033-30
 ;;9002226.02101,"798,39506-0044-30 ",.01)
 ;;39506-0044-30
 ;;9002226.02101,"798,39506-0044-30 ",.02)
 ;;39506-0044-30
 ;;9002226.02101,"798,39506-0055-30 ",.01)
 ;;39506-0055-30
 ;;9002226.02101,"798,39506-0055-30 ",.02)
 ;;39506-0055-30
 ;;9002226.02101,"798,41616-0758-81 ",.01)
 ;;41616-0758-81
 ;;9002226.02101,"798,41616-0758-81 ",.02)
 ;;41616-0758-81
 ;;9002226.02101,"798,41616-0758-83 ",.01)
 ;;41616-0758-83
 ;;9002226.02101,"798,41616-0758-83 ",.02)
 ;;41616-0758-83
 ;;9002226.02101,"798,41616-0759-81 ",.01)
 ;;41616-0759-81
 ;;9002226.02101,"798,41616-0759-81 ",.02)
 ;;41616-0759-81
 ;;9002226.02101,"798,41616-0759-83 ",.01)
 ;;41616-0759-83
 ;;9002226.02101,"798,41616-0759-83 ",.02)
 ;;41616-0759-83
 ;;9002226.02101,"798,41616-0760-81 ",.01)
 ;;41616-0760-81
 ;;9002226.02101,"798,41616-0760-81 ",.02)
 ;;41616-0760-81
 ;;9002226.02101,"798,41616-0760-83 ",.01)
 ;;41616-0760-83
 ;;9002226.02101,"798,41616-0760-83 ",.02)
 ;;41616-0760-83
 ;;9002226.02101,"798,42291-0892-90 ",.01)
 ;;42291-0892-90
 ;;9002226.02101,"798,42291-0892-90 ",.02)
 ;;42291-0892-90
 ;;9002226.02101,"798,42291-0893-90 ",.01)
 ;;42291-0893-90
 ;;9002226.02101,"798,42291-0893-90 ",.02)
 ;;42291-0893-90
 ;;9002226.02101,"798,42291-0894-90 ",.01)
 ;;42291-0894-90
 ;;9002226.02101,"798,42291-0894-90 ",.02)
 ;;42291-0894-90
 ;;9002226.02101,"798,42291-0895-90 ",.01)
 ;;42291-0895-90
 ;;9002226.02101,"798,42291-0895-90 ",.02)
 ;;42291-0895-90
 ;;9002226.02101,"798,42291-0896-90 ",.01)
 ;;42291-0896-90
 ;;9002226.02101,"798,42291-0896-90 ",.02)
 ;;42291-0896-90
 ;;9002226.02101,"798,42769-1221-00 ",.01)
 ;;42769-1221-00
 ;;9002226.02101,"798,42769-1221-00 ",.02)
 ;;42769-1221-00
 ;;9002226.02101,"798,42769-1222-00 ",.01)
 ;;42769-1222-00
 ;;9002226.02101,"798,42769-1222-00 ",.02)
 ;;42769-1222-00
 ;;9002226.02101,"798,42769-1225-00 ",.01)
 ;;42769-1225-00
 ;;9002226.02101,"798,42769-1225-00 ",.02)
 ;;42769-1225-00
 ;;9002226.02101,"798,42806-0019-01 ",.01)
 ;;42806-0019-01
 ;;9002226.02101,"798,42806-0019-01 ",.02)
 ;;42806-0019-01
 ;;9002226.02101,"798,42806-0020-01 ",.01)
 ;;42806-0020-01
 ;;9002226.02101,"798,42806-0020-01 ",.02)
 ;;42806-0020-01
 ;;9002226.02101,"798,42806-0021-01 ",.01)
 ;;42806-0021-01
 ;;9002226.02101,"798,42806-0021-01 ",.02)
 ;;42806-0021-01
 ;;9002226.02101,"798,43063-0009-01 ",.01)
 ;;43063-0009-01
 ;;9002226.02101,"798,43063-0009-01 ",.02)
 ;;43063-0009-01
 ;;9002226.02101,"798,43063-0033-01 ",.01)
 ;;43063-0033-01
 ;;9002226.02101,"798,43063-0033-01 ",.02)
 ;;43063-0033-01
 ;;9002226.02101,"798,43063-0063-14 ",.01)
 ;;43063-0063-14
 ;;9002226.02101,"798,43063-0063-14 ",.02)
 ;;43063-0063-14
 ;;9002226.02101,"798,43063-0063-30 ",.01)
 ;;43063-0063-30
 ;;9002226.02101,"798,43063-0063-30 ",.02)
 ;;43063-0063-30
 ;;9002226.02101,"798,43063-0063-60 ",.01)
 ;;43063-0063-60
 ;;9002226.02101,"798,43063-0063-60 ",.02)
 ;;43063-0063-60
 ;;9002226.02101,"798,43063-0063-90 ",.01)
 ;;43063-0063-90
 ;;9002226.02101,"798,43063-0063-90 ",.02)
 ;;43063-0063-90
 ;;9002226.02101,"798,43063-0170-90 ",.01)
 ;;43063-0170-90
 ;;9002226.02101,"798,43063-0170-90 ",.02)
 ;;43063-0170-90
 ;;9002226.02101,"798,43063-0262-30 ",.01)
 ;;43063-0262-30
 ;;9002226.02101,"798,43063-0262-30 ",.02)
 ;;43063-0262-30
 ;;9002226.02101,"798,43063-0284-98 ",.01)
 ;;43063-0284-98
 ;;9002226.02101,"798,43063-0284-98 ",.02)
 ;;43063-0284-98
 ;;9002226.02101,"798,43063-0292-30 ",.01)
 ;;43063-0292-30
 ;;9002226.02101,"798,43063-0292-30 ",.02)
 ;;43063-0292-30
 ;;9002226.02101,"798,43063-0336-30 ",.01)
 ;;43063-0336-30
 ;;9002226.02101,"798,43063-0336-30 ",.02)
 ;;43063-0336-30
 ;;9002226.02101,"798,43063-0336-60 ",.01)
 ;;43063-0336-60
 ;;9002226.02101,"798,43063-0336-60 ",.02)
 ;;43063-0336-60
 ;;9002226.02101,"798,43063-0374-30 ",.01)
 ;;43063-0374-30
 ;;9002226.02101,"798,43063-0374-30 ",.02)
 ;;43063-0374-30
 ;;9002226.02101,"798,43063-0385-01 ",.01)
 ;;43063-0385-01
 ;;9002226.02101,"798,43063-0385-01 ",.02)
 ;;43063-0385-01
 ;;9002226.02101,"798,43063-0385-30 ",.01)
 ;;43063-0385-30
 ;;9002226.02101,"798,43063-0385-30 ",.02)
 ;;43063-0385-30
 ;;9002226.02101,"798,43063-0385-90 ",.01)
 ;;43063-0385-90
 ;;9002226.02101,"798,43063-0385-90 ",.02)
 ;;43063-0385-90
 ;;9002226.02101,"798,43063-0387-90 ",.01)
 ;;43063-0387-90
 ;;9002226.02101,"798,43063-0387-90 ",.02)
 ;;43063-0387-90
 ;;9002226.02101,"798,43063-0388-90 ",.01)
 ;;43063-0388-90
 ;;9002226.02101,"798,43063-0388-90 ",.02)
 ;;43063-0388-90
 ;;9002226.02101,"798,43063-0389-30 ",.01)
 ;;43063-0389-30
 ;;9002226.02101,"798,43063-0389-30 ",.02)
 ;;43063-0389-30
 ;;9002226.02101,"798,43063-0390-30 ",.01)
 ;;43063-0390-30
 ;;9002226.02101,"798,43063-0390-30 ",.02)
 ;;43063-0390-30
 ;;9002226.02101,"798,43063-0411-60 ",.01)
 ;;43063-0411-60
 ;;9002226.02101,"798,43063-0411-60 ",.02)
 ;;43063-0411-60
 ;;9002226.02101,"798,43063-0411-90 ",.01)
 ;;43063-0411-90
 ;;9002226.02101,"798,43063-0411-90 ",.02)
 ;;43063-0411-90
 ;;9002226.02101,"798,43063-0413-90 ",.01)
 ;;43063-0413-90
 ;;9002226.02101,"798,43063-0413-90 ",.02)
 ;;43063-0413-90
 ;;9002226.02101,"798,43353-0362-15 ",.01)
 ;;43353-0362-15
 ;;9002226.02101,"798,43353-0362-15 ",.02)
 ;;43353-0362-15
 ;;9002226.02101,"798,43353-0364-15 ",.01)
 ;;43353-0364-15
 ;;9002226.02101,"798,43353-0364-15 ",.02)
 ;;43353-0364-15
 ;;9002226.02101,"798,43353-0370-53 ",.01)
 ;;43353-0370-53
 ;;9002226.02101,"798,43353-0370-53 ",.02)
 ;;43353-0370-53
 ;;9002226.02101,"798,43353-0378-45 ",.01)
 ;;43353-0378-45
 ;;9002226.02101,"798,43353-0378-45 ",.02)
 ;;43353-0378-45
 ;;9002226.02101,"798,43353-0382-30 ",.01)
 ;;43353-0382-30
 ;;9002226.02101,"798,43353-0382-30 ",.02)
 ;;43353-0382-30
 ;;9002226.02101,"798,43353-0415-30 ",.01)
 ;;43353-0415-30
 ;;9002226.02101,"798,43353-0415-30 ",.02)
 ;;43353-0415-30
 ;;9002226.02101,"798,43353-0419-15 ",.01)
 ;;43353-0419-15
 ;;9002226.02101,"798,43353-0419-15 ",.02)
 ;;43353-0419-15
 ;;9002226.02101,"798,43353-0421-30 ",.01)
 ;;43353-0421-30
 ;;9002226.02101,"798,43353-0421-30 ",.02)
 ;;43353-0421-30
 ;;9002226.02101,"798,43353-0429-15 ",.01)
 ;;43353-0429-15
 ;;9002226.02101,"798,43353-0429-15 ",.02)
 ;;43353-0429-15
 ;;9002226.02101,"798,43353-0435-30 ",.01)
 ;;43353-0435-30
 ;;9002226.02101,"798,43353-0435-30 ",.02)
 ;;43353-0435-30
 ;;9002226.02101,"798,43353-0441-53 ",.01)
 ;;43353-0441-53
 ;;9002226.02101,"798,43353-0441-53 ",.02)
 ;;43353-0441-53
 ;;9002226.02101,"798,43353-0447-15 ",.01)
 ;;43353-0447-15
 ;;9002226.02101,"798,43353-0447-15 ",.02)
 ;;43353-0447-15
 ;;9002226.02101,"798,43386-0360-21 ",.01)
 ;;43386-0360-21
 ;;9002226.02101,"798,43386-0360-21 ",.02)
 ;;43386-0360-21
 ;;9002226.02101,"798,43595-0080-03 ",.01)
 ;;43595-0080-03
 ;;9002226.02101,"798,43595-0080-03 ",.02)
 ;;43595-0080-03
 ;;9002226.02101,"798,43595-0081-03 ",.01)
 ;;43595-0081-03
 ;;9002226.02101,"798,43595-0081-03 ",.02)
 ;;43595-0081-03
 ;;9002226.02101,"798,45802-0306-65 ",.01)
 ;;45802-0306-65
 ;;9002226.02101,"798,45802-0306-65 ",.02)
 ;;45802-0306-65
 ;;9002226.02101,"798,45802-0306-78 ",.01)
 ;;45802-0306-78
 ;;9002226.02101,"798,45802-0306-78 ",.02)
 ;;45802-0306-78