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.
  1. ATXD5I2 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON NOV 12, 2013;
  1. ;;5.1;TAXONOMY;**11**;FEB 04, 1997;Build 48
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"162,W30.3XXD ",.03)
  1. ;;30
  1. ;;9002226.02101,"162,W30.3XXS ",.01)
  1. ;;W30.3XXS
  1. ;;9002226.02101,"162,W30.3XXS ",.02)
  1. ;;W30.3XXS
  1. ;;9002226.02101,"162,W30.3XXS ",.03)
  1. ;;30
  1. ;;9002226.02101,"162,W30.81XA ",.01)
  1. ;;W30.81XA
  1. ;;9002226.02101,"162,W30.81XA ",.02)
  1. ;;W30.81XA
  1. ;;9002226.02101,"162,W30.81XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"162,W30.81XD ",.01)
  1. ;;W30.81XD
  1. ;;9002226.02101,"162,W30.81XD ",.02)
  1. ;;W30.81XD
  1. ;;9002226.02101,"162,W30.81XD ",.03)
  1. ;;30
  1. ;;9002226.02101,"162,W30.81XS ",.01)
  1. ;;W30.81XS
  1. ;;9002226.02101,"162,W30.81XS ",.02)
  1. ;;W30.81XS
  1. ;;9002226.02101,"162,W30.81XS ",.03)
  1. ;;30
  1. ;;9002226.02101,"162,W30.89XA ",.01)
  1. ;;W30.89XA
  1. ;;9002226.02101,"162,W30.89XA ",.02)
  1. ;;W30.89XA
  1. ;;9002226.02101,"162,W30.89XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"162,W30.89XD ",.01)
  1. ;;W30.89XD
  1. ;;9002226.02101,"162,W30.89XD ",.02)
  1. ;;W30.89XD
  1. ;;9002226.02101,"162,W30.89XD ",.03)
  1. ;;30
  1. ;;9002226.02101,"162,W30.89XS ",.01)
  1. ;;W30.89XS
  1. ;;9002226.02101,"162,W30.89XS ",.02)
  1. ;;W30.89XS
  1. ;;9002226.02101,"162,W30.89XS ",.03)
  1. ;;30
  1. ;;9002226.02101,"162,W30.9XXA ",.01)
  1. ;;W30.9XXA
  1. ;;9002226.02101,"162,W30.9XXA ",.02)
  1. ;;W30.9XXA
  1. ;;9002226.02101,"162,W30.9XXA ",.03)
  1. ;;30
  1. ;;9002226.02101,"162,W30.9XXD ",.01)
  1. ;;W30.9XXD
  1. ;;9002226.02101,"162,W30.9XXD ",.02)
  1. ;;W30.9XXD
  1. ;;9002226.02101,"162,W30.9XXD ",.03)
  1. ;;30
  1. ;;9002226.02101,"162,W30.9XXS ",.01)
  1. ;;W30.9XXS
  1. ;;9002226.02101,"162,W30.9XXS ",.02)
  1. ;;W30.9XXS
  1. ;;9002226.02101,"162,W30.9XXS ",.03)
  1. ;;30
  1. ;;9002226.02101,"162,W31.0XXA ",.01)
  1. ;;W31.0XXA
  1. ;;9002226.02101,"162,W31.0XXA ",.02)
  1. ;;W31.0XXA
  1. ;;9002226.02101,"162,W31.0XXA ",.03)
  1. ;;30
  1. ;;9002226.02101,"162,W31.0XXD ",.01)
  1. ;;W31.0XXD
  1. ;;9002226.02101,"162,W31.0XXD ",.02)
  1. ;;W31.0XXD
  1. ;;9002226.02101,"162,W31.0XXD ",.03)
  1. ;;30
  1. ;;9002226.02101,"162,W31.0XXS ",.01)
  1. ;;W31.0XXS
  1. ;;9002226.02101,"162,W31.0XXS ",.02)
  1. ;;W31.0XXS
  1. ;;9002226.02101,"162,W31.0XXS ",.03)
  1. ;;30
  1. ;;9002226.02101,"162,W31.1XXA ",.01)
  1. ;;W31.1XXA
  1. ;;9002226.02101,"162,W31.1XXA ",.02)
  1. ;;W31.1XXA
  1. ;;9002226.02101,"162,W31.1XXA ",.03)
  1. ;;30
  1. ;;9002226.02101,"162,W31.1XXD ",.01)
  1. ;;W31.1XXD
  1. ;;9002226.02101,"162,W31.1XXD ",.02)
  1. ;;W31.1XXD
  1. ;;9002226.02101,"162,W31.1XXD ",.03)
  1. ;;30
  1. ;;9002226.02101,"162,W31.1XXS ",.01)
  1. ;;W31.1XXS
  1. ;;9002226.02101,"162,W31.1XXS ",.02)
  1. ;;W31.1XXS
  1. ;;9002226.02101,"162,W31.1XXS ",.03)
  1. ;;30
  1. ;;9002226.02101,"162,W31.2XXA ",.01)
  1. ;;W31.2XXA
  1. ;;9002226.02101,"162,W31.2XXA ",.02)
  1. ;;W31.2XXA
  1. ;;9002226.02101,"162,W31.2XXA ",.03)
  1. ;;30
  1. ;;9002226.02101,"162,W31.2XXD ",.01)
  1. ;;W31.2XXD
  1. ;;9002226.02101,"162,W31.2XXD ",.02)
  1. ;;W31.2XXD
  1. ;;9002226.02101,"162,W31.2XXD ",.03)
  1. ;;30
  1. ;;9002226.02101,"162,W31.2XXS ",.01)
  1. ;;W31.2XXS
  1. ;;9002226.02101,"162,W31.2XXS ",.02)
  1. ;;W31.2XXS
  1. ;;9002226.02101,"162,W31.2XXS ",.03)
  1. ;;30
  1. ;;9002226.02101,"162,W31.3XXA ",.01)
  1. ;;W31.3XXA
  1. ;;9002226.02101,"162,W31.3XXA ",.02)
  1. ;;W31.3XXA
  1. ;;9002226.02101,"162,W31.3XXA ",.03)
  1. ;;30
  1. ;;9002226.02101,"162,W31.3XXD ",.01)
  1. ;;W31.3XXD
  1. ;;9002226.02101,"162,W31.3XXD ",.02)
  1. ;;W31.3XXD
  1. ;;9002226.02101,"162,W31.3XXD ",.03)
  1. ;;30
  1. ;;9002226.02101,"162,W31.3XXS ",.01)
  1. ;;W31.3XXS
  1. ;;9002226.02101,"162,W31.3XXS ",.02)
  1. ;;W31.3XXS
  1. ;;9002226.02101,"162,W31.3XXS ",.03)
  1. ;;30
  1. ;;9002226.02101,"162,W31.81XA ",.01)
  1. ;;W31.81XA
  1. ;;9002226.02101,"162,W31.81XA ",.02)
  1. ;;W31.81XA
  1. ;;9002226.02101,"162,W31.81XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"162,W31.81XD ",.01)
  1. ;;W31.81XD
  1. ;;9002226.02101,"162,W31.81XD ",.02)
  1. ;;W31.81XD
  1. ;;9002226.02101,"162,W31.81XD ",.03)
  1. ;;30
  1. ;;9002226.02101,"162,W31.81XS ",.01)
  1. ;;W31.81XS
  1. ;;9002226.02101,"162,W31.81XS ",.02)
  1. ;;W31.81XS
  1. ;;9002226.02101,"162,W31.81XS ",.03)
  1. ;;30
  1. ;;9002226.02101,"162,W31.82XA ",.01)
  1. ;;W31.82XA
  1. ;;9002226.02101,"162,W31.82XA ",.02)
  1. ;;W31.82XA
  1. ;;9002226.02101,"162,W31.82XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"162,W31.82XD ",.01)
  1. ;;W31.82XD
  1. ;;9002226.02101,"162,W31.82XD ",.02)
  1. ;;W31.82XD
  1. ;;9002226.02101,"162,W31.82XD ",.03)
  1. ;;30
  1. ;;9002226.02101,"162,W31.82XS ",.01)
  1. ;;W31.82XS
  1. ;;9002226.02101,"162,W31.82XS ",.02)
  1. ;;W31.82XS
  1. ;;9002226.02101,"162,W31.82XS ",.03)
  1. ;;30
  1. ;;9002226.02101,"162,W31.83XA ",.01)
  1. ;;W31.83XA
  1. ;;9002226.02101,"162,W31.83XA ",.02)
  1. ;;W31.83XA
  1. ;;9002226.02101,"162,W31.83XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"162,W31.83XD ",.01)
  1. ;;W31.83XD
  1. ;;9002226.02101,"162,W31.83XD ",.02)
  1. ;;W31.83XD
  1. ;;9002226.02101,"162,W31.83XD ",.03)
  1. ;;30
  1. ;;9002226.02101,"162,W31.83XS ",.01)
  1. ;;W31.83XS
  1. ;;9002226.02101,"162,W31.83XS ",.02)
  1. ;;W31.83XS
  1. ;;9002226.02101,"162,W31.83XS ",.03)
  1. ;;30
  1. ;;9002226.02101,"162,W31.89XA ",.01)
  1. ;;W31.89XA
  1. ;;9002226.02101,"162,W31.89XA ",.02)
  1. ;;W31.89XA
  1. ;;9002226.02101,"162,W31.89XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"162,W31.89XD ",.01)
  1. ;;W31.89XD
  1. ;;9002226.02101,"162,W31.89XD ",.02)
  1. ;;W31.89XD
  1. ;;9002226.02101,"162,W31.89XD ",.03)
  1. ;;30
  1. ;;9002226.02101,"162,W31.89XS ",.01)
  1. ;;W31.89XS
  1. ;;9002226.02101,"162,W31.89XS ",.02)
  1. ;;W31.89XS
  1. ;;9002226.02101,"162,W31.89XS ",.03)
  1. ;;30
  1. ;;9002226.02101,"162,W31.9XXA ",.01)
  1. ;;W31.9XXA
  1. ;;9002226.02101,"162,W31.9XXA ",.02)
  1. ;;W31.9XXA
  1. ;;9002226.02101,"162,W31.9XXA ",.03)
  1. ;;30
  1. ;;9002226.02101,"162,W31.9XXD ",.01)
  1. ;;W31.9XXD
  1. ;;9002226.02101,"162,W31.9XXD ",.02)
  1. ;;W31.9XXD
  1. ;;9002226.02101,"162,W31.9XXD ",.03)
  1. ;;30
  1. ;;9002226.02101,"162,W31.9XXS ",.01)
  1. ;;W31.9XXS
  1. ;;9002226.02101,"162,W31.9XXS ",.02)
  1. ;;W31.9XXS
  1. ;;9002226.02101,"162,W31.9XXS ",.03)
  1. ;;30
  1. ;;9002226.02101,"162,W45.0XXA ",.01)
  1. ;;W45.0XXA
  1. ;;9002226.02101,"162,W45.0XXA ",.02)
  1. ;;W45.0XXA
  1. ;;9002226.02101,"162,W45.0XXA ",.03)
  1. ;;30
  1. ;;9002226.02101,"162,W45.0XXD ",.01)
  1. ;;W45.0XXD
  1. ;;9002226.02101,"162,W45.0XXD ",.02)
  1. ;;W45.0XXD
  1. ;;9002226.02101,"162,W45.0XXD ",.03)
  1. ;;30
  1. ;;9002226.02101,"162,W45.0XXS ",.01)
  1. ;;W45.0XXS
  1. ;;9002226.02101,"162,W45.0XXS ",.02)
  1. ;;W45.0XXS
  1. ;;9002226.02101,"162,W45.0XXS ",.03)
  1. ;;30
  1. ;;9002226.02101,"162,W45.1XXA ",.01)
  1. ;;W45.1XXA
  1. ;;9002226.02101,"162,W45.1XXA ",.02)
  1. ;;W45.1XXA
  1. ;;9002226.02101,"162,W45.1XXA ",.03)
  1. ;;30
  1. ;;9002226.02101,"162,W45.1XXD ",.01)
  1. ;;W45.1XXD
  1. ;;9002226.02101,"162,W45.1XXD ",.02)
  1. ;;W45.1XXD
  1. ;;9002226.02101,"162,W45.1XXD ",.03)
  1. ;;30
  1. ;;9002226.02101,"162,W45.1XXS ",.01)
  1. ;;W45.1XXS
  1. ;;9002226.02101,"162,W45.1XXS ",.02)
  1. ;;W45.1XXS
  1. ;;9002226.02101,"162,W45.1XXS ",.03)
  1. ;;30
  1. ;;9002226.02101,"162,W45.2XXA ",.01)
  1. ;;W45.2XXA
  1. ;;9002226.02101,"162,W45.2XXA ",.02)
  1. ;;W45.2XXA
  1. ;;9002226.02101,"162,W45.2XXA ",.03)
  1. ;;30
  1. ;;9002226.02101,"162,W45.2XXD ",.01)
  1. ;;W45.2XXD
  1. ;;9002226.02101,"162,W45.2XXD ",.02)
  1. ;;W45.2XXD
  1. ;;9002226.02101,"162,W45.2XXD ",.03)
  1. ;;30
  1. ;;9002226.02101,"162,W45.2XXS ",.01)
  1. ;;W45.2XXS
  1. ;;9002226.02101,"162,W45.2XXS ",.02)
  1. ;;W45.2XXS
  1. ;;9002226.02101,"162,W45.2XXS ",.03)
  1. ;;30
  1. ;;9002226.02101,"162,W45.8XXA ",.01)
  1. ;;W45.8XXA
  1. ;;9002226.02101,"162,W45.8XXA ",.02)
  1. ;;W45.8XXA
  1. ;;9002226.02101,"162,W45.8XXA ",.03)
  1. ;;30
  1. ;;9002226.02101,"162,W45.8XXD ",.01)
  1. ;;W45.8XXD
  1. ;;9002226.02101,"162,W45.8XXD ",.02)
  1. ;;W45.8XXD
  1. ;;9002226.02101,"162,W45.8XXD ",.03)
  1. ;;30
  1. ;;9002226.02101,"162,W45.8XXS ",.01)
  1. ;;W45.8XXS
  1. ;;9002226.02101,"162,W45.8XXS ",.02)
  1. ;;W45.8XXS
  1. ;;9002226.02101,"162,W45.8XXS ",.03)
  1. ;;30
  1. ;;9002226.02101,"162,W46.0XXA ",.01)
  1. ;;W46.0XXA
  1. ;;9002226.02101,"162,W46.0XXA ",.02)
  1. ;;W46.0XXA
  1. ;;9002226.02101,"162,W46.0XXA ",.03)
  1. ;;30
  1. ;;9002226.02101,"162,W46.0XXD ",.01)
  1. ;;W46.0XXD
  1. ;;9002226.02101,"162,W46.0XXD ",.02)
  1. ;;W46.0XXD
  1. ;;9002226.02101,"162,W46.0XXD ",.03)
  1. ;;30
  1. ;;9002226.02101,"162,W46.0XXS ",.01)
  1. ;;W46.0XXS
  1. ;;9002226.02101,"162,W46.0XXS ",.02)
  1. ;;W46.0XXS
  1. ;;9002226.02101,"162,W46.0XXS ",.03)
  1. ;;30
  1. ;;9002226.02101,"162,W46.1XXA ",.01)
  1. ;;W46.1XXA
  1. ;;9002226.02101,"162,W46.1XXA ",.02)
  1. ;;W46.1XXA
  1. ;;9002226.02101,"162,W46.1XXA ",.03)
  1. ;;30
  1. ;;9002226.02101,"162,W46.1XXD ",.01)
  1. ;;W46.1XXD
  1. ;;9002226.02101,"162,W46.1XXD ",.02)
  1. ;;W46.1XXD
  1. ;;9002226.02101,"162,W46.1XXD ",.03)
  1. ;;30
  1. ;;9002226.02101,"162,W46.1XXS ",.01)
  1. ;;W46.1XXS
  1. ;;9002226.02101,"162,W46.1XXS ",.02)
  1. ;;W46.1XXS
  1. ;;9002226.02101,"162,W46.1XXS ",.03)
  1. ;;30
  1. ;;9002226.02101,"162,W60.XXXA ",.01)
  1. ;;W60.XXXA
  1. ;;9002226.02101,"162,W60.XXXA ",.02)
  1. ;;W60.XXXA
  1. ;;9002226.02101,"162,W60.XXXA ",.03)
  1. ;;30
  1. ;;9002226.02101,"162,W60.XXXD ",.01)
  1. ;;W60.XXXD
  1. ;;9002226.02101,"162,W60.XXXD ",.02)
  1. ;;W60.XXXD
  1. ;;9002226.02101,"162,W60.XXXD ",.03)
  1. ;;30
  1. ;;9002226.02101,"162,W60.XXXS ",.01)
  1. ;;W60.XXXS
  1. ;;9002226.02101,"162,W60.XXXS ",.02)
  1. ;;W60.XXXS
  1. ;;9002226.02101,"162,W60.XXXS ",.03)
  1. ;;30
  1. ;;9002226.04101,"162,1",.01)
  1. ;;APCL