source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCP2P8B.m@ 1259

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

initial load of WorldVistAEHR

File size: 1.5 KB
Line 
1ONCP2P8B ;HINES CIOFO/GWB - 1998 Prostate Cancer Study - print ;6/1/98
2 ;;2.11;ONCOLOGY;**18,22**;Mar 07, 1995
3V S TABLE="TABLE V - FIRST RECURRENCE"
4 I IOST'?1"C".E W !
5 W !?4,TABLE,!?4,"--------------------------" D P Q:EX=U
6 W !,"64. DATE OF FIRST RECURRENCE.........: ",ONC(165.5,IE,70) D P Q:EX=U
7 W !,"65. TYPE OF FIRST RECURRENCE.........: ",ONC(165.5,IE,71) D P Q:EX=U
8VI S TABLE="TABLE VI - STATUS AT LAST CONTACT"
9 I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HEAD^ONCP2P0
10 W !!?4,TABLE,!?4,"---------------------------------" D P Q:EX=U
11 S DLC="" I $D(^ONCO(160,ONCOPA,"F","B")) S DLC=$O(^ONCO(160,ONCOPA,"F","B",""),-1)
12 I DLC'="" S Y=DLC D DATEOT^ONCOPCE S DLC=Y
13 W !,"66. DATE OF LAST CONTACT OR DEATH....: ",DLC
14 W !,"67. VITAL STATUS.....................: ",ONC(160,ONCOPA,15) D P Q:EX=U
15 S CS="" I $D(^ONCO(165.5,IE,"TS","AA")) D
16 .S CSDAT=$O(^ONCO(165.5,IE,"TS","AA",""))
17 .S CSI=$O(^ONCO(165.5,IE,"TS","AA",CSDAT,""))
18 .S CSPNT=$P(^ONCO(165.5,IE,"TS",CSI,0),U,2)
19 .S:CSPNT'="" CS=$P(^ONCO(164.42,CSPNT,0),U,1)
20 W !,"68. CANCER STATUS....................: ",CS
21 W !,"69. COMPLETED BY.....................: ",ONC(165.5,IE,81) D P Q:EX=U
22 W !,"70. REVIEWED BY CANCER COMMITTEE.....: ",ONC(165.5,IE,82) D P Q:EX=U
23 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR
24KILL ;Kill Variables and Exit
25 K %,DIR,DIROUT,DIRUT,DTOUT,DUOUT,FILN,ONCOBL,EX,TXT,X,Y,SCTI
26 Q
27P ;Display Data
28 I ($Y'<(LIN-1)) D Q:EX=U W !?4,TABLE_" (continued)",!?4,LINE
29 .I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR I 'Y S EX=U Q
30 .D HEAD^ONCP2P0 Q
31 Q
Note: See TracBrowser for help on using the repository browser.