- 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 23, 2025@18:43:09 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
