- 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 Jan 18, 2025@03:26:26 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