ONCMPC4A ;HINES CIOFO/GWB - 1999 Melanoma Study - Table IV (continued); 1/22/99
;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
SN W !," SENTINEL NODES",!
W " --------------"
PL I $E(TOPCOD,1,3)="C69" D G SNDB
.S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,23)=8
.W !," 57. PRE-OP LYMPHOSCINTIGRAPHY.....: NA, ocular site"
S DR="1122 57. PRE-OP LYMPHOSCINTIGRAPHY....." D ^DIE G:$D(Y) JUMP
SNDB S PL=$P($G(^ONCO(165.5,ONCONUM,"MEL1")),U,23)
I (PL=0)!(PL=8) D G SNP
.S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,24)=8
.S $P(^ONCO(165.5,ONCONUM,"BRE1"),U,44)=8
.S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,25)=8
.W !," 58. SENTINEL NODES DETECTED BY....: NA, not done, ocular site"
.W !," 59. SENTINEL NODE BIOPSY..........: NA, not done, ocular site"
.W !," 60. SENTINEL NODES EXAMINED.......: NA, not done, ocular site"
I PL=9 D G SNP
.S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,24)=9
.S $P(^ONCO(165.5,ONCONUM,"BRE1"),U,44)=9
.S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,25)=9
.W !," 58. SENTINEL NODES DETECTED BY....: Unknown"
.W !," 59. SENTINEL NODE BIOPSY..........: Unknown"
.W !," 60. SENTINEL NODES EXAMINED.......: Unknown"
S DR="1123 58. SENTINEL NODES DETECTED BY...." D ^DIE G:$D(Y) JUMP
SNB S DR="943 59. SENTINEL NODE BIOPSY.........." D ^DIE G:$D(Y) JUMP
SNE S DR="1124 60. SENTINEL NODES EXAMINED......." D ^DIE G:$D(Y) JUMP
SNP S SNE=$P($G(^ONCO(165.5,ONCONUM,"MEL1")),U,25)
I (SNE=0)!(SNE=8) D G ISNP
.S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,26)=8
.S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,27)=8
.W !," 61. SENTINEL NODES POSITIVE.......: NA, not done, no exam, ocular site"
.W !," 62. HOW WAS SENTINEL NODE PATHOLOGICALLY EXAMINED.......: NA, not done, ocular site"
I SNE=9 D G ISNP
.S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,26)=9
.S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,27)=9
.W !," 61. SENTINEL NODES POSITIVE.......: Unknown"
.W !," 62. HOW WAS SENTINEL NODE PATHOLOGICALLY EXAMINED.......: NA, not done, ocular site"
S DR="1125 61. SENTINEL NODES POSITIVE......." D ^DIE G:$D(Y) JUMP
SNPE S DR="1126 62. HOW WAS SENTINEL NODE PATHOLOGICALLY EXAMINED......." D ^DIE G:$D(Y) JUMP
ISNP W !!," 63. IF SENTINEL NODE(S) POSITIVE:",!
S SNP=$P($G(^ONCO(165.5,ONCONUM,"MEL1")),U,26)
I (SNP=0)!(SNP=8) D G RT
.S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,28)=8
.S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,29)=8
.S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,30)=8
.W !," WAS COMPLETE LYMPH NODE DISSECTION PERFORMED..........: NA, not done, no + nodes, ocular site"
.W !," NUMBER OF BASINS DETECTED.....: NA, not done, no + nodes, ocular site"
.W !," NUMBER OF BASINS POSITIVE.....: NA, not done, no basins dissected, ocular"
I SNP=9 D G RT
.S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,28)=9
.S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,29)=9
.S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,30)=9
.W !," WAS COMPLETE LYMPH NODE DISSECTION PERFORMED..........: Unknown"
.W !," NUMBER OF BASINS DETECTED.....: Unknown"
.W !," NUMBER OF BASINS POSITIVE.....: Unknown"
WCLNDP S DR="1127 WAS COMPLETE LYMPH NODE DISSECTION PERFORMED.........." D ^DIE G:$D(Y) JUMP
I (X=0)!(X=8) D G RT
.S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,29)=8
.S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,30)=8
.W !," NUMBER OF BASINS DETECTED....: NA, not done, no + nodes, ocular site"
.W !," NUMBER OF BASINS POSITIVE....: NA, not done, no basins dissected, ocular"
I X=9 D G RT
.S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,29)=9
.S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,30)=9
.W !," NUMBER OF BASINS DETECTED....: Unknown"
.W !," NUMBER OF BASINS POSITIVE....: Unknown"
NOBD S DR="1128 NUMBER OF BASINS DETECTED....." D ^DIE G:$D(Y) JUMP
I (X=0)!(X=8) D G RT
.S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,30)=8
.W !," NUMBER OF BASINS POSITIVE....: NA, not done, no basins dissected, ocular"
I X=9 D G RT
.S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,30)=9
.W !," NUMBER OF BASINS POSITIVE....: Unknown"
NOBP S DR="1129 NUMBER OF BASINS POSITIVE....." D ^DIE G:$D(Y) JUMP
RT W ! K DIR S DIR(0)="E" D ^DIR G:$D(DIRUT) EXIT W @IOF D HEAD^ONCMPC0
W !," RADIATION THERAPY"
W !," -----------------"
DRS W !," 64. DATE RADIATION STARTED........: ",ONC(165.5,ONCONUM,51,"E")
W !," 65. RADIATION THERAPY.............: ",ONC(165.5,ONCONUM,51.2,"E")
RFNR W !," 66. REASON FOR NO RADIATION.......: ",ONC(165.5,ONCONUM,75,"E")
W ! K DIR S DIR(0)="E" D ^DIR G:$D(DIRUT) EXIT W @IOF D HEAD^ONCMPC0
C W !," CHEMOTHERAPY"
W !," ------------"
DCS W !," 67. DATE CHEMOTHERAPY STARTED.....: ",ONC(165.5,ONCONUM,53,"E")
W !," 68. CHEMOTHERAPY..................: ",ONC(165.5,ONCONUM,53.2,"E")
IT I ONC(165.5,ONCONUM,53.2,"I")=0 D G HT
.S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,31)=8
.W !," 69. INTRAVENOUS THERAPY...........: NA, chemotherapy not administered"
I (ONC(165.5,ONCONUM,53.2,"I")=8)!(ONC(165.5,ONCONUM,53.2,"I")=9) D G HT
.S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,31)=9
.W !," 69. INTRAVENOUS THERAPY...........: Unknown if administered"
S DR="1130 69. INTRAVENOUS THERAPY..........." D ^DIE G:$D(Y) JUMP
HT W ! K DIR S DIR(0)="E" D ^DIR G:$D(DIRUT) EXIT W @IOF D HEAD^ONCMPC0
W !," HORMONE THERAPY"
W !," ---------------"
DHTS W !," 70. DATE HORMONE THERAPY STARTED..: ",ONC(165.5,ONCONUM,54,"E")
W !," 71. HORMONE THERAPY...............: ",ONC(165.5,ONCONUM,54.2,"E")
W ! K DIR S DIR(0)="E" D ^DIR G:$D(DIRUT) EXIT W @IOF D HEAD^ONCMPC0
I W !," IMMUNOTHERAPY"
W !," -------------"
DIS W !," 72. DATE IMMUNOTHERAPY STARTED....: ",ONC(165.5,ONCONUM,55,"E")
W !," 73. IMMUNOTHERAPY.................: ",ONC(165.5,ONCONUM,55.2,"E")
IAA W !!," 74. IMMUNOTHERAPEUTIC AGENTS ADMINISTERED:",!
S BRM=ONC(165.5,ONCONUM,55.2,"I")
I (BRM=0)!(BRM=7) D G OT
.S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,39)=8
.S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,32)=8
.S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,39)=8
.S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,38)=8
.S $P(^ONCO(165.5,ONCONUM,"COL2"),U,40)=8
.S $P(^ONCO(165.5,ONCONUM,"STS2"),U,30)=8
.S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,40)=8
.W !," VACCINE THERAPY...............: NA"
.W !," GENE THERAPY..................: NA"
.W !," INTERLEUKIN 2.................: NA"
.W !," INTERFERON....................: NA"
.W !," LEVAMISOLE....................: NA"
.W !," COLONY STIMULATING FACTORS....: NA"
.W !," OTHER GIVEN, TYPE UNKNOWN.....: NA"
I (BRM=8)!(BRM=9) D G OT
.S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,39)=9
.S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,32)=9
.S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,39)=9
.S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,38)=9
.S $P(^ONCO(165.5,ONCONUM,"COL2"),U,40)=9
.S $P(^ONCO(165.5,ONCONUM,"STS2"),U,30)=9
.S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,40)=9
.W !," VACCINE THERAPY...............: Unknown"
.W !," GENE THERAPY..................: Unknown"
.W !," INTERLEUKIN 2.................: Unknown"
.W !," INTERFERON....................: Unknown"
.W !," LEVAMISOLE....................: Unknown"
.W !," COLONY STIMULATING FACTORS....: Unknown"
.W !," OTHER GIVEN, TYPE UNKNOWN.....: Unknown"
S DR="884 VACCINE THERAPY..............." D ^DIE G:$D(Y) JUMP
S DR="1131 GENE THERAPY.................." D ^DIE G:$D(Y) JUMP
S DR="385 INTERLEUKIN 2................." D ^DIE G:$D(Y) JUMP
S DR="384 INTERFERON...................." D ^DIE G:$D(Y) JUMP
S DR="791 LEVAMISOLE...................." D ^DIE G:$D(Y) JUMP
S DR="559 COLONY STIMULATING FACTORS...." D ^DIE G:$D(Y) JUMP
S DR="386 OTHER GIVEN, TYPE UNKNOWN....." D ^DIE G:$D(Y) JUMP
OT W ! K DIR S DIR(0)="E" D ^DIR G:$D(DIRUT) EXIT W @IOF D HEAD^ONCMPC0
W !," OTHER THERAPY"
W !," -------------"
DOTS W !," 75. DATE OTHER TREATMENT STARTED..: ",ONC(165.5,ONCONUM,57,"E")
W !," 76. OTHER TREATMENT...............: ",ONC(165.5,ONCONUM,57.2,"E")
PRTC W ! K DIR S DIR(0)="E" D ^DIR S:$D(DIRUT) OUT="Y"
G EXIT
JUMP ;Jump to prompts
S XX="" R !!," GO TO ITEM: ",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 !," ",HTABLE(I)
I '$D(TABLE(X)) S:X?1.2N X=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 !," ",HTABLE(I)
S X=TABLE(X)
G @X
EXIT S:$D(DIRUT) OUT="Y"
K CHOICES,PIECE,HTABLE,TABLE
K CDS,CDSOT,LOS,NCDS,NCDSOT,NOP,SURG,SURG1,SURG2,SURGDT,SA,SA1,SA2
K SM,SM1,SM2,SOORS,SOORS1,SOORS2,PL,SNE
K DA,DIE,DIR,DIROUT,DIRUT,DR,DTOUT,DUOUT,X,XX,Y
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCMPC4A 8782 printed Dec 13, 2024@02:23:47 Page 2
ONCMPC4A ;HINES CIOFO/GWB - 1999 Melanoma Study - Table IV (continued); 1/22/99
+1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
SN WRITE !," SENTINEL NODES",!
+1 WRITE " --------------"
PL IF $EXTRACT(TOPCOD,1,3)="C69"
Begin DoDot:1
+1 SET $PIECE(^ONCO(165.5,ONCONUM,"MEL1"),U,23)=8
+2 WRITE !," 57. PRE-OP LYMPHOSCINTIGRAPHY.....: NA, ocular site"
End DoDot:1
GOTO SNDB
+3 SET DR="1122 57. PRE-OP LYMPHOSCINTIGRAPHY....."
DO ^DIE
if $DATA(Y)
GOTO JUMP
SNDB SET PL=$PIECE($GET(^ONCO(165.5,ONCONUM,"MEL1")),U,23)
+1 IF (PL=0)!(PL=8)
Begin DoDot:1
+2 SET $PIECE(^ONCO(165.5,ONCONUM,"MEL1"),U,24)=8
+3 SET $PIECE(^ONCO(165.5,ONCONUM,"BRE1"),U,44)=8
+4 SET $PIECE(^ONCO(165.5,ONCONUM,"MEL1"),U,25)=8
+5 WRITE !," 58. SENTINEL NODES DETECTED BY....: NA, not done, ocular site"
+6 WRITE !," 59. SENTINEL NODE BIOPSY..........: NA, not done, ocular site"
+7 WRITE !," 60. SENTINEL NODES EXAMINED.......: NA, not done, ocular site"
End DoDot:1
GOTO SNP
+8 IF PL=9
Begin DoDot:1
+9 SET $PIECE(^ONCO(165.5,ONCONUM,"MEL1"),U,24)=9
+10 SET $PIECE(^ONCO(165.5,ONCONUM,"BRE1"),U,44)=9
+11 SET $PIECE(^ONCO(165.5,ONCONUM,"MEL1"),U,25)=9
+12 WRITE !," 58. SENTINEL NODES DETECTED BY....: Unknown"
+13 WRITE !," 59. SENTINEL NODE BIOPSY..........: Unknown"
+14 WRITE !," 60. SENTINEL NODES EXAMINED.......: Unknown"
End DoDot:1
GOTO SNP
+15 SET DR="1123 58. SENTINEL NODES DETECTED BY...."
DO ^DIE
if $DATA(Y)
GOTO JUMP
SNB SET DR="943 59. SENTINEL NODE BIOPSY.........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
SNE SET DR="1124 60. SENTINEL NODES EXAMINED......."
DO ^DIE
if $DATA(Y)
GOTO JUMP
SNP SET SNE=$PIECE($GET(^ONCO(165.5,ONCONUM,"MEL1")),U,25)
+1 IF (SNE=0)!(SNE=8)
Begin DoDot:1
+2 SET $PIECE(^ONCO(165.5,ONCONUM,"MEL1"),U,26)=8
+3 SET $PIECE(^ONCO(165.5,ONCONUM,"MEL1"),U,27)=8
+4 WRITE !," 61. SENTINEL NODES POSITIVE.......: NA, not done, no exam, ocular site"
+5 WRITE !," 62. HOW WAS SENTINEL NODE PATHOLOGICALLY EXAMINED.......: NA, not done, ocular site"
End DoDot:1
GOTO ISNP
+6 IF SNE=9
Begin DoDot:1
+7 SET $PIECE(^ONCO(165.5,ONCONUM,"MEL1"),U,26)=9
+8 SET $PIECE(^ONCO(165.5,ONCONUM,"MEL1"),U,27)=9
+9 WRITE !," 61. SENTINEL NODES POSITIVE.......: Unknown"
+10 WRITE !," 62. HOW WAS SENTINEL NODE PATHOLOGICALLY EXAMINED.......: NA, not done, ocular site"
End DoDot:1
GOTO ISNP
+11 SET DR="1125 61. SENTINEL NODES POSITIVE......."
DO ^DIE
if $DATA(Y)
GOTO JUMP
SNPE SET DR="1126 62. HOW WAS SENTINEL NODE PATHOLOGICALLY EXAMINED......."
DO ^DIE
if $DATA(Y)
GOTO JUMP
ISNP WRITE !!," 63. IF SENTINEL NODE(S) POSITIVE:",!
+1 SET SNP=$PIECE($GET(^ONCO(165.5,ONCONUM,"MEL1")),U,26)
+2 IF (SNP=0)!(SNP=8)
Begin DoDot:1
+3 SET $PIECE(^ONCO(165.5,ONCONUM,"MEL1"),U,28)=8
+4 SET $PIECE(^ONCO(165.5,ONCONUM,"MEL1"),U,29)=8
+5 SET $PIECE(^ONCO(165.5,ONCONUM,"MEL1"),U,30)=8
+6 WRITE !," WAS COMPLETE LYMPH NODE DISSECTION PERFORMED..........: NA, not done, no + nodes, ocular site"
+7 WRITE !," NUMBER OF BASINS DETECTED.....: NA, not done, no + nodes, ocular site"
+8 WRITE !," NUMBER OF BASINS POSITIVE.....: NA, not done, no basins dissected, ocular"
End DoDot:1
GOTO RT
+9 IF SNP=9
Begin DoDot:1
+10 SET $PIECE(^ONCO(165.5,ONCONUM,"MEL1"),U,28)=9
+11 SET $PIECE(^ONCO(165.5,ONCONUM,"MEL1"),U,29)=9
+12 SET $PIECE(^ONCO(165.5,ONCONUM,"MEL1"),U,30)=9
+13 WRITE !," WAS COMPLETE LYMPH NODE DISSECTION PERFORMED..........: Unknown"
+14 WRITE !," NUMBER OF BASINS DETECTED.....: Unknown"
+15 WRITE !," NUMBER OF BASINS POSITIVE.....: Unknown"
End DoDot:1
GOTO RT
WCLNDP SET DR="1127 WAS COMPLETE LYMPH NODE DISSECTION PERFORMED.........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+1 IF (X=0)!(X=8)
Begin DoDot:1
+2 SET $PIECE(^ONCO(165.5,ONCONUM,"MEL1"),U,29)=8
+3 SET $PIECE(^ONCO(165.5,ONCONUM,"MEL1"),U,30)=8
+4 WRITE !," NUMBER OF BASINS DETECTED....: NA, not done, no + nodes, ocular site"
+5 WRITE !," NUMBER OF BASINS POSITIVE....: NA, not done, no basins dissected, ocular"
End DoDot:1
GOTO RT
+6 IF X=9
Begin DoDot:1
+7 SET $PIECE(^ONCO(165.5,ONCONUM,"MEL1"),U,29)=9
+8 SET $PIECE(^ONCO(165.5,ONCONUM,"MEL1"),U,30)=9
+9 WRITE !," NUMBER OF BASINS DETECTED....: Unknown"
+10 WRITE !," NUMBER OF BASINS POSITIVE....: Unknown"
End DoDot:1
GOTO RT
NOBD SET DR="1128 NUMBER OF BASINS DETECTED....."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+1 IF (X=0)!(X=8)
Begin DoDot:1
+2 SET $PIECE(^ONCO(165.5,ONCONUM,"MEL1"),U,30)=8
+3 WRITE !," NUMBER OF BASINS POSITIVE....: NA, not done, no basins dissected, ocular"
End DoDot:1
GOTO RT
+4 IF X=9
Begin DoDot:1
+5 SET $PIECE(^ONCO(165.5,ONCONUM,"MEL1"),U,30)=9
+6 WRITE !," NUMBER OF BASINS POSITIVE....: Unknown"
End DoDot:1
GOTO RT
NOBP SET DR="1129 NUMBER OF BASINS POSITIVE....."
DO ^DIE
if $DATA(Y)
GOTO JUMP
RT WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if $DATA(DIRUT)
GOTO EXIT
WRITE @IOF
DO HEAD^ONCMPC0
+1 WRITE !," RADIATION THERAPY"
+2 WRITE !," -----------------"
DRS WRITE !," 64. DATE RADIATION STARTED........: ",ONC(165.5,ONCONUM,51,"E")
+1 WRITE !," 65. RADIATION THERAPY.............: ",ONC(165.5,ONCONUM,51.2,"E")
RFNR WRITE !," 66. REASON FOR NO RADIATION.......: ",ONC(165.5,ONCONUM,75,"E")
+1 WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if $DATA(DIRUT)
GOTO EXIT
WRITE @IOF
DO HEAD^ONCMPC0
C WRITE !," CHEMOTHERAPY"
+1 WRITE !," ------------"
DCS WRITE !," 67. DATE CHEMOTHERAPY STARTED.....: ",ONC(165.5,ONCONUM,53,"E")
+1 WRITE !," 68. CHEMOTHERAPY..................: ",ONC(165.5,ONCONUM,53.2,"E")
IT IF ONC(165.5,ONCONUM,53.2,"I")=0
Begin DoDot:1
+1 SET $PIECE(^ONCO(165.5,ONCONUM,"MEL1"),U,31)=8
+2 WRITE !," 69. INTRAVENOUS THERAPY...........: NA, chemotherapy not administered"
End DoDot:1
GOTO HT
+3 IF (ONC(165.5,ONCONUM,53.2,"I")=8)!(ONC(165.5,ONCONUM,53.2,"I")=9)
Begin DoDot:1
+4 SET $PIECE(^ONCO(165.5,ONCONUM,"MEL1"),U,31)=9
+5 WRITE !," 69. INTRAVENOUS THERAPY...........: Unknown if administered"
End DoDot:1
GOTO HT
+6 SET DR="1130 69. INTRAVENOUS THERAPY..........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
HT WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if $DATA(DIRUT)
GOTO EXIT
WRITE @IOF
DO HEAD^ONCMPC0
+1 WRITE !," HORMONE THERAPY"
+2 WRITE !," ---------------"
DHTS WRITE !," 70. DATE HORMONE THERAPY STARTED..: ",ONC(165.5,ONCONUM,54,"E")
+1 WRITE !," 71. HORMONE THERAPY...............: ",ONC(165.5,ONCONUM,54.2,"E")
+2 WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if $DATA(DIRUT)
GOTO EXIT
WRITE @IOF
DO HEAD^ONCMPC0
I WRITE !," IMMUNOTHERAPY"
+1 WRITE !," -------------"
DIS WRITE !," 72. DATE IMMUNOTHERAPY STARTED....: ",ONC(165.5,ONCONUM,55,"E")
+1 WRITE !," 73. IMMUNOTHERAPY.................: ",ONC(165.5,ONCONUM,55.2,"E")
IAA WRITE !!," 74. IMMUNOTHERAPEUTIC AGENTS ADMINISTERED:",!
+1 SET BRM=ONC(165.5,ONCONUM,55.2,"I")
+2 IF (BRM=0)!(BRM=7)
Begin DoDot:1
+3 SET $PIECE(^ONCO(165.5,ONCONUM,"NHL2"),U,39)=8
+4 SET $PIECE(^ONCO(165.5,ONCONUM,"MEL1"),U,32)=8
+5 SET $PIECE(^ONCO(165.5,ONCONUM,"BLA2"),U,39)=8
+6 SET $PIECE(^ONCO(165.5,ONCONUM,"BLA2"),U,38)=8
+7 SET $PIECE(^ONCO(165.5,ONCONUM,"COL2"),U,40)=8
+8 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,30)=8
+9 SET $PIECE(^ONCO(165.5,ONCONUM,"BLA2"),U,40)=8
+10 WRITE !," VACCINE THERAPY...............: NA"
+11 WRITE !," GENE THERAPY..................: NA"
+12 WRITE !," INTERLEUKIN 2.................: NA"
+13 WRITE !," INTERFERON....................: NA"
+14 WRITE !," LEVAMISOLE....................: NA"
+15 WRITE !," COLONY STIMULATING FACTORS....: NA"
+16 WRITE !," OTHER GIVEN, TYPE UNKNOWN.....: NA"
End DoDot:1
GOTO OT
+17 IF (BRM=8)!(BRM=9)
Begin DoDot:1
+18 SET $PIECE(^ONCO(165.5,ONCONUM,"NHL2"),U,39)=9
+19 SET $PIECE(^ONCO(165.5,ONCONUM,"MEL1"),U,32)=9
+20 SET $PIECE(^ONCO(165.5,ONCONUM,"BLA2"),U,39)=9
+21 SET $PIECE(^ONCO(165.5,ONCONUM,"BLA2"),U,38)=9
+22 SET $PIECE(^ONCO(165.5,ONCONUM,"COL2"),U,40)=9
+23 SET $PIECE(^ONCO(165.5,ONCONUM,"STS2"),U,30)=9
+24 SET $PIECE(^ONCO(165.5,ONCONUM,"BLA2"),U,40)=9
+25 WRITE !," VACCINE THERAPY...............: Unknown"
+26 WRITE !," GENE THERAPY..................: Unknown"
+27 WRITE !," INTERLEUKIN 2.................: Unknown"
+28 WRITE !," INTERFERON....................: Unknown"
+29 WRITE !," LEVAMISOLE....................: Unknown"
+30 WRITE !," COLONY STIMULATING FACTORS....: Unknown"
+31 WRITE !," OTHER GIVEN, TYPE UNKNOWN.....: Unknown"
End DoDot:1
GOTO OT
+32 SET DR="884 VACCINE THERAPY..............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+33 SET DR="1131 GENE THERAPY.................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+34 SET DR="385 INTERLEUKIN 2................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+35 SET DR="384 INTERFERON...................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+36 SET DR="791 LEVAMISOLE...................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+37 SET DR="559 COLONY STIMULATING FACTORS...."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+38 SET DR="386 OTHER GIVEN, TYPE UNKNOWN....."
DO ^DIE
if $DATA(Y)
GOTO JUMP
OT WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if $DATA(DIRUT)
GOTO EXIT
WRITE @IOF
DO HEAD^ONCMPC0
+1 WRITE !," OTHER THERAPY"
+2 WRITE !," -------------"
DOTS WRITE !," 75. DATE OTHER TREATMENT STARTED..: ",ONC(165.5,ONCONUM,57,"E")
+1 WRITE !," 76. OTHER TREATMENT...............: ",ONC(165.5,ONCONUM,57.2,"E")
PRTC WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if $DATA(DIRUT)
SET OUT="Y"
+1 GOTO EXIT
JUMP ;Jump to prompts
+1 SET XX=""
READ !!," GO TO ITEM: ",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 !," ",HTABLE(I)
End DoDot:1
GOTO JUMP
+4 IF '$DATA(TABLE(X))
if X?1.2N
SET X=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 !," ",HTABLE(I)
End DoDot:1
GOTO JUMP
+6 SET X=TABLE(X)
+7 GOTO @X
EXIT if $DATA(DIRUT)
SET OUT="Y"
+1 KILL CHOICES,PIECE,HTABLE,TABLE
+2 KILL CDS,CDSOT,LOS,NCDS,NCDSOT,NOP,SURG,SURG1,SURG2,SURGDT,SA,SA1,SA2
+3 KILL SM,SM1,SM2,SOORS,SOORS1,SOORS2,PL,SNE
+4 KILL DA,DIE,DIR,DIROUT,DIRUT,DR,DTOUT,DUOUT,X,XX,Y
+5 QUIT
