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

BGP06B21.m

Go to the documentation of this file.
BGP06B21 ;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,"975,10768-7616-03 ",.01)
 ;;10768-7616-03
 ;;9002226.02101,"975,10768-7616-03 ",.02)
 ;;10768-7616-03
 ;;9002226.02101,"975,12280-0007-00 ",.01)
 ;;12280-0007-00
 ;;9002226.02101,"975,12280-0007-00 ",.02)
 ;;12280-0007-00
 ;;9002226.02101,"975,12280-0011-00 ",.01)
 ;;12280-0011-00
 ;;9002226.02101,"975,12280-0011-00 ",.02)
 ;;12280-0011-00
 ;;9002226.02101,"975,12280-0011-60 ",.01)
 ;;12280-0011-60
 ;;9002226.02101,"975,12280-0011-60 ",.02)
 ;;12280-0011-60
 ;;9002226.02101,"975,12280-0016-15 ",.01)
 ;;12280-0016-15
 ;;9002226.02101,"975,12280-0016-15 ",.02)
 ;;12280-0016-15
 ;;9002226.02101,"975,12280-0017-15 ",.01)
 ;;12280-0017-15
 ;;9002226.02101,"975,12280-0017-15 ",.02)
 ;;12280-0017-15
 ;;9002226.02101,"975,12280-0018-15 ",.01)
 ;;12280-0018-15
 ;;9002226.02101,"975,12280-0018-15 ",.02)
 ;;12280-0018-15
 ;;9002226.02101,"975,12280-0023-15 ",.01)
 ;;12280-0023-15
 ;;9002226.02101,"975,12280-0023-15 ",.02)
 ;;12280-0023-15
 ;;9002226.02101,"975,12280-0032-00 ",.01)
 ;;12280-0032-00
 ;;9002226.02101,"975,12280-0032-00 ",.02)
 ;;12280-0032-00
 ;;9002226.02101,"975,12280-0065-00 ",.01)
 ;;12280-0065-00
 ;;9002226.02101,"975,12280-0065-00 ",.02)
 ;;12280-0065-00
 ;;9002226.02101,"975,12280-0074-00 ",.01)
 ;;12280-0074-00
 ;;9002226.02101,"975,12280-0074-00 ",.02)
 ;;12280-0074-00
 ;;9002226.02101,"975,12280-0163-30 ",.01)
 ;;12280-0163-30
 ;;9002226.02101,"975,12280-0163-30 ",.02)
 ;;12280-0163-30
 ;;9002226.02101,"975,12280-0169-00 ",.01)
 ;;12280-0169-00
 ;;9002226.02101,"975,12280-0169-00 ",.02)
 ;;12280-0169-00
 ;;9002226.02101,"975,12280-0169-30 ",.01)
 ;;12280-0169-30
 ;;9002226.02101,"975,12280-0169-30 ",.02)
 ;;12280-0169-30
 ;;9002226.02101,"975,12280-0170-60 ",.01)
 ;;12280-0170-60
 ;;9002226.02101,"975,12280-0170-60 ",.02)
 ;;12280-0170-60
 ;;9002226.02101,"975,12280-0211-00 ",.01)
 ;;12280-0211-00
 ;;9002226.02101,"975,12280-0211-00 ",.02)
 ;;12280-0211-00
 ;;9002226.02101,"975,17236-0003-01 ",.01)
 ;;17236-0003-01
 ;;9002226.02101,"975,17236-0003-01 ",.02)
 ;;17236-0003-01
 ;;9002226.02101,"975,17236-0005-01 ",.01)
 ;;17236-0005-01
 ;;9002226.02101,"975,17236-0005-01 ",.02)
 ;;17236-0005-01
 ;;9002226.02101,"975,17236-0006-01 ",.01)
 ;;17236-0006-01
 ;;9002226.02101,"975,17236-0006-01 ",.02)
 ;;17236-0006-01
 ;;9002226.02101,"975,17236-0007-01 ",.01)
 ;;17236-0007-01
 ;;9002226.02101,"975,17236-0007-01 ",.02)
 ;;17236-0007-01
 ;;9002226.02101,"975,17236-0356-01 ",.01)
 ;;17236-0356-01
 ;;9002226.02101,"975,17236-0356-01 ",.02)
 ;;17236-0356-01
 ;;9002226.02101,"975,17236-0356-10 ",.01)
 ;;17236-0356-10
 ;;9002226.02101,"975,17236-0356-10 ",.02)
 ;;17236-0356-10
 ;;9002226.02101,"975,17236-0356-11 ",.01)
 ;;17236-0356-11
 ;;9002226.02101,"975,17236-0356-11 ",.02)
 ;;17236-0356-11
 ;;9002226.02101,"975,17236-0357-01 ",.01)
 ;;17236-0357-01
 ;;9002226.02101,"975,17236-0357-01 ",.02)
 ;;17236-0357-01
 ;;9002226.02101,"975,17236-0357-10 ",.01)
 ;;17236-0357-10
 ;;9002226.02101,"975,17236-0357-10 ",.02)
 ;;17236-0357-10
 ;;9002226.02101,"975,17236-0357-11 ",.01)
 ;;17236-0357-11
 ;;9002226.02101,"975,17236-0357-11 ",.02)
 ;;17236-0357-11
 ;;9002226.02101,"975,17236-0358-01 ",.01)
 ;;17236-0358-01
 ;;9002226.02101,"975,17236-0358-01 ",.02)
 ;;17236-0358-01
 ;;9002226.02101,"975,17236-0358-10 ",.01)
 ;;17236-0358-10
 ;;9002226.02101,"975,17236-0358-10 ",.02)
 ;;17236-0358-10
 ;;9002226.02101,"975,17236-0358-11 ",.01)
 ;;17236-0358-11
 ;;9002226.02101,"975,17236-0358-11 ",.02)
 ;;17236-0358-11
 ;;9002226.02101,"975,17236-0359-01 ",.01)
 ;;17236-0359-01
 ;;9002226.02101,"975,17236-0359-01 ",.02)
 ;;17236-0359-01
 ;;9002226.02101,"975,17236-0359-10 ",.01)
 ;;17236-0359-10
 ;;9002226.02101,"975,17236-0359-10 ",.02)
 ;;17236-0359-10
 ;;9002226.02101,"975,17236-0359-11 ",.01)
 ;;17236-0359-11
 ;;9002226.02101,"975,17236-0359-11 ",.02)
 ;;17236-0359-11
 ;;9002226.02101,"975,17236-0375-01 ",.01)
 ;;17236-0375-01
 ;;9002226.02101,"975,17236-0375-01 ",.02)
 ;;17236-0375-01
 ;;9002226.02101,"975,17236-0375-10 ",.01)
 ;;17236-0375-10
 ;;9002226.02101,"975,17236-0375-10 ",.02)
 ;;17236-0375-10
 ;;9002226.02101,"975,17236-0375-11 ",.01)
 ;;17236-0375-11
 ;;9002226.02101,"975,17236-0375-11 ",.02)
 ;;17236-0375-11
 ;;9002226.02101,"975,17236-0655-01 ",.01)
 ;;17236-0655-01
 ;;9002226.02101,"975,17236-0655-01 ",.02)
 ;;17236-0655-01
 ;;9002226.02101,"975,17236-0655-05 ",.01)
 ;;17236-0655-05
 ;;9002226.02101,"975,17236-0655-05 ",.02)
 ;;17236-0655-05
 ;;9002226.02101,"975,17236-0807-01 ",.01)
 ;;17236-0807-01
 ;;9002226.02101,"975,17236-0807-01 ",.02)
 ;;17236-0807-01
 ;;9002226.02101,"975,17236-0807-10 ",.01)
 ;;17236-0807-10
 ;;9002226.02101,"975,17236-0807-10 ",.02)
 ;;17236-0807-10
 ;;9002226.02101,"975,17236-0808-01 ",.01)
 ;;17236-0808-01
 ;;9002226.02101,"975,17236-0808-01 ",.02)
 ;;17236-0808-01
 ;;9002226.02101,"975,17236-0808-10 ",.01)
 ;;17236-0808-10
 ;;9002226.02101,"975,17236-0808-10 ",.02)
 ;;17236-0808-10
 ;;9002226.02101,"975,17236-0888-01 ",.01)
 ;;17236-0888-01
 ;;9002226.02101,"975,17236-0888-01 ",.02)
 ;;17236-0888-01
 ;;9002226.02101,"975,17236-0889-01 ",.01)
 ;;17236-0889-01
 ;;9002226.02101,"975,17236-0889-01 ",.02)
 ;;17236-0889-01
 ;;9002226.02101,"975,17236-0890-01 ",.01)
 ;;17236-0890-01
 ;;9002226.02101,"975,17236-0890-01 ",.02)
 ;;17236-0890-01
 ;;9002226.02101,"975,17236-0891-01 ",.01)
 ;;17236-0891-01
 ;;9002226.02101,"975,17236-0891-01 ",.02)
 ;;17236-0891-01
 ;;9002226.02101,"975,17236-0891-03 ",.01)
 ;;17236-0891-03
 ;;9002226.02101,"975,17236-0891-03 ",.02)
 ;;17236-0891-03
 ;;9002226.02101,"975,38245-0612-14 ",.01)
 ;;38245-0612-14
 ;;9002226.02101,"975,38245-0612-14 ",.02)
 ;;38245-0612-14
 ;;9002226.02101,"975,39506-0033-30 ",.01)
 ;;39506-0033-30
 ;;9002226.02101,"975,39506-0033-30 ",.02)
 ;;39506-0033-30
 ;;9002226.02101,"975,39506-0044-30 ",.01)
 ;;39506-0044-30
 ;;9002226.02101,"975,39506-0044-30 ",.02)
 ;;39506-0044-30
 ;;9002226.02101,"975,39506-0055-30 ",.01)
 ;;39506-0055-30
 ;;9002226.02101,"975,39506-0055-30 ",.02)
 ;;39506-0055-30
 ;;9002226.02101,"975,49884-0032-01 ",.01)
 ;;49884-0032-01
 ;;9002226.02101,"975,49884-0032-01 ",.02)
 ;;49884-0032-01
 ;;9002226.02101,"975,49884-0054-01 ",.01)
 ;;49884-0054-01
 ;;9002226.02101,"975,49884-0054-01 ",.02)
 ;;49884-0054-01
 ;;9002226.02101,"975,49884-0054-10 ",.01)
 ;;49884-0054-10
 ;;9002226.02101,"975,49884-0054-10 ",.02)
 ;;49884-0054-10
 ;;9002226.02101,"975,49884-0055-01 ",.01)
 ;;49884-0055-01
 ;;9002226.02101,"975,49884-0055-01 ",.02)
 ;;49884-0055-01
 ;;9002226.02101,"975,49884-0055-10 ",.01)
 ;;49884-0055-10
 ;;9002226.02101,"975,49884-0055-10 ",.02)
 ;;49884-0055-10
 ;;9002226.02101,"975,49884-0056-01 ",.01)
 ;;49884-0056-01
 ;;9002226.02101,"975,49884-0056-01 ",.02)
 ;;49884-0056-01
 ;;9002226.02101,"975,49884-0056-10 ",.01)
 ;;49884-0056-10
 ;;9002226.02101,"975,49884-0056-10 ",.02)
 ;;49884-0056-10
 ;;9002226.02101,"975,49884-0217-01 ",.01)
 ;;49884-0217-01
 ;;9002226.02101,"975,49884-0217-01 ",.02)
 ;;49884-0217-01
 ;;9002226.02101,"975,49884-0217-05 ",.01)
 ;;49884-0217-05
 ;;9002226.02101,"975,49884-0217-05 ",.02)
 ;;49884-0217-05
 ;;9002226.02101,"975,49884-0217-10 ",.01)
 ;;49884-0217-10
 ;;9002226.02101,"975,49884-0217-10 ",.02)
 ;;49884-0217-10
 ;;9002226.02101,"975,49884-0218-01 ",.01)
 ;;49884-0218-01
 ;;9002226.02101,"975,49884-0218-01 ",.02)
 ;;49884-0218-01
 ;;9002226.02101,"975,49884-0218-05 ",.01)
 ;;49884-0218-05
 ;;9002226.02101,"975,49884-0218-05 ",.02)
 ;;49884-0218-05
 ;;9002226.02101,"975,49884-0218-10 ",.01)
 ;;49884-0218-10
 ;;9002226.02101,"975,49884-0218-10 ",.02)
 ;;49884-0218-10
 ;;9002226.02101,"975,49884-0219-01 ",.01)
 ;;49884-0219-01
 ;;9002226.02101,"975,49884-0219-01 ",.02)
 ;;49884-0219-01
 ;;9002226.02101,"975,49884-0219-05 ",.01)
 ;;49884-0219-05
 ;;9002226.02101,"975,49884-0219-05 ",.02)
 ;;49884-0219-05
 ;;9002226.02101,"975,49884-0219-10 ",.01)
 ;;49884-0219-10
 ;;9002226.02101,"975,49884-0219-10 ",.02)
 ;;49884-0219-10
 ;;9002226.02101,"975,49884-0220-01 ",.01)
 ;;49884-0220-01
 ;;9002226.02101,"975,49884-0220-01 ",.02)
 ;;49884-0220-01
 ;;9002226.02101,"975,49884-0220-05 ",.01)
 ;;49884-0220-05
 ;;9002226.02101,"975,49884-0220-05 ",.02)
 ;;49884-0220-05
 ;;9002226.02101,"975,49884-0220-10 ",.01)
 ;;49884-0220-10
 ;;9002226.02101,"975,49884-0220-10 ",.02)
 ;;49884-0220-10
 ;;9002226.02101,"975,49884-0221-01 ",.01)
 ;;49884-0221-01
 ;;9002226.02101,"975,49884-0221-01 ",.02)
 ;;49884-0221-01
 ;;9002226.02101,"975,49884-0221-05 ",.01)
 ;;49884-0221-05
 ;;9002226.02101,"975,49884-0221-05 ",.02)
 ;;49884-0221-05
 ;;9002226.02101,"975,49884-0221-10 ",.01)
 ;;49884-0221-10
 ;;9002226.02101,"975,49884-0221-10 ",.02)
 ;;49884-0221-10
 ;;9002226.02101,"975,49884-0222-01 ",.01)
 ;;49884-0222-01
 ;;9002226.02101,"975,49884-0222-01 ",.02)
 ;;49884-0222-01
 ;;9002226.02101,"975,49884-0222-03 ",.01)
 ;;49884-0222-03
 ;;9002226.02101,"975,49884-0222-03 ",.02)
 ;;49884-0222-03
 ;;9002226.02101,"975,49884-0222-05 ",.01)
 ;;49884-0222-05
 ;;9002226.02101,"975,49884-0222-05 ",.02)
 ;;49884-0222-05
 ;;9002226.02101,"975,49884-0655-01 ",.01)
 ;;49884-0655-01
 ;;9002226.02101,"975,49884-0655-01 ",.02)
 ;;49884-0655-01
 ;;9002226.02101,"975,49884-0655-11 ",.01)
 ;;49884-0655-11
 ;;9002226.02101,"975,49884-0655-11 ",.02)
 ;;49884-0655-11
 ;;9002226.02101,"975,49884-0656-01 ",.01)
 ;;49884-0656-01
 ;;9002226.02101,"975,49884-0656-01 ",.02)
 ;;49884-0656-01
 ;;9002226.02101,"975,49884-0656-11 ",.01)
 ;;49884-0656-11
 ;;9002226.02101,"975,49884-0656-11 ",.02)
 ;;49884-0656-11
 ;;9002226.02101,"975,49884-0699-37 ",.01)
 ;;49884-0699-37
 ;;9002226.02101,"975,49884-0699-37 ",.02)
 ;;49884-0699-37
 ;;9002226.02101,"975,49884-0732-01 ",.01)
 ;;49884-0732-01
 ;;9002226.02101,"975,49884-0732-01 ",.02)
 ;;49884-0732-01
 ;;9002226.02101,"975,49884-0732-10 ",.01)
 ;;49884-0732-10
 ;;9002226.02101,"975,49884-0732-10 ",.02)
 ;;49884-0732-10
 ;;9002226.02101,"975,49884-0733-01 ",.01)
 ;;49884-0733-01
 ;;9002226.02101,"975,49884-0733-01 ",.02)
 ;;49884-0733-01
 ;;9002226.02101,"975,49884-0733-10 ",.01)
 ;;49884-0733-10
 ;;9002226.02101,"975,49884-0733-10 ",.02)
 ;;49884-0733-10
 ;;9002226.02101,"975,49884-0733-82 ",.01)
 ;;49884-0733-82
 ;;9002226.02101,"975,49884-0733-82 ",.02)
 ;;49884-0733-82
 ;;9002226.02101,"975,49884-0734-01 ",.01)
 ;;49884-0734-01
 ;;9002226.02101,"975,49884-0734-01 ",.02)
 ;;49884-0734-01
 ;;9002226.02101,"975,49884-0734-10 ",.01)
 ;;49884-0734-10
 ;;9002226.02101,"975,49884-0734-10 ",.02)
 ;;49884-0734-10
 ;;9002226.02101,"975,49884-0734-11 ",.01)
 ;;49884-0734-11
 ;;9002226.02101,"975,49884-0734-11 ",.02)
 ;;49884-0734-11
 ;;9002226.02101,"975,49884-0734-82 ",.01)
 ;;49884-0734-82
 ;;9002226.02101,"975,49884-0734-82 ",.02)
 ;;49884-0734-82
 ;;9002226.02101,"975,49884-0735-01 ",.01)
 ;;49884-0735-01
 ;;9002226.02101,"975,49884-0735-01 ",.02)
 ;;49884-0735-01
 ;;9002226.02101,"975,49884-0735-10 ",.01)
 ;;49884-0735-10
 ;;9002226.02101,"975,49884-0735-10 ",.02)
 ;;49884-0735-10
 ;;9002226.02101,"975,49884-0735-11 ",.01)
 ;;49884-0735-11
 ;;9002226.02101,"975,49884-0735-11 ",.02)
 ;;49884-0735-11
 ;;9002226.02101,"975,49884-0735-82 ",.01)
 ;;49884-0735-82
 ;;9002226.02101,"975,49884-0735-82 ",.02)
 ;;49884-0735-82
 ;;9002226.02101,"975,49884-0743-01 ",.01)
 ;;49884-0743-01
 ;;9002226.02101,"975,49884-0743-01 ",.02)
 ;;49884-0743-01
 ;;9002226.02101,"975,49884-0743-05 ",.01)
 ;;49884-0743-05
 ;;9002226.02101,"975,49884-0743-05 ",.02)
 ;;49884-0743-05
 ;;9002226.02101,"975,49884-0743-11 ",.01)
 ;;49884-0743-11
 ;;9002226.02101,"975,49884-0743-11 ",.02)
 ;;49884-0743-11
 ;;9002226.02101,"975,49884-0751-01 ",.01)
 ;;49884-0751-01
 ;;9002226.02101,"975,49884-0751-01 ",.02)
 ;;49884-0751-01
 ;;9002226.02101,"975,49884-0751-10 ",.01)
 ;;49884-0751-10
 ;;9002226.02101,"975,49884-0751-10 ",.02)
 ;;49884-0751-10
 ;;9002226.02101,"975,49884-0759-01 ",.01)
 ;;49884-0759-01
 ;;9002226.02101,"975,49884-0759-01 ",.02)
 ;;49884-0759-01
 ;;9002226.02101,"975,49884-0873-11 ",.01)
 ;;49884-0873-11
 ;;9002226.02101,"975,49884-0873-11 ",.02)
 ;;49884-0873-11
 ;;9002226.02101,"975,49884-0876-05 ",.01)
 ;;49884-0876-05
 ;;9002226.02101,"975,49884-0876-05 ",.02)
 ;;49884-0876-05
 ;;9002226.02101,"975,49884-0876-11 ",.01)
 ;;49884-0876-11
 ;;9002226.02101,"975,49884-0876-11 ",.02)
 ;;49884-0876-11
 ;;9002226.02101,"975,49884-0877-01 ",.01)
 ;;49884-0877-01
 ;;9002226.02101,"975,49884-0877-01 ",.02)
 ;;49884-0877-01
 ;;9002226.02101,"975,49884-0877-05 ",.01)
 ;;49884-0877-05
 ;;9002226.02101,"975,49884-0877-05 ",.02)
 ;;49884-0877-05
 ;;9002226.02101,"975,49884-0877-11 ",.01)
 ;;49884-0877-11
 ;;9002226.02101,"975,49884-0877-11 ",.02)
 ;;49884-0877-11
 ;;9002226.02101,"975,49884-0878-05 ",.01)
 ;;49884-0878-05
 ;;9002226.02101,"975,49884-0878-05 ",.02)
 ;;49884-0878-05
 ;;9002226.02101,"975,49884-0878-11 ",.01)
 ;;49884-0878-11
 ;;9002226.02101,"975,49884-0878-11 ",.02)
 ;;49884-0878-11
 ;;9002226.02101,"975,49884-0879-05 ",.01)
 ;;49884-0879-05
 ;;9002226.02101,"975,49884-0879-05 ",.02)
 ;;49884-0879-05
 ;;9002226.02101,"975,49884-0879-11 ",.01)
 ;;49884-0879-11
 ;;9002226.02101,"975,49884-0879-11 ",.02)
 ;;49884-0879-11
 ;;9002226.02101,"975,49884-0916-02 ",.01)
 ;;49884-0916-02
 ;;9002226.02101,"975,49884-0916-02 ",.02)
 ;;49884-0916-02
 ;;9002226.02101,"975,49884-0916-05 ",.01)
 ;;49884-0916-05
 ;;9002226.02101,"975,49884-0916-05 ",.02)
 ;;49884-0916-05