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

ATXF4E2.m

Go to the documentation of this file.
ATXF4E2 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 15, 2016;
 ;;5.1;TAXONOMY;**15**;FEB 04, 1997;Build 20
 ;
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,"2108,215.0 ",.02)
 ;;215.9
 ;;9002226.02101,"2108,215.0 ",.03)
 ;;1
 ;;9002226.02101,"2108,216.0 ",.01)
 ;;216.0
 ;;9002226.02101,"2108,216.0 ",.02)
 ;;216.9
 ;;9002226.02101,"2108,216.0 ",.03)
 ;;1
 ;;9002226.02101,"2108,217. ",.01)
 ;;217.
 ;;9002226.02101,"2108,217. ",.02)
 ;;217.
 ;;9002226.02101,"2108,217. ",.03)
 ;;1
 ;;9002226.02101,"2108,218.0 ",.01)
 ;;218.0
 ;;9002226.02101,"2108,218.0 ",.02)
 ;;218.9
 ;;9002226.02101,"2108,218.0 ",.03)
 ;;1
 ;;9002226.02101,"2108,219.0 ",.01)
 ;;219.0
 ;;9002226.02101,"2108,219.0 ",.02)
 ;;219.9
 ;;9002226.02101,"2108,219.0 ",.03)
 ;;1
 ;;9002226.02101,"2108,220. ",.01)
 ;;220.
 ;;9002226.02101,"2108,220. ",.02)
 ;;220.
 ;;9002226.02101,"2108,220. ",.03)
 ;;1
 ;;9002226.02101,"2108,221.0 ",.01)
 ;;221.0
 ;;9002226.02101,"2108,221.0 ",.02)
 ;;221.9
 ;;9002226.02101,"2108,221.0 ",.03)
 ;;1
 ;;9002226.02101,"2108,222.0 ",.01)
 ;;222.0
 ;;9002226.02101,"2108,222.0 ",.02)
 ;;222.9
 ;;9002226.02101,"2108,222.0 ",.03)
 ;;1
 ;;9002226.02101,"2108,223.0 ",.01)
 ;;223.0
 ;;9002226.02101,"2108,223.0 ",.02)
 ;;223.3
 ;;9002226.02101,"2108,223.0 ",.03)
 ;;1
 ;;9002226.02101,"2108,223.81 ",.01)
 ;;223.81
 ;;9002226.02101,"2108,223.81 ",.02)
 ;;223.9
 ;;9002226.02101,"2108,223.81 ",.03)
 ;;1
 ;;9002226.02101,"2108,224.0 ",.01)
 ;;224.0
 ;;9002226.02101,"2108,224.0 ",.02)
 ;;224.9
 ;;9002226.02101,"2108,224.0 ",.03)
 ;;1
 ;;9002226.02101,"2108,226. ",.01)
 ;;226.
 ;;9002226.02101,"2108,226. ",.02)
 ;;226.
 ;;9002226.02101,"2108,226. ",.03)
 ;;1
 ;;9002226.02101,"2108,227.0 ",.01)
 ;;227.0
 ;;9002226.02101,"2108,227.0 ",.02)
 ;;227.1
 ;;9002226.02101,"2108,227.0 ",.03)
 ;;1
 ;;9002226.02101,"2108,227.5 ",.01)
 ;;227.5
 ;;9002226.02101,"2108,227.5 ",.02)
 ;;227.9
 ;;9002226.02101,"2108,227.5 ",.03)
 ;;1
 ;;9002226.02101,"2108,228.00 ",.01)
 ;;228.00
 ;;9002226.02101,"2108,228.00 ",.02)
 ;;228.01
 ;;9002226.02101,"2108,228.00 ",.03)
 ;;1
 ;;9002226.02101,"2108,228.03 ",.01)
 ;;228.03
 ;;9002226.02101,"2108,228.03 ",.02)
 ;;228.09
 ;;9002226.02101,"2108,228.03 ",.03)
 ;;1
 ;;9002226.02101,"2108,229.0 ",.01)
 ;;229.0
 ;;9002226.02101,"2108,229.0 ",.02)
 ;;229.9
 ;;9002226.02101,"2108,229.0 ",.03)
 ;;1
 ;;9002226.02101,"2108,235.0 ",.01)
 ;;235.0
 ;;9002226.02101,"2108,235.0 ",.02)
 ;;235.9
 ;;9002226.02101,"2108,235.0 ",.03)
 ;;1
 ;;9002226.02101,"2108,236.0 ",.01)
 ;;236.0
 ;;9002226.02101,"2108,236.0 ",.02)
 ;;236.99
 ;;9002226.02101,"2108,236.0 ",.03)
 ;;1
 ;;9002226.02101,"2108,237.2 ",.01)
 ;;237.2
 ;;9002226.02101,"2108,237.2 ",.02)
 ;;237.4
 ;;9002226.02101,"2108,237.2 ",.03)
 ;;1
 ;;9002226.02101,"2108,237.70 ",.01)
 ;;237.70
 ;;9002226.02101,"2108,237.70 ",.02)
 ;;237.79
 ;;9002226.02101,"2108,237.70 ",.03)
 ;;1
 ;;9002226.02101,"2108,238.0 ",.01)
 ;;238.0
 ;;9002226.02101,"2108,238.0 ",.02)
 ;;238.3
 ;;9002226.02101,"2108,238.0 ",.03)
 ;;1
 ;;9002226.02101,"2108,238.5 ",.01)
 ;;238.5
 ;;9002226.02101,"2108,238.5 ",.02)
 ;;238.6
 ;;9002226.02101,"2108,238.5 ",.03)
 ;;1
 ;;9002226.02101,"2108,238.8 ",.01)
 ;;238.8
 ;;9002226.02101,"2108,238.8 ",.02)
 ;;238.9
 ;;9002226.02101,"2108,238.8 ",.03)
 ;;1
 ;;9002226.02101,"2108,239.0 ",.01)
 ;;239.0
 ;;9002226.02101,"2108,239.0 ",.02)
 ;;239.5
 ;;9002226.02101,"2108,239.0 ",.03)
 ;;1
 ;;9002226.02101,"2108,239.8 ",.01)
 ;;239.8
 ;;9002226.02101,"2108,239.8 ",.02)
 ;;239.9
 ;;9002226.02101,"2108,239.8 ",.03)
 ;;1
 ;;9002226.02101,"2108,258.01 ",.01)
 ;;258.01
 ;;9002226.02101,"2108,258.01 ",.02)
 ;;258.03
 ;;9002226.02101,"2108,258.01 ",.03)
 ;;1
 ;;9002226.02101,"2108,258.8 ",.01)
 ;;258.8
 ;;9002226.02101,"2108,258.8 ",.02)
 ;;258.8
 ;;9002226.02101,"2108,258.8 ",.03)
 ;;1
 ;;9002226.02101,"2108,259.2 ",.01)
 ;;259.2
 ;;9002226.02101,"2108,259.2 ",.02)
 ;;259.2
 ;;9002226.02101,"2108,259.2 ",.03)
 ;;1
 ;;9002226.02101,"2108,273.0 ",.01)
 ;;273.0
 ;;9002226.02101,"2108,273.0 ",.02)
 ;;273.2
 ;;9002226.02101,"2108,273.0 ",.03)
 ;;1
 ;;9002226.02101,"2108,273.8 ",.01)
 ;;273.8
 ;;9002226.02101,"2108,273.8 ",.02)
 ;;273.9
 ;;9002226.02101,"2108,273.8 ",.03)
 ;;1
 ;;9002226.02101,"2108,275.42 ",.01)
 ;;275.42
 ;;9002226.02101,"2108,275.42 ",.02)
 ;;275.42
 ;;9002226.02101,"2108,275.42 ",.03)
 ;;1
 ;;9002226.02101,"2108,277.88 ",.01)
 ;;277.88
 ;;9002226.02101,"2108,277.88 ",.02)
 ;;277.88
 ;;9002226.02101,"2108,277.88 ",.03)
 ;;1
 ;;9002226.02101,"2108,284.11 ",.01)
 ;;284.11
 ;;9002226.02101,"2108,284.11 ",.02)
 ;;284.12
 ;;9002226.02101,"2108,284.11 ",.03)
 ;;1
 ;;9002226.02101,"2108,284.19 ",.01)
 ;;284.19
 ;;9002226.02101,"2108,284.19 ",.02)
 ;;284.19
 ;;9002226.02101,"2108,284.19 ",.03)
 ;;1
 ;;9002226.02101,"2108,284.89 ",.01)
 ;;284.89
 ;;9002226.02101,"2108,284.89 ",.02)
 ;;284.89
 ;;9002226.02101,"2108,284.89 ",.03)
 ;;1
 ;;9002226.02101,"2108,285.22 ",.01)
 ;;285.22
 ;;9002226.02101,"2108,285.22 ",.02)
 ;;285.22
 ;;9002226.02101,"2108,285.22 ",.03)
 ;;1
 ;;9002226.02101,"2108,285.3 ",.01)
 ;;285.3
 ;;9002226.02101,"2108,285.3 ",.02)
 ;;285.3
 ;;9002226.02101,"2108,285.3 ",.03)
 ;;1
 ;;9002226.02101,"2108,287.39 ",.01)
 ;;287.39
 ;;9002226.02101,"2108,287.39 ",.02)
 ;;287.39
 ;;9002226.02101,"2108,287.39 ",.03)
 ;;1
 ;;9002226.02101,"2108,287.49 ",.01)
 ;;287.49
 ;;9002226.02101,"2108,287.49 ",.02)
 ;;287.49
 ;;9002226.02101,"2108,287.49 ",.03)
 ;;1
 ;;9002226.02101,"2108,287.5 ",.01)
 ;;287.5
 ;;9002226.02101,"2108,287.5 ",.02)
 ;;287.5
 ;;9002226.02101,"2108,287.5 ",.03)
 ;;1
 ;;9002226.02101,"2108,288.03 ",.01)
 ;;288.03
 ;;9002226.02101,"2108,288.03 ",.02)
 ;;288.03
 ;;9002226.02101,"2108,288.03 ",.03)
 ;;1
 ;;9002226.02101,"2108,288.3 ",.01)
 ;;288.3
 ;;9002226.02101,"2108,288.3 ",.02)
 ;;288.4
 ;;9002226.02101,"2108,288.3 ",.03)
 ;;1
 ;;9002226.02101,"2108,289.83 ",.01)
 ;;289.83
 ;;9002226.02101,"2108,289.83 ",.02)
 ;;289.83
 ;;9002226.02101,"2108,289.83 ",.03)
 ;;1
 ;;9002226.02101,"2108,336.3 ",.01)
 ;;336.3
 ;;9002226.02101,"2108,336.3 ",.02)
 ;;336.3
 ;;9002226.02101,"2108,336.3 ",.03)
 ;;1
 ;;9002226.02101,"2108,338.3 ",.01)
 ;;338.3
 ;;9002226.02101,"2108,338.3 ",.02)
 ;;338.3
 ;;9002226.02101,"2108,338.3 ",.03)
 ;;1
 ;;9002226.02101,"2108,357.3 ",.01)
 ;;357.3
 ;;9002226.02101,"2108,357.3 ",.02)
 ;;357.3
 ;;9002226.02101,"2108,357.3 ",.03)
 ;;1
 ;;9002226.02101,"2108,358.31 ",.01)
 ;;358.31
 ;;9002226.02101,"2108,358.31 ",.02)
 ;;358.31
 ;;9002226.02101,"2108,358.31 ",.03)
 ;;1
 ;;9002226.02101,"2108,377.51 ",.01)
 ;;377.51
 ;;9002226.02101,"2108,377.51 ",.02)
 ;;377.52
 ;;9002226.02101,"2108,377.51 ",.03)
 ;;1
 ;;9002226.02101,"2108,377.61 ",.01)
 ;;377.61
 ;;9002226.02101,"2108,377.61 ",.02)
 ;;377.61
 ;;9002226.02101,"2108,377.61 ",.03)
 ;;1
 ;;9002226.02101,"2108,377.71 ",.01)
 ;;377.71
 ;;9002226.02101,"2108,377.71 ",.02)
 ;;377.71
 ;;9002226.02101,"2108,377.71 ",.03)
 ;;1
 ;;9002226.02101,"2108,478.11 ",.01)
 ;;478.11
 ;;9002226.02101,"2108,478.11 ",.02)
 ;;478.11
 ;;9002226.02101,"2108,478.11 ",.03)
 ;;1
 ;;9002226.02101,"2108,511.81 ",.01)
 ;;511.81
 ;;9002226.02101,"2108,511.81 ",.02)
 ;;511.81
 ;;9002226.02101,"2108,511.81 ",.03)
 ;;1
 ;;9002226.02101,"2108,512.82 ",.01)
 ;;512.82
 ;;9002226.02101,"2108,512.82 ",.02)
 ;;512.82
 ;;9002226.02101,"2108,512.82 ",.03)
 ;;1
 ;;9002226.02101,"2108,528.01 ",.01)
 ;;528.01
 ;;9002226.02101,"2108,528.01 ",.02)
 ;;528.01
 ;;9002226.02101,"2108,528.01 ",.03)
 ;;1
 ;;9002226.02101,"2108,530.85 ",.01)
 ;;530.85
 ;;9002226.02101,"2108,530.85 ",.02)
 ;;530.85
 ;;9002226.02101,"2108,530.85 ",.03)
 ;;1
 ;;9002226.02101,"2108,569.44 ",.01)
 ;;569.44
 ;;9002226.02101,"2108,569.44 ",.02)
 ;;569.44
 ;;9002226.02101,"2108,569.44 ",.03)
 ;;1
 ;;9002226.02101,"2108,569.49 ",.01)
 ;;569.49
 ;;9002226.02101,"2108,569.49 ",.02)
 ;;569.49
 ;;9002226.02101,"2108,569.49 ",.03)
 ;;1
 ;;9002226.02101,"2108,602.3 ",.01)
 ;;602.3
 ;;9002226.02101,"2108,602.3 ",.02)
 ;;602.3
 ;;9002226.02101,"2108,602.3 ",.03)
 ;;1
 ;;9002226.02101,"2108,616.81 ",.01)
 ;;616.81
 ;;9002226.02101,"2108,616.81 ",.02)
 ;;616.81
 ;;9002226.02101,"2108,616.81 ",.03)
 ;;1
 ;;9002226.02101,"2108,622.10 ",.01)
 ;;622.10
 ;;9002226.02101,"2108,622.10 ",.02)
 ;;622.12
 ;;9002226.02101,"2108,622.10 ",.03)
 ;;1
 ;;9002226.02101,"2108,623.0 ",.01)
 ;;623.0
 ;;9002226.02101,"2108,623.0 ",.02)
 ;;623.0
 ;;9002226.02101,"2108,623.0 ",.03)
 ;;1
 ;;9002226.02101,"2108,624.01 ",.01)
 ;;624.01
 ;;9002226.02101,"2108,624.01 ",.02)
 ;;624.02
 ;;9002226.02101,"2108,624.01 ",.03)
 ;;1
 ;;9002226.02101,"2108,630. ",.01)
 ;;630.
 ;;9002226.02101,"2108,630. ",.02)
 ;;630.
 ;;9002226.02101,"2108,630. ",.03)
 ;;1
 ;;9002226.02101,"2108,648.90 ",.01)
 ;;648.90
 ;;9002226.02101,"2108,648.90 ",.02)
 ;;648.94
 ;;9002226.02101,"2108,648.90 ",.03)
 ;;1
 ;;9002226.02101,"2108,710.3 ",.01)
 ;;710.3
 ;;9002226.02101,"2108,710.3 ",.02)
 ;;710.3
 ;;9002226.02101,"2108,710.3 ",.03)
 ;;1
 ;;9002226.02101,"2108,713.8 ",.01)
 ;;713.8
 ;;9002226.02101,"2108,713.8 ",.02)
 ;;713.8
 ;;9002226.02101,"2108,713.8 ",.03)
 ;;1
 ;;9002226.02101,"2108,731.1 ",.01)
 ;;731.1
 ;;9002226.02101,"2108,731.1 ",.02)
 ;;731.1
 ;;9002226.02101,"2108,731.1 ",.03)
 ;;1
 ;;9002226.02101,"2108,733.1 ",.01)
 ;;733.1
 ;;9002226.02101,"2108,733.1 ",.02)
 ;;733.1
 ;;9002226.02101,"2108,733.1 ",.03)
 ;;1
 ;;9002226.02101,"2108,780.79 ",.01)
 ;;780.79
 ;;9002226.02101,"2108,780.79 ",.02)
 ;;780.79
 ;;9002226.02101,"2108,780.79 ",.03)
 ;;1
 ;;9002226.02101,"2108,785.6 ",.01)
 ;;785.6
 ;;9002226.02101,"2108,785.6 ",.02)
 ;;785.6
 ;;9002226.02101,"2108,785.6 ",.03)
 ;;1
 ;;9002226.02101,"2108,789.51 ",.01)
 ;;789.51
 ;;9002226.02101,"2108,789.51 ",.02)
 ;;789.51
 ;;9002226.02101,"2108,789.51 ",.03)
 ;;1
 ;;9002226.02101,"2108,790.93 ",.01)
 ;;790.93
 ;;9002226.02101,"2108,790.93 ",.02)
 ;;790.93
 ;;9002226.02101,"2108,790.93 ",.03)
 ;;1
 ;;9002226.02101,"2108,793.8 ",.01)
 ;;793.8
 ;;9002226.02101,"2108,793.8 ",.02)
 ;;793.89
 ;;9002226.02101,"2108,793.8 ",.03)
 ;;1
 ;;9002226.02101,"2108,795.0 ",.01)
 ;;795.0
 ;;9002226.02101,"2108,795.0 ",.02)
 ;;795.09
 ;;9002226.02101,"2108,795.0 ",.03)
 ;;1
 ;;9002226.02101,"2108,795.1 ",.01)
 ;;795.1
 ;;9002226.02101,"2108,795.1 ",.02)
 ;;795.19
 ;;9002226.02101,"2108,795.1 ",.03)
 ;;1
 ;;9002226.02101,"2108,795.81 ",.01)
 ;;795.81
 ;;9002226.02101,"2108,795.81 ",.02)
 ;;795.89
 ;;9002226.02101,"2108,795.81 ",.03)
 ;;1
 ;;9002226.02101,"2108,796.70 ",.01)
 ;;796.70
 ;;9002226.02101,"2108,796.70 ",.02)
 ;;796.79
 ;;9002226.02101,"2108,796.70 ",.03)
 ;;1
 ;;9002226.02101,"2108,963.1 ",.01)
 ;;963.1
 ;;9002226.02101,"2108,963.1 ",.02)
 ;;963.1
 ;;9002226.02101,"2108,963.1 ",.03)
 ;;1
 ;;9002226.02101,"2108,990. ",.01)
 ;;990.
 ;;9002226.02101,"2108,990. ",.02)
 ;;990.
 ;;9002226.02101,"2108,990. ",.03)
 ;;1
 ;;9002226.02101,"2108,996.85 ",.01)
 ;;996.85
 ;;9002226.02101,"2108,996.85 ",.02)
 ;;996.85
 ;;9002226.02101,"2108,996.85 ",.03)
 ;;1
 ;;9002226.02101,"2108,999.3 ",.01)
 ;;999.3
 ;;9002226.02101,"2108,999.3 ",.02)
 ;;999.39
 ;;9002226.02101,"2108,999.3 ",.03)
 ;;1
 ;;9002226.02101,"2108,C44.01 ",.01)
 ;;C44.01
 ;;9002226.02101,"2108,C44.01 ",.02)
 ;;C44.02
 ;;9002226.02101,"2108,C44.01 ",.03)
 ;;30
 ;;9002226.02101,"2108,C44.111 ",.01)
 ;;C44.111
 ;;9002226.02101,"2108,C44.111 ",.02)
 ;;C44.119
 ;;9002226.02101,"2108,C44.111 ",.03)
 ;;30
 ;;9002226.02101,"2108,C44.121 ",.01)
 ;;C44.121