source: FOIAVistA/trunk/r/ONCOLOGY-ONC/ONCSPC4.m@ 1397

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

initial load of FOIAVistA 6/30/08 version
File size: 6.6 KB
Line 
1ONCSPC4 ;HIRMFO/GWB - PCE Study of Soft Tissue Sarcoma 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^ONCSPC4"
5 S TABLE("SURGERY")="S^ONCSPC4"
6 S TABLE("RADIATION THERAPY")="R^ONCSPC4"
7 S TABLE("CHEMOTHERAPY")="C^ONCSPC4A"
8 S HTABLE(1)="DATE OF FIRST COURSE TREATMENT"
9 S HTABLE(2)="SURGERY"
10 S HTABLE(3)="RADIATION THERAPY"
11 S HTABLE(4)="CHEMOTHERAPY"
12 S CHOICES=4
13 S D0=ONCONUM D DFC^ONCOCOM S DOFCT=Y
14 S DIC="^ONCO(165.5,",DR="50;51.2;53;53.2;58.1;58.2;58.3",DA=ONCONUM
15 S DIQ="ONC",DIQ(0)="IE" D EN^DIQ1
16 W @IOF D HEAD^ONCSPC0 W !?22,"TABLE IV - FIRST COURSE OF TREATMENT",!
17 S DIE="^ONCO(165.5,",DA=ONCONUM
18DOFCT W !,"DATE OF FIRST COURSE TREATMENT....: ",DOFCT
19S W !!,"SURGERY:",!
20 S NCDSDT=$P($G(^ONCO(165.5,ONCONUM,3)),U,31)
21 S Y=NCDSDT D DATEOT^ONCOPCE S NCDSDT=Y
22 S NCDS=ONC(165.5,ONCONUM,58.1,"E")
23 S (NCDS1,NCDS2)="",LOS=$L(NCDS) I LOS<42 S NCDS1=NCDS G CDSDT
24 S NOP=$L($E(NCDS,1,41)," ")
25 S NCDS1=$P(NCDS," ",1,NOP-1),NCDS2=$P(NCDS," ",NOP,999)
26CDSDT S CDSDT=$P($G(^ONCO(165.5,ONCONUM,3)),U,1)
27 S Y=CDSDT D DATEOT^ONCOPCE S CDSDT=Y
28 S CDS=ONC(165.5,ONCONUM,58.2,"E")
29 S (CDS1,CDS2)="",LOS=$L(CDS) I LOS<42 S CDS1=CDS G NCDS
30 S NOP=$L($E(CDS,1,41)," ")
31 S CDS1=$P(CDS," ",1,NOP-1),CDS2=$P(CDS," ",NOP,999)
32NCDS W !," NON CANCER-DIRECTED SURGERY DATE: ",NCDSDT
33 W !," NON CANCER-DIRECTED SURGERY.....: ",NCDS1 W:NCDS2'="" !,?39,NCDS2
34 W !," SURGERY OF PRIMARY SITE DATE....: ",CDSDT
35CDS W !," SURGERY OF PRIMARY SITE.........: ",CDS1 W:CDS2'="" !,?39,CDS2
36 I (CDS="")!($E(CDS,1,2)="00") D W @IOF G R
37 .S $P(^ONCO(165.5,ONCONUM,3),U,28)=8
38 .W !," RESIDUAL PRIMARY TUMOR..........: NA"
39 .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,1)=8
40 .W !," TREATING SURGEON................: Not applicable, no surgery"
41 .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,2)=9
42 .W !," ASA CLASS.......................: Class unknown or not applicable"
43 .S $P(^ONCO(165.5,ONCONUM,"THY1"),U,42)=8
44 .W !," POSTOPERATIVE DEATH.............: Not applicable, no surgery"
45 .W ! K DIR S DIR(0)="E" D ^DIR
46 S DR="59 RESIDUAL PRIMARY TUMOR.........." D ^DIE G:$D(Y) JUMP
47 S DR="526 TREATING SURGEON................" D ^DIE G:$D(Y) JUMP
48 S DR="527 ASA CLASS......................." D ^DIE G:$D(Y) JUMP
49 S DR="441 POSTOPERATIVE DEATH............." D ^DIE G:$D(Y) JUMP
50R W !!,"RADIATION THERAPY:",!
51 S RAD=ONC(165.5,ONCONUM,51.2,"I")
52 I RAD=0 D W !," EXTERNAL BEAM RADIATION.........: No" D EB0 W !!," INTRAOPERATIVE RADIATION........: No" D IR0 W !!," BRACHYTHERAPY...................: No" D B0 G RSS
53 .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,3)=0
54 .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,6)=0
55 .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,9)=0
56 I RAD=9 D W !," EXTERNAL BEAM RADIATION.........: Unknown" D EB9 W !!," INTRAOPERATIVE RADIATION........: Unknown" D IR9 W !!," BRACHYTHERAPY...................: Unknown" D B9 G RSS
57 .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,3)=9
58 .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,6)=9
59 .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,9)=9
60 S DR="532 EXTERNAL BEAM RADIATION........." D ^DIE G:$D(Y) JUMP
61 I X=0 D EB0 G IR
62 I X=9 D EB9 G IR
63 S DR="533 NUMBER OF FRACTIONS..........." D ^DIE G:$D(Y) JUMP
64 S DR="362 DOSE.........................." D ^DIE G:$D(Y) JUMP
65 S DR="534 RADIATION ENERGY (MV)........." D ^DIE G:$D(Y) JUMP
66 S DR="567 DATE THERAPY STARTED.........." D ^DIE G:$D(Y) JUMP
67 S DR="361 DATE THERAPY ENDED............" D ^DIE G:$D(Y) JUMP
68IR W ! S DR="535 INTRAOPERATIVE RADIATION........" D ^DIE G:$D(Y) JUMP
69 I X=0 D IR0 G B
70 I X=9 D IR9 G B
71 S DR="536 DOSE.........................." D ^DIE G:$D(Y) JUMP
72 S DR="537 RADIATION ENERGY (MV)........." D ^DIE G:$D(Y) JUMP
73B W ! S DR="538 BRACHYTHERAPY..................." D ^DIE G:$D(Y) JUMP
74 I X=0 D B0 G RSS
75 I X=9 D B9 G RSS
76 S DR="539 NUMBER OF DAYS GIVEN.........." D ^DIE G:$D(Y) JUMP
77 S DR="540 DOSE.........................." D ^DIE G:$D(Y) JUMP
78 S DR="541 DATE THERAPY STARTED.........." D ^DIE G:$D(Y) JUMP
79 S DR="542 DATE THERAPY ENDED............" D ^DIE G:$D(Y) JUMP
80RSS W ! S DR="51.3 RADIATION/SURGERY SEQUENCE......" D ^DIE G:$D(Y) JUMP
81 D ^ONCSPC4A
82 I $G(OUT)'="Y" W ! K DIR S DIR(0)="E" D ^DIR
83 G EXIT
84JUMP ;Jump to prompts
85 S XX="" R !!,"GO TO: ",X:DTIME I (X="")!(X[U) S OUT="Y" G EXIT
86 I X["?" D G JUMP
87 .W !,"CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I)
88 I '$D(TABLE(X)) S XX=X,X=$O(TABLE(X)) I ($P(X,XX,1)'="")!(X="") W *7,"??" D G JUMP
89 .W !,"CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I)
90 S X=TABLE(X)
91 G @X
92EXIT K CHOICES,HTABLE,TABLE
93 K CDS,CDS1,CDS2,CDSDT,CHEMO,DOFCT,HT,LOS,NCDS,NCDS1,NCDS2,NCDSDT,NOP,RAD
94 K RADDT
95 Q
96EB0 S $P(^ONCO(165.5,ONCONUM,"STS2"),U,4)=0
97 W !," NUMBER OF FRACTIONS...........: 000"
98 S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,17)=0
99 W !," DOSE..........................: 00000"
100 S $P(^ONCO(165.5,ONCONUM,"STS2"),U,5)=0
101 W !," RADIATION ENERGY (MV).........: 00"
102 S $P(^ONCO(165.5,ONCONUM,"STS2"),U,38)="0000000"
103 W !," DATE THERAPY STARTED..........: 00/00/0000"
104 S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,16)="0000000"
105 W !," DATE THERAPY ENDED............: 00/00/0000"
106 Q
107EB9 S $P(^ONCO(165.5,ONCONUM,"STS2"),U,4)=999
108 W !," NUMBER OF FRACTIONS...........: 999"
109 S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,17)=99999
110 W !," DOSE..........................: 99999"
111 S $P(^ONCO(165.5,ONCONUM,"STS2"),U,5)=99
112 W !," RADIATION ENERGY (MV).........: 99"
113 S $P(^ONCO(165.5,ONCONUM,"STS2"),U,38)=9999999
114 W !," DATE THERAPY STARTED..........: 99/99/9999"
115 S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,16)=9999999
116 W !," DATE THERAPY ENDED............: 99/99/9999"
117 Q
118IR0 S $P(^ONCO(165.5,ONCONUM,"STS2"),U,7)=0
119 W !," DOSE..........................: 00000"
120 S $P(^ONCO(165.5,ONCONUM,"STS2"),U,8)=0
121 W !," RADIATION ENERGY (MV).........: 00"
122 Q
123IR9 S $P(^ONCO(165.5,ONCONUM,"STS2"),U,7)=99999
124 W !," DOSE..........................: 99999"
125 S $P(^ONCO(165.5,ONCONUM,"STS2"),U,8)=99
126 W !," RADIATION ENERGY (MV).........: 99"
127 Q
128B0 S $P(^ONCO(165.5,ONCONUM,"STS2"),U,10)=0
129 W !," NUMBER OF DAYS GIVEN..........: 000"
130 S $P(^ONCO(165.5,ONCONUM,"STS2"),U,11)=0
131 W !," DOSE..........................: 00000"
132 S $P(^ONCO(165.5,ONCONUM,"STS2"),U,12)="0000000"
133 W !," DATE THERAPY STARTED..........: 00/00/0000"
134 S $P(^ONCO(165.5,ONCONUM,"STS2"),U,13)="0000000"
135 W !," DATE THERAPY ENDED............: 00/00/0000"
136 Q
137B9 S $P(^ONCO(165.5,ONCONUM,"STS2"),U,10)=999
138 W !," NUMBER OF DAYS GIVEN..........: 999"
139 S $P(^ONCO(165.5,ONCONUM,"STS2"),U,11)=99999
140 W !," DOSE..........................: 99999"
141 S $P(^ONCO(165.5,ONCONUM,"STS2"),U,12)=9999999
142 W !," DATE THERAPY STARTED..........: 99/99/9999"
143 S $P(^ONCO(165.5,ONCONUM,"STS2"),U,13)=9999999
144 W !," DATE THERAPY ENDED............: 99/99/9999"
145 Q
Note: See TracBrowser for help on using the repository browser.