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

ATXF1E3.m

Go to the documentation of this file.
  1. ATXF1E3 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JUL 09, 2015;
  1. ;;5.1;TAXONOMY;**12**;FEB 04, 1997;Build 5
  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,"487,O30.211 ",.01)
  1. ;;O30.211
  1. ;;9002226.02101,"487,O30.211 ",.02)
  1. ;;O30.211
  1. ;;9002226.02101,"487,O30.211 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O30.221 ",.01)
  1. ;;O30.221
  1. ;;9002226.02101,"487,O30.221 ",.02)
  1. ;;O30.221
  1. ;;9002226.02101,"487,O30.221 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O30.291 ",.01)
  1. ;;O30.291
  1. ;;9002226.02101,"487,O30.291 ",.02)
  1. ;;O30.291
  1. ;;9002226.02101,"487,O30.291 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O30.801 ",.01)
  1. ;;O30.801
  1. ;;9002226.02101,"487,O30.801 ",.02)
  1. ;;O30.801
  1. ;;9002226.02101,"487,O30.801 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O30.811 ",.01)
  1. ;;O30.811
  1. ;;9002226.02101,"487,O30.811 ",.02)
  1. ;;O30.811
  1. ;;9002226.02101,"487,O30.811 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O30.821 ",.01)
  1. ;;O30.821
  1. ;;9002226.02101,"487,O30.821 ",.02)
  1. ;;O30.821
  1. ;;9002226.02101,"487,O30.821 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O30.891 ",.01)
  1. ;;O30.891
  1. ;;9002226.02101,"487,O30.891 ",.02)
  1. ;;O30.891
  1. ;;9002226.02101,"487,O30.891 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O30.91 ",.01)
  1. ;;O30.91
  1. ;;9002226.02101,"487,O30.91 ",.02)
  1. ;;O30.91
  1. ;;9002226.02101,"487,O30.91 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O31.01X0 ",.01)
  1. ;;O31.01X0
  1. ;;9002226.02101,"487,O31.01X0 ",.02)
  1. ;;O31.01X0
  1. ;;9002226.02101,"487,O31.01X0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O31.01X1 ",.01)
  1. ;;O31.01X1
  1. ;;9002226.02101,"487,O31.01X1 ",.02)
  1. ;;O31.01X1
  1. ;;9002226.02101,"487,O31.01X1 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O31.01X2 ",.01)
  1. ;;O31.01X2
  1. ;;9002226.02101,"487,O31.01X2 ",.02)
  1. ;;O31.01X2
  1. ;;9002226.02101,"487,O31.01X2 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O31.01X3 ",.01)
  1. ;;O31.01X3
  1. ;;9002226.02101,"487,O31.01X3 ",.02)
  1. ;;O31.01X3
  1. ;;9002226.02101,"487,O31.01X3 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O31.01X4 ",.01)
  1. ;;O31.01X4
  1. ;;9002226.02101,"487,O31.01X4 ",.02)
  1. ;;O31.01X4
  1. ;;9002226.02101,"487,O31.01X4 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O31.01X5 ",.01)
  1. ;;O31.01X5
  1. ;;9002226.02101,"487,O31.01X5 ",.02)
  1. ;;O31.01X5
  1. ;;9002226.02101,"487,O31.01X5 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O31.01X9 ",.01)
  1. ;;O31.01X9
  1. ;;9002226.02101,"487,O31.01X9 ",.02)
  1. ;;O31.01X9
  1. ;;9002226.02101,"487,O31.01X9 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O31.11X0 ",.01)
  1. ;;O31.11X0
  1. ;;9002226.02101,"487,O31.11X0 ",.02)
  1. ;;O31.11X0
  1. ;;9002226.02101,"487,O31.11X0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O31.11X1 ",.01)
  1. ;;O31.11X1
  1. ;;9002226.02101,"487,O31.11X1 ",.02)
  1. ;;O31.11X1
  1. ;;9002226.02101,"487,O31.11X1 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O31.11X2 ",.01)
  1. ;;O31.11X2
  1. ;;9002226.02101,"487,O31.11X2 ",.02)
  1. ;;O31.11X2
  1. ;;9002226.02101,"487,O31.11X2 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O31.11X3 ",.01)
  1. ;;O31.11X3
  1. ;;9002226.02101,"487,O31.11X3 ",.02)
  1. ;;O31.11X3
  1. ;;9002226.02101,"487,O31.11X3 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O31.11X4 ",.01)
  1. ;;O31.11X4
  1. ;;9002226.02101,"487,O31.11X4 ",.02)
  1. ;;O31.11X4
  1. ;;9002226.02101,"487,O31.11X4 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O31.11X5 ",.01)
  1. ;;O31.11X5
  1. ;;9002226.02101,"487,O31.11X5 ",.02)
  1. ;;O31.11X5
  1. ;;9002226.02101,"487,O31.11X5 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O31.11X9 ",.01)
  1. ;;O31.11X9
  1. ;;9002226.02101,"487,O31.11X9 ",.02)
  1. ;;O31.11X9
  1. ;;9002226.02101,"487,O31.11X9 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O31.21X0 ",.01)
  1. ;;O31.21X0
  1. ;;9002226.02101,"487,O31.21X0 ",.02)
  1. ;;O31.21X0
  1. ;;9002226.02101,"487,O31.21X0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O31.21X1 ",.01)
  1. ;;O31.21X1
  1. ;;9002226.02101,"487,O31.21X1 ",.02)
  1. ;;O31.21X1
  1. ;;9002226.02101,"487,O31.21X1 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O31.21X2 ",.01)
  1. ;;O31.21X2
  1. ;;9002226.02101,"487,O31.21X2 ",.02)
  1. ;;O31.21X2
  1. ;;9002226.02101,"487,O31.21X2 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O31.21X3 ",.01)
  1. ;;O31.21X3
  1. ;;9002226.02101,"487,O31.21X3 ",.02)
  1. ;;O31.21X3
  1. ;;9002226.02101,"487,O31.21X3 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O31.21X4 ",.01)
  1. ;;O31.21X4
  1. ;;9002226.02101,"487,O31.21X4 ",.02)
  1. ;;O31.21X4
  1. ;;9002226.02101,"487,O31.21X4 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O31.21X5 ",.01)
  1. ;;O31.21X5
  1. ;;9002226.02101,"487,O31.21X5 ",.02)
  1. ;;O31.21X5
  1. ;;9002226.02101,"487,O31.21X5 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O31.21X9 ",.01)
  1. ;;O31.21X9
  1. ;;9002226.02101,"487,O31.21X9 ",.02)
  1. ;;O31.21X9
  1. ;;9002226.02101,"487,O31.21X9 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O31.31X0 ",.01)
  1. ;;O31.31X0
  1. ;;9002226.02101,"487,O31.31X0 ",.02)
  1. ;;O31.31X0
  1. ;;9002226.02101,"487,O31.31X0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O31.31X1 ",.01)
  1. ;;O31.31X1
  1. ;;9002226.02101,"487,O31.31X1 ",.02)
  1. ;;O31.31X1
  1. ;;9002226.02101,"487,O31.31X1 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O31.31X2 ",.01)
  1. ;;O31.31X2
  1. ;;9002226.02101,"487,O31.31X2 ",.02)
  1. ;;O31.31X2
  1. ;;9002226.02101,"487,O31.31X2 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O31.31X3 ",.01)
  1. ;;O31.31X3
  1. ;;9002226.02101,"487,O31.31X3 ",.02)
  1. ;;O31.31X3
  1. ;;9002226.02101,"487,O31.31X3 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O31.31X4 ",.01)
  1. ;;O31.31X4
  1. ;;9002226.02101,"487,O31.31X4 ",.02)
  1. ;;O31.31X4
  1. ;;9002226.02101,"487,O31.31X4 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O31.31X5 ",.01)
  1. ;;O31.31X5
  1. ;;9002226.02101,"487,O31.31X5 ",.02)
  1. ;;O31.31X5
  1. ;;9002226.02101,"487,O31.31X5 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O31.31X9 ",.01)
  1. ;;O31.31X9
  1. ;;9002226.02101,"487,O31.31X9 ",.02)
  1. ;;O31.31X9
  1. ;;9002226.02101,"487,O31.31X9 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O31.8X10 ",.01)
  1. ;;O31.8X10
  1. ;;9002226.02101,"487,O31.8X10 ",.02)
  1. ;;O31.8X10
  1. ;;9002226.02101,"487,O31.8X10 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O31.8X11 ",.01)
  1. ;;O31.8X11
  1. ;;9002226.02101,"487,O31.8X11 ",.02)
  1. ;;O31.8X11
  1. ;;9002226.02101,"487,O31.8X11 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O31.8X12 ",.01)
  1. ;;O31.8X12
  1. ;;9002226.02101,"487,O31.8X12 ",.02)
  1. ;;O31.8X12
  1. ;;9002226.02101,"487,O31.8X12 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O31.8X13 ",.01)
  1. ;;O31.8X13
  1. ;;9002226.02101,"487,O31.8X13 ",.02)
  1. ;;O31.8X13
  1. ;;9002226.02101,"487,O31.8X13 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O31.8X14 ",.01)
  1. ;;O31.8X14
  1. ;;9002226.02101,"487,O31.8X14 ",.02)
  1. ;;O31.8X14
  1. ;;9002226.02101,"487,O31.8X14 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O31.8X15 ",.01)
  1. ;;O31.8X15
  1. ;;9002226.02101,"487,O31.8X15 ",.02)
  1. ;;O31.8X15
  1. ;;9002226.02101,"487,O31.8X15 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O31.8X19 ",.01)
  1. ;;O31.8X19
  1. ;;9002226.02101,"487,O31.8X19 ",.02)
  1. ;;O31.8X19
  1. ;;9002226.02101,"487,O31.8X19 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O34.01 ",.01)
  1. ;;O34.01
  1. ;;9002226.02101,"487,O34.01 ",.02)
  1. ;;O34.01
  1. ;;9002226.02101,"487,O34.01 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O34.11 ",.01)
  1. ;;O34.11
  1. ;;9002226.02101,"487,O34.11 ",.02)
  1. ;;O34.11
  1. ;;9002226.02101,"487,O34.11 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O34.31 ",.01)
  1. ;;O34.31
  1. ;;9002226.02101,"487,O34.31 ",.02)
  1. ;;O34.31
  1. ;;9002226.02101,"487,O34.31 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O34.41 ",.01)
  1. ;;O34.41
  1. ;;9002226.02101,"487,O34.41 ",.02)
  1. ;;O34.41
  1. ;;9002226.02101,"487,O34.41 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O34.511 ",.01)
  1. ;;O34.511
  1. ;;9002226.02101,"487,O34.511 ",.02)
  1. ;;O34.511
  1. ;;9002226.02101,"487,O34.511 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O34.521 ",.01)
  1. ;;O34.521
  1. ;;9002226.02101,"487,O34.521 ",.02)
  1. ;;O34.521
  1. ;;9002226.02101,"487,O34.521 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O34.531 ",.01)
  1. ;;O34.531
  1. ;;9002226.02101,"487,O34.531 ",.02)
  1. ;;O34.531
  1. ;;9002226.02101,"487,O34.531 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O34.591 ",.01)
  1. ;;O34.591
  1. ;;9002226.02101,"487,O34.591 ",.02)
  1. ;;O34.591
  1. ;;9002226.02101,"487,O34.591 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O34.61 ",.01)
  1. ;;O34.61
  1. ;;9002226.02101,"487,O34.61 ",.02)
  1. ;;O34.61
  1. ;;9002226.02101,"487,O34.61 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O34.71 ",.01)
  1. ;;O34.71
  1. ;;9002226.02101,"487,O34.71 ",.02)
  1. ;;O34.71
  1. ;;9002226.02101,"487,O34.71 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O34.81 ",.01)
  1. ;;O34.81
  1. ;;9002226.02101,"487,O34.81 ",.02)
  1. ;;O34.81
  1. ;;9002226.02101,"487,O34.81 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O34.91 ",.01)
  1. ;;O34.91
  1. ;;9002226.02101,"487,O34.91 ",.02)
  1. ;;O34.91
  1. ;;9002226.02101,"487,O34.91 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O36.0110 ",.01)
  1. ;;O36.0110
  1. ;;9002226.02101,"487,O36.0110 ",.02)
  1. ;;O36.0110
  1. ;;9002226.02101,"487,O36.0110 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O36.0111 ",.01)
  1. ;;O36.0111
  1. ;;9002226.02101,"487,O36.0111 ",.02)
  1. ;;O36.0111
  1. ;;9002226.02101,"487,O36.0111 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O36.0112 ",.01)
  1. ;;O36.0112
  1. ;;9002226.02101,"487,O36.0112 ",.02)
  1. ;;O36.0112
  1. ;;9002226.02101,"487,O36.0112 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O36.0113 ",.01)
  1. ;;O36.0113
  1. ;;9002226.02101,"487,O36.0113 ",.02)
  1. ;;O36.0113
  1. ;;9002226.02101,"487,O36.0113 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O36.0114 ",.01)
  1. ;;O36.0114
  1. ;;9002226.02101,"487,O36.0114 ",.02)
  1. ;;O36.0114
  1. ;;9002226.02101,"487,O36.0114 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O36.0115 ",.01)
  1. ;;O36.0115
  1. ;;9002226.02101,"487,O36.0115 ",.02)
  1. ;;O36.0115
  1. ;;9002226.02101,"487,O36.0115 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O36.0119 ",.01)
  1. ;;O36.0119
  1. ;;9002226.02101,"487,O36.0119 ",.02)
  1. ;;O36.0119
  1. ;;9002226.02101,"487,O36.0119 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O36.0910 ",.01)
  1. ;;O36.0910
  1. ;;9002226.02101,"487,O36.0910 ",.02)
  1. ;;O36.0910
  1. ;;9002226.02101,"487,O36.0910 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O36.0911 ",.01)
  1. ;;O36.0911
  1. ;;9002226.02101,"487,O36.0911 ",.02)
  1. ;;O36.0911
  1. ;;9002226.02101,"487,O36.0911 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O36.0912 ",.01)
  1. ;;O36.0912
  1. ;;9002226.02101,"487,O36.0912 ",.02)
  1. ;;O36.0912
  1. ;;9002226.02101,"487,O36.0912 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O36.0913 ",.01)
  1. ;;O36.0913
  1. ;;9002226.02101,"487,O36.0913 ",.02)
  1. ;;O36.0913
  1. ;;9002226.02101,"487,O36.0913 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O36.0914 ",.01)
  1. ;;O36.0914
  1. ;;9002226.02101,"487,O36.0914 ",.02)
  1. ;;O36.0914
  1. ;;9002226.02101,"487,O36.0914 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O36.0915 ",.01)
  1. ;;O36.0915
  1. ;;9002226.02101,"487,O36.0915 ",.02)
  1. ;;O36.0915
  1. ;;9002226.02101,"487,O36.0915 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O36.0919 ",.01)
  1. ;;O36.0919
  1. ;;9002226.02101,"487,O36.0919 ",.02)
  1. ;;O36.0919
  1. ;;9002226.02101,"487,O36.0919 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O36.1110 ",.01)
  1. ;;O36.1110
  1. ;;9002226.02101,"487,O36.1110 ",.02)
  1. ;;O36.1110
  1. ;;9002226.02101,"487,O36.1110 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O36.1111 ",.01)
  1. ;;O36.1111
  1. ;;9002226.02101,"487,O36.1111 ",.02)
  1. ;;O36.1111
  1. ;;9002226.02101,"487,O36.1111 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O36.1112 ",.01)
  1. ;;O36.1112
  1. ;;9002226.02101,"487,O36.1112 ",.02)
  1. ;;O36.1112
  1. ;;9002226.02101,"487,O36.1112 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O36.1113 ",.01)
  1. ;;O36.1113
  1. ;;9002226.02101,"487,O36.1113 ",.02)
  1. ;;O36.1113
  1. ;;9002226.02101,"487,O36.1113 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O36.1114 ",.01)
  1. ;;O36.1114
  1. ;;9002226.02101,"487,O36.1114 ",.02)
  1. ;;O36.1114
  1. ;;9002226.02101,"487,O36.1114 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O36.1115 ",.01)
  1. ;;O36.1115
  1. ;;9002226.02101,"487,O36.1115 ",.02)
  1. ;;O36.1115
  1. ;;9002226.02101,"487,O36.1115 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O36.1119 ",.01)
  1. ;;O36.1119
  1. ;;9002226.02101,"487,O36.1119 ",.02)
  1. ;;O36.1119
  1. ;;9002226.02101,"487,O36.1119 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O36.1910 ",.01)
  1. ;;O36.1910
  1. ;;9002226.02101,"487,O36.1910 ",.02)
  1. ;;O36.1910
  1. ;;9002226.02101,"487,O36.1910 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O36.1911 ",.01)
  1. ;;O36.1911
  1. ;;9002226.02101,"487,O36.1911 ",.02)
  1. ;;O36.1911
  1. ;;9002226.02101,"487,O36.1911 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O36.1912 ",.01)
  1. ;;O36.1912
  1. ;;9002226.02101,"487,O36.1912 ",.02)
  1. ;;O36.1912
  1. ;;9002226.02101,"487,O36.1912 ",.03)
  1. ;;30
  1. ;;9002226.02101,"487,O36.1913 ",.01)
  1. ;;O36.1913