[Home] [Help]
PACKAGE BODY: APPS.PQP_VEHICLE_REPOSITORY_MAPPING
Source
1 PACKAGE BODY PQP_VEHICLE_REPOSITORY_MAPPING AS
2 --$Header: pqpvhdmp.pkb 115.2 2003/03/13 02:18:06 sshetty noship $
3 ---------------------------------------------------------------------------+
4 -- GET_VEHICLE_REPOSITORY_ID --
5 ---------------------------------------------------------------------------+
6 FUNCTION get_vehicle_repository_id
7 ( p_vehicle_repository_user_key IN VARCHAR2)
8 RETURN NUMBER IS
9
10 l_vehicle_repository_id PQP_VEHICLE_REPOSITORY_F.vehicle_repository_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_repository_user_key;
16 BEGIN
17 OPEN veh_cur;
18 FETCH veh_cur INTO l_vehicle_repository_id;
19 CLOSE veh_cur;
20
21 RETURN(l_vehicle_repository_id);
22
23 EXCEPTION
24 WHEN OTHERS THEN
25 hr_data_pump.fail('get_vehicle_repository_id' ,
26 SQLERRM ,
27 p_vehicle_repository_user_key);
28 RAISE;
29 END get_vehicle_repository_id;
30
31 ---------------------------------------------------------------------------+
32 -- GET_VEHICLE_REPOSITORY_OVN
33 ---------------------------------------------------------------------------+
34
35 FUNCTION get_vehicle_repository_ovn
36 ( p_vehicle_repository_user_key IN VARCHAR2)
37 RETURN NUMBER IS
38
39 l_vehicle_repository_ovn PQP_VEHICLE_REPOSITORY_F.object_version_number%TYPE;
40 CURSOR ovn_cur(p_user_key_value IN VARCHAR2) IS
41 SELECT object_version_number
42 FROM pqp_vehicle_repository_f pvd,
43 hr_pump_batch_line_user_keys key
44 WHERE key.user_key_value = p_user_key_value
45 AND pvd.vehicle_repository_id = key.unique_key_id ;
46 BEGIN
47 OPEN ovn_cur(p_vehicle_repository_user_key);
48 FETCH ovn_cur INTO l_vehicle_repository_ovn;
49 CLOSE ovn_cur;
50 RETURN l_vehicle_repository_ovn;
51 EXCEPTION
52 WHEN OTHERS THEN
53 hr_data_pump.fail('get_vehicle_repository_ovn' ,
54 SQLERRM ,
55 p_vehicle_repository_user_key);
56 RAISE;
57 END get_vehicle_repository_ovn;
58
59 END pqp_vehicle_repository_mapping;