PACKAGE BODY: APPS.EDW_HR_AGE_BAND_PKG

Source

1 PACKAGE BODY edw_hr_age_band_pkg AS
2 /* $Header: hriekagb.pkb 120.0 2005/05/29 07:11:18 appldev noship $ */
3 
4 FUNCTION age_band_fk( p_age IN NUMBER)
5                RETURN VARCHAR2 IS
6 
7   l_age_band_pk VARCHAR2(400);
8 
9   cursor age_band_cur is
10   select age_band_pk
11   from edw_hr_age_band_fkv
12   where age_min <= p_age
13   and p_age < nvl(age_max,p_age+1);
14 
15 BEGIN
16 
17   OPEN age_band_cur;
18   FETCH age_band_cur INTO l_age_band_pk;
19   CLOSE age_band_cur;
20 
21   RETURN NVL(l_age_band_pk, 'NA_EDW');
22 
23 EXCEPTION when others then
24 
25   if age_band_cur%ISOPEN then
26     CLOSE age_band_cur;
27   end if;
28 
29   RETURN NVL(l_age_band_pk, 'NA_EDW');
30 
31 END age_band_fk;
32 
33 END edw_hr_age_band_pkg;