source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCHPC2A.m@ 1800

Last change on this file since 1800 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR
File size: 3.8 KB
Line 
1ONCHPC2A ;Hines OIFO/GWB - 2000 Hepatocellular Cancers PCE Study ;01/06/00
2 ;;2.11;ONCOLOGY;**26**;Mar 07, 1995
3CTAP0 ;CT ARTERIAL PORTOGRAPHY not performed (0)
4 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,22)=8
5 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,23)=8
6 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,24)=8
7 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,25)=8
8 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,26)="000"
9 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,27)="00"
10 D RE0
11 Q
12CTAP9 ;CT ARTERIAL PORTOGRAPHY unknown (9)
13 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,22)=9
14 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,23)=9
15 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,24)=9
16 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,25)=9
17 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,26)="000"
18 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,27)="00"
19 D RE9
20 Q
21SCT0 ;SPIRAL CT not performed (0)
22 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,29)=8
23 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,30)=8
24 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,31)=8
25 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,32)=8
26 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,33)="000"
27 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,34)="00"
28 D RE0
29 Q
30SCT9 ;SPIRAL CT unknown (9)
31 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,29)=9
32 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,30)=9
33 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,31)=9
34 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,32)=9
35 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,33)="000"
36 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,34)="00"
37 D RE9
38 Q
39ICT0 ;INCREMENTAL CT not performed (0)
40 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,36)=8
41 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,37)=8
42 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,38)=8
43 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,39)=8
44 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,40)="000"
45 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,41)="00"
46 D RE0
47 Q
48ICT9 ;INCREMENTAL CT unknown (9)
49 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,36)=9
50 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,37)=9
51 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,38)=9
52 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,39)=9
53 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,40)="000"
54 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,41)="00"
55 D RE9
56 Q
57ULTRA0 ;ULTRASOUND not performed (0)
58 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,43)=8
59 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,44)=8
60 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,45)=8
61 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,46)=8
62 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,47)="000"
63 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,48)="00"
64 D RE0
65 Q
66ULTRA9 ;ULTRASOUND not performed (9)
67 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,43)=9
68 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,44)=9
69 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,45)=9
70 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,46)=9
71 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,47)="000"
72 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,48)="00"
73 D RE9
74 Q
75MRI0 ;MRI not performed (0)
76 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,50)=8
77 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,51)=8
78 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,52)=8
79 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,53)=8
80 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,54)="000"
81 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,55)="00"
82 D RE0
83 Q
84MRI9 ;MRI unknown (9)
85 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,50)=9
86 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,51)=9
87 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,52)=9
88 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,53)=9
89 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,54)="000"
90 S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,55)="00"
91 D RE9
92 Q
93RE0 ;Radiological Evaluation not performed (0)
94 W !," CIRRHOSIS....................: NA"
95 W !," VASCULAR INVASION............: NA"
96 W !," BILOBAR DISEASE..............: NA"
97 W !," LYMPH NODES..................: NA"
98 W !," SIZE OF DOMINANT TUMOR (mm)..: Not performed"
99 W !," NUMBER OF TUMORS.............: Not performed"
100 Q
101RE9 ;Radiological Evaluation unknown (9)
102 W !," CIRRHOSIS....................: Unknown"
103 W !," VASCULAR INVASION............: Unknown"
104 W !," BILOBAR DISEASE..............: Unknown"
105 W !," LYMPH NODES..................: Unknown"
106 W !," SIZE OF DOMINANT TUMOR (mm)..: Not performed"
107 W !," NUMBER OF TUMORS.............: Not performed"
108 Q
Note: See TracBrowser for help on using the repository browser.