source: WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORUS3.m

Last change on this file was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 968 bytes
Line 
1ORUS3 ; slc/KCM - Help for Display Lists ;11/7/90 16:57
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;;Dec 17, 1997
3EN D HLP,ASK S Y=0 Q
4HLP 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
12ASK 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
17DISP 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.