Changeset 636 for FOIAVistA/tag/r/PAID-PRS/PRS8HR.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/PRS8HR.m (modified) (5 diffs)

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

@@ -1 @@
-PRS8HR ;HISC/MRL,WCIOFO/JAH-DECOMPOSITION, HOURS ;06/25/07
- ;;4.0;PAID;**2,22,29,42,52,102,108,112**;Sep 21, 1995;Build 54
- ;;Per VHA Directive 2004-038, this routine should not be modified.
+PRS8HR ;HISC/MRL,WCIOFO/JAH-DECOMPOSITION, HOURS ;05/05/06
+ ;;4.0;PAID;**2,22,29,42,52,102,108**;Sep 21, 1995
  ;
  ;This routine is called by ^PRS8PP (premium pay calculator)
@@ -68 +67 @@
  I TYP["I",$E(AC,1)="L",TH=320,"4OosEe"[VAL Q
  ;
- ;     IF type of time is anything but Leave Without Pay "W" or Non-Pay "n"
- ;     THEN increment total hrs HT & increment HTP.  Also update
- ;     ^TMP global for reference during the processing of On-Call (PRS8OC).
- ;
- I "Wn"'[VAL S HT=HT+1,HTP=HTP+1,^TMP($J,"PRS8",DAY,"HT")=HT
+ ;     IF type of time is anything but (leave w/out pay, comp time) 
+ ;     THEN increment total hrs(HT) & increment HTP if type of 
+ ;     time not non pay or leave w/out pay.
+ ;
+ ; Update daily counter - *102 added non-pay back into daily count
+ ;
+ S HT=HT+1,HTP=HTP+1
  ;
  ;---------------------------------------------------------
@@ -93 +94 @@
  ;
  ; Check for FT Compressed
- I $E(AC,2)=1,NH>319,FLX="C",("OoseE4"[VAL) S GO=1
+ I NH>319,FLX="C",("OoseE4"[VAL) S GO=1
  ;
  ; Check for week
@@ -137 +138 @@
  ;   Check employees with Normal hours less than 80. (Baylor NH=320)
  ;
- I NH'>319!(($E(AC,2)=2)&(NH=320)) D TH^PRS8HRSV D  Q
+ I NH'>319 D TH^PRS8HRSV D  Q
  .I FLX="C" D  Q:X
  ..;
@@ -186 +187 @@
  .S X=$S("Ee"'[VAL:TOUR+19,(TH(W)'>160)&(HT'>32):9,1:7)
  .I TYP["P",VAL[4,TH(W)'>160,HT'>32 S X=9
- .I TYP["P",VAL="O",TH(W)'>160,HT'>32 S X=9
  .D CHK^PRS8HRSV
  Q
+ ;
+ ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ ; ### DELETE UNLESS EARLIER CHECK WAS RESTORED
+CT2DAY() ;Determine if comptime eligible including 2 day tour.
+ ;
+ N TOUREC,TWODAY
+ S (RTN,TWODAY)=0
+ ;
+ ;      IF time segment contains Scheduled or unscheduled comptime 
+ ;      or overtime and there is some time in tour hours worked THEN
+ ;      check if it's a 2 day tour. For 2 day tours some of time worked
+ ;      won't be in HT variable since it occured on other day of two
+ ;      day tour, it's not valid to simply check the HT variable for
+ ;      8 hours of work. (patch PRS*4*22)
+ ;
+ I "OosEe4"[VAL,(HT>0),(NH>319) D
+ .S TOUREC=$P($G(DAY(DAY,0)),"^",2)
+ .I TOUREC>0 S TWODAY=$P($G(^PRST(457.1,TOUREC,0)),"^",5)
+ .I TWODAY="Y" S RTN=1
+ Q RTN