| Line | |
|---|
| 1 | ORUS3 ; slc/KCM - Help for Display Lists ;11/7/90 16:57
|
|---|
| 2 | ;;3.0;ORDER ENTRY/RESULTS REPORTING;;Dec 17, 1997
|
|---|
| 3 | EN D HLP,ASK S Y=0 Q
|
|---|
| 4 | HLP I $D(ORUS("H")) X ORUS("H") S Y=0 Q
|
|---|
| 5 | W !!,"Enter selection(s) by typing the name or ",$S($D(ORUS("M")):"abbreviation.",1:"number.")
|
|---|
| 6 | Q:X'["??"!(ORUS(0)["S")
|
|---|
| 7 | W !!,"ALL items (except those numbered above 900) may be selected by typing 'ALL'."
|
|---|
| 8 | I '$D(ORUS("M")) W !!,"RANGES of numbers may be entered using dashes.",!,?5,"For example: 2-5,7-9"
|
|---|
| 9 | W !!,"EXCEPTIONS may be entered by preceding them with an apostrophe."
|
|---|
| 10 | W !?5,"For example: 1-10,'9 or 1-10,'BRANDX",!,"(This selects items 1 thru 10 except for 9, or BRANDX.)"
|
|---|
| 11 | Q
|
|---|
| 12 | ASK I ORUS(0)'["M" D DISP Q ;W !!,"Display items" S %=1 D YN^DICN W ! D:%=1 DISP Q
|
|---|
| 13 | I ORUS(0)["M",X["??" W !!,"Redisplay items" S %=1 D YN^DICN W ! D
|
|---|
| 14 | . I %Y["?" W "ANSWER 'YES' OR 'NO'." D ASK Q
|
|---|
| 15 | . I %=1 D SHOW^ORUS Q
|
|---|
| 16 | Q
|
|---|
| 17 | DISP S ORHL=0 F I=0:0 D MOVE^ORUS5,SHOW^ORUS Q:'ORMOR D PGBRK1^ORUHDR Q:OREND
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
