ONCOPA2 ;Hines OIFO/GWB - PRINT COMPLETE ABSTRACT (132c)...continued; 09/05/97 ;;2.11;ONCOLOGY;**13,15,19,22,27,34,36,37,42,44,45,46**;Mar 07, 1995;Build 39 ; S NAME="FIRST COURSE OF TREATMENT" D FORMAT^ONCOPA1 W !!,TITLE W ! D P Q:EX=U W !," Surgical Dx/Staging Proc: ",ONCAB(165.5,IEN,58.1) D P Q:EX=U W !," Surgical Dx/Staging Proc Date: ",ONCAB(165.5,IEN,58.3) D P Q:EX=U W !," Surg Dx/Staging Proc @Fac: ",ONCAB(165.5,IEN,58.4) D P Q:EX=U W !," Surg Dx/Staging Proc @Fac Date: ",ONCAB(165.5,IEN,58.5) D P Q:EX=U W ! D P Q:EX=U W !," Date of no treatment: ",ONCAB(165.5,IEN,124) D P Q:EX=U W ! D P Q:EX=U W !," Date First Surgical Procedure: ",ONCAB(165.5,IEN,170) D P Q:EX=U W !," Surgery of Primary (F): ",ONCAB(165.5,IEN,58.6) D P Q:EX=U W !," Most Definitive Surg Date: ",ONCAB(165.5,IEN,50) D P Q:EX=U W !," Surgery of Primary @Fac (F): ",ONCAB(165.5,IEN,58.7) D P Q:EX=U W !," Most Definitive Surg @Fac Date: ",ONCAB(165.5,IEN,50.3) D P Q:EX=U W !," Surgical Margins: ",ONCAB(165.5,IEN,59) D P Q:EX=U W !," Scope of LN Surgery (F): ",ONCAB(165.5,IEN,138.4) D P Q:EX=U W !," Scope of LN Surgery Date: ",ONCAB(165.5,IEN,138.2) D P Q:EX=U W !," Scope of LN Surgery @Fac (F): ",ONCAB(165.5,IEN,138.5) D P Q:EX=U W !," Scope of LN Surgery @Fac Date: ",ONCAB(165.5,IEN,138.3) D P Q:EX=U W !," Surg Proc/Other Site (F): ",ONCAB(165.5,IEN,139.4) D P Q:EX=U W !," Surg Proc/Other Site Date: ",ONCAB(165.5,IEN,139.2) D P Q:EX=U W !," Surg Proc/Other Site @Fac (F): ",ONCAB(165.5,IEN,139.5) D P Q:EX=U W !," Surg Proc/Other Site @Fac Date: ",ONCAB(165.5,IEN,139.3) D P Q:EX=U W:DATEDX<3030000 !," Reconstruction/Restoration: ",ONCAB(165.5,IEN,23) D P Q:EX=U W !," Date of Surgical Discharge: ",ONCAB(165.5,IEN,435) D P Q:EX=U W !," Readmission w/i 30 Days/Surg: ",ONCAB(165.5,IEN,14) D P Q:EX=U W ! D P Q:EX=U W !," Reason No Surgery of Primary: ",ONCAB(165.5,IEN,58) D P Q:EX=U W !!," RX Text-Surgery: " F TX=0:0 S TX=$O(^ONCO(165.5,IEN,14,TX)) Q:TX'>0 W !?6,^ONCO(165.5,IEN,14,TX,0) D P Q:EX=U W !," CAP Protocol Review: ",ONCAB(165.5,IEN,46,"E") D P Q:EX=U W:ONCAB(165.5,IEN,46,"I")=0 !," CAP Text: ",ONCAB(165.5,IEN,47,"E") D P Q:EX=U W ! D P Q:EX=U W !," Radiation: ",ONCAB(165.5,IEN,51.2) D P Q:EX=U W !," Date Radiation Started: ",ONCAB(165.5,IEN,51) D P Q:EX=U W !," Location of Radiation Tx: ",ONCAB(165.5,IEN,126) D P Q:EX=U W !," Radiation Treatment Volume: ",ONCAB(165.5,IEN,125) D P Q:EX=U W !," Regional Treatment Modality: ",ONCAB(165.5,IEN,363) D P Q:EX=U W !," Regional Dose: cGy: ",ONCAB(165.5,IEN,442) D P Q:EX=U W !," Boost Treatment Modality: ",ONCAB(165.5,IEN,363.1) D P Q:EX=U W !," Boost Dose: cGy: ",ONCAB(165.5,IEN,443) D P Q:EX=U W !," Number of Txs to this Volume: ",ONCAB(165.5,IEN,56) D P Q:EX=U W !," Date Radiation Ended: ",ONCAB(165.5,IEN,361) D P Q:EX=U W !," Radiation @Fac: ",ONCAB(165.5,IEN,51.4) D P Q:EX=U W !," Radiation @Fac Date: ",ONCAB(165.5,IEN,51.5) D P Q:EX=U W !," Radiation/Surgery Sequence: ",ONCAB(165.5,IEN,51.3) D P Q:EX=U W !," Reason for No Radiation: ",ONCAB(165.5,IEN,75) D P Q:EX=U W !!," RX Text-Radiation (Beam): " F TX=0:0 S TX=$O(^ONCO(165.5,IEN,15,TX)) Q:TX'>0 W !?6,^ONCO(165.5,IEN,15,TX,0) D P Q:EX=U W !," RX Text-Radiation Other: " F TX=0:0 S TX=$O(^ONCO(165.5,IEN,16,TX)) Q:TX'>0 W !?6,^ONCO(165.5,IEN,16,TX,0) D P Q:EX=U CHEM W !!," Chemotherapy: ",ONCAB(165.5,IEN,53.2) D P Q:EX=U W !," Chemotherapy Date: ",ONCAB(165.5,IEN,53) D P Q:EX=U W !," Chemotherapy @Fac: ",ONCAB(165.5,IEN,53.3) D P Q:EX=U W !," Chemotherapy @Fac Date: ",ONCAB(165.5,IEN,53.4) D P Q:EX=U W !," RX Text-Chemo: " F TX=0:0 S TX=$O(^ONCO(165.5,IEN,17,TX)) Q:TX'>0 W !?6,^ONCO(165.5,IEN,17,TX,0) D P Q:EX=U HT W !!," Hormone Therapy: ",ONCAB(165.5,IEN,54.2) D P Q:EX=U W !," Hormone Therapy Date: ",ONCAB(165.5,IEN,54) D P Q:EX=U W !," Hormone Therapy @Fac: ",ONCAB(165.5,IEN,54.3) D P Q:EX=U W !," Hormone Therapy @Fac Date: ",ONCAB(165.5,IEN,54.4) D P Q:EX=U W !," RX Text-Hormone: " F TX=0:0 S TX=$O(^ONCO(165.5,IEN,18,TX)) Q:TX'>0 W !?6,^ONCO(165.5,IEN,18,TX,0) D P Q:EX=U IMM W !!," Immunotherapy: ",ONCAB(165.5,IEN,55.2) D P Q:EX=U I $P($G(^ONCO(165.5,IEN,3)),U,19)=0 G OTH W !," Immunotherapy Date: ",ONCAB(165.5,IEN,55) D P Q:EX=U W !," Immunotherapy @Fac: ",ONCAB(165.5,IEN,55.3) D P Q:EX=U W !," Immunotherapy @Fac Date: ",ONCAB(165.5,IEN,55.4) D P Q:EX=U W !," RX Text-BRM: " F TX=0:0 S TX=$O(^ONCO(165.5,IEN,20,TX)) Q:TX'>0 W !?6,^ONCO(165.5,IEN,20,TX,0) D P Q:EX=U W !," Hema Trans/Endocrine Proc: ",ONCAB(165.5,IEN,153) D P Q:EX=U W !," Hema Trans/Endocrine Proc Date: ",ONCAB(165.5,IEN,153.1) D P Q:EX=U W ! D P Q:EX=U W !," Systemic/Surgery Sequence: ",ONCAB(165.5,IEN,15) D P Q:EX=U OTH W !!," Other Treatment: ",ONCAB(165.5,IEN,57.2) D P Q:EX=U I $P($G(^ONCO(165.5,IEN,3)),U,25)=0 G PES W !," Other Treatment Date: ",ONCAB(165.5,IEN,57) D P Q:EX=U W !," Other Treatment @Fac: ",ONCAB(165.5,IEN,57.3) D P Q:EX=U W !," Other Treatment @Fac Date: ",ONCAB(165.5,IEN,57.4) D P Q:EX=U W !," RX Text-Other: " F TX=0:0 S TX=$O(^ONCO(165.5,IEN,21,TX)) Q:TX'>0 W !?6,^ONCO(165.5,IEN,21,TX,0) D P Q:EX=U PES W !," Palliative Care: ",ONCAB(165.5,IEN,12) D P Q:EX=U W !," Palliative Care @Fac: ",ONCAB(165.5,IEN,13) D P Q:EX=U W !," Protocol Participation: ",ONCAB(165.5,IEN,560) D P Q:EX=U W !," Year Put on Protocol: ",ONCAB(165.5,IEN,133) D P Q:EX=U ; I IOST?1"C".E W ! K DIR S DIR(0)="E",DIR("A")="Enter RETURN to continue with this abstract" D ^DIR Q:'Y D HDR G PA2A D P Q:EX=U PA2A D ^ONCOPA2A ; WILL CALL ONCOPA2A ROUTINE TO CONTINUE... Q P ; I ($Y'<(LINE-1)) D Q:EX=U W ! .I IOST?1"C".E W ! K DIR S DIR(0)="E",DIR("A")="Enter RETURN to continue with this abstract" D ^DIR I 'Y S EX=U Q .D HDR Q Q HDR ; Header W @IOF S PG=PG+1 W CRA,! W ?5," Patient Name: ",PATNAME,?84,"SSN: ",SSAN,! Q