1: PACKAGE BODY xla_lookups_pkg AS
2: /* $Header: xlacmlkp.pkb 120.3 2003/03/18 00:40:30 dcshah ship $ */
3: /*======================================================================+
4: | Copyright (c) 1995-2002 Oracle Corporation |
5: | Redwood Shores, CA, USA |
8: | PACKAGE NAME |
9: | xla_lookup_pkg |
10: | |
11: | DESCRIPTION |
12: | XLA Lookups Package |
13: | |
14: | HISTORY |
15: | 07-Dec-95 P. Labrevois Created |
16: | 08-Feb-01 Converted to XLA |
35:
36: l_meaning VARCHAR2(80);
37:
38: BEGIN
39: xla_utility_pkg.trace('> xla_lookups_pkg.get_meaning' , 10);
40:
41: xla_utility_pkg.trace('Lookup type = '||p_lookup_type , 20);
42: xla_utility_pkg.trace('Lookup_code = '||p_lookup_code , 20);
43:
42: xla_utility_pkg.trace('Lookup_code = '||p_lookup_code , 20);
43:
44: SELECT meaning
45: INTO l_meaning
46: FROM xla_lookups
47: WHERE lookup_type = p_lookup_type
48: AND lookup_code = p_lookup_code
49: ;
50:
49: ;
50:
51: xla_utility_pkg.trace('Meaning = '||l_meaning , 20);
52:
53: xla_utility_pkg.trace('< xla_lookups_pkg.get_meaning' , 10);
54:
55: RETURN l_meaning;
56:
57: EXCEPTION
58: WHEN xla_exceptions_pkg.application_exception THEN
59: RAISE;
60: WHEN OTHERS THEN
61: xla_exceptions_pkg.raise_message
62: (p_location => 'xla_lookups_pkg.get_meaning');
63: END get_meaning;
64:
65:
66: /*======================================================================+
81:
82: l_meaning VARCHAR2(80);
83:
84: BEGIN
85: xla_utility_pkg.trace('> xla_lookups_pkg.get_lookuptype_meaning' , 10);
86:
87: xla_utility_pkg.trace('Lookup type = '||p_lookup_type , 20);
88: xla_utility_pkg.trace('Lookup_code = '||p_view_application_id , 20);
89:
95: ;
96:
97: xla_utility_pkg.trace('Meaning = '||l_meaning , 20);
98:
99: xla_utility_pkg.trace('< xla_lookups_pkg.get_lookuptype_meaning' , 10);
100:
101: RETURN l_meaning;
102:
103: EXCEPTION
104: WHEN xla_exceptions_pkg.application_exception THEN
105: RAISE;
106: WHEN OTHERS THEN
107: xla_exceptions_pkg.raise_message
108: (p_location => 'xla_lookups_pkg.get_lookuptype_meaning');
109: END get_lookuptype_meaning;
110:
111: END xla_lookups_pkg;
107: xla_exceptions_pkg.raise_message
108: (p_location => 'xla_lookups_pkg.get_lookuptype_meaning');
109: END get_lookuptype_meaning;
110:
111: END xla_lookups_pkg;