1 | SDAM5 ;MJK/ALB - Appt Mgt (HELP) ; 12/1/91
|
---|
2 | ;;5.3;Scheduling;;Aug 13, 1993
|
---|
3 | ;
|
---|
4 | HLP ; -- help for list
|
---|
5 | I $D(X),X'["??" D HLPS,PAUSE^VALM1 G HLPQ
|
---|
6 | D CLEAR^VALM1
|
---|
7 | 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)
|
---|
8 | W !,"Possible actions are the following:"
|
---|
9 | D HLPS,PAUSE^VALM1 S VALMBCK="R"
|
---|
10 | HLPQ K SDX,Y Q
|
---|
11 | ;
|
---|
12 | HLPS ; -- short help
|
---|
13 | S X="?" D DISP^XQORM1 W ! Q
|
---|
14 | ;
|
---|
15 | HELPTXT ; -- help text
|
---|
16 | ;;Enter actions(s) by typing the name(s), or abbreviation(s).
|
---|
17 | ;;
|
---|
18 | ;;ACTION PRE-SELECTION:
|
---|
19 | ;; Actions may be pre-selected by separating them with ";".
|
---|
20 | ;;
|
---|
21 | ;; For example, "AL;CI" will advance through the 2 menus,
|
---|
22 | ;; automatically selecting the actions. In this example, the user
|
---|
23 | ;; would be selecting the 'Appointment List Menu' and then the
|
---|
24 | ;; 'Checked In' list.
|
---|
25 | ;;
|
---|
26 | ;;LIST ENTRY PRE-SELECTION:
|
---|
27 | ;; Entries from appointment list can be pre-selected in the following
|
---|
28 | ;; manner:
|
---|
29 | ;; CI=1 ...will process entry #1 for check in
|
---|
30 | ;; CI=3 4 5 ...will process entries 3,4,5 for check in
|
---|
31 | ;; CI=1-3 ...will process entries 1,2,3 for check in
|
---|
32 | ;;
|
---|
33 | ;; If no entry is pre-selected, the user will be prompted for a
|
---|
34 | ;; selection.
|
---|
35 | ;;------------------------------------------------------------------------------
|
---|
36 | ;;$PAUSE
|
---|
37 | ;;$END
|
---|
38 | ;;MULTIPLE ACTION SELECTION:
|
---|
39 | ;; More than one action can be selected in the following manner:
|
---|
40 | ;;
|
---|
41 | ;; Select Action: CL,CD ...user will select a clinic and then
|
---|
42 | ;; be asked to enter a new date range
|
---|
43 | ;;
|
---|
44 | ;; CL,AL;NA ...user will select a clinic and then
|
---|
45 | ;; all 'NO ACTION TAKEN' appointments
|
---|
46 | ;; will be listed.
|
---|
47 | ;;------------------------------------------------------------------------------
|
---|
48 | ;;$END
|
---|
49 | ;
|
---|