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