ONCHPC8A ;Hines OIFO/GWB - 2000 Hepatocellular Cancers PCE Study ;01/12/00
;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
;Print (continued)
III K LINE S $P(LINE,"-",29)="-"
S TABLE="STAGE OF DISEASE AT DIAGNOSIS"
I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HEAD^ONCHPC0
W !?4,TABLE,!?4,LINE
D P Q:EX=U
W !,"23. SIZE OF TUMOR...............: ",$$GET1^DIQ(165.5,IE,29)
D P Q:EX=U
W !,"24. REGIONAL NODES EXAMINED.....: ",$$GET1^DIQ(165.5,IE,33)
D P Q:EX=U
W !,"25. REGIONAL NODES POSITIVE.....: ",$$GET1^DIQ(165.5,IE,32)
D P Q:EX=U
W !
D P Q:EX=U
ACS W !,"26. AJCC CLINICAL STAGE (cTNM):"
D P Q:EX=U
W !," AJCC CLINICAL T............: ",$$GET1^DIQ(165.5,IE,37.1)
D P Q:EX=U
W !," AJCC CLINICAL N............: ",$$GET1^DIQ(165.5,IE,37.2)
D P Q:EX=U
W !," AJCC CLINICAL M............: ",$$GET1^DIQ(165.5,IE,37.3)
D P Q:EX=U
W !," AJCC CLINICAL STAGE GROUP..: ",$$GET1^DIQ(165.5,IE,38)
D P Q:EX=U
APS W !
D P Q:EX=U
W !,"27. AJCC PATHOLOGIC STAGE (pTNM):"
D P Q:EX=U
W !," AJCC PATHOLOGIC T..........: ",$$GET1^DIQ(165.5,IE,85)
D P Q:EX=U
W !," AJCC PATHOLOGIC N..........: ",$$GET1^DIQ(165.5,IE,86)
D P Q:EX=U
W !," AJCC PATHOLOGIC M..........: ",$$GET1^DIQ(165.5,IE,87)
D P Q:EX=U
W !," AJCC PATHOLOGIC STAGE GROUP: ",$$GET1^DIQ(165.5,IE,88)
D P Q:EX=U
W !
D P Q:EX=U
W !,"28. STAGED BY:"
D P Q:EX=U
W !," CLINICALLY STAGED BY.......: ",$$GET1^DIQ(165.5,IE,19)
D P Q:EX=U
W !," PATHOLOGICALLY STAGED BY...: ",$$GET1^DIQ(165.5,IE,89)
D P Q:EX=U
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCHPC0 G IV
D P Q:EX=U
IV S TABLE="FIRST COURSE OF TREATMENT"
I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HEAD^ONCHPC0
K LINE S $P(LINE,"-",25)="-"
W !?4,TABLE,!?4,LINE
D P Q:EX=U
S D0=ONCONUM D DFC^ONCOCOM S DOFCT=Y
W !,"29. DATE OF FIRST COURSE OF"
D P Q:EX=U
W !," TREATMENT..................: ",DOFCT
D P Q:EX=U
W !,"30. DATE OF INPATIENT ADMISSION.: ",$$GET1^DIQ(165.5,IE,1)
D P Q:EX=U
W !,"31. DATE OF INPATIENT DISCHARGE.: ",$$GET1^DIQ(165.5,IE,1.1)
D P Q:EX=U
W !
D P Q:EX=U
W !?4,"SURGERY",!?4,"-------"
D P Q:EX=U
W !?4,"NON CANCER-DIRECTED SURGERY",!?4,"---------------------------"
D P Q:EX=U
S W !,"32. DATE OF NON CANCER-DIRECTED"
D P Q:EX=U
W !," SURGERY....................: ",$$GET1^DIQ(165.5,IE,58.3)
D P Q:EX=U
S DESC=$$GET1^DIQ(165.5,IE,58.1) D DESC
NCDS W !,"33. NON CANCER-DIRECTED SURGERY.: ",DESC1 W:DESC2'="" !,?34,DESC2
D P Q:EX=U
W !?4,"CANCER-DIRECTED SURGERY",!?4,"-----------------------"
D P Q:EX=U
W !,"34. DATE OF CANCER-DIRECTED"
D P Q:EX=U
W !," SURGERY....................: ",$$GET1^DIQ(165.5,IE,50)
D P Q:EX=U
SA W !,"35. SURGICAL APPROACH...........: ",$$GET1^DIQ(165.5,IE,74)
D P Q:EX=U
CDS S DESC=$$GET1^DIQ(165.5,IE,58.2) D DESC
SPS W !,"36. SURGERY OF PRIMARY SITE.....: ",DESC1 W:DESC2'="" !,?34,DESC2
D P Q:EX=U
W !,"37. RADIO-FREQUENCY DESTRUCTION"
D P Q:EX=U
W !," OF TUMOR...................: ",$$GET1^DIQ(165.5,IE,1056)
D P Q:EX=U
W !,"38. ABLATION & RESECTION........: ",$$GET1^DIQ(165.5,IE,1057)
D P Q:EX=U
S DESC=$$GET1^DIQ(165.5,IE,59) D DESC
SM W !,"39. SURGICAL MARGINS............: ",DESC1 W:DESC2'="" !,?34,DESC2
D P Q:EX=U
W !,"40. DISTANCE OF TUMOR TO CLOSEST"
D P Q:EX=U
W !," MARGIN.....................: ",$$GET1^DIQ(165.5,IE,1058)
D P Q:EX=U
S DESC=$$GET1^DIQ(165.5,IE,139) D DESC
SORS W !,"41. SURGERY OF OTHER REGIONAL"
D P Q:EX=U
W !," SITE(S), DISTANT SITE(S),"
D P Q:EX=U
W !," OR DISTANT LYMPH NODE(S)...: ",DESC1 W:DESC2'="" !,?34,DESC2
D P Q:EX=U
W !
D P Q:EX=U
STRPT W !,"42. SURGICAL TREATMENT OF RESIDUAL PRIMARY TUMOR:"
D P Q:EX=U
W !," ABLATION...................: ",$$GET1^DIQ(165.5,IE,1059)
D P Q:EX=U
W !," RESECTION..................: ",$$GET1^DIQ(165.5,IE,1060)
D P Q:EX=U
W !
D P Q:EX=U
RR W !,"43. RECONSTRUCTION/RESTORATION-"
D P Q:EX=U
W !," FIRST COURSE...............: ",$$GET1^DIQ(165.5,IE,23)
D P Q:EX=U
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCHPC0 W !?4,TABLE_" (continued)",!?4,LINE_"------------"
R W !?4,"RADIATION THERAPY",!?4,"-----------------"
D P Q:EX=U
W !,"44. DATE RADIATION STARTED......: ",$$GET1^DIQ(165.5,IE,51)
D P Q:EX=U
W !,"45. RADIATION THERAPY...........: ",$$GET1^DIQ(165.5,IE,51.2)
D P Q:EX=U
W !
D P Q:EX=U
C W !?4,"CHEMOTHERAPY",!?4,"------------"
D P Q:EX=U
W !,"46. DATE CHEMOTHERAPY STARTED...: ",$$GET1^DIQ(165.5,IE,53)
D P Q:EX=U
W !,"47. CHEMOTHERAPY................: ",$$GET1^DIQ(165.5,IE,53.2)
D P Q:EX=U
W !
D P Q:EX=U
TCAA W !,"48. TYPE OF CHEMOTHERAPEUTIC AGENTS ADMINISTERED:" D P Q:EX=U
W !," CISPLATIN..................: ",$$GET1^DIQ(165.5,IE,1061)
D P Q:EX=U
W !," FUDR.......................: ",$$GET1^DIQ(165.5,IE,1062)
D P Q:EX=U
W !," 5-FU.......................: ",$$GET1^DIQ(165.5,IE,1063)
D P Q:EX=U
W !," FU & LEUCOVERIN............: ",$$GET1^DIQ(165.5,IE,1064)
D P Q:EX=U
W !," IRINOTECAN (CPT-11)........: ",$$GET1^DIQ(165.5,IE,1065)
D P Q:EX=U
W !," MITOMYCIN C................: ",$$GET1^DIQ(165.5,IE,1066)
D P Q:EX=U
W !," OXALIPLATIN................: ",$$GET1^DIQ(165.5,IE,1067)
D P Q:EX=U
W !," GEMCITABINE................: ",$$GET1^DIQ(165.5,IE,1068)
D P Q:EX=U
W !
D P Q:EX=U
W !,"49. ROUTE CHEMOTHERAPY ADMIN....: ",$$GET1^DIQ(165.5,IE,1069)
D P Q:EX=U
W !,"50. CHEMOTHERAPY/SURGERY SEQ....: ",$$GET1^DIQ(165.5,IE,1070)
D P Q:EX=U
W !
D P Q:EX=U
OT W !?4,"OTHER THERAPY",!?4,"-------------"
D P Q:EX=U
W !,"51. DATE OTHER TREATMENT STARTED: ",$$GET1^DIQ(165.5,IE,57)
D P Q:EX=U
W !,"52. OTHER TREATMENT.............: ",$$GET1^DIQ(165.5,IE,57.2)
D P Q:EX=U
W !,"53. ARTERIAL EMBOLIZATION.......: ",$$GET1^DIQ(165.5,IE,1071)
D P Q:EX=U
W !,"54. DEATH WITHIN 30 DAYS OF"
D P Q:EX=U
W !," START OF INITIAL COURSE OF"
D P Q:EX=U
W !," THERAPY....................: ",$$GET1^DIQ(165.5,IE,1072)
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCHPC0 G V
D P Q:EX=U
V S TABLE="RECURRENCE"
I IOST'?1"C".E W !
W !?4,TABLE,!?4,"----------"
D P Q:EX=U
W !,"55. DATE OF FIRST RECURRENCE....: ",$$GET1^DIQ(165.5,IE,70)
D P Q:EX=U
S DESC=$$GET1^DIQ(165.5,IE,71) D DESC
TFR W !,"56. TYPE OF FIRST RECURRENCE....: ",DESC1 W:DESC2'="" !,?31,DESC2
S END=1
D P Q:EX=U
VI S TABLE="FOLLOW-UP"
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 !,"57. DATE OF LAST CONTACT/DEATH..: ",DLC
D P Q:EX=U
W !,"58. VITAL STATUS................: ",$$GET1^DIQ(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 !,"59. CANCER STATUS...............: ",CS
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR
Q
P ;Print
I ($Y'<(LIN-1)) D Q:EX=U I $G(END)'=1 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 HEAD^ONCHPC0 Q
Q
DESC S (DESC1,DESC2)="",LOS=$L(DESC) I LOS<46 S DESC1=DESC Q
S NOP=$L($E(DESC,1,46)," ")
S DESC1=$P(DESC," ",1,NOP-1),DESC2=$P(DESC," ",NOP,999)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCHPC8A 7476 printed Dec 13, 2024@02:23:14 Page 2
ONCHPC8A ;Hines OIFO/GWB - 2000 Hepatocellular Cancers PCE Study ;01/12/00
+1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
+2 ;Print (continued)
III KILL LINE
SET $PIECE(LINE,"-",29)="-"
+1 SET TABLE="STAGE OF DISEASE AT DIAGNOSIS"
+2 IF IOST'?1"C".E
WRITE !
IF ($Y'<(LIN-4))
DO HEAD^ONCHPC0
+3 WRITE !?4,TABLE,!?4,LINE
+4 DO P
if EX=U
QUIT
+5 WRITE !,"23. SIZE OF TUMOR...............: ",$$GET1^DIQ(165.5,IE,29)
+6 DO P
if EX=U
QUIT
+7 WRITE !,"24. REGIONAL NODES EXAMINED.....: ",$$GET1^DIQ(165.5,IE,33)
+8 DO P
if EX=U
QUIT
+9 WRITE !,"25. REGIONAL NODES POSITIVE.....: ",$$GET1^DIQ(165.5,IE,32)
+10 DO P
if EX=U
QUIT
+11 WRITE !
+12 DO P
if EX=U
QUIT
ACS WRITE !,"26. AJCC CLINICAL STAGE (cTNM):"
+1 DO P
if EX=U
QUIT
+2 WRITE !," AJCC CLINICAL T............: ",$$GET1^DIQ(165.5,IE,37.1)
+3 DO P
if EX=U
QUIT
+4 WRITE !," AJCC CLINICAL N............: ",$$GET1^DIQ(165.5,IE,37.2)
+5 DO P
if EX=U
QUIT
+6 WRITE !," AJCC CLINICAL M............: ",$$GET1^DIQ(165.5,IE,37.3)
+7 DO P
if EX=U
QUIT
+8 WRITE !," AJCC CLINICAL STAGE GROUP..: ",$$GET1^DIQ(165.5,IE,38)
+9 DO P
if EX=U
QUIT
APS WRITE !
+1 DO P
if EX=U
QUIT
+2 WRITE !,"27. AJCC PATHOLOGIC STAGE (pTNM):"
+3 DO P
if EX=U
QUIT
+4 WRITE !," AJCC PATHOLOGIC T..........: ",$$GET1^DIQ(165.5,IE,85)
+5 DO P
if EX=U
QUIT
+6 WRITE !," AJCC PATHOLOGIC N..........: ",$$GET1^DIQ(165.5,IE,86)
+7 DO P
if EX=U
QUIT
+8 WRITE !," AJCC PATHOLOGIC M..........: ",$$GET1^DIQ(165.5,IE,87)
+9 DO P
if EX=U
QUIT
+10 WRITE !," AJCC PATHOLOGIC STAGE GROUP: ",$$GET1^DIQ(165.5,IE,88)
+11 DO P
if EX=U
QUIT
+12 WRITE !
+13 DO P
if EX=U
QUIT
+14 WRITE !,"28. STAGED BY:"
+15 DO P
if EX=U
QUIT
+16 WRITE !," CLINICALLY STAGED BY.......: ",$$GET1^DIQ(165.5,IE,19)
+17 DO P
if EX=U
QUIT
+18 WRITE !," PATHOLOGICALLY STAGED BY...: ",$$GET1^DIQ(165.5,IE,89)
+19 DO P
if EX=U
QUIT
+20 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
DO HEAD^ONCHPC0
GOTO IV
+21 DO P
if EX=U
QUIT
IV SET TABLE="FIRST COURSE OF TREATMENT"
+1 IF IOST'?1"C".E
WRITE !
IF ($Y'<(LIN-4))
DO HEAD^ONCHPC0
+2 KILL LINE
SET $PIECE(LINE,"-",25)="-"
+3 WRITE !?4,TABLE,!?4,LINE
+4 DO P
if EX=U
QUIT
+5 SET D0=ONCONUM
DO DFC^ONCOCOM
SET DOFCT=Y
+6 WRITE !,"29. DATE OF FIRST COURSE OF"
+7 DO P
if EX=U
QUIT
+8 WRITE !," TREATMENT..................: ",DOFCT
+9 DO P
if EX=U
QUIT
+10 WRITE !,"30. DATE OF INPATIENT ADMISSION.: ",$$GET1^DIQ(165.5,IE,1)
+11 DO P
if EX=U
QUIT
+12 WRITE !,"31. DATE OF INPATIENT DISCHARGE.: ",$$GET1^DIQ(165.5,IE,1.1)
+13 DO P
if EX=U
QUIT
+14 WRITE !
+15 DO P
if EX=U
QUIT
+16 WRITE !?4,"SURGERY",!?4,"-------"
+17 DO P
if EX=U
QUIT
+18 WRITE !?4,"NON CANCER-DIRECTED SURGERY",!?4,"---------------------------"
+19 DO P
if EX=U
QUIT
S WRITE !,"32. DATE OF NON CANCER-DIRECTED"
+1 DO P
if EX=U
QUIT
+2 WRITE !," SURGERY....................: ",$$GET1^DIQ(165.5,IE,58.3)
+3 DO P
if EX=U
QUIT
+4 SET DESC=$$GET1^DIQ(165.5,IE,58.1)
DO DESC
NCDS WRITE !,"33. NON CANCER-DIRECTED SURGERY.: ",DESC1
if DESC2'=""
WRITE !,?34,DESC2
+1 DO P
if EX=U
QUIT
+2 WRITE !?4,"CANCER-DIRECTED SURGERY",!?4,"-----------------------"
+3 DO P
if EX=U
QUIT
+4 WRITE !,"34. DATE OF CANCER-DIRECTED"
+5 DO P
if EX=U
QUIT
+6 WRITE !," SURGERY....................: ",$$GET1^DIQ(165.5,IE,50)
+7 DO P
if EX=U
QUIT
SA WRITE !,"35. SURGICAL APPROACH...........: ",$$GET1^DIQ(165.5,IE,74)
+1 DO P
if EX=U
QUIT
CDS SET DESC=$$GET1^DIQ(165.5,IE,58.2)
DO DESC
SPS WRITE !,"36. SURGERY OF PRIMARY SITE.....: ",DESC1
if DESC2'=""
WRITE !,?34,DESC2
+1 DO P
if EX=U
QUIT
+2 WRITE !,"37. RADIO-FREQUENCY DESTRUCTION"
+3 DO P
if EX=U
QUIT
+4 WRITE !," OF TUMOR...................: ",$$GET1^DIQ(165.5,IE,1056)
+5 DO P
if EX=U
QUIT
+6 WRITE !,"38. ABLATION & RESECTION........: ",$$GET1^DIQ(165.5,IE,1057)
+7 DO P
if EX=U
QUIT
+8 SET DESC=$$GET1^DIQ(165.5,IE,59)
DO DESC
SM WRITE !,"39. SURGICAL MARGINS............: ",DESC1
if DESC2'=""
WRITE !,?34,DESC2
+1 DO P
if EX=U
QUIT
+2 WRITE !,"40. DISTANCE OF TUMOR TO CLOSEST"
+3 DO P
if EX=U
QUIT
+4 WRITE !," MARGIN.....................: ",$$GET1^DIQ(165.5,IE,1058)
+5 DO P
if EX=U
QUIT
+6 SET DESC=$$GET1^DIQ(165.5,IE,139)
DO DESC
SORS WRITE !,"41. SURGERY OF OTHER REGIONAL"
+1 DO P
if EX=U
QUIT
+2 WRITE !," SITE(S), DISTANT SITE(S),"
+3 DO P
if EX=U
QUIT
+4 WRITE !," OR DISTANT LYMPH NODE(S)...: ",DESC1
if DESC2'=""
WRITE !,?34,DESC2
+5 DO P
if EX=U
QUIT
+6 WRITE !
+7 DO P
if EX=U
QUIT
STRPT WRITE !,"42. SURGICAL TREATMENT OF RESIDUAL PRIMARY TUMOR:"
+1 DO P
if EX=U
QUIT
+2 WRITE !," ABLATION...................: ",$$GET1^DIQ(165.5,IE,1059)
+3 DO P
if EX=U
QUIT
+4 WRITE !," RESECTION..................: ",$$GET1^DIQ(165.5,IE,1060)
+5 DO P
if EX=U
QUIT
+6 WRITE !
+7 DO P
if EX=U
QUIT
RR WRITE !,"43. RECONSTRUCTION/RESTORATION-"
+1 DO P
if EX=U
QUIT
+2 WRITE !," FIRST COURSE...............: ",$$GET1^DIQ(165.5,IE,23)
+3 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 HEAD^ONCHPC0
WRITE !?4,TABLE_" (continued)",!?4,LINE_"------------"
R WRITE !?4,"RADIATION THERAPY",!?4,"-----------------"
+1 DO P
if EX=U
QUIT
+2 WRITE !,"44. DATE RADIATION STARTED......: ",$$GET1^DIQ(165.5,IE,51)
+3 DO P
if EX=U
QUIT
+4 WRITE !,"45. RADIATION THERAPY...........: ",$$GET1^DIQ(165.5,IE,51.2)
+5 DO P
if EX=U
QUIT
+6 WRITE !
+7 DO P
if EX=U
QUIT
C WRITE !?4,"CHEMOTHERAPY",!?4,"------------"
+1 DO P
if EX=U
QUIT
+2 WRITE !,"46. DATE CHEMOTHERAPY STARTED...: ",$$GET1^DIQ(165.5,IE,53)
+3 DO P
if EX=U
QUIT
+4 WRITE !,"47. CHEMOTHERAPY................: ",$$GET1^DIQ(165.5,IE,53.2)
+5 DO P
if EX=U
QUIT
+6 WRITE !
+7 DO P
if EX=U
QUIT
TCAA WRITE !,"48. TYPE OF CHEMOTHERAPEUTIC AGENTS ADMINISTERED:"
DO P
if EX=U
QUIT
+1 WRITE !," CISPLATIN..................: ",$$GET1^DIQ(165.5,IE,1061)
+2 DO P
if EX=U
QUIT
+3 WRITE !," FUDR.......................: ",$$GET1^DIQ(165.5,IE,1062)
+4 DO P
if EX=U
QUIT
+5 WRITE !," 5-FU.......................: ",$$GET1^DIQ(165.5,IE,1063)
+6 DO P
if EX=U
QUIT
+7 WRITE !," FU & LEUCOVERIN............: ",$$GET1^DIQ(165.5,IE,1064)
+8 DO P
if EX=U
QUIT
+9 WRITE !," IRINOTECAN (CPT-11)........: ",$$GET1^DIQ(165.5,IE,1065)
+10 DO P
if EX=U
QUIT
+11 WRITE !," MITOMYCIN C................: ",$$GET1^DIQ(165.5,IE,1066)
+12 DO P
if EX=U
QUIT
+13 WRITE !," OXALIPLATIN................: ",$$GET1^DIQ(165.5,IE,1067)
+14 DO P
if EX=U
QUIT
+15 WRITE !," GEMCITABINE................: ",$$GET1^DIQ(165.5,IE,1068)
+16 DO P
if EX=U
QUIT
+17 WRITE !
+18 DO P
if EX=U
QUIT
+19 WRITE !,"49. ROUTE CHEMOTHERAPY ADMIN....: ",$$GET1^DIQ(165.5,IE,1069)
+20 DO P
if EX=U
QUIT
+21 WRITE !,"50. CHEMOTHERAPY/SURGERY SEQ....: ",$$GET1^DIQ(165.5,IE,1070)
+22 DO P
if EX=U
QUIT
+23 WRITE !
+24 DO P
if EX=U
QUIT
OT WRITE !?4,"OTHER THERAPY",!?4,"-------------"
+1 DO P
if EX=U
QUIT
+2 WRITE !,"51. DATE OTHER TREATMENT STARTED: ",$$GET1^DIQ(165.5,IE,57)
+3 DO P
if EX=U
QUIT
+4 WRITE !,"52. OTHER TREATMENT.............: ",$$GET1^DIQ(165.5,IE,57.2)
+5 DO P
if EX=U
QUIT
+6 WRITE !,"53. ARTERIAL EMBOLIZATION.......: ",$$GET1^DIQ(165.5,IE,1071)
+7 DO P
if EX=U
QUIT
+8 WRITE !,"54. DEATH WITHIN 30 DAYS OF"
+9 DO P
if EX=U
QUIT
+10 WRITE !," START OF INITIAL COURSE OF"
+11 DO P
if EX=U
QUIT
+12 WRITE !," THERAPY....................: ",$$GET1^DIQ(165.5,IE,1072)
+13 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
DO HEAD^ONCHPC0
GOTO V
+14 DO P
if EX=U
QUIT
V SET TABLE="RECURRENCE"
+1 IF IOST'?1"C".E
WRITE !
+2 WRITE !?4,TABLE,!?4,"----------"
+3 DO P
if EX=U
QUIT
+4 WRITE !,"55. DATE OF FIRST RECURRENCE....: ",$$GET1^DIQ(165.5,IE,70)
+5 DO P
if EX=U
QUIT
+6 SET DESC=$$GET1^DIQ(165.5,IE,71)
DO DESC
TFR WRITE !,"56. TYPE OF FIRST RECURRENCE....: ",DESC1
if DESC2'=""
WRITE !,?31,DESC2
+1 SET END=1
+2 DO P
if EX=U
QUIT
VI SET TABLE="FOLLOW-UP"
+1 WRITE !!?4,TABLE,!?4,"---------"
+2 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 !,"57. DATE OF LAST CONTACT/DEATH..: ",DLC
+6 DO P
if EX=U
QUIT
+7 WRITE !,"58. VITAL STATUS................: ",$$GET1^DIQ(160,ONCOPA,15)
+8 DO P
if EX=U
QUIT
+9 SET CS=""
IF $DATA(^ONCO(165.5,IE,"TS","AA"))
Begin DoDot:1
+10 SET CSDAT=$ORDER(^ONCO(165.5,IE,"TS","AA",""))
+11 SET CSI=$ORDER(^ONCO(165.5,IE,"TS","AA",CSDAT,""))
+12 SET CSPNT=$PIECE(^ONCO(165.5,IE,"TS",CSI,0),U,2)
+13 SET CS=$PIECE(^ONCO(164.42,CSPNT,0),U,1)
End DoDot:1
+14 WRITE !,"59. CANCER STATUS...............: ",CS
+15 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
+16 QUIT
P ;Print
+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 HEAD^ONCHPC0
QUIT
End DoDot:1
if EX=U
QUIT
IF $GET(END)'=1
WRITE !?4,TABLE_" (continued)",!?4,LINE_"------------"
+4 QUIT
DESC SET (DESC1,DESC2)=""
SET LOS=$LENGTH(DESC)
IF LOS<46
SET DESC1=DESC
QUIT
+1 SET NOP=$LENGTH($EXTRACT(DESC,1,46)," ")
+2 SET DESC1=$PIECE(DESC," ",1,NOP-1)
SET DESC2=$PIECE(DESC," ",NOP,999)
+3 QUIT
