| [613] | 1 | ONCBPC4 ;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",!
|
|---|
| 23 | DOIT W !,"DATE OF INITIAL TREATMENT...........: ",DOIT
|
|---|
| 24 | S DIE="^ONCO(165.5,",DA=ONCONUM
|
|---|
| 25 | PES S DR="346PROTOCOL ELIGIBILITY STATUS........." D ^DIE G:$D(Y) JUMP
|
|---|
| 26 | MP 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
|
|---|
| 29 | SUR 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)
|
|---|
| 39 | DOS 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
|
|---|
| 43 | TURB 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
|
|---|
| 47 | TOUD 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
|
|---|
| 51 | PLND 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
|
|---|
| 55 | SC 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
|
|---|
| 87 | JUMP ;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
|
|---|
| 95 | EXIT 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
|
|---|
