- ATXDCB2 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JUN 03, 2014;
- ;;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,"1852,I45.0 ",.01)
- ;;I45.0
- ;;9002226.02101,"1852,I45.0 ",.02)
- ;;I45.0
- ;;9002226.02101,"1852,I45.0 ",.03)
- ;;30
- ;;9002226.02101,"1852,I45.10 ",.01)
- ;;I45.10
- ;;9002226.02101,"1852,I45.10 ",.02)
- ;;I45.6
- ;;9002226.02101,"1852,I45.10 ",.03)
- ;;30
- ;;9002226.02101,"1852,I45.81 ",.01)
- ;;I45.81
- ;;9002226.02101,"1852,I45.81 ",.02)
- ;;I45.9
- ;;9002226.02101,"1852,I45.81 ",.03)
- ;;30
- ;;9002226.02101,"1852,I46.2 ",.01)
- ;;I46.2
- ;;9002226.02101,"1852,I46.2 ",.02)
- ;;I46.9
- ;;9002226.02101,"1852,I46.2 ",.03)
- ;;30
- ;;9002226.02101,"1852,I47.0 ",.01)
- ;;I47.0
- ;;9002226.02101,"1852,I47.0 ",.02)
- ;;I47.9
- ;;9002226.02101,"1852,I47.0 ",.03)
- ;;30
- ;;9002226.02101,"1852,I48.0 ",.01)
- ;;I48.0
- ;;9002226.02101,"1852,I48.0 ",.02)
- ;;I48.4
- ;;9002226.02101,"1852,I48.0 ",.03)
- ;;30
- ;;9002226.02101,"1852,I48.91 ",.01)
- ;;I48.91
- ;;9002226.02101,"1852,I48.91 ",.02)
- ;;I48.92
- ;;9002226.02101,"1852,I48.91 ",.03)
- ;;30
- ;;9002226.02101,"1852,I49.01 ",.01)
- ;;I49.01
- ;;9002226.02101,"1852,I49.01 ",.02)
- ;;I49.3
- ;;9002226.02101,"1852,I49.01 ",.03)
- ;;30
- ;;9002226.02101,"1852,I49.40 ",.01)
- ;;I49.40
- ;;9002226.02101,"1852,I49.40 ",.02)
- ;;I49.9
- ;;9002226.02101,"1852,I49.40 ",.03)
- ;;30
- ;;9002226.02101,"1852,I50.1 ",.01)
- ;;I50.1
- ;;9002226.02101,"1852,I50.1 ",.02)
- ;;I50.1
- ;;9002226.02101,"1852,I50.1 ",.03)
- ;;30
- ;;9002226.02101,"1852,I50.20 ",.01)
- ;;I50.20
- ;;9002226.02101,"1852,I50.20 ",.02)
- ;;I50.23
- ;;9002226.02101,"1852,I50.20 ",.03)
- ;;30
- ;;9002226.02101,"1852,I50.30 ",.01)
- ;;I50.30
- ;;9002226.02101,"1852,I50.30 ",.02)
- ;;I50.33
- ;;9002226.02101,"1852,I50.30 ",.03)
- ;;30
- ;;9002226.02101,"1852,I50.40 ",.01)
- ;;I50.40
- ;;9002226.02101,"1852,I50.40 ",.02)
- ;;I50.9
- ;;9002226.02101,"1852,I50.40 ",.03)
- ;;30
- ;;9002226.02101,"1852,I51.0 ",.01)
- ;;I51.0
- ;;9002226.02101,"1852,I51.0 ",.02)
- ;;I51.7
- ;;9002226.02101,"1852,I51.0 ",.03)
- ;;30
- ;;9002226.02101,"1852,I51.81 ",.01)
- ;;I51.81
- ;;9002226.02101,"1852,I51.81 ",.02)
- ;;I52.
- ;;9002226.02101,"1852,I51.81 ",.03)
- ;;30
- ;;9002226.02101,"1852,I63.00 ",.01)
- ;;I63.00
- ;;9002226.02101,"1852,I63.00 ",.02)
- ;;I63.00
- ;;9002226.02101,"1852,I63.00 ",.03)
- ;;30
- ;;9002226.02101,"1852,I63.011 ",.01)
- ;;I63.011
- ;;9002226.02101,"1852,I63.011 ",.02)
- ;;I63.02
- ;;9002226.02101,"1852,I63.011 ",.03)
- ;;30
- ;;9002226.02101,"1852,I63.031 ",.01)
- ;;I63.031
- ;;9002226.02101,"1852,I63.031 ",.02)
- ;;I63.09
- ;;9002226.02101,"1852,I63.031 ",.03)
- ;;30
- ;;9002226.02101,"1852,I63.10 ",.01)
- ;;I63.10
- ;;9002226.02101,"1852,I63.10 ",.02)
- ;;I63.10
- ;;9002226.02101,"1852,I63.10 ",.03)
- ;;30
- ;;9002226.02101,"1852,I63.111 ",.01)
- ;;I63.111
- ;;9002226.02101,"1852,I63.111 ",.02)
- ;;I63.12
- ;;9002226.02101,"1852,I63.111 ",.03)
- ;;30
- ;;9002226.02101,"1852,I63.131 ",.01)
- ;;I63.131
- ;;9002226.02101,"1852,I63.131 ",.02)
- ;;I63.19
- ;;9002226.02101,"1852,I63.131 ",.03)
- ;;30
- ;;9002226.02101,"1852,I63.20 ",.01)
- ;;I63.20
- ;;9002226.02101,"1852,I63.20 ",.02)
- ;;I63.20
- ;;9002226.02101,"1852,I63.20 ",.03)
- ;;30
- ;;9002226.02101,"1852,I63.211 ",.01)
- ;;I63.211
- ;;9002226.02101,"1852,I63.211 ",.02)
- ;;I63.22
- ;;9002226.02101,"1852,I63.211 ",.03)
- ;;30
- ;;9002226.02101,"1852,I63.231 ",.01)
- ;;I63.231
- ;;9002226.02101,"1852,I63.231 ",.02)
- ;;I63.29
- ;;9002226.02101,"1852,I63.231 ",.03)
- ;;30
- ;;9002226.02101,"1852,I63.30 ",.01)
- ;;I63.30
- ;;9002226.02101,"1852,I63.30 ",.02)
- ;;I63.30
- ;;9002226.02101,"1852,I63.30 ",.03)
- ;;30
- ;;9002226.02101,"1852,I63.311 ",.01)
- ;;I63.311
- ;;9002226.02101,"1852,I63.311 ",.02)
- ;;I63.319
- ;;9002226.02101,"1852,I63.311 ",.03)
- ;;30
- ;;9002226.02101,"1852,I63.321 ",.01)
- ;;I63.321
- ;;9002226.02101,"1852,I63.321 ",.02)
- ;;I63.329
- ;;9002226.02101,"1852,I63.321 ",.03)
- ;;30
- ;;9002226.02101,"1852,I63.331 ",.01)
- ;;I63.331
- ;;9002226.02101,"1852,I63.331 ",.02)
- ;;I63.339
- ;;9002226.02101,"1852,I63.331 ",.03)
- ;;30
- ;;9002226.02101,"1852,I63.341 ",.01)
- ;;I63.341
- ;;9002226.02101,"1852,I63.341 ",.02)
- ;;I63.39
- ;;9002226.02101,"1852,I63.341 ",.03)
- ;;30
- ;;9002226.02101,"1852,I63.40 ",.01)
- ;;I63.40
- ;;9002226.02101,"1852,I63.40 ",.02)
- ;;I63.40
- ;;9002226.02101,"1852,I63.40 ",.03)
- ;;30
- ;;9002226.02101,"1852,I63.411 ",.01)
- ;;I63.411
- ;;9002226.02101,"1852,I63.411 ",.02)
- ;;I63.419
- ;;9002226.02101,"1852,I63.411 ",.03)
- ;;30
- ;;9002226.02101,"1852,I63.421 ",.01)
- ;;I63.421
- ;;9002226.02101,"1852,I63.421 ",.02)
- ;;I63.429
- ;;9002226.02101,"1852,I63.421 ",.03)
- ;;30
- ;;9002226.02101,"1852,I63.431 ",.01)
- ;;I63.431
- ;;9002226.02101,"1852,I63.431 ",.02)
- ;;I63.439
- ;;9002226.02101,"1852,I63.431 ",.03)
- ;;30
- ;;9002226.02101,"1852,I63.441 ",.01)
- ;;I63.441
- ;;9002226.02101,"1852,I63.441 ",.02)
- ;;I63.49
- ;;9002226.02101,"1852,I63.441 ",.03)
- ;;30
- ;;9002226.02101,"1852,I63.50 ",.01)
- ;;I63.50
- ;;9002226.02101,"1852,I63.50 ",.02)
- ;;I63.50
- ;;9002226.02101,"1852,I63.50 ",.03)
- ;;30
- ;;9002226.02101,"1852,I63.511 ",.01)
- ;;I63.511
- ;;9002226.02101,"1852,I63.511 ",.02)
- ;;I63.519
- ;;9002226.02101,"1852,I63.511 ",.03)
- ;;30
- ;;9002226.02101,"1852,I63.521 ",.01)
- ;;I63.521
- ;;9002226.02101,"1852,I63.521 ",.02)
- ;;I63.529
- ;;9002226.02101,"1852,I63.521 ",.03)
- ;;30
- ;;9002226.02101,"1852,I63.531 ",.01)
- ;;I63.531
- ;;9002226.02101,"1852,I63.531 ",.02)
- ;;I63.539
- ;;9002226.02101,"1852,I63.531 ",.03)
- ;;30
- ;;9002226.02101,"1852,I63.541 ",.01)
- ;;I63.541
- ;;9002226.02101,"1852,I63.541 ",.02)
- ;;I63.9
- ;;9002226.02101,"1852,I63.541 ",.03)
- ;;30
- ;;9002226.02101,"1852,I65.01 ",.01)
- ;;I65.01
- ;;9002226.02101,"1852,I65.01 ",.02)
- ;;I65.1
- ;;9002226.02101,"1852,I65.01 ",.03)
- ;;30
- ;;9002226.02101,"1852,I65.21 ",.01)
- ;;I65.21
- ;;9002226.02101,"1852,I65.21 ",.02)
- ;;I65.9
- ;;9002226.02101,"1852,I65.21 ",.03)
- ;;30
- ;;9002226.02101,"1852,I66.01 ",.01)
- ;;I66.01
- ;;9002226.02101,"1852,I66.01 ",.02)
- ;;I66.09
- ;;9002226.02101,"1852,I66.01 ",.03)
- ;;30
- ;;9002226.02101,"1852,I66.11 ",.01)
- ;;I66.11
- ;;9002226.02101,"1852,I66.11 ",.02)
- ;;I66.19
- ;;9002226.02101,"1852,I66.11 ",.03)
- ;;30
- ;;9002226.02101,"1852,I66.21 ",.01)
- ;;I66.21
- ;;9002226.02101,"1852,I66.21 ",.02)
- ;;I66.9
- ;;9002226.02101,"1852,I66.21 ",.03)
- ;;30
- ;;9002226.02101,"1852,I70.1 ",.01)
- ;;I70.1
- ;;9002226.02101,"1852,I70.1 ",.02)
- ;;I70.1
- ;;9002226.02101,"1852,I70.1 ",.03)
- ;;30
- ;;9002226.02101,"1852,I70.209 ",.01)
- ;;I70.209
- ;;9002226.02101,"1852,I70.209 ",.02)
- ;;I70.209
- ;;9002226.02101,"1852,I70.209 ",.03)
- ;;30
- ;;9002226.02101,"1852,I70.219 ",.01)
- ;;I70.219
- ;;9002226.02101,"1852,I70.219 ",.02)
- ;;I70.219
- ;;9002226.02101,"1852,I70.219 ",.03)
- ;;30
- ;;9002226.02101,"1852,I70.25 ",.01)
- ;;I70.25
- ;;9002226.02101,"1852,I70.25 ",.02)
- ;;I70.25
- ;;9002226.02101,"1852,I70.25 ",.03)
- ;;30
- ;;9002226.02101,"1852,I70.269 ",.01)
- ;;I70.269
- ;;9002226.02101,"1852,I70.269 ",.02)
- ;;I70.269
- ;;9002226.02101,"1852,I70.269 ",.03)
- ;;30
- ;;9002226.02101,"1852,I70.299 ",.01)
- ;;I70.299
- ;;9002226.02101,"1852,I70.299 ",.02)
- ;;I70.299
- ;;9002226.02101,"1852,I70.299 ",.03)
- ;;30
- ;;9002226.02101,"1852,I70.92 ",.01)
- ;;I70.92
- ;;9002226.02101,"1852,I70.92 ",.02)
- ;;I70.92
- ;;9002226.02101,"1852,I70.92 ",.03)
- ;;30
- ;;9002226.02101,"1852,I73.81 ",.01)
- ;;I73.81
- ;;9002226.02101,"1852,I73.81 ",.02)
- ;;I73.9
- ;;9002226.02101,"1852,I73.81 ",.03)
- ;;30
- ;;9002226.02101,"1852,I74.01 ",.01)
- ;;I74.01
- ;;9002226.02101,"1852,I74.01 ",.02)
- ;;I74.09
- ;;9002226.02101,"1852,I74.01 ",.03)
- ;;30
- ;;9002226.02101,"1852,I74.10 ",.01)
- ;;I74.10
- ;;9002226.02101,"1852,I74.10 ",.02)
- ;;I74.9
- ;;9002226.02101,"1852,I74.10 ",.03)
- ;;30
- ;;9002226.02101,"1852,I75.011 ",.01)
- ;;I75.011
- ;;9002226.02101,"1852,I75.011 ",.02)
- ;;I75.019
- ;;9002226.02101,"1852,I75.011 ",.03)
- ;;30
- ;;9002226.02101,"1852,I75.021 ",.01)
- ;;I75.021
- ;;9002226.02101,"1852,I75.021 ",.02)
- ;;I75.029
- ;;9002226.02101,"1852,I75.021 ",.03)
- ;;30
- ;;9002226.02101,"1852,I75.81 ",.01)
- ;;I75.81
- ;;9002226.02101,"1852,I75.81 ",.02)
- ;;I75.89
- ;;9002226.02101,"1852,I75.81 ",.03)
- ;;30
- ;;9002226.02101,"1852,I77.71 ",.01)
- ;;I77.71
- ;;9002226.02101,"1852,I77.71 ",.02)
- ;;I77.79
- ;;9002226.02101,"1852,I77.71 ",.03)
- ;;30
- ;;9002226.02101,"1852,I79.8 ",.01)
- ;;I79.8
- ;;9002226.02101,"1852,I79.8 ",.02)
- ;;I79.8
- ;;9002226.02101,"1852,I79.8 ",.03)
- ;;30
- ;;9002226.02101,"1852,I80.10 ",.01)
- ;;I80.10
- ;;9002226.02101,"1852,I80.10 ",.02)
- ;;I80.13
- ;;9002226.02101,"1852,I80.10 ",.03)
- ;;30
- ;;9002226.02101,"1852,I80.201 ",.01)
- ;;I80.201
- ;;9002226.02101,"1852,I80.201 ",.02)
- ;;I80.202
- ;;9002226.02101,"1852,I80.201 ",.03)
- ;;30
- ;;9002226.02101,"1852,I80.209 ",.01)
- ;;I80.209
- ;;9002226.02101,"1852,I80.209 ",.02)
- ;;I80.209
- ;;9002226.02101,"1852,I80.209 ",.03)
- ;;30
- ;;9002226.02101,"1852,I80.221 ",.01)
- ;;I80.221
- ;;9002226.02101,"1852,I80.221 ",.02)
- ;;I80.221
- ;;9002226.02101,"1852,I80.221 ",.03)
- ;;30
- ;;9002226.02101,"1852,I80.223 ",.01)
- ;;I80.223
- ;;9002226.02101,"1852,I80.223 ",.02)
- ;;I80.229
- ;;9002226.02101,"1852,I80.223 ",.03)
- ;;30
- ;;9002226.02101,"1852,I80.231 ",.01)
- ;;I80.231
- ;;9002226.02101,"1852,I80.231 ",.02)
- ;;I80.232
- ;;9002226.02101,"1852,I80.231 ",.03)
- ;;30
- ;;9002226.02101,"1852,I80.239 ",.01)
- ;;I80.239
- ;;9002226.02101,"1852,I80.239 ",.02)
- ;;I80.239
- ;;9002226.02101,"1852,I80.239 ",.03)
- ;;30
- ;;9002226.02101,"1852,I80.291 ",.01)
- ;;I80.291
- ;;9002226.02101,"1852,I80.291 ",.02)
- ;;I80.299
- ;;9002226.02101,"1852,I80.291 ",.03)
- ;;30
- ;;9002226.02101,"1852,I97.0 ",.01)
- ;;I97.0
- ;;9002226.02101,"1852,I97.0 ",.02)
- ;;I97.0
- ;;9002226.02101,"1852,I97.0 ",.03)
- ;;30
- ;;9002226.02101,"1852,I97.110 ",.01)
- ;;I97.110
- ;;9002226.02101,"1852,I97.110 ",.02)
- ;;I97.111
- ;;9002226.02101,"1852,I97.110 ",.03)
- ;;30
- ;;9002226.02101,"1852,I97.120 ",.01)
- ;;I97.120
- ;;9002226.02101,"1852,I97.120 ",.02)
- ;;I97.121
- ;;9002226.02101,"1852,I97.120 ",.03)
- ;;30
- ;;9002226.02101,"1852,I97.130 ",.01)
- ;;I97.130
- ;;9002226.02101,"1852,I97.130 ",.02)
- ;;I97.131
- ;;9002226.02101,"1852,I97.130 ",.03)
- ;;30
- ;;9002226.02101,"1852,I97.190 ",.01)
- ;;I97.190
- ;;9002226.02101,"1852,I97.190 ",.02)
- ;;I97.191
- ;;9002226.02101,"1852,I97.190 ",.03)
- ;;30
- ;;9002226.02101,"1852,M32.11 ",.01)
- ;;M32.11
- ;;9002226.02101,"1852,M32.11 ",.02)
- ;;M32.11
- ;;9002226.02101,"1852,M32.11 ",.03)
- ;;30
- ;;9002226.02101,"1852,R00.1 ",.01)
- ;;R00.1
- ;;9002226.02101,"1852,R00.1 ",.02)
- ;;R00.1
- ;;9002226.02101,"1852,R00.1 ",.03)
- ;;30
- ;;9002226.02101,"1852,T80.0XXA ",.01)
- ;;T80.0XXA
- ;;9002226.02101,"1852,T80.0XXA ",.02)
- ;;T80.0XXA
- ;;9002226.02101,"1852,T80.0XXA ",.03)
- ;;30
- ;;9002226.02101,"1852,T81.718A ",.01)
- ;;T81.718A
- ;;9002226.02101,"1852,T81.718A ",.02)
- ;;T81.718A
- ;;9002226.02101,"1852,T81.718A ",.03)
- ;;30
- ;;9002226.02101,"1852,T81.72XA ",.01)
- ;;T81.72XA
- ;;9002226.02101,"1852,T81.72XA ",.02)
- ;;T81.72XA
- ;;9002226.02101,"1852,T81.72XA ",.03)
- ;;30
- ;;9002226.02101,"1852,T82.817A ",.01)
- ;;T82.817A
- ;;9002226.02101,"1852,T82.817A ",.02)
- ;;T82.817A
- ;;9002226.02101,"1852,T82.817A ",.03)
- ;;30
- ;;9002226.02101,"1852,T82.818A ",.01)
- ;;T82.818A
- ;;9002226.02101,"1852,T82.818A ",.02)
- ;;T82.818A
- ;;9002226.02101,"1852,T82.818A ",.03)
- ;;30
- ;;9002226.02101,"1852,V45.01 ",.01)
- ;;V45.01
- ;;9002226.02101,"1852,V45.01 ",.02)
- ;;V45.01
- ATXDCB2 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JUN 03, 2014;
- +1 ;;5.1;TAXONOMY;**11**;FEB 04, 1997;Build 48
- +2 ;
- START ;
- +1 IF '$GET(ATXPGMC)
- KILL ^TMP("ATX",$JOB)
- +2 SET ATXPGMC=$GET(ATXPGMC)+1
- +3 FOR ATXI=1:1
- SET X=$PIECE($TEXT(TMP+ATXI),";;",2,99)
- IF X=""
- QUIT
- SET X="^TMP(""ATX"",$J,"_X
- SET ATXI=ATXI+1
- SET Y=$PIECE($TEXT(TMP+ATXI),";;",2,99)
- SET @X=Y
- +4 QUIT
- +5 ;
- TMP ;;TAXONOMY (WITH BULLETIN)
- +1 ;;9002226.02101,"1852,I45.0 ",.01)
- +2 ;;I45.0
- +3 ;;9002226.02101,"1852,I45.0 ",.02)
- +4 ;;I45.0
- +5 ;;9002226.02101,"1852,I45.0 ",.03)
- +6 ;;30
- +7 ;;9002226.02101,"1852,I45.10 ",.01)
- +8 ;;I45.10
- +9 ;;9002226.02101,"1852,I45.10 ",.02)
- +10 ;;I45.6
- +11 ;;9002226.02101,"1852,I45.10 ",.03)
- +12 ;;30
- +13 ;;9002226.02101,"1852,I45.81 ",.01)
- +14 ;;I45.81
- +15 ;;9002226.02101,"1852,I45.81 ",.02)
- +16 ;;I45.9
- +17 ;;9002226.02101,"1852,I45.81 ",.03)
- +18 ;;30
- +19 ;;9002226.02101,"1852,I46.2 ",.01)
- +20 ;;I46.2
- +21 ;;9002226.02101,"1852,I46.2 ",.02)
- +22 ;;I46.9
- +23 ;;9002226.02101,"1852,I46.2 ",.03)
- +24 ;;30
- +25 ;;9002226.02101,"1852,I47.0 ",.01)
- +26 ;;I47.0
- +27 ;;9002226.02101,"1852,I47.0 ",.02)
- +28 ;;I47.9
- +29 ;;9002226.02101,"1852,I47.0 ",.03)
- +30 ;;30
- +31 ;;9002226.02101,"1852,I48.0 ",.01)
- +32 ;;I48.0
- +33 ;;9002226.02101,"1852,I48.0 ",.02)
- +34 ;;I48.4
- +35 ;;9002226.02101,"1852,I48.0 ",.03)
- +36 ;;30
- +37 ;;9002226.02101,"1852,I48.91 ",.01)
- +38 ;;I48.91
- +39 ;;9002226.02101,"1852,I48.91 ",.02)
- +40 ;;I48.92
- +41 ;;9002226.02101,"1852,I48.91 ",.03)
- +42 ;;30
- +43 ;;9002226.02101,"1852,I49.01 ",.01)
- +44 ;;I49.01
- +45 ;;9002226.02101,"1852,I49.01 ",.02)
- +46 ;;I49.3
- +47 ;;9002226.02101,"1852,I49.01 ",.03)
- +48 ;;30
- +49 ;;9002226.02101,"1852,I49.40 ",.01)
- +50 ;;I49.40
- +51 ;;9002226.02101,"1852,I49.40 ",.02)
- +52 ;;I49.9
- +53 ;;9002226.02101,"1852,I49.40 ",.03)
- +54 ;;30
- +55 ;;9002226.02101,"1852,I50.1 ",.01)
- +56 ;;I50.1
- +57 ;;9002226.02101,"1852,I50.1 ",.02)
- +58 ;;I50.1
- +59 ;;9002226.02101,"1852,I50.1 ",.03)
- +60 ;;30
- +61 ;;9002226.02101,"1852,I50.20 ",.01)
- +62 ;;I50.20
- +63 ;;9002226.02101,"1852,I50.20 ",.02)
- +64 ;;I50.23
- +65 ;;9002226.02101,"1852,I50.20 ",.03)
- +66 ;;30
- +67 ;;9002226.02101,"1852,I50.30 ",.01)
- +68 ;;I50.30
- +69 ;;9002226.02101,"1852,I50.30 ",.02)
- +70 ;;I50.33
- +71 ;;9002226.02101,"1852,I50.30 ",.03)
- +72 ;;30
- +73 ;;9002226.02101,"1852,I50.40 ",.01)
- +74 ;;I50.40
- +75 ;;9002226.02101,"1852,I50.40 ",.02)
- +76 ;;I50.9
- +77 ;;9002226.02101,"1852,I50.40 ",.03)
- +78 ;;30
- +79 ;;9002226.02101,"1852,I51.0 ",.01)
- +80 ;;I51.0
- +81 ;;9002226.02101,"1852,I51.0 ",.02)
- +82 ;;I51.7
- +83 ;;9002226.02101,"1852,I51.0 ",.03)
- +84 ;;30
- +85 ;;9002226.02101,"1852,I51.81 ",.01)
- +86 ;;I51.81
- +87 ;;9002226.02101,"1852,I51.81 ",.02)
- +88 ;;I52.
- +89 ;;9002226.02101,"1852,I51.81 ",.03)
- +90 ;;30
- +91 ;;9002226.02101,"1852,I63.00 ",.01)
- +92 ;;I63.00
- +93 ;;9002226.02101,"1852,I63.00 ",.02)
- +94 ;;I63.00
- +95 ;;9002226.02101,"1852,I63.00 ",.03)
- +96 ;;30
- +97 ;;9002226.02101,"1852,I63.011 ",.01)
- +98 ;;I63.011
- +99 ;;9002226.02101,"1852,I63.011 ",.02)
- +100 ;;I63.02
- +101 ;;9002226.02101,"1852,I63.011 ",.03)
- +102 ;;30
- +103 ;;9002226.02101,"1852,I63.031 ",.01)
- +104 ;;I63.031
- +105 ;;9002226.02101,"1852,I63.031 ",.02)
- +106 ;;I63.09
- +107 ;;9002226.02101,"1852,I63.031 ",.03)
- +108 ;;30
- +109 ;;9002226.02101,"1852,I63.10 ",.01)
- +110 ;;I63.10
- +111 ;;9002226.02101,"1852,I63.10 ",.02)
- +112 ;;I63.10
- +113 ;;9002226.02101,"1852,I63.10 ",.03)
- +114 ;;30
- +115 ;;9002226.02101,"1852,I63.111 ",.01)
- +116 ;;I63.111
- +117 ;;9002226.02101,"1852,I63.111 ",.02)
- +118 ;;I63.12
- +119 ;;9002226.02101,"1852,I63.111 ",.03)
- +120 ;;30
- +121 ;;9002226.02101,"1852,I63.131 ",.01)
- +122 ;;I63.131
- +123 ;;9002226.02101,"1852,I63.131 ",.02)
- +124 ;;I63.19
- +125 ;;9002226.02101,"1852,I63.131 ",.03)
- +126 ;;30
- +127 ;;9002226.02101,"1852,I63.20 ",.01)
- +128 ;;I63.20
- +129 ;;9002226.02101,"1852,I63.20 ",.02)
- +130 ;;I63.20
- +131 ;;9002226.02101,"1852,I63.20 ",.03)
- +132 ;;30
- +133 ;;9002226.02101,"1852,I63.211 ",.01)
- +134 ;;I63.211
- +135 ;;9002226.02101,"1852,I63.211 ",.02)
- +136 ;;I63.22
- +137 ;;9002226.02101,"1852,I63.211 ",.03)
- +138 ;;30
- +139 ;;9002226.02101,"1852,I63.231 ",.01)
- +140 ;;I63.231
- +141 ;;9002226.02101,"1852,I63.231 ",.02)
- +142 ;;I63.29
- +143 ;;9002226.02101,"1852,I63.231 ",.03)
- +144 ;;30
- +145 ;;9002226.02101,"1852,I63.30 ",.01)
- +146 ;;I63.30
- +147 ;;9002226.02101,"1852,I63.30 ",.02)
- +148 ;;I63.30
- +149 ;;9002226.02101,"1852,I63.30 ",.03)
- +150 ;;30
- +151 ;;9002226.02101,"1852,I63.311 ",.01)
- +152 ;;I63.311
- +153 ;;9002226.02101,"1852,I63.311 ",.02)
- +154 ;;I63.319
- +155 ;;9002226.02101,"1852,I63.311 ",.03)
- +156 ;;30
- +157 ;;9002226.02101,"1852,I63.321 ",.01)
- +158 ;;I63.321
- +159 ;;9002226.02101,"1852,I63.321 ",.02)
- +160 ;;I63.329
- +161 ;;9002226.02101,"1852,I63.321 ",.03)
- +162 ;;30
- +163 ;;9002226.02101,"1852,I63.331 ",.01)
- +164 ;;I63.331
- +165 ;;9002226.02101,"1852,I63.331 ",.02)
- +166 ;;I63.339
- +167 ;;9002226.02101,"1852,I63.331 ",.03)
- +168 ;;30
- +169 ;;9002226.02101,"1852,I63.341 ",.01)
- +170 ;;I63.341
- +171 ;;9002226.02101,"1852,I63.341 ",.02)
- +172 ;;I63.39
- +173 ;;9002226.02101,"1852,I63.341 ",.03)
- +174 ;;30
- +175 ;;9002226.02101,"1852,I63.40 ",.01)
- +176 ;;I63.40
- +177 ;;9002226.02101,"1852,I63.40 ",.02)
- +178 ;;I63.40
- +179 ;;9002226.02101,"1852,I63.40 ",.03)
- +180 ;;30
- +181 ;;9002226.02101,"1852,I63.411 ",.01)
- +182 ;;I63.411
- +183 ;;9002226.02101,"1852,I63.411 ",.02)
- +184 ;;I63.419
- +185 ;;9002226.02101,"1852,I63.411 ",.03)
- +186 ;;30
- +187 ;;9002226.02101,"1852,I63.421 ",.01)
- +188 ;;I63.421
- +189 ;;9002226.02101,"1852,I63.421 ",.02)
- +190 ;;I63.429
- +191 ;;9002226.02101,"1852,I63.421 ",.03)
- +192 ;;30
- +193 ;;9002226.02101,"1852,I63.431 ",.01)
- +194 ;;I63.431
- +195 ;;9002226.02101,"1852,I63.431 ",.02)
- +196 ;;I63.439
- +197 ;;9002226.02101,"1852,I63.431 ",.03)
- +198 ;;30
- +199 ;;9002226.02101,"1852,I63.441 ",.01)
- +200 ;;I63.441
- +201 ;;9002226.02101,"1852,I63.441 ",.02)
- +202 ;;I63.49
- +203 ;;9002226.02101,"1852,I63.441 ",.03)
- +204 ;;30
- +205 ;;9002226.02101,"1852,I63.50 ",.01)
- +206 ;;I63.50
- +207 ;;9002226.02101,"1852,I63.50 ",.02)
- +208 ;;I63.50
- +209 ;;9002226.02101,"1852,I63.50 ",.03)
- +210 ;;30
- +211 ;;9002226.02101,"1852,I63.511 ",.01)
- +212 ;;I63.511
- +213 ;;9002226.02101,"1852,I63.511 ",.02)
- +214 ;;I63.519
- +215 ;;9002226.02101,"1852,I63.511 ",.03)
- +216 ;;30
- +217 ;;9002226.02101,"1852,I63.521 ",.01)
- +218 ;;I63.521
- +219 ;;9002226.02101,"1852,I63.521 ",.02)
- +220 ;;I63.529
- +221 ;;9002226.02101,"1852,I63.521 ",.03)
- +222 ;;30
- +223 ;;9002226.02101,"1852,I63.531 ",.01)
- +224 ;;I63.531
- +225 ;;9002226.02101,"1852,I63.531 ",.02)
- +226 ;;I63.539
- +227 ;;9002226.02101,"1852,I63.531 ",.03)
- +228 ;;30
- +229 ;;9002226.02101,"1852,I63.541 ",.01)
- +230 ;;I63.541
- +231 ;;9002226.02101,"1852,I63.541 ",.02)
- +232 ;;I63.9
- +233 ;;9002226.02101,"1852,I63.541 ",.03)
- +234 ;;30
- +235 ;;9002226.02101,"1852,I65.01 ",.01)
- +236 ;;I65.01
- +237 ;;9002226.02101,"1852,I65.01 ",.02)
- +238 ;;I65.1
- +239 ;;9002226.02101,"1852,I65.01 ",.03)
- +240 ;;30
- +241 ;;9002226.02101,"1852,I65.21 ",.01)
- +242 ;;I65.21
- +243 ;;9002226.02101,"1852,I65.21 ",.02)
- +244 ;;I65.9
- +245 ;;9002226.02101,"1852,I65.21 ",.03)
- +246 ;;30
- +247 ;;9002226.02101,"1852,I66.01 ",.01)
- +248 ;;I66.01
- +249 ;;9002226.02101,"1852,I66.01 ",.02)
- +250 ;;I66.09
- +251 ;;9002226.02101,"1852,I66.01 ",.03)
- +252 ;;30
- +253 ;;9002226.02101,"1852,I66.11 ",.01)
- +254 ;;I66.11
- +255 ;;9002226.02101,"1852,I66.11 ",.02)
- +256 ;;I66.19
- +257 ;;9002226.02101,"1852,I66.11 ",.03)
- +258 ;;30
- +259 ;;9002226.02101,"1852,I66.21 ",.01)
- +260 ;;I66.21
- +261 ;;9002226.02101,"1852,I66.21 ",.02)
- +262 ;;I66.9
- +263 ;;9002226.02101,"1852,I66.21 ",.03)
- +264 ;;30
- +265 ;;9002226.02101,"1852,I70.1 ",.01)
- +266 ;;I70.1
- +267 ;;9002226.02101,"1852,I70.1 ",.02)
- +268 ;;I70.1
- +269 ;;9002226.02101,"1852,I70.1 ",.03)
- +270 ;;30
- +271 ;;9002226.02101,"1852,I70.209 ",.01)
- +272 ;;I70.209
- +273 ;;9002226.02101,"1852,I70.209 ",.02)
- +274 ;;I70.209
- +275 ;;9002226.02101,"1852,I70.209 ",.03)
- +276 ;;30
- +277 ;;9002226.02101,"1852,I70.219 ",.01)
- +278 ;;I70.219
- +279 ;;9002226.02101,"1852,I70.219 ",.02)
- +280 ;;I70.219
- +281 ;;9002226.02101,"1852,I70.219 ",.03)
- +282 ;;30
- +283 ;;9002226.02101,"1852,I70.25 ",.01)
- +284 ;;I70.25
- +285 ;;9002226.02101,"1852,I70.25 ",.02)
- +286 ;;I70.25
- +287 ;;9002226.02101,"1852,I70.25 ",.03)
- +288 ;;30
- +289 ;;9002226.02101,"1852,I70.269 ",.01)
- +290 ;;I70.269
- +291 ;;9002226.02101,"1852,I70.269 ",.02)
- +292 ;;I70.269
- +293 ;;9002226.02101,"1852,I70.269 ",.03)
- +294 ;;30
- +295 ;;9002226.02101,"1852,I70.299 ",.01)
- +296 ;;I70.299
- +297 ;;9002226.02101,"1852,I70.299 ",.02)
- +298 ;;I70.299
- +299 ;;9002226.02101,"1852,I70.299 ",.03)
- +300 ;;30
- +301 ;;9002226.02101,"1852,I70.92 ",.01)
- +302 ;;I70.92
- +303 ;;9002226.02101,"1852,I70.92 ",.02)
- +304 ;;I70.92
- +305 ;;9002226.02101,"1852,I70.92 ",.03)
- +306 ;;30
- +307 ;;9002226.02101,"1852,I73.81 ",.01)
- +308 ;;I73.81
- +309 ;;9002226.02101,"1852,I73.81 ",.02)
- +310 ;;I73.9
- +311 ;;9002226.02101,"1852,I73.81 ",.03)
- +312 ;;30
- +313 ;;9002226.02101,"1852,I74.01 ",.01)
- +314 ;;I74.01
- +315 ;;9002226.02101,"1852,I74.01 ",.02)
- +316 ;;I74.09
- +317 ;;9002226.02101,"1852,I74.01 ",.03)
- +318 ;;30
- +319 ;;9002226.02101,"1852,I74.10 ",.01)
- +320 ;;I74.10
- +321 ;;9002226.02101,"1852,I74.10 ",.02)
- +322 ;;I74.9
- +323 ;;9002226.02101,"1852,I74.10 ",.03)
- +324 ;;30
- +325 ;;9002226.02101,"1852,I75.011 ",.01)
- +326 ;;I75.011
- +327 ;;9002226.02101,"1852,I75.011 ",.02)
- +328 ;;I75.019
- +329 ;;9002226.02101,"1852,I75.011 ",.03)
- +330 ;;30
- +331 ;;9002226.02101,"1852,I75.021 ",.01)
- +332 ;;I75.021
- +333 ;;9002226.02101,"1852,I75.021 ",.02)
- +334 ;;I75.029
- +335 ;;9002226.02101,"1852,I75.021 ",.03)
- +336 ;;30
- +337 ;;9002226.02101,"1852,I75.81 ",.01)
- +338 ;;I75.81
- +339 ;;9002226.02101,"1852,I75.81 ",.02)
- +340 ;;I75.89
- +341 ;;9002226.02101,"1852,I75.81 ",.03)
- +342 ;;30
- +343 ;;9002226.02101,"1852,I77.71 ",.01)
- +344 ;;I77.71
- +345 ;;9002226.02101,"1852,I77.71 ",.02)
- +346 ;;I77.79
- +347 ;;9002226.02101,"1852,I77.71 ",.03)
- +348 ;;30
- +349 ;;9002226.02101,"1852,I79.8 ",.01)
- +350 ;;I79.8
- +351 ;;9002226.02101,"1852,I79.8 ",.02)
- +352 ;;I79.8
- +353 ;;9002226.02101,"1852,I79.8 ",.03)
- +354 ;;30
- +355 ;;9002226.02101,"1852,I80.10 ",.01)
- +356 ;;I80.10
- +357 ;;9002226.02101,"1852,I80.10 ",.02)
- +358 ;;I80.13
- +359 ;;9002226.02101,"1852,I80.10 ",.03)
- +360 ;;30
- +361 ;;9002226.02101,"1852,I80.201 ",.01)
- +362 ;;I80.201
- +363 ;;9002226.02101,"1852,I80.201 ",.02)
- +364 ;;I80.202
- +365 ;;9002226.02101,"1852,I80.201 ",.03)
- +366 ;;30
- +367 ;;9002226.02101,"1852,I80.209 ",.01)
- +368 ;;I80.209
- +369 ;;9002226.02101,"1852,I80.209 ",.02)
- +370 ;;I80.209
- +371 ;;9002226.02101,"1852,I80.209 ",.03)
- +372 ;;30
- +373 ;;9002226.02101,"1852,I80.221 ",.01)
- +374 ;;I80.221
- +375 ;;9002226.02101,"1852,I80.221 ",.02)
- +376 ;;I80.221
- +377 ;;9002226.02101,"1852,I80.221 ",.03)
- +378 ;;30
- +379 ;;9002226.02101,"1852,I80.223 ",.01)
- +380 ;;I80.223
- +381 ;;9002226.02101,"1852,I80.223 ",.02)
- +382 ;;I80.229
- +383 ;;9002226.02101,"1852,I80.223 ",.03)
- +384 ;;30
- +385 ;;9002226.02101,"1852,I80.231 ",.01)
- +386 ;;I80.231
- +387 ;;9002226.02101,"1852,I80.231 ",.02)
- +388 ;;I80.232
- +389 ;;9002226.02101,"1852,I80.231 ",.03)
- +390 ;;30
- +391 ;;9002226.02101,"1852,I80.239 ",.01)
- +392 ;;I80.239
- +393 ;;9002226.02101,"1852,I80.239 ",.02)
- +394 ;;I80.239
- +395 ;;9002226.02101,"1852,I80.239 ",.03)
- +396 ;;30
- +397 ;;9002226.02101,"1852,I80.291 ",.01)
- +398 ;;I80.291
- +399 ;;9002226.02101,"1852,I80.291 ",.02)
- +400 ;;I80.299
- +401 ;;9002226.02101,"1852,I80.291 ",.03)
- +402 ;;30
- +403 ;;9002226.02101,"1852,I97.0 ",.01)
- +404 ;;I97.0
- +405 ;;9002226.02101,"1852,I97.0 ",.02)
- +406 ;;I97.0
- +407 ;;9002226.02101,"1852,I97.0 ",.03)
- +408 ;;30
- +409 ;;9002226.02101,"1852,I97.110 ",.01)
- +410 ;;I97.110
- +411 ;;9002226.02101,"1852,I97.110 ",.02)
- +412 ;;I97.111
- +413 ;;9002226.02101,"1852,I97.110 ",.03)
- +414 ;;30
- +415 ;;9002226.02101,"1852,I97.120 ",.01)
- +416 ;;I97.120
- +417 ;;9002226.02101,"1852,I97.120 ",.02)
- +418 ;;I97.121
- +419 ;;9002226.02101,"1852,I97.120 ",.03)
- +420 ;;30
- +421 ;;9002226.02101,"1852,I97.130 ",.01)
- +422 ;;I97.130
- +423 ;;9002226.02101,"1852,I97.130 ",.02)
- +424 ;;I97.131
- +425 ;;9002226.02101,"1852,I97.130 ",.03)
- +426 ;;30
- +427 ;;9002226.02101,"1852,I97.190 ",.01)
- +428 ;;I97.190
- +429 ;;9002226.02101,"1852,I97.190 ",.02)
- +430 ;;I97.191
- +431 ;;9002226.02101,"1852,I97.190 ",.03)
- +432 ;;30
- +433 ;;9002226.02101,"1852,M32.11 ",.01)
- +434 ;;M32.11
- +435 ;;9002226.02101,"1852,M32.11 ",.02)
- +436 ;;M32.11
- +437 ;;9002226.02101,"1852,M32.11 ",.03)
- +438 ;;30
- +439 ;;9002226.02101,"1852,R00.1 ",.01)
- +440 ;;R00.1
- +441 ;;9002226.02101,"1852,R00.1 ",.02)
- +442 ;;R00.1
- +443 ;;9002226.02101,"1852,R00.1 ",.03)
- +444 ;;30
- +445 ;;9002226.02101,"1852,T80.0XXA ",.01)
- +446 ;;T80.0XXA
- +447 ;;9002226.02101,"1852,T80.0XXA ",.02)
- +448 ;;T80.0XXA
- +449 ;;9002226.02101,"1852,T80.0XXA ",.03)
- +450 ;;30
- +451 ;;9002226.02101,"1852,T81.718A ",.01)
- +452 ;;T81.718A
- +453 ;;9002226.02101,"1852,T81.718A ",.02)
- +454 ;;T81.718A
- +455 ;;9002226.02101,"1852,T81.718A ",.03)
- +456 ;;30
- +457 ;;9002226.02101,"1852,T81.72XA ",.01)
- +458 ;;T81.72XA
- +459 ;;9002226.02101,"1852,T81.72XA ",.02)
- +460 ;;T81.72XA
- +461 ;;9002226.02101,"1852,T81.72XA ",.03)
- +462 ;;30
- +463 ;;9002226.02101,"1852,T82.817A ",.01)
- +464 ;;T82.817A
- +465 ;;9002226.02101,"1852,T82.817A ",.02)
- +466 ;;T82.817A
- +467 ;;9002226.02101,"1852,T82.817A ",.03)
- +468 ;;30
- +469 ;;9002226.02101,"1852,T82.818A ",.01)
- +470 ;;T82.818A
- +471 ;;9002226.02101,"1852,T82.818A ",.02)
- +472 ;;T82.818A
- +473 ;;9002226.02101,"1852,T82.818A ",.03)
- +474 ;;30
- +475 ;;9002226.02101,"1852,V45.01 ",.01)
- +476 ;;V45.01
- +477 ;;9002226.02101,"1852,V45.01 ",.02)
- +478 ;;V45.01