source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCCPC9A.m@ 789

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

initial load of WorldVistAEHR
File size: 6.9 KB
Line 
1ONCCPC9A ;HIRMFO/GWB - PCE Study of Colorectal Cancer - Print (continued);4/1/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^ONCCPC9
5 W !?4,TABLE,!?4,"--------------------------------------------" D P Q:EX=U
6 W !,"29. SIZE OF TUMOR (mm)...............: ",ONC(165.5,IE,29) D P Q:EX=U
7 W !,"30. REGIONAL NODES EXAMINED..........: ",ONC(165.5,IE,33) D P Q:EX=U
8 W !,"31. REGIONAL NODES POSITIVE..........: ",ONC(165.5,IE,32) D P Q:EX=U
9ACS W !!,"32. AJCC CLINICAL STAGE (cTNM):" D P Q:EX=U
10 W !," T-CODE.........................: ",ONC(165.5,IE,37.1) D P Q:EX=U
11 W !," N-CODE.........................: ",ONC(165.5,IE,37.2) D P Q:EX=U
12 W !," M-CODE.........................: ",ONC(165.5,IE,37.3) D P Q:EX=U
13 W !," AJCC STAGE.....................: ",ONC(165.5,IE,38) D P Q:EX=U
14APS W !!,"33. AJCC PATHOLOGIC STAGE (pTNM):" D P Q:EX=U
15 W !," T-CODE.........................: ",ONC(165.5,IE,85) D P Q:EX=U
16 W !," N-CODE.........................: ",ONC(165.5,IE,86) D P Q:EX=U
17 W !," M-CODE.........................: ",ONC(165.5,IE,87) D P Q:EX=U
18 W !," AJCC STAGE.....................: ",ONC(165.5,IE,88)
19 K LINE S $P(LINE,"-",56)="-"
20 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCCPC9 W !?4,TABLE_" (continued)",!?4,LINE G SB
21 W ! D P Q:EX=U
22SB W !,"34. STAGED BY:" D P Q:EX=U
23 W !," CLINICAL STAGE.................: ",ONC(165.5,IE,19) D P Q:EX=U
24 W !," PATHOLOGIC STAGE...............: ",ONC(165.5,IE,89) D P Q:EX=U
25 W ! D P Q:EX=U
26 W !,"35. MARGIN OF RESECTION:" D P Q:EX=U
27 W !," PROXIMAL MARGIN................: ",ONC(165.5,IE,754) D P Q:EX=U
28 W !," DISTAL MARGIN..................: ",ONC(165.5,IE,755) D P Q:EX=U
29 W !," RADIAL MARGIN..................: ",ONC(165.5,IE,756) D P Q:EX=U
30 W !!,"36. DISTANCE TO MUCOSAL MARGIN.......: ",ONC(165.5,IE,757) D P Q:EX=U
31 W !,"37. DISTANCE TO RADIAL MARGIN........: ",ONC(165.5,IE,758) D P Q:EX=U
32 W !,"38. BLOOD VESSEL/LYMPHATIC INVASION..: ",ONC(165.5,IE,759) D P Q:EX=U
33 W !,"39. EXTRAMURAL VENOUS INVASION.......: ",ONC(165.5,IE,760) D P Q:EX=U
34 W !,"40. PROMINENT LYMPHOID INFILTRATE....: ",ONC(165.5,IE,761) D P Q:EX=U
35 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCCPC9 G IV
36 D P Q:EX=U
37IV S TABLE="TABLE IV - FIRST COURSE OF TREATMENT"
38 I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HDR^ONCCPC9
39 K LINE S $P(LINE,"-",36)="-"
40 W !?4,TABLE,!?4,LINE D P Q:EX=U
41 K LINE S $P(LINE,"-",48)="-"
42 S D0=ONCONUM D DFC^ONCOCOM S DOFCT=Y
43 W !,"41. PHYSICIAN PROVIDING TREATMENT....: ",ONC(165.5,IE,762) D P Q:EX=U
44 W !,"42. FIRST COURSE OF TREATMENT DATE...: ",DOFCT D P Q:EX=U
45 W !,"43. DATE OF INPATIENT ADMISSION......: ",ONC(165.5,IE,1) D P Q:EX=U
46 W !,"44. DATE OF INPATIENT DISCHARGE......: ",ONC(165.5,IE,1.1) D P Q:EX=U
47 W !!?4,"SURGERY",!?4,"-------" D P Q:EX=U
48 S NCDS=ONC(165.5,IE,58.1)
49 S (NCDS1,NCDS2)="",LOS=$L(NCDS) I LOS<45 S NCDS1=NCDS G CDS
50 S NOP=$L($E(NCDS,1,41)," ")
51 S NCDS1=$P(NCDS," ",1,NOP-1),NCDS2=$P(NCDS," ",NOP,999)
52CDS S CDS=ONC(165.5,IE,58.2)
53 S (CDS1,CDS2)="",LOS=$L(CDS) I LOS<45 S CDS1=CDS G S
54 S NOP=$L($E(CDS,1,41)," ")
55 S CDS1=$P(CDS," ",1,NOP-1),CDS2=$P(CDS," ",NOP,999)
56S W !,"45. NON CANCER-DIRECTED SURGERY DATE.: ",ONC(165.5,IE,58.3) D P Q:EX=U
57 W !,"46. NON CANCER-DIRECTED SURGERY......: ",NCDS1 W:NCDS2'="" !,?39,NCDS2 D P Q:EX=U
58 W !,"47. SURGERY OF PRIMARY SITE DATE.....: ",ONC(165.5,IE,50) D P Q:EX=U
59 W !,"48. SURGERY OF PRIMARY SITE..........: ",CDS1 W:CDS2'="" !,?39,CDS2
60 W !,"49. ADDITIONAL SURGICAL PROCEDURES...: ",ONC(165.5,IE,763) D P Q:EX=U
61 W !,"50. LAPAROSCOPY USED DURING SURGERY..: ",ONC(165.5,IE,764) D P Q:EX=U
62 W !,"51. METHOD OF ANASTOMOSIS............: ",ONC(165.5,IE,765) D P Q:EX=U
63 W !,"52. DIST OF ANASTOMOSIS FROM DENTATE.: ",ONC(165.5,IE,766) D P Q:EX=U
64 W !,"53. RESIDUAL PRIMARY TUMOR...........: ",ONC(165.5,IE,59) D P Q:EX=U
65 W !!,"54. OTHER SURGERY:" D P Q:EX=U
66 W !," COLOSTOMY......................: ",ONC(165.5,IE,767) D P Q:EX=U
67 W !," OOPHORECTOMY...................: ",ONC(165.5,IE,768) D P Q:EX=U
68 W !," PATHOLOGICAL STATUS............: ",ONC(165.5,IE,769) D P Q:EX=U
69CAFCOT W !!,"55. COMPLICATIONS AFTER FIRST COURSE OF TREATMENT:" D P Q:EX=U
70 W !," ABDOMINAL INFECTION......: ",ONC(165.5,IE,770),?44,"PERINEAL INFECTION.......: ",ONC(165.5,IE,777) D P Q:EX=U
71 W !," ABSCESS..................: ",ONC(165.5,IE,771),?44,"PNEUMONIA................: ",ONC(165.5,IE,778) D P Q:EX=U
72 W !," ADMISSION FOR NEUTROPENIA: ",ONC(165.5,IE,772),?44,"PROCTITIS................: ",ONC(165.5,IE,779) D P Q:EX=U
73 W !," ANASTOMOTIC DEHISCENCE...: ",ONC(165.5,IE,773),?44,"PULMONARY EMBOLISM.......: ",ONC(165.5,IE,780) D P Q:EX=U
74 W !," BLEEDING/HEMATOMA........: ",ONC(165.5,IE,437),?44,"RADIATION ENTERITIS......: ",ONC(165.5,IE,781) D P Q:EX=U
75 W !," DEHYDRATION..............: ",ONC(165.5,IE,774),?44,"STOMA COMPLICATION.......: ",ONC(165.5,IE,782) D P Q:EX=U
76 W !," DIARRHEA.................: ",ONC(165.5,IE,775),?44,"URINARY TRACT INFECTION..: ",ONC(165.5,IE,783) D P Q:EX=U
77 W !," EARLY BOWEL OBSTRUCTION..: ",ONC(165.5,IE,776)
78 W !!,"56. POSTOPERATIVE DEATH W/I 30 DAYS: ",ONC(165.5,IE,441)
79R W !!?4,"RADIATION THERAPY",!?4,"-----------------" D P Q:EX=U
80 W !,"57. DATE RADIATION STARTED...........: ",ONC(165.5,IE,51) D P Q:EX=U
81 W !,"58. DATE RADIATION THERAPY ENDED.....: ",ONC(165.5,IE,361) D P Q:EX=U
82 W !,"59. ENDOCAVITARY RADIATION...........: ",ONC(165.5,IE,784) D P Q:EX=U
83 W !,"60. INTRA-OPERATIVE RAD THERAPY......: ",ONC(165.5,IE,785) D P Q:EX=U
84 W !,"61. PRIMARY TUMOR RAD DOSE W BOOST...: ",ONC(165.5,IE,786) D P Q:EX=U
85 W !,"62. NUMBER OF RADIATION TREATMENTS...: ",ONC(165.5,IE,787) D P Q:EX=U
86 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCCPC9 W !?4,TABLE_" (continued)",!?4,LINE G C
87 W ! D P Q:EX=U
88C W !?4,"CHEMOTHERAPY",!?4,"------------" D P Q:EX=U
89 W !,"63. CHEMOTHERAPY.....................: ",ONC(165.5,IE,53.2) D P Q:EX=U
90 W !,"64. DATE CHEMOTHERAPY STARTED........: ",ONC(165.5,IE,53) D P Q:EX=U
91 W !,"65. ADJUVANT CHEMO W BEAM RADIATION..: ",ONC(165.5,IE,788) D P Q:EX=U
92 W !!,"66. ADJUVANT THERAPY:" D P Q:EX=U
93 W !," 5 FU (FLUOROURACIL): ",ONC(165.5,IE,789),?39,"CPT 11.............: ",ONC(165.5,IE,792) D P Q:EX=U
94 W !," LEUCOVORIN.........: ",ONC(165.5,IE,790),?39,"TAXOL..............: ",ONC(165.5,IE,377) D P Q:EX=U
95 W !," LEVAMISOLE.........: ",ONC(165.5,IE,791),?39,"OTHER..............: ",ONC(165.5,IE,793) D P Q:EX=U
96 W !!,"67. DURATION OF ADJUVANT THERAPY.....: ",ONC(165.5,IE,794) D P Q:EX=U
97 W !,"68. COMPLETED DURATION OF THERAPY....: ",ONC(165.5,IE,795) D P Q:EX=U
98 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR^ONCCPC9 G V
99 D P Q:EX=U
100V D ^ONCCPC9B
101KILL ;Kill Variables and Exit
102 K %,DIR,DIROUT,DIRUT,DTOUT,DUOUT,FILN,ONCOBL,EX,TXT,X,Y
103 Q
104P ;Display Data
105 I ($Y'<(LIN-1)) D Q:EX=U W !?4,TABLE_" (continued)",!?4,LINE
106 .I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR I 'Y S EX=U Q
107 .D HDR^ONCCPC9 Q
108 Q
Note: See TracBrowser for help on using the repository browser.