- 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 Feb 18, 2025@23:49 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