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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORUS3 985 printed Dec 13, 2024@02:34:34 Page 2
ORUS3 ; slc/KCM - Help for Display Lists ;11/7/90 16:57
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;;Dec 17, 1997
EN DO HLP
DO ASK
SET Y=0
QUIT
HLP IF $DATA(ORUS("H"))
XECUTE ORUS("H")
SET Y=0
QUIT
+1 WRITE !!,"Enter selection(s) by typing the name or ",$SELECT($DATA(ORUS("M")):"abbreviation.",1:"number.")
+2 if X'["??"!(ORUS(0)["S")
QUIT
+3 WRITE !!,"ALL items (except those numbered above 900) may be selected by typing 'ALL'."
+4 IF '$DATA(ORUS("M"))
WRITE !!,"RANGES of numbers may be entered using dashes.",!,?5,"For example: 2-5,7-9"
+5 WRITE !!,"EXCEPTIONS may be entered by preceding them with an apostrophe."
+6 WRITE !?5,"For example: 1-10,'9 or 1-10,'BRANDX",!,"(This selects items 1 thru 10 except for 9, or BRANDX.)"
+7 QUIT
ASK ;W !!,"Display items" S %=1 D YN^DICN W ! D:%=1 DISP Q
IF ORUS(0)'["M"
DO DISP
QUIT
+1 IF ORUS(0)["M"
IF X["??"
WRITE !!,"Redisplay items"
SET %=1
DO YN^DICN
WRITE !
Begin DoDot:1
+2 IF %Y["?"
WRITE "ANSWER 'YES' OR 'NO'."
DO ASK
QUIT
+3 IF %=1
DO SHOW^ORUS
QUIT
End DoDot:1
+4 QUIT
DISP SET ORHL=0
FOR I=0:0
DO MOVE^ORUS5
DO SHOW^ORUS
if 'ORMOR
QUIT
DO PGBRK1^ORUHDR
if OREND
QUIT
