| 1 | PRSAENX ; HISC/REL-List Entitlement ;3/12/93 12:58
|
|---|
| 2 | ;;4.0;PAID;**34,112**;Sep 21, 1995;Build 54
|
|---|
| 3 | ;;Per VHA Directive 2004-038, this routine should not be modified.
|
|---|
| 4 | 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)
|
|---|
| 5 | W ! K IOP,%ZIS S %ZIS("A")="Select Device: ",%ZIS="MQ" D ^%ZIS K %ZIS,IOP G:POP EX
|
|---|
| 6 | I $D(IO("Q")) S PRSAPGM="Q1^PRSAENX",PRSALST="NAM^ENT" D QUE^PRSAUTL G EX
|
|---|
| 7 | U IO D Q1 D ^%ZISC K %ZIS,IOP G EX
|
|---|
| 8 | Q1 ; Display Entitlement Entry
|
|---|
| 9 | W:$E(IOST,1,2)="C-" @IOF W !?29,"PAY ENTITLEMENT TABLE"
|
|---|
| 10 | W !,"Name: ",NAM,! D Q2
|
|---|
| 11 | I $E(IOST,1,2)="C-" R !!,"Press RETURN to Continue. ",X:DTIME
|
|---|
| 12 | Q
|
|---|
| 13 | Q2 ; Display Entitlement List
|
|---|
| 14 | S M("H")="Hrs.",M("D")="Days",M(0)="No",M(1)="Yes"
|
|---|
| 15 | 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))
|
|---|
| 16 | Q
|
|---|
| 17 | EX G KILL^XUSCLEAN
|
|---|
| 18 | ENT ;;
|
|---|
| 19 | 1 ;;Regular Scheduled
|
|---|
| 20 | 2 ;;Regular Unscheduled
|
|---|
| 21 | 3 ;;FF Reg. Sch. Hrs. Over 53
|
|---|
| 22 | 4 ;;Reserved for future use
|
|---|
| 23 | 5 ;;Recess Periods
|
|---|
| 24 | 6 ;;Night Differential - 2
|
|---|
| 25 | 7 ;;Night Differential - 3
|
|---|
| 26 | 8 ;;Saturday Premium
|
|---|
| 27 | 9 ;;Sunday - Day
|
|---|
| 28 | 10 ;;Sunday - 2
|
|---|
| 29 | 11 ;;Sunday - 3
|
|---|
| 30 | 12 ;;Overtime - Day
|
|---|
| 31 | 13 ;;Overtime - 2
|
|---|
| 32 | 14 ;;Overtime - 3
|
|---|
| 33 | 15 ;;Hazardous Duty
|
|---|
| 34 | 16 ;;Environmental Differential
|
|---|
| 35 | 17 ;;Scheduled CB OT
|
|---|
| 36 | 18 ;;Travel OT
|
|---|
| 37 | 19 ;;Hrs. >8 - Day
|
|---|
| 38 | 20 ;;Hrs. > 8 - 2
|
|---|
| 39 | 21 ;;Hrs. > 8 - 3
|
|---|
| 40 | 22 ;;Holiday - Day
|
|---|
| 41 | 23 ;;Holiday - 2
|
|---|
| 42 | 24 ;;Holiday - 3
|
|---|
| 43 | 25 ;;Holiday OT
|
|---|
| 44 | 26 ;;On Call
|
|---|
| 45 | 27 ;;Sleep Time
|
|---|
| 46 | 28 ;;CompTime/CreditHrs Earn/Use
|
|---|
| 47 | 29 ;;Standby
|
|---|
| 48 | 30 ;;Annual/Restored Leave
|
|---|
| 49 | 31 ;;Sick Leave
|
|---|
| 50 | 32 ;;NonPay Annual Leave
|
|---|
| 51 | 33 ;;AWOL/Susp/LWOP
|
|---|
| 52 | 34 ;;Military Leave
|
|---|
| 53 | 35 ;;Authorized Absence
|
|---|
| 54 | 36 ;;Non-Pay
|
|---|
| 55 | 37 ;;Continuation of Pay
|
|---|
| 56 | 38 ;;VCS Commission Sales
|
|---|
| 57 | 39 ;;FireFighter Overtime
|
|---|
