163 lines
8.4 KiB
Mathematica
163 lines
8.4 KiB
Mathematica
ONCMPC4A ;HINES CIOFO/GWB - 1999 Melanoma Study - Table IV (continued); 1/22/99
|
|
;;2.11;ONCOLOGY;**22**;Mar 07, 1995
|
|
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
|