ONCCPC9A ;HIRMFO/GWB - PCE Study of Colorectal Cancer - Print (continued);4/1/97 ;;2.11;ONCOLOGY;**11,15,16**;Mar 07, 1995 III S TABLE="TABLE III - EXTENT OF DISEASE AND AJCC STAGE" I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HDR^ONCCPC9 W !?4,TABLE,!?4,"--------------------------------------------" D P Q:EX=U W !,"29. SIZE OF TUMOR (mm)...............: ",ONC(165.5,IE,29) D P Q:EX=U W !,"30. REGIONAL NODES EXAMINED..........: ",ONC(165.5,IE,33) D P Q:EX=U W !,"31. REGIONAL NODES POSITIVE..........: ",ONC(165.5,IE,32) D P Q:EX=U ACS W !!,"32. 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 !!,"33. 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) D P Q:EX=U W !," AJCC STAGE.....................: ",ONC(165.5,IE,88) K LINE S $P(LINE,"-",56)="-" I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCCPC9 W !?4,TABLE_" (continued)",!?4,LINE G SB W ! D P Q:EX=U SB W !,"34. 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 W ! D P Q:EX=U W !,"35. MARGIN OF RESECTION:" D P Q:EX=U W !," PROXIMAL MARGIN................: ",ONC(165.5,IE,754) D P Q:EX=U W !," DISTAL MARGIN..................: ",ONC(165.5,IE,755) D P Q:EX=U W !," RADIAL MARGIN..................: ",ONC(165.5,IE,756) D P Q:EX=U W !!,"36. DISTANCE TO MUCOSAL MARGIN.......: ",ONC(165.5,IE,757) D P Q:EX=U W !,"37. DISTANCE TO RADIAL MARGIN........: ",ONC(165.5,IE,758) D P Q:EX=U W !,"38. BLOOD VESSEL/LYMPHATIC INVASION..: ",ONC(165.5,IE,759) D P Q:EX=U W !,"39. EXTRAMURAL VENOUS INVASION.......: ",ONC(165.5,IE,760) D P Q:EX=U W !,"40. PROMINENT LYMPHOID INFILTRATE....: ",ONC(165.5,IE,761) D P Q:EX=U I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCCPC9 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 HDR^ONCCPC9 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 !,"41. PHYSICIAN PROVIDING TREATMENT....: ",ONC(165.5,IE,762) D P Q:EX=U W !,"42. FIRST COURSE OF TREATMENT DATE...: ",DOFCT D P Q:EX=U W !,"43. DATE OF INPATIENT ADMISSION......: ",ONC(165.5,IE,1) D P Q:EX=U W !,"44. DATE OF INPATIENT DISCHARGE......: ",ONC(165.5,IE,1.1) D P Q:EX=U W !!?4,"SURGERY",!?4,"-------" D P Q:EX=U S NCDS=ONC(165.5,IE,58.1) S (NCDS1,NCDS2)="",LOS=$L(NCDS) I LOS<45 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<45 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 !,"45. NON CANCER-DIRECTED SURGERY DATE.: ",ONC(165.5,IE,58.3) D P Q:EX=U W !,"46. NON CANCER-DIRECTED SURGERY......: ",NCDS1 W:NCDS2'="" !,?39,NCDS2 D P Q:EX=U W !,"47. SURGERY OF PRIMARY SITE DATE.....: ",ONC(165.5,IE,50) D P Q:EX=U W !,"48. SURGERY OF PRIMARY SITE..........: ",CDS1 W:CDS2'="" !,?39,CDS2 W !,"49. ADDITIONAL SURGICAL PROCEDURES...: ",ONC(165.5,IE,763) D P Q:EX=U W !,"50. LAPAROSCOPY USED DURING SURGERY..: ",ONC(165.5,IE,764) D P Q:EX=U W !,"51. METHOD OF ANASTOMOSIS............: ",ONC(165.5,IE,765) D P Q:EX=U W !,"52. DIST OF ANASTOMOSIS FROM DENTATE.: ",ONC(165.5,IE,766) D P Q:EX=U W !,"53. RESIDUAL PRIMARY TUMOR...........: ",ONC(165.5,IE,59) D P Q:EX=U W !!,"54. OTHER SURGERY:" D P Q:EX=U W !," COLOSTOMY......................: ",ONC(165.5,IE,767) D P Q:EX=U W !," OOPHORECTOMY...................: ",ONC(165.5,IE,768) D P Q:EX=U W !," PATHOLOGICAL STATUS............: ",ONC(165.5,IE,769) D P Q:EX=U CAFCOT W !!,"55. COMPLICATIONS AFTER FIRST COURSE OF TREATMENT:" D P Q:EX=U W !," ABDOMINAL INFECTION......: ",ONC(165.5,IE,770),?44,"PERINEAL INFECTION.......: ",ONC(165.5,IE,777) D P Q:EX=U W !," ABSCESS..................: ",ONC(165.5,IE,771),?44,"PNEUMONIA................: ",ONC(165.5,IE,778) D P Q:EX=U W !," ADMISSION FOR NEUTROPENIA: ",ONC(165.5,IE,772),?44,"PROCTITIS................: ",ONC(165.5,IE,779) D P Q:EX=U W !," ANASTOMOTIC DEHISCENCE...: ",ONC(165.5,IE,773),?44,"PULMONARY EMBOLISM.......: ",ONC(165.5,IE,780) D P Q:EX=U W !," BLEEDING/HEMATOMA........: ",ONC(165.5,IE,437),?44,"RADIATION ENTERITIS......: ",ONC(165.5,IE,781) D P Q:EX=U W !," DEHYDRATION..............: ",ONC(165.5,IE,774),?44,"STOMA COMPLICATION.......: ",ONC(165.5,IE,782) D P Q:EX=U W !," DIARRHEA.................: ",ONC(165.5,IE,775),?44,"URINARY TRACT INFECTION..: ",ONC(165.5,IE,783) D P Q:EX=U W !," EARLY BOWEL OBSTRUCTION..: ",ONC(165.5,IE,776) W !!,"56. POSTOPERATIVE DEATH W/I 30 DAYS: ",ONC(165.5,IE,441) R W !!?4,"RADIATION THERAPY",!?4,"-----------------" D P Q:EX=U W !,"57. DATE RADIATION STARTED...........: ",ONC(165.5,IE,51) D P Q:EX=U W !,"58. DATE RADIATION THERAPY ENDED.....: ",ONC(165.5,IE,361) D P Q:EX=U W !,"59. ENDOCAVITARY RADIATION...........: ",ONC(165.5,IE,784) D P Q:EX=U W !,"60. INTRA-OPERATIVE RAD THERAPY......: ",ONC(165.5,IE,785) D P Q:EX=U W !,"61. PRIMARY TUMOR RAD DOSE W BOOST...: ",ONC(165.5,IE,786) D P Q:EX=U W !,"62. NUMBER OF RADIATION TREATMENTS...: ",ONC(165.5,IE,787) D P Q:EX=U I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCCPC9 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 !,"63. CHEMOTHERAPY.....................: ",ONC(165.5,IE,53.2) D P Q:EX=U W !,"64. DATE CHEMOTHERAPY STARTED........: ",ONC(165.5,IE,53) D P Q:EX=U W !,"65. ADJUVANT CHEMO W BEAM RADIATION..: ",ONC(165.5,IE,788) D P Q:EX=U W !!,"66. ADJUVANT THERAPY:" D P Q:EX=U W !," 5 FU (FLUOROURACIL): ",ONC(165.5,IE,789),?39,"CPT 11.............: ",ONC(165.5,IE,792) D P Q:EX=U W !," LEUCOVORIN.........: ",ONC(165.5,IE,790),?39,"TAXOL..............: ",ONC(165.5,IE,377) D P Q:EX=U W !," LEVAMISOLE.........: ",ONC(165.5,IE,791),?39,"OTHER..............: ",ONC(165.5,IE,793) D P Q:EX=U W !!,"67. DURATION OF ADJUVANT THERAPY.....: ",ONC(165.5,IE,794) D P Q:EX=U W !,"68. COMPLETED DURATION OF THERAPY....: ",ONC(165.5,IE,795) D P Q:EX=U I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCCPC9 G V D P Q:EX=U V D ^ONCCPC9B 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 HDR^ONCCPC9 Q Q