1 PACKAGE BODY PA_PAXPEJOB_XMLP_PKG AS
2 /* $Header: PAXPEJOBB.pls 120.0 2008/01/02 11:48:14 krreddy noship $ */
3 FUNCTION get_company_name RETURN BOOLEAN IS
4 l_name gl_sets_of_books.name%TYPE;
5 BEGIN
6 select name
7 into l_name
8 from gl_sets_of_books
9 where set_of_books_id = fnd_profile.value('GL_SET_OF_BKS_ID');
10 c_company_name_header := l_name;
11 RETURN (TRUE);
12 EXCEPTION
13 WHEN OTHERS THEN
14 RETURN (FALSE);
15 END;
16 function BeforeReport return boolean is
17 begin
18 declare
19 init_error exception;
20 Sort_By_Name pa_lookups.meaning%TYPE;
21 begin
22 /*srw.user_exit('FND SRWINIT');*/null;
23 if P_SORT_BY is not null then
24 select meaning into Sort_By_Name from pa_lookups
25 where lookup_code = P_SORT_BY
26 and lookup_type = 'JOB SORT BY';
27 end if;
28 C_Sort_By_Name := Sort_By_Name;
29 if ( get_company_name <> TRUE ) then
30 raise init_error;
31 end if;
32 end; return (TRUE);
33 end;
34 function AfterReport return boolean is
35 begin
36 /*srw.user_exit('FND SRWEXIT') ;*/null;
37 return (TRUE);
38 end;
39 --Functions to refer Oracle report placeholders--
40 Function C_Company_Name_Header_p return varchar2 is
41 Begin
42 return C_Company_Name_Header;
43 END;
44 Function C_Sort_By_Name_p return varchar2 is
45 Begin
46 return C_Sort_By_Name;
47 END;
48 END PA_PAXPEJOB_XMLP_PKG ;
49