source: FOIAVistA/trunk/r/ONCOLOGY-ONC/ONCSPC8A.m@ 922

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

initial load of FOIAVistA 6/30/08 version
File size: 7.1 KB
Line 
1ONCSPC8A ;HIRMFO/GWB -PCE Study of Soft Tissue Sarcoma - Print (continued) ;8/15/96
2 ;;2.11;ONCOLOGY;**6,15,16**;Mar 07, 1995
3 I IOST'?1"C".E W ! D P Q:EX=U W ! D P Q:EX=U
4 S TABLE="TABLE IV - FIRST COURSE OF TREATMENT"
5 W !?15,TABLE,! D P Q:EX=U
6 S D0=ONCONUM D DFC^ONCOCOM S DOIT=Y
7 W !,"FIRST COURSE TREATMENT DATE.......: ",DOIT D P Q:EX=U
8 W !!,"SURGERY:",! D P Q:EX=U
9 S NCDS=ONC(165.5,IEN,58.1)
10 S (NCDS1,NCDS2)="",LOS=$L(NCDS) I LOS<45 S NCDS1=NCDS G CDS
11 S NOP=$L($E(NCDS,1,41)," ")
12 S NCDS1=$P(NCDS," ",1,NOP-1),NCDS2=$P(NCDS," ",NOP,999)
13CDS S CDS=ONC(165.5,IEN,58.2)
14 S (CDS1,CDS2)="",LOS=$L(CDS) I LOS<45 S CDS1=CDS G S
15 S NOP=$L($E(CDS,1,41)," ")
16 S CDS1=$P(CDS," ",1,NOP-1),CDS2=$P(CDS," ",NOP,999)
17S W !," NON CANCER-DIRECTED SURGERY DATE: ",ONC(165.5,IEN,58.3) D P Q:EX=U
18 W !," NON CANCER-DIRECTED SURGERY.....: ",NCDS1 W:NCDS2'="" !,?39,NCDS2 D P Q:EX=U
19 W !," SURGERY OF PRIMARY SITE DATE....: ",ONC(165.5,IEN,50) D P Q:EX=U
20 W !," SURGERY OF PRIMARY SITE.........: ",CDS1 W:CDS2'="" !,?39,CDS2
21 W !," RESIDUAL PRIMARY TUMOR..........: ",ONC(165.5,IEN,59)
22 W !," TREATING SURGEON................: ",ONC(165.5,IEN,526) D P Q:EX=U
23 W !," ASA CLASS.......................: ",ONC(165.5,IEN,527) D P Q:EX=U
24 W !," POSTOPERATIVE DEATH.............: ",ONC(165.5,IEN,441)
25 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCSPC8 W !?15,TABLE_" (continued)" G R
26 D P Q:EX=U
27R W !!,"RADIATION THERAPY:",! D P Q:EX=U
28 W !," EXTERNAL BEAM RADIATION...: ",ONC(165.5,IEN,532),?42,"BRACHYTHERAPY...........: ",ONC(165.5,IEN,538) D P Q:EX=U
29 W !," NUMBER OF FRACTIONS.......: ",ONC(165.5,IEN,533),?42,"NUMBER OF DAYS GIVEN....: ",ONC(165.5,IEN,539) D P Q:EX=U
30 W !," DOSE......................: ",ONC(165.5,IEN,362),?42,"DOSE....................: ",ONC(165.5,IEN,540) D P Q:EX=U
31 W !," RADIATION ENERGY (MV).....: ",ONC(165.5,IEN,534),?42,"DATE THERAPY STARTED....: ",ONC(165.5,IEN,541) D P Q:EX=U
32 W !," DATE THERAPY STARTED......: ",ONC(165.5,IEN,567),?42,"DATE THERAPY ENDED......: ",ONC(165.5,IEN,542) D P Q:EX=U
33 W !," DATE THERAPY ENDED........: ",ONC(165.5,IEN,361)
34 W !!," INTRAOPERATIVE RADIATION..: ",ONC(165.5,IEN,535) D P Q:EX=U
35 W !," DOSE......................: ",ONC(165.5,IEN,536) D P Q:EX=U
36 W !," RADIATION ENERGY (MV).....: ",ONC(165.5,IEN,537) D P Q:EX=U
37 W !!," RADIATION/SURGERY SEQUENCE: ",ONC(165.5,IEN,51.3)
38 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCSPC8 W !?15,TABLE_" (continued)" G C
39 D P Q:EX=U
40C W !!,"CHEMOTHERAPY:",! D P Q:EX=U
41 W !," CHEMOTHERAPY........: ",ONC(165.5,IEN,53.2) D P Q:EX=U
42 W !," DATE OF CHEMOTHERAPY: ",ONC(165.5,IEN,53) D P Q:EX=U
43 W !!," AGENT ADMINISTERED METHOD OF DELIVERY LOCATION" D P Q:EX=U
44 W !," ------------------ ------------------ --------" D P Q:EX=U
45 W !," CISPLATIN..: ",ONC(165.5,IEN,371),?24,ONC(165.5,IEN,547),?44,ONC(165.5,IEN,553) D P Q:EX=U
46 W !," CYTOXAN....: ",ONC(165.5,IEN,543),?24,ONC(165.5,IEN,548),?44,ONC(165.5,IEN,554) D P Q:EX=U
47 W !," DTIC.......: ",ONC(165.5,IEN,544),?24,ONC(165.5,IEN,549),?44,ONC(165.5,IEN,555) D P Q:EX=U
48 W !," DOXORUBICIN: ",ONC(165.5,IEN,545),?24,ONC(165.5,IEN,550),?44,ONC(165.5,IEN,556) D P Q:EX=U
49 W !," ETOPOSIDE..: ",ONC(165.5,IEN,546),?24,ONC(165.5,IEN,551),?44,ONC(165.5,IEN,557) D P Q:EX=U
50 W !," IFOSFAMIDE.: ",ONC(165.5,IEN,375),?24,ONC(165.5,IEN,552),?44,ONC(165.5,IEN,558) D P Q:EX=U
51 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCSPC8 W !?15,TABLE_" (continued)" G CSF
52 D P Q:EX=U
53CSF W !!," COLONY STIMULATION FACTOR........: ",ONC(165.5,IEN,559) D P Q:EX=U
54 W !," NATIONAL TREATMENT PROTOCOL......: ",ONC(165.5,IEN,560) D P Q:EX=U
55 W !," OTHER PROTOCOL...................: ",ONC(165.5,IEN,561) D P Q:EX=U
56 W !," REFERRED TO REHAB SERVICES.......: ",ONC(165.5,IEN,562) D P Q:EX=U
57 W !," CONSULT W PHYSICAL THERAPY/REHAB.: ",ONC(165.5,IEN,563) D P Q:EX=U
58 W !," TRANSFERRED TO REHAB FACILITY....: ",ONC(165.5,IEN,564) D P Q:EX=U
59 W !," NO OF HOSPITALIZATIONS W/I 6 MO..: ",ONC(165.5,IEN,565) D P Q:EX=U
60 W !," TOTAL LENGTH OF STAYS............: ",ONC(165.5,IEN,566) D P Q:EX=U
61 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCSPC8 G V
62 D P Q:EX=U
63V S TABLE="TABLE V - FIRST RECURRENCE AND SUBSEQUENT TREATMENT"
64 I IOST'?1"C".E W ! D P Q:EX=U W ! D P Q:EX=U
65 W !?15,TABLE,! D P Q:EX=U
66 W !,"DATE OF FIRST RECURRENCE..........: ",ONC(165.5,IEN,70) D P Q:EX=U
67 W !,"TYPE OF FIRST RECURRENCE..........: ",ONC(165.5,IEN,71) D P Q:EX=U
68 W !,"OTHER TYPE OF FIRST RECURRENCE....: ",ONC(165.5,IEN,71.4) D P Q:EX=U
69DSOFR W !!,"DISTANT SITE(S) OF FIRST RECURRENCE:",!
70 W !,"RECURRENCE SITE 1.................: ",ONC(165.5,IEN,71.1) D P Q:EX=U
71 W !,"RECURRENCE SITE 2.................: ",ONC(165.5,IEN,71.2) D P Q:EX=U
72 W !,"RECURRENCE SITE 3.................: ",ONC(165.5,IEN,71.3) D P Q:EX=U
73 I '$D(^ONCO(165.5,IEN,4,0)) D STFROP W !!," NO SUBSEQUENT TREATMENT" G VEXIT
74 I $O(^ONCO(165.5,IEN,4,0))="" D STFROP W !!," NO SUBSEQUENT TREATMENT" G VEXIT
75 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCSPC8 W !?15,TABLE_" (continued)" G ST
76 D P Q:EX=U
77ST D STFROP I $D(^ONCO(165.5,IEN,4,0)) S SCTIEN=0 F CRSE=1:1 S SCTIEN=$O(^ONCO(165.5,IEN,4,SCTIEN)) Q:(SCTIEN'>0)!(CRSE=4)!(EX=U) D SCT
78 G:EX=U KILL G VI
79SCT S DIC="^ONCO(165.5,",DR=60,DA=IEN,DIQ="ONC"
80 S DR(165.51)=".01:32",DA(165.51)=SCTIEN D EN^DIQ1
81 S SURG=ONC(165.51,SCTIEN,.04),(SURG1,SURG2)=""
82 S LOS=$L(SURG) I LOS<62 S SURG1=SURG G TOS
83 S NOP=$L($E(SURG,1,61)," ")
84 S SURG1=$P(SURG," ",1,NOP-1),SURG2=$P(SURG," ",NOP,999)
85TOS S COURSE=$S(CRSE=1:"SECOND",CRSE=2:"THIRD",CRSE=3:"FOURTH",1:"")
86 I IOST?1"C".E,CRSE>1 W !?15,TABLE_" (continued)"
87 W !!," ",COURSE," COURSE:",! D P Q:EX=U
88 W !," DATE...........: ",ONC(165.51,SCTIEN,.01) D P Q:EX=U
89 W !," SURGERY........: ",SURG1 W:SURG2'="" !,?22,SURG2 D P Q:EX=U
90 D P Q:EX=U
91 W !," RADIATION......: ",ONC(165.51,SCTIEN,.05) D P Q:EX=U
92 W !," CHEMOTHERAPY...: ",ONC(165.51,SCTIEN,.06) D P Q:EX=U
93 W !," HORMONE THERAPY: ",ONC(165.51,SCTIEN,.07)
94 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR S:'Y EX=U Q:'Y D HDR^ONCSPC8 Q
95 D P Q:EX=U
96 Q
97VEXIT I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCSPC8 G VI
98 D P Q:EX=U
99VI S TABLE="TABLE VI - STATUS AT LAST CONTACT"
100 I IOST'?1"C".E W ! D P Q:EX=U W ! D P Q:EX=U
101 W !?15,TABLE,! D P Q:EX=U
102 S DLC="" I $D(^ONCO(160,ONCOPA,"F","B")) S DLC=$O(^ONCO(160,ONCOPA,"F","B",""),-1)
103 I DLC'="" S Y=DLC D DATEOT^ONCOPCE S DLC=Y
104 W !,"DATE OF LAST CONTACT OR DEATH.....: ",DLC
105 W !,"VITAL STATUS......................: ",ONC(160,ONCOPA,15) D P Q:EX=U
106 S CS="" I $D(^ONCO(165.5,IEN,"TS","AA")) D
107 .S CSDAT=$O(^ONCO(165.5,IEN,"TS","AA",""))
108 .S CSIEN=$O(^ONCO(165.5,IEN,"TS","AA",CSDAT,""))
109 .S CSPNT=$P(^ONCO(165.5,IEN,"TS",CSIEN,0),U,2)
110 .S CS=$P(^ONCO(164.42,CSPNT,0),U,1)
111 W !,"CANCER STATUS.....................: ",CS
112 W !!,"COMPLETED BY......................: ",ONC(165.5,IEN,81) D P Q:EX=U
113 W !,"REVIEWED BY CANCER COMMITTEE......: ",ONC(165.5,IEN,82) D P Q:EX=U
114 W !
115 I IOST?1"C".E K DIR S DIR(0)="E" D ^DIR
116KILL ;Kill Variables and Exit
117 K %,DIR,DIROUT,DIRUT,DTOUT,DUOUT,FILN,ONCOBL,EX,TXT,X,Y,SCTIEN
118 Q
119P ;Display Data
120 I ($Y'<(LIN-2)) D Q:EX=U W !?15,TABLE_" (continued)",!
121 .I IOST?1"C".E K DIR S DIR(0)="E" D ^DIR I 'Y S EX=U Q
122 .D HDR^ONCSPC8 Q
123 Q
124STFROP W !!,"SUBSEQUENT TREATMENT FOR RECURRENCE OR PROGRESSION:"
125 Q
Note: See TracBrowser for help on using the repository browser.