1 package body pywspas as
2 /* $Header: pywspas1.pkb 115.0 99/07/17 06:50:45 porting ship $ */
3 --
4 -- get the start date for the earliest record for the assignment,
5 -- and the end date for the latest record for it. These delimit the
6 -- session date range which may be set in called forms.
7 --
8 procedure get_date_limits (p_assignment_id number,
9 p_earliest_date IN OUT date,
10 p_latest_date IN OUT date) is
11
12 cursor c is
13 select min (effective_start_date),
14 max (effective_end_date)
15 from per_assignments_f
16 where assignment_id = p_assignment_id ;
17 begin
18 open c;
19 fetch c into p_earliest_date, p_latest_date;
20 if (c%notfound) then
21 close c;
22 hr_utility.set_message (801, 'HR_6153_ALL_PROCEDURE_FAIL');
23 hr_utility.set_message_token ('PROCEDURE', 'pywspas.get_date_limits');
24 hr_utility.set_message_token ('STEP', '1');
25 hr_utility.raise_error;
26 else
27 close c;
28 end if;
29 end get_date_limits;
30
31 end pywspas;