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

ATXD1S17.m

Go to the documentation of this file.
ATXD1S17 ;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,V92.13XA ",.02)
 ;;V92.13XA
 ;;9002226.02101,"821,V92.13XA ",.03)
 ;;30
 ;;9002226.02101,"821,V92.14XA ",.01)
 ;;V92.14XA
 ;;9002226.02101,"821,V92.14XA ",.02)
 ;;V92.14XA
 ;;9002226.02101,"821,V92.14XA ",.03)
 ;;30
 ;;9002226.02101,"821,V92.15XA ",.01)
 ;;V92.15XA
 ;;9002226.02101,"821,V92.15XA ",.02)
 ;;V92.15XA
 ;;9002226.02101,"821,V92.15XA ",.03)
 ;;30
 ;;9002226.02101,"821,V92.16XA ",.01)
 ;;V92.16XA
 ;;9002226.02101,"821,V92.16XA ",.02)
 ;;V92.16XA
 ;;9002226.02101,"821,V92.16XA ",.03)
 ;;30
 ;;9002226.02101,"821,V92.19XA ",.01)
 ;;V92.19XA
 ;;9002226.02101,"821,V92.19XA ",.02)
 ;;V92.19XA
 ;;9002226.02101,"821,V92.19XA ",.03)
 ;;30
 ;;9002226.02101,"821,V92.20XA ",.01)
 ;;V92.20XA
 ;;9002226.02101,"821,V92.20XA ",.02)
 ;;V92.20XA
 ;;9002226.02101,"821,V92.20XA ",.03)
 ;;30
 ;;9002226.02101,"821,V92.21XA ",.01)
 ;;V92.21XA
 ;;9002226.02101,"821,V92.21XA ",.02)
 ;;V92.21XA
 ;;9002226.02101,"821,V92.21XA ",.03)
 ;;30
 ;;9002226.02101,"821,V92.22XA ",.01)
 ;;V92.22XA
 ;;9002226.02101,"821,V92.22XA ",.02)
 ;;V92.22XA
 ;;9002226.02101,"821,V92.22XA ",.03)
 ;;30
 ;;9002226.02101,"821,V92.23XA ",.01)
 ;;V92.23XA
 ;;9002226.02101,"821,V92.23XA ",.02)
 ;;V92.23XA
 ;;9002226.02101,"821,V92.23XA ",.03)
 ;;30
 ;;9002226.02101,"821,V92.24XA ",.01)
 ;;V92.24XA
 ;;9002226.02101,"821,V92.24XA ",.02)
 ;;V92.24XA
 ;;9002226.02101,"821,V92.24XA ",.03)
 ;;30
 ;;9002226.02101,"821,V92.25XA ",.01)
 ;;V92.25XA
 ;;9002226.02101,"821,V92.25XA ",.02)
 ;;V92.25XA
 ;;9002226.02101,"821,V92.25XA ",.03)
 ;;30
 ;;9002226.02101,"821,V92.26XA ",.01)
 ;;V92.26XA
 ;;9002226.02101,"821,V92.26XA ",.02)
 ;;V92.26XA
 ;;9002226.02101,"821,V92.26XA ",.03)
 ;;30
 ;;9002226.02101,"821,V92.27XA ",.01)
 ;;V92.27XA
 ;;9002226.02101,"821,V92.27XA ",.02)
 ;;V92.27XA
 ;;9002226.02101,"821,V92.27XA ",.03)
 ;;30
 ;;9002226.02101,"821,V92.28XA ",.01)
 ;;V92.28XA
 ;;9002226.02101,"821,V92.28XA ",.02)
 ;;V92.28XA
 ;;9002226.02101,"821,V92.28XA ",.03)
 ;;30
 ;;9002226.02101,"821,V92.29XA ",.01)
 ;;V92.29XA
 ;;9002226.02101,"821,V92.29XA ",.02)
 ;;V92.29XA
 ;;9002226.02101,"821,V92.29XA ",.03)
 ;;30
 ;;9002226.02101,"821,V93.00XA ",.01)
 ;;V93.00XA
 ;;9002226.02101,"821,V93.00XA ",.02)
 ;;V93.00XA
 ;;9002226.02101,"821,V93.00XA ",.03)
 ;;30
 ;;9002226.02101,"821,V93.01XA ",.01)
 ;;V93.01XA
 ;;9002226.02101,"821,V93.01XA ",.02)
 ;;V93.01XA
 ;;9002226.02101,"821,V93.01XA ",.03)
 ;;30
 ;;9002226.02101,"821,V93.02XA ",.01)
 ;;V93.02XA
 ;;9002226.02101,"821,V93.02XA ",.02)
 ;;V93.02XA
 ;;9002226.02101,"821,V93.02XA ",.03)
 ;;30
 ;;9002226.02101,"821,V93.03XA ",.01)
 ;;V93.03XA
 ;;9002226.02101,"821,V93.03XA ",.02)
 ;;V93.03XA
 ;;9002226.02101,"821,V93.03XA ",.03)
 ;;30
 ;;9002226.02101,"821,V93.04XA ",.01)
 ;;V93.04XA
 ;;9002226.02101,"821,V93.04XA ",.02)
 ;;V93.04XA
 ;;9002226.02101,"821,V93.04XA ",.03)
 ;;30
 ;;9002226.02101,"821,V93.09XA ",.01)
 ;;V93.09XA
 ;;9002226.02101,"821,V93.09XA ",.02)
 ;;V93.09XA
 ;;9002226.02101,"821,V93.09XA ",.03)
 ;;30
 ;;9002226.02101,"821,V93.10XA ",.01)
 ;;V93.10XA
 ;;9002226.02101,"821,V93.10XA ",.02)
 ;;V93.10XA
 ;;9002226.02101,"821,V93.10XA ",.03)
 ;;30
 ;;9002226.02101,"821,V93.11XA ",.01)
 ;;V93.11XA
 ;;9002226.02101,"821,V93.11XA ",.02)
 ;;V93.11XA
 ;;9002226.02101,"821,V93.11XA ",.03)
 ;;30
 ;;9002226.02101,"821,V93.12XA ",.01)
 ;;V93.12XA
 ;;9002226.02101,"821,V93.12XA ",.02)
 ;;V93.12XA
 ;;9002226.02101,"821,V93.12XA ",.03)
 ;;30
 ;;9002226.02101,"821,V93.13XA ",.01)
 ;;V93.13XA
 ;;9002226.02101,"821,V93.13XA ",.02)
 ;;V93.13XA
 ;;9002226.02101,"821,V93.13XA ",.03)
 ;;30
 ;;9002226.02101,"821,V93.14XA ",.01)
 ;;V93.14XA
 ;;9002226.02101,"821,V93.14XA ",.02)
 ;;V93.14XA
 ;;9002226.02101,"821,V93.14XA ",.03)
 ;;30
 ;;9002226.02101,"821,V93.19XA ",.01)
 ;;V93.19XA
 ;;9002226.02101,"821,V93.19XA ",.02)
 ;;V93.19XA
 ;;9002226.02101,"821,V93.19XA ",.03)
 ;;30
 ;;9002226.02101,"821,V93.20XA ",.01)
 ;;V93.20XA
 ;;9002226.02101,"821,V93.20XA ",.02)
 ;;V93.20XA
 ;;9002226.02101,"821,V93.20XA ",.03)
 ;;30
 ;;9002226.02101,"821,V93.21XA ",.01)
 ;;V93.21XA
 ;;9002226.02101,"821,V93.21XA ",.02)
 ;;V93.21XA
 ;;9002226.02101,"821,V93.21XA ",.03)
 ;;30
 ;;9002226.02101,"821,V93.22XA ",.01)
 ;;V93.22XA
 ;;9002226.02101,"821,V93.22XA ",.02)
 ;;V93.22XA
 ;;9002226.02101,"821,V93.22XA ",.03)
 ;;30
 ;;9002226.02101,"821,V93.23XA ",.01)
 ;;V93.23XA
 ;;9002226.02101,"821,V93.23XA ",.02)
 ;;V93.23XA
 ;;9002226.02101,"821,V93.23XA ",.03)
 ;;30
 ;;9002226.02101,"821,V93.24XA ",.01)
 ;;V93.24XA
 ;;9002226.02101,"821,V93.24XA ",.02)
 ;;V93.24XA
 ;;9002226.02101,"821,V93.24XA ",.03)
 ;;30
 ;;9002226.02101,"821,V93.29XA ",.01)
 ;;V93.29XA
 ;;9002226.02101,"821,V93.29XA ",.02)
 ;;V93.29XA
 ;;9002226.02101,"821,V93.29XA ",.03)
 ;;30
 ;;9002226.02101,"821,V93.30XA ",.01)
 ;;V93.30XA
 ;;9002226.02101,"821,V93.30XA ",.02)
 ;;V93.30XA
 ;;9002226.02101,"821,V93.30XA ",.03)
 ;;30
 ;;9002226.02101,"821,V93.31XA ",.01)
 ;;V93.31XA
 ;;9002226.02101,"821,V93.31XA ",.02)
 ;;V93.31XA
 ;;9002226.02101,"821,V93.31XA ",.03)
 ;;30
 ;;9002226.02101,"821,V93.32XA ",.01)
 ;;V93.32XA
 ;;9002226.02101,"821,V93.32XA ",.02)
 ;;V93.32XA
 ;;9002226.02101,"821,V93.32XA ",.03)
 ;;30
 ;;9002226.02101,"821,V93.33XA ",.01)
 ;;V93.33XA
 ;;9002226.02101,"821,V93.33XA ",.02)
 ;;V93.33XA
 ;;9002226.02101,"821,V93.33XA ",.03)
 ;;30
 ;;9002226.02101,"821,V93.34XA ",.01)
 ;;V93.34XA
 ;;9002226.02101,"821,V93.34XA ",.02)
 ;;V93.34XA
 ;;9002226.02101,"821,V93.34XA ",.03)
 ;;30
 ;;9002226.02101,"821,V93.35XA ",.01)
 ;;V93.35XA
 ;;9002226.02101,"821,V93.35XA ",.02)
 ;;V93.35XA
 ;;9002226.02101,"821,V93.35XA ",.03)
 ;;30
 ;;9002226.02101,"821,V93.36XA ",.01)
 ;;V93.36XA
 ;;9002226.02101,"821,V93.36XA ",.02)
 ;;V93.36XA
 ;;9002226.02101,"821,V93.36XA ",.03)
 ;;30
 ;;9002226.02101,"821,V93.38XA ",.01)
 ;;V93.38XA
 ;;9002226.02101,"821,V93.38XA ",.02)
 ;;V93.38XA
 ;;9002226.02101,"821,V93.38XA ",.03)
 ;;30
 ;;9002226.02101,"821,V93.39XA ",.01)
 ;;V93.39XA
 ;;9002226.02101,"821,V93.39XA ",.02)
 ;;V93.39XA
 ;;9002226.02101,"821,V93.39XA ",.03)
 ;;30
 ;;9002226.02101,"821,V93.40XA ",.01)
 ;;V93.40XA
 ;;9002226.02101,"821,V93.40XA ",.02)
 ;;V93.40XA
 ;;9002226.02101,"821,V93.40XA ",.03)
 ;;30
 ;;9002226.02101,"821,V93.41XA ",.01)
 ;;V93.41XA
 ;;9002226.02101,"821,V93.41XA ",.02)
 ;;V93.41XA
 ;;9002226.02101,"821,V93.41XA ",.03)
 ;;30
 ;;9002226.02101,"821,V93.42XA ",.01)
 ;;V93.42XA
 ;;9002226.02101,"821,V93.42XA ",.02)
 ;;V93.42XA
 ;;9002226.02101,"821,V93.42XA ",.03)
 ;;30
 ;;9002226.02101,"821,V93.43XA ",.01)
 ;;V93.43XA
 ;;9002226.02101,"821,V93.43XA ",.02)
 ;;V93.43XA
 ;;9002226.02101,"821,V93.43XA ",.03)
 ;;30
 ;;9002226.02101,"821,V93.44XA ",.01)
 ;;V93.44XA
 ;;9002226.02101,"821,V93.44XA ",.02)
 ;;V93.44XA
 ;;9002226.02101,"821,V93.44XA ",.03)
 ;;30
 ;;9002226.02101,"821,V93.48XA ",.01)
 ;;V93.48XA
 ;;9002226.02101,"821,V93.48XA ",.02)
 ;;V93.48XA
 ;;9002226.02101,"821,V93.48XA ",.03)
 ;;30
 ;;9002226.02101,"821,V93.49XA ",.01)
 ;;V93.49XA
 ;;9002226.02101,"821,V93.49XA ",.02)
 ;;V93.49XA
 ;;9002226.02101,"821,V93.49XA ",.03)
 ;;30
 ;;9002226.02101,"821,V93.50XA ",.01)
 ;;V93.50XA
 ;;9002226.02101,"821,V93.50XA ",.02)
 ;;V93.50XA
 ;;9002226.02101,"821,V93.50XA ",.03)
 ;;30
 ;;9002226.02101,"821,V93.51XA ",.01)
 ;;V93.51XA
 ;;9002226.02101,"821,V93.51XA ",.02)
 ;;V93.51XA
 ;;9002226.02101,"821,V93.51XA ",.03)
 ;;30
 ;;9002226.02101,"821,V93.52XA ",.01)
 ;;V93.52XA
 ;;9002226.02101,"821,V93.52XA ",.02)
 ;;V93.52XA
 ;;9002226.02101,"821,V93.52XA ",.03)
 ;;30
 ;;9002226.02101,"821,V93.53XA ",.01)
 ;;V93.53XA
 ;;9002226.02101,"821,V93.53XA ",.02)
 ;;V93.53XA
 ;;9002226.02101,"821,V93.53XA ",.03)
 ;;30
 ;;9002226.02101,"821,V93.54XA ",.01)
 ;;V93.54XA
 ;;9002226.02101,"821,V93.54XA ",.02)
 ;;V93.54XA
 ;;9002226.02101,"821,V93.54XA ",.03)
 ;;30
 ;;9002226.02101,"821,V93.59XA ",.01)
 ;;V93.59XA
 ;;9002226.02101,"821,V93.59XA ",.02)
 ;;V93.59XA
 ;;9002226.02101,"821,V93.59XA ",.03)
 ;;30
 ;;9002226.02101,"821,V93.60XA ",.01)
 ;;V93.60XA
 ;;9002226.02101,"821,V93.60XA ",.02)
 ;;V93.60XA
 ;;9002226.02101,"821,V93.60XA ",.03)
 ;;30
 ;;9002226.02101,"821,V93.61XA ",.01)
 ;;V93.61XA
 ;;9002226.02101,"821,V93.61XA ",.02)
 ;;V93.61XA
 ;;9002226.02101,"821,V93.61XA ",.03)
 ;;30
 ;;9002226.02101,"821,V93.62XA ",.01)
 ;;V93.62XA
 ;;9002226.02101,"821,V93.62XA ",.02)
 ;;V93.62XA
 ;;9002226.02101,"821,V93.62XA ",.03)
 ;;30
 ;;9002226.02101,"821,V93.63XA ",.01)
 ;;V93.63XA
 ;;9002226.02101,"821,V93.63XA ",.02)
 ;;V93.63XA
 ;;9002226.02101,"821,V93.63XA ",.03)
 ;;30
 ;;9002226.02101,"821,V93.64XA ",.01)
 ;;V93.64XA
 ;;9002226.02101,"821,V93.64XA ",.02)
 ;;V93.64XA
 ;;9002226.02101,"821,V93.64XA ",.03)
 ;;30
 ;;9002226.02101,"821,V93.69XA ",.01)
 ;;V93.69XA
 ;;9002226.02101,"821,V93.69XA ",.02)
 ;;V93.69XA
 ;;9002226.02101,"821,V93.69XA ",.03)
 ;;30
 ;;9002226.02101,"821,V93.80XA ",.01)
 ;;V93.80XA
 ;;9002226.02101,"821,V93.80XA ",.02)
 ;;V93.80XA
 ;;9002226.02101,"821,V93.80XA ",.03)
 ;;30
 ;;9002226.02101,"821,V93.81XA ",.01)
 ;;V93.81XA
 ;;9002226.02101,"821,V93.81XA ",.02)
 ;;V93.81XA
 ;;9002226.02101,"821,V93.81XA ",.03)
 ;;30
 ;;9002226.02101,"821,V93.82XA ",.01)
 ;;V93.82XA
 ;;9002226.02101,"821,V93.82XA ",.02)
 ;;V93.82XA
 ;;9002226.02101,"821,V93.82XA ",.03)
 ;;30
 ;;9002226.02101,"821,V93.83XA ",.01)
 ;;V93.83XA
 ;;9002226.02101,"821,V93.83XA ",.02)
 ;;V93.83XA
 ;;9002226.02101,"821,V93.83XA ",.03)
 ;;30
 ;;9002226.02101,"821,V93.84XA ",.01)
 ;;V93.84XA
 ;;9002226.02101,"821,V93.84XA ",.02)
 ;;V93.84XA
 ;;9002226.02101,"821,V93.84XA ",.03)
 ;;30
 ;;9002226.02101,"821,V93.85XA ",.01)
 ;;V93.85XA
 ;;9002226.02101,"821,V93.85XA ",.02)
 ;;V93.85XA
 ;;9002226.02101,"821,V93.85XA ",.03)
 ;;30
 ;;9002226.02101,"821,V93.86XA ",.01)
 ;;V93.86XA
 ;;9002226.02101,"821,V93.86XA ",.02)
 ;;V93.86XA
 ;;9002226.02101,"821,V93.86XA ",.03)
 ;;30
 ;;9002226.02101,"821,V93.87XA ",.01)
 ;;V93.87XA
 ;;9002226.02101,"821,V93.87XA ",.02)
 ;;V93.87XA
 ;;9002226.02101,"821,V93.87XA ",.03)
 ;;30
 ;;9002226.02101,"821,V93.88XA ",.01)
 ;;V93.88XA
 ;;9002226.02101,"821,V93.88XA ",.02)
 ;;V93.88XA
 ;;9002226.02101,"821,V93.88XA ",.03)
 ;;30
 ;;9002226.02101,"821,V93.89XA ",.01)
 ;;V93.89XA
 ;;9002226.02101,"821,V93.89XA ",.02)
 ;;V93.89XA
 ;;9002226.02101,"821,V93.89XA ",.03)
 ;;30
 ;;9002226.02101,"821,V94.0XXA ",.01)
 ;;V94.0XXA
 ;;9002226.02101,"821,V94.0XXA ",.02)
 ;;V94.0XXA
 ;;9002226.02101,"821,V94.0XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V94.11XA ",.01)
 ;;V94.11XA
 ;;9002226.02101,"821,V94.11XA ",.02)
 ;;V94.11XA
 ;;9002226.02101,"821,V94.11XA ",.03)
 ;;30
 ;;9002226.02101,"821,V94.12XA ",.01)
 ;;V94.12XA
 ;;9002226.02101,"821,V94.12XA ",.02)
 ;;V94.12XA
 ;;9002226.02101,"821,V94.12XA ",.03)
 ;;30
 ;;9002226.02101,"821,V94.21XA ",.01)
 ;;V94.21XA
 ;;9002226.02101,"821,V94.21XA ",.02)
 ;;V94.21XA
 ;;9002226.02101,"821,V94.21XA ",.03)
 ;;30
 ;;9002226.02101,"821,V94.22XA ",.01)
 ;;V94.22XA
 ;;9002226.02101,"821,V94.22XA ",.02)
 ;;V94.22XA
 ;;9002226.02101,"821,V94.22XA ",.03)
 ;;30
 ;;9002226.02101,"821,V94.31XA ",.01)
 ;;V94.31XA
 ;;9002226.02101,"821,V94.31XA ",.02)
 ;;V94.31XA
 ;;9002226.02101,"821,V94.31XA ",.03)
 ;;30
 ;;9002226.02101,"821,V94.32XA ",.01)
 ;;V94.32XA
 ;;9002226.02101,"821,V94.32XA ",.02)
 ;;V94.32XA
 ;;9002226.02101,"821,V94.32XA ",.03)
 ;;30
 ;;9002226.02101,"821,V94.4XXA ",.01)
 ;;V94.4XXA
 ;;9002226.02101,"821,V94.4XXA ",.02)
 ;;V94.4XXA
 ;;9002226.02101,"821,V94.4XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V94.810A ",.01)
 ;;V94.810A
 ;;9002226.02101,"821,V94.810A ",.02)
 ;;V94.810A
 ;;9002226.02101,"821,V94.810A ",.03)
 ;;30
 ;;9002226.02101,"821,V94.811A ",.01)
 ;;V94.811A
 ;;9002226.02101,"821,V94.811A ",.02)
 ;;V94.811A
 ;;9002226.02101,"821,V94.811A ",.03)
 ;;30
 ;;9002226.02101,"821,V94.818A ",.01)
 ;;V94.818A
 ;;9002226.02101,"821,V94.818A ",.02)
 ;;V94.818A
 ;;9002226.02101,"821,V94.818A ",.03)
 ;;30
 ;;9002226.02101,"821,V94.89XA ",.01)
 ;;V94.89XA
 ;;9002226.02101,"821,V94.89XA ",.02)
 ;;V94.89XA
 ;;9002226.02101,"821,V94.89XA ",.03)
 ;;30
 ;;9002226.02101,"821,V94.9XXA ",.01)
 ;;V94.9XXA
 ;;9002226.02101,"821,V94.9XXA ",.02)
 ;;V94.9XXA
 ;;9002226.02101,"821,V94.9XXA ",.03)
 ;;30
 ;;9002226.02101,"821,V95.00XA ",.01)
 ;;V95.00XA
 ;;9002226.02101,"821,V95.00XA ",.02)
 ;;V95.00XA
 ;;9002226.02101,"821,V95.00XA ",.03)
 ;;30
 ;;9002226.02101,"821,V95.01XA ",.01)
 ;;V95.01XA
 ;;9002226.02101,"821,V95.01XA ",.02)
 ;;V95.01XA
 ;;9002226.02101,"821,V95.01XA ",.03)
 ;;30
 ;;9002226.02101,"821,V95.02XA ",.01)
 ;;V95.02XA
 ;;9002226.02101,"821,V95.02XA ",.02)
 ;;V95.02XA
 ;;9002226.02101,"821,V95.02XA ",.03)
 ;;30
 ;;9002226.02101,"821,V95.03XA ",.01)
 ;;V95.03XA
 ;;9002226.02101,"821,V95.03XA ",.02)
 ;;V95.03XA
 ;;9002226.02101,"821,V95.03XA ",.03)
 ;;30
 ;;9002226.02101,"821,V95.04XA ",.01)
 ;;V95.04XA
 ;;9002226.02101,"821,V95.04XA ",.02)
 ;;V95.04XA
 ;;9002226.02101,"821,V95.04XA ",.03)
 ;;30
 ;;9002226.02101,"821,V95.05XA ",.01)
 ;;V95.05XA
 ;;9002226.02101,"821,V95.05XA ",.02)
 ;;V95.05XA
 ;;9002226.02101,"821,V95.05XA ",.03)
 ;;30
 ;;9002226.02101,"821,V95.09XA ",.01)
 ;;V95.09XA
 ;;9002226.02101,"821,V95.09XA ",.02)
 ;;V95.09XA
 ;;9002226.02101,"821,V95.09XA ",.03)
 ;;30