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

ATXF1G4.m

Go to the documentation of this file.
  1. ATXF1G4 ;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,"489,O36.1131 ",.01)
  1. ;;O36.1131
  1. ;;9002226.02101,"489,O36.1131 ",.02)
  1. ;;O36.1131
  1. ;;9002226.02101,"489,O36.1131 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.1132 ",.01)
  1. ;;O36.1132
  1. ;;9002226.02101,"489,O36.1132 ",.02)
  1. ;;O36.1132
  1. ;;9002226.02101,"489,O36.1132 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.1133 ",.01)
  1. ;;O36.1133
  1. ;;9002226.02101,"489,O36.1133 ",.02)
  1. ;;O36.1133
  1. ;;9002226.02101,"489,O36.1133 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.1134 ",.01)
  1. ;;O36.1134
  1. ;;9002226.02101,"489,O36.1134 ",.02)
  1. ;;O36.1134
  1. ;;9002226.02101,"489,O36.1134 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.1135 ",.01)
  1. ;;O36.1135
  1. ;;9002226.02101,"489,O36.1135 ",.02)
  1. ;;O36.1135
  1. ;;9002226.02101,"489,O36.1135 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.1139 ",.01)
  1. ;;O36.1139
  1. ;;9002226.02101,"489,O36.1139 ",.02)
  1. ;;O36.1139
  1. ;;9002226.02101,"489,O36.1139 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.1930 ",.01)
  1. ;;O36.1930
  1. ;;9002226.02101,"489,O36.1930 ",.02)
  1. ;;O36.1930
  1. ;;9002226.02101,"489,O36.1930 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.1931 ",.01)
  1. ;;O36.1931
  1. ;;9002226.02101,"489,O36.1931 ",.02)
  1. ;;O36.1931
  1. ;;9002226.02101,"489,O36.1931 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.1932 ",.01)
  1. ;;O36.1932
  1. ;;9002226.02101,"489,O36.1932 ",.02)
  1. ;;O36.1932
  1. ;;9002226.02101,"489,O36.1932 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.1933 ",.01)
  1. ;;O36.1933
  1. ;;9002226.02101,"489,O36.1933 ",.02)
  1. ;;O36.1933
  1. ;;9002226.02101,"489,O36.1933 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.1934 ",.01)
  1. ;;O36.1934
  1. ;;9002226.02101,"489,O36.1934 ",.02)
  1. ;;O36.1934
  1. ;;9002226.02101,"489,O36.1934 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.1935 ",.01)
  1. ;;O36.1935
  1. ;;9002226.02101,"489,O36.1935 ",.02)
  1. ;;O36.1935
  1. ;;9002226.02101,"489,O36.1935 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.1939 ",.01)
  1. ;;O36.1939
  1. ;;9002226.02101,"489,O36.1939 ",.02)
  1. ;;O36.1939
  1. ;;9002226.02101,"489,O36.1939 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.23X0 ",.01)
  1. ;;O36.23X0
  1. ;;9002226.02101,"489,O36.23X0 ",.02)
  1. ;;O36.23X0
  1. ;;9002226.02101,"489,O36.23X0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.23X1 ",.01)
  1. ;;O36.23X1
  1. ;;9002226.02101,"489,O36.23X1 ",.02)
  1. ;;O36.23X1
  1. ;;9002226.02101,"489,O36.23X1 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.23X2 ",.01)
  1. ;;O36.23X2
  1. ;;9002226.02101,"489,O36.23X2 ",.02)
  1. ;;O36.23X2
  1. ;;9002226.02101,"489,O36.23X2 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.23X3 ",.01)
  1. ;;O36.23X3
  1. ;;9002226.02101,"489,O36.23X3 ",.02)
  1. ;;O36.23X3
  1. ;;9002226.02101,"489,O36.23X3 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.23X4 ",.01)
  1. ;;O36.23X4
  1. ;;9002226.02101,"489,O36.23X4 ",.02)
  1. ;;O36.23X4
  1. ;;9002226.02101,"489,O36.23X4 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.23X5 ",.01)
  1. ;;O36.23X5
  1. ;;9002226.02101,"489,O36.23X5 ",.02)
  1. ;;O36.23X5
  1. ;;9002226.02101,"489,O36.23X5 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.23X9 ",.01)
  1. ;;O36.23X9
  1. ;;9002226.02101,"489,O36.23X9 ",.02)
  1. ;;O36.23X9
  1. ;;9002226.02101,"489,O36.23X9 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.5130 ",.01)
  1. ;;O36.5130
  1. ;;9002226.02101,"489,O36.5130 ",.02)
  1. ;;O36.5130
  1. ;;9002226.02101,"489,O36.5130 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.5131 ",.01)
  1. ;;O36.5131
  1. ;;9002226.02101,"489,O36.5131 ",.02)
  1. ;;O36.5131
  1. ;;9002226.02101,"489,O36.5131 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.5132 ",.01)
  1. ;;O36.5132
  1. ;;9002226.02101,"489,O36.5132 ",.02)
  1. ;;O36.5132
  1. ;;9002226.02101,"489,O36.5132 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.5133 ",.01)
  1. ;;O36.5133
  1. ;;9002226.02101,"489,O36.5133 ",.02)
  1. ;;O36.5133
  1. ;;9002226.02101,"489,O36.5133 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.5134 ",.01)
  1. ;;O36.5134
  1. ;;9002226.02101,"489,O36.5134 ",.02)
  1. ;;O36.5134
  1. ;;9002226.02101,"489,O36.5134 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.5135 ",.01)
  1. ;;O36.5135
  1. ;;9002226.02101,"489,O36.5135 ",.02)
  1. ;;O36.5135
  1. ;;9002226.02101,"489,O36.5135 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.5139 ",.01)
  1. ;;O36.5139
  1. ;;9002226.02101,"489,O36.5139 ",.02)
  1. ;;O36.5139
  1. ;;9002226.02101,"489,O36.5139 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.5930 ",.01)
  1. ;;O36.5930
  1. ;;9002226.02101,"489,O36.5930 ",.02)
  1. ;;O36.5930
  1. ;;9002226.02101,"489,O36.5930 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.5931 ",.01)
  1. ;;O36.5931
  1. ;;9002226.02101,"489,O36.5931 ",.02)
  1. ;;O36.5931
  1. ;;9002226.02101,"489,O36.5931 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.5932 ",.01)
  1. ;;O36.5932
  1. ;;9002226.02101,"489,O36.5932 ",.02)
  1. ;;O36.5932
  1. ;;9002226.02101,"489,O36.5932 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.5933 ",.01)
  1. ;;O36.5933
  1. ;;9002226.02101,"489,O36.5933 ",.02)
  1. ;;O36.5933
  1. ;;9002226.02101,"489,O36.5933 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.5934 ",.01)
  1. ;;O36.5934
  1. ;;9002226.02101,"489,O36.5934 ",.02)
  1. ;;O36.5934
  1. ;;9002226.02101,"489,O36.5934 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.5935 ",.01)
  1. ;;O36.5935
  1. ;;9002226.02101,"489,O36.5935 ",.02)
  1. ;;O36.5935
  1. ;;9002226.02101,"489,O36.5935 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.5939 ",.01)
  1. ;;O36.5939
  1. ;;9002226.02101,"489,O36.5939 ",.02)
  1. ;;O36.5939
  1. ;;9002226.02101,"489,O36.5939 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.63X0 ",.01)
  1. ;;O36.63X0
  1. ;;9002226.02101,"489,O36.63X0 ",.02)
  1. ;;O36.63X0
  1. ;;9002226.02101,"489,O36.63X0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.63X1 ",.01)
  1. ;;O36.63X1
  1. ;;9002226.02101,"489,O36.63X1 ",.02)
  1. ;;O36.63X1
  1. ;;9002226.02101,"489,O36.63X1 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.63X2 ",.01)
  1. ;;O36.63X2
  1. ;;9002226.02101,"489,O36.63X2 ",.02)
  1. ;;O36.63X2
  1. ;;9002226.02101,"489,O36.63X2 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.63X3 ",.01)
  1. ;;O36.63X3
  1. ;;9002226.02101,"489,O36.63X3 ",.02)
  1. ;;O36.63X3
  1. ;;9002226.02101,"489,O36.63X3 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.63X4 ",.01)
  1. ;;O36.63X4
  1. ;;9002226.02101,"489,O36.63X4 ",.02)
  1. ;;O36.63X4
  1. ;;9002226.02101,"489,O36.63X4 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.63X5 ",.01)
  1. ;;O36.63X5
  1. ;;9002226.02101,"489,O36.63X5 ",.02)
  1. ;;O36.63X5
  1. ;;9002226.02101,"489,O36.63X5 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.63X9 ",.01)
  1. ;;O36.63X9
  1. ;;9002226.02101,"489,O36.63X9 ",.02)
  1. ;;O36.63X9
  1. ;;9002226.02101,"489,O36.63X9 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.73X0 ",.01)
  1. ;;O36.73X0
  1. ;;9002226.02101,"489,O36.73X0 ",.02)
  1. ;;O36.73X0
  1. ;;9002226.02101,"489,O36.73X0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.73X1 ",.01)
  1. ;;O36.73X1
  1. ;;9002226.02101,"489,O36.73X1 ",.02)
  1. ;;O36.73X1
  1. ;;9002226.02101,"489,O36.73X1 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.73X2 ",.01)
  1. ;;O36.73X2
  1. ;;9002226.02101,"489,O36.73X2 ",.02)
  1. ;;O36.73X2
  1. ;;9002226.02101,"489,O36.73X2 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.73X3 ",.01)
  1. ;;O36.73X3
  1. ;;9002226.02101,"489,O36.73X3 ",.02)
  1. ;;O36.73X3
  1. ;;9002226.02101,"489,O36.73X3 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.73X4 ",.01)
  1. ;;O36.73X4
  1. ;;9002226.02101,"489,O36.73X4 ",.02)
  1. ;;O36.73X4
  1. ;;9002226.02101,"489,O36.73X4 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.73X5 ",.01)
  1. ;;O36.73X5
  1. ;;9002226.02101,"489,O36.73X5 ",.02)
  1. ;;O36.73X5
  1. ;;9002226.02101,"489,O36.73X5 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.73X9 ",.01)
  1. ;;O36.73X9
  1. ;;9002226.02101,"489,O36.73X9 ",.02)
  1. ;;O36.73X9
  1. ;;9002226.02101,"489,O36.73X9 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.8130 ",.01)
  1. ;;O36.8130
  1. ;;9002226.02101,"489,O36.8130 ",.02)
  1. ;;O36.8130
  1. ;;9002226.02101,"489,O36.8130 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.8131 ",.01)
  1. ;;O36.8131
  1. ;;9002226.02101,"489,O36.8131 ",.02)
  1. ;;O36.8131
  1. ;;9002226.02101,"489,O36.8131 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.8132 ",.01)
  1. ;;O36.8132
  1. ;;9002226.02101,"489,O36.8132 ",.02)
  1. ;;O36.8132
  1. ;;9002226.02101,"489,O36.8132 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.8133 ",.01)
  1. ;;O36.8133
  1. ;;9002226.02101,"489,O36.8133 ",.02)
  1. ;;O36.8133
  1. ;;9002226.02101,"489,O36.8133 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.8134 ",.01)
  1. ;;O36.8134
  1. ;;9002226.02101,"489,O36.8134 ",.02)
  1. ;;O36.8134
  1. ;;9002226.02101,"489,O36.8134 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.8135 ",.01)
  1. ;;O36.8135
  1. ;;9002226.02101,"489,O36.8135 ",.02)
  1. ;;O36.8135
  1. ;;9002226.02101,"489,O36.8135 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.8139 ",.01)
  1. ;;O36.8139
  1. ;;9002226.02101,"489,O36.8139 ",.02)
  1. ;;O36.8139
  1. ;;9002226.02101,"489,O36.8139 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.8230 ",.01)
  1. ;;O36.8230
  1. ;;9002226.02101,"489,O36.8230 ",.02)
  1. ;;O36.8230
  1. ;;9002226.02101,"489,O36.8230 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.8231 ",.01)
  1. ;;O36.8231
  1. ;;9002226.02101,"489,O36.8231 ",.02)
  1. ;;O36.8231
  1. ;;9002226.02101,"489,O36.8231 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.8232 ",.01)
  1. ;;O36.8232
  1. ;;9002226.02101,"489,O36.8232 ",.02)
  1. ;;O36.8232
  1. ;;9002226.02101,"489,O36.8232 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.8233 ",.01)
  1. ;;O36.8233
  1. ;;9002226.02101,"489,O36.8233 ",.02)
  1. ;;O36.8233
  1. ;;9002226.02101,"489,O36.8233 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.8234 ",.01)
  1. ;;O36.8234
  1. ;;9002226.02101,"489,O36.8234 ",.02)
  1. ;;O36.8234
  1. ;;9002226.02101,"489,O36.8234 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.8235 ",.01)
  1. ;;O36.8235
  1. ;;9002226.02101,"489,O36.8235 ",.02)
  1. ;;O36.8235
  1. ;;9002226.02101,"489,O36.8235 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.8239 ",.01)
  1. ;;O36.8239
  1. ;;9002226.02101,"489,O36.8239 ",.02)
  1. ;;O36.8239
  1. ;;9002226.02101,"489,O36.8239 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.8930 ",.01)
  1. ;;O36.8930
  1. ;;9002226.02101,"489,O36.8930 ",.02)
  1. ;;O36.8930
  1. ;;9002226.02101,"489,O36.8930 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.8931 ",.01)
  1. ;;O36.8931
  1. ;;9002226.02101,"489,O36.8931 ",.02)
  1. ;;O36.8931
  1. ;;9002226.02101,"489,O36.8931 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.8932 ",.01)
  1. ;;O36.8932
  1. ;;9002226.02101,"489,O36.8932 ",.02)
  1. ;;O36.8932
  1. ;;9002226.02101,"489,O36.8932 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.8933 ",.01)
  1. ;;O36.8933
  1. ;;9002226.02101,"489,O36.8933 ",.02)
  1. ;;O36.8933
  1. ;;9002226.02101,"489,O36.8933 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.8934 ",.01)
  1. ;;O36.8934
  1. ;;9002226.02101,"489,O36.8934 ",.02)
  1. ;;O36.8934
  1. ;;9002226.02101,"489,O36.8934 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.8935 ",.01)
  1. ;;O36.8935
  1. ;;9002226.02101,"489,O36.8935 ",.02)
  1. ;;O36.8935
  1. ;;9002226.02101,"489,O36.8935 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.8939 ",.01)
  1. ;;O36.8939
  1. ;;9002226.02101,"489,O36.8939 ",.02)
  1. ;;O36.8939
  1. ;;9002226.02101,"489,O36.8939 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.93X0 ",.01)
  1. ;;O36.93X0
  1. ;;9002226.02101,"489,O36.93X0 ",.02)
  1. ;;O36.93X0
  1. ;;9002226.02101,"489,O36.93X0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.93X1 ",.01)
  1. ;;O36.93X1
  1. ;;9002226.02101,"489,O36.93X1 ",.02)
  1. ;;O36.93X1
  1. ;;9002226.02101,"489,O36.93X1 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.93X2 ",.01)
  1. ;;O36.93X2
  1. ;;9002226.02101,"489,O36.93X2 ",.02)
  1. ;;O36.93X2
  1. ;;9002226.02101,"489,O36.93X2 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.93X3 ",.01)
  1. ;;O36.93X3
  1. ;;9002226.02101,"489,O36.93X3 ",.02)
  1. ;;O36.93X3
  1. ;;9002226.02101,"489,O36.93X3 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.93X4 ",.01)
  1. ;;O36.93X4
  1. ;;9002226.02101,"489,O36.93X4 ",.02)
  1. ;;O36.93X4
  1. ;;9002226.02101,"489,O36.93X4 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.93X5 ",.01)
  1. ;;O36.93X5
  1. ;;9002226.02101,"489,O36.93X5 ",.02)
  1. ;;O36.93X5
  1. ;;9002226.02101,"489,O36.93X5 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O36.93X9 ",.01)
  1. ;;O36.93X9
  1. ;;9002226.02101,"489,O36.93X9 ",.02)
  1. ;;O36.93X9
  1. ;;9002226.02101,"489,O36.93X9 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O40.3XX0 ",.01)
  1. ;;O40.3XX0
  1. ;;9002226.02101,"489,O40.3XX0 ",.02)
  1. ;;O40.3XX0
  1. ;;9002226.02101,"489,O40.3XX0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O40.3XX1 ",.01)
  1. ;;O40.3XX1
  1. ;;9002226.02101,"489,O40.3XX1 ",.02)
  1. ;;O40.3XX1
  1. ;;9002226.02101,"489,O40.3XX1 ",.03)
  1. ;;30
  1. ;;9002226.02101,"489,O40.3XX2 ",.01)
  1. ;;O40.3XX2