source: FOIAVistA/trunk/r/ONCOLOGY-ONC/ONCBPC4A.m@ 808

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

initial load of FOIAVistA 6/30/08 version
File size: 6.9 KB
Line 
1ONCBPC4A ;HIRMFO/GWB - PCE Study of Cancers of the Urinary Bladder Table IV;6/19/96
2 ;;2.11;ONCOLOGY;**6,16**;Mar 07, 1995
3RAD W !!,"RADIATION THERAPY:",!
4 S RAD=ONC(165.5,ONCONUM,51.2,"I"),RADOT=ONC(165.5,ONCONUM,51.2,"E")
5 W !," RADIATION THERAPY.................: ",RADOT
6 S RADDT=$P($G(^ONCO(165.5,ONCONUM,3)),U,4)
7 S Y=RADDT D DATEOT^ONCOPCE S RADDT=Y
8 W !," DATE RADIATION THERAPY STARTED....: ",RADDT
9 I (RAD=0)!(RAD=7) D G:(Y=0)!(Y="") EXIT W @IOF G CHEMO
10 .S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,16)="0000000" ; 2/2/98 WAA
11 .W !," DATE RADIATION THERAPY ENDED......: 00/00/0000"
12 .S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,17)=0
13 .W !," TOTAL RAD (cGy/rad) DOSE..........: 00000"
14 .S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,18)=1
15 .W !," REGIONAL TREATMENT MODALITY.......: No radiation therapy"
16 .W !!," RADIATION COMPLICATIONS:",!
17 .F PIECE=19:1:21 S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,PIECE)=8
18 .W !," URINARY INCONTINENCE............: Not applicable"
19 .W !," HEMATURIA.......................: Not applicable"
20 .W !," RADIATION BOWEL INJURY..........: Not applicable"
21 .W ! K DIR S DIR(0)="E" D ^DIR
22 I (RAD=8)!(RAD=9) D G:(Y=0)!(Y="") EXIT W @IOF G CHEMO
23 .S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,16)=9999999 ; 2/2/98 WAA
24 .W !," DATE RADIATION THERAPY ENDED......: 99/99/9999"
25 .S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,17)=99999
26 .W !," TOTAL RAD (cGy/rad) DOSE..........: 99999"
27 .S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,18)=19
28 .W !," REGIONAL TREATMENT MODALITY.......: Unknown"
29 .W !!," RADIATION COMPLICATIONS:",!
30 .F PIECE=19:1:21 S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,PIECE)=9
31 .W !," URINARY INCONTINENCE............: Unknown"
32 .W !," HEMATURIA.......................: Unknown"
33 .W !," RADIATION BOWEL INJURY..........: Unknown"
34 .W ! K DIR S DIR(0)="E" D ^DIR
35 S DR="361 DATE RADIATION THERAPY ENDED......" D ^DIE G:$D(Y) JUMP
36 S DR="362 TOTAL RAD (cGy/rad) DOSE.........." D ^DIE G:$D(Y) JUMP
37 S DR="363 REGIONAL TREATMENT MODALITY......." D ^DIE G:$D(Y) JUMP
38 W !!," RADIATION COMPLICATIONS:",!
39 S DR="364 URINARY INCONTINENCE............" D ^DIE G:$D(Y) JUMP
40 S DR="365 HEMATURIA......................." D ^DIE G:$D(Y) JUMP
41 S DR="366 RADIATION BOWEL INJURY.........." D ^DIE G:$D(Y) JUMP
42CHEMO W !!,"CHEMOTHERAPY:",!
43 S CHEMO=ONC(165.5,ONCONUM,53.2,"I"),CHEMOT=ONC(165.5,ONCONUM,53.2,"E")
44 W !," CHEMOTHERAPY......................: ",CHEMOT
45 S CHEDT=$P($G(^ONCO(165.5,ONCONUM,3)),U,11)
46 S Y=CHEDT D DATEOT^ONCOPCE S CHEDT=Y
47 W !," DATE CHEMOTHERAPY STARTED.........: ",CHEDT
48 I (CHEMO=0)!(CHEMO=7) D G:(Y=0)!(Y="") EXIT W @IOF G BRM
49 .S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,22)="0000000" ; 2/2/98 WAA
50 .W !," DATE CHEMOTHERAPY ENDED...........: 00/00/0000"
51 .F PIECE=23:1:36 S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,PIECE)=0
52 .S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,41)=0
53 .W !," ROUTE CHEMOTHERAPY ADMINISTERED...: No chemotherapy"
54 .W !!," TYPES OF AGENTS ADMINISTERED:",!
55 .W !," ADRIAMYCIN......: None IFOSFAMIDE......: None"
56 .W !," CARBOPLATINUM...: None METHOTREXATE....: None"
57 .W !," CISPLATIN.......: None TAXOL...........: None"
58 .W !," CYCLOPHOSPHAMIDE: None THIOTEPA........: None"
59 .W !," 5-FLUOROURACIL..: None VINBLASTINE.....: None"
60 .W !," GALLIUM NITRATE.: None OTHER...........: None"
61 .W !!," INDICATION FOR ADMIN OF AGENTS....: No agents administered, NA"
62 .W !!," REASON CHEMOTHERAPY STOPPED.......: Treatment completed, NA"
63 .W ! K DIR S DIR(0)="E" D ^DIR
64 I (CHEMO=8)!(CHEMO=9) D G:(Y=0)!(Y="") EXIT W @IOF G BRM
65 .S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,22)=9999999 ; 2/2/98 WAA
66 .W !," DATE CHEMOTHERAPY ENDED...........: 99/99/9999"
67 .F PIECE=23:1:36 S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,PIECE)=9
68 .S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,41)=9
69 .W !," ROUTE CHEMOTHERAPY ADMINISTERED...: Unknown"
70 .W !!," TYPES OF AGENTS ADMINISTERED:",!
71 .W !," ADRIAMYCIN......: Unknown IFOSFAMIDE......: Unknown"
72 .W !," CARBOPLATINUM...: Unknown METHOTREXATE....: Unknown"
73 .W !," CISPLATIN.......: Unknown TAXOL...........: Unknown"
74 .W !," CYCLOPHOSPHAMIDE: Unknown THIOTEPA........: Unknown"
75 .W !," 5-FLUOROURACIL..: Unknown VINBLASTINE.....: Unknown"
76 .W !," GALLIUM NITRATE.: Unknown OTHER...........: Unknown"
77 .W !!," INDICATION FOR ADMIN OF AGENTS....: Unknown"
78 .W !!," REASON CHEMOTHERAPY STOPPED.......: Unknown"
79 .W ! K DIR S DIR(0)="E" D ^DIR
80 S DR="367 DATE CHEMOTHERAPY ENDED..........." D ^DIE G:$D(Y) JUMP
81 S DR="368 ROUTE CHEMOTHERAPY ADMINISTERED..." D ^DIE G:$D(Y) JUMP
82 W !!," TYPES OF AGENTS ADMINISTERED:",!
83 S DR="369 ADRIAMYCIN......................" D ^DIE G:$D(Y) JUMP
84 S DR="370 CARBOPLATINUM..................." D ^DIE G:$D(Y) JUMP
85 S DR="371 CISPLATIN......................." D ^DIE G:$D(Y) JUMP
86 S DR="372 CYCLOPHOSPHAMIDE................" D ^DIE G:$D(Y) JUMP
87 S DR="373 5-FLUOROURACIL.................." D ^DIE G:$D(Y) JUMP
88 S DR="374 GALLIUM NITRATE................." D ^DIE G:$D(Y) JUMP
89 S DR="375 IFOSFAMIDE......................" D ^DIE G:$D(Y) JUMP
90 S DR="376 METHOTREXATE...................." D ^DIE G:$D(Y) JUMP
91 S DR="377 TAXOL..........................." D ^DIE G:$D(Y) JUMP
92 S DR="378 THIOTEPA........................" D ^DIE G:$D(Y) JUMP
93 S DR="379 VINBLASTINE....................." D ^DIE G:$D(Y) JUMP
94 S DR="380 OTHER AGENT....................." D ^DIE G:$D(Y) JUMP
95 W !
96 S DR="381 INDICATION FOR ADMIN OF AGENTS...." D ^DIE G:$D(Y) JUMP
97 S DR="382 REASON CHEMOTHERAPY STOPPED......." D ^DIE G:$D(Y) JUMP
98BRM W !!,"IMMUNOTHERAPY:",!
99 S BRM=ONC(165.5,ONCONUM,55.2,"I"),BRMOT=ONC(165.5,ONCONUM,55.2,"E")
100 W !," IMMUNOTHERAPY (BRM)...............: ",BRMOT
101 W !!," TYPE OF IMMUNOTHERAPY (BRM):",!
102 I (BRM=6)!(BRM=7) D W ! K DIR S DIR(0)="E" D ^DIR G EXIT
103 .F PIECE=37:1:40 S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,PIECE)=0
104 .W !," BCG......................: None"
105 .W !," INTERFERON...............: None"
106 .W !," INTERLEUKIN-II...........: None"
107 .W !," OTHER....................: None"
108 I (BRM=8)!(BRM=9) D W ! K DIR S DIR(0)="E" D ^DIR G EXIT
109 .F PIECE=37:1:40 S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,PIECE)=9
110 .W !," BCG......................: Unknown"
111 .W !," INTERFERON...............: Unknown"
112 .W !," INTERLEUKIN-II...........: Unknown"
113 .W !," OTHER....................: Unknown"
114 S DR="383 BCG............................." D ^DIE G:$D(Y) JUMP
115 S DR="384 INTERFERON......................" D ^DIE G:$D(Y) JUMP
116 S DR="385 INTERLEUKIN-II.................." D ^DIE G:$D(Y) JUMP
117 S DR="386 OTHER..........................." D ^DIE G:$D(Y) JUMP
118 W ! K DIR S DIR(0)="E" D ^DIR
119 G EXIT
120JUMP ;Jump to prompts
121 S XX="" R !!,"GO TO: ",X:DTIME G:(X="")!(X[U) EXIT
122 I X["?" D G JUMP
123 .W !,"CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I)
124 I '$D(TABLE(X)) S XX=X,X=$O(TABLE(X)) I ($P(X,XX,1)'="")!(X="") W *7,"??" D G JUMP
125 .W !,"CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I)
126 S X=TABLE(X)
127 G @X
128EXIT K CHOICES,HTABLE,TABLE
129 K BRM,CDS,CDSOT,CHEDT,CHEMO,DOIT,LOS,NCDS,NCDSOT,NOP,PIECE,RAD,RADDT
130 K SURG,SURG1,SURG2,SURGDT,Z
131 K DIC
132 Q
Note: See TracBrowser for help on using the repository browser.