PACKAGE BODY: APPS.PA_PAXRWPST_XMLP_PKG

Source

1 PACKAGE BODY PA_PAXRWPST_XMLP_PKG AS
2 /* $Header: PAXRWPSTB.pls 120.0 2008/01/02 12:12:52 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 closing_status pa_lookups.meaning%TYPE;
30 begin
31 
32 /*srw.user_exit('FND SRWINIT');*/null;
33 
34 
35 if p_status_code is NOT NULL then
36     select meaning into closing_status from
37            pa_lookups
38     where
39        lookup_code = p_status_code
40     and lookup_type = 'CLOSING STATUS';
41 end if;
42 C_closing_status := closing_status;
43 if ( get_company_name <> TRUE ) then
44   raise init_error;
45 end if;
46 end;  return (TRUE);
47 end;
48 
49 function AfterReport return boolean is
50 begin
51   /*srw.user_exit('FND SRWEXIT') ;*/null;
52 
53   return (TRUE);
54 end;
55 
56 --Functions to refer Oracle report placeholders--
57 
58  Function C_Company_Name_Header_p return varchar2 is
59 	Begin
60 	 return C_Company_Name_Header;
61 	 END;
62  Function C_Closing_Status_p return varchar2 is
63 	Begin
64 	 return C_Closing_Status;
65 	 END;
66 END PA_PAXRWPST_XMLP_PKG ;
67