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

ATXXA40.m

Go to the documentation of this file.
ATXXA40 ;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,"873,S21.342A ",.02)
 ;;S21.342A
 ;;9002226.02101,"873,S21.342A ",.03)
 ;;30
 ;;9002226.02101,"873,S21.349A ",.01)
 ;;S21.349A
 ;;9002226.02101,"873,S21.349A ",.02)
 ;;S21.349A
 ;;9002226.02101,"873,S21.349A ",.03)
 ;;30
 ;;9002226.02101,"873,S21.351A ",.01)
 ;;S21.351A
 ;;9002226.02101,"873,S21.351A ",.02)
 ;;S21.351A
 ;;9002226.02101,"873,S21.351A ",.03)
 ;;30
 ;;9002226.02101,"873,S21.352A ",.01)
 ;;S21.352A
 ;;9002226.02101,"873,S21.352A ",.02)
 ;;S21.352A
 ;;9002226.02101,"873,S21.352A ",.03)
 ;;30
 ;;9002226.02101,"873,S21.359A ",.01)
 ;;S21.359A
 ;;9002226.02101,"873,S21.359A ",.02)
 ;;S21.359A
 ;;9002226.02101,"873,S21.359A ",.03)
 ;;30
 ;;9002226.02101,"873,S21.401A ",.01)
 ;;S21.401A
 ;;9002226.02101,"873,S21.401A ",.02)
 ;;S21.401A
 ;;9002226.02101,"873,S21.401A ",.03)
 ;;30
 ;;9002226.02101,"873,S21.402A ",.01)
 ;;S21.402A
 ;;9002226.02101,"873,S21.402A ",.02)
 ;;S21.402A
 ;;9002226.02101,"873,S21.402A ",.03)
 ;;30
 ;;9002226.02101,"873,S21.409A ",.01)
 ;;S21.409A
 ;;9002226.02101,"873,S21.409A ",.02)
 ;;S21.409A
 ;;9002226.02101,"873,S21.409A ",.03)
 ;;30
 ;;9002226.02101,"873,S21.411A ",.01)
 ;;S21.411A
 ;;9002226.02101,"873,S21.411A ",.02)
 ;;S21.411A
 ;;9002226.02101,"873,S21.411A ",.03)
 ;;30
 ;;9002226.02101,"873,S21.412A ",.01)
 ;;S21.412A
 ;;9002226.02101,"873,S21.412A ",.02)
 ;;S21.412A
 ;;9002226.02101,"873,S21.412A ",.03)
 ;;30
 ;;9002226.02101,"873,S21.419A ",.01)
 ;;S21.419A
 ;;9002226.02101,"873,S21.419A ",.02)
 ;;S21.419A
 ;;9002226.02101,"873,S21.419A ",.03)
 ;;30
 ;;9002226.02101,"873,S21.421A ",.01)
 ;;S21.421A
 ;;9002226.02101,"873,S21.421A ",.02)
 ;;S21.421A
 ;;9002226.02101,"873,S21.421A ",.03)
 ;;30
 ;;9002226.02101,"873,S21.422A ",.01)
 ;;S21.422A
 ;;9002226.02101,"873,S21.422A ",.02)
 ;;S21.422A
 ;;9002226.02101,"873,S21.422A ",.03)
 ;;30
 ;;9002226.02101,"873,S21.429A ",.01)
 ;;S21.429A
 ;;9002226.02101,"873,S21.429A ",.02)
 ;;S21.429A
 ;;9002226.02101,"873,S21.429A ",.03)
 ;;30
 ;;9002226.02101,"873,S21.431A ",.01)
 ;;S21.431A
 ;;9002226.02101,"873,S21.431A ",.02)
 ;;S21.431A
 ;;9002226.02101,"873,S21.431A ",.03)
 ;;30
 ;;9002226.02101,"873,S21.432A ",.01)
 ;;S21.432A
 ;;9002226.02101,"873,S21.432A ",.02)
 ;;S21.432A
 ;;9002226.02101,"873,S21.432A ",.03)
 ;;30
 ;;9002226.02101,"873,S21.439A ",.01)
 ;;S21.439A
 ;;9002226.02101,"873,S21.439A ",.02)
 ;;S21.439A
 ;;9002226.02101,"873,S21.439A ",.03)
 ;;30
 ;;9002226.02101,"873,S21.441A ",.01)
 ;;S21.441A
 ;;9002226.02101,"873,S21.441A ",.02)
 ;;S21.441A
 ;;9002226.02101,"873,S21.441A ",.03)
 ;;30
 ;;9002226.02101,"873,S21.442A ",.01)
 ;;S21.442A
 ;;9002226.02101,"873,S21.442A ",.02)
 ;;S21.442A
 ;;9002226.02101,"873,S21.442A ",.03)
 ;;30
 ;;9002226.02101,"873,S21.449A ",.01)
 ;;S21.449A
 ;;9002226.02101,"873,S21.449A ",.02)
 ;;S21.449A
 ;;9002226.02101,"873,S21.449A ",.03)
 ;;30
 ;;9002226.02101,"873,S21.451A ",.01)
 ;;S21.451A
 ;;9002226.02101,"873,S21.451A ",.02)
 ;;S21.451A
 ;;9002226.02101,"873,S21.451A ",.03)
 ;;30
 ;;9002226.02101,"873,S21.452A ",.01)
 ;;S21.452A
 ;;9002226.02101,"873,S21.452A ",.02)
 ;;S21.452A
 ;;9002226.02101,"873,S21.452A ",.03)
 ;;30
 ;;9002226.02101,"873,S21.459A ",.01)
 ;;S21.459A
 ;;9002226.02101,"873,S21.459A ",.02)
 ;;S21.459A
 ;;9002226.02101,"873,S21.459A ",.03)
 ;;30
 ;;9002226.02101,"873,S21.90XA ",.01)
 ;;S21.90XA
 ;;9002226.02101,"873,S21.90XA ",.02)
 ;;S21.90XA
 ;;9002226.02101,"873,S21.90XA ",.03)
 ;;30
 ;;9002226.02101,"873,S21.91XA ",.01)
 ;;S21.91XA
 ;;9002226.02101,"873,S21.91XA ",.02)
 ;;S21.91XA
 ;;9002226.02101,"873,S21.91XA ",.03)
 ;;30
 ;;9002226.02101,"873,S21.92XA ",.01)
 ;;S21.92XA
 ;;9002226.02101,"873,S21.92XA ",.02)
 ;;S21.92XA
 ;;9002226.02101,"873,S21.92XA ",.03)
 ;;30
 ;;9002226.02101,"873,S21.93XA ",.01)
 ;;S21.93XA
 ;;9002226.02101,"873,S21.93XA ",.02)
 ;;S21.93XA
 ;;9002226.02101,"873,S21.93XA ",.03)
 ;;30
 ;;9002226.02101,"873,S21.94XA ",.01)
 ;;S21.94XA
 ;;9002226.02101,"873,S21.94XA ",.02)
 ;;S21.94XA
 ;;9002226.02101,"873,S21.94XA ",.03)
 ;;30
 ;;9002226.02101,"873,S21.95XA ",.01)
 ;;S21.95XA
 ;;9002226.02101,"873,S21.95XA ",.02)
 ;;S21.95XA
 ;;9002226.02101,"873,S21.95XA ",.03)
 ;;30
 ;;9002226.02101,"873,S22.000A ",.01)
 ;;S22.000A
 ;;9002226.02101,"873,S22.000A ",.02)
 ;;S22.000A
 ;;9002226.02101,"873,S22.000A ",.03)
 ;;30
 ;;9002226.02101,"873,S22.000B ",.01)
 ;;S22.000B
 ;;9002226.02101,"873,S22.000B ",.02)
 ;;S22.000B
 ;;9002226.02101,"873,S22.000B ",.03)
 ;;30
 ;;9002226.02101,"873,S22.001A ",.01)
 ;;S22.001A
 ;;9002226.02101,"873,S22.001A ",.02)
 ;;S22.001A
 ;;9002226.02101,"873,S22.001A ",.03)
 ;;30
 ;;9002226.02101,"873,S22.001B ",.01)
 ;;S22.001B
 ;;9002226.02101,"873,S22.001B ",.02)
 ;;S22.001B
 ;;9002226.02101,"873,S22.001B ",.03)
 ;;30
 ;;9002226.02101,"873,S22.002A ",.01)
 ;;S22.002A
 ;;9002226.02101,"873,S22.002A ",.02)
 ;;S22.002A
 ;;9002226.02101,"873,S22.002A ",.03)
 ;;30
 ;;9002226.02101,"873,S22.002B ",.01)
 ;;S22.002B
 ;;9002226.02101,"873,S22.002B ",.02)
 ;;S22.002B
 ;;9002226.02101,"873,S22.002B ",.03)
 ;;30
 ;;9002226.02101,"873,S22.008A ",.01)
 ;;S22.008A
 ;;9002226.02101,"873,S22.008A ",.02)
 ;;S22.008A
 ;;9002226.02101,"873,S22.008A ",.03)
 ;;30
 ;;9002226.02101,"873,S22.008B ",.01)
 ;;S22.008B
 ;;9002226.02101,"873,S22.008B ",.02)
 ;;S22.008B
 ;;9002226.02101,"873,S22.008B ",.03)
 ;;30
 ;;9002226.02101,"873,S22.009A ",.01)
 ;;S22.009A
 ;;9002226.02101,"873,S22.009A ",.02)
 ;;S22.009A
 ;;9002226.02101,"873,S22.009A ",.03)
 ;;30
 ;;9002226.02101,"873,S22.009B ",.01)
 ;;S22.009B
 ;;9002226.02101,"873,S22.009B ",.02)
 ;;S22.009B
 ;;9002226.02101,"873,S22.009B ",.03)
 ;;30
 ;;9002226.02101,"873,S22.010A ",.01)
 ;;S22.010A
 ;;9002226.02101,"873,S22.010A ",.02)
 ;;S22.010A
 ;;9002226.02101,"873,S22.010A ",.03)
 ;;30
 ;;9002226.02101,"873,S22.010B ",.01)
 ;;S22.010B
 ;;9002226.02101,"873,S22.010B ",.02)
 ;;S22.010B
 ;;9002226.02101,"873,S22.010B ",.03)
 ;;30
 ;;9002226.02101,"873,S22.011A ",.01)
 ;;S22.011A
 ;;9002226.02101,"873,S22.011A ",.02)
 ;;S22.011A
 ;;9002226.02101,"873,S22.011A ",.03)
 ;;30
 ;;9002226.02101,"873,S22.011B ",.01)
 ;;S22.011B
 ;;9002226.02101,"873,S22.011B ",.02)
 ;;S22.011B
 ;;9002226.02101,"873,S22.011B ",.03)
 ;;30
 ;;9002226.02101,"873,S22.012A ",.01)
 ;;S22.012A
 ;;9002226.02101,"873,S22.012A ",.02)
 ;;S22.012A
 ;;9002226.02101,"873,S22.012A ",.03)
 ;;30
 ;;9002226.02101,"873,S22.012B ",.01)
 ;;S22.012B
 ;;9002226.02101,"873,S22.012B ",.02)
 ;;S22.012B
 ;;9002226.02101,"873,S22.012B ",.03)
 ;;30
 ;;9002226.02101,"873,S22.018A ",.01)
 ;;S22.018A
 ;;9002226.02101,"873,S22.018A ",.02)
 ;;S22.018A
 ;;9002226.02101,"873,S22.018A ",.03)
 ;;30
 ;;9002226.02101,"873,S22.018B ",.01)
 ;;S22.018B
 ;;9002226.02101,"873,S22.018B ",.02)
 ;;S22.018B
 ;;9002226.02101,"873,S22.018B ",.03)
 ;;30
 ;;9002226.02101,"873,S22.019A ",.01)
 ;;S22.019A
 ;;9002226.02101,"873,S22.019A ",.02)
 ;;S22.019A
 ;;9002226.02101,"873,S22.019A ",.03)
 ;;30
 ;;9002226.02101,"873,S22.019B ",.01)
 ;;S22.019B
 ;;9002226.02101,"873,S22.019B ",.02)
 ;;S22.019B
 ;;9002226.02101,"873,S22.019B ",.03)
 ;;30
 ;;9002226.02101,"873,S22.020A ",.01)
 ;;S22.020A
 ;;9002226.02101,"873,S22.020A ",.02)
 ;;S22.020A
 ;;9002226.02101,"873,S22.020A ",.03)
 ;;30
 ;;9002226.02101,"873,S22.020B ",.01)
 ;;S22.020B
 ;;9002226.02101,"873,S22.020B ",.02)
 ;;S22.020B
 ;;9002226.02101,"873,S22.020B ",.03)
 ;;30
 ;;9002226.02101,"873,S22.021A ",.01)
 ;;S22.021A
 ;;9002226.02101,"873,S22.021A ",.02)
 ;;S22.021A
 ;;9002226.02101,"873,S22.021A ",.03)
 ;;30
 ;;9002226.02101,"873,S22.021B ",.01)
 ;;S22.021B
 ;;9002226.02101,"873,S22.021B ",.02)
 ;;S22.021B
 ;;9002226.02101,"873,S22.021B ",.03)
 ;;30
 ;;9002226.02101,"873,S22.022A ",.01)
 ;;S22.022A
 ;;9002226.02101,"873,S22.022A ",.02)
 ;;S22.022A
 ;;9002226.02101,"873,S22.022A ",.03)
 ;;30
 ;;9002226.02101,"873,S22.022B ",.01)
 ;;S22.022B
 ;;9002226.02101,"873,S22.022B ",.02)
 ;;S22.022B
 ;;9002226.02101,"873,S22.022B ",.03)
 ;;30
 ;;9002226.02101,"873,S22.028A ",.01)
 ;;S22.028A
 ;;9002226.02101,"873,S22.028A ",.02)
 ;;S22.028A
 ;;9002226.02101,"873,S22.028A ",.03)
 ;;30
 ;;9002226.02101,"873,S22.028B ",.01)
 ;;S22.028B
 ;;9002226.02101,"873,S22.028B ",.02)
 ;;S22.028B
 ;;9002226.02101,"873,S22.028B ",.03)
 ;;30
 ;;9002226.02101,"873,S22.029A ",.01)
 ;;S22.029A
 ;;9002226.02101,"873,S22.029A ",.02)
 ;;S22.029A
 ;;9002226.02101,"873,S22.029A ",.03)
 ;;30
 ;;9002226.02101,"873,S22.029B ",.01)
 ;;S22.029B
 ;;9002226.02101,"873,S22.029B ",.02)
 ;;S22.029B
 ;;9002226.02101,"873,S22.029B ",.03)
 ;;30
 ;;9002226.02101,"873,S22.030A ",.01)
 ;;S22.030A
 ;;9002226.02101,"873,S22.030A ",.02)
 ;;S22.030A
 ;;9002226.02101,"873,S22.030A ",.03)
 ;;30
 ;;9002226.02101,"873,S22.030B ",.01)
 ;;S22.030B
 ;;9002226.02101,"873,S22.030B ",.02)
 ;;S22.030B
 ;;9002226.02101,"873,S22.030B ",.03)
 ;;30
 ;;9002226.02101,"873,S22.031A ",.01)
 ;;S22.031A
 ;;9002226.02101,"873,S22.031A ",.02)
 ;;S22.031A
 ;;9002226.02101,"873,S22.031A ",.03)
 ;;30
 ;;9002226.02101,"873,S22.031B ",.01)
 ;;S22.031B
 ;;9002226.02101,"873,S22.031B ",.02)
 ;;S22.031B
 ;;9002226.02101,"873,S22.031B ",.03)
 ;;30
 ;;9002226.02101,"873,S22.032A ",.01)
 ;;S22.032A
 ;;9002226.02101,"873,S22.032A ",.02)
 ;;S22.032A
 ;;9002226.02101,"873,S22.032A ",.03)
 ;;30
 ;;9002226.02101,"873,S22.032B ",.01)
 ;;S22.032B
 ;;9002226.02101,"873,S22.032B ",.02)
 ;;S22.032B
 ;;9002226.02101,"873,S22.032B ",.03)
 ;;30
 ;;9002226.02101,"873,S22.038A ",.01)
 ;;S22.038A
 ;;9002226.02101,"873,S22.038A ",.02)
 ;;S22.038A
 ;;9002226.02101,"873,S22.038A ",.03)
 ;;30
 ;;9002226.02101,"873,S22.038B ",.01)
 ;;S22.038B
 ;;9002226.02101,"873,S22.038B ",.02)
 ;;S22.038B
 ;;9002226.02101,"873,S22.038B ",.03)
 ;;30
 ;;9002226.02101,"873,S22.039A ",.01)
 ;;S22.039A
 ;;9002226.02101,"873,S22.039A ",.02)
 ;;S22.039A
 ;;9002226.02101,"873,S22.039A ",.03)
 ;;30
 ;;9002226.02101,"873,S22.039B ",.01)
 ;;S22.039B
 ;;9002226.02101,"873,S22.039B ",.02)
 ;;S22.039B
 ;;9002226.02101,"873,S22.039B ",.03)
 ;;30
 ;;9002226.02101,"873,S22.040A ",.01)
 ;;S22.040A
 ;;9002226.02101,"873,S22.040A ",.02)
 ;;S22.040A
 ;;9002226.02101,"873,S22.040A ",.03)
 ;;30
 ;;9002226.02101,"873,S22.040B ",.01)
 ;;S22.040B
 ;;9002226.02101,"873,S22.040B ",.02)
 ;;S22.040B
 ;;9002226.02101,"873,S22.040B ",.03)
 ;;30
 ;;9002226.02101,"873,S22.041A ",.01)
 ;;S22.041A
 ;;9002226.02101,"873,S22.041A ",.02)
 ;;S22.041A
 ;;9002226.02101,"873,S22.041A ",.03)
 ;;30
 ;;9002226.02101,"873,S22.041B ",.01)
 ;;S22.041B
 ;;9002226.02101,"873,S22.041B ",.02)
 ;;S22.041B
 ;;9002226.02101,"873,S22.041B ",.03)
 ;;30
 ;;9002226.02101,"873,S22.042A ",.01)
 ;;S22.042A
 ;;9002226.02101,"873,S22.042A ",.02)
 ;;S22.042A
 ;;9002226.02101,"873,S22.042A ",.03)
 ;;30
 ;;9002226.02101,"873,S22.042B ",.01)
 ;;S22.042B
 ;;9002226.02101,"873,S22.042B ",.02)
 ;;S22.042B
 ;;9002226.02101,"873,S22.042B ",.03)
 ;;30
 ;;9002226.02101,"873,S22.048A ",.01)
 ;;S22.048A
 ;;9002226.02101,"873,S22.048A ",.02)
 ;;S22.048A
 ;;9002226.02101,"873,S22.048A ",.03)
 ;;30
 ;;9002226.02101,"873,S22.048B ",.01)
 ;;S22.048B
 ;;9002226.02101,"873,S22.048B ",.02)
 ;;S22.048B
 ;;9002226.02101,"873,S22.048B ",.03)
 ;;30
 ;;9002226.02101,"873,S22.049A ",.01)
 ;;S22.049A
 ;;9002226.02101,"873,S22.049A ",.02)
 ;;S22.049A
 ;;9002226.02101,"873,S22.049A ",.03)
 ;;30
 ;;9002226.02101,"873,S22.049B ",.01)
 ;;S22.049B
 ;;9002226.02101,"873,S22.049B ",.02)
 ;;S22.049B