source: FOIAVistA/tag/r/PAID-PRS/PRSAENX.m@ 719

Last change on this file since 719 was 636, checked in by George Lilly, 15 years ago

WorldVistAEHR overlayed on FOIAVistA

File size: 1.6 KB
Line 
1PRSAENX ; HISC/REL-List Entitlement ;3/12/93 12:58
2 ;;4.0;PAID;**34**;Sep 21, 1995
3 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)
4 W ! K IOP,%ZIS S %ZIS("A")="Select Device: ",%ZIS="MQ" D ^%ZIS K %ZIS,IOP G:POP EX
5 I $D(IO("Q")) S PRSAPGM="Q1^PRSAENX",PRSALST="NAM^ENT" D QUE^PRSAUTL G EX
6 U IO D Q1 D ^%ZISC K %ZIS,IOP G EX
7Q1 ; Display Entitlement Entry
8 W:$E(IOST,1,2)="C-" @IOF W !?29,"PAY ENTITLEMENT TABLE"
9 W !,"Name: ",NAM,! D Q2
10 I $E(IOST,1,2)="C-" R !!,"Press RETURN to Continue. ",X:DTIME
11 Q
12Q2 ; Display Entitlement List
13 S M("H")="Hrs.",M("D")="Days",M(0)="No",M(1)="Yes"
14 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))
15 Q
16EX G KILL^XUSCLEAN
17ENT ;;
181 ;;Regular Scheduled
192 ;;Regular Unscheduled
203 ;;Reg. Hrs. at OT Rate - Day
214 ;;Reg. Hrs. at OT Rate - 2
225 ;;Reg. Hrs. at OT Rate - 3
236 ;;Night Differential - 2
247 ;;Night Differential - 3
258 ;;Saturday Premium
269 ;;Sunday - Day
2710 ;;Sunday - 2
2811 ;;Sunday - 3
2912 ;;Overtime - Day
3013 ;;Overtime - 2
3114 ;;Overtime - 3
3215 ;;Hazardous Duty
3316 ;;Environmental Differential
3417 ;;Scheduled CB OT
3518 ;;Travel OT
3619 ;;Hrs. >8 - Day
3720 ;;Hrs. > 8 - 2
3821 ;;Hrs. > 8 - 3
3922 ;;Holiday - Day
4023 ;;Holiday - 2
4124 ;;Holiday - 3
4225 ;;Holiday OT
4326 ;;On Call
4427 ;;Sleep Time
4528 ;;CompTime/CreditHrs Earn/Use
4629 ;;Standby
4730 ;;Annual/Restored Leave
4831 ;;Sick Leave
4932 ;;NonPay Annual Leave
5033 ;;AWOL/Susp/LWOP
5134 ;;Military Leave
5235 ;;Authorized Absence
5336 ;;Non-Pay
5437 ;;Continuation of Pay
5538 ;;VCS Commission Sales
5639 ;;FireFighter Overtime
Note: See TracBrowser for help on using the repository browser.