source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCNPC8B.m@ 642

Last change on this file since 642 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR
File size: 6.6 KB
Line 
1ONCNPC8B ;HIRMFO/GWB - PCE Study of Non-Hodgkin's Lymphoma - Print (continued);5/14/97
2 ;;2.11;ONCOLOGY;**11,15,16**;Mar 07, 1995
3III S TABLE="TABLE III - EXTENT OF DISEASE AND AJCC STAGE"
4 I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HDR^ONCNPC8
5 W !?4,TABLE,!?4,"--------------------------------------------" D P Q:EX=U
6ACSG W !,"32. AJCC CLINICAL STAGE GROUP.......: ",ONC(165.5,IEN,38) D P Q:EX=U
7CSB W !,"33. CLINICALLY STAGED BY............: ",ONC(165.5,IEN,19) D P Q:EX=U
8APSG W !,"34. AJCC PATHOLOGIC STAGE GROUP.....: ",ONC(165.5,IEN,88) D P Q:EX=U
9PSB W !,"35. PATHOLOGICALLY STAGED BY........: ",ONC(165.5,IEN,89) D P Q:EX=U
10TOSS W !,"36. TYPE OF STAGING SYS (PEDIATRIC).: ",ONC(165.5,IEN,849) D P Q:EX=U
11PS W !,"37. PEDIATRIC STAGE.................: ",ONC(165.5,IEN,850) D P Q:EX=U
12SB W !,"38. STAGED BY (PEDIATRIC STAGE).....: ",ONC(165.5,IEN,851) D P Q:EX=U
13 W ! D P Q:EX=U
14ES W !,"39. EXTRANODAL SITES:"
15 W !," EXTRANODAL SITE 1.............: ",ONC(165.5,IEN,852) D P Q:EX=U
16 W !," EXTRANODAL SITE 2.............: ",ONC(165.5,IEN,853) D P Q:EX=U
17 W !," EXTRANODAL SITE 3.............: ",ONC(165.5,IEN,854) D P Q:EX=U
18 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCNPC8 G IV
19 D P Q:EX=U
20IV S TABLE="TABLE IV - FIRST COURSE OF TREATMENT"
21 I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HDR^ONCNPC8
22 W !?4,TABLE,!?4,"------------------------------------" D P Q:EX=U
23 S D0=ONCONUM D DFC^ONCOCOM S DOIT=Y
24 W !,"40. FIRST COURSE OF TREATMENT DATE..: ",DOIT D P Q:EX=U
25 W !!?4,"SURGERY",!?4,"-------" D P Q:EX=U
26CDS S CDS=ONC(165.5,IEN,58.2)
27 S (CDS1,CDS2)="",LOS=$L(CDS) I LOS<45 S CDS1=CDS G S
28 S NOP=$L($E(CDS,1,41)," ")
29 S CDS1=$P(CDS," ",1,NOP-1),CDS2=$P(CDS," ",NOP,999)
30S W !,"41. SURGERY OF PRIMARY SITE DATE....: ",ONC(165.5,IEN,50) D P Q:EX=U
31 W !,"42A.SURGERY OF PRIMARY SITE.........: ",CDS1 W:CDS2'="" !,?39,CDS2
32 W !,"42B.EXTRANODAL SURGERY SITE.........: ",ONC(165.5,IEN,855) D P Q:EX=U
33 W !,"42C.EXTRANODAL SURGICAL PROCEDURE...: ",ONC(165.5,IEN,856) D P Q:EX=U
34 S LINE="------------------------------------------------"
35 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
36 W ! D P Q:EX=U
37R W !?4,"RADIATION THERAPY",!?4,"-----------------" D P Q:EX=U
38 W !,"43. DATE RADIATION STARTED..........: ",ONC(165.5,IEN,51) D P Q:EX=U
39 W !,"44. RADIATION.......................: ",ONC(165.5,IEN,51.2) D P Q:EX=U
40 W !!,"45. IRRADIATED FIELDS:" D P Q:EX=U
41 W !," LYMPH NODES ABOVE DIAPHRAGM...: ",ONC(165.5,IEN,857) D P Q:EX=U
42 W !," LYMPH NODES BELOW DIAPHRAGM...: ",ONC(165.5,IEN,858) D P Q:EX=U
43 W !," BRAIN.........................: ",ONC(165.5,IEN,859) D P Q:EX=U
44 W !," OTHER EXTRANODAL SITE(S)......: ",ONC(165.5,IEN,860) D P Q:EX=U
45 W !," TOTAL BODY....................: ",ONC(165.5,IEN,861) D P Q:EX=U
46 W !!,"46. RADIATION/CHEMOTHERAPY SEQUENCE.: ",ONC(165.5,IEN,862)
47 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
48 W ! D P Q:EX=U
49C W !?4,"CHEMOTHERAPY",!?4,"------------" D P Q:EX=U
50 W !,"47. PROTOCOL........................: ",ONC(165.5,IEN,863) D P Q:EX=U
51SC W !!?4,"SYSTEMIC CHEMOTHERAPY",!?4,"---------------------" D P Q:EX=U
52 W !,"48. SYSTEMIC CHEMOTHERAPY...........: ",ONC(165.5,IEN,864) D P Q:EX=U
53 W !,"49. SYSTEMIC CHEMOTHERAPY DATE......: ",ONC(165.5,IEN,865) D P Q:EX=U
54 W !,"50. NUMBER OF PLANNED CYCLES........: ",ONC(165.5,IEN,866)
55 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
56 D P Q:EX=U
57AADSC W !,"51. AGENT ADMINISTERED DURING SYSTEMIC CHEMOTHERAPY:",! D P Q:EX=U
58 W !," SINGLE-AGENT CHEMOTHERAPY:",?42,"COMBINATION CHEMOTHERAPY:",! D P Q:EX=U
59 W !," CHLORAMBUCIL.....: ",ONC(165.5,IEN,867),?42,"CHOP.............: ",ONC(165.5,IEN,871) D P Q:EX=U
60 W !," CYCLOPHOSPHAMIDE.: ",ONC(165.5,IEN,868),?42,"CVP..............: ",ONC(165.5,IEN,872) D P Q:EX=U
61 W !," DOXORUBICIN......: ",ONC(165.5,IEN,869),?42,"COMLA............: ",ONC(165.5,IEN,873) D P Q:EX=U
62 W !," FLUDARABINE......: ",ONC(165.5,IEN,870),?42,"MACOP-B..........: ",ONC(165.5,IEN,874) D P Q:EX=U
63 W !,?42,"M-BACOD..........: ",ONC(165.5,IEN,875) D P Q:EX=U
64 W !,?42,"PRO-MACE-Cyta BOM: ",ONC(165.5,IEN,876) D P Q:EX=U
65 W !,?42,"OTHER............: ",ONC(165.5,IEN,877) D P Q:EX=U
66 W !!,"52. HIGH DOSE W STEM CELL RESCUE....: ",ONC(165.5,IEN,878)
67 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
68 D P Q:EX=U
69IC W !?4,"INTRATHECAL CHEMOTHERAPY",!?4,"------------------------" D P Q:EX=U
70 W !,"53. INTRATHECAL CHEMOTHERAPY........: ",ONC(165.5,IEN,879) D P Q:EX=U
71 W !,"54. PURPOSE.........................: ",ONC(165.5,IEN,880) D P Q:EX=U
72I W !!?4,"IMMUNMOTHERAPY",!?4,"--------------" D P Q:EX=U
73 W !,"55. IMMUNOTHERAPY:"
74 W !," INTERLEUKIN-2 (IL-2)..........: ",ONC(165.5,IEN,881) D P Q:EX=U
75 W !," INTERFERON....................: ",ONC(165.5,IEN,882) D P Q:EX=U
76 W !," MONOCLONAL ANTIBODIES.........: ",ONC(165.5,IEN,883) D P Q:EX=U
77 W !," VACCINE THERAPY...............: ",ONC(165.5,IEN,884) D P Q:EX=U
78 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCNPC8 G V
79 W ! D P Q:EX=U
80V S TABLE="TABLE V - FIRST RECURRENCE"
81 W !?4,TABLE,!?4,"--------------------------" D P Q:EX=U
82 W !,"56. DATE OF FIRST RECURRENCE........: ",ONC(165.5,IEN,70) D P Q:EX=U
83 W !,"57. TYPE OF FIRST RECURRENCE........: ",ONC(165.5,IEN,71) D P Q:EX=U
84 W !,"58. OTHER TYPE OF FIRST RECURRENCE..: ",ONC(165.5,IEN,71.4) D P Q:EX=U
85 ;I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCNPC8 G VI
86 W ! D P Q:EX=U
87VI S TABLE="TABLE VI - STATUS AT LAST CONTACT"
88 I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HDR^ONCNPC8
89 W !?4,TABLE,!?4,"---------------------------------" D P Q:EX=U
90 S DLC="" I $D(^ONCO(160,ONCOPA,"F","B")) S DLC=$O(^ONCO(160,ONCOPA,"F","B",""),-1)
91 I DLC'="" S Y=DLC D DATEOT^ONCOPCE S DLC=Y
92 W !,"59. DATE OF LAST CONTACT OR DEATH...: ",DLC
93 W !,"60. VITAL STATUS....................: ",ONC(160,ONCOPA,15) D P Q:EX=U
94 S CS="" I $D(^ONCO(165.5,IEN,"TS","AA")) D
95 .S CSDAT=$O(^ONCO(165.5,IEN,"TS","AA",""))
96 .S CSIEN=$O(^ONCO(165.5,IEN,"TS","AA",CSDAT,""))
97 .S CSPNT=$P(^ONCO(165.5,IEN,"TS",CSIEN,0),U,2)
98 .S CS=$P(^ONCO(164.42,CSPNT,0),U,1)
99 W !,"61. CANCER STATUS...................: ",CS
100 W !,"62. COMPLETED BY....................: ",ONC(165.5,IEN,81) D P Q:EX=U
101 W !,"63. REVIEWED BY CANCER COMMITTEE....: ",ONC(165.5,IEN,82) D P Q:EX=U
102 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR
103KILL ;Kill Variables and Exit
104 K %,DIR,DIROUT,DIRUT,DTOUT,DUOUT,FILN,ONCOBL,EX,TXT,X,Y,SCTIEN,LINE
105 Q
106P ;Display Data
107 I ($Y'<(LIN-1)) D Q:EX=U W !?4,TABLE_" (continued)",!?4,LINE
108 .I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR I 'Y S EX=U Q
109 .D HDR^ONCNPC8 Q
110 Q
Note: See TracBrowser for help on using the repository browser.