PACKAGE BODY: APPS.PA_PAXRWDIF_XMLP_PKG

Source

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