214 lines
7.1 KiB
Mathematica
214 lines
7.1 KiB
Mathematica
ONCHPC8A ;Hines OIFO/GWB - 2000 Hepatocellular Cancers PCE Study ;01/12/00
|
|
;;2.11;ONCOLOGY;**26**;Mar 07, 1995
|
|
;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
|