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

ATXD3T2.m

Go to the documentation of this file.
ATXD3T2 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON OCT 28, 2013;
 ;;5.1;TAXONOMY;**11**;FEB 04, 1997;Build 48
 ;
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,"548,M05.00 ",.01)
 ;;M05.00
 ;;9002226.02101,"548,M05.00 ",.02)
 ;;M05.00
 ;;9002226.02101,"548,M05.00 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.011 ",.01)
 ;;M05.011
 ;;9002226.02101,"548,M05.011 ",.02)
 ;;M05.011
 ;;9002226.02101,"548,M05.011 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.012 ",.01)
 ;;M05.012
 ;;9002226.02101,"548,M05.012 ",.02)
 ;;M05.012
 ;;9002226.02101,"548,M05.012 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.019 ",.01)
 ;;M05.019
 ;;9002226.02101,"548,M05.019 ",.02)
 ;;M05.019
 ;;9002226.02101,"548,M05.019 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.021 ",.01)
 ;;M05.021
 ;;9002226.02101,"548,M05.021 ",.02)
 ;;M05.021
 ;;9002226.02101,"548,M05.021 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.022 ",.01)
 ;;M05.022
 ;;9002226.02101,"548,M05.022 ",.02)
 ;;M05.022
 ;;9002226.02101,"548,M05.022 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.029 ",.01)
 ;;M05.029
 ;;9002226.02101,"548,M05.029 ",.02)
 ;;M05.029
 ;;9002226.02101,"548,M05.029 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.031 ",.01)
 ;;M05.031
 ;;9002226.02101,"548,M05.031 ",.02)
 ;;M05.031
 ;;9002226.02101,"548,M05.031 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.032 ",.01)
 ;;M05.032
 ;;9002226.02101,"548,M05.032 ",.02)
 ;;M05.032
 ;;9002226.02101,"548,M05.032 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.039 ",.01)
 ;;M05.039
 ;;9002226.02101,"548,M05.039 ",.02)
 ;;M05.039
 ;;9002226.02101,"548,M05.039 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.041 ",.01)
 ;;M05.041
 ;;9002226.02101,"548,M05.041 ",.02)
 ;;M05.041
 ;;9002226.02101,"548,M05.041 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.042 ",.01)
 ;;M05.042
 ;;9002226.02101,"548,M05.042 ",.02)
 ;;M05.042
 ;;9002226.02101,"548,M05.042 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.049 ",.01)
 ;;M05.049
 ;;9002226.02101,"548,M05.049 ",.02)
 ;;M05.049
 ;;9002226.02101,"548,M05.049 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.051 ",.01)
 ;;M05.051
 ;;9002226.02101,"548,M05.051 ",.02)
 ;;M05.051
 ;;9002226.02101,"548,M05.051 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.052 ",.01)
 ;;M05.052
 ;;9002226.02101,"548,M05.052 ",.02)
 ;;M05.052
 ;;9002226.02101,"548,M05.052 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.059 ",.01)
 ;;M05.059
 ;;9002226.02101,"548,M05.059 ",.02)
 ;;M05.059
 ;;9002226.02101,"548,M05.059 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.061 ",.01)
 ;;M05.061
 ;;9002226.02101,"548,M05.061 ",.02)
 ;;M05.061
 ;;9002226.02101,"548,M05.061 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.062 ",.01)
 ;;M05.062
 ;;9002226.02101,"548,M05.062 ",.02)
 ;;M05.062
 ;;9002226.02101,"548,M05.062 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.069 ",.01)
 ;;M05.069
 ;;9002226.02101,"548,M05.069 ",.02)
 ;;M05.069
 ;;9002226.02101,"548,M05.069 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.071 ",.01)
 ;;M05.071
 ;;9002226.02101,"548,M05.071 ",.02)
 ;;M05.071
 ;;9002226.02101,"548,M05.071 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.072 ",.01)
 ;;M05.072
 ;;9002226.02101,"548,M05.072 ",.02)
 ;;M05.072
 ;;9002226.02101,"548,M05.072 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.079 ",.01)
 ;;M05.079
 ;;9002226.02101,"548,M05.079 ",.02)
 ;;M05.079
 ;;9002226.02101,"548,M05.079 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.09 ",.01)
 ;;M05.09
 ;;9002226.02101,"548,M05.09 ",.02)
 ;;M05.09
 ;;9002226.02101,"548,M05.09 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.10 ",.01)
 ;;M05.10
 ;;9002226.02101,"548,M05.10 ",.02)
 ;;M05.10
 ;;9002226.02101,"548,M05.10 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.111 ",.01)
 ;;M05.111
 ;;9002226.02101,"548,M05.111 ",.02)
 ;;M05.111
 ;;9002226.02101,"548,M05.111 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.112 ",.01)
 ;;M05.112
 ;;9002226.02101,"548,M05.112 ",.02)
 ;;M05.112
 ;;9002226.02101,"548,M05.112 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.119 ",.01)
 ;;M05.119
 ;;9002226.02101,"548,M05.119 ",.02)
 ;;M05.119
 ;;9002226.02101,"548,M05.119 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.121 ",.01)
 ;;M05.121
 ;;9002226.02101,"548,M05.121 ",.02)
 ;;M05.121
 ;;9002226.02101,"548,M05.121 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.122 ",.01)
 ;;M05.122
 ;;9002226.02101,"548,M05.122 ",.02)
 ;;M05.122
 ;;9002226.02101,"548,M05.122 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.129 ",.01)
 ;;M05.129
 ;;9002226.02101,"548,M05.129 ",.02)
 ;;M05.129
 ;;9002226.02101,"548,M05.129 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.131 ",.01)
 ;;M05.131
 ;;9002226.02101,"548,M05.131 ",.02)
 ;;M05.131
 ;;9002226.02101,"548,M05.131 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.132 ",.01)
 ;;M05.132
 ;;9002226.02101,"548,M05.132 ",.02)
 ;;M05.132
 ;;9002226.02101,"548,M05.132 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.139 ",.01)
 ;;M05.139
 ;;9002226.02101,"548,M05.139 ",.02)
 ;;M05.139
 ;;9002226.02101,"548,M05.139 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.141 ",.01)
 ;;M05.141
 ;;9002226.02101,"548,M05.141 ",.02)
 ;;M05.141
 ;;9002226.02101,"548,M05.141 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.142 ",.01)
 ;;M05.142
 ;;9002226.02101,"548,M05.142 ",.02)
 ;;M05.142
 ;;9002226.02101,"548,M05.142 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.149 ",.01)
 ;;M05.149
 ;;9002226.02101,"548,M05.149 ",.02)
 ;;M05.149
 ;;9002226.02101,"548,M05.149 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.151 ",.01)
 ;;M05.151
 ;;9002226.02101,"548,M05.151 ",.02)
 ;;M05.151
 ;;9002226.02101,"548,M05.151 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.152 ",.01)
 ;;M05.152
 ;;9002226.02101,"548,M05.152 ",.02)
 ;;M05.152
 ;;9002226.02101,"548,M05.152 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.159 ",.01)
 ;;M05.159
 ;;9002226.02101,"548,M05.159 ",.02)
 ;;M05.159
 ;;9002226.02101,"548,M05.159 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.161 ",.01)
 ;;M05.161
 ;;9002226.02101,"548,M05.161 ",.02)
 ;;M05.161
 ;;9002226.02101,"548,M05.161 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.162 ",.01)
 ;;M05.162
 ;;9002226.02101,"548,M05.162 ",.02)
 ;;M05.162
 ;;9002226.02101,"548,M05.162 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.169 ",.01)
 ;;M05.169
 ;;9002226.02101,"548,M05.169 ",.02)
 ;;M05.169
 ;;9002226.02101,"548,M05.169 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.171 ",.01)
 ;;M05.171
 ;;9002226.02101,"548,M05.171 ",.02)
 ;;M05.171
 ;;9002226.02101,"548,M05.171 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.172 ",.01)
 ;;M05.172
 ;;9002226.02101,"548,M05.172 ",.02)
 ;;M05.172
 ;;9002226.02101,"548,M05.172 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.179 ",.01)
 ;;M05.179
 ;;9002226.02101,"548,M05.179 ",.02)
 ;;M05.179
 ;;9002226.02101,"548,M05.179 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.19 ",.01)
 ;;M05.19
 ;;9002226.02101,"548,M05.19 ",.02)
 ;;M05.19
 ;;9002226.02101,"548,M05.19 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.20 ",.01)
 ;;M05.20
 ;;9002226.02101,"548,M05.20 ",.02)
 ;;M05.20
 ;;9002226.02101,"548,M05.20 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.211 ",.01)
 ;;M05.211
 ;;9002226.02101,"548,M05.211 ",.02)
 ;;M05.211
 ;;9002226.02101,"548,M05.211 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.212 ",.01)
 ;;M05.212
 ;;9002226.02101,"548,M05.212 ",.02)
 ;;M05.212
 ;;9002226.02101,"548,M05.212 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.219 ",.01)
 ;;M05.219
 ;;9002226.02101,"548,M05.219 ",.02)
 ;;M05.219
 ;;9002226.02101,"548,M05.219 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.221 ",.01)
 ;;M05.221
 ;;9002226.02101,"548,M05.221 ",.02)
 ;;M05.221
 ;;9002226.02101,"548,M05.221 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.222 ",.01)
 ;;M05.222
 ;;9002226.02101,"548,M05.222 ",.02)
 ;;M05.222
 ;;9002226.02101,"548,M05.222 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.229 ",.01)
 ;;M05.229
 ;;9002226.02101,"548,M05.229 ",.02)
 ;;M05.229
 ;;9002226.02101,"548,M05.229 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.231 ",.01)
 ;;M05.231
 ;;9002226.02101,"548,M05.231 ",.02)
 ;;M05.231
 ;;9002226.02101,"548,M05.231 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.232 ",.01)
 ;;M05.232
 ;;9002226.02101,"548,M05.232 ",.02)
 ;;M05.232
 ;;9002226.02101,"548,M05.232 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.239 ",.01)
 ;;M05.239
 ;;9002226.02101,"548,M05.239 ",.02)
 ;;M05.239
 ;;9002226.02101,"548,M05.239 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.241 ",.01)
 ;;M05.241
 ;;9002226.02101,"548,M05.241 ",.02)
 ;;M05.241
 ;;9002226.02101,"548,M05.241 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.242 ",.01)
 ;;M05.242
 ;;9002226.02101,"548,M05.242 ",.02)
 ;;M05.242
 ;;9002226.02101,"548,M05.242 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.249 ",.01)
 ;;M05.249
 ;;9002226.02101,"548,M05.249 ",.02)
 ;;M05.249
 ;;9002226.02101,"548,M05.249 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.251 ",.01)
 ;;M05.251
 ;;9002226.02101,"548,M05.251 ",.02)
 ;;M05.251
 ;;9002226.02101,"548,M05.251 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.252 ",.01)
 ;;M05.252
 ;;9002226.02101,"548,M05.252 ",.02)
 ;;M05.252
 ;;9002226.02101,"548,M05.252 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.259 ",.01)
 ;;M05.259
 ;;9002226.02101,"548,M05.259 ",.02)
 ;;M05.259
 ;;9002226.02101,"548,M05.259 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.261 ",.01)
 ;;M05.261
 ;;9002226.02101,"548,M05.261 ",.02)
 ;;M05.261
 ;;9002226.02101,"548,M05.261 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.262 ",.01)
 ;;M05.262
 ;;9002226.02101,"548,M05.262 ",.02)
 ;;M05.262
 ;;9002226.02101,"548,M05.262 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.269 ",.01)
 ;;M05.269
 ;;9002226.02101,"548,M05.269 ",.02)
 ;;M05.269
 ;;9002226.02101,"548,M05.269 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.271 ",.01)
 ;;M05.271
 ;;9002226.02101,"548,M05.271 ",.02)
 ;;M05.271
 ;;9002226.02101,"548,M05.271 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.272 ",.01)
 ;;M05.272
 ;;9002226.02101,"548,M05.272 ",.02)
 ;;M05.272
 ;;9002226.02101,"548,M05.272 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.279 ",.01)
 ;;M05.279
 ;;9002226.02101,"548,M05.279 ",.02)
 ;;M05.279
 ;;9002226.02101,"548,M05.279 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.29 ",.01)
 ;;M05.29
 ;;9002226.02101,"548,M05.29 ",.02)
 ;;M05.29
 ;;9002226.02101,"548,M05.29 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.30 ",.01)
 ;;M05.30
 ;;9002226.02101,"548,M05.30 ",.02)
 ;;M05.30
 ;;9002226.02101,"548,M05.30 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.311 ",.01)
 ;;M05.311
 ;;9002226.02101,"548,M05.311 ",.02)
 ;;M05.311
 ;;9002226.02101,"548,M05.311 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.312 ",.01)
 ;;M05.312
 ;;9002226.02101,"548,M05.312 ",.02)
 ;;M05.312
 ;;9002226.02101,"548,M05.312 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.319 ",.01)
 ;;M05.319
 ;;9002226.02101,"548,M05.319 ",.02)
 ;;M05.319
 ;;9002226.02101,"548,M05.319 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.321 ",.01)
 ;;M05.321
 ;;9002226.02101,"548,M05.321 ",.02)
 ;;M05.321
 ;;9002226.02101,"548,M05.321 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.322 ",.01)
 ;;M05.322
 ;;9002226.02101,"548,M05.322 ",.02)
 ;;M05.322
 ;;9002226.02101,"548,M05.322 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.329 ",.01)
 ;;M05.329
 ;;9002226.02101,"548,M05.329 ",.02)
 ;;M05.329
 ;;9002226.02101,"548,M05.329 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.331 ",.01)
 ;;M05.331
 ;;9002226.02101,"548,M05.331 ",.02)
 ;;M05.331
 ;;9002226.02101,"548,M05.331 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.332 ",.01)
 ;;M05.332
 ;;9002226.02101,"548,M05.332 ",.02)
 ;;M05.332
 ;;9002226.02101,"548,M05.332 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.339 ",.01)
 ;;M05.339
 ;;9002226.02101,"548,M05.339 ",.02)
 ;;M05.339
 ;;9002226.02101,"548,M05.339 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.341 ",.01)
 ;;M05.341
 ;;9002226.02101,"548,M05.341 ",.02)
 ;;M05.341
 ;;9002226.02101,"548,M05.341 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.342 ",.01)
 ;;M05.342
 ;;9002226.02101,"548,M05.342 ",.02)
 ;;M05.342
 ;;9002226.02101,"548,M05.342 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.349 ",.01)
 ;;M05.349
 ;;9002226.02101,"548,M05.349 ",.02)
 ;;M05.349
 ;;9002226.02101,"548,M05.349 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.351 ",.01)
 ;;M05.351
 ;;9002226.02101,"548,M05.351 ",.02)
 ;;M05.351
 ;;9002226.02101,"548,M05.351 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.352 ",.01)
 ;;M05.352
 ;;9002226.02101,"548,M05.352 ",.02)
 ;;M05.352
 ;;9002226.02101,"548,M05.352 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.359 ",.01)
 ;;M05.359
 ;;9002226.02101,"548,M05.359 ",.02)
 ;;M05.359
 ;;9002226.02101,"548,M05.359 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.361 ",.01)
 ;;M05.361
 ;;9002226.02101,"548,M05.361 ",.02)
 ;;M05.361
 ;;9002226.02101,"548,M05.361 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.362 ",.01)
 ;;M05.362
 ;;9002226.02101,"548,M05.362 ",.02)
 ;;M05.362
 ;;9002226.02101,"548,M05.362 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.369 ",.01)
 ;;M05.369
 ;;9002226.02101,"548,M05.369 ",.02)
 ;;M05.369
 ;;9002226.02101,"548,M05.369 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.371 ",.01)
 ;;M05.371
 ;;9002226.02101,"548,M05.371 ",.02)
 ;;M05.371
 ;;9002226.02101,"548,M05.371 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.372 ",.01)
 ;;M05.372
 ;;9002226.02101,"548,M05.372 ",.02)
 ;;M05.372
 ;;9002226.02101,"548,M05.372 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.379 ",.01)
 ;;M05.379
 ;;9002226.02101,"548,M05.379 ",.02)
 ;;M05.379
 ;;9002226.02101,"548,M05.379 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.39 ",.01)
 ;;M05.39
 ;;9002226.02101,"548,M05.39 ",.02)
 ;;M05.39
 ;;9002226.02101,"548,M05.39 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.40 ",.01)
 ;;M05.40
 ;;9002226.02101,"548,M05.40 ",.02)
 ;;M05.40
 ;;9002226.02101,"548,M05.40 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.411 ",.01)
 ;;M05.411
 ;;9002226.02101,"548,M05.411 ",.02)
 ;;M05.411