ONCP2P8A ;HINES CIOFO/GWB - 1998 Prostate Cancer Study - print ;6/1/98
;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
III S TABLE="TABLE III - EXTENT AND STAGE OF DISEASE"
I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HEAD^ONCP2P0
W !?4,TABLE,!?4,"---------------------------------------" D P Q:EX=U
W !,"27. SIZE OF TUMOR (mm)...............: ",ONC(165.5,IE,29) D P Q:EX=U
W !,"28. REGIONAL NODES EXAMINED..........: ",ONC(165.5,IE,33) D P Q:EX=U
W !,"29. REGIONAL NODES POSITIVE..........: ",ONC(165.5,IE,32) D P Q:EX=U
ACS W !!,"30. AJCC CLINICAL STAGE (cTNM):" D P Q:EX=U
W !," T-CODE..........................: ",ONC(165.5,IE,37.1) D P Q:EX=U
W !," N-CODE..........................: ",ONC(165.5,IE,37.2) D P Q:EX=U
W !," M-CODE..........................: ",ONC(165.5,IE,37.3) D P Q:EX=U
W !," AJCC STAGE......................: ",ONC(165.5,IE,38) D P Q:EX=U
APS W !!,"31. AJCC PATHOLOGIC STAGE (pTNM):" D P Q:EX=U
W !," T-CODE..........................: ",ONC(165.5,IE,85) D P Q:EX=U
W !," N-CODE..........................: ",ONC(165.5,IE,86) D P Q:EX=U
W !," M-CODE..........................: ",ONC(165.5,IE,87)
W !," AJCC STAGE......................: ",ONC(165.5,IE,88)
K LINE S $P(LINE,"-",51)="-"
I IOST?1"C".E K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCP2P0 W !?4,TABLE_" (continued)",!?4,LINE G SB
W ! D P Q:EX=U
SB W !,"32. STAGED BY:" D P Q:EX=U
W !," CLINICAL STAGE..................: ",ONC(165.5,IE,19) D P Q:EX=U
W !," PATHOLOGIC STAGE................: ",ONC(165.5,IE,89) D P Q:EX=U
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCP2P0 G IV
D P Q:EX=U
IV S TABLE="TABLE IV - FIRST COURSE OF TREATMENT"
I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HEAD^ONCP2P0
K LINE S $P(LINE,"-",36)="-"
W !?4,TABLE,!?4,LINE D P Q:EX=U
K LINE S $P(LINE,"-",48)="-"
S D0=ONCONUM D DFC^ONCOCOM S DOFCT=Y
W !,"33. DATE OF FIRST COURSE TREATMENT...: ",DOFCT D P Q:EX=U
W !,"34. EXPECTED MGT/WATCHFUL WAITING....: ",ONC(165.5,IE,685) D P Q:EX=U
W !!?4,"SURGERY",!?4,"-------" D P Q:EX=U
W !?4,"NON CANCER-DIRECTED SURGERY",!?4,"---------------------------" D P Q:EX=U
S NCDS=ONC(165.5,IE,58.1)
S (NCDS1,NCDS2)="",LOS=$L(NCDS) I LOS<43 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,IE,58.2)
S (CDS1,CDS2)="",LOS=$L(CDS) I LOS<43 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 !,"35. DATE OF NON CA-DIRECTED SURGERY..: ",ONC(165.5,IE,58.3) D P Q:EX=U
W !,"36. NON CANCER-DIRECTED SURGERY......: ",NCDS1 W:NCDS2'="" !,?39,NCDS2 D P Q:EX=U
W !!?4,"CANCER-DIRECTED SURGERY",!?4,"-----------------------" D P Q:EX=U
W !,"37. DATE OF CANCER-DIRECTED SURGERY..: ",ONC(165.5,IE,50) D P Q:EX=U
W !,"38. LENGTH OF STAY AFTER SURGERY.....: ",ONC(165.5,IE,686) D P Q:EX=U
W !,"39. SURGICAL APPROACH................: ",ONC(165.5,IE,74) D P Q:EX=U
W !,"40. TYPE OF CANCER-DIRECTED SURGERY..: ",CDS1 W:CDS2'="" !,?39,CDS2
S SM=ONC(165.5,IE,59)
S (SM1,SM2)="",LOS=$L(SM) I LOS<43 S SM1=SM G SM
S NOP=$L($E(SM,1,41)," "),SM1=$P(SM," ",1,NOP-1),SM2=$P(SM," ",NOP,999)
SM W !,"41. SURGICAL MARGINS.................: ",SM1 W:SM2'="" !,?39,SM2 D P Q:EX=U
W !,"42. SCOPE OF LYMPH NODE SURGERY......: ",ONC(165.5,IE,138) D P Q:EX=U
W !!,"43. TYPE OF LYMPH NODE SURGERY:" D P Q:EX=U
W !," LAPAROSCOPIC....................: ",ONC(165.5,IE,687) D P Q:EX=U
W !," OPEN............................: ",ONC(165.5,IE,688) D P Q:EX=U
S SORS=ONC(165.5,ONCONUM,139)
S (SORS1,SORS2)="",LOS=$L(SORS) I LOS<43 S SORS1=SORS G SORS
S NOP=$L($E(SORS,1,41)," ")
S SORS1=$P(SORS," ",1,NOP-1),SORS2=$P(SORS," ",NOP,999)
SORS W !!,"44. SURGERY OF OTHER REGIONAL SITE(S), DISTANT SITE(S),"
W !," OR DISTANT LYMPH NODE(S).........: ",SORS1 W:SORS2'="" !,?39,SORS2 D P Q:EX=U
W !,"45. NUMBER OF LYMPH NODES REMOVED....: ",ONC(165.5,IE,140) D P Q:EX=U
W !,"46. RECONSTRUCTION/RESTORATION.......: ",ONC(165.5,IE,23) D P Q:EX=U
W !!,"47. COMPLICATIONS FOLLOWING SURGICAL FIRST COURSE OF TREATMENT:" D P Q:EX=U
W !," PERMANENT RECTAL INJURY.........: ",ONC(165.5,IE,689) D P Q:EX=U
W !," THROMBOEMBOLISM.................: ",ONC(165.5,IE,690) D P Q:EX=U
W !," URETHRAL STRICTURE..............: ",ONC(165.5,IE,691) D P Q:EX=U
W !!,"48. POSTOPERATIVE DEATH W/I 30 DAYS..: ",ONC(165.5,IE,441)
R W !!?4,"RADIATION THERAPY",!?4,"-----------------" D P Q:EX=U
W !,"49. DATE RADIATION STARTED...........: ",ONC(165.5,IE,51) D P Q:EX=U
W !,"50. RADIATION THERAPY................: ",ONC(165.5,IE,51.2) D P Q:EX=U
W !,"51. RADIATION FACILITY...............: ",ONC(165.5,IE,692) D P Q:EX=U
W !!,"52. INTERSTITIAL RADIATION/BRACHYTHERAPY ADMINISTERED:" D P Q:EX=U
W !," GOLD 198........................: ",ONC(165.5,IE,628) D P Q:EX=U
W !," IODINE 125......................: ",ONC(165.5,IE,627) D P Q:EX=U
W !," IRIDIUM 192.....................: ",ONC(165.5,IE,630) D P Q:EX=U
W !," OTHER INTERSTITIAL, NOS.........: ",ONC(165.5,IE,631) D P Q:EX=U
W !," PALLADIUM 103...................: ",ONC(165.5,IE,629) D P Q:EX=U
W !!,"53. ROUTE OF INTERSTITIAL RADIATION/"
W !," BRACHYTHERAPY ADMINISTERED.......: ",ONC(165.5,IE,693) D P Q:EX=U
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCP2P0 W !?4,TABLE_" (continued)",!?4,LINE G ERA
W ! D P Q:EX=U
ERA W !,"54. EXTERNAL RADIATION ADMINISTERED:"
W !," DISTANT METASTATIC SITES........: ",ONC(165.5,IE,636) D P Q:EX=U
W !," PROSTATE & PELVIC NODES.........: ",ONC(165.5,IE,634) D P Q:EX=U
W !," PROSTATE & PARA-AORTIC NODES....: ",ONC(165.5,IE,635) D P Q:EX=U
W !," PROSTATE REGION ONLY............: ",ONC(165.5,IE,633) D P Q:EX=U
W !," OTHER EXTERNAL SITES, NOS.......: ",ONC(165.5,IE,637) D P Q:EX=U
W !!,"55. TYPE OF EXTERNAL RADIATION"
W !," ADMINISTRATION...................: ",ONC(165.5,IE,694) D P Q:EX=U
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCP2P0 W !?4,TABLE_" (continued)",!?4,LINE G TERDIB
W ! D P Q:EX=U
TERDIB W !,"56. TOTAL EXTERNAL RAD DOSE (cGy) INCLUDING BOOST:"
W !," PROSTATE........................: ",ONC(165.5,IE,638) D P Q:EX=U
W !," PELVIC NODES....................: ",ONC(165.5,IE,639) D P Q:EX=U
W !," PARA-AORTIC NODES...............: ",ONC(165.5,IE,640) D P Q:EX=U
W !!,"57. COMPLICATIONS FOLLOWING RADIATION FIRST COURSE OF TREATMENT:"
W !," ACUTE GASTROINTESTINAL..........: ",ONC(165.5,IE,695) D P Q:EX=U
W !," ACUTE GASTROURINARY.............: ",ONC(165.5,IE,696) D P Q:EX=U
W !," ANORECTAL.......................: ",ONC(165.5,IE,697) D P Q:EX=U
W !," CHRONIC REQUIRING SURGERY OR"
W !," PROLONGED HOSPITALIZATION.......: ",ONC(165.5,IE,698) D P Q:EX=U
W !," URETHRAL OR BLADDER.............: ",ONC(165.5,IE,699) D P Q:EX=U
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCP2P0 W !?4,TABLE_" (continued)",!?4,LINE G H
W ! D P Q:EX=U
H W !," HORMONE THERAPY"
W !," ---------------"
W !,"58. DATE OF ORCHIECTOMY.............: ",ONC(165.5,IE,699.1) D P Q:EX=U
W !,"59. DATE EXOGENOUS HT BEGAN.........: ",ONC(165.5,IE,54) D P Q:EX=U
W !,"60. HORMONE THERAPY.................: ",ONC(165.5,IE,54.2) D P Q:EX=U
W !!,"61. EXOGENOUS HORMONE AGENTS ADMINISTERED:"
W !," ANTIANDROGENS...................: ",ONC(165.5,IE,644) D P Q:EX=U
W !," ESTROGENS.......................: ",ONC(165.5,IE,643) D P Q:EX=U
W !," LUTEINIZING HORMONES............: ",ONC(165.5,IE,646) D P Q:EX=U
W !," PROGESTATIONAL AGENTS...........: ",ONC(165.5,IE,645) D P Q:EX=U
W !," OTHER...........................: ",ONC(165.5,IE,648) D P Q:EX=U
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCP2P0 W !?4,TABLE_" (continued)",!?4,LINE G C
W ! D P Q:EX=U
C W !?4,"CHEMOTHERAPY",!?4,"------------" D P Q:EX=U
W !,"62. DATE CHEMOTHERAPY STARTED........: ",ONC(165.5,IE,53) D P Q:EX=U
W !,"63. CHEMOTHERAPY.....................: ",ONC(165.5,IE,53.2) D P Q:EX=U
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCP2P0 G V
D P Q:EX=U
V D ^ONCP2P8B
KILL ;Kill Variables and Exit
K %,DIR,DIROUT,DIRUT,DTOUT,DUOUT,FILN,ONCOBL,EX,TXT,X,Y
Q
P ;Display Data
I ($Y'<(LIN-1)) D Q:EX=U W !?4,TABLE_" (continued)",!?4,LINE
.I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR I 'Y S EX=U Q
.D HEAD^ONCP2P0 Q
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCP2P8A 8465 printed Oct 16, 2024@18:27:39 Page 2
ONCP2P8A ;HINES CIOFO/GWB - 1998 Prostate Cancer Study - print ;6/1/98
+1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
III SET TABLE="TABLE III - EXTENT AND STAGE OF DISEASE"
+1 IF IOST'?1"C".E
WRITE !
IF ($Y'<(LIN-4))
DO HEAD^ONCP2P0
+2 WRITE !?4,TABLE,!?4,"---------------------------------------"
DO P
if EX=U
QUIT
+3 WRITE !,"27. SIZE OF TUMOR (mm)...............: ",ONC(165.5,IE,29)
DO P
if EX=U
QUIT
+4 WRITE !,"28. REGIONAL NODES EXAMINED..........: ",ONC(165.5,IE,33)
DO P
if EX=U
QUIT
+5 WRITE !,"29. REGIONAL NODES POSITIVE..........: ",ONC(165.5,IE,32)
DO P
if EX=U
QUIT
ACS WRITE !!,"30. AJCC CLINICAL STAGE (cTNM):"
DO P
if EX=U
QUIT
+1 WRITE !," T-CODE..........................: ",ONC(165.5,IE,37.1)
DO P
if EX=U
QUIT
+2 WRITE !," N-CODE..........................: ",ONC(165.5,IE,37.2)
DO P
if EX=U
QUIT
+3 WRITE !," M-CODE..........................: ",ONC(165.5,IE,37.3)
DO P
if EX=U
QUIT
+4 WRITE !," AJCC STAGE......................: ",ONC(165.5,IE,38)
DO P
if EX=U
QUIT
APS WRITE !!,"31. AJCC PATHOLOGIC STAGE (pTNM):"
DO P
if EX=U
QUIT
+1 WRITE !," T-CODE..........................: ",ONC(165.5,IE,85)
DO P
if EX=U
QUIT
+2 WRITE !," N-CODE..........................: ",ONC(165.5,IE,86)
DO P
if EX=U
QUIT
+3 WRITE !," M-CODE..........................: ",ONC(165.5,IE,87)
+4 WRITE !," AJCC STAGE......................: ",ONC(165.5,IE,88)
+5 KILL LINE
SET $PIECE(LINE,"-",51)="-"
+6 IF IOST?1"C".E
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
DO HEAD^ONCP2P0
WRITE !?4,TABLE_" (continued)",!?4,LINE
GOTO SB
+7 WRITE !
DO P
if EX=U
QUIT
SB WRITE !,"32. STAGED BY:"
DO P
if EX=U
QUIT
+1 WRITE !," CLINICAL STAGE..................: ",ONC(165.5,IE,19)
DO P
if EX=U
QUIT
+2 WRITE !," PATHOLOGIC STAGE................: ",ONC(165.5,IE,89)
DO P
if EX=U
QUIT
+3 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
DO HEAD^ONCP2P0
GOTO IV
+4 DO P
if EX=U
QUIT
IV SET TABLE="TABLE IV - FIRST COURSE OF TREATMENT"
+1 IF IOST'?1"C".E
WRITE !
IF ($Y'<(LIN-4))
DO HEAD^ONCP2P0
+2 KILL LINE
SET $PIECE(LINE,"-",36)="-"
+3 WRITE !?4,TABLE,!?4,LINE
DO P
if EX=U
QUIT
+4 KILL LINE
SET $PIECE(LINE,"-",48)="-"
+5 SET D0=ONCONUM
DO DFC^ONCOCOM
SET DOFCT=Y
+6 WRITE !,"33. DATE OF FIRST COURSE TREATMENT...: ",DOFCT
DO P
if EX=U
QUIT
+7 WRITE !,"34. EXPECTED MGT/WATCHFUL WAITING....: ",ONC(165.5,IE,685)
DO P
if EX=U
QUIT
+8 WRITE !!?4,"SURGERY",!?4,"-------"
DO P
if EX=U
QUIT
+9 WRITE !?4,"NON CANCER-DIRECTED SURGERY",!?4,"---------------------------"
DO P
if EX=U
QUIT
+10 SET NCDS=ONC(165.5,IE,58.1)
+11 SET (NCDS1,NCDS2)=""
SET LOS=$LENGTH(NCDS)
IF LOS<43
SET NCDS1=NCDS
GOTO CDS
+12 SET NOP=$LENGTH($EXTRACT(NCDS,1,41)," ")
+13 SET NCDS1=$PIECE(NCDS," ",1,NOP-1)
SET NCDS2=$PIECE(NCDS," ",NOP,999)
CDS SET CDS=ONC(165.5,IE,58.2)
+1 SET (CDS1,CDS2)=""
SET LOS=$LENGTH(CDS)
IF LOS<43
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 !,"35. DATE OF NON CA-DIRECTED SURGERY..: ",ONC(165.5,IE,58.3)
DO P
if EX=U
QUIT
+1 WRITE !,"36. NON CANCER-DIRECTED SURGERY......: ",NCDS1
if NCDS2'=""
WRITE !,?39,NCDS2
DO P
if EX=U
QUIT
+2 WRITE !!?4,"CANCER-DIRECTED SURGERY",!?4,"-----------------------"
DO P
if EX=U
QUIT
+3 WRITE !,"37. DATE OF CANCER-DIRECTED SURGERY..: ",ONC(165.5,IE,50)
DO P
if EX=U
QUIT
+4 WRITE !,"38. LENGTH OF STAY AFTER SURGERY.....: ",ONC(165.5,IE,686)
DO P
if EX=U
QUIT
+5 WRITE !,"39. SURGICAL APPROACH................: ",ONC(165.5,IE,74)
DO P
if EX=U
QUIT
+6 WRITE !,"40. TYPE OF CANCER-DIRECTED SURGERY..: ",CDS1
if CDS2'=""
WRITE !,?39,CDS2
+7 SET SM=ONC(165.5,IE,59)
+8 SET (SM1,SM2)=""
SET LOS=$LENGTH(SM)
IF LOS<43
SET SM1=SM
GOTO SM
+9 SET NOP=$LENGTH($EXTRACT(SM,1,41)," ")
SET SM1=$PIECE(SM," ",1,NOP-1)
SET SM2=$PIECE(SM," ",NOP,999)
SM WRITE !,"41. SURGICAL MARGINS.................: ",SM1
if SM2'=""
WRITE !,?39,SM2
DO P
if EX=U
QUIT
+1 WRITE !,"42. SCOPE OF LYMPH NODE SURGERY......: ",ONC(165.5,IE,138)
DO P
if EX=U
QUIT
+2 WRITE !!,"43. TYPE OF LYMPH NODE SURGERY:"
DO P
if EX=U
QUIT
+3 WRITE !," LAPAROSCOPIC....................: ",ONC(165.5,IE,687)
DO P
if EX=U
QUIT
+4 WRITE !," OPEN............................: ",ONC(165.5,IE,688)
DO P
if EX=U
QUIT
+5 SET SORS=ONC(165.5,ONCONUM,139)
+6 SET (SORS1,SORS2)=""
SET LOS=$LENGTH(SORS)
IF LOS<43
SET SORS1=SORS
GOTO SORS
+7 SET NOP=$LENGTH($EXTRACT(SORS,1,41)," ")
+8 SET SORS1=$PIECE(SORS," ",1,NOP-1)
SET SORS2=$PIECE(SORS," ",NOP,999)
SORS WRITE !!,"44. SURGERY OF OTHER REGIONAL SITE(S), DISTANT SITE(S),"
+1 WRITE !," OR DISTANT LYMPH NODE(S).........: ",SORS1
if SORS2'=""
WRITE !,?39,SORS2
DO P
if EX=U
QUIT
+2 WRITE !,"45. NUMBER OF LYMPH NODES REMOVED....: ",ONC(165.5,IE,140)
DO P
if EX=U
QUIT
+3 WRITE !,"46. RECONSTRUCTION/RESTORATION.......: ",ONC(165.5,IE,23)
DO P
if EX=U
QUIT
+4 WRITE !!,"47. COMPLICATIONS FOLLOWING SURGICAL FIRST COURSE OF TREATMENT:"
DO P
if EX=U
QUIT
+5 WRITE !," PERMANENT RECTAL INJURY.........: ",ONC(165.5,IE,689)
DO P
if EX=U
QUIT
+6 WRITE !," THROMBOEMBOLISM.................: ",ONC(165.5,IE,690)
DO P
if EX=U
QUIT
+7 WRITE !," URETHRAL STRICTURE..............: ",ONC(165.5,IE,691)
DO P
if EX=U
QUIT
+8 WRITE !!,"48. POSTOPERATIVE DEATH W/I 30 DAYS..: ",ONC(165.5,IE,441)
R WRITE !!?4,"RADIATION THERAPY",!?4,"-----------------"
DO P
if EX=U
QUIT
+1 WRITE !,"49. DATE RADIATION STARTED...........: ",ONC(165.5,IE,51)
DO P
if EX=U
QUIT
+2 WRITE !,"50. RADIATION THERAPY................: ",ONC(165.5,IE,51.2)
DO P
if EX=U
QUIT
+3 WRITE !,"51. RADIATION FACILITY...............: ",ONC(165.5,IE,692)
DO P
if EX=U
QUIT
+4 WRITE !!,"52. INTERSTITIAL RADIATION/BRACHYTHERAPY ADMINISTERED:"
DO P
if EX=U
QUIT
+5 WRITE !," GOLD 198........................: ",ONC(165.5,IE,628)
DO P
if EX=U
QUIT
+6 WRITE !," IODINE 125......................: ",ONC(165.5,IE,627)
DO P
if EX=U
QUIT
+7 WRITE !," IRIDIUM 192.....................: ",ONC(165.5,IE,630)
DO P
if EX=U
QUIT
+8 WRITE !," OTHER INTERSTITIAL, NOS.........: ",ONC(165.5,IE,631)
DO P
if EX=U
QUIT
+9 WRITE !," PALLADIUM 103...................: ",ONC(165.5,IE,629)
DO P
if EX=U
QUIT
+10 WRITE !!,"53. ROUTE OF INTERSTITIAL RADIATION/"
+11 WRITE !," BRACHYTHERAPY ADMINISTERED.......: ",ONC(165.5,IE,693)
DO P
if EX=U
QUIT
+12 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
DO HEAD^ONCP2P0
WRITE !?4,TABLE_" (continued)",!?4,LINE
GOTO ERA
+13 WRITE !
DO P
if EX=U
QUIT
ERA WRITE !,"54. EXTERNAL RADIATION ADMINISTERED:"
+1 WRITE !," DISTANT METASTATIC SITES........: ",ONC(165.5,IE,636)
DO P
if EX=U
QUIT
+2 WRITE !," PROSTATE & PELVIC NODES.........: ",ONC(165.5,IE,634)
DO P
if EX=U
QUIT
+3 WRITE !," PROSTATE & PARA-AORTIC NODES....: ",ONC(165.5,IE,635)
DO P
if EX=U
QUIT
+4 WRITE !," PROSTATE REGION ONLY............: ",ONC(165.5,IE,633)
DO P
if EX=U
QUIT
+5 WRITE !," OTHER EXTERNAL SITES, NOS.......: ",ONC(165.5,IE,637)
DO P
if EX=U
QUIT
+6 WRITE !!,"55. TYPE OF EXTERNAL RADIATION"
+7 WRITE !," ADMINISTRATION...................: ",ONC(165.5,IE,694)
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 HEAD^ONCP2P0
WRITE !?4,TABLE_" (continued)",!?4,LINE
GOTO TERDIB
+9 WRITE !
DO P
if EX=U
QUIT
TERDIB WRITE !,"56. TOTAL EXTERNAL RAD DOSE (cGy) INCLUDING BOOST:"
+1 WRITE !," PROSTATE........................: ",ONC(165.5,IE,638)
DO P
if EX=U
QUIT
+2 WRITE !," PELVIC NODES....................: ",ONC(165.5,IE,639)
DO P
if EX=U
QUIT
+3 WRITE !," PARA-AORTIC NODES...............: ",ONC(165.5,IE,640)
DO P
if EX=U
QUIT
+4 WRITE !!,"57. COMPLICATIONS FOLLOWING RADIATION FIRST COURSE OF TREATMENT:"
+5 WRITE !," ACUTE GASTROINTESTINAL..........: ",ONC(165.5,IE,695)
DO P
if EX=U
QUIT
+6 WRITE !," ACUTE GASTROURINARY.............: ",ONC(165.5,IE,696)
DO P
if EX=U
QUIT
+7 WRITE !," ANORECTAL.......................: ",ONC(165.5,IE,697)
DO P
if EX=U
QUIT
+8 WRITE !," CHRONIC REQUIRING SURGERY OR"
+9 WRITE !," PROLONGED HOSPITALIZATION.......: ",ONC(165.5,IE,698)
DO P
if EX=U
QUIT
+10 WRITE !," URETHRAL OR BLADDER.............: ",ONC(165.5,IE,699)
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 HEAD^ONCP2P0
WRITE !?4,TABLE_" (continued)",!?4,LINE
GOTO H
+12 WRITE !
DO P
if EX=U
QUIT
H WRITE !," HORMONE THERAPY"
+1 WRITE !," ---------------"
+2 WRITE !,"58. DATE OF ORCHIECTOMY.............: ",ONC(165.5,IE,699.1)
DO P
if EX=U
QUIT
+3 WRITE !,"59. DATE EXOGENOUS HT BEGAN.........: ",ONC(165.5,IE,54)
DO P
if EX=U
QUIT
+4 WRITE !,"60. HORMONE THERAPY.................: ",ONC(165.5,IE,54.2)
DO P
if EX=U
QUIT
+5 WRITE !!,"61. EXOGENOUS HORMONE AGENTS ADMINISTERED:"
+6 WRITE !," ANTIANDROGENS...................: ",ONC(165.5,IE,644)
DO P
if EX=U
QUIT
+7 WRITE !," ESTROGENS.......................: ",ONC(165.5,IE,643)
DO P
if EX=U
QUIT
+8 WRITE !," LUTEINIZING HORMONES............: ",ONC(165.5,IE,646)
DO P
if EX=U
QUIT
+9 WRITE !," PROGESTATIONAL AGENTS...........: ",ONC(165.5,IE,645)
DO P
if EX=U
QUIT
+10 WRITE !," OTHER...........................: ",ONC(165.5,IE,648)
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 HEAD^ONCP2P0
WRITE !?4,TABLE_" (continued)",!?4,LINE
GOTO C
+12 WRITE !
DO P
if EX=U
QUIT
C WRITE !?4,"CHEMOTHERAPY",!?4,"------------"
DO P
if EX=U
QUIT
+1 WRITE !,"62. DATE CHEMOTHERAPY STARTED........: ",ONC(165.5,IE,53)
DO P
if EX=U
QUIT
+2 WRITE !,"63. CHEMOTHERAPY.....................: ",ONC(165.5,IE,53.2)
DO P
if EX=U
QUIT
+3 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
DO HEAD^ONCP2P0
GOTO V
+4 DO P
if EX=U
QUIT
V DO ^ONCP2P8B
KILL ;Kill Variables and Exit
+1 KILL %,DIR,DIROUT,DIRUT,DTOUT,DUOUT,FILN,ONCOBL,EX,TXT,X,Y
+2 QUIT
P ;Display Data
+1 IF ($Y'<(LIN-1))
Begin DoDot:1
+2 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
IF 'Y
SET EX=U
QUIT
+3 DO HEAD^ONCP2P0
QUIT
End DoDot:1
if EX=U
QUIT
WRITE !?4,TABLE_" (continued)",!?4,LINE
+4 QUIT
