source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCBRP9B.m@ 703

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

initial load of WorldVistAEHR

File size: 1.7 KB
Line 
1ONCBRP9B ;HINES CIOFO/GWB - 1998 Breast Cancer Study - print ;6/1/98
2 ;;2.11;ONCOLOGY;**18**;Mar 07, 1995
3VI S TABLE="TABLE VI - FIRST RECURRENCE"
4 I IOST'?1"C".E W !
5 W !?4,TABLE,!?4,"---------------------------" D P Q:EX=U
6 W !,"81. DATE OF FIRST RECURRENCE.........: ",ONC(165.5,IE,70) D P Q:EX=U
7 S DESC=ONC(165.5,ONCONUM,71)
8 S (DESC1,DESC2)="",LOS=$L(DESC) I LOS<43 S DESC1=DESC G TFR
9 S NOP=$L($E(DESC,1,41)," ")
10 S DESC1=$P(DESC," ",1,NOP-1),DESC2=$P(DESC," ",NOP,999)
11TFR W !,"82. TYPE OF FIRST RECURRENCE.........: ",DESC1 W:DESC2'="" !,?39,DESC2 S END=1 D P Q:EX=U
12VII S TABLE="TABLE VII - STATUS AT LAST CONTACT"
13 I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HEAD^ONCBRP0
14 W !!?4,TABLE,!?4,"----------------------------------" D P Q:EX=U
15 S DLC="" I $D(^ONCO(160,ONCOPA,"F","B")) S DLC=$O(^ONCO(160,ONCOPA,"F","B",""),-1)
16 I DLC'="" S Y=DLC D DATEOT^ONCOPCE S DLC=Y
17 W !,"83. DATE OF LAST CONTACT OR DEATH....: ",DLC
18 W !,"84. VITAL STATUS.....................: ",ONC(160,ONCOPA,15) D P Q:EX=U
19 S CS="" I $D(^ONCO(165.5,IE,"TS","AA")) D
20 .S CSDAT=$O(^ONCO(165.5,IE,"TS","AA",""))
21 .S CSI=$O(^ONCO(165.5,IE,"TS","AA",CSDAT,""))
22 .S CSPNT=$P(^ONCO(165.5,IE,"TS",CSI,0),U,2)
23 .S CS=$P(^ONCO(164.42,CSPNT,0),U,1)
24 W !,"85. CANCER STATUS....................: ",CS
25 W !,"86. COMPLETED BY.....................: ",ONC(165.5,IE,81) D P Q:EX=U
26 W !,"87. REVIEWED BY CANCER COMMITTEE.....: ",ONC(165.5,IE,82) D P Q:EX=U
27 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR
28KILL ;Kill Variables and Exit
29 K %,DIR,DIROUT,DIRUT,DTOUT,DUOUT,FILN,ONCOBL,EX,TXT,X,Y,SCTI
30 Q
31P ;Display Data
32 I ($Y'<(LIN-1)) D Q:EX=U I IOST?1"C".E,$G(END)'=1 W !?4,TABLE_" (continued)",!?4,LINE
33 .I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR I 'Y S EX=U Q
34 .D HEAD^ONCBRP0 Q
35 K END Q
Note: See TracBrowser for help on using the repository browser.