ONCCPC9A ;HIRMFO/GWB - PCE Study of Colorectal Cancer - Print (continued);4/1/97
;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
III S TABLE="TABLE III - EXTENT OF DISEASE AND AJCC STAGE"
I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HDR^ONCCPC9
W !?4,TABLE,!?4,"--------------------------------------------" D P Q:EX=U
W !,"29. SIZE OF TUMOR (mm)...............: ",ONC(165.5,IE,29) D P Q:EX=U
W !,"30. REGIONAL NODES EXAMINED..........: ",ONC(165.5,IE,33) D P Q:EX=U
W !,"31. REGIONAL NODES POSITIVE..........: ",ONC(165.5,IE,32) D P Q:EX=U
ACS W !!,"32. AJCC CLINICAL STAGE (cTNM):" D P Q:EX=U
W !," T-CODE.........................: ",ONC(165.5,IE,37.1) D P Q:EX=U
W !," N-CODE.........................: ",ONC(165.5,IE,37.2) D P Q:EX=U
W !," M-CODE.........................: ",ONC(165.5,IE,37.3) D P Q:EX=U
W !," AJCC STAGE.....................: ",ONC(165.5,IE,38) D P Q:EX=U
APS W !!,"33. AJCC PATHOLOGIC STAGE (pTNM):" D P Q:EX=U
W !," T-CODE.........................: ",ONC(165.5,IE,85) D P Q:EX=U
W !," N-CODE.........................: ",ONC(165.5,IE,86) D P Q:EX=U
W !," M-CODE.........................: ",ONC(165.5,IE,87) D P Q:EX=U
W !," AJCC STAGE.....................: ",ONC(165.5,IE,88)
K LINE S $P(LINE,"-",56)="-"
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCCPC9 W !?4,TABLE_" (continued)",!?4,LINE G SB
W ! D P Q:EX=U
SB W !,"34. STAGED BY:" D P Q:EX=U
W !," CLINICAL STAGE.................: ",ONC(165.5,IE,19) D P Q:EX=U
W !," PATHOLOGIC STAGE...............: ",ONC(165.5,IE,89) D P Q:EX=U
W ! D P Q:EX=U
W !,"35. MARGIN OF RESECTION:" D P Q:EX=U
W !," PROXIMAL MARGIN................: ",ONC(165.5,IE,754) D P Q:EX=U
W !," DISTAL MARGIN..................: ",ONC(165.5,IE,755) D P Q:EX=U
W !," RADIAL MARGIN..................: ",ONC(165.5,IE,756) D P Q:EX=U
W !!,"36. DISTANCE TO MUCOSAL MARGIN.......: ",ONC(165.5,IE,757) D P Q:EX=U
W !,"37. DISTANCE TO RADIAL MARGIN........: ",ONC(165.5,IE,758) D P Q:EX=U
W !,"38. BLOOD VESSEL/LYMPHATIC INVASION..: ",ONC(165.5,IE,759) D P Q:EX=U
W !,"39. EXTRAMURAL VENOUS INVASION.......: ",ONC(165.5,IE,760) D P Q:EX=U
W !,"40. PROMINENT LYMPHOID INFILTRATE....: ",ONC(165.5,IE,761) D P Q:EX=U
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCCPC9 G IV
D P Q:EX=U
IV S TABLE="TABLE IV - FIRST COURSE OF TREATMENT"
I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HDR^ONCCPC9
K LINE S $P(LINE,"-",36)="-"
W !?4,TABLE,!?4,LINE D P Q:EX=U
K LINE S $P(LINE,"-",48)="-"
S D0=ONCONUM D DFC^ONCOCOM S DOFCT=Y
W !,"41. PHYSICIAN PROVIDING TREATMENT....: ",ONC(165.5,IE,762) D P Q:EX=U
W !,"42. FIRST COURSE OF TREATMENT DATE...: ",DOFCT D P Q:EX=U
W !,"43. DATE OF INPATIENT ADMISSION......: ",ONC(165.5,IE,1) D P Q:EX=U
W !,"44. DATE OF INPATIENT DISCHARGE......: ",ONC(165.5,IE,1.1) D P Q:EX=U
W !!?4,"SURGERY",!?4,"-------" D P Q:EX=U
S NCDS=ONC(165.5,IE,58.1)
S (NCDS1,NCDS2)="",LOS=$L(NCDS) I LOS<45 S NCDS1=NCDS G CDS
S NOP=$L($E(NCDS,1,41)," ")
S NCDS1=$P(NCDS," ",1,NOP-1),NCDS2=$P(NCDS," ",NOP,999)
CDS S CDS=ONC(165.5,IE,58.2)
S (CDS1,CDS2)="",LOS=$L(CDS) I LOS<45 S CDS1=CDS G S
S NOP=$L($E(CDS,1,41)," ")
S CDS1=$P(CDS," ",1,NOP-1),CDS2=$P(CDS," ",NOP,999)
S W !,"45. NON CANCER-DIRECTED SURGERY DATE.: ",ONC(165.5,IE,58.3) D P Q:EX=U
W !,"46. NON CANCER-DIRECTED SURGERY......: ",NCDS1 W:NCDS2'="" !,?39,NCDS2 D P Q:EX=U
W !,"47. SURGERY OF PRIMARY SITE DATE.....: ",ONC(165.5,IE,50) D P Q:EX=U
W !,"48. SURGERY OF PRIMARY SITE..........: ",CDS1 W:CDS2'="" !,?39,CDS2
W !,"49. ADDITIONAL SURGICAL PROCEDURES...: ",ONC(165.5,IE,763) D P Q:EX=U
W !,"50. LAPAROSCOPY USED DURING SURGERY..: ",ONC(165.5,IE,764) D P Q:EX=U
W !,"51. METHOD OF ANASTOMOSIS............: ",ONC(165.5,IE,765) D P Q:EX=U
W !,"52. DIST OF ANASTOMOSIS FROM DENTATE.: ",ONC(165.5,IE,766) D P Q:EX=U
W !,"53. RESIDUAL PRIMARY TUMOR...........: ",ONC(165.5,IE,59) D P Q:EX=U
W !!,"54. OTHER SURGERY:" D P Q:EX=U
W !," COLOSTOMY......................: ",ONC(165.5,IE,767) D P Q:EX=U
W !," OOPHORECTOMY...................: ",ONC(165.5,IE,768) D P Q:EX=U
W !," PATHOLOGICAL STATUS............: ",ONC(165.5,IE,769) D P Q:EX=U
CAFCOT W !!,"55. COMPLICATIONS AFTER FIRST COURSE OF TREATMENT:" D P Q:EX=U
W !," ABDOMINAL INFECTION......: ",ONC(165.5,IE,770),?44,"PERINEAL INFECTION.......: ",ONC(165.5,IE,777) D P Q:EX=U
W !," ABSCESS..................: ",ONC(165.5,IE,771),?44,"PNEUMONIA................: ",ONC(165.5,IE,778) D P Q:EX=U
W !," ADMISSION FOR NEUTROPENIA: ",ONC(165.5,IE,772),?44,"PROCTITIS................: ",ONC(165.5,IE,779) D P Q:EX=U
W !," ANASTOMOTIC DEHISCENCE...: ",ONC(165.5,IE,773),?44,"PULMONARY EMBOLISM.......: ",ONC(165.5,IE,780) D P Q:EX=U
W !," BLEEDING/HEMATOMA........: ",ONC(165.5,IE,437),?44,"RADIATION ENTERITIS......: ",ONC(165.5,IE,781) D P Q:EX=U
W !," DEHYDRATION..............: ",ONC(165.5,IE,774),?44,"STOMA COMPLICATION.......: ",ONC(165.5,IE,782) D P Q:EX=U
W !," DIARRHEA.................: ",ONC(165.5,IE,775),?44,"URINARY TRACT INFECTION..: ",ONC(165.5,IE,783) D P Q:EX=U
W !," EARLY BOWEL OBSTRUCTION..: ",ONC(165.5,IE,776)
W !!,"56. POSTOPERATIVE DEATH W/I 30 DAYS: ",ONC(165.5,IE,441)
R W !!?4,"RADIATION THERAPY",!?4,"-----------------" D P Q:EX=U
W !,"57. DATE RADIATION STARTED...........: ",ONC(165.5,IE,51) D P Q:EX=U
W !,"58. DATE RADIATION THERAPY ENDED.....: ",ONC(165.5,IE,361) D P Q:EX=U
W !,"59. ENDOCAVITARY RADIATION...........: ",ONC(165.5,IE,784) D P Q:EX=U
W !,"60. INTRA-OPERATIVE RAD THERAPY......: ",ONC(165.5,IE,785) D P Q:EX=U
W !,"61. PRIMARY TUMOR RAD DOSE W BOOST...: ",ONC(165.5,IE,786) D P Q:EX=U
W !,"62. NUMBER OF RADIATION TREATMENTS...: ",ONC(165.5,IE,787) D P Q:EX=U
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCCPC9 W !?4,TABLE_" (continued)",!?4,LINE G C
W ! D P Q:EX=U
C W !?4,"CHEMOTHERAPY",!?4,"------------" D P Q:EX=U
W !,"63. CHEMOTHERAPY.....................: ",ONC(165.5,IE,53.2) D P Q:EX=U
W !,"64. DATE CHEMOTHERAPY STARTED........: ",ONC(165.5,IE,53) D P Q:EX=U
W !,"65. ADJUVANT CHEMO W BEAM RADIATION..: ",ONC(165.5,IE,788) D P Q:EX=U
W !!,"66. ADJUVANT THERAPY:" D P Q:EX=U
W !," 5 FU (FLUOROURACIL): ",ONC(165.5,IE,789),?39,"CPT 11.............: ",ONC(165.5,IE,792) D P Q:EX=U
W !," LEUCOVORIN.........: ",ONC(165.5,IE,790),?39,"TAXOL..............: ",ONC(165.5,IE,377) D P Q:EX=U
W !," LEVAMISOLE.........: ",ONC(165.5,IE,791),?39,"OTHER..............: ",ONC(165.5,IE,793) D P Q:EX=U
W !!,"67. DURATION OF ADJUVANT THERAPY.....: ",ONC(165.5,IE,794) D P Q:EX=U
W !,"68. COMPLETED DURATION OF THERAPY....: ",ONC(165.5,IE,795) D P Q:EX=U
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCCPC9 G V
D P Q:EX=U
V D ^ONCCPC9B
KILL ;Kill Variables and Exit
K %,DIR,DIROUT,DIRUT,DTOUT,DUOUT,FILN,ONCOBL,EX,TXT,X,Y
Q
P ;Display Data
I ($Y'<(LIN-1)) D Q:EX=U W !?4,TABLE_" (continued)",!?4,LINE
.I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR I 'Y S EX=U Q
.D HDR^ONCCPC9 Q
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCCPC9A 7139 printed Apr 09, 2024@21:29:31 Page 2
ONCCPC9A ;HIRMFO/GWB - PCE Study of Colorectal Cancer - Print (continued);4/1/97
+1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
III SET TABLE="TABLE III - EXTENT OF DISEASE AND AJCC STAGE"
+1 IF IOST'?1"C".E
WRITE !
IF ($Y'<(LIN-4))
DO HDR^ONCCPC9
+2 WRITE !?4,TABLE,!?4,"--------------------------------------------"
DO P
if EX=U
QUIT
+3 WRITE !,"29. SIZE OF TUMOR (mm)...............: ",ONC(165.5,IE,29)
DO P
if EX=U
QUIT
+4 WRITE !,"30. REGIONAL NODES EXAMINED..........: ",ONC(165.5,IE,33)
DO P
if EX=U
QUIT
+5 WRITE !,"31. REGIONAL NODES POSITIVE..........: ",ONC(165.5,IE,32)
DO P
if EX=U
QUIT
ACS WRITE !!,"32. AJCC CLINICAL STAGE (cTNM):"
DO P
if EX=U
QUIT
+1 WRITE !," T-CODE.........................: ",ONC(165.5,IE,37.1)
DO P
if EX=U
QUIT
+2 WRITE !," N-CODE.........................: ",ONC(165.5,IE,37.2)
DO P
if EX=U
QUIT
+3 WRITE !," M-CODE.........................: ",ONC(165.5,IE,37.3)
DO P
if EX=U
QUIT
+4 WRITE !," AJCC STAGE.....................: ",ONC(165.5,IE,38)
DO P
if EX=U
QUIT
APS WRITE !!,"33. AJCC PATHOLOGIC STAGE (pTNM):"
DO P
if EX=U
QUIT
+1 WRITE !," T-CODE.........................: ",ONC(165.5,IE,85)
DO P
if EX=U
QUIT
+2 WRITE !," N-CODE.........................: ",ONC(165.5,IE,86)
DO P
if EX=U
QUIT
+3 WRITE !," M-CODE.........................: ",ONC(165.5,IE,87)
DO P
if EX=U
QUIT
+4 WRITE !," AJCC STAGE.....................: ",ONC(165.5,IE,88)
+5 KILL LINE
SET $PIECE(LINE,"-",56)="-"
+6 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
DO HDR^ONCCPC9
WRITE !?4,TABLE_" (continued)",!?4,LINE
GOTO SB
+7 WRITE !
DO P
if EX=U
QUIT
SB WRITE !,"34. STAGED BY:"
DO P
if EX=U
QUIT
+1 WRITE !," CLINICAL STAGE.................: ",ONC(165.5,IE,19)
DO P
if EX=U
QUIT
+2 WRITE !," PATHOLOGIC STAGE...............: ",ONC(165.5,IE,89)
DO P
if EX=U
QUIT
+3 WRITE !
DO P
if EX=U
QUIT
+4 WRITE !,"35. MARGIN OF RESECTION:"
DO P
if EX=U
QUIT
+5 WRITE !," PROXIMAL MARGIN................: ",ONC(165.5,IE,754)
DO P
if EX=U
QUIT
+6 WRITE !," DISTAL MARGIN..................: ",ONC(165.5,IE,755)
DO P
if EX=U
QUIT
+7 WRITE !," RADIAL MARGIN..................: ",ONC(165.5,IE,756)
DO P
if EX=U
QUIT
+8 WRITE !!,"36. DISTANCE TO MUCOSAL MARGIN.......: ",ONC(165.5,IE,757)
DO P
if EX=U
QUIT
+9 WRITE !,"37. DISTANCE TO RADIAL MARGIN........: ",ONC(165.5,IE,758)
DO P
if EX=U
QUIT
+10 WRITE !,"38. BLOOD VESSEL/LYMPHATIC INVASION..: ",ONC(165.5,IE,759)
DO P
if EX=U
QUIT
+11 WRITE !,"39. EXTRAMURAL VENOUS INVASION.......: ",ONC(165.5,IE,760)
DO P
if EX=U
QUIT
+12 WRITE !,"40. PROMINENT LYMPHOID INFILTRATE....: ",ONC(165.5,IE,761)
DO P
if EX=U
QUIT
+13 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
DO HDR^ONCCPC9
GOTO IV
+14 DO P
if EX=U
QUIT
IV SET TABLE="TABLE IV - FIRST COURSE OF TREATMENT"
+1 IF IOST'?1"C".E
WRITE !
IF ($Y'<(LIN-4))
DO HDR^ONCCPC9
+2 KILL LINE
SET $PIECE(LINE,"-",36)="-"
+3 WRITE !?4,TABLE,!?4,LINE
DO P
if EX=U
QUIT
+4 KILL LINE
SET $PIECE(LINE,"-",48)="-"
+5 SET D0=ONCONUM
DO DFC^ONCOCOM
SET DOFCT=Y
+6 WRITE !,"41. PHYSICIAN PROVIDING TREATMENT....: ",ONC(165.5,IE,762)
DO P
if EX=U
QUIT
+7 WRITE !,"42. FIRST COURSE OF TREATMENT DATE...: ",DOFCT
DO P
if EX=U
QUIT
+8 WRITE !,"43. DATE OF INPATIENT ADMISSION......: ",ONC(165.5,IE,1)
DO P
if EX=U
QUIT
+9 WRITE !,"44. DATE OF INPATIENT DISCHARGE......: ",ONC(165.5,IE,1.1)
DO P
if EX=U
QUIT
+10 WRITE !!?4,"SURGERY",!?4,"-------"
DO P
if EX=U
QUIT
+11 SET NCDS=ONC(165.5,IE,58.1)
+12 SET (NCDS1,NCDS2)=""
SET LOS=$LENGTH(NCDS)
IF LOS<45
SET NCDS1=NCDS
GOTO CDS
+13 SET NOP=$LENGTH($EXTRACT(NCDS,1,41)," ")
+14 SET NCDS1=$PIECE(NCDS," ",1,NOP-1)
SET NCDS2=$PIECE(NCDS," ",NOP,999)
CDS SET CDS=ONC(165.5,IE,58.2)
+1 SET (CDS1,CDS2)=""
SET LOS=$LENGTH(CDS)
IF LOS<45
SET CDS1=CDS
GOTO S
+2 SET NOP=$LENGTH($EXTRACT(CDS,1,41)," ")
+3 SET CDS1=$PIECE(CDS," ",1,NOP-1)
SET CDS2=$PIECE(CDS," ",NOP,999)
S WRITE !,"45. NON CANCER-DIRECTED SURGERY DATE.: ",ONC(165.5,IE,58.3)
DO P
if EX=U
QUIT
+1 WRITE !,"46. NON CANCER-DIRECTED SURGERY......: ",NCDS1
if NCDS2'=""
WRITE !,?39,NCDS2
DO P
if EX=U
QUIT
+2 WRITE !,"47. SURGERY OF PRIMARY SITE DATE.....: ",ONC(165.5,IE,50)
DO P
if EX=U
QUIT
+3 WRITE !,"48. SURGERY OF PRIMARY SITE..........: ",CDS1
if CDS2'=""
WRITE !,?39,CDS2
+4 WRITE !,"49. ADDITIONAL SURGICAL PROCEDURES...: ",ONC(165.5,IE,763)
DO P
if EX=U
QUIT
+5 WRITE !,"50. LAPAROSCOPY USED DURING SURGERY..: ",ONC(165.5,IE,764)
DO P
if EX=U
QUIT
+6 WRITE !,"51. METHOD OF ANASTOMOSIS............: ",ONC(165.5,IE,765)
DO P
if EX=U
QUIT
+7 WRITE !,"52. DIST OF ANASTOMOSIS FROM DENTATE.: ",ONC(165.5,IE,766)
DO P
if EX=U
QUIT
+8 WRITE !,"53. RESIDUAL PRIMARY TUMOR...........: ",ONC(165.5,IE,59)
DO P
if EX=U
QUIT
+9 WRITE !!,"54. OTHER SURGERY:"
DO P
if EX=U
QUIT
+10 WRITE !," COLOSTOMY......................: ",ONC(165.5,IE,767)
DO P
if EX=U
QUIT
+11 WRITE !," OOPHORECTOMY...................: ",ONC(165.5,IE,768)
DO P
if EX=U
QUIT
+12 WRITE !," PATHOLOGICAL STATUS............: ",ONC(165.5,IE,769)
DO P
if EX=U
QUIT
CAFCOT WRITE !!,"55. COMPLICATIONS AFTER FIRST COURSE OF TREATMENT:"
DO P
if EX=U
QUIT
+1 WRITE !," ABDOMINAL INFECTION......: ",ONC(165.5,IE,770),?44,"PERINEAL INFECTION.......: ",ONC(165.5,IE,777)
DO P
if EX=U
QUIT
+2 WRITE !," ABSCESS..................: ",ONC(165.5,IE,771),?44,"PNEUMONIA................: ",ONC(165.5,IE,778)
DO P
if EX=U
QUIT
+3 WRITE !," ADMISSION FOR NEUTROPENIA: ",ONC(165.5,IE,772),?44,"PROCTITIS................: ",ONC(165.5,IE,779)
DO P
if EX=U
QUIT
+4 WRITE !," ANASTOMOTIC DEHISCENCE...: ",ONC(165.5,IE,773),?44,"PULMONARY EMBOLISM.......: ",ONC(165.5,IE,780)
DO P
if EX=U
QUIT
+5 WRITE !," BLEEDING/HEMATOMA........: ",ONC(165.5,IE,437),?44,"RADIATION ENTERITIS......: ",ONC(165.5,IE,781)
DO P
if EX=U
QUIT
+6 WRITE !," DEHYDRATION..............: ",ONC(165.5,IE,774),?44,"STOMA COMPLICATION.......: ",ONC(165.5,IE,782)
DO P
if EX=U
QUIT
+7 WRITE !," DIARRHEA.................: ",ONC(165.5,IE,775),?44,"URINARY TRACT INFECTION..: ",ONC(165.5,IE,783)
DO P
if EX=U
QUIT
+8 WRITE !," EARLY BOWEL OBSTRUCTION..: ",ONC(165.5,IE,776)
+9 WRITE !!,"56. POSTOPERATIVE DEATH W/I 30 DAYS: ",ONC(165.5,IE,441)
R WRITE !!?4,"RADIATION THERAPY",!?4,"-----------------"
DO P
if EX=U
QUIT
+1 WRITE !,"57. DATE RADIATION STARTED...........: ",ONC(165.5,IE,51)
DO P
if EX=U
QUIT
+2 WRITE !,"58. DATE RADIATION THERAPY ENDED.....: ",ONC(165.5,IE,361)
DO P
if EX=U
QUIT
+3 WRITE !,"59. ENDOCAVITARY RADIATION...........: ",ONC(165.5,IE,784)
DO P
if EX=U
QUIT
+4 WRITE !,"60. INTRA-OPERATIVE RAD THERAPY......: ",ONC(165.5,IE,785)
DO P
if EX=U
QUIT
+5 WRITE !,"61. PRIMARY TUMOR RAD DOSE W BOOST...: ",ONC(165.5,IE,786)
DO P
if EX=U
QUIT
+6 WRITE !,"62. NUMBER OF RADIATION TREATMENTS...: ",ONC(165.5,IE,787)
DO P
if EX=U
QUIT
+7 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
DO HDR^ONCCPC9
WRITE !?4,TABLE_" (continued)",!?4,LINE
GOTO C
+8 WRITE !
DO P
if EX=U
QUIT
C WRITE !?4,"CHEMOTHERAPY",!?4,"------------"
DO P
if EX=U
QUIT
+1 WRITE !,"63. CHEMOTHERAPY.....................: ",ONC(165.5,IE,53.2)
DO P
if EX=U
QUIT
+2 WRITE !,"64. DATE CHEMOTHERAPY STARTED........: ",ONC(165.5,IE,53)
DO P
if EX=U
QUIT
+3 WRITE !,"65. ADJUVANT CHEMO W BEAM RADIATION..: ",ONC(165.5,IE,788)
DO P
if EX=U
QUIT
+4 WRITE !!,"66. ADJUVANT THERAPY:"
DO P
if EX=U
QUIT
+5 WRITE !," 5 FU (FLUOROURACIL): ",ONC(165.5,IE,789),?39,"CPT 11.............: ",ONC(165.5,IE,792)
DO P
if EX=U
QUIT
+6 WRITE !," LEUCOVORIN.........: ",ONC(165.5,IE,790),?39,"TAXOL..............: ",ONC(165.5,IE,377)
DO P
if EX=U
QUIT
+7 WRITE !," LEVAMISOLE.........: ",ONC(165.5,IE,791),?39,"OTHER..............: ",ONC(165.5,IE,793)
DO P
if EX=U
QUIT
+8 WRITE !!,"67. DURATION OF ADJUVANT THERAPY.....: ",ONC(165.5,IE,794)
DO P
if EX=U
QUIT
+9 WRITE !,"68. COMPLETED DURATION OF THERAPY....: ",ONC(165.5,IE,795)
DO P
if EX=U
QUIT
+10 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
DO HDR^ONCCPC9
GOTO V
+11 DO P
if EX=U
QUIT
V DO ^ONCCPC9B
KILL ;Kill Variables and Exit
+1 KILL %,DIR,DIROUT,DIRUT,DTOUT,DUOUT,FILN,ONCOBL,EX,TXT,X,Y
+2 QUIT
P ;Display Data
+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 HDR^ONCCPC9
QUIT
End DoDot:1
if EX=U
QUIT
WRITE !?4,TABLE_" (continued)",!?4,LINE
+4 QUIT
