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

BGP8ZI23.m

Go to the documentation of this file.
BGP8ZI23 ;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,00430-0210-14 ",.01)
 ;;00430-0210-14
 ;;9002226.02101,"869,00430-0210-14 ",.02)
 ;;00430-0210-14
 ;;9002226.02101,"869,00430-0220-14 ",.01)
 ;;00430-0220-14
 ;;9002226.02101,"869,00430-0220-14 ",.02)
 ;;00430-0220-14
 ;;9002226.02101,"869,00440-7090-30 ",.01)
 ;;00440-7090-30
 ;;9002226.02101,"869,00440-7090-30 ",.02)
 ;;00440-7090-30
 ;;9002226.02101,"869,00440-7091-30 ",.01)
 ;;00440-7091-30
 ;;9002226.02101,"869,00440-7091-30 ",.02)
 ;;00440-7091-30
 ;;9002226.02101,"869,00440-7092-30 ",.01)
 ;;00440-7092-30
 ;;9002226.02101,"869,00440-7092-30 ",.02)
 ;;00440-7092-30
 ;;9002226.02101,"869,00440-7478-30 ",.01)
 ;;00440-7478-30
 ;;9002226.02101,"869,00440-7478-30 ",.02)
 ;;00440-7478-30
 ;;9002226.02101,"869,00440-8575-20 ",.01)
 ;;00440-8575-20
 ;;9002226.02101,"869,00440-8575-20 ",.02)
 ;;00440-8575-20
 ;;9002226.02101,"869,00440-8576-30 ",.01)
 ;;00440-8576-30
 ;;9002226.02101,"869,00440-8576-30 ",.02)
 ;;00440-8576-30
 ;;9002226.02101,"869,00456-1100-31 ",.01)
 ;;00456-1100-31
 ;;9002226.02101,"869,00456-1100-31 ",.02)
 ;;00456-1100-31
 ;;9002226.02101,"869,00456-1101-30 ",.01)
 ;;00456-1101-30
 ;;9002226.02101,"869,00456-1101-30 ",.02)
 ;;00456-1101-30
 ;;9002226.02101,"869,00456-1110-30 ",.01)
 ;;00456-1110-30
 ;;9002226.02101,"869,00456-1110-30 ",.02)
 ;;00456-1110-30
 ;;9002226.02101,"869,00456-1120-30 ",.01)
 ;;00456-1120-30
 ;;9002226.02101,"869,00456-1120-30 ",.02)
 ;;00456-1120-30
 ;;9002226.02101,"869,00456-1140-30 ",.01)
 ;;00456-1140-30
 ;;9002226.02101,"869,00456-1140-30 ",.02)
 ;;00456-1140-30
 ;;9002226.02101,"869,00456-2005-01 ",.01)
 ;;00456-2005-01
 ;;9002226.02101,"869,00456-2005-01 ",.02)
 ;;00456-2005-01
 ;;9002226.02101,"869,00456-2010-01 ",.01)
 ;;00456-2010-01
 ;;9002226.02101,"869,00456-2010-01 ",.02)
 ;;00456-2010-01
 ;;9002226.02101,"869,00456-2010-11 ",.01)
 ;;00456-2010-11
 ;;9002226.02101,"869,00456-2010-11 ",.02)
 ;;00456-2010-11
 ;;9002226.02101,"869,00456-2010-63 ",.01)
 ;;00456-2010-63
 ;;9002226.02101,"869,00456-2010-63 ",.02)
 ;;00456-2010-63
 ;;9002226.02101,"869,00456-2020-01 ",.01)
 ;;00456-2020-01
 ;;9002226.02101,"869,00456-2020-01 ",.02)
 ;;00456-2020-01
 ;;9002226.02101,"869,00456-2020-11 ",.01)
 ;;00456-2020-11
 ;;9002226.02101,"869,00456-2020-11 ",.02)
 ;;00456-2020-11
 ;;9002226.02101,"869,00456-2020-63 ",.01)
 ;;00456-2020-63
 ;;9002226.02101,"869,00456-2020-63 ",.02)
 ;;00456-2020-63
 ;;9002226.02101,"869,00456-2101-08 ",.01)
 ;;00456-2101-08
 ;;9002226.02101,"869,00456-2101-08 ",.02)
 ;;00456-2101-08
 ;;9002226.02101,"869,00456-2202-28 ",.01)
 ;;00456-2202-28
 ;;9002226.02101,"869,00456-2202-28 ",.02)
 ;;00456-2202-28
 ;;9002226.02101,"869,00456-2212-30 ",.01)
 ;;00456-2212-30
 ;;9002226.02101,"869,00456-2212-30 ",.02)
 ;;00456-2212-30
 ;;9002226.02101,"869,00456-2220-30 ",.01)
 ;;00456-2220-30
 ;;9002226.02101,"869,00456-2220-30 ",.02)
 ;;00456-2220-30
 ;;9002226.02101,"869,00456-2240-30 ",.01)
 ;;00456-2240-30
 ;;9002226.02101,"869,00456-2240-30 ",.02)
 ;;00456-2240-30
 ;;9002226.02101,"869,00456-2280-30 ",.01)
 ;;00456-2280-30
 ;;9002226.02101,"869,00456-2280-30 ",.02)
 ;;00456-2280-30
 ;;9002226.02101,"869,00456-4010-01 ",.01)
 ;;00456-4010-01
 ;;9002226.02101,"869,00456-4010-01 ",.02)
 ;;00456-4010-01
 ;;9002226.02101,"869,00456-4020-01 ",.01)
 ;;00456-4020-01
 ;;9002226.02101,"869,00456-4020-01 ",.02)
 ;;00456-4020-01
 ;;9002226.02101,"869,00456-4020-63 ",.01)
 ;;00456-4020-63
 ;;9002226.02101,"869,00456-4020-63 ",.02)
 ;;00456-4020-63
 ;;9002226.02101,"869,00456-4040-01 ",.01)
 ;;00456-4040-01
 ;;9002226.02101,"869,00456-4040-01 ",.02)
 ;;00456-4040-01
 ;;9002226.02101,"869,00456-4130-08 ",.01)
 ;;00456-4130-08
 ;;9002226.02101,"869,00456-4130-08 ",.02)
 ;;00456-4130-08
 ;;9002226.02101,"869,00490-0114-00 ",.01)
 ;;00490-0114-00
 ;;9002226.02101,"869,00490-0114-00 ",.02)
 ;;00490-0114-00
 ;;9002226.02101,"869,00490-0114-30 ",.01)
 ;;00490-0114-30
 ;;9002226.02101,"869,00490-0114-30 ",.02)
 ;;00490-0114-30
 ;;9002226.02101,"869,00490-0114-60 ",.01)
 ;;00490-0114-60
 ;;9002226.02101,"869,00490-0114-60 ",.02)
 ;;00490-0114-60
 ;;9002226.02101,"869,00490-0114-90 ",.01)
 ;;00490-0114-90
 ;;9002226.02101,"869,00490-0114-90 ",.02)
 ;;00490-0114-90
 ;;9002226.02101,"869,00490-0163-00 ",.01)
 ;;00490-0163-00
 ;;9002226.02101,"869,00490-0163-00 ",.02)
 ;;00490-0163-00
 ;;9002226.02101,"869,00490-0163-30 ",.01)
 ;;00490-0163-30
 ;;9002226.02101,"869,00490-0163-30 ",.02)
 ;;00490-0163-30
 ;;9002226.02101,"869,00490-0163-60 ",.01)
 ;;00490-0163-60
 ;;9002226.02101,"869,00490-0163-60 ",.02)
 ;;00490-0163-60
 ;;9002226.02101,"869,00490-0163-90 ",.01)
 ;;00490-0163-90
 ;;9002226.02101,"869,00490-0163-90 ",.02)
 ;;00490-0163-90
 ;;9002226.02101,"869,00555-0201-01 ",.01)
 ;;00555-0201-01
 ;;9002226.02101,"869,00555-0201-01 ",.02)
 ;;00555-0201-01
 ;;9002226.02101,"869,00555-0489-02 ",.01)
 ;;00555-0489-02
 ;;9002226.02101,"869,00555-0489-02 ",.02)
 ;;00555-0489-02
 ;;9002226.02101,"869,00555-0489-04 ",.01)
 ;;00555-0489-04
 ;;9002226.02101,"869,00555-0489-04 ",.02)
 ;;00555-0489-04
 ;;9002226.02101,"869,00555-0490-02 ",.01)
 ;;00555-0490-02
 ;;9002226.02101,"869,00555-0490-02 ",.02)
 ;;00555-0490-02
 ;;9002226.02101,"869,00555-0490-04 ",.01)
 ;;00555-0490-04
 ;;9002226.02101,"869,00555-0490-04 ",.02)
 ;;00555-0490-04
 ;;9002226.02101,"869,00555-0732-02 ",.01)
 ;;00555-0732-02
 ;;9002226.02101,"869,00555-0732-02 ",.02)
 ;;00555-0732-02
 ;;9002226.02101,"869,00555-0732-04 ",.01)
 ;;00555-0732-04
 ;;9002226.02101,"869,00555-0732-04 ",.02)
 ;;00555-0732-04
 ;;9002226.02101,"869,00555-0733-02 ",.01)
 ;;00555-0733-02
 ;;9002226.02101,"869,00555-0733-02 ",.02)
 ;;00555-0733-02
 ;;9002226.02101,"869,00555-0871-54 ",.01)
 ;;00555-0871-54
 ;;9002226.02101,"869,00555-0871-54 ",.02)
 ;;00555-0871-54
 ;;9002226.02101,"869,00555-0871-88 ",.01)
 ;;00555-0871-88
 ;;9002226.02101,"869,00555-0871-88 ",.02)
 ;;00555-0871-88
 ;;9002226.02101,"869,00555-0877-04 ",.01)
 ;;00555-0877-04
 ;;9002226.02101,"869,00555-0877-04 ",.02)
 ;;00555-0877-04
 ;;9002226.02101,"869,00555-0877-05 ",.01)
 ;;00555-0877-05
 ;;9002226.02101,"869,00555-0877-05 ",.02)
 ;;00555-0877-05
 ;;9002226.02101,"869,00555-0967-02 ",.01)
 ;;00555-0967-02
 ;;9002226.02101,"869,00555-0967-02 ",.02)
 ;;00555-0967-02
 ;;9002226.02101,"869,00555-0968-02 ",.01)
 ;;00555-0968-02
 ;;9002226.02101,"869,00555-0968-02 ",.02)
 ;;00555-0968-02
 ;;9002226.02101,"869,00555-0969-02 ",.01)
 ;;00555-0969-02
 ;;9002226.02101,"869,00555-0969-02 ",.02)
 ;;00555-0969-02
 ;;9002226.02101,"869,00591-0764-60 ",.01)
 ;;00591-0764-60
 ;;9002226.02101,"869,00591-0764-60 ",.02)
 ;;00591-0764-60
 ;;9002226.02101,"869,00591-0767-60 ",.01)
 ;;00591-0767-60
 ;;9002226.02101,"869,00591-0767-60 ",.02)
 ;;00591-0767-60
 ;;9002226.02101,"869,00591-0809-01 ",.01)
 ;;00591-0809-01
 ;;9002226.02101,"869,00591-0809-01 ",.02)
 ;;00591-0809-01
 ;;9002226.02101,"869,00591-0809-05 ",.01)
 ;;00591-0809-05
 ;;9002226.02101,"869,00591-0809-05 ",.02)
 ;;00591-0809-05
 ;;9002226.02101,"869,00591-0839-25 ",.01)
 ;;00591-0839-25
 ;;9002226.02101,"869,00591-0839-25 ",.02)
 ;;00591-0839-25
 ;;9002226.02101,"869,00591-0839-60 ",.01)
 ;;00591-0839-60
 ;;9002226.02101,"869,00591-0839-60 ",.02)
 ;;00591-0839-60
 ;;9002226.02101,"869,00591-0858-60 ",.01)
 ;;00591-0858-60
 ;;9002226.02101,"869,00591-0858-60 ",.02)
 ;;00591-0858-60
 ;;9002226.02101,"869,00591-1117-10 ",.01)
 ;;00591-1117-10
 ;;9002226.02101,"869,00591-1117-10 ",.02)
 ;;00591-1117-10
 ;;9002226.02101,"869,00591-1117-30 ",.01)
 ;;00591-1117-30
 ;;9002226.02101,"869,00591-1117-30 ",.02)
 ;;00591-1117-30
 ;;9002226.02101,"869,00591-1118-10 ",.01)
 ;;00591-1118-10
 ;;9002226.02101,"869,00591-1118-10 ",.02)
 ;;00591-1118-10
 ;;9002226.02101,"869,00591-1118-30 ",.01)
 ;;00591-1118-30
 ;;9002226.02101,"869,00591-1118-30 ",.02)
 ;;00591-1118-30
 ;;9002226.02101,"869,00591-1119-30 ",.01)
 ;;00591-1119-30
 ;;9002226.02101,"869,00591-1119-30 ",.02)
 ;;00591-1119-30
 ;;9002226.02101,"869,00591-2114-01 ",.01)
 ;;00591-2114-01
 ;;9002226.02101,"869,00591-2114-01 ",.02)
 ;;00591-2114-01
 ;;9002226.02101,"869,00591-2230-15 ",.01)
 ;;00591-2230-15
 ;;9002226.02101,"869,00591-2230-15 ",.02)
 ;;00591-2230-15
 ;;9002226.02101,"869,00591-2231-15 ",.01)
 ;;00591-2231-15
 ;;9002226.02101,"869,00591-2231-15 ",.02)
 ;;00591-2231-15
 ;;9002226.02101,"869,00591-2469-15 ",.01)
 ;;00591-2469-15
 ;;9002226.02101,"869,00591-2469-15 ",.02)
 ;;00591-2469-15
 ;;9002226.02101,"869,00591-2470-15 ",.01)
 ;;00591-2470-15
 ;;9002226.02101,"869,00591-2470-15 ",.02)
 ;;00591-2470-15
 ;;9002226.02101,"869,00591-2471-15 ",.01)
 ;;00591-2471-15
 ;;9002226.02101,"869,00591-2471-15 ",.02)
 ;;00591-2471-15
 ;;9002226.02101,"869,00591-3176-01 ",.01)
 ;;00591-3176-01
 ;;9002226.02101,"869,00591-3176-01 ",.02)
 ;;00591-3176-01
 ;;9002226.02101,"869,00591-3176-05 ",.01)
 ;;00591-3176-05
 ;;9002226.02101,"869,00591-3176-05 ",.02)
 ;;00591-3176-05
 ;;9002226.02101,"869,00591-3177-01 ",.01)
 ;;00591-3177-01
 ;;9002226.02101,"869,00591-3177-01 ",.02)
 ;;00591-3177-01
 ;;9002226.02101,"869,00591-3177-05 ",.01)
 ;;00591-3177-05
 ;;9002226.02101,"869,00591-3177-05 ",.02)
 ;;00591-3177-05
 ;;9002226.02101,"869,00591-3178-01 ",.01)
 ;;00591-3178-01
 ;;9002226.02101,"869,00591-3178-01 ",.02)
 ;;00591-3178-01
 ;;9002226.02101,"869,00591-3178-05 ",.01)
 ;;00591-3178-05
 ;;9002226.02101,"869,00591-3178-05 ",.02)
 ;;00591-3178-05
 ;;9002226.02101,"869,00591-3331-05 ",.01)
 ;;00591-3331-05
 ;;9002226.02101,"869,00591-3331-05 ",.02)
 ;;00591-3331-05
 ;;9002226.02101,"869,00591-3331-19 ",.01)
 ;;00591-3331-19
 ;;9002226.02101,"869,00591-3331-19 ",.02)
 ;;00591-3331-19
 ;;9002226.02101,"869,00591-3331-30 ",.01)
 ;;00591-3331-30
 ;;9002226.02101,"869,00591-3331-30 ",.02)
 ;;00591-3331-30
 ;;9002226.02101,"869,00591-3332-05 ",.01)
 ;;00591-3332-05
 ;;9002226.02101,"869,00591-3332-05 ",.02)
 ;;00591-3332-05
 ;;9002226.02101,"869,00591-3332-30 ",.01)
 ;;00591-3332-30
 ;;9002226.02101,"869,00591-3332-30 ",.02)
 ;;00591-3332-30
 ;;9002226.02101,"869,00591-3540-05 ",.01)
 ;;00591-3540-05
 ;;9002226.02101,"869,00591-3540-05 ",.02)
 ;;00591-3540-05
 ;;9002226.02101,"869,00591-3540-60 ",.01)
 ;;00591-3540-60
 ;;9002226.02101,"869,00591-3540-60 ",.02)
 ;;00591-3540-60
 ;;9002226.02101,"869,00591-3541-05 ",.01)
 ;;00591-3541-05
 ;;9002226.02101,"869,00591-3541-05 ",.02)
 ;;00591-3541-05
 ;;9002226.02101,"869,00591-3541-25 ",.01)
 ;;00591-3541-25
 ;;9002226.02101,"869,00591-3541-25 ",.02)
 ;;00591-3541-25
 ;;9002226.02101,"869,00591-3541-60 ",.01)
 ;;00591-3541-60
 ;;9002226.02101,"869,00591-3541-60 ",.02)
 ;;00591-3541-60
 ;;9002226.02101,"869,00591-3542-60 ",.01)
 ;;00591-3542-60
 ;;9002226.02101,"869,00591-3542-60 ",.02)
 ;;00591-3542-60
 ;;9002226.02101,"869,00591-3543-60 ",.01)
 ;;00591-3543-60
 ;;9002226.02101,"869,00591-3543-60 ",.02)
 ;;00591-3543-60
 ;;9002226.02101,"869,00591-3543-76 ",.01)
 ;;00591-3543-76
 ;;9002226.02101,"869,00591-3543-76 ",.02)
 ;;00591-3543-76
 ;;9002226.02101,"869,00591-3659-19 ",.01)
 ;;00591-3659-19
 ;;9002226.02101,"869,00591-3659-19 ",.02)
 ;;00591-3659-19
 ;;9002226.02101,"869,00591-3659-30 ",.01)
 ;;00591-3659-30
 ;;9002226.02101,"869,00591-3659-30 ",.02)
 ;;00591-3659-30
 ;;9002226.02101,"869,00591-3660-19 ",.01)
 ;;00591-3660-19
 ;;9002226.02101,"869,00591-3660-19 ",.02)
 ;;00591-3660-19
 ;;9002226.02101,"869,00591-3660-30 ",.01)
 ;;00591-3660-30
 ;;9002226.02101,"869,00591-3660-30 ",.02)
 ;;00591-3660-30
 ;;9002226.02101,"869,00591-4060-30 ",.01)
 ;;00591-4060-30
 ;;9002226.02101,"869,00591-4060-30 ",.02)
 ;;00591-4060-30