PACKAGE BODY: APPS.AR_RAXARL_XMLP_PKG

Source

1 PACKAGE BODY AR_RAXARL_XMLP_PKG AS
2 /* $Header: RAXARLB.pls 120.0 2007/12/27 14:14:39 abraghun noship $ */
3 
4 function BeforeReport return boolean is
5 begin
6 	P_CONC_REQUEST_ID:=FND_GLOBAL.conc_request_id;
7 /*SRW.USER_EXIT('FND SRWINIT');*/null;
8 
9   return (TRUE);
10 end;
11 
12 function AfterReport return boolean is
13 begin
14 
15 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
16   return (TRUE);
17 end;
18 
19 function report_nameformula(Company_Name in varchar2) return varchar2 is
20 begin
21 
22 DECLARE
23     l_report_name  VARCHAR2(80);
24 BEGIN
25     RP_Company_Name := Company_Name;
26 
27     SELECT substrb(cp.user_concurrent_program_name,1,80)
28     INTO   l_report_name
29     FROM   FND_CONCURRENT_PROGRAMS_VL cp,
30            FND_CONCURRENT_REQUESTS cr
31     WHERE
32       cp.application_id = cr.program_application_id
33     AND    cr.request_id = p_conc_request_id
34     AND    cp.concurrent_program_id = cr.concurrent_program_id;
35 
36     RP_Report_Name := l_report_name;
37 
38     RETURN(l_report_name);
39 EXCEPTION
40     WHEN NO_DATA_FOUND
41     THEN RP_REPORT_NAME := 'Accounting Rules Listing Report';
42          RETURN('Accounting Rules Listing Report');
43 END;
44 RETURN NULL; end;
45 
46 --Functions to refer Oracle report placeholders--
47 
48  Function RP_COMPANY_NAME_p return varchar2 is
49 	Begin
50 	 return RP_COMPANY_NAME;
51 	 END;
52  Function RP_REPORT_NAME_p return varchar2 is
53 	Begin
54 	 return substr(RP_REPORT_NAME,1,instr(RP_REPORT_NAME,' (XML)'));
55 	 END;
56  Function RP_DATA_FOUND_p return varchar2 is
57 	Begin
58 	 return RP_DATA_FOUND;
59 	 END;
60 END AR_RAXARL_XMLP_PKG ;
61