1 PACKAGE BODY AP_WEB_FND_LOOKUPS_PKG AS
2 /* $Header: apwlupsb.pls 115.1 2002/12/26 10:13:20 srinvenk noship $ */
3
4
5 /* --------------------------------------------------------
6 * Written by:
7 * David Tong
8 * Purpose:
9 * - Called by SQL script to get the Meaning from FND_LOOKUPS table
10 * - For performance purpose, we embeded the select statement in this
11 * function instead of calling a procedure
12 * Input:
13 * p_lookup_code - Lookup Code
14 * Output:
15 * Meaning for the Lookup Code
16 * Assumption:
17 * None
18 -----------------------------------------------------------*/
19 FUNCTION getYesNoMeaning(p_lookup_code IN lookups_code) RETURN lookups_meaning
20 IS
21 l_langCode VARCHAR2(100);
22
23 BEGIN
24 l_langCode := userenv('LANG');
25
26 -- need to check whether the session's language has been changed
27 -- if it does, then we need to get the meanings from FND table again
28
29 if (g_langCode is null OR g_langCode <> l_langCode) then
30 g_langCode := l_langCode;
31
32 SELECT MEANING
33 INTO g_yesMeaning
34 FROM FND_LOOKUPS
35 WHERE LOOKUP_TYPE = 'YES_NO'
36 AND LOOKUP_CODE = 'Y';
37
38 SELECT MEANING
39 INTO g_noMeaning
40 FROM FND_LOOKUPS
41 WHERE LOOKUP_TYPE = 'YES_NO'
42 AND LOOKUP_CODE = 'N';
43 end if;
44
45 IF (p_lookup_code = 'Y') THEN
46 return g_yesMeaning;
47 ELSIF (p_lookup_code = 'N') THEN
48 return g_noMeaning;
49 ELSE
50 return null;
51 END IF;
52
53 EXCEPTION
54 WHEN OTHERS THEN
55 return null;
56 END getYesNoMeaning;
57
58
59 END AP_WEB_FND_LOOKUPS_PKG;