PACKAGE BODY: APPS.PA_PAXRWNLR_XMLP_PKG

Source

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