106 lines
5.1 KiB
Mathematica
106 lines
5.1 KiB
Mathematica
ONCNPC4A ;HIRMFO/GWB - PCE Study of Non-Hodgkin's Lymphoma - Table IV;4/18/97
|
|
;;2.11;ONCOLOGY;**15,16**;Mar 07, 1995
|
|
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
|