| 1 | PRS8HROT ;JAH/WCIOFO-Calc time over 8/day &/or 40/week ;02/03/06
|
|---|
| 2 | ;;4.0;PAID;**29,42,52,102**;Sep 21, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | OVER840 ;
|
|---|
| 5 | ; If overtime coded & either holiday worked or holiday excused
|
|---|
| 6 | ; Then set type of time to Holiday Hrs (shift Day, 2 or 3).
|
|---|
| 7 | ;
|
|---|
| 8 | I VAL="O",HOLWKEX S X=TOUR+28 D CHK^PRS8HRSV Q:X
|
|---|
| 9 | ;
|
|---|
| 10 | ; If > 8 hrs & not compressed ** results of G8
|
|---|
| 11 | ;
|
|---|
| 12 | I HT>32 D G8^PRS8HRSV Q:X
|
|---|
| 13 | ;
|
|---|
| 14 | I "1235nHMLSWNARUXYVJFGD"[VAL,NH>319 Q
|
|---|
| 15 | ;
|
|---|
| 16 | ; If Baylor Plan
|
|---|
| 17 | ;
|
|---|
| 18 | I TYP["B" D Q:X
|
|---|
| 19 | .;
|
|---|
| 20 | .; IF weeks hours greater than 8 & TIME not coded as comp-time
|
|---|
| 21 | .; THEN set TIME to OT-Total Hrs (shift Day, 2 or 3)
|
|---|
| 22 | .;
|
|---|
| 23 | .I HT>32 S X=$S("Ee"'[VAL:TOUR+19,1:7) D CHK^PRS8HRSV Q:X
|
|---|
| 24 | .;
|
|---|
| 25 | .; IF Total Hours for the current week are <= 40
|
|---|
| 26 | .; THEN TIME gets unscheduled regular.
|
|---|
| 27 | .;
|
|---|
| 28 | .I TH(W)'>160 S X=9 D CHK^PRS8HRSV Q:X
|
|---|
| 29 | .;
|
|---|
| 30 | .; IF Total Hours for the current week ARE > 40
|
|---|
| 31 | .; AND total hours for today are <= 8
|
|---|
| 32 | .; AND Time is not comp-time
|
|---|
| 33 | .; THEN Time gets Unscheduled regular.
|
|---|
| 34 | .;
|
|---|
| 35 | .I TH(W)>160,HT<33,"Ee"'[VAL S X=9 D CHK^PRS8HRSV Q:X
|
|---|
| 36 | ;
|
|---|
| 37 | ; IF not comp-time THEN Time = Overtime, otherwise
|
|---|
| 38 | ; part timers get unscheduled reg until 8/day, 40/week
|
|---|
| 39 | ; UNSCHEDULED REGULAR WILL BE CODED AS OT for over 8/day
|
|---|
| 40 | ;
|
|---|
| 41 | S X=$S("Ee"'[VAL:TOUR+19,1:7)
|
|---|
| 42 | D CHK^PRS8HRSV
|
|---|
| 43 | ;
|
|---|
| 44 | ;-------------------------------------------------------------------
|
|---|
| 45 | Q
|
|---|
| 46 | NORMHRS ;
|
|---|
| 47 | ; IF part-time employee AND time is LWOP or Non-Pay AND employee has OT
|
|---|
| 48 | ; THEN decrement OT and try to post time as Unscheduled Regular (UN/US).
|
|---|
| 49 | ;
|
|---|
| 50 | I FLX="C" S X=32 D CHK^PRS8HRSV Q:X
|
|---|
| 51 | ;
|
|---|
| 52 | I HT'>32 S X=32 D CHK^PRS8HRSV Q:X
|
|---|
| 53 | ;
|
|---|
| 54 | ; if pt-doctor don't do G8
|
|---|
| 55 | I HT>32,TYP'["Pd" D G8^PRS8HRSV Q:"^16^17^18^"[("^"_X_"^")
|
|---|
| 56 | ;
|
|---|
| 57 | S X=32 D CHK^PRS8HRSV
|
|---|
| 58 | Q
|
|---|
