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

ATXD5I2.m

Go to the documentation of this file.
ATXD5I2 ;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,"162,W30.3XXD ",.03)
 ;;30
 ;;9002226.02101,"162,W30.3XXS ",.01)
 ;;W30.3XXS 
 ;;9002226.02101,"162,W30.3XXS ",.02)
 ;;W30.3XXS 
 ;;9002226.02101,"162,W30.3XXS ",.03)
 ;;30
 ;;9002226.02101,"162,W30.81XA ",.01)
 ;;W30.81XA 
 ;;9002226.02101,"162,W30.81XA ",.02)
 ;;W30.81XA 
 ;;9002226.02101,"162,W30.81XA ",.03)
 ;;30
 ;;9002226.02101,"162,W30.81XD ",.01)
 ;;W30.81XD 
 ;;9002226.02101,"162,W30.81XD ",.02)
 ;;W30.81XD 
 ;;9002226.02101,"162,W30.81XD ",.03)
 ;;30
 ;;9002226.02101,"162,W30.81XS ",.01)
 ;;W30.81XS 
 ;;9002226.02101,"162,W30.81XS ",.02)
 ;;W30.81XS 
 ;;9002226.02101,"162,W30.81XS ",.03)
 ;;30
 ;;9002226.02101,"162,W30.89XA ",.01)
 ;;W30.89XA 
 ;;9002226.02101,"162,W30.89XA ",.02)
 ;;W30.89XA 
 ;;9002226.02101,"162,W30.89XA ",.03)
 ;;30
 ;;9002226.02101,"162,W30.89XD ",.01)
 ;;W30.89XD 
 ;;9002226.02101,"162,W30.89XD ",.02)
 ;;W30.89XD 
 ;;9002226.02101,"162,W30.89XD ",.03)
 ;;30
 ;;9002226.02101,"162,W30.89XS ",.01)
 ;;W30.89XS 
 ;;9002226.02101,"162,W30.89XS ",.02)
 ;;W30.89XS 
 ;;9002226.02101,"162,W30.89XS ",.03)
 ;;30
 ;;9002226.02101,"162,W30.9XXA ",.01)
 ;;W30.9XXA 
 ;;9002226.02101,"162,W30.9XXA ",.02)
 ;;W30.9XXA 
 ;;9002226.02101,"162,W30.9XXA ",.03)
 ;;30
 ;;9002226.02101,"162,W30.9XXD ",.01)
 ;;W30.9XXD 
 ;;9002226.02101,"162,W30.9XXD ",.02)
 ;;W30.9XXD 
 ;;9002226.02101,"162,W30.9XXD ",.03)
 ;;30
 ;;9002226.02101,"162,W30.9XXS ",.01)
 ;;W30.9XXS 
 ;;9002226.02101,"162,W30.9XXS ",.02)
 ;;W30.9XXS 
 ;;9002226.02101,"162,W30.9XXS ",.03)
 ;;30
 ;;9002226.02101,"162,W31.0XXA ",.01)
 ;;W31.0XXA 
 ;;9002226.02101,"162,W31.0XXA ",.02)
 ;;W31.0XXA 
 ;;9002226.02101,"162,W31.0XXA ",.03)
 ;;30
 ;;9002226.02101,"162,W31.0XXD ",.01)
 ;;W31.0XXD 
 ;;9002226.02101,"162,W31.0XXD ",.02)
 ;;W31.0XXD 
 ;;9002226.02101,"162,W31.0XXD ",.03)
 ;;30
 ;;9002226.02101,"162,W31.0XXS ",.01)
 ;;W31.0XXS 
 ;;9002226.02101,"162,W31.0XXS ",.02)
 ;;W31.0XXS 
 ;;9002226.02101,"162,W31.0XXS ",.03)
 ;;30
 ;;9002226.02101,"162,W31.1XXA ",.01)
 ;;W31.1XXA 
 ;;9002226.02101,"162,W31.1XXA ",.02)
 ;;W31.1XXA 
 ;;9002226.02101,"162,W31.1XXA ",.03)
 ;;30
 ;;9002226.02101,"162,W31.1XXD ",.01)
 ;;W31.1XXD 
 ;;9002226.02101,"162,W31.1XXD ",.02)
 ;;W31.1XXD 
 ;;9002226.02101,"162,W31.1XXD ",.03)
 ;;30
 ;;9002226.02101,"162,W31.1XXS ",.01)
 ;;W31.1XXS 
 ;;9002226.02101,"162,W31.1XXS ",.02)
 ;;W31.1XXS 
 ;;9002226.02101,"162,W31.1XXS ",.03)
 ;;30
 ;;9002226.02101,"162,W31.2XXA ",.01)
 ;;W31.2XXA 
 ;;9002226.02101,"162,W31.2XXA ",.02)
 ;;W31.2XXA 
 ;;9002226.02101,"162,W31.2XXA ",.03)
 ;;30
 ;;9002226.02101,"162,W31.2XXD ",.01)
 ;;W31.2XXD 
 ;;9002226.02101,"162,W31.2XXD ",.02)
 ;;W31.2XXD 
 ;;9002226.02101,"162,W31.2XXD ",.03)
 ;;30
 ;;9002226.02101,"162,W31.2XXS ",.01)
 ;;W31.2XXS 
 ;;9002226.02101,"162,W31.2XXS ",.02)
 ;;W31.2XXS 
 ;;9002226.02101,"162,W31.2XXS ",.03)
 ;;30
 ;;9002226.02101,"162,W31.3XXA ",.01)
 ;;W31.3XXA 
 ;;9002226.02101,"162,W31.3XXA ",.02)
 ;;W31.3XXA 
 ;;9002226.02101,"162,W31.3XXA ",.03)
 ;;30
 ;;9002226.02101,"162,W31.3XXD ",.01)
 ;;W31.3XXD 
 ;;9002226.02101,"162,W31.3XXD ",.02)
 ;;W31.3XXD 
 ;;9002226.02101,"162,W31.3XXD ",.03)
 ;;30
 ;;9002226.02101,"162,W31.3XXS ",.01)
 ;;W31.3XXS 
 ;;9002226.02101,"162,W31.3XXS ",.02)
 ;;W31.3XXS 
 ;;9002226.02101,"162,W31.3XXS ",.03)
 ;;30
 ;;9002226.02101,"162,W31.81XA ",.01)
 ;;W31.81XA 
 ;;9002226.02101,"162,W31.81XA ",.02)
 ;;W31.81XA 
 ;;9002226.02101,"162,W31.81XA ",.03)
 ;;30
 ;;9002226.02101,"162,W31.81XD ",.01)
 ;;W31.81XD 
 ;;9002226.02101,"162,W31.81XD ",.02)
 ;;W31.81XD 
 ;;9002226.02101,"162,W31.81XD ",.03)
 ;;30
 ;;9002226.02101,"162,W31.81XS ",.01)
 ;;W31.81XS 
 ;;9002226.02101,"162,W31.81XS ",.02)
 ;;W31.81XS 
 ;;9002226.02101,"162,W31.81XS ",.03)
 ;;30
 ;;9002226.02101,"162,W31.82XA ",.01)
 ;;W31.82XA 
 ;;9002226.02101,"162,W31.82XA ",.02)
 ;;W31.82XA 
 ;;9002226.02101,"162,W31.82XA ",.03)
 ;;30
 ;;9002226.02101,"162,W31.82XD ",.01)
 ;;W31.82XD 
 ;;9002226.02101,"162,W31.82XD ",.02)
 ;;W31.82XD 
 ;;9002226.02101,"162,W31.82XD ",.03)
 ;;30
 ;;9002226.02101,"162,W31.82XS ",.01)
 ;;W31.82XS 
 ;;9002226.02101,"162,W31.82XS ",.02)
 ;;W31.82XS 
 ;;9002226.02101,"162,W31.82XS ",.03)
 ;;30
 ;;9002226.02101,"162,W31.83XA ",.01)
 ;;W31.83XA 
 ;;9002226.02101,"162,W31.83XA ",.02)
 ;;W31.83XA 
 ;;9002226.02101,"162,W31.83XA ",.03)
 ;;30
 ;;9002226.02101,"162,W31.83XD ",.01)
 ;;W31.83XD 
 ;;9002226.02101,"162,W31.83XD ",.02)
 ;;W31.83XD 
 ;;9002226.02101,"162,W31.83XD ",.03)
 ;;30
 ;;9002226.02101,"162,W31.83XS ",.01)
 ;;W31.83XS 
 ;;9002226.02101,"162,W31.83XS ",.02)
 ;;W31.83XS 
 ;;9002226.02101,"162,W31.83XS ",.03)
 ;;30
 ;;9002226.02101,"162,W31.89XA ",.01)
 ;;W31.89XA 
 ;;9002226.02101,"162,W31.89XA ",.02)
 ;;W31.89XA 
 ;;9002226.02101,"162,W31.89XA ",.03)
 ;;30
 ;;9002226.02101,"162,W31.89XD ",.01)
 ;;W31.89XD 
 ;;9002226.02101,"162,W31.89XD ",.02)
 ;;W31.89XD 
 ;;9002226.02101,"162,W31.89XD ",.03)
 ;;30
 ;;9002226.02101,"162,W31.89XS ",.01)
 ;;W31.89XS 
 ;;9002226.02101,"162,W31.89XS ",.02)
 ;;W31.89XS 
 ;;9002226.02101,"162,W31.89XS ",.03)
 ;;30
 ;;9002226.02101,"162,W31.9XXA ",.01)
 ;;W31.9XXA 
 ;;9002226.02101,"162,W31.9XXA ",.02)
 ;;W31.9XXA 
 ;;9002226.02101,"162,W31.9XXA ",.03)
 ;;30
 ;;9002226.02101,"162,W31.9XXD ",.01)
 ;;W31.9XXD 
 ;;9002226.02101,"162,W31.9XXD ",.02)
 ;;W31.9XXD 
 ;;9002226.02101,"162,W31.9XXD ",.03)
 ;;30
 ;;9002226.02101,"162,W31.9XXS ",.01)
 ;;W31.9XXS 
 ;;9002226.02101,"162,W31.9XXS ",.02)
 ;;W31.9XXS 
 ;;9002226.02101,"162,W31.9XXS ",.03)
 ;;30
 ;;9002226.02101,"162,W45.0XXA ",.01)
 ;;W45.0XXA 
 ;;9002226.02101,"162,W45.0XXA ",.02)
 ;;W45.0XXA 
 ;;9002226.02101,"162,W45.0XXA ",.03)
 ;;30
 ;;9002226.02101,"162,W45.0XXD ",.01)
 ;;W45.0XXD 
 ;;9002226.02101,"162,W45.0XXD ",.02)
 ;;W45.0XXD 
 ;;9002226.02101,"162,W45.0XXD ",.03)
 ;;30
 ;;9002226.02101,"162,W45.0XXS ",.01)
 ;;W45.0XXS 
 ;;9002226.02101,"162,W45.0XXS ",.02)
 ;;W45.0XXS 
 ;;9002226.02101,"162,W45.0XXS ",.03)
 ;;30
 ;;9002226.02101,"162,W45.1XXA ",.01)
 ;;W45.1XXA 
 ;;9002226.02101,"162,W45.1XXA ",.02)
 ;;W45.1XXA 
 ;;9002226.02101,"162,W45.1XXA ",.03)
 ;;30
 ;;9002226.02101,"162,W45.1XXD ",.01)
 ;;W45.1XXD 
 ;;9002226.02101,"162,W45.1XXD ",.02)
 ;;W45.1XXD 
 ;;9002226.02101,"162,W45.1XXD ",.03)
 ;;30
 ;;9002226.02101,"162,W45.1XXS ",.01)
 ;;W45.1XXS 
 ;;9002226.02101,"162,W45.1XXS ",.02)
 ;;W45.1XXS 
 ;;9002226.02101,"162,W45.1XXS ",.03)
 ;;30
 ;;9002226.02101,"162,W45.2XXA ",.01)
 ;;W45.2XXA 
 ;;9002226.02101,"162,W45.2XXA ",.02)
 ;;W45.2XXA 
 ;;9002226.02101,"162,W45.2XXA ",.03)
 ;;30
 ;;9002226.02101,"162,W45.2XXD ",.01)
 ;;W45.2XXD 
 ;;9002226.02101,"162,W45.2XXD ",.02)
 ;;W45.2XXD 
 ;;9002226.02101,"162,W45.2XXD ",.03)
 ;;30
 ;;9002226.02101,"162,W45.2XXS ",.01)
 ;;W45.2XXS 
 ;;9002226.02101,"162,W45.2XXS ",.02)
 ;;W45.2XXS 
 ;;9002226.02101,"162,W45.2XXS ",.03)
 ;;30
 ;;9002226.02101,"162,W45.8XXA ",.01)
 ;;W45.8XXA 
 ;;9002226.02101,"162,W45.8XXA ",.02)
 ;;W45.8XXA 
 ;;9002226.02101,"162,W45.8XXA ",.03)
 ;;30
 ;;9002226.02101,"162,W45.8XXD ",.01)
 ;;W45.8XXD 
 ;;9002226.02101,"162,W45.8XXD ",.02)
 ;;W45.8XXD 
 ;;9002226.02101,"162,W45.8XXD ",.03)
 ;;30
 ;;9002226.02101,"162,W45.8XXS ",.01)
 ;;W45.8XXS 
 ;;9002226.02101,"162,W45.8XXS ",.02)
 ;;W45.8XXS 
 ;;9002226.02101,"162,W45.8XXS ",.03)
 ;;30
 ;;9002226.02101,"162,W46.0XXA ",.01)
 ;;W46.0XXA 
 ;;9002226.02101,"162,W46.0XXA ",.02)
 ;;W46.0XXA 
 ;;9002226.02101,"162,W46.0XXA ",.03)
 ;;30
 ;;9002226.02101,"162,W46.0XXD ",.01)
 ;;W46.0XXD 
 ;;9002226.02101,"162,W46.0XXD ",.02)
 ;;W46.0XXD 
 ;;9002226.02101,"162,W46.0XXD ",.03)
 ;;30
 ;;9002226.02101,"162,W46.0XXS ",.01)
 ;;W46.0XXS 
 ;;9002226.02101,"162,W46.0XXS ",.02)
 ;;W46.0XXS 
 ;;9002226.02101,"162,W46.0XXS ",.03)
 ;;30
 ;;9002226.02101,"162,W46.1XXA ",.01)
 ;;W46.1XXA 
 ;;9002226.02101,"162,W46.1XXA ",.02)
 ;;W46.1XXA 
 ;;9002226.02101,"162,W46.1XXA ",.03)
 ;;30
 ;;9002226.02101,"162,W46.1XXD ",.01)
 ;;W46.1XXD 
 ;;9002226.02101,"162,W46.1XXD ",.02)
 ;;W46.1XXD 
 ;;9002226.02101,"162,W46.1XXD ",.03)
 ;;30
 ;;9002226.02101,"162,W46.1XXS ",.01)
 ;;W46.1XXS 
 ;;9002226.02101,"162,W46.1XXS ",.02)
 ;;W46.1XXS 
 ;;9002226.02101,"162,W46.1XXS ",.03)
 ;;30
 ;;9002226.02101,"162,W60.XXXA ",.01)
 ;;W60.XXXA 
 ;;9002226.02101,"162,W60.XXXA ",.02)
 ;;W60.XXXA 
 ;;9002226.02101,"162,W60.XXXA ",.03)
 ;;30
 ;;9002226.02101,"162,W60.XXXD ",.01)
 ;;W60.XXXD 
 ;;9002226.02101,"162,W60.XXXD ",.02)
 ;;W60.XXXD 
 ;;9002226.02101,"162,W60.XXXD ",.03)
 ;;30
 ;;9002226.02101,"162,W60.XXXS ",.01)
 ;;W60.XXXS 
 ;;9002226.02101,"162,W60.XXXS ",.02)
 ;;W60.XXXS 
 ;;9002226.02101,"162,W60.XXXS ",.03)
 ;;30
 ;;9002226.04101,"162,1",.01)
 ;;APCL