PACKAGE BODY: APPS.PAY_JP_TRANSLATION_PKG

Source

1 PACKAGE BODY PAY_JP_TRANSLATION_PKG AS
2 /* $Header: pyjptrns.pkb 115.2 99/07/17 06:14:04 porting ship $ */
3 	FUNCTION user_name(
4 			p_lookup_type	IN VARCHAR2,
5 			p_lookup_code	IN VARCHAR2) RETURN VARCHAR2
6 	IS
7 		l_user_name	HR_LOOKUPS.MEANING%TYPE;
8 		CURSOR csr_user_name IS
9 			select	meaning
10 			from	hr_lookups
11 			where	lookup_type=p_lookup_type
12 			and	lookup_code=p_lookup_code;
13 	BEGIN
14 		open csr_user_name;
15 		fetch csr_user_name into l_user_name;
16 		if csr_user_name%NOTFOUND then
17 			l_user_name := NULL;
18 		end if;
19 		close csr_user_name;
20 
21 		return l_user_name;
22 	END;
23 --
24 	FUNCTION element_name(
25 			p_system_name	IN VARCHAR2) RETURN VARCHAR2
26 	IS
27 		l_element_name	PAY_ELEMENT_TYPES_F.ELEMENT_NAME%TYPE;
28 	BEGIN
29 		l_element_name := user_name('JP_ELM_TL',p_system_name);
30 
31 		return l_element_name;
32 	END element_name;
33 --
34 	FUNCTION input_value_name(
35 			p_system_element_name		IN VARCHAR2,
36 			p_system_input_value_name	IN VARCHAR2) RETURN VARCHAR2
37 	IS
38 		l_input_value_name	PAY_INPUT_VALUES_F.NAME%TYPE;
39 	BEGIN
40 		l_input_value_name := user_name(p_system_element_name,p_system_input_value_name);
41 
42 		return l_input_value_name;
43 	END input_value_name;
44 --
45 	FUNCTION balance_name(
46 			p_system_name	IN VARCHAR2) RETURN VARCHAR2
47 	IS
48 		l_balance_name	PAY_BALANCE_TYPES.BALANCE_NAME%TYPE;
49 	BEGIN
50 		l_balance_name := user_name('JP_BAL_TL',p_system_name);
51 
52 		return l_balance_name;
53 	END balance_name;
54 --
55 	FUNCTION dimension_name(
56 			p_system_name	IN VARCHAR2) RETURN VARCHAR2
57 	IS
58 		l_dimension_name	PAY_BALANCE_DIMENSIONS.DIMENSION_NAME%TYPE;
59 	BEGIN
60 		l_dimension_name := user_name('JP_DIM_TL',p_system_name);
61 
62 		return l_dimension_name;
63 	END dimension_name;
64 END PAY_JP_TRANSLATION_PKG;