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

ATXD9A4.m

Go to the documentation of this file.
ATXD9A4 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON NOV 13, 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,"1787,T49.5X5A ",.01)
 ;;T49.5X5A 
 ;;9002226.02101,"1787,T49.5X5A ",.02)
 ;;T49.5X5A 
 ;;9002226.02101,"1787,T49.5X5A ",.03)
 ;;30
 ;;9002226.02101,"1787,T49.6X5A ",.01)
 ;;T49.6X5A 
 ;;9002226.02101,"1787,T49.6X5A ",.02)
 ;;T49.6X5A 
 ;;9002226.02101,"1787,T49.6X5A ",.03)
 ;;30
 ;;9002226.02101,"1787,T49.7X5A ",.01)
 ;;T49.7X5A 
 ;;9002226.02101,"1787,T49.7X5A ",.02)
 ;;T49.7X5A 
 ;;9002226.02101,"1787,T49.7X5A ",.03)
 ;;30
 ;;9002226.02101,"1787,T49.8X5A ",.01)
 ;;T49.8X5A 
 ;;9002226.02101,"1787,T49.8X5A ",.02)
 ;;T49.8X5A 
 ;;9002226.02101,"1787,T49.8X5A ",.03)
 ;;30
 ;;9002226.02101,"1787,T49.95XA ",.01)
 ;;T49.95XA 
 ;;9002226.02101,"1787,T49.95XA ",.02)
 ;;T49.95XA 
 ;;9002226.02101,"1787,T49.95XA ",.03)
 ;;30
 ;;9002226.02101,"1787,T50.0X5A ",.01)
 ;;T50.0X5A 
 ;;9002226.02101,"1787,T50.0X5A ",.02)
 ;;T50.0X5A 
 ;;9002226.02101,"1787,T50.0X5A ",.03)
 ;;30
 ;;9002226.02101,"1787,T50.1X5A ",.01)
 ;;T50.1X5A 
 ;;9002226.02101,"1787,T50.1X5A ",.02)
 ;;T50.1X5A 
 ;;9002226.02101,"1787,T50.1X5A ",.03)
 ;;30
 ;;9002226.02101,"1787,T50.2X5A ",.01)
 ;;T50.2X5A 
 ;;9002226.02101,"1787,T50.2X5A ",.02)
 ;;T50.2X5A 
 ;;9002226.02101,"1787,T50.2X5A ",.03)
 ;;30
 ;;9002226.02101,"1787,T50.3X5A ",.01)
 ;;T50.3X5A 
 ;;9002226.02101,"1787,T50.3X5A ",.02)
 ;;T50.3X5A 
 ;;9002226.02101,"1787,T50.3X5A ",.03)
 ;;30
 ;;9002226.02101,"1787,T50.4X5A ",.01)
 ;;T50.4X5A 
 ;;9002226.02101,"1787,T50.4X5A ",.02)
 ;;T50.4X5A 
 ;;9002226.02101,"1787,T50.4X5A ",.03)
 ;;30
 ;;9002226.02101,"1787,T50.5X5A ",.01)
 ;;T50.5X5A 
 ;;9002226.02101,"1787,T50.5X5A ",.02)
 ;;T50.5X5A 
 ;;9002226.02101,"1787,T50.5X5A ",.03)
 ;;30
 ;;9002226.02101,"1787,T50.6X5A ",.01)
 ;;T50.6X5A 
 ;;9002226.02101,"1787,T50.6X5A ",.02)
 ;;T50.6X5A 
 ;;9002226.02101,"1787,T50.6X5A ",.03)
 ;;30
 ;;9002226.02101,"1787,T50.7X5A ",.01)
 ;;T50.7X5A 
 ;;9002226.02101,"1787,T50.7X5A ",.02)
 ;;T50.7X5A 
 ;;9002226.02101,"1787,T50.7X5A ",.03)
 ;;30
 ;;9002226.02101,"1787,T50.8X5A ",.01)
 ;;T50.8X5A 
 ;;9002226.02101,"1787,T50.8X5A ",.02)
 ;;T50.8X5A 
 ;;9002226.02101,"1787,T50.8X5A ",.03)
 ;;30
 ;;9002226.02101,"1787,T50.905A ",.01)
 ;;T50.905A 
 ;;9002226.02101,"1787,T50.905A ",.02)
 ;;T50.905A 
 ;;9002226.02101,"1787,T50.905A ",.03)
 ;;30
 ;;9002226.02101,"1787,T50.995A ",.01)
 ;;T50.995A 
 ;;9002226.02101,"1787,T50.995A ",.02)
 ;;T50.995A 
 ;;9002226.02101,"1787,T50.995A ",.03)
 ;;30
 ;;9002226.02101,"1787,T50.A15A ",.01)
 ;;T50.A15A 
 ;;9002226.02101,"1787,T50.A15A ",.02)
 ;;T50.A15A 
 ;;9002226.02101,"1787,T50.A15A ",.03)
 ;;30
 ;;9002226.02101,"1787,T50.A25A ",.01)
 ;;T50.A25A 
 ;;9002226.02101,"1787,T50.A25A ",.02)
 ;;T50.A25A 
 ;;9002226.02101,"1787,T50.A25A ",.03)
 ;;30
 ;;9002226.02101,"1787,T50.A95A ",.01)
 ;;T50.A95A 
 ;;9002226.02101,"1787,T50.A95A ",.02)
 ;;T50.A95A 
 ;;9002226.02101,"1787,T50.A95A ",.03)
 ;;30
 ;;9002226.02101,"1787,T50.B15A ",.01)
 ;;T50.B15A 
 ;;9002226.02101,"1787,T50.B15A ",.02)
 ;;T50.B15A 
 ;;9002226.02101,"1787,T50.B15A ",.03)
 ;;30
 ;;9002226.02101,"1787,T50.B95A ",.01)
 ;;T50.B95A 
 ;;9002226.02101,"1787,T50.B95A ",.02)
 ;;T50.B95A 
 ;;9002226.02101,"1787,T50.B95A ",.03)
 ;;30
 ;;9002226.02101,"1787,T50.Z15A ",.01)
 ;;T50.Z15A 
 ;;9002226.02101,"1787,T50.Z15A ",.02)
 ;;T50.Z15A 
 ;;9002226.02101,"1787,T50.Z15A ",.03)
 ;;30
 ;;9002226.02101,"1787,T50.Z95A ",.01)
 ;;T50.Z95A 
 ;;9002226.02101,"1787,T50.Z95A ",.02)
 ;;T50.Z95A 
 ;;9002226.02101,"1787,T50.Z95A ",.03)
 ;;30
 ;;9002226.02101,"1787,T78.00XA ",.01)
 ;;T78.00XA 
 ;;9002226.02101,"1787,T78.00XA ",.02)
 ;;T78.00XA 
 ;;9002226.02101,"1787,T78.00XA ",.03)
 ;;30
 ;;9002226.02101,"1787,T78.01XA ",.01)
 ;;T78.01XA 
 ;;9002226.02101,"1787,T78.01XA ",.02)
 ;;T78.01XA 
 ;;9002226.02101,"1787,T78.01XA ",.03)
 ;;30
 ;;9002226.02101,"1787,T78.02XA ",.01)
 ;;T78.02XA 
 ;;9002226.02101,"1787,T78.02XA ",.02)
 ;;T78.02XA 
 ;;9002226.02101,"1787,T78.02XA ",.03)
 ;;30
 ;;9002226.02101,"1787,T78.03XA ",.01)
 ;;T78.03XA 
 ;;9002226.02101,"1787,T78.03XA ",.02)
 ;;T78.03XA 
 ;;9002226.02101,"1787,T78.03XA ",.03)
 ;;30
 ;;9002226.02101,"1787,T78.04XA ",.01)
 ;;T78.04XA 
 ;;9002226.02101,"1787,T78.04XA ",.02)
 ;;T78.04XA 
 ;;9002226.02101,"1787,T78.04XA ",.03)
 ;;30
 ;;9002226.02101,"1787,T78.05XA ",.01)
 ;;T78.05XA 
 ;;9002226.02101,"1787,T78.05XA ",.02)
 ;;T78.05XA 
 ;;9002226.02101,"1787,T78.05XA ",.03)
 ;;30
 ;;9002226.02101,"1787,T78.06XA ",.01)
 ;;T78.06XA 
 ;;9002226.02101,"1787,T78.06XA ",.02)
 ;;T78.06XA 
 ;;9002226.02101,"1787,T78.06XA ",.03)
 ;;30
 ;;9002226.02101,"1787,T78.07XA ",.01)
 ;;T78.07XA 
 ;;9002226.02101,"1787,T78.07XA ",.02)
 ;;T78.07XA 
 ;;9002226.02101,"1787,T78.07XA ",.03)
 ;;30
 ;;9002226.02101,"1787,T78.08XA ",.01)
 ;;T78.08XA 
 ;;9002226.02101,"1787,T78.08XA ",.02)
 ;;T78.08XA 
 ;;9002226.02101,"1787,T78.08XA ",.03)
 ;;30
 ;;9002226.02101,"1787,T78.09XA ",.01)
 ;;T78.09XA 
 ;;9002226.02101,"1787,T78.09XA ",.02)
 ;;T78.09XA 
 ;;9002226.02101,"1787,T78.09XA ",.03)
 ;;30
 ;;9002226.02101,"1787,T78.1XXA ",.01)
 ;;T78.1XXA 
 ;;9002226.02101,"1787,T78.1XXA ",.02)
 ;;T78.1XXA 
 ;;9002226.02101,"1787,T78.1XXA ",.03)
 ;;30
 ;;9002226.02101,"1787,T78.2XXA ",.01)
 ;;T78.2XXA 
 ;;9002226.02101,"1787,T78.2XXA ",.02)
 ;;T78.2XXA 
 ;;9002226.02101,"1787,T78.2XXA ",.03)
 ;;30
 ;;9002226.02101,"1787,T78.3XXA ",.01)
 ;;T78.3XXA 
 ;;9002226.02101,"1787,T78.3XXA ",.02)
 ;;T78.3XXA 
 ;;9002226.02101,"1787,T78.3XXA ",.03)
 ;;30
 ;;9002226.02101,"1787,T78.40XA ",.01)
 ;;T78.40XA 
 ;;9002226.02101,"1787,T78.40XA ",.02)
 ;;T78.40XA 
 ;;9002226.02101,"1787,T78.40XA ",.03)
 ;;30
 ;;9002226.02101,"1787,T78.41XA ",.01)
 ;;T78.41XA 
 ;;9002226.02101,"1787,T78.41XA ",.02)
 ;;T78.41XA 
 ;;9002226.02101,"1787,T78.41XA ",.03)
 ;;30
 ;;9002226.02101,"1787,T78.49XA ",.01)
 ;;T78.49XA 
 ;;9002226.02101,"1787,T78.49XA ",.02)
 ;;T78.49XA 
 ;;9002226.02101,"1787,T78.49XA ",.03)
 ;;30
 ;;9002226.02101,"1787,T78.8XXA ",.01)
 ;;T78.8XXA 
 ;;9002226.02101,"1787,T78.8XXA ",.02)
 ;;T78.8XXA 
 ;;9002226.02101,"1787,T78.8XXA ",.03)
 ;;30
 ;;9002226.02101,"1787,T80.51XA ",.01)
 ;;T80.51XA 
 ;;9002226.02101,"1787,T80.51XA ",.02)
 ;;T80.51XA 
 ;;9002226.02101,"1787,T80.51XA ",.03)
 ;;30
 ;;9002226.02101,"1787,T80.52XA ",.01)
 ;;T80.52XA 
 ;;9002226.02101,"1787,T80.52XA ",.02)
 ;;T80.52XA 
 ;;9002226.02101,"1787,T80.52XA ",.03)
 ;;30
 ;;9002226.02101,"1787,T80.59XA ",.01)
 ;;T80.59XA 
 ;;9002226.02101,"1787,T80.59XA ",.02)
 ;;T80.59XA 
 ;;9002226.02101,"1787,T80.59XA ",.03)
 ;;30
 ;;9002226.02101,"1787,T80.61XA ",.01)
 ;;T80.61XA 
 ;;9002226.02101,"1787,T80.61XA ",.02)
 ;;T80.61XA 
 ;;9002226.02101,"1787,T80.61XA ",.03)
 ;;30
 ;;9002226.02101,"1787,T80.62XA ",.01)
 ;;T80.62XA 
 ;;9002226.02101,"1787,T80.62XA ",.02)
 ;;T80.62XA 
 ;;9002226.02101,"1787,T80.62XA ",.03)
 ;;30
 ;;9002226.02101,"1787,T80.69XA ",.01)
 ;;T80.69XA 
 ;;9002226.02101,"1787,T80.69XA ",.02)
 ;;T80.69XA 
 ;;9002226.02101,"1787,T80.69XA ",.03)
 ;;30
 ;;9002226.02101,"1787,T80.910A ",.01)
 ;;T80.910A 
 ;;9002226.02101,"1787,T80.910A ",.02)
 ;;T80.910A 
 ;;9002226.02101,"1787,T80.910A ",.03)
 ;;30
 ;;9002226.02101,"1787,T80.911A ",.01)
 ;;T80.911A 
 ;;9002226.02101,"1787,T80.911A ",.02)
 ;;T80.911A 
 ;;9002226.02101,"1787,T80.911A ",.03)
 ;;30
 ;;9002226.02101,"1787,T80.919A ",.01)
 ;;T80.919A 
 ;;9002226.02101,"1787,T80.919A ",.02)
 ;;T80.919A 
 ;;9002226.02101,"1787,T80.919A ",.03)
 ;;30
 ;;9002226.02101,"1787,T80.92XA ",.01)
 ;;T80.92XA 
 ;;9002226.02101,"1787,T80.92XA ",.02)
 ;;T80.92XA 
 ;;9002226.02101,"1787,T80.92XA ",.03)
 ;;30
 ;;9002226.02101,"1787,T88.6XXA ",.01)
 ;;T88.6XXA 
 ;;9002226.02101,"1787,T88.6XXA ",.02)
 ;;T88.6XXA 
 ;;9002226.02101,"1787,T88.6XXA ",.03)
 ;;30
 ;;9002226.02101,"1787,V14.0 ",.01)
 ;;V14.0 
 ;;9002226.02101,"1787,V14.0 ",.02)
 ;;V14.9 
 ;;9002226.02101,"1787,V14.0 ",.03)
 ;;1
 ;;9002226.02101,"1787,V15.0 ",.01)
 ;;V15.0 
 ;;9002226.02101,"1787,V15.0 ",.02)
 ;;V15.09 
 ;;9002226.02101,"1787,V15.0 ",.03)
 ;;1
 ;;9002226.02101,"1787,Z88.0 ",.01)
 ;;Z88.0 
 ;;9002226.02101,"1787,Z88.0 ",.02)
 ;;Z88.0 
 ;;9002226.02101,"1787,Z88.0 ",.03)
 ;;30
 ;;9002226.02101,"1787,Z88.1 ",.01)
 ;;Z88.1 
 ;;9002226.02101,"1787,Z88.1 ",.02)
 ;;Z88.1 
 ;;9002226.02101,"1787,Z88.1 ",.03)
 ;;30
 ;;9002226.02101,"1787,Z88.2 ",.01)
 ;;Z88.2 
 ;;9002226.02101,"1787,Z88.2 ",.02)
 ;;Z88.2 
 ;;9002226.02101,"1787,Z88.2 ",.03)
 ;;30
 ;;9002226.02101,"1787,Z88.3 ",.01)
 ;;Z88.3 
 ;;9002226.02101,"1787,Z88.3 ",.02)
 ;;Z88.3 
 ;;9002226.02101,"1787,Z88.3 ",.03)
 ;;30
 ;;9002226.02101,"1787,Z88.4 ",.01)
 ;;Z88.4 
 ;;9002226.02101,"1787,Z88.4 ",.02)
 ;;Z88.4 
 ;;9002226.02101,"1787,Z88.4 ",.03)
 ;;30
 ;;9002226.02101,"1787,Z88.5 ",.01)
 ;;Z88.5 
 ;;9002226.02101,"1787,Z88.5 ",.02)
 ;;Z88.5 
 ;;9002226.02101,"1787,Z88.5 ",.03)
 ;;30
 ;;9002226.02101,"1787,Z88.6 ",.01)
 ;;Z88.6 
 ;;9002226.02101,"1787,Z88.6 ",.02)
 ;;Z88.6 
 ;;9002226.02101,"1787,Z88.6 ",.03)
 ;;30
 ;;9002226.02101,"1787,Z88.7 ",.01)
 ;;Z88.7 
 ;;9002226.02101,"1787,Z88.7 ",.02)
 ;;Z88.7 
 ;;9002226.02101,"1787,Z88.7 ",.03)
 ;;30
 ;;9002226.02101,"1787,Z88.8 ",.01)
 ;;Z88.8 
 ;;9002226.02101,"1787,Z88.8 ",.02)
 ;;Z88.8 
 ;;9002226.02101,"1787,Z88.8 ",.03)
 ;;30
 ;;9002226.02101,"1787,Z88.9 ",.01)
 ;;Z88.9 
 ;;9002226.02101,"1787,Z88.9 ",.02)
 ;;Z88.9 
 ;;9002226.02101,"1787,Z88.9 ",.03)
 ;;30
 ;;9002226.02101,"1787,Z91.010 ",.01)
 ;;Z91.010 
 ;;9002226.02101,"1787,Z91.010 ",.02)
 ;;Z91.010 
 ;;9002226.02101,"1787,Z91.010 ",.03)
 ;;30
 ;;9002226.02101,"1787,Z91.011 ",.01)
 ;;Z91.011 
 ;;9002226.02101,"1787,Z91.011 ",.02)
 ;;Z91.011 
 ;;9002226.02101,"1787,Z91.011 ",.03)
 ;;30
 ;;9002226.02101,"1787,Z91.012 ",.01)
 ;;Z91.012 
 ;;9002226.02101,"1787,Z91.012 ",.02)
 ;;Z91.012 
 ;;9002226.02101,"1787,Z91.012 ",.03)
 ;;30
 ;;9002226.02101,"1787,Z91.013 ",.01)
 ;;Z91.013 
 ;;9002226.02101,"1787,Z91.013 ",.02)
 ;;Z91.013 
 ;;9002226.02101,"1787,Z91.013 ",.03)
 ;;30
 ;;9002226.02101,"1787,Z91.018 ",.01)
 ;;Z91.018 
 ;;9002226.02101,"1787,Z91.018 ",.02)
 ;;Z91.018 
 ;;9002226.02101,"1787,Z91.018 ",.03)
 ;;30
 ;;9002226.02101,"1787,Z91.02 ",.01)
 ;;Z91.02 
 ;;9002226.02101,"1787,Z91.02 ",.02)
 ;;Z91.02 
 ;;9002226.02101,"1787,Z91.02 ",.03)
 ;;30
 ;;9002226.02101,"1787,Z91.030 ",.01)
 ;;Z91.030 
 ;;9002226.02101,"1787,Z91.030 ",.02)
 ;;Z91.030 
 ;;9002226.02101,"1787,Z91.030 ",.03)
 ;;30
 ;;9002226.02101,"1787,Z91.038 ",.01)
 ;;Z91.038 
 ;;9002226.02101,"1787,Z91.038 ",.02)
 ;;Z91.038 
 ;;9002226.02101,"1787,Z91.038 ",.03)
 ;;30
 ;;9002226.02101,"1787,Z91.040 ",.01)
 ;;Z91.040 
 ;;9002226.02101,"1787,Z91.040 ",.02)
 ;;Z91.040 
 ;;9002226.02101,"1787,Z91.040 ",.03)
 ;;30
 ;;9002226.02101,"1787,Z91.041 ",.01)
 ;;Z91.041 
 ;;9002226.02101,"1787,Z91.041 ",.02)
 ;;Z91.041 
 ;;9002226.02101,"1787,Z91.041 ",.03)
 ;;30
 ;;9002226.02101,"1787,Z91.048 ",.01)
 ;;Z91.048 
 ;;9002226.02101,"1787,Z91.048 ",.02)
 ;;Z91.048 
 ;;9002226.02101,"1787,Z91.048 ",.03)
 ;;30
 ;;9002226.02101,"1787,Z91.09 ",.01)
 ;;Z91.09 
 ;;9002226.02101,"1787,Z91.09 ",.02)
 ;;Z91.09 
 ;;9002226.02101,"1787,Z91.09 ",.03)
 ;;30