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

ATXD5M2.m

Go to the documentation of this file.
  1. ATXD5M2 ;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,"166,X03.0XXS ",.02)
  1. ;;X03.0XXS
  1. ;;9002226.02101,"166,X03.0XXS ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X03.1XXA ",.01)
  1. ;;X03.1XXA
  1. ;;9002226.02101,"166,X03.1XXA ",.02)
  1. ;;X03.1XXA
  1. ;;9002226.02101,"166,X03.1XXA ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X03.1XXD ",.01)
  1. ;;X03.1XXD
  1. ;;9002226.02101,"166,X03.1XXD ",.02)
  1. ;;X03.1XXD
  1. ;;9002226.02101,"166,X03.1XXD ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X03.1XXS ",.01)
  1. ;;X03.1XXS
  1. ;;9002226.02101,"166,X03.1XXS ",.02)
  1. ;;X03.1XXS
  1. ;;9002226.02101,"166,X03.1XXS ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X03.3XXA ",.01)
  1. ;;X03.3XXA
  1. ;;9002226.02101,"166,X03.3XXA ",.02)
  1. ;;X03.3XXA
  1. ;;9002226.02101,"166,X03.3XXA ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X03.3XXD ",.01)
  1. ;;X03.3XXD
  1. ;;9002226.02101,"166,X03.3XXD ",.02)
  1. ;;X03.3XXD
  1. ;;9002226.02101,"166,X03.3XXD ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X03.3XXS ",.01)
  1. ;;X03.3XXS
  1. ;;9002226.02101,"166,X03.3XXS ",.02)
  1. ;;X03.3XXS
  1. ;;9002226.02101,"166,X03.3XXS ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X03.4XXA ",.01)
  1. ;;X03.4XXA
  1. ;;9002226.02101,"166,X03.4XXA ",.02)
  1. ;;X03.4XXA
  1. ;;9002226.02101,"166,X03.4XXA ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X03.4XXD ",.01)
  1. ;;X03.4XXD
  1. ;;9002226.02101,"166,X03.4XXD ",.02)
  1. ;;X03.4XXD
  1. ;;9002226.02101,"166,X03.4XXD ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X03.4XXS ",.01)
  1. ;;X03.4XXS
  1. ;;9002226.02101,"166,X03.4XXS ",.02)
  1. ;;X03.4XXS
  1. ;;9002226.02101,"166,X03.4XXS ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X03.8XXA ",.01)
  1. ;;X03.8XXA
  1. ;;9002226.02101,"166,X03.8XXA ",.02)
  1. ;;X03.8XXA
  1. ;;9002226.02101,"166,X03.8XXA ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X03.8XXD ",.01)
  1. ;;X03.8XXD
  1. ;;9002226.02101,"166,X03.8XXD ",.02)
  1. ;;X03.8XXD
  1. ;;9002226.02101,"166,X03.8XXD ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X03.8XXS ",.01)
  1. ;;X03.8XXS
  1. ;;9002226.02101,"166,X03.8XXS ",.02)
  1. ;;X03.8XXS
  1. ;;9002226.02101,"166,X03.8XXS ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X04.XXXA ",.01)
  1. ;;X04.XXXA
  1. ;;9002226.02101,"166,X04.XXXA ",.02)
  1. ;;X04.XXXA
  1. ;;9002226.02101,"166,X04.XXXA ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X04.XXXD ",.01)
  1. ;;X04.XXXD
  1. ;;9002226.02101,"166,X04.XXXD ",.02)
  1. ;;X04.XXXD
  1. ;;9002226.02101,"166,X04.XXXD ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X04.XXXS ",.01)
  1. ;;X04.XXXS
  1. ;;9002226.02101,"166,X04.XXXS ",.02)
  1. ;;X04.XXXS
  1. ;;9002226.02101,"166,X04.XXXS ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X05.XXXA ",.01)
  1. ;;X05.XXXA
  1. ;;9002226.02101,"166,X05.XXXA ",.02)
  1. ;;X05.XXXA
  1. ;;9002226.02101,"166,X05.XXXA ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X05.XXXD ",.01)
  1. ;;X05.XXXD
  1. ;;9002226.02101,"166,X05.XXXD ",.02)
  1. ;;X05.XXXD
  1. ;;9002226.02101,"166,X05.XXXD ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X05.XXXS ",.01)
  1. ;;X05.XXXS
  1. ;;9002226.02101,"166,X05.XXXS ",.02)
  1. ;;X05.XXXS
  1. ;;9002226.02101,"166,X05.XXXS ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X06.0XXA ",.01)
  1. ;;X06.0XXA
  1. ;;9002226.02101,"166,X06.0XXA ",.02)
  1. ;;X06.0XXA
  1. ;;9002226.02101,"166,X06.0XXA ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X06.0XXD ",.01)
  1. ;;X06.0XXD
  1. ;;9002226.02101,"166,X06.0XXD ",.02)
  1. ;;X06.0XXD
  1. ;;9002226.02101,"166,X06.0XXD ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X06.0XXS ",.01)
  1. ;;X06.0XXS
  1. ;;9002226.02101,"166,X06.0XXS ",.02)
  1. ;;X06.0XXS
  1. ;;9002226.02101,"166,X06.0XXS ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X06.1XXA ",.01)
  1. ;;X06.1XXA
  1. ;;9002226.02101,"166,X06.1XXA ",.02)
  1. ;;X06.1XXA
  1. ;;9002226.02101,"166,X06.1XXA ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X06.1XXD ",.01)
  1. ;;X06.1XXD
  1. ;;9002226.02101,"166,X06.1XXD ",.02)
  1. ;;X06.1XXD
  1. ;;9002226.02101,"166,X06.1XXD ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X06.1XXS ",.01)
  1. ;;X06.1XXS
  1. ;;9002226.02101,"166,X06.1XXS ",.02)
  1. ;;X06.1XXS
  1. ;;9002226.02101,"166,X06.1XXS ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X06.2XXA ",.01)
  1. ;;X06.2XXA
  1. ;;9002226.02101,"166,X06.2XXA ",.02)
  1. ;;X06.2XXA
  1. ;;9002226.02101,"166,X06.2XXA ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X06.2XXD ",.01)
  1. ;;X06.2XXD
  1. ;;9002226.02101,"166,X06.2XXD ",.02)
  1. ;;X06.2XXD
  1. ;;9002226.02101,"166,X06.2XXD ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X06.2XXS ",.01)
  1. ;;X06.2XXS
  1. ;;9002226.02101,"166,X06.2XXS ",.02)
  1. ;;X06.2XXS
  1. ;;9002226.02101,"166,X06.2XXS ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X06.3XXA ",.01)
  1. ;;X06.3XXA
  1. ;;9002226.02101,"166,X06.3XXA ",.02)
  1. ;;X06.3XXA
  1. ;;9002226.02101,"166,X06.3XXA ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X06.3XXD ",.01)
  1. ;;X06.3XXD
  1. ;;9002226.02101,"166,X06.3XXD ",.02)
  1. ;;X06.3XXD
  1. ;;9002226.02101,"166,X06.3XXD ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X06.3XXS ",.01)
  1. ;;X06.3XXS
  1. ;;9002226.02101,"166,X06.3XXS ",.02)
  1. ;;X06.3XXS
  1. ;;9002226.02101,"166,X06.3XXS ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X08.00XA ",.01)
  1. ;;X08.00XA
  1. ;;9002226.02101,"166,X08.00XA ",.02)
  1. ;;X08.00XA
  1. ;;9002226.02101,"166,X08.00XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X08.00XD ",.01)
  1. ;;X08.00XD
  1. ;;9002226.02101,"166,X08.00XD ",.02)
  1. ;;X08.00XD
  1. ;;9002226.02101,"166,X08.00XD ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X08.00XS ",.01)
  1. ;;X08.00XS
  1. ;;9002226.02101,"166,X08.00XS ",.02)
  1. ;;X08.00XS
  1. ;;9002226.02101,"166,X08.00XS ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X08.01XA ",.01)
  1. ;;X08.01XA
  1. ;;9002226.02101,"166,X08.01XA ",.02)
  1. ;;X08.01XA
  1. ;;9002226.02101,"166,X08.01XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X08.01XD ",.01)
  1. ;;X08.01XD
  1. ;;9002226.02101,"166,X08.01XD ",.02)
  1. ;;X08.01XD
  1. ;;9002226.02101,"166,X08.01XD ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X08.01XS ",.01)
  1. ;;X08.01XS
  1. ;;9002226.02101,"166,X08.01XS ",.02)
  1. ;;X08.01XS
  1. ;;9002226.02101,"166,X08.01XS ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X08.09XA ",.01)
  1. ;;X08.09XA
  1. ;;9002226.02101,"166,X08.09XA ",.02)
  1. ;;X08.09XA
  1. ;;9002226.02101,"166,X08.09XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X08.09XD ",.01)
  1. ;;X08.09XD
  1. ;;9002226.02101,"166,X08.09XD ",.02)
  1. ;;X08.09XD
  1. ;;9002226.02101,"166,X08.09XD ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X08.09XS ",.01)
  1. ;;X08.09XS
  1. ;;9002226.02101,"166,X08.09XS ",.02)
  1. ;;X08.09XS
  1. ;;9002226.02101,"166,X08.09XS ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X08.10XA ",.01)
  1. ;;X08.10XA
  1. ;;9002226.02101,"166,X08.10XA ",.02)
  1. ;;X08.10XA
  1. ;;9002226.02101,"166,X08.10XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X08.10XD ",.01)
  1. ;;X08.10XD
  1. ;;9002226.02101,"166,X08.10XD ",.02)
  1. ;;X08.10XD
  1. ;;9002226.02101,"166,X08.10XD ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X08.10XS ",.01)
  1. ;;X08.10XS
  1. ;;9002226.02101,"166,X08.10XS ",.02)
  1. ;;X08.10XS
  1. ;;9002226.02101,"166,X08.10XS ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X08.11XA ",.01)
  1. ;;X08.11XA
  1. ;;9002226.02101,"166,X08.11XA ",.02)
  1. ;;X08.11XA
  1. ;;9002226.02101,"166,X08.11XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X08.11XD ",.01)
  1. ;;X08.11XD
  1. ;;9002226.02101,"166,X08.11XD ",.02)
  1. ;;X08.11XD
  1. ;;9002226.02101,"166,X08.11XD ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X08.11XS ",.01)
  1. ;;X08.11XS
  1. ;;9002226.02101,"166,X08.11XS ",.02)
  1. ;;X08.11XS
  1. ;;9002226.02101,"166,X08.11XS ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X08.19XA ",.01)
  1. ;;X08.19XA
  1. ;;9002226.02101,"166,X08.19XA ",.02)
  1. ;;X08.19XA
  1. ;;9002226.02101,"166,X08.19XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X08.19XD ",.01)
  1. ;;X08.19XD
  1. ;;9002226.02101,"166,X08.19XD ",.02)
  1. ;;X08.19XD
  1. ;;9002226.02101,"166,X08.19XD ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X08.19XS ",.01)
  1. ;;X08.19XS
  1. ;;9002226.02101,"166,X08.19XS ",.02)
  1. ;;X08.19XS
  1. ;;9002226.02101,"166,X08.19XS ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X08.20XA ",.01)
  1. ;;X08.20XA
  1. ;;9002226.02101,"166,X08.20XA ",.02)
  1. ;;X08.20XA
  1. ;;9002226.02101,"166,X08.20XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X08.20XD ",.01)
  1. ;;X08.20XD
  1. ;;9002226.02101,"166,X08.20XD ",.02)
  1. ;;X08.20XD
  1. ;;9002226.02101,"166,X08.20XD ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X08.20XS ",.01)
  1. ;;X08.20XS
  1. ;;9002226.02101,"166,X08.20XS ",.02)
  1. ;;X08.20XS
  1. ;;9002226.02101,"166,X08.20XS ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X08.21XA ",.01)
  1. ;;X08.21XA
  1. ;;9002226.02101,"166,X08.21XA ",.02)
  1. ;;X08.21XA
  1. ;;9002226.02101,"166,X08.21XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X08.21XD ",.01)
  1. ;;X08.21XD
  1. ;;9002226.02101,"166,X08.21XD ",.02)
  1. ;;X08.21XD
  1. ;;9002226.02101,"166,X08.21XD ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X08.21XS ",.01)
  1. ;;X08.21XS
  1. ;;9002226.02101,"166,X08.21XS ",.02)
  1. ;;X08.21XS
  1. ;;9002226.02101,"166,X08.21XS ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X08.29XA ",.01)
  1. ;;X08.29XA
  1. ;;9002226.02101,"166,X08.29XA ",.02)
  1. ;;X08.29XA
  1. ;;9002226.02101,"166,X08.29XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X08.29XD ",.01)
  1. ;;X08.29XD
  1. ;;9002226.02101,"166,X08.29XD ",.02)
  1. ;;X08.29XD
  1. ;;9002226.02101,"166,X08.29XD ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X08.29XS ",.01)
  1. ;;X08.29XS
  1. ;;9002226.02101,"166,X08.29XS ",.02)
  1. ;;X08.29XS
  1. ;;9002226.02101,"166,X08.29XS ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X08.8XXA ",.01)
  1. ;;X08.8XXA
  1. ;;9002226.02101,"166,X08.8XXA ",.02)
  1. ;;X08.8XXA
  1. ;;9002226.02101,"166,X08.8XXA ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X08.8XXD ",.01)
  1. ;;X08.8XXD
  1. ;;9002226.02101,"166,X08.8XXD ",.02)
  1. ;;X08.8XXD
  1. ;;9002226.02101,"166,X08.8XXD ",.03)
  1. ;;30
  1. ;;9002226.02101,"166,X08.8XXS ",.01)
  1. ;;X08.8XXS
  1. ;;9002226.02101,"166,X08.8XXS ",.02)
  1. ;;X08.8XXS
  1. ;;9002226.02101,"166,X08.8XXS ",.03)
  1. ;;30
  1. ;;9002226.04101,"166,1",.01)
  1. ;;APCL