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

ATXXA158.m

Go to the documentation of this file.
ATXXA158 ;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,T59.1X2A ",.01)
 ;;T59.1X2A
 ;;9002226.02101,"873,T59.1X2A ",.02)
 ;;T59.1X2A
 ;;9002226.02101,"873,T59.1X2A ",.03)
 ;;30
 ;;9002226.02101,"873,T59.1X3A ",.01)
 ;;T59.1X3A
 ;;9002226.02101,"873,T59.1X3A ",.02)
 ;;T59.1X3A
 ;;9002226.02101,"873,T59.1X3A ",.03)
 ;;30
 ;;9002226.02101,"873,T59.1X4A ",.01)
 ;;T59.1X4A
 ;;9002226.02101,"873,T59.1X4A ",.02)
 ;;T59.1X4A
 ;;9002226.02101,"873,T59.1X4A ",.03)
 ;;30
 ;;9002226.02101,"873,T59.2X1A ",.01)
 ;;T59.2X1A
 ;;9002226.02101,"873,T59.2X1A ",.02)
 ;;T59.2X1A
 ;;9002226.02101,"873,T59.2X1A ",.03)
 ;;30
 ;;9002226.02101,"873,T59.2X2A ",.01)
 ;;T59.2X2A
 ;;9002226.02101,"873,T59.2X2A ",.02)
 ;;T59.2X2A
 ;;9002226.02101,"873,T59.2X2A ",.03)
 ;;30
 ;;9002226.02101,"873,T59.2X3A ",.01)
 ;;T59.2X3A
 ;;9002226.02101,"873,T59.2X3A ",.02)
 ;;T59.2X3A
 ;;9002226.02101,"873,T59.2X3A ",.03)
 ;;30
 ;;9002226.02101,"873,T59.2X4A ",.01)
 ;;T59.2X4A
 ;;9002226.02101,"873,T59.2X4A ",.02)
 ;;T59.2X4A
 ;;9002226.02101,"873,T59.2X4A ",.03)
 ;;30
 ;;9002226.02101,"873,T59.3X1A ",.01)
 ;;T59.3X1A
 ;;9002226.02101,"873,T59.3X1A ",.02)
 ;;T59.3X1A
 ;;9002226.02101,"873,T59.3X1A ",.03)
 ;;30
 ;;9002226.02101,"873,T59.3X2A ",.01)
 ;;T59.3X2A
 ;;9002226.02101,"873,T59.3X2A ",.02)
 ;;T59.3X2A
 ;;9002226.02101,"873,T59.3X2A ",.03)
 ;;30
 ;;9002226.02101,"873,T59.3X3A ",.01)
 ;;T59.3X3A
 ;;9002226.02101,"873,T59.3X3A ",.02)
 ;;T59.3X3A
 ;;9002226.02101,"873,T59.3X3A ",.03)
 ;;30
 ;;9002226.02101,"873,T59.3X4A ",.01)
 ;;T59.3X4A
 ;;9002226.02101,"873,T59.3X4A ",.02)
 ;;T59.3X4A
 ;;9002226.02101,"873,T59.3X4A ",.03)
 ;;30
 ;;9002226.02101,"873,T59.4X1A ",.01)
 ;;T59.4X1A
 ;;9002226.02101,"873,T59.4X1A ",.02)
 ;;T59.4X1A
 ;;9002226.02101,"873,T59.4X1A ",.03)
 ;;30
 ;;9002226.02101,"873,T59.4X2A ",.01)
 ;;T59.4X2A
 ;;9002226.02101,"873,T59.4X2A ",.02)
 ;;T59.4X2A
 ;;9002226.02101,"873,T59.4X2A ",.03)
 ;;30
 ;;9002226.02101,"873,T59.4X3A ",.01)
 ;;T59.4X3A
 ;;9002226.02101,"873,T59.4X3A ",.02)
 ;;T59.4X3A
 ;;9002226.02101,"873,T59.4X3A ",.03)
 ;;30
 ;;9002226.02101,"873,T59.4X4A ",.01)
 ;;T59.4X4A
 ;;9002226.02101,"873,T59.4X4A ",.02)
 ;;T59.4X4A
 ;;9002226.02101,"873,T59.4X4A ",.03)
 ;;30
 ;;9002226.02101,"873,T59.5X1A ",.01)
 ;;T59.5X1A
 ;;9002226.02101,"873,T59.5X1A ",.02)
 ;;T59.5X1A
 ;;9002226.02101,"873,T59.5X1A ",.03)
 ;;30
 ;;9002226.02101,"873,T59.5X2A ",.01)
 ;;T59.5X2A
 ;;9002226.02101,"873,T59.5X2A ",.02)
 ;;T59.5X2A
 ;;9002226.02101,"873,T59.5X2A ",.03)
 ;;30
 ;;9002226.02101,"873,T59.5X3A ",.01)
 ;;T59.5X3A
 ;;9002226.02101,"873,T59.5X3A ",.02)
 ;;T59.5X3A
 ;;9002226.02101,"873,T59.5X3A ",.03)
 ;;30
 ;;9002226.02101,"873,T59.5X4A ",.01)
 ;;T59.5X4A
 ;;9002226.02101,"873,T59.5X4A ",.02)
 ;;T59.5X4A
 ;;9002226.02101,"873,T59.5X4A ",.03)
 ;;30
 ;;9002226.02101,"873,T59.6X1A ",.01)
 ;;T59.6X1A
 ;;9002226.02101,"873,T59.6X1A ",.02)
 ;;T59.6X1A
 ;;9002226.02101,"873,T59.6X1A ",.03)
 ;;30
 ;;9002226.02101,"873,T59.6X2A ",.01)
 ;;T59.6X2A
 ;;9002226.02101,"873,T59.6X2A ",.02)
 ;;T59.6X2A
 ;;9002226.02101,"873,T59.6X2A ",.03)
 ;;30
 ;;9002226.02101,"873,T59.6X3A ",.01)
 ;;T59.6X3A
 ;;9002226.02101,"873,T59.6X3A ",.02)
 ;;T59.6X3A
 ;;9002226.02101,"873,T59.6X3A ",.03)
 ;;30
 ;;9002226.02101,"873,T59.6X4A ",.01)
 ;;T59.6X4A
 ;;9002226.02101,"873,T59.6X4A ",.02)
 ;;T59.6X4A
 ;;9002226.02101,"873,T59.6X4A ",.03)
 ;;30
 ;;9002226.02101,"873,T59.7X1A ",.01)
 ;;T59.7X1A
 ;;9002226.02101,"873,T59.7X1A ",.02)
 ;;T59.7X1A
 ;;9002226.02101,"873,T59.7X1A ",.03)
 ;;30
 ;;9002226.02101,"873,T59.7X2A ",.01)
 ;;T59.7X2A
 ;;9002226.02101,"873,T59.7X2A ",.02)
 ;;T59.7X2A
 ;;9002226.02101,"873,T59.7X2A ",.03)
 ;;30
 ;;9002226.02101,"873,T59.7X3A ",.01)
 ;;T59.7X3A
 ;;9002226.02101,"873,T59.7X3A ",.02)
 ;;T59.7X3A
 ;;9002226.02101,"873,T59.7X3A ",.03)
 ;;30
 ;;9002226.02101,"873,T59.7X4A ",.01)
 ;;T59.7X4A
 ;;9002226.02101,"873,T59.7X4A ",.02)
 ;;T59.7X4A
 ;;9002226.02101,"873,T59.7X4A ",.03)
 ;;30
 ;;9002226.02101,"873,T59.811A ",.01)
 ;;T59.811A
 ;;9002226.02101,"873,T59.811A ",.02)
 ;;T59.811A
 ;;9002226.02101,"873,T59.811A ",.03)
 ;;30
 ;;9002226.02101,"873,T59.812A ",.01)
 ;;T59.812A
 ;;9002226.02101,"873,T59.812A ",.02)
 ;;T59.812A
 ;;9002226.02101,"873,T59.812A ",.03)
 ;;30
 ;;9002226.02101,"873,T59.813A ",.01)
 ;;T59.813A
 ;;9002226.02101,"873,T59.813A ",.02)
 ;;T59.813A
 ;;9002226.02101,"873,T59.813A ",.03)
 ;;30
 ;;9002226.02101,"873,T59.814A ",.01)
 ;;T59.814A
 ;;9002226.02101,"873,T59.814A ",.02)
 ;;T59.814A
 ;;9002226.02101,"873,T59.814A ",.03)
 ;;30
 ;;9002226.02101,"873,T59.891A ",.01)
 ;;T59.891A
 ;;9002226.02101,"873,T59.891A ",.02)
 ;;T59.891A
 ;;9002226.02101,"873,T59.891A ",.03)
 ;;30
 ;;9002226.02101,"873,T59.892A ",.01)
 ;;T59.892A
 ;;9002226.02101,"873,T59.892A ",.02)
 ;;T59.892A
 ;;9002226.02101,"873,T59.892A ",.03)
 ;;30
 ;;9002226.02101,"873,T59.893A ",.01)
 ;;T59.893A
 ;;9002226.02101,"873,T59.893A ",.02)
 ;;T59.893A
 ;;9002226.02101,"873,T59.893A ",.03)
 ;;30
 ;;9002226.02101,"873,T59.894A ",.01)
 ;;T59.894A
 ;;9002226.02101,"873,T59.894A ",.02)
 ;;T59.894A
 ;;9002226.02101,"873,T59.894A ",.03)
 ;;30
 ;;9002226.02101,"873,T59.91XA ",.01)
 ;;T59.91XA
 ;;9002226.02101,"873,T59.91XA ",.02)
 ;;T59.91XA
 ;;9002226.02101,"873,T59.91XA ",.03)
 ;;30
 ;;9002226.02101,"873,T59.92XA ",.01)
 ;;T59.92XA
 ;;9002226.02101,"873,T59.92XA ",.02)
 ;;T59.92XA
 ;;9002226.02101,"873,T59.92XA ",.03)
 ;;30
 ;;9002226.02101,"873,T59.93XA ",.01)
 ;;T59.93XA
 ;;9002226.02101,"873,T59.93XA ",.02)
 ;;T59.93XA
 ;;9002226.02101,"873,T59.93XA ",.03)
 ;;30
 ;;9002226.02101,"873,T59.94XA ",.01)
 ;;T59.94XA
 ;;9002226.02101,"873,T59.94XA ",.02)
 ;;T59.94XA
 ;;9002226.02101,"873,T59.94XA ",.03)
 ;;30
 ;;9002226.02101,"873,T60.0X1A ",.01)
 ;;T60.0X1A
 ;;9002226.02101,"873,T60.0X1A ",.02)
 ;;T60.0X1A
 ;;9002226.02101,"873,T60.0X1A ",.03)
 ;;30
 ;;9002226.02101,"873,T60.0X2A ",.01)
 ;;T60.0X2A
 ;;9002226.02101,"873,T60.0X2A ",.02)
 ;;T60.0X2A
 ;;9002226.02101,"873,T60.0X2A ",.03)
 ;;30
 ;;9002226.02101,"873,T60.0X3A ",.01)
 ;;T60.0X3A
 ;;9002226.02101,"873,T60.0X3A ",.02)
 ;;T60.0X3A
 ;;9002226.02101,"873,T60.0X3A ",.03)
 ;;30
 ;;9002226.02101,"873,T60.0X4A ",.01)
 ;;T60.0X4A
 ;;9002226.02101,"873,T60.0X4A ",.02)
 ;;T60.0X4A
 ;;9002226.02101,"873,T60.0X4A ",.03)
 ;;30
 ;;9002226.02101,"873,T60.1X1A ",.01)
 ;;T60.1X1A
 ;;9002226.02101,"873,T60.1X1A ",.02)
 ;;T60.1X1A
 ;;9002226.02101,"873,T60.1X1A ",.03)
 ;;30
 ;;9002226.02101,"873,T60.1X2A ",.01)
 ;;T60.1X2A
 ;;9002226.02101,"873,T60.1X2A ",.02)
 ;;T60.1X2A
 ;;9002226.02101,"873,T60.1X2A ",.03)
 ;;30
 ;;9002226.02101,"873,T60.1X3A ",.01)
 ;;T60.1X3A
 ;;9002226.02101,"873,T60.1X3A ",.02)
 ;;T60.1X3A
 ;;9002226.02101,"873,T60.1X3A ",.03)
 ;;30
 ;;9002226.02101,"873,T60.1X4A ",.01)
 ;;T60.1X4A
 ;;9002226.02101,"873,T60.1X4A ",.02)
 ;;T60.1X4A
 ;;9002226.02101,"873,T60.1X4A ",.03)
 ;;30
 ;;9002226.02101,"873,T60.2X1A ",.01)
 ;;T60.2X1A
 ;;9002226.02101,"873,T60.2X1A ",.02)
 ;;T60.2X1A
 ;;9002226.02101,"873,T60.2X1A ",.03)
 ;;30
 ;;9002226.02101,"873,T60.2X2A ",.01)
 ;;T60.2X2A
 ;;9002226.02101,"873,T60.2X2A ",.02)
 ;;T60.2X2A
 ;;9002226.02101,"873,T60.2X2A ",.03)
 ;;30
 ;;9002226.02101,"873,T60.2X3A ",.01)
 ;;T60.2X3A
 ;;9002226.02101,"873,T60.2X3A ",.02)
 ;;T60.2X3A
 ;;9002226.02101,"873,T60.2X3A ",.03)
 ;;30
 ;;9002226.02101,"873,T60.2X4A ",.01)
 ;;T60.2X4A
 ;;9002226.02101,"873,T60.2X4A ",.02)
 ;;T60.2X4A
 ;;9002226.02101,"873,T60.2X4A ",.03)
 ;;30
 ;;9002226.02101,"873,T60.3X1A ",.01)
 ;;T60.3X1A
 ;;9002226.02101,"873,T60.3X1A ",.02)
 ;;T60.3X1A
 ;;9002226.02101,"873,T60.3X1A ",.03)
 ;;30
 ;;9002226.02101,"873,T60.3X2A ",.01)
 ;;T60.3X2A
 ;;9002226.02101,"873,T60.3X2A ",.02)
 ;;T60.3X2A
 ;;9002226.02101,"873,T60.3X2A ",.03)
 ;;30
 ;;9002226.02101,"873,T60.3X3A ",.01)
 ;;T60.3X3A
 ;;9002226.02101,"873,T60.3X3A ",.02)
 ;;T60.3X3A
 ;;9002226.02101,"873,T60.3X3A ",.03)
 ;;30
 ;;9002226.02101,"873,T60.3X4A ",.01)
 ;;T60.3X4A
 ;;9002226.02101,"873,T60.3X4A ",.02)
 ;;T60.3X4A
 ;;9002226.02101,"873,T60.3X4A ",.03)
 ;;30
 ;;9002226.02101,"873,T60.4X1A ",.01)
 ;;T60.4X1A
 ;;9002226.02101,"873,T60.4X1A ",.02)
 ;;T60.4X1A
 ;;9002226.02101,"873,T60.4X1A ",.03)
 ;;30
 ;;9002226.02101,"873,T60.4X2A ",.01)
 ;;T60.4X2A
 ;;9002226.02101,"873,T60.4X2A ",.02)
 ;;T60.4X2A
 ;;9002226.02101,"873,T60.4X2A ",.03)
 ;;30
 ;;9002226.02101,"873,T60.4X3A ",.01)
 ;;T60.4X3A
 ;;9002226.02101,"873,T60.4X3A ",.02)
 ;;T60.4X3A
 ;;9002226.02101,"873,T60.4X3A ",.03)
 ;;30
 ;;9002226.02101,"873,T60.4X4A ",.01)
 ;;T60.4X4A
 ;;9002226.02101,"873,T60.4X4A ",.02)
 ;;T60.4X4A
 ;;9002226.02101,"873,T60.4X4A ",.03)
 ;;30
 ;;9002226.02101,"873,T60.8X1A ",.01)
 ;;T60.8X1A
 ;;9002226.02101,"873,T60.8X1A ",.02)
 ;;T60.8X1A
 ;;9002226.02101,"873,T60.8X1A ",.03)
 ;;30
 ;;9002226.02101,"873,T60.8X2A ",.01)
 ;;T60.8X2A
 ;;9002226.02101,"873,T60.8X2A ",.02)
 ;;T60.8X2A
 ;;9002226.02101,"873,T60.8X2A ",.03)
 ;;30
 ;;9002226.02101,"873,T60.8X3A ",.01)
 ;;T60.8X3A
 ;;9002226.02101,"873,T60.8X3A ",.02)
 ;;T60.8X3A
 ;;9002226.02101,"873,T60.8X3A ",.03)
 ;;30
 ;;9002226.02101,"873,T60.8X4A ",.01)
 ;;T60.8X4A
 ;;9002226.02101,"873,T60.8X4A ",.02)
 ;;T60.8X4A
 ;;9002226.02101,"873,T60.8X4A ",.03)
 ;;30
 ;;9002226.02101,"873,T60.91XA ",.01)
 ;;T60.91XA
 ;;9002226.02101,"873,T60.91XA ",.02)
 ;;T60.91XA
 ;;9002226.02101,"873,T60.91XA ",.03)
 ;;30
 ;;9002226.02101,"873,T60.92XA ",.01)
 ;;T60.92XA
 ;;9002226.02101,"873,T60.92XA ",.02)
 ;;T60.92XA
 ;;9002226.02101,"873,T60.92XA ",.03)
 ;;30
 ;;9002226.02101,"873,T60.93XA ",.01)
 ;;T60.93XA
 ;;9002226.02101,"873,T60.93XA ",.02)
 ;;T60.93XA
 ;;9002226.02101,"873,T60.93XA ",.03)
 ;;30
 ;;9002226.02101,"873,T60.94XA ",.01)
 ;;T60.94XA
 ;;9002226.02101,"873,T60.94XA ",.02)
 ;;T60.94XA
 ;;9002226.02101,"873,T60.94XA ",.03)
 ;;30
 ;;9002226.02101,"873,T61.01XA ",.01)
 ;;T61.01XA
 ;;9002226.02101,"873,T61.01XA ",.02)
 ;;T61.01XA
 ;;9002226.02101,"873,T61.01XA ",.03)
 ;;30
 ;;9002226.02101,"873,T61.02XA ",.01)
 ;;T61.02XA
 ;;9002226.02101,"873,T61.02XA ",.02)
 ;;T61.02XA
 ;;9002226.02101,"873,T61.02XA ",.03)
 ;;30
 ;;9002226.02101,"873,T61.03XA ",.01)
 ;;T61.03XA
 ;;9002226.02101,"873,T61.03XA ",.02)
 ;;T61.03XA
 ;;9002226.02101,"873,T61.03XA ",.03)
 ;;30
 ;;9002226.02101,"873,T61.04XA ",.01)
 ;;T61.04XA
 ;;9002226.02101,"873,T61.04XA ",.02)
 ;;T61.04XA
 ;;9002226.02101,"873,T61.04XA ",.03)
 ;;30
 ;;9002226.02101,"873,T61.11XA ",.01)
 ;;T61.11XA
 ;;9002226.02101,"873,T61.11XA ",.02)
 ;;T61.11XA
 ;;9002226.02101,"873,T61.11XA ",.03)
 ;;30
 ;;9002226.02101,"873,T61.12XA ",.01)
 ;;T61.12XA
 ;;9002226.02101,"873,T61.12XA ",.02)
 ;;T61.12XA
 ;;9002226.02101,"873,T61.12XA ",.03)
 ;;30
 ;;9002226.02101,"873,T61.13XA ",.01)
 ;;T61.13XA
 ;;9002226.02101,"873,T61.13XA ",.02)
 ;;T61.13XA
 ;;9002226.02101,"873,T61.13XA ",.03)
 ;;30
 ;;9002226.02101,"873,T61.14XA ",.01)
 ;;T61.14XA
 ;;9002226.02101,"873,T61.14XA ",.02)
 ;;T61.14XA
 ;;9002226.02101,"873,T61.14XA ",.03)
 ;;30
 ;;9002226.02101,"873,T61.771A ",.01)
 ;;T61.771A
 ;;9002226.02101,"873,T61.771A ",.02)
 ;;T61.771A
 ;;9002226.02101,"873,T61.771A ",.03)
 ;;30
 ;;9002226.02101,"873,T61.772A ",.01)
 ;;T61.772A
 ;;9002226.02101,"873,T61.772A ",.02)
 ;;T61.772A
 ;;9002226.02101,"873,T61.772A ",.03)
 ;;30
 ;;9002226.02101,"873,T61.773A ",.01)
 ;;T61.773A
 ;;9002226.02101,"873,T61.773A ",.02)
 ;;T61.773A
 ;;9002226.02101,"873,T61.773A ",.03)
 ;;30
 ;;9002226.02101,"873,T61.774A ",.01)
 ;;T61.774A