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

ONCCPC9B.m

Go to the documentation of this file.
  1. ONCCPC9B ;HIRMFO/GWB - PCE Study of Colorectal Cancer - Print (continued);4/1/97
  1. ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
  1. V S TABLE="TABLE V - QUALITY OF LIFE"
  1. I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HDR^ONCCPC9
  1. W !?4,TABLE,!?4,"-------------------------" D P Q:EX=U
  1. W !,"69. WERE OTHER REFERRALS MADE:"
  1. W !," NUTRITIONAL CONSULTATION.......: ",ONC(165.5,IE,796) D P Q:EX=U
  1. W !," OCCUPATIONAL THERAPY...........: ",ONC(165.5,IE,797) D P Q:EX=U
  1. W !," PHYSICAL THERAPY...............: ",ONC(165.5,IE,563) D P Q:EX=U
  1. W !," OSTOMY CONSULTATION............: ",ONC(165.5,IE,798) D P Q:EX=U
  1. W !," PSYCHOSOCIAL...................: ",ONC(165.5,IE,799) D P Q:EX=U
  1. VI S TABLE="TABLE VI - FIRST RECURRENCE"
  1. W !!?4,TABLE,!?4,"---------------------------" D P Q:EX=U
  1. W !,"70. DATE OF FIRST RECURRENCE..........: ",ONC(165.5,IE,70) D P Q:EX=U
  1. W !,"71. TYPE OF FIRST RECURRENCE..........: ",ONC(165.5,IE,71) D P Q:EX=U
  1. I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCCPC9 G VII
  1. D P Q:EX=U
  1. VII S TABLE="TABLE VII - STATUS AT LAST CONTACT"
  1. I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HDR^ONCCPC9
  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 !,"72. DATE OF LAST CONTACT OR DEATH....: ",DLC
  1. W !,"73. 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 CS=$P(^ONCO(164.42,CSPNT,0),U,1)
  1. W !,"74. CANCER STATUS....................: ",CS
  1. W !,"75. COMPLETED BY.....................: ",ONC(165.5,IE,81) D P Q:EX=U
  1. W !,"76. REVIEWED BY CANCER COMMITTEE.....: ",ONC(165.5,IE,82) D P Q:EX=U
  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 HDR^ONCCPC9 Q
  1. Q