ONCSPC4 ;HIRMFO/GWB - PCE Study of Soft Tissue Sarcoma Table IV;6/19/96
;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
K ONC,TABLE,HTABLE
S TABLE("DATE OF FIRST COURSE TREATMENT")="DOFCT^ONCSPC4"
S TABLE("SURGERY")="S^ONCSPC4"
S TABLE("RADIATION THERAPY")="R^ONCSPC4"
S TABLE("CHEMOTHERAPY")="C^ONCSPC4A"
S HTABLE(1)="DATE OF FIRST COURSE TREATMENT"
S HTABLE(2)="SURGERY"
S HTABLE(3)="RADIATION THERAPY"
S HTABLE(4)="CHEMOTHERAPY"
S CHOICES=4
S D0=ONCONUM D DFC^ONCOCOM S DOFCT=Y
S DIC="^ONCO(165.5,",DR="50;51.2;53;53.2;58.1;58.2;58.3",DA=ONCONUM
S DIQ="ONC",DIQ(0)="IE" D EN^DIQ1
W @IOF D HEAD^ONCSPC0 W !?22,"TABLE IV - FIRST COURSE OF TREATMENT",!
S DIE="^ONCO(165.5,",DA=ONCONUM
DOFCT W !,"DATE OF FIRST COURSE TREATMENT....: ",DOFCT
S W !!,"SURGERY:",!
S NCDSDT=$P($G(^ONCO(165.5,ONCONUM,3)),U,31)
S Y=NCDSDT D DATEOT^ONCOPCE S NCDSDT=Y
S NCDS=ONC(165.5,ONCONUM,58.1,"E")
S (NCDS1,NCDS2)="",LOS=$L(NCDS) I LOS<42 S NCDS1=NCDS G CDSDT
S NOP=$L($E(NCDS,1,41)," ")
S NCDS1=$P(NCDS," ",1,NOP-1),NCDS2=$P(NCDS," ",NOP,999)
CDSDT S CDSDT=$P($G(^ONCO(165.5,ONCONUM,3)),U,1)
S Y=CDSDT D DATEOT^ONCOPCE S CDSDT=Y
S CDS=ONC(165.5,ONCONUM,58.2,"E")
S (CDS1,CDS2)="",LOS=$L(CDS) I LOS<42 S CDS1=CDS G NCDS
S NOP=$L($E(CDS,1,41)," ")
S CDS1=$P(CDS," ",1,NOP-1),CDS2=$P(CDS," ",NOP,999)
NCDS W !," NON CANCER-DIRECTED SURGERY DATE: ",NCDSDT
W !," NON CANCER-DIRECTED SURGERY.....: ",NCDS1 W:NCDS2'="" !,?39,NCDS2
W !," SURGERY OF PRIMARY SITE DATE....: ",CDSDT
CDS W !," SURGERY OF PRIMARY SITE.........: ",CDS1 W:CDS2'="" !,?39,CDS2
I (CDS="")!($E(CDS,1,2)="00") D W @IOF G R
.S $P(^ONCO(165.5,ONCONUM,3),U,28)=8
.W !," RESIDUAL PRIMARY TUMOR..........: NA"
.S $P(^ONCO(165.5,ONCONUM,"STS2"),U,1)=8
.W !," TREATING SURGEON................: Not applicable, no surgery"
.S $P(^ONCO(165.5,ONCONUM,"STS2"),U,2)=9
.W !," ASA CLASS.......................: Class unknown or not applicable"
.S $P(^ONCO(165.5,ONCONUM,"THY1"),U,42)=8
.W !," POSTOPERATIVE DEATH.............: Not applicable, no surgery"
.W ! K DIR S DIR(0)="E" D ^DIR
S DR="59 RESIDUAL PRIMARY TUMOR.........." D ^DIE G:$D(Y) JUMP
S DR="526 TREATING SURGEON................" D ^DIE G:$D(Y) JUMP
S DR="527 ASA CLASS......................." D ^DIE G:$D(Y) JUMP
S DR="441 POSTOPERATIVE DEATH............." D ^DIE G:$D(Y) JUMP
R W !!,"RADIATION THERAPY:",!
S RAD=ONC(165.5,ONCONUM,51.2,"I")
I RAD=0 D W !," EXTERNAL BEAM RADIATION.........: No" D EB0 W !!," INTRAOPERATIVE RADIATION........: No" D IR0 W !!," BRACHYTHERAPY...................: No" D B0 G RSS
.S $P(^ONCO(165.5,ONCONUM,"STS2"),U,3)=0
.S $P(^ONCO(165.5,ONCONUM,"STS2"),U,6)=0
.S $P(^ONCO(165.5,ONCONUM,"STS2"),U,9)=0
I RAD=9 D W !," EXTERNAL BEAM RADIATION.........: Unknown" D EB9 W !!," INTRAOPERATIVE RADIATION........: Unknown" D IR9 W !!," BRACHYTHERAPY...................: Unknown" D B9 G RSS
.S $P(^ONCO(165.5,ONCONUM,"STS2"),U,3)=9
.S $P(^ONCO(165.5,ONCONUM,"STS2"),U,6)=9
.S $P(^ONCO(165.5,ONCONUM,"STS2"),U,9)=9
S DR="532 EXTERNAL BEAM RADIATION........." D ^DIE G:$D(Y) JUMP
I X=0 D EB0 G IR
I X=9 D EB9 G IR
S DR="533 NUMBER OF FRACTIONS..........." D ^DIE G:$D(Y) JUMP
S DR="362 DOSE.........................." D ^DIE G:$D(Y) JUMP
S DR="534 RADIATION ENERGY (MV)........." D ^DIE G:$D(Y) JUMP
S DR="567 DATE THERAPY STARTED.........." D ^DIE G:$D(Y) JUMP
S DR="361 DATE THERAPY ENDED............" D ^DIE G:$D(Y) JUMP
IR W ! S DR="535 INTRAOPERATIVE RADIATION........" D ^DIE G:$D(Y) JUMP
I X=0 D IR0 G B
I X=9 D IR9 G B
S DR="536 DOSE.........................." D ^DIE G:$D(Y) JUMP
S DR="537 RADIATION ENERGY (MV)........." D ^DIE G:$D(Y) JUMP
B W ! S DR="538 BRACHYTHERAPY..................." D ^DIE G:$D(Y) JUMP
I X=0 D B0 G RSS
I X=9 D B9 G RSS
S DR="539 NUMBER OF DAYS GIVEN.........." D ^DIE G:$D(Y) JUMP
S DR="540 DOSE.........................." D ^DIE G:$D(Y) JUMP
S DR="541 DATE THERAPY STARTED.........." D ^DIE G:$D(Y) JUMP
S DR="542 DATE THERAPY ENDED............" D ^DIE G:$D(Y) JUMP
D ^ONCSPC4A
I $G(OUT)'="Y" W ! K DIR S DIR(0)="E" D ^DIR
G EXIT
JUMP ;Jump to prompts
S XX="" R !!,"GO TO: ",X:DTIME I (X="")!(X[U) S OUT="Y" G EXIT
I X["?" D G JUMP
.W !,"CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I)
I '$D(TABLE(X)) S XX=X,X=$O(TABLE(X)) I ($P(X,XX,1)'="")!(X="") W *7,"??" D G JUMP
.W !,"CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I)
S X=TABLE(X)
G @X
EXIT K CHOICES,HTABLE,TABLE
K CDS,CDS1,CDS2,CDSDT,CHEMO,DOFCT,HT,LOS,NCDS,NCDS1,NCDS2,NCDSDT,NOP,RAD
K RADDT
Q
EB0 S $P(^ONCO(165.5,ONCONUM,"STS2"),U,4)=0
W !," NUMBER OF FRACTIONS...........: 000"
S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,17)=0
W !," DOSE..........................: 00000"
S $P(^ONCO(165.5,ONCONUM,"STS2"),U,5)=0
W !," RADIATION ENERGY (MV).........: 00"
S $P(^ONCO(165.5,ONCONUM,"STS2"),U,38)="0000000"
W !," DATE THERAPY STARTED..........: 00/00/0000"
S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,16)="0000000"
W !," DATE THERAPY ENDED............: 00/00/0000"
Q
EB9 S $P(^ONCO(165.5,ONCONUM,"STS2"),U,4)=999
W !," NUMBER OF FRACTIONS...........: 999"
S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,17)=99999
W !," DOSE..........................: 99999"
S $P(^ONCO(165.5,ONCONUM,"STS2"),U,5)=99
W !," RADIATION ENERGY (MV).........: 99"
S $P(^ONCO(165.5,ONCONUM,"STS2"),U,38)=9999999
W !," DATE THERAPY STARTED..........: 99/99/9999"
S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,16)=9999999
W !," DATE THERAPY ENDED............: 99/99/9999"
Q
IR0 S $P(^ONCO(165.5,ONCONUM,"STS2"),U,7)=0
W !," DOSE..........................: 00000"
S $P(^ONCO(165.5,ONCONUM,"STS2"),U,8)=0
W !," RADIATION ENERGY (MV).........: 00"
Q
IR9 S $P(^ONCO(165.5,ONCONUM,"STS2"),U,7)=99999
W !," DOSE..........................: 99999"
S $P(^ONCO(165.5,ONCONUM,"STS2"),U,8)=99
W !," RADIATION ENERGY (MV).........: 99"
Q
B0 S $P(^ONCO(165.5,ONCONUM,"STS2"),U,10)=0
W !," NUMBER OF DAYS GIVEN..........: 000"
S $P(^ONCO(165.5,ONCONUM,"STS2"),U,11)=0
W !," DOSE..........................: 00000"
S $P(^ONCO(165.5,ONCONUM,"STS2"),U,12)="0000000"
W !," DATE THERAPY STARTED..........: 00/00/0000"
S $P(^ONCO(165.5,ONCONUM,"STS2"),U,13)="0000000"
W !," DATE THERAPY ENDED............: 00/00/0000"
Q
B9 S $P(^ONCO(165.5,ONCONUM,"STS2"),U,10)=999
W !," NUMBER OF DAYS GIVEN..........: 999"
S $P(^ONCO(165.5,ONCONUM,"STS2"),U,11)=99999
W !," DOSE..........................: 99999"
S $P(^ONCO(165.5,ONCONUM,"STS2"),U,12)=9999999
W !," DATE THERAPY STARTED..........: 99/99/9999"
S $P(^ONCO(165.5,ONCONUM,"STS2"),U,13)=9999999
W !," DATE THERAPY ENDED............: 99/99/9999"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCSPC4 6881 printed Dec 13, 2024@02:28:38 Page 2
ONCSPC4 ;HIRMFO/GWB - PCE Study of Soft Tissue Sarcoma Table IV;6/19/96
+1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
+2 KILL ONC,TABLE,HTABLE
+3 SET TABLE("DATE OF FIRST COURSE TREATMENT")="DOFCT^ONCSPC4"
+4 SET TABLE("SURGERY")="S^ONCSPC4"
+5 SET TABLE("RADIATION THERAPY")="R^ONCSPC4"
+6 SET TABLE("CHEMOTHERAPY")="C^ONCSPC4A"
+7 SET HTABLE(1)="DATE OF FIRST COURSE TREATMENT"
+8 SET HTABLE(2)="SURGERY"
+9 SET HTABLE(3)="RADIATION THERAPY"
+10 SET HTABLE(4)="CHEMOTHERAPY"
+11 SET CHOICES=4
+12 SET D0=ONCONUM
DO DFC^ONCOCOM
SET DOFCT=Y
+13 SET DIC="^ONCO(165.5,"
SET DR="50;51.2;53;53.2;58.1;58.2;58.3"
SET DA=ONCONUM
+14 SET DIQ="ONC"
SET DIQ(0)="IE"
DO EN^DIQ1
+15 WRITE @IOF
DO HEAD^ONCSPC0
WRITE !?22,"TABLE IV - FIRST COURSE OF TREATMENT",!
+16 SET DIE="^ONCO(165.5,"
SET DA=ONCONUM
DOFCT WRITE !,"DATE OF FIRST COURSE TREATMENT....: ",DOFCT
S WRITE !!,"SURGERY:",!
+1 SET NCDSDT=$PIECE($GET(^ONCO(165.5,ONCONUM,3)),U,31)
+2 SET Y=NCDSDT
DO DATEOT^ONCOPCE
SET NCDSDT=Y
+3 SET NCDS=ONC(165.5,ONCONUM,58.1,"E")
+4 SET (NCDS1,NCDS2)=""
SET LOS=$LENGTH(NCDS)
IF LOS<42
SET NCDS1=NCDS
GOTO CDSDT
+5 SET NOP=$LENGTH($EXTRACT(NCDS,1,41)," ")
+6 SET NCDS1=$PIECE(NCDS," ",1,NOP-1)
SET NCDS2=$PIECE(NCDS," ",NOP,999)
CDSDT SET CDSDT=$PIECE($GET(^ONCO(165.5,ONCONUM,3)),U,1)
+1 SET Y=CDSDT
DO DATEOT^ONCOPCE
SET CDSDT=Y
+2 SET CDS=ONC(165.5,ONCONUM,58.2,"E")
+3 SET (CDS1,CDS2)=""
SET LOS=$LENGTH(CDS)
IF LOS<42
SET CDS1=CDS
GOTO NCDS
+4 SET NOP=$LENGTH($EXTRACT(CDS,1,41)," ")
+5 SET CDS1=$PIECE(CDS," ",1,NOP-1)
SET CDS2=$PIECE(CDS," ",NOP,999)
NCDS WRITE !," NON CANCER-DIRECTED SURGERY DATE: ",NCDSDT
+1 WRITE !," NON CANCER-DIRECTED SURGERY.....: ",NCDS1
if NCDS2'=""
WRITE !,?39,NCDS2
+2 WRITE !," SURGERY OF PRIMARY SITE DATE....: ",CDSDT
CDS WRITE !," SURGERY OF PRIMARY SITE.........: ",CDS1
if CDS2'=""
WRITE !,?39,CDS2
+1 IF (CDS="")!($EXTRACT(CDS,1,2)="00")
Begin DoDot:1
+2 SET $PIECE(^ONCO(165.5,ONCONUM,3),U,28)=8
+3 WRITE !," RESIDUAL PRIMARY TUMOR..........: NA"
+4 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,1)=8
+5 WRITE !," TREATING SURGEON................: Not applicable, no surgery"
+6 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,2)=9
+7 WRITE !," ASA CLASS.......................: Class unknown or not applicable"
+8 SET $PIECE(^ONCO(165.5,ONCONUM,"THY1"),U,42)=8
+9 WRITE !," POSTOPERATIVE DEATH.............: Not applicable, no surgery"
+10 WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
End DoDot:1
WRITE @IOF
GOTO R
+11 SET DR="59 RESIDUAL PRIMARY TUMOR.........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+12 SET DR="526 TREATING SURGEON................"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+13 SET DR="527 ASA CLASS......................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+14 SET DR="441 POSTOPERATIVE DEATH............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
R WRITE !!,"RADIATION THERAPY:",!
+1 SET RAD=ONC(165.5,ONCONUM,51.2,"I")
+2 IF RAD=0
Begin DoDot:1
+3 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,3)=0
+4 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,6)=0
+5 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,9)=0
End DoDot:1
WRITE !," EXTERNAL BEAM RADIATION.........: No"
DO EB0
WRITE !!," INTRAOPERATIVE RADIATION........: No"
DO IR0
WRITE !!," BRACHYTHERAPY...................: No"
DO B0
GOTO RSS
+6 IF RAD=9
Begin DoDot:1
+7 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,3)=9
+8 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,6)=9
+9 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,9)=9
End DoDot:1
WRITE !," EXTERNAL BEAM RADIATION.........: Unknown"
DO EB9
WRITE !!," INTRAOPERATIVE RADIATION........: Unknown"
DO IR9
WRITE !!," BRACHYTHERAPY...................: Unknown"
DO B9
GOTO RSS
+10 SET DR="532 EXTERNAL BEAM RADIATION........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+11 IF X=0
DO EB0
GOTO IR
+12 IF X=9
DO EB9
GOTO IR
+13 SET DR="533 NUMBER OF FRACTIONS..........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+14 SET DR="362 DOSE.........................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+15 SET DR="534 RADIATION ENERGY (MV)........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+16 SET DR="567 DATE THERAPY STARTED.........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+17 SET DR="361 DATE THERAPY ENDED............"
DO ^DIE
if $DATA(Y)
GOTO JUMP
IR WRITE !
SET DR="535 INTRAOPERATIVE RADIATION........"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+1 IF X=0
DO IR0
GOTO B
+2 IF X=9
DO IR9
GOTO B
+3 SET DR="536 DOSE.........................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+4 SET DR="537 RADIATION ENERGY (MV)........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
B WRITE !
SET DR="538 BRACHYTHERAPY..................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+1 IF X=0
DO B0
GOTO RSS
+2 IF X=9
DO B9
GOTO RSS
+3 SET DR="539 NUMBER OF DAYS GIVEN.........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+4 SET DR="540 DOSE.........................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+5 SET DR="541 DATE THERAPY STARTED.........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+6 SET DR="542 DATE THERAPY ENDED............"
DO ^DIE
if $DATA(Y)
GOTO JUMP
SET DR="51.3 RADIATION/SURGERY SEQUENCE......"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+1 DO ^ONCSPC4A
+2 IF $GET(OUT)'="Y"
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
+3 GOTO EXIT
JUMP ;Jump to prompts
+1 SET XX=""
READ !!,"GO TO: ",X:DTIME
IF (X="")!(X[U)
SET OUT="Y"
GOTO EXIT
+2 IF X["?"
Begin DoDot:1
+3 WRITE !,"CHOOSE FROM:"
FOR I=1:1:CHOICES
WRITE !,?5,HTABLE(I)
End DoDot:1
GOTO JUMP
+4 IF '$DATA(TABLE(X))
SET XX=X
SET X=$ORDER(TABLE(X))
IF ($PIECE(X,XX,1)'="")!(X="")
WRITE *7,"??"
Begin DoDot:1
+5 WRITE !,"CHOOSE FROM:"
FOR I=1:1:CHOICES
WRITE !,?5,HTABLE(I)
End DoDot:1
GOTO JUMP
+6 SET X=TABLE(X)
+7 GOTO @X
EXIT KILL CHOICES,HTABLE,TABLE
+1 KILL CDS,CDS1,CDS2,CDSDT,CHEMO,DOFCT,HT,LOS,NCDS,NCDS1,NCDS2,NCDSDT,NOP,RAD
+2 KILL RADDT
+3 QUIT
EB0 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,4)=0
+1 WRITE !," NUMBER OF FRACTIONS...........: 000"
+2 SET $PIECE(^ONCO(165.5,ONCONUM,"BLA2"),U,17)=0
+3 WRITE !," DOSE..........................: 00000"
+4 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,5)=0
+5 WRITE !," RADIATION ENERGY (MV).........: 00"
+6 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,38)="0000000"
+7 WRITE !," DATE THERAPY STARTED..........: 00/00/0000"
+8 SET $PIECE(^ONCO(165.5,ONCONUM,"BLA2"),U,16)="0000000"
+9 WRITE !," DATE THERAPY ENDED............: 00/00/0000"
+10 QUIT
EB9 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,4)=999
+1 WRITE !," NUMBER OF FRACTIONS...........: 999"
+2 SET $PIECE(^ONCO(165.5,ONCONUM,"BLA2"),U,17)=99999
+3 WRITE !," DOSE..........................: 99999"
+4 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,5)=99
+5 WRITE !," RADIATION ENERGY (MV).........: 99"
+6 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,38)=9999999
+7 WRITE !," DATE THERAPY STARTED..........: 99/99/9999"
+8 SET $PIECE(^ONCO(165.5,ONCONUM,"BLA2"),U,16)=9999999
+9 WRITE !," DATE THERAPY ENDED............: 99/99/9999"
+10 QUIT
IR0 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,7)=0
+1 WRITE !," DOSE..........................: 00000"
+2 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,8)=0
+3 WRITE !," RADIATION ENERGY (MV).........: 00"
+4 QUIT
IR9 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,7)=99999
+1 WRITE !," DOSE..........................: 99999"
+2 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,8)=99
+3 WRITE !," RADIATION ENERGY (MV).........: 99"
+4 QUIT
B0 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,10)=0
+1 WRITE !," NUMBER OF DAYS GIVEN..........: 000"
+2 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,11)=0
+3 WRITE !," DOSE..........................: 00000"
+4 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,12)="0000000"
+5 WRITE !," DATE THERAPY STARTED..........: 00/00/0000"
+6 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,13)="0000000"
+7 WRITE !," DATE THERAPY ENDED............: 00/00/0000"
+8 QUIT
B9 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,10)=999
+1 WRITE !," NUMBER OF DAYS GIVEN..........: 999"
+2 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,11)=99999
+3 WRITE !," DOSE..........................: 99999"
+4 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,12)=9999999
+5 WRITE !," DATE THERAPY STARTED..........: 99/99/9999"
+6 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,13)=9999999
+7 WRITE !," DATE THERAPY ENDED............: 99/99/9999"
+8 QUIT
