PACKAGE BODY: APPS.PA_PAXRWPCC_XMLP_PKG

Source

1 PACKAGE BODY PA_PAXRWPCC_XMLP_PKG AS
2 /* $Header: PAXRWPCCB.pls 120.0 2008/01/02 12:02:45 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 
12     select name
13   into l_name
14   from gl_sets_of_books
15   where set_of_books_id = fnd_profile.value('GL_SET_OF_BKS_ID');
16 
17 
18   c_company_name_header     := l_name;
19 
20   RETURN (TRUE);
21 
22 EXCEPTION
23 
24   WHEN   OTHERS  THEN
25     RETURN (FALSE);
26 
27 END;
28 
29 function BeforeReport return boolean is
30 begin
31 
32 
33 declare
34 init_error exception;
35 begin
36 
37 
38 /*srw.user_exit('FND SRWINIT');*/null;
39 
40 if ( get_company_name <> TRUE ) then
41   raise init_error;
42 end if;
43 end;  return (TRUE);
44 end;
45 
46 function AfterReport return boolean is
47 begin
48   /*srw.user_exit('FND SRWEXIT') ;*/null;
49 
50   return (TRUE);
51 end;
52 
53 --Functions to refer Oracle report placeholders--
54 
55  Function C_Company_Name_Header_p return varchar2 is
56 	Begin
57 	 return C_Company_Name_Header;
58 	 END;
59 END PA_PAXRWPCC_XMLP_PKG ;
60