ONCIPC4 ;Hines OIFO/GWB - Primary Intracranial/CNS Tumors PCE Study ;03/10/00
;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
;Recurrence/Progression
K TABLE,HTABLE
S TABLE("70. DATE OF FIRST RECURRENCE")="DFR"
S TABLE("71. TYPE OF FIRST RECURRENCE")="TFR"
S TABLE("72. DATE OF PROGRESSION")="DP"
S TABLE("73. TYPE OF PROGRESSION")="TP"
S TABLE("74. RECURRENCE/PROGRESSION DOCUMENTATION")="RPD"
S TABLE("75. KARNOFSKY'S RATING AT TIME OF RECURRENCE/PROGRESSION")="KRTRP"
S HTABLE(1)="70. TYPE OF FIRST RECURRENCE"
S HTABLE(2)="71. DATE OF FIRST RECURRENCE"
S HTABLE(3)="72. DATE OF PROGRESSION"
S HTABLE(4)="73. TYPE OF PROGRESSION"
S HTABLE(5)="74. RECURRENCE/PROGRESSION DOCUMENTATION"
S HTABLE(6)="75. KARNOFSKY'S RATING AT TIME OF RECURRENCE/PROGRESSION"
S CHOICES=6
S IE=ONCONUM
S TFR=$$GET1^DIQ(165.5,IE,1372,"I")
S TP=$$GET1^DIQ(165.5,IE,1369,"I")
W @IOF D HEAD^ONCIPC0
W !," RECURRENCE/PROGRESSION"
W !," ---------------------"
S DIE="^ONCO(165.5,",DA=ONCONUM
DFR S DR="70 70. DATE OF FIRST RECURRENCE......" D ^DIE G:$D(Y) JUMP
TFR S DR="1372 71. TYPE OF FIRST RECURRENCE......" D ^DIE G:$D(Y) JUMP
DP S DR="1368 72. DATE OF PROGRESSION..........." D ^DIE G:$D(Y) JUMP
TP S DR="1369 73. TYPE OF PROGRESSION..........." D ^DIE G:$D(Y) JUMP
RPD I (TFR=0)&((TP=0)!(TP=8)) D G KRTRP
.S $P(^ONCO(165.5,IE,"CNS2"),U,85)=0
.W !," 74. RECURRENCE/PROGRESSION DOCUMENTATION................: No recurrence/progression"
I (TFR=9)&(TP=9) D G KRTRP
.S $P(^ONCO(165.5,IE,"CNS2"),U,85)=9
.W !," 74. RECURRENCE/PROGRESSION DOCUMENTATION................: Unknown"
S DR="1370 74. RECURRENCE/PROGRESSION DOCUMENTATION................" D ^DIE G:$D(Y) JUMP
KRTRP I (TFR=0)&((TP=0)!(TP=8)) D G PRTC
.S $P(^ONCO(165.5,IE,"CNS2"),U,86)=13
.W !," 75. KARNOFSKY'S RATING AT TIME OF RECURRENCE/PROGRESSION.......: 888"
I (TFR=9)&(TP=9) D G PRTC
.S $P(^ONCO(165.5,IE,"CNS2"),U,86)=12
.W !," 75. KARNOFSKY'S RATING AT TIME OF RECURRENCE/PROGRESSION.......: 999"
S DR="1371 75. KARNOFSKY'S RATING AT TIME OF RECURRENCE/PROGRESSION......." 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 NUMBER: ",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: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)
S X=TABLE(X)
G @X
EXIT K CHOICES,HTABLE,TABLE
K TFR,TP
K DA,DIE,DIR,DIROUT,DIRUT,DR,DTOUT,DUOUT,X,XX,Y
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCIPC4 2958 printed Oct 16, 2024@18:24:03 Page 2
ONCIPC4 ;Hines OIFO/GWB - Primary Intracranial/CNS Tumors PCE Study ;03/10/00
+1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
+2 ;Recurrence/Progression
+3 KILL TABLE,HTABLE
+4 SET TABLE("70. DATE OF FIRST RECURRENCE")="DFR"
+5 SET TABLE("71. TYPE OF FIRST RECURRENCE")="TFR"
+6 SET TABLE("72. DATE OF PROGRESSION")="DP"
+7 SET TABLE("73. TYPE OF PROGRESSION")="TP"
+8 SET TABLE("74. RECURRENCE/PROGRESSION DOCUMENTATION")="RPD"
+9 SET TABLE("75. KARNOFSKY'S RATING AT TIME OF RECURRENCE/PROGRESSION")="KRTRP"
+10 SET HTABLE(1)="70. TYPE OF FIRST RECURRENCE"
+11 SET HTABLE(2)="71. DATE OF FIRST RECURRENCE"
+12 SET HTABLE(3)="72. DATE OF PROGRESSION"
+13 SET HTABLE(4)="73. TYPE OF PROGRESSION"
+14 SET HTABLE(5)="74. RECURRENCE/PROGRESSION DOCUMENTATION"
+15 SET HTABLE(6)="75. KARNOFSKY'S RATING AT TIME OF RECURRENCE/PROGRESSION"
+16 SET CHOICES=6
+17 SET IE=ONCONUM
+18 SET TFR=$$GET1^DIQ(165.5,IE,1372,"I")
+19 SET TP=$$GET1^DIQ(165.5,IE,1369,"I")
+20 WRITE @IOF
DO HEAD^ONCIPC0
+21 WRITE !," RECURRENCE/PROGRESSION"
+22 WRITE !," ---------------------"
+23 SET DIE="^ONCO(165.5,"
SET DA=ONCONUM
DFR SET DR="70 70. DATE OF FIRST RECURRENCE......"
DO ^DIE
if $DATA(Y)
GOTO JUMP
TFR SET DR="1372 71. TYPE OF FIRST RECURRENCE......"
DO ^DIE
if $DATA(Y)
GOTO JUMP
DP SET DR="1368 72. DATE OF PROGRESSION..........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
TP SET DR="1369 73. TYPE OF PROGRESSION..........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
RPD IF (TFR=0)&((TP=0)!(TP=8))
Begin DoDot:1
+1 SET $PIECE(^ONCO(165.5,IE,"CNS2"),U,85)=0
+2 WRITE !," 74. RECURRENCE/PROGRESSION DOCUMENTATION................: No recurrence/progression"
End DoDot:1
GOTO KRTRP
+3 IF (TFR=9)&(TP=9)
Begin DoDot:1
+4 SET $PIECE(^ONCO(165.5,IE,"CNS2"),U,85)=9
+5 WRITE !," 74. RECURRENCE/PROGRESSION DOCUMENTATION................: Unknown"
End DoDot:1
GOTO KRTRP
+6 SET DR="1370 74. RECURRENCE/PROGRESSION DOCUMENTATION................"
DO ^DIE
if $DATA(Y)
GOTO JUMP
KRTRP IF (TFR=0)&((TP=0)!(TP=8))
Begin DoDot:1
+1 SET $PIECE(^ONCO(165.5,IE,"CNS2"),U,86)=13
+2 WRITE !," 75. KARNOFSKY'S RATING AT TIME OF RECURRENCE/PROGRESSION.......: 888"
End DoDot:1
GOTO PRTC
+3 IF (TFR=9)&(TP=9)
Begin DoDot:1
+4 SET $PIECE(^ONCO(165.5,IE,"CNS2"),U,86)=12
+5 WRITE !," 75. KARNOFSKY'S RATING AT TIME OF RECURRENCE/PROGRESSION.......: 999"
End DoDot:1
GOTO PRTC
+6 SET DR="1371 75. KARNOFSKY'S RATING AT TIME OF RECURRENCE/PROGRESSION......."
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 NUMBER: ",X:DTIME
+2 IF (X="")!(X[U)
SET OUT="Y"
GOTO EXIT
+3 IF X["?"
Begin DoDot:1
+4 WRITE !," CHOOSE FROM:"
FOR I=1:1:CHOICES
WRITE !,?5,HTABLE(I)
End DoDot:1
GOTO JUMP
+5 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
+6 WRITE !," CHOOSE FROM:"
FOR I=1:1:CHOICES
WRITE !,?5,HTABLE(I)
End DoDot:1
GOTO JUMP
+7 SET X=TABLE(X)
+8 GOTO @X
EXIT KILL CHOICES,HTABLE,TABLE
+1 KILL TFR,TP
+2 KILL DA,DIE,DIR,DIROUT,DIRUT,DR,DTOUT,DUOUT,X,XX,Y
+3 QUIT
