ONCHPC4A ;Hines OIFO/GWB - 2000 Hepatocellular Cancers PCE Study ;01/10/00
;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
;First Course of Treatment (continued)
R W @IOF D HEAD^ONCHPC0
W !," RADIATION THERAPY"
W !," -----------------"
DRS W !," 44. DATE RADIATION STARTED........: ",$$GET1^DIQ(165.5,IE,51)
RT W !," 45. RADIATION THERAPY.............: ",$$GET1^DIQ(165.5,IE,51.2)
W ! K DIR S DIR(0)="E" D ^DIR G:$D(DIRUT) EXIT
C W @IOF D HEAD^ONCHPC0
W !," CHEMOTHERAPY"
W !," ------------"
DCS W !," 46. DATE CHEMOTHERAPY STARTED.....: ",$$GET1^DIQ(165.5,IE,53)
CT W !," 47. CHEMOTHERAPY..................: ",$$GET1^DIQ(165.5,IE,53.2)
TCAA W !!," 48. TYPE OF CHEMOTHERAPEUTIC AGENTS ADMINISTERED:"
I CHE=0 D G RCA
.S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,62)=0
.S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,63)=0
.S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,64)=0
.S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,65)=0
.S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,66)=0
.S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,67)=0
.S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,68)=0
.S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,69)=0
.W !," CISPLATIN....................: No"
.W !," FUDR.........................: No"
.W !," 5-FU.........................: No"
.W !," FU & LEUCOVORIN..............: No"
.W !," IRINOTECAN (CPT-11)..........: No"
.W !," MITOMYCIN C..................: No"
.W !," OXALIPLATIN..................: No"
.W !," GEMCITABINE..................: No"
I CHE=9 D G RCA
.S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,62)=9
.S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,63)=9
.S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,64)=9
.S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,65)=9
.S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,66)=9
.S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,67)=9
.S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,68)=9
.S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,69)=9
.W !," CISPLATIN....................: Unknown if recommended or administered"
.W !," FUDR.........................: Unknown if recommended or administered"
.W !," 5-FU.........................: Unknown if recommended or administered"
.W !," FU & LEUCOVORIN..............: Unknown if recommended or administered"
.W !," IRINOTECAN (CPT-11)..........: Unknown if recommended or administered"
.W !," MITOMYCIN C..................: Unknown if recommended or administered"
.W !," OXALIPLATIN..................: Unknown if recommended or administered"
.W !," GEMCITABINE..................: Unknown if recommended or administered"
S DR="1061 CISPLATIN...................." D ^DIE G:$D(Y) JUMP
S DR="1062 FUDR........................." D ^DIE G:$D(Y) JUMP
S DR="1063 5-FU........................." D ^DIE G:$D(Y) JUMP
S DR="1064 FU & LEUCOVORIN.............." D ^DIE G:$D(Y) JUMP
S DR="1065 IRINOTECAN (CPT-11).........." D ^DIE G:$D(Y) JUMP
S DR="1066 MITOMYCIN C.................." D ^DIE G:$D(Y) JUMP
S DR="1067 OXALIPLATIN.................." D ^DIE G:$D(Y) JUMP
S DR="1068 GEMCITABINE.................." D ^DIE G:$D(Y) JUMP
RCA W !
I (CHE=0)!(CHE=9) D G CSS
.S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,70)=88
.W !," 49. ROUTE CHEMOTHERAPY ADMIN......: NA"
S DR="1069 49. ROUTE CHEMOTHERAPY ADMIN" D ^DIE G:$D(Y) JUMP
CSS I (CDS="00")!(CDS=99)!(CHE=0)!(CHE=9) D G DIR
.S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,71)=0
.W !," 50. CHEMOTHERAPY/SURGERY SEQUENCE.: No chemotherapy and/or no surgery"
S CDSDT=$$GET1^DIQ(165.5,IE,50,"I")
S CHEDT=$$GET1^DIQ(165.5,IE,53,"I")
I (CDSDT="")!(CHEDT="") G CSS1
I CHEDT<CDSDT D G DIR
.S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,71)=1
.W !," 50. CHEMOTHERAPY/SURGERY SEQUENCE.: Chemotherapy before surgery"
I CHEDT>CDSDT D G DIR
.S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,71)=2
.W !," 50. CHEMOTHERAPY/SURGERY SEQUENCE.: Chemotherapy after surgery"
CSS1 S DR="1070 50. CHEMOTHERAPY/SURGERY SEQUENCE." D ^DIE G:$D(Y) JUMP
DIR K DIR S DIR(0)="E" D ^DIR G:$D(DIRUT) EXIT
O W @IOF D HEAD^ONCHPC0
W !," OTHER THERAPY"
W !," -------------"
DOTS W !," 51. DATE OTHER TREATMENT STARTED..: ",$$GET1^DIQ(165.5,IE,57)
OT W !," 52. OTHER TREATMENT...............: ",$$GET1^DIQ(165.5,IE,57.2)
AE S DR="1071 53. ARTERIAL EMBOLIZATION........." D ^DIE G:$D(Y) JUMP
DWTD S DR="1072 54. DEATH WITHIN 30 DAYS OF START OF INITIAL COURSE OF THERAPY." D ^DIE G:$D(Y) JUMP
PRTC W ! K DIR S DIR(0)="E" D ^DIR S:$D(DIRUT) OUT="Y"
G EXIT
JUMP ;Jump to prompts
S XX="" R !!," GO TO ITEM: ",X:DTIME I (X="")!(X[U) S OUT="Y" G EXIT
I X["?" D G:$D(DIRUT) EXIT G JUMP
.W @IOF,!," CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I) I I=18 W ! K DIR S DIR(0)="E" D ^DIR Q:$D(DIRUT) W @IOF,!," CHOOSE FROM:"
I '$D(TABLE(X)) S:X?1.2N X=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) I I=18 W ! K DIR S DIR(0)="E" D ^DIR Q:$D(DIRUT) W @IOF,!," CHOOSE FROM:"
S X=TABLE(X)
G @X
EXIT S:$D(DIRUT) OUT="Y"
K CHOICES,PIECE,HTABLE,TABLE
K CDS,CHE,LOS,NCDS,NOP,RAD,SA,SA1,SA2,SM,SM1,SM2
K DA,DIE,DIR,DIROUT,DIRUT,DR,DTOUT,DUOUT,X,XX,Y
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCHPC4A 5162 printed Oct 16, 2024@18:23:50 Page 2
ONCHPC4A ;Hines OIFO/GWB - 2000 Hepatocellular Cancers PCE Study ;01/10/00
+1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
+2 ;First Course of Treatment (continued)
R WRITE @IOF
DO HEAD^ONCHPC0
+1 WRITE !," RADIATION THERAPY"
+2 WRITE !," -----------------"
DRS WRITE !," 44. DATE RADIATION STARTED........: ",$$GET1^DIQ(165.5,IE,51)
RT WRITE !," 45. RADIATION THERAPY.............: ",$$GET1^DIQ(165.5,IE,51.2)
+1 WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if $DATA(DIRUT)
GOTO EXIT
C WRITE @IOF
DO HEAD^ONCHPC0
+1 WRITE !," CHEMOTHERAPY"
+2 WRITE !," ------------"
DCS WRITE !," 46. DATE CHEMOTHERAPY STARTED.....: ",$$GET1^DIQ(165.5,IE,53)
CT WRITE !," 47. CHEMOTHERAPY..................: ",$$GET1^DIQ(165.5,IE,53.2)
TCAA WRITE !!," 48. TYPE OF CHEMOTHERAPEUTIC AGENTS ADMINISTERED:"
+1 IF CHE=0
Begin DoDot:1
+2 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,62)=0
+3 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,63)=0
+4 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,64)=0
+5 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,65)=0
+6 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,66)=0
+7 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,67)=0
+8 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,68)=0
+9 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,69)=0
+10 WRITE !," CISPLATIN....................: No"
+11 WRITE !," FUDR.........................: No"
+12 WRITE !," 5-FU.........................: No"
+13 WRITE !," FU & LEUCOVORIN..............: No"
+14 WRITE !," IRINOTECAN (CPT-11)..........: No"
+15 WRITE !," MITOMYCIN C..................: No"
+16 WRITE !," OXALIPLATIN..................: No"
+17 WRITE !," GEMCITABINE..................: No"
End DoDot:1
GOTO RCA
+18 IF CHE=9
Begin DoDot:1
+19 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,62)=9
+20 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,63)=9
+21 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,64)=9
+22 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,65)=9
+23 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,66)=9
+24 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,67)=9
+25 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,68)=9
+26 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,69)=9
+27 WRITE !," CISPLATIN....................: Unknown if recommended or administered"
+28 WRITE !," FUDR.........................: Unknown if recommended or administered"
+29 WRITE !," 5-FU.........................: Unknown if recommended or administered"
+30 WRITE !," FU & LEUCOVORIN..............: Unknown if recommended or administered"
+31 WRITE !," IRINOTECAN (CPT-11)..........: Unknown if recommended or administered"
+32 WRITE !," MITOMYCIN C..................: Unknown if recommended or administered"
+33 WRITE !," OXALIPLATIN..................: Unknown if recommended or administered"
+34 WRITE !," GEMCITABINE..................: Unknown if recommended or administered"
End DoDot:1
GOTO RCA
+35 SET DR="1061 CISPLATIN...................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+36 SET DR="1062 FUDR........................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+37 SET DR="1063 5-FU........................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+38 SET DR="1064 FU & LEUCOVORIN.............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+39 SET DR="1065 IRINOTECAN (CPT-11).........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+40 SET DR="1066 MITOMYCIN C.................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+41 SET DR="1067 OXALIPLATIN.................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+42 SET DR="1068 GEMCITABINE.................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
RCA WRITE !
+1 IF (CHE=0)!(CHE=9)
Begin DoDot:1
+2 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,70)=88
+3 WRITE !," 49. ROUTE CHEMOTHERAPY ADMIN......: NA"
End DoDot:1
GOTO CSS
+4 SET DR="1069 49. ROUTE CHEMOTHERAPY ADMIN"
DO ^DIE
if $DATA(Y)
GOTO JUMP
CSS IF (CDS="00")!(CDS=99)!(CHE=0)!(CHE=9)
Begin DoDot:1
+1 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,71)=0
+2 WRITE !," 50. CHEMOTHERAPY/SURGERY SEQUENCE.: No chemotherapy and/or no surgery"
End DoDot:1
GOTO DIR
+3 SET CDSDT=$$GET1^DIQ(165.5,IE,50,"I")
+4 SET CHEDT=$$GET1^DIQ(165.5,IE,53,"I")
+5 IF (CDSDT="")!(CHEDT="")
GOTO CSS1
+6 IF CHEDT<CDSDT
Begin DoDot:1
+7 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,71)=1
+8 WRITE !," 50. CHEMOTHERAPY/SURGERY SEQUENCE.: Chemotherapy before surgery"
End DoDot:1
GOTO DIR
+9 IF CHEDT>CDSDT
Begin DoDot:1
+10 SET $PIECE(^ONCO(165.5,ONCONUM,"HEP1"),U,71)=2
+11 WRITE !," 50. CHEMOTHERAPY/SURGERY SEQUENCE.: Chemotherapy after surgery"
End DoDot:1
GOTO DIR
CSS1 SET DR="1070 50. CHEMOTHERAPY/SURGERY SEQUENCE."
DO ^DIE
if $DATA(Y)
GOTO JUMP
DIR KILL DIR
SET DIR(0)="E"
DO ^DIR
if $DATA(DIRUT)
GOTO EXIT
O WRITE @IOF
DO HEAD^ONCHPC0
+1 WRITE !," OTHER THERAPY"
+2 WRITE !," -------------"
DOTS WRITE !," 51. DATE OTHER TREATMENT STARTED..: ",$$GET1^DIQ(165.5,IE,57)
OT WRITE !," 52. OTHER TREATMENT...............: ",$$GET1^DIQ(165.5,IE,57.2)
AE SET DR="1071 53. ARTERIAL EMBOLIZATION........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
DWTD SET DR="1072 54. DEATH WITHIN 30 DAYS OF START OF INITIAL COURSE OF THERAPY."
DO ^DIE
if $DATA(Y)
GOTO JUMP
PRTC WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if $DATA(DIRUT)
SET OUT="Y"
+1 GOTO EXIT
JUMP ;Jump to prompts
+1 SET XX=""
READ !!," GO TO ITEM: ",X:DTIME
IF (X="")!(X[U)
SET OUT="Y"
GOTO EXIT
+2 IF X["?"
Begin DoDot:1
+3 WRITE @IOF,!," CHOOSE FROM:"
FOR I=1:1:CHOICES
WRITE !,?5,HTABLE(I)
IF I=18
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if $DATA(DIRUT)
QUIT
WRITE @IOF,!," CHOOSE FROM:"
End DoDot:1
if $DATA(DIRUT)
GOTO EXIT
GOTO JUMP
+4 IF '$DATA(TABLE(X))
if X?1.2N
SET X=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)
IF I=18
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if $DATA(DIRUT)
QUIT
WRITE @IOF,!," CHOOSE FROM:"
End DoDot:1
GOTO JUMP
+6 SET X=TABLE(X)
+7 GOTO @X
EXIT if $DATA(DIRUT)
SET OUT="Y"
+1 KILL CHOICES,PIECE,HTABLE,TABLE
+2 KILL CDS,CHE,LOS,NCDS,NOP,RAD,SA,SA1,SA2,SM,SM1,SM2
+3 KILL DA,DIE,DIR,DIROUT,DIRUT,DR,DTOUT,DUOUT,X,XX,Y
+4 QUIT
