PRSADPA ; HISC/REL-Display Data for Payroll ;9/15/95 09:42
;;4.0;PAID;;Sep 21, 1995
LV ; Display Leave Request
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
G:DA<1 EX
W ! K IOP,%ZIS S %ZIS("A")="Select Device: ",%ZIS="MQ" D ^%ZIS K %ZIS,IOP G:POP EX
I $D(IO("Q")) S PRSAPGM="L1^PRSADPA",PRSALST="DA" D QUE^PRSAUTL G LV
U IO D L1 D ^%ZISC K %ZIS,IOP G LV
L1 S DIC="^PRST(458.1," K DR D EN^DIQ Q
OT ; Display OT Request
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
G:DA<1 EX
W ! K IOP,%ZIS S %ZIS("A")="Select Device: ",%ZIS="MQ" D ^%ZIS K %ZIS,IOP G:POP EX
I $D(IO("Q")) S PRSAPGM="O1^PRSADPA",PRSALST="DA" D QUE^PRSAUTL G OT
U IO D O1 D ^%ZISC K %ZIS,IOP G OT
O1 S DIC="^PRST(458.2," K DR D EN^DIQ Q
ED ; Display Envir. Diff. Request
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
G:DA<1 EX
W ! K IOP,%ZIS S %ZIS("A")="Select Device: ",%ZIS="MQ" D ^%ZIS K %ZIS,IOP G:POP EX
I $D(IO("Q")) S PRSAPGM="E1^PRSADPA",PRSALST="DA" D QUE^PRSAUTL G ED
U IO D E1 D ^%ZISC K %ZIS,IOP G ED
E1 S DIC="^PRST(458.3," K DR D EN^DIQ Q
PP ; Display Pay Period
K DIC S DIC("A")="Select EMPLOYEE: ",DIC(0)="AEQM",DIC="^PRSPC("
W ! D ^DIC S DFN=+Y K DIC G:DFN<1 EX
S TLE=$P($G(^PRSPC(DFN,0)),"^",8)
S DIC="^PRST(458,",DIC(0)="AEQM",DIC("A")="Select PAY PERIOD: ",DIC("S")="I $D(^PRST(458,+Y,""E"",DFN))"
W ! D ^DIC K DIC G:Y<1 EX S PPI=+Y
W ! K IOP,%ZIS S %ZIS("A")="Select Device: ",%ZIS="MQ" D ^%ZIS K %ZIS,IOP G:POP EX
I $D(IO("Q")) S PRSAPGM="P1^PRSADPA",PRSALST="DFN^PPI" D QUE^PRSAUTL G PP
U IO D P1 D ^%ZISC K %ZIS,IOP G PP
P1 S DIC="^PRST(458,PPI,""E"",",(DA(1),D0)=PPI,(DA,D1)=DFN K DR D EN^DIQ Q
EX G KILL^XUSCLEAN
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRSADPA 1834 printed Apr 09, 2024@21:27:48 Page 2
PRSADPA ; HISC/REL-Display Data for Payroll ;9/15/95 09:42
+1 ;;4.0;PAID;;Sep 21, 1995
LV ; Display Leave Request
+1 KILL DIC
SET DIC("A")="Select EMPLOYEE: "
SET DIC(0)="AEQM"
SET DIC="^PRST(458.1,"
SET D="C"
WRITE !
DO IX^DIC
SET DA=+Y
KILL DIC
+2 if DA<1
GOTO EX
+3 WRITE !
KILL IOP,%ZIS
SET %ZIS("A")="Select Device: "
SET %ZIS="MQ"
DO ^%ZIS
KILL %ZIS,IOP
if POP
GOTO EX
+4 IF $DATA(IO("Q"))
SET PRSAPGM="L1^PRSADPA"
SET PRSALST="DA"
DO QUE^PRSAUTL
GOTO LV
+5 USE IO
DO L1
DO ^%ZISC
KILL %ZIS,IOP
GOTO LV
L1 SET DIC="^PRST(458.1,"
KILL DR
DO EN^DIQ
QUIT
OT ; Display OT Request
+1 KILL DIC
SET DIC("A")="Select EMPLOYEE: "
SET DIC(0)="AEQM"
SET DIC="^PRST(458.2,"
SET D="C"
WRITE !
DO IX^DIC
SET DA=+Y
KILL DIC
+2 if DA<1
GOTO EX
+3 WRITE !
KILL IOP,%ZIS
SET %ZIS("A")="Select Device: "
SET %ZIS="MQ"
DO ^%ZIS
KILL %ZIS,IOP
if POP
GOTO EX
+4 IF $DATA(IO("Q"))
SET PRSAPGM="O1^PRSADPA"
SET PRSALST="DA"
DO QUE^PRSAUTL
GOTO OT
+5 USE IO
DO O1
DO ^%ZISC
KILL %ZIS,IOP
GOTO OT
O1 SET DIC="^PRST(458.2,"
KILL DR
DO EN^DIQ
QUIT
ED ; Display Envir. Diff. Request
+1 KILL DIC
SET DIC("A")="Select EMPLOYEE: "
SET DIC(0)="AEQM"
SET DIC="^PRST(458.3,"
SET D="C"
WRITE !
DO IX^DIC
SET DA=+Y
KILL DIC
+2 if DA<1
GOTO EX
+3 WRITE !
KILL IOP,%ZIS
SET %ZIS("A")="Select Device: "
SET %ZIS="MQ"
DO ^%ZIS
KILL %ZIS,IOP
if POP
GOTO EX
+4 IF $DATA(IO("Q"))
SET PRSAPGM="E1^PRSADPA"
SET PRSALST="DA"
DO QUE^PRSAUTL
GOTO ED
+5 USE IO
DO E1
DO ^%ZISC
KILL %ZIS,IOP
GOTO ED
E1 SET DIC="^PRST(458.3,"
KILL DR
DO EN^DIQ
QUIT
PP ; Display Pay Period
+1 KILL DIC
SET DIC("A")="Select EMPLOYEE: "
SET DIC(0)="AEQM"
SET DIC="^PRSPC("
+2 WRITE !
DO ^DIC
SET DFN=+Y
KILL DIC
if DFN<1
GOTO EX
+3 SET TLE=$PIECE($GET(^PRSPC(DFN,0)),"^",8)
+4 SET DIC="^PRST(458,"
SET DIC(0)="AEQM"
SET DIC("A")="Select PAY PERIOD: "
SET DIC("S")="I $D(^PRST(458,+Y,""E"",DFN))"
+5 WRITE !
DO ^DIC
KILL DIC
if Y<1
GOTO EX
SET PPI=+Y
+6 WRITE !
KILL IOP,%ZIS
SET %ZIS("A")="Select Device: "
SET %ZIS="MQ"
DO ^%ZIS
KILL %ZIS,IOP
if POP
GOTO EX
+7 IF $DATA(IO("Q"))
SET PRSAPGM="P1^PRSADPA"
SET PRSALST="DFN^PPI"
DO QUE^PRSAUTL
GOTO PP
+8 USE IO
DO P1
DO ^%ZISC
KILL %ZIS,IOP
GOTO PP
P1 SET DIC="^PRST(458,PPI,""E"","
SET (DA(1),D0)=PPI
SET (DA,D1)=DFN
KILL DR
DO EN^DIQ
QUIT
EX GOTO KILL^XUSCLEAN
