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.
  1. ATXXB161 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON APR 29, 2014;
  1. ;;5.1;TAXONOMY;**11**;FEB 04, 1997;Build 48
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"1804,30250N1 ",.02)
  1. ;;30250N1
  1. ;;9002226.02101,"1804,30250N1 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30250P0 ",.01)
  1. ;;30250P0
  1. ;;9002226.02101,"1804,30250P0 ",.02)
  1. ;;30250P0
  1. ;;9002226.02101,"1804,30250P0 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30250P1 ",.01)
  1. ;;30250P1
  1. ;;9002226.02101,"1804,30250P1 ",.02)
  1. ;;30250P1
  1. ;;9002226.02101,"1804,30250P1 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30250Q0 ",.01)
  1. ;;30250Q0
  1. ;;9002226.02101,"1804,30250Q0 ",.02)
  1. ;;30250Q0
  1. ;;9002226.02101,"1804,30250Q0 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30250Q1 ",.01)
  1. ;;30250Q1
  1. ;;9002226.02101,"1804,30250Q1 ",.02)
  1. ;;30250Q1
  1. ;;9002226.02101,"1804,30250Q1 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30250R0 ",.01)
  1. ;;30250R0
  1. ;;9002226.02101,"1804,30250R0 ",.02)
  1. ;;30250R0
  1. ;;9002226.02101,"1804,30250R0 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30250R1 ",.01)
  1. ;;30250R1
  1. ;;9002226.02101,"1804,30250R1 ",.02)
  1. ;;30250R1
  1. ;;9002226.02101,"1804,30250R1 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30250S0 ",.01)
  1. ;;30250S0
  1. ;;9002226.02101,"1804,30250S0 ",.02)
  1. ;;30250S0
  1. ;;9002226.02101,"1804,30250S0 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30250S1 ",.01)
  1. ;;30250S1
  1. ;;9002226.02101,"1804,30250S1 ",.02)
  1. ;;30250S1
  1. ;;9002226.02101,"1804,30250S1 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30250T0 ",.01)
  1. ;;30250T0
  1. ;;9002226.02101,"1804,30250T0 ",.02)
  1. ;;30250T0
  1. ;;9002226.02101,"1804,30250T0 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30250T1 ",.01)
  1. ;;30250T1
  1. ;;9002226.02101,"1804,30250T1 ",.02)
  1. ;;30250T1
  1. ;;9002226.02101,"1804,30250T1 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30250V0 ",.01)
  1. ;;30250V0
  1. ;;9002226.02101,"1804,30250V0 ",.02)
  1. ;;30250V0
  1. ;;9002226.02101,"1804,30250V0 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30250V1 ",.01)
  1. ;;30250V1
  1. ;;9002226.02101,"1804,30250V1 ",.02)
  1. ;;30250V1
  1. ;;9002226.02101,"1804,30250V1 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30250W0 ",.01)
  1. ;;30250W0
  1. ;;9002226.02101,"1804,30250W0 ",.02)
  1. ;;30250W0
  1. ;;9002226.02101,"1804,30250W0 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30250W1 ",.01)
  1. ;;30250W1
  1. ;;9002226.02101,"1804,30250W1 ",.02)
  1. ;;30250W1
  1. ;;9002226.02101,"1804,30250W1 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30253H0 ",.01)
  1. ;;30253H0
  1. ;;9002226.02101,"1804,30253H0 ",.02)
  1. ;;30253H0
  1. ;;9002226.02101,"1804,30253H0 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30253H1 ",.01)
  1. ;;30253H1
  1. ;;9002226.02101,"1804,30253H1 ",.02)
  1. ;;30253H1
  1. ;;9002226.02101,"1804,30253H1 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30253J0 ",.01)
  1. ;;30253J0
  1. ;;9002226.02101,"1804,30253J0 ",.02)
  1. ;;30253J0
  1. ;;9002226.02101,"1804,30253J0 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30253J1 ",.01)
  1. ;;30253J1
  1. ;;9002226.02101,"1804,30253J1 ",.02)
  1. ;;30253J1
  1. ;;9002226.02101,"1804,30253J1 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30253K0 ",.01)
  1. ;;30253K0
  1. ;;9002226.02101,"1804,30253K0 ",.02)
  1. ;;30253K0
  1. ;;9002226.02101,"1804,30253K0 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30253K1 ",.01)
  1. ;;30253K1
  1. ;;9002226.02101,"1804,30253K1 ",.02)
  1. ;;30253K1
  1. ;;9002226.02101,"1804,30253K1 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30253L0 ",.01)
  1. ;;30253L0
  1. ;;9002226.02101,"1804,30253L0 ",.02)
  1. ;;30253L0
  1. ;;9002226.02101,"1804,30253L0 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30253L1 ",.01)
  1. ;;30253L1
  1. ;;9002226.02101,"1804,30253L1 ",.02)
  1. ;;30253L1
  1. ;;9002226.02101,"1804,30253L1 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30253M0 ",.01)
  1. ;;30253M0
  1. ;;9002226.02101,"1804,30253M0 ",.02)
  1. ;;30253M0
  1. ;;9002226.02101,"1804,30253M0 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30253M1 ",.01)
  1. ;;30253M1
  1. ;;9002226.02101,"1804,30253M1 ",.02)
  1. ;;30253M1
  1. ;;9002226.02101,"1804,30253M1 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30253N0 ",.01)
  1. ;;30253N0
  1. ;;9002226.02101,"1804,30253N0 ",.02)
  1. ;;30253N0
  1. ;;9002226.02101,"1804,30253N0 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30253N1 ",.01)
  1. ;;30253N1
  1. ;;9002226.02101,"1804,30253N1 ",.02)
  1. ;;30253N1
  1. ;;9002226.02101,"1804,30253N1 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30253P0 ",.01)
  1. ;;30253P0
  1. ;;9002226.02101,"1804,30253P0 ",.02)
  1. ;;30253P0
  1. ;;9002226.02101,"1804,30253P0 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30253P1 ",.01)
  1. ;;30253P1
  1. ;;9002226.02101,"1804,30253P1 ",.02)
  1. ;;30253P1
  1. ;;9002226.02101,"1804,30253P1 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30253Q0 ",.01)
  1. ;;30253Q0
  1. ;;9002226.02101,"1804,30253Q0 ",.02)
  1. ;;30253Q0
  1. ;;9002226.02101,"1804,30253Q0 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30253Q1 ",.01)
  1. ;;30253Q1
  1. ;;9002226.02101,"1804,30253Q1 ",.02)
  1. ;;30253Q1
  1. ;;9002226.02101,"1804,30253Q1 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30253R0 ",.01)
  1. ;;30253R0
  1. ;;9002226.02101,"1804,30253R0 ",.02)
  1. ;;30253R0
  1. ;;9002226.02101,"1804,30253R0 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30253R1 ",.01)
  1. ;;30253R1
  1. ;;9002226.02101,"1804,30253R1 ",.02)
  1. ;;30253R1
  1. ;;9002226.02101,"1804,30253R1 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30253S0 ",.01)
  1. ;;30253S0
  1. ;;9002226.02101,"1804,30253S0 ",.02)
  1. ;;30253S0
  1. ;;9002226.02101,"1804,30253S0 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30253S1 ",.01)
  1. ;;30253S1
  1. ;;9002226.02101,"1804,30253S1 ",.02)
  1. ;;30253S1
  1. ;;9002226.02101,"1804,30253S1 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30253T0 ",.01)
  1. ;;30253T0
  1. ;;9002226.02101,"1804,30253T0 ",.02)
  1. ;;30253T0
  1. ;;9002226.02101,"1804,30253T0 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30253T1 ",.01)
  1. ;;30253T1
  1. ;;9002226.02101,"1804,30253T1 ",.02)
  1. ;;30253T1
  1. ;;9002226.02101,"1804,30253T1 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30253V0 ",.01)
  1. ;;30253V0
  1. ;;9002226.02101,"1804,30253V0 ",.02)
  1. ;;30253V0
  1. ;;9002226.02101,"1804,30253V0 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30253V1 ",.01)
  1. ;;30253V1
  1. ;;9002226.02101,"1804,30253V1 ",.02)
  1. ;;30253V1
  1. ;;9002226.02101,"1804,30253V1 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30253W0 ",.01)
  1. ;;30253W0
  1. ;;9002226.02101,"1804,30253W0 ",.02)
  1. ;;30253W0
  1. ;;9002226.02101,"1804,30253W0 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30253W1 ",.01)
  1. ;;30253W1
  1. ;;9002226.02101,"1804,30253W1 ",.02)
  1. ;;30253W1
  1. ;;9002226.02101,"1804,30253W1 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30260H0 ",.01)
  1. ;;30260H0
  1. ;;9002226.02101,"1804,30260H0 ",.02)
  1. ;;30260H0
  1. ;;9002226.02101,"1804,30260H0 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30260H1 ",.01)
  1. ;;30260H1
  1. ;;9002226.02101,"1804,30260H1 ",.02)
  1. ;;30260H1
  1. ;;9002226.02101,"1804,30260H1 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30260J0 ",.01)
  1. ;;30260J0
  1. ;;9002226.02101,"1804,30260J0 ",.02)
  1. ;;30260J0
  1. ;;9002226.02101,"1804,30260J0 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30260J1 ",.01)
  1. ;;30260J1
  1. ;;9002226.02101,"1804,30260J1 ",.02)
  1. ;;30260J1
  1. ;;9002226.02101,"1804,30260J1 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30260K0 ",.01)
  1. ;;30260K0
  1. ;;9002226.02101,"1804,30260K0 ",.02)
  1. ;;30260K0
  1. ;;9002226.02101,"1804,30260K0 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30260K1 ",.01)
  1. ;;30260K1
  1. ;;9002226.02101,"1804,30260K1 ",.02)
  1. ;;30260K1
  1. ;;9002226.02101,"1804,30260K1 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30260L0 ",.01)
  1. ;;30260L0
  1. ;;9002226.02101,"1804,30260L0 ",.02)
  1. ;;30260L0
  1. ;;9002226.02101,"1804,30260L0 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30260L1 ",.01)
  1. ;;30260L1
  1. ;;9002226.02101,"1804,30260L1 ",.02)
  1. ;;30260L1
  1. ;;9002226.02101,"1804,30260L1 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30260M0 ",.01)
  1. ;;30260M0
  1. ;;9002226.02101,"1804,30260M0 ",.02)
  1. ;;30260M0
  1. ;;9002226.02101,"1804,30260M0 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30260M1 ",.01)
  1. ;;30260M1
  1. ;;9002226.02101,"1804,30260M1 ",.02)
  1. ;;30260M1
  1. ;;9002226.02101,"1804,30260M1 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30260N0 ",.01)
  1. ;;30260N0
  1. ;;9002226.02101,"1804,30260N0 ",.02)
  1. ;;30260N0
  1. ;;9002226.02101,"1804,30260N0 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30260N1 ",.01)
  1. ;;30260N1
  1. ;;9002226.02101,"1804,30260N1 ",.02)
  1. ;;30260N1
  1. ;;9002226.02101,"1804,30260N1 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30260P0 ",.01)
  1. ;;30260P0
  1. ;;9002226.02101,"1804,30260P0 ",.02)
  1. ;;30260P0
  1. ;;9002226.02101,"1804,30260P0 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30260P1 ",.01)
  1. ;;30260P1
  1. ;;9002226.02101,"1804,30260P1 ",.02)
  1. ;;30260P1
  1. ;;9002226.02101,"1804,30260P1 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30260Q0 ",.01)
  1. ;;30260Q0
  1. ;;9002226.02101,"1804,30260Q0 ",.02)
  1. ;;30260Q0
  1. ;;9002226.02101,"1804,30260Q0 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30260Q1 ",.01)
  1. ;;30260Q1
  1. ;;9002226.02101,"1804,30260Q1 ",.02)
  1. ;;30260Q1
  1. ;;9002226.02101,"1804,30260Q1 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30260R0 ",.01)
  1. ;;30260R0
  1. ;;9002226.02101,"1804,30260R0 ",.02)
  1. ;;30260R0
  1. ;;9002226.02101,"1804,30260R0 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30260R1 ",.01)
  1. ;;30260R1
  1. ;;9002226.02101,"1804,30260R1 ",.02)
  1. ;;30260R1
  1. ;;9002226.02101,"1804,30260R1 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30260S0 ",.01)
  1. ;;30260S0
  1. ;;9002226.02101,"1804,30260S0 ",.02)
  1. ;;30260S0
  1. ;;9002226.02101,"1804,30260S0 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30260S1 ",.01)
  1. ;;30260S1
  1. ;;9002226.02101,"1804,30260S1 ",.02)
  1. ;;30260S1
  1. ;;9002226.02101,"1804,30260S1 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30260T0 ",.01)
  1. ;;30260T0
  1. ;;9002226.02101,"1804,30260T0 ",.02)
  1. ;;30260T0
  1. ;;9002226.02101,"1804,30260T0 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30260T1 ",.01)
  1. ;;30260T1
  1. ;;9002226.02101,"1804,30260T1 ",.02)
  1. ;;30260T1
  1. ;;9002226.02101,"1804,30260T1 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30260V0 ",.01)
  1. ;;30260V0
  1. ;;9002226.02101,"1804,30260V0 ",.02)
  1. ;;30260V0
  1. ;;9002226.02101,"1804,30260V0 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30260V1 ",.01)
  1. ;;30260V1
  1. ;;9002226.02101,"1804,30260V1 ",.02)
  1. ;;30260V1
  1. ;;9002226.02101,"1804,30260V1 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30260W0 ",.01)
  1. ;;30260W0
  1. ;;9002226.02101,"1804,30260W0 ",.02)
  1. ;;30260W0
  1. ;;9002226.02101,"1804,30260W0 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30260W1 ",.01)
  1. ;;30260W1
  1. ;;9002226.02101,"1804,30260W1 ",.02)
  1. ;;30260W1
  1. ;;9002226.02101,"1804,30260W1 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30263H0 ",.01)
  1. ;;30263H0
  1. ;;9002226.02101,"1804,30263H0 ",.02)
  1. ;;30263H0
  1. ;;9002226.02101,"1804,30263H0 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30263H1 ",.01)
  1. ;;30263H1
  1. ;;9002226.02101,"1804,30263H1 ",.02)
  1. ;;30263H1
  1. ;;9002226.02101,"1804,30263H1 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30263J0 ",.01)
  1. ;;30263J0
  1. ;;9002226.02101,"1804,30263J0 ",.02)
  1. ;;30263J0
  1. ;;9002226.02101,"1804,30263J0 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30263J1 ",.01)
  1. ;;30263J1
  1. ;;9002226.02101,"1804,30263J1 ",.02)
  1. ;;30263J1
  1. ;;9002226.02101,"1804,30263J1 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30263K0 ",.01)
  1. ;;30263K0
  1. ;;9002226.02101,"1804,30263K0 ",.02)
  1. ;;30263K0
  1. ;;9002226.02101,"1804,30263K0 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30263K1 ",.01)
  1. ;;30263K1
  1. ;;9002226.02101,"1804,30263K1 ",.02)
  1. ;;30263K1
  1. ;;9002226.02101,"1804,30263K1 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30263L0 ",.01)
  1. ;;30263L0
  1. ;;9002226.02101,"1804,30263L0 ",.02)
  1. ;;30263L0
  1. ;;9002226.02101,"1804,30263L0 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30263L1 ",.01)
  1. ;;30263L1
  1. ;;9002226.02101,"1804,30263L1 ",.02)
  1. ;;30263L1
  1. ;;9002226.02101,"1804,30263L1 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30263M0 ",.01)
  1. ;;30263M0
  1. ;;9002226.02101,"1804,30263M0 ",.02)
  1. ;;30263M0
  1. ;;9002226.02101,"1804,30263M0 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30263M1 ",.01)
  1. ;;30263M1
  1. ;;9002226.02101,"1804,30263M1 ",.02)
  1. ;;30263M1
  1. ;;9002226.02101,"1804,30263M1 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30263N0 ",.01)
  1. ;;30263N0
  1. ;;9002226.02101,"1804,30263N0 ",.02)
  1. ;;30263N0
  1. ;;9002226.02101,"1804,30263N0 ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,30263N1 ",.01)
  1. ;;30263N1
  1. ;;9002226.02101,"1804,30263N1 ",.02)
  1. ;;30263N1