[Home] [Help]
PACKAGE BODY: APPS.PQP_VEHICLE_DETAILS_MAPPING
Source
1 PACKAGE BODY PQP_VEHICLE_DETAILS_MAPPING AS
2 --$Header: pqpvhdmp.pkb 115.1 2001/04/04 11:10:25 pkm ship $
3 ---------------------------------------------------------------------------
4 -- GET_VEHICLE_DETAILS_ID --
5 ---------------------------------------------------------------------------
6 FUNCTION get_vehicle_details_id
7 ( p_vehicle_details_user_key IN VARCHAR2)
8 RETURN NUMBER IS
9
10 l_vehicle_details_id PQP_VEHICLE_DETAILS.vehicle_details_id%TYPE;
11
12 CURSOR veh_cur IS
13 SELECT unique_key_id
14 FROM hr_pump_batch_line_user_keys
15 WHERE user_key_value = p_vehicle_details_user_key;
16 BEGIN
17 OPEN veh_cur;
18 FETCH veh_cur INTO l_vehicle_details_id;
19 CLOSE veh_cur;
20
21 RETURN(l_vehicle_details_id);
22
23 EXCEPTION
24 WHEN OTHERS THEN
25 hr_data_pump.fail('get_vehicle_details_id' ,
26 SQLERRM ,
27 p_vehicle_details_user_key);
28 RAISE;
29 END get_vehicle_details_id;
30
31 ---------------------------------------------------------------------------
32 -- GET_VEHICLE_DETAILS_OVN
33 ---------------------------------------------------------------------------
34
35 FUNCTION get_vehicle_details_ovn
36 ( p_vehicle_details_user_key IN VARCHAR2)
37 RETURN NUMBER IS
38
39 l_vehicle_details_ovn PQP_VEHICLE_DETAILS.object_version_number%TYPE;
40 CURSOR ovn_cur(p_user_key_value IN VARCHAR2) IS
41 SELECT object_version_number
42 FROM pqp_vehicle_details pvd,
43 hr_pump_batch_line_user_keys key
44 WHERE key.user_key_value = p_user_key_value
45 AND pvd.vehicle_details_id = key.unique_key_id ;
46 BEGIN
47 OPEN ovn_cur(p_vehicle_details_user_key);
48 FETCH ovn_cur INTO l_vehicle_details_ovn;
49 CLOSE ovn_cur;
50 RETURN l_vehicle_details_ovn;
51 EXCEPTION
52 WHEN OTHERS THEN
53 hr_data_pump.fail('get_vehicle_details_ovn' ,
54 SQLERRM ,
55 p_vehicle_details_user_key);
56 RAISE;
57 END get_vehicle_details_ovn;
58
59 END pqp_vehicle_details_mapping;