DBA Data[Home] [Help]

PACKAGE BODY: APPS.PYWSPAS

Source


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;