| [613] | 1 | PRSADPA ; HISC/REL-Display Data for Payroll ;9/15/95 09:42
|
|---|
| 2 | ;;4.0;PAID;;Sep 21, 1995
|
|---|
| 3 | LV ; 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
|
|---|
| 9 | L1 S DIC="^PRST(458.1," K DR D EN^DIQ Q
|
|---|
| 10 | OT ; 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
|
|---|
| 16 | O1 S DIC="^PRST(458.2," K DR D EN^DIQ Q
|
|---|
| 17 | ED ; 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
|
|---|
| 23 | E1 S DIC="^PRST(458.3," K DR D EN^DIQ Q
|
|---|
| 24 | PP ; 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
|
|---|
| 33 | P1 S DIC="^PRST(458,PPI,""E"",",(DA(1),D0)=PPI,(DA,D1)=DFN K DR D EN^DIQ Q
|
|---|
| 34 | EX G KILL^XUSCLEAN
|
|---|
