ORUS3.m

ORUS3 ; slc/KCM - Help for Display Lists ;11/7/90  16:57

 ;;3.0;ORDER ENTRY/RESULTS REPORTING;;Dec 17, 1997

EN D HLP,ASK S Y=0 Q

HLP I $D(ORUS("H")) X ORUS("H") S Y=0 Q

 W !!,"Enter selection(s) by typing the name or ",$S($D(ORUS("M")):"abbreviation.",1:"number.")

 Q:X'["??"!(ORUS(0)["S")

 W !!,"ALL items (except those numbered above 900) may be selected by typing 'ALL'."

 I '$D(ORUS("M")) W !!,"RANGES of numbers may be entered using dashes.",!,?5,"For example:    2-5,7-9"

 W !!,"EXCEPTIONS may be entered by preceding them with an apostrophe."

 W !?5,"For example:    1-10,'9   or   1-10,'BRANDX",!,"(This selects items 1 thru 10 except for 9, or BRANDX.)"

 Q

ASK I ORUS(0)'["M" D DISP Q  ;W !!,"Display items" S %=1 D YN^DICN W ! D:%=1 DISP Q

 I ORUS(0)["M",X["??" W !!,"Redisplay items" S %=1 D YN^DICN W ! D

 . I %Y["?" W "ANSWER 'YES' OR 'NO'." D ASK Q

 . I %=1 D SHOW^ORUS Q

 Q

DISP S ORHL=0 F I=0:0 D MOVE^ORUS5,SHOW^ORUS Q:'ORMOR  D PGBRK1^ORUHDR Q:OREND

ORUS3     ; slc/KCM - Help for Display Lists ;11/7/90  16:57

 +1       ;;3.0;ORDER ENTRY/RESULTS REPORTING;;Dec 17, 1997

EN         DO HLP

           DO ASK

           SET Y=0

           QUIT 

HLP        IF $DATA(ORUS("H"))

               XECUTE ORUS("H")

               SET Y=0

               QUIT 

 +1        WRITE !!,"Enter selection(s) by typing the name or ",$SELECT($DATA(ORUS("M")):"abbreviation.",1:"number.")

 +2        IF X'["??"!(ORUS(0)["S")

               QUIT 

 +3        WRITE !!,"ALL items (except those numbered above 900) may be selected by typing 'ALL'."

 +4        IF '$DATA(ORUS("M"))

               WRITE !!,"RANGES of numbers may be entered using dashes.",!,?5,"For example:    2-5,7-9"

 +5        WRITE !!,"EXCEPTIONS may be entered by preceding them with an apostrophe."

 +6        WRITE !?5,"For example:    1-10,'9   or   1-10,'BRANDX",!,"(This selects items 1 thru 10 except for 9, or BRANDX.)"

 +7        QUIT 

ASK       ;W !!,"Display items" S %=1 D YN^DICN W ! D:%=1 DISP Q

           IF ORUS(0)'["M"

               DO DISP

               QUIT 

 +1        IF ORUS(0)["M"

               IF X["??"

                   WRITE !!,"Redisplay items"

                   SET %=1

                   DO YN^DICN

                   WRITE !

                   Begin DoDot:1

 +2                    IF %Y["?"

                           WRITE "ANSWER 'YES' OR 'NO'."

                           DO ASK

                           QUIT 

 +3                    IF %=1

                           DO SHOW^ORUS

                           QUIT 

                   End DoDot:1

 +4        QUIT 

DISP       SET ORHL=0

           FOR I=0:0

               DO MOVE^ORUS5

               DO SHOW^ORUS

               IF 'ORMOR

                   QUIT 

               DO PGBRK1^ORUHDR

               IF OREND

                   QUIT