source: FOIAVistA/trunk/r/PAID-PRS/PRS8SB.m@ 1535

Last change on this file since 1535 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.4 KB
Line 
1PRS8SB ;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 ;
28UP ; --- update counter for standby
29 S D=0
30 ;
31UP1 ; --- 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 ;
34UP2 ; --- sleep time
35 K SL,SB,SBY,ST Q
36 ;
37SET ; --- 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
Note: See TracBrowser for help on using the repository browser.