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

ATXD5L3.m

Go to the documentation of this file.
ATXD5L3 ;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,"165,W09.1XXS ",.02)
 ;;W09.1XXS 
 ;;9002226.02101,"165,W09.1XXS ",.03)
 ;;30
 ;;9002226.02101,"165,W09.2XXA ",.01)
 ;;W09.2XXA 
 ;;9002226.02101,"165,W09.2XXA ",.02)
 ;;W09.2XXA 
 ;;9002226.02101,"165,W09.2XXA ",.03)
 ;;30
 ;;9002226.02101,"165,W09.2XXD ",.01)
 ;;W09.2XXD 
 ;;9002226.02101,"165,W09.2XXD ",.02)
 ;;W09.2XXD 
 ;;9002226.02101,"165,W09.2XXD ",.03)
 ;;30
 ;;9002226.02101,"165,W09.2XXS ",.01)
 ;;W09.2XXS 
 ;;9002226.02101,"165,W09.2XXS ",.02)
 ;;W09.2XXS 
 ;;9002226.02101,"165,W09.2XXS ",.03)
 ;;30
 ;;9002226.02101,"165,W09.8XXA ",.01)
 ;;W09.8XXA 
 ;;9002226.02101,"165,W09.8XXA ",.02)
 ;;W09.8XXA 
 ;;9002226.02101,"165,W09.8XXA ",.03)
 ;;30
 ;;9002226.02101,"165,W09.8XXD ",.01)
 ;;W09.8XXD 
 ;;9002226.02101,"165,W09.8XXD ",.02)
 ;;W09.8XXD 
 ;;9002226.02101,"165,W09.8XXD ",.03)
 ;;30
 ;;9002226.02101,"165,W09.8XXS ",.01)
 ;;W09.8XXS 
 ;;9002226.02101,"165,W09.8XXS ",.02)
 ;;W09.8XXS 
 ;;9002226.02101,"165,W09.8XXS ",.03)
 ;;30
 ;;9002226.02101,"165,W10.0XXA ",.01)
 ;;W10.0XXA 
 ;;9002226.02101,"165,W10.0XXA ",.02)
 ;;W10.0XXA 
 ;;9002226.02101,"165,W10.0XXA ",.03)
 ;;30
 ;;9002226.02101,"165,W10.0XXD ",.01)
 ;;W10.0XXD 
 ;;9002226.02101,"165,W10.0XXD ",.02)
 ;;W10.0XXD 
 ;;9002226.02101,"165,W10.0XXD ",.03)
 ;;30
 ;;9002226.02101,"165,W10.0XXS ",.01)
 ;;W10.0XXS 
 ;;9002226.02101,"165,W10.0XXS ",.02)
 ;;W10.0XXS 
 ;;9002226.02101,"165,W10.0XXS ",.03)
 ;;30
 ;;9002226.02101,"165,W10.1XXA ",.01)
 ;;W10.1XXA 
 ;;9002226.02101,"165,W10.1XXA ",.02)
 ;;W10.1XXA 
 ;;9002226.02101,"165,W10.1XXA ",.03)
 ;;30
 ;;9002226.02101,"165,W10.1XXD ",.01)
 ;;W10.1XXD 
 ;;9002226.02101,"165,W10.1XXD ",.02)
 ;;W10.1XXD 
 ;;9002226.02101,"165,W10.1XXD ",.03)
 ;;30
 ;;9002226.02101,"165,W10.1XXS ",.01)
 ;;W10.1XXS 
 ;;9002226.02101,"165,W10.1XXS ",.02)
 ;;W10.1XXS 
 ;;9002226.02101,"165,W10.1XXS ",.03)
 ;;30
 ;;9002226.02101,"165,W10.2XXA ",.01)
 ;;W10.2XXA 
 ;;9002226.02101,"165,W10.2XXA ",.02)
 ;;W10.2XXA 
 ;;9002226.02101,"165,W10.2XXA ",.03)
 ;;30
 ;;9002226.02101,"165,W10.2XXD ",.01)
 ;;W10.2XXD 
 ;;9002226.02101,"165,W10.2XXD ",.02)
 ;;W10.2XXD 
 ;;9002226.02101,"165,W10.2XXD ",.03)
 ;;30
 ;;9002226.02101,"165,W10.2XXS ",.01)
 ;;W10.2XXS 
 ;;9002226.02101,"165,W10.2XXS ",.02)
 ;;W10.2XXS 
 ;;9002226.02101,"165,W10.2XXS ",.03)
 ;;30
 ;;9002226.02101,"165,W10.8XXA ",.01)
 ;;W10.8XXA 
 ;;9002226.02101,"165,W10.8XXA ",.02)
 ;;W10.8XXA 
 ;;9002226.02101,"165,W10.8XXA ",.03)
 ;;30
 ;;9002226.02101,"165,W10.8XXD ",.01)
 ;;W10.8XXD 
 ;;9002226.02101,"165,W10.8XXD ",.02)
 ;;W10.8XXD 
 ;;9002226.02101,"165,W10.8XXD ",.03)
 ;;30
 ;;9002226.02101,"165,W10.8XXS ",.01)
 ;;W10.8XXS 
 ;;9002226.02101,"165,W10.8XXS ",.02)
 ;;W10.8XXS 
 ;;9002226.02101,"165,W10.8XXS ",.03)
 ;;30
 ;;9002226.02101,"165,W10.9XXA ",.01)
 ;;W10.9XXA 
 ;;9002226.02101,"165,W10.9XXA ",.02)
 ;;W10.9XXA 
 ;;9002226.02101,"165,W10.9XXA ",.03)
 ;;30
 ;;9002226.02101,"165,W10.9XXD ",.01)
 ;;W10.9XXD 
 ;;9002226.02101,"165,W10.9XXD ",.02)
 ;;W10.9XXD 
 ;;9002226.02101,"165,W10.9XXD ",.03)
 ;;30
 ;;9002226.02101,"165,W10.9XXS ",.01)
 ;;W10.9XXS 
 ;;9002226.02101,"165,W10.9XXS ",.02)
 ;;W10.9XXS 
 ;;9002226.02101,"165,W10.9XXS ",.03)
 ;;30
 ;;9002226.02101,"165,W11.XXXA ",.01)
 ;;W11.XXXA 
 ;;9002226.02101,"165,W11.XXXA ",.02)
 ;;W11.XXXA 
 ;;9002226.02101,"165,W11.XXXA ",.03)
 ;;30
 ;;9002226.02101,"165,W11.XXXD ",.01)
 ;;W11.XXXD 
 ;;9002226.02101,"165,W11.XXXD ",.02)
 ;;W11.XXXD 
 ;;9002226.02101,"165,W11.XXXD ",.03)
 ;;30
 ;;9002226.02101,"165,W11.XXXS ",.01)
 ;;W11.XXXS 
 ;;9002226.02101,"165,W11.XXXS ",.02)
 ;;W11.XXXS 
 ;;9002226.02101,"165,W11.XXXS ",.03)
 ;;30
 ;;9002226.02101,"165,W12.XXXA ",.01)
 ;;W12.XXXA 
 ;;9002226.02101,"165,W12.XXXA ",.02)
 ;;W12.XXXA 
 ;;9002226.02101,"165,W12.XXXA ",.03)
 ;;30
 ;;9002226.02101,"165,W12.XXXD ",.01)
 ;;W12.XXXD 
 ;;9002226.02101,"165,W12.XXXD ",.02)
 ;;W12.XXXD 
 ;;9002226.02101,"165,W12.XXXD ",.03)
 ;;30
 ;;9002226.02101,"165,W12.XXXS ",.01)
 ;;W12.XXXS 
 ;;9002226.02101,"165,W12.XXXS ",.02)
 ;;W12.XXXS 
 ;;9002226.02101,"165,W12.XXXS ",.03)
 ;;30
 ;;9002226.02101,"165,W13.0XXA ",.01)
 ;;W13.0XXA 
 ;;9002226.02101,"165,W13.0XXA ",.02)
 ;;W13.0XXA 
 ;;9002226.02101,"165,W13.0XXA ",.03)
 ;;30
 ;;9002226.02101,"165,W13.0XXD ",.01)
 ;;W13.0XXD 
 ;;9002226.02101,"165,W13.0XXD ",.02)
 ;;W13.0XXD 
 ;;9002226.02101,"165,W13.0XXD ",.03)
 ;;30
 ;;9002226.02101,"165,W13.0XXS ",.01)
 ;;W13.0XXS 
 ;;9002226.02101,"165,W13.0XXS ",.02)
 ;;W13.0XXS 
 ;;9002226.02101,"165,W13.0XXS ",.03)
 ;;30
 ;;9002226.02101,"165,W13.1XXA ",.01)
 ;;W13.1XXA 
 ;;9002226.02101,"165,W13.1XXA ",.02)
 ;;W13.1XXA 
 ;;9002226.02101,"165,W13.1XXA ",.03)
 ;;30
 ;;9002226.02101,"165,W13.1XXD ",.01)
 ;;W13.1XXD 
 ;;9002226.02101,"165,W13.1XXD ",.02)
 ;;W13.1XXD 
 ;;9002226.02101,"165,W13.1XXD ",.03)
 ;;30
 ;;9002226.02101,"165,W13.1XXS ",.01)
 ;;W13.1XXS 
 ;;9002226.02101,"165,W13.1XXS ",.02)
 ;;W13.1XXS 
 ;;9002226.02101,"165,W13.1XXS ",.03)
 ;;30
 ;;9002226.02101,"165,W13.2XXA ",.01)
 ;;W13.2XXA 
 ;;9002226.02101,"165,W13.2XXA ",.02)
 ;;W13.2XXA 
 ;;9002226.02101,"165,W13.2XXA ",.03)
 ;;30
 ;;9002226.02101,"165,W13.2XXD ",.01)
 ;;W13.2XXD 
 ;;9002226.02101,"165,W13.2XXD ",.02)
 ;;W13.2XXD 
 ;;9002226.02101,"165,W13.2XXD ",.03)
 ;;30
 ;;9002226.02101,"165,W13.2XXS ",.01)
 ;;W13.2XXS 
 ;;9002226.02101,"165,W13.2XXS ",.02)
 ;;W13.2XXS 
 ;;9002226.02101,"165,W13.2XXS ",.03)
 ;;30
 ;;9002226.02101,"165,W13.3XXA ",.01)
 ;;W13.3XXA 
 ;;9002226.02101,"165,W13.3XXA ",.02)
 ;;W13.3XXA 
 ;;9002226.02101,"165,W13.3XXA ",.03)
 ;;30
 ;;9002226.02101,"165,W13.3XXD ",.01)
 ;;W13.3XXD 
 ;;9002226.02101,"165,W13.3XXD ",.02)
 ;;W13.3XXD 
 ;;9002226.02101,"165,W13.3XXD ",.03)
 ;;30
 ;;9002226.02101,"165,W13.3XXS ",.01)
 ;;W13.3XXS 
 ;;9002226.02101,"165,W13.3XXS ",.02)
 ;;W13.3XXS 
 ;;9002226.02101,"165,W13.3XXS ",.03)
 ;;30
 ;;9002226.02101,"165,W13.4XXA ",.01)
 ;;W13.4XXA 
 ;;9002226.02101,"165,W13.4XXA ",.02)
 ;;W13.4XXA 
 ;;9002226.02101,"165,W13.4XXA ",.03)
 ;;30
 ;;9002226.02101,"165,W13.4XXD ",.01)
 ;;W13.4XXD 
 ;;9002226.02101,"165,W13.4XXD ",.02)
 ;;W13.4XXD 
 ;;9002226.02101,"165,W13.4XXD ",.03)
 ;;30
 ;;9002226.02101,"165,W13.4XXS ",.01)
 ;;W13.4XXS 
 ;;9002226.02101,"165,W13.4XXS ",.02)
 ;;W13.4XXS 
 ;;9002226.02101,"165,W13.4XXS ",.03)
 ;;30
 ;;9002226.02101,"165,W13.8XXA ",.01)
 ;;W13.8XXA 
 ;;9002226.02101,"165,W13.8XXA ",.02)
 ;;W13.8XXA 
 ;;9002226.02101,"165,W13.8XXA ",.03)
 ;;30
 ;;9002226.02101,"165,W13.8XXD ",.01)
 ;;W13.8XXD 
 ;;9002226.02101,"165,W13.8XXD ",.02)
 ;;W13.8XXD 
 ;;9002226.02101,"165,W13.8XXD ",.03)
 ;;30
 ;;9002226.02101,"165,W13.8XXS ",.01)
 ;;W13.8XXS 
 ;;9002226.02101,"165,W13.8XXS ",.02)
 ;;W13.8XXS 
 ;;9002226.02101,"165,W13.8XXS ",.03)
 ;;30
 ;;9002226.02101,"165,W13.9XXA ",.01)
 ;;W13.9XXA 
 ;;9002226.02101,"165,W13.9XXA ",.02)
 ;;W13.9XXA 
 ;;9002226.02101,"165,W13.9XXA ",.03)
 ;;30
 ;;9002226.02101,"165,W13.9XXD ",.01)
 ;;W13.9XXD 
 ;;9002226.02101,"165,W13.9XXD ",.02)
 ;;W13.9XXD 
 ;;9002226.02101,"165,W13.9XXD ",.03)
 ;;30
 ;;9002226.02101,"165,W13.9XXS ",.01)
 ;;W13.9XXS 
 ;;9002226.02101,"165,W13.9XXS ",.02)
 ;;W13.9XXS 
 ;;9002226.02101,"165,W13.9XXS ",.03)
 ;;30
 ;;9002226.02101,"165,W14.XXXA ",.01)
 ;;W14.XXXA 
 ;;9002226.02101,"165,W14.XXXA ",.02)
 ;;W14.XXXA 
 ;;9002226.02101,"165,W14.XXXA ",.03)
 ;;30
 ;;9002226.02101,"165,W14.XXXD ",.01)
 ;;W14.XXXD 
 ;;9002226.02101,"165,W14.XXXD ",.02)
 ;;W14.XXXD 
 ;;9002226.02101,"165,W14.XXXD ",.03)
 ;;30
 ;;9002226.02101,"165,W14.XXXS ",.01)
 ;;W14.XXXS 
 ;;9002226.02101,"165,W14.XXXS ",.02)
 ;;W14.XXXS 
 ;;9002226.02101,"165,W14.XXXS ",.03)
 ;;30
 ;;9002226.02101,"165,W15.XXXA ",.01)
 ;;W15.XXXA 
 ;;9002226.02101,"165,W15.XXXA ",.02)
 ;;W15.XXXA 
 ;;9002226.02101,"165,W15.XXXA ",.03)
 ;;30
 ;;9002226.02101,"165,W15.XXXD ",.01)
 ;;W15.XXXD 
 ;;9002226.02101,"165,W15.XXXD ",.02)
 ;;W15.XXXD 
 ;;9002226.02101,"165,W15.XXXD ",.03)
 ;;30
 ;;9002226.02101,"165,W15.XXXS ",.01)
 ;;W15.XXXS 
 ;;9002226.02101,"165,W15.XXXS ",.02)
 ;;W15.XXXS 
 ;;9002226.02101,"165,W15.XXXS ",.03)
 ;;30
 ;;9002226.02101,"165,W16.011A ",.01)
 ;;W16.011A 
 ;;9002226.02101,"165,W16.011A ",.02)
 ;;W16.011A 
 ;;9002226.02101,"165,W16.011A ",.03)
 ;;30
 ;;9002226.02101,"165,W16.011D ",.01)
 ;;W16.011D 
 ;;9002226.02101,"165,W16.011D ",.02)
 ;;W16.011D 
 ;;9002226.02101,"165,W16.011D ",.03)
 ;;30
 ;;9002226.02101,"165,W16.011S ",.01)
 ;;W16.011S 
 ;;9002226.02101,"165,W16.011S ",.02)
 ;;W16.011S 
 ;;9002226.02101,"165,W16.011S ",.03)
 ;;30
 ;;9002226.02101,"165,W16.012A ",.01)
 ;;W16.012A 
 ;;9002226.02101,"165,W16.012A ",.02)
 ;;W16.012A 
 ;;9002226.02101,"165,W16.012A ",.03)
 ;;30
 ;;9002226.02101,"165,W16.012D ",.01)
 ;;W16.012D 
 ;;9002226.02101,"165,W16.012D ",.02)
 ;;W16.012D 
 ;;9002226.02101,"165,W16.012D ",.03)
 ;;30
 ;;9002226.02101,"165,W16.012S ",.01)
 ;;W16.012S 
 ;;9002226.02101,"165,W16.012S ",.02)
 ;;W16.012S 
 ;;9002226.02101,"165,W16.012S ",.03)
 ;;30
 ;;9002226.02101,"165,W16.021A ",.01)
 ;;W16.021A 
 ;;9002226.02101,"165,W16.021A ",.02)
 ;;W16.021A 
 ;;9002226.02101,"165,W16.021A ",.03)
 ;;30
 ;;9002226.02101,"165,W16.021D ",.01)
 ;;W16.021D 
 ;;9002226.02101,"165,W16.021D ",.02)
 ;;W16.021D 
 ;;9002226.02101,"165,W16.021D ",.03)
 ;;30
 ;;9002226.02101,"165,W16.021S ",.01)
 ;;W16.021S 
 ;;9002226.02101,"165,W16.021S ",.02)
 ;;W16.021S 
 ;;9002226.02101,"165,W16.021S ",.03)
 ;;30
 ;;9002226.02101,"165,W16.022A ",.01)
 ;;W16.022A 
 ;;9002226.02101,"165,W16.022A ",.02)
 ;;W16.022A 
 ;;9002226.02101,"165,W16.022A ",.03)
 ;;30
 ;;9002226.02101,"165,W16.022D ",.01)
 ;;W16.022D 
 ;;9002226.02101,"165,W16.022D ",.02)
 ;;W16.022D 
 ;;9002226.02101,"165,W16.022D ",.03)
 ;;30
 ;;9002226.02101,"165,W16.022S ",.01)
 ;;W16.022S 
 ;;9002226.02101,"165,W16.022S ",.02)
 ;;W16.022S 
 ;;9002226.02101,"165,W16.022S ",.03)
 ;;30
 ;;9002226.02101,"165,W16.031A ",.01)
 ;;W16.031A 
 ;;9002226.02101,"165,W16.031A ",.02)
 ;;W16.031A 
 ;;9002226.02101,"165,W16.031A ",.03)
 ;;30
 ;;9002226.02101,"165,W16.031D ",.01)
 ;;W16.031D 
 ;;9002226.02101,"165,W16.031D ",.02)
 ;;W16.031D 
 ;;9002226.02101,"165,W16.031D ",.03)
 ;;30
 ;;9002226.02101,"165,W16.031S ",.01)
 ;;W16.031S 
 ;;9002226.02101,"165,W16.031S ",.02)
 ;;W16.031S 
 ;;9002226.02101,"165,W16.031S ",.03)
 ;;30
 ;;9002226.02101,"165,W16.032A ",.01)
 ;;W16.032A 
 ;;9002226.02101,"165,W16.032A ",.02)
 ;;W16.032A 
 ;;9002226.02101,"165,W16.032A ",.03)
 ;;30
 ;;9002226.02101,"165,W16.032D ",.01)
 ;;W16.032D 
 ;;9002226.02101,"165,W16.032D ",.02)
 ;;W16.032D 
 ;;9002226.02101,"165,W16.032D ",.03)
 ;;30
 ;;9002226.02101,"165,W16.032S ",.01)
 ;;W16.032S 
 ;;9002226.02101,"165,W16.032S ",.02)
 ;;W16.032S 
 ;;9002226.02101,"165,W16.032S ",.03)
 ;;30
 ;;9002226.02101,"165,W16.111A ",.01)
 ;;W16.111A 
 ;;9002226.02101,"165,W16.111A ",.02)
 ;;W16.111A 
 ;;9002226.02101,"165,W16.111A ",.03)
 ;;30
 ;;9002226.02101,"165,W16.111D ",.01)
 ;;W16.111D 
 ;;9002226.02101,"165,W16.111D ",.02)
 ;;W16.111D 
 ;;9002226.02101,"165,W16.111D ",.03)
 ;;30
 ;;9002226.02101,"165,W16.111S ",.01)
 ;;W16.111S 
 ;;9002226.02101,"165,W16.111S ",.02)
 ;;W16.111S 
 ;;9002226.02101,"165,W16.111S ",.03)
 ;;30
 ;;9002226.02101,"165,W16.112A ",.01)
 ;;W16.112A 
 ;;9002226.02101,"165,W16.112A ",.02)
 ;;W16.112A 
 ;;9002226.02101,"165,W16.112A ",.03)
 ;;30
 ;;9002226.02101,"165,W16.112D ",.01)
 ;;W16.112D 
 ;;9002226.02101,"165,W16.112D ",.02)
 ;;W16.112D 
 ;;9002226.02101,"165,W16.112D ",.03)
 ;;30
 ;;9002226.02101,"165,W16.112S ",.01)
 ;;W16.112S 
 ;;9002226.02101,"165,W16.112S ",.02)
 ;;W16.112S 
 ;;9002226.02101,"165,W16.112S ",.03)
 ;;30
 ;;9002226.02101,"165,W16.121A ",.01)
 ;;W16.121A 
 ;;9002226.02101,"165,W16.121A ",.02)
 ;;W16.121A 
 ;;9002226.02101,"165,W16.121A ",.03)
 ;;30
 ;;9002226.02101,"165,W16.121D ",.01)
 ;;W16.121D 
 ;;9002226.02101,"165,W16.121D ",.02)
 ;;W16.121D 
 ;;9002226.02101,"165,W16.121D ",.03)
 ;;30
 ;;9002226.02101,"165,W16.121S ",.01)
 ;;W16.121S 
 ;;9002226.02101,"165,W16.121S ",.02)
 ;;W16.121S 
 ;;9002226.02101,"165,W16.121S ",.03)
 ;;30
 ;;9002226.02101,"165,W16.122A ",.01)
 ;;W16.122A 
 ;;9002226.02101,"165,W16.122A ",.02)
 ;;W16.122A 
 ;;9002226.02101,"165,W16.122A ",.03)
 ;;30
 ;;9002226.02101,"165,W16.122D ",.01)
 ;;W16.122D 
 ;;9002226.02101,"165,W16.122D ",.02)
 ;;W16.122D 
 ;;9002226.02101,"165,W16.122D ",.03)
 ;;30
 ;;9002226.02101,"165,W16.122S ",.01)
 ;;W16.122S 
 ;;9002226.02101,"165,W16.122S ",.02)
 ;;W16.122S 
 ;;9002226.02101,"165,W16.122S ",.03)
 ;;30
 ;;9002226.02101,"165,W16.131A ",.01)
 ;;W16.131A 
 ;;9002226.02101,"165,W16.131A ",.02)
 ;;W16.131A 
 ;;9002226.02101,"165,W16.131A ",.03)
 ;;30
 ;;9002226.02101,"165,W16.131D ",.01)
 ;;W16.131D 
 ;;9002226.02101,"165,W16.131D ",.02)
 ;;W16.131D 
 ;;9002226.02101,"165,W16.131D ",.03)
 ;;30
 ;;9002226.02101,"165,W16.131S ",.01)
 ;;W16.131S 
 ;;9002226.02101,"165,W16.131S ",.02)
 ;;W16.131S 
 ;;9002226.02101,"165,W16.131S ",.03)
 ;;30
 ;;9002226.02101,"165,W16.132A ",.01)
 ;;W16.132A 
 ;;9002226.02101,"165,W16.132A ",.02)
 ;;W16.132A 
 ;;9002226.02101,"165,W16.132A ",.03)
 ;;30
 ;;9002226.02101,"165,W16.132D ",.01)
 ;;W16.132D 
 ;;9002226.02101,"165,W16.132D ",.02)
 ;;W16.132D 
 ;;9002226.02101,"165,W16.132D ",.03)
 ;;30