PACKAGE BODY: APPS.PA_PAXRWLCR_XMLP_PKG

Source

1 PACKAGE BODY PA_PAXRWLCR_XMLP_PKG AS
2 /* $Header: PAXRWLCRB.pls 120.0 2008/01/02 11:59:24 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 Sort_By_Name pa_lookups.meaning%TYPE;
30 begin
31 /*srw.user_exit('FND SRWINIT');*/null;
32 
33 if SORT_BY is not NULL then
34    select meaning into Sort_By_Name from pa_lookups
35     where lookup_code = SORT_BY
36       and lookup_type = 'LABOR RATE SORT BY';
37 end if;
38 C_Sort_By_Name := Sort_By_Name;
39 if ( get_company_name <> TRUE ) then
40   raise init_error;
41 end if;
42 end;  return (TRUE);
43 end;
44 
45 function AfterPForm return boolean is
46 begin
47 
48   return (TRUE);
49 end;
50 
51 function BetweenPage return boolean is
52 begin
53 
54   return (TRUE);
55 end;
56 
57 function AfterReport return boolean is
58 begin
59   /*srw.user_exit('FND SRWEXIT');*/null;
60 
61   return (TRUE);
62 end;
63 
64 function CF_Currency_CodeFormula return Char is
65 begin
66   return(pa_multi_currency.get_acct_currency_code);
67 end;
68 
69 --Functions to refer Oracle report placeholders--
70 
71  Function C_Company_Name_Header_p return varchar2 is
72 	Begin
73 	 return C_Company_Name_Header;
74 	 END;
75  Function C_Sort_by_Name_p return varchar2 is
76 	Begin
77 	 return C_Sort_by_Name;
78 	 END;
79 END PA_PAXRWLCR_XMLP_PKG ;
80