- 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 Feb 18, 2025@23:50: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 ;