ONCCPC9B ;HIRMFO/GWB - PCE Study of Colorectal Cancer - Print (continued);4/1/97
;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
V S TABLE="TABLE V - QUALITY OF LIFE"
I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HDR^ONCCPC9
W !?4,TABLE,!?4,"-------------------------" D P Q:EX=U
W !,"69. WERE OTHER REFERRALS MADE:"
W !," NUTRITIONAL CONSULTATION.......: ",ONC(165.5,IE,796) D P Q:EX=U
W !," OCCUPATIONAL THERAPY...........: ",ONC(165.5,IE,797) D P Q:EX=U
W !," PHYSICAL THERAPY...............: ",ONC(165.5,IE,563) D P Q:EX=U
W !," OSTOMY CONSULTATION............: ",ONC(165.5,IE,798) D P Q:EX=U
W !," PSYCHOSOCIAL...................: ",ONC(165.5,IE,799) D P Q:EX=U
VI S TABLE="TABLE VI - FIRST RECURRENCE"
W !!?4,TABLE,!?4,"---------------------------" D P Q:EX=U
W !,"70. DATE OF FIRST RECURRENCE..........: ",ONC(165.5,IE,70) D P Q:EX=U
W !,"71. TYPE OF FIRST RECURRENCE..........: ",ONC(165.5,IE,71) D P Q:EX=U
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCCPC9 G VII
D P Q:EX=U
VII S TABLE="TABLE VII - STATUS AT LAST CONTACT"
I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HDR^ONCCPC9
W !?4,TABLE,!?4,"----------------------------------" D P Q:EX=U
S DLC="" I $D(^ONCO(160,ONCOPA,"F","B")) S DLC=$O(^ONCO(160,ONCOPA,"F","B",""),-1)
I DLC'="" S Y=DLC D DATEOT^ONCOPCE S DLC=Y
W !,"72. DATE OF LAST CONTACT OR DEATH....: ",DLC
W !,"73. VITAL STATUS.....................: ",ONC(160,ONCOPA,15) D P Q:EX=U
S CS="" I $D(^ONCO(165.5,IE,"TS","AA")) D
.S CSDAT=$O(^ONCO(165.5,IE,"TS","AA",""))
.S CSI=$O(^ONCO(165.5,IE,"TS","AA",CSDAT,""))
.S CSPNT=$P(^ONCO(165.5,IE,"TS",CSI,0),U,2)
.S CS=$P(^ONCO(164.42,CSPNT,0),U,1)
W !,"74. CANCER STATUS....................: ",CS
W !,"75. COMPLETED BY.....................: ",ONC(165.5,IE,81) D P Q:EX=U
W !,"76. REVIEWED BY CANCER COMMITTEE.....: ",ONC(165.5,IE,82) D P Q:EX=U
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR
KILL ;Kill Variables and Exit
K %,DIR,DIROUT,DIRUT,DTOUT,DUOUT,FILN,ONCOBL,EX,TXT,X,Y,SCTI
Q
P ;Display Data
I ($Y'<(LIN-1)) D Q:EX=U W !?4,TABLE_" (continued)",!?4,LINE
.I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR I 'Y S EX=U Q
.D HDR^ONCCPC9 Q
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCCPC9B 2198 printed Dec 13, 2024@02:22:38 Page 2
ONCCPC9B ;HIRMFO/GWB - PCE Study of Colorectal Cancer - Print (continued);4/1/97
+1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
V SET TABLE="TABLE V - QUALITY OF LIFE"
+1 IF IOST'?1"C".E
WRITE !
IF ($Y'<(LIN-4))
DO HDR^ONCCPC9
+2 WRITE !?4,TABLE,!?4,"-------------------------"
DO P
if EX=U
QUIT
+3 WRITE !,"69. WERE OTHER REFERRALS MADE:"
+4 WRITE !," NUTRITIONAL CONSULTATION.......: ",ONC(165.5,IE,796)
DO P
if EX=U
QUIT
+5 WRITE !," OCCUPATIONAL THERAPY...........: ",ONC(165.5,IE,797)
DO P
if EX=U
QUIT
+6 WRITE !," PHYSICAL THERAPY...............: ",ONC(165.5,IE,563)
DO P
if EX=U
QUIT
+7 WRITE !," OSTOMY CONSULTATION............: ",ONC(165.5,IE,798)
DO P
if EX=U
QUIT
+8 WRITE !," PSYCHOSOCIAL...................: ",ONC(165.5,IE,799)
DO P
if EX=U
QUIT
VI SET TABLE="TABLE VI - FIRST RECURRENCE"
+1 WRITE !!?4,TABLE,!?4,"---------------------------"
DO P
if EX=U
QUIT
+2 WRITE !,"70. DATE OF FIRST RECURRENCE..........: ",ONC(165.5,IE,70)
DO P
if EX=U
QUIT
+3 WRITE !,"71. TYPE OF FIRST RECURRENCE..........: ",ONC(165.5,IE,71)
DO P
if EX=U
QUIT
+4 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
DO HDR^ONCCPC9
GOTO VII
+5 DO P
if EX=U
QUIT
VII SET TABLE="TABLE VII - STATUS AT LAST CONTACT"
+1 IF IOST'?1"C".E
WRITE !
IF ($Y'<(LIN-4))
DO HDR^ONCCPC9
+2 WRITE !?4,TABLE,!?4,"----------------------------------"
DO P
if EX=U
QUIT
+3 SET DLC=""
IF $DATA(^ONCO(160,ONCOPA,"F","B"))
SET DLC=$ORDER(^ONCO(160,ONCOPA,"F","B",""),-1)
+4 IF DLC'=""
SET Y=DLC
DO DATEOT^ONCOPCE
SET DLC=Y
+5 WRITE !,"72. DATE OF LAST CONTACT OR DEATH....: ",DLC
+6 WRITE !,"73. VITAL STATUS.....................: ",ONC(160,ONCOPA,15)
DO P
if EX=U
QUIT
+7 SET CS=""
IF $DATA(^ONCO(165.5,IE,"TS","AA"))
Begin DoDot:1
+8 SET CSDAT=$ORDER(^ONCO(165.5,IE,"TS","AA",""))
+9 SET CSI=$ORDER(^ONCO(165.5,IE,"TS","AA",CSDAT,""))
+10 SET CSPNT=$PIECE(^ONCO(165.5,IE,"TS",CSI,0),U,2)
+11 SET CS=$PIECE(^ONCO(164.42,CSPNT,0),U,1)
End DoDot:1
+12 WRITE !,"74. CANCER STATUS....................: ",CS
+13 WRITE !,"75. COMPLETED BY.....................: ",ONC(165.5,IE,81)
DO P
if EX=U
QUIT
+14 WRITE !,"76. REVIEWED BY CANCER COMMITTEE.....: ",ONC(165.5,IE,82)
DO P
if EX=U
QUIT
+15 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
KILL ;Kill Variables and Exit
+1 KILL %,DIR,DIROUT,DIRUT,DTOUT,DUOUT,FILN,ONCOBL,EX,TXT,X,Y,SCTI
+2 QUIT
P ;Display Data
+1 IF ($Y'<(LIN-1))
Begin DoDot:1
+2 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
IF 'Y
SET EX=U
QUIT
+3 DO HDR^ONCCPC9
QUIT
End DoDot:1
if EX=U
QUIT
WRITE !?4,TABLE_" (continued)",!?4,LINE
+4 QUIT
