PACKAGE BODY: APPS.PA_PAXRWPSV_XMLP_PKG

Source

1 PACKAGE BODY PA_PAXRWPSV_XMLP_PKG AS
2 /* $Header: PAXRWPSVB.pls 120.0 2008/01/02 12:13:32 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 /*srw.user_exit('FND SRWINIT');*/null;
37 
38 
39 if ( get_company_name <> TRUE ) then
40   raise init_error;
41 end if;
42 end;  return (TRUE);
43 end;
44 
45 function AfterReport return boolean is
46 begin
47   /*srw.user_exit('FND SRWEXIT') ;*/null;
48 
49   return (TRUE);
50 end;
51 
52 --Functions to refer Oracle report placeholders--
53 
54  Function C_Company_Name_Header_p return varchar2 is
55 	Begin
56 	 return C_Company_Name_Header;
57 	 END;
58 END PA_PAXRWPSV_XMLP_PKG ;
59