SDAM5.m

SDAM5 ;MJK/ALB - Appt Mgt (HELP) ; 12/1/91

 ;;5.3;Scheduling;**1015**;Aug 13, 1993;Build 21

 ;IHS/ANMC/LJF 10/10/2001 removed list of regular actions

 ;

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)

 ;

 ;IHS/ANMC/LJF 10/10/2001 modified lines below

 ;W !,"Possible actions are the following:"

 ;D HLPS,PAUSE^VALM1 S VALMBCK="R"

 D CLEAR^VALM1           ;new line

 ;IHS/ANMC/LJF 10/10/2001 end of mods

 ;

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

 ;

SDAM5     ;MJK/ALB - Appt Mgt (HELP) ; 12/1/91

 +1       ;;5.3;Scheduling;**1015**;Aug 13, 1993;Build 21

 +2       ;IHS/ANMC/LJF 10/10/2001 removed list of regular actions

 +3       ;

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       ;

 +5       ;IHS/ANMC/LJF 10/10/2001 modified lines below

 +6       ;W !,"Possible actions are the following:"

 +7       ;D HLPS,PAUSE^VALM1 S VALMBCK="R"

 +8       ;new line

           DO CLEAR^VALM1

 +9       ;IHS/ANMC/LJF 10/10/2001 end of mods

 +10      ;

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      ;