XQORM5.m

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 ---XQORM5   1366     printed  Apr 09, 2024@21:15:57                                                                                                                                                                                                      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