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