- 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 Mar 13, 2025@21:28:25 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
