source: FOIAVistA/tag/r/PAID-PRS/PRSARCH.m@ 1201

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
 ;