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

BGP8ZI33.m

Go to the documentation of this file.
BGP8ZI33 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 22, 2018;
 ;;18.0;IHS CLINICAL REPORTING;**1**;NOV 21, 2017;Build 62
 ;
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,"869,33358-0023-30 ",.01)
 ;;33358-0023-30
 ;;9002226.02101,"869,33358-0023-30 ",.02)
 ;;33358-0023-30
 ;;9002226.02101,"869,33358-0024-30 ",.01)
 ;;33358-0024-30
 ;;9002226.02101,"869,33358-0024-30 ",.02)
 ;;33358-0024-30
 ;;9002226.02101,"869,33358-0053-60 ",.01)
 ;;33358-0053-60
 ;;9002226.02101,"869,33358-0053-60 ",.02)
 ;;33358-0053-60
 ;;9002226.02101,"869,33358-0083-60 ",.01)
 ;;33358-0083-60
 ;;9002226.02101,"869,33358-0083-60 ",.02)
 ;;33358-0083-60
 ;;9002226.02101,"869,33358-0098-30 ",.01)
 ;;33358-0098-30
 ;;9002226.02101,"869,33358-0098-30 ",.02)
 ;;33358-0098-30
 ;;9002226.02101,"869,33358-0098-60 ",.01)
 ;;33358-0098-60
 ;;9002226.02101,"869,33358-0098-60 ",.02)
 ;;33358-0098-60
 ;;9002226.02101,"869,33358-0099-30 ",.01)
 ;;33358-0099-30
 ;;9002226.02101,"869,33358-0099-30 ",.02)
 ;;33358-0099-30
 ;;9002226.02101,"869,33358-0099-60 ",.01)
 ;;33358-0099-60
 ;;9002226.02101,"869,33358-0099-60 ",.02)
 ;;33358-0099-60
 ;;9002226.02101,"869,33358-0117-30 ",.01)
 ;;33358-0117-30
 ;;9002226.02101,"869,33358-0117-30 ",.02)
 ;;33358-0117-30
 ;;9002226.02101,"869,33358-0117-60 ",.01)
 ;;33358-0117-60
 ;;9002226.02101,"869,33358-0117-60 ",.02)
 ;;33358-0117-60
 ;;9002226.02101,"869,33358-0118-30 ",.01)
 ;;33358-0118-30
 ;;9002226.02101,"869,33358-0118-30 ",.02)
 ;;33358-0118-30
 ;;9002226.02101,"869,33358-0118-60 ",.01)
 ;;33358-0118-60
 ;;9002226.02101,"869,33358-0118-60 ",.02)
 ;;33358-0118-60
 ;;9002226.02101,"869,33358-0119-30 ",.01)
 ;;33358-0119-30
 ;;9002226.02101,"869,33358-0119-30 ",.02)
 ;;33358-0119-30
 ;;9002226.02101,"869,33358-0119-60 ",.01)
 ;;33358-0119-60
 ;;9002226.02101,"869,33358-0119-60 ",.02)
 ;;33358-0119-60
 ;;9002226.02101,"869,33358-0123-30 ",.01)
 ;;33358-0123-30
 ;;9002226.02101,"869,33358-0123-30 ",.02)
 ;;33358-0123-30
 ;;9002226.02101,"869,33358-0123-60 ",.01)
 ;;33358-0123-60
 ;;9002226.02101,"869,33358-0123-60 ",.02)
 ;;33358-0123-60
 ;;9002226.02101,"869,33358-0123-90 ",.01)
 ;;33358-0123-90
 ;;9002226.02101,"869,33358-0123-90 ",.02)
 ;;33358-0123-90
 ;;9002226.02101,"869,33358-0125-30 ",.01)
 ;;33358-0125-30
 ;;9002226.02101,"869,33358-0125-30 ",.02)
 ;;33358-0125-30
 ;;9002226.02101,"869,33358-0125-60 ",.01)
 ;;33358-0125-60
 ;;9002226.02101,"869,33358-0125-60 ",.02)
 ;;33358-0125-60
 ;;9002226.02101,"869,33358-0125-90 ",.01)
 ;;33358-0125-90
 ;;9002226.02101,"869,33358-0125-90 ",.02)
 ;;33358-0125-90
 ;;9002226.02101,"869,33358-0144-30 ",.01)
 ;;33358-0144-30
 ;;9002226.02101,"869,33358-0144-30 ",.02)
 ;;33358-0144-30
 ;;9002226.02101,"869,33358-0144-60 ",.01)
 ;;33358-0144-60
 ;;9002226.02101,"869,33358-0144-60 ",.02)
 ;;33358-0144-60
 ;;9002226.02101,"869,33358-0144-90 ",.01)
 ;;33358-0144-90
 ;;9002226.02101,"869,33358-0144-90 ",.02)
 ;;33358-0144-90
 ;;9002226.02101,"869,33358-0145-30 ",.01)
 ;;33358-0145-30
 ;;9002226.02101,"869,33358-0145-30 ",.02)
 ;;33358-0145-30
 ;;9002226.02101,"869,33358-0145-60 ",.01)
 ;;33358-0145-60
 ;;9002226.02101,"869,33358-0145-60 ",.02)
 ;;33358-0145-60
 ;;9002226.02101,"869,33358-0208-30 ",.01)
 ;;33358-0208-30
 ;;9002226.02101,"869,33358-0208-30 ",.02)
 ;;33358-0208-30
 ;;9002226.02101,"869,33358-0209-30 ",.01)
 ;;33358-0209-30
 ;;9002226.02101,"869,33358-0209-30 ",.02)
 ;;33358-0209-30
 ;;9002226.02101,"869,33358-0270-30 ",.01)
 ;;33358-0270-30
 ;;9002226.02101,"869,33358-0270-30 ",.02)
 ;;33358-0270-30
 ;;9002226.02101,"869,33358-0270-60 ",.01)
 ;;33358-0270-60
 ;;9002226.02101,"869,33358-0270-60 ",.02)
 ;;33358-0270-60
 ;;9002226.02101,"869,33358-0270-90 ",.01)
 ;;33358-0270-90
 ;;9002226.02101,"869,33358-0270-90 ",.02)
 ;;33358-0270-90
 ;;9002226.02101,"869,33358-0271-01 ",.01)
 ;;33358-0271-01
 ;;9002226.02101,"869,33358-0271-01 ",.02)
 ;;33358-0271-01
 ;;9002226.02101,"869,33358-0271-30 ",.01)
 ;;33358-0271-30
 ;;9002226.02101,"869,33358-0271-30 ",.02)
 ;;33358-0271-30
 ;;9002226.02101,"869,33358-0271-60 ",.01)
 ;;33358-0271-60
 ;;9002226.02101,"869,33358-0271-60 ",.02)
 ;;33358-0271-60
 ;;9002226.02101,"869,33358-0283-30 ",.01)
 ;;33358-0283-30
 ;;9002226.02101,"869,33358-0283-30 ",.02)
 ;;33358-0283-30
 ;;9002226.02101,"869,33358-0283-60 ",.01)
 ;;33358-0283-60
 ;;9002226.02101,"869,33358-0283-60 ",.02)
 ;;33358-0283-60
 ;;9002226.02101,"869,33358-0283-90 ",.01)
 ;;33358-0283-90
 ;;9002226.02101,"869,33358-0283-90 ",.02)
 ;;33358-0283-90
 ;;9002226.02101,"869,33358-0321-30 ",.01)
 ;;33358-0321-30
 ;;9002226.02101,"869,33358-0321-30 ",.02)
 ;;33358-0321-30
 ;;9002226.02101,"869,33358-0322-30 ",.01)
 ;;33358-0322-30
 ;;9002226.02101,"869,33358-0322-30 ",.02)
 ;;33358-0322-30
 ;;9002226.02101,"869,33358-0323-30 ",.01)
 ;;33358-0323-30
 ;;9002226.02101,"869,33358-0323-30 ",.02)
 ;;33358-0323-30
 ;;9002226.02101,"869,33358-0344-20 ",.01)
 ;;33358-0344-20
 ;;9002226.02101,"869,33358-0344-20 ",.02)
 ;;33358-0344-20
 ;;9002226.02101,"869,33358-0344-30 ",.01)
 ;;33358-0344-30
 ;;9002226.02101,"869,33358-0344-30 ",.02)
 ;;33358-0344-30
 ;;9002226.02101,"869,33358-0344-60 ",.01)
 ;;33358-0344-60
 ;;9002226.02101,"869,33358-0344-60 ",.02)
 ;;33358-0344-60
 ;;9002226.02101,"869,33358-0345-30 ",.01)
 ;;33358-0345-30
 ;;9002226.02101,"869,33358-0345-30 ",.02)
 ;;33358-0345-30
 ;;9002226.02101,"869,33358-0345-90 ",.01)
 ;;33358-0345-90
 ;;9002226.02101,"869,33358-0345-90 ",.02)
 ;;33358-0345-90
 ;;9002226.02101,"869,33358-0346-30 ",.01)
 ;;33358-0346-30
 ;;9002226.02101,"869,33358-0346-30 ",.02)
 ;;33358-0346-30
 ;;9002226.02101,"869,33358-0346-60 ",.01)
 ;;33358-0346-60
 ;;9002226.02101,"869,33358-0346-60 ",.02)
 ;;33358-0346-60
 ;;9002226.02101,"869,33358-0346-90 ",.01)
 ;;33358-0346-90
 ;;9002226.02101,"869,33358-0346-90 ",.02)
 ;;33358-0346-90
 ;;9002226.02101,"869,35356-0028-30 ",.01)
 ;;35356-0028-30
 ;;9002226.02101,"869,35356-0028-30 ",.02)
 ;;35356-0028-30
 ;;9002226.02101,"869,35356-0029-30 ",.01)
 ;;35356-0029-30
 ;;9002226.02101,"869,35356-0029-30 ",.02)
 ;;35356-0029-30
 ;;9002226.02101,"869,35356-0030-30 ",.01)
 ;;35356-0030-30
 ;;9002226.02101,"869,35356-0030-30 ",.02)
 ;;35356-0030-30
 ;;9002226.02101,"869,35356-0031-30 ",.01)
 ;;35356-0031-30
 ;;9002226.02101,"869,35356-0031-30 ",.02)
 ;;35356-0031-30
 ;;9002226.02101,"869,35356-0032-30 ",.01)
 ;;35356-0032-30
 ;;9002226.02101,"869,35356-0032-30 ",.02)
 ;;35356-0032-30
 ;;9002226.02101,"869,35356-0033-30 ",.01)
 ;;35356-0033-30
 ;;9002226.02101,"869,35356-0033-30 ",.02)
 ;;35356-0033-30
 ;;9002226.02101,"869,35356-0045-30 ",.01)
 ;;35356-0045-30
 ;;9002226.02101,"869,35356-0045-30 ",.02)
 ;;35356-0045-30
 ;;9002226.02101,"869,35356-0046-30 ",.01)
 ;;35356-0046-30
 ;;9002226.02101,"869,35356-0046-30 ",.02)
 ;;35356-0046-30
 ;;9002226.02101,"869,35356-0087-30 ",.01)
 ;;35356-0087-30
 ;;9002226.02101,"869,35356-0087-30 ",.02)
 ;;35356-0087-30
 ;;9002226.02101,"869,35356-0087-60 ",.01)
 ;;35356-0087-60
 ;;9002226.02101,"869,35356-0087-60 ",.02)
 ;;35356-0087-60
 ;;9002226.02101,"869,35356-0087-90 ",.01)
 ;;35356-0087-90
 ;;9002226.02101,"869,35356-0087-90 ",.02)
 ;;35356-0087-90
 ;;9002226.02101,"869,35356-0369-60 ",.01)
 ;;35356-0369-60
 ;;9002226.02101,"869,35356-0369-60 ",.02)
 ;;35356-0369-60
 ;;9002226.02101,"869,35356-0491-30 ",.01)
 ;;35356-0491-30
 ;;9002226.02101,"869,35356-0491-30 ",.02)
 ;;35356-0491-30
 ;;9002226.02101,"869,39506-0022-60 ",.01)
 ;;39506-0022-60
 ;;9002226.02101,"869,39506-0022-60 ",.02)
 ;;39506-0022-60
 ;;9002226.02101,"869,41616-0758-81 ",.01)
 ;;41616-0758-81
 ;;9002226.02101,"869,41616-0758-81 ",.02)
 ;;41616-0758-81
 ;;9002226.02101,"869,41616-0758-83 ",.01)
 ;;41616-0758-83
 ;;9002226.02101,"869,41616-0758-83 ",.02)
 ;;41616-0758-83
 ;;9002226.02101,"869,41616-0759-81 ",.01)
 ;;41616-0759-81
 ;;9002226.02101,"869,41616-0759-81 ",.02)
 ;;41616-0759-81
 ;;9002226.02101,"869,41616-0759-83 ",.01)
 ;;41616-0759-83
 ;;9002226.02101,"869,41616-0759-83 ",.02)
 ;;41616-0759-83
 ;;9002226.02101,"869,41616-0760-81 ",.01)
 ;;41616-0760-81
 ;;9002226.02101,"869,41616-0760-81 ",.02)
 ;;41616-0760-81
 ;;9002226.02101,"869,41616-0760-83 ",.01)
 ;;41616-0760-83
 ;;9002226.02101,"869,41616-0760-83 ",.02)
 ;;41616-0760-83
 ;;9002226.02101,"869,42291-0182-30 ",.01)
 ;;42291-0182-30
 ;;9002226.02101,"869,42291-0182-30 ",.02)
 ;;42291-0182-30
 ;;9002226.02101,"869,42291-0182-50 ",.01)
 ;;42291-0182-50
 ;;9002226.02101,"869,42291-0182-50 ",.02)
 ;;42291-0182-50
 ;;9002226.02101,"869,42291-0182-90 ",.01)
 ;;42291-0182-90
 ;;9002226.02101,"869,42291-0182-90 ",.02)
 ;;42291-0182-90
 ;;9002226.02101,"869,42291-0183-30 ",.01)
 ;;42291-0183-30
 ;;9002226.02101,"869,42291-0183-30 ",.02)
 ;;42291-0183-30
 ;;9002226.02101,"869,42291-0183-50 ",.01)
 ;;42291-0183-50
 ;;9002226.02101,"869,42291-0183-50 ",.02)
 ;;42291-0183-50
 ;;9002226.02101,"869,42291-0247-90 ",.01)
 ;;42291-0247-90
 ;;9002226.02101,"869,42291-0247-90 ",.02)
 ;;42291-0247-90
 ;;9002226.02101,"869,42291-0291-90 ",.01)
 ;;42291-0291-90
 ;;9002226.02101,"869,42291-0291-90 ",.02)
 ;;42291-0291-90
 ;;9002226.02101,"869,42291-0345-01 ",.01)
 ;;42291-0345-01
 ;;9002226.02101,"869,42291-0345-01 ",.02)
 ;;42291-0345-01
 ;;9002226.02101,"869,42291-0346-01 ",.01)
 ;;42291-0346-01
 ;;9002226.02101,"869,42291-0346-01 ",.02)
 ;;42291-0346-01
 ;;9002226.02101,"869,42291-0347-01 ",.01)
 ;;42291-0347-01
 ;;9002226.02101,"869,42291-0347-01 ",.02)
 ;;42291-0347-01
 ;;9002226.02101,"869,42291-0579-50 ",.01)
 ;;42291-0579-50
 ;;9002226.02101,"869,42291-0579-50 ",.02)
 ;;42291-0579-50
 ;;9002226.02101,"869,42291-0580-50 ",.01)
 ;;42291-0580-50
 ;;9002226.02101,"869,42291-0580-50 ",.02)
 ;;42291-0580-50
 ;;9002226.02101,"869,42291-0581-30 ",.01)
 ;;42291-0581-30
 ;;9002226.02101,"869,42291-0581-30 ",.02)
 ;;42291-0581-30
 ;;9002226.02101,"869,42291-0627-60 ",.01)
 ;;42291-0627-60
 ;;9002226.02101,"869,42291-0627-60 ",.02)
 ;;42291-0627-60
 ;;9002226.02101,"869,42291-0631-01 ",.01)
 ;;42291-0631-01
 ;;9002226.02101,"869,42291-0631-01 ",.02)
 ;;42291-0631-01
 ;;9002226.02101,"869,42291-0652-30 ",.01)
 ;;42291-0652-30
 ;;9002226.02101,"869,42291-0652-30 ",.02)
 ;;42291-0652-30
 ;;9002226.02101,"869,42291-0653-30 ",.01)
 ;;42291-0653-30
 ;;9002226.02101,"869,42291-0653-30 ",.02)
 ;;42291-0653-30
 ;;9002226.02101,"869,42291-0654-30 ",.01)
 ;;42291-0654-30
 ;;9002226.02101,"869,42291-0654-30 ",.02)
 ;;42291-0654-30
 ;;9002226.02101,"869,42291-0655-30 ",.01)
 ;;42291-0655-30
 ;;9002226.02101,"869,42291-0655-30 ",.02)
 ;;42291-0655-30
 ;;9002226.02101,"869,42291-0656-30 ",.01)
 ;;42291-0656-30
 ;;9002226.02101,"869,42291-0656-30 ",.02)
 ;;42291-0656-30
 ;;9002226.02101,"869,42291-0833-10 ",.01)
 ;;42291-0833-10
 ;;9002226.02101,"869,42291-0833-10 ",.02)
 ;;42291-0833-10
 ;;9002226.02101,"869,42291-0833-90 ",.01)
 ;;42291-0833-90
 ;;9002226.02101,"869,42291-0833-90 ",.02)
 ;;42291-0833-90
 ;;9002226.02101,"869,42291-0834-10 ",.01)
 ;;42291-0834-10
 ;;9002226.02101,"869,42291-0834-10 ",.02)
 ;;42291-0834-10
 ;;9002226.02101,"869,42291-0834-90 ",.01)
 ;;42291-0834-90
 ;;9002226.02101,"869,42291-0834-90 ",.02)
 ;;42291-0834-90
 ;;9002226.02101,"869,42291-0835-50 ",.01)
 ;;42291-0835-50
 ;;9002226.02101,"869,42291-0835-50 ",.02)
 ;;42291-0835-50
 ;;9002226.02101,"869,42291-0835-90 ",.01)
 ;;42291-0835-90
 ;;9002226.02101,"869,42291-0835-90 ",.02)
 ;;42291-0835-90
 ;;9002226.02101,"869,42291-0836-01 ",.01)
 ;;42291-0836-01
 ;;9002226.02101,"869,42291-0836-01 ",.02)
 ;;42291-0836-01
 ;;9002226.02101,"869,42291-0892-90 ",.01)
 ;;42291-0892-90
 ;;9002226.02101,"869,42291-0892-90 ",.02)
 ;;42291-0892-90
 ;;9002226.02101,"869,42291-0893-90 ",.01)
 ;;42291-0893-90
 ;;9002226.02101,"869,42291-0893-90 ",.02)
 ;;42291-0893-90