ONCBPC8A ;HIRMFO/GWB - PCE Study of Cancers of the Urinary Bladder -Print (continued) ;8/15/96
;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
IV S TABLE="TABLE IV - FIRST COURSE OF TREATMENT"
I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HDR^ONCBPC8
W !?15,TABLE,! D P Q:EX=U
S D0=ONCONUM D DFC^ONCOCOM S DOIT=Y
W !,"DATE OF INITIAL TREATMENT...........: ",DOIT D P Q:EX=U
W !,"PROTOCOL ELIGIBILITY STATUS.........: ",ONC(165.5,IEN,346) D P Q:EX=U
W !!,"MANAGING PHYSICIANS:",! D P Q:EX=U
W !," PRIMARY PHYSICIAN.................: ",ONC(165.5,IEN,347) D P Q:EX=U
W !," SECONDARY PHYSICIAN...............: ",ONC(165.5,IEN,348) D P Q:EX=U
W !!,"SURGERY:",! D P Q:EX=U
S NCDS=$E(ONC(165.5,IEN,58.1),1,2),NCDSOT=ONC(165.5,IEN,58.1)
S CDS=$E(ONC(165.5,IEN,58.2),1,2),CDSOT=ONC(165.5,IEN,58.2)
I (CDS="")!(CDS="00") D
.S SURG=NCDSOT,SURGDT=ONC(165.5,IEN,58.3)
I ((CDS'="")&(CDS'="00"))!(NCDS="") D
.S SURG=CDSOT,SURGDT=ONC(165.5,IEN,50)
S (SURG1,SURG2)=""
S LOS=$L(SURG) I LOS<56 S SURG1=SURG G SURG
S NOP=$L($E(SURG,1,42)," ")
S SURG1=$P(SURG," ",1,NOP-1),SURG2=$P(SURG," ",NOP,999)
SURG I (SURG1="")!($E(SURG1,1,2)="00") S SURGDT="00/00/0000"
W !," DATE OF SURGERY...................: ",SURGDT D P Q:EX=U
W !," TYPE OF SURGERY...................: ",SURG1 D P Q:EX=U
W:SURG2'="" !,?41,SURG2 D P Q:EX=U
W !," TUMOR RESECTION DURING TURB.......: ",ONC(165.5,IEN,349) D P Q:EX=U
W !," TYPE OF URINARY DIVERSION.........: ",ONC(165.5,IEN,350) ;D P Q:EX=U
W !," PELVIC LYMPH NODE DISSECTION......: ",ONC(165.5,IEN,351)
I IOST?1"C".E K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCBPC8 W !?15,TABLE_" (continued)"
SC W !!," SURGICAL COMPLICATIONS:",! D P Q:EX=U
W !," BLEEDING REQUIRING TRANSFUSION..: ",ONC(165.5,IEN,352) D P Q:EX=U
W !," DEEP VENOUS THROMBOSIS..........: ",ONC(165.5,IEN,353) D P Q:EX=U
W !," MYOCARDIAL INFARCTION/ARRHYTHMIA: ",ONC(165.5,IEN,354) D P Q:EX=U
W !," PELVIC ABSCESS..................: ",ONC(165.5,IEN,355) D P Q:EX=U
W !," PNEUMONIA REQUIRING ANTIBIOTICS.: ",ONC(165.5,IEN,356) D P Q:EX=U
W !," POST-OPERATIVE DEATH (30 DAYS)..: ",ONC(165.5,IEN,357) D P Q:EX=U
W !," PULMONARY EMBOLISM/THROMBOSIS...: ",ONC(165.5,IEN,358) D P Q:EX=U
W !," REOPERATION.....................: ",ONC(165.5,IEN,359) D P Q:EX=U
W !," OTHER...........................: ",ONC(165.5,IEN,360)
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCBPC8 W !?15,TABLE_" (continued)"
RT W !!,"RADIATION THERAPY:",! D P Q:EX=U
W !," RADIATION THERAPY.................: ",ONC(165.5,IEN,51.2) D P Q:EX=U
W !," DATE RADIATION THERAPY STARTED....: ",ONC(165.5,IEN,51) D P Q:EX=U
W !," DATE RADIATION THERAPY ENDED......: ",ONC(165.5,IEN,361) D P Q:EX=U
W !," TOTAL RAD (cGy/rad) DOSE..........: ",ONC(165.5,IEN,362) D P Q:EX=U
W !," REGIONAL TREATMENT MODALITY.......: ",ONC(165.5,IEN,363) D P Q:EX=U
W !!," RADIATION COMPLICATIONS:",! D P Q:EX=U
W !," URINARY INCONTINENCE............: ",ONC(165.5,IEN,364) D P Q:EX=U
W !," HEMATURIA.......................: ",ONC(165.5,IEN,365) D P Q:EX=U
W !," RADIATION BOWEL INJURY..........: ",ONC(165.5,IEN,366) D P Q:EX=U
W ! D P Q:EX=U
W !,"CHEMOTHERAPY:",! D P Q:EX=U
W !," CHEMOTHERAPY......................: ",ONC(165.5,IEN,53.2) D P Q:EX=U
W !," DATE CHEMOTHERAPY STARTED.........: ",ONC(165.5,IEN,53) D P Q:EX=U
W !," DATE CHEMOTHERAPY ENDED...........: ",ONC(165.5,IEN,367) D P Q:EX=U
W !," ROUTE CHEMOTHERAPY ADMINISTERED...: ",ONC(165.5,IEN,368) D P Q:EX=U
W !!," TYPES OF AGENTS ADMINISTERED:",! D P Q:EX=U
W !," ADRIAMYCIN......: ",ONC(165.5,IEN,369),?33,"IFOSFAMIDE......: ",ONC(165.5,IEN,375) D P Q:EX=U
W !," CARBOPLATINUM...: ",ONC(165.5,IEN,370),?33,"METHOTREXATE....: ",ONC(165.5,IEN,376) D P Q:EX=U
W !," CISPLATIN.......: ",ONC(165.5,IEN,371),?33,"TAXOL...........: ",ONC(165.5,IEN,377) D P Q:EX=U
W !," CYCLOPHOSPHAMIDE: ",ONC(165.5,IEN,372),?33,"THIOTEPA........: ",ONC(165.5,IEN,378) D P Q:EX=U
W !," 5-FLUOROURACIL..: ",ONC(165.5,IEN,373),?33,"VINBLASTINE.....: ",ONC(165.5,IEN,379) ;D P Q:EX=U
W !," GALLIUM NITRATE.: ",ONC(165.5,IEN,374),?33,"OTHER...........: ",ONC(165.5,IEN,380)
I IOST?1"C".E K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCBPC8 W !?15,TABLE_" (continued)"
IFAOA W !!," INDICATION FOR ADMIN OF AGENTS...: ",ONC(165.5,IEN,381) D P Q:EX=U
W !," REASON CHEMOTHERAPY STOPPED......: ",ONC(165.5,IEN,382) D P Q:EX=U
W !!,"IMMUNOTHERAPY:",! D P Q:EX=U
W !," IMMUNOTHERAPY (BRM)...............: ",ONC(165.5,IEN,55.2) D P Q:EX=U
W !!," TYPE OF IMMUNOTHERAPY (BRM):",! D P Q:EX=U
W !," BCG.............................: ",ONC(165.5,IEN,383) D P Q:EX=U
W !," INTERFERON......................: ",ONC(165.5,IEN,384) D P Q:EX=U
W !," INTERLEUKIN-II..................: ",ONC(165.5,IEN,385) D P Q:EX=U
W !," OTHER...........................: ",ONC(165.5,IEN,386)
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCBPC8 G V
D P Q:EX=U
V S TABLE="TABLE V - FIRST RECURRENCE"
I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HDR^ONCBPC8
W !?15,TABLE,! D P Q:EX=U
W !,"TYPE OF FIRST RECURRENCE............: ",ONC(165.5,IEN,387) D P Q:EX=U
W !,"DATE OF FIRST RECURRENCE............: ",ONC(165.5,IEN,70) D P Q:EX=U
W !,"DISTANT SITE OF FIRST RECURRENCE 1..: ",ONC(165.5,IEN,71.1) D P Q:EX=U
W !,"DISTANT SITE OF FIRST RECURRENCE 2..: ",ONC(165.5,IEN,71.2) D P Q:EX=U
W !,"DISTANT SITE OF FIRST RECURRENCE 3..: ",ONC(165.5,IEN,71.3) D P Q:EX=U
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCBPC8 G VI
D P Q:EX=U
VI S TABLE="TABLE VI - STATUS AT LAST CONTACT"
I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HDR^ONCBPC8
W !?15,TABLE,! D P Q:EX=U
S DLC=""
I $D(^ONCO(160,ONCOPA,"F","B")) S DLC=$O(^ONCO(160,ONCOPA,"F","B",""),-1)
I DLC'="" S Y=DLC D DATEOT^ONCOPCE S DLC=Y
W !,"DATE OF LAST CONTACT OR DEATH......: ",DLC
W !,"VITAL STATUS.......................: ",ONC(160,ONCOPA,15) D P Q:EX=U
S CS="" I $D(^ONCO(165.5,ONCONUM,"TS","AA")) D
.S CSDAT=$O(^ONCO(165.5,ONCONUM,"TS","AA",""))
.S CSIEN=$O(^ONCO(165.5,ONCONUM,"TS","AA",CSDAT,""))
.S CSPNT=$P(^ONCO(165.5,ONCONUM,"TS",CSIEN,0),U,2)
.S CS=$P(^ONCO(164.42,CSPNT,0),U,1)
W !,"CANCER STATUS......................: ",CS
W !,"COMPLETED BY.......................: ",ONC(165.5,IEN,81) D P Q:EX=U
W !,"REVIEWED BY CANCER COMMITTEE.......: ",ONC(165.5,IEN,82)
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR
KILL ;Kill Variables and Exit
K %,DIR,DIROUT,DIRUT,DTOUT,DUOUT,LP,FILN,ONCOBL,EX,TXT,X,Y,SCTIEN
Q
P ;Display Data
I ($Y'<(LIN-2)) D Q:EX=U W !?15,TABLE_" (continued)",!
.I IOST?1"C".E K DIR S DIR(0)="E" D ^DIR I 'Y S EX=U Q
.D HDR^ONCBPC8 Q
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCBPC8A 6723 printed Apr 09, 2024@21:30:50 Page 2
ONCBPC8A ;HIRMFO/GWB - PCE Study of Cancers of the Urinary Bladder -Print (continued) ;8/15/96
+1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
IV SET TABLE="TABLE IV - FIRST COURSE OF TREATMENT"
+1 IF IOST'?1"C".E
WRITE !
IF ($Y'<(LIN-4))
DO HDR^ONCBPC8
+2 WRITE !?15,TABLE,!
DO P
if EX=U
QUIT
+3 SET D0=ONCONUM
DO DFC^ONCOCOM
SET DOIT=Y
+4 WRITE !,"DATE OF INITIAL TREATMENT...........: ",DOIT
DO P
if EX=U
QUIT
+5 WRITE !,"PROTOCOL ELIGIBILITY STATUS.........: ",ONC(165.5,IEN,346)
DO P
if EX=U
QUIT
+6 WRITE !!,"MANAGING PHYSICIANS:",!
DO P
if EX=U
QUIT
+7 WRITE !," PRIMARY PHYSICIAN.................: ",ONC(165.5,IEN,347)
DO P
if EX=U
QUIT
+8 WRITE !," SECONDARY PHYSICIAN...............: ",ONC(165.5,IEN,348)
DO P
if EX=U
QUIT
+9 WRITE !!,"SURGERY:",!
DO P
if EX=U
QUIT
+10 SET NCDS=$EXTRACT(ONC(165.5,IEN,58.1),1,2)
SET NCDSOT=ONC(165.5,IEN,58.1)
+11 SET CDS=$EXTRACT(ONC(165.5,IEN,58.2),1,2)
SET CDSOT=ONC(165.5,IEN,58.2)
+12 IF (CDS="")!(CDS="00")
Begin DoDot:1
+13 SET SURG=NCDSOT
SET SURGDT=ONC(165.5,IEN,58.3)
End DoDot:1
+14 IF ((CDS'="")&(CDS'="00"))!(NCDS="")
Begin DoDot:1
+15 SET SURG=CDSOT
SET SURGDT=ONC(165.5,IEN,50)
End DoDot:1
+16 SET (SURG1,SURG2)=""
+17 SET LOS=$LENGTH(SURG)
IF LOS<56
SET SURG1=SURG
GOTO SURG
+18 SET NOP=$LENGTH($EXTRACT(SURG,1,42)," ")
+19 SET SURG1=$PIECE(SURG," ",1,NOP-1)
SET SURG2=$PIECE(SURG," ",NOP,999)
SURG IF (SURG1="")!($EXTRACT(SURG1,1,2)="00")
SET SURGDT="00/00/0000"
+1 WRITE !," DATE OF SURGERY...................: ",SURGDT
DO P
if EX=U
QUIT
+2 WRITE !," TYPE OF SURGERY...................: ",SURG1
DO P
if EX=U
QUIT
+3 if SURG2'=""
WRITE !,?41,SURG2
DO P
if EX=U
QUIT
+4 WRITE !," TUMOR RESECTION DURING TURB.......: ",ONC(165.5,IEN,349)
DO P
if EX=U
QUIT
+5 ;D P Q:EX=U
WRITE !," TYPE OF URINARY DIVERSION.........: ",ONC(165.5,IEN,350)
+6 WRITE !," PELVIC LYMPH NODE DISSECTION......: ",ONC(165.5,IEN,351)
+7 IF IOST?1"C".E
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
DO HDR^ONCBPC8
WRITE !?15,TABLE_" (continued)"
SC WRITE !!," SURGICAL COMPLICATIONS:",!
DO P
if EX=U
QUIT
+1 WRITE !," BLEEDING REQUIRING TRANSFUSION..: ",ONC(165.5,IEN,352)
DO P
if EX=U
QUIT
+2 WRITE !," DEEP VENOUS THROMBOSIS..........: ",ONC(165.5,IEN,353)
DO P
if EX=U
QUIT
+3 WRITE !," MYOCARDIAL INFARCTION/ARRHYTHMIA: ",ONC(165.5,IEN,354)
DO P
if EX=U
QUIT
+4 WRITE !," PELVIC ABSCESS..................: ",ONC(165.5,IEN,355)
DO P
if EX=U
QUIT
+5 WRITE !," PNEUMONIA REQUIRING ANTIBIOTICS.: ",ONC(165.5,IEN,356)
DO P
if EX=U
QUIT
+6 WRITE !," POST-OPERATIVE DEATH (30 DAYS)..: ",ONC(165.5,IEN,357)
DO P
if EX=U
QUIT
+7 WRITE !," PULMONARY EMBOLISM/THROMBOSIS...: ",ONC(165.5,IEN,358)
DO P
if EX=U
QUIT
+8 WRITE !," REOPERATION.....................: ",ONC(165.5,IEN,359)
DO P
if EX=U
QUIT
+9 WRITE !," OTHER...........................: ",ONC(165.5,IEN,360)
+10 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
DO HDR^ONCBPC8
WRITE !?15,TABLE_" (continued)"
RT WRITE !!,"RADIATION THERAPY:",!
DO P
if EX=U
QUIT
+1 WRITE !," RADIATION THERAPY.................: ",ONC(165.5,IEN,51.2)
DO P
if EX=U
QUIT
+2 WRITE !," DATE RADIATION THERAPY STARTED....: ",ONC(165.5,IEN,51)
DO P
if EX=U
QUIT
+3 WRITE !," DATE RADIATION THERAPY ENDED......: ",ONC(165.5,IEN,361)
DO P
if EX=U
QUIT
+4 WRITE !," TOTAL RAD (cGy/rad) DOSE..........: ",ONC(165.5,IEN,362)
DO P
if EX=U
QUIT
+5 WRITE !," REGIONAL TREATMENT MODALITY.......: ",ONC(165.5,IEN,363)
DO P
if EX=U
QUIT
+6 WRITE !!," RADIATION COMPLICATIONS:",!
DO P
if EX=U
QUIT
+7 WRITE !," URINARY INCONTINENCE............: ",ONC(165.5,IEN,364)
DO P
if EX=U
QUIT
+8 WRITE !," HEMATURIA.......................: ",ONC(165.5,IEN,365)
DO P
if EX=U
QUIT
+9 WRITE !," RADIATION BOWEL INJURY..........: ",ONC(165.5,IEN,366)
DO P
if EX=U
QUIT
+10 WRITE !
DO P
if EX=U
QUIT
+11 WRITE !,"CHEMOTHERAPY:",!
DO P
if EX=U
QUIT
+12 WRITE !," CHEMOTHERAPY......................: ",ONC(165.5,IEN,53.2)
DO P
if EX=U
QUIT
+13 WRITE !," DATE CHEMOTHERAPY STARTED.........: ",ONC(165.5,IEN,53)
DO P
if EX=U
QUIT
+14 WRITE !," DATE CHEMOTHERAPY ENDED...........: ",ONC(165.5,IEN,367)
DO P
if EX=U
QUIT
+15 WRITE !," ROUTE CHEMOTHERAPY ADMINISTERED...: ",ONC(165.5,IEN,368)
DO P
if EX=U
QUIT
+16 WRITE !!," TYPES OF AGENTS ADMINISTERED:",!
DO P
if EX=U
QUIT
+17 WRITE !," ADRIAMYCIN......: ",ONC(165.5,IEN,369),?33,"IFOSFAMIDE......: ",ONC(165.5,IEN,375)
DO P
if EX=U
QUIT
+18 WRITE !," CARBOPLATINUM...: ",ONC(165.5,IEN,370),?33,"METHOTREXATE....: ",ONC(165.5,IEN,376)
DO P
if EX=U
QUIT
+19 WRITE !," CISPLATIN.......: ",ONC(165.5,IEN,371),?33,"TAXOL...........: ",ONC(165.5,IEN,377)
DO P
if EX=U
QUIT
+20 WRITE !," CYCLOPHOSPHAMIDE: ",ONC(165.5,IEN,372),?33,"THIOTEPA........: ",ONC(165.5,IEN,378)
DO P
if EX=U
QUIT
+21 ;D P Q:EX=U
WRITE !," 5-FLUOROURACIL..: ",ONC(165.5,IEN,373),?33,"VINBLASTINE.....: ",ONC(165.5,IEN,379)
+22 WRITE !," GALLIUM NITRATE.: ",ONC(165.5,IEN,374),?33,"OTHER...........: ",ONC(165.5,IEN,380)
+23 IF IOST?1"C".E
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
DO HDR^ONCBPC8
WRITE !?15,TABLE_" (continued)"
IFAOA WRITE !!," INDICATION FOR ADMIN OF AGENTS...: ",ONC(165.5,IEN,381)
DO P
if EX=U
QUIT
+1 WRITE !," REASON CHEMOTHERAPY STOPPED......: ",ONC(165.5,IEN,382)
DO P
if EX=U
QUIT
+2 WRITE !!,"IMMUNOTHERAPY:",!
DO P
if EX=U
QUIT
+3 WRITE !," IMMUNOTHERAPY (BRM)...............: ",ONC(165.5,IEN,55.2)
DO P
if EX=U
QUIT
+4 WRITE !!," TYPE OF IMMUNOTHERAPY (BRM):",!
DO P
if EX=U
QUIT
+5 WRITE !," BCG.............................: ",ONC(165.5,IEN,383)
DO P
if EX=U
QUIT
+6 WRITE !," INTERFERON......................: ",ONC(165.5,IEN,384)
DO P
if EX=U
QUIT
+7 WRITE !," INTERLEUKIN-II..................: ",ONC(165.5,IEN,385)
DO P
if EX=U
QUIT
+8 WRITE !," OTHER...........................: ",ONC(165.5,IEN,386)
+9 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
DO HDR^ONCBPC8
GOTO V
+10 DO P
if EX=U
QUIT
V SET TABLE="TABLE V - FIRST RECURRENCE"
+1 IF IOST'?1"C".E
WRITE !
IF ($Y'<(LIN-4))
DO HDR^ONCBPC8
+2 WRITE !?15,TABLE,!
DO P
if EX=U
QUIT
+3 WRITE !,"TYPE OF FIRST RECURRENCE............: ",ONC(165.5,IEN,387)
DO P
if EX=U
QUIT
+4 WRITE !,"DATE OF FIRST RECURRENCE............: ",ONC(165.5,IEN,70)
DO P
if EX=U
QUIT
+5 WRITE !,"DISTANT SITE OF FIRST RECURRENCE 1..: ",ONC(165.5,IEN,71.1)
DO P
if EX=U
QUIT
+6 WRITE !,"DISTANT SITE OF FIRST RECURRENCE 2..: ",ONC(165.5,IEN,71.2)
DO P
if EX=U
QUIT
+7 WRITE !,"DISTANT SITE OF FIRST RECURRENCE 3..: ",ONC(165.5,IEN,71.3)
DO P
if EX=U
QUIT
+8 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
DO HDR^ONCBPC8
GOTO VI
+9 DO P
if EX=U
QUIT
VI SET TABLE="TABLE VI - STATUS AT LAST CONTACT"
+1 IF IOST'?1"C".E
WRITE !
IF ($Y'<(LIN-4))
DO HDR^ONCBPC8
+2 WRITE !?15,TABLE,!
DO P
if EX=U
QUIT
+3 SET DLC=""
+4 IF $DATA(^ONCO(160,ONCOPA,"F","B"))
SET DLC=$ORDER(^ONCO(160,ONCOPA,"F","B",""),-1)
+5 IF DLC'=""
SET Y=DLC
DO DATEOT^ONCOPCE
SET DLC=Y
+6 WRITE !,"DATE OF LAST CONTACT OR DEATH......: ",DLC
+7 WRITE !,"VITAL STATUS.......................: ",ONC(160,ONCOPA,15)
DO P
if EX=U
QUIT
+8 SET CS=""
IF $DATA(^ONCO(165.5,ONCONUM,"TS","AA"))
Begin DoDot:1
+9 SET CSDAT=$ORDER(^ONCO(165.5,ONCONUM,"TS","AA",""))
+10 SET CSIEN=$ORDER(^ONCO(165.5,ONCONUM,"TS","AA",CSDAT,""))
+11 SET CSPNT=$PIECE(^ONCO(165.5,ONCONUM,"TS",CSIEN,0),U,2)
+12 SET CS=$PIECE(^ONCO(164.42,CSPNT,0),U,1)
End DoDot:1
+13 WRITE !,"CANCER STATUS......................: ",CS
+14 WRITE !,"COMPLETED BY.......................: ",ONC(165.5,IEN,81)
DO P
if EX=U
QUIT
+15 WRITE !,"REVIEWED BY CANCER COMMITTEE.......: ",ONC(165.5,IEN,82)
+16 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
KILL ;Kill Variables and Exit
+1 KILL %,DIR,DIROUT,DIRUT,DTOUT,DUOUT,LP,FILN,ONCOBL,EX,TXT,X,Y,SCTIEN
+2 QUIT
P ;Display Data
+1 IF ($Y'<(LIN-2))
Begin DoDot:1
+2 IF IOST?1"C".E
KILL DIR
SET DIR(0)="E"
DO ^DIR
IF 'Y
SET EX=U
QUIT
+3 DO HDR^ONCBPC8
QUIT
End DoDot:1
if EX=U
QUIT
WRITE !?15,TABLE_" (continued)",!
+4 QUIT
