source: FOIAVistA/tag/r/ONCOLOGY-ONC/ONCOPA2.m@ 658

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

initial load of FOIAVistA 6/30/08 version
File size: 6.1 KB
Line 
1ONCOPA2 ;Hines OIFO/GWB - PRINT COMPLETE ABSTRACT (132c)...continued; 09/05/97
2 ;;2.11;ONCOLOGY;**13,15,19,22,27,34,36,37,42,44,45,46**;Mar 07, 1995;Build 39
3 ;
4 S NAME="FIRST COURSE OF TREATMENT" D FORMAT^ONCOPA1
5 W !!,TITLE
6 W ! D P Q:EX=U
7 W !," Surgical Dx/Staging Proc: ",ONCAB(165.5,IEN,58.1) D P Q:EX=U
8 W !," Surgical Dx/Staging Proc Date: ",ONCAB(165.5,IEN,58.3) D P Q:EX=U
9 W !," Surg Dx/Staging Proc @Fac: ",ONCAB(165.5,IEN,58.4) D P Q:EX=U
10 W !," Surg Dx/Staging Proc @Fac Date: ",ONCAB(165.5,IEN,58.5) D P Q:EX=U
11 W ! D P Q:EX=U
12 W !," Date of no treatment: ",ONCAB(165.5,IEN,124) D P Q:EX=U
13 W ! D P Q:EX=U
14 W !," Date First Surgical Procedure: ",ONCAB(165.5,IEN,170) D P Q:EX=U
15 W !," Surgery of Primary (F): ",ONCAB(165.5,IEN,58.6) D P Q:EX=U
16 W !," Most Definitive Surg Date: ",ONCAB(165.5,IEN,50) D P Q:EX=U
17 W !," Surgery of Primary @Fac (F): ",ONCAB(165.5,IEN,58.7) D P Q:EX=U
18 W !," Most Definitive Surg @Fac Date: ",ONCAB(165.5,IEN,50.3) D P Q:EX=U
19 W !," Surgical Margins: ",ONCAB(165.5,IEN,59) D P Q:EX=U
20 W !," Scope of LN Surgery (F): ",ONCAB(165.5,IEN,138.4) D P Q:EX=U
21 W !," Scope of LN Surgery Date: ",ONCAB(165.5,IEN,138.2) D P Q:EX=U
22 W !," Scope of LN Surgery @Fac (F): ",ONCAB(165.5,IEN,138.5) D P Q:EX=U
23 W !," Scope of LN Surgery @Fac Date: ",ONCAB(165.5,IEN,138.3) D P Q:EX=U
24 W !," Surg Proc/Other Site (F): ",ONCAB(165.5,IEN,139.4) D P Q:EX=U
25 W !," Surg Proc/Other Site Date: ",ONCAB(165.5,IEN,139.2) D P Q:EX=U
26 W !," Surg Proc/Other Site @Fac (F): ",ONCAB(165.5,IEN,139.5) D P Q:EX=U
27 W !," Surg Proc/Other Site @Fac Date: ",ONCAB(165.5,IEN,139.3) D P Q:EX=U
28 W:DATEDX<3030000 !," Reconstruction/Restoration: ",ONCAB(165.5,IEN,23) D P Q:EX=U
29 W !," Date of Surgical Discharge: ",ONCAB(165.5,IEN,435) D P Q:EX=U
30 W !," Readmission w/i 30 Days/Surg: ",ONCAB(165.5,IEN,14) D P Q:EX=U
31 W ! D P Q:EX=U
32 W !," Reason No Surgery of Primary: ",ONCAB(165.5,IEN,58) D P Q:EX=U
33 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
34 W !," CAP Protocol Review: ",ONCAB(165.5,IEN,46,"E") D P Q:EX=U
35 W:ONCAB(165.5,IEN,46,"I")=0 !," CAP Text: ",ONCAB(165.5,IEN,47,"E") D P Q:EX=U
36 W ! D P Q:EX=U
37 W !," Radiation: ",ONCAB(165.5,IEN,51.2) D P Q:EX=U
38 W !," Date Radiation Started: ",ONCAB(165.5,IEN,51) D P Q:EX=U
39 W !," Location of Radiation Tx: ",ONCAB(165.5,IEN,126) D P Q:EX=U
40 W !," Radiation Treatment Volume: ",ONCAB(165.5,IEN,125) D P Q:EX=U
41 W !," Regional Treatment Modality: ",ONCAB(165.5,IEN,363) D P Q:EX=U
42 W !," Regional Dose: cGy: ",ONCAB(165.5,IEN,442) D P Q:EX=U
43 W !," Boost Treatment Modality: ",ONCAB(165.5,IEN,363.1) D P Q:EX=U
44 W !," Boost Dose: cGy: ",ONCAB(165.5,IEN,443) D P Q:EX=U
45 W !," Number of Txs to this Volume: ",ONCAB(165.5,IEN,56) D P Q:EX=U
46 W !," Date Radiation Ended: ",ONCAB(165.5,IEN,361) D P Q:EX=U
47 W !," Radiation @Fac: ",ONCAB(165.5,IEN,51.4) D P Q:EX=U
48 W !," Radiation @Fac Date: ",ONCAB(165.5,IEN,51.5) D P Q:EX=U
49 W !," Radiation/Surgery Sequence: ",ONCAB(165.5,IEN,51.3) D P Q:EX=U
50 W !," Reason for No Radiation: ",ONCAB(165.5,IEN,75) D P Q:EX=U
51 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
52 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
53CHEM W !!," Chemotherapy: ",ONCAB(165.5,IEN,53.2) D P Q:EX=U
54 W !," Chemotherapy Date: ",ONCAB(165.5,IEN,53) D P Q:EX=U
55 W !," Chemotherapy @Fac: ",ONCAB(165.5,IEN,53.3) D P Q:EX=U
56 W !," Chemotherapy @Fac Date: ",ONCAB(165.5,IEN,53.4) D P Q:EX=U
57 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
58HT W !!," Hormone Therapy: ",ONCAB(165.5,IEN,54.2) D P Q:EX=U
59 W !," Hormone Therapy Date: ",ONCAB(165.5,IEN,54) D P Q:EX=U
60 W !," Hormone Therapy @Fac: ",ONCAB(165.5,IEN,54.3) D P Q:EX=U
61 W !," Hormone Therapy @Fac Date: ",ONCAB(165.5,IEN,54.4) D P Q:EX=U
62 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
63IMM W !!," Immunotherapy: ",ONCAB(165.5,IEN,55.2) D P Q:EX=U
64 I $P($G(^ONCO(165.5,IEN,3)),U,19)=0 G OTH
65 W !," Immunotherapy Date: ",ONCAB(165.5,IEN,55) D P Q:EX=U
66 W !," Immunotherapy @Fac: ",ONCAB(165.5,IEN,55.3) D P Q:EX=U
67 W !," Immunotherapy @Fac Date: ",ONCAB(165.5,IEN,55.4) D P Q:EX=U
68 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
69 W !," Hema Trans/Endocrine Proc: ",ONCAB(165.5,IEN,153) D P Q:EX=U
70 W !," Hema Trans/Endocrine Proc Date: ",ONCAB(165.5,IEN,153.1) D P Q:EX=U
71 W ! D P Q:EX=U
72 W !," Systemic/Surgery Sequence: ",ONCAB(165.5,IEN,15) D P Q:EX=U
73OTH W !!," Other Treatment: ",ONCAB(165.5,IEN,57.2) D P Q:EX=U
74 I $P($G(^ONCO(165.5,IEN,3)),U,25)=0 G PES
75 W !," Other Treatment Date: ",ONCAB(165.5,IEN,57) D P Q:EX=U
76 W !," Other Treatment @Fac: ",ONCAB(165.5,IEN,57.3) D P Q:EX=U
77 W !," Other Treatment @Fac Date: ",ONCAB(165.5,IEN,57.4) D P Q:EX=U
78 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
79PES W !," Palliative Care: ",ONCAB(165.5,IEN,12) D P Q:EX=U
80 W !," Palliative Care @Fac: ",ONCAB(165.5,IEN,13) D P Q:EX=U
81 W !," Protocol Participation: ",ONCAB(165.5,IEN,560) D P Q:EX=U
82 W !," Year Put on Protocol: ",ONCAB(165.5,IEN,133) D P Q:EX=U
83 ;
84 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 PA2A
85 D P Q:EX=U
86PA2A D ^ONCOPA2A
87 ; WILL CALL ONCOPA2A ROUTINE TO CONTINUE...
88 Q
89P ;
90 I ($Y'<(LINE-1)) D Q:EX=U W !
91 .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
92 .D HDR Q
93 Q
94HDR ; Header
95 W @IOF S PG=PG+1
96 W CRA,!
97 W ?5," Patient Name: ",PATNAME,?84,"SSN: ",SSAN,!
98 Q
Note: See TracBrowser for help on using the repository browser.