- PRSXP113 ;ALB/DWS-SET EXTRA HOLIDAY W/ PP OPEN ;12/28/2006
- ;;4.0;PAID;**113**;Sep 21, 1995;Build 3
- ;;Per VHA Directive 2004-038, this routine should not be modified.
- ;
- Q
- ;
- START ; Declare 01/02/2007 as a memorial day for President Ford's Funeral
- ;
- W !!,"Checking PP 06-26",!
- N DFN,DUP,HOL,NOW,PPI,TT,%
- S PPI=$O(^PRST(458,"B","06-26",0))
- I 'PPI D Q
- . W !,"Pay Period 06-26 not found in File 458."
- S HOL(3070102)=10 ; Set 01/02 into HOL array
- D NOW^%DTC S NOW=%
- S DFN=0
- F S DFN=$O(^PRST(458,PPI,"E",DFN)) Q:DFN'>0 D
- . S TT="HX",DUP=0
- . D E^PRSAPPH
- ;
- ; Quit if PP 07-01 is not opened. The Open Next Pay Period option
- ; will automatically post their holiday.
- ;
- PP01 I '$D(^PRST(458,"B","07-01")) D Q
- . W !,"PP 07-01 has not been opened yet. Holiday In Lieu days will"
- . W !,"be posted to this Pay Period when it is opened.",!
- ;
- ; If the next pay period is already opened, loop through the
- ; employees again with HOL(3070102)=-2. This is the 2nd date
- ; in the PDH variable.
- ;
- W !,"PP 07-01 is already open. Running checks to see if any"
- W !,"employees needed to have their extra holiday posted in this"
- W !,"Pay Period.",!
- ;
- S HOL(3070102)=-2 ; Set 01/02/2007 into HOL array
- S PPI=0,PPI=$O(^PRST(458,"B","07-01",PPI))
- I 'PPI D Q
- . W !!,"The IEN for PP 07-01 was not found."
- . W !,"Contact EVS at 888-596-4357."
- ;
- S DFN=0
- F S DFN=$O(^PRST(458,PPI,"E",DFN)) Q:DFN'>0 D
- . S TT="HX",DUP=0
- . D E^PRSAPPH
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRSXP113 1499 printed Feb 18, 2025@23:55:20 Page 2
- PRSXP113 ;ALB/DWS-SET EXTRA HOLIDAY W/ PP OPEN ;12/28/2006
- +1 ;;4.0;PAID;**113**;Sep 21, 1995;Build 3
- +2 ;;Per VHA Directive 2004-038, this routine should not be modified.
- +3 ;
- +4 QUIT
- +5 ;
- START ; Declare 01/02/2007 as a memorial day for President Ford's Funeral
- +1 ;
- +2 WRITE !!,"Checking PP 06-26",!
- +3 NEW DFN,DUP,HOL,NOW,PPI,TT,%
- +4 SET PPI=$ORDER(^PRST(458,"B","06-26",0))
- +5 IF 'PPI
- Begin DoDot:1
- +6 WRITE !,"Pay Period 06-26 not found in File 458."
- End DoDot:1
- QUIT
- +7 ; Set 01/02 into HOL array
- SET HOL(3070102)=10
- +8 DO NOW^%DTC
- SET NOW=%
- +9 SET DFN=0
- +10 FOR
- SET DFN=$ORDER(^PRST(458,PPI,"E",DFN))
- if DFN'>0
- QUIT
- Begin DoDot:1
- +11 SET TT="HX"
- SET DUP=0
- +12 DO E^PRSAPPH
- End DoDot:1
- +13 ;
- +14 ; Quit if PP 07-01 is not opened. The Open Next Pay Period option
- +15 ; will automatically post their holiday.
- +16 ;
- PP01 IF '$DATA(^PRST(458,"B","07-01"))
- Begin DoDot:1
- +1 WRITE !,"PP 07-01 has not been opened yet. Holiday In Lieu days will"
- +2 WRITE !,"be posted to this Pay Period when it is opened.",!
- End DoDot:1
- QUIT
- +3 ;
- +4 ; If the next pay period is already opened, loop through the
- +5 ; employees again with HOL(3070102)=-2. This is the 2nd date
- +6 ; in the PDH variable.
- +7 ;
- +8 WRITE !,"PP 07-01 is already open. Running checks to see if any"
- +9 WRITE !,"employees needed to have their extra holiday posted in this"
- +10 WRITE !,"Pay Period.",!
- +11 ;
- +12 ; Set 01/02/2007 into HOL array
- SET HOL(3070102)=-2
- +13 SET PPI=0
- SET PPI=$ORDER(^PRST(458,"B","07-01",PPI))
- +14 IF 'PPI
- Begin DoDot:1
- +15 WRITE !!,"The IEN for PP 07-01 was not found."
- +16 WRITE !,"Contact EVS at 888-596-4357."
- End DoDot:1
- QUIT
- +17 ;
- +18 SET DFN=0
- +19 FOR
- SET DFN=$ORDER(^PRST(458,PPI,"E",DFN))
- if DFN'>0
- QUIT
- Begin DoDot:1
- +20 SET TT="HX"
- SET DUP=0
- +21 DO E^PRSAPPH
- End DoDot:1
- +22 QUIT