- ONCOPA2 ;HINES OIFO/GWB - [PA Print Complete Abstract (132c)] cont ;10/05/11
- ;;2.2;ONCOLOGY;**1,5,10,12,13,15,20**;Jul 31, 2013;Build 5
- ;
- N TX
- S NAME="FIRST COURSE OF TREATMENT" D FORMAT^ONCOPA1
- W !!,TITLE
- W ! D P Q:EX=U
- W:DATEDX<3210000 !," Neoadjuvant therapy: ",ONCAB(165.5,IEN,245,"E") D P Q:EX=U
- I DATEDX>3201231 D
- .W !!," Neoadjuvant therapy (2021): ",ONCAB(165.5,IEN,245.1,"E") D P Q:EX=U
- .W !," Neoadjuvant therapy-Clin Resp: ",ONCAB(165.5,IEN,245.2,"E") D P Q:EX=U
- .W !," Neoadjuvant therapy-TX Effect: ",ONCAB(165.5,IEN,245.3,"E") S NEOXVAL=ONCAB(165.5,IEN,245.3,"E") D NEODSP^ONCOEOD1 K NEOXVAL D P Q:EX=U
- 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:DATEDX>3091231 !," Treatment Status: ",ONCAB(165.5,IEN,235,"E") 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 !," RX Summ--Surg Primsite 03-2022: ",ONCAB(165.5,IEN,58.6) D P Q:EX=U
- W !," RX Summ--Surg Prim Site 2023: ",ONCAB(165.5,IEN,58.9) D P Q:EX=U
- W !," Most Definitive Surg Date: ",ONCAB(165.5,IEN,50) D P Q:EX=U
- W !," RX Hosp--Surg Primsite 03-2022: ",ONCAB(165.5,IEN,58.7) D P Q:EX=U
- W !," RX Hosp--Surg Prim Site 2023: ",ONCAB(165.5,IEN,58.8) D P Q:EX=U
- W !," Most Definitive Surg @Fac Date: ",ONCAB(165.5,IEN,50.3) D P Q:EX=U
- W:DATEDX>3091231 !," RX Hosp--Surg App 2010: ",ONCAB(165.5,IEN,234,"E") 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 !," Tx Guidelines Discussion: ",ONCAB(165.5,IEN,281,"E") D P Q:EX=U
- W !," Treatment Guideline #1: ",ONCAB(165.5,IEN,228,"E") D P Q:EX=U
- W !," Treatment Guideline #2: ",ONCAB(165.5,IEN,229,"E") D P Q:EX=U
- W !," Treatment Guideline #3: ",ONCAB(165.5,IEN,230,"E") D P Q:EX=U
- W !," Treatment Guideline Location: ",ONCAB(165.5,IEN,231,"E") D P Q:EX=U
- W !," Treatment Guideline Doc Date: ",ONCAB(165.5,IEN,232,"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
- I DATEDX<3180101 D
- .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
- I DATEDX>3171231 D
- .W !," Phase I rad treatment volume...........: ",ONCAB(165.5,IEN,5504) D P Q:EX=U
- .W !," Phase I rad to draining lymph nodes....: ",ONCAB(165.5,IEN,5505) D P Q:EX=U
- .W !," Phase I treatment modality.............: ",ONCAB(165.5,IEN,5506) D P Q:EX=U
- .W !," Phase I rad external beam planning.....: ",ONCAB(165.5,IEN,5502) D P Q:EX=U
- .W !," Phase I dose per fraction..............: ",ONCAB(165.5,IEN,5501) D P Q:EX=U
- .W !," Phase I number of fractions............: ",ONCAB(165.5,IEN,5503) D P Q:EX=U
- .W !," Phase I total dose.....................: ",ONCAB(165.5,IEN,5507) D P Q:EX=U
- .W !," Phase II rad treatment volume..........: ",ONCAB(165.5,IEN,5514) D P Q:EX=U
- .W !," Phase II rad to draining lymph nodes...: ",ONCAB(165.5,IEN,5515) D P Q:EX=U
- .W !," Phase II treatment modality............: ",ONCAB(165.5,IEN,5516) D P Q:EX=U
- .W !," Phase II rad external beam planning....: ",ONCAB(165.5,IEN,5512) D P Q:EX=U
- .W !," Phase II dose per fraction.............: ",ONCAB(165.5,IEN,5511) D P Q:EX=U
- .W !," Phase II number of fractions...........: ",ONCAB(165.5,IEN,5513) D P Q:EX=U
- .W !," Phase II total dose....................: ",ONCAB(165.5,IEN,5517) D P Q:EX=U
- .W !," Phase III rad treatment volume.........: ",ONCAB(165.5,IEN,5524) D P Q:EX=U
- .W !," Phase III rad to draining lymph nodes..: ",ONCAB(165.5,IEN,5525) D P Q:EX=U
- .W !," Phase III treatment modality...........: ",ONCAB(165.5,IEN,5526) D P Q:EX=U
- .W !," Phase III rad external beam planning...: ",ONCAB(165.5,IEN,5522) D P Q:EX=U
- .W !," Phase III dose per fraction............: ",ONCAB(165.5,IEN,5521) D P Q:EX=U
- .W !," Phase III number of fractions..........: ",ONCAB(165.5,IEN,5523) D P Q:EX=U
- .W !," Phase III total dose...................: ",ONCAB(165.5,IEN,5527) D P Q:EX=U
- .W !," Number of phases rad TX................: ",ONCAB(165.5,IEN,7024,"E") D P Q:EX=U
- .W !," Radiation treatment discontinued early.: ",ONCAB(165.5,IEN,7025,"E") D P Q:EX=U
- .W !," Total dose.............................: ",ONCAB(165.5,IEN,7026,"E") 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 !," Chemotherapeutic Agent #1: ",ONCAB(165.5,IEN,1423,"E") D P Q:EX=U
- W !," Chemotherapeutic Agent #2: ",ONCAB(165.5,IEN,1423.1,"E") D P Q:EX=U
- W !," Chemotherapeutic Agent #3: ",ONCAB(165.5,IEN,1423.2,"E") D P Q:EX=U
- W !," Chemotherapeutic Agent #4: ",ONCAB(165.5,IEN,1423.3,"E") D P Q:EX=U
- W !," Chemotherapeutic Agent #5: ",ONCAB(165.5,IEN,1423.4,"E") 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 !," Hema Trans/Endocrine Proc @Fac: ",ONCAB(165.5,IEN,153.2) D P Q:EX=U
- W !," Hema Trans/Endocrine Proc @Fac Date: ",ONCAB(165.5,IEN,153.3) 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 !," Clinical Trials Discussion: ",ONCAB(165.5,IEN,279,"E") D P Q:EX=U
- W !," Protocol Eligibility Status: ",ONCAB(165.5,IEN,346) 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 $E(IOST,1,2)="C-" 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 $E(IOST,1,2)="C-" 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
- ;
- CLEANUP ;Cleanup
- K CRA,DATEDX,EX,IEN,LINE,NAME,ONCAB,PATNAME,PG,SSAN,TITLE,Y
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCOPA2 10555 printed Feb 18, 2025@23:51:45 Page 2
- ONCOPA2 ;HINES OIFO/GWB - [PA Print Complete Abstract (132c)] cont ;10/05/11
- +1 ;;2.2;ONCOLOGY;**1,5,10,12,13,15,20**;Jul 31, 2013;Build 5
- +2 ;
- +3 NEW TX
- +4 SET NAME="FIRST COURSE OF TREATMENT"
- DO FORMAT^ONCOPA1
- +5 WRITE !!,TITLE
- +6 WRITE !
- DO P
- if EX=U
- QUIT
- +7 if DATEDX<3210000
- WRITE !," Neoadjuvant therapy: ",ONCAB(165.5,IEN,245,"E")
- DO P
- if EX=U
- QUIT
- +8 IF DATEDX>3201231
- Begin DoDot:1
- +9 WRITE !!," Neoadjuvant therapy (2021): ",ONCAB(165.5,IEN,245.1,"E")
- DO P
- if EX=U
- QUIT
- +10 WRITE !," Neoadjuvant therapy-Clin Resp: ",ONCAB(165.5,IEN,245.2,"E")
- DO P
- if EX=U
- QUIT
- +11 WRITE !," Neoadjuvant therapy-TX Effect: ",ONCAB(165.5,IEN,245.3,"E")
- SET NEOXVAL=ONCAB(165.5,IEN,245.3,"E")
- DO NEODSP^ONCOEOD1
- KILL NEOXVAL
- DO P
- if EX=U
- QUIT
- End DoDot:1
- +12 WRITE !
- DO P
- if EX=U
- QUIT
- +13 WRITE !," Surgical Dx/Staging Proc: ",ONCAB(165.5,IEN,58.1)
- DO P
- if EX=U
- QUIT
- +14 WRITE !," Surgical Dx/Staging Proc Date: ",ONCAB(165.5,IEN,58.3)
- DO P
- if EX=U
- QUIT
- +15 WRITE !," Surg Dx/Staging Proc @Fac: ",ONCAB(165.5,IEN,58.4)
- DO P
- if EX=U
- QUIT
- +16 WRITE !," Surg Dx/Staging Proc @Fac Date: ",ONCAB(165.5,IEN,58.5)
- DO P
- if EX=U
- QUIT
- +17 WRITE !
- DO P
- if EX=U
- QUIT
- +18 if DATEDX>3091231
- WRITE !," Treatment Status: ",ONCAB(165.5,IEN,235,"E")
- DO P
- if EX=U
- QUIT
- +19 WRITE !," Date of no treatment: ",ONCAB(165.5,IEN,124)
- DO P
- if EX=U
- QUIT
- +20 WRITE !
- DO P
- if EX=U
- QUIT
- +21 WRITE !," Date First Surgical Procedure: ",ONCAB(165.5,IEN,170)
- DO P
- if EX=U
- QUIT
- +22 WRITE !," RX Summ--Surg Primsite 03-2022: ",ONCAB(165.5,IEN,58.6)
- DO P
- if EX=U
- QUIT
- +23 WRITE !," RX Summ--Surg Prim Site 2023: ",ONCAB(165.5,IEN,58.9)
- DO P
- if EX=U
- QUIT
- +24 WRITE !," Most Definitive Surg Date: ",ONCAB(165.5,IEN,50)
- DO P
- if EX=U
- QUIT
- +25 WRITE !," RX Hosp--Surg Primsite 03-2022: ",ONCAB(165.5,IEN,58.7)
- DO P
- if EX=U
- QUIT
- +26 WRITE !," RX Hosp--Surg Prim Site 2023: ",ONCAB(165.5,IEN,58.8)
- DO P
- if EX=U
- QUIT
- +27 WRITE !," Most Definitive Surg @Fac Date: ",ONCAB(165.5,IEN,50.3)
- DO P
- if EX=U
- QUIT
- +28 if DATEDX>3091231
- WRITE !," RX Hosp--Surg App 2010: ",ONCAB(165.5,IEN,234,"E")
- DO P
- if EX=U
- QUIT
- +29 WRITE !," Surgical Margins: ",ONCAB(165.5,IEN,59)
- DO P
- if EX=U
- QUIT
- +30 WRITE !," Scope of LN Surgery (F): ",ONCAB(165.5,IEN,138.4)
- DO P
- if EX=U
- QUIT
- +31 WRITE !," Scope of LN Surgery Date: ",ONCAB(165.5,IEN,138.2)
- DO P
- if EX=U
- QUIT
- +32 WRITE !," Scope of LN Surgery @Fac (F): ",ONCAB(165.5,IEN,138.5)
- DO P
- if EX=U
- QUIT
- +33 WRITE !," Scope of LN Surgery @Fac Date: ",ONCAB(165.5,IEN,138.3)
- DO P
- if EX=U
- QUIT
- +34 WRITE !," Surg Proc/Other Site (F): ",ONCAB(165.5,IEN,139.4)
- DO P
- if EX=U
- QUIT
- +35 WRITE !," Surg Proc/Other Site Date: ",ONCAB(165.5,IEN,139.2)
- DO P
- if EX=U
- QUIT
- +36 WRITE !," Surg Proc/Other Site @Fac (F): ",ONCAB(165.5,IEN,139.5)
- DO P
- if EX=U
- QUIT
- +37 WRITE !," Surg Proc/Other Site @Fac Date: ",ONCAB(165.5,IEN,139.3)
- DO P
- if EX=U
- QUIT
- +38 if DATEDX<3030000
- WRITE !," Reconstruction/Restoration: ",ONCAB(165.5,IEN,23)
- DO P
- if EX=U
- QUIT
- +39 WRITE !," Date of Surgical Discharge: ",ONCAB(165.5,IEN,435)
- DO P
- if EX=U
- QUIT
- +40 WRITE !," Readmission w/i 30 Days/Surg: ",ONCAB(165.5,IEN,14)
- DO P
- if EX=U
- QUIT
- +41 WRITE !
- DO P
- if EX=U
- QUIT
- +42 WRITE !," Reason No Surgery of Primary: ",ONCAB(165.5,IEN,58)
- DO P
- if EX=U
- QUIT
- +43 WRITE !!," RX Text-Surgery: "
- FOR TX=0:0
- SET TX=$ORDER(^ONCO(165.5,IEN,14,TX))
- if TX'>0
- QUIT
- WRITE !?6,^ONCO(165.5,IEN,14,TX,0)
- DO P
- if EX=U
- QUIT
- +44 WRITE !," CAP Protocol Review: ",ONCAB(165.5,IEN,46,"E")
- DO P
- if EX=U
- QUIT
- +45 if ONCAB(165.5,IEN,46,"I")=0
- WRITE !," CAP Text: ",ONCAB(165.5,IEN,47,"E")
- DO P
- if EX=U
- QUIT
- +46 WRITE !," Tx Guidelines Discussion: ",ONCAB(165.5,IEN,281,"E")
- DO P
- if EX=U
- QUIT
- +47 WRITE !," Treatment Guideline #1: ",ONCAB(165.5,IEN,228,"E")
- DO P
- if EX=U
- QUIT
- +48 WRITE !," Treatment Guideline #2: ",ONCAB(165.5,IEN,229,"E")
- DO P
- if EX=U
- QUIT
- +49 WRITE !," Treatment Guideline #3: ",ONCAB(165.5,IEN,230,"E")
- DO P
- if EX=U
- QUIT
- +50 WRITE !," Treatment Guideline Location: ",ONCAB(165.5,IEN,231,"E")
- DO P
- if EX=U
- QUIT
- +51 WRITE !," Treatment Guideline Doc Date: ",ONCAB(165.5,IEN,232,"E")
- DO P
- if EX=U
- QUIT
- +52 WRITE !
- DO P
- if EX=U
- QUIT
- +53 WRITE !," Radiation: ",ONCAB(165.5,IEN,51.2)
- DO P
- if EX=U
- QUIT
- +54 WRITE !," Date Radiation Started: ",ONCAB(165.5,IEN,51)
- DO P
- if EX=U
- QUIT
- +55 WRITE !," Location of Radiation Tx: ",ONCAB(165.5,IEN,126)
- DO P
- if EX=U
- QUIT
- +56 IF DATEDX<3180101
- Begin DoDot:1
- +57 WRITE !," Radiation treatment volume...: ",ONCAB(165.5,IEN,125)
- DO P
- if EX=U
- QUIT
- +58 WRITE !," Regional treatment modality..: ",ONCAB(165.5,IEN,363)
- DO P
- if EX=U
- QUIT
- +59 WRITE !," Regional dose:cGy............: ",ONCAB(165.5,IEN,442)
- DO P
- if EX=U
- QUIT
- +60 WRITE !," Boost treatment modality.....: ",ONCAB(165.5,IEN,363.1)
- DO P
- if EX=U
- QUIT
- +61 WRITE !," Boost dose:cGy...............: ",ONCAB(165.5,IEN,443)
- DO P
- if EX=U
- QUIT
- +62 WRITE !," Number of txs to this volume.: ",ONCAB(165.5,IEN,56)
- DO P
- if EX=U
- QUIT
- End DoDot:1
- +63 IF DATEDX>3171231
- Begin DoDot:1
- +64 WRITE !," Phase I rad treatment volume...........: ",ONCAB(165.5,IEN,5504)
- DO P
- if EX=U
- QUIT
- +65 WRITE !," Phase I rad to draining lymph nodes....: ",ONCAB(165.5,IEN,5505)
- DO P
- if EX=U
- QUIT
- +66 WRITE !," Phase I treatment modality.............: ",ONCAB(165.5,IEN,5506)
- DO P
- if EX=U
- QUIT
- +67 WRITE !," Phase I rad external beam planning.....: ",ONCAB(165.5,IEN,5502)
- DO P
- if EX=U
- QUIT
- +68 WRITE !," Phase I dose per fraction..............: ",ONCAB(165.5,IEN,5501)
- DO P
- if EX=U
- QUIT
- +69 WRITE !," Phase I number of fractions............: ",ONCAB(165.5,IEN,5503)
- DO P
- if EX=U
- QUIT
- +70 WRITE !," Phase I total dose.....................: ",ONCAB(165.5,IEN,5507)
- DO P
- if EX=U
- QUIT
- +71 WRITE !," Phase II rad treatment volume..........: ",ONCAB(165.5,IEN,5514)
- DO P
- if EX=U
- QUIT
- +72 WRITE !," Phase II rad to draining lymph nodes...: ",ONCAB(165.5,IEN,5515)
- DO P
- if EX=U
- QUIT
- +73 WRITE !," Phase II treatment modality............: ",ONCAB(165.5,IEN,5516)
- DO P
- if EX=U
- QUIT
- +74 WRITE !," Phase II rad external beam planning....: ",ONCAB(165.5,IEN,5512)
- DO P
- if EX=U
- QUIT
- +75 WRITE !," Phase II dose per fraction.............: ",ONCAB(165.5,IEN,5511)
- DO P
- if EX=U
- QUIT
- +76 WRITE !," Phase II number of fractions...........: ",ONCAB(165.5,IEN,5513)
- DO P
- if EX=U
- QUIT
- +77 WRITE !," Phase II total dose....................: ",ONCAB(165.5,IEN,5517)
- DO P
- if EX=U
- QUIT
- +78 WRITE !," Phase III rad treatment volume.........: ",ONCAB(165.5,IEN,5524)
- DO P
- if EX=U
- QUIT
- +79 WRITE !," Phase III rad to draining lymph nodes..: ",ONCAB(165.5,IEN,5525)
- DO P
- if EX=U
- QUIT
- +80 WRITE !," Phase III treatment modality...........: ",ONCAB(165.5,IEN,5526)
- DO P
- if EX=U
- QUIT
- +81 WRITE !," Phase III rad external beam planning...: ",ONCAB(165.5,IEN,5522)
- DO P
- if EX=U
- QUIT
- +82 WRITE !," Phase III dose per fraction............: ",ONCAB(165.5,IEN,5521)
- DO P
- if EX=U
- QUIT
- +83 WRITE !," Phase III number of fractions..........: ",ONCAB(165.5,IEN,5523)
- DO P
- if EX=U
- QUIT
- +84 WRITE !," Phase III total dose...................: ",ONCAB(165.5,IEN,5527)
- DO P
- if EX=U
- QUIT
- +85 WRITE !," Number of phases rad TX................: ",ONCAB(165.5,IEN,7024,"E")
- DO P
- if EX=U
- QUIT
- +86 WRITE !," Radiation treatment discontinued early.: ",ONCAB(165.5,IEN,7025,"E")
- DO P
- if EX=U
- QUIT
- +87 WRITE !," Total dose.............................: ",ONCAB(165.5,IEN,7026,"E")
- DO P
- if EX=U
- QUIT
- End DoDot:1
- +88 WRITE !," Date Radiation Ended: ",ONCAB(165.5,IEN,361)
- DO P
- if EX=U
- QUIT
- +89 WRITE !," Radiation @Fac: ",ONCAB(165.5,IEN,51.4)
- DO P
- if EX=U
- QUIT
- +90 WRITE !," Radiation @Fac Date: ",ONCAB(165.5,IEN,51.5)
- DO P
- if EX=U
- QUIT
- +91 WRITE !," Radiation/Surgery Sequence: ",ONCAB(165.5,IEN,51.3)
- DO P
- if EX=U
- QUIT
- +92 WRITE !," Reason for No Radiation: ",ONCAB(165.5,IEN,75)
- DO P
- if EX=U
- QUIT
- +93 WRITE !!," RX Text-Radiation (Beam): "
- FOR TX=0:0
- SET TX=$ORDER(^ONCO(165.5,IEN,15,TX))
- if TX'>0
- QUIT
- WRITE !?6,^ONCO(165.5,IEN,15,TX,0)
- DO P
- if EX=U
- QUIT
- +94 ;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 WRITE !!," Chemotherapy: ",ONCAB(165.5,IEN,53.2)
- DO P
- if EX=U
- QUIT
- +1 WRITE !," Chemotherapy Date: ",ONCAB(165.5,IEN,53)
- DO P
- if EX=U
- QUIT
- +2 WRITE !," Chemotherapy @Fac: ",ONCAB(165.5,IEN,53.3)
- DO P
- if EX=U
- QUIT
- +3 WRITE !," Chemotherapy @Fac Date: ",ONCAB(165.5,IEN,53.4)
- DO P
- if EX=U
- QUIT
- +4 WRITE !," Chemotherapeutic Agent #1: ",ONCAB(165.5,IEN,1423,"E")
- DO P
- if EX=U
- QUIT
- +5 WRITE !," Chemotherapeutic Agent #2: ",ONCAB(165.5,IEN,1423.1,"E")
- DO P
- if EX=U
- QUIT
- +6 WRITE !," Chemotherapeutic Agent #3: ",ONCAB(165.5,IEN,1423.2,"E")
- DO P
- if EX=U
- QUIT
- +7 WRITE !," Chemotherapeutic Agent #4: ",ONCAB(165.5,IEN,1423.3,"E")
- DO P
- if EX=U
- QUIT
- +8 WRITE !," Chemotherapeutic Agent #5: ",ONCAB(165.5,IEN,1423.4,"E")
- DO P
- if EX=U
- QUIT
- +9 WRITE !," RX Text-Chemo: "
- FOR TX=0:0
- SET TX=$ORDER(^ONCO(165.5,IEN,17,TX))
- if TX'>0
- QUIT
- WRITE !?6,^ONCO(165.5,IEN,17,TX,0)
- DO P
- if EX=U
- QUIT
- HT WRITE !!," Hormone Therapy: ",ONCAB(165.5,IEN,54.2)
- DO P
- if EX=U
- QUIT
- +1 WRITE !," Hormone Therapy Date: ",ONCAB(165.5,IEN,54)
- DO P
- if EX=U
- QUIT
- +2 WRITE !," Hormone Therapy @Fac: ",ONCAB(165.5,IEN,54.3)
- DO P
- if EX=U
- QUIT
- +3 WRITE !," Hormone Therapy @Fac Date: ",ONCAB(165.5,IEN,54.4)
- DO P
- if EX=U
- QUIT
- +4 WRITE !," RX Text-Hormone: "
- FOR TX=0:0
- SET TX=$ORDER(^ONCO(165.5,IEN,18,TX))
- if TX'>0
- QUIT
- WRITE !?6,^ONCO(165.5,IEN,18,TX,0)
- DO P
- if EX=U
- QUIT
- IMM WRITE !!," Immunotherapy: ",ONCAB(165.5,IEN,55.2)
- DO P
- if EX=U
- QUIT
- +1 IF $PIECE($GET(^ONCO(165.5,IEN,3)),U,19)=0
- GOTO OTH
- +2 WRITE !," Immunotherapy Date: ",ONCAB(165.5,IEN,55)
- DO P
- if EX=U
- QUIT
- +3 WRITE !," Immunotherapy @Fac: ",ONCAB(165.5,IEN,55.3)
- DO P
- if EX=U
- QUIT
- +4 WRITE !," Immunotherapy @Fac Date: ",ONCAB(165.5,IEN,55.4)
- DO P
- if EX=U
- QUIT
- +5 WRITE !," RX Text-BRM: "
- FOR TX=0:0
- SET TX=$ORDER(^ONCO(165.5,IEN,20,TX))
- if TX'>0
- QUIT
- WRITE !?6,^ONCO(165.5,IEN,20,TX,0)
- DO P
- if EX=U
- QUIT
- +6 WRITE !," Hema Trans/Endocrine Proc: ",ONCAB(165.5,IEN,153)
- DO P
- if EX=U
- QUIT
- +7 WRITE !," Hema Trans/Endocrine Proc Date: ",ONCAB(165.5,IEN,153.1)
- DO P
- if EX=U
- QUIT
- +8 WRITE !," Hema Trans/Endocrine Proc @Fac: ",ONCAB(165.5,IEN,153.2)
- DO P
- if EX=U
- QUIT
- +9 WRITE !," Hema Trans/Endocrine Proc @Fac Date: ",ONCAB(165.5,IEN,153.3)
- DO P
- if EX=U
- QUIT
- +10 WRITE !
- DO P
- if EX=U
- QUIT
- +11 WRITE !," Systemic/Surgery Sequence: ",ONCAB(165.5,IEN,15)
- DO P
- if EX=U
- QUIT
- OTH WRITE !!," Other Treatment: ",ONCAB(165.5,IEN,57.2)
- DO P
- if EX=U
- QUIT
- +1 IF $PIECE($GET(^ONCO(165.5,IEN,3)),U,25)=0
- GOTO PES
- +2 WRITE !," Other Treatment Date: ",ONCAB(165.5,IEN,57)
- DO P
- if EX=U
- QUIT
- +3 WRITE !," Other Treatment @Fac: ",ONCAB(165.5,IEN,57.3)
- DO P
- if EX=U
- QUIT
- +4 WRITE !," Other Treatment @Fac Date: ",ONCAB(165.5,IEN,57.4)
- DO P
- if EX=U
- QUIT
- +5 WRITE !," RX Text-Other: "
- FOR TX=0:0
- SET TX=$ORDER(^ONCO(165.5,IEN,21,TX))
- if TX'>0
- QUIT
- WRITE !?6,^ONCO(165.5,IEN,21,TX,0)
- DO P
- if EX=U
- QUIT
- PES WRITE !," Palliative Care: ",ONCAB(165.5,IEN,12)
- DO P
- if EX=U
- QUIT
- +1 WRITE !," Palliative Care @Fac: ",ONCAB(165.5,IEN,13)
- DO P
- if EX=U
- QUIT
- +2 WRITE !," Clinical Trials Discussion: ",ONCAB(165.5,IEN,279,"E")
- DO P
- if EX=U
- QUIT
- +3 WRITE !," Protocol Eligibility Status: ",ONCAB(165.5,IEN,346)
- DO P
- if EX=U
- QUIT
- +4 WRITE !," Protocol Participation: ",ONCAB(165.5,IEN,560)
- DO P
- if EX=U
- QUIT
- +5 WRITE !," Year Put on Protocol: ",ONCAB(165.5,IEN,133)
- DO P
- if EX=U
- QUIT
- +6 ;
- +7 IF $EXTRACT(IOST,1,2)="C-"
- WRITE !
- KILL DIR
- SET DIR(0)="E"
- SET DIR("A")="Enter RETURN to continue with this abstract"
- DO ^DIR
- if 'Y
- QUIT
- DO HDR
- GOTO PA2A
- +8 DO P
- if EX=U
- QUIT
- PA2A DO ^ONCOPA2A
- +1 ; WILL CALL ONCOPA2A ROUTINE TO CONTINUE...
- +2 QUIT
- P ;
- +1 IF ($Y'<(LINE-1))
- Begin DoDot:1
- +2 IF $EXTRACT(IOST,1,2)="C-"
- WRITE !
- KILL DIR
- SET DIR(0)="E"
- SET DIR("A")="Enter RETURN to continue with this abstract"
- DO ^DIR
- IF 'Y
- SET EX=U
- QUIT
- +3 DO HDR
- QUIT
- End DoDot:1
- if EX=U
- QUIT
- WRITE !
- +4 QUIT
- HDR ; Header
- +1 WRITE @IOF
- SET PG=PG+1
- +2 WRITE CRA,!
- +3 WRITE ?5," Patient Name: ",PATNAME,?84,"SSN: ",SSAN,!
- +4 QUIT
- +5 ;
- CLEANUP ;Cleanup
- +1 KILL CRA,DATEDX,EX,IEN,LINE,NAME,ONCAB,PATNAME,PG,SSAN,TITLE,Y
