ONCCPC5.m

ONCCPC5 ;HIRMFO/GWB - PCE Study of Colorectal Cancer - Table V;3/28/97

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

 K TABLE,HTABLE S OUT=""

 S TABLE("WERE OTHER REFERRALS MADE")="WORM"

 S HTABLE(1)="WERE OTHER REFERRALS MADE"

 S CHOICES=1

 W @IOF D HEAD^ONCCPC0

 W !?27,"TABLE V - QUALITY OF LIFE"

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

WORM W !,"WERE OTHER REFERRALS MADE:",!

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

 S DR="796  NUTRITIONAL CONSULTATION" D ^DIE G:$D(Y) JUMP

 S DR="797  OCCUPATIONAL THERAPY...." D ^DIE G:$D(Y) JUMP

 S DR="563  PHYSICAL THERAPY........" D ^DIE G:$D(Y) JUMP

 S DR="798  OSTOMY CONSULTATION....." D ^DIE G:$D(Y) JUMP

 S DR="799  PSYCHOSOCIAL............" D ^DIE G:$D(Y) JUMP

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

 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 ---ONCCPC5   1177     printed  Apr 09, 2024@21:27:56                                                                                                                                                                                                     Page 2

ONCCPC5   ;HIRMFO/GWB - PCE Study of Colorectal Cancer - Table V;3/28/97

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

 +2        KILL TABLE,HTABLE

           SET OUT=""

 +3        SET TABLE("WERE OTHER REFERRALS MADE")="WORM"

 +4        SET HTABLE(1)="WERE OTHER REFERRALS MADE"

 +5        SET CHOICES=1

 +6        WRITE @IOF

           DO HEAD^ONCCPC0

 +7        WRITE !?27,"TABLE V - QUALITY OF LIFE"

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

WORM       WRITE !,"WERE OTHER REFERRALS MADE:",!

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

           SET DA=ONCONUM

 +2        SET DR="796  NUTRITIONAL CONSULTATION"

           DO ^DIE

           if $DATA(Y)

               GOTO JUMP

 +3        SET DR="797  OCCUPATIONAL THERAPY...."

           DO ^DIE

           if $DATA(Y)

               GOTO JUMP

 +4        SET DR="563  PHYSICAL THERAPY........"

           DO ^DIE

           if $DATA(Y)

               GOTO JUMP

 +5        SET DR="798  OSTOMY CONSULTATION....."

           DO ^DIE

           if $DATA(Y)

               GOTO JUMP

 +6        SET DR="799  PSYCHOSOCIAL............"

           DO ^DIE

           if $DATA(Y)

               GOTO JUMP

 +7        WRITE !

           KILL DIR

           SET DIR(0)="E"

           DO ^DIR

           if (Y=0)!(Y="")

               QUIT 

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