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

ATXD5P8.m

Go to the documentation of this file.
ATXD5P8 ;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,"169,V91.04XA ",.01)
 ;;V91.04XA 
 ;;9002226.02101,"169,V91.04XA ",.02)
 ;;V91.04XA 
 ;;9002226.02101,"169,V91.04XA ",.03)
 ;;30
 ;;9002226.02101,"169,V91.04XD ",.01)
 ;;V91.04XD 
 ;;9002226.02101,"169,V91.04XD ",.02)
 ;;V91.04XD 
 ;;9002226.02101,"169,V91.04XD ",.03)
 ;;30
 ;;9002226.02101,"169,V91.04XS ",.01)
 ;;V91.04XS 
 ;;9002226.02101,"169,V91.04XS ",.02)
 ;;V91.04XS 
 ;;9002226.02101,"169,V91.04XS ",.03)
 ;;30
 ;;9002226.02101,"169,V91.05XA ",.01)
 ;;V91.05XA 
 ;;9002226.02101,"169,V91.05XA ",.02)
 ;;V91.05XA 
 ;;9002226.02101,"169,V91.05XA ",.03)
 ;;30
 ;;9002226.02101,"169,V91.05XD ",.01)
 ;;V91.05XD 
 ;;9002226.02101,"169,V91.05XD ",.02)
 ;;V91.05XD 
 ;;9002226.02101,"169,V91.05XD ",.03)
 ;;30
 ;;9002226.02101,"169,V91.05XS ",.01)
 ;;V91.05XS 
 ;;9002226.02101,"169,V91.05XS ",.02)
 ;;V91.05XS 
 ;;9002226.02101,"169,V91.05XS ",.03)
 ;;30
 ;;9002226.02101,"169,V91.06XA ",.01)
 ;;V91.06XA 
 ;;9002226.02101,"169,V91.06XA ",.02)
 ;;V91.06XA 
 ;;9002226.02101,"169,V91.06XA ",.03)
 ;;30
 ;;9002226.02101,"169,V91.06XD ",.01)
 ;;V91.06XD 
 ;;9002226.02101,"169,V91.06XD ",.02)
 ;;V91.06XD 
 ;;9002226.02101,"169,V91.06XD ",.03)
 ;;30
 ;;9002226.02101,"169,V91.06XS ",.01)
 ;;V91.06XS 
 ;;9002226.02101,"169,V91.06XS ",.02)
 ;;V91.06XS 
 ;;9002226.02101,"169,V91.06XS ",.03)
 ;;30
 ;;9002226.02101,"169,V91.07XA ",.01)
 ;;V91.07XA 
 ;;9002226.02101,"169,V91.07XA ",.02)
 ;;V91.07XA 
 ;;9002226.02101,"169,V91.07XA ",.03)
 ;;30
 ;;9002226.02101,"169,V91.07XD ",.01)
 ;;V91.07XD 
 ;;9002226.02101,"169,V91.07XD ",.02)
 ;;V91.07XD 
 ;;9002226.02101,"169,V91.07XD ",.03)
 ;;30
 ;;9002226.02101,"169,V91.07XS ",.01)
 ;;V91.07XS 
 ;;9002226.02101,"169,V91.07XS ",.02)
 ;;V91.07XS 
 ;;9002226.02101,"169,V91.07XS ",.03)
 ;;30
 ;;9002226.02101,"169,V91.08XA ",.01)
 ;;V91.08XA 
 ;;9002226.02101,"169,V91.08XA ",.02)
 ;;V91.08XA 
 ;;9002226.02101,"169,V91.08XA ",.03)
 ;;30
 ;;9002226.02101,"169,V91.08XD ",.01)
 ;;V91.08XD 
 ;;9002226.02101,"169,V91.08XD ",.02)
 ;;V91.08XD 
 ;;9002226.02101,"169,V91.08XD ",.03)
 ;;30
 ;;9002226.02101,"169,V91.08XS ",.01)
 ;;V91.08XS 
 ;;9002226.02101,"169,V91.08XS ",.02)
 ;;V91.08XS 
 ;;9002226.02101,"169,V91.08XS ",.03)
 ;;30
 ;;9002226.02101,"169,V91.09XA ",.01)
 ;;V91.09XA 
 ;;9002226.02101,"169,V91.09XA ",.02)
 ;;V91.09XA 
 ;;9002226.02101,"169,V91.09XA ",.03)
 ;;30
 ;;9002226.02101,"169,V91.09XD ",.01)
 ;;V91.09XD 
 ;;9002226.02101,"169,V91.09XD ",.02)
 ;;V91.09XD 
 ;;9002226.02101,"169,V91.09XD ",.03)
 ;;30
 ;;9002226.02101,"169,V91.09XS ",.01)
 ;;V91.09XS 
 ;;9002226.02101,"169,V91.09XS ",.02)
 ;;V91.09XS 
 ;;9002226.02101,"169,V91.09XS ",.03)
 ;;30
 ;;9002226.02101,"169,V91.10XA ",.01)
 ;;V91.10XA 
 ;;9002226.02101,"169,V91.10XA ",.02)
 ;;V91.10XA 
 ;;9002226.02101,"169,V91.10XA ",.03)
 ;;30
 ;;9002226.02101,"169,V91.10XD ",.01)
 ;;V91.10XD 
 ;;9002226.02101,"169,V91.10XD ",.02)
 ;;V91.10XD 
 ;;9002226.02101,"169,V91.10XD ",.03)
 ;;30
 ;;9002226.02101,"169,V91.10XS ",.01)
 ;;V91.10XS 
 ;;9002226.02101,"169,V91.10XS ",.02)
 ;;V91.10XS 
 ;;9002226.02101,"169,V91.10XS ",.03)
 ;;30
 ;;9002226.02101,"169,V91.11XA ",.01)
 ;;V91.11XA 
 ;;9002226.02101,"169,V91.11XA ",.02)
 ;;V91.11XA 
 ;;9002226.02101,"169,V91.11XA ",.03)
 ;;30
 ;;9002226.02101,"169,V91.11XD ",.01)
 ;;V91.11XD 
 ;;9002226.02101,"169,V91.11XD ",.02)
 ;;V91.11XD 
 ;;9002226.02101,"169,V91.11XD ",.03)
 ;;30
 ;;9002226.02101,"169,V91.11XS ",.01)
 ;;V91.11XS 
 ;;9002226.02101,"169,V91.11XS ",.02)
 ;;V91.11XS 
 ;;9002226.02101,"169,V91.11XS ",.03)
 ;;30
 ;;9002226.02101,"169,V91.12XA ",.01)
 ;;V91.12XA 
 ;;9002226.02101,"169,V91.12XA ",.02)
 ;;V91.12XA 
 ;;9002226.02101,"169,V91.12XA ",.03)
 ;;30
 ;;9002226.02101,"169,V91.12XD ",.01)
 ;;V91.12XD 
 ;;9002226.02101,"169,V91.12XD ",.02)
 ;;V91.12XD 
 ;;9002226.02101,"169,V91.12XD ",.03)
 ;;30
 ;;9002226.02101,"169,V91.12XS ",.01)
 ;;V91.12XS 
 ;;9002226.02101,"169,V91.12XS ",.02)
 ;;V91.12XS 
 ;;9002226.02101,"169,V91.12XS ",.03)
 ;;30
 ;;9002226.02101,"169,V91.13XA ",.01)
 ;;V91.13XA 
 ;;9002226.02101,"169,V91.13XA ",.02)
 ;;V91.13XA 
 ;;9002226.02101,"169,V91.13XA ",.03)
 ;;30
 ;;9002226.02101,"169,V91.13XD ",.01)
 ;;V91.13XD 
 ;;9002226.02101,"169,V91.13XD ",.02)
 ;;V91.13XD 
 ;;9002226.02101,"169,V91.13XD ",.03)
 ;;30
 ;;9002226.02101,"169,V91.13XS ",.01)
 ;;V91.13XS 
 ;;9002226.02101,"169,V91.13XS ",.02)
 ;;V91.13XS 
 ;;9002226.02101,"169,V91.13XS ",.03)
 ;;30
 ;;9002226.02101,"169,V91.14XA ",.01)
 ;;V91.14XA 
 ;;9002226.02101,"169,V91.14XA ",.02)
 ;;V91.14XA 
 ;;9002226.02101,"169,V91.14XA ",.03)
 ;;30
 ;;9002226.02101,"169,V91.14XD ",.01)
 ;;V91.14XD 
 ;;9002226.02101,"169,V91.14XD ",.02)
 ;;V91.14XD 
 ;;9002226.02101,"169,V91.14XD ",.03)
 ;;30
 ;;9002226.02101,"169,V91.14XS ",.01)
 ;;V91.14XS 
 ;;9002226.02101,"169,V91.14XS ",.02)
 ;;V91.14XS 
 ;;9002226.02101,"169,V91.14XS ",.03)
 ;;30
 ;;9002226.02101,"169,V91.15XA ",.01)
 ;;V91.15XA 
 ;;9002226.02101,"169,V91.15XA ",.02)
 ;;V91.15XA 
 ;;9002226.02101,"169,V91.15XA ",.03)
 ;;30
 ;;9002226.02101,"169,V91.15XD ",.01)
 ;;V91.15XD 
 ;;9002226.02101,"169,V91.15XD ",.02)
 ;;V91.15XD 
 ;;9002226.02101,"169,V91.15XD ",.03)
 ;;30
 ;;9002226.02101,"169,V91.15XS ",.01)
 ;;V91.15XS 
 ;;9002226.02101,"169,V91.15XS ",.02)
 ;;V91.15XS 
 ;;9002226.02101,"169,V91.15XS ",.03)
 ;;30
 ;;9002226.02101,"169,V91.16XA ",.01)
 ;;V91.16XA 
 ;;9002226.02101,"169,V91.16XA ",.02)
 ;;V91.16XA 
 ;;9002226.02101,"169,V91.16XA ",.03)
 ;;30
 ;;9002226.02101,"169,V91.16XD ",.01)
 ;;V91.16XD 
 ;;9002226.02101,"169,V91.16XD ",.02)
 ;;V91.16XD 
 ;;9002226.02101,"169,V91.16XD ",.03)
 ;;30
 ;;9002226.02101,"169,V91.16XS ",.01)
 ;;V91.16XS 
 ;;9002226.02101,"169,V91.16XS ",.02)
 ;;V91.16XS 
 ;;9002226.02101,"169,V91.16XS ",.03)
 ;;30
 ;;9002226.02101,"169,V91.18XA ",.01)
 ;;V91.18XA 
 ;;9002226.02101,"169,V91.18XA ",.02)
 ;;V91.18XA 
 ;;9002226.02101,"169,V91.18XA ",.03)
 ;;30
 ;;9002226.02101,"169,V91.18XD ",.01)
 ;;V91.18XD 
 ;;9002226.02101,"169,V91.18XD ",.02)
 ;;V91.18XD 
 ;;9002226.02101,"169,V91.18XD ",.03)
 ;;30
 ;;9002226.02101,"169,V91.18XS ",.01)
 ;;V91.18XS 
 ;;9002226.02101,"169,V91.18XS ",.02)
 ;;V91.18XS 
 ;;9002226.02101,"169,V91.18XS ",.03)
 ;;30
 ;;9002226.02101,"169,V91.19XA ",.01)
 ;;V91.19XA 
 ;;9002226.02101,"169,V91.19XA ",.02)
 ;;V91.19XA 
 ;;9002226.02101,"169,V91.19XA ",.03)
 ;;30
 ;;9002226.02101,"169,V91.19XD ",.01)
 ;;V91.19XD 
 ;;9002226.02101,"169,V91.19XD ",.02)
 ;;V91.19XD 
 ;;9002226.02101,"169,V91.19XD ",.03)
 ;;30
 ;;9002226.02101,"169,V91.19XS ",.01)
 ;;V91.19XS 
 ;;9002226.02101,"169,V91.19XS ",.02)
 ;;V91.19XS 
 ;;9002226.02101,"169,V91.19XS ",.03)
 ;;30
 ;;9002226.02101,"169,V91.30XA ",.01)
 ;;V91.30XA 
 ;;9002226.02101,"169,V91.30XA ",.02)
 ;;V91.30XA 
 ;;9002226.02101,"169,V91.30XA ",.03)
 ;;30
 ;;9002226.02101,"169,V91.30XD ",.01)
 ;;V91.30XD 
 ;;9002226.02101,"169,V91.30XD ",.02)
 ;;V91.30XD 
 ;;9002226.02101,"169,V91.30XD ",.03)
 ;;30
 ;;9002226.02101,"169,V91.30XS ",.01)
 ;;V91.30XS 
 ;;9002226.02101,"169,V91.30XS ",.02)
 ;;V91.30XS 
 ;;9002226.02101,"169,V91.30XS ",.03)
 ;;30
 ;;9002226.02101,"169,V91.31XA ",.01)
 ;;V91.31XA 
 ;;9002226.02101,"169,V91.31XA ",.02)
 ;;V91.31XA 
 ;;9002226.02101,"169,V91.31XA ",.03)
 ;;30
 ;;9002226.02101,"169,V91.31XD ",.01)
 ;;V91.31XD 
 ;;9002226.02101,"169,V91.31XD ",.02)
 ;;V91.31XD 
 ;;9002226.02101,"169,V91.31XD ",.03)
 ;;30
 ;;9002226.02101,"169,V91.31XS ",.01)
 ;;V91.31XS 
 ;;9002226.02101,"169,V91.31XS ",.02)
 ;;V91.31XS 
 ;;9002226.02101,"169,V91.31XS ",.03)
 ;;30
 ;;9002226.02101,"169,V91.32XA ",.01)
 ;;V91.32XA 
 ;;9002226.02101,"169,V91.32XA ",.02)
 ;;V91.32XA 
 ;;9002226.02101,"169,V91.32XA ",.03)
 ;;30
 ;;9002226.02101,"169,V91.32XD ",.01)
 ;;V91.32XD 
 ;;9002226.02101,"169,V91.32XD ",.02)
 ;;V91.32XD 
 ;;9002226.02101,"169,V91.32XD ",.03)
 ;;30
 ;;9002226.02101,"169,V91.32XS ",.01)
 ;;V91.32XS 
 ;;9002226.02101,"169,V91.32XS ",.02)
 ;;V91.32XS 
 ;;9002226.02101,"169,V91.32XS ",.03)
 ;;30
 ;;9002226.02101,"169,V91.33XA ",.01)
 ;;V91.33XA 
 ;;9002226.02101,"169,V91.33XA ",.02)
 ;;V91.33XA 
 ;;9002226.02101,"169,V91.33XA ",.03)
 ;;30
 ;;9002226.02101,"169,V91.33XD ",.01)
 ;;V91.33XD 
 ;;9002226.02101,"169,V91.33XD ",.02)
 ;;V91.33XD 
 ;;9002226.02101,"169,V91.33XD ",.03)
 ;;30
 ;;9002226.02101,"169,V91.33XS ",.01)
 ;;V91.33XS 
 ;;9002226.02101,"169,V91.33XS ",.02)
 ;;V91.33XS 
 ;;9002226.02101,"169,V91.33XS ",.03)
 ;;30
 ;;9002226.02101,"169,V91.34XA ",.01)
 ;;V91.34XA 
 ;;9002226.02101,"169,V91.34XA ",.02)
 ;;V91.34XA 
 ;;9002226.02101,"169,V91.34XA ",.03)
 ;;30
 ;;9002226.02101,"169,V91.34XD ",.01)
 ;;V91.34XD 
 ;;9002226.02101,"169,V91.34XD ",.02)
 ;;V91.34XD 
 ;;9002226.02101,"169,V91.34XD ",.03)
 ;;30
 ;;9002226.02101,"169,V91.34XS ",.01)
 ;;V91.34XS 
 ;;9002226.02101,"169,V91.34XS ",.02)
 ;;V91.34XS 
 ;;9002226.02101,"169,V91.34XS ",.03)
 ;;30
 ;;9002226.02101,"169,V91.35XA ",.01)
 ;;V91.35XA 
 ;;9002226.02101,"169,V91.35XA ",.02)
 ;;V91.35XA 
 ;;9002226.02101,"169,V91.35XA ",.03)
 ;;30
 ;;9002226.02101,"169,V91.35XD ",.01)
 ;;V91.35XD 
 ;;9002226.02101,"169,V91.35XD ",.02)
 ;;V91.35XD 
 ;;9002226.02101,"169,V91.35XD ",.03)
 ;;30
 ;;9002226.02101,"169,V91.35XS ",.01)
 ;;V91.35XS 
 ;;9002226.02101,"169,V91.35XS ",.02)
 ;;V91.35XS 
 ;;9002226.02101,"169,V91.35XS ",.03)
 ;;30
 ;;9002226.02101,"169,V91.36XA ",.01)
 ;;V91.36XA 
 ;;9002226.02101,"169,V91.36XA ",.02)
 ;;V91.36XA 
 ;;9002226.02101,"169,V91.36XA ",.03)
 ;;30
 ;;9002226.02101,"169,V91.36XD ",.01)
 ;;V91.36XD 
 ;;9002226.02101,"169,V91.36XD ",.02)
 ;;V91.36XD 
 ;;9002226.02101,"169,V91.36XD ",.03)
 ;;30
 ;;9002226.02101,"169,V91.36XS ",.01)
 ;;V91.36XS 
 ;;9002226.02101,"169,V91.36XS ",.02)
 ;;V91.36XS 
 ;;9002226.02101,"169,V91.36XS ",.03)
 ;;30
 ;;9002226.02101,"169,V91.37XA ",.01)
 ;;V91.37XA 
 ;;9002226.02101,"169,V91.37XA ",.02)
 ;;V91.37XA 
 ;;9002226.02101,"169,V91.37XA ",.03)
 ;;30
 ;;9002226.02101,"169,V91.37XD ",.01)
 ;;V91.37XD 
 ;;9002226.02101,"169,V91.37XD ",.02)
 ;;V91.37XD 
 ;;9002226.02101,"169,V91.37XD ",.03)
 ;;30
 ;;9002226.02101,"169,V91.37XS ",.01)
 ;;V91.37XS 
 ;;9002226.02101,"169,V91.37XS ",.02)
 ;;V91.37XS 
 ;;9002226.02101,"169,V91.37XS ",.03)
 ;;30
 ;;9002226.02101,"169,V91.38XA ",.01)
 ;;V91.38XA 
 ;;9002226.02101,"169,V91.38XA ",.02)
 ;;V91.38XA 
 ;;9002226.02101,"169,V91.38XA ",.03)
 ;;30
 ;;9002226.02101,"169,V91.38XD ",.01)
 ;;V91.38XD 
 ;;9002226.02101,"169,V91.38XD ",.02)
 ;;V91.38XD 
 ;;9002226.02101,"169,V91.38XD ",.03)
 ;;30
 ;;9002226.02101,"169,V91.38XS ",.01)
 ;;V91.38XS 
 ;;9002226.02101,"169,V91.38XS ",.02)
 ;;V91.38XS 
 ;;9002226.02101,"169,V91.38XS ",.03)
 ;;30
 ;;9002226.02101,"169,V91.39XA ",.01)
 ;;V91.39XA 
 ;;9002226.02101,"169,V91.39XA ",.02)
 ;;V91.39XA 
 ;;9002226.02101,"169,V91.39XA ",.03)
 ;;30
 ;;9002226.02101,"169,V91.39XD ",.01)
 ;;V91.39XD 
 ;;9002226.02101,"169,V91.39XD ",.02)
 ;;V91.39XD 
 ;;9002226.02101,"169,V91.39XD ",.03)
 ;;30
 ;;9002226.02101,"169,V91.39XS ",.01)
 ;;V91.39XS 
 ;;9002226.02101,"169,V91.39XS ",.02)
 ;;V91.39XS 
 ;;9002226.02101,"169,V91.39XS ",.03)
 ;;30
 ;;9002226.02101,"169,V91.80XA ",.01)
 ;;V91.80XA 
 ;;9002226.02101,"169,V91.80XA ",.02)
 ;;V91.80XA 
 ;;9002226.02101,"169,V91.80XA ",.03)
 ;;30
 ;;9002226.02101,"169,V91.80XD ",.01)
 ;;V91.80XD 
 ;;9002226.02101,"169,V91.80XD ",.02)
 ;;V91.80XD 
 ;;9002226.02101,"169,V91.80XD ",.03)
 ;;30
 ;;9002226.02101,"169,V91.80XS ",.01)
 ;;V91.80XS 
 ;;9002226.02101,"169,V91.80XS ",.02)
 ;;V91.80XS 
 ;;9002226.02101,"169,V91.80XS ",.03)
 ;;30
 ;;9002226.02101,"169,V91.81XA ",.01)
 ;;V91.81XA 
 ;;9002226.02101,"169,V91.81XA ",.02)
 ;;V91.81XA 
 ;;9002226.02101,"169,V91.81XA ",.03)
 ;;30
 ;;9002226.02101,"169,V91.81XD ",.01)
 ;;V91.81XD 
 ;;9002226.02101,"169,V91.81XD ",.02)
 ;;V91.81XD 
 ;;9002226.02101,"169,V91.81XD ",.03)
 ;;30
 ;;9002226.02101,"169,V91.81XS ",.01)
 ;;V91.81XS 
 ;;9002226.02101,"169,V91.81XS ",.02)
 ;;V91.81XS 
 ;;9002226.02101,"169,V91.81XS ",.03)
 ;;30
 ;;9002226.02101,"169,V91.82XA ",.01)
 ;;V91.82XA 
 ;;9002226.02101,"169,V91.82XA ",.02)
 ;;V91.82XA 
 ;;9002226.02101,"169,V91.82XA ",.03)
 ;;30
 ;;9002226.02101,"169,V91.82XD ",.01)
 ;;V91.82XD 
 ;;9002226.02101,"169,V91.82XD ",.02)
 ;;V91.82XD 
 ;;9002226.02101,"169,V91.82XD ",.03)
 ;;30
 ;;9002226.02101,"169,V91.82XS ",.01)
 ;;V91.82XS 
 ;;9002226.02101,"169,V91.82XS ",.02)
 ;;V91.82XS 
 ;;9002226.02101,"169,V91.82XS ",.03)
 ;;30
 ;;9002226.02101,"169,V91.83XA ",.01)
 ;;V91.83XA 
 ;;9002226.02101,"169,V91.83XA ",.02)
 ;;V91.83XA 
 ;;9002226.02101,"169,V91.83XA ",.03)
 ;;30
 ;;9002226.02101,"169,V91.83XD ",.01)
 ;;V91.83XD 
 ;;9002226.02101,"169,V91.83XD ",.02)
 ;;V91.83XD 
 ;;9002226.02101,"169,V91.83XD ",.03)
 ;;30
 ;;9002226.02101,"169,V91.83XS ",.01)
 ;;V91.83XS 
 ;;9002226.02101,"169,V91.83XS ",.02)
 ;;V91.83XS 
 ;;9002226.02101,"169,V91.83XS ",.03)
 ;;30
 ;;9002226.02101,"169,V91.84XA ",.01)
 ;;V91.84XA 
 ;;9002226.02101,"169,V91.84XA ",.02)
 ;;V91.84XA 
 ;;9002226.02101,"169,V91.84XA ",.03)
 ;;30
 ;;9002226.02101,"169,V91.84XD ",.01)
 ;;V91.84XD 
 ;;9002226.02101,"169,V91.84XD ",.02)
 ;;V91.84XD 
 ;;9002226.02101,"169,V91.84XD ",.03)
 ;;30
 ;;9002226.02101,"169,V91.84XS ",.01)
 ;;V91.84XS 
 ;;9002226.02101,"169,V91.84XS ",.02)
 ;;V91.84XS