| 1 | PRSAPPX ; HISC/REL-Approve Prior Pay Period Changes ;9/21/95 15:23
|
|---|
| 2 | ;;4.0;PAID;;Sep 21, 1995
|
|---|
| 3 | K ^TMP($J)
|
|---|
| 4 | F DFN=0:0 S DFN=$O(^PRST(458,"AXS",DFN)) Q:DFN<1 F PPI=0:0 S PPI=$O(^PRST(458,"AXS",DFN,PPI)) Q:PPI<1 D TLC
|
|---|
| 5 | I '$D(^TMP($J)) S NF=0 G ES
|
|---|
| 6 | K AP S QT=0,NF=1,TLE=""
|
|---|
| 7 | F S TLE=$O(^TMP($J,TLE)) Q:TLE="" F DFN=0:0 S DFN=$O(^TMP($J,TLE,DFN)) Q:DFN<1 F PPI=0:0 S PPI=$O(^TMP($J,TLE,DFN,PPI)) Q:PPI<1 F AUN=0:0 S AUN=$O(^PRST(458,"AXS",DFN,PPI,AUN)) Q:AUN<1 D G:QT ES
|
|---|
| 8 | .D HDR,DIS^PRSASC3 D OK Q:QT
|
|---|
| 9 | .I ACT'="" S AP(5,DFN_"~"_PPI_"~"_AUN)=DFN_"^"_ACT
|
|---|
| 10 | .Q
|
|---|
| 11 | ES I '$D(^TMP($J)) W !!,$S('NF:"No Prior Pay Period actions to certify.",1:"No Prior Pay Period certification action taken.") G EX
|
|---|
| 12 | D ^PRSAES G:'ESOK EX D NOW^%DTC S NOW=%
|
|---|
| 13 | S NOD="AXS",NX="" F S NX=$O(AP(5,NX)) Q:NX="" D APP^PRSASC3
|
|---|
| 14 | G EX
|
|---|
| 15 | TLC ; Check T&L
|
|---|
| 16 | S TLE=$E($G(^PRST(458,PPI,"E",DFN,5)),22,24) D:" "[TLE T1 Q:TLE=""
|
|---|
| 17 | S TLI=$O(^PRST(455.5,"B",TLE,0)) D:TLI<1 T1 Q:TLI<1 I $D(^PRST(455.5,TLI,"A",DUZ)) S ^TMP($J,TLE,DFN,PPI)=""
|
|---|
| 18 | Q
|
|---|
| 19 | T1 S TLE=$P($G(^PRSPC(DFN,0)),"^",8) Q:TLE=""
|
|---|
| 20 | S TLI=$O(^PRST(455.5,"B",TLE,0)) Q
|
|---|
| 21 | OK R !!,"Disposition (A=Approve, D=Disapprove, X=Cancel, RETURN to bypass): ",ACT:DTIME S:'$T!(ACT["^") QT=1 Q:QT!(ACT="") S ACT=$TR(ACT,"adx","ADX") I ACT'?1U!("ADX"'[ACT) W *7,!,"Enter A, D or X or Press RETURN to bypass" G OK
|
|---|
| 22 | Q
|
|---|
| 23 | HDR ; Display Header
|
|---|
| 24 | W:$E(IOST,1,2)="C-" @IOF W !?26,"VA TIME & ATTENDANCE SYSTEM",!?26,"PRIOR PAY PERIOD CORRECTION"
|
|---|
| 25 | S PPE="" D HDR^PRSADP1 S HDR=1 Q
|
|---|
| 26 | EX S TLE="" F S TLE=$O(^TMP($J,TLE)) Q:TLE="" S TLI=$O(^PRST(455.5,"B",TLE,0)) D:TLI APP^PRSASAL
|
|---|
| 27 | K ^TMP($J) G KILL^XUSCLEAN
|
|---|
