ONCHPC2A ;Hines OIFO/GWB - 2000 Hepatocellular Cancers PCE Study ;01/06/00
;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCHPC2A 3988 printed Nov 22, 2024@17:33:10 Page 2
ONCHPC2A ;Hines OIFO/GWB - 2000 Hepatocellular Cancers PCE Study ;01/06/00
+1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
CTAP0 ;CT ARTERIAL PORTOGRAPHY not performed (0)
+1 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,22)=8
+2 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,23)=8
+3 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,24)=8
+4 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,25)=8
+5 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,26)="000"
+6 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,27)="00"
+7 DO RE0
+8 QUIT
CTAP9 ;CT ARTERIAL PORTOGRAPHY unknown (9)
+1 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,22)=9
+2 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,23)=9
+3 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,24)=9
+4 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,25)=9
+5 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,26)="000"
+6 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,27)="00"
+7 DO RE9
+8 QUIT
SCT0 ;SPIRAL CT not performed (0)
+1 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,29)=8
+2 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,30)=8
+3 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,31)=8
+4 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,32)=8
+5 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,33)="000"
+6 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,34)="00"
+7 DO RE0
+8 QUIT
SCT9 ;SPIRAL CT unknown (9)
+1 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,29)=9
+2 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,30)=9
+3 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,31)=9
+4 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,32)=9
+5 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,33)="000"
+6 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,34)="00"
+7 DO RE9
+8 QUIT
ICT0 ;INCREMENTAL CT not performed (0)
+1 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,36)=8
+2 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,37)=8
+3 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,38)=8
+4 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,39)=8
+5 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,40)="000"
+6 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,41)="00"
+7 DO RE0
+8 QUIT
ICT9 ;INCREMENTAL CT unknown (9)
+1 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,36)=9
+2 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,37)=9
+3 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,38)=9
+4 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,39)=9
+5 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,40)="000"
+6 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,41)="00"
+7 DO RE9
+8 QUIT
ULTRA0 ;ULTRASOUND not performed (0)
+1 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,43)=8
+2 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,44)=8
+3 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,45)=8
+4 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,46)=8
+5 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,47)="000"
+6 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,48)="00"
+7 DO RE0
+8 QUIT
ULTRA9 ;ULTRASOUND not performed (9)
+1 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,43)=9
+2 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,44)=9
+3 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,45)=9
+4 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,46)=9
+5 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,47)="000"
+6 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,48)="00"
+7 DO RE9
+8 QUIT
MRI0 ;MRI not performed (0)
+1 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,50)=8
+2 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,51)=8
+3 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,52)=8
+4 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,53)=8
+5 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,54)="000"
+6 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,55)="00"
+7 DO RE0
+8 QUIT
MRI9 ;MRI unknown (9)
+1 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,50)=9
+2 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,51)=9
+3 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,52)=9
+4 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,53)=9
+5 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,54)="000"
+6 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,55)="00"
+7 DO RE9
+8 QUIT
RE0 ;Radiological Evaluation not performed (0)
+1 WRITE !," CIRRHOSIS....................: NA"
+2 WRITE !," VASCULAR INVASION............: NA"
+3 WRITE !," BILOBAR DISEASE..............: NA"
+4 WRITE !," LYMPH NODES..................: NA"
+5 WRITE !," SIZE OF DOMINANT TUMOR (mm)..: Not performed"
+6 WRITE !," NUMBER OF TUMORS.............: Not performed"
+7 QUIT
RE9 ;Radiological Evaluation unknown (9)
+1 WRITE !," CIRRHOSIS....................: Unknown"
+2 WRITE !," VASCULAR INVASION............: Unknown"
+3 WRITE !," BILOBAR DISEASE..............: Unknown"
+4 WRITE !," LYMPH NODES..................: Unknown"
+5 WRITE !," SIZE OF DOMINANT TUMOR (mm)..: Not performed"
+6 WRITE !," NUMBER OF TUMORS.............: Not performed"
+7 QUIT
