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

ATXF1F5.m

Go to the documentation of this file.
ATXF1F5 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JUL 09, 2015;
 ;;5.1;TAXONOMY;**12**;FEB 04, 1997;Build 5
 ;
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,"488,O40.2XX3 ",.02)
 ;;O40.2XX3
 ;;9002226.02101,"488,O40.2XX3 ",.03)
 ;;30
 ;;9002226.02101,"488,O40.2XX4 ",.01)
 ;;O40.2XX4
 ;;9002226.02101,"488,O40.2XX4 ",.02)
 ;;O40.2XX4
 ;;9002226.02101,"488,O40.2XX4 ",.03)
 ;;30
 ;;9002226.02101,"488,O40.2XX5 ",.01)
 ;;O40.2XX5
 ;;9002226.02101,"488,O40.2XX5 ",.02)
 ;;O40.2XX5
 ;;9002226.02101,"488,O40.2XX5 ",.03)
 ;;30
 ;;9002226.02101,"488,O40.2XX9 ",.01)
 ;;O40.2XX9
 ;;9002226.02101,"488,O40.2XX9 ",.02)
 ;;O40.2XX9
 ;;9002226.02101,"488,O40.2XX9 ",.03)
 ;;30
 ;;9002226.02101,"488,O41.02X0 ",.01)
 ;;O41.02X0
 ;;9002226.02101,"488,O41.02X0 ",.02)
 ;;O41.02X0
 ;;9002226.02101,"488,O41.02X0 ",.03)
 ;;30
 ;;9002226.02101,"488,O41.02X1 ",.01)
 ;;O41.02X1
 ;;9002226.02101,"488,O41.02X1 ",.02)
 ;;O41.02X1
 ;;9002226.02101,"488,O41.02X1 ",.03)
 ;;30
 ;;9002226.02101,"488,O41.02X2 ",.01)
 ;;O41.02X2
 ;;9002226.02101,"488,O41.02X2 ",.02)
 ;;O41.02X2
 ;;9002226.02101,"488,O41.02X2 ",.03)
 ;;30
 ;;9002226.02101,"488,O41.02X3 ",.01)
 ;;O41.02X3
 ;;9002226.02101,"488,O41.02X3 ",.02)
 ;;O41.02X3
 ;;9002226.02101,"488,O41.02X3 ",.03)
 ;;30
 ;;9002226.02101,"488,O41.02X4 ",.01)
 ;;O41.02X4
 ;;9002226.02101,"488,O41.02X4 ",.02)
 ;;O41.02X4
 ;;9002226.02101,"488,O41.02X4 ",.03)
 ;;30
 ;;9002226.02101,"488,O41.02X5 ",.01)
 ;;O41.02X5
 ;;9002226.02101,"488,O41.02X5 ",.02)
 ;;O41.02X5
 ;;9002226.02101,"488,O41.02X5 ",.03)
 ;;30
 ;;9002226.02101,"488,O41.02X9 ",.01)
 ;;O41.02X9
 ;;9002226.02101,"488,O41.02X9 ",.02)
 ;;O41.02X9
 ;;9002226.02101,"488,O41.02X9 ",.03)
 ;;30
 ;;9002226.02101,"488,O41.1020 ",.01)
 ;;O41.1020
 ;;9002226.02101,"488,O41.1020 ",.02)
 ;;O41.1020
 ;;9002226.02101,"488,O41.1020 ",.03)
 ;;30
 ;;9002226.02101,"488,O41.1021 ",.01)
 ;;O41.1021
 ;;9002226.02101,"488,O41.1021 ",.02)
 ;;O41.1021
 ;;9002226.02101,"488,O41.1021 ",.03)
 ;;30
 ;;9002226.02101,"488,O41.1022 ",.01)
 ;;O41.1022
 ;;9002226.02101,"488,O41.1022 ",.02)
 ;;O41.1022
 ;;9002226.02101,"488,O41.1022 ",.03)
 ;;30
 ;;9002226.02101,"488,O41.1023 ",.01)
 ;;O41.1023
 ;;9002226.02101,"488,O41.1023 ",.02)
 ;;O41.1023
 ;;9002226.02101,"488,O41.1023 ",.03)
 ;;30
 ;;9002226.02101,"488,O41.1024 ",.01)
 ;;O41.1024
 ;;9002226.02101,"488,O41.1024 ",.02)
 ;;O41.1024
 ;;9002226.02101,"488,O41.1024 ",.03)
 ;;30
 ;;9002226.02101,"488,O41.1025 ",.01)
 ;;O41.1025
 ;;9002226.02101,"488,O41.1025 ",.02)
 ;;O41.1025
 ;;9002226.02101,"488,O41.1025 ",.03)
 ;;30
 ;;9002226.02101,"488,O41.1029 ",.01)
 ;;O41.1029
 ;;9002226.02101,"488,O41.1029 ",.02)
 ;;O41.1029
 ;;9002226.02101,"488,O41.1029 ",.03)
 ;;30
 ;;9002226.02101,"488,O41.1220 ",.01)
 ;;O41.1220
 ;;9002226.02101,"488,O41.1220 ",.02)
 ;;O41.1220
 ;;9002226.02101,"488,O41.1220 ",.03)
 ;;30
 ;;9002226.02101,"488,O41.1221 ",.01)
 ;;O41.1221
 ;;9002226.02101,"488,O41.1221 ",.02)
 ;;O41.1221
 ;;9002226.02101,"488,O41.1221 ",.03)
 ;;30
 ;;9002226.02101,"488,O41.1222 ",.01)
 ;;O41.1222
 ;;9002226.02101,"488,O41.1222 ",.02)
 ;;O41.1222
 ;;9002226.02101,"488,O41.1222 ",.03)
 ;;30
 ;;9002226.02101,"488,O41.1223 ",.01)
 ;;O41.1223
 ;;9002226.02101,"488,O41.1223 ",.02)
 ;;O41.1223
 ;;9002226.02101,"488,O41.1223 ",.03)
 ;;30
 ;;9002226.02101,"488,O41.1224 ",.01)
 ;;O41.1224
 ;;9002226.02101,"488,O41.1224 ",.02)
 ;;O41.1224
 ;;9002226.02101,"488,O41.1224 ",.03)
 ;;30
 ;;9002226.02101,"488,O41.1225 ",.01)
 ;;O41.1225
 ;;9002226.02101,"488,O41.1225 ",.02)
 ;;O41.1225
 ;;9002226.02101,"488,O41.1225 ",.03)
 ;;30
 ;;9002226.02101,"488,O41.1229 ",.01)
 ;;O41.1229
 ;;9002226.02101,"488,O41.1229 ",.02)
 ;;O41.1229
 ;;9002226.02101,"488,O41.1229 ",.03)
 ;;30
 ;;9002226.02101,"488,O41.1420 ",.01)
 ;;O41.1420
 ;;9002226.02101,"488,O41.1420 ",.02)
 ;;O41.1420
 ;;9002226.02101,"488,O41.1420 ",.03)
 ;;30
 ;;9002226.02101,"488,O41.1421 ",.01)
 ;;O41.1421
 ;;9002226.02101,"488,O41.1421 ",.02)
 ;;O41.1421
 ;;9002226.02101,"488,O41.1421 ",.03)
 ;;30
 ;;9002226.02101,"488,O41.1422 ",.01)
 ;;O41.1422
 ;;9002226.02101,"488,O41.1422 ",.02)
 ;;O41.1422
 ;;9002226.02101,"488,O41.1422 ",.03)
 ;;30
 ;;9002226.02101,"488,O41.1423 ",.01)
 ;;O41.1423
 ;;9002226.02101,"488,O41.1423 ",.02)
 ;;O41.1423
 ;;9002226.02101,"488,O41.1423 ",.03)
 ;;30
 ;;9002226.02101,"488,O41.1424 ",.01)
 ;;O41.1424
 ;;9002226.02101,"488,O41.1424 ",.02)
 ;;O41.1424
 ;;9002226.02101,"488,O41.1424 ",.03)
 ;;30
 ;;9002226.02101,"488,O41.1425 ",.01)
 ;;O41.1425
 ;;9002226.02101,"488,O41.1425 ",.02)
 ;;O41.1425
 ;;9002226.02101,"488,O41.1425 ",.03)
 ;;30
 ;;9002226.02101,"488,O41.1429 ",.01)
 ;;O41.1429
 ;;9002226.02101,"488,O41.1429 ",.02)
 ;;O41.1429
 ;;9002226.02101,"488,O41.1429 ",.03)
 ;;30
 ;;9002226.02101,"488,O41.8X20 ",.01)
 ;;O41.8X20
 ;;9002226.02101,"488,O41.8X20 ",.02)
 ;;O41.8X20
 ;;9002226.02101,"488,O41.8X20 ",.03)
 ;;30
 ;;9002226.02101,"488,O41.8X21 ",.01)
 ;;O41.8X21
 ;;9002226.02101,"488,O41.8X21 ",.02)
 ;;O41.8X21
 ;;9002226.02101,"488,O41.8X21 ",.03)
 ;;30
 ;;9002226.02101,"488,O41.8X22 ",.01)
 ;;O41.8X22
 ;;9002226.02101,"488,O41.8X22 ",.02)
 ;;O41.8X22
 ;;9002226.02101,"488,O41.8X22 ",.03)
 ;;30
 ;;9002226.02101,"488,O41.8X23 ",.01)
 ;;O41.8X23
 ;;9002226.02101,"488,O41.8X23 ",.02)
 ;;O41.8X23
 ;;9002226.02101,"488,O41.8X23 ",.03)
 ;;30
 ;;9002226.02101,"488,O41.8X24 ",.01)
 ;;O41.8X24
 ;;9002226.02101,"488,O41.8X24 ",.02)
 ;;O41.8X24
 ;;9002226.02101,"488,O41.8X24 ",.03)
 ;;30
 ;;9002226.02101,"488,O41.8X25 ",.01)
 ;;O41.8X25
 ;;9002226.02101,"488,O41.8X25 ",.02)
 ;;O41.8X25
 ;;9002226.02101,"488,O41.8X25 ",.03)
 ;;30
 ;;9002226.02101,"488,O41.8X29 ",.01)
 ;;O41.8X29
 ;;9002226.02101,"488,O41.8X29 ",.02)
 ;;O41.8X29
 ;;9002226.02101,"488,O41.8X29 ",.03)
 ;;30
 ;;9002226.02101,"488,O41.92X0 ",.01)
 ;;O41.92X0
 ;;9002226.02101,"488,O41.92X0 ",.02)
 ;;O41.92X0
 ;;9002226.02101,"488,O41.92X0 ",.03)
 ;;30
 ;;9002226.02101,"488,O41.92X1 ",.01)
 ;;O41.92X1
 ;;9002226.02101,"488,O41.92X1 ",.02)
 ;;O41.92X1
 ;;9002226.02101,"488,O41.92X1 ",.03)
 ;;30
 ;;9002226.02101,"488,O41.92X2 ",.01)
 ;;O41.92X2
 ;;9002226.02101,"488,O41.92X2 ",.02)
 ;;O41.92X2
 ;;9002226.02101,"488,O41.92X2 ",.03)
 ;;30
 ;;9002226.02101,"488,O41.92X3 ",.01)
 ;;O41.92X3
 ;;9002226.02101,"488,O41.92X3 ",.02)
 ;;O41.92X3
 ;;9002226.02101,"488,O41.92X3 ",.03)
 ;;30
 ;;9002226.02101,"488,O41.92X4 ",.01)
 ;;O41.92X4
 ;;9002226.02101,"488,O41.92X4 ",.02)
 ;;O41.92X4
 ;;9002226.02101,"488,O41.92X4 ",.03)
 ;;30
 ;;9002226.02101,"488,O41.92X5 ",.01)
 ;;O41.92X5
 ;;9002226.02101,"488,O41.92X5 ",.02)
 ;;O41.92X5
 ;;9002226.02101,"488,O41.92X5 ",.03)
 ;;30
 ;;9002226.02101,"488,O41.92X9 ",.01)
 ;;O41.92X9
 ;;9002226.02101,"488,O41.92X9 ",.02)
 ;;O41.92X9
 ;;9002226.02101,"488,O41.92X9 ",.03)
 ;;30
 ;;9002226.02101,"488,O42.012 ",.01)
 ;;O42.012
 ;;9002226.02101,"488,O42.012 ",.02)
 ;;O42.012
 ;;9002226.02101,"488,O42.012 ",.03)
 ;;30
 ;;9002226.02101,"488,O42.112 ",.01)
 ;;O42.112
 ;;9002226.02101,"488,O42.112 ",.02)
 ;;O42.112
 ;;9002226.02101,"488,O42.112 ",.03)
 ;;30
 ;;9002226.02101,"488,O42.912 ",.01)
 ;;O42.912
 ;;9002226.02101,"488,O42.912 ",.02)
 ;;O42.912
 ;;9002226.02101,"488,O42.912 ",.03)
 ;;30
 ;;9002226.02101,"488,O43.012 ",.01)
 ;;O43.012
 ;;9002226.02101,"488,O43.012 ",.02)
 ;;O43.012
 ;;9002226.02101,"488,O43.012 ",.03)
 ;;30
 ;;9002226.02101,"488,O43.022 ",.01)
 ;;O43.022
 ;;9002226.02101,"488,O43.022 ",.02)
 ;;O43.022
 ;;9002226.02101,"488,O43.022 ",.03)
 ;;30
 ;;9002226.02101,"488,O43.102 ",.01)
 ;;O43.102
 ;;9002226.02101,"488,O43.102 ",.02)
 ;;O43.102
 ;;9002226.02101,"488,O43.102 ",.03)
 ;;30
 ;;9002226.02101,"488,O43.112 ",.01)
 ;;O43.112
 ;;9002226.02101,"488,O43.112 ",.02)
 ;;O43.112
 ;;9002226.02101,"488,O43.112 ",.03)
 ;;30
 ;;9002226.02101,"488,O43.122 ",.01)
 ;;O43.122
 ;;9002226.02101,"488,O43.122 ",.02)
 ;;O43.122
 ;;9002226.02101,"488,O43.122 ",.03)
 ;;30
 ;;9002226.02101,"488,O43.192 ",.01)
 ;;O43.192
 ;;9002226.02101,"488,O43.192 ",.02)
 ;;O43.192
 ;;9002226.02101,"488,O43.192 ",.03)
 ;;30
 ;;9002226.02101,"488,O43.212 ",.01)
 ;;O43.212
 ;;9002226.02101,"488,O43.212 ",.02)
 ;;O43.212
 ;;9002226.02101,"488,O43.212 ",.03)
 ;;30
 ;;9002226.02101,"488,O43.222 ",.01)
 ;;O43.222
 ;;9002226.02101,"488,O43.222 ",.02)
 ;;O43.222
 ;;9002226.02101,"488,O43.222 ",.03)
 ;;30
 ;;9002226.02101,"488,O43.232 ",.01)
 ;;O43.232
 ;;9002226.02101,"488,O43.232 ",.02)
 ;;O43.232
 ;;9002226.02101,"488,O43.232 ",.03)
 ;;30
 ;;9002226.02101,"488,O43.812 ",.01)
 ;;O43.812
 ;;9002226.02101,"488,O43.812 ",.02)
 ;;O43.812
 ;;9002226.02101,"488,O43.812 ",.03)
 ;;30
 ;;9002226.02101,"488,O43.892 ",.01)
 ;;O43.892
 ;;9002226.02101,"488,O43.892 ",.02)
 ;;O43.892
 ;;9002226.02101,"488,O43.892 ",.03)
 ;;30
 ;;9002226.02101,"488,O43.92 ",.01)
 ;;O43.92
 ;;9002226.02101,"488,O43.92 ",.02)
 ;;O43.92
 ;;9002226.02101,"488,O43.92 ",.03)
 ;;30
 ;;9002226.02101,"488,O44.02 ",.01)
 ;;O44.02
 ;;9002226.02101,"488,O44.02 ",.02)
 ;;O44.02
 ;;9002226.02101,"488,O44.02 ",.03)
 ;;30
 ;;9002226.02101,"488,O44.12 ",.01)
 ;;O44.12
 ;;9002226.02101,"488,O44.12 ",.02)
 ;;O44.12
 ;;9002226.02101,"488,O44.12 ",.03)
 ;;30
 ;;9002226.02101,"488,O45.002 ",.01)
 ;;O45.002
 ;;9002226.02101,"488,O45.002 ",.02)
 ;;O45.002
 ;;9002226.02101,"488,O45.002 ",.03)
 ;;30
 ;;9002226.02101,"488,O45.012 ",.01)
 ;;O45.012
 ;;9002226.02101,"488,O45.012 ",.02)
 ;;O45.012
 ;;9002226.02101,"488,O45.012 ",.03)
 ;;30
 ;;9002226.02101,"488,O45.022 ",.01)
 ;;O45.022
 ;;9002226.02101,"488,O45.022 ",.02)
 ;;O45.022
 ;;9002226.02101,"488,O45.022 ",.03)
 ;;30
 ;;9002226.02101,"488,O45.092 ",.01)
 ;;O45.092
 ;;9002226.02101,"488,O45.092 ",.02)
 ;;O45.092
 ;;9002226.02101,"488,O45.092 ",.03)
 ;;30
 ;;9002226.02101,"488,O45.8X2 ",.01)
 ;;O45.8X2
 ;;9002226.02101,"488,O45.8X2 ",.02)
 ;;O45.8X2
 ;;9002226.02101,"488,O45.8X2 ",.03)
 ;;30
 ;;9002226.02101,"488,O45.92 ",.01)
 ;;O45.92
 ;;9002226.02101,"488,O45.92 ",.02)
 ;;O45.92
 ;;9002226.02101,"488,O45.92 ",.03)
 ;;30
 ;;9002226.02101,"488,O46.002 ",.01)
 ;;O46.002
 ;;9002226.02101,"488,O46.002 ",.02)
 ;;O46.002
 ;;9002226.02101,"488,O46.002 ",.03)
 ;;30
 ;;9002226.02101,"488,O46.012 ",.01)
 ;;O46.012
 ;;9002226.02101,"488,O46.012 ",.02)
 ;;O46.012
 ;;9002226.02101,"488,O46.012 ",.03)
 ;;30
 ;;9002226.02101,"488,O46.022 ",.01)
 ;;O46.022
 ;;9002226.02101,"488,O46.022 ",.02)
 ;;O46.022
 ;;9002226.02101,"488,O46.022 ",.03)
 ;;30
 ;;9002226.02101,"488,O46.092 ",.01)
 ;;O46.092
 ;;9002226.02101,"488,O46.092 ",.02)
 ;;O46.092
 ;;9002226.02101,"488,O46.092 ",.03)
 ;;30
 ;;9002226.02101,"488,O46.8X2 ",.01)
 ;;O46.8X2
 ;;9002226.02101,"488,O46.8X2 ",.02)
 ;;O46.8X2
 ;;9002226.02101,"488,O46.8X2 ",.03)
 ;;30
 ;;9002226.02101,"488,O46.92 ",.01)
 ;;O46.92
 ;;9002226.02101,"488,O46.92 ",.02)
 ;;O46.92
 ;;9002226.02101,"488,O46.92 ",.03)
 ;;30
 ;;9002226.02101,"488,O47.02 ",.01)
 ;;O47.02
 ;;9002226.02101,"488,O47.02 ",.02)
 ;;O47.02
 ;;9002226.02101,"488,O47.02 ",.03)
 ;;30
 ;;9002226.02101,"488,O60.02 ",.01)
 ;;O60.02
 ;;9002226.02101,"488,O60.02 ",.02)
 ;;O60.02
 ;;9002226.02101,"488,O60.02 ",.03)
 ;;30
 ;;9002226.02101,"488,O71.02 ",.01)
 ;;O71.02
 ;;9002226.02101,"488,O71.02 ",.02)
 ;;O71.02
 ;;9002226.02101,"488,O71.02 ",.03)
 ;;30
 ;;9002226.02101,"488,O88.012 ",.01)
 ;;O88.012
 ;;9002226.02101,"488,O88.012 ",.02)
 ;;O88.012
 ;;9002226.02101,"488,O88.012 ",.03)
 ;;30
 ;;9002226.02101,"488,O88.112 ",.01)
 ;;O88.112
 ;;9002226.02101,"488,O88.112 ",.02)
 ;;O88.112
 ;;9002226.02101,"488,O88.112 ",.03)
 ;;30