ONCBRP6.m

ONCBRP6 ;HINES CIOFO/GWB - 1998 Breast Cancer Study - Table VI ;6/1/98

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

 K TABLE,HTABLE

 S TABLE("81. DATE OF FIRST RECURRENCE")="DFR"

 S TABLE("82. TYPE OF FIRST RECURRENCE")="TFR"

 S HTABLE(1)="81. TYPE OF FIRST RECURRENCE"

 S HTABLE(2)="82. DATE OF FIRST RECURRENCE"

 S CHOICES=2

 W @IOF D HEAD^ONCBRP0

 W !," TABLE VI - FIRST RECURRENCE"

 W !," ---------------------------"

 S DIC="^ONCO(165.5,",DR="70",DA=ONCONUM,DIQ="ONCO" D EN^DIQ1

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

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

TFR S DR="71 82. TYPE OF FIRST RECURRENCE" 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 PIECE

 K DA,DIE,DIR,DIROUT,DIRUT,DR,DTOUT,DUOUT,X,XX,Y

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ONCBRP6   1172     printed  Apr 09, 2024@21:26:44                                                                                                                                                                                                     Page 2

ONCBRP6   ;HINES CIOFO/GWB - 1998 Breast Cancer Study - Table VI ;6/1/98

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

 +2        KILL TABLE,HTABLE

 +3        SET TABLE("81. DATE OF FIRST RECURRENCE")="DFR"

 +4        SET TABLE("82. TYPE OF FIRST RECURRENCE")="TFR"

 +5        SET HTABLE(1)="81. TYPE OF FIRST RECURRENCE"

 +6        SET HTABLE(2)="82. DATE OF FIRST RECURRENCE"

 +7        SET CHOICES=2

 +8        WRITE @IOF

           DO HEAD^ONCBRP0

 +9        WRITE !," TABLE VI - FIRST RECURRENCE"

 +10       WRITE !," ---------------------------"

 +11       SET DIC="^ONCO(165.5,"

           SET DR="70"

           SET DA=ONCONUM

           SET DIQ="ONCO"

           DO EN^DIQ1

 +12       SET DIE="^ONCO(165.5,"

           SET DA=ONCONUM

DFR        SET DR="70 81. DATE OF FIRST RECURRENCE"

           DO ^DIE

           if $DATA(Y)

               GOTO JUMP

TFR        SET DR="71 82. TYPE OF FIRST RECURRENCE"

           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

           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))

               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

 +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 PIECE

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

 +3        QUIT