1 package body PAY_PAYFV_ELEMENT_TYPES_PKG as
2 /* $Header: payfvetp.pkb 115.0 2003/01/13 14:19:33 scchakra noship $ */
3 --------------------------------------------------------------------------------
4 /*
5 +==============================================================================+
6 | Copyright (c) 2002 Oracle Corporation |
7 | Redwood Shores, California, USA |
8 | All rights reserved |
9 +==============================================================================+
10
11 Name
12 Supporting functions for BIS view PAYFV_ELEMENT_TYPES_PKG.
13 Purpose
14 To return non-id table information where needed to enhance the
15 performance of the view.
16 History
17
18 rem
19 rem Version Date Author Comment
20 rem -------+-----------+--------------+----------------------------------------
21 rem 115.0 13-JAN-2003 Scchakra Date Created
22 rem ==========================================================================
23 */
24 --------------------------------------------------------------------------------
25 FUNCTION get_applsys_user (p_user_id IN NUMBER) RETURN VARCHAR2 IS
26 --
27 l_user_name fnd_user.user_name%type;
28 --
29 cursor c_get_user
30 is
31 select user_name
32 from fnd_user usr
33 where usr.user_id = p_user_id;
34 --
35 begin
36 --
37 open c_get_user;
38 fetch c_get_user into l_user_name;
39 close c_get_user;
40 --
41 return l_user_name;
42 --
43 end get_applsys_user;
44 --------------------------------------------------------------------------------
45 FUNCTION get_event_group_name (p_event_group_id IN NUMBER) RETURN VARCHAR2 IS
46 --
47 l_event_group_name varchar2(240);
48 --
49 cursor c_get_event_group_name
50 is
51 select event_group_name
52 from pay_event_groups peg
53 where peg.event_group_id = p_event_group_id;
54 --
55 begin
56 --
57 open c_get_event_group_name;
58 fetch c_get_event_group_name into l_event_group_name;
59 close c_get_event_group_name;
60 --
61 return l_event_group_name;
62 --
63 end;
64
65 end PAY_PAYFV_ELEMENT_TYPES_PKG;