source: FOIAVistA/trunk/r/ONCOLOGY-ONC/ONCTPC4.m

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

initial load of FOIAVistA 6/30/08 version

File size: 5.9 KB
Line 
1ONCTPC4 ;HIRMFO/GWB - PCE Study of Thyroid Cancer Table IV;6/19/96
2 ;;2.11;ONCOLOGY;**6,11,15,16**;Mar 07, 1995
3 K ONC,TABLE,HTABLE
4 S TABLE("DATE OF FIRST COURSE TREATMENT")="DOFCT"
5 S TABLE("SURGERY")="S"
6 S TABLE("RADIATION")="R"
7 S TABLE("CHEMOTHERAPY")="C"
8 S TABLE("HORMONE THERAPY")="HT"
9 S HTABLE(1)="DATE OF FIRST COURSE TREATMENT"
10 S HTABLE(2)="SURGERY"
11 S HTABLE(3)="RADIATION"
12 S HTABLE(4)="CHEMOTHERAPY"
13 S HTABLE(5)="HORMONE THERAPY"
14 S CHOICES=5
15 S D0=ONCONUM D DFC^ONCOCOM S DOFCT=Y
16 S DIC="^ONCO(165.5,",DR="50;51.2;53.2;54.2;58.1;58.2;58.3",DA=ONCONUM
17 S DIQ="ONC",DIQ(0)="IE" D EN^DIQ1
18 W @IOF D HEAD^ONCTPC0 W !?22,"TABLE IV - FIRST COURSE OF TREATMENT",!
19 S DIE="^ONCO(165.5,",DA=ONCONUM
20DOFCT W !,"DATE OF FIRST COURSE TREATMENT.......: ",DOFCT
21S W !!,"SURGERY:",!
22 S NCDSDT=$P($G(^ONCO(165.5,ONCONUM,3)),U,31)
23 S Y=NCDSDT D DATEOT^ONCOPCE S NCDSDT=Y
24 S NCDS=ONC(165.5,ONCONUM,58.1,"E")
25 S (NCDS1,NCDS2)="",LOS=$L(NCDS) I LOS<42 S NCDS1=NCDS G CDSDT
26 S NOP=$L($E(NCDS,1,41)," ")
27 S NCDS1=$P(NCDS," ",1,NOP-1),NCDS2=$P(NCDS," ",NOP,999)
28CDSDT S CDSDT=$P($G(^ONCO(165.5,ONCONUM,3)),U,1)
29 S Y=CDSDT D DATEOT^ONCOPCE S CDSDT=Y
30 S CDS=ONC(165.5,ONCONUM,58.2,"E")
31 S (CDS1,CDS2)="",LOS=$L(CDS) I LOS<42 S CDS1=CDS G NCDS
32 S NOP=$L($E(CDS,1,41)," ")
33 S CDS1=$P(CDS," ",1,NOP-1),CDS2=$P(CDS," ",NOP,999)
34NCDS W !," DATE OF NON CANCER-DIRECTED SURGERY: ",NCDSDT
35 W !," NON CANCER-DIRECTED SURGERY........: ",NCDS1 W:NCDS2'="" !,?42,NCDS2
36 W !," DATE OF SURGERY OF PRIMARY SITE....: ",CDSDT
37 I (CDS="")!($E(CDS,1,2)="00") D G CDS
38 .S $P(^ONCO(165.5,ONCONUM,"THY1"),U,36)="0000000"
39 .W !," DATE OF DISCHARGE AFTER SURGERY....: 00/00/0000"
40 S DR="435 DATE OF DISCHARGE AFTER SURGERY...." D ^DIE G:$D(Y) JUMP
41CDS W !," SURGERY OF PRIMARY SITE............: ",CDS1 W:CDS2'="" !,?42,CDS2
42SC I (CDS="")!($E(CDS,1,2)="00") D G:(Y=0)!(Y="") EXIT W @IOF G R
43 .S $P(^ONCO(165.5,ONCONUM,3),U,28)=8
44 .W !," RESIDUAL PRIMARY TUMOR.............: NA"
45 .W ! K DIR S DIR(0)="E" D ^DIR Q:(Y=0)!(Y="") W @IOF
46 .W !!," SURGICAL COMPLICATIONS:",!
47 .S $P(^ONCO(165.5,ONCONUM,"THY1"),U,37)=8
48 .W !," AIRWAY PROBLEM REQ TRACHEOSTOMY..: Not applicable, no surgery"
49 .S $P(^ONCO(165.5,ONCONUM,"THY1"),U,38)=8
50 .W !," BLEEDING HEMATOMA................: Not applicable, no surgery"
51 .S $P(^ONCO(165.5,ONCONUM,"THY1"),U,39)=8
52 .W !," HYPOCALCEMIA.....................: Not applicable, no surgery"
53 .S $P(^ONCO(165.5,ONCONUM,"THY1"),U,40)=8
54 .W !," RECURRENT NERVE INJURY...........: Not applicable, no surgery"
55 .S $P(^ONCO(165.5,ONCONUM,"THY1"),U,41)=8
56 .W !," WOUND INFECTION..................: Not applicable, no surgery"
57 .S $P(^ONCO(165.5,ONCONUM,"THY1"),U,42)=8
58 .W !!," POSTOPERATIVE DEATH WITH 30 DAYS.: Not applicable, no surgery"
59 .W ! K DIR S DIR(0)="E" D ^DIR
60 S DR="59 RESIDUAL PRIMARY TUMOR............." D ^DIE G:$D(Y) JUMP
61 W !!," SURGICAL COMPLICATIONS:",!
62 S DR="436 AIRWAY PROBLEM REQ TRACHEOSTOMY.." D ^DIE G:$D(Y) JUMP
63 S DR="437 BLEEDING HEMATOMA................" D ^DIE G:$D(Y) JUMP
64 S DR="438 HYPOCALCEMIA....................." D ^DIE G:$D(Y) JUMP
65 S DR="439 RECURRENT NERVE INJURY..........." D ^DIE G:$D(Y) JUMP
66 S DR="440 WOUND INFECTION.................." D ^DIE G:$D(Y) JUMP
67 W !
68 S DR="441 POSTOPERATIVE DEATH WITHIN 30 DAYS." D ^DIE G:$D(Y) JUMP
69R W !!,"RADIATION:",!
70 S RADDT=$P($G(^ONCO(165.5,ONCONUM,3)),U,4)
71 S Y=RADDT D DATEOT^ONCOPCE S RADDT=Y
72 W !," DATE RADIATION STARTED.............: ",RADDT
73 S RAD=ONC(165.5,ONCONUM,51.2,"I"),RADOT=ONC(165.5,ONCONUM,51.2,"E")
74 W !," RADIATION .........................: ",RADOT
75 I (RAD=0)!(RAD=7) D G C
76 .S $P(^ONCO(165.5,ONCONUM,"THY1"),U,43)=0
77 .W !," REGIONAL RAD (cGy) DOSE............: 00000"
78 .S $P(^ONCO(165.5,ONCONUM,"THY1"),U,44)=0
79 .W !," BOOST DOSAGE.......................: 00000"
80 .W !!," TOTAL MILLICURIES (mCi) OF RADIOIODINE:"
81 .S $P(^ONCO(165.5,ONCONUM,"THY1"),U,45)=0
82 .W !," INITAL DOSE........................: 00000"
83 .S $P(^ONCO(165.5,ONCONUM,"THY1"),U,46)=0
84 .W !," SECOND DOSE........................: 00000"
85 I ($E(RAD,1)=8)!($E(RAD,1)=9) D G C
86 .S $P(^ONCO(165.5,ONCONUM,"THY1"),U,43)=99999
87 .W !," REGIONAL RAD (cGy) DOSE............: 99999"
88 .S $P(^ONCO(165.5,ONCONUM,"THY1"),U,44)=99999
89 .W !," BOOST DOSAGE.......................: 99999"
90 .W !!," TOTAL MILLICURIES (mCi) OF RADIOIODINE:"
91 .S $P(^ONCO(165.5,ONCONUM,"THY1"),U,45)=99999
92 .W !," INITAL DOSE........................: 99999"
93 .S $P(^ONCO(165.5,ONCONUM,"THY1"),U,46)=99999
94 .W !," SECOND DOSE........................: 99999"
95 S DR="442 REGIONAL RAD (cGy) DOSE............" D ^DIE G:$D(Y) JUMP
96 S DR="443 BOOST DOSAGE......................." D ^DIE G:$D(Y) JUMP
97 W !!," TOTAL MILLICURIES (mCi) OF RADIOIODINE:",!
98 S DR="444 INITIAL DOSE......................." D ^DIE G:$D(Y) JUMP
99 S DR="445 SECOND DOSE........................" D ^DIE G:$D(Y) JUMP
100C W !!,"CHEMOTHERAPY:",!
101 S CHEMO=ONC(165.5,ONCONUM,53.2,"I"),CHEMOT=ONC(165.5,ONCONUM,53.2,"E")
102 W !," CHEMOTHERAPY.......................: ",CHEMOT
103 I ($E(CHEMO,1)=0)!($E(CHEMO,1)=7) D G HT
104 .S $P(^ONCO(165.5,ONCONUM,"THY1"),U,47)=0
105 .W !," ADJUVANT CHEMO W BEAM RADIATION....: No concomitant treatment"
106 I ($E(CHEMO,1)=8)!($E(CHEMO,1)=9) D G HT
107 .S $P(^ONCO(165.5,ONCONUM,"THY1"),U,47)=9
108 .W !," ADJUVANT CHEMO W BEAM RADIATION....: Unknown if therapy concomitant"
109 S DR="446 ADJUVANT CHEMO W BEAM RADIATION...." D ^DIE G:$D(Y) JUMP
110HT W !!,"HORMONE THERAPY:",!
111 S HT=ONC(165.5,ONCONUM,54.2,"I")
112 S HT=$S((HT=0)!(HT=7):"No",(HT=1)!(HT=2)!(HT=3):"Yes",1:"Unknown")
113 W !," THYROID HORMONE THERAPY............: ",HT
114 W ! K DIR S DIR(0)="E" D ^DIR
115 G EXIT
116JUMP ;Jump to prompts
117 S XX="" R !!,"GO TO: ",X:DTIME I (X="")!(X[U) S OUT="Y" G EXIT
118 I X["?" D G JUMP
119 .W !,"CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I)
120 I '$D(TABLE(X)) S XX=X,X=$O(TABLE(X)) I ($P(X,XX,1)'="")!(X="") W *7,"??" D G JUMP
121 .W !,"CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I)
122 S X=TABLE(X)
123 G @X
124EXIT K CHOICES,HTABLE,TABLE
125 K CDS,CDS1,CDS2,CDSDT,CHEMO,DOFCT,HT,LOS,NCDS,NCDS1,NCDS2,NCDSDT,NOP,RAD
126 K RADDT
127 Q
Note: See TracBrowser for help on using the repository browser.