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