source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCIPC4.m@ 1141

Last change on this file since 1141 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.8 KB
RevLine 
[613]1ONCIPC4 ;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
25DFR S DR="70 70. DATE OF FIRST RECURRENCE......" D ^DIE G:$D(Y) JUMP
26TFR S DR="1372 71. TYPE OF FIRST RECURRENCE......" D ^DIE G:$D(Y) JUMP
27DP S DR="1368 72. DATE OF PROGRESSION..........." D ^DIE G:$D(Y) JUMP
28TP S DR="1369 73. TYPE OF PROGRESSION..........." D ^DIE G:$D(Y) JUMP
29RPD 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
36KRTRP 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
43PRTC W ! K DIR S DIR(0)="E" D ^DIR S:$D(DIRUT) OUT="Y"
44 G EXIT
45JUMP ;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
54EXIT K CHOICES,HTABLE,TABLE
55 K TFR,TP
56 K DA,DIE,DIR,DIROUT,DIRUT,DR,DTOUT,DUOUT,X,XX,Y
57 Q
Note: See TracBrowser for help on using the repository browser.