PRSAENX ; HISC/REL-List Entitlement ;3/12/93 12:58
;;4.0;PAID;**34,112**;Sep 21, 1995;Build 54
;;Per VHA Directive 2004-038, this routine should not be modified.
K DIC S DIC="^PRST(457.5,",DIC(0)="AEQM" W ! D ^DIC G:Y<1 EX S ENT=^PRST(457.5,+Y,1),NAM=$P(Y,"^",2)
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="Q1^PRSAENX",PRSALST="NAM^ENT" D QUE^PRSAUTL G EX
U IO D Q1 D ^%ZISC K %ZIS,IOP G EX
Q1 ; Display Entitlement Entry
W:$E(IOST,1,2)="C-" @IOF W !?29,"PAY ENTITLEMENT TABLE"
W !,"Name: ",NAM,! D Q2
I $E(IOST,1,2)="C-" R !!,"Press RETURN to Continue. ",X:DTIME
Q
Q2 ; Display Entitlement List
S M("H")="Hrs.",M("D")="Days",M(0)="No",M(1)="Yes"
F K=1:1:19 W !,$P($T(ENT+K),";;",2),?30,M($E(ENT,K)),?40,$P($T(ENT+K+19),";;",2),?70,M($E(ENT,K+19))
Q
EX G KILL^XUSCLEAN
ENT ;;
1 ;;Regular Scheduled
2 ;;Regular Unscheduled
3 ;;FF Reg. Sch. Hrs. Over 53
4 ;;Reserved for future use
5 ;;Recess Periods
6 ;;Night Differential - 2
7 ;;Night Differential - 3
8 ;;Saturday Premium
9 ;;Sunday - Day
10 ;;Sunday - 2
11 ;;Sunday - 3
12 ;;Overtime - Day
13 ;;Overtime - 2
14 ;;Overtime - 3
15 ;;Hazardous Duty
16 ;;Environmental Differential
17 ;;Scheduled CB OT
18 ;;Travel OT
19 ;;Hrs. >8 - Day
20 ;;Hrs. > 8 - 2
21 ;;Hrs. > 8 - 3
22 ;;Holiday - Day
23 ;;Holiday - 2
24 ;;Holiday - 3
25 ;;Holiday OT
26 ;;On Call
27 ;;Sleep Time
28 ;;CompTime/CreditHrs Earn/Use
29 ;;Standby
30 ;;Annual/Restored Leave
31 ;;Sick Leave
32 ;;NonPay Annual Leave
33 ;;AWOL/Susp/LWOP
34 ;;Military Leave
35 ;;Authorized Absence
36 ;;Non-Pay
37 ;;Continuation of Pay
38 ;;VCS Commission Sales
39 ;;FireFighter Overtime
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRSAENX 1723 printed Nov 22, 2024@17:33:33 Page 2
PRSAENX ; HISC/REL-List Entitlement ;3/12/93 12:58
+1 ;;4.0;PAID;**34,112**;Sep 21, 1995;Build 54
+2 ;;Per VHA Directive 2004-038, this routine should not be modified.
+3 KILL DIC
SET DIC="^PRST(457.5,"
SET DIC(0)="AEQM"
WRITE !
DO ^DIC
if Y<1
GOTO EX
SET ENT=^PRST(457.5,+Y,1)
SET NAM=$PIECE(Y,"^",2)
+4 WRITE !
KILL IOP,%ZIS
SET %ZIS("A")="Select Device: "
SET %ZIS="MQ"
DO ^%ZIS
KILL %ZIS,IOP
if POP
GOTO EX
+5 IF $DATA(IO("Q"))
SET PRSAPGM="Q1^PRSAENX"
SET PRSALST="NAM^ENT"
DO QUE^PRSAUTL
GOTO EX
+6 USE IO
DO Q1
DO ^%ZISC
KILL %ZIS,IOP
GOTO EX
Q1 ; Display Entitlement Entry
+1 if $EXTRACT(IOST,1,2)="C-"
WRITE @IOF
WRITE !?29,"PAY ENTITLEMENT TABLE"
+2 WRITE !,"Name: ",NAM,!
DO Q2
+3 IF $EXTRACT(IOST,1,2)="C-"
READ !!,"Press RETURN to Continue. ",X:DTIME
+4 QUIT
Q2 ; Display Entitlement List
+1 SET M("H")="Hrs."
SET M("D")="Days"
SET M(0)="No"
SET M(1)="Yes"
+2 FOR K=1:1:19
WRITE !,$PIECE($TEXT(ENT+K),";;",2),?30,M($EXTRACT(ENT,K)),?40,$PIECE($TEXT(ENT+K+19),";;",2),?70,M($EXTRACT(ENT,K+19))
+3 QUIT
EX GOTO KILL^XUSCLEAN
ENT ;;
1 ;;Regular Scheduled
2 ;;Regular Unscheduled
3 ;;FF Reg. Sch. Hrs. Over 53
4 ;;Reserved for future use
5 ;;Recess Periods
6 ;;Night Differential - 2
7 ;;Night Differential - 3
8 ;;Saturday Premium
9 ;;Sunday - Day
10 ;;Sunday - 2
11 ;;Sunday - 3
12 ;;Overtime - Day
13 ;;Overtime - 2
14 ;;Overtime - 3
15 ;;Hazardous Duty
16 ;;Environmental Differential
17 ;;Scheduled CB OT
18 ;;Travel OT
19 ;;Hrs. >8 - Day
20 ;;Hrs. > 8 - 2
21 ;;Hrs. > 8 - 3
22 ;;Holiday - Day
23 ;;Holiday - 2
24 ;;Holiday - 3
25 ;;Holiday OT
26 ;;On Call
27 ;;Sleep Time
28 ;;CompTime/CreditHrs Earn/Use
29 ;;Standby
30 ;;Annual/Restored Leave
31 ;;Sick Leave
32 ;;NonPay Annual Leave
33 ;;AWOL/Susp/LWOP
34 ;;Military Leave
35 ;;Authorized Absence
36 ;;Non-Pay
37 ;;Continuation of Pay
38 ;;VCS Commission Sales
39 ;;FireFighter Overtime
