source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCGPC7A.m@ 619

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

initial load of WorldVistAEHR

File size: 7.0 KB
Line 
1ONCGPC7A ;Hines OIFO/GWB - 2001 Gastric Cancers PCE Study ;04/16/01
2 ;;2.11;ONCOLOGY;**29**;Mar 07, 1995
3 ;Print (continued)
4II S TABLE="TUMOR IDENTIFICATION AND DIAGNOSIS"
5 I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HEAD^ONCGPC0
6 K LINE S $P(LINE,"-",34)="-"
7 W !?4,TABLE,!?4,LINE
8 D P Q:EX=U
9ITEM13 W !,"13. PERFORMANCE STATUS AT INITIAL"
10 D P Q:EX=U
11 W !," DIAGNOSIS....................: ",$$GET1^DIQ(165.5,IE,1521)
12 D P Q:EX=U
13 W !
14 D P Q:EX=U
15ITEM14 W !,"14. SYMPTOMS PRESENT AT INITIAL DIAGNOSIS:"
16 D P Q:EX=U
17 W !," HEARTBURN....................: ",$$GET1^DIQ(165.5,IE,1522)
18 D P Q:EX=U
19 W !," FEVER/NIGHT SWEATS...........: ",$$GET1^DIQ(165.5,IE,1523)
20 D P Q:EX=U
21 W !," ACUTE HEMATEMESIS............: ",$$GET1^DIQ(165.5,IE,1524)
22 D P Q:EX=U
23 W !," TRANSFUSIONS FOR BLOOD LOSS..: ",$$GET1^DIQ(165.5,IE,1525)
24 D P Q:EX=U
25 W !," WEIGHT LOSS..................: ",$$GET1^DIQ(165.5,IE,1574)
26 D P Q:EX=U
27 W !," MELENA.......................: ",$$GET1^DIQ(165.5,IE,1526)
28 D P Q:EX=U
29 W !," PAIN.........................: ",$$GET1^DIQ(165.5,IE,1527)
30 D P Q:EX=U
31 W !," EARLY SATIETY................: ",$$GET1^DIQ(165.5,IE,1528)
32 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCGPC0 G ITEM15
33 W !
34 D P Q:EX=U
35ITEM15 W !,"15. INITIAL STAGING STUDIES:"
36 D P Q:EX=U
37 W !," CT SCAN OF ABDOMEN...........: ",$$GET1^DIQ(165.5,IE,1529)
38 D P Q:EX=U
39 W !," CT SCAN OF CHEST.............: ",$$GET1^DIQ(165.5,IE,1530)
40 D P Q:EX=U
41 W !," CT PELVIS....................: ",$$GET1^DIQ(165.5,IE,1531)
42 D P Q:EX=U
43 W !," CHEST X-RAY..................: ",$$GET1^DIQ(165.5,IE,1532)
44 D P Q:EX=U
45 W !," GALLIUM SCAN.................: ",$$GET1^DIQ(165.5,IE,1533)
46 D P Q:EX=U
47 W !," BIPEDAL LYMPHANGIOGRAM (LAG).: ",$$GET1^DIQ(165.5,IE,1534)
48 D P Q:EX=U
49 W !," MRI..........................: ",$$GET1^DIQ(165.5,IE,1535)
50 D P Q:EX=U
51 W !," PET SCAN.....................: ",$$GET1^DIQ(165.5,IE,1536)
52 D P Q:EX=U
53 W !," LAPAROSCOPY..................: ",$$GET1^DIQ(165.5,IE,1537)
54 D P Q:EX=U
55 W !," EUS (ENDOSCOPIC ULTRASOUND)..: ",$$GET1^DIQ(165.5,IE,1538)
56 D P Q:EX=U
57 W !," PERITONEAL LAVAGE............: ",$$GET1^DIQ(165.5,IE,1539)
58 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCGPC0 G ITEM16
59 W !
60 D P Q:EX=U
61ITEM16 W !,"16. LABORATORY STUDIES:"
62 D P Q:EX=U
63 W !," LDH (IU/L)...................: ",$$GET1^DIQ(165.5,IE,1540)
64 D P Q:EX=U
65 W !," CEA (ng/ml)..................: ",$$GET1^DIQ(165.5,IE,1541)
66 D P Q:EX=U
67 W !," CA125 (U/ml).................: ",$$GET1^DIQ(165.5,IE,1542)
68 D P Q:EX=U
69 W !," BETA2 MICROGLOBULIN (ng/ml)..: ",$$GET1^DIQ(165.5,IE,1543)
70 D P Q:EX=U
71 W !," URINARY 5-HIAA (mg/24hr).....: ",$$GET1^DIQ(165.5,IE,1544)
72 D P Q:EX=U
73 W !
74 D P Q:EX=U
75ITEM17 W !,"17. GASTROSCOPIC EXAMINATION RESULTS:"
76 D P Q:EX=U
77 W !," CLINICAL/VISUAL EXAMINATION..: ",$$GET1^DIQ(165.5,IE,1545)
78 D P Q:EX=U
79 W !," BIOPSY.......................: ",$$GET1^DIQ(165.5,IE,1545.1)
80 D P Q:EX=U
81 W !
82 D P Q:EX=U
83ITEM18 W !,"18. GASTRO-ESOPHAGEAL JUNCTION"
84 D P Q:EX=U
85 I ($G(TOPCOD)'="C16.0")&($G(TOPCOD)'="C16.1") D G PRTC1
86 .W !," (SIEWART TYPE II/III)........: NA (not C16.0 or C16.1)"
87 W !," (SIEWART TYPE II/III)........: ",$$GET1^DIQ(165.5,IE,1546)
88PRTC1 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCGPC0 G ITEM19
89 W !
90 D P Q:EX=U
91ITEM19 W !,"19. ANATOMIC SITE OF INITIAL HISTOLOGIC DIAGNOSIS:"
92 D P Q:EX=U
93 W !," STOMACH......................: ",$$GET1^DIQ(165.5,IE,1547)
94 D P Q:EX=U
95 W !," LIVER........................: ",$$GET1^DIQ(165.5,IE,1547.1)
96 D P Q:EX=U
97 W !," EXTRA-ABDOMINAL..............: ",$$GET1^DIQ(165.5,IE,1547.2)
98 D P Q:EX=U
99 W !," LYMPH NODES..................: ",$$GET1^DIQ(165.5,IE,1547.3)
100 D P Q:EX=U
101 W !," PERITONEUM...................: ",$$GET1^DIQ(165.5,IE,1547.4)
102 D P Q:EX=U
103 W !
104 D P Q:EX=U
105ITEM20 W !,"20. DATE OF FIRST TISSUE DIAGNOSIS: ",$$GET1^DIQ(165.5,IE,1548)
106 D P Q:EX=U
107 W !
108 D P Q:EX=U
109ITEM21 I 'ADENOCA D Q:EX=U G PRTC
110 .W !,"21. LAUREN'S CLASSIFICATION.......: NA (not adenocarcinoma)"
111 .D P Q:EX=U
112 .W !
113 .D P Q:EX=U
114 .W !,"22. GOSEKI'S CLASSIFICATION.......: NA (not adenocarcinoma)"
115 .D P Q:EX=U
116 .W !
117 .D P Q:EX=U
118 W !,"21. LAUREN'S CLASSIFICATION.......: ",$$GET1^DIQ(165.5,IE,1549)
119 D P Q:EX=U
120 W !
121 D P Q:EX=U
122ITEM22 W !,"22. GOSEKI'S CLASSIFICATION.......: ",$$GET1^DIQ(165.5,IE,1550)
123 W !
124 D P Q:EX=U
125PRTC I IOST?1"C".E K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCGPC0 G ITEM23
126 D P Q:EX=U
127ITEM23 W !,"23. MOLECULAR MARKERS:"
128 D P Q:EX=U
129 W !," GASTRIN......................: ",$$GET1^DIQ(165.5,IE,1551)
130 D P Q:EX=U
131 W !," 5-HIAA.......................: ",$$GET1^DIQ(165.5,IE,1551.1)
132 D P Q:EX=U
133 W !," CEA..........................: ",$$GET1^DIQ(165.5,IE,1551.2)
134 D P Q:EX=U
135 W !," CA125........................: ",$$GET1^DIQ(165.5,IE,1551.3)
136 D P Q:EX=U
137 W !," OTHER........................: ",$$GET1^DIQ(165.5,IE,1551.4)
138 D P Q:EX=U
139 W !
140 D P Q:EX=U
141ITEM24 I HIST1234'=8890 D Q:EX=U G PRTC2
142 .W !,"24. MITOTIC RATE..................: NA (not leimyosarcoma)"
143 .D P Q:EX=U
144 .W !
145 .D P Q:EX=U
146 .W !,"25. TUMOR NECROSIS................: NA (not leimyosarcoma)"
147 .D P Q:EX=U
148 W !,"24. MITOTIC RATE..................: ",$$GET1^DIQ(165.5,IE,1552)
149 D P Q:EX=U
150 W !
151 D P Q:EX=U
152ITEM25 W !,"25. TUMOR NECROSIS................: ",$$GET1^DIQ(165.5,IE,1553)
153PRTC2 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCGPC0 G ITEM26
154 W !
155 D P Q:EX=U
156ITEM26 W !,"26. PHENOTYPE MODALITY USED:"
157 D P Q:EX=U
158 I 'LYMPHOMA D Q:EX=U G III
159 .W !," FLOW CYTOMETRY ON FRESH"
160 .D P Q:EX=U
161 .W !," TISSUE......................: NA (not lymphoma)"
162 .D P Q:EX=U
163 .W !," IMMUNOCHEMISTRY ON FROZEN"
164 .D P Q:EX=U
165 .W !," TISSUE......................: NA (not lymphoma)"
166 .D P Q:EX=U
167 .W !," IMMUNOHISTOCHEMISTRY ON"
168 .D P Q:EX=U
169 .W !," PARAFIN EMBEDDED TISSUE.....: NA (not lymphoma)"
170 .D P Q:EX=U
171 .W !," MOLECULAR GENETICS...........: NA (not lymphoma)"
172 .D P Q:EX=U
173 .W !," POLYMERASE CHAIN REACTION"
174 .D P Q:EX=U
175 .W !," TECHNIQUE...................: NA (not lymphoma)"
176 .D P Q:EX=U
177 .W !," SOUTHERN BLOT TECHNIQUE......: NA (not lymphoma)"
178 .D P Q:EX=U
179 .W !
180 .D P Q:EX=U
181 .W !,"27. ANN ARBOR STAGING.............: NA (not lymphoma)"
182 .D P Q:EX=U
183 W !," FLOW CYTOMETRY ON FRESH"
184 W !," TISSUE......................: ",$$GET1^DIQ(165.5,IE,1554)
185 W !," IMMUNOCHEMISTRY ON FROZEN"
186 W !," TISSUE......................: ",$$GET1^DIQ(165.5,IE,1554.1)
187 W !," IMMUNOHISTOCHEMISTRY ON"
188 W !," PARAFIN EMBEDDED TISSUE.....: ",$$GET1^DIQ(165.5,IE,1554.2)
189 W !," MOLECULAR GENETICS...........: ",$$GET1^DIQ(165.5,IE,1554.3)
190 W !," POLYMERASE CHAIN REACTION"
191 W !," TECHNIQUE...................: ",$$GET1^DIQ(165.5,IE,1554.4)
192 W !," SOUTHERN BLOT TECHNIQUE......: ",$$GET1^DIQ(165.5,IE,1554.5)
193 W !
194 D P Q:EX=U
195ITEM27 W !,"27. ANN ARBOR STAGING..............: ",$$GET1^DIQ(165.5,IE,1555)
196 D P Q:EX=U
197III I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y
198 I IOST?1"C".E D HEAD^ONCGPC0
199 D ^ONCGPC7B
200 Q
201P ;Print
202 I ($Y'<(LIN-1)) D Q:EX=U
203 .I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR I 'Y S EX=U Q
204 .D HEAD^ONCGPC0 Q
205 Q
Note: See TracBrowser for help on using the repository browser.