- ONCBRP9A ;HINES CIOFO/GWB - 1998 Breast Cancer Study - print ;6/1/98
- ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
- IV K LINE S $P(LINE,"-",43)="-"
- S TABLE="TABLE IV - EXTENT OF DISEASE AND AJCC STAGE"
- I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HEAD^ONCBRP0
- W !?4,TABLE,!?4,LINE D P Q:EX=U
- W !,"40. SIZE OF TUMOR (mm)...............: ",ONC(165.5,IE,29) D P Q:EX=U
- W !,"41. SIZE OF DCIS TUMOR (mm)..........: ",ONC(165.5,IE,942) D P Q:EX=U
- W !,"42. REGIONAL NODES EXAMINED..........: ",ONC(165.5,IE,33) D P Q:EX=U
- W !,"43. REGIONAL NODES POSITIVE..........: ",ONC(165.5,IE,32) D P Q:EX=U
- W ! D P Q:EX=U
- W !," SENTINEL NODES" D P Q:EX=U
- W ! D P Q:EX=U
- W !,"44. SENTINEL NODES BIOPSY............: ",ONC(165.5,IE,943) D P Q:EX=U
- W !,"45. NUMBER OF SENTINEL NODES"
- W !," EXAMINED.........................: ",ONC(165.5,IE,944) D P Q:EX=U
- W !,"46. NUMBER OF SENTINEL NODES"
- W !," POSITIVE.........................: ",ONC(165.5,IE,945) D P Q:EX=U
- W !,"47. SENTINEL NODE DETECTED BY........: ",ONC(165.5,IE,946) D P Q:EX=U
- I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCBRP0 W !?4,TABLE_" (continued)",!?4,LINE_"------------"
- ACS W !,"48. 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 !!,"49. 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)
- W ! D P Q:EX=U
- W !,"50. 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 K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCBRP0 G V
- D P Q:EX=U
- V S TABLE="TABLE V - FIRST COURSE OF TREATMENT"
- I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HEAD^ONCBRP0
- K LINE S $P(LINE,"-",35)="-"
- W !?4,TABLE,!?4,LINE D P Q:EX=U
- S D0=ONCONUM D DFC^ONCOCOM S DOFCT=Y
- W !,"51. DATE OF FIRST COURSE TREATMENT...: ",DOFCT 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 W !,"52. DATE OF NON CANCER-DIRECTED"
- W !," SURGERY..........................: ",ONC(165.5,IE,58.3) D P Q:EX=U
- S DESC=ONC(165.5,IE,58.1)
- S (DESC1,DESC2)="",LOS=$L(DESC) I LOS<43 S DESC1=DESC G NCDS
- S NOP=$L($E(DESC,1,41)," ")
- S DESC1=$P(DESC," ",1,NOP-1),DESC2=$P(DESC," ",NOP,999)
- NCDS W !,"53. NON CANCER-DIRECTED SURGERY......: ",DESC1 W:DESC2'="" !,?39,DESC2 D P Q:EX=U
- W !?4,"CANCER-DIRECTED SURGERY",!?4,"-----------------------" D P Q:EX=U
- W !,"54. DATE OF (FIRST) CANCER-"
- W !," DIRECTED SURGERY.................: ",ONC(165.5,IE,50) D P Q:EX=U
- S DESC=ONC(165.5,IE,74)
- S (DESC1,DESC2)="",LOS=$L(DESC) I LOS<43 S DESC1=DESC G SA
- S NOP=$L($E(DESC,1,41)," "),DESC1=$P(DESC," ",1,NOP-1),DESC2=$P(DESC," ",NOP,999)
- SA W !,"55. SURGICAL APPROACH................: ",DESC1 W:DESC2'="" !,?39,DESC2 D P Q:EX=U
- CDS S DESC=ONC(165.5,IE,58.2)
- S (DESC1,DESC2)="",LOS=$L(DESC) I LOS<43 S DESC1=DESC G SPS
- S NOP=$L($E(DESC,1,41)," ")
- S DESC1=$P(DESC," ",1,NOP-1),DESC2=$P(DESC," ",NOP,999)
- SPS W !,"56. SURGERY OF PRIMARY SITE..........: ",DESC1 W:DESC2'="" !,?39,DESC2
- W !,"57. SPECIMEN RADIOGRAPH..............: ",ONC(165.5,IE,947) D P Q:EX=U
- S DESC=ONC(165.5,IE,59)
- S (DESC1,DESC2)="",LOS=$L(DESC) I LOS<43 S DESC1=DESC G SM
- S NOP=$L($E(DESC,1,41)," "),DESC1=$P(DESC," ",1,NOP-1),DESC2=$P(DESC," ",NOP,999)
- SM W !,"58. SURGICAL MARGINS.................: ",DESC1 W:DESC2'="" !,?39,DESC2 D P Q:EX=U
- W !,"59. WAS ENTIRE SPECIMEN SUBMITTED"
- W !," TO PATHOLOGY.....................: ",ONC(165.5,IE,948) D P Q:EX=U
- W !,"60. IF MARGINS ARE FREE, WHAT IS"
- W !," THE DISTANCE.....................: ",ONC(165.5,IE,949) D P Q:EX=U
- S DESC=ONC(165.5,IE,138)
- S (DESC1,DESC2)="",LOS=$L(DESC) I LOS<43 S DESC1=DESC G SRLNS
- S NOP=$L($E(DESC,1,41)," "),DESC1=$P(DESC," ",1,NOP-1),DESC2=$P(DESC," ",NOP,999)
- SRLNS W !,"61. SCOPE OF REGIONAL LYMPH NODE"
- W !," SURGERY..........................: ",DESC1 W:DESC2'="" !,?39,DESC2 D P Q:EX=U
- W !,"62. NUMBER OF REGIONAL LYMPH NODES"
- W !," REMOVED..........................: ",ONC(165.5,IE,140) D P Q:EX=U
- S DESC=ONC(165.5,ONCONUM,139)
- S (DESC1,DESC2)="",LOS=$L(DESC) I LOS<43 S DESC1=DESC G SORS
- S NOP=$L($E(DESC,1,41)," ")
- S DESC1=$P(DESC," ",1,NOP-1),DESC2=$P(DESC," ",NOP,999)
- SORS W !,"63. SURGERY OF OTHER REGIONAL"
- W !," SITE(S), DISTANT SITE(S),"
- W !," OR DISTANT LYMPH NODE(S).........: ",DESC1 W:DESC2'="" !,?39,DESC2 D P Q:EX=U
- S DESC=ONC(165.5,ONCONUM,23)
- S (DESC1,DESC2)="",LOS=$L(DESC) I LOS<43 S DESC1=DESC G RR
- S NOP=$L($E(DESC,1,41)," ")
- S DESC1=$P(DESC," ",1,NOP-1),DESC2=$P(DESC," ",NOP,999)
- RR W !,"64. RECONSTRUCTION/RESTORATION.......: ",DESC1 W:DESC2'="" !,?39,DESC2 D P Q:EX=U
- W !,"65. RE-EXCISION......................: ",ONC(165.5,IE,950) D P Q:EX=U
- W !,"66. MICROSCOPIC STATUS OF FINAL"
- W !," MARGIN AFTER RE-EXCISION.........: ",ONC(165.5,IE,951) D P Q:EX=U
- I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCBRP0 W !?4,TABLE_" (continued)",!?4,LINE_"------------"
- R W !?4,"RADIATION THERAPY",!?4,"-----------------" D P Q:EX=U
- W !,"67. RADIATION THERAPY................: ",ONC(165.5,IE,51.2) D P Q:EX=U
- W !,"68. PRE-RADIATION THERAPY"
- W !," MAMMOGRAM OF PATIENT.............: ",ONC(165.5,IE,952) D P Q:EX=U
- W !,"69. DATE RADIATION STARTED...........: ",ONC(165.5,IE,51) D P Q:EX=U
- W !,"70. DATE RADIATION ENDED.............: ",ONC(165.5,IE,361) D P Q:EX=U
- W !,"71. SITES IRRADIATED.................: ",ONC(165.5,IE,953) D P Q:EX=U
- S FN=954 D FEMALE^ONCBRP9
- W !,"72. (F) cCy DOSE TO WHOLE BREAST"
- W !," OR CHEST WALL....................: ",ONC(165.5,IE,954) D P Q:EX=U
- W !,"73. BOOST RADIATION..................: ",ONC(165.5,IE,443) D P Q:EX=U
- W !,"74. REASON FOR NOT RADIATION.........: ",ONC(165.5,IE,75) D P Q:EX=U
- I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCBRP0 W !?4,TABLE_" (continued)",!?4,LINE_"------------" G H
- W ! D P Q:EX=U
- H W !," HORMONE THERAPY"
- W !," ---------------"
- W !,"75. HORMONE THERAPY..................: ",ONC(165.5,IE,54.2) D P Q:EX=U
- W !,"76. DATE HORMONE THERAPY STARTED.....: ",ONC(165.5,IE,54) D P Q:EX=U
- S FN=955 D MALE^ONCBRP9
- W !,"77. (M) SPECIFIC HORMONE THERAPY.....: ",ONC(165.5,IE,955) D P Q:EX=U
- W ! D P Q:EX=U
- C W !?4,"CHEMOTHERAPY",!?4,"------------" D P Q:EX=U
- W !,"78. CHEMOTHERAPY.....................: ",ONC(165.5,IE,53.2) D P Q:EX=U
- W !,"79. DATE CHEMOTHERAPY STARTED........: ",ONC(165.5,IE,53) D P Q:EX=U
- W !,"80. CHEMOTHERAPEUTIC REGIME"
- W !," CONTAINING DOXORUBICIN...........: ",ONC(165.5,IE,956) D P Q:EX=U
- I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCBRP0 G VI
- D P Q:EX=U
- VI D ^ONCBRP9B
- KILL ;Kill Variables and Exit
- K %,DIR,DIROUT,DIRUT,DTOUT,DUOUT,FILN,ONCOBL,EX,TXT,X,Y,DESC,DESC1,DESC2
- 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^ONCBRP0 Q
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCBRP9A 7560 printed Apr 23, 2025@18:36:56 Page 2
- ONCBRP9A ;HINES CIOFO/GWB - 1998 Breast Cancer Study - print ;6/1/98
- +1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
- IV KILL LINE
- SET $PIECE(LINE,"-",43)="-"
- +1 SET TABLE="TABLE IV - EXTENT OF DISEASE AND AJCC STAGE"
- +2 IF IOST'?1"C".E
- WRITE !
- IF ($Y'<(LIN-4))
- DO HEAD^ONCBRP0
- +3 WRITE !?4,TABLE,!?4,LINE
- DO P
- if EX=U
- QUIT
- +4 WRITE !,"40. SIZE OF TUMOR (mm)...............: ",ONC(165.5,IE,29)
- DO P
- if EX=U
- QUIT
- +5 WRITE !,"41. SIZE OF DCIS TUMOR (mm)..........: ",ONC(165.5,IE,942)
- DO P
- if EX=U
- QUIT
- +6 WRITE !,"42. REGIONAL NODES EXAMINED..........: ",ONC(165.5,IE,33)
- DO P
- if EX=U
- QUIT
- +7 WRITE !,"43. REGIONAL NODES POSITIVE..........: ",ONC(165.5,IE,32)
- DO P
- if EX=U
- QUIT
- +8 WRITE !
- DO P
- if EX=U
- QUIT
- +9 WRITE !," SENTINEL NODES"
- DO P
- if EX=U
- QUIT
- +10 WRITE !
- DO P
- if EX=U
- QUIT
- +11 WRITE !,"44. SENTINEL NODES BIOPSY............: ",ONC(165.5,IE,943)
- DO P
- if EX=U
- QUIT
- +12 WRITE !,"45. NUMBER OF SENTINEL NODES"
- +13 WRITE !," EXAMINED.........................: ",ONC(165.5,IE,944)
- DO P
- if EX=U
- QUIT
- +14 WRITE !,"46. NUMBER OF SENTINEL NODES"
- +15 WRITE !," POSITIVE.........................: ",ONC(165.5,IE,945)
- DO P
- if EX=U
- QUIT
- +16 WRITE !,"47. SENTINEL NODE DETECTED BY........: ",ONC(165.5,IE,946)
- DO P
- if EX=U
- QUIT
- +17 IF IOST?1"C".E
- WRITE !
- KILL DIR
- SET DIR(0)="E"
- DO ^DIR
- if 'Y
- QUIT
- DO HEAD^ONCBRP0
- WRITE !?4,TABLE_" (continued)",!?4,LINE_"------------"
- ACS WRITE !,"48. 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 !!,"49. 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 WRITE !
- DO P
- if EX=U
- QUIT
- +6 WRITE !,"50. STAGED BY:"
- DO P
- if EX=U
- QUIT
- +7 ;D P Q:EX=U
- WRITE !," CLINICAL STAGE..................: ",ONC(165.5,IE,19)
- +8 ;D P Q:EX=U
- WRITE !," PATHOLOGIC STAGE................: ",ONC(165.5,IE,89)
- +9 IF IOST?1"C".E
- KILL DIR
- SET DIR(0)="E"
- DO ^DIR
- if 'Y
- QUIT
- DO HEAD^ONCBRP0
- GOTO V
- +10 DO P
- if EX=U
- QUIT
- V SET TABLE="TABLE V - FIRST COURSE OF TREATMENT"
- +1 IF IOST'?1"C".E
- WRITE !
- IF ($Y'<(LIN-4))
- DO HEAD^ONCBRP0
- +2 KILL LINE
- SET $PIECE(LINE,"-",35)="-"
- +3 WRITE !?4,TABLE,!?4,LINE
- DO P
- if EX=U
- QUIT
- +4 SET D0=ONCONUM
- DO DFC^ONCOCOM
- SET DOFCT=Y
- +5 WRITE !,"51. DATE OF FIRST COURSE TREATMENT...: ",DOFCT
- DO P
- if EX=U
- QUIT
- +6 WRITE !!?4,"SURGERY",!?4,"-------"
- DO P
- if EX=U
- QUIT
- +7 WRITE !?4,"NON CANCER-DIRECTED SURGERY",!?4,"---------------------------"
- DO P
- if EX=U
- QUIT
- S WRITE !,"52. DATE OF NON CANCER-DIRECTED"
- +1 WRITE !," SURGERY..........................: ",ONC(165.5,IE,58.3)
- DO P
- if EX=U
- QUIT
- +2 SET DESC=ONC(165.5,IE,58.1)
- +3 SET (DESC1,DESC2)=""
- SET LOS=$LENGTH(DESC)
- IF LOS<43
- SET DESC1=DESC
- GOTO NCDS
- +4 SET NOP=$LENGTH($EXTRACT(DESC,1,41)," ")
- +5 SET DESC1=$PIECE(DESC," ",1,NOP-1)
- SET DESC2=$PIECE(DESC," ",NOP,999)
- NCDS WRITE !,"53. NON CANCER-DIRECTED SURGERY......: ",DESC1
- if DESC2'=""
- WRITE !,?39,DESC2
- DO P
- if EX=U
- QUIT
- +1 WRITE !?4,"CANCER-DIRECTED SURGERY",!?4,"-----------------------"
- DO P
- if EX=U
- QUIT
- +2 WRITE !,"54. DATE OF (FIRST) CANCER-"
- +3 WRITE !," DIRECTED SURGERY.................: ",ONC(165.5,IE,50)
- DO P
- if EX=U
- QUIT
- +4 SET DESC=ONC(165.5,IE,74)
- +5 SET (DESC1,DESC2)=""
- SET LOS=$LENGTH(DESC)
- IF LOS<43
- SET DESC1=DESC
- GOTO SA
- +6 SET NOP=$LENGTH($EXTRACT(DESC,1,41)," ")
- SET DESC1=$PIECE(DESC," ",1,NOP-1)
- SET DESC2=$PIECE(DESC," ",NOP,999)
- SA WRITE !,"55. SURGICAL APPROACH................: ",DESC1
- if DESC2'=""
- WRITE !,?39,DESC2
- DO P
- if EX=U
- QUIT
- CDS SET DESC=ONC(165.5,IE,58.2)
- +1 SET (DESC1,DESC2)=""
- SET LOS=$LENGTH(DESC)
- IF LOS<43
- SET DESC1=DESC
- GOTO SPS
- +2 SET NOP=$LENGTH($EXTRACT(DESC,1,41)," ")
- +3 SET DESC1=$PIECE(DESC," ",1,NOP-1)
- SET DESC2=$PIECE(DESC," ",NOP,999)
- SPS WRITE !,"56. SURGERY OF PRIMARY SITE..........: ",DESC1
- if DESC2'=""
- WRITE !,?39,DESC2
- +1 WRITE !,"57. SPECIMEN RADIOGRAPH..............: ",ONC(165.5,IE,947)
- DO P
- if EX=U
- QUIT
- +2 SET DESC=ONC(165.5,IE,59)
- +3 SET (DESC1,DESC2)=""
- SET LOS=$LENGTH(DESC)
- IF LOS<43
- SET DESC1=DESC
- GOTO SM
- +4 SET NOP=$LENGTH($EXTRACT(DESC,1,41)," ")
- SET DESC1=$PIECE(DESC," ",1,NOP-1)
- SET DESC2=$PIECE(DESC," ",NOP,999)
- SM WRITE !,"58. SURGICAL MARGINS.................: ",DESC1
- if DESC2'=""
- WRITE !,?39,DESC2
- DO P
- if EX=U
- QUIT
- +1 WRITE !,"59. WAS ENTIRE SPECIMEN SUBMITTED"
- +2 WRITE !," TO PATHOLOGY.....................: ",ONC(165.5,IE,948)
- DO P
- if EX=U
- QUIT
- +3 WRITE !,"60. IF MARGINS ARE FREE, WHAT IS"
- +4 WRITE !," THE DISTANCE.....................: ",ONC(165.5,IE,949)
- DO P
- if EX=U
- QUIT
- +5 SET DESC=ONC(165.5,IE,138)
- +6 SET (DESC1,DESC2)=""
- SET LOS=$LENGTH(DESC)
- IF LOS<43
- SET DESC1=DESC
- GOTO SRLNS
- +7 SET NOP=$LENGTH($EXTRACT(DESC,1,41)," ")
- SET DESC1=$PIECE(DESC," ",1,NOP-1)
- SET DESC2=$PIECE(DESC," ",NOP,999)
- SRLNS WRITE !,"61. SCOPE OF REGIONAL LYMPH NODE"
- +1 WRITE !," SURGERY..........................: ",DESC1
- if DESC2'=""
- WRITE !,?39,DESC2
- DO P
- if EX=U
- QUIT
- +2 WRITE !,"62. NUMBER OF REGIONAL LYMPH NODES"
- +3 WRITE !," REMOVED..........................: ",ONC(165.5,IE,140)
- DO P
- if EX=U
- QUIT
- +4 SET DESC=ONC(165.5,ONCONUM,139)
- +5 SET (DESC1,DESC2)=""
- SET LOS=$LENGTH(DESC)
- IF LOS<43
- SET DESC1=DESC
- GOTO SORS
- +6 SET NOP=$LENGTH($EXTRACT(DESC,1,41)," ")
- +7 SET DESC1=$PIECE(DESC," ",1,NOP-1)
- SET DESC2=$PIECE(DESC," ",NOP,999)
- SORS WRITE !,"63. SURGERY OF OTHER REGIONAL"
- +1 WRITE !," SITE(S), DISTANT SITE(S),"
- +2 WRITE !," OR DISTANT LYMPH NODE(S).........: ",DESC1
- if DESC2'=""
- WRITE !,?39,DESC2
- DO P
- if EX=U
- QUIT
- +3 SET DESC=ONC(165.5,ONCONUM,23)
- +4 SET (DESC1,DESC2)=""
- SET LOS=$LENGTH(DESC)
- IF LOS<43
- SET DESC1=DESC
- GOTO RR
- +5 SET NOP=$LENGTH($EXTRACT(DESC,1,41)," ")
- +6 SET DESC1=$PIECE(DESC," ",1,NOP-1)
- SET DESC2=$PIECE(DESC," ",NOP,999)
- RR WRITE !,"64. RECONSTRUCTION/RESTORATION.......: ",DESC1
- if DESC2'=""
- WRITE !,?39,DESC2
- DO P
- if EX=U
- QUIT
- +1 WRITE !,"65. RE-EXCISION......................: ",ONC(165.5,IE,950)
- DO P
- if EX=U
- QUIT
- +2 WRITE !,"66. MICROSCOPIC STATUS OF FINAL"
- +3 WRITE !," MARGIN AFTER RE-EXCISION.........: ",ONC(165.5,IE,951)
- DO P
- if EX=U
- QUIT
- +4 IF IOST?1"C".E
- WRITE !
- KILL DIR
- SET DIR(0)="E"
- DO ^DIR
- if 'Y
- QUIT
- DO HEAD^ONCBRP0
- WRITE !?4,TABLE_" (continued)",!?4,LINE_"------------"
- R WRITE !?4,"RADIATION THERAPY",!?4,"-----------------"
- DO P
- if EX=U
- QUIT
- +1 WRITE !,"67. RADIATION THERAPY................: ",ONC(165.5,IE,51.2)
- DO P
- if EX=U
- QUIT
- +2 WRITE !,"68. PRE-RADIATION THERAPY"
- +3 WRITE !," MAMMOGRAM OF PATIENT.............: ",ONC(165.5,IE,952)
- DO P
- if EX=U
- QUIT
- +4 WRITE !,"69. DATE RADIATION STARTED...........: ",ONC(165.5,IE,51)
- DO P
- if EX=U
- QUIT
- +5 WRITE !,"70. DATE RADIATION ENDED.............: ",ONC(165.5,IE,361)
- DO P
- if EX=U
- QUIT
- +6 WRITE !,"71. SITES IRRADIATED.................: ",ONC(165.5,IE,953)
- DO P
- if EX=U
- QUIT
- +7 SET FN=954
- DO FEMALE^ONCBRP9
- +8 WRITE !,"72. (F) cCy DOSE TO WHOLE BREAST"
- +9 WRITE !," OR CHEST WALL....................: ",ONC(165.5,IE,954)
- DO P
- if EX=U
- QUIT
- +10 WRITE !,"73. BOOST RADIATION..................: ",ONC(165.5,IE,443)
- DO P
- if EX=U
- QUIT
- +11 WRITE !,"74. REASON FOR NOT RADIATION.........: ",ONC(165.5,IE,75)
- 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^ONCBRP0
- WRITE !?4,TABLE_" (continued)",!?4,LINE_"------------"
- GOTO H
- +13 WRITE !
- DO P
- if EX=U
- QUIT
- H WRITE !," HORMONE THERAPY"
- +1 WRITE !," ---------------"
- +2 WRITE !,"75. HORMONE THERAPY..................: ",ONC(165.5,IE,54.2)
- DO P
- if EX=U
- QUIT
- +3 WRITE !,"76. DATE HORMONE THERAPY STARTED.....: ",ONC(165.5,IE,54)
- DO P
- if EX=U
- QUIT
- +4 SET FN=955
- DO MALE^ONCBRP9
- +5 WRITE !,"77. (M) SPECIFIC HORMONE THERAPY.....: ",ONC(165.5,IE,955)
- DO P
- if EX=U
- QUIT
- +6 WRITE !
- DO P
- if EX=U
- QUIT
- C WRITE !?4,"CHEMOTHERAPY",!?4,"------------"
- DO P
- if EX=U
- QUIT
- +1 WRITE !,"78. CHEMOTHERAPY.....................: ",ONC(165.5,IE,53.2)
- DO P
- if EX=U
- QUIT
- +2 WRITE !,"79. DATE CHEMOTHERAPY STARTED........: ",ONC(165.5,IE,53)
- DO P
- if EX=U
- QUIT
- +3 WRITE !,"80. CHEMOTHERAPEUTIC REGIME"
- +4 WRITE !," CONTAINING DOXORUBICIN...........: ",ONC(165.5,IE,956)
- DO P
- if EX=U
- QUIT
- +5 IF IOST?1"C".E
- WRITE !
- KILL DIR
- SET DIR(0)="E"
- DO ^DIR
- if 'Y
- QUIT
- DO HEAD^ONCBRP0
- GOTO VI
- +6 DO P
- if EX=U
- QUIT
- VI DO ^ONCBRP9B
- KILL ;Kill Variables and Exit
- +1 KILL %,DIR,DIROUT,DIRUT,DTOUT,DUOUT,FILN,ONCOBL,EX,TXT,X,Y,DESC,DESC1,DESC2
- +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^ONCBRP0
- QUIT
- End DoDot:1
- if EX=U
- QUIT
- WRITE !?4,TABLE_" (continued)",!?4,LINE_"------------"
- +4 QUIT
