ICDDRG8.m

ICDDRG8 ;ALB/GRR/EG - FIX SURGERY HIERARCHY ; 7/18/01 10:40am

 ;;18.0;DRG Grouper;**1,2,10,20,24,31**;Oct 20, 2000;Build 7

 Q:$O(ICDODRG(0))'>0  K ICDJ,ICDJJ F ICDJ=0:0 S ICDJ=$O(ICDODRG(ICDJ)) Q:ICDJ'>0  S ICDJJ(ICDJ)="" D

 .I ICDDATE<3051001 D F Q

 .E  I ICDDATE<3061001 D FY2006 Q

 .E  I ICDDATE<3071001 D FY2007 Q

 .E  D FY2008

END S ICDJ=$O(ICDJ(0)) Q:ICDJ'>0  S ICDJ=ICDJ(ICDJ) K ICDODRG S ICDODRG(ICDJ)="" Q

F I ICDJ=471 S ICDJ(1)=ICDJ Q

 I ICDJ=217 S ICDJ(2)=ICDJ Q

 I ICDJ=209 S ICDJ(3)=ICDJ Q

 I ICDJ=216 S ICDJ(4)=ICDJ Q

 I ICDJ=210 S ICDJ(5)=ICDJ Q

 I ICDJ=213 S ICDJ(6)=ICDJ Q

 I ICDJ=491 S ICDJ(7)=ICDJ Q

 I ICDJ=497 S ICDJ(8)=ICDJ Q

 I ICDJ=519 S ICDJ(9)=ICDJ Q

 I ICDJ=520 S ICDJ(10)=ICDJ Q

 I ICDJ=499 S ICDJ(11)=ICDJ Q

 I ICDJ=501 S ICDJ(12)=ICDJ Q

 I ICDJ=218 S ICDJ(13)=ICDJ Q

 I ICDJ=231 S ICDJ(14)=ICDJ Q

 I ICDJ=537 S ICDJ(15)=ICDJ Q

 I ICDJ=230 S ICDJ(16)=ICDJ Q

 I ICDJ=226 S ICDJ(17)=ICDJ Q

 I ICDJ=227 S ICDJ(18)=ICDJ Q

 I ICDJ=225 S ICDJ(19)=ICDJ Q

 I ICDJ=228 S ICDJ(20)=ICDJ Q

 I ICDJ=223 S ICDJ(21)=ICDJ Q

 I ICDJ=232 S ICDJ(22)=ICDJ Q

 I ICDJ=224 S ICDJ(23)=ICDJ Q

 I ICDJ=229 S ICDJ(24)=ICDJ Q

 I ICDJ=233 S ICDJ(25)=ICDJ Q

 Q

FY2006 ;

 I ICDJ=496 S ICDJ(1)=ICDJ Q

 I ICDJ=546 S ICDJ(2)=ICDJ Q

 I ICDJ=497 S ICDJ(3)=ICDJ Q

 I ICDJ=498 S ICDJ(4)=ICDJ Q

 I ICDJ=471 S ICDJ(5)=ICDJ Q

 I ICDJ=217 S ICDJ(6)=ICDJ Q

 I ICDJ=545 S ICDJ(7)=ICDJ Q

 I ICDJ=544 S ICDJ(8)=ICDJ Q

 I ICDJ=519 S ICDJ(9)=ICDJ Q

 I ICDJ=520 S ICDJ(10)=ICDJ Q

 I ICDJ=216 S ICDJ(11)=ICDJ Q

 I ICDJ=213 S ICDJ(12)=ICDJ Q

 I ICDJ=210 S ICDJ(13)=ICDJ Q

 I ICDJ=211 S ICDJ(14)=ICDJ Q

 I ICDJ=212 S ICDJ(15)=ICDJ Q

 I ICDJ=491 S ICDJ(16)=ICDJ Q

 I ICDJ=501 S ICDJ(17)=ICDJ Q

 I ICDJ=502 S ICDJ(18)=ICDJ Q

 I ICDJ=503 S ICDJ(19)=ICDJ Q

 I ICDJ=499 S ICDJ(20)=ICDJ Q

 I ICDJ=500 S ICDJ(21)=ICDJ Q

 I ICDJ=218 S ICDJ(22)=ICDJ Q

 I ICDJ=219 S ICDJ(23)=ICDJ Q

 I ICDJ=220 S ICDJ(24)=ICDJ Q

 I ICDJ=537 S ICDJ(25)=ICDJ Q

 I ICDJ=538 S ICDJ(26)=ICDJ Q

 I ICDJ=230 S ICDJ(27)=ICDJ Q

 I ICDJ=226 S ICDJ(28)=ICDJ Q

 I ICDJ=227 S ICDJ(29)=ICDJ Q

 I ICDJ=225 S ICDJ(30)=ICDJ Q

 I ICDJ=228 S ICDJ(31)=ICDJ Q

 I ICDJ=223 S ICDJ(32)=ICDJ Q

 I ICDJ=232 S ICDJ(33)=ICDJ Q

 I ICDJ=224 S ICDJ(34)=ICDJ Q

 I ICDJ=229 S ICDJ(35)=ICDJ Q

 I ICDJ=233 S ICDJ(36)=ICDJ Q

 I ICDJ=234 S ICDJ(37)=ICDJ Q

 Q

FY2007 ;

 I ICDJ=496 S ICDJ(1)=ICDJ Q

 I ICDJ=546 S ICDJ(2)=ICDJ Q

 I ICDJ=497 S ICDJ(3)=ICDJ Q

 I ICDJ=498 S ICDJ(4)=ICDJ Q

 I ICDJ=471 S ICDJ(5)=ICDJ Q

 I ICDJ=217 S ICDJ(6)=ICDJ Q

 I ICDJ=545 S ICDJ(7)=ICDJ Q

 I ICDJ=544 S ICDJ(8)=ICDJ Q

 I ICDJ=519 S ICDJ(9)=ICDJ Q

 I ICDJ=520 S ICDJ(10)=ICDJ Q

 I ICDJ=213 S ICDJ(11)=ICDJ Q

 I ICDJ=216 S ICDJ(12)=ICDJ Q

 I ICDJ=210 S ICDJ(13)=ICDJ Q

 I ICDJ=211 S ICDJ(14)=ICDJ Q

 I ICDJ=212 S ICDJ(15)=ICDJ Q

 I ICDJ=491 S ICDJ(16)=ICDJ Q

 I ICDJ=501 S ICDJ(17)=ICDJ Q

 I ICDJ=502 S ICDJ(18)=ICDJ Q

 I ICDJ=503 S ICDJ(19)=ICDJ Q

 I ICDJ=499 S ICDJ(20)=ICDJ Q

 I ICDJ=500 S ICDJ(21)=ICDJ Q

 I ICDJ=218 S ICDJ(22)=ICDJ Q

 I ICDJ=219 S ICDJ(23)=ICDJ Q

 I ICDJ=220 S ICDJ(24)=ICDJ Q

 I ICDJ=537 S ICDJ(25)=ICDJ Q

 I ICDJ=538 S ICDJ(26)=ICDJ Q

 I ICDJ=230 S ICDJ(27)=ICDJ Q

 I ICDJ=226 S ICDJ(28)=ICDJ Q

 I ICDJ=227 S ICDJ(29)=ICDJ Q

 I ICDJ=225 S ICDJ(30)=ICDJ Q

 I ICDJ=228 S ICDJ(31)=ICDJ Q

 I ICDJ=223 S ICDJ(32)=ICDJ Q

 I ICDJ=232 S ICDJ(33)=ICDJ Q

 I ICDJ=224 S ICDJ(34)=ICDJ Q

 I ICDJ=229 S ICDJ(35)=ICDJ Q

 I ICDJ=233 S ICDJ(36)=ICDJ Q

 I ICDJ=234 S ICDJ(37)=ICDJ Q

 Q

FY2008 ;

 I ICDJ=455 S ICDJ(1)=ICDJ Q

 I ICDJ=458 S ICDJ(2)=ICDJ Q

 I ICDJ=460 S ICDJ(3)=ICDJ Q

 I ICDJ=462 S ICDJ(4)=ICDJ Q

 I ICDJ=465 S ICDJ(5)=ICDJ Q

 I ICDJ=468 S ICDJ(6)=ICDJ Q

 I ICDJ=470 S ICDJ(7)=ICDJ Q

 I ICDJ=473 S ICDJ(8)=ICDJ Q

 I ICDJ=476 S ICDJ(9)=ICDJ Q

 I ICDJ=479 S ICDJ(10)=ICDJ Q

 I ICDJ=482 S ICDJ(11)=ICDJ Q

 I ICDJ=484 S ICDJ(12)=ICDJ Q

 I ICDJ=487 S ICDJ(13)=ICDJ Q

 I ICDJ=489 S ICDJ(14)=ICDJ Q

 I ICDJ=491 S ICDJ(15)=ICDJ Q

 I ICDJ=494 S ICDJ(16)=ICDJ Q

 I ICDJ=497 S ICDJ(17)=ICDJ Q

 I ICDJ=499 S ICDJ(18)=ICDJ Q

 I ICDJ=502 S ICDJ(19)=ICDJ Q

 I ICDJ=505 S ICDJ(20)=ICDJ Q

 I ICDJ=506 S ICDJ(21)=ICDJ Q

 I ICDJ=508 S ICDJ(22)=ICDJ Q

 I ICDJ=509 S ICDJ(23)=ICDJ Q

 I ICDJ=512 S ICDJ(24)=ICDJ Q

 I ICDJ=514 S ICDJ(25)=ICDJ Q

 I ICDJ=517 S ICDJ(26)=ICDJ Q

 Q

EN1 ; paired spinal fusion codes

 S ICDCC3=0

 ;I $D(ICDOP(" 81.02"))!$D(ICDOP(" 81.04"))!$D(ICDOP(" 81.06"))&($D(ICDOP(" 81.03"))!$D(ICDOP(" 81.05"))!$D(ICDOP(" 81.08"))) S ICDCC3=1

 N ICDA,ICDB S (ICDA,ICDB)=0

 I $D(ICDOP(" 81.02"))!$D(ICDOP(" 81.04"))!$D(ICDOP(" 81.06"))!$D(ICDOP(" 81.32"))!$D(ICDOP(" 81.34"))!$D(ICDOP(" 81.36")) S ICDA=1

 I $D(ICDOP(" 81.03"))!$D(ICDOP(" 81.05"))!$D(ICDOP(" 81.07"))!$D(ICDOP(" 81.08"))!$D(ICDOP(" 81.33"))!$D(ICDOP(" 81.35"))!$D(ICDOP(" 81.37"))!$D(ICDOP(" 81.38")) S ICDB=1

 I ICDA&ICDB S ICDCC3=1

 Q

ICDDRG8   ;ALB/GRR/EG - FIX SURGERY HIERARCHY ; 7/18/01 10:40am

 +1       ;;18.0;DRG Grouper;**1,2,10,20,24,31**;Oct 20, 2000;Build 7

 +2        IF $ORDER(ICDODRG(0))'>0

               QUIT 

           KILL ICDJ,ICDJJ

           FOR ICDJ=0:0

               SET ICDJ=$ORDER(ICDODRG(ICDJ))

               IF ICDJ'>0

                   QUIT 

               SET ICDJJ(ICDJ)=""

               Begin DoDot:1

 +3                IF ICDDATE<3051001

                       DO F

                       QUIT 

 +4               IF '$TEST

                       IF ICDDATE<3061001

                           DO FY2006

                           QUIT 

 +5               IF '$TEST

                       IF ICDDATE<3071001

                           DO FY2007

                           QUIT 

 +6               IF '$TEST

                       DO FY2008

               End DoDot:1

END        SET ICDJ=$ORDER(ICDJ(0))

           IF ICDJ'>0

               QUIT 

           SET ICDJ=ICDJ(ICDJ)

           KILL ICDODRG

           SET ICDODRG(ICDJ)=""

           QUIT 

F          IF ICDJ=471

               SET ICDJ(1)=ICDJ

               QUIT 

 +1        IF ICDJ=217

               SET ICDJ(2)=ICDJ

               QUIT 

 +2        IF ICDJ=209

               SET ICDJ(3)=ICDJ

               QUIT 

 +3        IF ICDJ=216

               SET ICDJ(4)=ICDJ

               QUIT 

 +4        IF ICDJ=210

               SET ICDJ(5)=ICDJ

               QUIT 

 +5        IF ICDJ=213

               SET ICDJ(6)=ICDJ

               QUIT 

 +6        IF ICDJ=491

               SET ICDJ(7)=ICDJ

               QUIT 

 +7        IF ICDJ=497

               SET ICDJ(8)=ICDJ

               QUIT 

 +8        IF ICDJ=519

               SET ICDJ(9)=ICDJ

               QUIT 

 +9        IF ICDJ=520

               SET ICDJ(10)=ICDJ

               QUIT 

 +10       IF ICDJ=499

               SET ICDJ(11)=ICDJ

               QUIT 

 +11       IF ICDJ=501

               SET ICDJ(12)=ICDJ

               QUIT 

 +12       IF ICDJ=218

               SET ICDJ(13)=ICDJ

               QUIT 

 +13       IF ICDJ=231

               SET ICDJ(14)=ICDJ

               QUIT 

 +14       IF ICDJ=537

               SET ICDJ(15)=ICDJ

               QUIT 

 +15       IF ICDJ=230

               SET ICDJ(16)=ICDJ

               QUIT 

 +16       IF ICDJ=226

               SET ICDJ(17)=ICDJ

               QUIT 

 +17       IF ICDJ=227

               SET ICDJ(18)=ICDJ

               QUIT 

 +18       IF ICDJ=225

               SET ICDJ(19)=ICDJ

               QUIT 

 +19       IF ICDJ=228

               SET ICDJ(20)=ICDJ

               QUIT 

 +20       IF ICDJ=223

               SET ICDJ(21)=ICDJ

               QUIT 

 +21       IF ICDJ=232

               SET ICDJ(22)=ICDJ

               QUIT 

 +22       IF ICDJ=224

               SET ICDJ(23)=ICDJ

               QUIT 

 +23       IF ICDJ=229

               SET ICDJ(24)=ICDJ

               QUIT 

 +24       IF ICDJ=233

               SET ICDJ(25)=ICDJ

               QUIT 

 +25       QUIT 

FY2006    ;

 +1        IF ICDJ=496

               SET ICDJ(1)=ICDJ

               QUIT 

 +2        IF ICDJ=546

               SET ICDJ(2)=ICDJ

               QUIT 

 +3        IF ICDJ=497

               SET ICDJ(3)=ICDJ

               QUIT 

 +4        IF ICDJ=498

               SET ICDJ(4)=ICDJ

               QUIT 

 +5        IF ICDJ=471

               SET ICDJ(5)=ICDJ

               QUIT 

 +6        IF ICDJ=217

               SET ICDJ(6)=ICDJ

               QUIT 

 +7        IF ICDJ=545

               SET ICDJ(7)=ICDJ

               QUIT 

 +8        IF ICDJ=544

               SET ICDJ(8)=ICDJ

               QUIT 

 +9        IF ICDJ=519

               SET ICDJ(9)=ICDJ

               QUIT 

 +10       IF ICDJ=520

               SET ICDJ(10)=ICDJ

               QUIT 

 +11       IF ICDJ=216

               SET ICDJ(11)=ICDJ

               QUIT 

 +12       IF ICDJ=213

               SET ICDJ(12)=ICDJ

               QUIT 

 +13       IF ICDJ=210

               SET ICDJ(13)=ICDJ

               QUIT 

 +14       IF ICDJ=211

               SET ICDJ(14)=ICDJ

               QUIT 

 +15       IF ICDJ=212

               SET ICDJ(15)=ICDJ

               QUIT 

 +16       IF ICDJ=491

               SET ICDJ(16)=ICDJ

               QUIT 

 +17       IF ICDJ=501

               SET ICDJ(17)=ICDJ

               QUIT 

 +18       IF ICDJ=502

               SET ICDJ(18)=ICDJ

               QUIT 

 +19       IF ICDJ=503

               SET ICDJ(19)=ICDJ

               QUIT 

 +20       IF ICDJ=499

               SET ICDJ(20)=ICDJ

               QUIT 

 +21       IF ICDJ=500

               SET ICDJ(21)=ICDJ

               QUIT 

 +22       IF ICDJ=218

               SET ICDJ(22)=ICDJ

               QUIT 

 +23       IF ICDJ=219

               SET ICDJ(23)=ICDJ

               QUIT 

 +24       IF ICDJ=220

               SET ICDJ(24)=ICDJ

               QUIT 

 +25       IF ICDJ=537

               SET ICDJ(25)=ICDJ

               QUIT 

 +26       IF ICDJ=538

               SET ICDJ(26)=ICDJ

               QUIT 

 +27       IF ICDJ=230

               SET ICDJ(27)=ICDJ

               QUIT 

 +28       IF ICDJ=226

               SET ICDJ(28)=ICDJ

               QUIT 

 +29       IF ICDJ=227

               SET ICDJ(29)=ICDJ

               QUIT 

 +30       IF ICDJ=225

               SET ICDJ(30)=ICDJ

               QUIT 

 +31       IF ICDJ=228

               SET ICDJ(31)=ICDJ

               QUIT 

 +32       IF ICDJ=223

               SET ICDJ(32)=ICDJ

               QUIT 

 +33       IF ICDJ=232

               SET ICDJ(33)=ICDJ

               QUIT 

 +34       IF ICDJ=224

               SET ICDJ(34)=ICDJ

               QUIT 

 +35       IF ICDJ=229

               SET ICDJ(35)=ICDJ

               QUIT 

 +36       IF ICDJ=233

               SET ICDJ(36)=ICDJ

               QUIT 

 +37       IF ICDJ=234

               SET ICDJ(37)=ICDJ

               QUIT 

 +38       QUIT 

FY2007    ;

 +1        IF ICDJ=496

               SET ICDJ(1)=ICDJ

               QUIT 

 +2        IF ICDJ=546

               SET ICDJ(2)=ICDJ

               QUIT 

 +3        IF ICDJ=497

               SET ICDJ(3)=ICDJ

               QUIT 

 +4        IF ICDJ=498

               SET ICDJ(4)=ICDJ

               QUIT 

 +5        IF ICDJ=471

               SET ICDJ(5)=ICDJ

               QUIT 

 +6        IF ICDJ=217

               SET ICDJ(6)=ICDJ

               QUIT 

 +7        IF ICDJ=545

               SET ICDJ(7)=ICDJ

               QUIT 

 +8        IF ICDJ=544

               SET ICDJ(8)=ICDJ

               QUIT 

 +9        IF ICDJ=519

               SET ICDJ(9)=ICDJ

               QUIT 

 +10       IF ICDJ=520

               SET ICDJ(10)=ICDJ

               QUIT 

 +11       IF ICDJ=213

               SET ICDJ(11)=ICDJ

               QUIT 

 +12       IF ICDJ=216

               SET ICDJ(12)=ICDJ

               QUIT 

 +13       IF ICDJ=210

               SET ICDJ(13)=ICDJ

               QUIT 

 +14       IF ICDJ=211

               SET ICDJ(14)=ICDJ

               QUIT 

 +15       IF ICDJ=212

               SET ICDJ(15)=ICDJ

               QUIT 

 +16       IF ICDJ=491

               SET ICDJ(16)=ICDJ

               QUIT 

 +17       IF ICDJ=501

               SET ICDJ(17)=ICDJ

               QUIT 

 +18       IF ICDJ=502

               SET ICDJ(18)=ICDJ

               QUIT 

 +19       IF ICDJ=503

               SET ICDJ(19)=ICDJ

               QUIT 

 +20       IF ICDJ=499

               SET ICDJ(20)=ICDJ

               QUIT 

 +21       IF ICDJ=500

               SET ICDJ(21)=ICDJ

               QUIT 

 +22       IF ICDJ=218

               SET ICDJ(22)=ICDJ

               QUIT 

 +23       IF ICDJ=219

               SET ICDJ(23)=ICDJ

               QUIT 

 +24       IF ICDJ=220

               SET ICDJ(24)=ICDJ

               QUIT 

 +25       IF ICDJ=537

               SET ICDJ(25)=ICDJ

               QUIT 

 +26       IF ICDJ=538

               SET ICDJ(26)=ICDJ

               QUIT 

 +27       IF ICDJ=230

               SET ICDJ(27)=ICDJ

               QUIT 

 +28       IF ICDJ=226

               SET ICDJ(28)=ICDJ

               QUIT 

 +29       IF ICDJ=227

               SET ICDJ(29)=ICDJ

               QUIT 

 +30       IF ICDJ=225

               SET ICDJ(30)=ICDJ

               QUIT 

 +31       IF ICDJ=228

               SET ICDJ(31)=ICDJ

               QUIT 

 +32       IF ICDJ=223

               SET ICDJ(32)=ICDJ

               QUIT 

 +33       IF ICDJ=232

               SET ICDJ(33)=ICDJ

               QUIT 

 +34       IF ICDJ=224

               SET ICDJ(34)=ICDJ

               QUIT 

 +35       IF ICDJ=229

               SET ICDJ(35)=ICDJ

               QUIT 

 +36       IF ICDJ=233

               SET ICDJ(36)=ICDJ

               QUIT 

 +37       IF ICDJ=234

               SET ICDJ(37)=ICDJ

               QUIT 

 +38       QUIT 

FY2008    ;

 +1        IF ICDJ=455

               SET ICDJ(1)=ICDJ

               QUIT 

 +2        IF ICDJ=458

               SET ICDJ(2)=ICDJ

               QUIT 

 +3        IF ICDJ=460

               SET ICDJ(3)=ICDJ

               QUIT 

 +4        IF ICDJ=462

               SET ICDJ(4)=ICDJ

               QUIT 

 +5        IF ICDJ=465

               SET ICDJ(5)=ICDJ

               QUIT 

 +6        IF ICDJ=468

               SET ICDJ(6)=ICDJ

               QUIT 

 +7        IF ICDJ=470

               SET ICDJ(7)=ICDJ

               QUIT 

 +8        IF ICDJ=473

               SET ICDJ(8)=ICDJ

               QUIT 

 +9        IF ICDJ=476

               SET ICDJ(9)=ICDJ

               QUIT 

 +10       IF ICDJ=479

               SET ICDJ(10)=ICDJ

               QUIT 

 +11       IF ICDJ=482

               SET ICDJ(11)=ICDJ

               QUIT 

 +12       IF ICDJ=484

               SET ICDJ(12)=ICDJ

               QUIT 

 +13       IF ICDJ=487

               SET ICDJ(13)=ICDJ

               QUIT 

 +14       IF ICDJ=489

               SET ICDJ(14)=ICDJ

               QUIT 

 +15       IF ICDJ=491

               SET ICDJ(15)=ICDJ

               QUIT 

 +16       IF ICDJ=494

               SET ICDJ(16)=ICDJ

               QUIT 

 +17       IF ICDJ=497

               SET ICDJ(17)=ICDJ

               QUIT 

 +18       IF ICDJ=499

               SET ICDJ(18)=ICDJ

               QUIT 

 +19       IF ICDJ=502

               SET ICDJ(19)=ICDJ

               QUIT 

 +20       IF ICDJ=505

               SET ICDJ(20)=ICDJ

               QUIT 

 +21       IF ICDJ=506

               SET ICDJ(21)=ICDJ

               QUIT 

 +22       IF ICDJ=508

               SET ICDJ(22)=ICDJ

               QUIT 

 +23       IF ICDJ=509

               SET ICDJ(23)=ICDJ

               QUIT 

 +24       IF ICDJ=512

               SET ICDJ(24)=ICDJ

               QUIT 

 +25       IF ICDJ=514

               SET ICDJ(25)=ICDJ

               QUIT 

 +26       IF ICDJ=517

               SET ICDJ(26)=ICDJ

               QUIT 

 +27       QUIT 

EN1       ; paired spinal fusion codes

 +1        SET ICDCC3=0

 +2       ;I $D(ICDOP(" 81.02"))!$D(ICDOP(" 81.04"))!$D(ICDOP(" 81.06"))&($D(ICDOP(" 81.03"))!$D(ICDOP(" 81.05"))!$D(ICDOP(" 81.08"))) S ICDCC3=1

 +3        NEW ICDA,ICDB

           SET (ICDA,ICDB)=0

 +4        IF $DATA(ICDOP(" 81.02"))!$DATA(ICDOP(" 81.04"))!$DATA(ICDOP(" 81.06"))!$DATA(ICDOP(" 81.32"))!$DATA(ICDOP(" 81.34"))!$DATA(ICDOP(" 81.36"))

               SET ICDA=1

 +5        IF $DATA(ICDOP(" 81.03"))!$DATA(ICDOP(" 81.05"))!$DATA(ICDOP(" 81.07"))!$DATA(ICDOP(" 81.08"))!$DATA(ICDOP(" 81.33"))!$DATA(ICDOP(" 81.35"))!$DATA(ICDOP(" 81.37"))!$DATA(ICDOP(" 81.38"))

               SET ICDB=1

 +6        IF ICDA&ICDB

               SET ICDCC3=1

 +7        QUIT