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

ATXF4E3.m

Go to the documentation of this file.
  1. ATXF4E3 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 15, 2016;
  1. ;;5.1;TAXONOMY;**15**;FEB 04, 1997;Build 20
  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,"2108,C44.121 ",.02)
  1. ;;C44.129
  1. ;;9002226.02101,"2108,C44.121 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,C44.211 ",.01)
  1. ;;C44.211
  1. ;;9002226.02101,"2108,C44.211 ",.02)
  1. ;;C44.219
  1. ;;9002226.02101,"2108,C44.211 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,C44.221 ",.01)
  1. ;;C44.221
  1. ;;9002226.02101,"2108,C44.221 ",.02)
  1. ;;C44.229
  1. ;;9002226.02101,"2108,C44.221 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,C44.310 ",.01)
  1. ;;C44.310
  1. ;;9002226.02101,"2108,C44.310 ",.02)
  1. ;;C44.319
  1. ;;9002226.02101,"2108,C44.310 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,C44.320 ",.01)
  1. ;;C44.320
  1. ;;9002226.02101,"2108,C44.320 ",.02)
  1. ;;C44.329
  1. ;;9002226.02101,"2108,C44.320 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,C44.41 ",.01)
  1. ;;C44.41
  1. ;;9002226.02101,"2108,C44.41 ",.02)
  1. ;;C44.41
  1. ;;9002226.02101,"2108,C44.41 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,C44.510 ",.01)
  1. ;;C44.510
  1. ;;9002226.02101,"2108,C44.510 ",.02)
  1. ;;C44.519
  1. ;;9002226.02101,"2108,C44.510 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,C44.520 ",.01)
  1. ;;C44.520
  1. ;;9002226.02101,"2108,C44.520 ",.02)
  1. ;;C44.529
  1. ;;9002226.02101,"2108,C44.520 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,C44.611 ",.01)
  1. ;;C44.611
  1. ;;9002226.02101,"2108,C44.611 ",.02)
  1. ;;C44.619
  1. ;;9002226.02101,"2108,C44.611 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,C44.621 ",.01)
  1. ;;C44.621
  1. ;;9002226.02101,"2108,C44.621 ",.02)
  1. ;;C44.629
  1. ;;9002226.02101,"2108,C44.621 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,C44.711 ",.01)
  1. ;;C44.711
  1. ;;9002226.02101,"2108,C44.711 ",.02)
  1. ;;C44.719
  1. ;;9002226.02101,"2108,C44.711 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,C44.721 ",.01)
  1. ;;C44.721
  1. ;;9002226.02101,"2108,C44.721 ",.02)
  1. ;;C44.729
  1. ;;9002226.02101,"2108,C44.721 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,C44.81 ",.01)
  1. ;;C44.81
  1. ;;9002226.02101,"2108,C44.81 ",.02)
  1. ;;C44.82
  1. ;;9002226.02101,"2108,C44.81 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,C44.91 ",.01)
  1. ;;C44.91
  1. ;;9002226.02101,"2108,C44.91 ",.02)
  1. ;;C44.92
  1. ;;9002226.02101,"2108,C44.91 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D10.0 ",.01)
  1. ;;D10.0
  1. ;;9002226.02101,"2108,D10.0 ",.02)
  1. ;;D10.2
  1. ;;9002226.02101,"2108,D10.0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D10.30 ",.01)
  1. ;;D10.30
  1. ;;9002226.02101,"2108,D10.30 ",.02)
  1. ;;D10.9
  1. ;;9002226.02101,"2108,D10.30 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D11.0 ",.01)
  1. ;;D11.0
  1. ;;9002226.02101,"2108,D11.0 ",.02)
  1. ;;D11.9
  1. ;;9002226.02101,"2108,D11.0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D12.0 ",.01)
  1. ;;D12.0
  1. ;;9002226.02101,"2108,D12.0 ",.02)
  1. ;;D12.9
  1. ;;9002226.02101,"2108,D12.0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D13.0 ",.01)
  1. ;;D13.0
  1. ;;9002226.02101,"2108,D13.0 ",.02)
  1. ;;D13.2
  1. ;;9002226.02101,"2108,D13.0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D13.30 ",.01)
  1. ;;D13.30
  1. ;;9002226.02101,"2108,D13.30 ",.02)
  1. ;;D13.9
  1. ;;9002226.02101,"2108,D13.30 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D14.0 ",.01)
  1. ;;D14.0
  1. ;;9002226.02101,"2108,D14.0 ",.02)
  1. ;;D14.2
  1. ;;9002226.02101,"2108,D14.0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D14.30 ",.01)
  1. ;;D14.30
  1. ;;9002226.02101,"2108,D14.30 ",.02)
  1. ;;D14.4
  1. ;;9002226.02101,"2108,D14.30 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D15.0 ",.01)
  1. ;;D15.0
  1. ;;9002226.02101,"2108,D15.0 ",.02)
  1. ;;D15.9
  1. ;;9002226.02101,"2108,D15.0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D16.00 ",.01)
  1. ;;D16.00
  1. ;;9002226.02101,"2108,D16.00 ",.02)
  1. ;;D16.02
  1. ;;9002226.02101,"2108,D16.00 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D16.10 ",.01)
  1. ;;D16.10
  1. ;;9002226.02101,"2108,D16.10 ",.02)
  1. ;;D16.12
  1. ;;9002226.02101,"2108,D16.10 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D16.20 ",.01)
  1. ;;D16.20
  1. ;;9002226.02101,"2108,D16.20 ",.02)
  1. ;;D16.22
  1. ;;9002226.02101,"2108,D16.20 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D16.30 ",.01)
  1. ;;D16.30
  1. ;;9002226.02101,"2108,D16.30 ",.02)
  1. ;;D16.9
  1. ;;9002226.02101,"2108,D16.30 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D17.0 ",.01)
  1. ;;D17.0
  1. ;;9002226.02101,"2108,D17.0 ",.02)
  1. ;;D17.1
  1. ;;9002226.02101,"2108,D17.0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D17.20 ",.01)
  1. ;;D17.20
  1. ;;9002226.02101,"2108,D17.20 ",.02)
  1. ;;D17.24
  1. ;;9002226.02101,"2108,D17.20 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D17.30 ",.01)
  1. ;;D17.30
  1. ;;9002226.02101,"2108,D17.30 ",.02)
  1. ;;D17.6
  1. ;;9002226.02101,"2108,D17.30 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D17.71 ",.01)
  1. ;;D17.71
  1. ;;9002226.02101,"2108,D17.71 ",.02)
  1. ;;D17.9
  1. ;;9002226.02101,"2108,D17.71 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D18.00 ",.01)
  1. ;;D18.00
  1. ;;9002226.02101,"2108,D18.00 ",.02)
  1. ;;D18.01
  1. ;;9002226.02101,"2108,D18.00 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D18.03 ",.01)
  1. ;;D18.03
  1. ;;9002226.02101,"2108,D18.03 ",.02)
  1. ;;D18.09
  1. ;;9002226.02101,"2108,D18.03 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D19.0 ",.01)
  1. ;;D19.0
  1. ;;9002226.02101,"2108,D19.0 ",.02)
  1. ;;D19.9
  1. ;;9002226.02101,"2108,D19.0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D20.0 ",.01)
  1. ;;D20.0
  1. ;;9002226.02101,"2108,D20.0 ",.02)
  1. ;;D20.1
  1. ;;9002226.02101,"2108,D20.0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D21.0 ",.01)
  1. ;;D21.0
  1. ;;9002226.02101,"2108,D21.0 ",.02)
  1. ;;D21.0
  1. ;;9002226.02101,"2108,D21.0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D21.10 ",.01)
  1. ;;D21.10
  1. ;;9002226.02101,"2108,D21.10 ",.02)
  1. ;;D21.12
  1. ;;9002226.02101,"2108,D21.10 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D21.20 ",.01)
  1. ;;D21.20
  1. ;;9002226.02101,"2108,D21.20 ",.02)
  1. ;;D21.9
  1. ;;9002226.02101,"2108,D21.20 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D22.0 ",.01)
  1. ;;D22.0
  1. ;;9002226.02101,"2108,D22.0 ",.02)
  1. ;;D22.0
  1. ;;9002226.02101,"2108,D22.0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D22.10 ",.01)
  1. ;;D22.10
  1. ;;9002226.02101,"2108,D22.10 ",.02)
  1. ;;D22.12
  1. ;;9002226.02101,"2108,D22.10 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D22.20 ",.01)
  1. ;;D22.20
  1. ;;9002226.02101,"2108,D22.20 ",.02)
  1. ;;D22.22
  1. ;;9002226.02101,"2108,D22.20 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D22.30 ",.01)
  1. ;;D22.30
  1. ;;9002226.02101,"2108,D22.30 ",.02)
  1. ;;D22.5
  1. ;;9002226.02101,"2108,D22.30 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D22.60 ",.01)
  1. ;;D22.60
  1. ;;9002226.02101,"2108,D22.60 ",.02)
  1. ;;D22.62
  1. ;;9002226.02101,"2108,D22.60 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D22.70 ",.01)
  1. ;;D22.70
  1. ;;9002226.02101,"2108,D22.70 ",.02)
  1. ;;D22.9
  1. ;;9002226.02101,"2108,D22.70 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D23.0 ",.01)
  1. ;;D23.0
  1. ;;9002226.02101,"2108,D23.0 ",.02)
  1. ;;D23.0
  1. ;;9002226.02101,"2108,D23.0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D23.10 ",.01)
  1. ;;D23.10
  1. ;;9002226.02101,"2108,D23.10 ",.02)
  1. ;;D23.12
  1. ;;9002226.02101,"2108,D23.10 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D23.20 ",.01)
  1. ;;D23.20
  1. ;;9002226.02101,"2108,D23.20 ",.02)
  1. ;;D23.22
  1. ;;9002226.02101,"2108,D23.20 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D23.30 ",.01)
  1. ;;D23.30
  1. ;;9002226.02101,"2108,D23.30 ",.02)
  1. ;;D23.5
  1. ;;9002226.02101,"2108,D23.30 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D23.60 ",.01)
  1. ;;D23.60
  1. ;;9002226.02101,"2108,D23.60 ",.02)
  1. ;;D23.62
  1. ;;9002226.02101,"2108,D23.60 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D23.70 ",.01)
  1. ;;D23.70
  1. ;;9002226.02101,"2108,D23.70 ",.02)
  1. ;;D23.9
  1. ;;9002226.02101,"2108,D23.70 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D24.1 ",.01)
  1. ;;D24.1
  1. ;;9002226.02101,"2108,D24.1 ",.02)
  1. ;;D24.9
  1. ;;9002226.02101,"2108,D24.1 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D25.0 ",.01)
  1. ;;D25.0
  1. ;;9002226.02101,"2108,D25.0 ",.02)
  1. ;;D25.9
  1. ;;9002226.02101,"2108,D25.0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D26.0 ",.01)
  1. ;;D26.0
  1. ;;9002226.02101,"2108,D26.0 ",.02)
  1. ;;D26.9
  1. ;;9002226.02101,"2108,D26.0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D27.0 ",.01)
  1. ;;D27.0
  1. ;;9002226.02101,"2108,D27.0 ",.02)
  1. ;;D27.9
  1. ;;9002226.02101,"2108,D27.0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D28.0 ",.01)
  1. ;;D28.0
  1. ;;9002226.02101,"2108,D28.0 ",.02)
  1. ;;D28.9
  1. ;;9002226.02101,"2108,D28.0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D29.0 ",.01)
  1. ;;D29.0
  1. ;;9002226.02101,"2108,D29.0 ",.02)
  1. ;;D29.1
  1. ;;9002226.02101,"2108,D29.0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D29.20 ",.01)
  1. ;;D29.20
  1. ;;9002226.02101,"2108,D29.20 ",.02)
  1. ;;D29.22
  1. ;;9002226.02101,"2108,D29.20 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D29.30 ",.01)
  1. ;;D29.30
  1. ;;9002226.02101,"2108,D29.30 ",.02)
  1. ;;D29.9
  1. ;;9002226.02101,"2108,D29.30 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D30.00 ",.01)
  1. ;;D30.00
  1. ;;9002226.02101,"2108,D30.00 ",.02)
  1. ;;D30.02
  1. ;;9002226.02101,"2108,D30.00 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D30.10 ",.01)
  1. ;;D30.10
  1. ;;9002226.02101,"2108,D30.10 ",.02)
  1. ;;D30.12
  1. ;;9002226.02101,"2108,D30.10 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D30.20 ",.01)
  1. ;;D30.20
  1. ;;9002226.02101,"2108,D30.20 ",.02)
  1. ;;D30.9
  1. ;;9002226.02101,"2108,D30.20 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D31.00 ",.01)
  1. ;;D31.00
  1. ;;9002226.02101,"2108,D31.00 ",.02)
  1. ;;D31.02
  1. ;;9002226.02101,"2108,D31.00 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D31.10 ",.01)
  1. ;;D31.10
  1. ;;9002226.02101,"2108,D31.10 ",.02)
  1. ;;D31.12
  1. ;;9002226.02101,"2108,D31.10 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D31.20 ",.01)
  1. ;;D31.20
  1. ;;9002226.02101,"2108,D31.20 ",.02)
  1. ;;D31.22
  1. ;;9002226.02101,"2108,D31.20 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D31.30 ",.01)
  1. ;;D31.30
  1. ;;9002226.02101,"2108,D31.30 ",.02)
  1. ;;D31.32
  1. ;;9002226.02101,"2108,D31.30 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D31.40 ",.01)
  1. ;;D31.40
  1. ;;9002226.02101,"2108,D31.40 ",.02)
  1. ;;D31.42
  1. ;;9002226.02101,"2108,D31.40 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D31.50 ",.01)
  1. ;;D31.50
  1. ;;9002226.02101,"2108,D31.50 ",.02)
  1. ;;D31.52
  1. ;;9002226.02101,"2108,D31.50 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D31.60 ",.01)
  1. ;;D31.60
  1. ;;9002226.02101,"2108,D31.60 ",.02)
  1. ;;D31.62
  1. ;;9002226.02101,"2108,D31.60 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D31.90 ",.01)
  1. ;;D31.90
  1. ;;9002226.02101,"2108,D31.90 ",.02)
  1. ;;D31.92
  1. ;;9002226.02101,"2108,D31.90 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D35.00 ",.01)
  1. ;;D35.00
  1. ;;9002226.02101,"2108,D35.00 ",.02)
  1. ;;D35.02
  1. ;;9002226.02101,"2108,D35.00 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D35.1 ",.01)
  1. ;;D35.1
  1. ;;9002226.02101,"2108,D35.1 ",.02)
  1. ;;D35.1
  1. ;;9002226.02101,"2108,D35.1 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D35.5 ",.01)
  1. ;;D35.5
  1. ;;9002226.02101,"2108,D35.5 ",.02)
  1. ;;D35.9
  1. ;;9002226.02101,"2108,D35.5 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D36.0 ",.01)
  1. ;;D36.0
  1. ;;9002226.02101,"2108,D36.0 ",.02)
  1. ;;D36.0
  1. ;;9002226.02101,"2108,D36.0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D36.10 ",.01)
  1. ;;D36.10
  1. ;;9002226.02101,"2108,D36.10 ",.02)
  1. ;;D36.17
  1. ;;9002226.02101,"2108,D36.10 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D36.7 ",.01)
  1. ;;D36.7
  1. ;;9002226.02101,"2108,D36.7 ",.02)
  1. ;;D36.9
  1. ;;9002226.02101,"2108,D36.7 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D37.01 ",.01)
  1. ;;D37.01
  1. ;;9002226.02101,"2108,D37.01 ",.02)
  1. ;;D37.02
  1. ;;9002226.02101,"2108,D37.01 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D37.030 ",.01)
  1. ;;D37.030
  1. ;;9002226.02101,"2108,D37.030 ",.02)
  1. ;;D37.9
  1. ;;9002226.02101,"2108,D37.030 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D38.0 ",.01)
  1. ;;D38.0
  1. ;;9002226.02101,"2108,D38.0 ",.02)
  1. ;;D38.6
  1. ;;9002226.02101,"2108,D38.0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D39.0 ",.01)
  1. ;;D39.0
  1. ;;9002226.02101,"2108,D39.0 ",.02)
  1. ;;D39.9
  1. ;;9002226.02101,"2108,D39.0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D3A.00 ",.01)
  1. ;;D3A.00
  1. ;;9002226.02101,"2108,D3A.00 ",.02)
  1. ;;D3A.8
  1. ;;9002226.02101,"2108,D3A.00 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D40.0 ",.01)
  1. ;;D40.0
  1. ;;9002226.02101,"2108,D40.0 ",.02)
  1. ;;D40.9
  1. ;;9002226.02101,"2108,D40.0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D41.00 ",.01)
  1. ;;D41.00
  1. ;;9002226.02101,"2108,D41.00 ",.02)
  1. ;;D41.9
  1. ;;9002226.02101,"2108,D41.00 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2108,D44.0 ",.01)
  1. ;;D44.0
  1. ;;9002226.02101,"2108,D44.0 ",.02)
  1. ;;D44.0