ONCSPC4A ;HIRMFO/GWB - PCE Study of Soft Tissue Sarcoma Table IV;6/19/96
;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
C W !!,"CHEMOTHERAPY:",!
S CHEMO=ONC(165.5,ONCONUM,53.2,"I"),CHEMOT=ONC(165.5,ONCONUM,53.2,"E")
W !," CHEMOTHERAPY....................: ",CHEMOT
S CHEDT=ONC(165.5,ONCONUM,53,"I"),Y=CHEDT D DATEOT^ONCOPCE S CHEDT=Y
W !," DATE OF CHEMOTHERAPY............: ",CHEDT
W !!,"AGENTS ADMINISTERED, METHODS OF DELIVERY AND LOCATIONS:",!
I CHEMO=0 D G CSF
.S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,26)=0
.S $P(^ONCO(165.5,ONCONUM,"STS2"),U,18)=8
.S $P(^ONCO(165.5,ONCONUM,"STS2"),U,24)=8
.S $P(^ONCO(165.5,ONCONUM,"STS2"),U,14)=0
.S $P(^ONCO(165.5,ONCONUM,"STS2"),U,19)=8
.S $P(^ONCO(165.5,ONCONUM,"STS2"),U,25)=8
.S $P(^ONCO(165.5,ONCONUM,"STS2"),U,15)=0
.S $P(^ONCO(165.5,ONCONUM,"STS2"),U,20)=8
.S $P(^ONCO(165.5,ONCONUM,"STS2"),U,26)=8
.S $P(^ONCO(165.5,ONCONUM,"STS2"),U,16)=0
.S $P(^ONCO(165.5,ONCONUM,"STS2"),U,21)=8
.S $P(^ONCO(165.5,ONCONUM,"STS2"),U,27)=8
.S $P(^ONCO(165.5,ONCONUM,"STS2"),U,17)=0
.S $P(^ONCO(165.5,ONCONUM,"STS2"),U,22)=8
.S $P(^ONCO(165.5,ONCONUM,"STS2"),U,28)=8
.S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,30)=0
.S $P(^ONCO(165.5,ONCONUM,"STS2"),U,23)=8
.S $P(^ONCO(165.5,ONCONUM,"STS2"),U,29)=8
.W !," CISPLATIN.........: No DOXORUBICIN.......: No"
.W !," METHOD OF DELIVERY: Not applicable METHOD OF DELIVERY: Not applicable"
.W !," LOCATION..........: Not applicable LOCATION..........: Not applicable"
.W !!," CYTOXAN...........: No ETOPOSIDE.........: No"
.W !," METHOD OF DELIVERY: Not applicable METHOD OF DELIVERY: Not applicable"
.W !," LOCATION..........: Not applicable LOCATION..........: Not applicable"
.W !!," DTIC..............: No IFOSFAMIDE........: No"
.W !," METHOD OF DELIVERY: Not applicable METHOD OF DELIVERY: Not applicable"
.W !," LOCATION..........: Not applicable LOCATION..........: Not applicable"
CIS S DR="371 CISPLATIN......................." D ^DIE G:$D(Y) JUMP
I X=0 D G CYT
.S $P(^ONCO(165.5,ONCONUM,"STS2"),U,18)=8
.W !," METHOD OF DELIVERY..............: Not applicable"
.S $P(^ONCO(165.5,ONCONUM,"STS2"),U,24)=8
.W !," LOCATION........................: Not applicable"
I X=9 D G CYT
.S $P(^ONCO(165.5,ONCONUM,"STS2"),U,18)=9
.W !," METHOD OF DELIVERY..............: Unknown"
.S $P(^ONCO(165.5,ONCONUM,"STS2"),U,24)=9
.W !," LOCATION........................: Unknown"
S DR="547 METHOD OF DELIVERY.............." D ^DIE G:$D(Y) JUMP
S DR="553 LOCATION........................" D ^DIE G:$D(Y) JUMP
CYT W !
S DR="543 CYTOXAN........................." D ^DIE G:$D(Y) JUMP
I X=0 D G DTIC
.S $P(^ONCO(165.5,ONCONUM,"STS2"),U,19)=8
.W !," METHOD OF DELIVERY..............: Not applicable"
.S $P(^ONCO(165.5,ONCONUM,"STS2"),U,25)=8
.W !," LOCATION........................: Not applicable"
I X=9 D G DTIC
.S $P(^ONCO(165.5,ONCONUM,"STS2"),U,19)=9
.W !," METHOD OF DELIVERY..............: Unknown"
.S $P(^ONCO(165.5,ONCONUM,"STS2"),U,25)=9
.W !," LOCATION........................: Unknown"
S DR="548 METHOD OF DELIVERY.............." D ^DIE G:$D(Y) JUMP
S DR="554 LOCATION........................" D ^DIE G:$D(Y) JUMP
DTIC W !
S DR="544 DTIC............................" D ^DIE G:$D(Y) JUMP
I X=0 D G DOX
.S $P(^ONCO(165.5,ONCONUM,"STS2"),U,20)=8
.W !," METHOD OF DELIVERY..............: Not applicable"
.S $P(^ONCO(165.5,ONCONUM,"STS2"),U,26)=8
.W !," LOCATION........................: Not applicable"
I X=9 D G DOX
.S $P(^ONCO(165.5,ONCONUM,"STS2"),U,20)=9
.W !," METHOD OF DELIVERY..............: Unknown"
.S $P(^ONCO(165.5,ONCONUM,"STS2"),U,26)=9
.W !," LOCATION........................: Unknown"
S DR="549 METHOD OF DELIVERY.............." D ^DIE G:$D(Y) JUMP
S DR="555 LOCATION........................" D ^DIE G:$D(Y) JUMP
DOX W !
S DR="545 DOXURUBICIN....................." D ^DIE G:$D(Y) JUMP
I X=0 D G ETO
.S $P(^ONCO(165.5,ONCONUM,"STS2"),U,21)=8
.W !," METHOD OF DELIVERY..............: Not applicable"
.S $P(^ONCO(165.5,ONCONUM,"STS2"),U,27)=8
.W !," LOCATION........................: Not applicable"
I X=9 D G ETO
.S $P(^ONCO(165.5,ONCONUM,"STS2"),U,21)=9
.W !," METHOD OF DELIVERY..............: Unknown"
.S $P(^ONCO(165.5,ONCONUM,"STS2"),U,27)=9
.W !," LOCATION........................: Unknown"
S DR="550 METHOD OF DELIVERY.............." D ^DIE G:$D(Y) JUMP
S DR="556 LOCATION........................" D ^DIE G:$D(Y) JUMP
ETO W !
S DR="546 ETOPOSIDE......................." D ^DIE G:$D(Y) JUMP
I X=0 D G IFO
.S $P(^ONCO(165.5,ONCONUM,"STS2"),U,22)=8
.W !," METHOD OF DELIVERY..............: Not applicable"
.S $P(^ONCO(165.5,ONCONUM,"STS2"),U,28)=8
.W !," LOCATION........................: Not applicable"
I X=9 D G IFO
.S $P(^ONCO(165.5,ONCONUM,"STS2"),U,22)=9
.W !," METHOD OF DELIVERY..............: Unknown"
.S $P(^ONCO(165.5,ONCONUM,"STS2"),U,28)=9
.W !," LOCATION........................: Unknown"
S DR="551 METHOD OF DELIVERY.............." D ^DIE G:$D(Y) JUMP
S DR="557 LOCATION........................" D ^DIE G:$D(Y) JUMP
IFO W !
S DR="375 IFOSFAMIDE......................" D ^DIE G:$D(Y) JUMP
I X=0 D G CSF
.S $P(^ONCO(165.5,ONCONUM,"STS2"),U,23)=8
.W !," METHOD OF DELIVERY..............: Not applicable"
.S $P(^ONCO(165.5,ONCONUM,"STS2"),U,29)=8
.W !," LOCATION........................: Not applicable"
I X=9 D G CSF
.S $P(^ONCO(165.5,ONCONUM,"STS2"),U,23)=9
.W !," METHOD OF DELIVERY..............: Unknown"
.S $P(^ONCO(165.5,ONCONUM,"STS2"),U,29)=9
.W !," LOCATION........................: Unknown"
S DR="552 METHOD OF DELIVERY.............." D ^DIE G:$D(Y) JUMP
S DR="558 LOCATION........................" D ^DIE G:$D(Y) JUMP
CSF W ! S DR="559 COLONY STIMULATING FACTORS......" D ^DIE G:$D(Y) JUMP
S DR="560 NATIONAL TREATMENT PROTOCOL....." D ^DIE G:$D(Y) JUMP
S DR="561 OTHER PROTOCOL.................." D ^DIE G:$D(Y) JUMP
S DR="562 REFERRED TO REHAB SERVICES......" D ^DIE G:$D(Y) JUMP
S DR="563 CONSULT W PHYSICAL THERAPY/REHAB" D ^DIE G:$D(Y) JUMP
S DR="564 TRANSFERRED TO REHAB FACILITY..." D ^DIE G:$D(Y) JUMP
S DR="565 NO OF HOSPITALIZATIONS W/I 6 MO." D ^DIE G:$D(Y) JUMP
S DR="566 TOTAL LENGTH OF STAYS..........." D ^DIE G:$D(Y) JUMP
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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCSPC4A 6871 printed Apr 09, 2024@21:28:27 Page 2
ONCSPC4A ;HIRMFO/GWB - PCE Study of Soft Tissue Sarcoma Table IV;6/19/96
+1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
C WRITE !!,"CHEMOTHERAPY:",!
+1 SET CHEMO=ONC(165.5,ONCONUM,53.2,"I")
SET CHEMOT=ONC(165.5,ONCONUM,53.2,"E")
+2 WRITE !," CHEMOTHERAPY....................: ",CHEMOT
+3 SET CHEDT=ONC(165.5,ONCONUM,53,"I")
SET Y=CHEDT
DO DATEOT^ONCOPCE
SET CHEDT=Y
+4 WRITE !," DATE OF CHEMOTHERAPY............: ",CHEDT
+5 WRITE !!,"AGENTS ADMINISTERED, METHODS OF DELIVERY AND LOCATIONS:",!
+6 IF CHEMO=0
Begin DoDot:1
+7 SET $PIECE(^ONCO(165.5,ONCONUM,"BLA2"),U,26)=0
+8 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,18)=8
+9 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,24)=8
+10 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,14)=0
+11 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,19)=8
+12 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,25)=8
+13 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,15)=0
+14 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,20)=8
+15 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,26)=8
+16 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,16)=0
+17 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,21)=8
+18 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,27)=8
+19 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,17)=0
+20 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,22)=8
+21 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,28)=8
+22 SET $PIECE(^ONCO(165.5,ONCONUM,"BLA2"),U,30)=0
+23 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,23)=8
+24 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,29)=8
+25 WRITE !," CISPLATIN.........: No DOXORUBICIN.......: No"
+26 WRITE !," METHOD OF DELIVERY: Not applicable METHOD OF DELIVERY: Not applicable"
+27 WRITE !," LOCATION..........: Not applicable LOCATION..........: Not applicable"
+28 WRITE !!," CYTOXAN...........: No ETOPOSIDE.........: No"
+29 WRITE !," METHOD OF DELIVERY: Not applicable METHOD OF DELIVERY: Not applicable"
+30 WRITE !," LOCATION..........: Not applicable LOCATION..........: Not applicable"
+31 WRITE !!," DTIC..............: No IFOSFAMIDE........: No"
+32 WRITE !," METHOD OF DELIVERY: Not applicable METHOD OF DELIVERY: Not applicable"
+33 WRITE !," LOCATION..........: Not applicable LOCATION..........: Not applicable"
End DoDot:1
GOTO CSF
CIS SET DR="371 CISPLATIN......................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+1 IF X=0
Begin DoDot:1
+2 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,18)=8
+3 WRITE !," METHOD OF DELIVERY..............: Not applicable"
+4 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,24)=8
+5 WRITE !," LOCATION........................: Not applicable"
End DoDot:1
GOTO CYT
+6 IF X=9
Begin DoDot:1
+7 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,18)=9
+8 WRITE !," METHOD OF DELIVERY..............: Unknown"
+9 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,24)=9
+10 WRITE !," LOCATION........................: Unknown"
End DoDot:1
GOTO CYT
+11 SET DR="547 METHOD OF DELIVERY.............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+12 SET DR="553 LOCATION........................"
DO ^DIE
if $DATA(Y)
GOTO JUMP
CYT WRITE !
+1 SET DR="543 CYTOXAN........................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+2 IF X=0
Begin DoDot:1
+3 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,19)=8
+4 WRITE !," METHOD OF DELIVERY..............: Not applicable"
+5 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,25)=8
+6 WRITE !," LOCATION........................: Not applicable"
End DoDot:1
GOTO DTIC
+7 IF X=9
Begin DoDot:1
+8 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,19)=9
+9 WRITE !," METHOD OF DELIVERY..............: Unknown"
+10 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,25)=9
+11 WRITE !," LOCATION........................: Unknown"
End DoDot:1
GOTO DTIC
+12 SET DR="548 METHOD OF DELIVERY.............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+13 SET DR="554 LOCATION........................"
DO ^DIE
if $DATA(Y)
GOTO JUMP
DTIC WRITE !
+1 SET DR="544 DTIC............................"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+2 IF X=0
Begin DoDot:1
+3 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,20)=8
+4 WRITE !," METHOD OF DELIVERY..............: Not applicable"
+5 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,26)=8
+6 WRITE !," LOCATION........................: Not applicable"
End DoDot:1
GOTO DOX
+7 IF X=9
Begin DoDot:1
+8 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,20)=9
+9 WRITE !," METHOD OF DELIVERY..............: Unknown"
+10 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,26)=9
+11 WRITE !," LOCATION........................: Unknown"
End DoDot:1
GOTO DOX
+12 SET DR="549 METHOD OF DELIVERY.............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+13 SET DR="555 LOCATION........................"
DO ^DIE
if $DATA(Y)
GOTO JUMP
DOX WRITE !
+1 SET DR="545 DOXURUBICIN....................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+2 IF X=0
Begin DoDot:1
+3 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,21)=8
+4 WRITE !," METHOD OF DELIVERY..............: Not applicable"
+5 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,27)=8
+6 WRITE !," LOCATION........................: Not applicable"
End DoDot:1
GOTO ETO
+7 IF X=9
Begin DoDot:1
+8 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,21)=9
+9 WRITE !," METHOD OF DELIVERY..............: Unknown"
+10 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,27)=9
+11 WRITE !," LOCATION........................: Unknown"
End DoDot:1
GOTO ETO
+12 SET DR="550 METHOD OF DELIVERY.............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+13 SET DR="556 LOCATION........................"
DO ^DIE
if $DATA(Y)
GOTO JUMP
ETO WRITE !
+1 SET DR="546 ETOPOSIDE......................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+2 IF X=0
Begin DoDot:1
+3 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,22)=8
+4 WRITE !," METHOD OF DELIVERY..............: Not applicable"
+5 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,28)=8
+6 WRITE !," LOCATION........................: Not applicable"
End DoDot:1
GOTO IFO
+7 IF X=9
Begin DoDot:1
+8 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,22)=9
+9 WRITE !," METHOD OF DELIVERY..............: Unknown"
+10 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,28)=9
+11 WRITE !," LOCATION........................: Unknown"
End DoDot:1
GOTO IFO
+12 SET DR="551 METHOD OF DELIVERY.............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+13 SET DR="557 LOCATION........................"
DO ^DIE
if $DATA(Y)
GOTO JUMP
IFO WRITE !
+1 SET DR="375 IFOSFAMIDE......................"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+2 IF X=0
Begin DoDot:1
+3 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,23)=8
+4 WRITE !," METHOD OF DELIVERY..............: Not applicable"
+5 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,29)=8
+6 WRITE !," LOCATION........................: Not applicable"
End DoDot:1
GOTO CSF
+7 IF X=9
Begin DoDot:1
+8 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,23)=9
+9 WRITE !," METHOD OF DELIVERY..............: Unknown"
+10 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,29)=9
+11 WRITE !," LOCATION........................: Unknown"
End DoDot:1
GOTO CSF
+12 SET DR="552 METHOD OF DELIVERY.............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+13 SET DR="558 LOCATION........................"
DO ^DIE
if $DATA(Y)
GOTO JUMP
CSF WRITE !
SET DR="559 COLONY STIMULATING FACTORS......"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+1 SET DR="560 NATIONAL TREATMENT PROTOCOL....."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+2 SET DR="561 OTHER PROTOCOL.................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+3 SET DR="562 REFERRED TO REHAB SERVICES......"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+4 SET DR="563 CONSULT W PHYSICAL THERAPY/REHAB"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+5 SET DR="564 TRANSFERRED TO REHAB FACILITY..."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+6 SET DR="565 NO OF HOSPITALIZATIONS W/I 6 MO."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+7 SET DR="566 TOTAL LENGTH OF STAYS..........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+8 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
