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

ATXXA161.m

Go to the documentation of this file.
ATXXA161 ;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,T63.711A ",.01)
 ;;T63.711A
 ;;9002226.02101,"873,T63.711A ",.02)
 ;;T63.711A
 ;;9002226.02101,"873,T63.711A ",.03)
 ;;30
 ;;9002226.02101,"873,T63.712A ",.01)
 ;;T63.712A
 ;;9002226.02101,"873,T63.712A ",.02)
 ;;T63.712A
 ;;9002226.02101,"873,T63.712A ",.03)
 ;;30
 ;;9002226.02101,"873,T63.713A ",.01)
 ;;T63.713A
 ;;9002226.02101,"873,T63.713A ",.02)
 ;;T63.713A
 ;;9002226.02101,"873,T63.713A ",.03)
 ;;30
 ;;9002226.02101,"873,T63.714A ",.01)
 ;;T63.714A
 ;;9002226.02101,"873,T63.714A ",.02)
 ;;T63.714A
 ;;9002226.02101,"873,T63.714A ",.03)
 ;;30
 ;;9002226.02101,"873,T63.791A ",.01)
 ;;T63.791A
 ;;9002226.02101,"873,T63.791A ",.02)
 ;;T63.791A
 ;;9002226.02101,"873,T63.791A ",.03)
 ;;30
 ;;9002226.02101,"873,T63.792A ",.01)
 ;;T63.792A
 ;;9002226.02101,"873,T63.792A ",.02)
 ;;T63.792A
 ;;9002226.02101,"873,T63.792A ",.03)
 ;;30
 ;;9002226.02101,"873,T63.793A ",.01)
 ;;T63.793A
 ;;9002226.02101,"873,T63.793A ",.02)
 ;;T63.793A
 ;;9002226.02101,"873,T63.793A ",.03)
 ;;30
 ;;9002226.02101,"873,T63.794A ",.01)
 ;;T63.794A
 ;;9002226.02101,"873,T63.794A ",.02)
 ;;T63.794A
 ;;9002226.02101,"873,T63.794A ",.03)
 ;;30
 ;;9002226.02101,"873,T63.811A ",.01)
 ;;T63.811A
 ;;9002226.02101,"873,T63.811A ",.02)
 ;;T63.811A
 ;;9002226.02101,"873,T63.811A ",.03)
 ;;30
 ;;9002226.02101,"873,T63.812A ",.01)
 ;;T63.812A
 ;;9002226.02101,"873,T63.812A ",.02)
 ;;T63.812A
 ;;9002226.02101,"873,T63.812A ",.03)
 ;;30
 ;;9002226.02101,"873,T63.813A ",.01)
 ;;T63.813A
 ;;9002226.02101,"873,T63.813A ",.02)
 ;;T63.813A
 ;;9002226.02101,"873,T63.813A ",.03)
 ;;30
 ;;9002226.02101,"873,T63.814A ",.01)
 ;;T63.814A
 ;;9002226.02101,"873,T63.814A ",.02)
 ;;T63.814A
 ;;9002226.02101,"873,T63.814A ",.03)
 ;;30
 ;;9002226.02101,"873,T63.821A ",.01)
 ;;T63.821A
 ;;9002226.02101,"873,T63.821A ",.02)
 ;;T63.821A
 ;;9002226.02101,"873,T63.821A ",.03)
 ;;30
 ;;9002226.02101,"873,T63.822A ",.01)
 ;;T63.822A
 ;;9002226.02101,"873,T63.822A ",.02)
 ;;T63.822A
 ;;9002226.02101,"873,T63.822A ",.03)
 ;;30
 ;;9002226.02101,"873,T63.823A ",.01)
 ;;T63.823A
 ;;9002226.02101,"873,T63.823A ",.02)
 ;;T63.823A
 ;;9002226.02101,"873,T63.823A ",.03)
 ;;30
 ;;9002226.02101,"873,T63.824A ",.01)
 ;;T63.824A
 ;;9002226.02101,"873,T63.824A ",.02)
 ;;T63.824A
 ;;9002226.02101,"873,T63.824A ",.03)
 ;;30
 ;;9002226.02101,"873,T63.831A ",.01)
 ;;T63.831A
 ;;9002226.02101,"873,T63.831A ",.02)
 ;;T63.831A
 ;;9002226.02101,"873,T63.831A ",.03)
 ;;30
 ;;9002226.02101,"873,T63.832A ",.01)
 ;;T63.832A
 ;;9002226.02101,"873,T63.832A ",.02)
 ;;T63.832A
 ;;9002226.02101,"873,T63.832A ",.03)
 ;;30
 ;;9002226.02101,"873,T63.833A ",.01)
 ;;T63.833A
 ;;9002226.02101,"873,T63.833A ",.02)
 ;;T63.833A
 ;;9002226.02101,"873,T63.833A ",.03)
 ;;30
 ;;9002226.02101,"873,T63.834A ",.01)
 ;;T63.834A
 ;;9002226.02101,"873,T63.834A ",.02)
 ;;T63.834A
 ;;9002226.02101,"873,T63.834A ",.03)
 ;;30
 ;;9002226.02101,"873,T63.891A ",.01)
 ;;T63.891A
 ;;9002226.02101,"873,T63.891A ",.02)
 ;;T63.891A
 ;;9002226.02101,"873,T63.891A ",.03)
 ;;30
 ;;9002226.02101,"873,T63.892A ",.01)
 ;;T63.892A
 ;;9002226.02101,"873,T63.892A ",.02)
 ;;T63.892A
 ;;9002226.02101,"873,T63.892A ",.03)
 ;;30
 ;;9002226.02101,"873,T63.893A ",.01)
 ;;T63.893A
 ;;9002226.02101,"873,T63.893A ",.02)
 ;;T63.893A
 ;;9002226.02101,"873,T63.893A ",.03)
 ;;30
 ;;9002226.02101,"873,T63.894A ",.01)
 ;;T63.894A
 ;;9002226.02101,"873,T63.894A ",.02)
 ;;T63.894A
 ;;9002226.02101,"873,T63.894A ",.03)
 ;;30
 ;;9002226.02101,"873,T63.91XA ",.01)
 ;;T63.91XA
 ;;9002226.02101,"873,T63.91XA ",.02)
 ;;T63.91XA
 ;;9002226.02101,"873,T63.91XA ",.03)
 ;;30
 ;;9002226.02101,"873,T63.92XA ",.01)
 ;;T63.92XA
 ;;9002226.02101,"873,T63.92XA ",.02)
 ;;T63.92XA
 ;;9002226.02101,"873,T63.92XA ",.03)
 ;;30
 ;;9002226.02101,"873,T63.93XA ",.01)
 ;;T63.93XA
 ;;9002226.02101,"873,T63.93XA ",.02)
 ;;T63.93XA
 ;;9002226.02101,"873,T63.93XA ",.03)
 ;;30
 ;;9002226.02101,"873,T63.94XA ",.01)
 ;;T63.94XA
 ;;9002226.02101,"873,T63.94XA ",.02)
 ;;T63.94XA
 ;;9002226.02101,"873,T63.94XA ",.03)
 ;;30
 ;;9002226.02101,"873,T64.01XA ",.01)
 ;;T64.01XA
 ;;9002226.02101,"873,T64.01XA ",.02)
 ;;T64.01XA
 ;;9002226.02101,"873,T64.01XA ",.03)
 ;;30
 ;;9002226.02101,"873,T64.02XA ",.01)
 ;;T64.02XA
 ;;9002226.02101,"873,T64.02XA ",.02)
 ;;T64.02XA
 ;;9002226.02101,"873,T64.02XA ",.03)
 ;;30
 ;;9002226.02101,"873,T64.03XA ",.01)
 ;;T64.03XA
 ;;9002226.02101,"873,T64.03XA ",.02)
 ;;T64.03XA
 ;;9002226.02101,"873,T64.03XA ",.03)
 ;;30
 ;;9002226.02101,"873,T64.04XA ",.01)
 ;;T64.04XA
 ;;9002226.02101,"873,T64.04XA ",.02)
 ;;T64.04XA
 ;;9002226.02101,"873,T64.04XA ",.03)
 ;;30
 ;;9002226.02101,"873,T64.81XA ",.01)
 ;;T64.81XA
 ;;9002226.02101,"873,T64.81XA ",.02)
 ;;T64.81XA
 ;;9002226.02101,"873,T64.81XA ",.03)
 ;;30
 ;;9002226.02101,"873,T64.82XA ",.01)
 ;;T64.82XA
 ;;9002226.02101,"873,T64.82XA ",.02)
 ;;T64.82XA
 ;;9002226.02101,"873,T64.82XA ",.03)
 ;;30
 ;;9002226.02101,"873,T64.83XA ",.01)
 ;;T64.83XA
 ;;9002226.02101,"873,T64.83XA ",.02)
 ;;T64.83XA
 ;;9002226.02101,"873,T64.83XA ",.03)
 ;;30
 ;;9002226.02101,"873,T64.84XA ",.01)
 ;;T64.84XA
 ;;9002226.02101,"873,T64.84XA ",.02)
 ;;T64.84XA
 ;;9002226.02101,"873,T64.84XA ",.03)
 ;;30
 ;;9002226.02101,"873,T65.0X1A ",.01)
 ;;T65.0X1A
 ;;9002226.02101,"873,T65.0X1A ",.02)
 ;;T65.0X1A
 ;;9002226.02101,"873,T65.0X1A ",.03)
 ;;30
 ;;9002226.02101,"873,T65.0X2A ",.01)
 ;;T65.0X2A
 ;;9002226.02101,"873,T65.0X2A ",.02)
 ;;T65.0X2A
 ;;9002226.02101,"873,T65.0X2A ",.03)
 ;;30
 ;;9002226.02101,"873,T65.0X3A ",.01)
 ;;T65.0X3A
 ;;9002226.02101,"873,T65.0X3A ",.02)
 ;;T65.0X3A
 ;;9002226.02101,"873,T65.0X3A ",.03)
 ;;30
 ;;9002226.02101,"873,T65.0X4A ",.01)
 ;;T65.0X4A
 ;;9002226.02101,"873,T65.0X4A ",.02)
 ;;T65.0X4A
 ;;9002226.02101,"873,T65.0X4A ",.03)
 ;;30
 ;;9002226.02101,"873,T65.1X1A ",.01)
 ;;T65.1X1A
 ;;9002226.02101,"873,T65.1X1A ",.02)
 ;;T65.1X1A
 ;;9002226.02101,"873,T65.1X1A ",.03)
 ;;30
 ;;9002226.02101,"873,T65.1X2A ",.01)
 ;;T65.1X2A
 ;;9002226.02101,"873,T65.1X2A ",.02)
 ;;T65.1X2A
 ;;9002226.02101,"873,T65.1X2A ",.03)
 ;;30
 ;;9002226.02101,"873,T65.1X3A ",.01)
 ;;T65.1X3A
 ;;9002226.02101,"873,T65.1X3A ",.02)
 ;;T65.1X3A
 ;;9002226.02101,"873,T65.1X3A ",.03)
 ;;30
 ;;9002226.02101,"873,T65.1X4A ",.01)
 ;;T65.1X4A
 ;;9002226.02101,"873,T65.1X4A ",.02)
 ;;T65.1X4A
 ;;9002226.02101,"873,T65.1X4A ",.03)
 ;;30
 ;;9002226.02101,"873,T65.211A ",.01)
 ;;T65.211A
 ;;9002226.02101,"873,T65.211A ",.02)
 ;;T65.211A
 ;;9002226.02101,"873,T65.211A ",.03)
 ;;30
 ;;9002226.02101,"873,T65.212A ",.01)
 ;;T65.212A
 ;;9002226.02101,"873,T65.212A ",.02)
 ;;T65.212A
 ;;9002226.02101,"873,T65.212A ",.03)
 ;;30
 ;;9002226.02101,"873,T65.213A ",.01)
 ;;T65.213A
 ;;9002226.02101,"873,T65.213A ",.02)
 ;;T65.213A
 ;;9002226.02101,"873,T65.213A ",.03)
 ;;30
 ;;9002226.02101,"873,T65.214A ",.01)
 ;;T65.214A
 ;;9002226.02101,"873,T65.214A ",.02)
 ;;T65.214A
 ;;9002226.02101,"873,T65.214A ",.03)
 ;;30
 ;;9002226.02101,"873,T65.221A ",.01)
 ;;T65.221A
 ;;9002226.02101,"873,T65.221A ",.02)
 ;;T65.221A
 ;;9002226.02101,"873,T65.221A ",.03)
 ;;30
 ;;9002226.02101,"873,T65.222A ",.01)
 ;;T65.222A
 ;;9002226.02101,"873,T65.222A ",.02)
 ;;T65.222A
 ;;9002226.02101,"873,T65.222A ",.03)
 ;;30
 ;;9002226.02101,"873,T65.223A ",.01)
 ;;T65.223A
 ;;9002226.02101,"873,T65.223A ",.02)
 ;;T65.223A
 ;;9002226.02101,"873,T65.223A ",.03)
 ;;30
 ;;9002226.02101,"873,T65.224A ",.01)
 ;;T65.224A
 ;;9002226.02101,"873,T65.224A ",.02)
 ;;T65.224A
 ;;9002226.02101,"873,T65.224A ",.03)
 ;;30
 ;;9002226.02101,"873,T65.291A ",.01)
 ;;T65.291A
 ;;9002226.02101,"873,T65.291A ",.02)
 ;;T65.291A
 ;;9002226.02101,"873,T65.291A ",.03)
 ;;30
 ;;9002226.02101,"873,T65.292A ",.01)
 ;;T65.292A
 ;;9002226.02101,"873,T65.292A ",.02)
 ;;T65.292A
 ;;9002226.02101,"873,T65.292A ",.03)
 ;;30
 ;;9002226.02101,"873,T65.293A ",.01)
 ;;T65.293A
 ;;9002226.02101,"873,T65.293A ",.02)
 ;;T65.293A
 ;;9002226.02101,"873,T65.293A ",.03)
 ;;30
 ;;9002226.02101,"873,T65.294A ",.01)
 ;;T65.294A
 ;;9002226.02101,"873,T65.294A ",.02)
 ;;T65.294A
 ;;9002226.02101,"873,T65.294A ",.03)
 ;;30
 ;;9002226.02101,"873,T65.3X1A ",.01)
 ;;T65.3X1A
 ;;9002226.02101,"873,T65.3X1A ",.02)
 ;;T65.3X1A
 ;;9002226.02101,"873,T65.3X1A ",.03)
 ;;30
 ;;9002226.02101,"873,T65.3X2A ",.01)
 ;;T65.3X2A
 ;;9002226.02101,"873,T65.3X2A ",.02)
 ;;T65.3X2A
 ;;9002226.02101,"873,T65.3X2A ",.03)
 ;;30
 ;;9002226.02101,"873,T65.3X3A ",.01)
 ;;T65.3X3A
 ;;9002226.02101,"873,T65.3X3A ",.02)
 ;;T65.3X3A
 ;;9002226.02101,"873,T65.3X3A ",.03)
 ;;30
 ;;9002226.02101,"873,T65.3X4A ",.01)
 ;;T65.3X4A
 ;;9002226.02101,"873,T65.3X4A ",.02)
 ;;T65.3X4A
 ;;9002226.02101,"873,T65.3X4A ",.03)
 ;;30
 ;;9002226.02101,"873,T65.4X1A ",.01)
 ;;T65.4X1A
 ;;9002226.02101,"873,T65.4X1A ",.02)
 ;;T65.4X1A
 ;;9002226.02101,"873,T65.4X1A ",.03)
 ;;30
 ;;9002226.02101,"873,T65.4X2A ",.01)
 ;;T65.4X2A
 ;;9002226.02101,"873,T65.4X2A ",.02)
 ;;T65.4X2A
 ;;9002226.02101,"873,T65.4X2A ",.03)
 ;;30
 ;;9002226.02101,"873,T65.4X3A ",.01)
 ;;T65.4X3A
 ;;9002226.02101,"873,T65.4X3A ",.02)
 ;;T65.4X3A
 ;;9002226.02101,"873,T65.4X3A ",.03)
 ;;30
 ;;9002226.02101,"873,T65.4X4A ",.01)
 ;;T65.4X4A
 ;;9002226.02101,"873,T65.4X4A ",.02)
 ;;T65.4X4A
 ;;9002226.02101,"873,T65.4X4A ",.03)
 ;;30
 ;;9002226.02101,"873,T65.5X1A ",.01)
 ;;T65.5X1A
 ;;9002226.02101,"873,T65.5X1A ",.02)
 ;;T65.5X1A
 ;;9002226.02101,"873,T65.5X1A ",.03)
 ;;30
 ;;9002226.02101,"873,T65.5X2A ",.01)
 ;;T65.5X2A
 ;;9002226.02101,"873,T65.5X2A ",.02)
 ;;T65.5X2A
 ;;9002226.02101,"873,T65.5X2A ",.03)
 ;;30
 ;;9002226.02101,"873,T65.5X3A ",.01)
 ;;T65.5X3A
 ;;9002226.02101,"873,T65.5X3A ",.02)
 ;;T65.5X3A
 ;;9002226.02101,"873,T65.5X3A ",.03)
 ;;30
 ;;9002226.02101,"873,T65.5X4A ",.01)
 ;;T65.5X4A
 ;;9002226.02101,"873,T65.5X4A ",.02)
 ;;T65.5X4A
 ;;9002226.02101,"873,T65.5X4A ",.03)
 ;;30
 ;;9002226.02101,"873,T65.6X1A ",.01)
 ;;T65.6X1A
 ;;9002226.02101,"873,T65.6X1A ",.02)
 ;;T65.6X1A
 ;;9002226.02101,"873,T65.6X1A ",.03)
 ;;30
 ;;9002226.02101,"873,T65.6X2A ",.01)
 ;;T65.6X2A
 ;;9002226.02101,"873,T65.6X2A ",.02)
 ;;T65.6X2A
 ;;9002226.02101,"873,T65.6X2A ",.03)
 ;;30
 ;;9002226.02101,"873,T65.6X3A ",.01)
 ;;T65.6X3A
 ;;9002226.02101,"873,T65.6X3A ",.02)
 ;;T65.6X3A
 ;;9002226.02101,"873,T65.6X3A ",.03)
 ;;30
 ;;9002226.02101,"873,T65.6X4A ",.01)
 ;;T65.6X4A
 ;;9002226.02101,"873,T65.6X4A ",.02)
 ;;T65.6X4A
 ;;9002226.02101,"873,T65.6X4A ",.03)
 ;;30
 ;;9002226.02101,"873,T65.811A ",.01)
 ;;T65.811A
 ;;9002226.02101,"873,T65.811A ",.02)
 ;;T65.811A
 ;;9002226.02101,"873,T65.811A ",.03)
 ;;30
 ;;9002226.02101,"873,T65.812A ",.01)
 ;;T65.812A
 ;;9002226.02101,"873,T65.812A ",.02)
 ;;T65.812A
 ;;9002226.02101,"873,T65.812A ",.03)
 ;;30
 ;;9002226.02101,"873,T65.813A ",.01)
 ;;T65.813A
 ;;9002226.02101,"873,T65.813A ",.02)
 ;;T65.813A
 ;;9002226.02101,"873,T65.813A ",.03)
 ;;30
 ;;9002226.02101,"873,T65.814A ",.01)
 ;;T65.814A
 ;;9002226.02101,"873,T65.814A ",.02)
 ;;T65.814A
 ;;9002226.02101,"873,T65.814A ",.03)
 ;;30
 ;;9002226.02101,"873,T65.821A ",.01)
 ;;T65.821A
 ;;9002226.02101,"873,T65.821A ",.02)
 ;;T65.821A
 ;;9002226.02101,"873,T65.821A ",.03)
 ;;30
 ;;9002226.02101,"873,T65.822A ",.01)
 ;;T65.822A
 ;;9002226.02101,"873,T65.822A ",.02)
 ;;T65.822A
 ;;9002226.02101,"873,T65.822A ",.03)
 ;;30
 ;;9002226.02101,"873,T65.823A ",.01)
 ;;T65.823A