source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCP2P4A.m@ 648

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

initial load of WorldVistAEHR
File size: 9.0 KB
Line 
1ONCP2P4A ;HINES CIOFO/GWB - 1998 Prostate Cancer Study - Table IV (continued) ;03/07/00
2 ;;2.11;ONCOLOGY;**18,25**;Mar 07, 1995
3RT W @IOF D HEAD^ONCP2P0
4 W !," RADIATION THERAPY"
5 W !," -----------------"
6DRS W !," 49. DATE RADIATION STARTED.........: ",ONC(165.5,ONCONUM,51)
7RT1 W !," 50. RADIATION THERAPY..............: ",ONC(165.5,ONCONUM,51.2)
8 I RAD=0 D G RADWRT
9 .S $P(^ONCO(165.5,ONCONUM,"PRO2"),U,36)=8
10 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,29)=0
11 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,28)=0
12 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,31)=0
13 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,32)=0
14 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,30)=0
15 .S $P(^ONCO(165.5,ONCONUM,"PRO2"),U,37)=8
16 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,34)=8
17 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,35)=8
18 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,36)=8
19 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,37)=8
20 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,38)=8
21 .S $P(^ONCO(165.5,ONCONUM,"PRO2"),U,38)=8
22 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,39)=8
23 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,40)=8
24 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,41)=8
25 .S $P(^ONCO(165.5,ONCONUM,"PRO2"),U,39)=8
26 .S $P(^ONCO(165.5,ONCONUM,"PRO2"),U,40)=8
27 .S $P(^ONCO(165.5,ONCONUM,"PRO2"),U,41)=8
28 .S $P(^ONCO(165.5,ONCONUM,"PRO2"),U,42)=8
29 .S $P(^ONCO(165.5,ONCONUM,"PRO2"),U,48)=8
30 I RAD=9 D G RADWRT
31 .S $P(^ONCO(165.5,ONCONUM,"PRO2"),U,36)=9
32 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,29)=9
33 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,28)=9
34 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,31)=9
35 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,32)=9
36 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,30)=9
37 .S $P(^ONCO(165.5,ONCONUM,"PRO2"),U,37)=9
38 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,34)=9
39 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,35)=9
40 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,36)=9
41 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,37)=9
42 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,38)=9
43 .S $P(^ONCO(165.5,ONCONUM,"PRO2"),U,38)=9
44 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,39)=8
45 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,40)=8
46 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,41)=8
47 .S $P(^ONCO(165.5,ONCONUM,"PRO2"),U,39)=9
48 .S $P(^ONCO(165.5,ONCONUM,"PRO2"),U,40)=9
49 .S $P(^ONCO(165.5,ONCONUM,"PRO2"),U,41)=9
50 .S $P(^ONCO(165.5,ONCONUM,"PRO2"),U,42)=9
51 .S $P(^ONCO(165.5,ONCONUM,"PRO2"),U,48)=9
52RADWRT I (RAD=0)!(RAD=9) D G:$D(DIRUT) EXIT G HOT
53 .K DIQ S DIC="^ONCO(165.5,"
54 .S DR="692;628;627;630;631;629;693;636;634;635;633;637;694;638;639;640;695;696;697;698;699"
55 .S DA=ONCONUM,DIQ="ONC" D EN^DIQ1
56 .W !," 51. RADIATION FACILITY.............: ",ONC(165.5,ONCONUM,692)
57 .W !!," 52. INTERSTITIAL RADIATION/BRACHYTHERAPY ADMINISTERED:",!
58 .W !," GOLD 198.......................: ",ONC(165.5,ONCONUM,628)
59 .W !," IODINE 125.....................: ",ONC(165.5,ONCONUM,627)
60 .W !," IRIDIUM 192....................: ",ONC(165.5,ONCONUM,630)
61 .W !," OTHER INTERSTITIAL, NOS........: ",ONC(165.5,ONCONUM,631)
62 .W !," PALLADIUM 103..................: ",ONC(165.5,ONCONUM,629)
63 .W !!," 53. ROUTE OF INTERSTITIAL RADIATION/"
64 .W !," BRACHYTHERAPY ADMINISTERED.....: ",ONC(165.5,ONCONUM,693)
65 .W ! K DIR S DIR(0)="E" D ^DIR Q:$D(DIRUT) W @IOF D HEAD^ONCP2P0
66 .W !," 54. EXTERNAL RADIATION ADMINISTERED:",!
67 .W !," DISTANT METASTATIC SITES.......: ",ONC(165.5,ONCONUM,636)
68 .W !," PROSTATE & PELVIC NODES........: ",ONC(165.5,ONCONUM,634)
69 .W !," PROSTATE & PARA-AORTIC NODES...: ",ONC(165.5,ONCONUM,635)
70 .W !," PROSTATE REGION ONLY...........: ",ONC(165.5,ONCONUM,633)
71 .W !," OTHER EXTERNAL SITES, NOS......: ",ONC(165.5,ONCONUM,637)
72 .W !!," 55. TYPE OF EXTERNAL RADIATION"
73 .W !," ADMINISTRATION.................: ",ONC(165.5,ONCONUM,694)
74 .W !!," 56. TOTAL EXTERNAL RAD DOSE (cGy) INCLUDING BOOST:",!
75 .W !," PROSTATE.......................: ",ONC(165.5,ONCONUM,638)
76 .W !," PELVIC NODES...................: ",ONC(165.5,ONCONUM,639)
77 .W !," PARA-AORTIC NODES..............: ",ONC(165.5,ONCONUM,640)
78 .W ! K DIR S DIR(0)="E" D ^DIR Q:$D(DIRUT) W @IOF D HEAD^ONCP2P0
79 .W !," 57. COMPLICATIONS FOLLOWING RADIATION FIRST COURSE OF TREATMENT:",!
80 .W !," ACUTE GASTROINTESTINAL.........: ",ONC(165.5,ONCONUM,695)
81 .W !," ACUTE GASTROURINARY............: ",ONC(165.5,ONCONUM,696)
82 .W !," ANORECTAL......................: ",ONC(165.5,ONCONUM,697)
83 .W !," CHRONIC REQUIRING SURGERY OR"
84 .W !," PROLONGED HOSPITALIZATION......: ",ONC(165.5,ONCONUM,698)
85 .W !," URETHRAL OR BLADDER............: ",ONC(165.5,ONCONUM,699)
86 .W ! K DIR S DIR(0)="E" D ^DIR Q:$D(DIRUT) D HEAD^ONCP2P0
87RF S DR="692 51. RADIATION FACILITY............." D ^DIE G:$D(Y) JUMP
88IRBA W !!," 52. INTERSTITIAL RADIATION/BRACHYTHERAPY ADMINISTERED:",!
89 S DR="628 GOLD 198......................." D ^DIE G:$D(Y) JUMP
90 S DR="627 IODINE 125....................." D ^DIE G:$D(Y) JUMP
91 S DR="630 IRIDIUM 192...................." D ^DIE G:$D(Y) JUMP
92 S DR="631 OTHER INTERSTITIAL, NOS........" D ^DIE G:$D(Y) JUMP
93 S DR="629 PALLADIUM 103.................." D ^DIE G:$D(Y) JUMP
94RIRBA W ! S DR="693 53. ROUTE OF INTERSTITIAL RADIATION/ BRACHYTHERAPY ADMINISTERED....." D ^DIE G:$D(Y) JUMP
95ERA W !," 54. EXTERNAL RADIATION ADMINISTERED:",!
96 S DR="636 DISTANT METASTATIC SITES......." D ^DIE G:$D(Y) JUMP
97 S DR="634 PROSTATE & PELVIC NODES........" D ^DIE G:$D(Y) JUMP
98 S DR="635 PROSTATE & PARA-AORTIC NODES..." D ^DIE G:$D(Y) JUMP
99 S DR="633 PROSTATE REGION ONLY..........." D ^DIE G:$D(Y) JUMP
100 S DR="637 OTHER EXTERNAL SITES, NOS......" D ^DIE G:$D(Y) JUMP
101TERA W ! S DR="694 55. TYPE OF EXTERNAL RADIATION ADMINISTRATION................." D ^DIE G:$D(Y) JUMP
102TERDIB W !!," 56. TOTAL EXTERNAL RAD DOSE (cGy) INCLUDING BOOST:",!
103 S DR="638 PROSTATE......................." D ^DIE G:$D(Y) JUMP
104 S DR="639 PELVIC NODES..................." D ^DIE G:$D(Y) JUMP
105 S DR="640 PARA-AORTIC NODES.............." D ^DIE G:$D(Y) JUMP
106CFRFCT W !!," 57. COMPLICATIONS FOLLOWING RADIATION FIRST COURSE OF TREATMENT:",!
107 S DR="695 ACUTE GASTROINTESTINAL........." D ^DIE G:$D(Y) JUMP
108 S DR="696 ACUTE GASTROURINARY............" D ^DIE G:$D(Y) JUMP
109 S DR="697 ANORECTAL......................" D ^DIE G:$D(Y) JUMP
110 S DR="698 CHRONIC REQUIRING SURGERY OR PROLONGED HOSPITALIZATION......" D ^DIE G:$D(Y) JUMP
111 S DR="699 URETHRAL OR BLADDER............" D ^DIE G:$D(Y) JUMP
112 W ! K DIR S DIR(0)="E" D ^DIR G:$D(DIRUT) EXIT
113HOT W @IOF D HEAD^ONCP2P0
114 W !," HORMONE THERAPY"
115 W !," ---------------"
116DO I HOR=0 D G DEHTB
117 .S $P(^ONCO(165.5,ONCONUM,"PRO2"),U,49)="0000000"
118 .W !," 58. DATE OF ORCHIECTOMY............: 00/00/0000"
119 S DR="699.1 58. DATE OF ORCHIECTOMY............" D ^DIE G:$D(Y) JUMP
120DEHTB W !," 59. DATE EXOGENOUS HT BEGAN........: ",ONC(165.5,ONCONUM,54)
121HT W !," 60. HORMONE THERAPY................: ",ONC(165.5,ONCONUM,54.2)
122 I HOR=0 D G HORWRT
123 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,45)=0
124 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,44)=0
125 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,47)=0
126 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,46)=0
127 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,49)=0
128 I HOR=9 D G HORWRT
129 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,45)=9
130 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,44)=9
131 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,47)=9
132 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,46)=9
133 .S $P(^ONCO(165.5,ONCONUM,"PRO1"),U,49)=9
134HORWRT I (HOR=0)!(HOR=9) D G:$D(DIRUT) EXIT G CT
135 .K DIQ S DIC="^ONCO(165.5,",DR="644;643;646;645;648"
136 .S DA=ONCONUM,DIQ="ONC" D EN^DIQ1
137 .W !!," 61. EXOGENOUS HORMONE AGENTS ADMINISTERED:",!
138 .W !," ANTIANDROGENS..................: ",ONC(165.5,ONCONUM,644)
139 .W !," ESTROGENS......................: ",ONC(165.5,ONCONUM,643)
140 .W !," LUTEINIZING HORMONES...........: ",ONC(165.5,ONCONUM,646)
141 .W !," PROGESTATIONAL AGENTS..........: ",ONC(165.5,ONCONUM,645)
142 .W !," OTHER..........................: ",ONC(165.5,ONCONUM,648)
143 .W ! K DIR S DIR(0)="E" D ^DIR Q:$D(DIRUT) D HEAD^ONCP2P0
144EHAA W !!," 61. EXOGENOUS HORMONE AGENTS ADMINISTERED:",!
145 S DR="644 ANTIANDROGENS.................." D ^DIE G:$D(Y) JUMP
146 S DR="643 ESTROGENS......................" D ^DIE G:$D(Y) JUMP
147 S DR="646 LUTEINIZING HORMONES..........." D ^DIE G:$D(Y) JUMP
148 S DR="645 PROGESTATIONAL AGENTS.........." D ^DIE G:$D(Y) JUMP
149 S DR="648 OTHER.........................." D ^DIE G:$D(Y) JUMP
150 W ! K DIR S DIR(0)="E" D ^DIR G:$D(DIRUT) EXIT
151CT W @IOF D HEAD^ONCP2P0
152 W !," CHEMOTHERAPY"
153 W !," ------------"
154DCS W !," 62. DATE CHEMOTHERAPY STARTED......: ",ONC(165.5,ONCONUM,53)
155C W !," 63. CHEMOTHERAPY...................: ",ONC(165.5,ONCONUM,53.2)
156 W ! K DIR S DIR(0)="E" D ^DIR S:$D(DIRUT) OUT="Y"
157 G EXIT
158JUMP ;Jump to prompts
159 S XX="" R !!," GO TO ITEM: ",X:DTIME I (X="")!(X[U) S OUT="Y" G EXIT
160 I X["?" D G JUMP
161 .W !," CHOOSE FROM:" F I=1:1:CHOICES W !," ",HTABLE(I)
162 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
163 .W !," CHOOSE FROM:" F I=1:1:CHOICES W !," ",HTABLE(I)
164 S X=TABLE(X)
165 G @X
166EXIT S:$D(DIRUT) OUT="Y"
167 K CHOICES,PIECE,HTABLE,TABLE
168 K CDS,CDSOT,LOS,NCDS,NCDSOT,NOP,SURG,SURG1,SURG2,SURGDT,SA,SA1,SA2
169 K SM,SM1,SM2,SOORS,SOORS1,SOORS2,HOR,RAD
170 K DA,DIE,DIR,DIROUT,DIRUT,DR,DTOUT,DUOUT,X,XX,Y
171 Q
Note: See TracBrowser for help on using the repository browser.