ONCCPC4 ;HIRMFO/GWB - PCE Study of Colorectal Cancer - Table IV;2/20/97
;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
K ONC,TABLE,HTABLE
S TABLE("PHYSICIAN PROVIDING TREATMENT")="PPT^ONCCPC4"
S TABLE("DATE OF FIRST COURSE TREATMENT")="DOFCT^ONCCPC4"
S TABLE("DATE OF INPATIENT ADMISSION")="DOIA^ONCCPC4"
S TABLE("DATE OF INPATIENT DISCHARGE")="DOID^ONCCPC4"
S TABLE("SURGERY")="S^ONCCPC4"
S TABLE("RADIATION THERAPY")="R^ONCCPC4A"
S TABLE("CHEMOTHERAPY")="C^ONCCPC4A"
S HTABLE(1)="PHYSICIAN PROVIDING TREATMENT"
S HTABLE(2)="DATE OF FIRST COURSE TREATMENT"
S HTABLE(3)="DATE OF INPATIENT ADMISSION"
S HTABLE(4)="DATE OF INPATIENT DISCHARGE"
S HTABLE(5)="SURGERY"
S HTABLE(6)="RADIATION THERAPY"
S HTABLE(7)="CHEMOTHERAPY"
S CHOICES=7
S D0=ONCONUM D DFC^ONCOCOM S DOFCT=Y
S DIC="^ONCO(165.5,",DR="50;51.2;53;53.2;58.1;58.2;58.3",DA=ONCONUM
S DIQ="ONC",DIQ(0)="IE" D EN^DIQ1
S CDS=ONC(165.5,ONCONUM,58.2,"E"),RAD=ONC(165.5,ONCONUM,51.2,"I")
S CHEMO=ONC(165.5,ONCONUM,53.2,"I"),CHEMOT=ONC(165.5,ONCONUM,53.2,"E")
W @IOF D HEAD^ONCCPC0
W !?22,"TABLE IV - FIRST COURSE OF TREATMENT"
W !?22,"------------------------------------"
S DIE="^ONCO(165.5,",DA=ONCONUM
PPT S DR="762PHYSICIAN PROVIDING TREATMENT....." D ^DIE G:$D(Y) JUMP
DOFCT W !,"DATE OF FIRST COURSE TREATMENT....: ",DOFCT
DOIA S DR="1DATE OF INPATIENT ADMISSION......." D ^DIE G:$D(Y) JUMP
DOID S DR="1.1DATE OF INPATIENT DISCHARGE......." D ^DIE G:$D(Y) JUMP
S W !!,"SURGERY"
W !,"-------"
NCDSDT S NCDSDT=$P($G(^ONCO(165.5,ONCONUM,3)),U,31)
S Y=NCDSDT D DATEOT^ONCOPCE S NCDSDT=Y
S NCDS=ONC(165.5,ONCONUM,58.1,"E")
S (NCDS1,NCDS2)="",LOS=$L(NCDS) I LOS<46 S NCDS1=NCDS G CDSDT
S NOP=$L($E(NCDS,1,41)," ")
S NCDS1=$P(NCDS," ",1,NOP-1),NCDS2=$P(NCDS," ",NOP,999)
CDSDT S CDSDT=$P($G(^ONCO(165.5,ONCONUM,3)),U,1)
S Y=CDSDT D DATEOT^ONCOPCE S CDSDT=Y
S (CDS1,CDS2)="",LOS=$L(CDS) I LOS<46 S CDS1=CDS G NCDS
S NOP=$L($E(CDS,1,46)," ")
S CDS1=$P(CDS," ",1,NOP-1),CDS2=$P(CDS," ",NOP,999)
NCDS W !," NON CANCER-DIRECTED SURGERY DATE: ",NCDSDT
W !," NON CANCER-DIRECTED SURGERY.....: ",NCDS1 W:NCDS2'="" !,?39,NCDS2
W !," SURGERY OF PRIMARY SITE DATE....: ",CDSDT
CDS W !," SURGERY OF PRIMARY SITE.........: ",CDS1 W:CDS2'="" !,?39,CDS2
SC I (CDS="")!($E(CDS,1,2)="00") D G:(Y=0)!(Y="") EXIT G R^ONCCPC4A
.W ! K DIR S DIR(0)="E" D ^DIR Q:(Y=0)!(Y="") D HEAD^ONCCPC0
.S $P(^ONCO(165.5,ONCONUM,"COL2"),U,12)=88
.W !!," ADDITIONAL SURGICAL PROCEDURES..: NA, none performed"
.S $P(^ONCO(165.5,ONCONUM,"COL2"),U,13)=8
.W !," LAPAROSCOPY USED DURING SURGERY.: NA"
.S $P(^ONCO(165.5,ONCONUM,"COL2"),U,14)=0
.W !," METHOD OF ANASTOMOSIS...........: Not done"
.S $P(^ONCO(165.5,ONCONUM,"COL2"),U,15)=0
.W !," DIST OF ANASTOMOSIS FROM DENTATE: 0"
.S $P(^ONCO(165.5,ONCONUM,3),U,28)=8
.W !," RESIDUAL PRIMARY TUMOR..........: NA"
.W !!," OTHER SURGERY:",!
.S $P(^ONCO(165.5,ONCONUM,"COL2"),U,16)=0
.W !," COLOSTOMY.....................: No"
.S $P(^ONCO(165.5,ONCONUM,"COL2"),U,17)=0
.W !," OOPHORECTOMY..................: No"
.S $P(^ONCO(165.5,ONCONUM,"COL2"),U,18)=8
.W !," PATHOLOGICAL STATUS...........: NA"
.W ! K DIR S DIR(0)="E" D ^DIR Q:(Y=0)!(Y="") D HEAD^ONCCPC0
.W !," COMPLICATIONS AFTER FIRST COURSE OF TREATMENT:",!
.S $P(^ONCO(165.5,ONCONUM,"COL2"),U,19)=8
.W !," ABDOMINAL INFECTION..............: NA, no treatment"
.S $P(^ONCO(165.5,ONCONUM,"COL2"),U,20)=8
.W !," ABSCESS..........................: NA, no treatment"
.S $P(^ONCO(165.5,ONCONUM,"COL2"),U,21)=8
.W !," ADMISSION FOR NEUTROPENIA........: NA, no treatment"
.S $P(^ONCO(165.5,ONCONUM,"COL2"),U,22)=8
.W !," ANASTOMOTIC DEHISCENCE...........: NA, no treatment"
.S $P(^ONCO(165.5,ONCONUM,"THY1"),U,38)=8
.W !," BLEEDING/HEMATOMA................: NA, no treatment"
.S $P(^ONCO(165.5,ONCONUM,"COL2"),U,23)=8
.W !," DEHYDRATION......................: NA, no treatment"
.S $P(^ONCO(165.5,ONCONUM,"COL2"),U,24)=8
.W !," DIARRHEA.........................: NA, no treatment"
.S $P(^ONCO(165.5,ONCONUM,"COL2"),U,25)=8
.W !," EARLY BOWEL OBSTRUCTION..........: NA, no treatment"
.S $P(^ONCO(165.5,ONCONUM,"COL2"),U,26)=8
.W !," PERINEAL INFECTION...............: NA, no treatment"
.S $P(^ONCO(165.5,ONCONUM,"COL2"),U,27)=8
.W !," PNEUMONIA........................: NA, no treatment"
.S $P(^ONCO(165.5,ONCONUM,"COL2"),U,28)=8
.W !," PROCTITIS........................: NA, no treatment"
.S $P(^ONCO(165.5,ONCONUM,"COL2"),U,29)=8
.W !," PULMONARY EMBOLISM...............: NA, no treatment"
.S $P(^ONCO(165.5,ONCONUM,"COL2"),U,30)=8
.W !," RADIATION ENTERITIS..............: NA, no treatment"
.S $P(^ONCO(165.5,ONCONUM,"COL2"),U,31)=8
.W !," STOMA COMPLICATION...............: NA, no treatment"
.S $P(^ONCO(165.5,ONCONUM,"COL2"),U,32)=8
.W !," URINARY TRACT INFECTION..........: NA, no treatment"
.S $P(^ONCO(165.5,ONCONUM,"THY1"),U,42)=8
.K DIR S DIR(0)="E" D ^DIR Q:(Y=0)!(Y="") D HEAD^ONCCPC0
.W !!," POSTOPERATIVE DEATH W/I 30 DAYS: NA, no surgery",!
S DR="763 ADDITIONAL SURGICAL PROCEDURES.." D ^DIE G:$D(Y) JUMP
S DR="764 LAPAROSCOPY USED DURING SURGERY." D ^DIE G:$D(Y) JUMP
S DR="765 METHOD OF ANASTOMOSIS..........." D ^DIE G:$D(Y) JUMP
S DR="766 DIST OF ANASTOMOSIS FROM DENTATE" D ^DIE G:$D(Y) JUMP
S DR="59 RESIDUAL PRIMARY TUMOR.........." D ^DIE G:$D(Y) JUMP
W !!," OTHER SURGERY:",!
S DR="767 COLOSTOMY....................." D ^DIE G:$D(Y) JUMP
S DR="768 OOPHORECTOMY.................." D ^DIE G:$D(Y) JUMP
S DR="769 PATHOLOGICAL STATUS..........." D ^DIE G:$D(Y) JUMP
W !!," COMPLICATIONS AFTER FIRST COURSE OF TREATMENT:",!
S DR="770 ABDOMINAL INFECTION..........." D ^DIE G:$D(Y) JUMP
S DR="771 ABSCESS......................." D ^DIE G:$D(Y) JUMP
S DR="772 ADMISSION FOR NEUTROPENIA....." D ^DIE G:$D(Y) JUMP
S DR="773 ANASTOMOTIC DEHISCENCE........" D ^DIE G:$D(Y) JUMP
S DR="437 BLEEDING/HEMATOMA............." D ^DIE G:$D(Y) JUMP
S DR="774 DEHYDRATION..................." D ^DIE G:$D(Y) JUMP
S DR="775 DIARRHEA......................" D ^DIE G:$D(Y) JUMP
S DR="776 EARLY BOWEL OBSTRUCTION......." D ^DIE G:$D(Y) JUMP
S DR="777 PERINEAL INFECTION............" D ^DIE G:$D(Y) JUMP
S DR="778 PNEUMONIA....................." D ^DIE G:$D(Y) JUMP
S DR="779 PROCTITIS....................." D ^DIE G:$D(Y) JUMP
S DR="780 PULMONARY EMBOLISM............" D ^DIE G:$D(Y) JUMP
S DR="781 RADIATION ENTERITIS..........." D ^DIE G:$D(Y) JUMP
S DR="782 STOMA COMPLICATION............" D ^DIE G:$D(Y) JUMP
S DR="783 URINARY TRACT INFECTION......." D ^DIE G:$D(Y) JUMP
W !
S DR="441 POSTOPERATIVE DEATH W/I 30 DAYS." D ^DIE G:$D(Y) JUMP
W ! G R^ONCCPC4A
JUMP ;Jump to prompts
S XX="" R !!,"GO TO: ",X:DTIME I (X="")!(X[U) S OUT="Y" G EXIT
I X["?" D G JUMP
.W !,"CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I)
I '$D(TABLE(X)) S XX=X,X=$O(TABLE(X)) I ($P(X,XX,1)'="")!(X="") W *7,"??" D G JUMP
.W !,"CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I)
S X=TABLE(X)
G @X
EXIT K CHOICES,HTABLE,TABLE
K CDS,CDS1,CDS2,CDSDT,CHEMO,DOFCT,LOS,NCDS,NCDS1,NCDS2,NCDSDT,NOP,RAD
K RADDT,DIQ
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCCPC4 7282 printed Dec 13, 2024@02:22:31 Page 2
ONCCPC4 ;HIRMFO/GWB - PCE Study of Colorectal Cancer - Table IV;2/20/97
+1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
+2 KILL ONC,TABLE,HTABLE
+3 SET TABLE("PHYSICIAN PROVIDING TREATMENT")="PPT^ONCCPC4"
+4 SET TABLE("DATE OF FIRST COURSE TREATMENT")="DOFCT^ONCCPC4"
+5 SET TABLE("DATE OF INPATIENT ADMISSION")="DOIA^ONCCPC4"
+6 SET TABLE("DATE OF INPATIENT DISCHARGE")="DOID^ONCCPC4"
+7 SET TABLE("SURGERY")="S^ONCCPC4"
+8 SET TABLE("RADIATION THERAPY")="R^ONCCPC4A"
+9 SET TABLE("CHEMOTHERAPY")="C^ONCCPC4A"
+10 SET HTABLE(1)="PHYSICIAN PROVIDING TREATMENT"
+11 SET HTABLE(2)="DATE OF FIRST COURSE TREATMENT"
+12 SET HTABLE(3)="DATE OF INPATIENT ADMISSION"
+13 SET HTABLE(4)="DATE OF INPATIENT DISCHARGE"
+14 SET HTABLE(5)="SURGERY"
+15 SET HTABLE(6)="RADIATION THERAPY"
+16 SET HTABLE(7)="CHEMOTHERAPY"
+17 SET CHOICES=7
+18 SET D0=ONCONUM
DO DFC^ONCOCOM
SET DOFCT=Y
+19 SET DIC="^ONCO(165.5,"
SET DR="50;51.2;53;53.2;58.1;58.2;58.3"
SET DA=ONCONUM
+20 SET DIQ="ONC"
SET DIQ(0)="IE"
DO EN^DIQ1
+21 SET CDS=ONC(165.5,ONCONUM,58.2,"E")
SET RAD=ONC(165.5,ONCONUM,51.2,"I")
+22 SET CHEMO=ONC(165.5,ONCONUM,53.2,"I")
SET CHEMOT=ONC(165.5,ONCONUM,53.2,"E")
+23 WRITE @IOF
DO HEAD^ONCCPC0
+24 WRITE !?22,"TABLE IV - FIRST COURSE OF TREATMENT"
+25 WRITE !?22,"------------------------------------"
+26 SET DIE="^ONCO(165.5,"
SET DA=ONCONUM
PPT SET DR="762PHYSICIAN PROVIDING TREATMENT....."
DO ^DIE
if $DATA(Y)
GOTO JUMP
DOFCT WRITE !,"DATE OF FIRST COURSE TREATMENT....: ",DOFCT
DOIA SET DR="1DATE OF INPATIENT ADMISSION......."
DO ^DIE
if $DATA(Y)
GOTO JUMP
DOID SET DR="1.1DATE OF INPATIENT DISCHARGE......."
DO ^DIE
if $DATA(Y)
GOTO JUMP
S WRITE !!,"SURGERY"
+1 WRITE !,"-------"
NCDSDT SET NCDSDT=$PIECE($GET(^ONCO(165.5,ONCONUM,3)),U,31)
+1 SET Y=NCDSDT
DO DATEOT^ONCOPCE
SET NCDSDT=Y
+2 SET NCDS=ONC(165.5,ONCONUM,58.1,"E")
+3 SET (NCDS1,NCDS2)=""
SET LOS=$LENGTH(NCDS)
IF LOS<46
SET NCDS1=NCDS
GOTO CDSDT
+4 SET NOP=$LENGTH($EXTRACT(NCDS,1,41)," ")
+5 SET NCDS1=$PIECE(NCDS," ",1,NOP-1)
SET NCDS2=$PIECE(NCDS," ",NOP,999)
CDSDT SET CDSDT=$PIECE($GET(^ONCO(165.5,ONCONUM,3)),U,1)
+1 SET Y=CDSDT
DO DATEOT^ONCOPCE
SET CDSDT=Y
+2 SET (CDS1,CDS2)=""
SET LOS=$LENGTH(CDS)
IF LOS<46
SET CDS1=CDS
GOTO NCDS
+3 SET NOP=$LENGTH($EXTRACT(CDS,1,46)," ")
+4 SET CDS1=$PIECE(CDS," ",1,NOP-1)
SET CDS2=$PIECE(CDS," ",NOP,999)
NCDS WRITE !," NON CANCER-DIRECTED SURGERY DATE: ",NCDSDT
+1 WRITE !," NON CANCER-DIRECTED SURGERY.....: ",NCDS1
if NCDS2'=""
WRITE !,?39,NCDS2
+2 WRITE !," SURGERY OF PRIMARY SITE DATE....: ",CDSDT
CDS WRITE !," SURGERY OF PRIMARY SITE.........: ",CDS1
if CDS2'=""
WRITE !,?39,CDS2
SC IF (CDS="")!($EXTRACT(CDS,1,2)="00")
Begin DoDot:1
+1 WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if (Y=0)!(Y="")
QUIT
DO HEAD^ONCCPC0
+2 SET $PIECE(^ONCO(165.5,ONCONUM,"COL2"),U,12)=88
+3 WRITE !!," ADDITIONAL SURGICAL PROCEDURES..: NA, none performed"
+4 SET $PIECE(^ONCO(165.5,ONCONUM,"COL2"),U,13)=8
+5 WRITE !," LAPAROSCOPY USED DURING SURGERY.: NA"
+6 SET $PIECE(^ONCO(165.5,ONCONUM,"COL2"),U,14)=0
+7 WRITE !," METHOD OF ANASTOMOSIS...........: Not done"
+8 SET $PIECE(^ONCO(165.5,ONCONUM,"COL2"),U,15)=0
+9 WRITE !," DIST OF ANASTOMOSIS FROM DENTATE: 0"
+10 SET $PIECE(^ONCO(165.5,ONCONUM,3),U,28)=8
+11 WRITE !," RESIDUAL PRIMARY TUMOR..........: NA"
+12 WRITE !!," OTHER SURGERY:",!
+13 SET $PIECE(^ONCO(165.5,ONCONUM,"COL2"),U,16)=0
+14 WRITE !," COLOSTOMY.....................: No"
+15 SET $PIECE(^ONCO(165.5,ONCONUM,"COL2"),U,17)=0
+16 WRITE !," OOPHORECTOMY..................: No"
+17 SET $PIECE(^ONCO(165.5,ONCONUM,"COL2"),U,18)=8
+18 WRITE !," PATHOLOGICAL STATUS...........: NA"
+19 WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if (Y=0)!(Y="")
QUIT
DO HEAD^ONCCPC0
+20 WRITE !," COMPLICATIONS AFTER FIRST COURSE OF TREATMENT:",!
+21 SET $PIECE(^ONCO(165.5,ONCONUM,"COL2"),U,19)=8
+22 WRITE !," ABDOMINAL INFECTION..............: NA, no treatment"
+23 SET $PIECE(^ONCO(165.5,ONCONUM,"COL2"),U,20)=8
+24 WRITE !," ABSCESS..........................: NA, no treatment"
+25 SET $PIECE(^ONCO(165.5,ONCONUM,"COL2"),U,21)=8
+26 WRITE !," ADMISSION FOR NEUTROPENIA........: NA, no treatment"
+27 SET $PIECE(^ONCO(165.5,ONCONUM,"COL2"),U,22)=8
+28 WRITE !," ANASTOMOTIC DEHISCENCE...........: NA, no treatment"
+29 SET $PIECE(^ONCO(165.5,ONCONUM,"THY1"),U,38)=8
+30 WRITE !," BLEEDING/HEMATOMA................: NA, no treatment"
+31 SET $PIECE(^ONCO(165.5,ONCONUM,"COL2"),U,23)=8
+32 WRITE !," DEHYDRATION......................: NA, no treatment"
+33 SET $PIECE(^ONCO(165.5,ONCONUM,"COL2"),U,24)=8
+34 WRITE !," DIARRHEA.........................: NA, no treatment"
+35 SET $PIECE(^ONCO(165.5,ONCONUM,"COL2"),U,25)=8
+36 WRITE !," EARLY BOWEL OBSTRUCTION..........: NA, no treatment"
+37 SET $PIECE(^ONCO(165.5,ONCONUM,"COL2"),U,26)=8
+38 WRITE !," PERINEAL INFECTION...............: NA, no treatment"
+39 SET $PIECE(^ONCO(165.5,ONCONUM,"COL2"),U,27)=8
+40 WRITE !," PNEUMONIA........................: NA, no treatment"
+41 SET $PIECE(^ONCO(165.5,ONCONUM,"COL2"),U,28)=8
+42 WRITE !," PROCTITIS........................: NA, no treatment"
+43 SET $PIECE(^ONCO(165.5,ONCONUM,"COL2"),U,29)=8
+44 WRITE !," PULMONARY EMBOLISM...............: NA, no treatment"
+45 SET $PIECE(^ONCO(165.5,ONCONUM,"COL2"),U,30)=8
+46 WRITE !," RADIATION ENTERITIS..............: NA, no treatment"
+47 SET $PIECE(^ONCO(165.5,ONCONUM,"COL2"),U,31)=8
+48 WRITE !," STOMA COMPLICATION...............: NA, no treatment"
+49 SET $PIECE(^ONCO(165.5,ONCONUM,"COL2"),U,32)=8
+50 WRITE !," URINARY TRACT INFECTION..........: NA, no treatment"
+51 SET $PIECE(^ONCO(165.5,ONCONUM,"THY1"),U,42)=8
+52 KILL DIR
SET DIR(0)="E"
DO ^DIR
if (Y=0)!(Y="")
QUIT
DO HEAD^ONCCPC0
+53 WRITE !!," POSTOPERATIVE DEATH W/I 30 DAYS: NA, no surgery",!
End DoDot:1
if (Y=0)!(Y="")
GOTO EXIT
GOTO R^ONCCPC4A
+54 SET DR="763 ADDITIONAL SURGICAL PROCEDURES.."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+55 SET DR="764 LAPAROSCOPY USED DURING SURGERY."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+56 SET DR="765 METHOD OF ANASTOMOSIS..........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+57 SET DR="766 DIST OF ANASTOMOSIS FROM DENTATE"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+58 SET DR="59 RESIDUAL PRIMARY TUMOR.........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+59 WRITE !!," OTHER SURGERY:",!
+60 SET DR="767 COLOSTOMY....................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+61 SET DR="768 OOPHORECTOMY.................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+62 SET DR="769 PATHOLOGICAL STATUS..........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+63 WRITE !!," COMPLICATIONS AFTER FIRST COURSE OF TREATMENT:",!
+64 SET DR="770 ABDOMINAL INFECTION..........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+65 SET DR="771 ABSCESS......................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+66 SET DR="772 ADMISSION FOR NEUTROPENIA....."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+67 SET DR="773 ANASTOMOTIC DEHISCENCE........"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+68 SET DR="437 BLEEDING/HEMATOMA............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+69 SET DR="774 DEHYDRATION..................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+70 SET DR="775 DIARRHEA......................"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+71 SET DR="776 EARLY BOWEL OBSTRUCTION......."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+72 SET DR="777 PERINEAL INFECTION............"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+73 SET DR="778 PNEUMONIA....................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+74 SET DR="779 PROCTITIS....................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+75 SET DR="780 PULMONARY EMBOLISM............"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+76 SET DR="781 RADIATION ENTERITIS..........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+77 SET DR="782 STOMA COMPLICATION............"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+78 SET DR="783 URINARY TRACT INFECTION......."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+79 WRITE !
+80 SET DR="441 POSTOPERATIVE DEATH W/I 30 DAYS."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+81 WRITE !
GOTO R^ONCCPC4A
JUMP ;Jump to prompts
+1 SET XX=""
READ !!,"GO TO: ",X:DTIME
IF (X="")!(X[U)
SET OUT="Y"
GOTO EXIT
+2 IF X["?"
Begin DoDot:1
+3 WRITE !,"CHOOSE FROM:"
FOR I=1:1:CHOICES
WRITE !,?5,HTABLE(I)
End DoDot:1
GOTO JUMP
+4 IF '$DATA(TABLE(X))
SET XX=X
SET X=$ORDER(TABLE(X))
IF ($PIECE(X,XX,1)'="")!(X="")
WRITE *7,"??"
Begin DoDot:1
+5 WRITE !,"CHOOSE FROM:"
FOR I=1:1:CHOICES
WRITE !,?5,HTABLE(I)
End DoDot:1
GOTO JUMP
+6 SET X=TABLE(X)
+7 GOTO @X
EXIT KILL CHOICES,HTABLE,TABLE
+1 KILL CDS,CDS1,CDS2,CDSDT,CHEMO,DOFCT,LOS,NCDS,NCDS1,NCDS2,NCDSDT,NOP,RAD
+2 KILL RADDT,DIQ
+3 QUIT
