source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XQORM5.m@ 846

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

initial load of WorldVistAEHR

File size: 1.3 KB
RevLine 
[613]1XQORM5 ; SLC/KCM - Menu Help ;10/10/89 14:02 ;
2 ;;8.0;KERNEL;;Jul 10, 1995
3HELP1 ;From: XQORM4
4 I $D(XQORM("?"))'[0 X XQORM("?") Q:X="?"
5 W ! F J=1:1 S ORUSV=$T(HTX1+J) Q:ORUSV["ZZZZ" W !,$P(ORUSV,";",3,99)
6 W ! ;I $D(XQORM("?"))'[0 X XQORM("?")
7 Q
8HELP2 ;From: XQORM4
9 F J=1:1 S ORUSV=$T(HTX2+J) Q:ORUSV["ZZZZ" W !,$P(ORUSV,";",3,99)
10 Q
11HELP3 ;From: XQORM3
12 W !!,"Enter a number or type another selection",!
13 Q
14HTX1 ;;Help Text for "?"
15 ;;Enter selection(s) by typing the name(s), number(s), or abbreviation(s).
16 ;;ZZZZ
17HTX2 ;;Help Text for "??"
18 ;;ALL items may be selected by typing "ALL".
19 ;;
20 ;;RANGES of items (if numbered consecutively) may be selected using the dash.
21 ;; For example, "2-5" selects the items numbered 2,3,4,5.
22 ;;
23 ;;EXCEPTIONS may be entered by preceding them with an minus.
24 ;; For example, "2-5,-4" selects the items numbered 2,3,5.
25 ;; or, "ALL,-THAT" selects all items except "THAT".
26 ;;
27 ;;PRE-SELECTION of items may be done by separating them with ";".
28 ;; For example, "THIS MENU SELECTION;NEXT MENU SELECTION;FINAL SELECTION"
29 ;; automatically steps through 3 successive menu selections.
30 ;;
31 ;;JUMP AND RETURN may be done by typing "^^item".
32 ;; For example, "^^ABC" jumps directly to ABC, allows interaction,
33 ;; then returns to the menu where you first typed "^^ABC".
34 ;;ZZZZ
Note: See TracBrowser for help on using the repository browser.