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

ATXD1S14.m

Go to the documentation of this file.
ATXD1S14 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON OCT 28, 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,"821,V79.19XA ",.02)
 ;;V79.19XA
 ;;9002226.02101,"821,V79.19XA ",.03)
 ;;30
 ;;9002226.02101,"821,V79.20XA ",.01)
 ;;V79.20XA
 ;;9002226.02101,"821,V79.20XA ",.02)
 ;;V79.20XA
 ;;9002226.02101,"821,V79.20XA ",.03)
 ;;30
 ;;9002226.02101,"821,V79.29XA ",.01)
 ;;V79.29XA
 ;;9002226.02101,"821,V79.29XA ",.02)
 ;;V79.29XA
 ;;9002226.02101,"821,V79.29XA ",.03)
 ;;30
 ;;9002226.02101,"821,V79.3XXA ",.01)
 ;;V79.3XXA
 ;;9002226.02101,"821,V79.3XXA ",.02)
 ;;V79.3XXA
 ;;9002226.02101,"821,V79.3XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V79.40XA ",.01)
 ;;V79.40XA
 ;;9002226.02101,"821,V79.40XA ",.02)
 ;;V79.40XA
 ;;9002226.02101,"821,V79.40XA ",.03)
 ;;30
 ;;9002226.02101,"821,V79.49XA ",.01)
 ;;V79.49XA
 ;;9002226.02101,"821,V79.49XA ",.02)
 ;;V79.49XA
 ;;9002226.02101,"821,V79.49XA ",.03)
 ;;30
 ;;9002226.02101,"821,V79.50XA ",.01)
 ;;V79.50XA
 ;;9002226.02101,"821,V79.50XA ",.02)
 ;;V79.50XA
 ;;9002226.02101,"821,V79.50XA ",.03)
 ;;30
 ;;9002226.02101,"821,V79.59XA ",.01)
 ;;V79.59XA
 ;;9002226.02101,"821,V79.59XA ",.02)
 ;;V79.59XA
 ;;9002226.02101,"821,V79.59XA ",.03)
 ;;30
 ;;9002226.02101,"821,V79.60XA ",.01)
 ;;V79.60XA
 ;;9002226.02101,"821,V79.60XA ",.02)
 ;;V79.60XA
 ;;9002226.02101,"821,V79.60XA ",.03)
 ;;30
 ;;9002226.02101,"821,V79.69XA ",.01)
 ;;V79.69XA
 ;;9002226.02101,"821,V79.69XA ",.02)
 ;;V79.69XA
 ;;9002226.02101,"821,V79.69XA ",.03)
 ;;30
 ;;9002226.02101,"821,V79.81XA ",.01)
 ;;V79.81XA
 ;;9002226.02101,"821,V79.81XA ",.02)
 ;;V79.81XA
 ;;9002226.02101,"821,V79.81XA ",.03)
 ;;30
 ;;9002226.02101,"821,V79.88XA ",.01)
 ;;V79.88XA
 ;;9002226.02101,"821,V79.88XA ",.02)
 ;;V79.88XA
 ;;9002226.02101,"821,V79.88XA ",.03)
 ;;30
 ;;9002226.02101,"821,V79.9XXA ",.01)
 ;;V79.9XXA
 ;;9002226.02101,"821,V79.9XXA ",.02)
 ;;V79.9XXA
 ;;9002226.02101,"821,V79.9XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V80.010A ",.01)
 ;;V80.010A
 ;;9002226.02101,"821,V80.010A ",.02)
 ;;V80.010A
 ;;9002226.02101,"821,V80.010A ",.03)
 ;;30
 ;;9002226.02101,"821,V80.018A ",.01)
 ;;V80.018A
 ;;9002226.02101,"821,V80.018A ",.02)
 ;;V80.018A
 ;;9002226.02101,"821,V80.018A ",.03)
 ;;30
 ;;9002226.02101,"821,V80.02XA ",.01)
 ;;V80.02XA
 ;;9002226.02101,"821,V80.02XA ",.02)
 ;;V80.02XA
 ;;9002226.02101,"821,V80.02XA ",.03)
 ;;30
 ;;9002226.02101,"821,V80.11XA ",.01)
 ;;V80.11XA
 ;;9002226.02101,"821,V80.11XA ",.02)
 ;;V80.11XA
 ;;9002226.02101,"821,V80.11XA ",.03)
 ;;30
 ;;9002226.02101,"821,V80.12XA ",.01)
 ;;V80.12XA
 ;;9002226.02101,"821,V80.12XA ",.02)
 ;;V80.12XA
 ;;9002226.02101,"821,V80.12XA ",.03)
 ;;30
 ;;9002226.02101,"821,V80.21XA ",.01)
 ;;V80.21XA
 ;;9002226.02101,"821,V80.21XA ",.02)
 ;;V80.21XA
 ;;9002226.02101,"821,V80.21XA ",.03)
 ;;30
 ;;9002226.02101,"821,V80.22XA ",.01)
 ;;V80.22XA
 ;;9002226.02101,"821,V80.22XA ",.02)
 ;;V80.22XA
 ;;9002226.02101,"821,V80.22XA ",.03)
 ;;30
 ;;9002226.02101,"821,V80.31XA ",.01)
 ;;V80.31XA
 ;;9002226.02101,"821,V80.31XA ",.02)
 ;;V80.31XA
 ;;9002226.02101,"821,V80.31XA ",.03)
 ;;30
 ;;9002226.02101,"821,V80.32XA ",.01)
 ;;V80.32XA
 ;;9002226.02101,"821,V80.32XA ",.02)
 ;;V80.32XA
 ;;9002226.02101,"821,V80.32XA ",.03)
 ;;30
 ;;9002226.02101,"821,V80.41XA ",.01)
 ;;V80.41XA
 ;;9002226.02101,"821,V80.41XA ",.02)
 ;;V80.41XA
 ;;9002226.02101,"821,V80.41XA ",.03)
 ;;30
 ;;9002226.02101,"821,V80.42XA ",.01)
 ;;V80.42XA
 ;;9002226.02101,"821,V80.42XA ",.02)
 ;;V80.42XA
 ;;9002226.02101,"821,V80.42XA ",.03)
 ;;30
 ;;9002226.02101,"821,V80.51XA ",.01)
 ;;V80.51XA
 ;;9002226.02101,"821,V80.51XA ",.02)
 ;;V80.51XA
 ;;9002226.02101,"821,V80.51XA ",.03)
 ;;30
 ;;9002226.02101,"821,V80.52XA ",.01)
 ;;V80.52XA
 ;;9002226.02101,"821,V80.52XA ",.02)
 ;;V80.52XA
 ;;9002226.02101,"821,V80.52XA ",.03)
 ;;30
 ;;9002226.02101,"821,V80.61XA ",.01)
 ;;V80.61XA
 ;;9002226.02101,"821,V80.61XA ",.02)
 ;;V80.61XA
 ;;9002226.02101,"821,V80.61XA ",.03)
 ;;30
 ;;9002226.02101,"821,V80.62XA ",.01)
 ;;V80.62XA
 ;;9002226.02101,"821,V80.62XA ",.02)
 ;;V80.62XA
 ;;9002226.02101,"821,V80.62XA ",.03)
 ;;30
 ;;9002226.02101,"821,V80.710A ",.01)
 ;;V80.710A
 ;;9002226.02101,"821,V80.710A ",.02)
 ;;V80.710A
 ;;9002226.02101,"821,V80.710A ",.03)
 ;;30
 ;;9002226.02101,"821,V80.711A ",.01)
 ;;V80.711A
 ;;9002226.02101,"821,V80.711A ",.02)
 ;;V80.711A
 ;;9002226.02101,"821,V80.711A ",.03)
 ;;30
 ;;9002226.02101,"821,V80.720A ",.01)
 ;;V80.720A
 ;;9002226.02101,"821,V80.720A ",.02)
 ;;V80.720A
 ;;9002226.02101,"821,V80.720A ",.03)
 ;;30
 ;;9002226.02101,"821,V80.721A ",.01)
 ;;V80.721A
 ;;9002226.02101,"821,V80.721A ",.02)
 ;;V80.721A
 ;;9002226.02101,"821,V80.721A ",.03)
 ;;30
 ;;9002226.02101,"821,V80.730A ",.01)
 ;;V80.730A
 ;;9002226.02101,"821,V80.730A ",.02)
 ;;V80.730A
 ;;9002226.02101,"821,V80.730A ",.03)
 ;;30
 ;;9002226.02101,"821,V80.731A ",.01)
 ;;V80.731A
 ;;9002226.02101,"821,V80.731A ",.02)
 ;;V80.731A
 ;;9002226.02101,"821,V80.731A ",.03)
 ;;30
 ;;9002226.02101,"821,V80.790A ",.01)
 ;;V80.790A
 ;;9002226.02101,"821,V80.790A ",.02)
 ;;V80.790A
 ;;9002226.02101,"821,V80.790A ",.03)
 ;;30
 ;;9002226.02101,"821,V80.791A ",.01)
 ;;V80.791A
 ;;9002226.02101,"821,V80.791A ",.02)
 ;;V80.791A
 ;;9002226.02101,"821,V80.791A ",.03)
 ;;30
 ;;9002226.02101,"821,V80.81XA ",.01)
 ;;V80.81XA
 ;;9002226.02101,"821,V80.81XA ",.02)
 ;;V80.81XA
 ;;9002226.02101,"821,V80.81XA ",.03)
 ;;30
 ;;9002226.02101,"821,V80.82XA ",.01)
 ;;V80.82XA
 ;;9002226.02101,"821,V80.82XA ",.02)
 ;;V80.82XA
 ;;9002226.02101,"821,V80.82XA ",.03)
 ;;30
 ;;9002226.02101,"821,V80.910A ",.01)
 ;;V80.910A
 ;;9002226.02101,"821,V80.910A ",.02)
 ;;V80.910A
 ;;9002226.02101,"821,V80.910A ",.03)
 ;;30
 ;;9002226.02101,"821,V80.918A ",.01)
 ;;V80.918A
 ;;9002226.02101,"821,V80.918A ",.02)
 ;;V80.918A
 ;;9002226.02101,"821,V80.918A ",.03)
 ;;30
 ;;9002226.02101,"821,V80.919A ",.01)
 ;;V80.919A
 ;;9002226.02101,"821,V80.919A ",.02)
 ;;V80.919A
 ;;9002226.02101,"821,V80.919A ",.03)
 ;;30
 ;;9002226.02101,"821,V80.920A ",.01)
 ;;V80.920A
 ;;9002226.02101,"821,V80.920A ",.02)
 ;;V80.920A
 ;;9002226.02101,"821,V80.920A ",.03)
 ;;30
 ;;9002226.02101,"821,V80.928A ",.01)
 ;;V80.928A
 ;;9002226.02101,"821,V80.928A ",.02)
 ;;V80.928A
 ;;9002226.02101,"821,V80.928A ",.03)
 ;;30
 ;;9002226.02101,"821,V80.929A ",.01)
 ;;V80.929A
 ;;9002226.02101,"821,V80.929A ",.02)
 ;;V80.929A
 ;;9002226.02101,"821,V80.929A ",.03)
 ;;30
 ;;9002226.02101,"821,V81.0XXA ",.01)
 ;;V81.0XXA
 ;;9002226.02101,"821,V81.0XXA ",.02)
 ;;V81.0XXA
 ;;9002226.02101,"821,V81.0XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V81.1XXA ",.01)
 ;;V81.1XXA
 ;;9002226.02101,"821,V81.1XXA ",.02)
 ;;V81.1XXA
 ;;9002226.02101,"821,V81.1XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V81.2XXA ",.01)
 ;;V81.2XXA
 ;;9002226.02101,"821,V81.2XXA ",.02)
 ;;V81.2XXA
 ;;9002226.02101,"821,V81.2XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V81.3XXA ",.01)
 ;;V81.3XXA
 ;;9002226.02101,"821,V81.3XXA ",.02)
 ;;V81.3XXA
 ;;9002226.02101,"821,V81.3XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V81.4XXA ",.01)
 ;;V81.4XXA
 ;;9002226.02101,"821,V81.4XXA ",.02)
 ;;V81.4XXA
 ;;9002226.02101,"821,V81.4XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V81.5XXA ",.01)
 ;;V81.5XXA
 ;;9002226.02101,"821,V81.5XXA ",.02)
 ;;V81.5XXA
 ;;9002226.02101,"821,V81.5XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V81.6XXA ",.01)
 ;;V81.6XXA
 ;;9002226.02101,"821,V81.6XXA ",.02)
 ;;V81.6XXA
 ;;9002226.02101,"821,V81.6XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V81.7XXA ",.01)
 ;;V81.7XXA
 ;;9002226.02101,"821,V81.7XXA ",.02)
 ;;V81.7XXA
 ;;9002226.02101,"821,V81.7XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V81.81XA ",.01)
 ;;V81.81XA
 ;;9002226.02101,"821,V81.81XA ",.02)
 ;;V81.81XA
 ;;9002226.02101,"821,V81.81XA ",.03)
 ;;30
 ;;9002226.02101,"821,V81.82XA ",.01)
 ;;V81.82XA
 ;;9002226.02101,"821,V81.82XA ",.02)
 ;;V81.82XA
 ;;9002226.02101,"821,V81.82XA ",.03)
 ;;30
 ;;9002226.02101,"821,V81.83XA ",.01)
 ;;V81.83XA
 ;;9002226.02101,"821,V81.83XA ",.02)
 ;;V81.83XA
 ;;9002226.02101,"821,V81.83XA ",.03)
 ;;30
 ;;9002226.02101,"821,V81.89XA ",.01)
 ;;V81.89XA
 ;;9002226.02101,"821,V81.89XA ",.02)
 ;;V81.89XA
 ;;9002226.02101,"821,V81.89XA ",.03)
 ;;30
 ;;9002226.02101,"821,V81.9XXA ",.01)
 ;;V81.9XXA
 ;;9002226.02101,"821,V81.9XXA ",.02)
 ;;V81.9XXA
 ;;9002226.02101,"821,V81.9XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V82.0XXA ",.01)
 ;;V82.0XXA
 ;;9002226.02101,"821,V82.0XXA ",.02)
 ;;V82.0XXA
 ;;9002226.02101,"821,V82.0XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V82.1XXA ",.01)
 ;;V82.1XXA
 ;;9002226.02101,"821,V82.1XXA ",.02)
 ;;V82.1XXA
 ;;9002226.02101,"821,V82.1XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V82.2XXA ",.01)
 ;;V82.2XXA
 ;;9002226.02101,"821,V82.2XXA ",.02)
 ;;V82.2XXA
 ;;9002226.02101,"821,V82.2XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V82.3XXA ",.01)
 ;;V82.3XXA
 ;;9002226.02101,"821,V82.3XXA ",.02)
 ;;V82.3XXA
 ;;9002226.02101,"821,V82.3XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V82.4XXA ",.01)
 ;;V82.4XXA
 ;;9002226.02101,"821,V82.4XXA ",.02)
 ;;V82.4XXA
 ;;9002226.02101,"821,V82.4XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V82.5XXA ",.01)
 ;;V82.5XXA
 ;;9002226.02101,"821,V82.5XXA ",.02)
 ;;V82.5XXA
 ;;9002226.02101,"821,V82.5XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V82.6XXA ",.01)
 ;;V82.6XXA
 ;;9002226.02101,"821,V82.6XXA ",.02)
 ;;V82.6XXA
 ;;9002226.02101,"821,V82.6XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V82.7XXA ",.01)
 ;;V82.7XXA
 ;;9002226.02101,"821,V82.7XXA ",.02)
 ;;V82.7XXA
 ;;9002226.02101,"821,V82.7XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V82.8XXA ",.01)
 ;;V82.8XXA
 ;;9002226.02101,"821,V82.8XXA ",.02)
 ;;V82.8XXA
 ;;9002226.02101,"821,V82.8XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V82.9XXA ",.01)
 ;;V82.9XXA
 ;;9002226.02101,"821,V82.9XXA ",.02)
 ;;V82.9XXA
 ;;9002226.02101,"821,V82.9XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V83.0XXA ",.01)
 ;;V83.0XXA
 ;;9002226.02101,"821,V83.0XXA ",.02)
 ;;V83.0XXA
 ;;9002226.02101,"821,V83.0XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V83.1XXA ",.01)
 ;;V83.1XXA
 ;;9002226.02101,"821,V83.1XXA ",.02)
 ;;V83.1XXA
 ;;9002226.02101,"821,V83.1XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V83.2XXA ",.01)
 ;;V83.2XXA
 ;;9002226.02101,"821,V83.2XXA ",.02)
 ;;V83.2XXA
 ;;9002226.02101,"821,V83.2XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V83.3XXA ",.01)
 ;;V83.3XXA
 ;;9002226.02101,"821,V83.3XXA ",.02)
 ;;V83.3XXA
 ;;9002226.02101,"821,V83.3XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V83.4XXA ",.01)
 ;;V83.4XXA
 ;;9002226.02101,"821,V83.4XXA ",.02)
 ;;V83.4XXA
 ;;9002226.02101,"821,V83.4XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V83.5XXA ",.01)
 ;;V83.5XXA
 ;;9002226.02101,"821,V83.5XXA ",.02)
 ;;V83.5XXA
 ;;9002226.02101,"821,V83.5XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V83.6XXA ",.01)
 ;;V83.6XXA
 ;;9002226.02101,"821,V83.6XXA ",.02)
 ;;V83.6XXA
 ;;9002226.02101,"821,V83.6XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V83.7XXA ",.01)
 ;;V83.7XXA
 ;;9002226.02101,"821,V83.7XXA ",.02)
 ;;V83.7XXA
 ;;9002226.02101,"821,V83.7XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V83.9XXA ",.01)
 ;;V83.9XXA
 ;;9002226.02101,"821,V83.9XXA ",.02)
 ;;V83.9XXA
 ;;9002226.02101,"821,V83.9XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V84.0XXA ",.01)
 ;;V84.0XXA
 ;;9002226.02101,"821,V84.0XXA ",.02)
 ;;V84.0XXA
 ;;9002226.02101,"821,V84.0XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V84.1XXA ",.01)
 ;;V84.1XXA
 ;;9002226.02101,"821,V84.1XXA ",.02)
 ;;V84.1XXA
 ;;9002226.02101,"821,V84.1XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V84.2XXA ",.01)
 ;;V84.2XXA
 ;;9002226.02101,"821,V84.2XXA ",.02)
 ;;V84.2XXA
 ;;9002226.02101,"821,V84.2XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V84.3XXA ",.01)
 ;;V84.3XXA
 ;;9002226.02101,"821,V84.3XXA ",.02)
 ;;V84.3XXA
 ;;9002226.02101,"821,V84.3XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V84.4XXA ",.01)
 ;;V84.4XXA
 ;;9002226.02101,"821,V84.4XXA ",.02)
 ;;V84.4XXA
 ;;9002226.02101,"821,V84.4XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V84.5XXA ",.01)
 ;;V84.5XXA
 ;;9002226.02101,"821,V84.5XXA ",.02)
 ;;V84.5XXA
 ;;9002226.02101,"821,V84.5XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V84.6XXA ",.01)
 ;;V84.6XXA
 ;;9002226.02101,"821,V84.6XXA ",.02)
 ;;V84.6XXA
 ;;9002226.02101,"821,V84.6XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V84.7XXA ",.01)
 ;;V84.7XXA
 ;;9002226.02101,"821,V84.7XXA ",.02)
 ;;V84.7XXA
 ;;9002226.02101,"821,V84.7XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V84.9XXA ",.01)
 ;;V84.9XXA
 ;;9002226.02101,"821,V84.9XXA ",.02)
 ;;V84.9XXA
 ;;9002226.02101,"821,V84.9XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V85.0XXA ",.01)
 ;;V85.0XXA
 ;;9002226.02101,"821,V85.0XXA ",.02)
 ;;V85.0XXA
 ;;9002226.02101,"821,V85.0XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V85.1XXA ",.01)
 ;;V85.1XXA
 ;;9002226.02101,"821,V85.1XXA ",.02)
 ;;V85.1XXA
 ;;9002226.02101,"821,V85.1XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V85.2XXA ",.01)
 ;;V85.2XXA
 ;;9002226.02101,"821,V85.2XXA ",.02)
 ;;V85.2XXA
 ;;9002226.02101,"821,V85.2XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V85.3XXA ",.01)
 ;;V85.3XXA
 ;;9002226.02101,"821,V85.3XXA ",.02)
 ;;V85.3XXA
 ;;9002226.02101,"821,V85.3XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V85.4XXA ",.01)
 ;;V85.4XXA
 ;;9002226.02101,"821,V85.4XXA ",.02)
 ;;V85.4XXA
 ;;9002226.02101,"821,V85.4XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V85.5XXA ",.01)
 ;;V85.5XXA
 ;;9002226.02101,"821,V85.5XXA ",.02)
 ;;V85.5XXA
 ;;9002226.02101,"821,V85.5XXA ",.03)
 ;;30