PACKAGE BODY: APPS.CN_OU_UTIL_PVT

Source

1 PACKAGE BODY CN_OU_UTIL_PVT AS
2 -- $Header: cnvouutb.pls 120.0 2005/09/09 17:53:26 sbadami noship $
3 
4 G_PKG_NAME               CONSTANT VARCHAR2(30) := 'CN_OU_UTIL_PVT';
5 G_FILE_NAME              CONSTANT VARCHAR2(12) := 'cnvouutb.pls';
6 
7 FUNCTION is_valid_org (
8       p_org_id  NUMBER,
9       p_raise_error VARCHAR2 := 'Y'
10 )
11 RETURN BOOLEAN
12 IS
13 l_ret_val BOOLEAN := FALSE;
14 l_ret_check varchar2(10);
15 BEGIN
16 
17    IF (p_org_id IS NULL AND p_raise_error = 'Y')
18    THEN
19          fnd_message.set_name ('FND', 'MO_OU_REQUIRED');
20          fnd_msg_pub.ADD;
21          RAISE fnd_api.g_exc_error;
22    ELSE
23       RETURN l_ret_val;
24    END IF;
25 
26    l_ret_check := mo_global.check_valid_org (p_org_id);
27 
28    if (l_ret_check = 'Y') then
29      l_ret_val := true;
30    end if;
31 
32    -- if MOAC API's returns false then we need to raise error if p_raise_error = Y
33    If l_ret_val = false and p_raise_error = 'Y'
34    THEN
35          fnd_message.set_name ('FND', 'MO_ORG_INVALID');
36          fnd_msg_pub.ADD;
37          RAISE fnd_api.g_exc_error;
38    END IF;
39 
40    if l_ret_val = false and p_raise_error = 'N'
41    THEN
42       RETURN l_ret_val;
43    END IF;
44 
45    RETURN l_ret_val;
46 
47 END ;
48 
49 
50 
51 END CN_OU_UTIL_PVT;