ONCGPC2 ;Hines OIFO/GWB - 2001 Gastric Cancers PCE Study ;02/27/01
;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
;Tumor Identification and Diagnosis
K DR S DIE="^ONCO(165.5,",DA=ONCONUM,DR=""
W @IOF D HEAD^ONCGPC0
W !," TUMOR IDENTIFICATION AND DIAGNOSIS"
W !," -----------------------------------"
S DR(1,165.5,1)="1521 13. PERFORMANCE STATUS AT INITIAL DIAGNOSIS...................."
S DR(1,165.5,2)="W !"
S DR(1,165.5,3)="W !,"" 14. SYMPTOMS PRESENT AT INITIAL DIAGNOSIS:"""
S DR(1,165.5,4)="1522 HEARTBURN...................."
S DR(1,165.5,5)="1523 FEVER/NIGHT SWEATS..........."
S DR(1,165.5,6)="1524 ACUTE HEMATEMESIS............"
S DR(1,165.5,7)="1525 TRANSFUSIONS FOR BLOOD LOSS.."
S DR(1,165.5,8)="1574 WEIGHT LOSS.................."
S DR(1,165.5,9)="1526 MELENA......................."
S DR(1,165.5,10)="1527 PAIN........................."
S DR(1,165.5,11)="1528 EARLY SATIETY................"
S DR(1,165.5,12)="W !"
S DR(1,165.5,13)="W !,"" 15. INITIAL STAGING STUDIES:"""
S DR(1,165.5,14)="1529 CT SCAN OF ABDOMEN..........."
S DR(1,165.5,15)="1530 CT SCAN OF CHEST............."
S DR(1,165.5,16)="1531 CT PELVIS...................."
S DR(1,165.5,17)="1532 CHEST X-RAY.................."
S DR(1,165.5,18)="1533 GALLIUM SCAN................."
S DR(1,165.5,19)="1534 BIPEDAL LYMPHANGIOGRAM (LAG)."
S DR(1,165.5,20)="1535 MRI.........................."
S DR(1,165.5,21)="1536 PET SCAN....................."
S DR(1,165.5,22)="1537 LAPAROSCOPY.................."
S DR(1,165.5,23)="1538 EUS (ENDOSCOPIC ULTRASOUND).."
S DR(1,165.5,24)="1539 PERITONEAL LAVAGE............"
S DR(1,165.5,25)="W !"
S DR(1,165.5,26)="W !,"" 16. LABORATORY STUDIES:"""
S DR(1,165.5,27)="1540 LDH (IU/L)..................."
S DR(1,165.5,28)="1541 CEA (ng/ml).................."
S DR(1,165.5,29)="1542 CA125 (U/ml)................."
S DR(1,165.5,30)="1543 BETA2 MICROGLOBULIN (ng/ml).."
S DR(1,165.5,31)="1544 URINARY 5-HIAA (mg/24hr)....."
S DR(1,165.5,32)="W !"
S DR(1,165.5,33)="W !,"" 17. GASTROSCOPIC EXAMINATION RESULTS:"""
S DR(1,165.5,34)="1545 CLINICAL/VISUAL EXAMINATION.."
S DR(1,165.5,35)="1545.1 BIOPSY......................."
S DR(1,165.5,36)="I ($G(TOPCOD)'=""C16.0"")&($G(TOPCOD)'=""C16.1"") D ITEM18^ONCGPC2 S Y=""@19"""
S DR(1,165.5,37)="W !"
S DR(1,165.5,38)="1546 18. GASTRO-ESOPHAGEAL JUNCTION (SIEWART TYPE II/III)........"
S DR(1,165.5,39)="@19"
S DR(1,165.5,40)="W !"
S DR(1,165.5,41)="W !,"" 19. ANATOMIC SITE OF INITIAL HISTOLOGIC DIAGNOSIS:"""
S DR(1,165.5,42)="1547 STOMACH......................"
S DR(1,165.5,43)="1547.1 LIVER........................"
S DR(1,165.5,44)="1547.2 EXTRA-ABDOMINAL.............."
S DR(1,165.5,45)="1547.3 LYMPH NODES.................."
S DR(1,165.5,46)="1547.4 PERITONEUM..................."
S DR(1,165.5,47)="W !"
S DR(1,165.5,48)="1548 20. DATE OF FIRST TISSUE DIAGNOSIS"
S DR(1,165.5,49)="I 'ADENOCA D ITEM21^ONCGPC2 S Y=""@23"""
S DR(1,165.5,50)="W !"
S DR(1,165.5,51)="1549 21. LAUREN'S CLASSIFICATION......."
S DR(1,165.5,52)="W !"
S DR(1,165.5,53)="1550 22. GOSEKI'S CLASSIFICATION......."
S DR(1,165.5,54)="@23"
S DR(1,165.5,55)="W !"
S DR(1,165.5,56)="W !,"" 23. MOLECULAR MARKERS:"""
S DR(1,165.5,57)="1551 GASTRIN......................"
S DR(1,165.5,58)="1551.1 5-HIAA......................."
S DR(1,165.5,59)="1551.2 CEA.........................."
S DR(1,165.5,60)="1551.3 CA125........................"
S DR(1,165.5,61)="1551.4 OTHER........................"
S DR(1,165.5,62)="I HIST1234'=8890 D ITEM24^ONCGPC2 S Y=""@26"""
S DR(1,165.5,63)="W !"
S DR(1,165.5,64)="1552 24. MITOTIC RATE.................."
S DR(1,165.5,65)="W !"
S DR(1,165.5,66)="1553 25. TUMOR NECROSIS................"
S DR(1,165.5,67)="@26"
S DR(1,165.5,68)="W !"
S DR(1,165.5,69)="W !,"" 26. PHENOTYPE MODALITY USED:"""
S DR(1,165.5,70)="I 'LYMPHOMA D ITEM26^ONCGPC2 S Y=""@28"""
S DR(1,165.5,71)="1554 FLOW CYTOMETRY ON FRESH TISSUE......................"
S DR(1,165.5,72)="1554.1 IMMUNOHISTOCHEMISTRY ON FROZEN TISSUE......................"
S DR(1,165.5,73)="1554.2 IMMUNOHISTOCHEMISTRY ON PARAFIN EMBEDDED TISSUE....."
S DR(1,165.5,74)="1554.3 MOLECULAR GENETICS..........."
S DR(1,165.5,75)="1554.4 POLYMERASE CHAIN REACTION TECHNIQUE.................."
S DR(1,165.5,76)="1554.5 SOUTHERN BLOT TECHNIQUE......"
S DR(1,165.5,77)="W !"
S DR(1,165.5,78)="1555 27. ANN ARBOR STAGING............."
S DR(1,165.5,79)="@28"
D ^DIE
K DR
W ! K DIR S DIR(0)="E" D ^DIR S:$D(DIRUT) OUT="Y"
EXIT K DIC,DR,DA,DIQ,DIE,DIR,DIROUT,DIRUT,DTOUT,DUOUT,X,Y
Q
ITEM18 ;GASTRO-ESOPHAGEAL JUNCTION (SIEWART TYPE II/III)
S $P(^ONCO(165.5,D0,"GAS1"),U,48)=""
W !!," 18. GASTRO-ESOPHAGEAL JUNCTION (SIEWART TYPE II/III)........: NA (not C16.0 or C16.1)"
Q
ITEM21 ;LAUREN'S CLASSIFICATION
ITEM22 ;GOSEKI'S CLASSIFICATION
S $P(^ONCO(165.5,D0,"GAS1"),U,55)=""
S $P(^ONCO(165.5,D0,"GAS1"),U,56)=""
W !!," 21. LAUREN'S CLASSIFICATION.......: NA (not adenocarcinoma)"
W !!," 22. GOSEKI'S CLASSIFICATION.......: NA (not adenocarcinoma)"
Q
ITEM24 ;MITOTIC RATE
ITEM25 ;TUMOR NECROSIS
S $P(^ONCO(165.5,D0,"GAS1"),U,62)=""
S $P(^ONCO(165.5,D0,"GAS1"),U,63)=""
W !!," 24. MITOTIC RATE..................: NA (not leimyosarcoma)"
W !!," 25. TUMOR NECROSIS................: NA (not leimyosarcoma)"
Q
ITEM26 ;PHENOTYPE MODALITY USED
ITEM27 ;ANN ARBOR STAGING
F PIECE=64:1:70 S $P(^ONCO(165.5,D0,"GAS1"),U,PIECE)=""
K PIECE
W !," FLOW CYTOMETRY ON FRESH TISSUE......................: NA (not lymphoma)"
W !," IMMUNOCHEMISTRY ON FROZEN TISSUE......................: NA (not lymphoma)"
W !," IMMUNOHISTOCHEMISTRY ON PARAFIN EMBEDDED TISSUE.....: NA (not lymphoma)"
W !," MOLECULAR GENETICS...........: NA (not lymphoma)"
W !," POLYMERASE CHAIN REACTION TECHNIQUE...................: NA (not lymphoma)"
W !," SOUTHERN BLOT TECHNIQUE......: NA (not lymphoma)"
W !
W !," 27. ANN ARBOR STAGING.............: NA (not lymphoma)"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCGPC2 6880 printed Apr 09, 2024@21:29:53 Page 2
ONCGPC2 ;Hines OIFO/GWB - 2001 Gastric Cancers PCE Study ;02/27/01
+1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
+2 ;Tumor Identification and Diagnosis
+3 KILL DR
SET DIE="^ONCO(165.5,"
SET DA=ONCONUM
SET DR=""
+4 WRITE @IOF
DO HEAD^ONCGPC0
+5 WRITE !," TUMOR IDENTIFICATION AND DIAGNOSIS"
+6 WRITE !," -----------------------------------"
+7 SET DR(1,165.5,1)="1521 13. PERFORMANCE STATUS AT INITIAL DIAGNOSIS...................."
+8 SET DR(1,165.5,2)="W !"
+9 SET DR(1,165.5,3)="W !,"" 14. SYMPTOMS PRESENT AT INITIAL DIAGNOSIS:"""
+10 SET DR(1,165.5,4)="1522 HEARTBURN...................."
+11 SET DR(1,165.5,5)="1523 FEVER/NIGHT SWEATS..........."
+12 SET DR(1,165.5,6)="1524 ACUTE HEMATEMESIS............"
+13 SET DR(1,165.5,7)="1525 TRANSFUSIONS FOR BLOOD LOSS.."
+14 SET DR(1,165.5,8)="1574 WEIGHT LOSS.................."
+15 SET DR(1,165.5,9)="1526 MELENA......................."
+16 SET DR(1,165.5,10)="1527 PAIN........................."
+17 SET DR(1,165.5,11)="1528 EARLY SATIETY................"
+18 SET DR(1,165.5,12)="W !"
+19 SET DR(1,165.5,13)="W !,"" 15. INITIAL STAGING STUDIES:"""
+20 SET DR(1,165.5,14)="1529 CT SCAN OF ABDOMEN..........."
+21 SET DR(1,165.5,15)="1530 CT SCAN OF CHEST............."
+22 SET DR(1,165.5,16)="1531 CT PELVIS...................."
+23 SET DR(1,165.5,17)="1532 CHEST X-RAY.................."
+24 SET DR(1,165.5,18)="1533 GALLIUM SCAN................."
+25 SET DR(1,165.5,19)="1534 BIPEDAL LYMPHANGIOGRAM (LAG)."
+26 SET DR(1,165.5,20)="1535 MRI.........................."
+27 SET DR(1,165.5,21)="1536 PET SCAN....................."
+28 SET DR(1,165.5,22)="1537 LAPAROSCOPY.................."
+29 SET DR(1,165.5,23)="1538 EUS (ENDOSCOPIC ULTRASOUND).."
+30 SET DR(1,165.5,24)="1539 PERITONEAL LAVAGE............"
+31 SET DR(1,165.5,25)="W !"
+32 SET DR(1,165.5,26)="W !,"" 16. LABORATORY STUDIES:"""
+33 SET DR(1,165.5,27)="1540 LDH (IU/L)..................."
+34 SET DR(1,165.5,28)="1541 CEA (ng/ml).................."
+35 SET DR(1,165.5,29)="1542 CA125 (U/ml)................."
+36 SET DR(1,165.5,30)="1543 BETA2 MICROGLOBULIN (ng/ml).."
+37 SET DR(1,165.5,31)="1544 URINARY 5-HIAA (mg/24hr)....."
+38 SET DR(1,165.5,32)="W !"
+39 SET DR(1,165.5,33)="W !,"" 17. GASTROSCOPIC EXAMINATION RESULTS:"""
+40 SET DR(1,165.5,34)="1545 CLINICAL/VISUAL EXAMINATION.."
+41 SET DR(1,165.5,35)="1545.1 BIOPSY......................."
+42 SET DR(1,165.5,36)="I ($G(TOPCOD)'=""C16.0"")&($G(TOPCOD)'=""C16.1"") D ITEM18^ONCGPC2 S Y=""@19"""
+43 SET DR(1,165.5,37)="W !"
+44 SET DR(1,165.5,38)="1546 18. GASTRO-ESOPHAGEAL JUNCTION (SIEWART TYPE II/III)........"
+45 SET DR(1,165.5,39)="@19"
+46 SET DR(1,165.5,40)="W !"
+47 SET DR(1,165.5,41)="W !,"" 19. ANATOMIC SITE OF INITIAL HISTOLOGIC DIAGNOSIS:"""
+48 SET DR(1,165.5,42)="1547 STOMACH......................"
+49 SET DR(1,165.5,43)="1547.1 LIVER........................"
+50 SET DR(1,165.5,44)="1547.2 EXTRA-ABDOMINAL.............."
+51 SET DR(1,165.5,45)="1547.3 LYMPH NODES.................."
+52 SET DR(1,165.5,46)="1547.4 PERITONEUM..................."
+53 SET DR(1,165.5,47)="W !"
+54 SET DR(1,165.5,48)="1548 20. DATE OF FIRST TISSUE DIAGNOSIS"
+55 SET DR(1,165.5,49)="I 'ADENOCA D ITEM21^ONCGPC2 S Y=""@23"""
+56 SET DR(1,165.5,50)="W !"
+57 SET DR(1,165.5,51)="1549 21. LAUREN'S CLASSIFICATION......."
+58 SET DR(1,165.5,52)="W !"
+59 SET DR(1,165.5,53)="1550 22. GOSEKI'S CLASSIFICATION......."
+60 SET DR(1,165.5,54)="@23"
+61 SET DR(1,165.5,55)="W !"
+62 SET DR(1,165.5,56)="W !,"" 23. MOLECULAR MARKERS:"""
+63 SET DR(1,165.5,57)="1551 GASTRIN......................"
+64 SET DR(1,165.5,58)="1551.1 5-HIAA......................."
+65 SET DR(1,165.5,59)="1551.2 CEA.........................."
+66 SET DR(1,165.5,60)="1551.3 CA125........................"
+67 SET DR(1,165.5,61)="1551.4 OTHER........................"
+68 SET DR(1,165.5,62)="I HIST1234'=8890 D ITEM24^ONCGPC2 S Y=""@26"""
+69 SET DR(1,165.5,63)="W !"
+70 SET DR(1,165.5,64)="1552 24. MITOTIC RATE.................."
+71 SET DR(1,165.5,65)="W !"
+72 SET DR(1,165.5,66)="1553 25. TUMOR NECROSIS................"
+73 SET DR(1,165.5,67)="@26"
+74 SET DR(1,165.5,68)="W !"
+75 SET DR(1,165.5,69)="W !,"" 26. PHENOTYPE MODALITY USED:"""
+76 SET DR(1,165.5,70)="I 'LYMPHOMA D ITEM26^ONCGPC2 S Y=""@28"""
+77 SET DR(1,165.5,71)="1554 FLOW CYTOMETRY ON FRESH TISSUE......................"
+78 SET DR(1,165.5,72)="1554.1 IMMUNOHISTOCHEMISTRY ON FROZEN TISSUE......................"
+79 SET DR(1,165.5,73)="1554.2 IMMUNOHISTOCHEMISTRY ON PARAFIN EMBEDDED TISSUE....."
+80 SET DR(1,165.5,74)="1554.3 MOLECULAR GENETICS..........."
+81 SET DR(1,165.5,75)="1554.4 POLYMERASE CHAIN REACTION TECHNIQUE.................."
+82 SET DR(1,165.5,76)="1554.5 SOUTHERN BLOT TECHNIQUE......"
+83 SET DR(1,165.5,77)="W !"
+84 SET DR(1,165.5,78)="1555 27. ANN ARBOR STAGING............."
+85 SET DR(1,165.5,79)="@28"
+86 DO ^DIE
+87 KILL DR
+88 WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if $DATA(DIRUT)
SET OUT="Y"
EXIT KILL DIC,DR,DA,DIQ,DIE,DIR,DIROUT,DIRUT,DTOUT,DUOUT,X,Y
+1 QUIT
ITEM18 ;GASTRO-ESOPHAGEAL JUNCTION (SIEWART TYPE II/III)
+1 SET $PIECE(^ONCO(165.5,D0,"GAS1"),U,48)=""
+2 WRITE !!," 18. GASTRO-ESOPHAGEAL JUNCTION (SIEWART TYPE II/III)........: NA (not C16.0 or C16.1)"
+3 QUIT
ITEM21 ;LAUREN'S CLASSIFICATION
ITEM22 ;GOSEKI'S CLASSIFICATION
+1 SET $PIECE(^ONCO(165.5,D0,"GAS1"),U,55)=""
+2 SET $PIECE(^ONCO(165.5,D0,"GAS1"),U,56)=""
+3 WRITE !!," 21. LAUREN'S CLASSIFICATION.......: NA (not adenocarcinoma)"
+4 WRITE !!," 22. GOSEKI'S CLASSIFICATION.......: NA (not adenocarcinoma)"
+5 QUIT
ITEM24 ;MITOTIC RATE
ITEM25 ;TUMOR NECROSIS
+1 SET $PIECE(^ONCO(165.5,D0,"GAS1"),U,62)=""
+2 SET $PIECE(^ONCO(165.5,D0,"GAS1"),U,63)=""
+3 WRITE !!," 24. MITOTIC RATE..................: NA (not leimyosarcoma)"
+4 WRITE !!," 25. TUMOR NECROSIS................: NA (not leimyosarcoma)"
+5 QUIT
ITEM26 ;PHENOTYPE MODALITY USED
ITEM27 ;ANN ARBOR STAGING
+1 FOR PIECE=64:1:70
SET $PIECE(^ONCO(165.5,D0,"GAS1"),U,PIECE)=""
+2 KILL PIECE
+3 WRITE !," FLOW CYTOMETRY ON FRESH TISSUE......................: NA (not lymphoma)"
+4 WRITE !," IMMUNOCHEMISTRY ON FROZEN TISSUE......................: NA (not lymphoma)"
+5 WRITE !," IMMUNOHISTOCHEMISTRY ON PARAFIN EMBEDDED TISSUE.....: NA (not lymphoma)"
+6 WRITE !," MOLECULAR GENETICS...........: NA (not lymphoma)"
+7 WRITE !," POLYMERASE CHAIN REACTION TECHNIQUE...................: NA (not lymphoma)"
+8 WRITE !," SOUTHERN BLOT TECHNIQUE......: NA (not lymphoma)"
+9 WRITE !
+10 WRITE !," 27. ANN ARBOR STAGING.............: NA (not lymphoma)"
+11 QUIT
