Changeset 636 for FOIAVistA/tag/r/PAID-PRS/PRS8DR.m
- Timestamp:
- Dec 4, 2009, 8:26:01 PM (14 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/PAID-PRS/PRS8DR.m
r628 r636 1 PRS8DR ;HISC/MRL,JAH/WCIOFO-DECOMPOSITION, DRIVER ; 4/09/20072 ;;4.0;PAID;**22,29,56,90,111 ,112**;Sep 21, 1995;Build 541 PRS8DR ;HISC/MRL,JAH/WCIOFO-DECOMPOSITION, DRIVER ;1/25/2007 2 ;;4.0;PAID;**22,29,56,90,111**;Sep 21, 1995;Build 2 3 3 ;;Per VHA Directive 2004-038, this routine should not be modified. 4 4 ; 5 5 ;This routine determines whether or not the parameters necessary 6 ;to decompose time are in exist ence. The majority of variables6 ;to decompose time are in existance. The majority of variables 7 7 ;involving processing an individual employee are defined in this 8 8 ;routine. … … 20 20 K WK F I=1,2,3 S WK(I)="" ;weekly totals (wk3=misc data) 21 21 D ^PRSAENT S VAL="" ;get entitlement (ENT) 22 I PP="S" G END ; Manila citizen/don't decompose/no stub22 I PP="S" G END ;manilla citizen/don't decompose/no stub 23 23 I $G(PB)["$" G STUB^PRS8CR ;don't decompose stipend/create stub 24 ; Set NAWS to type of AWS25 N NAWS26 S NAWS=027 I "KM"[$E(AC,1),$E(AC,2)=1,NH=72 S NAWS="36/40 AWS"28 I $E(AC,1)="M",$E(AC,2)=2,NH=80 S NAWS="9Mo AWS"29 ;30 24 I "^P^X^"[(U_$P($G(^PRST(458,+PY,"E",DFN,0)),"^",2)_U) S RESTORE=1 31 25 D AUTOPINI^PRS8(+PY,+DFN,$G(RESTORE),.PRVAL) ; remove auto-posted data 32 26 S DOUB=0 I $E(ENT,26),$E(ENT,29) S DOUB=1 ;count standby & oncall same 33 27 S FLX="" S FLX=$P($G(^PRST(458,+PY,"E",DFN,0)),"^",6) 34 I +NAWS=36 S FLX="C"35 28 S (SST,TAL)="",X=$P(C0,"^",8) I X'="" D ;T&L Unit 36 29 .S X=$O(^PRST(455.5,"B",X,0)) ;get ien … … 53 46 I $E($G(AC),2)=3 S TYP=TYP_"I" ;intermittent 54 47 I NH>320 S TYP=TYP_"F" I NH'>448 S TYP=TYP_"f" ;firefighter 55 ; Nurses on the 9month AWS will be treated as FT employees during the 9 months 56 ; that they are working. Prevent a "P" from being added to TYP. 57 I NH,NH'>319,$E(AC,2)'=1 S TYP=TYP_"P" ;part-time 48 I NH,NH'>319 S TYP=TYP_"P" ;part-time 58 49 I PP="L",$E(AC,2)=2 S TYP=TYP_"d" ;doctor 59 50 I PP="L",$E(AC,2)=1 S TYP=TYP_"dR" ;doctor/resident or intern
Note:
See TracChangeset
for help on using the changeset viewer.