PACKAGE BODY: APPS.EDW_HR_RQN_VCNCY_PKG

Source

1 PACKAGE BODY edw_hr_rqn_vcncy_pkg AS
2 /* $Header: hriekvac.pkb 120.0 2005/05/29 07:12:43 appldev noship $ */
3 
4 FUNCTION vacancy_fk( p_vacancy_id IN NUMBER)
5 			     RETURN VARCHAR2 IS
6 
7   l_vacancy_pk VARCHAR2(400);
8 
9   cursor vacancy_cur is
10   select vacancy_pk
11   from edw_hr_rqn_vcncy_fkv
12   where p_vacancy_id = vacancy_id;
13 
14 BEGIN
15 
16   OPEN vacancy_cur;
17   FETCH vacancy_cur INTO l_vacancy_pk;
18   CLOSE vacancy_cur;
19 
20   RETURN NVL(l_vacancy_pk, 'NA_EDW');
21 
22 EXCEPTION when others then
23 
24   if vacancy_cur%ISOPEN then
25     CLOSE vacancy_cur;
26   end if;
27 
28   RETURN NVL(l_vacancy_pk, 'NA_EDW');
29 
30 END vacancy_fk;
31 
32 END edw_hr_rqn_vcncy_pkg;