source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCGPC2.m@ 824

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

initial load of WorldVistAEHR

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