| 1 | ONCMPC9B ;HINES CIOFO/GWB - 1999 Melanoma Study - print ;6/1/98
|
|---|
| 2 | ;;2.11;ONCOLOGY;**22**;Mar 07, 1995
|
|---|
| 3 | I 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
|
|---|
| 18 | OT 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
|
|---|
| 24 | V 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
|
|---|
| 30 | VI 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
|
|---|
| 43 | VII 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
|
|---|
| 49 | KILL ;Kill Variables and Exit
|
|---|
| 50 | K %,DIR,DIROUT,DIRUT,DTOUT,DUOUT,FILN,ONCOBL,EX,TXT,X,Y,SCTI
|
|---|
| 51 | Q
|
|---|
| 52 | P ;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
|
|---|
