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

ATXF0M4.m

Go to the documentation of this file.
  1. ATXF0M4 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JUN 29, 2017;
  1. ;;5.1;TAXONOMY;**23**;FEB 04, 1997;Build 39
  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,"1075,671.03 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,671.13 ",.01)
  1. ;;671.13
  1. ;;9002226.02101,"1075,671.13 ",.02)
  1. ;;671.13
  1. ;;9002226.02101,"1075,671.13 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,671.23 ",.01)
  1. ;;671.23
  1. ;;9002226.02101,"1075,671.23 ",.02)
  1. ;;671.23
  1. ;;9002226.02101,"1075,671.23 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,671.33 ",.01)
  1. ;;671.33
  1. ;;9002226.02101,"1075,671.33 ",.02)
  1. ;;671.33
  1. ;;9002226.02101,"1075,671.33 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,671.53 ",.01)
  1. ;;671.53
  1. ;;9002226.02101,"1075,671.53 ",.02)
  1. ;;671.53
  1. ;;9002226.02101,"1075,671.53 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,671.83 ",.01)
  1. ;;671.83
  1. ;;9002226.02101,"1075,671.83 ",.02)
  1. ;;671.83
  1. ;;9002226.02101,"1075,671.83 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,671.93 ",.01)
  1. ;;671.93
  1. ;;9002226.02101,"1075,671.93 ",.02)
  1. ;;671.93
  1. ;;9002226.02101,"1075,671.93 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,673.03 ",.01)
  1. ;;673.03
  1. ;;9002226.02101,"1075,673.03 ",.02)
  1. ;;673.03
  1. ;;9002226.02101,"1075,673.03 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,673.13 ",.01)
  1. ;;673.13
  1. ;;9002226.02101,"1075,673.13 ",.02)
  1. ;;673.13
  1. ;;9002226.02101,"1075,673.13 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,673.23 ",.01)
  1. ;;673.23
  1. ;;9002226.02101,"1075,673.23 ",.02)
  1. ;;673.23
  1. ;;9002226.02101,"1075,673.23 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,673.33 ",.01)
  1. ;;673.33
  1. ;;9002226.02101,"1075,673.33 ",.02)
  1. ;;673.33
  1. ;;9002226.02101,"1075,673.33 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,673.83 ",.01)
  1. ;;673.83
  1. ;;9002226.02101,"1075,673.83 ",.02)
  1. ;;673.83
  1. ;;9002226.02101,"1075,673.83 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,678.03 ",.01)
  1. ;;678.03
  1. ;;9002226.02101,"1075,678.03 ",.02)
  1. ;;678.03
  1. ;;9002226.02101,"1075,678.03 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,678.13 ",.01)
  1. ;;678.13
  1. ;;9002226.02101,"1075,678.13 ",.02)
  1. ;;678.13
  1. ;;9002226.02101,"1075,678.13 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,679.03 ",.01)
  1. ;;679.03
  1. ;;9002226.02101,"1075,679.03 ",.02)
  1. ;;679.03
  1. ;;9002226.02101,"1075,679.03 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,679.13 ",.01)
  1. ;;679.13
  1. ;;9002226.02101,"1075,679.13 ",.02)
  1. ;;679.13
  1. ;;9002226.02101,"1075,679.13 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,O09.00 ",.01)
  1. ;;O09.00
  1. ;;9002226.02101,"1075,O09.00 ",.02)
  1. ;;O10.02
  1. ;;9002226.02101,"1075,O09.00 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O10.111 ",.01)
  1. ;;O10.111
  1. ;;9002226.02101,"1075,O10.111 ",.02)
  1. ;;O10.12
  1. ;;9002226.02101,"1075,O10.111 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O10.211 ",.01)
  1. ;;O10.211
  1. ;;9002226.02101,"1075,O10.211 ",.02)
  1. ;;O10.22
  1. ;;9002226.02101,"1075,O10.211 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O10.311 ",.01)
  1. ;;O10.311
  1. ;;9002226.02101,"1075,O10.311 ",.02)
  1. ;;O10.32
  1. ;;9002226.02101,"1075,O10.311 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O10.411 ",.01)
  1. ;;O10.411
  1. ;;9002226.02101,"1075,O10.411 ",.02)
  1. ;;O10.42
  1. ;;9002226.02101,"1075,O10.411 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O10.911 ",.01)
  1. ;;O10.911
  1. ;;9002226.02101,"1075,O10.911 ",.02)
  1. ;;O10.92
  1. ;;9002226.02101,"1075,O10.911 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O11.1 ",.01)
  1. ;;O11.1
  1. ;;9002226.02101,"1075,O11.1 ",.02)
  1. ;;O15.1
  1. ;;9002226.02101,"1075,O11.1 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O15.9 ",.01)
  1. ;;O15.9
  1. ;;9002226.02101,"1075,O15.9 ",.02)
  1. ;;O24.02
  1. ;;9002226.02101,"1075,O15.9 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O24.111 ",.01)
  1. ;;O24.111
  1. ;;9002226.02101,"1075,O24.111 ",.02)
  1. ;;O24.12
  1. ;;9002226.02101,"1075,O24.111 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O24.311 ",.01)
  1. ;;O24.311
  1. ;;9002226.02101,"1075,O24.311 ",.02)
  1. ;;O24.32
  1. ;;9002226.02101,"1075,O24.311 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O24.410 ",.01)
  1. ;;O24.410
  1. ;;9002226.02101,"1075,O24.410 ",.02)
  1. ;;O24.419
  1. ;;9002226.02101,"1075,O24.410 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O24.425 ",.01)
  1. ;;O24.425
  1. ;;9002226.02101,"1075,O24.425 ",.02)
  1. ;;O24.425
  1. ;;9002226.02101,"1075,O24.425 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O24.435 ",.01)
  1. ;;O24.435
  1. ;;9002226.02101,"1075,O24.435 ",.02)
  1. ;;O24.435
  1. ;;9002226.02101,"1075,O24.435 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O24.811 ",.01)
  1. ;;O24.811
  1. ;;9002226.02101,"1075,O24.811 ",.02)
  1. ;;O24.82
  1. ;;9002226.02101,"1075,O24.811 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O24.911 ",.01)
  1. ;;O24.911
  1. ;;9002226.02101,"1075,O24.911 ",.02)
  1. ;;O24.92
  1. ;;9002226.02101,"1075,O24.911 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O25.10 ",.01)
  1. ;;O25.10
  1. ;;9002226.02101,"1075,O25.10 ",.02)
  1. ;;O25.2
  1. ;;9002226.02101,"1075,O25.10 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O26.00 ",.01)
  1. ;;O26.00
  1. ;;9002226.02101,"1075,O26.00 ",.02)
  1. ;;O26.62
  1. ;;9002226.02101,"1075,O26.00 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O26.711 ",.01)
  1. ;;O26.711
  1. ;;9002226.02101,"1075,O26.711 ",.02)
  1. ;;O26.72
  1. ;;9002226.02101,"1075,O26.711 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O26.811 ",.01)
  1. ;;O26.811
  1. ;;9002226.02101,"1075,O26.811 ",.02)
  1. ;;O26.93
  1. ;;9002226.02101,"1075,O26.811 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O29.011 ",.01)
  1. ;;O29.011
  1. ;;9002226.02101,"1075,O29.011 ",.02)
  1. ;;O60.03
  1. ;;9002226.02101,"1075,O29.011 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O61.0 ",.01)
  1. ;;O61.0
  1. ;;9002226.02101,"1075,O61.0 ",.02)
  1. ;;O66.9
  1. ;;9002226.02101,"1075,O61.0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O68. ",.01)
  1. ;;O68.
  1. ;;9002226.02101,"1075,O68. ",.02)
  1. ;;O69.9XX9
  1. ;;9002226.02101,"1075,O68. ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O71.00 ",.01)
  1. ;;O71.00
  1. ;;9002226.02101,"1075,O71.00 ",.02)
  1. ;;O71.1
  1. ;;9002226.02101,"1075,O71.00 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O71.89 ",.01)
  1. ;;O71.89
  1. ;;9002226.02101,"1075,O71.89 ",.02)
  1. ;;O71.9
  1. ;;9002226.02101,"1075,O71.89 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O74.0 ",.01)
  1. ;;O74.0
  1. ;;9002226.02101,"1075,O74.0 ",.02)
  1. ;;O75.81
  1. ;;9002226.02101,"1075,O74.0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O75.89 ",.01)
  1. ;;O75.89
  1. ;;9002226.02101,"1075,O75.89 ",.02)
  1. ;;O77.9
  1. ;;9002226.02101,"1075,O75.89 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O88.011 ",.01)
  1. ;;O88.011
  1. ;;9002226.02101,"1075,O88.011 ",.02)
  1. ;;O88.02
  1. ;;9002226.02101,"1075,O88.011 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O88.111 ",.01)
  1. ;;O88.111
  1. ;;9002226.02101,"1075,O88.111 ",.02)
  1. ;;O88.12
  1. ;;9002226.02101,"1075,O88.111 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O88.211 ",.01)
  1. ;;O88.211
  1. ;;9002226.02101,"1075,O88.211 ",.02)
  1. ;;O88.22
  1. ;;9002226.02101,"1075,O88.211 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O88.311 ",.01)
  1. ;;O88.311
  1. ;;9002226.02101,"1075,O88.311 ",.02)
  1. ;;O88.32
  1. ;;9002226.02101,"1075,O88.311 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O88.811 ",.01)
  1. ;;O88.811
  1. ;;9002226.02101,"1075,O88.811 ",.02)
  1. ;;O88.82
  1. ;;9002226.02101,"1075,O88.811 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O90.3 ",.01)
  1. ;;O90.3
  1. ;;9002226.02101,"1075,O90.3 ",.02)
  1. ;;O90.3
  1. ;;9002226.02101,"1075,O90.3 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O91.011 ",.01)
  1. ;;O91.011
  1. ;;9002226.02101,"1075,O91.011 ",.02)
  1. ;;O91.019
  1. ;;9002226.02101,"1075,O91.011 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O91.111 ",.01)
  1. ;;O91.111
  1. ;;9002226.02101,"1075,O91.111 ",.02)
  1. ;;O91.119
  1. ;;9002226.02101,"1075,O91.111 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O91.211 ",.01)
  1. ;;O91.211
  1. ;;9002226.02101,"1075,O91.211 ",.02)
  1. ;;O91.219
  1. ;;9002226.02101,"1075,O91.211 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O92.011 ",.01)
  1. ;;O92.011
  1. ;;9002226.02101,"1075,O92.011 ",.02)
  1. ;;O92.019
  1. ;;9002226.02101,"1075,O92.011 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O92.20 ",.01)
  1. ;;O92.20
  1. ;;9002226.02101,"1075,O92.20 ",.02)
  1. ;;O92.29
  1. ;;9002226.02101,"1075,O92.20 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O98.011 ",.01)
  1. ;;O98.011
  1. ;;9002226.02101,"1075,O98.011 ",.02)
  1. ;;O98.02
  1. ;;9002226.02101,"1075,O98.011 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O98.111 ",.01)
  1. ;;O98.111
  1. ;;9002226.02101,"1075,O98.111 ",.02)
  1. ;;O98.12
  1. ;;9002226.02101,"1075,O98.111 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O98.211 ",.01)
  1. ;;O98.211
  1. ;;9002226.02101,"1075,O98.211 ",.02)
  1. ;;O98.22
  1. ;;9002226.02101,"1075,O98.211 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O98.311 ",.01)
  1. ;;O98.311
  1. ;;9002226.02101,"1075,O98.311 ",.02)
  1. ;;O98.32
  1. ;;9002226.02101,"1075,O98.311 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O98.411 ",.01)
  1. ;;O98.411
  1. ;;9002226.02101,"1075,O98.411 ",.02)
  1. ;;O98.42
  1. ;;9002226.02101,"1075,O98.411 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O98.511 ",.01)
  1. ;;O98.511
  1. ;;9002226.02101,"1075,O98.511 ",.02)
  1. ;;O98.52
  1. ;;9002226.02101,"1075,O98.511 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O98.611 ",.01)
  1. ;;O98.611
  1. ;;9002226.02101,"1075,O98.611 ",.02)
  1. ;;O98.62
  1. ;;9002226.02101,"1075,O98.611 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O98.711 ",.01)
  1. ;;O98.711
  1. ;;9002226.02101,"1075,O98.711 ",.02)
  1. ;;O98.72
  1. ;;9002226.02101,"1075,O98.711 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O98.811 ",.01)
  1. ;;O98.811
  1. ;;9002226.02101,"1075,O98.811 ",.02)
  1. ;;O98.82
  1. ;;9002226.02101,"1075,O98.811 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O98.911 ",.01)
  1. ;;O98.911
  1. ;;9002226.02101,"1075,O98.911 ",.02)
  1. ;;O98.92
  1. ;;9002226.02101,"1075,O98.911 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O99.011 ",.01)
  1. ;;O99.011
  1. ;;9002226.02101,"1075,O99.011 ",.02)
  1. ;;O99.02
  1. ;;9002226.02101,"1075,O99.011 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O99.111 ",.01)
  1. ;;O99.111
  1. ;;9002226.02101,"1075,O99.111 ",.02)
  1. ;;O99.12
  1. ;;9002226.02101,"1075,O99.111 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O99.210 ",.01)
  1. ;;O99.210
  1. ;;9002226.02101,"1075,O99.210 ",.02)
  1. ;;O99.214
  1. ;;9002226.02101,"1075,O99.210 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O99.280 ",.01)
  1. ;;O99.280
  1. ;;9002226.02101,"1075,O99.280 ",.02)
  1. ;;O99.284
  1. ;;9002226.02101,"1075,O99.280 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O99.310 ",.01)
  1. ;;O99.310
  1. ;;9002226.02101,"1075,O99.310 ",.02)
  1. ;;O99.314
  1. ;;9002226.02101,"1075,O99.310 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O99.320 ",.01)
  1. ;;O99.320
  1. ;;9002226.02101,"1075,O99.320 ",.02)
  1. ;;O99.324
  1. ;;9002226.02101,"1075,O99.320 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O99.330 ",.01)
  1. ;;O99.330
  1. ;;9002226.02101,"1075,O99.330 ",.02)
  1. ;;O99.334
  1. ;;9002226.02101,"1075,O99.330 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O99.340 ",.01)
  1. ;;O99.340
  1. ;;9002226.02101,"1075,O99.340 ",.02)
  1. ;;O99.344
  1. ;;9002226.02101,"1075,O99.340 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O99.350 ",.01)
  1. ;;O99.350
  1. ;;9002226.02101,"1075,O99.350 ",.02)
  1. ;;O99.354
  1. ;;9002226.02101,"1075,O99.350 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O99.411 ",.01)
  1. ;;O99.411
  1. ;;9002226.02101,"1075,O99.411 ",.02)
  1. ;;O99.42
  1. ;;9002226.02101,"1075,O99.411 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O99.511 ",.01)
  1. ;;O99.511
  1. ;;9002226.02101,"1075,O99.511 ",.02)
  1. ;;O99.52
  1. ;;9002226.02101,"1075,O99.511 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O99.611 ",.01)
  1. ;;O99.611
  1. ;;9002226.02101,"1075,O99.611 ",.02)
  1. ;;O99.62
  1. ;;9002226.02101,"1075,O99.611 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O99.711 ",.01)
  1. ;;O99.711
  1. ;;9002226.02101,"1075,O99.711 ",.02)
  1. ;;O99.72
  1. ;;9002226.02101,"1075,O99.711 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O99.810 ",.01)
  1. ;;O99.810
  1. ;;9002226.02101,"1075,O99.810 ",.02)
  1. ;;O99.814
  1. ;;9002226.02101,"1075,O99.810 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O99.820 ",.01)
  1. ;;O99.820
  1. ;;9002226.02101,"1075,O99.820 ",.02)
  1. ;;O99.824
  1. ;;9002226.02101,"1075,O99.820 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O99.830 ",.01)
  1. ;;O99.830
  1. ;;9002226.02101,"1075,O99.830 ",.02)
  1. ;;O99.834
  1. ;;9002226.02101,"1075,O99.830 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O99.840 ",.01)
  1. ;;O99.840
  1. ;;9002226.02101,"1075,O99.840 ",.02)
  1. ;;O99.844
  1. ;;9002226.02101,"1075,O99.840 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O99.89 ",.01)
  1. ;;O99.89