source: FOIAVistA/trunk/r/ONCOLOGY-ONC/ONCCPC4.m

Last change on this file was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 7.0 KB
Line 
1ONCCPC4 ;HIRMFO/GWB - PCE Study of Colorectal Cancer - Table IV;2/20/97
2 ;;2.11;ONCOLOGY;**11,15,16**;Mar 07, 1995
3 K ONC,TABLE,HTABLE
4 S TABLE("PHYSICIAN PROVIDING TREATMENT")="PPT^ONCCPC4"
5 S TABLE("DATE OF FIRST COURSE TREATMENT")="DOFCT^ONCCPC4"
6 S TABLE("DATE OF INPATIENT ADMISSION")="DOIA^ONCCPC4"
7 S TABLE("DATE OF INPATIENT DISCHARGE")="DOID^ONCCPC4"
8 S TABLE("SURGERY")="S^ONCCPC4"
9 S TABLE("RADIATION THERAPY")="R^ONCCPC4A"
10 S TABLE("CHEMOTHERAPY")="C^ONCCPC4A"
11 S HTABLE(1)="PHYSICIAN PROVIDING TREATMENT"
12 S HTABLE(2)="DATE OF FIRST COURSE TREATMENT"
13 S HTABLE(3)="DATE OF INPATIENT ADMISSION"
14 S HTABLE(4)="DATE OF INPATIENT DISCHARGE"
15 S HTABLE(5)="SURGERY"
16 S HTABLE(6)="RADIATION THERAPY"
17 S HTABLE(7)="CHEMOTHERAPY"
18 S CHOICES=7
19 S D0=ONCONUM D DFC^ONCOCOM S DOFCT=Y
20 S DIC="^ONCO(165.5,",DR="50;51.2;53;53.2;58.1;58.2;58.3",DA=ONCONUM
21 S DIQ="ONC",DIQ(0)="IE" D EN^DIQ1
22 S CDS=ONC(165.5,ONCONUM,58.2,"E"),RAD=ONC(165.5,ONCONUM,51.2,"I")
23 S CHEMO=ONC(165.5,ONCONUM,53.2,"I"),CHEMOT=ONC(165.5,ONCONUM,53.2,"E")
24 W @IOF D HEAD^ONCCPC0
25 W !?22,"TABLE IV - FIRST COURSE OF TREATMENT"
26 W !?22,"------------------------------------"
27 S DIE="^ONCO(165.5,",DA=ONCONUM
28PPT S DR="762PHYSICIAN PROVIDING TREATMENT....." D ^DIE G:$D(Y) JUMP
29DOFCT W !,"DATE OF FIRST COURSE TREATMENT....: ",DOFCT
30DOIA S DR="1DATE OF INPATIENT ADMISSION......." D ^DIE G:$D(Y) JUMP
31DOID S DR="1.1DATE OF INPATIENT DISCHARGE......." D ^DIE G:$D(Y) JUMP
32S W !!,"SURGERY"
33 W !,"-------"
34NCDSDT S NCDSDT=$P($G(^ONCO(165.5,ONCONUM,3)),U,31)
35 S Y=NCDSDT D DATEOT^ONCOPCE S NCDSDT=Y
36 S NCDS=ONC(165.5,ONCONUM,58.1,"E")
37 S (NCDS1,NCDS2)="",LOS=$L(NCDS) I LOS<46 S NCDS1=NCDS G CDSDT
38 S NOP=$L($E(NCDS,1,41)," ")
39 S NCDS1=$P(NCDS," ",1,NOP-1),NCDS2=$P(NCDS," ",NOP,999)
40CDSDT S CDSDT=$P($G(^ONCO(165.5,ONCONUM,3)),U,1)
41 S Y=CDSDT D DATEOT^ONCOPCE S CDSDT=Y
42 S (CDS1,CDS2)="",LOS=$L(CDS) I LOS<46 S CDS1=CDS G NCDS
43 S NOP=$L($E(CDS,1,46)," ")
44 S CDS1=$P(CDS," ",1,NOP-1),CDS2=$P(CDS," ",NOP,999)
45NCDS W !," NON CANCER-DIRECTED SURGERY DATE: ",NCDSDT
46 W !," NON CANCER-DIRECTED SURGERY.....: ",NCDS1 W:NCDS2'="" !,?39,NCDS2
47 W !," SURGERY OF PRIMARY SITE DATE....: ",CDSDT
48CDS W !," SURGERY OF PRIMARY SITE.........: ",CDS1 W:CDS2'="" !,?39,CDS2
49SC I (CDS="")!($E(CDS,1,2)="00") D G:(Y=0)!(Y="") EXIT G R^ONCCPC4A
50 .W ! K DIR S DIR(0)="E" D ^DIR Q:(Y=0)!(Y="") D HEAD^ONCCPC0
51 .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,12)=88
52 .W !!," ADDITIONAL SURGICAL PROCEDURES..: NA, none performed"
53 .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,13)=8
54 .W !," LAPAROSCOPY USED DURING SURGERY.: NA"
55 .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,14)=0
56 .W !," METHOD OF ANASTOMOSIS...........: Not done"
57 .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,15)=0
58 .W !," DIST OF ANASTOMOSIS FROM DENTATE: 0"
59 .S $P(^ONCO(165.5,ONCONUM,3),U,28)=8
60 .W !," RESIDUAL PRIMARY TUMOR..........: NA"
61 .W !!," OTHER SURGERY:",!
62 .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,16)=0
63 .W !," COLOSTOMY.....................: No"
64 .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,17)=0
65 .W !," OOPHORECTOMY..................: No"
66 .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,18)=8
67 .W !," PATHOLOGICAL STATUS...........: NA"
68 .W ! K DIR S DIR(0)="E" D ^DIR Q:(Y=0)!(Y="") D HEAD^ONCCPC0
69 .W !," COMPLICATIONS AFTER FIRST COURSE OF TREATMENT:",!
70 .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,19)=8
71 .W !," ABDOMINAL INFECTION..............: NA, no treatment"
72 .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,20)=8
73 .W !," ABSCESS..........................: NA, no treatment"
74 .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,21)=8
75 .W !," ADMISSION FOR NEUTROPENIA........: NA, no treatment"
76 .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,22)=8
77 .W !," ANASTOMOTIC DEHISCENCE...........: NA, no treatment"
78 .S $P(^ONCO(165.5,ONCONUM,"THY1"),U,38)=8
79 .W !," BLEEDING/HEMATOMA................: NA, no treatment"
80 .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,23)=8
81 .W !," DEHYDRATION......................: NA, no treatment"
82 .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,24)=8
83 .W !," DIARRHEA.........................: NA, no treatment"
84 .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,25)=8
85 .W !," EARLY BOWEL OBSTRUCTION..........: NA, no treatment"
86 .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,26)=8
87 .W !," PERINEAL INFECTION...............: NA, no treatment"
88 .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,27)=8
89 .W !," PNEUMONIA........................: NA, no treatment"
90 .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,28)=8
91 .W !," PROCTITIS........................: NA, no treatment"
92 .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,29)=8
93 .W !," PULMONARY EMBOLISM...............: NA, no treatment"
94 .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,30)=8
95 .W !," RADIATION ENTERITIS..............: NA, no treatment"
96 .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,31)=8
97 .W !," STOMA COMPLICATION...............: NA, no treatment"
98 .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,32)=8
99 .W !," URINARY TRACT INFECTION..........: NA, no treatment"
100 .S $P(^ONCO(165.5,ONCONUM,"THY1"),U,42)=8
101 .K DIR S DIR(0)="E" D ^DIR Q:(Y=0)!(Y="") D HEAD^ONCCPC0
102 .W !!," POSTOPERATIVE DEATH W/I 30 DAYS: NA, no surgery",!
103 S DR="763 ADDITIONAL SURGICAL PROCEDURES.." D ^DIE G:$D(Y) JUMP
104 S DR="764 LAPAROSCOPY USED DURING SURGERY." D ^DIE G:$D(Y) JUMP
105 S DR="765 METHOD OF ANASTOMOSIS..........." D ^DIE G:$D(Y) JUMP
106 S DR="766 DIST OF ANASTOMOSIS FROM DENTATE" D ^DIE G:$D(Y) JUMP
107 S DR="59 RESIDUAL PRIMARY TUMOR.........." D ^DIE G:$D(Y) JUMP
108 W !!," OTHER SURGERY:",!
109 S DR="767 COLOSTOMY....................." D ^DIE G:$D(Y) JUMP
110 S DR="768 OOPHORECTOMY.................." D ^DIE G:$D(Y) JUMP
111 S DR="769 PATHOLOGICAL STATUS..........." D ^DIE G:$D(Y) JUMP
112 W !!," COMPLICATIONS AFTER FIRST COURSE OF TREATMENT:",!
113 S DR="770 ABDOMINAL INFECTION..........." D ^DIE G:$D(Y) JUMP
114 S DR="771 ABSCESS......................." D ^DIE G:$D(Y) JUMP
115 S DR="772 ADMISSION FOR NEUTROPENIA....." D ^DIE G:$D(Y) JUMP
116 S DR="773 ANASTOMOTIC DEHISCENCE........" D ^DIE G:$D(Y) JUMP
117 S DR="437 BLEEDING/HEMATOMA............." D ^DIE G:$D(Y) JUMP
118 S DR="774 DEHYDRATION..................." D ^DIE G:$D(Y) JUMP
119 S DR="775 DIARRHEA......................" D ^DIE G:$D(Y) JUMP
120 S DR="776 EARLY BOWEL OBSTRUCTION......." D ^DIE G:$D(Y) JUMP
121 S DR="777 PERINEAL INFECTION............" D ^DIE G:$D(Y) JUMP
122 S DR="778 PNEUMONIA....................." D ^DIE G:$D(Y) JUMP
123 S DR="779 PROCTITIS....................." D ^DIE G:$D(Y) JUMP
124 S DR="780 PULMONARY EMBOLISM............" D ^DIE G:$D(Y) JUMP
125 S DR="781 RADIATION ENTERITIS..........." D ^DIE G:$D(Y) JUMP
126 S DR="782 STOMA COMPLICATION............" D ^DIE G:$D(Y) JUMP
127 S DR="783 URINARY TRACT INFECTION......." D ^DIE G:$D(Y) JUMP
128 W !
129 S DR="441 POSTOPERATIVE DEATH W/I 30 DAYS." D ^DIE G:$D(Y) JUMP
130 W ! G R^ONCCPC4A
131JUMP ;Jump to prompts
132 S XX="" R !!,"GO TO: ",X:DTIME I (X="")!(X[U) S OUT="Y" G EXIT
133 I X["?" D G JUMP
134 .W !,"CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I)
135 I '$D(TABLE(X)) S XX=X,X=$O(TABLE(X)) I ($P(X,XX,1)'="")!(X="") W *7,"??" D G JUMP
136 .W !,"CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I)
137 S X=TABLE(X)
138 G @X
139EXIT K CHOICES,HTABLE,TABLE
140 K CDS,CDS1,CDS2,CDSDT,CHEMO,DOFCT,LOS,NCDS,NCDS1,NCDS2,NCDSDT,NOP,RAD
141 K RADDT,DIQ
142 Q
Note: See TracBrowser for help on using the repository browser.