111 lines
6.6 KiB
Mathematica
111 lines
6.6 KiB
Mathematica
ONCNPC8B ;HIRMFO/GWB - PCE Study of Non-Hodgkin's Lymphoma - Print (continued);5/14/97
|
|
;;2.11;ONCOLOGY;**11,15,16**;Mar 07, 1995
|
|
III S TABLE="TABLE III - EXTENT OF DISEASE AND AJCC STAGE"
|
|
I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HDR^ONCNPC8
|
|
W !?4,TABLE,!?4,"--------------------------------------------" D P Q:EX=U
|
|
ACSG W !,"32. AJCC CLINICAL STAGE GROUP.......: ",ONC(165.5,IEN,38) D P Q:EX=U
|
|
CSB W !,"33. CLINICALLY STAGED BY............: ",ONC(165.5,IEN,19) D P Q:EX=U
|
|
APSG W !,"34. AJCC PATHOLOGIC STAGE GROUP.....: ",ONC(165.5,IEN,88) D P Q:EX=U
|
|
PSB W !,"35. PATHOLOGICALLY STAGED BY........: ",ONC(165.5,IEN,89) D P Q:EX=U
|
|
TOSS W !,"36. TYPE OF STAGING SYS (PEDIATRIC).: ",ONC(165.5,IEN,849) D P Q:EX=U
|
|
PS W !,"37. PEDIATRIC STAGE.................: ",ONC(165.5,IEN,850) D P Q:EX=U
|
|
SB W !,"38. STAGED BY (PEDIATRIC STAGE).....: ",ONC(165.5,IEN,851) D P Q:EX=U
|
|
W ! D P Q:EX=U
|
|
ES W !,"39. EXTRANODAL SITES:"
|
|
W !," EXTRANODAL SITE 1.............: ",ONC(165.5,IEN,852) D P Q:EX=U
|
|
W !," EXTRANODAL SITE 2.............: ",ONC(165.5,IEN,853) D P Q:EX=U
|
|
W !," EXTRANODAL SITE 3.............: ",ONC(165.5,IEN,854) D P Q:EX=U
|
|
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCNPC8 G IV
|
|
D P Q:EX=U
|
|
IV S TABLE="TABLE IV - FIRST COURSE OF TREATMENT"
|
|
I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HDR^ONCNPC8
|
|
W !?4,TABLE,!?4,"------------------------------------" D P Q:EX=U
|
|
S D0=ONCONUM D DFC^ONCOCOM S DOIT=Y
|
|
W !,"40. FIRST COURSE OF TREATMENT DATE..: ",DOIT D P Q:EX=U
|
|
W !!?4,"SURGERY",!?4,"-------" D P Q:EX=U
|
|
CDS S CDS=ONC(165.5,IEN,58.2)
|
|
S (CDS1,CDS2)="",LOS=$L(CDS) I LOS<45 S CDS1=CDS G S
|
|
S NOP=$L($E(CDS,1,41)," ")
|
|
S CDS1=$P(CDS," ",1,NOP-1),CDS2=$P(CDS," ",NOP,999)
|
|
S W !,"41. SURGERY OF PRIMARY SITE DATE....: ",ONC(165.5,IEN,50) D P Q:EX=U
|
|
W !,"42A.SURGERY OF PRIMARY SITE.........: ",CDS1 W:CDS2'="" !,?39,CDS2
|
|
W !,"42B.EXTRANODAL SURGERY SITE.........: ",ONC(165.5,IEN,855) D P Q:EX=U
|
|
W !,"42C.EXTRANODAL SURGICAL PROCEDURE...: ",ONC(165.5,IEN,856) D P Q:EX=U
|
|
S LINE="------------------------------------------------"
|
|
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCNPC8 W !?4,TABLE_" (continued)",!?4,LINE G R
|
|
W ! D P Q:EX=U
|
|
R W !?4,"RADIATION THERAPY",!?4,"-----------------" D P Q:EX=U
|
|
W !,"43. DATE RADIATION STARTED..........: ",ONC(165.5,IEN,51) D P Q:EX=U
|
|
W !,"44. RADIATION.......................: ",ONC(165.5,IEN,51.2) D P Q:EX=U
|
|
W !!,"45. IRRADIATED FIELDS:" D P Q:EX=U
|
|
W !," LYMPH NODES ABOVE DIAPHRAGM...: ",ONC(165.5,IEN,857) D P Q:EX=U
|
|
W !," LYMPH NODES BELOW DIAPHRAGM...: ",ONC(165.5,IEN,858) D P Q:EX=U
|
|
W !," BRAIN.........................: ",ONC(165.5,IEN,859) D P Q:EX=U
|
|
W !," OTHER EXTRANODAL SITE(S)......: ",ONC(165.5,IEN,860) D P Q:EX=U
|
|
W !," TOTAL BODY....................: ",ONC(165.5,IEN,861) D P Q:EX=U
|
|
W !!,"46. RADIATION/CHEMOTHERAPY SEQUENCE.: ",ONC(165.5,IEN,862)
|
|
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCNPC8 W !?4,TABLE_" (continued)",!?4,LINE G C
|
|
W ! D P Q:EX=U
|
|
C W !?4,"CHEMOTHERAPY",!?4,"------------" D P Q:EX=U
|
|
W !,"47. PROTOCOL........................: ",ONC(165.5,IEN,863) D P Q:EX=U
|
|
SC W !!?4,"SYSTEMIC CHEMOTHERAPY",!?4,"---------------------" D P Q:EX=U
|
|
W !,"48. SYSTEMIC CHEMOTHERAPY...........: ",ONC(165.5,IEN,864) D P Q:EX=U
|
|
W !,"49. SYSTEMIC CHEMOTHERAPY DATE......: ",ONC(165.5,IEN,865) D P Q:EX=U
|
|
W !,"50. NUMBER OF PLANNED CYCLES........: ",ONC(165.5,IEN,866)
|
|
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCNPC8 W !?4,TABLE_" (continued)",!?4,LINE G AADSC
|
|
D P Q:EX=U
|
|
AADSC W !,"51. AGENT ADMINISTERED DURING SYSTEMIC CHEMOTHERAPY:",! D P Q:EX=U
|
|
W !," SINGLE-AGENT CHEMOTHERAPY:",?42,"COMBINATION CHEMOTHERAPY:",! D P Q:EX=U
|
|
W !," CHLORAMBUCIL.....: ",ONC(165.5,IEN,867),?42,"CHOP.............: ",ONC(165.5,IEN,871) D P Q:EX=U
|
|
W !," CYCLOPHOSPHAMIDE.: ",ONC(165.5,IEN,868),?42,"CVP..............: ",ONC(165.5,IEN,872) D P Q:EX=U
|
|
W !," DOXORUBICIN......: ",ONC(165.5,IEN,869),?42,"COMLA............: ",ONC(165.5,IEN,873) D P Q:EX=U
|
|
W !," FLUDARABINE......: ",ONC(165.5,IEN,870),?42,"MACOP-B..........: ",ONC(165.5,IEN,874) D P Q:EX=U
|
|
W !,?42,"M-BACOD..........: ",ONC(165.5,IEN,875) D P Q:EX=U
|
|
W !,?42,"PRO-MACE-Cyta BOM: ",ONC(165.5,IEN,876) D P Q:EX=U
|
|
W !,?42,"OTHER............: ",ONC(165.5,IEN,877) D P Q:EX=U
|
|
W !!,"52. HIGH DOSE W STEM CELL RESCUE....: ",ONC(165.5,IEN,878)
|
|
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCNPC8 W !?4,TABLE_" (continued)",!?4,LINE G IC
|
|
D P Q:EX=U
|
|
IC W !?4,"INTRATHECAL CHEMOTHERAPY",!?4,"------------------------" D P Q:EX=U
|
|
W !,"53. INTRATHECAL CHEMOTHERAPY........: ",ONC(165.5,IEN,879) D P Q:EX=U
|
|
W !,"54. PURPOSE.........................: ",ONC(165.5,IEN,880) D P Q:EX=U
|
|
I W !!?4,"IMMUNMOTHERAPY",!?4,"--------------" D P Q:EX=U
|
|
W !,"55. IMMUNOTHERAPY:"
|
|
W !," INTERLEUKIN-2 (IL-2)..........: ",ONC(165.5,IEN,881) D P Q:EX=U
|
|
W !," INTERFERON....................: ",ONC(165.5,IEN,882) D P Q:EX=U
|
|
W !," MONOCLONAL ANTIBODIES.........: ",ONC(165.5,IEN,883) D P Q:EX=U
|
|
W !," VACCINE THERAPY...............: ",ONC(165.5,IEN,884) D P Q:EX=U
|
|
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCNPC8 G V
|
|
W ! D P Q:EX=U
|
|
V S TABLE="TABLE V - FIRST RECURRENCE"
|
|
W !?4,TABLE,!?4,"--------------------------" D P Q:EX=U
|
|
W !,"56. DATE OF FIRST RECURRENCE........: ",ONC(165.5,IEN,70) D P Q:EX=U
|
|
W !,"57. TYPE OF FIRST RECURRENCE........: ",ONC(165.5,IEN,71) D P Q:EX=U
|
|
W !,"58. OTHER TYPE OF FIRST RECURRENCE..: ",ONC(165.5,IEN,71.4) D P Q:EX=U
|
|
;I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCNPC8 G VI
|
|
W ! D P Q:EX=U
|
|
VI S TABLE="TABLE VI - STATUS AT LAST CONTACT"
|
|
I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HDR^ONCNPC8
|
|
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 !,"59. DATE OF LAST CONTACT OR DEATH...: ",DLC
|
|
W !,"60. VITAL STATUS....................: ",ONC(160,ONCOPA,15) D P Q:EX=U
|
|
S CS="" I $D(^ONCO(165.5,IEN,"TS","AA")) D
|
|
.S CSDAT=$O(^ONCO(165.5,IEN,"TS","AA",""))
|
|
.S CSIEN=$O(^ONCO(165.5,IEN,"TS","AA",CSDAT,""))
|
|
.S CSPNT=$P(^ONCO(165.5,IEN,"TS",CSIEN,0),U,2)
|
|
.S CS=$P(^ONCO(164.42,CSPNT,0),U,1)
|
|
W !,"61. CANCER STATUS...................: ",CS
|
|
W !,"62. COMPLETED BY....................: ",ONC(165.5,IEN,81) D P Q:EX=U
|
|
W !,"63. REVIEWED BY CANCER COMMITTEE....: ",ONC(165.5,IEN,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,SCTIEN,LINE
|
|
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^ONCNPC8 Q
|
|
Q
|