1 package body pay_pump_get as
2 /* $Header: paydpget.pkb 115.0 2003/02/14 15:07:29 arashid noship $ */
3 --------------------------- user_key_to_id ----------------------------------
4 /*
5 NAME
6 user_key_to_id
7 DESCRIPTION
8 Returns an ID value from hr_pump_batch_line_user_keys alone.
9 NOTES
10 Utility function to get _ID functions.
11 */
12 function user_key_to_id
13 (p_where in varchar2
14 ,p_user_key_value in varchar2
15 ) return number is
16 l_id number;
17 begin
18 select unique_key_id
19 into l_id
20 from hr_pump_batch_line_user_keys
21 where user_key_value = p_user_key_value;
22 return(l_id);
23 exception
24 when others then
25 hr_data_pump.fail(p_where, sqlerrm, p_user_key_value);
26 raise;
27 end user_key_to_id;
28 --------------------------- get_run_type_id ---------------------------------
29 function get_run_type_id
30 (p_run_type_user_key in varchar2
31 ) return number is
32 begin
33 return
34 user_key_to_id
35 (p_where => 'PAY_PUMP_GET.GET_RUN_TYPE_ID'
36 ,p_user_key_value => p_run_type_user_key
37 );
38 end get_run_type_id;
39 --------------------------- get_run_type_ovn --------------------------------
40 function get_run_type_ovn
41 (p_run_type_user_key in varchar2
42 ,p_effective_date in date
43 ) return number is
44 l_ovn number;
45 begin
46 select rt.object_version_number
47 into l_ovn
48 from pay_run_types_f rt
49 , hr_pump_batch_line_user_keys key
50 where key.user_key_value = p_run_type_user_key
51 and rt.run_type_id = key.unique_key_id
52 and p_effective_date between
53 rt.effective_start_date and rt.effective_end_date;
54 return(l_ovn);
55 exception
56 when others then
57 hr_data_pump.fail
58 ('PAY_PUMP_GET.GET_RUN_TYPE_OVN', sqlerrm, p_run_type_user_key,
59 p_effective_date);
60 raise;
61 end get_run_type_ovn;
62 end pay_pump_get;