ATXXA28 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON APR 29, 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)
;;21,"T63.814A ")
;;10391
;;21,"T63.821A ")
;;10392
;;21,"T63.822A ")
;;10393
;;21,"T63.823A ")
;;10394
;;21,"T63.824A ")
;;10395
;;21,"T63.831A ")
;;10396
;;21,"T63.832A ")
;;10397
;;21,"T63.833A ")
;;10398
;;21,"T63.834A ")
;;10399
;;21,"T63.891A ")
;;10400
;;21,"T63.892A ")
;;10401
;;21,"T63.893A ")
;;10402
;;21,"T63.894A ")
;;10403
;;21,"T63.91XA ")
;;10404
;;21,"T63.92XA ")
;;10405
;;21,"T63.93XA ")
;;10406
;;21,"T63.94XA ")
;;10407
;;21,"T64.01XA ")
;;10408
;;21,"T64.02XA ")
;;10409
;;21,"T64.03XA ")
;;10410
;;21,"T64.04XA ")
;;10411
;;21,"T64.81XA ")
;;10412
;;21,"T64.82XA ")
;;10413
;;21,"T64.83XA ")
;;10414
;;21,"T64.84XA ")
;;10415
;;21,"T65.0X1A ")
;;10416
;;21,"T65.0X2A ")
;;10417
;;21,"T65.0X3A ")
;;10418
;;21,"T65.0X4A ")
;;10419
;;21,"T65.1X1A ")
;;10420
;;21,"T65.1X2A ")
;;10421
;;21,"T65.1X3A ")
;;10422
;;21,"T65.1X4A ")
;;10423
;;21,"T65.211A ")
;;10424
;;21,"T65.212A ")
;;10425
;;21,"T65.213A ")
;;10426
;;21,"T65.214A ")
;;10427
;;21,"T65.221A ")
;;10428
;;21,"T65.222A ")
;;10429
;;21,"T65.223A ")
;;10430
;;21,"T65.224A ")
;;10431
;;21,"T65.291A ")
;;10432
;;21,"T65.292A ")
;;10433
;;21,"T65.293A ")
;;10434
;;21,"T65.294A ")
;;10435
;;21,"T65.3X1A ")
;;10436
;;21,"T65.3X2A ")
;;10437
;;21,"T65.3X3A ")
;;10438
;;21,"T65.3X4A ")
;;10439
;;21,"T65.4X1A ")
;;10440
;;21,"T65.4X2A ")
;;10441
;;21,"T65.4X3A ")
;;10442
;;21,"T65.4X4A ")
;;10443
;;21,"T65.5X1A ")
;;10444
;;21,"T65.5X2A ")
;;10445
;;21,"T65.5X3A ")
;;10446
;;21,"T65.5X4A ")
;;10447
;;21,"T65.6X1A ")
;;10448
;;21,"T65.6X2A ")
;;10449
;;21,"T65.6X3A ")
;;10450
;;21,"T65.6X4A ")
;;10451
;;21,"T65.811A ")
;;10452
;;21,"T65.812A ")
;;10453
;;21,"T65.813A ")
;;10454
;;21,"T65.814A ")
;;10455
;;21,"T65.821A ")
;;10456
;;21,"T65.822A ")
;;10457
;;21,"T65.823A ")
;;10458
;;21,"T65.824A ")
;;10459
;;21,"T65.831A ")
;;10460
;;21,"T65.832A ")
;;10461
;;21,"T65.833A ")
;;10462
;;21,"T65.834A ")
;;10463
;;21,"T65.891A ")
;;10464
;;21,"T65.892A ")
;;10465
;;21,"T65.893A ")
;;10466
;;21,"T65.894A ")
;;10467
;;21,"T65.91XA ")
;;10468
;;21,"T65.92XA ")
;;10469
;;21,"T65.93XA ")
;;10470
;;21,"T65.94XA ")
;;10471
;;21,"T66.XXXA ")
;;10472
;;21,"T67.0XXA ")
;;10473
;;21,"T67.1XXA ")
;;10474
;;21,"T67.2XXA ")
;;10475
;;21,"T67.3XXA ")
;;10476
;;21,"T67.4XXA ")
;;10477
;;21,"T67.5XXA ")
;;10478
;;21,"T67.6XXA ")
;;10479
;;21,"T67.7XXA ")
;;10480
;;21,"T67.8XXA ")
;;10481
;;21,"T67.9XXA ")
;;10482
;;21,"T68.XXXA ")
;;10483
;;21,"T69.011A ")
;;10484
;;21,"T69.012A ")
;;10485
;;21,"T69.019A ")
;;10486
;;21,"T69.021A ")
;;10487
;;21,"T69.022A ")
;;10488
;;21,"T69.029A ")
;;10489
;;21,"T69.1XXA ")
;;10490
;;21,"T69.8XXA ")
;;10491
;;21,"T69.9XXA ")
;;10492
;;21,"T70.0XXA ")
;;10493
;;21,"T70.1XXA ")
;;10494
;;21,"T70.20XA ")
;;10495
;;21,"T70.29XA ")
;;10496
;;21,"T70.3XXA ")
;;10497
;;21,"T70.4XXA ")
;;10498
;;21,"T70.8XXA ")
;;10499
;;21,"T70.9XXA ")
;;10500
;;21,"T71.111A ")
;;10501
;;21,"T71.112A ")
;;10502
;;21,"T71.113A ")
;;10503
;;21,"T71.114A ")
;;10504
;;21,"T71.121A ")
;;10505
;;21,"T71.122A ")
;;10506
;;21,"T71.123A ")
;;10507
;;21,"T71.124A ")
;;10508
;;21,"T71.131A ")
;;10509
;;21,"T71.132A ")
;;10510
;;21,"T71.133A ")
;;10511
;;21,"T71.134A ")
;;10512
;;21,"T71.141A ")
;;10513
;;21,"T71.143A ")
;;10514
;;21,"T71.144A ")
;;10515
;;21,"T71.151A ")
;;10516
;;21,"T71.152A ")
;;10517
;;21,"T71.153A ")
;;10518
;;21,"T71.154A ")
;;10519
;;21,"T71.161A ")
;;10520
;;21,"T71.162A ")
;;10521
;;21,"T71.163A ")
;;10522
;;21,"T71.164A ")
;;10523
;;21,"T71.191A ")
;;10524
;;21,"T71.192A ")
;;10525
;;21,"T71.193A ")
;;10526
;;21,"T71.194A ")
;;10527
;;21,"T71.20XA ")
;;10528
;;21,"T71.21XA ")
;;10529
;;21,"T71.221A ")
;;10530
;;21,"T71.222A ")
;;10531
;;21,"T71.223A ")
;;10532
;;21,"T71.224A ")
;;10533
;;21,"T71.231A ")
;;10534
;;21,"T71.232A ")
;;10535
;;21,"T71.233A ")
;;10536
;;21,"T71.234A ")
;;10537
;;21,"T71.29XA ")
;;10538
;;21,"T71.9XXA ")
;;10539
;;21,"T73.0XXA ")
;;10540
;;21,"T73.1XXA ")
;;10541
;;21,"T73.2XXA ")
;;10542
;;21,"T73.3XXA ")
;;10543
;;21,"T73.8XXA ")
;;10544
;;21,"T73.9XXA ")
;;10545
;;21,"T74.01XA ")
;;10546
;;21,"T74.02XA ")
;;10547
;;21,"T74.11XA ")
;;10548
;;21,"T74.12XA ")
;;10549
;;21,"T74.21XA ")
;;10550
;;21,"T74.22XA ")
;;10551
;;21,"T74.31XA ")
;;10552
;;21,"T74.32XA ")
;;10553
;;21,"T74.4XXA ")
;;10554
;;21,"T74.91XA ")
;;10555
;;21,"T74.92XA ")
;;10556
;;21,"T75.00XA ")
;;10557
;;21,"T75.01XA ")
;;10558
;;21,"T75.09XA ")
;;10559
;;21,"T75.1XXA ")
;;10560
;;21,"T75.20XA ")
;;10561
;;21,"T75.21XA ")
;;10562
;;21,"T75.22XA ")
;;10563
;;21,"T75.23XA ")
;;10564
;;21,"T75.29XA ")
;;10565
;;21,"T75.3XXA ")
;;10566
;;21,"T75.4XXA ")
;;10567
;;21,"T75.81XA ")
;;10568
;;21,"T75.82XA ")
;;10569
;;21,"T75.89XA ")
;;10570
;;21,"T76.01XA ")
;;10571
;;21,"T76.02XA ")
;;10572
;;21,"T76.11XA ")
;;10573
;;21,"T76.12XA ")
;;10574
;;21,"T76.21XA ")
;;10575
;;21,"T76.22XA ")
;;10576
;;21,"T76.31XA ")
;;10577
;;21,"T76.32XA ")
;;10578
;;21,"T76.91XA ")
;;10579
;;21,"T76.92XA ")
;;10580
;;21,"T79.0XXA ")
;;10581
;;21,"T79.1XXA ")
;;10582
;;21,"T79.2XXA ")
;;10583
;;21,"T79.4XXA ")
;;10584
;;21,"T79.5XXA ")
;;10585
;;21,"T79.6XXA ")
;;10586
;;21,"T79.7XXA ")
;;10587
;;21,"T79.8XXA ")
;;10588
;;21,"T79.9XXA ")
;;10589
;;21,"T79.A0XA ")
;;10590
;;21,"T79.A11A ")
;;10591
;;21,"T79.A12A ")
;;10592
;;21,"T79.A19A ")
;;10593
;;21,"T79.A21A ")
;;10594
;;21,"T79.A22A ")
;;10595
;;21,"T79.A29A ")
;;10596
;;21,"T79.A3XA ")
;;10597
;;21,"T79.A9XA ")
;;10598
;;9002226,873,.01)
;;BGP INJURY DIAGNOSES
;;9002226,873,.02)
;;@
;;9002226,873,.04)
;;n
;;9002226,873,.06)
;;@
;;9002226,873,.08)
;;0
;;9002226,873,.09)
;;3130515
;;9002226,873,.11)
;;@
;;9002226,873,.12)
;;31
;;9002226,873,.13)
;;1
;;9002226,873,.14)
;;@
;;9002226,873,.15)
;;80
;;9002226,873,.16)
;;@
;;9002226,873,.17)
;;@
;;9002226,873,3101)
;;@
;;9002226.02101,"873,800.00 ",.01)
;;800.00
;;9002226.02101,"873,800.00 ",.02)
;;999.9
;;9002226.02101,"873,800.00 ",.03)
;;1
;;9002226.02101,"873,S00.00XA ",.01)
;;S00.00XA
;;9002226.02101,"873,S00.00XA ",.02)
;;S00.00XA
;;9002226.02101,"873,S00.00XA ",.03)
;;30
;;9002226.02101,"873,S00.01XA ",.01)
;;S00.01XA
;;9002226.02101,"873,S00.01XA ",.02)
;;S00.01XA
;;9002226.02101,"873,S00.01XA ",.03)
;;30
;;9002226.02101,"873,S00.03XA ",.01)
;;S00.03XA
;;9002226.02101,"873,S00.03XA ",.02)
;;S00.03XA
;;9002226.02101,"873,S00.03XA ",.03)
;;30
;;9002226.02101,"873,S00.04XA ",.01)
;;S00.04XA
;;9002226.02101,"873,S00.04XA ",.02)
;;S00.04XA
;;9002226.02101,"873,S00.04XA ",.03)
;;30
;;9002226.02101,"873,S00.05XA ",.01)
;;S00.05XA
;;9002226.02101,"873,S00.05XA ",.02)
;;S00.05XA
;;9002226.02101,"873,S00.05XA ",.03)
;;30
;;9002226.02101,"873,S00.07XA ",.01)
;;S00.07XA
;;9002226.02101,"873,S00.07XA ",.02)
;;S00.07XA
;;9002226.02101,"873,S00.07XA ",.03)
;;30
;;9002226.02101,"873,S00.10XA ",.01)
;;S00.10XA
;;9002226.02101,"873,S00.10XA ",.02)
;;S00.10XA
;;9002226.02101,"873,S00.10XA ",.03)
;;30
;;9002226.02101,"873,S00.11XA ",.01)
;;S00.11XA
;;9002226.02101,"873,S00.11XA ",.02)
;;S00.11XA
;;9002226.02101,"873,S00.11XA ",.03)
;;30
;;9002226.02101,"873,S00.12XA ",.01)
;;S00.12XA
;;9002226.02101,"873,S00.12XA ",.02)
;;S00.12XA
;;9002226.02101,"873,S00.12XA ",.03)
;;30
;;9002226.02101,"873,S00.201A ",.01)
;;S00.201A
;;9002226.02101,"873,S00.201A ",.02)
;;S00.201A
;;9002226.02101,"873,S00.201A ",.03)
;;30
;;9002226.02101,"873,S00.202A ",.01)
;;S00.202A
;;9002226.02101,"873,S00.202A ",.02)
;;S00.202A
;;9002226.02101,"873,S00.202A ",.03)
;;30
;;9002226.02101,"873,S00.209A ",.01)
;;S00.209A
;;9002226.02101,"873,S00.209A ",.02)
;;S00.209A
;;9002226.02101,"873,S00.209A ",.03)
;;30
;;9002226.02101,"873,S00.211A ",.01)
;;S00.211A
;;9002226.02101,"873,S00.211A ",.02)
;;S00.211A
;;9002226.02101,"873,S00.211A ",.03)
;;30
;;9002226.02101,"873,S00.212A ",.01)
;;S00.212A
;;9002226.02101,"873,S00.212A ",.02)
;;S00.212A
;;9002226.02101,"873,S00.212A ",.03)
;;30
;;9002226.02101,"873,S00.219A ",.01)
;;S00.219A
;;9002226.02101,"873,S00.219A ",.02)
;;S00.219A
;;9002226.02101,"873,S00.219A ",.03)
;;30
;;9002226.02101,"873,S00.241A ",.01)
;;S00.241A
;;9002226.02101,"873,S00.241A ",.02)
;;S00.241A
;;9002226.02101,"873,S00.241A ",.03)
;;30
;;9002226.02101,"873,S00.242A ",.01)
;;S00.242A
;;9002226.02101,"873,S00.242A ",.02)
;;S00.242A
;;9002226.02101,"873,S00.242A ",.03)
;;30
;;9002226.02101,"873,S00.249A ",.01)
;;S00.249A
;;9002226.02101,"873,S00.249A ",.02)
;;S00.249A
;;9002226.02101,"873,S00.249A ",.03)
;;30
;;9002226.02101,"873,S00.251A ",.01)
;;S00.251A
;;9002226.02101,"873,S00.251A ",.02)
;;S00.251A
;;9002226.02101,"873,S00.251A ",.03)
;;30
;;9002226.02101,"873,S00.252A ",.01)
;;S00.252A
;;9002226.02101,"873,S00.252A ",.02)
;;S00.252A
;;9002226.02101,"873,S00.252A ",.03)
;;30
;;9002226.02101,"873,S00.259A ",.01)
;;S00.259A
;;9002226.02101,"873,S00.259A ",.02)
;;S00.259A
;;9002226.02101,"873,S00.259A ",.03)
;;30
;;9002226.02101,"873,S00.271A ",.01)
;;S00.271A
;;9002226.02101,"873,S00.271A ",.02)
;;S00.271A
;;9002226.02101,"873,S00.271A ",.03)
;;30
;;9002226.02101,"873,S00.272A ",.01)
;;S00.272A
;;9002226.02101,"873,S00.272A ",.02)
;;S00.272A
;;9002226.02101,"873,S00.272A ",.03)
;;30
;;9002226.02101,"873,S00.279A ",.01)
;;S00.279A
;;9002226.02101,"873,S00.279A ",.02)
;;S00.279A
;;9002226.02101,"873,S00.279A ",.03)
;;30
;;9002226.02101,"873,S00.30XA ",.01)
;;S00.30XA
;;9002226.02101,"873,S00.30XA ",.02)
;;S00.30XA
;;9002226.02101,"873,S00.30XA ",.03)
;;30
;;9002226.02101,"873,S00.31XA ",.01)
;;S00.31XA
;;9002226.02101,"873,S00.31XA ",.02)
;;S00.31XA
;;9002226.02101,"873,S00.31XA ",.03)
;;30
;;9002226.02101,"873,S00.33XA ",.01)
;;S00.33XA
;;9002226.02101,"873,S00.33XA ",.02)
;;S00.33XA
;;9002226.02101,"873,S00.33XA ",.03)
;;30
;;9002226.02101,"873,S00.34XA ",.01)
;;S00.34XA
;;9002226.02101,"873,S00.34XA ",.02)
;;S00.34XA
;;9002226.02101,"873,S00.34XA ",.03)
;;30
;;9002226.02101,"873,S00.35XA ",.01)
;;S00.35XA
;;9002226.02101,"873,S00.35XA ",.02)
;;S00.35XA
;;9002226.02101,"873,S00.35XA ",.03)
;;30
;;9002226.02101,"873,S00.37XA ",.01)
;;S00.37XA
;;9002226.02101,"873,S00.37XA ",.02)
;;S00.37XA
;;9002226.02101,"873,S00.37XA ",.03)
;;30
;;9002226.02101,"873,S00.401A ",.01)
;;S00.401A
;;9002226.02101,"873,S00.401A ",.02)
;;S00.401A
ATXXA28 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON APR 29, 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 ;;21,"T63.814A ")
+2 ;;10391
+3 ;;21,"T63.821A ")
+4 ;;10392
+5 ;;21,"T63.822A ")
+6 ;;10393
+7 ;;21,"T63.823A ")
+8 ;;10394
+9 ;;21,"T63.824A ")
+10 ;;10395
+11 ;;21,"T63.831A ")
+12 ;;10396
+13 ;;21,"T63.832A ")
+14 ;;10397
+15 ;;21,"T63.833A ")
+16 ;;10398
+17 ;;21,"T63.834A ")
+18 ;;10399
+19 ;;21,"T63.891A ")
+20 ;;10400
+21 ;;21,"T63.892A ")
+22 ;;10401
+23 ;;21,"T63.893A ")
+24 ;;10402
+25 ;;21,"T63.894A ")
+26 ;;10403
+27 ;;21,"T63.91XA ")
+28 ;;10404
+29 ;;21,"T63.92XA ")
+30 ;;10405
+31 ;;21,"T63.93XA ")
+32 ;;10406
+33 ;;21,"T63.94XA ")
+34 ;;10407
+35 ;;21,"T64.01XA ")
+36 ;;10408
+37 ;;21,"T64.02XA ")
+38 ;;10409
+39 ;;21,"T64.03XA ")
+40 ;;10410
+41 ;;21,"T64.04XA ")
+42 ;;10411
+43 ;;21,"T64.81XA ")
+44 ;;10412
+45 ;;21,"T64.82XA ")
+46 ;;10413
+47 ;;21,"T64.83XA ")
+48 ;;10414
+49 ;;21,"T64.84XA ")
+50 ;;10415
+51 ;;21,"T65.0X1A ")
+52 ;;10416
+53 ;;21,"T65.0X2A ")
+54 ;;10417
+55 ;;21,"T65.0X3A ")
+56 ;;10418
+57 ;;21,"T65.0X4A ")
+58 ;;10419
+59 ;;21,"T65.1X1A ")
+60 ;;10420
+61 ;;21,"T65.1X2A ")
+62 ;;10421
+63 ;;21,"T65.1X3A ")
+64 ;;10422
+65 ;;21,"T65.1X4A ")
+66 ;;10423
+67 ;;21,"T65.211A ")
+68 ;;10424
+69 ;;21,"T65.212A ")
+70 ;;10425
+71 ;;21,"T65.213A ")
+72 ;;10426
+73 ;;21,"T65.214A ")
+74 ;;10427
+75 ;;21,"T65.221A ")
+76 ;;10428
+77 ;;21,"T65.222A ")
+78 ;;10429
+79 ;;21,"T65.223A ")
+80 ;;10430
+81 ;;21,"T65.224A ")
+82 ;;10431
+83 ;;21,"T65.291A ")
+84 ;;10432
+85 ;;21,"T65.292A ")
+86 ;;10433
+87 ;;21,"T65.293A ")
+88 ;;10434
+89 ;;21,"T65.294A ")
+90 ;;10435
+91 ;;21,"T65.3X1A ")
+92 ;;10436
+93 ;;21,"T65.3X2A ")
+94 ;;10437
+95 ;;21,"T65.3X3A ")
+96 ;;10438
+97 ;;21,"T65.3X4A ")
+98 ;;10439
+99 ;;21,"T65.4X1A ")
+100 ;;10440
+101 ;;21,"T65.4X2A ")
+102 ;;10441
+103 ;;21,"T65.4X3A ")
+104 ;;10442
+105 ;;21,"T65.4X4A ")
+106 ;;10443
+107 ;;21,"T65.5X1A ")
+108 ;;10444
+109 ;;21,"T65.5X2A ")
+110 ;;10445
+111 ;;21,"T65.5X3A ")
+112 ;;10446
+113 ;;21,"T65.5X4A ")
+114 ;;10447
+115 ;;21,"T65.6X1A ")
+116 ;;10448
+117 ;;21,"T65.6X2A ")
+118 ;;10449
+119 ;;21,"T65.6X3A ")
+120 ;;10450
+121 ;;21,"T65.6X4A ")
+122 ;;10451
+123 ;;21,"T65.811A ")
+124 ;;10452
+125 ;;21,"T65.812A ")
+126 ;;10453
+127 ;;21,"T65.813A ")
+128 ;;10454
+129 ;;21,"T65.814A ")
+130 ;;10455
+131 ;;21,"T65.821A ")
+132 ;;10456
+133 ;;21,"T65.822A ")
+134 ;;10457
+135 ;;21,"T65.823A ")
+136 ;;10458
+137 ;;21,"T65.824A ")
+138 ;;10459
+139 ;;21,"T65.831A ")
+140 ;;10460
+141 ;;21,"T65.832A ")
+142 ;;10461
+143 ;;21,"T65.833A ")
+144 ;;10462
+145 ;;21,"T65.834A ")
+146 ;;10463
+147 ;;21,"T65.891A ")
+148 ;;10464
+149 ;;21,"T65.892A ")
+150 ;;10465
+151 ;;21,"T65.893A ")
+152 ;;10466
+153 ;;21,"T65.894A ")
+154 ;;10467
+155 ;;21,"T65.91XA ")
+156 ;;10468
+157 ;;21,"T65.92XA ")
+158 ;;10469
+159 ;;21,"T65.93XA ")
+160 ;;10470
+161 ;;21,"T65.94XA ")
+162 ;;10471
+163 ;;21,"T66.XXXA ")
+164 ;;10472
+165 ;;21,"T67.0XXA ")
+166 ;;10473
+167 ;;21,"T67.1XXA ")
+168 ;;10474
+169 ;;21,"T67.2XXA ")
+170 ;;10475
+171 ;;21,"T67.3XXA ")
+172 ;;10476
+173 ;;21,"T67.4XXA ")
+174 ;;10477
+175 ;;21,"T67.5XXA ")
+176 ;;10478
+177 ;;21,"T67.6XXA ")
+178 ;;10479
+179 ;;21,"T67.7XXA ")
+180 ;;10480
+181 ;;21,"T67.8XXA ")
+182 ;;10481
+183 ;;21,"T67.9XXA ")
+184 ;;10482
+185 ;;21,"T68.XXXA ")
+186 ;;10483
+187 ;;21,"T69.011A ")
+188 ;;10484
+189 ;;21,"T69.012A ")
+190 ;;10485
+191 ;;21,"T69.019A ")
+192 ;;10486
+193 ;;21,"T69.021A ")
+194 ;;10487
+195 ;;21,"T69.022A ")
+196 ;;10488
+197 ;;21,"T69.029A ")
+198 ;;10489
+199 ;;21,"T69.1XXA ")
+200 ;;10490
+201 ;;21,"T69.8XXA ")
+202 ;;10491
+203 ;;21,"T69.9XXA ")
+204 ;;10492
+205 ;;21,"T70.0XXA ")
+206 ;;10493
+207 ;;21,"T70.1XXA ")
+208 ;;10494
+209 ;;21,"T70.20XA ")
+210 ;;10495
+211 ;;21,"T70.29XA ")
+212 ;;10496
+213 ;;21,"T70.3XXA ")
+214 ;;10497
+215 ;;21,"T70.4XXA ")
+216 ;;10498
+217 ;;21,"T70.8XXA ")
+218 ;;10499
+219 ;;21,"T70.9XXA ")
+220 ;;10500
+221 ;;21,"T71.111A ")
+222 ;;10501
+223 ;;21,"T71.112A ")
+224 ;;10502
+225 ;;21,"T71.113A ")
+226 ;;10503
+227 ;;21,"T71.114A ")
+228 ;;10504
+229 ;;21,"T71.121A ")
+230 ;;10505
+231 ;;21,"T71.122A ")
+232 ;;10506
+233 ;;21,"T71.123A ")
+234 ;;10507
+235 ;;21,"T71.124A ")
+236 ;;10508
+237 ;;21,"T71.131A ")
+238 ;;10509
+239 ;;21,"T71.132A ")
+240 ;;10510
+241 ;;21,"T71.133A ")
+242 ;;10511
+243 ;;21,"T71.134A ")
+244 ;;10512
+245 ;;21,"T71.141A ")
+246 ;;10513
+247 ;;21,"T71.143A ")
+248 ;;10514
+249 ;;21,"T71.144A ")
+250 ;;10515
+251 ;;21,"T71.151A ")
+252 ;;10516
+253 ;;21,"T71.152A ")
+254 ;;10517
+255 ;;21,"T71.153A ")
+256 ;;10518
+257 ;;21,"T71.154A ")
+258 ;;10519
+259 ;;21,"T71.161A ")
+260 ;;10520
+261 ;;21,"T71.162A ")
+262 ;;10521
+263 ;;21,"T71.163A ")
+264 ;;10522
+265 ;;21,"T71.164A ")
+266 ;;10523
+267 ;;21,"T71.191A ")
+268 ;;10524
+269 ;;21,"T71.192A ")
+270 ;;10525
+271 ;;21,"T71.193A ")
+272 ;;10526
+273 ;;21,"T71.194A ")
+274 ;;10527
+275 ;;21,"T71.20XA ")
+276 ;;10528
+277 ;;21,"T71.21XA ")
+278 ;;10529
+279 ;;21,"T71.221A ")
+280 ;;10530
+281 ;;21,"T71.222A ")
+282 ;;10531
+283 ;;21,"T71.223A ")
+284 ;;10532
+285 ;;21,"T71.224A ")
+286 ;;10533
+287 ;;21,"T71.231A ")
+288 ;;10534
+289 ;;21,"T71.232A ")
+290 ;;10535
+291 ;;21,"T71.233A ")
+292 ;;10536
+293 ;;21,"T71.234A ")
+294 ;;10537
+295 ;;21,"T71.29XA ")
+296 ;;10538
+297 ;;21,"T71.9XXA ")
+298 ;;10539
+299 ;;21,"T73.0XXA ")
+300 ;;10540
+301 ;;21,"T73.1XXA ")
+302 ;;10541
+303 ;;21,"T73.2XXA ")
+304 ;;10542
+305 ;;21,"T73.3XXA ")
+306 ;;10543
+307 ;;21,"T73.8XXA ")
+308 ;;10544
+309 ;;21,"T73.9XXA ")
+310 ;;10545
+311 ;;21,"T74.01XA ")
+312 ;;10546
+313 ;;21,"T74.02XA ")
+314 ;;10547
+315 ;;21,"T74.11XA ")
+316 ;;10548
+317 ;;21,"T74.12XA ")
+318 ;;10549
+319 ;;21,"T74.21XA ")
+320 ;;10550
+321 ;;21,"T74.22XA ")
+322 ;;10551
+323 ;;21,"T74.31XA ")
+324 ;;10552
+325 ;;21,"T74.32XA ")
+326 ;;10553
+327 ;;21,"T74.4XXA ")
+328 ;;10554
+329 ;;21,"T74.91XA ")
+330 ;;10555
+331 ;;21,"T74.92XA ")
+332 ;;10556
+333 ;;21,"T75.00XA ")
+334 ;;10557
+335 ;;21,"T75.01XA ")
+336 ;;10558
+337 ;;21,"T75.09XA ")
+338 ;;10559
+339 ;;21,"T75.1XXA ")
+340 ;;10560
+341 ;;21,"T75.20XA ")
+342 ;;10561
+343 ;;21,"T75.21XA ")
+344 ;;10562
+345 ;;21,"T75.22XA ")
+346 ;;10563
+347 ;;21,"T75.23XA ")
+348 ;;10564
+349 ;;21,"T75.29XA ")
+350 ;;10565
+351 ;;21,"T75.3XXA ")
+352 ;;10566
+353 ;;21,"T75.4XXA ")
+354 ;;10567
+355 ;;21,"T75.81XA ")
+356 ;;10568
+357 ;;21,"T75.82XA ")
+358 ;;10569
+359 ;;21,"T75.89XA ")
+360 ;;10570
+361 ;;21,"T76.01XA ")
+362 ;;10571
+363 ;;21,"T76.02XA ")
+364 ;;10572
+365 ;;21,"T76.11XA ")
+366 ;;10573
+367 ;;21,"T76.12XA ")
+368 ;;10574
+369 ;;21,"T76.21XA ")
+370 ;;10575
+371 ;;21,"T76.22XA ")
+372 ;;10576
+373 ;;21,"T76.31XA ")
+374 ;;10577
+375 ;;21,"T76.32XA ")
+376 ;;10578
+377 ;;21,"T76.91XA ")
+378 ;;10579
+379 ;;21,"T76.92XA ")
+380 ;;10580
+381 ;;21,"T79.0XXA ")
+382 ;;10581
+383 ;;21,"T79.1XXA ")
+384 ;;10582
+385 ;;21,"T79.2XXA ")
+386 ;;10583
+387 ;;21,"T79.4XXA ")
+388 ;;10584
+389 ;;21,"T79.5XXA ")
+390 ;;10585
+391 ;;21,"T79.6XXA ")
+392 ;;10586
+393 ;;21,"T79.7XXA ")
+394 ;;10587
+395 ;;21,"T79.8XXA ")
+396 ;;10588
+397 ;;21,"T79.9XXA ")
+398 ;;10589
+399 ;;21,"T79.A0XA ")
+400 ;;10590
+401 ;;21,"T79.A11A ")
+402 ;;10591
+403 ;;21,"T79.A12A ")
+404 ;;10592
+405 ;;21,"T79.A19A ")
+406 ;;10593
+407 ;;21,"T79.A21A ")
+408 ;;10594
+409 ;;21,"T79.A22A ")
+410 ;;10595
+411 ;;21,"T79.A29A ")
+412 ;;10596
+413 ;;21,"T79.A3XA ")
+414 ;;10597
+415 ;;21,"T79.A9XA ")
+416 ;;10598
+417 ;;9002226,873,.01)
+418 ;;BGP INJURY DIAGNOSES
+419 ;;9002226,873,.02)
+420 ;;@
+421 ;;9002226,873,.04)
+422 ;;n
+423 ;;9002226,873,.06)
+424 ;;@
+425 ;;9002226,873,.08)
+426 ;;0
+427 ;;9002226,873,.09)
+428 ;;3130515
+429 ;;9002226,873,.11)
+430 ;;@
+431 ;;9002226,873,.12)
+432 ;;31
+433 ;;9002226,873,.13)
+434 ;;1
+435 ;;9002226,873,.14)
+436 ;;@
+437 ;;9002226,873,.15)
+438 ;;80
+439 ;;9002226,873,.16)
+440 ;;@
+441 ;;9002226,873,.17)
+442 ;;@
+443 ;;9002226,873,3101)
+444 ;;@
+445 ;;9002226.02101,"873,800.00 ",.01)
+446 ;;800.00
+447 ;;9002226.02101,"873,800.00 ",.02)
+448 ;;999.9
+449 ;;9002226.02101,"873,800.00 ",.03)
+450 ;;1
+451 ;;9002226.02101,"873,S00.00XA ",.01)
+452 ;;S00.00XA
+453 ;;9002226.02101,"873,S00.00XA ",.02)
+454 ;;S00.00XA
+455 ;;9002226.02101,"873,S00.00XA ",.03)
+456 ;;30
+457 ;;9002226.02101,"873,S00.01XA ",.01)
+458 ;;S00.01XA
+459 ;;9002226.02101,"873,S00.01XA ",.02)
+460 ;;S00.01XA
+461 ;;9002226.02101,"873,S00.01XA ",.03)
+462 ;;30
+463 ;;9002226.02101,"873,S00.03XA ",.01)
+464 ;;S00.03XA
+465 ;;9002226.02101,"873,S00.03XA ",.02)
+466 ;;S00.03XA
+467 ;;9002226.02101,"873,S00.03XA ",.03)
+468 ;;30
+469 ;;9002226.02101,"873,S00.04XA ",.01)
+470 ;;S00.04XA
+471 ;;9002226.02101,"873,S00.04XA ",.02)
+472 ;;S00.04XA
+473 ;;9002226.02101,"873,S00.04XA ",.03)
+474 ;;30
+475 ;;9002226.02101,"873,S00.05XA ",.01)
+476 ;;S00.05XA
+477 ;;9002226.02101,"873,S00.05XA ",.02)
+478 ;;S00.05XA
+479 ;;9002226.02101,"873,S00.05XA ",.03)
+480 ;;30
+481 ;;9002226.02101,"873,S00.07XA ",.01)
+482 ;;S00.07XA
+483 ;;9002226.02101,"873,S00.07XA ",.02)
+484 ;;S00.07XA
+485 ;;9002226.02101,"873,S00.07XA ",.03)
+486 ;;30
+487 ;;9002226.02101,"873,S00.10XA ",.01)
+488 ;;S00.10XA
+489 ;;9002226.02101,"873,S00.10XA ",.02)
+490 ;;S00.10XA
+491 ;;9002226.02101,"873,S00.10XA ",.03)
+492 ;;30
+493 ;;9002226.02101,"873,S00.11XA ",.01)
+494 ;;S00.11XA
+495 ;;9002226.02101,"873,S00.11XA ",.02)
+496 ;;S00.11XA
+497 ;;9002226.02101,"873,S00.11XA ",.03)
+498 ;;30
+499 ;;9002226.02101,"873,S00.12XA ",.01)
+500 ;;S00.12XA
+501 ;;9002226.02101,"873,S00.12XA ",.02)
+502 ;;S00.12XA
+503 ;;9002226.02101,"873,S00.12XA ",.03)
+504 ;;30
+505 ;;9002226.02101,"873,S00.201A ",.01)
+506 ;;S00.201A
+507 ;;9002226.02101,"873,S00.201A ",.02)
+508 ;;S00.201A
+509 ;;9002226.02101,"873,S00.201A ",.03)
+510 ;;30
+511 ;;9002226.02101,"873,S00.202A ",.01)
+512 ;;S00.202A
+513 ;;9002226.02101,"873,S00.202A ",.02)
+514 ;;S00.202A
+515 ;;9002226.02101,"873,S00.202A ",.03)
+516 ;;30
+517 ;;9002226.02101,"873,S00.209A ",.01)
+518 ;;S00.209A
+519 ;;9002226.02101,"873,S00.209A ",.02)
+520 ;;S00.209A
+521 ;;9002226.02101,"873,S00.209A ",.03)
+522 ;;30
+523 ;;9002226.02101,"873,S00.211A ",.01)
+524 ;;S00.211A
+525 ;;9002226.02101,"873,S00.211A ",.02)
+526 ;;S00.211A
+527 ;;9002226.02101,"873,S00.211A ",.03)
+528 ;;30
+529 ;;9002226.02101,"873,S00.212A ",.01)
+530 ;;S00.212A
+531 ;;9002226.02101,"873,S00.212A ",.02)
+532 ;;S00.212A
+533 ;;9002226.02101,"873,S00.212A ",.03)
+534 ;;30
+535 ;;9002226.02101,"873,S00.219A ",.01)
+536 ;;S00.219A
+537 ;;9002226.02101,"873,S00.219A ",.02)
+538 ;;S00.219A
+539 ;;9002226.02101,"873,S00.219A ",.03)
+540 ;;30
+541 ;;9002226.02101,"873,S00.241A ",.01)
+542 ;;S00.241A
+543 ;;9002226.02101,"873,S00.241A ",.02)
+544 ;;S00.241A
+545 ;;9002226.02101,"873,S00.241A ",.03)
+546 ;;30
+547 ;;9002226.02101,"873,S00.242A ",.01)
+548 ;;S00.242A
+549 ;;9002226.02101,"873,S00.242A ",.02)
+550 ;;S00.242A
+551 ;;9002226.02101,"873,S00.242A ",.03)
+552 ;;30
+553 ;;9002226.02101,"873,S00.249A ",.01)
+554 ;;S00.249A
+555 ;;9002226.02101,"873,S00.249A ",.02)
+556 ;;S00.249A
+557 ;;9002226.02101,"873,S00.249A ",.03)
+558 ;;30
+559 ;;9002226.02101,"873,S00.251A ",.01)
+560 ;;S00.251A
+561 ;;9002226.02101,"873,S00.251A ",.02)
+562 ;;S00.251A
+563 ;;9002226.02101,"873,S00.251A ",.03)
+564 ;;30
+565 ;;9002226.02101,"873,S00.252A ",.01)
+566 ;;S00.252A
+567 ;;9002226.02101,"873,S00.252A ",.02)
+568 ;;S00.252A
+569 ;;9002226.02101,"873,S00.252A ",.03)
+570 ;;30
+571 ;;9002226.02101,"873,S00.259A ",.01)
+572 ;;S00.259A
+573 ;;9002226.02101,"873,S00.259A ",.02)
+574 ;;S00.259A
+575 ;;9002226.02101,"873,S00.259A ",.03)
+576 ;;30
+577 ;;9002226.02101,"873,S00.271A ",.01)
+578 ;;S00.271A
+579 ;;9002226.02101,"873,S00.271A ",.02)
+580 ;;S00.271A
+581 ;;9002226.02101,"873,S00.271A ",.03)
+582 ;;30
+583 ;;9002226.02101,"873,S00.272A ",.01)
+584 ;;S00.272A
+585 ;;9002226.02101,"873,S00.272A ",.02)
+586 ;;S00.272A
+587 ;;9002226.02101,"873,S00.272A ",.03)
+588 ;;30
+589 ;;9002226.02101,"873,S00.279A ",.01)
+590 ;;S00.279A
+591 ;;9002226.02101,"873,S00.279A ",.02)
+592 ;;S00.279A
+593 ;;9002226.02101,"873,S00.279A ",.03)
+594 ;;30
+595 ;;9002226.02101,"873,S00.30XA ",.01)
+596 ;;S00.30XA
+597 ;;9002226.02101,"873,S00.30XA ",.02)
+598 ;;S00.30XA
+599 ;;9002226.02101,"873,S00.30XA ",.03)
+600 ;;30
+601 ;;9002226.02101,"873,S00.31XA ",.01)
+602 ;;S00.31XA
+603 ;;9002226.02101,"873,S00.31XA ",.02)
+604 ;;S00.31XA
+605 ;;9002226.02101,"873,S00.31XA ",.03)
+606 ;;30
+607 ;;9002226.02101,"873,S00.33XA ",.01)
+608 ;;S00.33XA
+609 ;;9002226.02101,"873,S00.33XA ",.02)
+610 ;;S00.33XA
+611 ;;9002226.02101,"873,S00.33XA ",.03)
+612 ;;30
+613 ;;9002226.02101,"873,S00.34XA ",.01)
+614 ;;S00.34XA
+615 ;;9002226.02101,"873,S00.34XA ",.02)
+616 ;;S00.34XA
+617 ;;9002226.02101,"873,S00.34XA ",.03)
+618 ;;30
+619 ;;9002226.02101,"873,S00.35XA ",.01)
+620 ;;S00.35XA
+621 ;;9002226.02101,"873,S00.35XA ",.02)
+622 ;;S00.35XA
+623 ;;9002226.02101,"873,S00.35XA ",.03)
+624 ;;30
+625 ;;9002226.02101,"873,S00.37XA ",.01)
+626 ;;S00.37XA
+627 ;;9002226.02101,"873,S00.37XA ",.02)
+628 ;;S00.37XA
+629 ;;9002226.02101,"873,S00.37XA ",.03)
+630 ;;30
+631 ;;9002226.02101,"873,S00.401A ",.01)
+632 ;;S00.401A
+633 ;;9002226.02101,"873,S00.401A ",.02)
+634 ;;S00.401A
