Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ONCOPA2A

ONCOPA2A.m

Go to the documentation of this file.
  1. 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
  1. ; ONCO PRINT ABSTRACT CONTINUED
  1. 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
  1. 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
  1. 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
  1. 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
  1. 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
  1. 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
  1. 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
  1. 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
  1. 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
  1. 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
  1. ;
  1. S NAME="RECURRENCES" D FORMAT^ONCOPA1
  1. W !!,TITLE
  1. W !!," Date of First Recurrence: ",ONCAB(165.5,IEN,70)
  1. W ?50," Type of First Recurrence: ",ONCAB(165.5,IEN,71) D P Q:EX=U
  1. I DATEDX<3160000 W !," Distant Site 1: ",ONCAB(165.5,IEN,71.1) D P Q:EX=U
  1. I DATEDX<3160000 W !," Distant Site 2: ",ONCAB(165.5,IEN,71.2) D P Q:EX=U
  1. I DATEDX<3160000 W !," Distant Site 3: ",ONCAB(165.5,IEN,71.3) D P Q:EX=U
  1. ;I DATEDX>3151231 W !," Mets at DX-Bone: ",ONCAB(165.5,IEN,34.31) D P Q:EX=U
  1. ;I DATEDX>3151231 W !," Mets at DX-Brain: ",ONCAB(165.5,IEN,34.32) D P Q:EX=U
  1. ;I DATEDX>3151231 W !," Mets at DX-Liver: ",ONCAB(165.5,IEN,34.33) D P Q:EX=U
  1. ;I DATEDX>3151231 W !," Mets at DX-Lung: ",ONCAB(165.5,IEN,34.34) D P Q:EX=U
  1. ;I DATEDX>3151231 W !,"Mets at DX-Distant LN: ",ONCAB(165.5,IEN,34.35) D P Q:EX=U
  1. ;I DATEDX>3151231 W !," Mets at DX-Other: ",ONCAB(165.5,IEN,34.36) D P Q:EX=U
  1. F SR=0:0 S SR=$O(ONCAB(165.572,SR)) Q:SR'>0 D
  1. .W !!," Subsequent Recurrence Date: ",ONCAB(165.572,SR,.01)
  1. .W ?50," Type of Subsequent Recurrence: ",ONCAB(165.572,SR,.02) D P Q:EX=U
  1. .W !," Distant Site 1: ",ONCAB(165.572,SR,.03) D P Q:EX=U
  1. .W !," Distant Site 2: ",ONCAB(165.572,SR,.031) D P Q:EX=U
  1. .W !," Distant Site 3: ",ONCAB(165.572,SR,.032) D P Q:EX=U
  1. .Q
  1. S NAME="SUBSEQUENT COURSE OF THERAPY" D FORMAT^ONCOPA1
  1. W !!,TITLE
  1. F SCT=0:0 S SCT=$O(ONCAB(165.51,SCT)) Q:SCT'>0 D
  1. .W !!?30," Date Started: ",ONCAB(165.51,SCT,.01) D P Q:EX=U
  1. .W !?8," Surgery of Primary Site: ",ONCAB(165.51,SCT,.041)
  1. .W " ",ONCAB(165.51,SCT,.04) D P Q:EX=U
  1. .;W !?8," Scope of Lymph Node Surg: ",ONCAB(165.51,SCT,35) D P Q:EX=U
  1. .;W !?8," Number of Nodes Removed: ",ONCAB(165.51,SCT,37) D P Q:EX=U
  1. .;W !?8," Surgery of Other Sites/Nodes: ",ONCAB(165.51,SCT,36) D P Q:EX=U
  1. .;W !?8," Recon/Restore - Delayed: ",ONCAB(165.51,SCT,34)
  1. .;W " ",ONCAB(165.51,SCT,33) D P Q:EX=U
  1. .W !?8," Radiation: ",ONCAB(165.51,SCT,.051)
  1. .W " ",ONCAB(165.51,SCT,.05) D P Q:EX=U
  1. .W !?8," Radiation Sequence: ",ONCAB(165.51,SCT,1) D P Q:EX=U
  1. .W:$P($G(^ONCO(165.5,IEN,0)),U,16)<2960000 !?8," Radiation Therapy to CNS: ",ONCAB(165.51,SCT,.031)
  1. .W:$P($G(^ONCO(165.5,IEN,0)),U,16)<2960000 " ",ONCAB(165.51,SCT,.03) D P Q:EX=U
  1. .W !?8," Chemotherapy: ",ONCAB(165.51,SCT,.061)
  1. .W " ",ONCAB(165.51,SCT,.06) D P Q:EX=U
  1. .W !?8," Hormone Therapy: ",ONCAB(165.51,SCT,.071)
  1. .W " ",ONCAB(165.51,SCT,.07) D P Q:EX=U
  1. .W !?8," Immunotherapy: ",ONCAB(165.51,SCT,.081)
  1. .W " ",ONCAB(165.51,SCT,.08) D P Q:EX=U
  1. .W !?8," Hema Trans/Endocrine Proc: ",ONCAB(165.51,SCT,.021)
  1. .W " ",ONCAB(165.51,SCT,.02) D P Q:EX=U
  1. .W !?8," Other Treatment: ",ONCAB(165.51,SCT,.091)
  1. .W " ",ONCAB(165.51,SCT,.09) D P Q:EX=U
  1. .W !," Place: ",ONCAB(165.51,SCT,2) D P Q:EX=U
  1. .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
  1. S NAME="OTHER PRIMARY SITES" D FORMAT^ONCOPA1
  1. W !!,TITLE,!
  1. 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
  1. .I $D(^ONCO(165.5,XD1,0)),XD1'=IEN S J=J+1 D ^ONCOCOML D P I EX=U S FLG=1
  1. I J=0 W !?24,"No Other Primary Sites"
  1. ;
  1. 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
  1. D P Q:EX=U
  1. PA3 D ^ONCOPA3
  1. Q
  1. P ;
  1. I ($Y'<(LINE-1)) D Q:EX=U W !
  1. .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
  1. .D HDR Q
  1. Q
  1. HDR ; Header
  1. W @IOF S PG=PG+1
  1. W CRA,!
  1. W ?5," Patient Name: ",PATNAME,?84,"SSN: ",SSAN,!
  1. Q
  1. PAUSE ;
  1. W ! R "Enter RETURN to continue or '^' to exit: ",PAUSE:30
  1. I PAUSE="" Q
  1. I PAUSE=U Q
  1. G PAUSE