PACKAGE BODY: APPS.EDW_HR_PRSN_TYP_PKG

Source

1 PACKAGE BODY edw_hr_prsn_typ_pkg AS
2 /* $Header: hriekpty.pkb 120.0 2005/05/29 07:12:19 appldev noship $ */
3 
4 FUNCTION person_type_fk( p_person_id IN NUMBER,
5                          p_effective_date   IN DATE)
6 			     RETURN VARCHAR2 IS
7   l_person_type_pk       VARCHAR2(2000);
8 
9   l_instance_code        VARCHAR2(40);
10 
11 BEGIN
12 
13   l_person_type_pk := hri_edw_dim_person_type.construct_person_type_pk
14       ( p_person_id, p_effective_date );
15 
16   SELECT instance_code INTO l_instance_code
17   FROM edw_local_instance;
18 
19   RETURN (l_person_type_pk || '-' || l_instance_code);
20 
21 EXCEPTION when others then
22 
23   RETURN NVL(l_person_type_pk, 'NA_EDW');
24 
25 END person_type_fk;
26 
27 END edw_hr_prsn_typ_pkg;