[Home] [Help]
PACKAGE BODY: APPS.GHR_SESSION
Source
1 Package Body ghr_session as
2 /* $Header: ghstsess.pkb 115.2 1999/11/09 22:53:47 pkm ship $ */
3 --
4 -- Package Variables
5 --
6 g_package varchar2(33) := ' ghr_session.';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |-----------------------< set_session_var_for_core >------------------------|
10 -- ----------------------------------------------------------------------------
11 ---- Make sure that there is an entry in the fnd_sessions table for the current session
12
13 Procedure set_session_var_for_core
14 (p_effective_date in date
15 )
16 is
17
18 l_exists boolean := FALSE;
19 l_session_var ghr_history_api.g_session_var_type;
20 l_effective_date date;
21 l_session_id fnd_sessions.session_id%type;
22
23 Cursor c_session_id is
24 select userenv('sessionid') sessionid
25 from dual;
26
27 Cursor c_session_data is
28 select effective_date,
29 session_id
30 from fnd_sessions
31 where session_id = l_session_id;
32
33 Begin
34
35 for session_id in C_session_id loop
36 l_session_id := session_id.sessionid;
37 end loop;
38
39 for session in c_session_data loop
40
41 l_exists := TRUE;
42 l_effective_date := session.effective_date;
43 end loop;
44
45 If l_exists then
46
47 If nvl(trunc(l_effective_date),hr_api.g_date) <> p_effective_date then
48 update fnd_sessions
49 set effective_date = p_effective_date
50 where session_id = l_session_id;
51 End if;
52 Else
53 Insert into fnd_sessions
54 (session_id,effective_date)
55 values
56 (l_session_id,p_effective_date);
57 End if;
58
59 -- Set session variables
60
61 ghr_history_api.reinit_g_session_var;
62 l_session_var.program_name := 'core';
63 l_session_var.fire_trigger := 'Y';
64 ghr_history_api.set_g_session_var(l_session_var);
65
66 End set_session_var_for_core;
67 End ghr_session;