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

ATXDCB2.m

Go to the documentation of this file.
  1. ATXDCB2 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JUN 03, 2014;
  1. ;;5.1;TAXONOMY;**11**;FEB 04, 1997;Build 48
  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,"1852,I45.0 ",.01)
  1. ;;I45.0
  1. ;;9002226.02101,"1852,I45.0 ",.02)
  1. ;;I45.0
  1. ;;9002226.02101,"1852,I45.0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I45.10 ",.01)
  1. ;;I45.10
  1. ;;9002226.02101,"1852,I45.10 ",.02)
  1. ;;I45.6
  1. ;;9002226.02101,"1852,I45.10 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I45.81 ",.01)
  1. ;;I45.81
  1. ;;9002226.02101,"1852,I45.81 ",.02)
  1. ;;I45.9
  1. ;;9002226.02101,"1852,I45.81 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I46.2 ",.01)
  1. ;;I46.2
  1. ;;9002226.02101,"1852,I46.2 ",.02)
  1. ;;I46.9
  1. ;;9002226.02101,"1852,I46.2 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I47.0 ",.01)
  1. ;;I47.0
  1. ;;9002226.02101,"1852,I47.0 ",.02)
  1. ;;I47.9
  1. ;;9002226.02101,"1852,I47.0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I48.0 ",.01)
  1. ;;I48.0
  1. ;;9002226.02101,"1852,I48.0 ",.02)
  1. ;;I48.4
  1. ;;9002226.02101,"1852,I48.0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I48.91 ",.01)
  1. ;;I48.91
  1. ;;9002226.02101,"1852,I48.91 ",.02)
  1. ;;I48.92
  1. ;;9002226.02101,"1852,I48.91 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I49.01 ",.01)
  1. ;;I49.01
  1. ;;9002226.02101,"1852,I49.01 ",.02)
  1. ;;I49.3
  1. ;;9002226.02101,"1852,I49.01 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I49.40 ",.01)
  1. ;;I49.40
  1. ;;9002226.02101,"1852,I49.40 ",.02)
  1. ;;I49.9
  1. ;;9002226.02101,"1852,I49.40 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I50.1 ",.01)
  1. ;;I50.1
  1. ;;9002226.02101,"1852,I50.1 ",.02)
  1. ;;I50.1
  1. ;;9002226.02101,"1852,I50.1 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I50.20 ",.01)
  1. ;;I50.20
  1. ;;9002226.02101,"1852,I50.20 ",.02)
  1. ;;I50.23
  1. ;;9002226.02101,"1852,I50.20 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I50.30 ",.01)
  1. ;;I50.30
  1. ;;9002226.02101,"1852,I50.30 ",.02)
  1. ;;I50.33
  1. ;;9002226.02101,"1852,I50.30 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I50.40 ",.01)
  1. ;;I50.40
  1. ;;9002226.02101,"1852,I50.40 ",.02)
  1. ;;I50.9
  1. ;;9002226.02101,"1852,I50.40 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I51.0 ",.01)
  1. ;;I51.0
  1. ;;9002226.02101,"1852,I51.0 ",.02)
  1. ;;I51.7
  1. ;;9002226.02101,"1852,I51.0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I51.81 ",.01)
  1. ;;I51.81
  1. ;;9002226.02101,"1852,I51.81 ",.02)
  1. ;;I52.
  1. ;;9002226.02101,"1852,I51.81 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I63.00 ",.01)
  1. ;;I63.00
  1. ;;9002226.02101,"1852,I63.00 ",.02)
  1. ;;I63.00
  1. ;;9002226.02101,"1852,I63.00 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I63.011 ",.01)
  1. ;;I63.011
  1. ;;9002226.02101,"1852,I63.011 ",.02)
  1. ;;I63.02
  1. ;;9002226.02101,"1852,I63.011 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I63.031 ",.01)
  1. ;;I63.031
  1. ;;9002226.02101,"1852,I63.031 ",.02)
  1. ;;I63.09
  1. ;;9002226.02101,"1852,I63.031 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I63.10 ",.01)
  1. ;;I63.10
  1. ;;9002226.02101,"1852,I63.10 ",.02)
  1. ;;I63.10
  1. ;;9002226.02101,"1852,I63.10 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I63.111 ",.01)
  1. ;;I63.111
  1. ;;9002226.02101,"1852,I63.111 ",.02)
  1. ;;I63.12
  1. ;;9002226.02101,"1852,I63.111 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I63.131 ",.01)
  1. ;;I63.131
  1. ;;9002226.02101,"1852,I63.131 ",.02)
  1. ;;I63.19
  1. ;;9002226.02101,"1852,I63.131 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I63.20 ",.01)
  1. ;;I63.20
  1. ;;9002226.02101,"1852,I63.20 ",.02)
  1. ;;I63.20
  1. ;;9002226.02101,"1852,I63.20 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I63.211 ",.01)
  1. ;;I63.211
  1. ;;9002226.02101,"1852,I63.211 ",.02)
  1. ;;I63.22
  1. ;;9002226.02101,"1852,I63.211 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I63.231 ",.01)
  1. ;;I63.231
  1. ;;9002226.02101,"1852,I63.231 ",.02)
  1. ;;I63.29
  1. ;;9002226.02101,"1852,I63.231 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I63.30 ",.01)
  1. ;;I63.30
  1. ;;9002226.02101,"1852,I63.30 ",.02)
  1. ;;I63.30
  1. ;;9002226.02101,"1852,I63.30 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I63.311 ",.01)
  1. ;;I63.311
  1. ;;9002226.02101,"1852,I63.311 ",.02)
  1. ;;I63.319
  1. ;;9002226.02101,"1852,I63.311 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I63.321 ",.01)
  1. ;;I63.321
  1. ;;9002226.02101,"1852,I63.321 ",.02)
  1. ;;I63.329
  1. ;;9002226.02101,"1852,I63.321 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I63.331 ",.01)
  1. ;;I63.331
  1. ;;9002226.02101,"1852,I63.331 ",.02)
  1. ;;I63.339
  1. ;;9002226.02101,"1852,I63.331 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I63.341 ",.01)
  1. ;;I63.341
  1. ;;9002226.02101,"1852,I63.341 ",.02)
  1. ;;I63.39
  1. ;;9002226.02101,"1852,I63.341 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I63.40 ",.01)
  1. ;;I63.40
  1. ;;9002226.02101,"1852,I63.40 ",.02)
  1. ;;I63.40
  1. ;;9002226.02101,"1852,I63.40 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I63.411 ",.01)
  1. ;;I63.411
  1. ;;9002226.02101,"1852,I63.411 ",.02)
  1. ;;I63.419
  1. ;;9002226.02101,"1852,I63.411 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I63.421 ",.01)
  1. ;;I63.421
  1. ;;9002226.02101,"1852,I63.421 ",.02)
  1. ;;I63.429
  1. ;;9002226.02101,"1852,I63.421 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I63.431 ",.01)
  1. ;;I63.431
  1. ;;9002226.02101,"1852,I63.431 ",.02)
  1. ;;I63.439
  1. ;;9002226.02101,"1852,I63.431 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I63.441 ",.01)
  1. ;;I63.441
  1. ;;9002226.02101,"1852,I63.441 ",.02)
  1. ;;I63.49
  1. ;;9002226.02101,"1852,I63.441 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I63.50 ",.01)
  1. ;;I63.50
  1. ;;9002226.02101,"1852,I63.50 ",.02)
  1. ;;I63.50
  1. ;;9002226.02101,"1852,I63.50 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I63.511 ",.01)
  1. ;;I63.511
  1. ;;9002226.02101,"1852,I63.511 ",.02)
  1. ;;I63.519
  1. ;;9002226.02101,"1852,I63.511 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I63.521 ",.01)
  1. ;;I63.521
  1. ;;9002226.02101,"1852,I63.521 ",.02)
  1. ;;I63.529
  1. ;;9002226.02101,"1852,I63.521 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I63.531 ",.01)
  1. ;;I63.531
  1. ;;9002226.02101,"1852,I63.531 ",.02)
  1. ;;I63.539
  1. ;;9002226.02101,"1852,I63.531 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I63.541 ",.01)
  1. ;;I63.541
  1. ;;9002226.02101,"1852,I63.541 ",.02)
  1. ;;I63.9
  1. ;;9002226.02101,"1852,I63.541 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I65.01 ",.01)
  1. ;;I65.01
  1. ;;9002226.02101,"1852,I65.01 ",.02)
  1. ;;I65.1
  1. ;;9002226.02101,"1852,I65.01 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I65.21 ",.01)
  1. ;;I65.21
  1. ;;9002226.02101,"1852,I65.21 ",.02)
  1. ;;I65.9
  1. ;;9002226.02101,"1852,I65.21 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I66.01 ",.01)
  1. ;;I66.01
  1. ;;9002226.02101,"1852,I66.01 ",.02)
  1. ;;I66.09
  1. ;;9002226.02101,"1852,I66.01 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I66.11 ",.01)
  1. ;;I66.11
  1. ;;9002226.02101,"1852,I66.11 ",.02)
  1. ;;I66.19
  1. ;;9002226.02101,"1852,I66.11 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I66.21 ",.01)
  1. ;;I66.21
  1. ;;9002226.02101,"1852,I66.21 ",.02)
  1. ;;I66.9
  1. ;;9002226.02101,"1852,I66.21 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I70.1 ",.01)
  1. ;;I70.1
  1. ;;9002226.02101,"1852,I70.1 ",.02)
  1. ;;I70.1
  1. ;;9002226.02101,"1852,I70.1 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I70.209 ",.01)
  1. ;;I70.209
  1. ;;9002226.02101,"1852,I70.209 ",.02)
  1. ;;I70.209
  1. ;;9002226.02101,"1852,I70.209 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I70.219 ",.01)
  1. ;;I70.219
  1. ;;9002226.02101,"1852,I70.219 ",.02)
  1. ;;I70.219
  1. ;;9002226.02101,"1852,I70.219 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I70.25 ",.01)
  1. ;;I70.25
  1. ;;9002226.02101,"1852,I70.25 ",.02)
  1. ;;I70.25
  1. ;;9002226.02101,"1852,I70.25 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I70.269 ",.01)
  1. ;;I70.269
  1. ;;9002226.02101,"1852,I70.269 ",.02)
  1. ;;I70.269
  1. ;;9002226.02101,"1852,I70.269 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I70.299 ",.01)
  1. ;;I70.299
  1. ;;9002226.02101,"1852,I70.299 ",.02)
  1. ;;I70.299
  1. ;;9002226.02101,"1852,I70.299 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I70.92 ",.01)
  1. ;;I70.92
  1. ;;9002226.02101,"1852,I70.92 ",.02)
  1. ;;I70.92
  1. ;;9002226.02101,"1852,I70.92 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I73.81 ",.01)
  1. ;;I73.81
  1. ;;9002226.02101,"1852,I73.81 ",.02)
  1. ;;I73.9
  1. ;;9002226.02101,"1852,I73.81 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I74.01 ",.01)
  1. ;;I74.01
  1. ;;9002226.02101,"1852,I74.01 ",.02)
  1. ;;I74.09
  1. ;;9002226.02101,"1852,I74.01 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I74.10 ",.01)
  1. ;;I74.10
  1. ;;9002226.02101,"1852,I74.10 ",.02)
  1. ;;I74.9
  1. ;;9002226.02101,"1852,I74.10 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I75.011 ",.01)
  1. ;;I75.011
  1. ;;9002226.02101,"1852,I75.011 ",.02)
  1. ;;I75.019
  1. ;;9002226.02101,"1852,I75.011 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I75.021 ",.01)
  1. ;;I75.021
  1. ;;9002226.02101,"1852,I75.021 ",.02)
  1. ;;I75.029
  1. ;;9002226.02101,"1852,I75.021 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I75.81 ",.01)
  1. ;;I75.81
  1. ;;9002226.02101,"1852,I75.81 ",.02)
  1. ;;I75.89
  1. ;;9002226.02101,"1852,I75.81 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I77.71 ",.01)
  1. ;;I77.71
  1. ;;9002226.02101,"1852,I77.71 ",.02)
  1. ;;I77.79
  1. ;;9002226.02101,"1852,I77.71 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I79.8 ",.01)
  1. ;;I79.8
  1. ;;9002226.02101,"1852,I79.8 ",.02)
  1. ;;I79.8
  1. ;;9002226.02101,"1852,I79.8 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I80.10 ",.01)
  1. ;;I80.10
  1. ;;9002226.02101,"1852,I80.10 ",.02)
  1. ;;I80.13
  1. ;;9002226.02101,"1852,I80.10 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I80.201 ",.01)
  1. ;;I80.201
  1. ;;9002226.02101,"1852,I80.201 ",.02)
  1. ;;I80.202
  1. ;;9002226.02101,"1852,I80.201 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I80.209 ",.01)
  1. ;;I80.209
  1. ;;9002226.02101,"1852,I80.209 ",.02)
  1. ;;I80.209
  1. ;;9002226.02101,"1852,I80.209 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I80.221 ",.01)
  1. ;;I80.221
  1. ;;9002226.02101,"1852,I80.221 ",.02)
  1. ;;I80.221
  1. ;;9002226.02101,"1852,I80.221 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I80.223 ",.01)
  1. ;;I80.223
  1. ;;9002226.02101,"1852,I80.223 ",.02)
  1. ;;I80.229
  1. ;;9002226.02101,"1852,I80.223 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I80.231 ",.01)
  1. ;;I80.231
  1. ;;9002226.02101,"1852,I80.231 ",.02)
  1. ;;I80.232
  1. ;;9002226.02101,"1852,I80.231 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I80.239 ",.01)
  1. ;;I80.239
  1. ;;9002226.02101,"1852,I80.239 ",.02)
  1. ;;I80.239
  1. ;;9002226.02101,"1852,I80.239 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I80.291 ",.01)
  1. ;;I80.291
  1. ;;9002226.02101,"1852,I80.291 ",.02)
  1. ;;I80.299
  1. ;;9002226.02101,"1852,I80.291 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I97.0 ",.01)
  1. ;;I97.0
  1. ;;9002226.02101,"1852,I97.0 ",.02)
  1. ;;I97.0
  1. ;;9002226.02101,"1852,I97.0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I97.110 ",.01)
  1. ;;I97.110
  1. ;;9002226.02101,"1852,I97.110 ",.02)
  1. ;;I97.111
  1. ;;9002226.02101,"1852,I97.110 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I97.120 ",.01)
  1. ;;I97.120
  1. ;;9002226.02101,"1852,I97.120 ",.02)
  1. ;;I97.121
  1. ;;9002226.02101,"1852,I97.120 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I97.130 ",.01)
  1. ;;I97.130
  1. ;;9002226.02101,"1852,I97.130 ",.02)
  1. ;;I97.131
  1. ;;9002226.02101,"1852,I97.130 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,I97.190 ",.01)
  1. ;;I97.190
  1. ;;9002226.02101,"1852,I97.190 ",.02)
  1. ;;I97.191
  1. ;;9002226.02101,"1852,I97.190 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,M32.11 ",.01)
  1. ;;M32.11
  1. ;;9002226.02101,"1852,M32.11 ",.02)
  1. ;;M32.11
  1. ;;9002226.02101,"1852,M32.11 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,R00.1 ",.01)
  1. ;;R00.1
  1. ;;9002226.02101,"1852,R00.1 ",.02)
  1. ;;R00.1
  1. ;;9002226.02101,"1852,R00.1 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,T80.0XXA ",.01)
  1. ;;T80.0XXA
  1. ;;9002226.02101,"1852,T80.0XXA ",.02)
  1. ;;T80.0XXA
  1. ;;9002226.02101,"1852,T80.0XXA ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,T81.718A ",.01)
  1. ;;T81.718A
  1. ;;9002226.02101,"1852,T81.718A ",.02)
  1. ;;T81.718A
  1. ;;9002226.02101,"1852,T81.718A ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,T81.72XA ",.01)
  1. ;;T81.72XA
  1. ;;9002226.02101,"1852,T81.72XA ",.02)
  1. ;;T81.72XA
  1. ;;9002226.02101,"1852,T81.72XA ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,T82.817A ",.01)
  1. ;;T82.817A
  1. ;;9002226.02101,"1852,T82.817A ",.02)
  1. ;;T82.817A
  1. ;;9002226.02101,"1852,T82.817A ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,T82.818A ",.01)
  1. ;;T82.818A
  1. ;;9002226.02101,"1852,T82.818A ",.02)
  1. ;;T82.818A
  1. ;;9002226.02101,"1852,T82.818A ",.03)
  1. ;;30
  1. ;;9002226.02101,"1852,V45.01 ",.01)
  1. ;;V45.01
  1. ;;9002226.02101,"1852,V45.01 ",.02)
  1. ;;V45.01