ONCOPA2A ;HINES OIFO/RTK - [PA Print Complete Abstract (132c)]; 09/05/97
;;2.2;ONCOLOGY;**1,11,12,13**;Jul 31, 2013;Build 7
; ONCO PRINT ABSTRACT CONTINUED
W !!," Text-Remarks: " F TX=0:0 S TX=$O(^ONCO(165.5,IEN,19,TX)) Q:TX'>0 W !?6,^ONCO(165.5,IEN,19,TX,0) D P Q:EX=U
W !," Text Dx Proc-Phys.Exam: " F TX=0:0 S TX=$O(^ONCO(165.5,IEN,10,TX)) Q:TX'>0 W !?6,^ONCO(165.5,IEN,10,TX,0) D P Q:EX=U
W !," Text Dx Proc-Xray/Scan: " F TX=0:0 S TX=$O(^ONCO(165.5,IEN,11,TX)) Q:TX'>0 W !?6,^ONCO(165.5,IEN,11,TX,0) D P Q:EX=U
W !," Text Dx Proc-Operations: " F TX=0:0 S TX=$O(^ONCO(165.5,IEN,9,TX)) Q:TX'>0 W !?6,^ONCO(165.5,IEN,9,TX,0) D P Q:EX=U
W !," Text Dx Proc-Lab Tests: " F TX=0:0 S TX=$O(^ONCO(165.5,IEN,22,TX)) Q:TX'>0 W !?6,^ONCO(165.5,IEN,22,TX,0) D P Q:EX=U
W !," Text Dx Proc-Endoscopy: " F TX=0:0 S TX=$O(^ONCO(165.5,IEN,12,TX)) Q:TX'>0 W !?6,^ONCO(165.5,IEN,12,TX,0) D P Q:EX=U
W !," Text Dx Proc-Path/Cyto: " F TX=0:0 S TX=$O(^ONCO(165.5,IEN,13,TX)) Q:TX'>0 W !?6,^ONCO(165.5,IEN,13,TX,0) D P Q:EX=U
W !," Text Staging: " F TX=0:0 S TX=$O(^ONCO(165.5,IEN,22.1,TX)) Q:TX'>0 W !?6,^ONCO(165.5,IEN,22.1,TX,0) D P Q:EX=U
W !," Text Site Specific Data Items: " F TX=0:0 S TX=$O(^ONCO(165.5,IEN,22.2,TX)) Q:TX'>0 W !?6,^ONCO(165.5,IEN,22.2,TX,0) D P Q:EX=U
W !," Text COVID-19: " F TX=0:0 S TX=$O(^ONCO(165.5,IEN,22.3,TX)) Q:TX'>0 W !?6,^ONCO(165.5,IEN,22.3,TX,0) D P Q:EX=U
;
S NAME="RECURRENCES" D FORMAT^ONCOPA1
W !!,TITLE
W !!," Date of First Recurrence: ",ONCAB(165.5,IEN,70)
W ?50," Type of First Recurrence: ",ONCAB(165.5,IEN,71) D P Q:EX=U
I DATEDX<3160000 W !," Distant Site 1: ",ONCAB(165.5,IEN,71.1) D P Q:EX=U
I DATEDX<3160000 W !," Distant Site 2: ",ONCAB(165.5,IEN,71.2) D P Q:EX=U
I DATEDX<3160000 W !," Distant Site 3: ",ONCAB(165.5,IEN,71.3) D P Q:EX=U
;I DATEDX>3151231 W !," Mets at DX-Bone: ",ONCAB(165.5,IEN,34.31) D P Q:EX=U
;I DATEDX>3151231 W !," Mets at DX-Brain: ",ONCAB(165.5,IEN,34.32) D P Q:EX=U
;I DATEDX>3151231 W !," Mets at DX-Liver: ",ONCAB(165.5,IEN,34.33) D P Q:EX=U
;I DATEDX>3151231 W !," Mets at DX-Lung: ",ONCAB(165.5,IEN,34.34) D P Q:EX=U
;I DATEDX>3151231 W !,"Mets at DX-Distant LN: ",ONCAB(165.5,IEN,34.35) D P Q:EX=U
;I DATEDX>3151231 W !," Mets at DX-Other: ",ONCAB(165.5,IEN,34.36) D P Q:EX=U
F SR=0:0 S SR=$O(ONCAB(165.572,SR)) Q:SR'>0 D
.W !!," Subsequent Recurrence Date: ",ONCAB(165.572,SR,.01)
.W ?50," Type of Subsequent Recurrence: ",ONCAB(165.572,SR,.02) D P Q:EX=U
.W !," Distant Site 1: ",ONCAB(165.572,SR,.03) D P Q:EX=U
.W !," Distant Site 2: ",ONCAB(165.572,SR,.031) D P Q:EX=U
.W !," Distant Site 3: ",ONCAB(165.572,SR,.032) D P Q:EX=U
.Q
S NAME="SUBSEQUENT COURSE OF THERAPY" D FORMAT^ONCOPA1
W !!,TITLE
F SCT=0:0 S SCT=$O(ONCAB(165.51,SCT)) Q:SCT'>0 D
.W !!?30," Date Started: ",ONCAB(165.51,SCT,.01) D P Q:EX=U
.W !?8," Surgery of Primary Site: ",ONCAB(165.51,SCT,.041)
.W " ",ONCAB(165.51,SCT,.04) D P Q:EX=U
.;W !?8," Scope of Lymph Node Surg: ",ONCAB(165.51,SCT,35) D P Q:EX=U
.;W !?8," Number of Nodes Removed: ",ONCAB(165.51,SCT,37) D P Q:EX=U
.;W !?8," Surgery of Other Sites/Nodes: ",ONCAB(165.51,SCT,36) D P Q:EX=U
.;W !?8," Recon/Restore - Delayed: ",ONCAB(165.51,SCT,34)
.;W " ",ONCAB(165.51,SCT,33) D P Q:EX=U
.W !?8," Radiation: ",ONCAB(165.51,SCT,.051)
.W " ",ONCAB(165.51,SCT,.05) D P Q:EX=U
.W !?8," Radiation Sequence: ",ONCAB(165.51,SCT,1) D P Q:EX=U
.W:$P($G(^ONCO(165.5,IEN,0)),U,16)<2960000 !?8," Radiation Therapy to CNS: ",ONCAB(165.51,SCT,.031)
.W:$P($G(^ONCO(165.5,IEN,0)),U,16)<2960000 " ",ONCAB(165.51,SCT,.03) D P Q:EX=U
.W !?8," Chemotherapy: ",ONCAB(165.51,SCT,.061)
.W " ",ONCAB(165.51,SCT,.06) D P Q:EX=U
.W !?8," Hormone Therapy: ",ONCAB(165.51,SCT,.071)
.W " ",ONCAB(165.51,SCT,.07) D P Q:EX=U
.W !?8," Immunotherapy: ",ONCAB(165.51,SCT,.081)
.W " ",ONCAB(165.51,SCT,.08) D P Q:EX=U
.W !?8," Hema Trans/Endocrine Proc: ",ONCAB(165.51,SCT,.021)
.W " ",ONCAB(165.51,SCT,.02) D P Q:EX=U
.W !?8," Other Treatment: ",ONCAB(165.51,SCT,.091)
.W " ",ONCAB(165.51,SCT,.09) D P Q:EX=U
.W !," Place: ",ONCAB(165.51,SCT,2) D P Q:EX=U
.W !," Comment(s): " F TX=0:0 S TX=$O(^ONCO(165.5,IEN,4,SCT,1,TX)) Q:TX'>0 W !?6,^ONCO(165.5,IEN,4,SCT,1,TX,0) D P Q:EX=U
S NAME="OTHER PRIMARY SITES" D FORMAT^ONCOPA1
W !!,TITLE,!
S (FLG,J)=0 F XD1=0:0 S XD1=$O(^ONCO(165.5,"C",PTIEN,XD1)) Q:XD1'>""!(FLG=1) I $$DIV^ONCFUNC(XD1)=DUZ(2) D
.I $D(^ONCO(165.5,XD1,0)),XD1'=IEN S J=J+1 D ^ONCOCOML D P I EX=U S FLG=1
I J=0 W !?24,"No Other Primary Sites"
;
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 PA3
D P Q:EX=U
PA3 D ^ONCOPA3
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
PAUSE ;
W ! R "Enter RETURN to continue or '^' to exit: ",PAUSE:30
I PAUSE="" Q
I PAUSE=U Q
G PAUSE
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCOPA2A 5251 printed Dec 13, 2024@02:25:16 Page 2
ONCOPA2A ;HINES OIFO/RTK - [PA Print Complete Abstract (132c)]; 09/05/97
+1 ;;2.2;ONCOLOGY;**1,11,12,13**;Jul 31, 2013;Build 7
+2 ; ONCO PRINT ABSTRACT CONTINUED
+3 WRITE !!," Text-Remarks: "
FOR TX=0:0
SET TX=$ORDER(^ONCO(165.5,IEN,19,TX))
if TX'>0
QUIT
WRITE !?6,^ONCO(165.5,IEN,19,TX,0)
DO P
if EX=U
QUIT
+4 WRITE !," Text Dx Proc-Phys.Exam: "
FOR TX=0:0
SET TX=$ORDER(^ONCO(165.5,IEN,10,TX))
if TX'>0
QUIT
WRITE !?6,^ONCO(165.5,IEN,10,TX,0)
DO P
if EX=U
QUIT
+5 WRITE !," Text Dx Proc-Xray/Scan: "
FOR TX=0:0
SET TX=$ORDER(^ONCO(165.5,IEN,11,TX))
if TX'>0
QUIT
WRITE !?6,^ONCO(165.5,IEN,11,TX,0)
DO P
if EX=U
QUIT
+6 WRITE !," Text Dx Proc-Operations: "
FOR TX=0:0
SET TX=$ORDER(^ONCO(165.5,IEN,9,TX))
if TX'>0
QUIT
WRITE !?6,^ONCO(165.5,IEN,9,TX,0)
DO P
if EX=U
QUIT
+7 WRITE !," Text Dx Proc-Lab Tests: "
FOR TX=0:0
SET TX=$ORDER(^ONCO(165.5,IEN,22,TX))
if TX'>0
QUIT
WRITE !?6,^ONCO(165.5,IEN,22,TX,0)
DO P
if EX=U
QUIT
+8 WRITE !," Text Dx Proc-Endoscopy: "
FOR TX=0:0
SET TX=$ORDER(^ONCO(165.5,IEN,12,TX))
if TX'>0
QUIT
WRITE !?6,^ONCO(165.5,IEN,12,TX,0)
DO P
if EX=U
QUIT
+9 WRITE !," Text Dx Proc-Path/Cyto: "
FOR TX=0:0
SET TX=$ORDER(^ONCO(165.5,IEN,13,TX))
if TX'>0
QUIT
WRITE !?6,^ONCO(165.5,IEN,13,TX,0)
DO P
if EX=U
QUIT
+10 WRITE !," Text Staging: "
FOR TX=0:0
SET TX=$ORDER(^ONCO(165.5,IEN,22.1,TX))
if TX'>0
QUIT
WRITE !?6,^ONCO(165.5,IEN,22.1,TX,0)
DO P
if EX=U
QUIT
+11 WRITE !," Text Site Specific Data Items: "
FOR TX=0:0
SET TX=$ORDER(^ONCO(165.5,IEN,22.2,TX))
if TX'>0
QUIT
WRITE !?6,^ONCO(165.5,IEN,22.2,TX,0)
DO P
if EX=U
QUIT
+12 WRITE !," Text COVID-19: "
FOR TX=0:0
SET TX=$ORDER(^ONCO(165.5,IEN,22.3,TX))
if TX'>0
QUIT
WRITE !?6,^ONCO(165.5,IEN,22.3,TX,0)
DO P
if EX=U
QUIT
+13 ;
+14 SET NAME="RECURRENCES"
DO FORMAT^ONCOPA1
+15 WRITE !!,TITLE
+16 WRITE !!," Date of First Recurrence: ",ONCAB(165.5,IEN,70)
+17 WRITE ?50," Type of First Recurrence: ",ONCAB(165.5,IEN,71)
DO P
if EX=U
QUIT
+18 IF DATEDX<3160000
WRITE !," Distant Site 1: ",ONCAB(165.5,IEN,71.1)
DO P
if EX=U
QUIT
+19 IF DATEDX<3160000
WRITE !," Distant Site 2: ",ONCAB(165.5,IEN,71.2)
DO P
if EX=U
QUIT
+20 IF DATEDX<3160000
WRITE !," Distant Site 3: ",ONCAB(165.5,IEN,71.3)
DO P
if EX=U
QUIT
+21 ;I DATEDX>3151231 W !," Mets at DX-Bone: ",ONCAB(165.5,IEN,34.31) D P Q:EX=U
+22 ;I DATEDX>3151231 W !," Mets at DX-Brain: ",ONCAB(165.5,IEN,34.32) D P Q:EX=U
+23 ;I DATEDX>3151231 W !," Mets at DX-Liver: ",ONCAB(165.5,IEN,34.33) D P Q:EX=U
+24 ;I DATEDX>3151231 W !," Mets at DX-Lung: ",ONCAB(165.5,IEN,34.34) D P Q:EX=U
+25 ;I DATEDX>3151231 W !,"Mets at DX-Distant LN: ",ONCAB(165.5,IEN,34.35) D P Q:EX=U
+26 ;I DATEDX>3151231 W !," Mets at DX-Other: ",ONCAB(165.5,IEN,34.36) D P Q:EX=U
+27 FOR SR=0:0
SET SR=$ORDER(ONCAB(165.572,SR))
if SR'>0
QUIT
Begin DoDot:1
+28 WRITE !!," Subsequent Recurrence Date: ",ONCAB(165.572,SR,.01)
+29 WRITE ?50," Type of Subsequent Recurrence: ",ONCAB(165.572,SR,.02)
DO P
if EX=U
QUIT
+30 WRITE !," Distant Site 1: ",ONCAB(165.572,SR,.03)
DO P
if EX=U
QUIT
+31 WRITE !," Distant Site 2: ",ONCAB(165.572,SR,.031)
DO P
if EX=U
QUIT
+32 WRITE !," Distant Site 3: ",ONCAB(165.572,SR,.032)
DO P
if EX=U
QUIT
+33 QUIT
End DoDot:1
+34 SET NAME="SUBSEQUENT COURSE OF THERAPY"
DO FORMAT^ONCOPA1
+35 WRITE !!,TITLE
+36 FOR SCT=0:0
SET SCT=$ORDER(ONCAB(165.51,SCT))
if SCT'>0
QUIT
Begin DoDot:1
+37 WRITE !!?30," Date Started: ",ONCAB(165.51,SCT,.01)
DO P
if EX=U
QUIT
+38 WRITE !?8," Surgery of Primary Site: ",ONCAB(165.51,SCT,.041)
+39 WRITE " ",ONCAB(165.51,SCT,.04)
DO P
if EX=U
QUIT
+40 ;W !?8," Scope of Lymph Node Surg: ",ONCAB(165.51,SCT,35) D P Q:EX=U
+41 ;W !?8," Number of Nodes Removed: ",ONCAB(165.51,SCT,37) D P Q:EX=U
+42 ;W !?8," Surgery of Other Sites/Nodes: ",ONCAB(165.51,SCT,36) D P Q:EX=U
+43 ;W !?8," Recon/Restore - Delayed: ",ONCAB(165.51,SCT,34)
+44 ;W " ",ONCAB(165.51,SCT,33) D P Q:EX=U
+45 WRITE !?8," Radiation: ",ONCAB(165.51,SCT,.051)
+46 WRITE " ",ONCAB(165.51,SCT,.05)
DO P
if EX=U
QUIT
+47 WRITE !?8," Radiation Sequence: ",ONCAB(165.51,SCT,1)
DO P
if EX=U
QUIT
+48 if $PIECE($GET(^ONCO(165.5,IEN,0)),U,16)<2960000
WRITE !?8," Radiation Therapy to CNS: ",ONCAB(165.51,SCT,.031)
+49 if $PIECE($GET(^ONCO(165.5,IEN,0)),U,16)<2960000
WRITE " ",ONCAB(165.51,SCT,.03)
DO P
if EX=U
QUIT
+50 WRITE !?8," Chemotherapy: ",ONCAB(165.51,SCT,.061)
+51 WRITE " ",ONCAB(165.51,SCT,.06)
DO P
if EX=U
QUIT
+52 WRITE !?8," Hormone Therapy: ",ONCAB(165.51,SCT,.071)
+53 WRITE " ",ONCAB(165.51,SCT,.07)
DO P
if EX=U
QUIT
+54 WRITE !?8," Immunotherapy: ",ONCAB(165.51,SCT,.081)
+55 WRITE " ",ONCAB(165.51,SCT,.08)
DO P
if EX=U
QUIT
+56 WRITE !?8," Hema Trans/Endocrine Proc: ",ONCAB(165.51,SCT,.021)
+57 WRITE " ",ONCAB(165.51,SCT,.02)
DO P
if EX=U
QUIT
+58 WRITE !?8," Other Treatment: ",ONCAB(165.51,SCT,.091)
+59 WRITE " ",ONCAB(165.51,SCT,.09)
DO P
if EX=U
QUIT
+60 WRITE !," Place: ",ONCAB(165.51,SCT,2)
DO P
if EX=U
QUIT
+61 WRITE !," Comment(s): "
FOR TX=0:0
SET TX=$ORDER(^ONCO(165.5,IEN,4,SCT,1,TX))
if TX'>0
QUIT
WRITE !?6,^ONCO(165.5,IEN,4,SCT,1,TX,0)
DO P
if EX=U
QUIT
End DoDot:1
+62 SET NAME="OTHER PRIMARY SITES"
DO FORMAT^ONCOPA1
+63 WRITE !!,TITLE,!
+64 SET (FLG,J)=0
FOR XD1=0:0
SET XD1=$ORDER(^ONCO(165.5,"C",PTIEN,XD1))
if XD1'>""!(FLG=1)
QUIT
IF $$DIV^ONCFUNC(XD1)=DUZ(2)
Begin DoDot:1
+65 IF $DATA(^ONCO(165.5,XD1,0))
IF XD1'=IEN
SET J=J+1
DO ^ONCOCOML
DO P
IF EX=U
SET FLG=1
End DoDot:1
+66 IF J=0
WRITE !?24,"No Other Primary Sites"
+67 ;
+68 IF IOST?1"C".E
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 PA3
+69 DO P
if EX=U
QUIT
PA3 DO ^ONCOPA3
+1 QUIT
P ;
+1 IF ($Y'<(LINE-1))
Begin DoDot:1
+2 IF IOST?1"C".E
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
PAUSE ;
+1 WRITE !
READ "Enter RETURN to continue or '^' to exit: ",PAUSE:30
+2 IF PAUSE=""
QUIT
+3 IF PAUSE=U
QUIT
+4 GOTO PAUSE
