Changeset 636 for FOIAVistA/tag/r/PAID-PRS/PRS8HRSV.m

Timestamp:

Dec 4, 2009, 8:26:01 PM (14 years ago)

Author:

George Lilly

Message:

WorldVistAEHR overlayed on FOIAVistA

Location:

FOIAVistA/tag/r

Files:

• . (copied) (copied from FOIAVistA/trunk/r )
• PAID-PRS/PRS8HRSV.m (modified) (5 diffs)

FOIAVistA/tag/r/PAID-PRS/PRS8HRSV.m

@@ -1 @@
-PRS8HRSV ;WCIOFO/JAH-HOLIDAY FLAG, TIME CHECKER, WK() SET; 04/05/07
- ;;4.0;PAID;**29,52,102,108,112**;Sep 21, 1995;Build 54
- ;;Per VHA Directive 2004-038, this routine should not be modified.
- ;  Set up variable for holiday worked or holiday excused
+PRS8HRSV ;WCIOFO/JAH-HOLIDAY FLAG, TIME CHECKER, WK() SET; 05/02/06
+ ;;4.0;PAID;**29,52,102,108**;Sep 21, 1995
+ ;  Set up variable for holiday worked or holiday exused
  ;  Holiday worked coded 2 in DAY array
- ;  Holiday excused coded 1 in DAY array
+ ;  Holiday exused coded 1 in DAY array
  ;  A NON holiday is coded as all zero's in day array.
  ;
@@ -61 +60 @@
  I X,Y=2,$E(ENT,+Y)'="H" S X=$S(TYP'["B":0,1:9)
  ;
- ;   IF 36/40 AWS with WP determine eligibility for OT/CT
- ;   Skip this check if time is HW (X=29) or OT on Hol (X=24)
- ;   
- I "KM"[$E(AC,1),$E(AC,2)=1,$P(C0,U,16)=72,X'=32,X'=29,X'=24 D
- . I HT>32 S X=$S(VAL="O":TOUR+15,VAL="e":7,1:X)  Q
- . I TH(W)>160 S X=$S(VAL="O":TOUR+19,VAL="e":7,1:X)  Q
- . I HT'>32,TH(W)'>160 S X=9
- ;
  ;   If X is hours in excess of 8/day & > 40/week & type of time
  ;   is compensatory time X = 0
@@ -112 +103 @@
  ..I X'=32,$E(ENT,25),'HOLWKD D
  ...S ZZ=X
- ...; for 36/40 AWS w/ WP or NP report OT on Holiday as (OK/OS)
- ...; For 9mo AWS w/ Recess report OT on Holiday as (OK/OS)
- ...I +NAWS,VAL["O",$E(DAY(DAY,"HOL"),M)=0 S X=24 D SET S X=0 Q
- ...;
  ...S X=$S(TYP["P"!(TYP["I"):TOUR+28,1:24) D SET
  ...I TYP["P"!(TYP["I") S X=9 D SET
@@ -167 +154 @@
 SET ; --- Set value into WK array
  ;
- ; Nurses on the 36/40 AWS are FT with Normal Hours of 72.  Nurses on the 9 month
- ; AWS are PT with Normal Hours of 80.  Neither will not have Part Time Hours
- ; counted in their 8B string.
- ;
- Q:$E(AC,2)=1&($P(C0,U,16)=72)&(X=32)  ; 36/40 AWS
- Q:$E(AC,2)=2&(NH=320)&(X=32)  ; 9month AWS before any Recess processed
- ;
  ;     Full time employee & part time hours & normal hours WK1 + WK2
  ;     = biweekly normal hours.
@@ -198 +178 @@
  I $S(VAL=4:1,"osEe"[VAL!(VAL="O"&('HOLWKD)):1,1:0) D
  . Q:(HT>32)&(TH(W)<160)&(NH<320)&($E(ENT,19)=1)
- . Q:(HT>32)&(TH(W)<160)&(NH=320)&($E(ENT,19)=1)&($E(AC,2)=2)  ; 9month AWS
  . S TH=TH+1,TH(W)=TH(W)+1
  Q