| 1 | PRSATPG ; HISC/REL-List Prior Exceptions ;8/22/95 13:42
|
|---|
| 2 | ;;4.0;PAID;;Sep 21, 1995
|
|---|
| 3 | PAY ; Payroll Entry Point - All Exceptions
|
|---|
| 4 | R !!,"Select T&L Unit (or ALL): ",X:DTIME G:'$T!("^"[X) EX S X=$TR(X,"al","AL") I X="ALL" S TLE="" G L1
|
|---|
| 5 | K DIC S DIC="^PRST(455.5,",DIC(0)="EMQ" D ^DIC G EX:$D(DTOUT),PAY:Y<1
|
|---|
| 6 | S TLE=$P(Y,"^",2),PRSTLV=3 G L1
|
|---|
| 7 | SUP ; Supervisor Entry Point
|
|---|
| 8 | S PRSTLV=3 D ^PRSAUTL G EX:TLI<1,L1
|
|---|
| 9 | TK ; TimeKeeper Entry Point
|
|---|
| 10 | S PRSTLV=2 D ^PRSAUTL G:TLI<1 EX
|
|---|
| 11 | L1 W ! K IOP,%ZIS S %ZIS("A")="Select Device: ",%ZIS="MQ" D ^%ZIS K %ZIS,IOP G:POP EX
|
|---|
| 12 | I $D(IO("Q")) S PRSAPGM="Q1^PRSATPG",PRSALST="TLE" D QUE^PRSAUTL G EX
|
|---|
| 13 | U IO D Q1 D ^%ZISC K %ZIS,IOP G EX
|
|---|
| 14 | Q1 ; Process List
|
|---|
| 15 | D NOW^%DTC S DT=%\1,(PG,QT)=0 D HDR I TLE'="" D Q2 G:QT EX D:$Y>3 H1 G EX
|
|---|
| 16 | S ATL="ATL00" F S ATL=$O(^PRSPC(ATL)) Q:ATL="" S TLE=$E(ATL,4,6) D Q2 G:QT EX
|
|---|
| 17 | D:$Y>3 H1 G EX
|
|---|
| 18 | Q2 S NX="" F S NX=$O(^PRSPC("ATL"_TLE,NX)) Q:NX="" F DFN=0:0 S DFN=$O(^PRSPC("ATL"_TLE,NX,DFN)) Q:DFN<1 I $D(^PRST(458.5,"C",DFN)) D G:QT Q3
|
|---|
| 19 | .F PDA=0:0 S PDA=$O(^PRST(458.5,"C",DFN,PDA)) Q:PDA<1 D CHK
|
|---|
| 20 | .Q:'$D(^PRST(458.5,"C",DFN))
|
|---|
| 21 | .S Y0=$G(^PRSPC(DFN,0)),EHDR=1
|
|---|
| 22 | .F PDA=0:0 S PDA=$O(^PRST(458.5,"C",DFN,PDA)) Q:PDA<1 D PRT Q:QT
|
|---|
| 23 | .Q
|
|---|
| 24 | Q3 Q
|
|---|
| 25 | CHK ; Check Exception
|
|---|
| 26 | S X=$G(^PRST(458.5,PDA,0)),PDTI=$P(X,"^",3) Q:'PDTI Q:$P(X,"^",6)
|
|---|
| 27 | S Y=$G(^PRST(458,"AD",PDTI)),PPI=$P(Y,"^",1),DAY=$P(Y,"^",2) Q:'PPI
|
|---|
| 28 | S ESTR=$P(X,"^",5)_"^"_$P(X,"^",4)
|
|---|
| 29 | D ^PRSATPE I '$D(ER) S DA=PDA D REM^PRSATPF Q
|
|---|
| 30 | F K=0:0 S K=$O(ER(K)) Q:K<1 I ER(K)=ESTR K ER(K) G C1
|
|---|
| 31 | S DA=PDA D REM^PRSATPF
|
|---|
| 32 | C1 F K=0:0 S K=$O(ER(K)) Q:K<1 S X1=PDTI,X2=ER(K) D ^PRSATPF
|
|---|
| 33 | Q
|
|---|
| 34 | PRT ; List entries
|
|---|
| 35 | S X=$G(^PRST(458.5,PDA,0)),PDTI=$P(X,"^",3),TIM=$P(X,"^",4),TXT=$P(X,"^",5) Q:'PDTI Q:$P(X,"^",6)
|
|---|
| 36 | I EHDR D EHDR S EHDR=0
|
|---|
| 37 | I $Y>(IOSL-6) D HDR Q:QT D EHDR
|
|---|
| 38 | S X=PDTI D DTP^PRSAPPU W !?5,Y W:TIM'="" ?16,TIM W ?24,TXT Q
|
|---|
| 39 | EHDR ; Employee Header
|
|---|
| 40 | W !!,$P(Y0,"^",1) W:$P(Y0,"^",8)'="" " (",$P(Y0,"^",8),")" Q
|
|---|
| 41 | HDR ; Display Header
|
|---|
| 42 | D H1 Q:QT W:'($E(IOST,1,2)'="C-"&'PG) @IOF
|
|---|
| 43 | S PG=PG+1 W !?26,"VA TIME & ATTENDANCE SYSTEM",?72,"Page ",PG
|
|---|
| 44 | W !?26,"PRIOR PAY PERIOD EXCEPTIONS"
|
|---|
| 45 | S X=DT D DTP^PRSAPPU W !?35,Y Q
|
|---|
| 46 | H1 I PG,$E(IOST,1,2)="C-" R !!,"Press RETURN to Continue.",X:DTIME S:'$T!(X["^") QT=1
|
|---|
| 47 | Q
|
|---|
| 48 | EX G KILL^XUSCLEAN
|
|---|
