source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCGPC7B.m@ 1259

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

initial load of WorldVistAEHR
File size: 6.9 KB
Line 
1ONCGPC7B ;Hines OIFO/GWB - 2001 Gastric Cancers PCE Study ;05/02/01
2 ;;2.11;ONCOLOGY;**29**;Mar 07, 1995
3 ;Print (continued)
4III S TABLE="FIRST COURSE OF TREATMENT - SURGERY"
5 I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HEAD^ONCGPC0
6 K LINE S $P(LINE,"-",35)="-"
7 W !?4,TABLE,!?4,LINE
8 D P Q:EX=U
9ITEM28 W !,"28. ADHERENCE OF RESECTED PRIMARY"
10 D P Q:EX=U
11 W !," SPECIMEN.....................: ",$$GET1^DIQ(165.5,IE,1556)
12 D P Q:EX=U
13 W !
14 D P Q:EX=U
15ITEM29 W !,"29. MARGIN STATUS OF RESECTED"
16 W !," PRIMARY SPECIMAN.............: ",$$GET1^DIQ(165.5,IE,1557)
17 D P Q:EX=U
18 W !
19 D P Q:EX=U
20ITEM30 W !,"30. EXTENT OF FREE MARGIN:"
21 D P Q:EX=U
22 W !," PROXIMAL MARGIN..............: ",$$GET1^DIQ(165.5,IE,1558)
23 D P Q:EX=U
24 W !," DISTAL MARGIN................: ",$$GET1^DIQ(165.5,IE,1558.1)
25 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCGPC0 G ITEM31
26 W !
27 D P Q:EX=U
28ITEM31 W !,"31. RESECTION BEYOND STOMACH:"
29 D P Q:EX=U
30 W !," SPLEEN.......................: ",$$GET1^DIQ(165.5,IE,1559)
31 D P Q:EX=U
32 W !," TRANVERSE COLON..............: ",$$GET1^DIQ(165.5,IE,1559.1)
33 D P Q:EX=U
34 W !," LIVER........................: ",$$GET1^DIQ(165.5,IE,1559.2)
35 D P Q:EX=U
36 W !," DIAPHRAGM....................: ",$$GET1^DIQ(165.5,IE,1559.3)
37 D P Q:EX=U
38 W !," PANCREAS.....................: ",$$GET1^DIQ(165.5,IE,1559.4)
39 D P Q:EX=U
40 W !," ABDOMINAL WALL...............: ",$$GET1^DIQ(165.5,IE,1559.5)
41 D P Q:EX=U
42 W !," ADRENAL GLAND................: ",$$GET1^DIQ(165.5,IE,1559.6)
43 D P Q:EX=U
44 W !," KIDNEY.......................: ",$$GET1^DIQ(165.5,IE,1559.7)
45 D P Q:EX=U
46 W !," SMALL INTESTINE..............: ",$$GET1^DIQ(165.5,IE,1559.8)
47 D P Q:EX=U
48 W !," RETROPERITONEUM..............: ",$$GET1^DIQ(165.5,IE,1559.9)
49 D P Q:EX=U
50 W !," PERIGASTRIC LYMPH NODES......: ",$$GET1^DIQ(165.5,IE,1560)
51 D P Q:EX=U
52 W !," COMMON HEPATIC LYMPH NODES...: ",$$GET1^DIQ(165.5,IE,1560.1)
53 D P Q:EX=U
54 W !," CELIAC LYMPH NODES...........: ",$$GET1^DIQ(165.5,IE,1560.2)
55 D P Q:EX=U
56 W !," SPLENIC LYMPH NODES..........: ",$$GET1^DIQ(165.5,IE,1560.3)
57 D P Q:EX=U
58 W !," OTHER INTRA-ABDOMINAL NODES..: ",$$GET1^DIQ(165.5,IE,1560.4)
59 D P Q:EX=U
60 W !
61 D P Q:EX=U
62ITEM32 W !,"32. GROSSLY INVOLVED REGIONAL"
63 D P Q:EX=U
64 W !," LYMPH NODES..................: ",$$GET1^DIQ(165.5,IE,1561)
65 D P Q:EX=U
66 W !
67 D P Q:EX=U
68ITEM33 W !,"33. HCT (HEMATOCRIT) VALUES BEFORE"
69 D P Q:EX=U
70 W !," TRANSFUSION..................: ",$$GET1^DIQ(165.5,IE,1562)
71 D P Q:EX=U
72 W !
73 D P Q:EX=U
74ITEM34 W !,"34. TOTAL OPERATIVE BLOOD"
75 D P Q:EX=U
76 W !," REPLACEMENT..................: ",$$GET1^DIQ(165.5,IE,1563)
77 D P Q:EX=U
78 W !
79 D P Q:EX=U
80ITEM35 W !,"35. INTRA/PERI-OPERATIVE DEATH....: ",$$GET1^DIQ(165.5,IE,1564)
81 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCGPC0 G ITEM36
82 W !
83 D P Q:EX=U
84ITEM36 W !,"36. COMPLICATIONS REQUIRING RE-OPERATION:"
85 D P Q:EX=U
86 W !," ANASTOMOTIC LEAK.............: ",$$GET1^DIQ(165.5,IE,1565)
87 D P Q:EX=U
88 W !," STUMP LEAK...................: ",$$GET1^DIQ(165.5,IE,1565.1)
89 D P Q:EX=U
90 W !," BLEEDING.....................: ",$$GET1^DIQ(165.5,IE,1565.2)
91 D P Q:EX=U
92 W !," WOUND INFECTION..............: ",$$GET1^DIQ(165.5,IE,1565.3)
93 D P Q:EX=U
94 W !," SEPSIS.......................: ",$$GET1^DIQ(165.5,IE,1565.4)
95 D P Q:EX=U
96 W !," PANCREATITIS.................: ",$$GET1^DIQ(165.5,IE,1565.5)
97 D P Q:EX=U
98 W !," DEAD BOWEL...................: ",$$GET1^DIQ(165.5,IE,1565.6)
99 D P Q:EX=U
100 W !," OTHER........................: ",$$GET1^DIQ(165.5,IE,1565.7)
101 D P Q:EX=U
102 W !
103 D P Q:EX=U
104ITEM37 W !,"37. DATE OF SURGICAL DISCHARGE....: ",$$GET1^DIQ(165.5,IE,1566)
105 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCGPC0
106 S TABLE="FIRST COURSE OF TREATMENT - RADIATION"
107 I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HEAD^ONCGPC0
108 K LINE S $P(LINE,"-",37)="-"
109 W !?4,TABLE,!?4,LINE
110 D P Q:EX=U
111ITEM38 W !,"38. REGIONAL DOSE (cGy)...........: ",$$GET1^DIQ(165.5,IE,442)
112 D P Q:EX=U
113 W !
114 D P Q:EX=U
115ITEM39 W !,"39. BOOST DOSE (cGy)..............: ",$$GET1^DIQ(165.5,IE,1575)
116 D P Q:EX=U
117 W !
118 D P Q:EX=U
119ITEM40 W !,"40. INTRA-OPERATIVE RADIATION"
120 D P Q:EX=U
121 W !," THERAPY, DOSE (cGy)..........: ",$$GET1^DIQ(165.5,IE,1567)
122 D P Q:EX=U
123 W !
124 D P Q:EX=U
125ITEM41 W !,"41. CONCURRENT CHEMOTHERAPY.......: ",$$GET1^DIQ(165.5,IE,1568)
126 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCGPC0
127 S TABLE="FIRST COURSE OF TREATMENT - CHEMOTHERAPY"
128 I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HEAD^ONCGPC0
129 K LINE S $P(LINE,"-",40)="-"
130 W !?4,TABLE,!?4,LINE
131 D P Q:EX=U
132ITEM42 W !,"42. TYPE OF CHEMOTHERAPEUTIC AGENTS ADMINISTERED:"
133 D P Q:EX=U
134 W !," AGENT #1.....................: ",$$GET1^DIQ(165.5,IE,1576)
135 D P Q:EX=U
136 W !," AGENT #2.....................: ",$$GET1^DIQ(165.5,IE,1576.1)
137 D P Q:EX=U
138 W !," AGENT #3.....................: ",$$GET1^DIQ(165.5,IE,1576.2)
139 D P Q:EX=U
140 W !
141 D P Q:EX=U
142ITEM43 W !,"43. INTRAPERITONEAL CHEMOTHERAPY..: ",$$GET1^DIQ(165.5,IE,1569)
143 D P Q:EX=U
144 W !
145 D P Q:EX=U
146ITEM44 W !,"44. CHEMOTHERAPEUTIC TOXICITY.....: ",$$GET1^DIQ(165.5,IE,1577)
147 D P Q:EX=U
148 W !
149 D P Q:EX=U
150ITEM45 W !,"45. CHEMOTHERAPY/SURGERY SEQUENCE.: ",$$GET1^DIQ(165.5,IE,1578)
151 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCGPC0
152 S TABLE="FIRST COURSE OF TREATMENT - IMMUNOTHERAPY"
153 I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HEAD^ONCGPC0
154 K LINE S $P(LINE,"-",41)="-"
155 W !?4,TABLE,!?4,LINE
156 D P Q:EX=U
157ITEM46 W !,"46. ADMINISTRATION OF INTERFERON..: ",$$GET1^DIQ(165.5,IE,1570)
158 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCGPC0
159IV S TABLE="TREATMENT COMPLICATIONS"
160 I IOST'?1"C".E W !
161 W !?4,TABLE,!?4,"-----------------------"
162ITEM47 W !,"47. COMPLICATIONS:"
163 D P Q:EX=U
164 I TC="No" D G TC2
165 .W !," CO-MORBID CONDITION #1.......: 000.00 No co-morbidities"
166 W !," COMPLICATION #1..............: ",$P($$GET1^DIQ(165.5,IE,1579)," ",1),?43,$P($$GET1^DIQ(165.5,IE,1579)," ",2,99)
167TC2 D P Q:EX=U
168 W !," COMPLICATION #2..............: ",$P($$GET1^DIQ(165.5,IE,1579.1)," ",1),?43,$P($$GET1^DIQ(165.5,IE,1579.1)," ",2,99)
169 D P Q:EX=U
170 W !," COMPLICATION #3..............: ",$P($$GET1^DIQ(165.5,IE,1579.2)," ",1),?43,$P($$GET1^DIQ(165.5,IE,1579.2)," ",2,99)
171 D P Q:EX=U
172 W !," COMPLICATION #4..............: ",$P($$GET1^DIQ(165.5,IE,1579.3)," ",1),?43,$P($$GET1^DIQ(165.5,IE,1579.3)," ",2,99)
173 D P Q:EX=U
174 W !," COMPLICATION #5..............: ",$P($$GET1^DIQ(165.5,IE,1579.4)," ",1),?43,$P($$GET1^DIQ(165.5,IE,1579.4)," ",2,99)
175 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCGPC0
176V S TABLE="CASE REGISTRATION"
177 I IOST'?1"C".E W !
178 W !?4,TABLE,!?4,"-----------------"
179 D P Q:EX=U
180ITEM48 W !,"48. INITIALS OF CASE ABSTRACTOR...: ",$$GET1^DIQ(165.5,IE,81)
181 D P Q:EX=U
182 W !
183 D P Q:EX=U
184ITEM49 W !,"49. DATE CASE WAS ABSTRACTED......: ",$$GET1^DIQ(165.5,IE,90)
185 D P Q:EX=U
186 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR
187 Q
188P ;Print
189 I ($Y'<(LIN-1)) D Q:EX=U
190 .I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR I 'Y S EX=U Q
191 .D HEAD^ONCGPC0 Q
192 Q
Note: See TracBrowser for help on using the repository browser.