source: FOIAVistA/trunk/r/PAID-PRS/PRSARCH.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 3.2 KB
Line 
1PRSARCH ;;WOIFO/JAH - Recess Tracking Help List ;11-DEC-2006
2 ;;4.0;PAID;**112**;Sep 21, 1995;Build 54
3 ;;Per VHA Directive 2004-038, this routine should not be modified.
4 Q
5EN ;
6 D EN^VALM("PRSA RECESS TRACKING HELP")
7 S VALMBCK="R"
8 Q
9HDR ; -- header code
10 S VALMHDR(1)="Help Screen for 9 Mo. AWS Recess Tracking Actions"
11 S VALMHDR(2)="Enter QU to return to the Schedule"
12 Q
13 ;
14INIT ; -- init variables and list array
15 ;
16 N TEXT,LEN
17 S VALMCNT=0
18 F D Q:TEXT=""
19 . S VALMCNT=VALMCNT+1
20 . S TEXT=$P($T(HLPTXT+VALMCNT),";",3)
21 . I $E(TEXT,1)?1A D
22 .. S LEN=$L(TEXT)
23 .. S TEXT=" "_TEXT
24 .. D SET^VALM10(VALMCNT,TEXT)
25 .. D CNTRL^VALM10(VALMCNT,15,LEN,IORVON,IORVOFF,0)
26 .. ; D RESTORE^VALM10(VALMCNT)
27 . E D
28 .. D SET^VALM10(VALMCNT,TEXT)
29 Q
30HLPTXT ;
31 ;;SE Select Recess Weeks
32 ;; Enter SE at the Select Action prompt to select weeks by the number
33 ;; in the left hand column of the list. You may select multiple
34 ;; weeks by entering week numbers separated by commas and you may
35 ;; select a range of weeks by using a hyphen. For example: 3,6-10,12
36 ;; is a valid response to select weeks. This action will then prompt
37 ;; for the hours to enter for all of the weeks selected. If the
38 ;; weeks are in the past the tour of duty hours stored in the
39 ;; employee's timecard may be used by accepting the default to use
40 ;; tour of duty hours. Alternatively you can choose to use the
41 ;; employee's current tour hours from the timecard as the recess
42 ;; hours or you may specify the recess hours for each week of the
43 ;; pay period for the weeks selected. In all cases the recess hours
44 ;; specified are applied to all the weeks selected.
45 ;;EH Edit Recess Hours
46 ;; Enter EH at the Select Action prompt to select any of the weeks
47 ;; in the list by number. You will be prompted to enter the recess
48 ;; hours for each week that you selected.
49 ;;CR Cancel Recess Weeks
50 ;; Enter CR at the Select Action prompt to select any of the weeks
51 ;; in the list by number. Any recess hours from the selection will
52 ;; be removed.
53 ;;NS Change AWS Start
54 ;; Enter NS at the Select Action prompt to change when the AWS
55 ;; schedule takes effect. Any recess scheduled during the fiscal
56 ;; year that occurs before the new start date is removed. If you
57 ;; enter a date other than the first day of a pay period the action
58 ;; will automatically set the AWS start date to the first day of
59 ;; the pay period that the date you entered falls within.
60 ;; The number of weeks available for recess is 25% of the weeks
61 ;; from the start date to the end of the fiscal year.
62 ;;GH Recess Hours Summary
63 ;; Enter GH to see a summary screen with recess totals. Be sure
64 ;; to scroll down to see the whole report.
65 ;;SV Save Recess Schedule
66 ;; Enter SV to save any edits you have made to the schedule and
67 ;; continue editing.
68 ;;EX Exit and Save Recess
69 ;; Enter EX to save any edits you have made to the schedule and exit
70 ;; the option.
71 ;;QU Quit without Saving
72 ;; Enter QU to quit and not save any of the changes you made.
73 Q
74 ;
75HELP ; -- help code
76 N X
77 S X="?" D DISP^XQORM1 W !!
78 Q
79 ;
80EXIT ; -- exit code
81 D CLEAN^VALM10
82 Q
83 ;
84EXPND ; -- expand code
85 Q
86 ;
Note: See TracBrowser for help on using the repository browser.