- 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 Mar 13, 2025@21:28:46 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
