source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCMPC9B.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: 2.9 KB
Line 
1ONCMPC9B ;HINES CIOFO/GWB - 1999 Melanoma Study - print ;6/1/98
2 ;;2.11;ONCOLOGY;**22**;Mar 07, 1995
3I W !," IMMUNOTHERAPY THERAPY"
4 W !," ---------------------"
5 W !,"72. DATE IMMUNOTHERAPY STARTED......: ",ONC(165.5,IE,55) D P Q:EX=U
6 W !,"73. IMMUNOTHERAPY...................: ",ONC(165.5,IE,55.2) D P Q:EX=U
7 W ! D P Q:EX=U
8 W !,"74. IMMUNOTHERAPEUTIC AGENTS ADMINISTERED:" D P Q:EX=U
9 W !," VACCINE THERAPY................: ",ONC(165.5,IE,884) D P Q:EX=U
10 W !," GENE THERAPY...................: ",ONC(165.5,IE,1131) D P Q:EX=U
11 W !," INTERLEUKIN 2..................: ",ONC(165.5,IE,385) D P Q:EX=U
12 W !," INTERFERON.....................: ",ONC(165.5,IE,384) D P Q:EX=U
13 W !," LEVAMISOLE.....................: ",ONC(165.5,IE,791) D P Q:EX=U
14 W !," COLONY STIMULATING FACTORS.....: ",ONC(165.5,IE,559) D P Q:EX=U
15 W !," OTHER GIVEN, TYPE UNKNOWN......: ",ONC(165.5,IE,386)
16 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCMPC0 W !?4,TABLE_" (continued)",!?4,LINE G OT
17 W ! D P Q:EX=U
18OT W !," OTHER THERAPY"
19 W !," -------------"
20 W !,"75. DATE OTHER TREATMENT STARTED....: ",ONC(165.5,IE,57) D P Q:EX=U
21 W !,"76. OTHER TREATMENT.................: ",ONC(165.5,IE,57.2) D P Q:EX=U
22 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCMPC0 G V
23 W ! D P Q:EX=U
24V S TABLE="TABLE V - FIRST RECURRENCE"
25 I IOST'?1"C".E W !
26 W !?4,TABLE,!?4,"--------------------------" D P Q:EX=U
27 W !,"77. DATE OF FIRST RECURRENCE........: ",ONC(165.5,IE,70) D P Q:EX=U
28 W !,"78. TYPE OF FIRST RECURRENCE........: ",ONC(165.5,IE,71) D P Q:EX=U
29 W !,"79. OTHER TYPE OF FIRST RECURRENCE..: ",ONC(165.5,IE,71.4) D P Q:EX=U
30VI S TABLE="TABLE VI - STATUS AT LAST CONTACT"
31 I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HEAD^ONCMPC0
32 W !!?4,TABLE,!?4,"---------------------------------" D P Q:EX=U
33 S DLC="" I $D(^ONCO(160,ONCOPA,"F","B")) S DLC=$O(^ONCO(160,ONCOPA,"F","B",""),-1)
34 I DLC'="" S Y=DLC D DATEOT^ONCOPCE S DLC=Y
35 W !,"80. DATE OF LAST CONTACT OR DEATH...: ",DLC
36 W !,"81. VITAL STATUS....................: ",ONC(160,ONCOPA,15) D P Q:EX=U
37 S CS="" I $D(^ONCO(165.5,IE,"TS","AA")) D
38 .S CSDAT=$O(^ONCO(165.5,IE,"TS","AA",""))
39 .S CSI=$O(^ONCO(165.5,IE,"TS","AA",CSDAT,""))
40 .S CSPNT=$P(^ONCO(165.5,IE,"TS",CSI,0),U,2)
41 .S:CSPNT'="" CS=$P(^ONCO(164.42,CSPNT,0),U,1)
42 W !,"82. CANCER STATUS...................: ",CS
43VII S TABLE="TABLE VII - OTHER INFORMATION"
44 I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HEAD^ONCMPC0
45 W !!?4,TABLE,!?4,"-----------------------------" D P Q:EX=U
46 W !,"83. COMPLETED BY....................: ",ONC(165.5,IE,81) D P Q:EX=U
47 W !,"84. REVIEWED BY CANCER COMMITTEE....: ",ONC(165.5,IE,82)
48 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR
49KILL ;Kill Variables and Exit
50 K %,DIR,DIROUT,DIRUT,DTOUT,DUOUT,FILN,ONCOBL,EX,TXT,X,Y,SCTI
51 Q
52P ;Display Data
53 I ($Y'<(LIN-1)) D Q:EX=U W !?4,TABLE_" (continued)",!?4,LINE
54 .I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR I 'Y S EX=U Q
55 .D HEAD^ONCMPC0 Q
56 Q
Note: See TracBrowser for help on using the repository browser.