source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCHPC8A.m@ 861

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

initial load of WorldVistAEHR
File size: 7.1 KB
Line 
1ONCHPC8A ;Hines OIFO/GWB - 2000 Hepatocellular Cancers PCE Study ;01/12/00
2 ;;2.11;ONCOLOGY;**26**;Mar 07, 1995
3 ;Print (continued)
4III K LINE S $P(LINE,"-",29)="-"
5 S TABLE="STAGE OF DISEASE AT DIAGNOSIS"
6 I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HEAD^ONCHPC0
7 W !?4,TABLE,!?4,LINE
8 D P Q:EX=U
9 W !,"23. SIZE OF TUMOR...............: ",$$GET1^DIQ(165.5,IE,29)
10 D P Q:EX=U
11 W !,"24. REGIONAL NODES EXAMINED.....: ",$$GET1^DIQ(165.5,IE,33)
12 D P Q:EX=U
13 W !,"25. REGIONAL NODES POSITIVE.....: ",$$GET1^DIQ(165.5,IE,32)
14 D P Q:EX=U
15 W !
16 D P Q:EX=U
17ACS W !,"26. AJCC CLINICAL STAGE (cTNM):"
18 D P Q:EX=U
19 W !," AJCC CLINICAL T............: ",$$GET1^DIQ(165.5,IE,37.1)
20 D P Q:EX=U
21 W !," AJCC CLINICAL N............: ",$$GET1^DIQ(165.5,IE,37.2)
22 D P Q:EX=U
23 W !," AJCC CLINICAL M............: ",$$GET1^DIQ(165.5,IE,37.3)
24 D P Q:EX=U
25 W !," AJCC CLINICAL STAGE GROUP..: ",$$GET1^DIQ(165.5,IE,38)
26 D P Q:EX=U
27APS W !
28 D P Q:EX=U
29 W !,"27. AJCC PATHOLOGIC STAGE (pTNM):"
30 D P Q:EX=U
31 W !," AJCC PATHOLOGIC T..........: ",$$GET1^DIQ(165.5,IE,85)
32 D P Q:EX=U
33 W !," AJCC PATHOLOGIC N..........: ",$$GET1^DIQ(165.5,IE,86)
34 D P Q:EX=U
35 W !," AJCC PATHOLOGIC M..........: ",$$GET1^DIQ(165.5,IE,87)
36 D P Q:EX=U
37 W !," AJCC PATHOLOGIC STAGE GROUP: ",$$GET1^DIQ(165.5,IE,88)
38 D P Q:EX=U
39 W !
40 D P Q:EX=U
41 W !,"28. STAGED BY:"
42 D P Q:EX=U
43 W !," CLINICALLY STAGED BY.......: ",$$GET1^DIQ(165.5,IE,19)
44 D P Q:EX=U
45 W !," PATHOLOGICALLY STAGED BY...: ",$$GET1^DIQ(165.5,IE,89)
46 D P Q:EX=U
47 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCHPC0 G IV
48 D P Q:EX=U
49IV S TABLE="FIRST COURSE OF TREATMENT"
50 I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HEAD^ONCHPC0
51 K LINE S $P(LINE,"-",25)="-"
52 W !?4,TABLE,!?4,LINE
53 D P Q:EX=U
54 S D0=ONCONUM D DFC^ONCOCOM S DOFCT=Y
55 W !,"29. DATE OF FIRST COURSE OF"
56 D P Q:EX=U
57 W !," TREATMENT..................: ",DOFCT
58 D P Q:EX=U
59 W !,"30. DATE OF INPATIENT ADMISSION.: ",$$GET1^DIQ(165.5,IE,1)
60 D P Q:EX=U
61 W !,"31. DATE OF INPATIENT DISCHARGE.: ",$$GET1^DIQ(165.5,IE,1.1)
62 D P Q:EX=U
63 W !
64 D P Q:EX=U
65 W !?4,"SURGERY",!?4,"-------"
66 D P Q:EX=U
67 W !?4,"NON CANCER-DIRECTED SURGERY",!?4,"---------------------------"
68 D P Q:EX=U
69S W !,"32. DATE OF NON CANCER-DIRECTED"
70 D P Q:EX=U
71 W !," SURGERY....................: ",$$GET1^DIQ(165.5,IE,58.3)
72 D P Q:EX=U
73 S DESC=$$GET1^DIQ(165.5,IE,58.1) D DESC
74NCDS W !,"33. NON CANCER-DIRECTED SURGERY.: ",DESC1 W:DESC2'="" !,?34,DESC2
75 D P Q:EX=U
76 W !?4,"CANCER-DIRECTED SURGERY",!?4,"-----------------------"
77 D P Q:EX=U
78 W !,"34. DATE OF CANCER-DIRECTED"
79 D P Q:EX=U
80 W !," SURGERY....................: ",$$GET1^DIQ(165.5,IE,50)
81 D P Q:EX=U
82SA W !,"35. SURGICAL APPROACH...........: ",$$GET1^DIQ(165.5,IE,74)
83 D P Q:EX=U
84CDS S DESC=$$GET1^DIQ(165.5,IE,58.2) D DESC
85SPS W !,"36. SURGERY OF PRIMARY SITE.....: ",DESC1 W:DESC2'="" !,?34,DESC2
86 D P Q:EX=U
87 W !,"37. RADIO-FREQUENCY DESTRUCTION"
88 D P Q:EX=U
89 W !," OF TUMOR...................: ",$$GET1^DIQ(165.5,IE,1056)
90 D P Q:EX=U
91 W !,"38. ABLATION & RESECTION........: ",$$GET1^DIQ(165.5,IE,1057)
92 D P Q:EX=U
93 S DESC=$$GET1^DIQ(165.5,IE,59) D DESC
94SM W !,"39. SURGICAL MARGINS............: ",DESC1 W:DESC2'="" !,?34,DESC2
95 D P Q:EX=U
96 W !,"40. DISTANCE OF TUMOR TO CLOSEST"
97 D P Q:EX=U
98 W !," MARGIN.....................: ",$$GET1^DIQ(165.5,IE,1058)
99 D P Q:EX=U
100 S DESC=$$GET1^DIQ(165.5,IE,139) D DESC
101SORS W !,"41. SURGERY OF OTHER REGIONAL"
102 D P Q:EX=U
103 W !," SITE(S), DISTANT SITE(S),"
104 D P Q:EX=U
105 W !," OR DISTANT LYMPH NODE(S)...: ",DESC1 W:DESC2'="" !,?34,DESC2
106 D P Q:EX=U
107 W !
108 D P Q:EX=U
109STRPT W !,"42. SURGICAL TREATMENT OF RESIDUAL PRIMARY TUMOR:"
110 D P Q:EX=U
111 W !," ABLATION...................: ",$$GET1^DIQ(165.5,IE,1059)
112 D P Q:EX=U
113 W !," RESECTION..................: ",$$GET1^DIQ(165.5,IE,1060)
114 D P Q:EX=U
115 W !
116 D P Q:EX=U
117RR W !,"43. RECONSTRUCTION/RESTORATION-"
118 D P Q:EX=U
119 W !," FIRST COURSE...............: ",$$GET1^DIQ(165.5,IE,23)
120 D P Q:EX=U
121 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_"------------"
122R W !?4,"RADIATION THERAPY",!?4,"-----------------"
123 D P Q:EX=U
124 W !,"44. DATE RADIATION STARTED......: ",$$GET1^DIQ(165.5,IE,51)
125 D P Q:EX=U
126 W !,"45. RADIATION THERAPY...........: ",$$GET1^DIQ(165.5,IE,51.2)
127 D P Q:EX=U
128 W !
129 D P Q:EX=U
130C W !?4,"CHEMOTHERAPY",!?4,"------------"
131 D P Q:EX=U
132 W !,"46. DATE CHEMOTHERAPY STARTED...: ",$$GET1^DIQ(165.5,IE,53)
133 D P Q:EX=U
134 W !,"47. CHEMOTHERAPY................: ",$$GET1^DIQ(165.5,IE,53.2)
135 D P Q:EX=U
136 W !
137 D P Q:EX=U
138TCAA W !,"48. TYPE OF CHEMOTHERAPEUTIC AGENTS ADMINISTERED:" D P Q:EX=U
139 W !," CISPLATIN..................: ",$$GET1^DIQ(165.5,IE,1061)
140 D P Q:EX=U
141 W !," FUDR.......................: ",$$GET1^DIQ(165.5,IE,1062)
142 D P Q:EX=U
143 W !," 5-FU.......................: ",$$GET1^DIQ(165.5,IE,1063)
144 D P Q:EX=U
145 W !," FU & LEUCOVERIN............: ",$$GET1^DIQ(165.5,IE,1064)
146 D P Q:EX=U
147 W !," IRINOTECAN (CPT-11)........: ",$$GET1^DIQ(165.5,IE,1065)
148 D P Q:EX=U
149 W !," MITOMYCIN C................: ",$$GET1^DIQ(165.5,IE,1066)
150 D P Q:EX=U
151 W !," OXALIPLATIN................: ",$$GET1^DIQ(165.5,IE,1067)
152 D P Q:EX=U
153 W !," GEMCITABINE................: ",$$GET1^DIQ(165.5,IE,1068)
154 D P Q:EX=U
155 W !
156 D P Q:EX=U
157 W !,"49. ROUTE CHEMOTHERAPY ADMIN....: ",$$GET1^DIQ(165.5,IE,1069)
158 D P Q:EX=U
159 W !,"50. CHEMOTHERAPY/SURGERY SEQ....: ",$$GET1^DIQ(165.5,IE,1070)
160 D P Q:EX=U
161 W !
162 D P Q:EX=U
163OT W !?4,"OTHER THERAPY",!?4,"-------------"
164 D P Q:EX=U
165 W !,"51. DATE OTHER TREATMENT STARTED: ",$$GET1^DIQ(165.5,IE,57)
166 D P Q:EX=U
167 W !,"52. OTHER TREATMENT.............: ",$$GET1^DIQ(165.5,IE,57.2)
168 D P Q:EX=U
169 W !,"53. ARTERIAL EMBOLIZATION.......: ",$$GET1^DIQ(165.5,IE,1071)
170 D P Q:EX=U
171 W !,"54. DEATH WITHIN 30 DAYS OF"
172 D P Q:EX=U
173 W !," START OF INITIAL COURSE OF"
174 D P Q:EX=U
175 W !," THERAPY....................: ",$$GET1^DIQ(165.5,IE,1072)
176 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCHPC0 G V
177 D P Q:EX=U
178V S TABLE="RECURRENCE"
179 I IOST'?1"C".E W !
180 W !?4,TABLE,!?4,"----------"
181 D P Q:EX=U
182 W !,"55. DATE OF FIRST RECURRENCE....: ",$$GET1^DIQ(165.5,IE,70)
183 D P Q:EX=U
184 S DESC=$$GET1^DIQ(165.5,IE,71) D DESC
185TFR W !,"56. TYPE OF FIRST RECURRENCE....: ",DESC1 W:DESC2'="" !,?31,DESC2
186 S END=1
187 D P Q:EX=U
188VI S TABLE="FOLLOW-UP"
189 W !!?4,TABLE,!?4,"---------"
190 D P Q:EX=U
191 S DLC="" I $D(^ONCO(160,ONCOPA,"F","B")) S DLC=$O(^ONCO(160,ONCOPA,"F","B",""),-1)
192 I DLC'="" S Y=DLC D DATEOT^ONCOPCE S DLC=Y
193 W !,"57. DATE OF LAST CONTACT/DEATH..: ",DLC
194 D P Q:EX=U
195 W !,"58. VITAL STATUS................: ",$$GET1^DIQ(160,ONCOPA,15)
196 D P Q:EX=U
197 S CS="" I $D(^ONCO(165.5,IE,"TS","AA")) D
198 .S CSDAT=$O(^ONCO(165.5,IE,"TS","AA",""))
199 .S CSI=$O(^ONCO(165.5,IE,"TS","AA",CSDAT,""))
200 .S CSPNT=$P(^ONCO(165.5,IE,"TS",CSI,0),U,2)
201 .S CS=$P(^ONCO(164.42,CSPNT,0),U,1)
202 W !,"59. CANCER STATUS...............: ",CS
203 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR
204 Q
205P ;Print
206 I ($Y'<(LIN-1)) D Q:EX=U I $G(END)'=1 W !?4,TABLE_" (continued)",!?4,LINE_"------------"
207 .I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR I 'Y S EX=U Q
208 .D HEAD^ONCHPC0 Q
209 Q
210DESC S (DESC1,DESC2)="",LOS=$L(DESC) I LOS<46 S DESC1=DESC Q
211 S NOP=$L($E(DESC,1,46)," ")
212 S DESC1=$P(DESC," ",1,NOP-1),DESC2=$P(DESC," ",NOP,999)
213 Q
Note: See TracBrowser for help on using the repository browser.