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

ATXD3T4.m

Go to the documentation of this file.
ATXD3T4 ;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.819 ",.02)
 ;;M05.819
 ;;9002226.02101,"548,M05.819 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.821 ",.01)
 ;;M05.821
 ;;9002226.02101,"548,M05.821 ",.02)
 ;;M05.821
 ;;9002226.02101,"548,M05.821 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.822 ",.01)
 ;;M05.822
 ;;9002226.02101,"548,M05.822 ",.02)
 ;;M05.822
 ;;9002226.02101,"548,M05.822 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.829 ",.01)
 ;;M05.829
 ;;9002226.02101,"548,M05.829 ",.02)
 ;;M05.829
 ;;9002226.02101,"548,M05.829 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.831 ",.01)
 ;;M05.831
 ;;9002226.02101,"548,M05.831 ",.02)
 ;;M05.831
 ;;9002226.02101,"548,M05.831 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.832 ",.01)
 ;;M05.832
 ;;9002226.02101,"548,M05.832 ",.02)
 ;;M05.832
 ;;9002226.02101,"548,M05.832 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.839 ",.01)
 ;;M05.839
 ;;9002226.02101,"548,M05.839 ",.02)
 ;;M05.839
 ;;9002226.02101,"548,M05.839 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.841 ",.01)
 ;;M05.841
 ;;9002226.02101,"548,M05.841 ",.02)
 ;;M05.841
 ;;9002226.02101,"548,M05.841 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.842 ",.01)
 ;;M05.842
 ;;9002226.02101,"548,M05.842 ",.02)
 ;;M05.842
 ;;9002226.02101,"548,M05.842 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.849 ",.01)
 ;;M05.849
 ;;9002226.02101,"548,M05.849 ",.02)
 ;;M05.849
 ;;9002226.02101,"548,M05.849 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.851 ",.01)
 ;;M05.851
 ;;9002226.02101,"548,M05.851 ",.02)
 ;;M05.851
 ;;9002226.02101,"548,M05.851 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.852 ",.01)
 ;;M05.852
 ;;9002226.02101,"548,M05.852 ",.02)
 ;;M05.852
 ;;9002226.02101,"548,M05.852 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.859 ",.01)
 ;;M05.859
 ;;9002226.02101,"548,M05.859 ",.02)
 ;;M05.859
 ;;9002226.02101,"548,M05.859 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.861 ",.01)
 ;;M05.861
 ;;9002226.02101,"548,M05.861 ",.02)
 ;;M05.861
 ;;9002226.02101,"548,M05.861 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.862 ",.01)
 ;;M05.862
 ;;9002226.02101,"548,M05.862 ",.02)
 ;;M05.862
 ;;9002226.02101,"548,M05.862 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.869 ",.01)
 ;;M05.869
 ;;9002226.02101,"548,M05.869 ",.02)
 ;;M05.869
 ;;9002226.02101,"548,M05.869 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.871 ",.01)
 ;;M05.871
 ;;9002226.02101,"548,M05.871 ",.02)
 ;;M05.871
 ;;9002226.02101,"548,M05.871 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.872 ",.01)
 ;;M05.872
 ;;9002226.02101,"548,M05.872 ",.02)
 ;;M05.872
 ;;9002226.02101,"548,M05.872 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.879 ",.01)
 ;;M05.879
 ;;9002226.02101,"548,M05.879 ",.02)
 ;;M05.879
 ;;9002226.02101,"548,M05.879 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.89 ",.01)
 ;;M05.89
 ;;9002226.02101,"548,M05.89 ",.02)
 ;;M05.89
 ;;9002226.02101,"548,M05.89 ",.03)
 ;;30
 ;;9002226.02101,"548,M05.9 ",.01)
 ;;M05.9
 ;;9002226.02101,"548,M05.9 ",.02)
 ;;M05.9
 ;;9002226.02101,"548,M05.9 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.00 ",.01)
 ;;M06.00
 ;;9002226.02101,"548,M06.00 ",.02)
 ;;M06.00
 ;;9002226.02101,"548,M06.00 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.011 ",.01)
 ;;M06.011
 ;;9002226.02101,"548,M06.011 ",.02)
 ;;M06.011
 ;;9002226.02101,"548,M06.011 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.012 ",.01)
 ;;M06.012
 ;;9002226.02101,"548,M06.012 ",.02)
 ;;M06.012
 ;;9002226.02101,"548,M06.012 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.019 ",.01)
 ;;M06.019
 ;;9002226.02101,"548,M06.019 ",.02)
 ;;M06.019
 ;;9002226.02101,"548,M06.019 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.021 ",.01)
 ;;M06.021
 ;;9002226.02101,"548,M06.021 ",.02)
 ;;M06.021
 ;;9002226.02101,"548,M06.021 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.022 ",.01)
 ;;M06.022
 ;;9002226.02101,"548,M06.022 ",.02)
 ;;M06.022
 ;;9002226.02101,"548,M06.022 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.029 ",.01)
 ;;M06.029
 ;;9002226.02101,"548,M06.029 ",.02)
 ;;M06.029
 ;;9002226.02101,"548,M06.029 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.031 ",.01)
 ;;M06.031
 ;;9002226.02101,"548,M06.031 ",.02)
 ;;M06.031
 ;;9002226.02101,"548,M06.031 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.032 ",.01)
 ;;M06.032
 ;;9002226.02101,"548,M06.032 ",.02)
 ;;M06.032
 ;;9002226.02101,"548,M06.032 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.039 ",.01)
 ;;M06.039
 ;;9002226.02101,"548,M06.039 ",.02)
 ;;M06.039
 ;;9002226.02101,"548,M06.039 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.041 ",.01)
 ;;M06.041
 ;;9002226.02101,"548,M06.041 ",.02)
 ;;M06.041
 ;;9002226.02101,"548,M06.041 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.042 ",.01)
 ;;M06.042
 ;;9002226.02101,"548,M06.042 ",.02)
 ;;M06.042
 ;;9002226.02101,"548,M06.042 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.049 ",.01)
 ;;M06.049
 ;;9002226.02101,"548,M06.049 ",.02)
 ;;M06.049
 ;;9002226.02101,"548,M06.049 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.051 ",.01)
 ;;M06.051
 ;;9002226.02101,"548,M06.051 ",.02)
 ;;M06.051
 ;;9002226.02101,"548,M06.051 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.052 ",.01)
 ;;M06.052
 ;;9002226.02101,"548,M06.052 ",.02)
 ;;M06.052
 ;;9002226.02101,"548,M06.052 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.059 ",.01)
 ;;M06.059
 ;;9002226.02101,"548,M06.059 ",.02)
 ;;M06.059
 ;;9002226.02101,"548,M06.059 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.061 ",.01)
 ;;M06.061
 ;;9002226.02101,"548,M06.061 ",.02)
 ;;M06.061
 ;;9002226.02101,"548,M06.061 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.062 ",.01)
 ;;M06.062
 ;;9002226.02101,"548,M06.062 ",.02)
 ;;M06.062
 ;;9002226.02101,"548,M06.062 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.069 ",.01)
 ;;M06.069
 ;;9002226.02101,"548,M06.069 ",.02)
 ;;M06.069
 ;;9002226.02101,"548,M06.069 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.071 ",.01)
 ;;M06.071
 ;;9002226.02101,"548,M06.071 ",.02)
 ;;M06.071
 ;;9002226.02101,"548,M06.071 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.072 ",.01)
 ;;M06.072
 ;;9002226.02101,"548,M06.072 ",.02)
 ;;M06.072
 ;;9002226.02101,"548,M06.072 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.079 ",.01)
 ;;M06.079
 ;;9002226.02101,"548,M06.079 ",.02)
 ;;M06.079
 ;;9002226.02101,"548,M06.079 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.08 ",.01)
 ;;M06.08
 ;;9002226.02101,"548,M06.08 ",.02)
 ;;M06.08
 ;;9002226.02101,"548,M06.08 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.09 ",.01)
 ;;M06.09
 ;;9002226.02101,"548,M06.09 ",.02)
 ;;M06.09
 ;;9002226.02101,"548,M06.09 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.1 ",.01)
 ;;M06.1
 ;;9002226.02101,"548,M06.1 ",.02)
 ;;M06.1
 ;;9002226.02101,"548,M06.1 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.20 ",.01)
 ;;M06.20
 ;;9002226.02101,"548,M06.20 ",.02)
 ;;M06.20
 ;;9002226.02101,"548,M06.20 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.211 ",.01)
 ;;M06.211
 ;;9002226.02101,"548,M06.211 ",.02)
 ;;M06.211
 ;;9002226.02101,"548,M06.211 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.212 ",.01)
 ;;M06.212
 ;;9002226.02101,"548,M06.212 ",.02)
 ;;M06.212
 ;;9002226.02101,"548,M06.212 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.219 ",.01)
 ;;M06.219
 ;;9002226.02101,"548,M06.219 ",.02)
 ;;M06.219
 ;;9002226.02101,"548,M06.219 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.221 ",.01)
 ;;M06.221
 ;;9002226.02101,"548,M06.221 ",.02)
 ;;M06.221
 ;;9002226.02101,"548,M06.221 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.222 ",.01)
 ;;M06.222
 ;;9002226.02101,"548,M06.222 ",.02)
 ;;M06.222
 ;;9002226.02101,"548,M06.222 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.229 ",.01)
 ;;M06.229
 ;;9002226.02101,"548,M06.229 ",.02)
 ;;M06.229
 ;;9002226.02101,"548,M06.229 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.231 ",.01)
 ;;M06.231
 ;;9002226.02101,"548,M06.231 ",.02)
 ;;M06.231
 ;;9002226.02101,"548,M06.231 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.232 ",.01)
 ;;M06.232
 ;;9002226.02101,"548,M06.232 ",.02)
 ;;M06.232
 ;;9002226.02101,"548,M06.232 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.239 ",.01)
 ;;M06.239
 ;;9002226.02101,"548,M06.239 ",.02)
 ;;M06.239
 ;;9002226.02101,"548,M06.239 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.241 ",.01)
 ;;M06.241
 ;;9002226.02101,"548,M06.241 ",.02)
 ;;M06.241
 ;;9002226.02101,"548,M06.241 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.242 ",.01)
 ;;M06.242
 ;;9002226.02101,"548,M06.242 ",.02)
 ;;M06.242
 ;;9002226.02101,"548,M06.242 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.249 ",.01)
 ;;M06.249
 ;;9002226.02101,"548,M06.249 ",.02)
 ;;M06.249
 ;;9002226.02101,"548,M06.249 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.251 ",.01)
 ;;M06.251
 ;;9002226.02101,"548,M06.251 ",.02)
 ;;M06.251
 ;;9002226.02101,"548,M06.251 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.252 ",.01)
 ;;M06.252
 ;;9002226.02101,"548,M06.252 ",.02)
 ;;M06.252
 ;;9002226.02101,"548,M06.252 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.259 ",.01)
 ;;M06.259
 ;;9002226.02101,"548,M06.259 ",.02)
 ;;M06.259
 ;;9002226.02101,"548,M06.259 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.261 ",.01)
 ;;M06.261
 ;;9002226.02101,"548,M06.261 ",.02)
 ;;M06.261
 ;;9002226.02101,"548,M06.261 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.262 ",.01)
 ;;M06.262
 ;;9002226.02101,"548,M06.262 ",.02)
 ;;M06.262
 ;;9002226.02101,"548,M06.262 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.269 ",.01)
 ;;M06.269
 ;;9002226.02101,"548,M06.269 ",.02)
 ;;M06.269
 ;;9002226.02101,"548,M06.269 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.271 ",.01)
 ;;M06.271
 ;;9002226.02101,"548,M06.271 ",.02)
 ;;M06.271
 ;;9002226.02101,"548,M06.271 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.272 ",.01)
 ;;M06.272
 ;;9002226.02101,"548,M06.272 ",.02)
 ;;M06.272
 ;;9002226.02101,"548,M06.272 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.279 ",.01)
 ;;M06.279
 ;;9002226.02101,"548,M06.279 ",.02)
 ;;M06.279
 ;;9002226.02101,"548,M06.279 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.28 ",.01)
 ;;M06.28
 ;;9002226.02101,"548,M06.28 ",.02)
 ;;M06.28
 ;;9002226.02101,"548,M06.28 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.29 ",.01)
 ;;M06.29
 ;;9002226.02101,"548,M06.29 ",.02)
 ;;M06.29
 ;;9002226.02101,"548,M06.29 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.30 ",.01)
 ;;M06.30
 ;;9002226.02101,"548,M06.30 ",.02)
 ;;M06.30
 ;;9002226.02101,"548,M06.30 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.311 ",.01)
 ;;M06.311
 ;;9002226.02101,"548,M06.311 ",.02)
 ;;M06.311
 ;;9002226.02101,"548,M06.311 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.312 ",.01)
 ;;M06.312
 ;;9002226.02101,"548,M06.312 ",.02)
 ;;M06.312
 ;;9002226.02101,"548,M06.312 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.319 ",.01)
 ;;M06.319
 ;;9002226.02101,"548,M06.319 ",.02)
 ;;M06.319
 ;;9002226.02101,"548,M06.319 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.321 ",.01)
 ;;M06.321
 ;;9002226.02101,"548,M06.321 ",.02)
 ;;M06.321
 ;;9002226.02101,"548,M06.321 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.322 ",.01)
 ;;M06.322
 ;;9002226.02101,"548,M06.322 ",.02)
 ;;M06.322
 ;;9002226.02101,"548,M06.322 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.329 ",.01)
 ;;M06.329
 ;;9002226.02101,"548,M06.329 ",.02)
 ;;M06.329
 ;;9002226.02101,"548,M06.329 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.331 ",.01)
 ;;M06.331
 ;;9002226.02101,"548,M06.331 ",.02)
 ;;M06.331
 ;;9002226.02101,"548,M06.331 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.332 ",.01)
 ;;M06.332
 ;;9002226.02101,"548,M06.332 ",.02)
 ;;M06.332
 ;;9002226.02101,"548,M06.332 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.339 ",.01)
 ;;M06.339
 ;;9002226.02101,"548,M06.339 ",.02)
 ;;M06.339
 ;;9002226.02101,"548,M06.339 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.341 ",.01)
 ;;M06.341
 ;;9002226.02101,"548,M06.341 ",.02)
 ;;M06.341
 ;;9002226.02101,"548,M06.341 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.342 ",.01)
 ;;M06.342
 ;;9002226.02101,"548,M06.342 ",.02)
 ;;M06.342
 ;;9002226.02101,"548,M06.342 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.349 ",.01)
 ;;M06.349
 ;;9002226.02101,"548,M06.349 ",.02)
 ;;M06.349
 ;;9002226.02101,"548,M06.349 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.351 ",.01)
 ;;M06.351
 ;;9002226.02101,"548,M06.351 ",.02)
 ;;M06.351
 ;;9002226.02101,"548,M06.351 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.352 ",.01)
 ;;M06.352
 ;;9002226.02101,"548,M06.352 ",.02)
 ;;M06.352
 ;;9002226.02101,"548,M06.352 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.359 ",.01)
 ;;M06.359
 ;;9002226.02101,"548,M06.359 ",.02)
 ;;M06.359
 ;;9002226.02101,"548,M06.359 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.361 ",.01)
 ;;M06.361
 ;;9002226.02101,"548,M06.361 ",.02)
 ;;M06.361
 ;;9002226.02101,"548,M06.361 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.362 ",.01)
 ;;M06.362
 ;;9002226.02101,"548,M06.362 ",.02)
 ;;M06.362
 ;;9002226.02101,"548,M06.362 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.369 ",.01)
 ;;M06.369
 ;;9002226.02101,"548,M06.369 ",.02)
 ;;M06.369
 ;;9002226.02101,"548,M06.369 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.371 ",.01)
 ;;M06.371
 ;;9002226.02101,"548,M06.371 ",.02)
 ;;M06.371
 ;;9002226.02101,"548,M06.371 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.372 ",.01)
 ;;M06.372
 ;;9002226.02101,"548,M06.372 ",.02)
 ;;M06.372
 ;;9002226.02101,"548,M06.372 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.379 ",.01)
 ;;M06.379
 ;;9002226.02101,"548,M06.379 ",.02)
 ;;M06.379
 ;;9002226.02101,"548,M06.379 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.38 ",.01)
 ;;M06.38
 ;;9002226.02101,"548,M06.38 ",.02)
 ;;M06.38
 ;;9002226.02101,"548,M06.38 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.39 ",.01)
 ;;M06.39
 ;;9002226.02101,"548,M06.39 ",.02)
 ;;M06.39
 ;;9002226.02101,"548,M06.39 ",.03)
 ;;30
 ;;9002226.02101,"548,M06.4 ",.01)
 ;;M06.4