source: FOIAVistA/trunk/r/PAID-PRS/PRSAENX.m@ 1693

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

initial load of FOIAVistA 6/30/08 version

File size: 1.6 KB
Line 
1PRSAENX ; 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
8Q1 ; 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
13Q2 ; 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
17EX G KILL^XUSCLEAN
18ENT ;;
191 ;;Regular Scheduled
202 ;;Regular Unscheduled
213 ;;FF Reg. Sch. Hrs. Over 53
224 ;;Reserved for future use
235 ;;Recess Periods
246 ;;Night Differential - 2
257 ;;Night Differential - 3
268 ;;Saturday Premium
279 ;;Sunday - Day
2810 ;;Sunday - 2
2911 ;;Sunday - 3
3012 ;;Overtime - Day
3113 ;;Overtime - 2
3214 ;;Overtime - 3
3315 ;;Hazardous Duty
3416 ;;Environmental Differential
3517 ;;Scheduled CB OT
3618 ;;Travel OT
3719 ;;Hrs. >8 - Day
3820 ;;Hrs. > 8 - 2
3921 ;;Hrs. > 8 - 3
4022 ;;Holiday - Day
4123 ;;Holiday - 2
4224 ;;Holiday - 3
4325 ;;Holiday OT
4426 ;;On Call
4527 ;;Sleep Time
4628 ;;CompTime/CreditHrs Earn/Use
4729 ;;Standby
4830 ;;Annual/Restored Leave
4931 ;;Sick Leave
5032 ;;NonPay Annual Leave
5133 ;;AWOL/Susp/LWOP
5234 ;;Military Leave
5335 ;;Authorized Absence
5436 ;;Non-Pay
5537 ;;Continuation of Pay
5638 ;;VCS Commission Sales
5739 ;;FireFighter Overtime
Note: See TracBrowser for help on using the repository browser.