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 Dec 13, 2024@02:25:15 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
