- XQORM5 ; SLC/KCM - Menu Help ;10/10/89 14:02 ;
- ;;8.0;KERNEL;;Jul 10, 1995
- HELP1 ;From: XQORM4
- I $D(XQORM("?"))'[0 X XQORM("?") Q:X="?"
- W ! F J=1:1 S ORUSV=$T(HTX1+J) Q:ORUSV["ZZZZ" W !,$P(ORUSV,";",3,99)
- W ! ;I $D(XQORM("?"))'[0 X XQORM("?")
- Q
- HELP2 ;From: XQORM4
- F J=1:1 S ORUSV=$T(HTX2+J) Q:ORUSV["ZZZZ" W !,$P(ORUSV,";",3,99)
- Q
- HELP3 ;From: XQORM3
- W !!,"Enter a number or type another selection",!
- Q
- HTX1 ;;Help Text for "?"
- ;;Enter selection(s) by typing the name(s), number(s), or abbreviation(s).
- ;;ZZZZ
- HTX2 ;;Help Text for "??"
- ;;ALL items may be selected by typing "ALL".
- ;;
- ;;RANGES of items (if numbered consecutively) may be selected using the dash.
- ;; For example, "2-5" selects the items numbered 2,3,4,5.
- ;;
- ;;EXCEPTIONS may be entered by preceding them with an minus.
- ;; For example, "2-5,-4" selects the items numbered 2,3,5.
- ;; or, "ALL,-THAT" selects all items except "THAT".
- ;;
- ;;PRE-SELECTION of items may be done by separating them with ";".
- ;; For example, "THIS MENU SELECTION;NEXT MENU SELECTION;FINAL SELECTION"
- ;; automatically steps through 3 successive menu selections.
- ;;
- ;;JUMP AND RETURN may be done by typing "^^item".
- ;; For example, "^^ABC" jumps directly to ABC, allows interaction,
- ;; then returns to the menu where you first typed "^^ABC".
- ;;ZZZZ
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXQORM5 1366 printed Jan 18, 2025@03:07:33 Page 2
- XQORM5 ; SLC/KCM - Menu Help ;10/10/89 14:02 ;
- +1 ;;8.0;KERNEL;;Jul 10, 1995
- HELP1 ;From: XQORM4
- +1 IF $DATA(XQORM("?"))'[0
- XECUTE XQORM("?")
- if X="?"
- QUIT
- +2 WRITE !
- FOR J=1:1
- SET ORUSV=$TEXT(HTX1+J)
- if ORUSV["ZZZZ"
- QUIT
- WRITE !,$PIECE(ORUSV,";",3,99)
- +3 ;I $D(XQORM("?"))'[0 X XQORM("?")
- WRITE !
- +4 QUIT
- HELP2 ;From: XQORM4
- +1 FOR J=1:1
- SET ORUSV=$TEXT(HTX2+J)
- if ORUSV["ZZZZ"
- QUIT
- WRITE !,$PIECE(ORUSV,";",3,99)
- +2 QUIT
- HELP3 ;From: XQORM3
- +1 WRITE !!,"Enter a number or type another selection",!
- +2 QUIT
- HTX1 ;;Help Text for "?"
- +1 ;;Enter selection(s) by typing the name(s), number(s), or abbreviation(s).
- +2 ;;ZZZZ
- HTX2 ;;Help Text for "??"
- +1 ;;ALL items may be selected by typing "ALL".
- +2 ;;
- +3 ;;RANGES of items (if numbered consecutively) may be selected using the dash.
- +4 ;; For example, "2-5" selects the items numbered 2,3,4,5.
- +5 ;;
- +6 ;;EXCEPTIONS may be entered by preceding them with an minus.
- +7 ;; For example, "2-5,-4" selects the items numbered 2,3,5.
- +8 ;; or, "ALL,-THAT" selects all items except "THAT".
- +9 ;;
- +10 ;;PRE-SELECTION of items may be done by separating them with ";".
- +11 ;; For example, "THIS MENU SELECTION;NEXT MENU SELECTION;FINAL SELECTION"
- +12 ;; automatically steps through 3 successive menu selections.
- +13 ;;
- +14 ;;JUMP AND RETURN may be done by typing "^^item".
- +15 ;; For example, "^^ABC" jumps directly to ABC, allows interaction,
- +16 ;; then returns to the menu where you first typed "^^ABC".
- +17 ;;ZZZZ