PRSXP94 ; WIOFO/MGD-SET EXTRA HOLIDAY W/ PP OPEN ;06/08/04
;;4.0;PAID;**94**;Sep 21, 1995
;
Q
;
START ; Declare 6/11 as a memorial day for President Reagan's Funeral
;
W !!,"Checking PP 04-11",!
N DFN,DUP,HOL,NOW,PPI,TT,%
S PPI=$O(^PRST(458,"B","04-11",0))
I 'PPI D Q
. W !,"PayPeriod 04-11 not found in File 458."
S HOL(3040611)=13 ; Set 6/11 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 04-12 is not opened. The Open Next Pay Period option
; will automatically post their holiday.
;
PP12 I '$D(^PRST(458,"B","04-12")) D Q
. W !,"PP 04-12 has not been opened yet. Holiday In Lieu days will"
. W !,"be posted to this Pay Period when it is opened.",!
;
; I the next pay period is already opened, loop through the
; employees again with HOL(3040611)=-5. This is the 5th date
; in the PDH variable.
;
W !,"PP 04-12 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(3040611)=-5 ; Set 6/11 into HOL array
S PPI=0,PPI=$O(^PRST(458,"B","04-12",PPI))
I 'PPI D Q
. W !!,"The IEN for PP 04-12 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[HPRSXP94 1408 printed Sep 23, 2025@20:05:31 Page 2
PRSXP94 ; WIOFO/MGD-SET EXTRA HOLIDAY W/ PP OPEN ;06/08/04
+1 ;;4.0;PAID;**94**;Sep 21, 1995
+2 ;
+3 QUIT
+4 ;
START ; Declare 6/11 as a memorial day for President Reagan's Funeral
+1 ;
+2 WRITE !!,"Checking PP 04-11",!
+3 NEW DFN,DUP,HOL,NOW,PPI,TT,%
+4 SET PPI=$ORDER(^PRST(458,"B","04-11",0))
+5 IF 'PPI
Begin DoDot:1
+6 WRITE !,"PayPeriod 04-11 not found in File 458."
End DoDot:1
QUIT
+7 ; Set 6/11 into HOL array
SET HOL(3040611)=13
+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 04-12 is not opened. The Open Next Pay Period option
+15 ; will automatically post their holiday.
+16 ;
PP12 IF '$DATA(^PRST(458,"B","04-12"))
Begin DoDot:1
+1 WRITE !,"PP 04-12 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 ; I the next pay period is already opened, loop through the
+5 ; employees again with HOL(3040611)=-5. This is the 5th date
+6 ; in the PDH variable.
+7 ;
+8 WRITE !,"PP 04-12 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 6/11 into HOL array
SET HOL(3040611)=-5
+13 SET PPI=0
SET PPI=$ORDER(^PRST(458,"B","04-12",PPI))
+14 IF 'PPI
Begin DoDot:1
+15 WRITE !!,"The IEN for PP 04-12 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
