Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PRSARCH

PRSARCH.m

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