| [613] | 1 | ONCCPC9B ;HIRMFO/GWB - PCE Study of Colorectal Cancer - Print (continued);4/1/97
|
|---|
| 2 | ;;2.11;ONCOLOGY;**11**;Mar 07, 1995
|
|---|
| 3 | V S TABLE="TABLE V - QUALITY OF LIFE"
|
|---|
| 4 | I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HDR^ONCCPC9
|
|---|
| 5 | W !?4,TABLE,!?4,"-------------------------" D P Q:EX=U
|
|---|
| 6 | W !,"69. WERE OTHER REFERRALS MADE:"
|
|---|
| 7 | W !," NUTRITIONAL CONSULTATION.......: ",ONC(165.5,IE,796) D P Q:EX=U
|
|---|
| 8 | W !," OCCUPATIONAL THERAPY...........: ",ONC(165.5,IE,797) D P Q:EX=U
|
|---|
| 9 | W !," PHYSICAL THERAPY...............: ",ONC(165.5,IE,563) D P Q:EX=U
|
|---|
| 10 | W !," OSTOMY CONSULTATION............: ",ONC(165.5,IE,798) D P Q:EX=U
|
|---|
| 11 | W !," PSYCHOSOCIAL...................: ",ONC(165.5,IE,799) D P Q:EX=U
|
|---|
| 12 | VI S TABLE="TABLE VI - FIRST RECURRENCE"
|
|---|
| 13 | W !!?4,TABLE,!?4,"---------------------------" D P Q:EX=U
|
|---|
| 14 | W !,"70. DATE OF FIRST RECURRENCE..........: ",ONC(165.5,IE,70) D P Q:EX=U
|
|---|
| 15 | W !,"71. TYPE OF FIRST RECURRENCE..........: ",ONC(165.5,IE,71) D P Q:EX=U
|
|---|
| 16 | I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCCPC9 G VII
|
|---|
| 17 | D P Q:EX=U
|
|---|
| 18 | VII S TABLE="TABLE VII - STATUS AT LAST CONTACT"
|
|---|
| 19 | I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HDR^ONCCPC9
|
|---|
| 20 | W !?4,TABLE,!?4,"----------------------------------" D P Q:EX=U
|
|---|
| 21 | S DLC="" I $D(^ONCO(160,ONCOPA,"F","B")) S DLC=$O(^ONCO(160,ONCOPA,"F","B",""),-1)
|
|---|
| 22 | I DLC'="" S Y=DLC D DATEOT^ONCOPCE S DLC=Y
|
|---|
| 23 | W !,"72. DATE OF LAST CONTACT OR DEATH....: ",DLC
|
|---|
| 24 | W !,"73. VITAL STATUS.....................: ",ONC(160,ONCOPA,15) D P Q:EX=U
|
|---|
| 25 | S CS="" I $D(^ONCO(165.5,IE,"TS","AA")) D
|
|---|
| 26 | .S CSDAT=$O(^ONCO(165.5,IE,"TS","AA",""))
|
|---|
| 27 | .S CSI=$O(^ONCO(165.5,IE,"TS","AA",CSDAT,""))
|
|---|
| 28 | .S CSPNT=$P(^ONCO(165.5,IE,"TS",CSI,0),U,2)
|
|---|
| 29 | .S CS=$P(^ONCO(164.42,CSPNT,0),U,1)
|
|---|
| 30 | W !,"74. CANCER STATUS....................: ",CS
|
|---|
| 31 | W !,"75. COMPLETED BY.....................: ",ONC(165.5,IE,81) D P Q:EX=U
|
|---|
| 32 | W !,"76. REVIEWED BY CANCER COMMITTEE.....: ",ONC(165.5,IE,82) D P Q:EX=U
|
|---|
| 33 | I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR
|
|---|
| 34 | KILL ;Kill Variables and Exit
|
|---|
| 35 | K %,DIR,DIROUT,DIRUT,DTOUT,DUOUT,FILN,ONCOBL,EX,TXT,X,Y,SCTI
|
|---|
| 36 | Q
|
|---|
| 37 | P ;Display Data
|
|---|
| 38 | I ($Y'<(LIN-1)) D Q:EX=U W !?4,TABLE_" (continued)",!?4,LINE
|
|---|
| 39 | .I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR I 'Y S EX=U Q
|
|---|
| 40 | .D HDR^ONCCPC9 Q
|
|---|
| 41 | Q
|
|---|
