- 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 Feb 18, 2025@23:55:07 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