109 lines
3.8 KiB
Mathematica
109 lines
3.8 KiB
Mathematica
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
|