| 1 | PRSAPEH ;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
|
|---|
| 11 | NME 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
|
|---|
| 18 | P1 W " ... done" G NME
|
|---|
| 19 | THANK ; 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
|
|---|
| 23 | EX G KILL^XUSCLEAN
|
|---|
