source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCOPA2A.m@ 1150

Last change on this file since 1150 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR
File size: 4.4 KB
Line 
1ONCOPA2A ;Hines OIFO/RTK-PRINT COMPLETE ABSTRACT (132c) CONT 09/05/97
2 ;;2.11;ONCOLOGY;**15,16,22,25,34,36,37,44**;Mar 07, 1995
3 ; ONCO PRINT ABSTRACT CONTINUED
4 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
5 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
6 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
7 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
8 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
9 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
10 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
11 ;
12 S NAME="RECURRENCES" D FORMAT^ONCOPA1
13 W !!,TITLE
14 W !!," Date of First Recurrence: ",ONCAB(165.5,IEN,70)
15 W ?50," Type of First Recurrence: ",ONCAB(165.5,IEN,71) D P Q:EX=U
16 W !," Distant Site 1: ",ONCAB(165.5,IEN,71.1) D P Q:EX=U
17 W !," Distant Site 2: ",ONCAB(165.5,IEN,71.2) D P Q:EX=U
18 W !," Distant Site 3: ",ONCAB(165.5,IEN,71.3) D P Q:EX=U
19 F SR=0:0 S SR=$O(ONCAB(165.572,SR)) Q:SR'>0 D
20 .W !!," Subsequent Recurrence Date: ",ONCAB(165.572,SR,.01)
21 .W ?50," Type of Subsequent Recurrence: ",ONCAB(165.572,SR,.02) D P Q:EX=U
22 .W !," Distant Site 1: ",ONCAB(165.572,SR,.03) D P Q:EX=U
23 .W !," Distant Site 2: ",ONCAB(165.572,SR,.031) D P Q:EX=U
24 .W !," Distant Site 3: ",ONCAB(165.572,SR,.032) D P Q:EX=U
25 .Q
26 S NAME="SUBSEQUENT COURSE OF THERAPY" D FORMAT^ONCOPA1
27 W !!,TITLE
28 F SCT=0:0 S SCT=$O(ONCAB(165.51,SCT)) Q:SCT'>0 D
29 .W !!?30," Date Started: ",ONCAB(165.51,SCT,.01) D P Q:EX=U
30 .W !?8," Surgery of Primary Site: ",ONCAB(165.51,SCT,.041)
31 .W " ",ONCAB(165.51,SCT,.04) D P Q:EX=U
32 .;W !?8," Scope of Lymph Node Surg: ",ONCAB(165.51,SCT,35) D P Q:EX=U
33 .;W !?8," Number of Nodes Removed: ",ONCAB(165.51,SCT,37) D P Q:EX=U
34 .;W !?8," Surgery of Other Sites/Nodes: ",ONCAB(165.51,SCT,36) D P Q:EX=U
35 .;W !?8," Recon/Restore - Delayed: ",ONCAB(165.51,SCT,34)
36 .;W " ",ONCAB(165.51,SCT,33) D P Q:EX=U
37 .W !?8," Radiation: ",ONCAB(165.51,SCT,.051)
38 .W " ",ONCAB(165.51,SCT,.05) D P Q:EX=U
39 .W !?8," Radiation Sequence: ",ONCAB(165.51,SCT,1) D P Q:EX=U
40 .W:$P($G(^ONCO(165.5,IEN,0)),U,16)<2960000 !?8," Radiation Therapy to CNS: ",ONCAB(165.51,SCT,.031)
41 .W:$P($G(^ONCO(165.5,IEN,0)),U,16)<2960000 " ",ONCAB(165.51,SCT,.03) D P Q:EX=U
42 .W !?8," Chemotherapy: ",ONCAB(165.51,SCT,.061)
43 .W " ",ONCAB(165.51,SCT,.06) D P Q:EX=U
44 .W !?8," Hormone Therapy: ",ONCAB(165.51,SCT,.071)
45 .W " ",ONCAB(165.51,SCT,.07) D P Q:EX=U
46 .W !?8," Immunotherapy: ",ONCAB(165.51,SCT,.081)
47 .W " ",ONCAB(165.51,SCT,.08) D P Q:EX=U
48 .W !?8," Hema Trans/Endocrine Proc: ",ONCAB(165.51,SCT,.021)
49 .W " ",ONCAB(165.51,SCT,.02) D P Q:EX=U
50 .W !?8," Other Treatment: ",ONCAB(165.51,SCT,.091)
51 .W " ",ONCAB(165.51,SCT,.09) D P Q:EX=U
52 .W !," Place: ",ONCAB(165.51,SCT,2) D P Q:EX=U
53 .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
54 .Q
55 S NAME="OTHER PRIMARY SITES" D FORMAT^ONCOPA1
56 W !!,TITLE,!
57 S XDX=$O(^ONCO(165.5,"C",PTIEN,"")) I $O(^ONCO(165.5,"C",PTIEN,XDX)) W !?1,"Acc/Seq#",?15,"Primary Site",?37,"Last Tumor Status",?56,"Date DX",?68,"Abst Status",!
58 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
59 .I $D(^ONCO(165.5,XD1,0)),XD1'=IEN S J=J+1 D ^ONCOCOML D P I EX=U S FLG=1
60 .Q
61 I J=0 W !?24,"No Other Primary Sites"
62 ;
63 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
64 D P Q:EX=U
65PA3 D ^ONCOPA3
66 ; WILL CALL ONCOPA3 ROUTINE FROM HERE TO CONTINUE...
67 Q
68P ;
69 I ($Y'<(LINE-1)) D Q:EX=U W !
70 .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
71 .D HDR Q
72 Q
73HDR ; Header
74 W @IOF S PG=PG+1
75 W CRA,!
76 W ?5," Patient Name: ",PATNAME,?84,"SSN: ",SSAN,!
77 Q
78PAUSE ;
79 W ! R "Enter RETURN to continue or '^' to exit: ",PAUSE:30
80 I PAUSE="" Q
81 I PAUSE=U Q
82 G PAUSE
Note: See TracBrowser for help on using the repository browser.