37 lines
1.4 KiB
Mathematica
37 lines
1.4 KiB
Mathematica
GMTSXQ11 ; SLC/JER - XQORM5 for Export w/Health Summary ;1/10/92 15:07
|
|
;;2.5;Health Summary;;Dec 16, 1992
|
|
XQORM5 ; SLC/KCM - Menu Help ;10/10/89 14:02 ;
|
|
;;6.52;Copyright 1990, DVA;
|
|
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) 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, "ADD;LAB;WARD;GEN;GLUCOSE" will advance through the
|
|
;; 5 menus, automatically selecting the items.
|
|
;;
|
|
;;JUMP AND RETURN may be done by typing "^^item".
|
|
;; For example, "^^GLUCOSE" jumps directly to the prompts for ordering
|
|
;; a glucose and then returns to the menu where you typed "^^GLUCOSE".
|
|
;;ZZZZ
|