1: PACKAGE BODY hr_bis AS
2: /* $Header: hr_bis.pkb 120.1 2005/08/11 10:09:42 cbridge noship $ */
3:
4: TYPE lookup_value_pair_rec IS RECORD(
5: lookup_type fnd_lookup_values.lookup_type%TYPE,
6: lookup_code fnd_lookup_values.lookup_code%TYPE,
7: meaning fnd_lookup_values.meaning%TYPE);
8:
9: TYPE fnd_lookups_cache_tabtype IS table OF lookup_value_pair_rec
2: /* $Header: hr_bis.pkb 120.1 2005/08/11 10:09:42 cbridge noship $ */
3:
4: TYPE lookup_value_pair_rec IS RECORD(
5: lookup_type fnd_lookup_values.lookup_type%TYPE,
6: lookup_code fnd_lookup_values.lookup_code%TYPE,
7: meaning fnd_lookup_values.meaning%TYPE);
8:
9: TYPE fnd_lookups_cache_tabtype IS table OF lookup_value_pair_rec
10: INDEX BY BINARY_INTEGER;
3:
4: TYPE lookup_value_pair_rec IS RECORD(
5: lookup_type fnd_lookup_values.lookup_type%TYPE,
6: lookup_code fnd_lookup_values.lookup_code%TYPE,
7: meaning fnd_lookup_values.meaning%TYPE);
8:
9: TYPE fnd_lookups_cache_tabtype IS table OF lookup_value_pair_rec
10: INDEX BY BINARY_INTEGER;
11: g_lookups_tab fnd_lookups_cache_tabtype;
11: g_lookups_tab fnd_lookups_cache_tabtype;
12: -- define the client info
13: g_client_info VARCHAR2(64) := USERENV('CLIENT_INFO'); -- bug 1533907
14: -- define the security group
15: g_security_group_id fnd_lookup_values.security_group_id%TYPE;
16: -- define a global meaning
17: g_meaning fnd_lookup_values.meaning%TYPE;
18: -- define a holder for the hash number
19: g_hash_number BINARY_INTEGER;
13: g_client_info VARCHAR2(64) := USERENV('CLIENT_INFO'); -- bug 1533907
14: -- define the security group
15: g_security_group_id fnd_lookup_values.security_group_id%TYPE;
16: -- define a global meaning
17: g_meaning fnd_lookup_values.meaning%TYPE;
18: -- define a holder for the hash number
19: g_hash_number BINARY_INTEGER;
20: -- define the bis_decode_lookup cursors
21: CURSOR g_csr_lookup_select_sg(
21: CURSOR g_csr_lookup_select_sg(
22: c_lookup_type VARCHAR2,
23: c_lookup_code VARCHAR2) IS
24: SELECT flv.meaning
25: FROM fnd_lookup_values flv
26: WHERE flv.lookup_code = c_lookup_code
27: AND flv.lookup_type = c_lookup_type
28: AND flv.language = USERENV('LANG')
29: AND flv.view_application_id = 3
35: CURSOR g_csr_lookup_default_sg(
36: c_lookup_type VARCHAR2,
37: c_lookup_code VARCHAR2) IS
38: SELECT flv.meaning
39: FROM fnd_lookup_values flv
40: WHERE flv.lookup_code = c_lookup_code
41: AND flv.lookup_type = c_lookup_type
42: AND flv.language = USERENV('LANG')
43: AND flv.view_application_id = 3
48: --******************************************************************************
49: FUNCTION bis_decode_lookup(
50: p_lookup_type VARCHAR2,
51: p_lookup_code VARCHAR2)
52: RETURN fnd_lookup_values.meaning%TYPE IS
53: BEGIN
54: -- Note the language, security group and legislation code cannot
55: -- be changed within a Discoverer session
56: -- check to ensure the lookup type/code combo is NOT NULL
197:
198: FUNCTION decode_lang_lookup(p_language VARCHAR2,
199: p_lookup_type VARCHAR2,
200: p_lookup_code VARCHAR2)
201: RETURN fnd_lookup_values.meaning%TYPE IS
202:
203: l_meaning fnd_lookup_values.meaning%TYPE := TO_CHAR(NULL);
204:
205: -- define the bis_decode_lookup cursors
199: p_lookup_type VARCHAR2,
200: p_lookup_code VARCHAR2)
201: RETURN fnd_lookup_values.meaning%TYPE IS
202:
203: l_meaning fnd_lookup_values.meaning%TYPE := TO_CHAR(NULL);
204:
205: -- define the bis_decode_lookup cursors
206: CURSOR csr_lookup_select_sg(
207: c_language VARCHAR2,
207: c_language VARCHAR2,
208: c_lookup_type VARCHAR2,
209: c_lookup_code VARCHAR2) IS
210: SELECT flv.meaning
211: FROM fnd_lookup_values flv
212: WHERE flv.lookup_code = c_lookup_code
213: AND flv.lookup_type = c_lookup_type
214: AND flv.language = c_language
215: AND flv.view_application_id = 3