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.
  1. ATXD9A4 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON NOV 13, 2013;
  1. ;;5.1;TAXONOMY;**11**;FEB 04, 1997;Build 48
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"1787,T49.5X5A ",.01)
  1. ;;T49.5X5A
  1. ;;9002226.02101,"1787,T49.5X5A ",.02)
  1. ;;T49.5X5A
  1. ;;9002226.02101,"1787,T49.5X5A ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,T49.6X5A ",.01)
  1. ;;T49.6X5A
  1. ;;9002226.02101,"1787,T49.6X5A ",.02)
  1. ;;T49.6X5A
  1. ;;9002226.02101,"1787,T49.6X5A ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,T49.7X5A ",.01)
  1. ;;T49.7X5A
  1. ;;9002226.02101,"1787,T49.7X5A ",.02)
  1. ;;T49.7X5A
  1. ;;9002226.02101,"1787,T49.7X5A ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,T49.8X5A ",.01)
  1. ;;T49.8X5A
  1. ;;9002226.02101,"1787,T49.8X5A ",.02)
  1. ;;T49.8X5A
  1. ;;9002226.02101,"1787,T49.8X5A ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,T49.95XA ",.01)
  1. ;;T49.95XA
  1. ;;9002226.02101,"1787,T49.95XA ",.02)
  1. ;;T49.95XA
  1. ;;9002226.02101,"1787,T49.95XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,T50.0X5A ",.01)
  1. ;;T50.0X5A
  1. ;;9002226.02101,"1787,T50.0X5A ",.02)
  1. ;;T50.0X5A
  1. ;;9002226.02101,"1787,T50.0X5A ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,T50.1X5A ",.01)
  1. ;;T50.1X5A
  1. ;;9002226.02101,"1787,T50.1X5A ",.02)
  1. ;;T50.1X5A
  1. ;;9002226.02101,"1787,T50.1X5A ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,T50.2X5A ",.01)
  1. ;;T50.2X5A
  1. ;;9002226.02101,"1787,T50.2X5A ",.02)
  1. ;;T50.2X5A
  1. ;;9002226.02101,"1787,T50.2X5A ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,T50.3X5A ",.01)
  1. ;;T50.3X5A
  1. ;;9002226.02101,"1787,T50.3X5A ",.02)
  1. ;;T50.3X5A
  1. ;;9002226.02101,"1787,T50.3X5A ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,T50.4X5A ",.01)
  1. ;;T50.4X5A
  1. ;;9002226.02101,"1787,T50.4X5A ",.02)
  1. ;;T50.4X5A
  1. ;;9002226.02101,"1787,T50.4X5A ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,T50.5X5A ",.01)
  1. ;;T50.5X5A
  1. ;;9002226.02101,"1787,T50.5X5A ",.02)
  1. ;;T50.5X5A
  1. ;;9002226.02101,"1787,T50.5X5A ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,T50.6X5A ",.01)
  1. ;;T50.6X5A
  1. ;;9002226.02101,"1787,T50.6X5A ",.02)
  1. ;;T50.6X5A
  1. ;;9002226.02101,"1787,T50.6X5A ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,T50.7X5A ",.01)
  1. ;;T50.7X5A
  1. ;;9002226.02101,"1787,T50.7X5A ",.02)
  1. ;;T50.7X5A
  1. ;;9002226.02101,"1787,T50.7X5A ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,T50.8X5A ",.01)
  1. ;;T50.8X5A
  1. ;;9002226.02101,"1787,T50.8X5A ",.02)
  1. ;;T50.8X5A
  1. ;;9002226.02101,"1787,T50.8X5A ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,T50.905A ",.01)
  1. ;;T50.905A
  1. ;;9002226.02101,"1787,T50.905A ",.02)
  1. ;;T50.905A
  1. ;;9002226.02101,"1787,T50.905A ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,T50.995A ",.01)
  1. ;;T50.995A
  1. ;;9002226.02101,"1787,T50.995A ",.02)
  1. ;;T50.995A
  1. ;;9002226.02101,"1787,T50.995A ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,T50.A15A ",.01)
  1. ;;T50.A15A
  1. ;;9002226.02101,"1787,T50.A15A ",.02)
  1. ;;T50.A15A
  1. ;;9002226.02101,"1787,T50.A15A ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,T50.A25A ",.01)
  1. ;;T50.A25A
  1. ;;9002226.02101,"1787,T50.A25A ",.02)
  1. ;;T50.A25A
  1. ;;9002226.02101,"1787,T50.A25A ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,T50.A95A ",.01)
  1. ;;T50.A95A
  1. ;;9002226.02101,"1787,T50.A95A ",.02)
  1. ;;T50.A95A
  1. ;;9002226.02101,"1787,T50.A95A ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,T50.B15A ",.01)
  1. ;;T50.B15A
  1. ;;9002226.02101,"1787,T50.B15A ",.02)
  1. ;;T50.B15A
  1. ;;9002226.02101,"1787,T50.B15A ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,T50.B95A ",.01)
  1. ;;T50.B95A
  1. ;;9002226.02101,"1787,T50.B95A ",.02)
  1. ;;T50.B95A
  1. ;;9002226.02101,"1787,T50.B95A ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,T50.Z15A ",.01)
  1. ;;T50.Z15A
  1. ;;9002226.02101,"1787,T50.Z15A ",.02)
  1. ;;T50.Z15A
  1. ;;9002226.02101,"1787,T50.Z15A ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,T50.Z95A ",.01)
  1. ;;T50.Z95A
  1. ;;9002226.02101,"1787,T50.Z95A ",.02)
  1. ;;T50.Z95A
  1. ;;9002226.02101,"1787,T50.Z95A ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,T78.00XA ",.01)
  1. ;;T78.00XA
  1. ;;9002226.02101,"1787,T78.00XA ",.02)
  1. ;;T78.00XA
  1. ;;9002226.02101,"1787,T78.00XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,T78.01XA ",.01)
  1. ;;T78.01XA
  1. ;;9002226.02101,"1787,T78.01XA ",.02)
  1. ;;T78.01XA
  1. ;;9002226.02101,"1787,T78.01XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,T78.02XA ",.01)
  1. ;;T78.02XA
  1. ;;9002226.02101,"1787,T78.02XA ",.02)
  1. ;;T78.02XA
  1. ;;9002226.02101,"1787,T78.02XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,T78.03XA ",.01)
  1. ;;T78.03XA
  1. ;;9002226.02101,"1787,T78.03XA ",.02)
  1. ;;T78.03XA
  1. ;;9002226.02101,"1787,T78.03XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,T78.04XA ",.01)
  1. ;;T78.04XA
  1. ;;9002226.02101,"1787,T78.04XA ",.02)
  1. ;;T78.04XA
  1. ;;9002226.02101,"1787,T78.04XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,T78.05XA ",.01)
  1. ;;T78.05XA
  1. ;;9002226.02101,"1787,T78.05XA ",.02)
  1. ;;T78.05XA
  1. ;;9002226.02101,"1787,T78.05XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,T78.06XA ",.01)
  1. ;;T78.06XA
  1. ;;9002226.02101,"1787,T78.06XA ",.02)
  1. ;;T78.06XA
  1. ;;9002226.02101,"1787,T78.06XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,T78.07XA ",.01)
  1. ;;T78.07XA
  1. ;;9002226.02101,"1787,T78.07XA ",.02)
  1. ;;T78.07XA
  1. ;;9002226.02101,"1787,T78.07XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,T78.08XA ",.01)
  1. ;;T78.08XA
  1. ;;9002226.02101,"1787,T78.08XA ",.02)
  1. ;;T78.08XA
  1. ;;9002226.02101,"1787,T78.08XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,T78.09XA ",.01)
  1. ;;T78.09XA
  1. ;;9002226.02101,"1787,T78.09XA ",.02)
  1. ;;T78.09XA
  1. ;;9002226.02101,"1787,T78.09XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,T78.1XXA ",.01)
  1. ;;T78.1XXA
  1. ;;9002226.02101,"1787,T78.1XXA ",.02)
  1. ;;T78.1XXA
  1. ;;9002226.02101,"1787,T78.1XXA ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,T78.2XXA ",.01)
  1. ;;T78.2XXA
  1. ;;9002226.02101,"1787,T78.2XXA ",.02)
  1. ;;T78.2XXA
  1. ;;9002226.02101,"1787,T78.2XXA ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,T78.3XXA ",.01)
  1. ;;T78.3XXA
  1. ;;9002226.02101,"1787,T78.3XXA ",.02)
  1. ;;T78.3XXA
  1. ;;9002226.02101,"1787,T78.3XXA ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,T78.40XA ",.01)
  1. ;;T78.40XA
  1. ;;9002226.02101,"1787,T78.40XA ",.02)
  1. ;;T78.40XA
  1. ;;9002226.02101,"1787,T78.40XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,T78.41XA ",.01)
  1. ;;T78.41XA
  1. ;;9002226.02101,"1787,T78.41XA ",.02)
  1. ;;T78.41XA
  1. ;;9002226.02101,"1787,T78.41XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,T78.49XA ",.01)
  1. ;;T78.49XA
  1. ;;9002226.02101,"1787,T78.49XA ",.02)
  1. ;;T78.49XA
  1. ;;9002226.02101,"1787,T78.49XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,T78.8XXA ",.01)
  1. ;;T78.8XXA
  1. ;;9002226.02101,"1787,T78.8XXA ",.02)
  1. ;;T78.8XXA
  1. ;;9002226.02101,"1787,T78.8XXA ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,T80.51XA ",.01)
  1. ;;T80.51XA
  1. ;;9002226.02101,"1787,T80.51XA ",.02)
  1. ;;T80.51XA
  1. ;;9002226.02101,"1787,T80.51XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,T80.52XA ",.01)
  1. ;;T80.52XA
  1. ;;9002226.02101,"1787,T80.52XA ",.02)
  1. ;;T80.52XA
  1. ;;9002226.02101,"1787,T80.52XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,T80.59XA ",.01)
  1. ;;T80.59XA
  1. ;;9002226.02101,"1787,T80.59XA ",.02)
  1. ;;T80.59XA
  1. ;;9002226.02101,"1787,T80.59XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,T80.61XA ",.01)
  1. ;;T80.61XA
  1. ;;9002226.02101,"1787,T80.61XA ",.02)
  1. ;;T80.61XA
  1. ;;9002226.02101,"1787,T80.61XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,T80.62XA ",.01)
  1. ;;T80.62XA
  1. ;;9002226.02101,"1787,T80.62XA ",.02)
  1. ;;T80.62XA
  1. ;;9002226.02101,"1787,T80.62XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,T80.69XA ",.01)
  1. ;;T80.69XA
  1. ;;9002226.02101,"1787,T80.69XA ",.02)
  1. ;;T80.69XA
  1. ;;9002226.02101,"1787,T80.69XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,T80.910A ",.01)
  1. ;;T80.910A
  1. ;;9002226.02101,"1787,T80.910A ",.02)
  1. ;;T80.910A
  1. ;;9002226.02101,"1787,T80.910A ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,T80.911A ",.01)
  1. ;;T80.911A
  1. ;;9002226.02101,"1787,T80.911A ",.02)
  1. ;;T80.911A
  1. ;;9002226.02101,"1787,T80.911A ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,T80.919A ",.01)
  1. ;;T80.919A
  1. ;;9002226.02101,"1787,T80.919A ",.02)
  1. ;;T80.919A
  1. ;;9002226.02101,"1787,T80.919A ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,T80.92XA ",.01)
  1. ;;T80.92XA
  1. ;;9002226.02101,"1787,T80.92XA ",.02)
  1. ;;T80.92XA
  1. ;;9002226.02101,"1787,T80.92XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,T88.6XXA ",.01)
  1. ;;T88.6XXA
  1. ;;9002226.02101,"1787,T88.6XXA ",.02)
  1. ;;T88.6XXA
  1. ;;9002226.02101,"1787,T88.6XXA ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,V14.0 ",.01)
  1. ;;V14.0
  1. ;;9002226.02101,"1787,V14.0 ",.02)
  1. ;;V14.9
  1. ;;9002226.02101,"1787,V14.0 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1787,V15.0 ",.01)
  1. ;;V15.0
  1. ;;9002226.02101,"1787,V15.0 ",.02)
  1. ;;V15.09
  1. ;;9002226.02101,"1787,V15.0 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1787,Z88.0 ",.01)
  1. ;;Z88.0
  1. ;;9002226.02101,"1787,Z88.0 ",.02)
  1. ;;Z88.0
  1. ;;9002226.02101,"1787,Z88.0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,Z88.1 ",.01)
  1. ;;Z88.1
  1. ;;9002226.02101,"1787,Z88.1 ",.02)
  1. ;;Z88.1
  1. ;;9002226.02101,"1787,Z88.1 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,Z88.2 ",.01)
  1. ;;Z88.2
  1. ;;9002226.02101,"1787,Z88.2 ",.02)
  1. ;;Z88.2
  1. ;;9002226.02101,"1787,Z88.2 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,Z88.3 ",.01)
  1. ;;Z88.3
  1. ;;9002226.02101,"1787,Z88.3 ",.02)
  1. ;;Z88.3
  1. ;;9002226.02101,"1787,Z88.3 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,Z88.4 ",.01)
  1. ;;Z88.4
  1. ;;9002226.02101,"1787,Z88.4 ",.02)
  1. ;;Z88.4
  1. ;;9002226.02101,"1787,Z88.4 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,Z88.5 ",.01)
  1. ;;Z88.5
  1. ;;9002226.02101,"1787,Z88.5 ",.02)
  1. ;;Z88.5
  1. ;;9002226.02101,"1787,Z88.5 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,Z88.6 ",.01)
  1. ;;Z88.6
  1. ;;9002226.02101,"1787,Z88.6 ",.02)
  1. ;;Z88.6
  1. ;;9002226.02101,"1787,Z88.6 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,Z88.7 ",.01)
  1. ;;Z88.7
  1. ;;9002226.02101,"1787,Z88.7 ",.02)
  1. ;;Z88.7
  1. ;;9002226.02101,"1787,Z88.7 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,Z88.8 ",.01)
  1. ;;Z88.8
  1. ;;9002226.02101,"1787,Z88.8 ",.02)
  1. ;;Z88.8
  1. ;;9002226.02101,"1787,Z88.8 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,Z88.9 ",.01)
  1. ;;Z88.9
  1. ;;9002226.02101,"1787,Z88.9 ",.02)
  1. ;;Z88.9
  1. ;;9002226.02101,"1787,Z88.9 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,Z91.010 ",.01)
  1. ;;Z91.010
  1. ;;9002226.02101,"1787,Z91.010 ",.02)
  1. ;;Z91.010
  1. ;;9002226.02101,"1787,Z91.010 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,Z91.011 ",.01)
  1. ;;Z91.011
  1. ;;9002226.02101,"1787,Z91.011 ",.02)
  1. ;;Z91.011
  1. ;;9002226.02101,"1787,Z91.011 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,Z91.012 ",.01)
  1. ;;Z91.012
  1. ;;9002226.02101,"1787,Z91.012 ",.02)
  1. ;;Z91.012
  1. ;;9002226.02101,"1787,Z91.012 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,Z91.013 ",.01)
  1. ;;Z91.013
  1. ;;9002226.02101,"1787,Z91.013 ",.02)
  1. ;;Z91.013
  1. ;;9002226.02101,"1787,Z91.013 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,Z91.018 ",.01)
  1. ;;Z91.018
  1. ;;9002226.02101,"1787,Z91.018 ",.02)
  1. ;;Z91.018
  1. ;;9002226.02101,"1787,Z91.018 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,Z91.02 ",.01)
  1. ;;Z91.02
  1. ;;9002226.02101,"1787,Z91.02 ",.02)
  1. ;;Z91.02
  1. ;;9002226.02101,"1787,Z91.02 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,Z91.030 ",.01)
  1. ;;Z91.030
  1. ;;9002226.02101,"1787,Z91.030 ",.02)
  1. ;;Z91.030
  1. ;;9002226.02101,"1787,Z91.030 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,Z91.038 ",.01)
  1. ;;Z91.038
  1. ;;9002226.02101,"1787,Z91.038 ",.02)
  1. ;;Z91.038
  1. ;;9002226.02101,"1787,Z91.038 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,Z91.040 ",.01)
  1. ;;Z91.040
  1. ;;9002226.02101,"1787,Z91.040 ",.02)
  1. ;;Z91.040
  1. ;;9002226.02101,"1787,Z91.040 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,Z91.041 ",.01)
  1. ;;Z91.041
  1. ;;9002226.02101,"1787,Z91.041 ",.02)
  1. ;;Z91.041
  1. ;;9002226.02101,"1787,Z91.041 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,Z91.048 ",.01)
  1. ;;Z91.048
  1. ;;9002226.02101,"1787,Z91.048 ",.02)
  1. ;;Z91.048
  1. ;;9002226.02101,"1787,Z91.048 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1787,Z91.09 ",.01)
  1. ;;Z91.09
  1. ;;9002226.02101,"1787,Z91.09 ",.02)
  1. ;;Z91.09
  1. ;;9002226.02101,"1787,Z91.09 ",.03)
  1. ;;30