ONCMPC9A ;HINES CIOFO/GWB - 1999 Melanoma Study - print ;2/18/99
;;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^ONCMPC0
W !?4,TABLE,!?4,"---------------------------------------" D P Q:EX=U
K LINE S $P(LINE,"-",51)="-"
W !,"23. SIZE OF TUMOR (mm)..............: ",ONC(165.5,IE,1132) D P Q:EX=U
W !,"24. REGIONAL NODES EXAMINED.........: ",ONC(165.5,IE,33) D P Q:EX=U
W !,"25. REGIONAL NODES POSITIVE.........: ",ONC(165.5,IE,32) D P Q:EX=U
W !,"26. EXTRANODAL EXTENSION............: ",ONC(165.5,IE,1110) D P Q:EX=U
W !!," SATELLITE NODULES OF SKIN OR SUBCUTANEOUS TISSUE",!
W !,"27. MICROSATELLITOSIS...............: ",ONC(165.5,IE,1111) D P Q:EX=U
W !,"28. NUMBER OF SATELLITE NODULES.....: ",ONC(165.5,IE,1112) D P Q:EX=U
W !,"29. LOCATION OF IN-TRANSIT NODULES..: ",ONC(165.5,IE,1113) D P Q:EX=U
W !,"30. BRESLOW'S THICKNESS.............: ",ONC(165.5,IE,1114) D P Q:EX=U
W !,"31. CLARK'S LEVEL OF INVASION.......: ",ONC(165.5,IE,1115) D P Q:EX=U
W !,"32. ANGIOLYMPHATIC INVASION.........: ",ONC(165.5,IE,1116) D P Q:EX=U
W !,"33. PERINEURAL INVASION.............: ",ONC(165.5,IE,1117) D P Q:EX=U
W !,"34. GENERAL SUMMARY STAGE...........: ",ONC(165.5,IE,35) D P Q:EX=U
ACS W !!,"35. 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
W ! D P Q:EX=U
W !,"36. ULCERATION......................: ",ONC(165.5,IE,1118) D P Q:EX=U
W !,"37. CLINICALLY AMELANOTIC...........: ",ONC(165.5,IE,1119) D P Q:EX=U
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCMPC0 W !?4,TABLE_" (continued)",!?4,LINE G APS
I IOST'?1"C".E W !
APS W !,"38. 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
SB W !,"39. 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^ONCMPC0 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^ONCMPC0
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 !,"40. PROTOCOL ELIGIBILITY STATUS.....: ",ONC(165.5,IE,346) D P Q:EX=U
W !,"41. PROTOCOL PARTICIPATION..........: ",ONC(165.5,IE,560) D P Q:EX=U
W !,"42. 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 NCDS=ONC(165.5,IE,58.1)
S (NCDS1,NCDS2)="",LOS=$L(NCDS) I LOS<44 S NCDS1=NCDS G NCDS
S NOP=$L($E(NCDS,1,42)," ")
S NCDS1=$P(NCDS," ",1,NOP-1),NCDS2=$P(NCDS," ",NOP,999)
NCDS S CDS=ONC(165.5,IE,58.2)
S (CDS1,CDS2)="",LOS=$L(CDS) I LOS<44 S CDS1=CDS G S
S NOP=$L($E(CDS,1,42)," ")
S CDS1=$P(CDS," ",1,NOP-1),CDS2=$P(CDS," ",NOP,999)
S W !,"43. DATE OF NON CA-DIRECTED SURGERY.: ",ONC(165.5,IE,58.3) D P Q:EX=U
W !,"44. NON CANCER-DIRECTED SURGERY.....: ",NCDS1 W:NCDS2'="" !,?38,NCDS2 D P Q:EX=U
W !,"45. TYPE OF BIOSPY..................: ",ONC(165.5,IE,1109) D P Q:EX=U
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCMPC0 W !?4,TABLE_" (continued)",!?4,LINE G CDS
W ! D P Q:EX=U
CDS W !?4,"CANCER-DIRECTED SURGERY",!?4,"-----------------------" D P Q:EX=U
W !,"46. DATE OF CANCER-DIRECTED SURGERY.: ",ONC(165.5,IE,50) D P Q:EX=U
W !,"47. SURGICAL APPROACH...............: ",ONC(165.5,IE,74) D P Q:EX=U
W !,"48. SURGERY OF PRIMARY SITE.........: ",CDS1 W:CDS2'="" !,?38,CDS2
S SM=ONC(165.5,IE,59)
S (SM1,SM2)="",LOS=$L(SM) I LOS<44 S SM1=SM G SM
S NOP=$L($E(SM,1,42)," "),SM1=$P(SM," ",1,NOP-1),SM2=$P(SM," ",NOP,999)
SM W !,"49. SURGICAL MARGINS................: ",SM1 W:SM2'="" !,?38,SM2 D P Q:EX=U
W !,"50. DISTANCE FROM TUMOR TO EDGE OF"
W !," SPECIMEN........................: ",ONC(165.5,IE,1120) D P Q:EX=U
W !,"51. SCOPE OF LYMPH NODE SURGERY.....: ",ONC(165.5,IE,138) D P Q:EX=U
W !,"52. NUMBER OF LYMPH NODES REMOVED...: ",ONC(165.5,IE,140) D P Q:EX=U
S SORS=ONC(165.5,ONCONUM,139)
S (SORS1,SORS2)="",LOS=$L(SORS) I LOS<44 S SORS1=SORS G SORS
S NOP=$L($E(SORS,1,42)," ")
S SORS1=$P(SORS," ",1,NOP-1),SORS2=$P(SORS," ",NOP,999)
SORS W !,"53. SURGERY OF OTHER REGIONAL SITE(S), DISTANT SITE(S),"
W !," OR DISTANT LYMPH NODE(S)........: ",SORS1 W:SORS2'="" !,?38,SORS2 D P Q:EX=U
W !,"54. RECONSTRUCTION/RESTORATION......: ",ONC(165.5,IE,23) D P Q:EX=U
W !,"55. SURGICAL CLOSURE................: ",ONC(165.5,IE,1121) D P Q:EX=U
W !,"56. REASON FOR NO SURGERY...........: ",ONC(165.5,IE,58) D P Q:EX=U
W !!?4,"SENTINEL NODES",!?4,"--------------" D P Q:EX=U
W !,"57. PRE-OP LYMPHOSCINTIGRAPHY.......: ",ONC(165.5,IE,1122) D P Q:EX=U
W !,"58. SENTINEL NODES DETECTED BY......: ",ONC(165.5,IE,1123) D P Q:EX=U
W !,"59. SENTINEL NODE BIOPSY............: ",ONC(165.5,IE,943) D P Q:EX=U
W !,"60. SENTINEL NODES EXAMINED.........: ",ONC(165.5,IE,1124) D P Q:EX=U
W !,"61. SENTINEL NODES POSITIVE.........: ",ONC(165.5,IE,1125) D P Q:EX=U
W !,"62. HOW WAS SENTINEL NODE"
W !," PATHOLOGICALLY EXAMINED.........: ",ONC(165.5,IE,1126) D P Q:EX=U
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCMPC0 W !?4,TABLE_" (continued)",!?4,LINE G ISNP
W ! D P Q:EX=U
ISNP W !,"63. IF SENTINEL NODE(S) POSITIVE:"
W !," WAS COMPLETE LYMPH NODE"
W !," DISSECTION PERFORMED..........: ",ONC(165.5,IE,1127) D P Q:EX=U
W !," NUMBER OF BASINS DETECTED.....: ",ONC(165.5,IE,1128) D P Q:EX=U
W !," NUMBER OF BASINS POSITIVE.....: ",ONC(165.5,IE,1129) D P Q:EX=U
W ! D P Q:EX=U
R W !?4,"RADIATION THERAPY",!?4,"-----------------" D P Q:EX=U
W !,"64. DATE RADIATION STARTED..........: ",ONC(165.5,IE,51) D P Q:EX=U
W !,"65. RADIATION THERAPY...............: ",ONC(165.5,IE,51.2) D P Q:EX=U
W !,"66. REASON FOR NO 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^ONCMPC0 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 !,"67. DATE CHEMOTHERAPY STARTED.......: ",ONC(165.5,IE,53) D P Q:EX=U
W !,"68. CHEMOTHERAPY....................: ",ONC(165.5,IE,53.2) D P Q:EX=U
W !,"69. INTRAVENOUS THERAPY.............: ",ONC(165.5,IE,1130) D P Q:EX=U
W ! D P Q:EX=U
H W !," HORMONE THERAPY"
W !," ---------------"
W !,"70. DATE HORMONE THERAPY STARTED....: ",ONC(165.5,IE,54) D P Q:EX=U
W !,"71. HORMONE THERAPY.................: ",ONC(165.5,IE,54.2) D P Q:EX=U
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCMPC0 G V
W ! D P Q:EX=U
V D ^ONCMPC9B
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^ONCMPC0 Q
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCMPC9A 7558 printed Nov 22, 2024@17:33:54 Page 2
ONCMPC9A ;HINES CIOFO/GWB - 1999 Melanoma Study - print ;2/18/99
+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^ONCMPC0
+2 WRITE !?4,TABLE,!?4,"---------------------------------------"
DO P
if EX=U
QUIT
+3 KILL LINE
SET $PIECE(LINE,"-",51)="-"
+4 WRITE !,"23. SIZE OF TUMOR (mm)..............: ",ONC(165.5,IE,1132)
DO P
if EX=U
QUIT
+5 WRITE !,"24. REGIONAL NODES EXAMINED.........: ",ONC(165.5,IE,33)
DO P
if EX=U
QUIT
+6 WRITE !,"25. REGIONAL NODES POSITIVE.........: ",ONC(165.5,IE,32)
DO P
if EX=U
QUIT
+7 WRITE !,"26. EXTRANODAL EXTENSION............: ",ONC(165.5,IE,1110)
DO P
if EX=U
QUIT
+8 WRITE !!," SATELLITE NODULES OF SKIN OR SUBCUTANEOUS TISSUE",!
+9 WRITE !,"27. MICROSATELLITOSIS...............: ",ONC(165.5,IE,1111)
DO P
if EX=U
QUIT
+10 WRITE !,"28. NUMBER OF SATELLITE NODULES.....: ",ONC(165.5,IE,1112)
DO P
if EX=U
QUIT
+11 WRITE !,"29. LOCATION OF IN-TRANSIT NODULES..: ",ONC(165.5,IE,1113)
DO P
if EX=U
QUIT
+12 WRITE !,"30. BRESLOW'S THICKNESS.............: ",ONC(165.5,IE,1114)
DO P
if EX=U
QUIT
+13 WRITE !,"31. CLARK'S LEVEL OF INVASION.......: ",ONC(165.5,IE,1115)
DO P
if EX=U
QUIT
+14 WRITE !,"32. ANGIOLYMPHATIC INVASION.........: ",ONC(165.5,IE,1116)
DO P
if EX=U
QUIT
+15 WRITE !,"33. PERINEURAL INVASION.............: ",ONC(165.5,IE,1117)
DO P
if EX=U
QUIT
+16 WRITE !,"34. GENERAL SUMMARY STAGE...........: ",ONC(165.5,IE,35)
DO P
if EX=U
QUIT
ACS WRITE !!,"35. 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
+5 WRITE !
DO P
if EX=U
QUIT
+6 WRITE !,"36. ULCERATION......................: ",ONC(165.5,IE,1118)
DO P
if EX=U
QUIT
+7 WRITE !,"37. CLINICALLY AMELANOTIC...........: ",ONC(165.5,IE,1119)
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^ONCMPC0
WRITE !?4,TABLE_" (continued)",!?4,LINE
GOTO APS
+9 IF IOST'?1"C".E
WRITE !
APS WRITE !,"38. 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
SB WRITE !,"39. 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^ONCMPC0
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^ONCMPC0
+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 !,"40. PROTOCOL ELIGIBILITY STATUS.....: ",ONC(165.5,IE,346)
DO P
if EX=U
QUIT
+7 WRITE !,"41. PROTOCOL PARTICIPATION..........: ",ONC(165.5,IE,560)
DO P
if EX=U
QUIT
+8 WRITE !,"42. DATE OF FIRST COURSE TREATMENT..: ",DOFCT
DO P
if EX=U
QUIT
+9 WRITE !!?4,"SURGERY",!?4,"-------"
DO P
if EX=U
QUIT
+10 WRITE !?4,"NON CANCER-DIRECTED SURGERY",!?4,"---------------------------"
DO P
if EX=U
QUIT
+11 SET NCDS=ONC(165.5,IE,58.1)
+12 SET (NCDS1,NCDS2)=""
SET LOS=$LENGTH(NCDS)
IF LOS<44
SET NCDS1=NCDS
GOTO NCDS
+13 SET NOP=$LENGTH($EXTRACT(NCDS,1,42)," ")
+14 SET NCDS1=$PIECE(NCDS," ",1,NOP-1)
SET NCDS2=$PIECE(NCDS," ",NOP,999)
NCDS SET CDS=ONC(165.5,IE,58.2)
+1 SET (CDS1,CDS2)=""
SET LOS=$LENGTH(CDS)
IF LOS<44
SET CDS1=CDS
GOTO S
+2 SET NOP=$LENGTH($EXTRACT(CDS,1,42)," ")
+3 SET CDS1=$PIECE(CDS," ",1,NOP-1)
SET CDS2=$PIECE(CDS," ",NOP,999)
S WRITE !,"43. DATE OF NON CA-DIRECTED SURGERY.: ",ONC(165.5,IE,58.3)
DO P
if EX=U
QUIT
+1 WRITE !,"44. NON CANCER-DIRECTED SURGERY.....: ",NCDS1
if NCDS2'=""
WRITE !,?38,NCDS2
DO P
if EX=U
QUIT
+2 WRITE !,"45. TYPE OF BIOSPY..................: ",ONC(165.5,IE,1109)
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^ONCMPC0
WRITE !?4,TABLE_" (continued)",!?4,LINE
GOTO CDS
+4 WRITE !
DO P
if EX=U
QUIT
CDS WRITE !?4,"CANCER-DIRECTED SURGERY",!?4,"-----------------------"
DO P
if EX=U
QUIT
+1 WRITE !,"46. DATE OF CANCER-DIRECTED SURGERY.: ",ONC(165.5,IE,50)
DO P
if EX=U
QUIT
+2 WRITE !,"47. SURGICAL APPROACH...............: ",ONC(165.5,IE,74)
DO P
if EX=U
QUIT
+3 WRITE !,"48. SURGERY OF PRIMARY SITE.........: ",CDS1
if CDS2'=""
WRITE !,?38,CDS2
+4 SET SM=ONC(165.5,IE,59)
+5 SET (SM1,SM2)=""
SET LOS=$LENGTH(SM)
IF LOS<44
SET SM1=SM
GOTO SM
+6 SET NOP=$LENGTH($EXTRACT(SM,1,42)," ")
SET SM1=$PIECE(SM," ",1,NOP-1)
SET SM2=$PIECE(SM," ",NOP,999)
SM WRITE !,"49. SURGICAL MARGINS................: ",SM1
if SM2'=""
WRITE !,?38,SM2
DO P
if EX=U
QUIT
+1 WRITE !,"50. DISTANCE FROM TUMOR TO EDGE OF"
+2 WRITE !," SPECIMEN........................: ",ONC(165.5,IE,1120)
DO P
if EX=U
QUIT
+3 WRITE !,"51. SCOPE OF LYMPH NODE SURGERY.....: ",ONC(165.5,IE,138)
DO P
if EX=U
QUIT
+4 WRITE !,"52. NUMBER OF LYMPH NODES REMOVED...: ",ONC(165.5,IE,140)
DO P
if EX=U
QUIT
+5 SET SORS=ONC(165.5,ONCONUM,139)
+6 SET (SORS1,SORS2)=""
SET LOS=$LENGTH(SORS)
IF LOS<44
SET SORS1=SORS
GOTO SORS
+7 SET NOP=$LENGTH($EXTRACT(SORS,1,42)," ")
+8 SET SORS1=$PIECE(SORS," ",1,NOP-1)
SET SORS2=$PIECE(SORS," ",NOP,999)
SORS WRITE !,"53. SURGERY OF OTHER REGIONAL SITE(S), DISTANT SITE(S),"
+1 WRITE !," OR DISTANT LYMPH NODE(S)........: ",SORS1
if SORS2'=""
WRITE !,?38,SORS2
DO P
if EX=U
QUIT
+2 WRITE !,"54. RECONSTRUCTION/RESTORATION......: ",ONC(165.5,IE,23)
DO P
if EX=U
QUIT
+3 WRITE !,"55. SURGICAL CLOSURE................: ",ONC(165.5,IE,1121)
DO P
if EX=U
QUIT
+4 WRITE !,"56. REASON FOR NO SURGERY...........: ",ONC(165.5,IE,58)
DO P
if EX=U
QUIT
+5 WRITE !!?4,"SENTINEL NODES",!?4,"--------------"
DO P
if EX=U
QUIT
+6 WRITE !,"57. PRE-OP LYMPHOSCINTIGRAPHY.......: ",ONC(165.5,IE,1122)
DO P
if EX=U
QUIT
+7 WRITE !,"58. SENTINEL NODES DETECTED BY......: ",ONC(165.5,IE,1123)
DO P
if EX=U
QUIT
+8 WRITE !,"59. SENTINEL NODE BIOPSY............: ",ONC(165.5,IE,943)
DO P
if EX=U
QUIT
+9 WRITE !,"60. SENTINEL NODES EXAMINED.........: ",ONC(165.5,IE,1124)
DO P
if EX=U
QUIT
+10 WRITE !,"61. SENTINEL NODES POSITIVE.........: ",ONC(165.5,IE,1125)
DO P
if EX=U
QUIT
+11 WRITE !,"62. HOW WAS SENTINEL NODE"
+12 WRITE !," PATHOLOGICALLY EXAMINED.........: ",ONC(165.5,IE,1126)
DO P
if EX=U
QUIT
+13 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
DO HEAD^ONCMPC0
WRITE !?4,TABLE_" (continued)",!?4,LINE
GOTO ISNP
+14 WRITE !
DO P
if EX=U
QUIT
ISNP WRITE !,"63. IF SENTINEL NODE(S) POSITIVE:"
+1 WRITE !," WAS COMPLETE LYMPH NODE"
+2 WRITE !," DISSECTION PERFORMED..........: ",ONC(165.5,IE,1127)
DO P
if EX=U
QUIT
+3 WRITE !," NUMBER OF BASINS DETECTED.....: ",ONC(165.5,IE,1128)
DO P
if EX=U
QUIT
+4 WRITE !," NUMBER OF BASINS POSITIVE.....: ",ONC(165.5,IE,1129)
DO P
if EX=U
QUIT
+5 WRITE !
DO P
if EX=U
QUIT
R WRITE !?4,"RADIATION THERAPY",!?4,"-----------------"
DO P
if EX=U
QUIT
+1 WRITE !,"64. DATE RADIATION STARTED..........: ",ONC(165.5,IE,51)
DO P
if EX=U
QUIT
+2 WRITE !,"65. RADIATION THERAPY...............: ",ONC(165.5,IE,51.2)
DO P
if EX=U
QUIT
+3 WRITE !,"66. REASON FOR NO RADIATION ........: ",ONC(165.5,IE,75)
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^ONCMPC0
WRITE !?4,TABLE_" (continued)",!?4,LINE
GOTO C
+5 WRITE !
DO P
if EX=U
QUIT
C WRITE !?4,"CHEMOTHERAPY",!?4,"------------"
DO P
if EX=U
QUIT
+1 WRITE !,"67. DATE CHEMOTHERAPY STARTED.......: ",ONC(165.5,IE,53)
DO P
if EX=U
QUIT
+2 WRITE !,"68. CHEMOTHERAPY....................: ",ONC(165.5,IE,53.2)
DO P
if EX=U
QUIT
+3 WRITE !,"69. INTRAVENOUS THERAPY.............: ",ONC(165.5,IE,1130)
DO P
if EX=U
QUIT
+4 WRITE !
DO P
if EX=U
QUIT
H WRITE !," HORMONE THERAPY"
+1 WRITE !," ---------------"
+2 WRITE !,"70. DATE HORMONE THERAPY STARTED....: ",ONC(165.5,IE,54)
DO P
if EX=U
QUIT
+3 WRITE !,"71. HORMONE THERAPY.................: ",ONC(165.5,IE,54.2)
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^ONCMPC0
GOTO V
+5 WRITE !
DO P
if EX=U
QUIT
V DO ^ONCMPC9B
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^ONCMPC0
QUIT
End DoDot:1
if EX=U
QUIT
WRITE !?4,TABLE_" (continued)",!?4,LINE
+4 QUIT
