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;