Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ONCMPC9B

ONCMPC9B.m

Go to the documentation of this file. 
  1. ONCMPC9B ;HINES CIOFO/GWB - 1999 Melanoma Study - print ;6/1/98
  1.  ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
  1. I W !,"    IMMUNOTHERAPY THERAPY"
  1.  W !,"    ---------------------"
  1.  W !,"72. DATE IMMUNOTHERAPY STARTED......: ",ONC(165.5,IE,55) D P Q:EX=U
  1.  W !,"73. IMMUNOTHERAPY...................: ",ONC(165.5,IE,55.2) D P Q:EX=U
  1.  W ! D P Q:EX=U
  1.  W !,"74. IMMUNOTHERAPEUTIC AGENTS ADMINISTERED:" D P Q:EX=U
  1.  W !,"     VACCINE THERAPY................: ",ONC(165.5,IE,884) D P Q:EX=U
  1.  W !,"     GENE THERAPY...................: ",ONC(165.5,IE,1131) D P Q:EX=U
  1.  W !,"     INTERLEUKIN 2..................: ",ONC(165.5,IE,385) D P Q:EX=U
  1.  W !,"     INTERFERON.....................: ",ONC(165.5,IE,384) D P Q:EX=U
  1.  W !,"     LEVAMISOLE.....................: ",ONC(165.5,IE,791) D P Q:EX=U
  1.  W !,"     COLONY STIMULATING FACTORS.....: ",ONC(165.5,IE,559) D P Q:EX=U
  1.  W !,"     OTHER GIVEN, TYPE UNKNOWN......: ",ONC(165.5,IE,386)
  1.  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
  1.  W ! D P Q:EX=U
  1. OT W !,"    OTHER THERAPY"
  1.  W !,"    -------------"
  1.  W !,"75. DATE OTHER TREATMENT STARTED....: ",ONC(165.5,IE,57) D P Q:EX=U
  1.  W !,"76. OTHER TREATMENT.................: ",ONC(165.5,IE,57.2) D P Q:EX=U
  1.  I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y  D HEAD^ONCMPC0 G V
  1.  W ! D P Q:EX=U
  1. V S TABLE="TABLE V - FIRST RECURRENCE"
  1.  I IOST'?1"C".E W !
  1.  W !?4,TABLE,!?4,"--------------------------" D P Q:EX=U
  1.  W !,"77. DATE OF FIRST RECURRENCE........: ",ONC(165.5,IE,70) D P Q:EX=U
  1.  W !,"78. TYPE OF FIRST RECURRENCE........: ",ONC(165.5,IE,71) D P Q:EX=U
  1.  W !,"79. OTHER TYPE OF FIRST RECURRENCE..: ",ONC(165.5,IE,71.4) D P Q:EX=U
  1. VI S TABLE="TABLE VI - STATUS AT LAST CONTACT"
  1.  I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HEAD^ONCMPC0
  1.  W !!?4,TABLE,!?4,"---------------------------------" D P Q:EX=U
  1.  S DLC="" I $D(^ONCO(160,ONCOPA,"F","B")) S DLC=$O(^ONCO(160,ONCOPA,"F","B",""),-1)
  1.  I DLC'="" S Y=DLC D DATEOT^ONCOPCE S DLC=Y
  1.  W !,"80. DATE OF LAST CONTACT OR DEATH...: ",DLC
  1.  W !,"81. VITAL STATUS....................: ",ONC(160,ONCOPA,15) D P Q:EX=U
  1.  S CS="" I $D(^ONCO(165.5,IE,"TS","AA")) D
  1.  .S CSDAT=$O(^ONCO(165.5,IE,"TS","AA",""))
  1.  .S CSI=$O(^ONCO(165.5,IE,"TS","AA",CSDAT,""))
  1.  .S CSPNT=$P(^ONCO(165.5,IE,"TS",CSI,0),U,2)
  1.  .S:CSPNT'="" CS=$P(^ONCO(164.42,CSPNT,0),U,1)
  1.  W !,"82. CANCER STATUS...................: ",CS
  1. VII S TABLE="TABLE VII - OTHER INFORMATION"
  1.  I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HEAD^ONCMPC0
  1.  W !!?4,TABLE,!?4,"-----------------------------" D P Q:EX=U
  1.  W !,"83. COMPLETED BY....................: ",ONC(165.5,IE,81) D P Q:EX=U
  1.  W !,"84. REVIEWED BY CANCER COMMITTEE....: ",ONC(165.5,IE,82)
  1.  I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR
  1. KILL ;Kill Variables and Exit
  1.  K %,DIR,DIROUT,DIRUT,DTOUT,DUOUT,FILN,ONCOBL,EX,TXT,X,Y,SCTI
  1.  Q
  1. P ;Display Data
  1.  I ($Y'<(LIN-1)) D  Q:EX=U  W !?4,TABLE_" (continued)",!?4,LINE
  1.  .I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR I 'Y S EX=U Q
  1.  .D HEAD^ONCMPC0 Q
  1.  Q