PACKAGE BODY: APPS.PER_ISETUP_MIGRATOR_UTIL

Source

1 PACKAGE BODY per_isetup_migrator_util as
2 /* $Header: perisetmigutil.pkb 115.4 2004/07/28 05:56 balchand noship $ */
3 
4 PROCEDURE apps_initialise IS
5 l_rowcount NUMBER;
6 	 CURSOR csr_row IS
7               select 1
8 	      from fnd_Sessions
9               where session_id = userenv('sessionid') and to_char(effective_date,'DD-MM-YYYY') = to_char(sysdate,'DD-MM-YYYY');
10 
11 begin
12 
13   --select count(*) into number_of_columns from all_tab_columns where table_name like 'FND_SESSIONS' ;
14   OPEN  csr_row;
15   FETCH csr_row INTO l_rowcount;
16 
17   if csr_row%notfound  then
18    insert into fnd_sessions(session_id,effective_date) values (userenv('sessionid'),sysdate);
19   end if;
20 
21   CLOSE CSR_ROW;
22 
23 exception
24 when others then
25   hr_utility.trace(substr(SQLERRM,1,100));
26   raise;
27 end apps_initialise;
28 
29 
30 END per_isetup_migrator_util;
31