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

ATXF4D4.m

Go to the documentation of this file.
ATXF4D4 ;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,"2107,C43.20 ",.01)
 ;;C43.20
 ;;9002226.02101,"2107,C43.20 ",.02)
 ;;C43.22
 ;;9002226.02101,"2107,C43.20 ",.03)
 ;;30
 ;;9002226.02101,"2107,C43.30 ",.01)
 ;;C43.30
 ;;9002226.02101,"2107,C43.30 ",.02)
 ;;C43.4
 ;;9002226.02101,"2107,C43.30 ",.03)
 ;;30
 ;;9002226.02101,"2107,C43.51 ",.01)
 ;;C43.51
 ;;9002226.02101,"2107,C43.51 ",.02)
 ;;C43.59
 ;;9002226.02101,"2107,C43.51 ",.03)
 ;;30
 ;;9002226.02101,"2107,C43.60 ",.01)
 ;;C43.60
 ;;9002226.02101,"2107,C43.60 ",.02)
 ;;C43.62
 ;;9002226.02101,"2107,C43.60 ",.03)
 ;;30
 ;;9002226.02101,"2107,C43.70 ",.01)
 ;;C43.70
 ;;9002226.02101,"2107,C43.70 ",.02)
 ;;C43.9
 ;;9002226.02101,"2107,C43.70 ",.03)
 ;;30
 ;;9002226.02101,"2107,C44.00 ",.01)
 ;;C44.00
 ;;9002226.02101,"2107,C44.00 ",.02)
 ;;C44.00
 ;;9002226.02101,"2107,C44.00 ",.03)
 ;;30
 ;;9002226.02101,"2107,C44.09 ",.01)
 ;;C44.09
 ;;9002226.02101,"2107,C44.09 ",.02)
 ;;C44.09
 ;;9002226.02101,"2107,C44.09 ",.03)
 ;;30
 ;;9002226.02101,"2107,C44.101 ",.01)
 ;;C44.101
 ;;9002226.02101,"2107,C44.101 ",.02)
 ;;C44.102
 ;;9002226.02101,"2107,C44.101 ",.03)
 ;;30
 ;;9002226.02101,"2107,C44.109 ",.01)
 ;;C44.109
 ;;9002226.02101,"2107,C44.109 ",.02)
 ;;C44.109
 ;;9002226.02101,"2107,C44.109 ",.03)
 ;;30
 ;;9002226.02101,"2107,C44.191 ",.01)
 ;;C44.191
 ;;9002226.02101,"2107,C44.191 ",.02)
 ;;C44.192
 ;;9002226.02101,"2107,C44.191 ",.03)
 ;;30
 ;;9002226.02101,"2107,C44.199 ",.01)
 ;;C44.199
 ;;9002226.02101,"2107,C44.199 ",.02)
 ;;C44.199
 ;;9002226.02101,"2107,C44.199 ",.03)
 ;;30
 ;;9002226.02101,"2107,C44.201 ",.01)
 ;;C44.201
 ;;9002226.02101,"2107,C44.201 ",.02)
 ;;C44.202
 ;;9002226.02101,"2107,C44.201 ",.03)
 ;;30
 ;;9002226.02101,"2107,C44.209 ",.01)
 ;;C44.209
 ;;9002226.02101,"2107,C44.209 ",.02)
 ;;C44.209
 ;;9002226.02101,"2107,C44.209 ",.03)
 ;;30
 ;;9002226.02101,"2107,C44.291 ",.01)
 ;;C44.291
 ;;9002226.02101,"2107,C44.291 ",.02)
 ;;C44.299
 ;;9002226.02101,"2107,C44.291 ",.03)
 ;;30
 ;;9002226.02101,"2107,C44.300 ",.01)
 ;;C44.300
 ;;9002226.02101,"2107,C44.300 ",.02)
 ;;C44.309
 ;;9002226.02101,"2107,C44.300 ",.03)
 ;;30
 ;;9002226.02101,"2107,C44.390 ",.01)
 ;;C44.390
 ;;9002226.02101,"2107,C44.390 ",.02)
 ;;C44.399
 ;;9002226.02101,"2107,C44.390 ",.03)
 ;;30
 ;;9002226.02101,"2107,C44.40 ",.01)
 ;;C44.40
 ;;9002226.02101,"2107,C44.40 ",.02)
 ;;C44.40
 ;;9002226.02101,"2107,C44.40 ",.03)
 ;;30
 ;;9002226.02101,"2107,C44.49 ",.01)
 ;;C44.49
 ;;9002226.02101,"2107,C44.49 ",.02)
 ;;C44.49
 ;;9002226.02101,"2107,C44.49 ",.03)
 ;;30
 ;;9002226.02101,"2107,C44.500 ",.01)
 ;;C44.500
 ;;9002226.02101,"2107,C44.500 ",.02)
 ;;C44.509
 ;;9002226.02101,"2107,C44.500 ",.03)
 ;;30
 ;;9002226.02101,"2107,C44.590 ",.01)
 ;;C44.590
 ;;9002226.02101,"2107,C44.590 ",.02)
 ;;C44.599
 ;;9002226.02101,"2107,C44.590 ",.03)
 ;;30
 ;;9002226.02101,"2107,C44.601 ",.01)
 ;;C44.601
 ;;9002226.02101,"2107,C44.601 ",.02)
 ;;C44.609
 ;;9002226.02101,"2107,C44.601 ",.03)
 ;;30
 ;;9002226.02101,"2107,C44.691 ",.01)
 ;;C44.691
 ;;9002226.02101,"2107,C44.691 ",.02)
 ;;C44.699
 ;;9002226.02101,"2107,C44.691 ",.03)
 ;;30
 ;;9002226.02101,"2107,C44.701 ",.01)
 ;;C44.701
 ;;9002226.02101,"2107,C44.701 ",.02)
 ;;C44.709
 ;;9002226.02101,"2107,C44.701 ",.03)
 ;;30
 ;;9002226.02101,"2107,C44.791 ",.01)
 ;;C44.791
 ;;9002226.02101,"2107,C44.791 ",.02)
 ;;C44.799
 ;;9002226.02101,"2107,C44.791 ",.03)
 ;;30
 ;;9002226.02101,"2107,C44.80 ",.01)
 ;;C44.80
 ;;9002226.02101,"2107,C44.80 ",.02)
 ;;C44.80
 ;;9002226.02101,"2107,C44.80 ",.03)
 ;;30
 ;;9002226.02101,"2107,C44.89 ",.01)
 ;;C44.89
 ;;9002226.02101,"2107,C44.89 ",.02)
 ;;C44.89
 ;;9002226.02101,"2107,C44.89 ",.03)
 ;;30
 ;;9002226.02101,"2107,C44.90 ",.01)
 ;;C44.90
 ;;9002226.02101,"2107,C44.90 ",.02)
 ;;C44.90
 ;;9002226.02101,"2107,C44.90 ",.03)
 ;;30
 ;;9002226.02101,"2107,C44.99 ",.01)
 ;;C44.99
 ;;9002226.02101,"2107,C44.99 ",.02)
 ;;C44.99
 ;;9002226.02101,"2107,C44.99 ",.03)
 ;;30
 ;;9002226.02101,"2107,C45.0 ",.01)
 ;;C45.0
 ;;9002226.02101,"2107,C45.0 ",.02)
 ;;C45.9
 ;;9002226.02101,"2107,C45.0 ",.03)
 ;;30
 ;;9002226.02101,"2107,C46.0 ",.01)
 ;;C46.0
 ;;9002226.02101,"2107,C46.0 ",.02)
 ;;C46.4
 ;;9002226.02101,"2107,C46.0 ",.03)
 ;;30
 ;;9002226.02101,"2107,C46.50 ",.01)
 ;;C46.50
 ;;9002226.02101,"2107,C46.50 ",.02)
 ;;C46.52
 ;;9002226.02101,"2107,C46.50 ",.03)
 ;;30
 ;;9002226.02101,"2107,C46.7 ",.01)
 ;;C46.7
 ;;9002226.02101,"2107,C46.7 ",.02)
 ;;C46.7
 ;;9002226.02101,"2107,C46.7 ",.03)
 ;;30
 ;;9002226.02101,"2107,C46.9 ",.01)
 ;;C46.9
 ;;9002226.02101,"2107,C46.9 ",.02)
 ;;C46.9
 ;;9002226.02101,"2107,C46.9 ",.03)
 ;;30
 ;;9002226.02101,"2107,C47.0 ",.01)
 ;;C47.0
 ;;9002226.02101,"2107,C47.0 ",.02)
 ;;C47.0
 ;;9002226.02101,"2107,C47.0 ",.03)
 ;;30
 ;;9002226.02101,"2107,C47.10 ",.01)
 ;;C47.10
 ;;9002226.02101,"2107,C47.10 ",.02)
 ;;C47.12
 ;;9002226.02101,"2107,C47.10 ",.03)
 ;;30
 ;;9002226.02101,"2107,C47.20 ",.01)
 ;;C47.20
 ;;9002226.02101,"2107,C47.20 ",.02)
 ;;C47.9
 ;;9002226.02101,"2107,C47.20 ",.03)
 ;;30
 ;;9002226.02101,"2107,C48.0 ",.01)
 ;;C48.0
 ;;9002226.02101,"2107,C48.0 ",.02)
 ;;C48.8
 ;;9002226.02101,"2107,C48.0 ",.03)
 ;;30
 ;;9002226.02101,"2107,C49.0 ",.01)
 ;;C49.0
 ;;9002226.02101,"2107,C49.0 ",.02)
 ;;C49.0
 ;;9002226.02101,"2107,C49.0 ",.03)
 ;;30
 ;;9002226.02101,"2107,C49.10 ",.01)
 ;;C49.10
 ;;9002226.02101,"2107,C49.10 ",.02)
 ;;C49.12
 ;;9002226.02101,"2107,C49.10 ",.03)
 ;;30
 ;;9002226.02101,"2107,C49.20 ",.01)
 ;;C49.20
 ;;9002226.02101,"2107,C49.20 ",.02)
 ;;C49.9
 ;;9002226.02101,"2107,C49.20 ",.03)
 ;;30
 ;;9002226.02101,"2107,C4A.0 ",.01)
 ;;C4A.0
 ;;9002226.02101,"2107,C4A.0 ",.02)
 ;;C4A.0
 ;;9002226.02101,"2107,C4A.0 ",.03)
 ;;30
 ;;9002226.02101,"2107,C4A.10 ",.01)
 ;;C4A.10
 ;;9002226.02101,"2107,C4A.10 ",.02)
 ;;C4A.12
 ;;9002226.02101,"2107,C4A.10 ",.03)
 ;;30
 ;;9002226.02101,"2107,C4A.20 ",.01)
 ;;C4A.20
 ;;9002226.02101,"2107,C4A.20 ",.02)
 ;;C4A.22
 ;;9002226.02101,"2107,C4A.20 ",.03)
 ;;30
 ;;9002226.02101,"2107,C4A.30 ",.01)
 ;;C4A.30
 ;;9002226.02101,"2107,C4A.30 ",.02)
 ;;C4A.4
 ;;9002226.02101,"2107,C4A.30 ",.03)
 ;;30
 ;;9002226.02101,"2107,C4A.51 ",.01)
 ;;C4A.51
 ;;9002226.02101,"2107,C4A.51 ",.02)
 ;;C4A.59
 ;;9002226.02101,"2107,C4A.51 ",.03)
 ;;30
 ;;9002226.02101,"2107,C4A.60 ",.01)
 ;;C4A.60
 ;;9002226.02101,"2107,C4A.60 ",.02)
 ;;C4A.62
 ;;9002226.02101,"2107,C4A.60 ",.03)
 ;;30
 ;;9002226.02101,"2107,C4A.70 ",.01)
 ;;C4A.70
 ;;9002226.02101,"2107,C4A.70 ",.02)
 ;;C4A.9
 ;;9002226.02101,"2107,C4A.70 ",.03)
 ;;30
 ;;9002226.02101,"2107,C50.011 ",.01)
 ;;C50.011
 ;;9002226.02101,"2107,C50.011 ",.02)
 ;;C50.019
 ;;9002226.02101,"2107,C50.011 ",.03)
 ;;30
 ;;9002226.02101,"2107,C50.021 ",.01)
 ;;C50.021
 ;;9002226.02101,"2107,C50.021 ",.02)
 ;;C50.029
 ;;9002226.02101,"2107,C50.021 ",.03)
 ;;30
 ;;9002226.02101,"2107,C50.111 ",.01)
 ;;C50.111
 ;;9002226.02101,"2107,C50.111 ",.02)
 ;;C50.119
 ;;9002226.02101,"2107,C50.111 ",.03)
 ;;30
 ;;9002226.02101,"2107,C50.121 ",.01)
 ;;C50.121
 ;;9002226.02101,"2107,C50.121 ",.02)
 ;;C50.129
 ;;9002226.02101,"2107,C50.121 ",.03)
 ;;30
 ;;9002226.02101,"2107,C50.211 ",.01)
 ;;C50.211
 ;;9002226.02101,"2107,C50.211 ",.02)
 ;;C50.219
 ;;9002226.02101,"2107,C50.211 ",.03)
 ;;30
 ;;9002226.02101,"2107,C50.221 ",.01)
 ;;C50.221
 ;;9002226.02101,"2107,C50.221 ",.02)
 ;;C50.229
 ;;9002226.02101,"2107,C50.221 ",.03)
 ;;30
 ;;9002226.02101,"2107,C50.311 ",.01)
 ;;C50.311
 ;;9002226.02101,"2107,C50.311 ",.02)
 ;;C50.319
 ;;9002226.02101,"2107,C50.311 ",.03)
 ;;30
 ;;9002226.02101,"2107,C50.321 ",.01)
 ;;C50.321
 ;;9002226.02101,"2107,C50.321 ",.02)
 ;;C50.329
 ;;9002226.02101,"2107,C50.321 ",.03)
 ;;30
 ;;9002226.02101,"2107,C50.411 ",.01)
 ;;C50.411
 ;;9002226.02101,"2107,C50.411 ",.02)
 ;;C50.419
 ;;9002226.02101,"2107,C50.411 ",.03)
 ;;30
 ;;9002226.02101,"2107,C50.421 ",.01)
 ;;C50.421
 ;;9002226.02101,"2107,C50.421 ",.02)
 ;;C50.429
 ;;9002226.02101,"2107,C50.421 ",.03)
 ;;30
 ;;9002226.02101,"2107,C50.511 ",.01)
 ;;C50.511
 ;;9002226.02101,"2107,C50.511 ",.02)
 ;;C50.519
 ;;9002226.02101,"2107,C50.511 ",.03)
 ;;30
 ;;9002226.02101,"2107,C50.521 ",.01)
 ;;C50.521
 ;;9002226.02101,"2107,C50.521 ",.02)
 ;;C50.529
 ;;9002226.02101,"2107,C50.521 ",.03)
 ;;30
 ;;9002226.02101,"2107,C50.611 ",.01)
 ;;C50.611
 ;;9002226.02101,"2107,C50.611 ",.02)
 ;;C50.619
 ;;9002226.02101,"2107,C50.611 ",.03)
 ;;30
 ;;9002226.02101,"2107,C50.621 ",.01)
 ;;C50.621
 ;;9002226.02101,"2107,C50.621 ",.02)
 ;;C50.629
 ;;9002226.02101,"2107,C50.621 ",.03)
 ;;30
 ;;9002226.02101,"2107,C50.811 ",.01)
 ;;C50.811
 ;;9002226.02101,"2107,C50.811 ",.02)
 ;;C50.819
 ;;9002226.02101,"2107,C50.811 ",.03)
 ;;30
 ;;9002226.02101,"2107,C50.821 ",.01)
 ;;C50.821
 ;;9002226.02101,"2107,C50.821 ",.02)
 ;;C50.829
 ;;9002226.02101,"2107,C50.821 ",.03)
 ;;30
 ;;9002226.02101,"2107,C50.911 ",.01)
 ;;C50.911
 ;;9002226.02101,"2107,C50.911 ",.02)
 ;;C50.919
 ;;9002226.02101,"2107,C50.911 ",.03)
 ;;30
 ;;9002226.02101,"2107,C50.921 ",.01)
 ;;C50.921
 ;;9002226.02101,"2107,C50.921 ",.02)
 ;;C50.929
 ;;9002226.02101,"2107,C50.921 ",.03)
 ;;30
 ;;9002226.02101,"2107,C51.0 ",.01)
 ;;C51.0
 ;;9002226.02101,"2107,C51.0 ",.02)
 ;;C51.9
 ;;9002226.02101,"2107,C51.0 ",.03)
 ;;30
 ;;9002226.02101,"2107,C52. ",.01)
 ;;C52.
 ;;9002226.02101,"2107,C52. ",.02)
 ;;C52.
 ;;9002226.02101,"2107,C52. ",.03)
 ;;30
 ;;9002226.02101,"2107,C53.0 ",.01)
 ;;C53.0
 ;;9002226.02101,"2107,C53.0 ",.02)
 ;;C53.9
 ;;9002226.02101,"2107,C53.0 ",.03)
 ;;30
 ;;9002226.02101,"2107,C54.0 ",.01)
 ;;C54.0
 ;;9002226.02101,"2107,C54.0 ",.02)
 ;;C54.9
 ;;9002226.02101,"2107,C54.0 ",.03)
 ;;30
 ;;9002226.02101,"2107,C55. ",.01)
 ;;C55.
 ;;9002226.02101,"2107,C55. ",.02)
 ;;C55.
 ;;9002226.02101,"2107,C55. ",.03)
 ;;30
 ;;9002226.02101,"2107,C56.1 ",.01)
 ;;C56.1
 ;;9002226.02101,"2107,C56.1 ",.02)
 ;;C56.9
 ;;9002226.02101,"2107,C56.1 ",.03)
 ;;30
 ;;9002226.02101,"2107,C57.00 ",.01)
 ;;C57.00
 ;;9002226.02101,"2107,C57.00 ",.02)
 ;;C57.02
 ;;9002226.02101,"2107,C57.00 ",.03)
 ;;30
 ;;9002226.02101,"2107,C57.10 ",.01)
 ;;C57.10
 ;;9002226.02101,"2107,C57.10 ",.02)
 ;;C57.12
 ;;9002226.02101,"2107,C57.10 ",.03)
 ;;30
 ;;9002226.02101,"2107,C57.20 ",.01)
 ;;C57.20
 ;;9002226.02101,"2107,C57.20 ",.02)
 ;;C57.9
 ;;9002226.02101,"2107,C57.20 ",.03)
 ;;30
 ;;9002226.02101,"2107,C58. ",.01)
 ;;C58.
 ;;9002226.02101,"2107,C58. ",.02)
 ;;C58.
 ;;9002226.02101,"2107,C58. ",.03)
 ;;30
 ;;9002226.02101,"2107,C60.0 ",.01)
 ;;C60.0
 ;;9002226.02101,"2107,C60.0 ",.02)
 ;;C60.9
 ;;9002226.02101,"2107,C60.0 ",.03)
 ;;30
 ;;9002226.02101,"2107,C62. ",.01)
 ;;C62.
 ;;9002226.02101,"2107,C62. ",.02)
 ;;C62.
 ;;9002226.02101,"2107,C62. ",.03)
 ;;30
 ;;9002226.02101,"2107,C62.00 ",.01)
 ;;C62.00
 ;;9002226.02101,"2107,C62.00 ",.02)
 ;;C62.02
 ;;9002226.02101,"2107,C62.00 ",.03)
 ;;30
 ;;9002226.02101,"2107,C62.10 ",.01)
 ;;C62.10
 ;;9002226.02101,"2107,C62.10 ",.02)
 ;;C62.12
 ;;9002226.02101,"2107,C62.10 ",.03)
 ;;30
 ;;9002226.02101,"2107,C62.90 ",.01)
 ;;C62.90
 ;;9002226.02101,"2107,C62.90 ",.02)
 ;;C62.92
 ;;9002226.02101,"2107,C62.90 ",.03)
 ;;30
 ;;9002226.02101,"2107,C63.00 ",.01)
 ;;C63.00
 ;;9002226.02101,"2107,C63.00 ",.02)
 ;;C63.02
 ;;9002226.02101,"2107,C63.00 ",.03)
 ;;30
 ;;9002226.02101,"2107,C63.10 ",.01)
 ;;C63.10