- 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 Feb 18, 2025@23:50:13 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
