ONCGPC7A ;Hines OIFO/GWB - 2001 Gastric Cancers PCE Study ;04/16/01
;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
;Print (continued)
II S TABLE="TUMOR IDENTIFICATION AND DIAGNOSIS"
I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HEAD^ONCGPC0
K LINE S $P(LINE,"-",34)="-"
W !?4,TABLE,!?4,LINE
D P Q:EX=U
ITEM13 W !,"13. PERFORMANCE STATUS AT INITIAL"
D P Q:EX=U
W !," DIAGNOSIS....................: ",$$GET1^DIQ(165.5,IE,1521)
D P Q:EX=U
W !
D P Q:EX=U
ITEM14 W !,"14. SYMPTOMS PRESENT AT INITIAL DIAGNOSIS:"
D P Q:EX=U
W !," HEARTBURN....................: ",$$GET1^DIQ(165.5,IE,1522)
D P Q:EX=U
W !," FEVER/NIGHT SWEATS...........: ",$$GET1^DIQ(165.5,IE,1523)
D P Q:EX=U
W !," ACUTE HEMATEMESIS............: ",$$GET1^DIQ(165.5,IE,1524)
D P Q:EX=U
W !," TRANSFUSIONS FOR BLOOD LOSS..: ",$$GET1^DIQ(165.5,IE,1525)
D P Q:EX=U
W !," WEIGHT LOSS..................: ",$$GET1^DIQ(165.5,IE,1574)
D P Q:EX=U
W !," MELENA.......................: ",$$GET1^DIQ(165.5,IE,1526)
D P Q:EX=U
W !," PAIN.........................: ",$$GET1^DIQ(165.5,IE,1527)
D P Q:EX=U
W !," EARLY SATIETY................: ",$$GET1^DIQ(165.5,IE,1528)
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCGPC0 G ITEM15
W !
D P Q:EX=U
ITEM15 W !,"15. INITIAL STAGING STUDIES:"
D P Q:EX=U
W !," CT SCAN OF ABDOMEN...........: ",$$GET1^DIQ(165.5,IE,1529)
D P Q:EX=U
W !," CT SCAN OF CHEST.............: ",$$GET1^DIQ(165.5,IE,1530)
D P Q:EX=U
W !," CT PELVIS....................: ",$$GET1^DIQ(165.5,IE,1531)
D P Q:EX=U
W !," CHEST X-RAY..................: ",$$GET1^DIQ(165.5,IE,1532)
D P Q:EX=U
W !," GALLIUM SCAN.................: ",$$GET1^DIQ(165.5,IE,1533)
D P Q:EX=U
W !," BIPEDAL LYMPHANGIOGRAM (LAG).: ",$$GET1^DIQ(165.5,IE,1534)
D P Q:EX=U
W !," MRI..........................: ",$$GET1^DIQ(165.5,IE,1535)
D P Q:EX=U
W !," PET SCAN.....................: ",$$GET1^DIQ(165.5,IE,1536)
D P Q:EX=U
W !," LAPAROSCOPY..................: ",$$GET1^DIQ(165.5,IE,1537)
D P Q:EX=U
W !," EUS (ENDOSCOPIC ULTRASOUND)..: ",$$GET1^DIQ(165.5,IE,1538)
D P Q:EX=U
W !," PERITONEAL LAVAGE............: ",$$GET1^DIQ(165.5,IE,1539)
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCGPC0 G ITEM16
W !
D P Q:EX=U
ITEM16 W !,"16. LABORATORY STUDIES:"
D P Q:EX=U
W !," LDH (IU/L)...................: ",$$GET1^DIQ(165.5,IE,1540)
D P Q:EX=U
W !," CEA (ng/ml)..................: ",$$GET1^DIQ(165.5,IE,1541)
D P Q:EX=U
W !," CA125 (U/ml).................: ",$$GET1^DIQ(165.5,IE,1542)
D P Q:EX=U
W !," BETA2 MICROGLOBULIN (ng/ml)..: ",$$GET1^DIQ(165.5,IE,1543)
D P Q:EX=U
W !," URINARY 5-HIAA (mg/24hr).....: ",$$GET1^DIQ(165.5,IE,1544)
D P Q:EX=U
W !
D P Q:EX=U
ITEM17 W !,"17. GASTROSCOPIC EXAMINATION RESULTS:"
D P Q:EX=U
W !," CLINICAL/VISUAL EXAMINATION..: ",$$GET1^DIQ(165.5,IE,1545)
D P Q:EX=U
W !," BIOPSY.......................: ",$$GET1^DIQ(165.5,IE,1545.1)
D P Q:EX=U
W !
D P Q:EX=U
ITEM18 W !,"18. GASTRO-ESOPHAGEAL JUNCTION"
D P Q:EX=U
I ($G(TOPCOD)'="C16.0")&($G(TOPCOD)'="C16.1") D G PRTC1
.W !," (SIEWART TYPE II/III)........: NA (not C16.0 or C16.1)"
W !," (SIEWART TYPE II/III)........: ",$$GET1^DIQ(165.5,IE,1546)
PRTC1 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCGPC0 G ITEM19
W !
D P Q:EX=U
ITEM19 W !,"19. ANATOMIC SITE OF INITIAL HISTOLOGIC DIAGNOSIS:"
D P Q:EX=U
W !," STOMACH......................: ",$$GET1^DIQ(165.5,IE,1547)
D P Q:EX=U
W !," LIVER........................: ",$$GET1^DIQ(165.5,IE,1547.1)
D P Q:EX=U
W !," EXTRA-ABDOMINAL..............: ",$$GET1^DIQ(165.5,IE,1547.2)
D P Q:EX=U
W !," LYMPH NODES..................: ",$$GET1^DIQ(165.5,IE,1547.3)
D P Q:EX=U
W !," PERITONEUM...................: ",$$GET1^DIQ(165.5,IE,1547.4)
D P Q:EX=U
W !
D P Q:EX=U
ITEM20 W !,"20. DATE OF FIRST TISSUE DIAGNOSIS: ",$$GET1^DIQ(165.5,IE,1548)
D P Q:EX=U
W !
D P Q:EX=U
ITEM21 I 'ADENOCA D Q:EX=U G PRTC
.W !,"21. LAUREN'S CLASSIFICATION.......: NA (not adenocarcinoma)"
.D P Q:EX=U
.W !
.D P Q:EX=U
.W !,"22. GOSEKI'S CLASSIFICATION.......: NA (not adenocarcinoma)"
.D P Q:EX=U
.W !
.D P Q:EX=U
W !,"21. LAUREN'S CLASSIFICATION.......: ",$$GET1^DIQ(165.5,IE,1549)
D P Q:EX=U
W !
D P Q:EX=U
ITEM22 W !,"22. GOSEKI'S CLASSIFICATION.......: ",$$GET1^DIQ(165.5,IE,1550)
W !
D P Q:EX=U
PRTC I IOST?1"C".E K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCGPC0 G ITEM23
D P Q:EX=U
ITEM23 W !,"23. MOLECULAR MARKERS:"
D P Q:EX=U
W !," GASTRIN......................: ",$$GET1^DIQ(165.5,IE,1551)
D P Q:EX=U
W !," 5-HIAA.......................: ",$$GET1^DIQ(165.5,IE,1551.1)
D P Q:EX=U
W !," CEA..........................: ",$$GET1^DIQ(165.5,IE,1551.2)
D P Q:EX=U
W !," CA125........................: ",$$GET1^DIQ(165.5,IE,1551.3)
D P Q:EX=U
W !," OTHER........................: ",$$GET1^DIQ(165.5,IE,1551.4)
D P Q:EX=U
W !
D P Q:EX=U
ITEM24 I HIST1234'=8890 D Q:EX=U G PRTC2
.W !,"24. MITOTIC RATE..................: NA (not leimyosarcoma)"
.D P Q:EX=U
.W !
.D P Q:EX=U
.W !,"25. TUMOR NECROSIS................: NA (not leimyosarcoma)"
.D P Q:EX=U
W !,"24. MITOTIC RATE..................: ",$$GET1^DIQ(165.5,IE,1552)
D P Q:EX=U
W !
D P Q:EX=U
ITEM25 W !,"25. TUMOR NECROSIS................: ",$$GET1^DIQ(165.5,IE,1553)
PRTC2 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCGPC0 G ITEM26
W !
D P Q:EX=U
ITEM26 W !,"26. PHENOTYPE MODALITY USED:"
D P Q:EX=U
I 'LYMPHOMA D Q:EX=U G III
.W !," FLOW CYTOMETRY ON FRESH"
.D P Q:EX=U
.W !," TISSUE......................: NA (not lymphoma)"
.D P Q:EX=U
.W !," IMMUNOCHEMISTRY ON FROZEN"
.D P Q:EX=U
.W !," TISSUE......................: NA (not lymphoma)"
.D P Q:EX=U
.W !," IMMUNOHISTOCHEMISTRY ON"
.D P Q:EX=U
.W !," PARAFIN EMBEDDED TISSUE.....: NA (not lymphoma)"
.D P Q:EX=U
.W !," MOLECULAR GENETICS...........: NA (not lymphoma)"
.D P Q:EX=U
.W !," POLYMERASE CHAIN REACTION"
.D P Q:EX=U
.W !," TECHNIQUE...................: NA (not lymphoma)"
.D P Q:EX=U
.W !," SOUTHERN BLOT TECHNIQUE......: NA (not lymphoma)"
.D P Q:EX=U
.W !
.D P Q:EX=U
.W !,"27. ANN ARBOR STAGING.............: NA (not lymphoma)"
.D P Q:EX=U
W !," FLOW CYTOMETRY ON FRESH"
W !," TISSUE......................: ",$$GET1^DIQ(165.5,IE,1554)
W !," IMMUNOCHEMISTRY ON FROZEN"
W !," TISSUE......................: ",$$GET1^DIQ(165.5,IE,1554.1)
W !," IMMUNOHISTOCHEMISTRY ON"
W !," PARAFIN EMBEDDED TISSUE.....: ",$$GET1^DIQ(165.5,IE,1554.2)
W !," MOLECULAR GENETICS...........: ",$$GET1^DIQ(165.5,IE,1554.3)
W !," POLYMERASE CHAIN REACTION"
W !," TECHNIQUE...................: ",$$GET1^DIQ(165.5,IE,1554.4)
W !," SOUTHERN BLOT TECHNIQUE......: ",$$GET1^DIQ(165.5,IE,1554.5)
W !
D P Q:EX=U
ITEM27 W !,"27. ANN ARBOR STAGING..............: ",$$GET1^DIQ(165.5,IE,1555)
D P Q:EX=U
III I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y
I IOST?1"C".E D HEAD^ONCGPC0
D ^ONCGPC7B
Q
P ;Print
I ($Y'<(LIN-1)) D Q:EX=U
.I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR I 'Y S EX=U Q
.D HEAD^ONCGPC0 Q
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCGPC7A 7420 printed Dec 13, 2024@02:23:03 Page 2
ONCGPC7A ;Hines OIFO/GWB - 2001 Gastric Cancers PCE Study ;04/16/01
+1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
+2 ;Print (continued)
II SET TABLE="TUMOR IDENTIFICATION AND DIAGNOSIS"
+1 IF IOST'?1"C".E
WRITE !
IF ($Y'<(LIN-4))
DO HEAD^ONCGPC0
+2 KILL LINE
SET $PIECE(LINE,"-",34)="-"
+3 WRITE !?4,TABLE,!?4,LINE
+4 DO P
if EX=U
QUIT
ITEM13 WRITE !,"13. PERFORMANCE STATUS AT INITIAL"
+1 DO P
if EX=U
QUIT
+2 WRITE !," DIAGNOSIS....................: ",$$GET1^DIQ(165.5,IE,1521)
+3 DO P
if EX=U
QUIT
+4 WRITE !
+5 DO P
if EX=U
QUIT
ITEM14 WRITE !,"14. SYMPTOMS PRESENT AT INITIAL DIAGNOSIS:"
+1 DO P
if EX=U
QUIT
+2 WRITE !," HEARTBURN....................: ",$$GET1^DIQ(165.5,IE,1522)
+3 DO P
if EX=U
QUIT
+4 WRITE !," FEVER/NIGHT SWEATS...........: ",$$GET1^DIQ(165.5,IE,1523)
+5 DO P
if EX=U
QUIT
+6 WRITE !," ACUTE HEMATEMESIS............: ",$$GET1^DIQ(165.5,IE,1524)
+7 DO P
if EX=U
QUIT
+8 WRITE !," TRANSFUSIONS FOR BLOOD LOSS..: ",$$GET1^DIQ(165.5,IE,1525)
+9 DO P
if EX=U
QUIT
+10 WRITE !," WEIGHT LOSS..................: ",$$GET1^DIQ(165.5,IE,1574)
+11 DO P
if EX=U
QUIT
+12 WRITE !," MELENA.......................: ",$$GET1^DIQ(165.5,IE,1526)
+13 DO P
if EX=U
QUIT
+14 WRITE !," PAIN.........................: ",$$GET1^DIQ(165.5,IE,1527)
+15 DO P
if EX=U
QUIT
+16 WRITE !," EARLY SATIETY................: ",$$GET1^DIQ(165.5,IE,1528)
+17 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
DO HEAD^ONCGPC0
GOTO ITEM15
+18 WRITE !
+19 DO P
if EX=U
QUIT
ITEM15 WRITE !,"15. INITIAL STAGING STUDIES:"
+1 DO P
if EX=U
QUIT
+2 WRITE !," CT SCAN OF ABDOMEN...........: ",$$GET1^DIQ(165.5,IE,1529)
+3 DO P
if EX=U
QUIT
+4 WRITE !," CT SCAN OF CHEST.............: ",$$GET1^DIQ(165.5,IE,1530)
+5 DO P
if EX=U
QUIT
+6 WRITE !," CT PELVIS....................: ",$$GET1^DIQ(165.5,IE,1531)
+7 DO P
if EX=U
QUIT
+8 WRITE !," CHEST X-RAY..................: ",$$GET1^DIQ(165.5,IE,1532)
+9 DO P
if EX=U
QUIT
+10 WRITE !," GALLIUM SCAN.................: ",$$GET1^DIQ(165.5,IE,1533)
+11 DO P
if EX=U
QUIT
+12 WRITE !," BIPEDAL LYMPHANGIOGRAM (LAG).: ",$$GET1^DIQ(165.5,IE,1534)
+13 DO P
if EX=U
QUIT
+14 WRITE !," MRI..........................: ",$$GET1^DIQ(165.5,IE,1535)
+15 DO P
if EX=U
QUIT
+16 WRITE !," PET SCAN.....................: ",$$GET1^DIQ(165.5,IE,1536)
+17 DO P
if EX=U
QUIT
+18 WRITE !," LAPAROSCOPY..................: ",$$GET1^DIQ(165.5,IE,1537)
+19 DO P
if EX=U
QUIT
+20 WRITE !," EUS (ENDOSCOPIC ULTRASOUND)..: ",$$GET1^DIQ(165.5,IE,1538)
+21 DO P
if EX=U
QUIT
+22 WRITE !," PERITONEAL LAVAGE............: ",$$GET1^DIQ(165.5,IE,1539)
+23 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
DO HEAD^ONCGPC0
GOTO ITEM16
+24 WRITE !
+25 DO P
if EX=U
QUIT
ITEM16 WRITE !,"16. LABORATORY STUDIES:"
+1 DO P
if EX=U
QUIT
+2 WRITE !," LDH (IU/L)...................: ",$$GET1^DIQ(165.5,IE,1540)
+3 DO P
if EX=U
QUIT
+4 WRITE !," CEA (ng/ml)..................: ",$$GET1^DIQ(165.5,IE,1541)
+5 DO P
if EX=U
QUIT
+6 WRITE !," CA125 (U/ml).................: ",$$GET1^DIQ(165.5,IE,1542)
+7 DO P
if EX=U
QUIT
+8 WRITE !," BETA2 MICROGLOBULIN (ng/ml)..: ",$$GET1^DIQ(165.5,IE,1543)
+9 DO P
if EX=U
QUIT
+10 WRITE !," URINARY 5-HIAA (mg/24hr).....: ",$$GET1^DIQ(165.5,IE,1544)
+11 DO P
if EX=U
QUIT
+12 WRITE !
+13 DO P
if EX=U
QUIT
ITEM17 WRITE !,"17. GASTROSCOPIC EXAMINATION RESULTS:"
+1 DO P
if EX=U
QUIT
+2 WRITE !," CLINICAL/VISUAL EXAMINATION..: ",$$GET1^DIQ(165.5,IE,1545)
+3 DO P
if EX=U
QUIT
+4 WRITE !," BIOPSY.......................: ",$$GET1^DIQ(165.5,IE,1545.1)
+5 DO P
if EX=U
QUIT
+6 WRITE !
+7 DO P
if EX=U
QUIT
ITEM18 WRITE !,"18. GASTRO-ESOPHAGEAL JUNCTION"
+1 DO P
if EX=U
QUIT
+2 IF ($GET(TOPCOD)'="C16.0")&($GET(TOPCOD)'="C16.1")
Begin DoDot:1
+3 WRITE !," (SIEWART TYPE II/III)........: NA (not C16.0 or C16.1)"
End DoDot:1
GOTO PRTC1
+4 WRITE !," (SIEWART TYPE II/III)........: ",$$GET1^DIQ(165.5,IE,1546)
PRTC1 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
DO HEAD^ONCGPC0
GOTO ITEM19
+1 WRITE !
+2 DO P
if EX=U
QUIT
ITEM19 WRITE !,"19. ANATOMIC SITE OF INITIAL HISTOLOGIC DIAGNOSIS:"
+1 DO P
if EX=U
QUIT
+2 WRITE !," STOMACH......................: ",$$GET1^DIQ(165.5,IE,1547)
+3 DO P
if EX=U
QUIT
+4 WRITE !," LIVER........................: ",$$GET1^DIQ(165.5,IE,1547.1)
+5 DO P
if EX=U
QUIT
+6 WRITE !," EXTRA-ABDOMINAL..............: ",$$GET1^DIQ(165.5,IE,1547.2)
+7 DO P
if EX=U
QUIT
+8 WRITE !," LYMPH NODES..................: ",$$GET1^DIQ(165.5,IE,1547.3)
+9 DO P
if EX=U
QUIT
+10 WRITE !," PERITONEUM...................: ",$$GET1^DIQ(165.5,IE,1547.4)
+11 DO P
if EX=U
QUIT
+12 WRITE !
+13 DO P
if EX=U
QUIT
ITEM20 WRITE !,"20. DATE OF FIRST TISSUE DIAGNOSIS: ",$$GET1^DIQ(165.5,IE,1548)
+1 DO P
if EX=U
QUIT
+2 WRITE !
+3 DO P
if EX=U
QUIT
ITEM21 IF 'ADENOCA
Begin DoDot:1
+1 WRITE !,"21. LAUREN'S CLASSIFICATION.......: NA (not adenocarcinoma)"
+2 DO P
if EX=U
QUIT
+3 WRITE !
+4 DO P
if EX=U
QUIT
+5 WRITE !,"22. GOSEKI'S CLASSIFICATION.......: NA (not adenocarcinoma)"
+6 DO P
if EX=U
QUIT
+7 WRITE !
+8 DO P
if EX=U
QUIT
End DoDot:1
if EX=U
QUIT
GOTO PRTC
+9 WRITE !,"21. LAUREN'S CLASSIFICATION.......: ",$$GET1^DIQ(165.5,IE,1549)
+10 DO P
if EX=U
QUIT
+11 WRITE !
+12 DO P
if EX=U
QUIT
ITEM22 WRITE !,"22. GOSEKI'S CLASSIFICATION.......: ",$$GET1^DIQ(165.5,IE,1550)
+1 WRITE !
+2 DO P
if EX=U
QUIT
PRTC IF IOST?1"C".E
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
DO HEAD^ONCGPC0
GOTO ITEM23
+1 DO P
if EX=U
QUIT
ITEM23 WRITE !,"23. MOLECULAR MARKERS:"
+1 DO P
if EX=U
QUIT
+2 WRITE !," GASTRIN......................: ",$$GET1^DIQ(165.5,IE,1551)
+3 DO P
if EX=U
QUIT
+4 WRITE !," 5-HIAA.......................: ",$$GET1^DIQ(165.5,IE,1551.1)
+5 DO P
if EX=U
QUIT
+6 WRITE !," CEA..........................: ",$$GET1^DIQ(165.5,IE,1551.2)
+7 DO P
if EX=U
QUIT
+8 WRITE !," CA125........................: ",$$GET1^DIQ(165.5,IE,1551.3)
+9 DO P
if EX=U
QUIT
+10 WRITE !," OTHER........................: ",$$GET1^DIQ(165.5,IE,1551.4)
+11 DO P
if EX=U
QUIT
+12 WRITE !
+13 DO P
if EX=U
QUIT
ITEM24 IF HIST1234'=8890
Begin DoDot:1
+1 WRITE !,"24. MITOTIC RATE..................: NA (not leimyosarcoma)"
+2 DO P
if EX=U
QUIT
+3 WRITE !
+4 DO P
if EX=U
QUIT
+5 WRITE !,"25. TUMOR NECROSIS................: NA (not leimyosarcoma)"
+6 DO P
if EX=U
QUIT
End DoDot:1
if EX=U
QUIT
GOTO PRTC2
+7 WRITE !,"24. MITOTIC RATE..................: ",$$GET1^DIQ(165.5,IE,1552)
+8 DO P
if EX=U
QUIT
+9 WRITE !
+10 DO P
if EX=U
QUIT
ITEM25 WRITE !,"25. TUMOR NECROSIS................: ",$$GET1^DIQ(165.5,IE,1553)
PRTC2 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
DO HEAD^ONCGPC0
GOTO ITEM26
+1 WRITE !
+2 DO P
if EX=U
QUIT
ITEM26 WRITE !,"26. PHENOTYPE MODALITY USED:"
+1 DO P
if EX=U
QUIT
+2 IF 'LYMPHOMA
Begin DoDot:1
+3 WRITE !," FLOW CYTOMETRY ON FRESH"
+4 DO P
if EX=U
QUIT
+5 WRITE !," TISSUE......................: NA (not lymphoma)"
+6 DO P
if EX=U
QUIT
+7 WRITE !," IMMUNOCHEMISTRY ON FROZEN"
+8 DO P
if EX=U
QUIT
+9 WRITE !," TISSUE......................: NA (not lymphoma)"
+10 DO P
if EX=U
QUIT
+11 WRITE !," IMMUNOHISTOCHEMISTRY ON"
+12 DO P
if EX=U
QUIT
+13 WRITE !," PARAFIN EMBEDDED TISSUE.....: NA (not lymphoma)"
+14 DO P
if EX=U
QUIT
+15 WRITE !," MOLECULAR GENETICS...........: NA (not lymphoma)"
+16 DO P
if EX=U
QUIT
+17 WRITE !," POLYMERASE CHAIN REACTION"
+18 DO P
if EX=U
QUIT
+19 WRITE !," TECHNIQUE...................: NA (not lymphoma)"
+20 DO P
if EX=U
QUIT
+21 WRITE !," SOUTHERN BLOT TECHNIQUE......: NA (not lymphoma)"
+22 DO P
if EX=U
QUIT
+23 WRITE !
+24 DO P
if EX=U
QUIT
+25 WRITE !,"27. ANN ARBOR STAGING.............: NA (not lymphoma)"
+26 DO P
if EX=U
QUIT
End DoDot:1
if EX=U
QUIT
GOTO III
+27 WRITE !," FLOW CYTOMETRY ON FRESH"
+28 WRITE !," TISSUE......................: ",$$GET1^DIQ(165.5,IE,1554)
+29 WRITE !," IMMUNOCHEMISTRY ON FROZEN"
+30 WRITE !," TISSUE......................: ",$$GET1^DIQ(165.5,IE,1554.1)
+31 WRITE !," IMMUNOHISTOCHEMISTRY ON"
+32 WRITE !," PARAFIN EMBEDDED TISSUE.....: ",$$GET1^DIQ(165.5,IE,1554.2)
+33 WRITE !," MOLECULAR GENETICS...........: ",$$GET1^DIQ(165.5,IE,1554.3)
+34 WRITE !," POLYMERASE CHAIN REACTION"
+35 WRITE !," TECHNIQUE...................: ",$$GET1^DIQ(165.5,IE,1554.4)
+36 WRITE !," SOUTHERN BLOT TECHNIQUE......: ",$$GET1^DIQ(165.5,IE,1554.5)
+37 WRITE !
+38 DO P
if EX=U
QUIT
ITEM27 WRITE !,"27. ANN ARBOR STAGING..............: ",$$GET1^DIQ(165.5,IE,1555)
+1 DO P
if EX=U
QUIT
III IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
+1 IF IOST?1"C".E
DO HEAD^ONCGPC0
+2 DO ^ONCGPC7B
+3 QUIT
P ;Print
+1 IF ($Y'<(LIN-1))
Begin DoDot:1
+2 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
IF 'Y
SET EX=U
QUIT
+3 DO HEAD^ONCGPC0
QUIT
End DoDot:1
if EX=U
QUIT
+4 QUIT
