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

ATXD5G15.m

Go to the documentation of this file.
  1. ATXD5G15 ;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,"160,X98.8XXD ",.02)
  1. ;;X98.8XXD
  1. ;;9002226.02101,"160,X98.8XXD ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,X98.8XXS ",.01)
  1. ;;X98.8XXS
  1. ;;9002226.02101,"160,X98.8XXS ",.02)
  1. ;;X98.8XXS
  1. ;;9002226.02101,"160,X98.8XXS ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,X98.9XXA ",.01)
  1. ;;X98.9XXA
  1. ;;9002226.02101,"160,X98.9XXA ",.02)
  1. ;;X98.9XXA
  1. ;;9002226.02101,"160,X98.9XXA ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,X98.9XXD ",.01)
  1. ;;X98.9XXD
  1. ;;9002226.02101,"160,X98.9XXD ",.02)
  1. ;;X98.9XXD
  1. ;;9002226.02101,"160,X98.9XXD ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,X98.9XXS ",.01)
  1. ;;X98.9XXS
  1. ;;9002226.02101,"160,X98.9XXS ",.02)
  1. ;;X98.9XXS
  1. ;;9002226.02101,"160,X98.9XXS ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,X99.0XXA ",.01)
  1. ;;X99.0XXA
  1. ;;9002226.02101,"160,X99.0XXA ",.02)
  1. ;;X99.0XXA
  1. ;;9002226.02101,"160,X99.0XXA ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,X99.0XXD ",.01)
  1. ;;X99.0XXD
  1. ;;9002226.02101,"160,X99.0XXD ",.02)
  1. ;;X99.0XXD
  1. ;;9002226.02101,"160,X99.0XXD ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,X99.0XXS ",.01)
  1. ;;X99.0XXS
  1. ;;9002226.02101,"160,X99.0XXS ",.02)
  1. ;;X99.0XXS
  1. ;;9002226.02101,"160,X99.0XXS ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,X99.1XXA ",.01)
  1. ;;X99.1XXA
  1. ;;9002226.02101,"160,X99.1XXA ",.02)
  1. ;;X99.1XXA
  1. ;;9002226.02101,"160,X99.1XXA ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,X99.1XXD ",.01)
  1. ;;X99.1XXD
  1. ;;9002226.02101,"160,X99.1XXD ",.02)
  1. ;;X99.1XXD
  1. ;;9002226.02101,"160,X99.1XXD ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,X99.1XXS ",.01)
  1. ;;X99.1XXS
  1. ;;9002226.02101,"160,X99.1XXS ",.02)
  1. ;;X99.1XXS
  1. ;;9002226.02101,"160,X99.1XXS ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,X99.2XXA ",.01)
  1. ;;X99.2XXA
  1. ;;9002226.02101,"160,X99.2XXA ",.02)
  1. ;;X99.2XXA
  1. ;;9002226.02101,"160,X99.2XXA ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,X99.2XXD ",.01)
  1. ;;X99.2XXD
  1. ;;9002226.02101,"160,X99.2XXD ",.02)
  1. ;;X99.2XXD
  1. ;;9002226.02101,"160,X99.2XXD ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,X99.2XXS ",.01)
  1. ;;X99.2XXS
  1. ;;9002226.02101,"160,X99.2XXS ",.02)
  1. ;;X99.2XXS
  1. ;;9002226.02101,"160,X99.2XXS ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,X99.8XXA ",.01)
  1. ;;X99.8XXA
  1. ;;9002226.02101,"160,X99.8XXA ",.02)
  1. ;;X99.8XXA
  1. ;;9002226.02101,"160,X99.8XXA ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,X99.8XXD ",.01)
  1. ;;X99.8XXD
  1. ;;9002226.02101,"160,X99.8XXD ",.02)
  1. ;;X99.8XXD
  1. ;;9002226.02101,"160,X99.8XXD ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,X99.8XXS ",.01)
  1. ;;X99.8XXS
  1. ;;9002226.02101,"160,X99.8XXS ",.02)
  1. ;;X99.8XXS
  1. ;;9002226.02101,"160,X99.8XXS ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,X99.9XXA ",.01)
  1. ;;X99.9XXA
  1. ;;9002226.02101,"160,X99.9XXA ",.02)
  1. ;;X99.9XXA
  1. ;;9002226.02101,"160,X99.9XXA ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,X99.9XXD ",.01)
  1. ;;X99.9XXD
  1. ;;9002226.02101,"160,X99.9XXD ",.02)
  1. ;;X99.9XXD
  1. ;;9002226.02101,"160,X99.9XXD ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,X99.9XXS ",.01)
  1. ;;X99.9XXS
  1. ;;9002226.02101,"160,X99.9XXS ",.02)
  1. ;;X99.9XXS
  1. ;;9002226.02101,"160,X99.9XXS ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,Y00.XXXA ",.01)
  1. ;;Y00.XXXA
  1. ;;9002226.02101,"160,Y00.XXXA ",.02)
  1. ;;Y00.XXXA
  1. ;;9002226.02101,"160,Y00.XXXA ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,Y00.XXXD ",.01)
  1. ;;Y00.XXXD
  1. ;;9002226.02101,"160,Y00.XXXD ",.02)
  1. ;;Y00.XXXD
  1. ;;9002226.02101,"160,Y00.XXXD ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,Y00.XXXS ",.01)
  1. ;;Y00.XXXS
  1. ;;9002226.02101,"160,Y00.XXXS ",.02)
  1. ;;Y00.XXXS
  1. ;;9002226.02101,"160,Y00.XXXS ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,Y01.XXXA ",.01)
  1. ;;Y01.XXXA
  1. ;;9002226.02101,"160,Y01.XXXA ",.02)
  1. ;;Y01.XXXA
  1. ;;9002226.02101,"160,Y01.XXXA ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,Y01.XXXD ",.01)
  1. ;;Y01.XXXD
  1. ;;9002226.02101,"160,Y01.XXXD ",.02)
  1. ;;Y01.XXXD
  1. ;;9002226.02101,"160,Y01.XXXD ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,Y01.XXXS ",.01)
  1. ;;Y01.XXXS
  1. ;;9002226.02101,"160,Y01.XXXS ",.02)
  1. ;;Y01.XXXS
  1. ;;9002226.02101,"160,Y01.XXXS ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,Y02.0XXA ",.01)
  1. ;;Y02.0XXA
  1. ;;9002226.02101,"160,Y02.0XXA ",.02)
  1. ;;Y02.0XXA
  1. ;;9002226.02101,"160,Y02.0XXA ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,Y02.0XXD ",.01)
  1. ;;Y02.0XXD
  1. ;;9002226.02101,"160,Y02.0XXD ",.02)
  1. ;;Y02.0XXD
  1. ;;9002226.02101,"160,Y02.0XXD ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,Y02.0XXS ",.01)
  1. ;;Y02.0XXS
  1. ;;9002226.02101,"160,Y02.0XXS ",.02)
  1. ;;Y02.0XXS
  1. ;;9002226.02101,"160,Y02.0XXS ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,Y02.1XXA ",.01)
  1. ;;Y02.1XXA
  1. ;;9002226.02101,"160,Y02.1XXA ",.02)
  1. ;;Y02.1XXA
  1. ;;9002226.02101,"160,Y02.1XXA ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,Y02.1XXD ",.01)
  1. ;;Y02.1XXD
  1. ;;9002226.02101,"160,Y02.1XXD ",.02)
  1. ;;Y02.1XXD
  1. ;;9002226.02101,"160,Y02.1XXD ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,Y02.1XXS ",.01)
  1. ;;Y02.1XXS
  1. ;;9002226.02101,"160,Y02.1XXS ",.02)
  1. ;;Y02.1XXS
  1. ;;9002226.02101,"160,Y02.1XXS ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,Y02.8XXA ",.01)
  1. ;;Y02.8XXA
  1. ;;9002226.02101,"160,Y02.8XXA ",.02)
  1. ;;Y02.8XXA
  1. ;;9002226.02101,"160,Y02.8XXA ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,Y02.8XXD ",.01)
  1. ;;Y02.8XXD
  1. ;;9002226.02101,"160,Y02.8XXD ",.02)
  1. ;;Y02.8XXD
  1. ;;9002226.02101,"160,Y02.8XXD ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,Y02.8XXS ",.01)
  1. ;;Y02.8XXS
  1. ;;9002226.02101,"160,Y02.8XXS ",.02)
  1. ;;Y02.8XXS
  1. ;;9002226.02101,"160,Y02.8XXS ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,Y03.0XXA ",.01)
  1. ;;Y03.0XXA
  1. ;;9002226.02101,"160,Y03.0XXA ",.02)
  1. ;;Y03.0XXA
  1. ;;9002226.02101,"160,Y03.0XXA ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,Y03.0XXD ",.01)
  1. ;;Y03.0XXD
  1. ;;9002226.02101,"160,Y03.0XXD ",.02)
  1. ;;Y03.0XXD
  1. ;;9002226.02101,"160,Y03.0XXD ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,Y03.0XXS ",.01)
  1. ;;Y03.0XXS
  1. ;;9002226.02101,"160,Y03.0XXS ",.02)
  1. ;;Y03.0XXS
  1. ;;9002226.02101,"160,Y03.0XXS ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,Y03.8XXA ",.01)
  1. ;;Y03.8XXA
  1. ;;9002226.02101,"160,Y03.8XXA ",.02)
  1. ;;Y03.8XXA
  1. ;;9002226.02101,"160,Y03.8XXA ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,Y03.8XXD ",.01)
  1. ;;Y03.8XXD
  1. ;;9002226.02101,"160,Y03.8XXD ",.02)
  1. ;;Y03.8XXD
  1. ;;9002226.02101,"160,Y03.8XXD ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,Y03.8XXS ",.01)
  1. ;;Y03.8XXS
  1. ;;9002226.02101,"160,Y03.8XXS ",.02)
  1. ;;Y03.8XXS
  1. ;;9002226.02101,"160,Y03.8XXS ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,Y04.0XXA ",.01)
  1. ;;Y04.0XXA
  1. ;;9002226.02101,"160,Y04.0XXA ",.02)
  1. ;;Y04.0XXA
  1. ;;9002226.02101,"160,Y04.0XXA ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,Y04.0XXD ",.01)
  1. ;;Y04.0XXD
  1. ;;9002226.02101,"160,Y04.0XXD ",.02)
  1. ;;Y04.0XXD
  1. ;;9002226.02101,"160,Y04.0XXD ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,Y04.0XXS ",.01)
  1. ;;Y04.0XXS
  1. ;;9002226.02101,"160,Y04.0XXS ",.02)
  1. ;;Y04.0XXS
  1. ;;9002226.02101,"160,Y04.0XXS ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,Y04.1XXA ",.01)
  1. ;;Y04.1XXA
  1. ;;9002226.02101,"160,Y04.1XXA ",.02)
  1. ;;Y04.1XXA
  1. ;;9002226.02101,"160,Y04.1XXA ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,Y04.1XXD ",.01)
  1. ;;Y04.1XXD
  1. ;;9002226.02101,"160,Y04.1XXD ",.02)
  1. ;;Y04.1XXD
  1. ;;9002226.02101,"160,Y04.1XXD ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,Y04.1XXS ",.01)
  1. ;;Y04.1XXS
  1. ;;9002226.02101,"160,Y04.1XXS ",.02)
  1. ;;Y04.1XXS
  1. ;;9002226.02101,"160,Y04.1XXS ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,Y04.2XXA ",.01)
  1. ;;Y04.2XXA
  1. ;;9002226.02101,"160,Y04.2XXA ",.02)
  1. ;;Y04.2XXA
  1. ;;9002226.02101,"160,Y04.2XXA ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,Y04.2XXD ",.01)
  1. ;;Y04.2XXD
  1. ;;9002226.02101,"160,Y04.2XXD ",.02)
  1. ;;Y04.2XXD
  1. ;;9002226.02101,"160,Y04.2XXD ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,Y04.2XXS ",.01)
  1. ;;Y04.2XXS
  1. ;;9002226.02101,"160,Y04.2XXS ",.02)
  1. ;;Y04.2XXS
  1. ;;9002226.02101,"160,Y04.2XXS ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,Y04.8XXA ",.01)
  1. ;;Y04.8XXA
  1. ;;9002226.02101,"160,Y04.8XXA ",.02)
  1. ;;Y04.8XXA
  1. ;;9002226.02101,"160,Y04.8XXA ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,Y04.8XXD ",.01)
  1. ;;Y04.8XXD
  1. ;;9002226.02101,"160,Y04.8XXD ",.02)
  1. ;;Y04.8XXD
  1. ;;9002226.02101,"160,Y04.8XXD ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,Y04.8XXS ",.01)
  1. ;;Y04.8XXS
  1. ;;9002226.02101,"160,Y04.8XXS ",.02)
  1. ;;Y04.8XXS
  1. ;;9002226.02101,"160,Y04.8XXS ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,Y08.01XA ",.01)
  1. ;;Y08.01XA
  1. ;;9002226.02101,"160,Y08.01XA ",.02)
  1. ;;Y08.01XA
  1. ;;9002226.02101,"160,Y08.01XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,Y08.01XD ",.01)
  1. ;;Y08.01XD
  1. ;;9002226.02101,"160,Y08.01XD ",.02)
  1. ;;Y08.01XD
  1. ;;9002226.02101,"160,Y08.01XD ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,Y08.01XS ",.01)
  1. ;;Y08.01XS
  1. ;;9002226.02101,"160,Y08.01XS ",.02)
  1. ;;Y08.01XS
  1. ;;9002226.02101,"160,Y08.01XS ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,Y08.02XA ",.01)
  1. ;;Y08.02XA
  1. ;;9002226.02101,"160,Y08.02XA ",.02)
  1. ;;Y08.02XA
  1. ;;9002226.02101,"160,Y08.02XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,Y08.02XD ",.01)
  1. ;;Y08.02XD
  1. ;;9002226.02101,"160,Y08.02XD ",.02)
  1. ;;Y08.02XD
  1. ;;9002226.02101,"160,Y08.02XD ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,Y08.02XS ",.01)
  1. ;;Y08.02XS
  1. ;;9002226.02101,"160,Y08.02XS ",.02)
  1. ;;Y08.02XS
  1. ;;9002226.02101,"160,Y08.02XS ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,Y08.09XA ",.01)
  1. ;;Y08.09XA
  1. ;;9002226.02101,"160,Y08.09XA ",.02)
  1. ;;Y08.09XA
  1. ;;9002226.02101,"160,Y08.09XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,Y08.09XD ",.01)
  1. ;;Y08.09XD
  1. ;;9002226.02101,"160,Y08.09XD ",.02)
  1. ;;Y08.09XD
  1. ;;9002226.02101,"160,Y08.09XD ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,Y08.09XS ",.01)
  1. ;;Y08.09XS
  1. ;;9002226.02101,"160,Y08.09XS ",.02)
  1. ;;Y08.09XS
  1. ;;9002226.02101,"160,Y08.09XS ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,Y08.81XA ",.01)
  1. ;;Y08.81XA
  1. ;;9002226.02101,"160,Y08.81XA ",.02)
  1. ;;Y08.81XA
  1. ;;9002226.02101,"160,Y08.81XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,Y08.81XD ",.01)
  1. ;;Y08.81XD
  1. ;;9002226.02101,"160,Y08.81XD ",.02)
  1. ;;Y08.81XD
  1. ;;9002226.02101,"160,Y08.81XD ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,Y08.81XS ",.01)
  1. ;;Y08.81XS
  1. ;;9002226.02101,"160,Y08.81XS ",.02)
  1. ;;Y08.81XS
  1. ;;9002226.02101,"160,Y08.81XS ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,Y08.89XA ",.01)
  1. ;;Y08.89XA
  1. ;;9002226.02101,"160,Y08.89XA ",.02)
  1. ;;Y08.89XA
  1. ;;9002226.02101,"160,Y08.89XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,Y08.89XD ",.01)
  1. ;;Y08.89XD
  1. ;;9002226.02101,"160,Y08.89XD ",.02)
  1. ;;Y08.89XD
  1. ;;9002226.02101,"160,Y08.89XD ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,Y08.89XS ",.01)
  1. ;;Y08.89XS
  1. ;;9002226.02101,"160,Y08.89XS ",.02)
  1. ;;Y08.89XS
  1. ;;9002226.02101,"160,Y08.89XS ",.03)
  1. ;;30
  1. ;;9002226.02101,"160,Y09. ",.01)
  1. ;;Y09.
  1. ;;9002226.02101,"160,Y09. ",.02)
  1. ;;Y09.
  1. ;;9002226.02101,"160,Y09. ",.03)
  1. ;;30
  1. ;;9002226.04101,"160,1",.01)
  1. ;;APCL