source: FOIAVistA/trunk/r/PAID-PRS/PRSXP113.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: 1.4 KB
Line 
1PRSXP113 ;ALB/DWS-SET EXTRA HOLIDAY W/ PP OPEN ;12/28/2006
2 ;;4.0;PAID;**113**;Sep 21, 1995;Build 3
3 ;;Per VHA Directive 2004-038, this routine should not be modified.
4 ;
5 Q
6 ;
7START ; Declare 01/02/2007 as a memorial day for President Ford's Funeral
8 ;
9 W !!,"Checking PP 06-26",!
10 N DFN,DUP,HOL,NOW,PPI,TT,%
11 S PPI=$O(^PRST(458,"B","06-26",0))
12 I 'PPI D Q
13 . W !,"Pay Period 06-26 not found in File 458."
14 S HOL(3070102)=10 ; Set 01/02 into HOL array
15 D NOW^%DTC S NOW=%
16 S DFN=0
17 F S DFN=$O(^PRST(458,PPI,"E",DFN)) Q:DFN'>0 D
18 . S TT="HX",DUP=0
19 . D E^PRSAPPH
20 ;
21 ; Quit if PP 07-01 is not opened. The Open Next Pay Period option
22 ; will automatically post their holiday.
23 ;
24PP01 I '$D(^PRST(458,"B","07-01")) D Q
25 . W !,"PP 07-01 has not been opened yet. Holiday In Lieu days will"
26 . W !,"be posted to this Pay Period when it is opened.",!
27 ;
28 ; If the next pay period is already opened, loop through the
29 ; employees again with HOL(3070102)=-2. This is the 2nd date
30 ; in the PDH variable.
31 ;
32 W !,"PP 07-01 is already open. Running checks to see if any"
33 W !,"employees needed to have their extra holiday posted in this"
34 W !,"Pay Period.",!
35 ;
36 S HOL(3070102)=-2 ; Set 01/02/2007 into HOL array
37 S PPI=0,PPI=$O(^PRST(458,"B","07-01",PPI))
38 I 'PPI D Q
39 . W !!,"The IEN for PP 07-01 was not found."
40 . W !,"Contact EVS at 888-596-4357."
41 ;
42 S DFN=0
43 F S DFN=$O(^PRST(458,PPI,"E",DFN)) Q:DFN'>0 D
44 . S TT="HX",DUP=0
45 . D E^PRSAPPH
46 Q
Note: See TracBrowser for help on using the repository browser.