source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCLPC9A.m@ 1489

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

initial load of WorldVistAEHR
File size: 7.3 KB
Line 
1ONCLPC9A ;Hines OIFO/GWB - 2001 Lung (NSCLC) PCE Study ;05/16/01
2 ;;2.11;ONCOLOGY;**29**;Mar 07, 1995
3 ;Print (continued)
4III S TABLE="TUMOR EVALUATION"
5 I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HEAD^ONCLPC0
6 K LINE S $P(LINE,"-",16)="-"
7 W !?4,TABLE,!?4,LINE
8 D P Q:EX=U
9ITEM7 W !," 7. PULMONARY FUNCTION TESTS:"
10 D P Q:EX=U
11 W !," FVC (forced vital capacity)..: ",$$GET1^DIQ(165.5,IE,1407)
12 D P Q:EX=U
13 W !," FEV (forced expiratory vol)..: ",$$GET1^DIQ(165.5,IE,1407.1)
14 D P Q:EX=U
15 W !
16 D P Q:EX=U
17ITEM8 W !," 8. LIVER FUNCTION TESTS..........: ",$$GET1^DIQ(165.5,IE,1408)
18 W !
19 D P Q:EX=U
20ITEM9 W !," 9. RADIOLOGICAL EVALUATION:"
21 D P Q:EX=U
22 W !," BONE SCAN....................: ",$$GET1^DIQ(165.5,IE,1409)
23 D P Q:EX=U
24 W !," EMPHYSEMA...................: ",$$GET1^DIQ(165.5,IE,1409.1)
25 D P Q:EX=U
26 W !," VASCULAR INVASION...........: ",$$GET1^DIQ(165.5,IE,1409.2)
27 D P Q:EX=U
28 W !," MEDIASTINAL LYMPH NODES.....: ",$$GET1^DIQ(165.5,IE,1409.3)
29 D P Q:EX=U
30 W !," SIZE OF DOMINANT TUMOR (mm).: ",$$GET1^DIQ(165.5,IE,1409.4)
31 D P Q:EX=U
32 W !," NUMBER OF TUMORS............: ",$$GET1^DIQ(165.5,IE,1409.5)
33 D P1 Q:EX=U
34 W !," EVIDENCE OF METASTASIS......: ",$$GET1^DIQ(165.5,IE,1409.6)
35 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCLPC0 G CTSC
36 W !
37 D P Q:EX=U
38CTSC W !," CT SCAN OF CHEST.............: ",$$GET1^DIQ(165.5,IE,1410)
39 D P Q:EX=U
40 W !," EMPHYSEMA...................: ",$$GET1^DIQ(165.5,IE,1410.1)
41 D P Q:EX=U
42 W !," VASCULAR INVASION...........: ",$$GET1^DIQ(165.5,IE,1410.2)
43 D P Q:EX=U
44 W !," MEDIASTINAL LYMPH NODES.....: ",$$GET1^DIQ(165.5,IE,1410.3)
45 D P Q:EX=U
46 W !," SIZE OF DOMINANT TUMOR (mm).: ",$$GET1^DIQ(165.5,IE,1410.4)
47 D P Q:EX=U
48 W !," NUMBER OF TUMORS............: ",$$GET1^DIQ(165.5,IE,1410.5)
49 D P Q:EX=U
50 W !," EVIDENCE OF METASTASIS......: ",$$GET1^DIQ(165.5,IE,1410.6)
51 W !
52 D P Q:EX=U
53CTSB W !," CT SCAN OF BRAIN.............: ",$$GET1^DIQ(165.5,IE,1411)
54 D P Q:EX=U
55 W !," EMPHYSEMA...................: ",$$GET1^DIQ(165.5,IE,1411.1)
56 D P Q:EX=U
57 W !," VASCULAR INVASION...........: ",$$GET1^DIQ(165.5,IE,1411.2)
58 D P Q:EX=U
59 W !," MEDIASTINAL LYMPH NODES.....: ",$$GET1^DIQ(165.5,IE,1411.3)
60 D P Q:EX=U
61 W !," SIZE OF DOMINANT TUMOR (mm).: ",$$GET1^DIQ(165.5,IE,1411.4)
62 D P Q:EX=U
63 W !," NUMBER OF TUMORS............: ",$$GET1^DIQ(165.5,IE,1411.5)
64 D P1 Q:EX=U
65 W !," EVIDENCE OF METASTASIS......: ",$$GET1^DIQ(165.5,IE,1411.6)
66 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCLPC0 G MRISC
67 W !
68 D P Q:EX=U
69MRISC W !," MRI SCAN OF CHEST............: ",$$GET1^DIQ(165.5,IE,1412)
70 D P Q:EX=U
71 W !," EMPHYSEMA...................: ",$$GET1^DIQ(165.5,IE,1412.1)
72 D P Q:EX=U
73 W !," VASCULAR INVASION...........: ",$$GET1^DIQ(165.5,IE,1412.2)
74 D P Q:EX=U
75 W !," MEDIASTINAL LYMPH NODES.....: ",$$GET1^DIQ(165.5,IE,1412.3)
76 D P Q:EX=U
77 W !," SIZE OF DOMINANT TUMOR (mm).: ",$$GET1^DIQ(165.5,IE,1412.4)
78 D P Q:EX=U
79 W !," NUMBER OF TUMORS............: ",$$GET1^DIQ(165.5,IE,1412.5)
80 D P Q:EX=U
81 W !," EVIDENCE OF METASTASIS......: ",$$GET1^DIQ(165.5,IE,1412.6)
82 W !
83 D P Q:EX=U
84MRISB W !," MRI SCAN OF BRAIN............: ",$$GET1^DIQ(165.5,IE,1413)
85 D P Q:EX=U
86 W !," EMPHYSEMA...................: ",$$GET1^DIQ(165.5,IE,1413.1)
87 D P Q:EX=U
88 W !," VASCULAR INVASION...........: ",$$GET1^DIQ(165.5,IE,1413.2)
89 D P Q:EX=U
90 W !," MEDIASTINAL LYMPH NODES.....: ",$$GET1^DIQ(165.5,IE,1413.3)
91 D P Q:EX=U
92 W !," SIZE OF DOMINANT TUMOR (mm).: ",$$GET1^DIQ(165.5,IE,1413.4)
93 D P Q:EX=U
94 W !," NUMBER OF TUMORS............: ",$$GET1^DIQ(165.5,IE,1413.5)
95 D P1 Q:EX=U
96 W !," EVIDENCE OF METASTASIS......: ",$$GET1^DIQ(165.5,IE,1413.6)
97 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCLPC0 G PETS
98 W !
99 D P Q:EX=U
100PETS W !," PET SCAN.....................: ",$$GET1^DIQ(165.5,IE,1414)
101 D P Q:EX=U
102 W !," EMPHYSEMA...................: ",$$GET1^DIQ(165.5,IE,1414.1)
103 D P Q:EX=U
104 W !," VASCULAR INVASION...........: ",$$GET1^DIQ(165.5,IE,1414.2)
105 D P Q:EX=U
106 W !," MEDIASTINAL LYMPH NODES.....: ",$$GET1^DIQ(165.5,IE,1414.3)
107 D P Q:EX=U
108 W !," SIZE OF DOMINANT TUMOR (mm).: ",$$GET1^DIQ(165.5,IE,1414.4)
109 D P Q:EX=U
110 W !," NUMBER OF TUMORS............: ",$$GET1^DIQ(165.5,IE,1414.5)
111 D P Q:EX=U
112 W !," EVIDENCE OF METASTASIS......: ",$$GET1^DIQ(165.5,IE,1414.6)
113 W !
114 D P Q:EX=U
115XRAY W !," X-RAY OF CHEST...............: ",$$GET1^DIQ(165.5,IE,1415)
116 D P Q:EX=U
117 W !," EMPHYSEMA...................: ",$$GET1^DIQ(165.5,IE,1415.1)
118 D P Q:EX=U
119 W !," VASCULAR INVASION...........: ",$$GET1^DIQ(165.5,IE,1415.2)
120 D P Q:EX=U
121 W !," MEDIASTINAL LYMPH NODES.....: ",$$GET1^DIQ(165.5,IE,1415.3)
122 D P Q:EX=U
123 W !," SIZE OF DOMINANT TUMOR (mm).: ",$$GET1^DIQ(165.5,IE,1415.4)
124 D P Q:EX=U
125 W !," NUMBER OF TUMORS............: ",$$GET1^DIQ(165.5,IE,1415.5)
126 D P1 Q:EX=U
127 W !," EVIDENCE OF METASTASIS......: ",$$GET1^DIQ(165.5,IE,1415.6)
128 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCLPC0 G ITEM10
129 W !
130 D P Q:EX=U
131ITEM10 W !,"10. PRE-OP LYMPH NODE MAPPING:"
132 D P Q:EX=U
133 W !," HIGHEST MEDIASTINAL (level 1): ",$$GET1^DIQ(165.5,IE,1416)
134 D P Q:EX=U
135 W !," UPPER PARATRACHEAL (level 2): ",$$GET1^DIQ(165.5,IE,1416.1)
136 D P Q:EX=U
137 W !," PREVASCULAR AND RETROTRACHEAL"
138 D P Q:EX=U
139 W !," (level 3): ",$$GET1^DIQ(165.5,IE,1416.2)
140 D P Q:EX=U
141 W !," LOWER PARATRACHEAL (level 4): ",$$GET1^DIQ(165.5,IE,1416.3)
142 D P Q:EX=U
143 W !," SUBAORTIC (level 5): ",$$GET1^DIQ(165.5,IE,1416.4)
144 D P Q:EX=U
145 W !," PARAORTIC (level 6): ",$$GET1^DIQ(165.5,IE,1416.5)
146 D P Q:EX=U
147 W !," SUBCARINAL (level 7): ",$$GET1^DIQ(165.5,IE,1416.6)
148 D P Q:EX=U
149 W !," PARAESOPHAGEAL (level 8): ",$$GET1^DIQ(165.5,IE,1416.7)
150 D P Q:EX=U
151 W !," PULMONARY LIGAMENT (level 9): ",$$GET1^DIQ(165.5,IE,1416.8)
152 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCLPC0 G IV
153 W !
154 D P Q:EX=U
155IV S TABLE="PATHOLOGY"
156 I IOST'?1"C".E I ($Y'<(LIN-4)) D HEAD^ONCLPC0
157 K LINE S $P(LINE,"-",8)="-"
158 W !?4,TABLE,!?4,LINE
159 D P Q:EX=U
160ITEM11 W !,"11. DATE OF FIRST TISSUE DIAGNOSIS: ",$$GET1^DIQ(165.5,IE,1402)
161 D P Q:EX=U
162 W !
163 D P Q:EX=U
164ITEM12 W !,"12. DISTANCE IN MILLIMETERS TO CLOSEST MARGIN:"
165 D P Q:EX=U
166 W !," PROXIMAL MARGIN..............: ",$$GET1^DIQ(165.5,IE,1429)
167 D P Q:EX=U
168 W !," DISTAL MARGIN................: ",$$GET1^DIQ(165.5,IE,1429.1)
169 D P Q:EX=U
170 W !
171 D P Q:EX=U
172ITEM13 W !,"13. FROZEN SECTION................: ",$$GET1^DIQ(165.5,IE,1417)
173 D P Q:EX=U
174 W !
175 D P Q:EX=U
176ITEM14 W !,"14. INVASION:"
177 D P Q:EX=U
178 W !," VASCULAR.....................: ",$$GET1^DIQ(165.5,IE,1418)
179 D P Q:EX=U
180 W !," LYMPHATICS...................: ",$$GET1^DIQ(165.5,IE,1418.1)
181 D P Q:EX=U
182 W !," PLEURA.......................: ",$$GET1^DIQ(165.5,IE,1418.2)
183 D P Q:EX=U
184 W !," CHEST WALL...................: ",$$GET1^DIQ(165.5,IE,1418.3)
185 D P Q:EX=U
186 W !," OTHER........................: ",$$GET1^DIQ(165.5,IE,1418.4)
187 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y
188 I IOST?1"C".E D HEAD^ONCLPC0
189 D ^ONCLPC9B
190 Q
191P ;Print
192 I ($Y'<(LIN-1)) D Q:EX=U
193 .I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR I 'Y S EX=U Q
194 .D HEAD^ONCLPC0 Q
195 Q
196P1 ;Print
197 I ($Y'<(LIN)) D Q:EX=U
198 .I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR I 'Y S EX=U Q
199 .D HEAD^ONCLPC0 Q
200 Q
Note: See TracBrowser for help on using the repository browser.