- 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 Jan 18, 2025@03:24:57 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