ONCMPC7.m

ONCMPC7 ;HINES CIOFO/GWB - 1999 Melanoma Study - Table VII ;1/27/99

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

 K TABLE,HTABLE

 S TABLE("83. COMPLETED BY")="CB"

 S TABLE("84. REVIEWED BY CANCER COMMITTEE")="RBCC"

 S HTABLE(1)="83. COMPLETED BY"

 S HTABLE(2)="84. REVIEWED BY CANCER COMMITTEE"

 S CHOICES=2

 W @IOF D HEAD^ONCMPC0

 W !," TABLE VII - OTHER INFORMATION"

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

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

 S DR="81 83. COMPLETED BY.................." D ^DIE G:$D(Y) JUMP

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

 S DR="82 84. REVIEWED BY CANCER COMMITTEE.." D ^DIE G:$D(Y) JUMP

 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 DA,DIE,DIR,DIROUT,DIRUT,DR,DTOUT,DUOUT,X,XX,Y

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ONCMPC7   1126     printed  Apr 09, 2024@21:25:19                                                                                                                                                                                                     Page 2

ONCMPC7   ;HINES CIOFO/GWB - 1999 Melanoma Study - Table VII ;1/27/99

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

 +2        KILL TABLE,HTABLE

 +3        SET TABLE("83. COMPLETED BY")="CB"

 +4        SET TABLE("84. REVIEWED BY CANCER COMMITTEE")="RBCC"

 +5        SET HTABLE(1)="83. COMPLETED BY"

 +6        SET HTABLE(2)="84. REVIEWED BY CANCER COMMITTEE"

 +7        SET CHOICES=2

 +8        WRITE @IOF

           DO HEAD^ONCMPC0

 +9        WRITE !," TABLE VII - OTHER INFORMATION"

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

CB         SET DIE="^ONCO(165.5,"

           SET DA=ONCONUM

 +1        SET DR="81 83. COMPLETED BY.................."

           DO ^DIE

           if $DATA(Y)

               GOTO JUMP

RBCC       SET DIE="^ONCO(165.5,"

           SET DA=ONCONUM

 +1        SET DR="82 84. REVIEWED BY CANCER COMMITTEE.."

           DO ^DIE

           if $DATA(Y)

               GOTO JUMP

 +2        WRITE !

           KILL DIR

           SET DIR(0)="E"

           DO ^DIR

           if $DATA(DIRUT)

               SET OUT="Y"

 +3        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 DA,DIE,DIR,DIROUT,DIRUT,DR,DTOUT,DUOUT,X,XX,Y

 +2        QUIT