PACKAGE BODY: APPS.PA_PAXRWPJS_XMLP_PKG

Source

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