source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCBPC4.m@ 1259

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

initial load of WorldVistAEHR

File size: 4.6 KB
Line 
1ONCBPC4 ;HIRMFO/GWB - PCE Study of Cancers of the Urinary Bladder Table IV;6/19/96
2 ;;2.11;ONCOLOGY;**6,11,16**;Mar 07, 1995
3 K ONC,TABLE,HTABLE
4 S TABLE("DATE OF INITIAL TREATMENT")="DOIT^ONCBPC4"
5 S TABLE("PROTOCOL ELIGIBILITY STATUS")="PES^ONCBPC4"
6 S TABLE("MANAGING PHYSICIANS")="MP^ONCBPC4"
7 S TABLE("SURGERY")="SUR^ONCBPC4"
8 S TABLE("RADIATION THERAPY")="RAD^ONCBPC4A"
9 S TABLE("CHEMOTHERAPY")="CHEMO^ONCBPC4A"
10 S TABLE("IMMUNOTHERAPY")="BRM^ONCBPC4A"
11 S HTABLE(1)="DATE OF INITIAL TREATMENT"
12 S HTABLE(2)="PROTOCOL ELIGIBILITY STATUS"
13 S HTABLE(3)="MANAGING PHYSICIANS"
14 S HTABLE(4)="SURGERY"
15 S HTABLE(5)="RADIATION THERAPY"
16 S HTABLE(6)="CHEMOTHERAPY"
17 S HTABLE(7)="IMMUNOTHERAPY"
18 S CHOICES=7
19 S D0=ONCONUM D DFC^ONCOCOM S DOIT=Y
20 S DIC="^ONCO(165.5,",DR="51.2;53.2;55.2;58.1;58.2",DA=ONCONUM,DIQ="ONC"
21 S DIQ(0)="IE" D EN^DIQ1
22 W @IOF D HEAD^ONCBPC0 W !?22,"TABLE IV - FIRST COURSE OF TREATMENT",!
23DOIT W !,"DATE OF INITIAL TREATMENT...........: ",DOIT
24 S DIE="^ONCO(165.5,",DA=ONCONUM
25PES S DR="346PROTOCOL ELIGIBILITY STATUS........." D ^DIE G:$D(Y) JUMP
26MP W !!,"MANAGING PHYSICIANS:",!
27 S DR="347 PRIMARY PHYSICIAN................." D ^DIE G:$D(Y) JUMP
28 S DR="348 SECONDARY PHYSICIAN..............." D ^DIE G:$D(Y) JUMP
29SUR W !!,"SURGERY:",!
30 S NCDS=ONC(165.5,ONCONUM,58.1,"I"),NCDSOT=ONC(165.5,ONCONUM,58.1,"E")
31 S CDS=ONC(165.5,ONCONUM,58.2,"I"),CDSOT=ONC(165.5,ONCONUM,58.2,"E")
32 I (CDS="")!(CDS="00") D
33 .S SURG=NCDSOT,SURGDT=$P($G(^ONCO(165.5,ONCONUM,3)),U,31)
34 I ((CDS'="")&(CDS'="00"))!(NCDS="") D
35 .S SURG=CDSOT,SURGDT=$P($G(^ONCO(165.5,ONCONUM,3)),U,1)
36 S (SURG1,SURG2)="",LOS=$L(SURG) I LOS<43 S SURG1=SURG G DOS
37 S NOP=$L($E(SURG,1,42)," ")
38 S SURG1=$P(SURG," ",1,NOP-1),SURG2=$P(SURG," ",NOP,999)
39DOS S Y=SURGDT D DATEOT^ONCOPCE S SURGDT=Y
40 W !," DATE OF SURGERY...................: ",SURGDT
41 W !," TYPE OF SURGERY...................: ",SURG1
42 W:SURG2'="" !,?41,SURG2
43TURB I (SURG="")!($E(SURG,1)=0)!($E(SURG,1,2)'=10)!(TOPCOD="C68.0") D G TOUD
44 .S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,4)=8
45 .W !," TUMOR RESECTION DURING TURB.......: Not applicable"
46 S DR="349 TUMOR RESECTION DURING TURB......." D ^DIE G:$D(Y) JUMP
47TOUD I (SURG="")!($E(SURG,1)=0)!($E(SURG,1,2)<20)!($E(SURG,1,2)>70) D G PLND
48 .S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,5)=8
49 .W !," TYPE OF URINARY DIVERSION.........: Not applicable"
50 S DR="350 TYPE OF URINARY DIVERSION........." D ^DIE G:$D(Y) JUMP
51PLND I (SURG="")!($E(SURG,1)=0)!($E(SURG,1,2)'=70) D G SC
52 .S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,6)=8
53 .W !," PELVIC LYMPH NODE DISSECTION......: Not applicable"
54 S DR="351 PELVIC LYMPH NODE DISSECTION......" D ^DIE G:$D(Y) JUMP
55SC I (SURG="")!($E(SURG,1)=0) D G:(Y=0)!(Y="") EXIT W @IOF G RAD^ONCBPC4A
56 .W !!," SURGICAL COMPLICATIONS:",!
57 .S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,7)=0
58 .W !," BLEEDING REQUIRING TRANSFUSION..: No"
59 .S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,8)=0
60 .W !," DEEP VENOUS THROMBOSIS..........: No"
61 .S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,9)=0
62 .W !," MYOCARDIAL INFARCTION/ARRHYTHMIA: No"
63 .S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,10)=0
64 .W !," PELVIC ABSCESS..................: No"
65 .S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,11)=0
66 .W !," PNEUMONIA REQUIRING ANTIBIOTICS.: No"
67 .S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,12)=0
68 .W !," POST-OPERATIVE DEATH (30 DAYS)..: No"
69 .S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,13)=0
70 .W !," PULMONARY EMBOLISM/THROMBOSIS...: No"
71 .S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,14)=0
72 .W !," REOPERATION.....................: No"
73 .S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,15)=0
74 .W !," OTHER...........................: No"
75 .W ! K DIR S DIR(0)="E" D ^DIR
76 W !!," SURGICAL COMPLICATIONS:",!
77 S DR="352 BLEEDING REQUIRING TRANSFUSION.." D ^DIE G:$D(Y) JUMP
78 S DR="353 DEEP VENOUS THROMBOSIS.........." D ^DIE G:$D(Y) JUMP
79 S DR="354 MYOCARDIAL INFARCTION/ARRHYTHMIA" D ^DIE G:$D(Y) JUMP
80 S DR="355 PELVIC ABSCESS.................." D ^DIE G:$D(Y) JUMP
81 S DR="356 PNEUMONIA REQUIRING ANTIBIOTICS." D ^DIE G:$D(Y) JUMP
82 S DR="357 POST-OPERATIVE DEATH (30 DAYS).." D ^DIE G:$D(Y) JUMP
83 S DR="358 PULMONARY EMBOLISM/THROMBOSIS..." D ^DIE G:$D(Y) JUMP
84 S DR="359 REOPERATION....................." D ^DIE G:$D(Y) JUMP
85 S DR="360 OTHER..........................." D ^DIE G:$D(Y) JUMP
86 G ^ONCBPC4A
87JUMP ;Jump to prompts
88 S XX="" R !!,"GO TO: ",X:DTIME I (X="")!(X[U) S OUT="Y" G EXIT
89 I X["?" D G JUMP
90 .W !,"CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I)
91 I '$D(TABLE(X)) S XX=X,X=$O(TABLE(X)) I ($P(X,XX,1)'="")!(X="") W *7,"??" D G JUMP
92 .W !,"CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I)
93 S X=TABLE(X)
94 G @X
95EXIT K CHOICES,HTABLE,TABLE
96 K CDS,CDSOT,CHEDT,CHEMO,DOIT,LOS,NCDS,NCDSOT,NOP,RAD,RADDT,SURG,SURG1
97 K SURG2,SURGDT
98 K DIC
99 Q
Note: See TracBrowser for help on using the repository browser.