ONCSPC8A ;HIRMFO/GWB -PCE Study of Soft Tissue Sarcoma - Print (continued) ;8/15/96
;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
I IOST'?1"C".E W ! D P Q:EX=U W ! D P Q:EX=U
S TABLE="TABLE IV - FIRST COURSE OF TREATMENT"
W !?15,TABLE,! D P Q:EX=U
S D0=ONCONUM D DFC^ONCOCOM S DOIT=Y
W !,"FIRST COURSE TREATMENT DATE.......: ",DOIT D P Q:EX=U
W !!,"SURGERY:",! D P Q:EX=U
S NCDS=ONC(165.5,IEN,58.1)
S (NCDS1,NCDS2)="",LOS=$L(NCDS) I LOS<45 S NCDS1=NCDS G CDS
S NOP=$L($E(NCDS,1,41)," ")
S NCDS1=$P(NCDS," ",1,NOP-1),NCDS2=$P(NCDS," ",NOP,999)
CDS S CDS=ONC(165.5,IEN,58.2)
S (CDS1,CDS2)="",LOS=$L(CDS) I LOS<45 S CDS1=CDS G S
S NOP=$L($E(CDS,1,41)," ")
S CDS1=$P(CDS," ",1,NOP-1),CDS2=$P(CDS," ",NOP,999)
S W !," NON CANCER-DIRECTED SURGERY DATE: ",ONC(165.5,IEN,58.3) D P Q:EX=U
W !," NON CANCER-DIRECTED SURGERY.....: ",NCDS1 W:NCDS2'="" !,?39,NCDS2 D P Q:EX=U
W !," SURGERY OF PRIMARY SITE DATE....: ",ONC(165.5,IEN,50) D P Q:EX=U
W !," SURGERY OF PRIMARY SITE.........: ",CDS1 W:CDS2'="" !,?39,CDS2
W !," RESIDUAL PRIMARY TUMOR..........: ",ONC(165.5,IEN,59)
W !," TREATING SURGEON................: ",ONC(165.5,IEN,526) D P Q:EX=U
W !," ASA CLASS.......................: ",ONC(165.5,IEN,527) D P Q:EX=U
W !," POSTOPERATIVE DEATH.............: ",ONC(165.5,IEN,441)
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
D P Q:EX=U
R W !!,"RADIATION THERAPY:",! D P Q:EX=U
W !," EXTERNAL BEAM RADIATION...: ",ONC(165.5,IEN,532),?42,"BRACHYTHERAPY...........: ",ONC(165.5,IEN,538) D P Q:EX=U
W !," NUMBER OF FRACTIONS.......: ",ONC(165.5,IEN,533),?42,"NUMBER OF DAYS GIVEN....: ",ONC(165.5,IEN,539) D P Q:EX=U
W !," DOSE......................: ",ONC(165.5,IEN,362),?42,"DOSE....................: ",ONC(165.5,IEN,540) D P Q:EX=U
W !," RADIATION ENERGY (MV).....: ",ONC(165.5,IEN,534),?42,"DATE THERAPY STARTED....: ",ONC(165.5,IEN,541) D P Q:EX=U
W !," DATE THERAPY STARTED......: ",ONC(165.5,IEN,567),?42,"DATE THERAPY ENDED......: ",ONC(165.5,IEN,542) D P Q:EX=U
W !," DATE THERAPY ENDED........: ",ONC(165.5,IEN,361)
W !!," INTRAOPERATIVE RADIATION..: ",ONC(165.5,IEN,535) D P Q:EX=U
W !," DOSE......................: ",ONC(165.5,IEN,536) D P Q:EX=U
W !," RADIATION ENERGY (MV).....: ",ONC(165.5,IEN,537) D P Q:EX=U
W !!," RADIATION/SURGERY SEQUENCE: ",ONC(165.5,IEN,51.3)
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
D P Q:EX=U
C W !!,"CHEMOTHERAPY:",! D P Q:EX=U
W !," CHEMOTHERAPY........: ",ONC(165.5,IEN,53.2) D P Q:EX=U
W !," DATE OF CHEMOTHERAPY: ",ONC(165.5,IEN,53) D P Q:EX=U
W !!," AGENT ADMINISTERED METHOD OF DELIVERY LOCATION" D P Q:EX=U
W !," ------------------ ------------------ --------" D P Q:EX=U
W !," CISPLATIN..: ",ONC(165.5,IEN,371),?24,ONC(165.5,IEN,547),?44,ONC(165.5,IEN,553) D P Q:EX=U
W !," CYTOXAN....: ",ONC(165.5,IEN,543),?24,ONC(165.5,IEN,548),?44,ONC(165.5,IEN,554) D P Q:EX=U
W !," DTIC.......: ",ONC(165.5,IEN,544),?24,ONC(165.5,IEN,549),?44,ONC(165.5,IEN,555) D P Q:EX=U
W !," DOXORUBICIN: ",ONC(165.5,IEN,545),?24,ONC(165.5,IEN,550),?44,ONC(165.5,IEN,556) D P Q:EX=U
W !," ETOPOSIDE..: ",ONC(165.5,IEN,546),?24,ONC(165.5,IEN,551),?44,ONC(165.5,IEN,557) D P Q:EX=U
W !," IFOSFAMIDE.: ",ONC(165.5,IEN,375),?24,ONC(165.5,IEN,552),?44,ONC(165.5,IEN,558) D P Q:EX=U
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
D P Q:EX=U
CSF W !!," COLONY STIMULATION FACTOR........: ",ONC(165.5,IEN,559) D P Q:EX=U
W !," NATIONAL TREATMENT PROTOCOL......: ",ONC(165.5,IEN,560) D P Q:EX=U
W !," OTHER PROTOCOL...................: ",ONC(165.5,IEN,561) D P Q:EX=U
W !," REFERRED TO REHAB SERVICES.......: ",ONC(165.5,IEN,562) D P Q:EX=U
W !," CONSULT W PHYSICAL THERAPY/REHAB.: ",ONC(165.5,IEN,563) D P Q:EX=U
W !," TRANSFERRED TO REHAB FACILITY....: ",ONC(165.5,IEN,564) D P Q:EX=U
W !," NO OF HOSPITALIZATIONS W/I 6 MO..: ",ONC(165.5,IEN,565) D P Q:EX=U
W !," TOTAL LENGTH OF STAYS............: ",ONC(165.5,IEN,566) D P Q:EX=U
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCSPC8 G V
D P Q:EX=U
V S TABLE="TABLE V - FIRST RECURRENCE AND SUBSEQUENT TREATMENT"
I IOST'?1"C".E W ! D P Q:EX=U W ! D P Q:EX=U
W !?15,TABLE,! D P Q:EX=U
W !,"DATE OF FIRST RECURRENCE..........: ",ONC(165.5,IEN,70) D P Q:EX=U
W !,"TYPE OF FIRST RECURRENCE..........: ",ONC(165.5,IEN,71) D P Q:EX=U
W !,"OTHER TYPE OF FIRST RECURRENCE....: ",ONC(165.5,IEN,71.4) D P Q:EX=U
DSOFR W !!,"DISTANT SITE(S) OF FIRST RECURRENCE:",!
W !,"RECURRENCE SITE 1.................: ",ONC(165.5,IEN,71.1) D P Q:EX=U
W !,"RECURRENCE SITE 2.................: ",ONC(165.5,IEN,71.2) D P Q:EX=U
W !,"RECURRENCE SITE 3.................: ",ONC(165.5,IEN,71.3) D P Q:EX=U
I '$D(^ONCO(165.5,IEN,4,0)) D STFROP W !!," NO SUBSEQUENT TREATMENT" G VEXIT
I $O(^ONCO(165.5,IEN,4,0))="" D STFROP W !!," NO SUBSEQUENT TREATMENT" G VEXIT
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
D P Q:EX=U
ST 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
G:EX=U KILL G VI
SCT S DIC="^ONCO(165.5,",DR=60,DA=IEN,DIQ="ONC"
S DR(165.51)=".01:32",DA(165.51)=SCTIEN D EN^DIQ1
S SURG=ONC(165.51,SCTIEN,.04),(SURG1,SURG2)=""
S LOS=$L(SURG) I LOS<62 S SURG1=SURG G TOS
S NOP=$L($E(SURG,1,61)," ")
S SURG1=$P(SURG," ",1,NOP-1),SURG2=$P(SURG," ",NOP,999)
TOS S COURSE=$S(CRSE=1:"SECOND",CRSE=2:"THIRD",CRSE=3:"FOURTH",1:"")
I IOST?1"C".E,CRSE>1 W !?15,TABLE_" (continued)"
W !!," ",COURSE," COURSE:",! D P Q:EX=U
W !," DATE...........: ",ONC(165.51,SCTIEN,.01) D P Q:EX=U
W !," SURGERY........: ",SURG1 W:SURG2'="" !,?22,SURG2 D P Q:EX=U
D P Q:EX=U
W !," RADIATION......: ",ONC(165.51,SCTIEN,.05) D P Q:EX=U
W !," CHEMOTHERAPY...: ",ONC(165.51,SCTIEN,.06) D P Q:EX=U
W !," HORMONE THERAPY: ",ONC(165.51,SCTIEN,.07)
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR S:'Y EX=U Q:'Y D HDR^ONCSPC8 Q
D P Q:EX=U
Q
VEXIT I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCSPC8 G VI
D P Q:EX=U
VI S TABLE="TABLE VI - STATUS AT LAST CONTACT"
I IOST'?1"C".E W ! D P Q:EX=U W ! D P Q:EX=U
W !?15,TABLE,! D P Q:EX=U
S DLC="" I $D(^ONCO(160,ONCOPA,"F","B")) S DLC=$O(^ONCO(160,ONCOPA,"F","B",""),-1)
I DLC'="" S Y=DLC D DATEOT^ONCOPCE S DLC=Y
W !,"DATE OF LAST CONTACT OR DEATH.....: ",DLC
W !,"VITAL STATUS......................: ",ONC(160,ONCOPA,15) D P Q:EX=U
S CS="" I $D(^ONCO(165.5,IEN,"TS","AA")) D
.S CSDAT=$O(^ONCO(165.5,IEN,"TS","AA",""))
.S CSIEN=$O(^ONCO(165.5,IEN,"TS","AA",CSDAT,""))
.S CSPNT=$P(^ONCO(165.5,IEN,"TS",CSIEN,0),U,2)
.S CS=$P(^ONCO(164.42,CSPNT,0),U,1)
W !,"CANCER STATUS.....................: ",CS
W !!,"COMPLETED BY......................: ",ONC(165.5,IEN,81) D P Q:EX=U
W !,"REVIEWED BY CANCER COMMITTEE......: ",ONC(165.5,IEN,82) D P Q:EX=U
W !
I IOST?1"C".E K DIR S DIR(0)="E" D ^DIR
KILL ;Kill Variables and Exit
K %,DIR,DIROUT,DIRUT,DTOUT,DUOUT,FILN,ONCOBL,EX,TXT,X,Y,SCTIEN
Q
P ;Display Data
I ($Y'<(LIN-2)) D Q:EX=U W !?15,TABLE_" (continued)",!
.I IOST?1"C".E K DIR S DIR(0)="E" D ^DIR I 'Y S EX=U Q
.D HDR^ONCSPC8 Q
Q
STFROP W !!,"SUBSEQUENT TREATMENT FOR RECURRENCE OR PROGRESSION:"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCSPC8A 7434 printed Dec 13, 2024@02:28:43 Page 2
ONCSPC8A ;HIRMFO/GWB -PCE Study of Soft Tissue Sarcoma - Print (continued) ;8/15/96
+1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
+2 IF IOST'?1"C".E
WRITE !
DO P
if EX=U
QUIT
WRITE !
DO P
if EX=U
QUIT
+3 SET TABLE="TABLE IV - FIRST COURSE OF TREATMENT"
+4 WRITE !?15,TABLE,!
DO P
if EX=U
QUIT
+5 SET D0=ONCONUM
DO DFC^ONCOCOM
SET DOIT=Y
+6 WRITE !,"FIRST COURSE TREATMENT DATE.......: ",DOIT
DO P
if EX=U
QUIT
+7 WRITE !!,"SURGERY:",!
DO P
if EX=U
QUIT
+8 SET NCDS=ONC(165.5,IEN,58.1)
+9 SET (NCDS1,NCDS2)=""
SET LOS=$LENGTH(NCDS)
IF LOS<45
SET NCDS1=NCDS
GOTO CDS
+10 SET NOP=$LENGTH($EXTRACT(NCDS,1,41)," ")
+11 SET NCDS1=$PIECE(NCDS," ",1,NOP-1)
SET NCDS2=$PIECE(NCDS," ",NOP,999)
CDS SET CDS=ONC(165.5,IEN,58.2)
+1 SET (CDS1,CDS2)=""
SET LOS=$LENGTH(CDS)
IF LOS<45
SET CDS1=CDS
GOTO S
+2 SET NOP=$LENGTH($EXTRACT(CDS,1,41)," ")
+3 SET CDS1=$PIECE(CDS," ",1,NOP-1)
SET CDS2=$PIECE(CDS," ",NOP,999)
S WRITE !," NON CANCER-DIRECTED SURGERY DATE: ",ONC(165.5,IEN,58.3)
DO P
if EX=U
QUIT
+1 WRITE !," NON CANCER-DIRECTED SURGERY.....: ",NCDS1
if NCDS2'=""
WRITE !,?39,NCDS2
DO P
if EX=U
QUIT
+2 WRITE !," SURGERY OF PRIMARY SITE DATE....: ",ONC(165.5,IEN,50)
DO P
if EX=U
QUIT
+3 WRITE !," SURGERY OF PRIMARY SITE.........: ",CDS1
if CDS2'=""
WRITE !,?39,CDS2
+4 WRITE !," RESIDUAL PRIMARY TUMOR..........: ",ONC(165.5,IEN,59)
+5 WRITE !," TREATING SURGEON................: ",ONC(165.5,IEN,526)
DO P
if EX=U
QUIT
+6 WRITE !," ASA CLASS.......................: ",ONC(165.5,IEN,527)
DO P
if EX=U
QUIT
+7 WRITE !," POSTOPERATIVE DEATH.............: ",ONC(165.5,IEN,441)
+8 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
DO HDR^ONCSPC8
WRITE !?15,TABLE_" (continued)"
GOTO R
+9 DO P
if EX=U
QUIT
R WRITE !!,"RADIATION THERAPY:",!
DO P
if EX=U
QUIT
+1 WRITE !," EXTERNAL BEAM RADIATION...: ",ONC(165.5,IEN,532),?42,"BRACHYTHERAPY...........: ",ONC(165.5,IEN,538)
DO P
if EX=U
QUIT
+2 WRITE !," NUMBER OF FRACTIONS.......: ",ONC(165.5,IEN,533),?42,"NUMBER OF DAYS GIVEN....: ",ONC(165.5,IEN,539)
DO P
if EX=U
QUIT
+3 WRITE !," DOSE......................: ",ONC(165.5,IEN,362),?42,"DOSE....................: ",ONC(165.5,IEN,540)
DO P
if EX=U
QUIT
+4 WRITE !," RADIATION ENERGY (MV).....: ",ONC(165.5,IEN,534),?42,"DATE THERAPY STARTED....: ",ONC(165.5,IEN,541)
DO P
if EX=U
QUIT
+5 WRITE !," DATE THERAPY STARTED......: ",ONC(165.5,IEN,567),?42,"DATE THERAPY ENDED......: ",ONC(165.5,IEN,542)
DO P
if EX=U
QUIT
+6 WRITE !," DATE THERAPY ENDED........: ",ONC(165.5,IEN,361)
+7 WRITE !!," INTRAOPERATIVE RADIATION..: ",ONC(165.5,IEN,535)
DO P
if EX=U
QUIT
+8 WRITE !," DOSE......................: ",ONC(165.5,IEN,536)
DO P
if EX=U
QUIT
+9 WRITE !," RADIATION ENERGY (MV).....: ",ONC(165.5,IEN,537)
DO P
if EX=U
QUIT
+10 WRITE !!," RADIATION/SURGERY SEQUENCE: ",ONC(165.5,IEN,51.3)
+11 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
DO HDR^ONCSPC8
WRITE !?15,TABLE_" (continued)"
GOTO C
+12 DO P
if EX=U
QUIT
C WRITE !!,"CHEMOTHERAPY:",!
DO P
if EX=U
QUIT
+1 WRITE !," CHEMOTHERAPY........: ",ONC(165.5,IEN,53.2)
DO P
if EX=U
QUIT
+2 WRITE !," DATE OF CHEMOTHERAPY: ",ONC(165.5,IEN,53)
DO P
if EX=U
QUIT
+3 WRITE !!," AGENT ADMINISTERED METHOD OF DELIVERY LOCATION"
DO P
if EX=U
QUIT
+4 WRITE !," ------------------ ------------------ --------"
DO P
if EX=U
QUIT
+5 WRITE !," CISPLATIN..: ",ONC(165.5,IEN,371),?24,ONC(165.5,IEN,547),?44,ONC(165.5,IEN,553)
DO P
if EX=U
QUIT
+6 WRITE !," CYTOXAN....: ",ONC(165.5,IEN,543),?24,ONC(165.5,IEN,548),?44,ONC(165.5,IEN,554)
DO P
if EX=U
QUIT
+7 WRITE !," DTIC.......: ",ONC(165.5,IEN,544),?24,ONC(165.5,IEN,549),?44,ONC(165.5,IEN,555)
DO P
if EX=U
QUIT
+8 WRITE !," DOXORUBICIN: ",ONC(165.5,IEN,545),?24,ONC(165.5,IEN,550),?44,ONC(165.5,IEN,556)
DO P
if EX=U
QUIT
+9 WRITE !," ETOPOSIDE..: ",ONC(165.5,IEN,546),?24,ONC(165.5,IEN,551),?44,ONC(165.5,IEN,557)
DO P
if EX=U
QUIT
+10 WRITE !," IFOSFAMIDE.: ",ONC(165.5,IEN,375),?24,ONC(165.5,IEN,552),?44,ONC(165.5,IEN,558)
DO P
if EX=U
QUIT
+11 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
DO HDR^ONCSPC8
WRITE !?15,TABLE_" (continued)"
GOTO CSF
+12 DO P
if EX=U
QUIT
CSF WRITE !!," COLONY STIMULATION FACTOR........: ",ONC(165.5,IEN,559)
DO P
if EX=U
QUIT
+1 WRITE !," NATIONAL TREATMENT PROTOCOL......: ",ONC(165.5,IEN,560)
DO P
if EX=U
QUIT
+2 WRITE !," OTHER PROTOCOL...................: ",ONC(165.5,IEN,561)
DO P
if EX=U
QUIT
+3 WRITE !," REFERRED TO REHAB SERVICES.......: ",ONC(165.5,IEN,562)
DO P
if EX=U
QUIT
+4 WRITE !," CONSULT W PHYSICAL THERAPY/REHAB.: ",ONC(165.5,IEN,563)
DO P
if EX=U
QUIT
+5 WRITE !," TRANSFERRED TO REHAB FACILITY....: ",ONC(165.5,IEN,564)
DO P
if EX=U
QUIT
+6 WRITE !," NO OF HOSPITALIZATIONS W/I 6 MO..: ",ONC(165.5,IEN,565)
DO P
if EX=U
QUIT
+7 WRITE !," TOTAL LENGTH OF STAYS............: ",ONC(165.5,IEN,566)
DO P
if EX=U
QUIT
+8 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
DO HDR^ONCSPC8
GOTO V
+9 DO P
if EX=U
QUIT
V SET TABLE="TABLE V - FIRST RECURRENCE AND SUBSEQUENT TREATMENT"
+1 IF IOST'?1"C".E
WRITE !
DO P
if EX=U
QUIT
WRITE !
DO P
if EX=U
QUIT
+2 WRITE !?15,TABLE,!
DO P
if EX=U
QUIT
+3 WRITE !,"DATE OF FIRST RECURRENCE..........: ",ONC(165.5,IEN,70)
DO P
if EX=U
QUIT
+4 WRITE !,"TYPE OF FIRST RECURRENCE..........: ",ONC(165.5,IEN,71)
DO P
if EX=U
QUIT
+5 WRITE !,"OTHER TYPE OF FIRST RECURRENCE....: ",ONC(165.5,IEN,71.4)
DO P
if EX=U
QUIT
DSOFR WRITE !!,"DISTANT SITE(S) OF FIRST RECURRENCE:",!
+1 WRITE !,"RECURRENCE SITE 1.................: ",ONC(165.5,IEN,71.1)
DO P
if EX=U
QUIT
+2 WRITE !,"RECURRENCE SITE 2.................: ",ONC(165.5,IEN,71.2)
DO P
if EX=U
QUIT
+3 WRITE !,"RECURRENCE SITE 3.................: ",ONC(165.5,IEN,71.3)
DO P
if EX=U
QUIT
+4 IF '$DATA(^ONCO(165.5,IEN,4,0))
DO STFROP
WRITE !!," NO SUBSEQUENT TREATMENT"
GOTO VEXIT
+5 IF $ORDER(^ONCO(165.5,IEN,4,0))=""
DO STFROP
WRITE !!," NO SUBSEQUENT TREATMENT"
GOTO VEXIT
+6 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
DO HDR^ONCSPC8
WRITE !?15,TABLE_" (continued)"
GOTO ST
+7 DO P
if EX=U
QUIT
ST DO STFROP
IF $DATA(^ONCO(165.5,IEN,4,0))
SET SCTIEN=0
FOR CRSE=1:1
SET SCTIEN=$ORDER(^ONCO(165.5,IEN,4,SCTIEN))
if (SCTIEN'>0)!(CRSE=4)!(EX=U)
QUIT
DO SCT
+1 if EX=U
GOTO KILL
GOTO VI
SCT SET DIC="^ONCO(165.5,"
SET DR=60
SET DA=IEN
SET DIQ="ONC"
+1 SET DR(165.51)=".01:32"
SET DA(165.51)=SCTIEN
DO EN^DIQ1
+2 SET SURG=ONC(165.51,SCTIEN,.04)
SET (SURG1,SURG2)=""
+3 SET LOS=$LENGTH(SURG)
IF LOS<62
SET SURG1=SURG
GOTO TOS
+4 SET NOP=$LENGTH($EXTRACT(SURG,1,61)," ")
+5 SET SURG1=$PIECE(SURG," ",1,NOP-1)
SET SURG2=$PIECE(SURG," ",NOP,999)
TOS SET COURSE=$SELECT(CRSE=1:"SECOND",CRSE=2:"THIRD",CRSE=3:"FOURTH",1:"")
+1 IF IOST?1"C".E
IF CRSE>1
WRITE !?15,TABLE_" (continued)"
+2 WRITE !!," ",COURSE," COURSE:",!
DO P
if EX=U
QUIT
+3 WRITE !," DATE...........: ",ONC(165.51,SCTIEN,.01)
DO P
if EX=U
QUIT
+4 WRITE !," SURGERY........: ",SURG1
if SURG2'=""
WRITE !,?22,SURG2
DO P
if EX=U
QUIT
+5 DO P
if EX=U
QUIT
+6 WRITE !," RADIATION......: ",ONC(165.51,SCTIEN,.05)
DO P
if EX=U
QUIT
+7 WRITE !," CHEMOTHERAPY...: ",ONC(165.51,SCTIEN,.06)
DO P
if EX=U
QUIT
+8 WRITE !," HORMONE THERAPY: ",ONC(165.51,SCTIEN,.07)
+9 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
SET EX=U
if 'Y
QUIT
DO HDR^ONCSPC8
QUIT
+10 DO P
if EX=U
QUIT
+11 QUIT
VEXIT IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
DO HDR^ONCSPC8
GOTO VI
+1 DO P
if EX=U
QUIT
VI SET TABLE="TABLE VI - STATUS AT LAST CONTACT"
+1 IF IOST'?1"C".E
WRITE !
DO P
if EX=U
QUIT
WRITE !
DO P
if EX=U
QUIT
+2 WRITE !?15,TABLE,!
DO P
if EX=U
QUIT
+3 SET DLC=""
IF $DATA(^ONCO(160,ONCOPA,"F","B"))
SET DLC=$ORDER(^ONCO(160,ONCOPA,"F","B",""),-1)
+4 IF DLC'=""
SET Y=DLC
DO DATEOT^ONCOPCE
SET DLC=Y
+5 WRITE !,"DATE OF LAST CONTACT OR DEATH.....: ",DLC
+6 WRITE !,"VITAL STATUS......................: ",ONC(160,ONCOPA,15)
DO P
if EX=U
QUIT
+7 SET CS=""
IF $DATA(^ONCO(165.5,IEN,"TS","AA"))
Begin DoDot:1
+8 SET CSDAT=$ORDER(^ONCO(165.5,IEN,"TS","AA",""))
+9 SET CSIEN=$ORDER(^ONCO(165.5,IEN,"TS","AA",CSDAT,""))
+10 SET CSPNT=$PIECE(^ONCO(165.5,IEN,"TS",CSIEN,0),U,2)
+11 SET CS=$PIECE(^ONCO(164.42,CSPNT,0),U,1)
End DoDot:1
+12 WRITE !,"CANCER STATUS.....................: ",CS
+13 WRITE !!,"COMPLETED BY......................: ",ONC(165.5,IEN,81)
DO P
if EX=U
QUIT
+14 WRITE !,"REVIEWED BY CANCER COMMITTEE......: ",ONC(165.5,IEN,82)
DO P
if EX=U
QUIT
+15 WRITE !
+16 IF IOST?1"C".E
KILL DIR
SET DIR(0)="E"
DO ^DIR
KILL ;Kill Variables and Exit
+1 KILL %,DIR,DIROUT,DIRUT,DTOUT,DUOUT,FILN,ONCOBL,EX,TXT,X,Y,SCTIEN
+2 QUIT
P ;Display Data
+1 IF ($Y'<(LIN-2))
Begin DoDot:1
+2 IF IOST?1"C".E
KILL DIR
SET DIR(0)="E"
DO ^DIR
IF 'Y
SET EX=U
QUIT
+3 DO HDR^ONCSPC8
QUIT
End DoDot:1
if EX=U
QUIT
WRITE !?15,TABLE_" (continued)",!
+4 QUIT
STFROP WRITE !!,"SUBSEQUENT TREATMENT FOR RECURRENCE OR PROGRESSION:"
+1 QUIT
