source: WorldVistAEHR/trunk/r/PAID-PRS/PRSADPA.m@ 1003

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

initial load of WorldVistAEHR
File size: 1.8 KB
RevLine 
[613]1PRSADPA ; HISC/REL-Display Data for Payroll ;9/15/95 09:42
2 ;;4.0;PAID;;Sep 21, 1995
3LV ; Display Leave Request
4 K DIC S DIC("A")="Select EMPLOYEE: ",DIC(0)="AEQM",DIC="^PRST(458.1,",D="C" W ! D IX^DIC S DA=+Y K DIC
5 G:DA<1 EX
6 W ! K IOP,%ZIS S %ZIS("A")="Select Device: ",%ZIS="MQ" D ^%ZIS K %ZIS,IOP G:POP EX
7 I $D(IO("Q")) S PRSAPGM="L1^PRSADPA",PRSALST="DA" D QUE^PRSAUTL G LV
8 U IO D L1 D ^%ZISC K %ZIS,IOP G LV
9L1 S DIC="^PRST(458.1," K DR D EN^DIQ Q
10OT ; Display OT Request
11 K DIC S DIC("A")="Select EMPLOYEE: ",DIC(0)="AEQM",DIC="^PRST(458.2,",D="C" W ! D IX^DIC S DA=+Y K DIC
12 G:DA<1 EX
13 W ! K IOP,%ZIS S %ZIS("A")="Select Device: ",%ZIS="MQ" D ^%ZIS K %ZIS,IOP G:POP EX
14 I $D(IO("Q")) S PRSAPGM="O1^PRSADPA",PRSALST="DA" D QUE^PRSAUTL G OT
15 U IO D O1 D ^%ZISC K %ZIS,IOP G OT
16O1 S DIC="^PRST(458.2," K DR D EN^DIQ Q
17ED ; Display Envir. Diff. Request
18 K DIC S DIC("A")="Select EMPLOYEE: ",DIC(0)="AEQM",DIC="^PRST(458.3,",D="C" W ! D IX^DIC S DA=+Y K DIC
19 G:DA<1 EX
20 W ! K IOP,%ZIS S %ZIS("A")="Select Device: ",%ZIS="MQ" D ^%ZIS K %ZIS,IOP G:POP EX
21 I $D(IO("Q")) S PRSAPGM="E1^PRSADPA",PRSALST="DA" D QUE^PRSAUTL G ED
22 U IO D E1 D ^%ZISC K %ZIS,IOP G ED
23E1 S DIC="^PRST(458.3," K DR D EN^DIQ Q
24PP ; Display Pay Period
25 K DIC S DIC("A")="Select EMPLOYEE: ",DIC(0)="AEQM",DIC="^PRSPC("
26 W ! D ^DIC S DFN=+Y K DIC G:DFN<1 EX
27 S TLE=$P($G(^PRSPC(DFN,0)),"^",8)
28 S DIC="^PRST(458,",DIC(0)="AEQM",DIC("A")="Select PAY PERIOD: ",DIC("S")="I $D(^PRST(458,+Y,""E"",DFN))"
29 W ! D ^DIC K DIC G:Y<1 EX S PPI=+Y
30 W ! K IOP,%ZIS S %ZIS("A")="Select Device: ",%ZIS="MQ" D ^%ZIS K %ZIS,IOP G:POP EX
31 I $D(IO("Q")) S PRSAPGM="P1^PRSADPA",PRSALST="DFN^PPI" D QUE^PRSAUTL G PP
32 U IO D P1 D ^%ZISC K %ZIS,IOP G PP
33P1 S DIC="^PRST(458,PPI,""E"",",(DA(1),D0)=PPI,(DA,D1)=DFN K DR D EN^DIQ Q
34EX G KILL^XUSCLEAN
Note: See TracBrowser for help on using the repository browser.