Last change
on this file since 1785 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
968 bytes
|
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.