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

ATXD5P14.m

Go to the documentation of this file.
ATXD5P14 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON NOV 12, 2013;
 ;;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,"169,W30.0XXD ",.01)
 ;;W30.0XXD 
 ;;9002226.02101,"169,W30.0XXD ",.02)
 ;;W30.0XXD 
 ;;9002226.02101,"169,W30.0XXD ",.03)
 ;;30
 ;;9002226.02101,"169,W30.0XXS ",.01)
 ;;W30.0XXS 
 ;;9002226.02101,"169,W30.0XXS ",.02)
 ;;W30.0XXS 
 ;;9002226.02101,"169,W30.0XXS ",.03)
 ;;30
 ;;9002226.02101,"169,W30.1XXA ",.01)
 ;;W30.1XXA 
 ;;9002226.02101,"169,W30.1XXA ",.02)
 ;;W30.1XXA 
 ;;9002226.02101,"169,W30.1XXA ",.03)
 ;;30
 ;;9002226.02101,"169,W30.1XXD ",.01)
 ;;W30.1XXD 
 ;;9002226.02101,"169,W30.1XXD ",.02)
 ;;W30.1XXD 
 ;;9002226.02101,"169,W30.1XXD ",.03)
 ;;30
 ;;9002226.02101,"169,W30.1XXS ",.01)
 ;;W30.1XXS 
 ;;9002226.02101,"169,W30.1XXS ",.02)
 ;;W30.1XXS 
 ;;9002226.02101,"169,W30.1XXS ",.03)
 ;;30
 ;;9002226.02101,"169,W30.2XXA ",.01)
 ;;W30.2XXA 
 ;;9002226.02101,"169,W30.2XXA ",.02)
 ;;W30.2XXA 
 ;;9002226.02101,"169,W30.2XXA ",.03)
 ;;30
 ;;9002226.02101,"169,W30.2XXD ",.01)
 ;;W30.2XXD 
 ;;9002226.02101,"169,W30.2XXD ",.02)
 ;;W30.2XXD 
 ;;9002226.02101,"169,W30.2XXD ",.03)
 ;;30
 ;;9002226.02101,"169,W30.2XXS ",.01)
 ;;W30.2XXS 
 ;;9002226.02101,"169,W30.2XXS ",.02)
 ;;W30.2XXS 
 ;;9002226.02101,"169,W30.2XXS ",.03)
 ;;30
 ;;9002226.02101,"169,W30.3XXA ",.01)
 ;;W30.3XXA 
 ;;9002226.02101,"169,W30.3XXA ",.02)
 ;;W30.3XXA 
 ;;9002226.02101,"169,W30.3XXA ",.03)
 ;;30
 ;;9002226.02101,"169,W30.3XXD ",.01)
 ;;W30.3XXD 
 ;;9002226.02101,"169,W30.3XXD ",.02)
 ;;W30.3XXD 
 ;;9002226.02101,"169,W30.3XXD ",.03)
 ;;30
 ;;9002226.02101,"169,W30.3XXS ",.01)
 ;;W30.3XXS 
 ;;9002226.02101,"169,W30.3XXS ",.02)
 ;;W30.3XXS 
 ;;9002226.02101,"169,W30.3XXS ",.03)
 ;;30
 ;;9002226.02101,"169,W30.81XA ",.01)
 ;;W30.81XA 
 ;;9002226.02101,"169,W30.81XA ",.02)
 ;;W30.81XA 
 ;;9002226.02101,"169,W30.81XA ",.03)
 ;;30
 ;;9002226.02101,"169,W30.81XD ",.01)
 ;;W30.81XD 
 ;;9002226.02101,"169,W30.81XD ",.02)
 ;;W30.81XD 
 ;;9002226.02101,"169,W30.81XD ",.03)
 ;;30
 ;;9002226.02101,"169,W30.81XS ",.01)
 ;;W30.81XS 
 ;;9002226.02101,"169,W30.81XS ",.02)
 ;;W30.81XS 
 ;;9002226.02101,"169,W30.81XS ",.03)
 ;;30
 ;;9002226.02101,"169,W30.89XA ",.01)
 ;;W30.89XA 
 ;;9002226.02101,"169,W30.89XA ",.02)
 ;;W30.89XA 
 ;;9002226.02101,"169,W30.89XA ",.03)
 ;;30
 ;;9002226.02101,"169,W30.89XD ",.01)
 ;;W30.89XD 
 ;;9002226.02101,"169,W30.89XD ",.02)
 ;;W30.89XD 
 ;;9002226.02101,"169,W30.89XD ",.03)
 ;;30
 ;;9002226.02101,"169,W30.89XS ",.01)
 ;;W30.89XS 
 ;;9002226.02101,"169,W30.89XS ",.02)
 ;;W30.89XS 
 ;;9002226.02101,"169,W30.89XS ",.03)
 ;;30
 ;;9002226.02101,"169,W30.9XXA ",.01)
 ;;W30.9XXA 
 ;;9002226.02101,"169,W30.9XXA ",.02)
 ;;W30.9XXA 
 ;;9002226.02101,"169,W30.9XXA ",.03)
 ;;30
 ;;9002226.02101,"169,W30.9XXD ",.01)
 ;;W30.9XXD 
 ;;9002226.02101,"169,W30.9XXD ",.02)
 ;;W30.9XXD 
 ;;9002226.02101,"169,W30.9XXD ",.03)
 ;;30
 ;;9002226.02101,"169,W30.9XXS ",.01)
 ;;W30.9XXS 
 ;;9002226.02101,"169,W30.9XXS ",.02)
 ;;W30.9XXS 
 ;;9002226.02101,"169,W30.9XXS ",.03)
 ;;30
 ;;9002226.02101,"169,W31.0XXA ",.01)
 ;;W31.0XXA 
 ;;9002226.02101,"169,W31.0XXA ",.02)
 ;;W31.0XXA 
 ;;9002226.02101,"169,W31.0XXA ",.03)
 ;;30
 ;;9002226.02101,"169,W31.0XXD ",.01)
 ;;W31.0XXD 
 ;;9002226.02101,"169,W31.0XXD ",.02)
 ;;W31.0XXD 
 ;;9002226.02101,"169,W31.0XXD ",.03)
 ;;30
 ;;9002226.02101,"169,W31.0XXS ",.01)
 ;;W31.0XXS 
 ;;9002226.02101,"169,W31.0XXS ",.02)
 ;;W31.0XXS 
 ;;9002226.02101,"169,W31.0XXS ",.03)
 ;;30
 ;;9002226.02101,"169,W31.1XXA ",.01)
 ;;W31.1XXA 
 ;;9002226.02101,"169,W31.1XXA ",.02)
 ;;W31.1XXA 
 ;;9002226.02101,"169,W31.1XXA ",.03)
 ;;30
 ;;9002226.02101,"169,W31.1XXD ",.01)
 ;;W31.1XXD 
 ;;9002226.02101,"169,W31.1XXD ",.02)
 ;;W31.1XXD 
 ;;9002226.02101,"169,W31.1XXD ",.03)
 ;;30
 ;;9002226.02101,"169,W31.1XXS ",.01)
 ;;W31.1XXS 
 ;;9002226.02101,"169,W31.1XXS ",.02)
 ;;W31.1XXS 
 ;;9002226.02101,"169,W31.1XXS ",.03)
 ;;30
 ;;9002226.02101,"169,W31.2XXA ",.01)
 ;;W31.2XXA 
 ;;9002226.02101,"169,W31.2XXA ",.02)
 ;;W31.2XXA 
 ;;9002226.02101,"169,W31.2XXA ",.03)
 ;;30
 ;;9002226.02101,"169,W31.2XXD ",.01)
 ;;W31.2XXD 
 ;;9002226.02101,"169,W31.2XXD ",.02)
 ;;W31.2XXD 
 ;;9002226.02101,"169,W31.2XXD ",.03)
 ;;30
 ;;9002226.02101,"169,W31.2XXS ",.01)
 ;;W31.2XXS 
 ;;9002226.02101,"169,W31.2XXS ",.02)
 ;;W31.2XXS 
 ;;9002226.02101,"169,W31.2XXS ",.03)
 ;;30
 ;;9002226.02101,"169,W31.3XXA ",.01)
 ;;W31.3XXA 
 ;;9002226.02101,"169,W31.3XXA ",.02)
 ;;W31.3XXA 
 ;;9002226.02101,"169,W31.3XXA ",.03)
 ;;30
 ;;9002226.02101,"169,W31.3XXD ",.01)
 ;;W31.3XXD 
 ;;9002226.02101,"169,W31.3XXD ",.02)
 ;;W31.3XXD 
 ;;9002226.02101,"169,W31.3XXD ",.03)
 ;;30
 ;;9002226.02101,"169,W31.3XXS ",.01)
 ;;W31.3XXS 
 ;;9002226.02101,"169,W31.3XXS ",.02)
 ;;W31.3XXS 
 ;;9002226.02101,"169,W31.3XXS ",.03)
 ;;30
 ;;9002226.02101,"169,W31.81XA ",.01)
 ;;W31.81XA 
 ;;9002226.02101,"169,W31.81XA ",.02)
 ;;W31.81XA 
 ;;9002226.02101,"169,W31.81XA ",.03)
 ;;30
 ;;9002226.02101,"169,W31.81XD ",.01)
 ;;W31.81XD 
 ;;9002226.02101,"169,W31.81XD ",.02)
 ;;W31.81XD 
 ;;9002226.02101,"169,W31.81XD ",.03)
 ;;30
 ;;9002226.02101,"169,W31.81XS ",.01)
 ;;W31.81XS 
 ;;9002226.02101,"169,W31.81XS ",.02)
 ;;W31.81XS 
 ;;9002226.02101,"169,W31.81XS ",.03)
 ;;30
 ;;9002226.02101,"169,W31.82XA ",.01)
 ;;W31.82XA 
 ;;9002226.02101,"169,W31.82XA ",.02)
 ;;W31.82XA 
 ;;9002226.02101,"169,W31.82XA ",.03)
 ;;30
 ;;9002226.02101,"169,W31.82XD ",.01)
 ;;W31.82XD 
 ;;9002226.02101,"169,W31.82XD ",.02)
 ;;W31.82XD 
 ;;9002226.02101,"169,W31.82XD ",.03)
 ;;30
 ;;9002226.02101,"169,W31.82XS ",.01)
 ;;W31.82XS 
 ;;9002226.02101,"169,W31.82XS ",.02)
 ;;W31.82XS 
 ;;9002226.02101,"169,W31.82XS ",.03)
 ;;30
 ;;9002226.02101,"169,W31.83XA ",.01)
 ;;W31.83XA 
 ;;9002226.02101,"169,W31.83XA ",.02)
 ;;W31.83XA 
 ;;9002226.02101,"169,W31.83XA ",.03)
 ;;30
 ;;9002226.02101,"169,W31.83XD ",.01)
 ;;W31.83XD 
 ;;9002226.02101,"169,W31.83XD ",.02)
 ;;W31.83XD 
 ;;9002226.02101,"169,W31.83XD ",.03)
 ;;30
 ;;9002226.02101,"169,W31.83XS ",.01)
 ;;W31.83XS 
 ;;9002226.02101,"169,W31.83XS ",.02)
 ;;W31.83XS 
 ;;9002226.02101,"169,W31.83XS ",.03)
 ;;30
 ;;9002226.02101,"169,W31.89XA ",.01)
 ;;W31.89XA 
 ;;9002226.02101,"169,W31.89XA ",.02)
 ;;W31.89XA 
 ;;9002226.02101,"169,W31.89XA ",.03)
 ;;30
 ;;9002226.02101,"169,W31.89XD ",.01)
 ;;W31.89XD 
 ;;9002226.02101,"169,W31.89XD ",.02)
 ;;W31.89XD 
 ;;9002226.02101,"169,W31.89XD ",.03)
 ;;30
 ;;9002226.02101,"169,W31.89XS ",.01)
 ;;W31.89XS 
 ;;9002226.02101,"169,W31.89XS ",.02)
 ;;W31.89XS 
 ;;9002226.02101,"169,W31.89XS ",.03)
 ;;30
 ;;9002226.02101,"169,W31.9XXA ",.01)
 ;;W31.9XXA 
 ;;9002226.02101,"169,W31.9XXA ",.02)
 ;;W31.9XXA 
 ;;9002226.02101,"169,W31.9XXA ",.03)
 ;;30
 ;;9002226.02101,"169,W31.9XXD ",.01)
 ;;W31.9XXD 
 ;;9002226.02101,"169,W31.9XXD ",.02)
 ;;W31.9XXD 
 ;;9002226.02101,"169,W31.9XXD ",.03)
 ;;30
 ;;9002226.02101,"169,W31.9XXS ",.01)
 ;;W31.9XXS 
 ;;9002226.02101,"169,W31.9XXS ",.02)
 ;;W31.9XXS 
 ;;9002226.02101,"169,W31.9XXS ",.03)
 ;;30
 ;;9002226.02101,"169,W32.0XXA ",.01)
 ;;W32.0XXA 
 ;;9002226.02101,"169,W32.0XXA ",.02)
 ;;W32.0XXA 
 ;;9002226.02101,"169,W32.0XXA ",.03)
 ;;30
 ;;9002226.02101,"169,W32.0XXD ",.01)
 ;;W32.0XXD 
 ;;9002226.02101,"169,W32.0XXD ",.02)
 ;;W32.0XXD 
 ;;9002226.02101,"169,W32.0XXD ",.03)
 ;;30
 ;;9002226.02101,"169,W32.0XXS ",.01)
 ;;W32.0XXS 
 ;;9002226.02101,"169,W32.0XXS ",.02)
 ;;W32.0XXS 
 ;;9002226.02101,"169,W32.0XXS ",.03)
 ;;30
 ;;9002226.02101,"169,W32.1XXA ",.01)
 ;;W32.1XXA 
 ;;9002226.02101,"169,W32.1XXA ",.02)
 ;;W32.1XXA 
 ;;9002226.02101,"169,W32.1XXA ",.03)
 ;;30
 ;;9002226.02101,"169,W32.1XXD ",.01)
 ;;W32.1XXD 
 ;;9002226.02101,"169,W32.1XXD ",.02)
 ;;W32.1XXD 
 ;;9002226.02101,"169,W32.1XXD ",.03)
 ;;30
 ;;9002226.02101,"169,W32.1XXS ",.01)
 ;;W32.1XXS 
 ;;9002226.02101,"169,W32.1XXS ",.02)
 ;;W32.1XXS 
 ;;9002226.02101,"169,W32.1XXS ",.03)
 ;;30
 ;;9002226.02101,"169,W33.00XA ",.01)
 ;;W33.00XA 
 ;;9002226.02101,"169,W33.00XA ",.02)
 ;;W33.00XA 
 ;;9002226.02101,"169,W33.00XA ",.03)
 ;;30
 ;;9002226.02101,"169,W33.00XD ",.01)
 ;;W33.00XD 
 ;;9002226.02101,"169,W33.00XD ",.02)
 ;;W33.00XD 
 ;;9002226.02101,"169,W33.00XD ",.03)
 ;;30
 ;;9002226.02101,"169,W33.00XS ",.01)
 ;;W33.00XS 
 ;;9002226.02101,"169,W33.00XS ",.02)
 ;;W33.00XS 
 ;;9002226.02101,"169,W33.00XS ",.03)
 ;;30
 ;;9002226.02101,"169,W33.01XA ",.01)
 ;;W33.01XA 
 ;;9002226.02101,"169,W33.01XA ",.02)
 ;;W33.01XA 
 ;;9002226.02101,"169,W33.01XA ",.03)
 ;;30
 ;;9002226.02101,"169,W33.01XD ",.01)
 ;;W33.01XD 
 ;;9002226.02101,"169,W33.01XD ",.02)
 ;;W33.01XD 
 ;;9002226.02101,"169,W33.01XD ",.03)
 ;;30
 ;;9002226.02101,"169,W33.01XS ",.01)
 ;;W33.01XS 
 ;;9002226.02101,"169,W33.01XS ",.02)
 ;;W33.01XS 
 ;;9002226.02101,"169,W33.01XS ",.03)
 ;;30
 ;;9002226.02101,"169,W33.02XA ",.01)
 ;;W33.02XA 
 ;;9002226.02101,"169,W33.02XA ",.02)
 ;;W33.02XA 
 ;;9002226.02101,"169,W33.02XA ",.03)
 ;;30
 ;;9002226.02101,"169,W33.02XD ",.01)
 ;;W33.02XD 
 ;;9002226.02101,"169,W33.02XD ",.02)
 ;;W33.02XD 
 ;;9002226.02101,"169,W33.02XD ",.03)
 ;;30
 ;;9002226.02101,"169,W33.02XS ",.01)
 ;;W33.02XS 
 ;;9002226.02101,"169,W33.02XS ",.02)
 ;;W33.02XS 
 ;;9002226.02101,"169,W33.02XS ",.03)
 ;;30
 ;;9002226.02101,"169,W33.03XA ",.01)
 ;;W33.03XA 
 ;;9002226.02101,"169,W33.03XA ",.02)
 ;;W33.03XA 
 ;;9002226.02101,"169,W33.03XA ",.03)
 ;;30
 ;;9002226.02101,"169,W33.03XD ",.01)
 ;;W33.03XD 
 ;;9002226.02101,"169,W33.03XD ",.02)
 ;;W33.03XD 
 ;;9002226.02101,"169,W33.03XD ",.03)
 ;;30
 ;;9002226.02101,"169,W33.03XS ",.01)
 ;;W33.03XS 
 ;;9002226.02101,"169,W33.03XS ",.02)
 ;;W33.03XS 
 ;;9002226.02101,"169,W33.03XS ",.03)
 ;;30
 ;;9002226.02101,"169,W33.09XA ",.01)
 ;;W33.09XA 
 ;;9002226.02101,"169,W33.09XA ",.02)
 ;;W33.09XA 
 ;;9002226.02101,"169,W33.09XA ",.03)
 ;;30
 ;;9002226.02101,"169,W33.09XD ",.01)
 ;;W33.09XD 
 ;;9002226.02101,"169,W33.09XD ",.02)
 ;;W33.09XD 
 ;;9002226.02101,"169,W33.09XD ",.03)
 ;;30
 ;;9002226.02101,"169,W33.09XS ",.01)
 ;;W33.09XS 
 ;;9002226.02101,"169,W33.09XS ",.02)
 ;;W33.09XS 
 ;;9002226.02101,"169,W33.09XS ",.03)
 ;;30
 ;;9002226.02101,"169,W33.10XA ",.01)
 ;;W33.10XA 
 ;;9002226.02101,"169,W33.10XA ",.02)
 ;;W33.10XA 
 ;;9002226.02101,"169,W33.10XA ",.03)
 ;;30
 ;;9002226.02101,"169,W33.10XD ",.01)
 ;;W33.10XD 
 ;;9002226.02101,"169,W33.10XD ",.02)
 ;;W33.10XD 
 ;;9002226.02101,"169,W33.10XD ",.03)
 ;;30
 ;;9002226.02101,"169,W33.10XS ",.01)
 ;;W33.10XS 
 ;;9002226.02101,"169,W33.10XS ",.02)
 ;;W33.10XS 
 ;;9002226.02101,"169,W33.10XS ",.03)
 ;;30
 ;;9002226.02101,"169,W33.11XA ",.01)
 ;;W33.11XA 
 ;;9002226.02101,"169,W33.11XA ",.02)
 ;;W33.11XA 
 ;;9002226.02101,"169,W33.11XA ",.03)
 ;;30
 ;;9002226.02101,"169,W33.11XD ",.01)
 ;;W33.11XD 
 ;;9002226.02101,"169,W33.11XD ",.02)
 ;;W33.11XD 
 ;;9002226.02101,"169,W33.11XD ",.03)
 ;;30
 ;;9002226.02101,"169,W33.11XS ",.01)
 ;;W33.11XS 
 ;;9002226.02101,"169,W33.11XS ",.02)
 ;;W33.11XS 
 ;;9002226.02101,"169,W33.11XS ",.03)
 ;;30
 ;;9002226.02101,"169,W33.12XA ",.01)
 ;;W33.12XA 
 ;;9002226.02101,"169,W33.12XA ",.02)
 ;;W33.12XA 
 ;;9002226.02101,"169,W33.12XA ",.03)
 ;;30
 ;;9002226.02101,"169,W33.12XD ",.01)
 ;;W33.12XD 
 ;;9002226.02101,"169,W33.12XD ",.02)
 ;;W33.12XD 
 ;;9002226.02101,"169,W33.12XD ",.03)
 ;;30
 ;;9002226.02101,"169,W33.12XS ",.01)
 ;;W33.12XS 
 ;;9002226.02101,"169,W33.12XS ",.02)
 ;;W33.12XS 
 ;;9002226.02101,"169,W33.12XS ",.03)
 ;;30
 ;;9002226.02101,"169,W33.13XA ",.01)
 ;;W33.13XA 
 ;;9002226.02101,"169,W33.13XA ",.02)
 ;;W33.13XA 
 ;;9002226.02101,"169,W33.13XA ",.03)
 ;;30
 ;;9002226.02101,"169,W33.13XD ",.01)
 ;;W33.13XD 
 ;;9002226.02101,"169,W33.13XD ",.02)
 ;;W33.13XD 
 ;;9002226.02101,"169,W33.13XD ",.03)
 ;;30
 ;;9002226.02101,"169,W33.13XS ",.01)
 ;;W33.13XS 
 ;;9002226.02101,"169,W33.13XS ",.02)
 ;;W33.13XS 
 ;;9002226.02101,"169,W33.13XS ",.03)
 ;;30
 ;;9002226.02101,"169,W33.19XA ",.01)
 ;;W33.19XA 
 ;;9002226.02101,"169,W33.19XA ",.02)
 ;;W33.19XA 
 ;;9002226.02101,"169,W33.19XA ",.03)
 ;;30
 ;;9002226.02101,"169,W33.19XD ",.01)
 ;;W33.19XD 
 ;;9002226.02101,"169,W33.19XD ",.02)
 ;;W33.19XD 
 ;;9002226.02101,"169,W33.19XD ",.03)
 ;;30
 ;;9002226.02101,"169,W33.19XS ",.01)
 ;;W33.19XS 
 ;;9002226.02101,"169,W33.19XS ",.02)
 ;;W33.19XS 
 ;;9002226.02101,"169,W33.19XS ",.03)
 ;;30
 ;;9002226.02101,"169,W34.00XA ",.01)
 ;;W34.00XA 
 ;;9002226.02101,"169,W34.00XA ",.02)
 ;;W34.00XA 
 ;;9002226.02101,"169,W34.00XA ",.03)
 ;;30
 ;;9002226.02101,"169,W34.00XD ",.01)
 ;;W34.00XD 
 ;;9002226.02101,"169,W34.00XD ",.02)
 ;;W34.00XD 
 ;;9002226.02101,"169,W34.00XD ",.03)
 ;;30
 ;;9002226.02101,"169,W34.00XS ",.01)
 ;;W34.00XS 
 ;;9002226.02101,"169,W34.00XS ",.02)
 ;;W34.00XS 
 ;;9002226.02101,"169,W34.00XS ",.03)
 ;;30
 ;;9002226.02101,"169,W34.010A ",.01)
 ;;W34.010A 
 ;;9002226.02101,"169,W34.010A ",.02)
 ;;W34.010A 
 ;;9002226.02101,"169,W34.010A ",.03)
 ;;30
 ;;9002226.02101,"169,W34.010D ",.01)
 ;;W34.010D 
 ;;9002226.02101,"169,W34.010D ",.02)
 ;;W34.010D 
 ;;9002226.02101,"169,W34.010D ",.03)
 ;;30
 ;;9002226.02101,"169,W34.010S ",.01)
 ;;W34.010S 
 ;;9002226.02101,"169,W34.010S ",.02)
 ;;W34.010S 
 ;;9002226.02101,"169,W34.010S ",.03)
 ;;30
 ;;9002226.02101,"169,W34.011A ",.01)
 ;;W34.011A 
 ;;9002226.02101,"169,W34.011A ",.02)
 ;;W34.011A