| 1 | ONCMPC4A ;HINES CIOFO/GWB - 1999 Melanoma Study - Table IV (continued); 1/22/99
|
---|
| 2 | ;;2.11;ONCOLOGY;**22**;Mar 07, 1995
|
---|
| 3 | SN W !," SENTINEL NODES",!
|
---|
| 4 | W " --------------"
|
---|
| 5 | PL I $E(TOPCOD,1,3)="C69" D G SNDB
|
---|
| 6 | .S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,23)=8
|
---|
| 7 | .W !," 57. PRE-OP LYMPHOSCINTIGRAPHY.....: NA, ocular site"
|
---|
| 8 | S DR="1122 57. PRE-OP LYMPHOSCINTIGRAPHY....." D ^DIE G:$D(Y) JUMP
|
---|
| 9 | SNDB S PL=$P($G(^ONCO(165.5,ONCONUM,"MEL1")),U,23)
|
---|
| 10 | I (PL=0)!(PL=8) D G SNP
|
---|
| 11 | .S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,24)=8
|
---|
| 12 | .S $P(^ONCO(165.5,ONCONUM,"BRE1"),U,44)=8
|
---|
| 13 | .S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,25)=8
|
---|
| 14 | .W !," 58. SENTINEL NODES DETECTED BY....: NA, not done, ocular site"
|
---|
| 15 | .W !," 59. SENTINEL NODE BIOPSY..........: NA, not done, ocular site"
|
---|
| 16 | .W !," 60. SENTINEL NODES EXAMINED.......: NA, not done, ocular site"
|
---|
| 17 | I PL=9 D G SNP
|
---|
| 18 | .S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,24)=9
|
---|
| 19 | .S $P(^ONCO(165.5,ONCONUM,"BRE1"),U,44)=9
|
---|
| 20 | .S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,25)=9
|
---|
| 21 | .W !," 58. SENTINEL NODES DETECTED BY....: Unknown"
|
---|
| 22 | .W !," 59. SENTINEL NODE BIOPSY..........: Unknown"
|
---|
| 23 | .W !," 60. SENTINEL NODES EXAMINED.......: Unknown"
|
---|
| 24 | S DR="1123 58. SENTINEL NODES DETECTED BY...." D ^DIE G:$D(Y) JUMP
|
---|
| 25 | SNB S DR="943 59. SENTINEL NODE BIOPSY.........." D ^DIE G:$D(Y) JUMP
|
---|
| 26 | SNE S DR="1124 60. SENTINEL NODES EXAMINED......." D ^DIE G:$D(Y) JUMP
|
---|
| 27 | SNP S SNE=$P($G(^ONCO(165.5,ONCONUM,"MEL1")),U,25)
|
---|
| 28 | I (SNE=0)!(SNE=8) D G ISNP
|
---|
| 29 | .S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,26)=8
|
---|
| 30 | .S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,27)=8
|
---|
| 31 | .W !," 61. SENTINEL NODES POSITIVE.......: NA, not done, no exam, ocular site"
|
---|
| 32 | .W !," 62. HOW WAS SENTINEL NODE PATHOLOGICALLY EXAMINED.......: NA, not done, ocular site"
|
---|
| 33 | I SNE=9 D G ISNP
|
---|
| 34 | .S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,26)=9
|
---|
| 35 | .S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,27)=9
|
---|
| 36 | .W !," 61. SENTINEL NODES POSITIVE.......: Unknown"
|
---|
| 37 | .W !," 62. HOW WAS SENTINEL NODE PATHOLOGICALLY EXAMINED.......: NA, not done, ocular site"
|
---|
| 38 | S DR="1125 61. SENTINEL NODES POSITIVE......." D ^DIE G:$D(Y) JUMP
|
---|
| 39 | SNPE S DR="1126 62. HOW WAS SENTINEL NODE PATHOLOGICALLY EXAMINED......." D ^DIE G:$D(Y) JUMP
|
---|
| 40 | ISNP W !!," 63. IF SENTINEL NODE(S) POSITIVE:",!
|
---|
| 41 | S SNP=$P($G(^ONCO(165.5,ONCONUM,"MEL1")),U,26)
|
---|
| 42 | I (SNP=0)!(SNP=8) D G RT
|
---|
| 43 | .S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,28)=8
|
---|
| 44 | .S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,29)=8
|
---|
| 45 | .S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,30)=8
|
---|
| 46 | .W !," WAS COMPLETE LYMPH NODE DISSECTION PERFORMED..........: NA, not done, no + nodes, ocular site"
|
---|
| 47 | .W !," NUMBER OF BASINS DETECTED.....: NA, not done, no + nodes, ocular site"
|
---|
| 48 | .W !," NUMBER OF BASINS POSITIVE.....: NA, not done, no basins dissected, ocular"
|
---|
| 49 | I SNP=9 D G RT
|
---|
| 50 | .S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,28)=9
|
---|
| 51 | .S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,29)=9
|
---|
| 52 | .S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,30)=9
|
---|
| 53 | .W !," WAS COMPLETE LYMPH NODE DISSECTION PERFORMED..........: Unknown"
|
---|
| 54 | .W !," NUMBER OF BASINS DETECTED.....: Unknown"
|
---|
| 55 | .W !," NUMBER OF BASINS POSITIVE.....: Unknown"
|
---|
| 56 | WCLNDP S DR="1127 WAS COMPLETE LYMPH NODE DISSECTION PERFORMED.........." D ^DIE G:$D(Y) JUMP
|
---|
| 57 | I (X=0)!(X=8) D G RT
|
---|
| 58 | .S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,29)=8
|
---|
| 59 | .S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,30)=8
|
---|
| 60 | .W !," NUMBER OF BASINS DETECTED....: NA, not done, no + nodes, ocular site"
|
---|
| 61 | .W !," NUMBER OF BASINS POSITIVE....: NA, not done, no basins dissected, ocular"
|
---|
| 62 | I X=9 D G RT
|
---|
| 63 | .S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,29)=9
|
---|
| 64 | .S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,30)=9
|
---|
| 65 | .W !," NUMBER OF BASINS DETECTED....: Unknown"
|
---|
| 66 | .W !," NUMBER OF BASINS POSITIVE....: Unknown"
|
---|
| 67 | NOBD S DR="1128 NUMBER OF BASINS DETECTED....." D ^DIE G:$D(Y) JUMP
|
---|
| 68 | I (X=0)!(X=8) D G RT
|
---|
| 69 | .S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,30)=8
|
---|
| 70 | .W !," NUMBER OF BASINS POSITIVE....: NA, not done, no basins dissected, ocular"
|
---|
| 71 | I X=9 D G RT
|
---|
| 72 | .S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,30)=9
|
---|
| 73 | .W !," NUMBER OF BASINS POSITIVE....: Unknown"
|
---|
| 74 | NOBP S DR="1129 NUMBER OF BASINS POSITIVE....." D ^DIE G:$D(Y) JUMP
|
---|
| 75 | RT W ! K DIR S DIR(0)="E" D ^DIR G:$D(DIRUT) EXIT W @IOF D HEAD^ONCMPC0
|
---|
| 76 | W !," RADIATION THERAPY"
|
---|
| 77 | W !," -----------------"
|
---|
| 78 | DRS W !," 64. DATE RADIATION STARTED........: ",ONC(165.5,ONCONUM,51,"E")
|
---|
| 79 | W !," 65. RADIATION THERAPY.............: ",ONC(165.5,ONCONUM,51.2,"E")
|
---|
| 80 | RFNR W !," 66. REASON FOR NO RADIATION.......: ",ONC(165.5,ONCONUM,75,"E")
|
---|
| 81 | W ! K DIR S DIR(0)="E" D ^DIR G:$D(DIRUT) EXIT W @IOF D HEAD^ONCMPC0
|
---|
| 82 | C W !," CHEMOTHERAPY"
|
---|
| 83 | W !," ------------"
|
---|
| 84 | DCS W !," 67. DATE CHEMOTHERAPY STARTED.....: ",ONC(165.5,ONCONUM,53,"E")
|
---|
| 85 | W !," 68. CHEMOTHERAPY..................: ",ONC(165.5,ONCONUM,53.2,"E")
|
---|
| 86 | IT I ONC(165.5,ONCONUM,53.2,"I")=0 D G HT
|
---|
| 87 | .S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,31)=8
|
---|
| 88 | .W !," 69. INTRAVENOUS THERAPY...........: NA, chemotherapy not administered"
|
---|
| 89 | I (ONC(165.5,ONCONUM,53.2,"I")=8)!(ONC(165.5,ONCONUM,53.2,"I")=9) D G HT
|
---|
| 90 | .S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,31)=9
|
---|
| 91 | .W !," 69. INTRAVENOUS THERAPY...........: Unknown if administered"
|
---|
| 92 | S DR="1130 69. INTRAVENOUS THERAPY..........." D ^DIE G:$D(Y) JUMP
|
---|
| 93 | HT W ! K DIR S DIR(0)="E" D ^DIR G:$D(DIRUT) EXIT W @IOF D HEAD^ONCMPC0
|
---|
| 94 | W !," HORMONE THERAPY"
|
---|
| 95 | W !," ---------------"
|
---|
| 96 | DHTS W !," 70. DATE HORMONE THERAPY STARTED..: ",ONC(165.5,ONCONUM,54,"E")
|
---|
| 97 | W !," 71. HORMONE THERAPY...............: ",ONC(165.5,ONCONUM,54.2,"E")
|
---|
| 98 | W ! K DIR S DIR(0)="E" D ^DIR G:$D(DIRUT) EXIT W @IOF D HEAD^ONCMPC0
|
---|
| 99 | I W !," IMMUNOTHERAPY"
|
---|
| 100 | W !," -------------"
|
---|
| 101 | DIS W !," 72. DATE IMMUNOTHERAPY STARTED....: ",ONC(165.5,ONCONUM,55,"E")
|
---|
| 102 | W !," 73. IMMUNOTHERAPY.................: ",ONC(165.5,ONCONUM,55.2,"E")
|
---|
| 103 | IAA W !!," 74. IMMUNOTHERAPEUTIC AGENTS ADMINISTERED:",!
|
---|
| 104 | S BRM=ONC(165.5,ONCONUM,55.2,"I")
|
---|
| 105 | I (BRM=0)!(BRM=7) D G OT
|
---|
| 106 | .S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,39)=8
|
---|
| 107 | .S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,32)=8
|
---|
| 108 | .S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,39)=8
|
---|
| 109 | .S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,38)=8
|
---|
| 110 | .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,40)=8
|
---|
| 111 | .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,30)=8
|
---|
| 112 | .S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,40)=8
|
---|
| 113 | .W !," VACCINE THERAPY...............: NA"
|
---|
| 114 | .W !," GENE THERAPY..................: NA"
|
---|
| 115 | .W !," INTERLEUKIN 2.................: NA"
|
---|
| 116 | .W !," INTERFERON....................: NA"
|
---|
| 117 | .W !," LEVAMISOLE....................: NA"
|
---|
| 118 | .W !," COLONY STIMULATING FACTORS....: NA"
|
---|
| 119 | .W !," OTHER GIVEN, TYPE UNKNOWN.....: NA"
|
---|
| 120 | I (BRM=8)!(BRM=9) D G OT
|
---|
| 121 | .S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,39)=9
|
---|
| 122 | .S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,32)=9
|
---|
| 123 | .S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,39)=9
|
---|
| 124 | .S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,38)=9
|
---|
| 125 | .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,40)=9
|
---|
| 126 | .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,30)=9
|
---|
| 127 | .S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,40)=9
|
---|
| 128 | .W !," VACCINE THERAPY...............: Unknown"
|
---|
| 129 | .W !," GENE THERAPY..................: Unknown"
|
---|
| 130 | .W !," INTERLEUKIN 2.................: Unknown"
|
---|
| 131 | .W !," INTERFERON....................: Unknown"
|
---|
| 132 | .W !," LEVAMISOLE....................: Unknown"
|
---|
| 133 | .W !," COLONY STIMULATING FACTORS....: Unknown"
|
---|
| 134 | .W !," OTHER GIVEN, TYPE UNKNOWN.....: Unknown"
|
---|
| 135 | S DR="884 VACCINE THERAPY..............." D ^DIE G:$D(Y) JUMP
|
---|
| 136 | S DR="1131 GENE THERAPY.................." D ^DIE G:$D(Y) JUMP
|
---|
| 137 | S DR="385 INTERLEUKIN 2................." D ^DIE G:$D(Y) JUMP
|
---|
| 138 | S DR="384 INTERFERON...................." D ^DIE G:$D(Y) JUMP
|
---|
| 139 | S DR="791 LEVAMISOLE...................." D ^DIE G:$D(Y) JUMP
|
---|
| 140 | S DR="559 COLONY STIMULATING FACTORS...." D ^DIE G:$D(Y) JUMP
|
---|
| 141 | S DR="386 OTHER GIVEN, TYPE UNKNOWN....." D ^DIE G:$D(Y) JUMP
|
---|
| 142 | OT W ! K DIR S DIR(0)="E" D ^DIR G:$D(DIRUT) EXIT W @IOF D HEAD^ONCMPC0
|
---|
| 143 | W !," OTHER THERAPY"
|
---|
| 144 | W !," -------------"
|
---|
| 145 | DOTS W !," 75. DATE OTHER TREATMENT STARTED..: ",ONC(165.5,ONCONUM,57,"E")
|
---|
| 146 | W !," 76. OTHER TREATMENT...............: ",ONC(165.5,ONCONUM,57.2,"E")
|
---|
| 147 | PRTC W ! K DIR S DIR(0)="E" D ^DIR S:$D(DIRUT) OUT="Y"
|
---|
| 148 | G EXIT
|
---|
| 149 | JUMP ;Jump to prompts
|
---|
| 150 | S XX="" R !!," GO TO ITEM: ",X:DTIME I (X="")!(X[U) S OUT="Y" G EXIT
|
---|
| 151 | I X["?" D G JUMP
|
---|
| 152 | .W !," CHOOSE FROM:" F I=1:1:CHOICES W !," ",HTABLE(I)
|
---|
| 153 | 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
|
---|
| 154 | .W !," CHOOSE FROM:" F I=1:1:CHOICES W !," ",HTABLE(I)
|
---|
| 155 | S X=TABLE(X)
|
---|
| 156 | G @X
|
---|
| 157 | EXIT S:$D(DIRUT) OUT="Y"
|
---|
| 158 | K CHOICES,PIECE,HTABLE,TABLE
|
---|
| 159 | K CDS,CDSOT,LOS,NCDS,NCDSOT,NOP,SURG,SURG1,SURG2,SURGDT,SA,SA1,SA2
|
---|
| 160 | K SM,SM1,SM2,SOORS,SOORS1,SOORS2,PL,SNE
|
---|
| 161 | K DA,DIE,DIR,DIROUT,DIRUT,DR,DTOUT,DUOUT,X,XX,Y
|
---|
| 162 | Q
|
---|