| 1 | PRSATPX ; HISC/REL-Time Exceptions ;8/23/94 11:12
|
|---|
| 2 | ;;4.0;PAID;;Sep 21, 1995
|
|---|
| 3 | TK0 ; TimeKeeper Entry - Posting date
|
|---|
| 4 | S PRSTLV=2,ALL=0 G TL
|
|---|
| 5 | TK1 ; TimeKeeper Entry - Payperiod to date
|
|---|
| 6 | S PRSTLV=2,ALL=1 G TL
|
|---|
| 7 | SUP0 ; Supervisor Entry - Posting date
|
|---|
| 8 | S PRSTLV=3,ALL=0 G TL
|
|---|
| 9 | SUP1 ; Supervisor Entry - PayPeriod to date
|
|---|
| 10 | S PRSTLV=3,ALL=1 G TL
|
|---|
| 11 | TL D ^PRSAUTL G:TLI<1 EX S %DT="X",X="T+3" D ^%DT
|
|---|
| 12 | S %DT="AEPX",%DT("A")="Posting Date: ",%DT("B")="T-1",%DT(0)=-Y W ! D ^%DT
|
|---|
| 13 | G:Y<1 EX S D1=Y S Y=$G(^PRST(458,"AD",D1)),PPI=$P(Y,"^",1),DAY=$P(Y,"^",2)
|
|---|
| 14 | I PPI="" W !!,*7,"Pay Period is Not Open Yet!" G EX
|
|---|
| 15 | I ALL,$P($G(^PRST(458,PPI,1)),"^",14)<DT S DAY=14
|
|---|
| 16 | W ! K IOP,%ZIS S %ZIS("A")="Select Device: ",%ZIS="MQ" D ^%ZIS K %ZIS,IOP G:POP EX
|
|---|
| 17 | I $D(IO("Q")) S PRSAPGM="Q1^PRSATPX",PRSALST="PPI^DAY^ALL^TLE" D QUE^PRSAUTL G EX
|
|---|
| 18 | U IO D Q1 D ^%ZISC K %ZIS,IOP G EX
|
|---|
| 19 | Q1 ; Process Exception List
|
|---|
| 20 | S PPE=$P($G(^PRST(458,PPI,0)),"^",1),PDT=$G(^PRST(458,PPI,2)),DTE=$P(PDT,"^",DAY),QT=0
|
|---|
| 21 | I ALL S DTE=$P(PDT,"^",1)_" to "_DTE
|
|---|
| 22 | S (PG,CNT,HDR)=0 D HDR
|
|---|
| 23 | S LP=1,NN="" F S NN=$O(^PRSPC("ATL"_TLE,NN)) Q:NN="" F DFN=0:0 S DFN=$O(^PRSPC("ATL"_TLE,NN,DFN)) Q:DFN<1 I $D(^PRST(458,PPI,"E",DFN,0)) S HDR=0 F DAY=$S(ALL:1,1:DAY):1:DAY D FND I QT W ! G EX
|
|---|
| 24 | W ! D CK,H1 G EX
|
|---|
| 25 | CK W:'CNT !,"No Exceptions found.",! Q
|
|---|
| 26 | FND D ^PRSATPE Q:'$D(ER) I 'HDR D:$Y>(IOSL-5) HDR Q:QT W !!,$P(^PRSPC(DFN,0),"^",1) S HDR=1
|
|---|
| 27 | F K=0:0 S K=$O(ER(K)) Q:K<1 D:$Y>(IOSL-3) HDR Q:QT W !?5 W:ALL $P(PDT,"^",DAY)," " W:$P(ER(K),"^",2)'="" $P(ER(K),"^",2) W ?28,$P(ER(K),"^",1) S CNT=CNT+1
|
|---|
| 28 | Q
|
|---|
| 29 | HDR ; Display Header
|
|---|
| 30 | D H1 Q:QT W:'($E(IOST,1,2)'="C-"&'PG) @IOF
|
|---|
| 31 | S PG=PG+1 W !?26,"VA TIME & ATTENDANCE SYSTEM",?72,"Page ",PG
|
|---|
| 32 | W !?30,"T&L ",TLE," EXCEPTIONS"
|
|---|
| 33 | W !!?(81-$L(DTE)\2),DTE W:HDR !!,$P(^PRSPC(DFN,0),"^",1) Q
|
|---|
| 34 | H1 I PG,$E(IOST,1,2)="C-" R !!,"Press RETURN to Continue.",X:DTIME S:'$T!(X["^") QT=1
|
|---|
| 35 | Q
|
|---|
| 36 | EX G KILL^XUSCLEAN
|
|---|
