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

ATXXA34.m

Go to the documentation of this file.
  1. ATXXA34 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON APR 29, 2014;
  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,"873,S10.84XA ",.02)
  1. ;;S10.84XA
  1. ;;9002226.02101,"873,S10.84XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S10.85XA ",.01)
  1. ;;S10.85XA
  1. ;;9002226.02101,"873,S10.85XA ",.02)
  1. ;;S10.85XA
  1. ;;9002226.02101,"873,S10.85XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S10.87XA ",.01)
  1. ;;S10.87XA
  1. ;;9002226.02101,"873,S10.87XA ",.02)
  1. ;;S10.87XA
  1. ;;9002226.02101,"873,S10.87XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S10.90XA ",.01)
  1. ;;S10.90XA
  1. ;;9002226.02101,"873,S10.90XA ",.02)
  1. ;;S10.90XA
  1. ;;9002226.02101,"873,S10.90XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S10.91XA ",.01)
  1. ;;S10.91XA
  1. ;;9002226.02101,"873,S10.91XA ",.02)
  1. ;;S10.91XA
  1. ;;9002226.02101,"873,S10.91XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S10.93XA ",.01)
  1. ;;S10.93XA
  1. ;;9002226.02101,"873,S10.93XA ",.02)
  1. ;;S10.93XA
  1. ;;9002226.02101,"873,S10.93XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S10.94XA ",.01)
  1. ;;S10.94XA
  1. ;;9002226.02101,"873,S10.94XA ",.02)
  1. ;;S10.94XA
  1. ;;9002226.02101,"873,S10.94XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S10.95XA ",.01)
  1. ;;S10.95XA
  1. ;;9002226.02101,"873,S10.95XA ",.02)
  1. ;;S10.95XA
  1. ;;9002226.02101,"873,S10.95XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S10.97XA ",.01)
  1. ;;S10.97XA
  1. ;;9002226.02101,"873,S10.97XA ",.02)
  1. ;;S10.97XA
  1. ;;9002226.02101,"873,S10.97XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S11.011A ",.01)
  1. ;;S11.011A
  1. ;;9002226.02101,"873,S11.011A ",.02)
  1. ;;S11.011A
  1. ;;9002226.02101,"873,S11.011A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S11.012A ",.01)
  1. ;;S11.012A
  1. ;;9002226.02101,"873,S11.012A ",.02)
  1. ;;S11.012A
  1. ;;9002226.02101,"873,S11.012A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S11.013A ",.01)
  1. ;;S11.013A
  1. ;;9002226.02101,"873,S11.013A ",.02)
  1. ;;S11.013A
  1. ;;9002226.02101,"873,S11.013A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S11.014A ",.01)
  1. ;;S11.014A
  1. ;;9002226.02101,"873,S11.014A ",.02)
  1. ;;S11.014A
  1. ;;9002226.02101,"873,S11.014A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S11.015A ",.01)
  1. ;;S11.015A
  1. ;;9002226.02101,"873,S11.015A ",.02)
  1. ;;S11.015A
  1. ;;9002226.02101,"873,S11.015A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S11.019A ",.01)
  1. ;;S11.019A
  1. ;;9002226.02101,"873,S11.019A ",.02)
  1. ;;S11.019A
  1. ;;9002226.02101,"873,S11.019A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S11.021A ",.01)
  1. ;;S11.021A
  1. ;;9002226.02101,"873,S11.021A ",.02)
  1. ;;S11.021A
  1. ;;9002226.02101,"873,S11.021A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S11.022A ",.01)
  1. ;;S11.022A
  1. ;;9002226.02101,"873,S11.022A ",.02)
  1. ;;S11.022A
  1. ;;9002226.02101,"873,S11.022A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S11.023A ",.01)
  1. ;;S11.023A
  1. ;;9002226.02101,"873,S11.023A ",.02)
  1. ;;S11.023A
  1. ;;9002226.02101,"873,S11.023A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S11.024A ",.01)
  1. ;;S11.024A
  1. ;;9002226.02101,"873,S11.024A ",.02)
  1. ;;S11.024A
  1. ;;9002226.02101,"873,S11.024A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S11.025A ",.01)
  1. ;;S11.025A
  1. ;;9002226.02101,"873,S11.025A ",.02)
  1. ;;S11.025A
  1. ;;9002226.02101,"873,S11.025A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S11.029A ",.01)
  1. ;;S11.029A
  1. ;;9002226.02101,"873,S11.029A ",.02)
  1. ;;S11.029A
  1. ;;9002226.02101,"873,S11.029A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S11.031A ",.01)
  1. ;;S11.031A
  1. ;;9002226.02101,"873,S11.031A ",.02)
  1. ;;S11.031A
  1. ;;9002226.02101,"873,S11.031A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S11.032A ",.01)
  1. ;;S11.032A
  1. ;;9002226.02101,"873,S11.032A ",.02)
  1. ;;S11.032A
  1. ;;9002226.02101,"873,S11.032A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S11.033A ",.01)
  1. ;;S11.033A
  1. ;;9002226.02101,"873,S11.033A ",.02)
  1. ;;S11.033A
  1. ;;9002226.02101,"873,S11.033A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S11.034A ",.01)
  1. ;;S11.034A
  1. ;;9002226.02101,"873,S11.034A ",.02)
  1. ;;S11.034A
  1. ;;9002226.02101,"873,S11.034A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S11.035A ",.01)
  1. ;;S11.035A
  1. ;;9002226.02101,"873,S11.035A ",.02)
  1. ;;S11.035A
  1. ;;9002226.02101,"873,S11.035A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S11.039A ",.01)
  1. ;;S11.039A
  1. ;;9002226.02101,"873,S11.039A ",.02)
  1. ;;S11.039A
  1. ;;9002226.02101,"873,S11.039A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S11.10XA ",.01)
  1. ;;S11.10XA
  1. ;;9002226.02101,"873,S11.10XA ",.02)
  1. ;;S11.10XA
  1. ;;9002226.02101,"873,S11.10XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S11.11XA ",.01)
  1. ;;S11.11XA
  1. ;;9002226.02101,"873,S11.11XA ",.02)
  1. ;;S11.11XA
  1. ;;9002226.02101,"873,S11.11XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S11.12XA ",.01)
  1. ;;S11.12XA
  1. ;;9002226.02101,"873,S11.12XA ",.02)
  1. ;;S11.12XA
  1. ;;9002226.02101,"873,S11.12XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S11.13XA ",.01)
  1. ;;S11.13XA
  1. ;;9002226.02101,"873,S11.13XA ",.02)
  1. ;;S11.13XA
  1. ;;9002226.02101,"873,S11.13XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S11.14XA ",.01)
  1. ;;S11.14XA
  1. ;;9002226.02101,"873,S11.14XA ",.02)
  1. ;;S11.14XA
  1. ;;9002226.02101,"873,S11.14XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S11.15XA ",.01)
  1. ;;S11.15XA
  1. ;;9002226.02101,"873,S11.15XA ",.02)
  1. ;;S11.15XA
  1. ;;9002226.02101,"873,S11.15XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S11.20XA ",.01)
  1. ;;S11.20XA
  1. ;;9002226.02101,"873,S11.20XA ",.02)
  1. ;;S11.20XA
  1. ;;9002226.02101,"873,S11.20XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S11.21XA ",.01)
  1. ;;S11.21XA
  1. ;;9002226.02101,"873,S11.21XA ",.02)
  1. ;;S11.21XA
  1. ;;9002226.02101,"873,S11.21XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S11.22XA ",.01)
  1. ;;S11.22XA
  1. ;;9002226.02101,"873,S11.22XA ",.02)
  1. ;;S11.22XA
  1. ;;9002226.02101,"873,S11.22XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S11.23XA ",.01)
  1. ;;S11.23XA
  1. ;;9002226.02101,"873,S11.23XA ",.02)
  1. ;;S11.23XA
  1. ;;9002226.02101,"873,S11.23XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S11.24XA ",.01)
  1. ;;S11.24XA
  1. ;;9002226.02101,"873,S11.24XA ",.02)
  1. ;;S11.24XA
  1. ;;9002226.02101,"873,S11.24XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S11.25XA ",.01)
  1. ;;S11.25XA
  1. ;;9002226.02101,"873,S11.25XA ",.02)
  1. ;;S11.25XA
  1. ;;9002226.02101,"873,S11.25XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S11.80XA ",.01)
  1. ;;S11.80XA
  1. ;;9002226.02101,"873,S11.80XA ",.02)
  1. ;;S11.80XA
  1. ;;9002226.02101,"873,S11.80XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S11.81XA ",.01)
  1. ;;S11.81XA
  1. ;;9002226.02101,"873,S11.81XA ",.02)
  1. ;;S11.81XA
  1. ;;9002226.02101,"873,S11.81XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S11.82XA ",.01)
  1. ;;S11.82XA
  1. ;;9002226.02101,"873,S11.82XA ",.02)
  1. ;;S11.82XA
  1. ;;9002226.02101,"873,S11.82XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S11.83XA ",.01)
  1. ;;S11.83XA
  1. ;;9002226.02101,"873,S11.83XA ",.02)
  1. ;;S11.83XA
  1. ;;9002226.02101,"873,S11.83XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S11.84XA ",.01)
  1. ;;S11.84XA
  1. ;;9002226.02101,"873,S11.84XA ",.02)
  1. ;;S11.84XA
  1. ;;9002226.02101,"873,S11.84XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S11.85XA ",.01)
  1. ;;S11.85XA
  1. ;;9002226.02101,"873,S11.85XA ",.02)
  1. ;;S11.85XA
  1. ;;9002226.02101,"873,S11.85XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S11.89XA ",.01)
  1. ;;S11.89XA
  1. ;;9002226.02101,"873,S11.89XA ",.02)
  1. ;;S11.89XA
  1. ;;9002226.02101,"873,S11.89XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S11.90XA ",.01)
  1. ;;S11.90XA
  1. ;;9002226.02101,"873,S11.90XA ",.02)
  1. ;;S11.90XA
  1. ;;9002226.02101,"873,S11.90XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S11.91XA ",.01)
  1. ;;S11.91XA
  1. ;;9002226.02101,"873,S11.91XA ",.02)
  1. ;;S11.91XA
  1. ;;9002226.02101,"873,S11.91XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S11.92XA ",.01)
  1. ;;S11.92XA
  1. ;;9002226.02101,"873,S11.92XA ",.02)
  1. ;;S11.92XA
  1. ;;9002226.02101,"873,S11.92XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S11.93XA ",.01)
  1. ;;S11.93XA
  1. ;;9002226.02101,"873,S11.93XA ",.02)
  1. ;;S11.93XA
  1. ;;9002226.02101,"873,S11.93XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S11.94XA ",.01)
  1. ;;S11.94XA
  1. ;;9002226.02101,"873,S11.94XA ",.02)
  1. ;;S11.94XA
  1. ;;9002226.02101,"873,S11.94XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S11.95XA ",.01)
  1. ;;S11.95XA
  1. ;;9002226.02101,"873,S11.95XA ",.02)
  1. ;;S11.95XA
  1. ;;9002226.02101,"873,S11.95XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S12.000A ",.01)
  1. ;;S12.000A
  1. ;;9002226.02101,"873,S12.000A ",.02)
  1. ;;S12.000A
  1. ;;9002226.02101,"873,S12.000A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S12.000B ",.01)
  1. ;;S12.000B
  1. ;;9002226.02101,"873,S12.000B ",.02)
  1. ;;S12.000B
  1. ;;9002226.02101,"873,S12.000B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S12.001A ",.01)
  1. ;;S12.001A
  1. ;;9002226.02101,"873,S12.001A ",.02)
  1. ;;S12.001A
  1. ;;9002226.02101,"873,S12.001A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S12.001B ",.01)
  1. ;;S12.001B
  1. ;;9002226.02101,"873,S12.001B ",.02)
  1. ;;S12.001B
  1. ;;9002226.02101,"873,S12.001B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S12.01XA ",.01)
  1. ;;S12.01XA
  1. ;;9002226.02101,"873,S12.01XA ",.02)
  1. ;;S12.01XA
  1. ;;9002226.02101,"873,S12.01XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S12.01XB ",.01)
  1. ;;S12.01XB
  1. ;;9002226.02101,"873,S12.01XB ",.02)
  1. ;;S12.01XB
  1. ;;9002226.02101,"873,S12.01XB ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S12.02XA ",.01)
  1. ;;S12.02XA
  1. ;;9002226.02101,"873,S12.02XA ",.02)
  1. ;;S12.02XA
  1. ;;9002226.02101,"873,S12.02XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S12.02XB ",.01)
  1. ;;S12.02XB
  1. ;;9002226.02101,"873,S12.02XB ",.02)
  1. ;;S12.02XB
  1. ;;9002226.02101,"873,S12.02XB ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S12.030A ",.01)
  1. ;;S12.030A
  1. ;;9002226.02101,"873,S12.030A ",.02)
  1. ;;S12.030A
  1. ;;9002226.02101,"873,S12.030A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S12.030B ",.01)
  1. ;;S12.030B
  1. ;;9002226.02101,"873,S12.030B ",.02)
  1. ;;S12.030B
  1. ;;9002226.02101,"873,S12.030B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S12.031A ",.01)
  1. ;;S12.031A
  1. ;;9002226.02101,"873,S12.031A ",.02)
  1. ;;S12.031A
  1. ;;9002226.02101,"873,S12.031A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S12.031B ",.01)
  1. ;;S12.031B
  1. ;;9002226.02101,"873,S12.031B ",.02)
  1. ;;S12.031B
  1. ;;9002226.02101,"873,S12.031B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S12.040A ",.01)
  1. ;;S12.040A
  1. ;;9002226.02101,"873,S12.040A ",.02)
  1. ;;S12.040A
  1. ;;9002226.02101,"873,S12.040A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S12.040B ",.01)
  1. ;;S12.040B
  1. ;;9002226.02101,"873,S12.040B ",.02)
  1. ;;S12.040B
  1. ;;9002226.02101,"873,S12.040B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S12.041A ",.01)
  1. ;;S12.041A
  1. ;;9002226.02101,"873,S12.041A ",.02)
  1. ;;S12.041A
  1. ;;9002226.02101,"873,S12.041A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S12.041B ",.01)
  1. ;;S12.041B
  1. ;;9002226.02101,"873,S12.041B ",.02)
  1. ;;S12.041B
  1. ;;9002226.02101,"873,S12.041B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S12.090A ",.01)
  1. ;;S12.090A
  1. ;;9002226.02101,"873,S12.090A ",.02)
  1. ;;S12.090A
  1. ;;9002226.02101,"873,S12.090A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S12.090B ",.01)
  1. ;;S12.090B
  1. ;;9002226.02101,"873,S12.090B ",.02)
  1. ;;S12.090B
  1. ;;9002226.02101,"873,S12.090B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S12.091A ",.01)
  1. ;;S12.091A
  1. ;;9002226.02101,"873,S12.091A ",.02)
  1. ;;S12.091A
  1. ;;9002226.02101,"873,S12.091A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S12.091B ",.01)
  1. ;;S12.091B
  1. ;;9002226.02101,"873,S12.091B ",.02)
  1. ;;S12.091B
  1. ;;9002226.02101,"873,S12.091B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S12.100A ",.01)
  1. ;;S12.100A
  1. ;;9002226.02101,"873,S12.100A ",.02)
  1. ;;S12.100A
  1. ;;9002226.02101,"873,S12.100A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S12.100B ",.01)
  1. ;;S12.100B
  1. ;;9002226.02101,"873,S12.100B ",.02)
  1. ;;S12.100B
  1. ;;9002226.02101,"873,S12.100B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S12.101A ",.01)
  1. ;;S12.101A
  1. ;;9002226.02101,"873,S12.101A ",.02)
  1. ;;S12.101A
  1. ;;9002226.02101,"873,S12.101A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S12.101B ",.01)
  1. ;;S12.101B
  1. ;;9002226.02101,"873,S12.101B ",.02)
  1. ;;S12.101B
  1. ;;9002226.02101,"873,S12.101B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S12.110A ",.01)
  1. ;;S12.110A
  1. ;;9002226.02101,"873,S12.110A ",.02)
  1. ;;S12.110A
  1. ;;9002226.02101,"873,S12.110A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S12.110B ",.01)
  1. ;;S12.110B
  1. ;;9002226.02101,"873,S12.110B ",.02)
  1. ;;S12.110B
  1. ;;9002226.02101,"873,S12.110B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S12.111A ",.01)
  1. ;;S12.111A
  1. ;;9002226.02101,"873,S12.111A ",.02)
  1. ;;S12.111A