- 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 Feb 18, 2025@23:53:28 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