ATXFCD2 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON DEC 18, 2017;
;;5.1;TAXONOMY;**25**;FEB 04, 1997;Build 47
;
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,"C91.51 ")
;;427
;;21,"C91.52 ")
;;428
;;21,"C91.60 ")
;;429
;;21,"C91.61 ")
;;430
;;21,"C91.62 ")
;;431
;;21,"C91.90 ")
;;432
;;21,"C91.91 ")
;;433
;;21,"C91.92 ")
;;434
;;21,"C91.A0 ")
;;435
;;21,"C91.A1 ")
;;436
;;21,"C91.A2 ")
;;437
;;21,"C91.Z0 ")
;;438
;;21,"C91.Z1 ")
;;439
;;21,"C91.Z2 ")
;;440
;;21,"C92.00 ")
;;441
;;21,"C92.01 ")
;;442
;;21,"C92.02 ")
;;443
;;21,"C92.10 ")
;;444
;;21,"C92.11 ")
;;445
;;21,"C92.12 ")
;;446
;;21,"C92.20 ")
;;447
;;21,"C92.21 ")
;;448
;;21,"C92.22 ")
;;449
;;21,"C92.30 ")
;;450
;;21,"C92.31 ")
;;451
;;21,"C92.32 ")
;;452
;;21,"C92.40 ")
;;453
;;21,"C92.41 ")
;;454
;;21,"C92.42 ")
;;455
;;21,"C92.50 ")
;;456
;;21,"C92.51 ")
;;457
;;21,"C92.52 ")
;;458
;;21,"C92.60 ")
;;459
;;21,"C92.61 ")
;;460
;;21,"C92.62 ")
;;461
;;21,"C92.90 ")
;;462
;;21,"C92.91 ")
;;463
;;21,"C92.92 ")
;;464
;;21,"C92.A0 ")
;;465
;;21,"C92.A1 ")
;;466
;;21,"C92.A2 ")
;;467
;;21,"C92.Z0 ")
;;468
;;21,"C92.Z1 ")
;;469
;;21,"C92.Z2 ")
;;470
;;21,"C93.00 ")
;;471
;;21,"C93.01 ")
;;472
;;21,"C93.02 ")
;;473
;;21,"C93.10 ")
;;474
;;21,"C93.11 ")
;;475
;;21,"C93.12 ")
;;476
;;21,"C93.30 ")
;;477
;;21,"C93.31 ")
;;478
;;21,"C93.32 ")
;;479
;;21,"C93.90 ")
;;480
;;21,"C93.91 ")
;;481
;;21,"C93.92 ")
;;482
;;21,"C93.Z0 ")
;;483
;;21,"C93.Z1 ")
;;484
;;21,"C93.Z2 ")
;;485
;;21,"C94.00 ")
;;486
;;21,"C94.01 ")
;;487
;;21,"C94.02 ")
;;488
;;21,"C94.20 ")
;;489
;;21,"C94.21 ")
;;490
;;21,"C94.22 ")
;;491
;;21,"C94.30 ")
;;492
;;21,"C94.31 ")
;;493
;;21,"C94.32 ")
;;494
;;21,"C94.80 ")
;;495
;;21,"C94.81 ")
;;496
;;21,"C94.82 ")
;;497
;;21,"C95.00 ")
;;498
;;21,"C95.01 ")
;;499
;;21,"C95.02 ")
;;500
;;21,"C95.10 ")
;;501
;;21,"C95.11 ")
;;502
;;21,"C95.12 ")
;;503
;;21,"C95.90 ")
;;504
;;21,"C95.91 ")
;;505
;;21,"C95.92 ")
;;506
;;21,"C96.0 ")
;;507
;;21,"C96.2 ")
;;508
;;21,"C96.4 ")
;;509
;;21,"C96.5 ")
;;510
;;21,"C96.6 ")
;;511
;;21,"C96.9 ")
;;512
;;21,"C96.A ")
;;513
;;21,"C96.Z ")
;;514
;;9002226,2230,.01)
;;BGP IPC LYMPHATIC CANCER DXS
;;9002226,2230,.02)
;;@
;;9002226,2230,.04)
;;n
;;9002226,2230,.06)
;;@
;;9002226,2230,.08)
;;@
;;9002226,2230,.09)
;;3171218
;;9002226,2230,.11)
;;@
;;9002226,2230,.12)
;;31
;;9002226,2230,.13)
;;1
;;9002226,2230,.14)
;;@
;;9002226,2230,.15)
;;80
;;9002226,2230,.16)
;;@
;;9002226,2230,.17)
;;@
;;9002226,2230,.22)
;;1
;;9002226,2230,3101)
;;@
;;9002226.02101,"2230,C22.0 ",.01)
;;C22.0
;;9002226.02101,"2230,C22.0 ",.02)
;;C22.0
;;9002226.02101,"2230,C22.0 ",.03)
;;30
;;9002226.02101,"2230,C22.1 ",.01)
;;C22.1
;;9002226.02101,"2230,C22.1 ",.02)
;;C22.1
;;9002226.02101,"2230,C22.1 ",.03)
;;30
;;9002226.02101,"2230,C22.2 ",.01)
;;C22.2
;;9002226.02101,"2230,C22.2 ",.02)
;;C22.2
;;9002226.02101,"2230,C22.2 ",.03)
;;30
;;9002226.02101,"2230,C22.3 ",.01)
;;C22.3
;;9002226.02101,"2230,C22.3 ",.02)
;;C22.3
;;9002226.02101,"2230,C22.3 ",.03)
;;30
;;9002226.02101,"2230,C22.4 ",.01)
;;C22.4
;;9002226.02101,"2230,C22.4 ",.02)
;;C22.4
;;9002226.02101,"2230,C22.4 ",.03)
;;30
;;9002226.02101,"2230,C22.7 ",.01)
;;C22.7
;;9002226.02101,"2230,C22.7 ",.02)
;;C22.7
;;9002226.02101,"2230,C22.7 ",.03)
;;30
;;9002226.02101,"2230,C22.8 ",.01)
;;C22.8
;;9002226.02101,"2230,C22.8 ",.02)
;;C22.8
;;9002226.02101,"2230,C22.8 ",.03)
;;30
;;9002226.02101,"2230,C22.9 ",.01)
;;C22.9
;;9002226.02101,"2230,C22.9 ",.02)
;;C22.9
;;9002226.02101,"2230,C22.9 ",.03)
;;30
;;9002226.02101,"2230,C23. ",.01)
;;C23.
;;9002226.02101,"2230,C23. ",.02)
;;C23.
;;9002226.02101,"2230,C23. ",.03)
;;30
;;9002226.02101,"2230,C24.0 ",.01)
;;C24.0
;;9002226.02101,"2230,C24.0 ",.02)
;;C24.0
;;9002226.02101,"2230,C24.0 ",.03)
;;30
;;9002226.02101,"2230,C24.1 ",.01)
;;C24.1
;;9002226.02101,"2230,C24.1 ",.02)
;;C24.1
;;9002226.02101,"2230,C24.1 ",.03)
;;30
;;9002226.02101,"2230,C24.8 ",.01)
;;C24.8
;;9002226.02101,"2230,C24.8 ",.02)
;;C24.8
;;9002226.02101,"2230,C24.8 ",.03)
;;30
;;9002226.02101,"2230,C24.9 ",.01)
;;C24.9
;;9002226.02101,"2230,C24.9 ",.02)
;;C24.9
;;9002226.02101,"2230,C24.9 ",.03)
;;30
;;9002226.02101,"2230,C25.0 ",.01)
;;C25.0
;;9002226.02101,"2230,C25.0 ",.02)
;;C25.0
;;9002226.02101,"2230,C25.0 ",.03)
;;30
;;9002226.02101,"2230,C25.1 ",.01)
;;C25.1
;;9002226.02101,"2230,C25.1 ",.02)
;;C25.1
;;9002226.02101,"2230,C25.1 ",.03)
;;30
;;9002226.02101,"2230,C25.2 ",.01)
;;C25.2
;;9002226.02101,"2230,C25.2 ",.02)
;;C25.2
;;9002226.02101,"2230,C25.2 ",.03)
;;30
;;9002226.02101,"2230,C25.3 ",.01)
;;C25.3
;;9002226.02101,"2230,C25.3 ",.02)
;;C25.3
;;9002226.02101,"2230,C25.3 ",.03)
;;30
;;9002226.02101,"2230,C25.4 ",.01)
;;C25.4
;;9002226.02101,"2230,C25.4 ",.02)
;;C25.4
;;9002226.02101,"2230,C25.4 ",.03)
;;30
;;9002226.02101,"2230,C25.7 ",.01)
;;C25.7
;;9002226.02101,"2230,C25.7 ",.02)
;;C25.7
;;9002226.02101,"2230,C25.7 ",.03)
;;30
;;9002226.02101,"2230,C25.8 ",.01)
;;C25.8
;;9002226.02101,"2230,C25.8 ",.02)
;;C25.8
;;9002226.02101,"2230,C25.8 ",.03)
;;30
;;9002226.02101,"2230,C25.9 ",.01)
;;C25.9
;;9002226.02101,"2230,C25.9 ",.02)
;;C25.9
;;9002226.02101,"2230,C25.9 ",.03)
;;30
;;9002226.02101,"2230,C46.0 ",.01)
;;C46.0
;;9002226.02101,"2230,C46.0 ",.02)
;;C46.0
;;9002226.02101,"2230,C46.0 ",.03)
;;30
;;9002226.02101,"2230,C46.1 ",.01)
;;C46.1
;;9002226.02101,"2230,C46.1 ",.02)
;;C46.1
;;9002226.02101,"2230,C46.1 ",.03)
;;30
;;9002226.02101,"2230,C46.2 ",.01)
;;C46.2
;;9002226.02101,"2230,C46.2 ",.02)
;;C46.2
;;9002226.02101,"2230,C46.2 ",.03)
;;30
;;9002226.02101,"2230,C46.3 ",.01)
;;C46.3
;;9002226.02101,"2230,C46.3 ",.02)
;;C46.3
;;9002226.02101,"2230,C46.3 ",.03)
;;30
;;9002226.02101,"2230,C46.4 ",.01)
;;C46.4
;;9002226.02101,"2230,C46.4 ",.02)
;;C46.4
;;9002226.02101,"2230,C46.4 ",.03)
;;30
;;9002226.02101,"2230,C46.50 ",.01)
;;C46.50
;;9002226.02101,"2230,C46.50 ",.02)
;;C46.50
;;9002226.02101,"2230,C46.50 ",.03)
;;30
;;9002226.02101,"2230,C46.51 ",.01)
;;C46.51
;;9002226.02101,"2230,C46.51 ",.02)
;;C46.51
;;9002226.02101,"2230,C46.51 ",.03)
;;30
;;9002226.02101,"2230,C46.52 ",.01)
;;C46.52
;;9002226.02101,"2230,C46.52 ",.02)
;;C46.52
;;9002226.02101,"2230,C46.52 ",.03)
;;30
;;9002226.02101,"2230,C46.7 ",.01)
;;C46.7
;;9002226.02101,"2230,C46.7 ",.02)
;;C46.7
;;9002226.02101,"2230,C46.7 ",.03)
;;30
;;9002226.02101,"2230,C46.9 ",.01)
;;C46.9
;;9002226.02101,"2230,C46.9 ",.02)
;;C46.9
;;9002226.02101,"2230,C46.9 ",.03)
;;30
;;9002226.02101,"2230,C7B.01 ",.01)
;;C7B.01
;;9002226.02101,"2230,C7B.01 ",.02)
;;C7B.01
;;9002226.02101,"2230,C7B.01 ",.03)
;;30
;;9002226.02101,"2230,C7B.02 ",.01)
;;C7B.02
;;9002226.02101,"2230,C7B.02 ",.02)
;;C7B.02
;;9002226.02101,"2230,C7B.02 ",.03)
;;30
;;9002226.02101,"2230,C81.00 ",.01)
;;C81.00
;;9002226.02101,"2230,C81.00 ",.02)
;;C81.00
;;9002226.02101,"2230,C81.00 ",.03)
;;30
;;9002226.02101,"2230,C81.01 ",.01)
;;C81.01
;;9002226.02101,"2230,C81.01 ",.02)
;;C81.01
;;9002226.02101,"2230,C81.01 ",.03)
;;30
;;9002226.02101,"2230,C81.02 ",.01)
;;C81.02
;;9002226.02101,"2230,C81.02 ",.02)
;;C81.02
;;9002226.02101,"2230,C81.02 ",.03)
;;30
;;9002226.02101,"2230,C81.03 ",.01)
;;C81.03
;;9002226.02101,"2230,C81.03 ",.02)
;;C81.03
;;9002226.02101,"2230,C81.03 ",.03)
;;30
;;9002226.02101,"2230,C81.04 ",.01)
;;C81.04
;;9002226.02101,"2230,C81.04 ",.02)
;;C81.04
;;9002226.02101,"2230,C81.04 ",.03)
;;30
;;9002226.02101,"2230,C81.05 ",.01)
;;C81.05
;;9002226.02101,"2230,C81.05 ",.02)
;;C81.05
;;9002226.02101,"2230,C81.05 ",.03)
;;30
;;9002226.02101,"2230,C81.06 ",.01)
;;C81.06
;;9002226.02101,"2230,C81.06 ",.02)
;;C81.06
;;9002226.02101,"2230,C81.06 ",.03)
;;30
;;9002226.02101,"2230,C81.07 ",.01)
;;C81.07
;;9002226.02101,"2230,C81.07 ",.02)
;;C81.07
;;9002226.02101,"2230,C81.07 ",.03)
;;30
;;9002226.02101,"2230,C81.08 ",.01)
;;C81.08
;;9002226.02101,"2230,C81.08 ",.02)
;;C81.08
;;9002226.02101,"2230,C81.08 ",.03)
;;30
;;9002226.02101,"2230,C81.09 ",.01)
;;C81.09
;;9002226.02101,"2230,C81.09 ",.02)
;;C81.09
;;9002226.02101,"2230,C81.09 ",.03)
;;30
;;9002226.02101,"2230,C81.10 ",.01)
;;C81.10
;;9002226.02101,"2230,C81.10 ",.02)
;;C81.10
;;9002226.02101,"2230,C81.10 ",.03)
;;30
;;9002226.02101,"2230,C81.11 ",.01)
;;C81.11
;;9002226.02101,"2230,C81.11 ",.02)
;;C81.11
;;9002226.02101,"2230,C81.11 ",.03)
;;30
;;9002226.02101,"2230,C81.12 ",.01)
;;C81.12
;;9002226.02101,"2230,C81.12 ",.02)
;;C81.12
;;9002226.02101,"2230,C81.12 ",.03)
;;30
;;9002226.02101,"2230,C81.13 ",.01)
;;C81.13
;;9002226.02101,"2230,C81.13 ",.02)
;;C81.13
;;9002226.02101,"2230,C81.13 ",.03)
;;30
;;9002226.02101,"2230,C81.14 ",.01)
;;C81.14
;;9002226.02101,"2230,C81.14 ",.02)
;;C81.14
;;9002226.02101,"2230,C81.14 ",.03)
;;30
;;9002226.02101,"2230,C81.15 ",.01)
;;C81.15
;;9002226.02101,"2230,C81.15 ",.02)
;;C81.15
;;9002226.02101,"2230,C81.15 ",.03)
;;30
;;9002226.02101,"2230,C81.16 ",.01)
;;C81.16
;;9002226.02101,"2230,C81.16 ",.02)
;;C81.16
;;9002226.02101,"2230,C81.16 ",.03)
;;30
;;9002226.02101,"2230,C81.17 ",.01)
;;C81.17
;;9002226.02101,"2230,C81.17 ",.02)
;;C81.17
;;9002226.02101,"2230,C81.17 ",.03)
;;30
;;9002226.02101,"2230,C81.18 ",.01)
;;C81.18
;;9002226.02101,"2230,C81.18 ",.02)
;;C81.18
;;9002226.02101,"2230,C81.18 ",.03)
;;30
;;9002226.02101,"2230,C81.19 ",.01)
;;C81.19
;;9002226.02101,"2230,C81.19 ",.02)
;;C81.19
;;9002226.02101,"2230,C81.19 ",.03)
;;30
;;9002226.02101,"2230,C81.20 ",.01)
;;C81.20
;;9002226.02101,"2230,C81.20 ",.02)
;;C81.20
;;9002226.02101,"2230,C81.20 ",.03)
;;30
;;9002226.02101,"2230,C81.21 ",.01)
;;C81.21
;;9002226.02101,"2230,C81.21 ",.02)
;;C81.21
;;9002226.02101,"2230,C81.21 ",.03)
;;30
;;9002226.02101,"2230,C81.22 ",.01)
;;C81.22
;;9002226.02101,"2230,C81.22 ",.02)
;;C81.22
;;9002226.02101,"2230,C81.22 ",.03)
;;30
;;9002226.02101,"2230,C81.23 ",.01)
;;C81.23
;;9002226.02101,"2230,C81.23 ",.02)
;;C81.23
;;9002226.02101,"2230,C81.23 ",.03)
;;30
;;9002226.02101,"2230,C81.24 ",.01)
;;C81.24
;;9002226.02101,"2230,C81.24 ",.02)
;;C81.24
;;9002226.02101,"2230,C81.24 ",.03)
;;30
;;9002226.02101,"2230,C81.25 ",.01)
;;C81.25
;;9002226.02101,"2230,C81.25 ",.02)
;;C81.25
;;9002226.02101,"2230,C81.25 ",.03)
;;30
;;9002226.02101,"2230,C81.26 ",.01)
;;C81.26
;;9002226.02101,"2230,C81.26 ",.02)
;;C81.26
;;9002226.02101,"2230,C81.26 ",.03)
;;30
;;9002226.02101,"2230,C81.27 ",.01)
;;C81.27
;;9002226.02101,"2230,C81.27 ",.02)
;;C81.27
;;9002226.02101,"2230,C81.27 ",.03)
;;30
;;9002226.02101,"2230,C81.28 ",.01)
;;C81.28
;;9002226.02101,"2230,C81.28 ",.02)
;;C81.28
ATXFCD2 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON DEC 18, 2017;
+1 ;;5.1;TAXONOMY;**25**;FEB 04, 1997;Build 47
+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,"C91.51 ")
+2 ;;427
+3 ;;21,"C91.52 ")
+4 ;;428
+5 ;;21,"C91.60 ")
+6 ;;429
+7 ;;21,"C91.61 ")
+8 ;;430
+9 ;;21,"C91.62 ")
+10 ;;431
+11 ;;21,"C91.90 ")
+12 ;;432
+13 ;;21,"C91.91 ")
+14 ;;433
+15 ;;21,"C91.92 ")
+16 ;;434
+17 ;;21,"C91.A0 ")
+18 ;;435
+19 ;;21,"C91.A1 ")
+20 ;;436
+21 ;;21,"C91.A2 ")
+22 ;;437
+23 ;;21,"C91.Z0 ")
+24 ;;438
+25 ;;21,"C91.Z1 ")
+26 ;;439
+27 ;;21,"C91.Z2 ")
+28 ;;440
+29 ;;21,"C92.00 ")
+30 ;;441
+31 ;;21,"C92.01 ")
+32 ;;442
+33 ;;21,"C92.02 ")
+34 ;;443
+35 ;;21,"C92.10 ")
+36 ;;444
+37 ;;21,"C92.11 ")
+38 ;;445
+39 ;;21,"C92.12 ")
+40 ;;446
+41 ;;21,"C92.20 ")
+42 ;;447
+43 ;;21,"C92.21 ")
+44 ;;448
+45 ;;21,"C92.22 ")
+46 ;;449
+47 ;;21,"C92.30 ")
+48 ;;450
+49 ;;21,"C92.31 ")
+50 ;;451
+51 ;;21,"C92.32 ")
+52 ;;452
+53 ;;21,"C92.40 ")
+54 ;;453
+55 ;;21,"C92.41 ")
+56 ;;454
+57 ;;21,"C92.42 ")
+58 ;;455
+59 ;;21,"C92.50 ")
+60 ;;456
+61 ;;21,"C92.51 ")
+62 ;;457
+63 ;;21,"C92.52 ")
+64 ;;458
+65 ;;21,"C92.60 ")
+66 ;;459
+67 ;;21,"C92.61 ")
+68 ;;460
+69 ;;21,"C92.62 ")
+70 ;;461
+71 ;;21,"C92.90 ")
+72 ;;462
+73 ;;21,"C92.91 ")
+74 ;;463
+75 ;;21,"C92.92 ")
+76 ;;464
+77 ;;21,"C92.A0 ")
+78 ;;465
+79 ;;21,"C92.A1 ")
+80 ;;466
+81 ;;21,"C92.A2 ")
+82 ;;467
+83 ;;21,"C92.Z0 ")
+84 ;;468
+85 ;;21,"C92.Z1 ")
+86 ;;469
+87 ;;21,"C92.Z2 ")
+88 ;;470
+89 ;;21,"C93.00 ")
+90 ;;471
+91 ;;21,"C93.01 ")
+92 ;;472
+93 ;;21,"C93.02 ")
+94 ;;473
+95 ;;21,"C93.10 ")
+96 ;;474
+97 ;;21,"C93.11 ")
+98 ;;475
+99 ;;21,"C93.12 ")
+100 ;;476
+101 ;;21,"C93.30 ")
+102 ;;477
+103 ;;21,"C93.31 ")
+104 ;;478
+105 ;;21,"C93.32 ")
+106 ;;479
+107 ;;21,"C93.90 ")
+108 ;;480
+109 ;;21,"C93.91 ")
+110 ;;481
+111 ;;21,"C93.92 ")
+112 ;;482
+113 ;;21,"C93.Z0 ")
+114 ;;483
+115 ;;21,"C93.Z1 ")
+116 ;;484
+117 ;;21,"C93.Z2 ")
+118 ;;485
+119 ;;21,"C94.00 ")
+120 ;;486
+121 ;;21,"C94.01 ")
+122 ;;487
+123 ;;21,"C94.02 ")
+124 ;;488
+125 ;;21,"C94.20 ")
+126 ;;489
+127 ;;21,"C94.21 ")
+128 ;;490
+129 ;;21,"C94.22 ")
+130 ;;491
+131 ;;21,"C94.30 ")
+132 ;;492
+133 ;;21,"C94.31 ")
+134 ;;493
+135 ;;21,"C94.32 ")
+136 ;;494
+137 ;;21,"C94.80 ")
+138 ;;495
+139 ;;21,"C94.81 ")
+140 ;;496
+141 ;;21,"C94.82 ")
+142 ;;497
+143 ;;21,"C95.00 ")
+144 ;;498
+145 ;;21,"C95.01 ")
+146 ;;499
+147 ;;21,"C95.02 ")
+148 ;;500
+149 ;;21,"C95.10 ")
+150 ;;501
+151 ;;21,"C95.11 ")
+152 ;;502
+153 ;;21,"C95.12 ")
+154 ;;503
+155 ;;21,"C95.90 ")
+156 ;;504
+157 ;;21,"C95.91 ")
+158 ;;505
+159 ;;21,"C95.92 ")
+160 ;;506
+161 ;;21,"C96.0 ")
+162 ;;507
+163 ;;21,"C96.2 ")
+164 ;;508
+165 ;;21,"C96.4 ")
+166 ;;509
+167 ;;21,"C96.5 ")
+168 ;;510
+169 ;;21,"C96.6 ")
+170 ;;511
+171 ;;21,"C96.9 ")
+172 ;;512
+173 ;;21,"C96.A ")
+174 ;;513
+175 ;;21,"C96.Z ")
+176 ;;514
+177 ;;9002226,2230,.01)
+178 ;;BGP IPC LYMPHATIC CANCER DXS
+179 ;;9002226,2230,.02)
+180 ;;@
+181 ;;9002226,2230,.04)
+182 ;;n
+183 ;;9002226,2230,.06)
+184 ;;@
+185 ;;9002226,2230,.08)
+186 ;;@
+187 ;;9002226,2230,.09)
+188 ;;3171218
+189 ;;9002226,2230,.11)
+190 ;;@
+191 ;;9002226,2230,.12)
+192 ;;31
+193 ;;9002226,2230,.13)
+194 ;;1
+195 ;;9002226,2230,.14)
+196 ;;@
+197 ;;9002226,2230,.15)
+198 ;;80
+199 ;;9002226,2230,.16)
+200 ;;@
+201 ;;9002226,2230,.17)
+202 ;;@
+203 ;;9002226,2230,.22)
+204 ;;1
+205 ;;9002226,2230,3101)
+206 ;;@
+207 ;;9002226.02101,"2230,C22.0 ",.01)
+208 ;;C22.0
+209 ;;9002226.02101,"2230,C22.0 ",.02)
+210 ;;C22.0
+211 ;;9002226.02101,"2230,C22.0 ",.03)
+212 ;;30
+213 ;;9002226.02101,"2230,C22.1 ",.01)
+214 ;;C22.1
+215 ;;9002226.02101,"2230,C22.1 ",.02)
+216 ;;C22.1
+217 ;;9002226.02101,"2230,C22.1 ",.03)
+218 ;;30
+219 ;;9002226.02101,"2230,C22.2 ",.01)
+220 ;;C22.2
+221 ;;9002226.02101,"2230,C22.2 ",.02)
+222 ;;C22.2
+223 ;;9002226.02101,"2230,C22.2 ",.03)
+224 ;;30
+225 ;;9002226.02101,"2230,C22.3 ",.01)
+226 ;;C22.3
+227 ;;9002226.02101,"2230,C22.3 ",.02)
+228 ;;C22.3
+229 ;;9002226.02101,"2230,C22.3 ",.03)
+230 ;;30
+231 ;;9002226.02101,"2230,C22.4 ",.01)
+232 ;;C22.4
+233 ;;9002226.02101,"2230,C22.4 ",.02)
+234 ;;C22.4
+235 ;;9002226.02101,"2230,C22.4 ",.03)
+236 ;;30
+237 ;;9002226.02101,"2230,C22.7 ",.01)
+238 ;;C22.7
+239 ;;9002226.02101,"2230,C22.7 ",.02)
+240 ;;C22.7
+241 ;;9002226.02101,"2230,C22.7 ",.03)
+242 ;;30
+243 ;;9002226.02101,"2230,C22.8 ",.01)
+244 ;;C22.8
+245 ;;9002226.02101,"2230,C22.8 ",.02)
+246 ;;C22.8
+247 ;;9002226.02101,"2230,C22.8 ",.03)
+248 ;;30
+249 ;;9002226.02101,"2230,C22.9 ",.01)
+250 ;;C22.9
+251 ;;9002226.02101,"2230,C22.9 ",.02)
+252 ;;C22.9
+253 ;;9002226.02101,"2230,C22.9 ",.03)
+254 ;;30
+255 ;;9002226.02101,"2230,C23. ",.01)
+256 ;;C23.
+257 ;;9002226.02101,"2230,C23. ",.02)
+258 ;;C23.
+259 ;;9002226.02101,"2230,C23. ",.03)
+260 ;;30
+261 ;;9002226.02101,"2230,C24.0 ",.01)
+262 ;;C24.0
+263 ;;9002226.02101,"2230,C24.0 ",.02)
+264 ;;C24.0
+265 ;;9002226.02101,"2230,C24.0 ",.03)
+266 ;;30
+267 ;;9002226.02101,"2230,C24.1 ",.01)
+268 ;;C24.1
+269 ;;9002226.02101,"2230,C24.1 ",.02)
+270 ;;C24.1
+271 ;;9002226.02101,"2230,C24.1 ",.03)
+272 ;;30
+273 ;;9002226.02101,"2230,C24.8 ",.01)
+274 ;;C24.8
+275 ;;9002226.02101,"2230,C24.8 ",.02)
+276 ;;C24.8
+277 ;;9002226.02101,"2230,C24.8 ",.03)
+278 ;;30
+279 ;;9002226.02101,"2230,C24.9 ",.01)
+280 ;;C24.9
+281 ;;9002226.02101,"2230,C24.9 ",.02)
+282 ;;C24.9
+283 ;;9002226.02101,"2230,C24.9 ",.03)
+284 ;;30
+285 ;;9002226.02101,"2230,C25.0 ",.01)
+286 ;;C25.0
+287 ;;9002226.02101,"2230,C25.0 ",.02)
+288 ;;C25.0
+289 ;;9002226.02101,"2230,C25.0 ",.03)
+290 ;;30
+291 ;;9002226.02101,"2230,C25.1 ",.01)
+292 ;;C25.1
+293 ;;9002226.02101,"2230,C25.1 ",.02)
+294 ;;C25.1
+295 ;;9002226.02101,"2230,C25.1 ",.03)
+296 ;;30
+297 ;;9002226.02101,"2230,C25.2 ",.01)
+298 ;;C25.2
+299 ;;9002226.02101,"2230,C25.2 ",.02)
+300 ;;C25.2
+301 ;;9002226.02101,"2230,C25.2 ",.03)
+302 ;;30
+303 ;;9002226.02101,"2230,C25.3 ",.01)
+304 ;;C25.3
+305 ;;9002226.02101,"2230,C25.3 ",.02)
+306 ;;C25.3
+307 ;;9002226.02101,"2230,C25.3 ",.03)
+308 ;;30
+309 ;;9002226.02101,"2230,C25.4 ",.01)
+310 ;;C25.4
+311 ;;9002226.02101,"2230,C25.4 ",.02)
+312 ;;C25.4
+313 ;;9002226.02101,"2230,C25.4 ",.03)
+314 ;;30
+315 ;;9002226.02101,"2230,C25.7 ",.01)
+316 ;;C25.7
+317 ;;9002226.02101,"2230,C25.7 ",.02)
+318 ;;C25.7
+319 ;;9002226.02101,"2230,C25.7 ",.03)
+320 ;;30
+321 ;;9002226.02101,"2230,C25.8 ",.01)
+322 ;;C25.8
+323 ;;9002226.02101,"2230,C25.8 ",.02)
+324 ;;C25.8
+325 ;;9002226.02101,"2230,C25.8 ",.03)
+326 ;;30
+327 ;;9002226.02101,"2230,C25.9 ",.01)
+328 ;;C25.9
+329 ;;9002226.02101,"2230,C25.9 ",.02)
+330 ;;C25.9
+331 ;;9002226.02101,"2230,C25.9 ",.03)
+332 ;;30
+333 ;;9002226.02101,"2230,C46.0 ",.01)
+334 ;;C46.0
+335 ;;9002226.02101,"2230,C46.0 ",.02)
+336 ;;C46.0
+337 ;;9002226.02101,"2230,C46.0 ",.03)
+338 ;;30
+339 ;;9002226.02101,"2230,C46.1 ",.01)
+340 ;;C46.1
+341 ;;9002226.02101,"2230,C46.1 ",.02)
+342 ;;C46.1
+343 ;;9002226.02101,"2230,C46.1 ",.03)
+344 ;;30
+345 ;;9002226.02101,"2230,C46.2 ",.01)
+346 ;;C46.2
+347 ;;9002226.02101,"2230,C46.2 ",.02)
+348 ;;C46.2
+349 ;;9002226.02101,"2230,C46.2 ",.03)
+350 ;;30
+351 ;;9002226.02101,"2230,C46.3 ",.01)
+352 ;;C46.3
+353 ;;9002226.02101,"2230,C46.3 ",.02)
+354 ;;C46.3
+355 ;;9002226.02101,"2230,C46.3 ",.03)
+356 ;;30
+357 ;;9002226.02101,"2230,C46.4 ",.01)
+358 ;;C46.4
+359 ;;9002226.02101,"2230,C46.4 ",.02)
+360 ;;C46.4
+361 ;;9002226.02101,"2230,C46.4 ",.03)
+362 ;;30
+363 ;;9002226.02101,"2230,C46.50 ",.01)
+364 ;;C46.50
+365 ;;9002226.02101,"2230,C46.50 ",.02)
+366 ;;C46.50
+367 ;;9002226.02101,"2230,C46.50 ",.03)
+368 ;;30
+369 ;;9002226.02101,"2230,C46.51 ",.01)
+370 ;;C46.51
+371 ;;9002226.02101,"2230,C46.51 ",.02)
+372 ;;C46.51
+373 ;;9002226.02101,"2230,C46.51 ",.03)
+374 ;;30
+375 ;;9002226.02101,"2230,C46.52 ",.01)
+376 ;;C46.52
+377 ;;9002226.02101,"2230,C46.52 ",.02)
+378 ;;C46.52
+379 ;;9002226.02101,"2230,C46.52 ",.03)
+380 ;;30
+381 ;;9002226.02101,"2230,C46.7 ",.01)
+382 ;;C46.7
+383 ;;9002226.02101,"2230,C46.7 ",.02)
+384 ;;C46.7
+385 ;;9002226.02101,"2230,C46.7 ",.03)
+386 ;;30
+387 ;;9002226.02101,"2230,C46.9 ",.01)
+388 ;;C46.9
+389 ;;9002226.02101,"2230,C46.9 ",.02)
+390 ;;C46.9
+391 ;;9002226.02101,"2230,C46.9 ",.03)
+392 ;;30
+393 ;;9002226.02101,"2230,C7B.01 ",.01)
+394 ;;C7B.01
+395 ;;9002226.02101,"2230,C7B.01 ",.02)
+396 ;;C7B.01
+397 ;;9002226.02101,"2230,C7B.01 ",.03)
+398 ;;30
+399 ;;9002226.02101,"2230,C7B.02 ",.01)
+400 ;;C7B.02
+401 ;;9002226.02101,"2230,C7B.02 ",.02)
+402 ;;C7B.02
+403 ;;9002226.02101,"2230,C7B.02 ",.03)
+404 ;;30
+405 ;;9002226.02101,"2230,C81.00 ",.01)
+406 ;;C81.00
+407 ;;9002226.02101,"2230,C81.00 ",.02)
+408 ;;C81.00
+409 ;;9002226.02101,"2230,C81.00 ",.03)
+410 ;;30
+411 ;;9002226.02101,"2230,C81.01 ",.01)
+412 ;;C81.01
+413 ;;9002226.02101,"2230,C81.01 ",.02)
+414 ;;C81.01
+415 ;;9002226.02101,"2230,C81.01 ",.03)
+416 ;;30
+417 ;;9002226.02101,"2230,C81.02 ",.01)
+418 ;;C81.02
+419 ;;9002226.02101,"2230,C81.02 ",.02)
+420 ;;C81.02
+421 ;;9002226.02101,"2230,C81.02 ",.03)
+422 ;;30
+423 ;;9002226.02101,"2230,C81.03 ",.01)
+424 ;;C81.03
+425 ;;9002226.02101,"2230,C81.03 ",.02)
+426 ;;C81.03
+427 ;;9002226.02101,"2230,C81.03 ",.03)
+428 ;;30
+429 ;;9002226.02101,"2230,C81.04 ",.01)
+430 ;;C81.04
+431 ;;9002226.02101,"2230,C81.04 ",.02)
+432 ;;C81.04
+433 ;;9002226.02101,"2230,C81.04 ",.03)
+434 ;;30
+435 ;;9002226.02101,"2230,C81.05 ",.01)
+436 ;;C81.05
+437 ;;9002226.02101,"2230,C81.05 ",.02)
+438 ;;C81.05
+439 ;;9002226.02101,"2230,C81.05 ",.03)
+440 ;;30
+441 ;;9002226.02101,"2230,C81.06 ",.01)
+442 ;;C81.06
+443 ;;9002226.02101,"2230,C81.06 ",.02)
+444 ;;C81.06
+445 ;;9002226.02101,"2230,C81.06 ",.03)
+446 ;;30
+447 ;;9002226.02101,"2230,C81.07 ",.01)
+448 ;;C81.07
+449 ;;9002226.02101,"2230,C81.07 ",.02)
+450 ;;C81.07
+451 ;;9002226.02101,"2230,C81.07 ",.03)
+452 ;;30
+453 ;;9002226.02101,"2230,C81.08 ",.01)
+454 ;;C81.08
+455 ;;9002226.02101,"2230,C81.08 ",.02)
+456 ;;C81.08
+457 ;;9002226.02101,"2230,C81.08 ",.03)
+458 ;;30
+459 ;;9002226.02101,"2230,C81.09 ",.01)
+460 ;;C81.09
+461 ;;9002226.02101,"2230,C81.09 ",.02)
+462 ;;C81.09
+463 ;;9002226.02101,"2230,C81.09 ",.03)
+464 ;;30
+465 ;;9002226.02101,"2230,C81.10 ",.01)
+466 ;;C81.10
+467 ;;9002226.02101,"2230,C81.10 ",.02)
+468 ;;C81.10
+469 ;;9002226.02101,"2230,C81.10 ",.03)
+470 ;;30
+471 ;;9002226.02101,"2230,C81.11 ",.01)
+472 ;;C81.11
+473 ;;9002226.02101,"2230,C81.11 ",.02)
+474 ;;C81.11
+475 ;;9002226.02101,"2230,C81.11 ",.03)
+476 ;;30
+477 ;;9002226.02101,"2230,C81.12 ",.01)
+478 ;;C81.12
+479 ;;9002226.02101,"2230,C81.12 ",.02)
+480 ;;C81.12
+481 ;;9002226.02101,"2230,C81.12 ",.03)
+482 ;;30
+483 ;;9002226.02101,"2230,C81.13 ",.01)
+484 ;;C81.13
+485 ;;9002226.02101,"2230,C81.13 ",.02)
+486 ;;C81.13
+487 ;;9002226.02101,"2230,C81.13 ",.03)
+488 ;;30
+489 ;;9002226.02101,"2230,C81.14 ",.01)
+490 ;;C81.14
+491 ;;9002226.02101,"2230,C81.14 ",.02)
+492 ;;C81.14
+493 ;;9002226.02101,"2230,C81.14 ",.03)
+494 ;;30
+495 ;;9002226.02101,"2230,C81.15 ",.01)
+496 ;;C81.15
+497 ;;9002226.02101,"2230,C81.15 ",.02)
+498 ;;C81.15
+499 ;;9002226.02101,"2230,C81.15 ",.03)
+500 ;;30
+501 ;;9002226.02101,"2230,C81.16 ",.01)
+502 ;;C81.16
+503 ;;9002226.02101,"2230,C81.16 ",.02)
+504 ;;C81.16
+505 ;;9002226.02101,"2230,C81.16 ",.03)
+506 ;;30
+507 ;;9002226.02101,"2230,C81.17 ",.01)
+508 ;;C81.17
+509 ;;9002226.02101,"2230,C81.17 ",.02)
+510 ;;C81.17
+511 ;;9002226.02101,"2230,C81.17 ",.03)
+512 ;;30
+513 ;;9002226.02101,"2230,C81.18 ",.01)
+514 ;;C81.18
+515 ;;9002226.02101,"2230,C81.18 ",.02)
+516 ;;C81.18
+517 ;;9002226.02101,"2230,C81.18 ",.03)
+518 ;;30
+519 ;;9002226.02101,"2230,C81.19 ",.01)
+520 ;;C81.19
+521 ;;9002226.02101,"2230,C81.19 ",.02)
+522 ;;C81.19
+523 ;;9002226.02101,"2230,C81.19 ",.03)
+524 ;;30
+525 ;;9002226.02101,"2230,C81.20 ",.01)
+526 ;;C81.20
+527 ;;9002226.02101,"2230,C81.20 ",.02)
+528 ;;C81.20
+529 ;;9002226.02101,"2230,C81.20 ",.03)
+530 ;;30
+531 ;;9002226.02101,"2230,C81.21 ",.01)
+532 ;;C81.21
+533 ;;9002226.02101,"2230,C81.21 ",.02)
+534 ;;C81.21
+535 ;;9002226.02101,"2230,C81.21 ",.03)
+536 ;;30
+537 ;;9002226.02101,"2230,C81.22 ",.01)
+538 ;;C81.22
+539 ;;9002226.02101,"2230,C81.22 ",.02)
+540 ;;C81.22
+541 ;;9002226.02101,"2230,C81.22 ",.03)
+542 ;;30
+543 ;;9002226.02101,"2230,C81.23 ",.01)
+544 ;;C81.23
+545 ;;9002226.02101,"2230,C81.23 ",.02)
+546 ;;C81.23
+547 ;;9002226.02101,"2230,C81.23 ",.03)
+548 ;;30
+549 ;;9002226.02101,"2230,C81.24 ",.01)
+550 ;;C81.24
+551 ;;9002226.02101,"2230,C81.24 ",.02)
+552 ;;C81.24
+553 ;;9002226.02101,"2230,C81.24 ",.03)
+554 ;;30
+555 ;;9002226.02101,"2230,C81.25 ",.01)
+556 ;;C81.25
+557 ;;9002226.02101,"2230,C81.25 ",.02)
+558 ;;C81.25
+559 ;;9002226.02101,"2230,C81.25 ",.03)
+560 ;;30
+561 ;;9002226.02101,"2230,C81.26 ",.01)
+562 ;;C81.26
+563 ;;9002226.02101,"2230,C81.26 ",.02)
+564 ;;C81.26
+565 ;;9002226.02101,"2230,C81.26 ",.03)
+566 ;;30
+567 ;;9002226.02101,"2230,C81.27 ",.01)
+568 ;;C81.27
+569 ;;9002226.02101,"2230,C81.27 ",.02)
+570 ;;C81.27
+571 ;;9002226.02101,"2230,C81.27 ",.03)
+572 ;;30
+573 ;;9002226.02101,"2230,C81.28 ",.01)
+574 ;;C81.28
+575 ;;9002226.02101,"2230,C81.28 ",.02)
+576 ;;C81.28
