ONCNPC5.m

ONCNPC5 ;HIRMFO/GWB - PCE Study of Non-Hodgkin's Lymphoma - Table V;4/23/97

 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8

 K TABLE,HTABLE S OUT=""

 S TABLE("DATE OF FIRST RECURRENCE")="DOFR"

 S TABLE("TYPE OF FIRST RECURRENCE")="TOFR"

 S TABLE("OTHER TYPE OF FIRST RECURRENCE")="OTOFR"

 S HTABLE(1)="DATE OF FIRST RECURRENCE"

 S HTABLE(2)="TYPE OF FIRST RECURRENCE"

 S HTABLE(3)="OTHER TYPE OF FIRST RECURRENCE"

 S CHOICES=3

 W @IOF D HEAD^ONCNPC0

 W !?27,"TABLE V - FIRST RECURRENCE"

 W !?27,"--------------------------"

DOFR S DIE="^ONCO(165.5,",DA=ONCONUM

 S DR="70DATE OF FIRST RECURRENCE......" D ^DIE G:$D(Y) JUMP

TOFR S DIE="^ONCO(165.5,",DA=ONCONUM

 S DR="71TYPE OF FIRST RECURRENCE......" D ^DIE G:$D(Y) JUMP

OTOFR S DIE="^ONCO(165.5,",DA=ONCONUM

 S DR="71.4OTHER TYPE OF FIRST RECURRENCE" D ^DIE G:$D(Y) JUMP

 W ! K DIR S DIR(0)="E" D ^DIR

 G EXIT

JUMP ;Jump to prompts

 S XX="" R !!,"GO TO: ",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 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 DA,DIE,DIR,DIROUT,DIRUT,DR,DTOUT,DUOUT,X,XX,Y

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ONCNPC5   1285     printed  Apr 09, 2024@21:29                                                                                                                                                                                                        Page 2

ONCNPC5   ;HIRMFO/GWB - PCE Study of Non-Hodgkin's Lymphoma - Table V;4/23/97

 +1       ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8

 +2        KILL TABLE,HTABLE

           SET OUT=""

 +3        SET TABLE("DATE OF FIRST RECURRENCE")="DOFR"

 +4        SET TABLE("TYPE OF FIRST RECURRENCE")="TOFR"

 +5        SET TABLE("OTHER TYPE OF FIRST RECURRENCE")="OTOFR"

 +6        SET HTABLE(1)="DATE OF FIRST RECURRENCE"

 +7        SET HTABLE(2)="TYPE OF FIRST RECURRENCE"

 +8        SET HTABLE(3)="OTHER TYPE OF FIRST RECURRENCE"

 +9        SET CHOICES=3

 +10       WRITE @IOF

           DO HEAD^ONCNPC0

 +11       WRITE !?27,"TABLE V - FIRST RECURRENCE"

 +12       WRITE !?27,"--------------------------"

DOFR       SET DIE="^ONCO(165.5,"

           SET DA=ONCONUM

 +1        SET DR="70DATE OF FIRST RECURRENCE......"

           DO ^DIE

           if $DATA(Y)

               GOTO JUMP

TOFR       SET DIE="^ONCO(165.5,"

           SET DA=ONCONUM

 +1        SET DR="71TYPE OF FIRST RECURRENCE......"

           DO ^DIE

           if $DATA(Y)

               GOTO JUMP

OTOFR      SET DIE="^ONCO(165.5,"

           SET DA=ONCONUM

 +1        SET DR="71.4OTHER TYPE OF FIRST RECURRENCE"

           DO ^DIE

           if $DATA(Y)

               GOTO JUMP

 +2        WRITE !

           KILL DIR

           SET DIR(0)="E"

           DO ^DIR

 +3        GOTO EXIT

JUMP      ;Jump to prompts

 +1        SET XX=""

           READ !!,"GO TO: ",X:DTIME

           IF (X="")!(X[U)

               SET OUT="Y"

               GOTO EXIT

 +2        IF X["?"

               Begin DoDot:1

 +3                WRITE !,"CHOOSE FROM:"

                   FOR I=1:1:CHOICES

                       WRITE !,?5,HTABLE(I)

               End DoDot:1

               GOTO JUMP

 +4        IF '$DATA(TABLE(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)

                   End DoDot:1

                   GOTO JUMP

 +6        SET X=TABLE(X)

 +7        GOTO @X

EXIT       KILL CHOICES,HTABLE,TABLE

 +1        KILL DA,DIE,DIR,DIROUT,DIRUT,DR,DTOUT,DUOUT,X,XX,Y

 +2        QUIT