ONCNPC4A ;HIRMFO/GWB - PCE Study of Non-Hodgkin's Lymphoma - Table IV;4/18/97
;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
SC W !!,"SYSTEMIC CHEMOTHERAPY"
W !,"---------------------"
S DR="864 SYSTEMIC CHEMOTHERAPY..........." D ^DIE G:$D(Y) JUMP
I X=0 D G IC
.S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,20)="0000000"
.W !," SYSTEMIC CHEMOTHERAPY DATE......: 00/00/0000"
.S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,21)=88
.W !," NUMBER OF PLANNED CYCLES........: NA"
.W !!," AGENT ADMINISTERED DURING SYSTEMIC CHEMOTHERAPY:",!
.W !," SINGLE-AGENT CHEMOTHERAPY:",!
.S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,22)=8
.S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,23)=8
.S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,24)=8
.S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,25)=8
.W !," CHLORAMBUCIL.....: NA DOXORUBICIN......: NA"
.W !," CYCLOPHOSPHAMIDE.: NA FLUDARABINE......: NA"
.W !!," COMBINATION CHEMOTHERAPY:",!
.S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,26)=8
.S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,27)=8
.S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,28)=8
.S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,29)=8
.S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,30)=8
.S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,31)=8
.S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,32)=8
.W !," CHOP.............: NA M-BACOD..........: NA"
.W !," CVP..............: NA PRO-MACE-Cyta BOM: NA"
.W !," COMLA............: NA OTHER............: NA"
.W !," MACOP-B..........: NA"
.S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,33)=0
.W !!," HIGH DOSE W STEM CELL RESCUE..: No"
.W ! K DIR S DIR(0)="E" D ^DIR Q:(Y=0)!(Y="") D HEAD^ONCNPC0
I X=9 D G IC
.S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,20)="0000000"
.W !," SYSTEMIC CHEMOTHERAPY DATE......: 00/00/0000"
.S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,21)=99
.W !," NUMBER OF PLANNED CYCLES........: Unknown if chemotherapy given"
.W !!," AGENT ADMINISTERED DURING SYSTEMIC CHEMOTHERAPY:",!
.W !," SINGLE-AGENT CHEMOTHERAPY:",!
.S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,22)=9
.S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,23)=9
.S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,24)=9
.S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,25)=9
.W !," CHLORAMBUCIL.....: Unknown if given DOXORUBICIN......: Unknown if given"
.W !," CYCLOPHOSPHAMIDE.: Unknown if given FLUDARABINE......: Unknown if given"
.W !!," COMBINATION CHEMOTHERAPY:",!
.S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,26)=9
.S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,27)=9
.S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,28)=9
.S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,29)=9
.S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,30)=9
.S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,31)=9
.S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,32)=9
.W !," CHOP.............: Unknown if given M-BACOD..........: Unknown if given"
.W !," CVP..............: Unknown if given PRO-MACE-Cyta BOM: Unknown if given"
.W !," COMLA............: Unknown if given OTHER............: Unknown if given"
.W !," MACOP-B..........: Unknown if given"
.S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,33)=9
.W !!," HIGH DOSE W STEM CELL RESCUE..: Unknown if given"
.W ! K DIR S DIR(0)="E" D ^DIR Q:(Y=0)!(Y="") D HEAD^ONCNPC0
S DR="865 SYSTEMIC CHEMOTHERAPY DATE......" D ^DIE G:$D(Y) JUMP
S DR="866 NUMBER OF PLANNED CYCLES........" D ^DIE G:$D(Y) JUMP
W !!," AGENT ADMINISTERED DURING SYSTEMIC CHEMOTHERAPY:",!
W !," SINGLE-AGENT CHEMOTHERAPY:",!
S DR="867 CHLORAMBUCIL................" D ^DIE G:$D(Y) JUMP
S DR="868 CYCLOPHOSPHAMIDE............" D ^DIE G:$D(Y) JUMP
S DR="869 DOXORUBICIN................." D ^DIE G:$D(Y) JUMP
S DR="870 FLUDARABINE................." D ^DIE G:$D(Y) JUMP
W !!," COMBINATION CHEMOTHERAPY:",!
S DR="871 CHOP........................" D ^DIE G:$D(Y) JUMP
S DR="872 CVP........................." D ^DIE G:$D(Y) JUMP
S DR="873 COMLA......................." D ^DIE G:$D(Y) JUMP
S DR="874 MACOP-B....................." D ^DIE G:$D(Y) JUMP
S DR="875 M-BACOD....................." D ^DIE G:$D(Y) JUMP
S DR="876 PRO-MACE-Cyta BOM..........." D ^DIE G:$D(Y) JUMP
S DR="877 OTHER......................." D ^DIE G:$D(Y) JUMP
W !
S DR="878 HIGH DOSE W STEM CELL RESCUE...." D ^DIE G:$D(Y) JUMP
IC W !!,"INTRATHECAL CHEMOTHERAPY"
W !,"------------------------"
S DR="879 INTRATHECAL CHEMOTHERAPY........" D ^DIE G:$D(Y) JUMP
I X=0 D G I
.S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,35)=7
.W !," PURPOSE.........................: NA, not administered"
I X=9 D G I
.S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,35)=9
.W !," PURPOSE.........................: Unknown if administered"
S DR="880 PURPOSE........................." D ^DIE G:$D(Y) JUMP
I W !!,"IMMUNOTHERAPY"
W !,"-------------"
S DR="881 INTERLEUKIN-2 (IL-2)............" D ^DIE G:$D(Y) JUMP
S DR="882 INTERFERON......................" D ^DIE G:$D(Y) JUMP
S DR="883 MONOCLONAL ANTIBODIES..........." D ^DIE G:$D(Y) JUMP
S DR="884 VACCINE THERAPY................." D ^DIE G:$D(Y) JUMP
W ! K DIR S DIR(0)="E" D ^DIR
Q
JUMP ;Jump to prompts
S XX="" R !!,"GO TO: ",X:DTIME I (X="")!(X[U) S OUT="Y" G EXIT^ONCNPC4
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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCNPC4A 5370 printed Apr 09, 2024@21:29:56 Page 2
ONCNPC4A ;HIRMFO/GWB - PCE Study of Non-Hodgkin's Lymphoma - Table IV;4/18/97
+1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
SC WRITE !!,"SYSTEMIC CHEMOTHERAPY"
+1 WRITE !,"---------------------"
+2 SET DR="864 SYSTEMIC CHEMOTHERAPY..........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+3 IF X=0
Begin DoDot:1
+4 SET $PIECE(^ONCO(165.5,ONCONUM,"NHL2"),U,20)="0000000"
+5 WRITE !," SYSTEMIC CHEMOTHERAPY DATE......: 00/00/0000"
+6 SET $PIECE(^ONCO(165.5,ONCONUM,"NHL2"),U,21)=88
+7 WRITE !," NUMBER OF PLANNED CYCLES........: NA"
+8 WRITE !!," AGENT ADMINISTERED DURING SYSTEMIC CHEMOTHERAPY:",!
+9 WRITE !," SINGLE-AGENT CHEMOTHERAPY:",!
+10 SET $PIECE(^ONCO(165.5,ONCONUM,"NHL2"),U,22)=8
+11 SET $PIECE(^ONCO(165.5,ONCONUM,"NHL2"),U,23)=8
+12 SET $PIECE(^ONCO(165.5,ONCONUM,"NHL2"),U,24)=8
+13 SET $PIECE(^ONCO(165.5,ONCONUM,"NHL2"),U,25)=8
+14 WRITE !," CHLORAMBUCIL.....: NA DOXORUBICIN......: NA"
+15 WRITE !," CYCLOPHOSPHAMIDE.: NA FLUDARABINE......: NA"
+16 WRITE !!," COMBINATION CHEMOTHERAPY:",!
+17 SET $PIECE(^ONCO(165.5,ONCONUM,"NHL2"),U,26)=8
+18 SET $PIECE(^ONCO(165.5,ONCONUM,"NHL2"),U,27)=8
+19 SET $PIECE(^ONCO(165.5,ONCONUM,"NHL2"),U,28)=8
+20 SET $PIECE(^ONCO(165.5,ONCONUM,"NHL2"),U,29)=8
+21 SET $PIECE(^ONCO(165.5,ONCONUM,"NHL2"),U,30)=8
+22 SET $PIECE(^ONCO(165.5,ONCONUM,"NHL2"),U,31)=8
+23 SET $PIECE(^ONCO(165.5,ONCONUM,"NHL2"),U,32)=8
+24 WRITE !," CHOP.............: NA M-BACOD..........: NA"
+25 WRITE !," CVP..............: NA PRO-MACE-Cyta BOM: NA"
+26 WRITE !," COMLA............: NA OTHER............: NA"
+27 WRITE !," MACOP-B..........: NA"
+28 SET $PIECE(^ONCO(165.5,ONCONUM,"NHL2"),U,33)=0
+29 WRITE !!," HIGH DOSE W STEM CELL RESCUE..: No"
+30 WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if (Y=0)!(Y="")
QUIT
DO HEAD^ONCNPC0
End DoDot:1
GOTO IC
+31 IF X=9
Begin DoDot:1
+32 SET $PIECE(^ONCO(165.5,ONCONUM,"NHL2"),U,20)="0000000"
+33 WRITE !," SYSTEMIC CHEMOTHERAPY DATE......: 00/00/0000"
+34 SET $PIECE(^ONCO(165.5,ONCONUM,"NHL2"),U,21)=99
+35 WRITE !," NUMBER OF PLANNED CYCLES........: Unknown if chemotherapy given"
+36 WRITE !!," AGENT ADMINISTERED DURING SYSTEMIC CHEMOTHERAPY:",!
+37 WRITE !," SINGLE-AGENT CHEMOTHERAPY:",!
+38 SET $PIECE(^ONCO(165.5,ONCONUM,"NHL2"),U,22)=9
+39 SET $PIECE(^ONCO(165.5,ONCONUM,"NHL2"),U,23)=9
+40 SET $PIECE(^ONCO(165.5,ONCONUM,"NHL2"),U,24)=9
+41 SET $PIECE(^ONCO(165.5,ONCONUM,"NHL2"),U,25)=9
+42 WRITE !," CHLORAMBUCIL.....: Unknown if given DOXORUBICIN......: Unknown if given"
+43 WRITE !," CYCLOPHOSPHAMIDE.: Unknown if given FLUDARABINE......: Unknown if given"
+44 WRITE !!," COMBINATION CHEMOTHERAPY:",!
+45 SET $PIECE(^ONCO(165.5,ONCONUM,"NHL2"),U,26)=9
+46 SET $PIECE(^ONCO(165.5,ONCONUM,"NHL2"),U,27)=9
+47 SET $PIECE(^ONCO(165.5,ONCONUM,"NHL2"),U,28)=9
+48 SET $PIECE(^ONCO(165.5,ONCONUM,"NHL2"),U,29)=9
+49 SET $PIECE(^ONCO(165.5,ONCONUM,"NHL2"),U,30)=9
+50 SET $PIECE(^ONCO(165.5,ONCONUM,"NHL2"),U,31)=9
+51 SET $PIECE(^ONCO(165.5,ONCONUM,"NHL2"),U,32)=9
+52 WRITE !," CHOP.............: Unknown if given M-BACOD..........: Unknown if given"
+53 WRITE !," CVP..............: Unknown if given PRO-MACE-Cyta BOM: Unknown if given"
+54 WRITE !," COMLA............: Unknown if given OTHER............: Unknown if given"
+55 WRITE !," MACOP-B..........: Unknown if given"
+56 SET $PIECE(^ONCO(165.5,ONCONUM,"NHL2"),U,33)=9
+57 WRITE !!," HIGH DOSE W STEM CELL RESCUE..: Unknown if given"
+58 WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if (Y=0)!(Y="")
QUIT
DO HEAD^ONCNPC0
End DoDot:1
GOTO IC
+59 SET DR="865 SYSTEMIC CHEMOTHERAPY DATE......"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+60 SET DR="866 NUMBER OF PLANNED CYCLES........"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+61 WRITE !!," AGENT ADMINISTERED DURING SYSTEMIC CHEMOTHERAPY:",!
+62 WRITE !," SINGLE-AGENT CHEMOTHERAPY:",!
+63 SET DR="867 CHLORAMBUCIL................"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+64 SET DR="868 CYCLOPHOSPHAMIDE............"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+65 SET DR="869 DOXORUBICIN................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+66 SET DR="870 FLUDARABINE................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+67 WRITE !!," COMBINATION CHEMOTHERAPY:",!
+68 SET DR="871 CHOP........................"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+69 SET DR="872 CVP........................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+70 SET DR="873 COMLA......................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+71 SET DR="874 MACOP-B....................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+72 SET DR="875 M-BACOD....................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+73 SET DR="876 PRO-MACE-Cyta BOM..........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+74 SET DR="877 OTHER......................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+75 WRITE !
+76 SET DR="878 HIGH DOSE W STEM CELL RESCUE...."
DO ^DIE
if $DATA(Y)
GOTO JUMP
IC WRITE !!,"INTRATHECAL CHEMOTHERAPY"
+1 WRITE !,"------------------------"
+2 SET DR="879 INTRATHECAL CHEMOTHERAPY........"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+3 IF X=0
Begin DoDot:1
+4 SET $PIECE(^ONCO(165.5,ONCONUM,"NHL2"),U,35)=7
+5 WRITE !," PURPOSE.........................: NA, not administered"
End DoDot:1
GOTO I
+6 IF X=9
Begin DoDot:1
+7 SET $PIECE(^ONCO(165.5,ONCONUM,"NHL2"),U,35)=9
+8 WRITE !," PURPOSE.........................: Unknown if administered"
End DoDot:1
GOTO I
+9 SET DR="880 PURPOSE........................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
I WRITE !!,"IMMUNOTHERAPY"
+1 WRITE !,"-------------"
+2 SET DR="881 INTERLEUKIN-2 (IL-2)............"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+3 SET DR="882 INTERFERON......................"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+4 SET DR="883 MONOCLONAL ANTIBODIES..........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+5 SET DR="884 VACCINE THERAPY................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+6 WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
+7 QUIT
JUMP ;Jump to prompts
+1 SET XX=""
READ !!,"GO TO: ",X:DTIME
IF (X="")!(X[U)
SET OUT="Y"
GOTO EXIT^ONCNPC4
+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
