| 1 | ONCIPC4 ;Hines OIFO/GWB - Primary Intracranial/CNS Tumors PCE Study ;03/10/00
|
|---|
| 2 | ;;2.11;ONCOLOGY;**26**;Mar 07, 1995
|
|---|
| 3 | ;Recurrence/Progession
|
|---|
| 4 | K TABLE,HTABLE
|
|---|
| 5 | S TABLE("70. DATE OF FIRST RECURRENCE")="DFR"
|
|---|
| 6 | S TABLE("71. TYPE OF FIRST RECURRENCE")="TFR"
|
|---|
| 7 | S TABLE("72. DATE OF PROGRESSION")="DP"
|
|---|
| 8 | S TABLE("73. TYPE OF PROGRESSION")="TP"
|
|---|
| 9 | S TABLE("74. RECURRENCE/PROGRESSION DOCUMENTATION")="RPD"
|
|---|
| 10 | S TABLE("75. KARNOFSKY'S RATING AT TIME OF RECURRENCE/PROGRESSION")="KRTRP"
|
|---|
| 11 | S HTABLE(1)="70. TYPE OF FIRST RECURRENCE"
|
|---|
| 12 | S HTABLE(2)="71. DATE OF FIRST RECURRENCE"
|
|---|
| 13 | S HTABLE(3)="72. DATE OF PROGRESSION"
|
|---|
| 14 | S HTABLE(4)="73. TYPE OF PROGRESSION"
|
|---|
| 15 | S HTABLE(5)="74. RECURRENCE/PROGRESSION DOCUMENTATION"
|
|---|
| 16 | S HTABLE(6)="75. KARNOFSKY'S RATING AT TIME OF RECURRENCE/PROGRESSION"
|
|---|
| 17 | S CHOICES=6
|
|---|
| 18 | S IE=ONCONUM
|
|---|
| 19 | S TFR=$$GET1^DIQ(165.5,IE,1372,"I")
|
|---|
| 20 | S TP=$$GET1^DIQ(165.5,IE,1369,"I")
|
|---|
| 21 | W @IOF D HEAD^ONCIPC0
|
|---|
| 22 | W !," RECURRENCE/PROGESSION"
|
|---|
| 23 | W !," ---------------------"
|
|---|
| 24 | S DIE="^ONCO(165.5,",DA=ONCONUM
|
|---|
| 25 | DFR S DR="70 70. DATE OF FIRST RECURRENCE......" D ^DIE G:$D(Y) JUMP
|
|---|
| 26 | TFR S DR="1372 71. TYPE OF FIRST RECURRENCE......" D ^DIE G:$D(Y) JUMP
|
|---|
| 27 | DP S DR="1368 72. DATE OF PROGRESSION..........." D ^DIE G:$D(Y) JUMP
|
|---|
| 28 | TP S DR="1369 73. TYPE OF PROGRESSION..........." D ^DIE G:$D(Y) JUMP
|
|---|
| 29 | RPD I (TFR=0)&((TP=0)!(TP=8)) D G KRTRP
|
|---|
| 30 | .S $P(^ONCO(165.5,IE,"CNS2"),U,85)=0
|
|---|
| 31 | .W !," 74. RECURRENCE/PROGRESSION DOCUMENTATION................: No recurrence/progession"
|
|---|
| 32 | I (TFR=9)&(TP=9) D G KRTRP
|
|---|
| 33 | .S $P(^ONCO(165.5,IE,"CNS2"),U,85)=9
|
|---|
| 34 | .W !," 74. RECURRENCE/PROGRESSION DOCUMENTATION................: Unknown"
|
|---|
| 35 | S DR="1370 74. RECURRENCE/PROGRESSION DOCUMENTATION................" D ^DIE G:$D(Y) JUMP
|
|---|
| 36 | KRTRP I (TFR=0)&((TP=0)!(TP=8)) D G PRTC
|
|---|
| 37 | .S $P(^ONCO(165.5,IE,"CNS2"),U,86)=13
|
|---|
| 38 | .W !," 75. KARNOFSKY'S RATING AT TIME OF RECURRENCE/PROGRESSION.......: 888"
|
|---|
| 39 | I (TFR=9)&(TP=9) D G PRTC
|
|---|
| 40 | .S $P(^ONCO(165.5,IE,"CNS2"),U,86)=12
|
|---|
| 41 | .W !," 75. KARNOFSKY'S RATING AT TIME OF RECURRENCE/PROGRESSION.......: 999"
|
|---|
| 42 | S DR="1371 75. KARNOFSKY'S RATING AT TIME OF RECURRENCE/PROGRESSION......." D ^DIE G:$D(Y) JUMP
|
|---|
| 43 | PRTC W ! K DIR S DIR(0)="E" D ^DIR S:$D(DIRUT) OUT="Y"
|
|---|
| 44 | G EXIT
|
|---|
| 45 | JUMP ;Jump to prompts
|
|---|
| 46 | S XX="" R !!," GO TO ITEM NUMBER: ",X:DTIME
|
|---|
| 47 | I (X="")!(X[U) S OUT="Y" G EXIT
|
|---|
| 48 | I X["?" D G JUMP
|
|---|
| 49 | .W !," CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I)
|
|---|
| 50 | 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
|
|---|
| 51 | .W !," CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I)
|
|---|
| 52 | S X=TABLE(X)
|
|---|
| 53 | G @X
|
|---|
| 54 | EXIT K CHOICES,HTABLE,TABLE
|
|---|
| 55 | K TFR,TP
|
|---|
| 56 | K DA,DIE,DIR,DIROUT,DIRUT,DR,DTOUT,DUOUT,X,XX,Y
|
|---|
| 57 | Q
|
|---|
