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
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRSARCH 3384 printed Apr 09, 2024@21:31:44 Page 2
PRSARCH ;;WOIFO/JAH - Recess Tracking Help List ;11-DEC-2006
+1 ;;4.0;PAID;**112**;Sep 21, 1995;Build 54
+2 ;;Per VHA Directive 2004-038, this routine should not be modified.
+3 QUIT
EN ;
+1 DO EN^VALM("PRSA RECESS TRACKING HELP")
+2 SET VALMBCK="R"
+3 QUIT
HDR ; -- header code
+1 SET VALMHDR(1)="Help Screen for 9 Mo. AWS Recess Tracking Actions"
+2 SET VALMHDR(2)="Enter QU to return to the Schedule"
+3 QUIT
+4 ;
INIT ; -- init variables and list array
+1 ;
+2 NEW TEXT,LEN
+3 SET VALMCNT=0
+4 FOR
Begin DoDot:1
+5 SET VALMCNT=VALMCNT+1
+6 SET TEXT=$PIECE($TEXT(HLPTXT+VALMCNT),";",3)
+7 IF $EXTRACT(TEXT,1)?1A
Begin DoDot:2
+8 SET LEN=$LENGTH(TEXT)
+9 SET TEXT=" "_TEXT
+10 DO SET^VALM10(VALMCNT,TEXT)
+11 DO CNTRL^VALM10(VALMCNT,15,LEN,IORVON,IORVOFF,0)
+12 ; D RESTORE^VALM10(VALMCNT)
End DoDot:2
+13 IF '$TEST
Begin DoDot:2
+14 DO SET^VALM10(VALMCNT,TEXT)
End DoDot:2
End DoDot:1
if TEXT=""
QUIT
+15 QUIT
HLPTXT ;
+1 ;;SE Select Recess Weeks
+2 ;; Enter SE at the Select Action prompt to select weeks by the number
+3 ;; in the left hand column of the list. You may select multiple
+4 ;; weeks by entering week numbers separated by commas and you may
+5 ;; select a range of weeks by using a hyphen. For example: 3,6-10,12
+6 ;; is a valid response to select weeks. This action will then prompt
+7 ;; for the hours to enter for all of the weeks selected. If the
+8 ;; weeks are in the past the tour of duty hours stored in the
+9 ;; employee's timecard may be used by accepting the default to use
+10 ;; tour of duty hours. Alternatively you can choose to use the
+11 ;; employee's current tour hours from the timecard as the recess
+12 ;; hours or you may specify the recess hours for each week of the
+13 ;; pay period for the weeks selected. In all cases the recess hours
+14 ;; specified are applied to all the weeks selected.
+15 ;;EH Edit Recess Hours
+16 ;; Enter EH at the Select Action prompt to select any of the weeks
+17 ;; in the list by number. You will be prompted to enter the recess
+18 ;; hours for each week that you selected.
+19 ;;CR Cancel Recess Weeks
+20 ;; Enter CR at the Select Action prompt to select any of the weeks
+21 ;; in the list by number. Any recess hours from the selection will
+22 ;; be removed.
+23 ;;NS Change AWS Start
+24 ;; Enter NS at the Select Action prompt to change when the AWS
+25 ;; schedule takes effect. Any recess scheduled during the fiscal
+26 ;; year that occurs before the new start date is removed. If you
+27 ;; enter a date other than the first day of a pay period the action
+28 ;; will automatically set the AWS start date to the first day of
+29 ;; the pay period that the date you entered falls within.
+30 ;; The number of weeks available for recess is 25% of the weeks
+31 ;; from the start date to the end of the fiscal year.
+32 ;;GH Recess Hours Summary
+33 ;; Enter GH to see a summary screen with recess totals. Be sure
+34 ;; to scroll down to see the whole report.
+35 ;;SV Save Recess Schedule
+36 ;; Enter SV to save any edits you have made to the schedule and
+37 ;; continue editing.
+38 ;;EX Exit and Save Recess
+39 ;; Enter EX to save any edits you have made to the schedule and exit
+40 ;; the option.
+41 ;;QU Quit without Saving
+42 ;; Enter QU to quit and not save any of the changes you made.
+43 QUIT
+44 ;
HELP ; -- help code
+1 NEW X
+2 SET X="?"
DO DISP^XQORM1
WRITE !!
+3 QUIT
+4 ;
EXIT ; -- exit code
+1 DO CLEAN^VALM10
+2 QUIT
+3 ;
EXPND ; -- expand code
+1 QUIT
+2 ;
