- 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 Feb 18, 2025@23:49:45 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