| 1 | PRSALVT ; HISC/REL-Leave Increment ;9/12/2006
|
|---|
| 2 | ;;4.0;PAID;**111**;Sep 21, 1995;Build 2
|
|---|
| 3 | ;;Per VHA Directive 2004-038, this routine should not be modified.
|
|---|
| 4 | S AINC="",SINC=""
|
|---|
| 5 | S C0=^PRSPC(DFN,0),LVG=$P(C0,"^",15),NH=+$P(C0,"^",16),DB=$P(C0,"^",10)
|
|---|
| 6 | Q:LVG'?1N!("12345"'[LVG) G:NH>80 FF D @LVG G QT
|
|---|
| 7 | 1 ; Leave Group 1
|
|---|
| 8 | S AINC=$S(DB=1:4,1:NH+AINC/20\1),SINC=$S(DB=1:4,1:NH+SINC/20\1) Q
|
|---|
| 9 | 2 ; Leave Group 2
|
|---|
| 10 | S AINC=$S(DB=1:6,1:NH+AINC/13\1),SINC=$S(DB=1:4,1:NH+SINC/20\1) Q
|
|---|
| 11 | 3 ; Leave Group 3
|
|---|
| 12 | S AINC=$S(DB=1:8,1:NH+AINC/10\1),SINC=$S(DB=1:4,1:NH+SINC/20\1) Q
|
|---|
| 13 | 4 ; Leave Group 4
|
|---|
| 14 | S D1=$E(DT,1,3)_"1231" D PP^PRSAPPU S D1=$P(PPE,"-",2)
|
|---|
| 15 | I D1=26 S AINC=1,SINC=.5 Q
|
|---|
| 16 | S AINC=.963,SINC=.481 Q
|
|---|
| 17 | 5 ; Leave Group 5
|
|---|
| 18 | S D1=$E(DT,1,3)_"1231" D PP^PRSAPPU S D1=$P(PPE,"-",2)
|
|---|
| 19 | S SINC=$S(D1=26:.5,1:.481) Q
|
|---|
| 20 | FF ; Firefighters
|
|---|
| 21 | I LVG=1 S AINC=$S(NH=112:5,NH=120:6,1:7)
|
|---|
| 22 | I LVG=2 S AINC=$S(NH=112:8,NH=120:9,1:11)
|
|---|
| 23 | I LVG=3 S AINC=$S(NH=112:11,NH=120:12,1:14)
|
|---|
| 24 | S SINC=$S(NH=112:5,NH=120:6,1:7)
|
|---|
| 25 | QT ; Check Non-Accrual Flag
|
|---|
| 26 | S:$P($G(^PRSPC(DFN,"ANNUAL")),"^",1)="Y" AINC="" Q
|
|---|
