ONCHPC2A ;Hines OIFO/GWB - 2000 Hepatocellular Cancers PCE Study ;01/06/00
 ;;2.11;ONCOLOGY;**26**;Mar 07, 1995
CTAP0 ;CT ARTERIAL PORTOGRAPHY not performed (0)
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,22)=8
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,23)=8
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,24)=8
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,25)=8
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,26)="000"
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,27)="00"
 D RE0
 Q
CTAP9 ;CT ARTERIAL PORTOGRAPHY unknown (9)
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,22)=9
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,23)=9
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,24)=9
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,25)=9
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,26)="000"
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,27)="00"
 D RE9
 Q
SCT0 ;SPIRAL CT not performed (0)
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,29)=8
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,30)=8
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,31)=8
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,32)=8
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,33)="000"
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,34)="00"
 D RE0
 Q
SCT9 ;SPIRAL CT unknown (9)
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,29)=9
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,30)=9
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,31)=9
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,32)=9
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,33)="000"
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,34)="00"
 D RE9
 Q
ICT0 ;INCREMENTAL CT not performed (0)
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,36)=8
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,37)=8
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,38)=8
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,39)=8
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,40)="000"
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,41)="00"
 D RE0
 Q
ICT9 ;INCREMENTAL CT unknown (9)
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,36)=9
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,37)=9
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,38)=9
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,39)=9
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,40)="000"
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,41)="00"
 D RE9
 Q
ULTRA0 ;ULTRASOUND not performed (0)
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,43)=8
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,44)=8
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,45)=8
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,46)=8
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,47)="000"
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,48)="00"
 D RE0
 Q
ULTRA9 ;ULTRASOUND not performed (9)
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,43)=9
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,44)=9
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,45)=9
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,46)=9
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,47)="000"
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,48)="00"
 D RE9
 Q
MRI0 ;MRI not performed (0)
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,50)=8
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,51)=8
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,52)=8
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,53)=8
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,54)="000"
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,55)="00"
 D RE0
 Q
MRI9 ;MRI unknown (9)
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,50)=9
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,51)=9
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,52)=9
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,53)=9
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,54)="000"
 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,55)="00"
 D RE9
 Q
RE0 ;Radiological Evaluation not performed (0)
 W !,"      CIRRHOSIS....................: NA"
 W !,"      VASCULAR INVASION............: NA"
 W !,"      BILOBAR DISEASE..............: NA"
 W !,"      LYMPH NODES..................: NA"
 W !,"      SIZE OF DOMINANT TUMOR (mm)..: Not performed"
 W !,"      NUMBER OF TUMORS.............: Not performed"
 Q
RE9 ;Radiological Evaluation unknown (9)
 W !,"      CIRRHOSIS....................: Unknown"
 W !,"      VASCULAR INVASION............: Unknown"
 W !,"      BILOBAR DISEASE..............: Unknown"
 W !,"      LYMPH NODES..................: Unknown"
 W !,"      SIZE OF DOMINANT TUMOR (mm)..: Not performed"
 W !,"      NUMBER OF TUMORS.............: Not performed"
 Q