ONCLPC9A ;Hines OIFO/GWB - 2001 Lung (NSCLC) PCE Study ;05/16/01
;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
;Print (continued)
III S TABLE="TUMOR EVALUATION"
I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HEAD^ONCLPC0
K LINE S $P(LINE,"-",16)="-"
W !?4,TABLE,!?4,LINE
D P Q:EX=U
ITEM7 W !," 7. PULMONARY FUNCTION TESTS:"
D P Q:EX=U
W !," FVC (forced vital capacity)..: ",$$GET1^DIQ(165.5,IE,1407)
D P Q:EX=U
W !," FEV (forced expiratory vol)..: ",$$GET1^DIQ(165.5,IE,1407.1)
D P Q:EX=U
W !
D P Q:EX=U
ITEM8 W !," 8. LIVER FUNCTION TESTS..........: ",$$GET1^DIQ(165.5,IE,1408)
W !
D P Q:EX=U
ITEM9 W !," 9. RADIOLOGICAL EVALUATION:"
D P Q:EX=U
W !," BONE SCAN....................: ",$$GET1^DIQ(165.5,IE,1409)
D P Q:EX=U
W !," EMPHYSEMA...................: ",$$GET1^DIQ(165.5,IE,1409.1)
D P Q:EX=U
W !," VASCULAR INVASION...........: ",$$GET1^DIQ(165.5,IE,1409.2)
D P Q:EX=U
W !," MEDIASTINAL LYMPH NODES.....: ",$$GET1^DIQ(165.5,IE,1409.3)
D P Q:EX=U
W !," SIZE OF DOMINANT TUMOR (mm).: ",$$GET1^DIQ(165.5,IE,1409.4)
D P Q:EX=U
W !," NUMBER OF TUMORS............: ",$$GET1^DIQ(165.5,IE,1409.5)
D P1 Q:EX=U
W !," EVIDENCE OF METASTASIS......: ",$$GET1^DIQ(165.5,IE,1409.6)
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCLPC0 G CTSC
W !
D P Q:EX=U
CTSC W !," CT SCAN OF CHEST.............: ",$$GET1^DIQ(165.5,IE,1410)
D P Q:EX=U
W !," EMPHYSEMA...................: ",$$GET1^DIQ(165.5,IE,1410.1)
D P Q:EX=U
W !," VASCULAR INVASION...........: ",$$GET1^DIQ(165.5,IE,1410.2)
D P Q:EX=U
W !," MEDIASTINAL LYMPH NODES.....: ",$$GET1^DIQ(165.5,IE,1410.3)
D P Q:EX=U
W !," SIZE OF DOMINANT TUMOR (mm).: ",$$GET1^DIQ(165.5,IE,1410.4)
D P Q:EX=U
W !," NUMBER OF TUMORS............: ",$$GET1^DIQ(165.5,IE,1410.5)
D P Q:EX=U
W !," EVIDENCE OF METASTASIS......: ",$$GET1^DIQ(165.5,IE,1410.6)
W !
D P Q:EX=U
CTSB W !," CT SCAN OF BRAIN.............: ",$$GET1^DIQ(165.5,IE,1411)
D P Q:EX=U
W !," EMPHYSEMA...................: ",$$GET1^DIQ(165.5,IE,1411.1)
D P Q:EX=U
W !," VASCULAR INVASION...........: ",$$GET1^DIQ(165.5,IE,1411.2)
D P Q:EX=U
W !," MEDIASTINAL LYMPH NODES.....: ",$$GET1^DIQ(165.5,IE,1411.3)
D P Q:EX=U
W !," SIZE OF DOMINANT TUMOR (mm).: ",$$GET1^DIQ(165.5,IE,1411.4)
D P Q:EX=U
W !," NUMBER OF TUMORS............: ",$$GET1^DIQ(165.5,IE,1411.5)
D P1 Q:EX=U
W !," EVIDENCE OF METASTASIS......: ",$$GET1^DIQ(165.5,IE,1411.6)
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCLPC0 G MRISC
W !
D P Q:EX=U
MRISC W !," MRI SCAN OF CHEST............: ",$$GET1^DIQ(165.5,IE,1412)
D P Q:EX=U
W !," EMPHYSEMA...................: ",$$GET1^DIQ(165.5,IE,1412.1)
D P Q:EX=U
W !," VASCULAR INVASION...........: ",$$GET1^DIQ(165.5,IE,1412.2)
D P Q:EX=U
W !," MEDIASTINAL LYMPH NODES.....: ",$$GET1^DIQ(165.5,IE,1412.3)
D P Q:EX=U
W !," SIZE OF DOMINANT TUMOR (mm).: ",$$GET1^DIQ(165.5,IE,1412.4)
D P Q:EX=U
W !," NUMBER OF TUMORS............: ",$$GET1^DIQ(165.5,IE,1412.5)
D P Q:EX=U
W !," EVIDENCE OF METASTASIS......: ",$$GET1^DIQ(165.5,IE,1412.6)
W !
D P Q:EX=U
MRISB W !," MRI SCAN OF BRAIN............: ",$$GET1^DIQ(165.5,IE,1413)
D P Q:EX=U
W !," EMPHYSEMA...................: ",$$GET1^DIQ(165.5,IE,1413.1)
D P Q:EX=U
W !," VASCULAR INVASION...........: ",$$GET1^DIQ(165.5,IE,1413.2)
D P Q:EX=U
W !," MEDIASTINAL LYMPH NODES.....: ",$$GET1^DIQ(165.5,IE,1413.3)
D P Q:EX=U
W !," SIZE OF DOMINANT TUMOR (mm).: ",$$GET1^DIQ(165.5,IE,1413.4)
D P Q:EX=U
W !," NUMBER OF TUMORS............: ",$$GET1^DIQ(165.5,IE,1413.5)
D P1 Q:EX=U
W !," EVIDENCE OF METASTASIS......: ",$$GET1^DIQ(165.5,IE,1413.6)
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCLPC0 G PETS
W !
D P Q:EX=U
PETS W !," PET SCAN.....................: ",$$GET1^DIQ(165.5,IE,1414)
D P Q:EX=U
W !," EMPHYSEMA...................: ",$$GET1^DIQ(165.5,IE,1414.1)
D P Q:EX=U
W !," VASCULAR INVASION...........: ",$$GET1^DIQ(165.5,IE,1414.2)
D P Q:EX=U
W !," MEDIASTINAL LYMPH NODES.....: ",$$GET1^DIQ(165.5,IE,1414.3)
D P Q:EX=U
W !," SIZE OF DOMINANT TUMOR (mm).: ",$$GET1^DIQ(165.5,IE,1414.4)
D P Q:EX=U
W !," NUMBER OF TUMORS............: ",$$GET1^DIQ(165.5,IE,1414.5)
D P Q:EX=U
W !," EVIDENCE OF METASTASIS......: ",$$GET1^DIQ(165.5,IE,1414.6)
W !
D P Q:EX=U
XRAY W !," X-RAY OF CHEST...............: ",$$GET1^DIQ(165.5,IE,1415)
D P Q:EX=U
W !," EMPHYSEMA...................: ",$$GET1^DIQ(165.5,IE,1415.1)
D P Q:EX=U
W !," VASCULAR INVASION...........: ",$$GET1^DIQ(165.5,IE,1415.2)
D P Q:EX=U
W !," MEDIASTINAL LYMPH NODES.....: ",$$GET1^DIQ(165.5,IE,1415.3)
D P Q:EX=U
W !," SIZE OF DOMINANT TUMOR (mm).: ",$$GET1^DIQ(165.5,IE,1415.4)
D P Q:EX=U
W !," NUMBER OF TUMORS............: ",$$GET1^DIQ(165.5,IE,1415.5)
D P1 Q:EX=U
W !," EVIDENCE OF METASTASIS......: ",$$GET1^DIQ(165.5,IE,1415.6)
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCLPC0 G ITEM10
W !
D P Q:EX=U
ITEM10 W !,"10. PRE-OP LYMPH NODE MAPPING:"
D P Q:EX=U
W !," HIGHEST MEDIASTINAL (level 1): ",$$GET1^DIQ(165.5,IE,1416)
D P Q:EX=U
W !," UPPER PARATRACHEAL (level 2): ",$$GET1^DIQ(165.5,IE,1416.1)
D P Q:EX=U
W !," PREVASCULAR AND RETROTRACHEAL"
D P Q:EX=U
W !," (level 3): ",$$GET1^DIQ(165.5,IE,1416.2)
D P Q:EX=U
W !," LOWER PARATRACHEAL (level 4): ",$$GET1^DIQ(165.5,IE,1416.3)
D P Q:EX=U
W !," SUBAORTIC (level 5): ",$$GET1^DIQ(165.5,IE,1416.4)
D P Q:EX=U
W !," PARAORTIC (level 6): ",$$GET1^DIQ(165.5,IE,1416.5)
D P Q:EX=U
W !," SUBCARINAL (level 7): ",$$GET1^DIQ(165.5,IE,1416.6)
D P Q:EX=U
W !," PARAESOPHAGEAL (level 8): ",$$GET1^DIQ(165.5,IE,1416.7)
D P Q:EX=U
W !," PULMONARY LIGAMENT (level 9): ",$$GET1^DIQ(165.5,IE,1416.8)
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCLPC0 G IV
W !
D P Q:EX=U
IV S TABLE="PATHOLOGY"
I IOST'?1"C".E I ($Y'<(LIN-4)) D HEAD^ONCLPC0
K LINE S $P(LINE,"-",8)="-"
W !?4,TABLE,!?4,LINE
D P Q:EX=U
ITEM11 W !,"11. DATE OF FIRST TISSUE DIAGNOSIS: ",$$GET1^DIQ(165.5,IE,1402)
D P Q:EX=U
W !
D P Q:EX=U
ITEM12 W !,"12. DISTANCE IN MILLIMETERS TO CLOSEST MARGIN:"
D P Q:EX=U
W !," PROXIMAL MARGIN..............: ",$$GET1^DIQ(165.5,IE,1429)
D P Q:EX=U
W !," DISTAL MARGIN................: ",$$GET1^DIQ(165.5,IE,1429.1)
D P Q:EX=U
W !
D P Q:EX=U
ITEM13 W !,"13. FROZEN SECTION................: ",$$GET1^DIQ(165.5,IE,1417)
D P Q:EX=U
W !
D P Q:EX=U
ITEM14 W !,"14. INVASION:"
D P Q:EX=U
W !," VASCULAR.....................: ",$$GET1^DIQ(165.5,IE,1418)
D P Q:EX=U
W !," LYMPHATICS...................: ",$$GET1^DIQ(165.5,IE,1418.1)
D P Q:EX=U
W !," PLEURA.......................: ",$$GET1^DIQ(165.5,IE,1418.2)
D P Q:EX=U
W !," CHEST WALL...................: ",$$GET1^DIQ(165.5,IE,1418.3)
D P Q:EX=U
W !," OTHER........................: ",$$GET1^DIQ(165.5,IE,1418.4)
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y
I IOST?1"C".E D HEAD^ONCLPC0
D ^ONCLPC9B
Q
P ;Print
I ($Y'<(LIN-1)) D Q:EX=U
.I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR I 'Y S EX=U Q
.D HEAD^ONCLPC0 Q
Q
P1 ;Print
I ($Y'<(LIN)) D Q:EX=U
.I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR I 'Y S EX=U Q
.D HEAD^ONCLPC0 Q
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCLPC9A 7633 printed Oct 16, 2024@18:24:20 Page 2
ONCLPC9A ;Hines OIFO/GWB - 2001 Lung (NSCLC) PCE Study ;05/16/01
+1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
+2 ;Print (continued)
III SET TABLE="TUMOR EVALUATION"
+1 IF IOST'?1"C".E
WRITE !
IF ($Y'<(LIN-4))
DO HEAD^ONCLPC0
+2 KILL LINE
SET $PIECE(LINE,"-",16)="-"
+3 WRITE !?4,TABLE,!?4,LINE
+4 DO P
if EX=U
QUIT
ITEM7 WRITE !," 7. PULMONARY FUNCTION TESTS:"
+1 DO P
if EX=U
QUIT
+2 WRITE !," FVC (forced vital capacity)..: ",$$GET1^DIQ(165.5,IE,1407)
+3 DO P
if EX=U
QUIT
+4 WRITE !," FEV (forced expiratory vol)..: ",$$GET1^DIQ(165.5,IE,1407.1)
+5 DO P
if EX=U
QUIT
+6 WRITE !
+7 DO P
if EX=U
QUIT
ITEM8 WRITE !," 8. LIVER FUNCTION TESTS..........: ",$$GET1^DIQ(165.5,IE,1408)
+1 WRITE !
+2 DO P
if EX=U
QUIT
ITEM9 WRITE !," 9. RADIOLOGICAL EVALUATION:"
+1 DO P
if EX=U
QUIT
+2 WRITE !," BONE SCAN....................: ",$$GET1^DIQ(165.5,IE,1409)
+3 DO P
if EX=U
QUIT
+4 WRITE !," EMPHYSEMA...................: ",$$GET1^DIQ(165.5,IE,1409.1)
+5 DO P
if EX=U
QUIT
+6 WRITE !," VASCULAR INVASION...........: ",$$GET1^DIQ(165.5,IE,1409.2)
+7 DO P
if EX=U
QUIT
+8 WRITE !," MEDIASTINAL LYMPH NODES.....: ",$$GET1^DIQ(165.5,IE,1409.3)
+9 DO P
if EX=U
QUIT
+10 WRITE !," SIZE OF DOMINANT TUMOR (mm).: ",$$GET1^DIQ(165.5,IE,1409.4)
+11 DO P
if EX=U
QUIT
+12 WRITE !," NUMBER OF TUMORS............: ",$$GET1^DIQ(165.5,IE,1409.5)
+13 DO P1
if EX=U
QUIT
+14 WRITE !," EVIDENCE OF METASTASIS......: ",$$GET1^DIQ(165.5,IE,1409.6)
+15 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
DO HEAD^ONCLPC0
GOTO CTSC
+16 WRITE !
+17 DO P
if EX=U
QUIT
CTSC WRITE !," CT SCAN OF CHEST.............: ",$$GET1^DIQ(165.5,IE,1410)
+1 DO P
if EX=U
QUIT
+2 WRITE !," EMPHYSEMA...................: ",$$GET1^DIQ(165.5,IE,1410.1)
+3 DO P
if EX=U
QUIT
+4 WRITE !," VASCULAR INVASION...........: ",$$GET1^DIQ(165.5,IE,1410.2)
+5 DO P
if EX=U
QUIT
+6 WRITE !," MEDIASTINAL LYMPH NODES.....: ",$$GET1^DIQ(165.5,IE,1410.3)
+7 DO P
if EX=U
QUIT
+8 WRITE !," SIZE OF DOMINANT TUMOR (mm).: ",$$GET1^DIQ(165.5,IE,1410.4)
+9 DO P
if EX=U
QUIT
+10 WRITE !," NUMBER OF TUMORS............: ",$$GET1^DIQ(165.5,IE,1410.5)
+11 DO P
if EX=U
QUIT
+12 WRITE !," EVIDENCE OF METASTASIS......: ",$$GET1^DIQ(165.5,IE,1410.6)
+13 WRITE !
+14 DO P
if EX=U
QUIT
CTSB WRITE !," CT SCAN OF BRAIN.............: ",$$GET1^DIQ(165.5,IE,1411)
+1 DO P
if EX=U
QUIT
+2 WRITE !," EMPHYSEMA...................: ",$$GET1^DIQ(165.5,IE,1411.1)
+3 DO P
if EX=U
QUIT
+4 WRITE !," VASCULAR INVASION...........: ",$$GET1^DIQ(165.5,IE,1411.2)
+5 DO P
if EX=U
QUIT
+6 WRITE !," MEDIASTINAL LYMPH NODES.....: ",$$GET1^DIQ(165.5,IE,1411.3)
+7 DO P
if EX=U
QUIT
+8 WRITE !," SIZE OF DOMINANT TUMOR (mm).: ",$$GET1^DIQ(165.5,IE,1411.4)
+9 DO P
if EX=U
QUIT
+10 WRITE !," NUMBER OF TUMORS............: ",$$GET1^DIQ(165.5,IE,1411.5)
+11 DO P1
if EX=U
QUIT
+12 WRITE !," EVIDENCE OF METASTASIS......: ",$$GET1^DIQ(165.5,IE,1411.6)
+13 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
DO HEAD^ONCLPC0
GOTO MRISC
+14 WRITE !
+15 DO P
if EX=U
QUIT
MRISC WRITE !," MRI SCAN OF CHEST............: ",$$GET1^DIQ(165.5,IE,1412)
+1 DO P
if EX=U
QUIT
+2 WRITE !," EMPHYSEMA...................: ",$$GET1^DIQ(165.5,IE,1412.1)
+3 DO P
if EX=U
QUIT
+4 WRITE !," VASCULAR INVASION...........: ",$$GET1^DIQ(165.5,IE,1412.2)
+5 DO P
if EX=U
QUIT
+6 WRITE !," MEDIASTINAL LYMPH NODES.....: ",$$GET1^DIQ(165.5,IE,1412.3)
+7 DO P
if EX=U
QUIT
+8 WRITE !," SIZE OF DOMINANT TUMOR (mm).: ",$$GET1^DIQ(165.5,IE,1412.4)
+9 DO P
if EX=U
QUIT
+10 WRITE !," NUMBER OF TUMORS............: ",$$GET1^DIQ(165.5,IE,1412.5)
+11 DO P
if EX=U
QUIT
+12 WRITE !," EVIDENCE OF METASTASIS......: ",$$GET1^DIQ(165.5,IE,1412.6)
+13 WRITE !
+14 DO P
if EX=U
QUIT
MRISB WRITE !," MRI SCAN OF BRAIN............: ",$$GET1^DIQ(165.5,IE,1413)
+1 DO P
if EX=U
QUIT
+2 WRITE !," EMPHYSEMA...................: ",$$GET1^DIQ(165.5,IE,1413.1)
+3 DO P
if EX=U
QUIT
+4 WRITE !," VASCULAR INVASION...........: ",$$GET1^DIQ(165.5,IE,1413.2)
+5 DO P
if EX=U
QUIT
+6 WRITE !," MEDIASTINAL LYMPH NODES.....: ",$$GET1^DIQ(165.5,IE,1413.3)
+7 DO P
if EX=U
QUIT
+8 WRITE !," SIZE OF DOMINANT TUMOR (mm).: ",$$GET1^DIQ(165.5,IE,1413.4)
+9 DO P
if EX=U
QUIT
+10 WRITE !," NUMBER OF TUMORS............: ",$$GET1^DIQ(165.5,IE,1413.5)
+11 DO P1
if EX=U
QUIT
+12 WRITE !," EVIDENCE OF METASTASIS......: ",$$GET1^DIQ(165.5,IE,1413.6)
+13 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
DO HEAD^ONCLPC0
GOTO PETS
+14 WRITE !
+15 DO P
if EX=U
QUIT
PETS WRITE !," PET SCAN.....................: ",$$GET1^DIQ(165.5,IE,1414)
+1 DO P
if EX=U
QUIT
+2 WRITE !," EMPHYSEMA...................: ",$$GET1^DIQ(165.5,IE,1414.1)
+3 DO P
if EX=U
QUIT
+4 WRITE !," VASCULAR INVASION...........: ",$$GET1^DIQ(165.5,IE,1414.2)
+5 DO P
if EX=U
QUIT
+6 WRITE !," MEDIASTINAL LYMPH NODES.....: ",$$GET1^DIQ(165.5,IE,1414.3)
+7 DO P
if EX=U
QUIT
+8 WRITE !," SIZE OF DOMINANT TUMOR (mm).: ",$$GET1^DIQ(165.5,IE,1414.4)
+9 DO P
if EX=U
QUIT
+10 WRITE !," NUMBER OF TUMORS............: ",$$GET1^DIQ(165.5,IE,1414.5)
+11 DO P
if EX=U
QUIT
+12 WRITE !," EVIDENCE OF METASTASIS......: ",$$GET1^DIQ(165.5,IE,1414.6)
+13 WRITE !
+14 DO P
if EX=U
QUIT
XRAY WRITE !," X-RAY OF CHEST...............: ",$$GET1^DIQ(165.5,IE,1415)
+1 DO P
if EX=U
QUIT
+2 WRITE !," EMPHYSEMA...................: ",$$GET1^DIQ(165.5,IE,1415.1)
+3 DO P
if EX=U
QUIT
+4 WRITE !," VASCULAR INVASION...........: ",$$GET1^DIQ(165.5,IE,1415.2)
+5 DO P
if EX=U
QUIT
+6 WRITE !," MEDIASTINAL LYMPH NODES.....: ",$$GET1^DIQ(165.5,IE,1415.3)
+7 DO P
if EX=U
QUIT
+8 WRITE !," SIZE OF DOMINANT TUMOR (mm).: ",$$GET1^DIQ(165.5,IE,1415.4)
+9 DO P
if EX=U
QUIT
+10 WRITE !," NUMBER OF TUMORS............: ",$$GET1^DIQ(165.5,IE,1415.5)
+11 DO P1
if EX=U
QUIT
+12 WRITE !," EVIDENCE OF METASTASIS......: ",$$GET1^DIQ(165.5,IE,1415.6)
+13 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
DO HEAD^ONCLPC0
GOTO ITEM10
+14 WRITE !
+15 DO P
if EX=U
QUIT
ITEM10 WRITE !,"10. PRE-OP LYMPH NODE MAPPING:"
+1 DO P
if EX=U
QUIT
+2 WRITE !," HIGHEST MEDIASTINAL (level 1): ",$$GET1^DIQ(165.5,IE,1416)
+3 DO P
if EX=U
QUIT
+4 WRITE !," UPPER PARATRACHEAL (level 2): ",$$GET1^DIQ(165.5,IE,1416.1)
+5 DO P
if EX=U
QUIT
+6 WRITE !," PREVASCULAR AND RETROTRACHEAL"
+7 DO P
if EX=U
QUIT
+8 WRITE !," (level 3): ",$$GET1^DIQ(165.5,IE,1416.2)
+9 DO P
if EX=U
QUIT
+10 WRITE !," LOWER PARATRACHEAL (level 4): ",$$GET1^DIQ(165.5,IE,1416.3)
+11 DO P
if EX=U
QUIT
+12 WRITE !," SUBAORTIC (level 5): ",$$GET1^DIQ(165.5,IE,1416.4)
+13 DO P
if EX=U
QUIT
+14 WRITE !," PARAORTIC (level 6): ",$$GET1^DIQ(165.5,IE,1416.5)
+15 DO P
if EX=U
QUIT
+16 WRITE !," SUBCARINAL (level 7): ",$$GET1^DIQ(165.5,IE,1416.6)
+17 DO P
if EX=U
QUIT
+18 WRITE !," PARAESOPHAGEAL (level 8): ",$$GET1^DIQ(165.5,IE,1416.7)
+19 DO P
if EX=U
QUIT
+20 WRITE !," PULMONARY LIGAMENT (level 9): ",$$GET1^DIQ(165.5,IE,1416.8)
+21 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
DO HEAD^ONCLPC0
GOTO IV
+22 WRITE !
+23 DO P
if EX=U
QUIT
IV SET TABLE="PATHOLOGY"
+1 IF IOST'?1"C".E
IF ($Y'<(LIN-4))
DO HEAD^ONCLPC0
+2 KILL LINE
SET $PIECE(LINE,"-",8)="-"
+3 WRITE !?4,TABLE,!?4,LINE
+4 DO P
if EX=U
QUIT
ITEM11 WRITE !,"11. DATE OF FIRST TISSUE DIAGNOSIS: ",$$GET1^DIQ(165.5,IE,1402)
+1 DO P
if EX=U
QUIT
+2 WRITE !
+3 DO P
if EX=U
QUIT
ITEM12 WRITE !,"12. DISTANCE IN MILLIMETERS TO CLOSEST MARGIN:"
+1 DO P
if EX=U
QUIT
+2 WRITE !," PROXIMAL MARGIN..............: ",$$GET1^DIQ(165.5,IE,1429)
+3 DO P
if EX=U
QUIT
+4 WRITE !," DISTAL MARGIN................: ",$$GET1^DIQ(165.5,IE,1429.1)
+5 DO P
if EX=U
QUIT
+6 WRITE !
+7 DO P
if EX=U
QUIT
ITEM13 WRITE !,"13. FROZEN SECTION................: ",$$GET1^DIQ(165.5,IE,1417)
+1 DO P
if EX=U
QUIT
+2 WRITE !
+3 DO P
if EX=U
QUIT
ITEM14 WRITE !,"14. INVASION:"
+1 DO P
if EX=U
QUIT
+2 WRITE !," VASCULAR.....................: ",$$GET1^DIQ(165.5,IE,1418)
+3 DO P
if EX=U
QUIT
+4 WRITE !," LYMPHATICS...................: ",$$GET1^DIQ(165.5,IE,1418.1)
+5 DO P
if EX=U
QUIT
+6 WRITE !," PLEURA.......................: ",$$GET1^DIQ(165.5,IE,1418.2)
+7 DO P
if EX=U
QUIT
+8 WRITE !," CHEST WALL...................: ",$$GET1^DIQ(165.5,IE,1418.3)
+9 DO P
if EX=U
QUIT
+10 WRITE !," OTHER........................: ",$$GET1^DIQ(165.5,IE,1418.4)
+11 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
+12 IF IOST?1"C".E
DO HEAD^ONCLPC0
+13 DO ^ONCLPC9B
+14 QUIT
P ;Print
+1 IF ($Y'<(LIN-1))
Begin DoDot:1
+2 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
IF 'Y
SET EX=U
QUIT
+3 DO HEAD^ONCLPC0
QUIT
End DoDot:1
if EX=U
QUIT
+4 QUIT
P1 ;Print
+1 IF ($Y'<(LIN))
Begin DoDot:1
+2 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
IF 'Y
SET EX=U
QUIT
+3 DO HEAD^ONCLPC0
QUIT
End DoDot:1
if EX=U
QUIT
+4 QUIT
