87 lines
3.2 KiB
Mathematica
87 lines
3.2 KiB
Mathematica
|
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
|
||
|
|
;
|