SDAM5 ;MJK/ALB - Appt Mgt (HELP) ; 12/1/91
;;5.3;Scheduling;;Aug 13, 1993
;
HLP ; -- help for list
I $D(X),X'["??" D HLPS,PAUSE^VALM1 G HLPQ
D CLEAR^VALM1
F I=1:1 S SDX=$P($T(HELPTXT+I),";",3,99) Q:SDX="$END" D PAUSE^VALM1:SDX="$PAUSE" Q:'Y W !,$S(SDX["$PAUSE":"",1:SDX)
W !,"Possible actions are the following:"
D HLPS,PAUSE^VALM1 S VALMBCK="R"
HLPQ K SDX,Y Q
;
HLPS ; -- short help
S X="?" D DISP^XQORM1 W ! Q
;
HELPTXT ; -- help text
;;Enter actions(s) by typing the name(s), or abbreviation(s).
;;
;;ACTION PRE-SELECTION:
;; Actions may be pre-selected by separating them with ";".
;;
;; For example, "AL;CI" will advance through the 2 menus,
;; automatically selecting the actions. In this example, the user
;; would be selecting the 'Appointment List Menu' and then the
;; 'Checked In' list.
;;
;;LIST ENTRY PRE-SELECTION:
;; Entries from appointment list can be pre-selected in the following
;; manner:
;; CI=1 ...will process entry #1 for check in
;; CI=3 4 5 ...will process entries 3,4,5 for check in
;; CI=1-3 ...will process entries 1,2,3 for check in
;;
;; If no entry is pre-selected, the user will be prompted for a
;; selection.
;;------------------------------------------------------------------------------
;;$PAUSE
;;$END
;;MULTIPLE ACTION SELECTION:
;; More than one action can be selected in the following manner:
;;
;; Select Action: CL,CD ...user will select a clinic and then
;; be asked to enter a new date range
;;
;; CL,AL;NA ...user will select a clinic and then
;; all 'NO ACTION TAKEN' appointments
;; will be listed.
;;------------------------------------------------------------------------------
;;$END
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDAM5 1906 printed Dec 13, 2024@02:47:09 Page 2
SDAM5 ;MJK/ALB - Appt Mgt (HELP) ; 12/1/91
+1 ;;5.3;Scheduling;;Aug 13, 1993
+2 ;
HLP ; -- help for list
+1 IF $DATA(X)
IF X'["??"
DO HLPS
DO PAUSE^VALM1
GOTO HLPQ
+2 DO CLEAR^VALM1
+3 FOR I=1:1
SET SDX=$PIECE($TEXT(HELPTXT+I),";",3,99)
if SDX="$END"
QUIT
if SDX="$PAUSE"
DO PAUSE^VALM1
if 'Y
QUIT
WRITE !,$SELECT(SDX["$PAUSE":"",1:SDX)
+4 WRITE !,"Possible actions are the following:"
+5 DO HLPS
DO PAUSE^VALM1
SET VALMBCK="R"
HLPQ KILL SDX,Y
QUIT
+1 ;
HLPS ; -- short help
+1 SET X="?"
DO DISP^XQORM1
WRITE !
QUIT
+2 ;
HELPTXT ; -- help text
+1 ;;Enter actions(s) by typing the name(s), or abbreviation(s).
+2 ;;
+3 ;;ACTION PRE-SELECTION:
+4 ;; Actions may be pre-selected by separating them with ";".
+5 ;;
+6 ;; For example, "AL;CI" will advance through the 2 menus,
+7 ;; automatically selecting the actions. In this example, the user
+8 ;; would be selecting the 'Appointment List Menu' and then the
+9 ;; 'Checked In' list.
+10 ;;
+11 ;;LIST ENTRY PRE-SELECTION:
+12 ;; Entries from appointment list can be pre-selected in the following
+13 ;; manner:
+14 ;; CI=1 ...will process entry #1 for check in
+15 ;; CI=3 4 5 ...will process entries 3,4,5 for check in
+16 ;; CI=1-3 ...will process entries 1,2,3 for check in
+17 ;;
+18 ;; If no entry is pre-selected, the user will be prompted for a
+19 ;; selection.
+20 ;;------------------------------------------------------------------------------
+21 ;;$PAUSE
+22 ;;$END
+23 ;;MULTIPLE ACTION SELECTION:
+24 ;; More than one action can be selected in the following manner:
+25 ;;
+26 ;; Select Action: CL,CD ...user will select a clinic and then
+27 ;; be asked to enter a new date range
+28 ;;
+29 ;; CL,AL;NA ...user will select a clinic and then
+30 ;; all 'NO ACTION TAKEN' appointments
+31 ;; will be listed.
+32 ;;------------------------------------------------------------------------------
+33 ;;$END
+34 ;
