PACKAGE BODY: APPS.XLA_OA_FUNCTIONS_PKG

Source

1 PACKAGE BODY xla_oa_functions_pkg AS
2 /* $Header: xlaoaftn.pkb 120.3 2003/04/26 00:38:04 wychan ship $ */
3 
4 -------------------------------------------------------------------------------
5 -- declaring global types
6 -------------------------------------------------------------------------------
7 
8 -------------------------------------------------------------------------------
9 -- forward declarion of private procedures and functions
10 -------------------------------------------------------------------------------
11 
12 -------------------------------------------------------------------------------
13 -- declaring global constants
14 -------------------------------------------------------------------------------
15 
16 --=============================================================================
17 --          *********** public procedures and functions **********
18 --=============================================================================
19 
20 
21 --=============================================================================
22 --
23 --
24 --
25 --=============================================================================
26 FUNCTION get_ccid_description
27   (p_coa_id             IN INTEGER
28   ,p_ccid               IN INTEGER)
29 RETURN VARCHAR2
30 IS
31   l_desc	VARCHAR2(2400) := null;
32 BEGIN
33   xla_utility_pkg.trace('> .get_ccid_description', 20);
34 
35   if (fnd_flex_keyval.validate_ccid('SQLGL', 'GL#', p_coa_id, p_ccid)) then
36     l_desc := fnd_flex_keyval.concatenated_descriptions;
37   end if;
38 
39   xla_utility_pkg.trace('< .get_ccid_description', 20);
40   return l_desc;
41 EXCEPTION
42 WHEN xla_exceptions_pkg.application_exception THEN
43   RAISE;
44 WHEN OTHERS                                   THEN
45   xla_exceptions_pkg.raise_message
46       (p_location => 'xla_oa_functions_pkg.get_ccid_description');
47 
48 END get_ccid_description;
49 
50 FUNCTION get_message
51   (p_encoded_msg	IN VARCHAR2)
52 RETURN VARCHAR2
53 IS
54   l_msg 	VARCHAR2(2000);
55 BEGIN
56   xla_utility_pkg.trace('> .get_message', 20);
57 
58   fnd_message.set_encoded(p_encoded_msg);
59   l_msg := fnd_message.get();
60 
61   xla_utility_pkg.trace('< .get_message', 20);
62   return l_msg;
63 EXCEPTION
64 WHEN xla_exceptions_pkg.application_exception THEN
65   RAISE;
66 WHEN OTHERS                                   THEN
67   xla_exceptions_pkg.raise_message
68       (p_location => 'xla_oa_functions_pkg.get_message');
69 
70 END get_message;
71 
72 
73 end xla_oa_functions_pkg;