| 1 | PRS8SB ;HISC/MRL-DECOMPOSITION, STAND-BY ;3/25/93 10:02
|
|---|
| 2 | ;;4.0;PAID;;Sep 21, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | ;Standby is computed based on hours entered either as part of a
|
|---|
| 5 | ;regularly scheduled tour (scheduled SB) or as an exception. An
|
|---|
| 6 | ;exception would be, for instance, a case where one individual
|
|---|
| 7 | ;substitutes for another who's scheduled. Sleep time is associated
|
|---|
| 8 | ;with the T&L which the employee is assigned to. It can be any
|
|---|
| 9 | ;time (in 15-minute increments) during the day and covers a period
|
|---|
| 10 | ;of 8-hours. When a person is called in during SB the callback is
|
|---|
| 11 | ;entered in the system as OT. No OT is actually paid, however, any
|
|---|
| 12 | ;hours reported during the 8-hour sleeptime period are recorded.
|
|---|
| 13 | ;Sleep time is reduced by the actual number of hours called in until
|
|---|
| 14 | ;the total hits 5 hours. Once that happens then no Sleep Time is
|
|---|
| 15 | ;recorded for that date.
|
|---|
| 16 | ;
|
|---|
| 17 | ;Called by Routines: PRS8AC
|
|---|
| 18 | ;
|
|---|
| 19 | ;B = Standby
|
|---|
| 20 | ;b = OT during Standby (used to figure sleep time)
|
|---|
| 21 | ;
|
|---|
| 22 | S SBY=1,X=$S(VAR1="C":"B",VAR1="c":"b",1:VAR1)
|
|---|
| 23 | I 'DOUB,"Cct"[VAR1 Q ;quit if PPI'="W" & OC
|
|---|
| 24 | S D=$S(T<97:DAY,1:DAY+1) ;proper reporting date
|
|---|
| 25 | S SB(D)=$G(SB(D))+1 ;increment standby time
|
|---|
| 26 | Q
|
|---|
| 27 | ;
|
|---|
| 28 | UP ; --- update counter for standby
|
|---|
| 29 | S D=0
|
|---|
| 30 | ;
|
|---|
| 31 | UP1 ; --- standby time update
|
|---|
| 32 | S D=$O(SB(D)) I D S X=$G(SB(D)) I X S P=34 D SET G UP1
|
|---|
| 33 | ;
|
|---|
| 34 | UP2 ; --- sleep time
|
|---|
| 35 | K SL,SB,SBY,ST Q
|
|---|
| 36 | ;
|
|---|
| 37 | SET ; --- set WK array
|
|---|
| 38 | I D<1!(D>14) Q
|
|---|
| 39 | S W=$S(D<8:1,1:2)
|
|---|
| 40 | S $P(WK(W),"^",P)=$P(WK(W),"^",P)+X Q
|
|---|
