PACKAGE BODY: APPS.HRI_BPL_CCMGR

Source

1 PACKAGE BODY hri_bpl_ccmgr AS
2 /* $Header: hribccmgr.pkb 120.0.12000000.2 2007/04/12 12:03:01 smohapat noship $ */
3 
4 FUNCTION get_ccmgr_id(p_organization_id    IN NUMBER)
5      RETURN NUMBER IS
6 
7   CURSOR ccmgr_csr IS
8   SELECT
9    o_mgr.org_information2
10   FROM
11    hri_cl_org_cc_v cl_cc
12   ,hr_organization_information o_mgr
13   WHERE o_mgr.org_information_context = 'Organization Name Alias'
14   AND cl_cc.ID = o_mgr.organization_id
15   AND cl_cc.ID = p_organization_id;
16 
17   l_ccmgr_id  NUMBER;
18 
19 BEGIN
20 
21   OPEN ccmgr_csr;
22   FETCH ccmgr_csr INTO l_ccmgr_id;
23   CLOSE ccmgr_csr;
24 
25   IF l_ccmgr_id IS NULL THEN
26     l_ccmgr_id := -1;
27   END IF;
28 
29   RETURN l_ccmgr_id;
30 
31 EXCEPTION WHEN OTHERS THEN
32 
33   IF ccmgr_csr%ISOPEN THEN
34     CLOSE ccmgr_csr;
35   END IF;
36 
37   RETURN -1;
38 
39 END get_ccmgr_id;
40 
41 END hri_bpl_ccmgr;