source: FOIAVistA/trunk/r/ONCOLOGY-ONC/ONCMPC4A.m@ 1193

Last change on this file since 1193 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version
File size: 8.4 KB
Line 
1ONCMPC4A ;HINES CIOFO/GWB - 1999 Melanoma Study - Table IV (continued); 1/22/99
2 ;;2.11;ONCOLOGY;**22**;Mar 07, 1995
3SN W !," SENTINEL NODES",!
4 W " --------------"
5PL 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
9SNDB 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
25SNB S DR="943 59. SENTINEL NODE BIOPSY.........." D ^DIE G:$D(Y) JUMP
26SNE S DR="1124 60. SENTINEL NODES EXAMINED......." D ^DIE G:$D(Y) JUMP
27SNP 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
39SNPE S DR="1126 62. HOW WAS SENTINEL NODE PATHOLOGICALLY EXAMINED......." D ^DIE G:$D(Y) JUMP
40ISNP 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"
56WCLNDP 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"
67NOBD 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"
74NOBP S DR="1129 NUMBER OF BASINS POSITIVE....." D ^DIE G:$D(Y) JUMP
75RT W ! K DIR S DIR(0)="E" D ^DIR G:$D(DIRUT) EXIT W @IOF D HEAD^ONCMPC0
76 W !," RADIATION THERAPY"
77 W !," -----------------"
78DRS W !," 64. DATE RADIATION STARTED........: ",ONC(165.5,ONCONUM,51,"E")
79 W !," 65. RADIATION THERAPY.............: ",ONC(165.5,ONCONUM,51.2,"E")
80RFNR 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
82C W !," CHEMOTHERAPY"
83 W !," ------------"
84DCS W !," 67. DATE CHEMOTHERAPY STARTED.....: ",ONC(165.5,ONCONUM,53,"E")
85 W !," 68. CHEMOTHERAPY..................: ",ONC(165.5,ONCONUM,53.2,"E")
86IT 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
93HT W ! K DIR S DIR(0)="E" D ^DIR G:$D(DIRUT) EXIT W @IOF D HEAD^ONCMPC0
94 W !," HORMONE THERAPY"
95 W !," ---------------"
96DHTS 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
99I W !," IMMUNOTHERAPY"
100 W !," -------------"
101DIS W !," 72. DATE IMMUNOTHERAPY STARTED....: ",ONC(165.5,ONCONUM,55,"E")
102 W !," 73. IMMUNOTHERAPY.................: ",ONC(165.5,ONCONUM,55.2,"E")
103IAA 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
142OT W ! K DIR S DIR(0)="E" D ^DIR G:$D(DIRUT) EXIT W @IOF D HEAD^ONCMPC0
143 W !," OTHER THERAPY"
144 W !," -------------"
145DOTS W !," 75. DATE OTHER TREATMENT STARTED..: ",ONC(165.5,ONCONUM,57,"E")
146 W !," 76. OTHER TREATMENT...............: ",ONC(165.5,ONCONUM,57.2,"E")
147PRTC W ! K DIR S DIR(0)="E" D ^DIR S:$D(DIRUT) OUT="Y"
148 G EXIT
149JUMP ;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
157EXIT 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
Note: See TracBrowser for help on using the repository browser.