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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMTSXQ11 1459 printed Dec 13, 2024@02:01:13 Page 2
GMTSXQ11 ; SLC/JER - XQORM5 for Export w/Health Summary ;1/10/92 15:07
+1 ;;2.5;Health Summary;;Dec 16, 1992
XQORM5 ; SLC/KCM - Menu Help ;10/10/89 14:02 ;
+1 ;;6.52;Copyright 1990, DVA;
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) 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, "ADD;LAB;WARD;GEN;GLUCOSE" will advance through the
+12 ;; 5 menus, automatically selecting the items.
+13 ;;
+14 ;;JUMP AND RETURN may be done by typing "^^item".
+15 ;; For example, "^^GLUCOSE" jumps directly to the prompts for ordering
+16 ;; a glucose and then returns to the menu where you typed "^^GLUCOSE".
+17 ;;ZZZZ
