source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCBRP9A.m@ 1722

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

initial load of WorldVistAEHR
File size: 7.2 KB
Line 
1ONCBRP9A ;HINES CIOFO/GWB - 1998 Breast Cancer Study - print ;6/1/98
2 ;;2.11;ONCOLOGY;**18**;Mar 07, 1995
3IV K LINE S $P(LINE,"-",43)="-"
4 S TABLE="TABLE IV - EXTENT OF DISEASE AND AJCC STAGE"
5 I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HEAD^ONCBRP0
6 W !?4,TABLE,!?4,LINE D P Q:EX=U
7 W !,"40. SIZE OF TUMOR (mm)...............: ",ONC(165.5,IE,29) D P Q:EX=U
8 W !,"41. SIZE OF DCIS TUMOR (mm)..........: ",ONC(165.5,IE,942) D P Q:EX=U
9 W !,"42. REGIONAL NODES EXAMINED..........: ",ONC(165.5,IE,33) D P Q:EX=U
10 W !,"43. REGIONAL NODES POSITIVE..........: ",ONC(165.5,IE,32) D P Q:EX=U
11 W ! D P Q:EX=U
12 W !," SENTINEL NODES" D P Q:EX=U
13 W ! D P Q:EX=U
14 W !,"44. SENTINEL NODES BIOPSY............: ",ONC(165.5,IE,943) D P Q:EX=U
15 W !,"45. NUMBER OF SENTINEL NODES"
16 W !," EXAMINED.........................: ",ONC(165.5,IE,944) D P Q:EX=U
17 W !,"46. NUMBER OF SENTINEL NODES"
18 W !," POSITIVE.........................: ",ONC(165.5,IE,945) D P Q:EX=U
19 W !,"47. SENTINEL NODE DETECTED BY........: ",ONC(165.5,IE,946) D P Q:EX=U
20 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCBRP0 W !?4,TABLE_" (continued)",!?4,LINE_"------------"
21ACS W !,"48. AJCC CLINICAL STAGE (cTNM):" D P Q:EX=U
22 W !," T-CODE..........................: ",ONC(165.5,IE,37.1) D P Q:EX=U
23 W !," N-CODE..........................: ",ONC(165.5,IE,37.2) D P Q:EX=U
24 W !," M-CODE..........................: ",ONC(165.5,IE,37.3) D P Q:EX=U
25 W !," AJCC STAGE......................: ",ONC(165.5,IE,38) D P Q:EX=U
26APS W !!,"49. AJCC PATHOLOGIC STAGE (pTNM):" D P Q:EX=U
27 W !," T-CODE..........................: ",ONC(165.5,IE,85) D P Q:EX=U
28 W !," N-CODE..........................: ",ONC(165.5,IE,86) D P Q:EX=U
29 W !," M-CODE..........................: ",ONC(165.5,IE,87)
30 W !," AJCC STAGE......................: ",ONC(165.5,IE,88)
31 W ! D P Q:EX=U
32 W !,"50. STAGED BY:" D P Q:EX=U
33 W !," CLINICAL STAGE..................: ",ONC(165.5,IE,19) ;D P Q:EX=U
34 W !," PATHOLOGIC STAGE................: ",ONC(165.5,IE,89) ;D P Q:EX=U
35 I IOST?1"C".E K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCBRP0 G V
36 D P Q:EX=U
37V S TABLE="TABLE V - FIRST COURSE OF TREATMENT"
38 I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HEAD^ONCBRP0
39 K LINE S $P(LINE,"-",35)="-"
40 W !?4,TABLE,!?4,LINE D P Q:EX=U
41 S D0=ONCONUM D DFC^ONCOCOM S DOFCT=Y
42 W !,"51. DATE OF FIRST COURSE TREATMENT...: ",DOFCT D P Q:EX=U
43 W !!?4,"SURGERY",!?4,"-------" D P Q:EX=U
44 W !?4,"NON CANCER-DIRECTED SURGERY",!?4,"---------------------------" D P Q:EX=U
45S W !,"52. DATE OF NON CANCER-DIRECTED"
46 W !," SURGERY..........................: ",ONC(165.5,IE,58.3) D P Q:EX=U
47 S DESC=ONC(165.5,IE,58.1)
48 S (DESC1,DESC2)="",LOS=$L(DESC) I LOS<43 S DESC1=DESC G NCDS
49 S NOP=$L($E(DESC,1,41)," ")
50 S DESC1=$P(DESC," ",1,NOP-1),DESC2=$P(DESC," ",NOP,999)
51NCDS W !,"53. NON CANCER-DIRECTED SURGERY......: ",DESC1 W:DESC2'="" !,?39,DESC2 D P Q:EX=U
52 W !?4,"CANCER-DIRECTED SURGERY",!?4,"-----------------------" D P Q:EX=U
53 W !,"54. DATE OF (FIRST) CANCER-"
54 W !," DIRECTED SURGERY.................: ",ONC(165.5,IE,50) D P Q:EX=U
55 S DESC=ONC(165.5,IE,74)
56 S (DESC1,DESC2)="",LOS=$L(DESC) I LOS<43 S DESC1=DESC G SA
57 S NOP=$L($E(DESC,1,41)," "),DESC1=$P(DESC," ",1,NOP-1),DESC2=$P(DESC," ",NOP,999)
58SA W !,"55. SURGICAL APPROACH................: ",DESC1 W:DESC2'="" !,?39,DESC2 D P Q:EX=U
59CDS S DESC=ONC(165.5,IE,58.2)
60 S (DESC1,DESC2)="",LOS=$L(DESC) I LOS<43 S DESC1=DESC G SPS
61 S NOP=$L($E(DESC,1,41)," ")
62 S DESC1=$P(DESC," ",1,NOP-1),DESC2=$P(DESC," ",NOP,999)
63SPS W !,"56. SURGERY OF PRIMARY SITE..........: ",DESC1 W:DESC2'="" !,?39,DESC2
64 W !,"57. SPECIMEN RADIOGRAPH..............: ",ONC(165.5,IE,947) D P Q:EX=U
65 S DESC=ONC(165.5,IE,59)
66 S (DESC1,DESC2)="",LOS=$L(DESC) I LOS<43 S DESC1=DESC G SM
67 S NOP=$L($E(DESC,1,41)," "),DESC1=$P(DESC," ",1,NOP-1),DESC2=$P(DESC," ",NOP,999)
68SM W !,"58. SURGICAL MARGINS.................: ",DESC1 W:DESC2'="" !,?39,DESC2 D P Q:EX=U
69 W !,"59. WAS ENTIRE SPECIMEN SUBMITTED"
70 W !," TO PATHOLOGY.....................: ",ONC(165.5,IE,948) D P Q:EX=U
71 W !,"60. IF MARGINS ARE FREE, WHAT IS"
72 W !," THE DISTANCE.....................: ",ONC(165.5,IE,949) D P Q:EX=U
73 S DESC=ONC(165.5,IE,138)
74 S (DESC1,DESC2)="",LOS=$L(DESC) I LOS<43 S DESC1=DESC G SRLNS
75 S NOP=$L($E(DESC,1,41)," "),DESC1=$P(DESC," ",1,NOP-1),DESC2=$P(DESC," ",NOP,999)
76SRLNS W !,"61. SCOPE OF REGIONAL LYMPH NODE"
77 W !," SURGERY..........................: ",DESC1 W:DESC2'="" !,?39,DESC2 D P Q:EX=U
78 W !,"62. NUMBER OF REGIONAL LYMPH NODES"
79 W !," REMOVED..........................: ",ONC(165.5,IE,140) D P Q:EX=U
80 S DESC=ONC(165.5,ONCONUM,139)
81 S (DESC1,DESC2)="",LOS=$L(DESC) I LOS<43 S DESC1=DESC G SORS
82 S NOP=$L($E(DESC,1,41)," ")
83 S DESC1=$P(DESC," ",1,NOP-1),DESC2=$P(DESC," ",NOP,999)
84SORS W !,"63. SURGERY OF OTHER REGIONAL"
85 W !," SITE(S), DISTANT SITE(S),"
86 W !," OR DISTANT LYMPH NODE(S).........: ",DESC1 W:DESC2'="" !,?39,DESC2 D P Q:EX=U
87 S DESC=ONC(165.5,ONCONUM,23)
88 S (DESC1,DESC2)="",LOS=$L(DESC) I LOS<43 S DESC1=DESC G RR
89 S NOP=$L($E(DESC,1,41)," ")
90 S DESC1=$P(DESC," ",1,NOP-1),DESC2=$P(DESC," ",NOP,999)
91RR W !,"64. RECONSTRUCTION/RESTORATION.......: ",DESC1 W:DESC2'="" !,?39,DESC2 D P Q:EX=U
92 W !,"65. RE-EXCISION......................: ",ONC(165.5,IE,950) D P Q:EX=U
93 W !,"66. MICROSCOPIC STATUS OF FINAL"
94 W !," MARGIN AFTER RE-EXCISION.........: ",ONC(165.5,IE,951) D P Q:EX=U
95 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCBRP0 W !?4,TABLE_" (continued)",!?4,LINE_"------------"
96R W !?4,"RADIATION THERAPY",!?4,"-----------------" D P Q:EX=U
97 W !,"67. RADIATION THERAPY................: ",ONC(165.5,IE,51.2) D P Q:EX=U
98 W !,"68. PRE-RADIATION THERAPY"
99 W !," MAMMOGRAM OF PATIENT.............: ",ONC(165.5,IE,952) D P Q:EX=U
100 W !,"69. DATE RADIATION STARTED...........: ",ONC(165.5,IE,51) D P Q:EX=U
101 W !,"70. DATE RADIATION ENDED.............: ",ONC(165.5,IE,361) D P Q:EX=U
102 W !,"71. SITES IRRADIATED.................: ",ONC(165.5,IE,953) D P Q:EX=U
103 S FN=954 D FEMALE^ONCBRP9
104 W !,"72. (F) cCy DOSE TO WHOLE BREAST"
105 W !," OR CHEST WALL....................: ",ONC(165.5,IE,954) D P Q:EX=U
106 W !,"73. BOOST RADIATION..................: ",ONC(165.5,IE,443) D P Q:EX=U
107 W !,"74. REASON FOR NOT RADIATION.........: ",ONC(165.5,IE,75) D P Q:EX=U
108 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCBRP0 W !?4,TABLE_" (continued)",!?4,LINE_"------------" G H
109 W ! D P Q:EX=U
110H W !," HORMONE THERAPY"
111 W !," ---------------"
112 W !,"75. HORMONE THERAPY..................: ",ONC(165.5,IE,54.2) D P Q:EX=U
113 W !,"76. DATE HORMONE THERAPY STARTED.....: ",ONC(165.5,IE,54) D P Q:EX=U
114 S FN=955 D MALE^ONCBRP9
115 W !,"77. (M) SPECIFIC HORMONE THERAPY.....: ",ONC(165.5,IE,955) D P Q:EX=U
116 W ! D P Q:EX=U
117C W !?4,"CHEMOTHERAPY",!?4,"------------" D P Q:EX=U
118 W !,"78. CHEMOTHERAPY.....................: ",ONC(165.5,IE,53.2) D P Q:EX=U
119 W !,"79. DATE CHEMOTHERAPY STARTED........: ",ONC(165.5,IE,53) D P Q:EX=U
120 W !,"80. CHEMOTHERAPEUTIC REGIME"
121 W !," CONTAINING DOXORUBICIN...........: ",ONC(165.5,IE,956) D P Q:EX=U
122 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCBRP0 G VI
123 D P Q:EX=U
124VI D ^ONCBRP9B
125KILL ;Kill Variables and Exit
126 K %,DIR,DIROUT,DIRUT,DTOUT,DUOUT,FILN,ONCOBL,EX,TXT,X,Y,DESC,DESC1,DESC2
127 Q
128P ;Display Data
129 I ($Y'<(LIN-1)) D Q:EX=U W !?4,TABLE_" (continued)",!?4,LINE_"------------"
130 .I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR I 'Y S EX=U Q
131 .D HEAD^ONCBRP0 Q
132 Q
Note: See TracBrowser for help on using the repository browser.