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

ATXXB161.m

Go to the documentation of this file.
ATXXB161 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON APR 29, 2014;
 ;;5.1;TAXONOMY;**11**;FEB 04, 1997;Build 48
 ;
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,"1804,30250N1 ",.02)
 ;;30250N1 
 ;;9002226.02101,"1804,30250N1 ",.03)
 ;;31
 ;;9002226.02101,"1804,30250P0 ",.01)
 ;;30250P0 
 ;;9002226.02101,"1804,30250P0 ",.02)
 ;;30250P0 
 ;;9002226.02101,"1804,30250P0 ",.03)
 ;;31
 ;;9002226.02101,"1804,30250P1 ",.01)
 ;;30250P1 
 ;;9002226.02101,"1804,30250P1 ",.02)
 ;;30250P1 
 ;;9002226.02101,"1804,30250P1 ",.03)
 ;;31
 ;;9002226.02101,"1804,30250Q0 ",.01)
 ;;30250Q0 
 ;;9002226.02101,"1804,30250Q0 ",.02)
 ;;30250Q0 
 ;;9002226.02101,"1804,30250Q0 ",.03)
 ;;31
 ;;9002226.02101,"1804,30250Q1 ",.01)
 ;;30250Q1 
 ;;9002226.02101,"1804,30250Q1 ",.02)
 ;;30250Q1 
 ;;9002226.02101,"1804,30250Q1 ",.03)
 ;;31
 ;;9002226.02101,"1804,30250R0 ",.01)
 ;;30250R0 
 ;;9002226.02101,"1804,30250R0 ",.02)
 ;;30250R0 
 ;;9002226.02101,"1804,30250R0 ",.03)
 ;;31
 ;;9002226.02101,"1804,30250R1 ",.01)
 ;;30250R1 
 ;;9002226.02101,"1804,30250R1 ",.02)
 ;;30250R1 
 ;;9002226.02101,"1804,30250R1 ",.03)
 ;;31
 ;;9002226.02101,"1804,30250S0 ",.01)
 ;;30250S0 
 ;;9002226.02101,"1804,30250S0 ",.02)
 ;;30250S0 
 ;;9002226.02101,"1804,30250S0 ",.03)
 ;;31
 ;;9002226.02101,"1804,30250S1 ",.01)
 ;;30250S1 
 ;;9002226.02101,"1804,30250S1 ",.02)
 ;;30250S1 
 ;;9002226.02101,"1804,30250S1 ",.03)
 ;;31
 ;;9002226.02101,"1804,30250T0 ",.01)
 ;;30250T0 
 ;;9002226.02101,"1804,30250T0 ",.02)
 ;;30250T0 
 ;;9002226.02101,"1804,30250T0 ",.03)
 ;;31
 ;;9002226.02101,"1804,30250T1 ",.01)
 ;;30250T1 
 ;;9002226.02101,"1804,30250T1 ",.02)
 ;;30250T1 
 ;;9002226.02101,"1804,30250T1 ",.03)
 ;;31
 ;;9002226.02101,"1804,30250V0 ",.01)
 ;;30250V0 
 ;;9002226.02101,"1804,30250V0 ",.02)
 ;;30250V0 
 ;;9002226.02101,"1804,30250V0 ",.03)
 ;;31
 ;;9002226.02101,"1804,30250V1 ",.01)
 ;;30250V1 
 ;;9002226.02101,"1804,30250V1 ",.02)
 ;;30250V1 
 ;;9002226.02101,"1804,30250V1 ",.03)
 ;;31
 ;;9002226.02101,"1804,30250W0 ",.01)
 ;;30250W0 
 ;;9002226.02101,"1804,30250W0 ",.02)
 ;;30250W0 
 ;;9002226.02101,"1804,30250W0 ",.03)
 ;;31
 ;;9002226.02101,"1804,30250W1 ",.01)
 ;;30250W1 
 ;;9002226.02101,"1804,30250W1 ",.02)
 ;;30250W1 
 ;;9002226.02101,"1804,30250W1 ",.03)
 ;;31
 ;;9002226.02101,"1804,30253H0 ",.01)
 ;;30253H0 
 ;;9002226.02101,"1804,30253H0 ",.02)
 ;;30253H0 
 ;;9002226.02101,"1804,30253H0 ",.03)
 ;;31
 ;;9002226.02101,"1804,30253H1 ",.01)
 ;;30253H1 
 ;;9002226.02101,"1804,30253H1 ",.02)
 ;;30253H1 
 ;;9002226.02101,"1804,30253H1 ",.03)
 ;;31
 ;;9002226.02101,"1804,30253J0 ",.01)
 ;;30253J0 
 ;;9002226.02101,"1804,30253J0 ",.02)
 ;;30253J0 
 ;;9002226.02101,"1804,30253J0 ",.03)
 ;;31
 ;;9002226.02101,"1804,30253J1 ",.01)
 ;;30253J1 
 ;;9002226.02101,"1804,30253J1 ",.02)
 ;;30253J1 
 ;;9002226.02101,"1804,30253J1 ",.03)
 ;;31
 ;;9002226.02101,"1804,30253K0 ",.01)
 ;;30253K0 
 ;;9002226.02101,"1804,30253K0 ",.02)
 ;;30253K0 
 ;;9002226.02101,"1804,30253K0 ",.03)
 ;;31
 ;;9002226.02101,"1804,30253K1 ",.01)
 ;;30253K1 
 ;;9002226.02101,"1804,30253K1 ",.02)
 ;;30253K1 
 ;;9002226.02101,"1804,30253K1 ",.03)
 ;;31
 ;;9002226.02101,"1804,30253L0 ",.01)
 ;;30253L0 
 ;;9002226.02101,"1804,30253L0 ",.02)
 ;;30253L0 
 ;;9002226.02101,"1804,30253L0 ",.03)
 ;;31
 ;;9002226.02101,"1804,30253L1 ",.01)
 ;;30253L1 
 ;;9002226.02101,"1804,30253L1 ",.02)
 ;;30253L1 
 ;;9002226.02101,"1804,30253L1 ",.03)
 ;;31
 ;;9002226.02101,"1804,30253M0 ",.01)
 ;;30253M0 
 ;;9002226.02101,"1804,30253M0 ",.02)
 ;;30253M0 
 ;;9002226.02101,"1804,30253M0 ",.03)
 ;;31
 ;;9002226.02101,"1804,30253M1 ",.01)
 ;;30253M1 
 ;;9002226.02101,"1804,30253M1 ",.02)
 ;;30253M1 
 ;;9002226.02101,"1804,30253M1 ",.03)
 ;;31
 ;;9002226.02101,"1804,30253N0 ",.01)
 ;;30253N0 
 ;;9002226.02101,"1804,30253N0 ",.02)
 ;;30253N0 
 ;;9002226.02101,"1804,30253N0 ",.03)
 ;;31
 ;;9002226.02101,"1804,30253N1 ",.01)
 ;;30253N1 
 ;;9002226.02101,"1804,30253N1 ",.02)
 ;;30253N1 
 ;;9002226.02101,"1804,30253N1 ",.03)
 ;;31
 ;;9002226.02101,"1804,30253P0 ",.01)
 ;;30253P0 
 ;;9002226.02101,"1804,30253P0 ",.02)
 ;;30253P0 
 ;;9002226.02101,"1804,30253P0 ",.03)
 ;;31
 ;;9002226.02101,"1804,30253P1 ",.01)
 ;;30253P1 
 ;;9002226.02101,"1804,30253P1 ",.02)
 ;;30253P1 
 ;;9002226.02101,"1804,30253P1 ",.03)
 ;;31
 ;;9002226.02101,"1804,30253Q0 ",.01)
 ;;30253Q0 
 ;;9002226.02101,"1804,30253Q0 ",.02)
 ;;30253Q0 
 ;;9002226.02101,"1804,30253Q0 ",.03)
 ;;31
 ;;9002226.02101,"1804,30253Q1 ",.01)
 ;;30253Q1 
 ;;9002226.02101,"1804,30253Q1 ",.02)
 ;;30253Q1 
 ;;9002226.02101,"1804,30253Q1 ",.03)
 ;;31
 ;;9002226.02101,"1804,30253R0 ",.01)
 ;;30253R0 
 ;;9002226.02101,"1804,30253R0 ",.02)
 ;;30253R0 
 ;;9002226.02101,"1804,30253R0 ",.03)
 ;;31
 ;;9002226.02101,"1804,30253R1 ",.01)
 ;;30253R1 
 ;;9002226.02101,"1804,30253R1 ",.02)
 ;;30253R1 
 ;;9002226.02101,"1804,30253R1 ",.03)
 ;;31
 ;;9002226.02101,"1804,30253S0 ",.01)
 ;;30253S0 
 ;;9002226.02101,"1804,30253S0 ",.02)
 ;;30253S0 
 ;;9002226.02101,"1804,30253S0 ",.03)
 ;;31
 ;;9002226.02101,"1804,30253S1 ",.01)
 ;;30253S1 
 ;;9002226.02101,"1804,30253S1 ",.02)
 ;;30253S1 
 ;;9002226.02101,"1804,30253S1 ",.03)
 ;;31
 ;;9002226.02101,"1804,30253T0 ",.01)
 ;;30253T0 
 ;;9002226.02101,"1804,30253T0 ",.02)
 ;;30253T0 
 ;;9002226.02101,"1804,30253T0 ",.03)
 ;;31
 ;;9002226.02101,"1804,30253T1 ",.01)
 ;;30253T1 
 ;;9002226.02101,"1804,30253T1 ",.02)
 ;;30253T1 
 ;;9002226.02101,"1804,30253T1 ",.03)
 ;;31
 ;;9002226.02101,"1804,30253V0 ",.01)
 ;;30253V0 
 ;;9002226.02101,"1804,30253V0 ",.02)
 ;;30253V0 
 ;;9002226.02101,"1804,30253V0 ",.03)
 ;;31
 ;;9002226.02101,"1804,30253V1 ",.01)
 ;;30253V1 
 ;;9002226.02101,"1804,30253V1 ",.02)
 ;;30253V1 
 ;;9002226.02101,"1804,30253V1 ",.03)
 ;;31
 ;;9002226.02101,"1804,30253W0 ",.01)
 ;;30253W0 
 ;;9002226.02101,"1804,30253W0 ",.02)
 ;;30253W0 
 ;;9002226.02101,"1804,30253W0 ",.03)
 ;;31
 ;;9002226.02101,"1804,30253W1 ",.01)
 ;;30253W1 
 ;;9002226.02101,"1804,30253W1 ",.02)
 ;;30253W1 
 ;;9002226.02101,"1804,30253W1 ",.03)
 ;;31
 ;;9002226.02101,"1804,30260H0 ",.01)
 ;;30260H0 
 ;;9002226.02101,"1804,30260H0 ",.02)
 ;;30260H0 
 ;;9002226.02101,"1804,30260H0 ",.03)
 ;;31
 ;;9002226.02101,"1804,30260H1 ",.01)
 ;;30260H1 
 ;;9002226.02101,"1804,30260H1 ",.02)
 ;;30260H1 
 ;;9002226.02101,"1804,30260H1 ",.03)
 ;;31
 ;;9002226.02101,"1804,30260J0 ",.01)
 ;;30260J0 
 ;;9002226.02101,"1804,30260J0 ",.02)
 ;;30260J0 
 ;;9002226.02101,"1804,30260J0 ",.03)
 ;;31
 ;;9002226.02101,"1804,30260J1 ",.01)
 ;;30260J1 
 ;;9002226.02101,"1804,30260J1 ",.02)
 ;;30260J1 
 ;;9002226.02101,"1804,30260J1 ",.03)
 ;;31
 ;;9002226.02101,"1804,30260K0 ",.01)
 ;;30260K0 
 ;;9002226.02101,"1804,30260K0 ",.02)
 ;;30260K0 
 ;;9002226.02101,"1804,30260K0 ",.03)
 ;;31
 ;;9002226.02101,"1804,30260K1 ",.01)
 ;;30260K1 
 ;;9002226.02101,"1804,30260K1 ",.02)
 ;;30260K1 
 ;;9002226.02101,"1804,30260K1 ",.03)
 ;;31
 ;;9002226.02101,"1804,30260L0 ",.01)
 ;;30260L0 
 ;;9002226.02101,"1804,30260L0 ",.02)
 ;;30260L0 
 ;;9002226.02101,"1804,30260L0 ",.03)
 ;;31
 ;;9002226.02101,"1804,30260L1 ",.01)
 ;;30260L1 
 ;;9002226.02101,"1804,30260L1 ",.02)
 ;;30260L1 
 ;;9002226.02101,"1804,30260L1 ",.03)
 ;;31
 ;;9002226.02101,"1804,30260M0 ",.01)
 ;;30260M0 
 ;;9002226.02101,"1804,30260M0 ",.02)
 ;;30260M0 
 ;;9002226.02101,"1804,30260M0 ",.03)
 ;;31
 ;;9002226.02101,"1804,30260M1 ",.01)
 ;;30260M1 
 ;;9002226.02101,"1804,30260M1 ",.02)
 ;;30260M1 
 ;;9002226.02101,"1804,30260M1 ",.03)
 ;;31
 ;;9002226.02101,"1804,30260N0 ",.01)
 ;;30260N0 
 ;;9002226.02101,"1804,30260N0 ",.02)
 ;;30260N0 
 ;;9002226.02101,"1804,30260N0 ",.03)
 ;;31
 ;;9002226.02101,"1804,30260N1 ",.01)
 ;;30260N1 
 ;;9002226.02101,"1804,30260N1 ",.02)
 ;;30260N1 
 ;;9002226.02101,"1804,30260N1 ",.03)
 ;;31
 ;;9002226.02101,"1804,30260P0 ",.01)
 ;;30260P0 
 ;;9002226.02101,"1804,30260P0 ",.02)
 ;;30260P0 
 ;;9002226.02101,"1804,30260P0 ",.03)
 ;;31
 ;;9002226.02101,"1804,30260P1 ",.01)
 ;;30260P1 
 ;;9002226.02101,"1804,30260P1 ",.02)
 ;;30260P1 
 ;;9002226.02101,"1804,30260P1 ",.03)
 ;;31
 ;;9002226.02101,"1804,30260Q0 ",.01)
 ;;30260Q0 
 ;;9002226.02101,"1804,30260Q0 ",.02)
 ;;30260Q0 
 ;;9002226.02101,"1804,30260Q0 ",.03)
 ;;31
 ;;9002226.02101,"1804,30260Q1 ",.01)
 ;;30260Q1 
 ;;9002226.02101,"1804,30260Q1 ",.02)
 ;;30260Q1 
 ;;9002226.02101,"1804,30260Q1 ",.03)
 ;;31
 ;;9002226.02101,"1804,30260R0 ",.01)
 ;;30260R0 
 ;;9002226.02101,"1804,30260R0 ",.02)
 ;;30260R0 
 ;;9002226.02101,"1804,30260R0 ",.03)
 ;;31
 ;;9002226.02101,"1804,30260R1 ",.01)
 ;;30260R1 
 ;;9002226.02101,"1804,30260R1 ",.02)
 ;;30260R1 
 ;;9002226.02101,"1804,30260R1 ",.03)
 ;;31
 ;;9002226.02101,"1804,30260S0 ",.01)
 ;;30260S0 
 ;;9002226.02101,"1804,30260S0 ",.02)
 ;;30260S0 
 ;;9002226.02101,"1804,30260S0 ",.03)
 ;;31
 ;;9002226.02101,"1804,30260S1 ",.01)
 ;;30260S1 
 ;;9002226.02101,"1804,30260S1 ",.02)
 ;;30260S1 
 ;;9002226.02101,"1804,30260S1 ",.03)
 ;;31
 ;;9002226.02101,"1804,30260T0 ",.01)
 ;;30260T0 
 ;;9002226.02101,"1804,30260T0 ",.02)
 ;;30260T0 
 ;;9002226.02101,"1804,30260T0 ",.03)
 ;;31
 ;;9002226.02101,"1804,30260T1 ",.01)
 ;;30260T1 
 ;;9002226.02101,"1804,30260T1 ",.02)
 ;;30260T1 
 ;;9002226.02101,"1804,30260T1 ",.03)
 ;;31
 ;;9002226.02101,"1804,30260V0 ",.01)
 ;;30260V0 
 ;;9002226.02101,"1804,30260V0 ",.02)
 ;;30260V0 
 ;;9002226.02101,"1804,30260V0 ",.03)
 ;;31
 ;;9002226.02101,"1804,30260V1 ",.01)
 ;;30260V1 
 ;;9002226.02101,"1804,30260V1 ",.02)
 ;;30260V1 
 ;;9002226.02101,"1804,30260V1 ",.03)
 ;;31
 ;;9002226.02101,"1804,30260W0 ",.01)
 ;;30260W0 
 ;;9002226.02101,"1804,30260W0 ",.02)
 ;;30260W0 
 ;;9002226.02101,"1804,30260W0 ",.03)
 ;;31
 ;;9002226.02101,"1804,30260W1 ",.01)
 ;;30260W1 
 ;;9002226.02101,"1804,30260W1 ",.02)
 ;;30260W1 
 ;;9002226.02101,"1804,30260W1 ",.03)
 ;;31
 ;;9002226.02101,"1804,30263H0 ",.01)
 ;;30263H0 
 ;;9002226.02101,"1804,30263H0 ",.02)
 ;;30263H0 
 ;;9002226.02101,"1804,30263H0 ",.03)
 ;;31
 ;;9002226.02101,"1804,30263H1 ",.01)
 ;;30263H1 
 ;;9002226.02101,"1804,30263H1 ",.02)
 ;;30263H1 
 ;;9002226.02101,"1804,30263H1 ",.03)
 ;;31
 ;;9002226.02101,"1804,30263J0 ",.01)
 ;;30263J0 
 ;;9002226.02101,"1804,30263J0 ",.02)
 ;;30263J0 
 ;;9002226.02101,"1804,30263J0 ",.03)
 ;;31
 ;;9002226.02101,"1804,30263J1 ",.01)
 ;;30263J1 
 ;;9002226.02101,"1804,30263J1 ",.02)
 ;;30263J1 
 ;;9002226.02101,"1804,30263J1 ",.03)
 ;;31
 ;;9002226.02101,"1804,30263K0 ",.01)
 ;;30263K0 
 ;;9002226.02101,"1804,30263K0 ",.02)
 ;;30263K0 
 ;;9002226.02101,"1804,30263K0 ",.03)
 ;;31
 ;;9002226.02101,"1804,30263K1 ",.01)
 ;;30263K1 
 ;;9002226.02101,"1804,30263K1 ",.02)
 ;;30263K1 
 ;;9002226.02101,"1804,30263K1 ",.03)
 ;;31
 ;;9002226.02101,"1804,30263L0 ",.01)
 ;;30263L0 
 ;;9002226.02101,"1804,30263L0 ",.02)
 ;;30263L0 
 ;;9002226.02101,"1804,30263L0 ",.03)
 ;;31
 ;;9002226.02101,"1804,30263L1 ",.01)
 ;;30263L1 
 ;;9002226.02101,"1804,30263L1 ",.02)
 ;;30263L1 
 ;;9002226.02101,"1804,30263L1 ",.03)
 ;;31
 ;;9002226.02101,"1804,30263M0 ",.01)
 ;;30263M0 
 ;;9002226.02101,"1804,30263M0 ",.02)
 ;;30263M0 
 ;;9002226.02101,"1804,30263M0 ",.03)
 ;;31
 ;;9002226.02101,"1804,30263M1 ",.01)
 ;;30263M1 
 ;;9002226.02101,"1804,30263M1 ",.02)
 ;;30263M1 
 ;;9002226.02101,"1804,30263M1 ",.03)
 ;;31
 ;;9002226.02101,"1804,30263N0 ",.01)
 ;;30263N0 
 ;;9002226.02101,"1804,30263N0 ",.02)
 ;;30263N0 
 ;;9002226.02101,"1804,30263N0 ",.03)
 ;;31
 ;;9002226.02101,"1804,30263N1 ",.01)
 ;;30263N1 
 ;;9002226.02101,"1804,30263N1 ",.02)
 ;;30263N1