source: FOIAVistA/trunk/r/PAID-PRS/PRSATPX.m@ 1589

Last change on this file since 1589 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.8 KB
Line 
1PRSATPX ; HISC/REL-Time Exceptions ;8/23/94 11:12
2 ;;4.0;PAID;;Sep 21, 1995
3TK0 ; TimeKeeper Entry - Posting date
4 S PRSTLV=2,ALL=0 G TL
5TK1 ; TimeKeeper Entry - Payperiod to date
6 S PRSTLV=2,ALL=1 G TL
7SUP0 ; Supervisor Entry - Posting date
8 S PRSTLV=3,ALL=0 G TL
9SUP1 ; Supervisor Entry - PayPeriod to date
10 S PRSTLV=3,ALL=1 G TL
11TL 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
19Q1 ; 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
25CK W:'CNT !,"No Exceptions found.",! Q
26FND 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
29HDR ; 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
34H1 I PG,$E(IOST,1,2)="C-" R !!,"Press RETURN to Continue.",X:DTIME S:'$T!(X["^") QT=1
35 Q
36EX G KILL^XUSCLEAN
Note: See TracBrowser for help on using the repository browser.