source: WorldVistAEHR/trunk/r/PAID-PRS/PRSAPEH.m

Last change on this file was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.2 KB
Line 
1PRSAPEH ;HISC/REL-Set Employee Holiday ;08/01/00
2 ;;4.0;PAID;**4,58**;Sep 21, 1995
3 W:$E(IOST,1,2)="C-" @IOF W !?26,"VA TIME & ATTENDANCE SYSTEM"
4 W !?29,"SET EMPLOYEE HOLIDAY"
5 S PRSTLV=7 D ^PRSAUTL G:TLI<1 EX
6 D NOW^%DTC S NOW=%
7 S %DT="X",X="T+5" D ^%DT
8 S %DT="AEPX",%DT("A")="Benefit Date: ",%DT(0)=-Y W ! D ^%DT G:Y<1 EX
9 S Y=$G(^PRST(458,"AD",Y)),PPI=$P(Y,"^",1),DAY=$P(Y,"^",2)
10 I PPI="" W !!,*7,"Pay Period is Not Open Yet!" G EX
11NME K DIC S DIC("A")="Select EMPLOYEE: ",DIC("S")="I $P(^(0),""^"",8)=TLE,$D(^PRST(458,PPI,""E"",+Y))",DIC(0)="AEQM",DIC="^PRSPC(",D="ATL"_TLE W ! D IX^DIC S DFN=+Y K DIC
12 G:DFN<1 EX
13 I '$D(^PRST(458,PPI,"E",DFN,"D",DAY,0)) W *7,!!,"No Time record exists for that date." G NME
14 I $P($G(^PRST(458,PPI,"E",DFN,"D",DAY,0)),"^",12) W !!,"This date already flagged as a Holiday Benefit Day." G NME
15 I "T"'[$P($G(^PRST(458,PPI,"E",DFN,0)),"^",2) G P1
16 K ^PRST(458,PPI,"E",DFN,"D",DAY,2),^(3),^(10)
17 S TT="HX",LLL=DT,DUP=1 D S0^PRSAPPH
18P1 W " ... done" G NME
19THANK ; Thanksgiving Correction
20 S PPI=$O(^PRST(458,"B","95-23",0)) I 'PPI W !,"PayPeriod 95-23 not found in File 458." G EX
21 S HOL(2951123)=12 D NOW^%DTC S NOW=%
22 F DFN=0:0 S DFN=$O(^PRST(458,PPI,"E",DFN)) Q:DFN'>0 S TT="HX",DUP=0 D E^PRSAPPH
23EX G KILL^XUSCLEAN
Note: See TracBrowser for help on using the repository browser.