PACKAGE BODY: APPS.INL_UTILITIES_PKG

Source

1 PACKAGE BODY INL_UTILITIES_PKG AS
2 /* $Header: INLVUTLB.pls 120.0.12020000.2 2013/02/19 16:41:09 acferrei noship $ */
3 
4 -- Utility name : Get_LookupMeaning
5 -- Type       : Private
6 -- Function   : Get the meaning for a given lookup code.
7 -- Pre-reqs   : None
8 -- Parameters :
9 -- IN         : p_lookup_type IN VARCHAR2
10 --              p_lookup_code IN VARCHAR2
11 --
12 -- OUT        : x_return_status OUT NOCOPY VARCHAR2
13 --              x_msg_count OUT NOCOPY NUMBER
14 --              x_msg_data OUT NOCOPY VARCHAR2
15 --
16 -- Version    : Current version 1.0
17 --
18 -- Notes      :
19 Function Get_LookupMeaning (p_lookup_type IN VARCHAR2,
20                                 p_lookup_code IN VARCHAR2,
21                                 x_return_status OUT NOCOPY VARCHAR2,
22                                 x_msg_count OUT NOCOPY NUMBER,
23                                 x_msg_data OUT NOCOPY VARCHAR2 ) RETURN VARCHAR2 IS
24 
25 l_func_name CONSTANT VARCHAR2(30) := 'Get_LookupMeaning';
26 l_debug_info VARCHAR2(200);
27 l_meaning VARCHAR2(80);
28 BEGIN
29 
30     --  Initialize return status to success
31     x_return_status := FND_API.G_RET_STS_SUCCESS;
32 
33     INL_LOGGING_PVT.Log_BeginProc(p_module_name => g_module_name,
34                                   p_procedure_name => l_func_name);
35 
36     INL_LOGGING_PVT.Log_Variable(p_module_name => g_module_name,
37                                   p_procedure_name => l_func_name,
38                                   p_var_name => 'p_lookup_type',
39                                   p_var_value => p_lookup_type);
40 
41     INL_LOGGING_PVT.Log_Variable(p_module_name => g_module_name,
42                                   p_procedure_name => l_func_name,
43                                   p_var_name => 'p_lookup_code',
44                                   p_var_value => p_lookup_code);
45 
46     SELECT flv.meaning
47     INTO l_meaning
48     FROM fnd_lookup_values_vl flv
49     WHERE flv.lookup_type = p_lookup_type
50     AND flv.lookup_code = p_lookup_code
51     AND flv.enabled_flag = 'Y'
52     AND  SYSDATE BETWEEN nvl(flv.start_date_active,sysdate)
53     AND NVL(flv.end_date_active,SYSDATE);
54 
55     INL_LOGGING_PVT.Log_Variable(p_module_name => g_module_name,
56                                   p_procedure_name => l_func_name,
57                                   p_var_name => 'l_meaning',
58                                   p_var_value => l_meaning);
59 
60      -- Standard call to get message count and if count is 1, get message info.
61     FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.g_false,
62                               p_count => x_msg_count,
63                               p_data => x_msg_data);
64 
65     INL_LOGGING_PVT.Log_EndProc(p_module_name => g_module_name,
66                                 p_procedure_name => l_func_name);
67 
68     RETURN l_meaning;
69 
70 EXCEPTION
71     WHEN FND_API.G_EXC_ERROR THEN
72         -- Standard Expected Error Logging
73         INL_LOGGING_PVT.Log_ExpecError(p_module_name => g_module_name,
74                                        p_procedure_name => l_func_name);
75         x_return_status := FND_API.G_RET_STS_ERROR;
76     WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
77         -- Standard Unexpected Error Logging
78         INL_LOGGING_PVT.Log_UnexpecError(p_module_name => g_module_name,
79                                          p_procedure_name => l_func_name);
80         x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
81     WHEN OTHERS THEN
82         -- Standard Unexpected Error Logging
83         INL_LOGGING_PVT.Log_UnexpecError(p_module_name => g_module_name,
84                                          p_procedure_name => l_func_name);
85         x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
86         IF FND_MSG_PUB.Check_Msg_Level(p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
87           FND_MSG_PUB.Add_Exc_Msg(p_pkg_name => g_pkg_name,
88                                   p_procedure_name => l_func_name);
89         END IF;
90 END Get_LookupMeaning;
91 
92 END INL_UTILITIES_PKG;