source: FOIAVistA/trunk/r/PAID-PRS/PRSAPRT.m@ 770

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

initial load of FOIAVistA 6/30/08 version

File size: 2.3 KB
Line 
1PRSAPRT ; HISC/REL,WIRMFO/JAH-Return Record to TimeKeeper ;1/31/2007
2 ;;4.0;PAID;**7,8,21,111**;Sep 21, 1995;Build 2
3 ;;Per VHA Directive 2004-038, this routine should not be modified.
4 ;
5 ; Comments & Modifications by JAH Washington IRMFO.
6 ; Timecards are returned to Time Keeper 4 correction &
7 ; re-certification, only 4 pay period being processed & they
8 ; must be returned be4 timecards have been transmitted to
9 ; Austin. Time cards 4 pay period just closed are to be
10 ; transmitted to Austin by 10 am on Wednesday of first week
11 ; of current pay period. There may be a period in begining
12 ; of a new pay period in which an employee has been set up
13 ; with a new pay plan & their time card has not been
14 ; decomposed & transmitted. If this is case Austin will reject
15 ; card due to conflicting pay plans.
16 ;
17 N PPERIOD,OLDPP,PAYP
18 ;
19 ;Ask User for pay period
20 S DIC="^PRST(458,",DIC(0)="AEQM"
21 S DIC("A")="Select PAY PERIOD: "
22 W !
23 D ^DIC K DIC
24 ;
25 ;Quit if invalid pay period
26 G:Y<1 EX
27 S PPI=+Y,PPERIOD=$P(Y,"^",2)
28 ;
29NME ;ask for name of employee who's timecard is to be returned.
30 K DIC
31 S DIC("A")="Select EMPLOYEE: "
32 S DIC(0)="AEQM"
33 S DIC="^PRSPC("
34 W !
35 D ^DIC S DFN=+Y K DIC
36 ;Quit if employees name not found in file 450 (PAID employee).
37 G:DFN<1 EX
38 ;
39 I '$D(^PRST(458,PPI,"E",DFN,0)) W $C(7),!!,"No Record exists to return!" G EX
40 ;
41 ;Display message to payroll if employee has changed pay plans.
42 ;Austin will reject a timecard if pay plan is different.
43 S GO=1
44 S OLDPP=$$OLDPP^PRS8UT(PPERIOD,DFN)
45 S PAYP=$P($G(^PRSPC(DFN,0)),"^",21)
46 I OLDPP'=0,(OLDPP'=PAYP) D
47 . W !,"PLEASE NOTE: Employee has changed pay plans. "
48 . W !,"Current Pay Plan: ",PAYP
49 . W !,"Pay Plan during Pay Period ",PPERIOD," ",OLDPP
50 . S GO=$$CONTINUE^PRSAUTL
51 I 'GO G EX
52 ;
53 S STAT=$P($G(^PRST(458,PPI,"E",DFN,0)),"^",2)
54 I "T"[STAT W $C(7),!!,"TimeKeeper still has this Employee." G EX
55 I STAT="P" D B W !!," . . . Returned to Timekeeper." G EX
56 W $C(7),!!,"Warning! This Employee has already been Transmitted."
57A R !!,"Return to Timekeeper Anyway? ",X:DTIME G:'$T!(X["^") EX S:X="" X="*" S X=$TR(X,"yesno","YESNO")
58 I $P("YES",X,1)'="",$P("NO",X,1)'="" W $C(7)," Answer YES or NO" G A
59 I X?1"Y".E D B W !!," . . . Returned to Timekeeper." G EX
60 G EX
61B S $P(^PRST(458,PPI,"E",DFN,0),"^",2)="T" K ^(5)
62 D AUTOPINI^PRS8(PPI,DFN)
63 Q
64EX G KILL^XUSCLEAN
Note: See TracBrowser for help on using the repository browser.