18 lines
968 B
Mathematica
18 lines
968 B
Mathematica
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
|