[Home] [Help]
PACKAGE BODY: APPS.XLA_PROFILES_PKG
Source
1 PACKAGE BODY xla_profiles_pkg AS
2 /* $Header: xlacmpro.pkb 120.4 2003/02/25 01:24:34 sasingha ship $ */
3 /*======================================================================+
4 | Copyright (c) 2000-2002 Oracle Corporation |
5 | Redwood Shores, CA, USA |
6 | All rights reserved. |
7 +=======================================================================+
8 | PACKAGE NAME |
9 | xla_profiles_pkg |
10 | |
11 | DESCRIPTION |
12 | XLA Profiles Package |
13 | |
14 | Profile options handling. |
15 | |
16 | HISTORY |
17 | 01-Jan-97 P. Labrevois Created |
18 | 08-Feb-01 P. Labrevois Created for XLA |
19 | |
20 +======================================================================*/
21
22 /*======================================================================+
23 | |
24 | Public Function |
25 | |
26 | get_value |
27 | |
28 | Get a profile option value |
29 | |
30 +======================================================================*/
31 FUNCTION get_value
32 (p_profile IN VARCHAR2)
33 RETURN VARCHAR2
34
35 IS
36
37 l_value VARCHAR2(255);
38
39 BEGIN
40 xla_utility_pkg.trace('> Package xla_profiles_pkg.profile' , 20);
41
42 xla_utility_pkg.trace('Profile name = '||p_profile , 30);
43
44 l_value := fnd_profile.value(p_profile);
45
46 xla_utility_pkg.trace('Profile Value = '||l_value , 30);
47
48 xla_utility_pkg.trace('< Package xla_profiles_pkg.profile' , 20);
49
50 RETURN l_value;
51
52 EXCEPTION
53 WHEN xla_exceptions_pkg.application_exception THEN
54 RAISE;
55 WHEN NO_DATA_FOUND THEN
56 xla_exceptions_pkg.raise_message
57 ('AX' , 'AX_56702_SETUP_NO_PROFILE'
58 ,'PROFILE' , p_profile);
59 WHEN OTHERS THEN
60 xla_exceptions_pkg.raise_message
61 (p_location => 'xla_profiles_pkg.get_value');
62 END get_value;
63
64
65 END xla_profiles_pkg;