PACKAGE BODY: APPS.PA_PAXRWUDF_XMLP_PKG

Source

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