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

ATXXA34.m

Go to the documentation of this file.
ATXXA34 ;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,S10.84XA ",.02)
 ;;S10.84XA
 ;;9002226.02101,"873,S10.84XA ",.03)
 ;;30
 ;;9002226.02101,"873,S10.85XA ",.01)
 ;;S10.85XA
 ;;9002226.02101,"873,S10.85XA ",.02)
 ;;S10.85XA
 ;;9002226.02101,"873,S10.85XA ",.03)
 ;;30
 ;;9002226.02101,"873,S10.87XA ",.01)
 ;;S10.87XA
 ;;9002226.02101,"873,S10.87XA ",.02)
 ;;S10.87XA
 ;;9002226.02101,"873,S10.87XA ",.03)
 ;;30
 ;;9002226.02101,"873,S10.90XA ",.01)
 ;;S10.90XA
 ;;9002226.02101,"873,S10.90XA ",.02)
 ;;S10.90XA
 ;;9002226.02101,"873,S10.90XA ",.03)
 ;;30
 ;;9002226.02101,"873,S10.91XA ",.01)
 ;;S10.91XA
 ;;9002226.02101,"873,S10.91XA ",.02)
 ;;S10.91XA
 ;;9002226.02101,"873,S10.91XA ",.03)
 ;;30
 ;;9002226.02101,"873,S10.93XA ",.01)
 ;;S10.93XA
 ;;9002226.02101,"873,S10.93XA ",.02)
 ;;S10.93XA
 ;;9002226.02101,"873,S10.93XA ",.03)
 ;;30
 ;;9002226.02101,"873,S10.94XA ",.01)
 ;;S10.94XA
 ;;9002226.02101,"873,S10.94XA ",.02)
 ;;S10.94XA
 ;;9002226.02101,"873,S10.94XA ",.03)
 ;;30
 ;;9002226.02101,"873,S10.95XA ",.01)
 ;;S10.95XA
 ;;9002226.02101,"873,S10.95XA ",.02)
 ;;S10.95XA
 ;;9002226.02101,"873,S10.95XA ",.03)
 ;;30
 ;;9002226.02101,"873,S10.97XA ",.01)
 ;;S10.97XA
 ;;9002226.02101,"873,S10.97XA ",.02)
 ;;S10.97XA
 ;;9002226.02101,"873,S10.97XA ",.03)
 ;;30
 ;;9002226.02101,"873,S11.011A ",.01)
 ;;S11.011A
 ;;9002226.02101,"873,S11.011A ",.02)
 ;;S11.011A
 ;;9002226.02101,"873,S11.011A ",.03)
 ;;30
 ;;9002226.02101,"873,S11.012A ",.01)
 ;;S11.012A
 ;;9002226.02101,"873,S11.012A ",.02)
 ;;S11.012A
 ;;9002226.02101,"873,S11.012A ",.03)
 ;;30
 ;;9002226.02101,"873,S11.013A ",.01)
 ;;S11.013A
 ;;9002226.02101,"873,S11.013A ",.02)
 ;;S11.013A
 ;;9002226.02101,"873,S11.013A ",.03)
 ;;30
 ;;9002226.02101,"873,S11.014A ",.01)
 ;;S11.014A
 ;;9002226.02101,"873,S11.014A ",.02)
 ;;S11.014A
 ;;9002226.02101,"873,S11.014A ",.03)
 ;;30
 ;;9002226.02101,"873,S11.015A ",.01)
 ;;S11.015A
 ;;9002226.02101,"873,S11.015A ",.02)
 ;;S11.015A
 ;;9002226.02101,"873,S11.015A ",.03)
 ;;30
 ;;9002226.02101,"873,S11.019A ",.01)
 ;;S11.019A
 ;;9002226.02101,"873,S11.019A ",.02)
 ;;S11.019A
 ;;9002226.02101,"873,S11.019A ",.03)
 ;;30
 ;;9002226.02101,"873,S11.021A ",.01)
 ;;S11.021A
 ;;9002226.02101,"873,S11.021A ",.02)
 ;;S11.021A
 ;;9002226.02101,"873,S11.021A ",.03)
 ;;30
 ;;9002226.02101,"873,S11.022A ",.01)
 ;;S11.022A
 ;;9002226.02101,"873,S11.022A ",.02)
 ;;S11.022A
 ;;9002226.02101,"873,S11.022A ",.03)
 ;;30
 ;;9002226.02101,"873,S11.023A ",.01)
 ;;S11.023A
 ;;9002226.02101,"873,S11.023A ",.02)
 ;;S11.023A
 ;;9002226.02101,"873,S11.023A ",.03)
 ;;30
 ;;9002226.02101,"873,S11.024A ",.01)
 ;;S11.024A
 ;;9002226.02101,"873,S11.024A ",.02)
 ;;S11.024A
 ;;9002226.02101,"873,S11.024A ",.03)
 ;;30
 ;;9002226.02101,"873,S11.025A ",.01)
 ;;S11.025A
 ;;9002226.02101,"873,S11.025A ",.02)
 ;;S11.025A
 ;;9002226.02101,"873,S11.025A ",.03)
 ;;30
 ;;9002226.02101,"873,S11.029A ",.01)
 ;;S11.029A
 ;;9002226.02101,"873,S11.029A ",.02)
 ;;S11.029A
 ;;9002226.02101,"873,S11.029A ",.03)
 ;;30
 ;;9002226.02101,"873,S11.031A ",.01)
 ;;S11.031A
 ;;9002226.02101,"873,S11.031A ",.02)
 ;;S11.031A
 ;;9002226.02101,"873,S11.031A ",.03)
 ;;30
 ;;9002226.02101,"873,S11.032A ",.01)
 ;;S11.032A
 ;;9002226.02101,"873,S11.032A ",.02)
 ;;S11.032A
 ;;9002226.02101,"873,S11.032A ",.03)
 ;;30
 ;;9002226.02101,"873,S11.033A ",.01)
 ;;S11.033A
 ;;9002226.02101,"873,S11.033A ",.02)
 ;;S11.033A
 ;;9002226.02101,"873,S11.033A ",.03)
 ;;30
 ;;9002226.02101,"873,S11.034A ",.01)
 ;;S11.034A
 ;;9002226.02101,"873,S11.034A ",.02)
 ;;S11.034A
 ;;9002226.02101,"873,S11.034A ",.03)
 ;;30
 ;;9002226.02101,"873,S11.035A ",.01)
 ;;S11.035A
 ;;9002226.02101,"873,S11.035A ",.02)
 ;;S11.035A
 ;;9002226.02101,"873,S11.035A ",.03)
 ;;30
 ;;9002226.02101,"873,S11.039A ",.01)
 ;;S11.039A
 ;;9002226.02101,"873,S11.039A ",.02)
 ;;S11.039A
 ;;9002226.02101,"873,S11.039A ",.03)
 ;;30
 ;;9002226.02101,"873,S11.10XA ",.01)
 ;;S11.10XA
 ;;9002226.02101,"873,S11.10XA ",.02)
 ;;S11.10XA
 ;;9002226.02101,"873,S11.10XA ",.03)
 ;;30
 ;;9002226.02101,"873,S11.11XA ",.01)
 ;;S11.11XA
 ;;9002226.02101,"873,S11.11XA ",.02)
 ;;S11.11XA
 ;;9002226.02101,"873,S11.11XA ",.03)
 ;;30
 ;;9002226.02101,"873,S11.12XA ",.01)
 ;;S11.12XA
 ;;9002226.02101,"873,S11.12XA ",.02)
 ;;S11.12XA
 ;;9002226.02101,"873,S11.12XA ",.03)
 ;;30
 ;;9002226.02101,"873,S11.13XA ",.01)
 ;;S11.13XA
 ;;9002226.02101,"873,S11.13XA ",.02)
 ;;S11.13XA
 ;;9002226.02101,"873,S11.13XA ",.03)
 ;;30
 ;;9002226.02101,"873,S11.14XA ",.01)
 ;;S11.14XA
 ;;9002226.02101,"873,S11.14XA ",.02)
 ;;S11.14XA
 ;;9002226.02101,"873,S11.14XA ",.03)
 ;;30
 ;;9002226.02101,"873,S11.15XA ",.01)
 ;;S11.15XA
 ;;9002226.02101,"873,S11.15XA ",.02)
 ;;S11.15XA
 ;;9002226.02101,"873,S11.15XA ",.03)
 ;;30
 ;;9002226.02101,"873,S11.20XA ",.01)
 ;;S11.20XA
 ;;9002226.02101,"873,S11.20XA ",.02)
 ;;S11.20XA
 ;;9002226.02101,"873,S11.20XA ",.03)
 ;;30
 ;;9002226.02101,"873,S11.21XA ",.01)
 ;;S11.21XA
 ;;9002226.02101,"873,S11.21XA ",.02)
 ;;S11.21XA
 ;;9002226.02101,"873,S11.21XA ",.03)
 ;;30
 ;;9002226.02101,"873,S11.22XA ",.01)
 ;;S11.22XA
 ;;9002226.02101,"873,S11.22XA ",.02)
 ;;S11.22XA
 ;;9002226.02101,"873,S11.22XA ",.03)
 ;;30
 ;;9002226.02101,"873,S11.23XA ",.01)
 ;;S11.23XA
 ;;9002226.02101,"873,S11.23XA ",.02)
 ;;S11.23XA
 ;;9002226.02101,"873,S11.23XA ",.03)
 ;;30
 ;;9002226.02101,"873,S11.24XA ",.01)
 ;;S11.24XA
 ;;9002226.02101,"873,S11.24XA ",.02)
 ;;S11.24XA
 ;;9002226.02101,"873,S11.24XA ",.03)
 ;;30
 ;;9002226.02101,"873,S11.25XA ",.01)
 ;;S11.25XA
 ;;9002226.02101,"873,S11.25XA ",.02)
 ;;S11.25XA
 ;;9002226.02101,"873,S11.25XA ",.03)
 ;;30
 ;;9002226.02101,"873,S11.80XA ",.01)
 ;;S11.80XA
 ;;9002226.02101,"873,S11.80XA ",.02)
 ;;S11.80XA
 ;;9002226.02101,"873,S11.80XA ",.03)
 ;;30
 ;;9002226.02101,"873,S11.81XA ",.01)
 ;;S11.81XA
 ;;9002226.02101,"873,S11.81XA ",.02)
 ;;S11.81XA
 ;;9002226.02101,"873,S11.81XA ",.03)
 ;;30
 ;;9002226.02101,"873,S11.82XA ",.01)
 ;;S11.82XA
 ;;9002226.02101,"873,S11.82XA ",.02)
 ;;S11.82XA
 ;;9002226.02101,"873,S11.82XA ",.03)
 ;;30
 ;;9002226.02101,"873,S11.83XA ",.01)
 ;;S11.83XA
 ;;9002226.02101,"873,S11.83XA ",.02)
 ;;S11.83XA
 ;;9002226.02101,"873,S11.83XA ",.03)
 ;;30
 ;;9002226.02101,"873,S11.84XA ",.01)
 ;;S11.84XA
 ;;9002226.02101,"873,S11.84XA ",.02)
 ;;S11.84XA
 ;;9002226.02101,"873,S11.84XA ",.03)
 ;;30
 ;;9002226.02101,"873,S11.85XA ",.01)
 ;;S11.85XA
 ;;9002226.02101,"873,S11.85XA ",.02)
 ;;S11.85XA
 ;;9002226.02101,"873,S11.85XA ",.03)
 ;;30
 ;;9002226.02101,"873,S11.89XA ",.01)
 ;;S11.89XA
 ;;9002226.02101,"873,S11.89XA ",.02)
 ;;S11.89XA
 ;;9002226.02101,"873,S11.89XA ",.03)
 ;;30
 ;;9002226.02101,"873,S11.90XA ",.01)
 ;;S11.90XA
 ;;9002226.02101,"873,S11.90XA ",.02)
 ;;S11.90XA
 ;;9002226.02101,"873,S11.90XA ",.03)
 ;;30
 ;;9002226.02101,"873,S11.91XA ",.01)
 ;;S11.91XA
 ;;9002226.02101,"873,S11.91XA ",.02)
 ;;S11.91XA
 ;;9002226.02101,"873,S11.91XA ",.03)
 ;;30
 ;;9002226.02101,"873,S11.92XA ",.01)
 ;;S11.92XA
 ;;9002226.02101,"873,S11.92XA ",.02)
 ;;S11.92XA
 ;;9002226.02101,"873,S11.92XA ",.03)
 ;;30
 ;;9002226.02101,"873,S11.93XA ",.01)
 ;;S11.93XA
 ;;9002226.02101,"873,S11.93XA ",.02)
 ;;S11.93XA
 ;;9002226.02101,"873,S11.93XA ",.03)
 ;;30
 ;;9002226.02101,"873,S11.94XA ",.01)
 ;;S11.94XA
 ;;9002226.02101,"873,S11.94XA ",.02)
 ;;S11.94XA
 ;;9002226.02101,"873,S11.94XA ",.03)
 ;;30
 ;;9002226.02101,"873,S11.95XA ",.01)
 ;;S11.95XA
 ;;9002226.02101,"873,S11.95XA ",.02)
 ;;S11.95XA
 ;;9002226.02101,"873,S11.95XA ",.03)
 ;;30
 ;;9002226.02101,"873,S12.000A ",.01)
 ;;S12.000A
 ;;9002226.02101,"873,S12.000A ",.02)
 ;;S12.000A
 ;;9002226.02101,"873,S12.000A ",.03)
 ;;30
 ;;9002226.02101,"873,S12.000B ",.01)
 ;;S12.000B
 ;;9002226.02101,"873,S12.000B ",.02)
 ;;S12.000B
 ;;9002226.02101,"873,S12.000B ",.03)
 ;;30
 ;;9002226.02101,"873,S12.001A ",.01)
 ;;S12.001A
 ;;9002226.02101,"873,S12.001A ",.02)
 ;;S12.001A
 ;;9002226.02101,"873,S12.001A ",.03)
 ;;30
 ;;9002226.02101,"873,S12.001B ",.01)
 ;;S12.001B
 ;;9002226.02101,"873,S12.001B ",.02)
 ;;S12.001B
 ;;9002226.02101,"873,S12.001B ",.03)
 ;;30
 ;;9002226.02101,"873,S12.01XA ",.01)
 ;;S12.01XA
 ;;9002226.02101,"873,S12.01XA ",.02)
 ;;S12.01XA
 ;;9002226.02101,"873,S12.01XA ",.03)
 ;;30
 ;;9002226.02101,"873,S12.01XB ",.01)
 ;;S12.01XB
 ;;9002226.02101,"873,S12.01XB ",.02)
 ;;S12.01XB
 ;;9002226.02101,"873,S12.01XB ",.03)
 ;;30
 ;;9002226.02101,"873,S12.02XA ",.01)
 ;;S12.02XA
 ;;9002226.02101,"873,S12.02XA ",.02)
 ;;S12.02XA
 ;;9002226.02101,"873,S12.02XA ",.03)
 ;;30
 ;;9002226.02101,"873,S12.02XB ",.01)
 ;;S12.02XB
 ;;9002226.02101,"873,S12.02XB ",.02)
 ;;S12.02XB
 ;;9002226.02101,"873,S12.02XB ",.03)
 ;;30
 ;;9002226.02101,"873,S12.030A ",.01)
 ;;S12.030A
 ;;9002226.02101,"873,S12.030A ",.02)
 ;;S12.030A
 ;;9002226.02101,"873,S12.030A ",.03)
 ;;30
 ;;9002226.02101,"873,S12.030B ",.01)
 ;;S12.030B
 ;;9002226.02101,"873,S12.030B ",.02)
 ;;S12.030B
 ;;9002226.02101,"873,S12.030B ",.03)
 ;;30
 ;;9002226.02101,"873,S12.031A ",.01)
 ;;S12.031A
 ;;9002226.02101,"873,S12.031A ",.02)
 ;;S12.031A
 ;;9002226.02101,"873,S12.031A ",.03)
 ;;30
 ;;9002226.02101,"873,S12.031B ",.01)
 ;;S12.031B
 ;;9002226.02101,"873,S12.031B ",.02)
 ;;S12.031B
 ;;9002226.02101,"873,S12.031B ",.03)
 ;;30
 ;;9002226.02101,"873,S12.040A ",.01)
 ;;S12.040A
 ;;9002226.02101,"873,S12.040A ",.02)
 ;;S12.040A
 ;;9002226.02101,"873,S12.040A ",.03)
 ;;30
 ;;9002226.02101,"873,S12.040B ",.01)
 ;;S12.040B
 ;;9002226.02101,"873,S12.040B ",.02)
 ;;S12.040B
 ;;9002226.02101,"873,S12.040B ",.03)
 ;;30
 ;;9002226.02101,"873,S12.041A ",.01)
 ;;S12.041A
 ;;9002226.02101,"873,S12.041A ",.02)
 ;;S12.041A
 ;;9002226.02101,"873,S12.041A ",.03)
 ;;30
 ;;9002226.02101,"873,S12.041B ",.01)
 ;;S12.041B
 ;;9002226.02101,"873,S12.041B ",.02)
 ;;S12.041B
 ;;9002226.02101,"873,S12.041B ",.03)
 ;;30
 ;;9002226.02101,"873,S12.090A ",.01)
 ;;S12.090A
 ;;9002226.02101,"873,S12.090A ",.02)
 ;;S12.090A
 ;;9002226.02101,"873,S12.090A ",.03)
 ;;30
 ;;9002226.02101,"873,S12.090B ",.01)
 ;;S12.090B
 ;;9002226.02101,"873,S12.090B ",.02)
 ;;S12.090B
 ;;9002226.02101,"873,S12.090B ",.03)
 ;;30
 ;;9002226.02101,"873,S12.091A ",.01)
 ;;S12.091A
 ;;9002226.02101,"873,S12.091A ",.02)
 ;;S12.091A
 ;;9002226.02101,"873,S12.091A ",.03)
 ;;30
 ;;9002226.02101,"873,S12.091B ",.01)
 ;;S12.091B
 ;;9002226.02101,"873,S12.091B ",.02)
 ;;S12.091B
 ;;9002226.02101,"873,S12.091B ",.03)
 ;;30
 ;;9002226.02101,"873,S12.100A ",.01)
 ;;S12.100A
 ;;9002226.02101,"873,S12.100A ",.02)
 ;;S12.100A
 ;;9002226.02101,"873,S12.100A ",.03)
 ;;30
 ;;9002226.02101,"873,S12.100B ",.01)
 ;;S12.100B
 ;;9002226.02101,"873,S12.100B ",.02)
 ;;S12.100B
 ;;9002226.02101,"873,S12.100B ",.03)
 ;;30
 ;;9002226.02101,"873,S12.101A ",.01)
 ;;S12.101A
 ;;9002226.02101,"873,S12.101A ",.02)
 ;;S12.101A
 ;;9002226.02101,"873,S12.101A ",.03)
 ;;30
 ;;9002226.02101,"873,S12.101B ",.01)
 ;;S12.101B
 ;;9002226.02101,"873,S12.101B ",.02)
 ;;S12.101B
 ;;9002226.02101,"873,S12.101B ",.03)
 ;;30
 ;;9002226.02101,"873,S12.110A ",.01)
 ;;S12.110A
 ;;9002226.02101,"873,S12.110A ",.02)
 ;;S12.110A
 ;;9002226.02101,"873,S12.110A ",.03)
 ;;30
 ;;9002226.02101,"873,S12.110B ",.01)
 ;;S12.110B
 ;;9002226.02101,"873,S12.110B ",.02)
 ;;S12.110B
 ;;9002226.02101,"873,S12.110B ",.03)
 ;;30
 ;;9002226.02101,"873,S12.111A ",.01)
 ;;S12.111A
 ;;9002226.02101,"873,S12.111A ",.02)
 ;;S12.111A