123 lines
6.6 KiB
Mathematica
123 lines
6.6 KiB
Mathematica
ONCGPC2 ;Hines OIFO/GWB - 2001 Gastric Cancers PCE Study ;02/27/01
|
|
;;2.11;ONCOLOGY;**29**;Mar 07, 1995
|
|
;Tumor Identification and Diagnosis
|
|
K DR S DIE="^ONCO(165.5,",DA=ONCONUM,DR=""
|
|
W @IOF D HEAD^ONCGPC0
|
|
W !," TUMOR INDENTIFICATION 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
|