source: WorldVistAEHR/trunk/r/PAID-PRS/PRSARCH.m@ 1096

PRSARCH ;;WOIFO/JAH - Recess Tracking Help List ;11-DEC-2006
        ;;4.0;PAID;**112**;Sep 21, 1995;Build 54
        ;;Per VHA Directive 2004-038, this routine should not be modified.
        Q
EN      ;
        D EN^VALM("PRSA RECESS TRACKING HELP")
        S VALMBCK="R"
        Q
HDR     ; -- header code
        S VALMHDR(1)="Help Screen for 9 Mo. AWS Recess Tracking Actions"
        S VALMHDR(2)="Enter QU to return to the Schedule"
        Q
        ;
INIT    ; -- init variables and list array
        ;
        N TEXT,LEN
        S VALMCNT=0
        F  D  Q:TEXT=""
        .  S VALMCNT=VALMCNT+1
        .  S TEXT=$P($T(HLPTXT+VALMCNT),";",3)
        .  I $E(TEXT,1)?1A D
        ..    S LEN=$L(TEXT)
        ..    S TEXT="              "_TEXT
        ..    D SET^VALM10(VALMCNT,TEXT)
        ..    D CNTRL^VALM10(VALMCNT,15,LEN,IORVON,IORVOFF,0)
        ..   ; D RESTORE^VALM10(VALMCNT)
        .  E  D
        ..   D SET^VALM10(VALMCNT,TEXT)
        Q
HLPTXT  ;
        ;;SE  Select Recess Weeks
        ;;    Enter SE at the Select Action prompt to select weeks by the number
        ;;    in the left hand column of the list.  You may select multiple
        ;;    weeks by entering week numbers separated by commas and you may
        ;;    select a range of weeks by using a hyphen.  For example: 3,6-10,12
        ;;    is a valid response to select weeks.  This action will then prompt
        ;;    for the hours to enter for all of the weeks selected.  If the
        ;;    weeks are in the past the tour of duty hours stored in the
        ;;    employee's timecard may be used by accepting the default to use
        ;;    tour of duty hours.  Alternatively you can choose to use the 
        ;;    employee's current tour hours from the timecard as the recess 
        ;;    hours or you may specify the recess hours for each week of the
        ;;    pay period for the weeks selected.  In all cases the recess hours
        ;;    specified are applied to all the weeks selected.
        ;;EH  Edit Recess Hours
        ;;    Enter EH at the Select Action prompt to select any of the weeks
        ;;    in the list by number.  You will be prompted to enter the recess
        ;;    hours for each week that you selected.
        ;;CR  Cancel Recess Weeks
        ;;    Enter CR at the Select Action prompt to select any of the weeks
        ;;    in the list by number.  Any recess hours from the selection will
        ;;    be removed.
        ;;NS  Change AWS Start
        ;;    Enter NS at the Select Action prompt to change when the AWS
        ;;    schedule takes effect.  Any recess scheduled during the fiscal
        ;;    year that occurs before the new start date is removed.  If you
        ;;    enter a date other than the first day of a pay period the action
        ;;    will automatically set the AWS start date to the first day of 
        ;;    the pay period that the date you entered falls within.
        ;;    The number of weeks available for recess is 25% of the weeks
        ;;    from the start date to the end of the fiscal year.
        ;;GH  Recess Hours Summary
        ;;    Enter GH to see a summary screen with recess totals.  Be sure 
        ;;    to scroll down to see the whole report.
        ;;SV  Save Recess Schedule
        ;;    Enter SV to save any edits you have made to the schedule and
        ;;    continue editing.
        ;;EX  Exit and Save Recess
        ;;    Enter EX to save any edits you have made to the schedule and exit
        ;;    the option.
        ;;QU  Quit without Saving
        ;;    Enter QU to quit and not save any of the changes you made.
        Q
        ;
HELP    ; -- help code
        N X
        S X="?" D DISP^XQORM1 W !!
        Q
        ;
EXIT    ; -- exit code
        D CLEAN^VALM10
        Q
        ;
EXPND   ; -- expand code
        Q
        ;