PACKAGE BODY: APPS.AR_RAXILL_XMLP_PKG

Source

1 PACKAGE BODY AR_RAXILL_XMLP_PKG AS
2 /* $Header: RAXILLB.pls 120.0 2007/12/27 14:24:04 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   return (TRUE);
9 end;
10 
11 function AfterReport return boolean is
12 begin
13 
14 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
15   return (TRUE);
16 end;
17 
18 function report_nameformula(Company_Name in varchar2) return varchar2 is
19 begin
20 
21 DECLARE
22     l_report_name  VARCHAR2(80);
23 BEGIN
24     RP_Company_Name := Company_Name;
25     SELECT substrb(cp.user_concurrent_program_name,1,80)
26     INTO   l_report_name
27     FROM   FND_CONCURRENT_PROGRAMS_VL cp,
28            FND_CONCURRENT_REQUESTS cr
29     WHERE  cr.request_id = P_CONC_REQUEST_ID
30     AND    cp.application_id = cr.program_application_id
31     AND    cp.concurrent_program_id = cr.concurrent_program_id;
32 
33     RP_Report_Name := l_report_name;
34     RETURN(l_report_name);
35 EXCEPTION
36     WHEN NO_DATA_FOUND
37     THEN RP_REPORT_NAME := 'Memo Lines Listing';
38          RETURN('Memo Lines Listing');
39 END;
40 RETURN NULL; end;
41 
42 --Functions to refer Oracle report placeholders--
43 
44  Function ACCT_BAL_APROMPT_p return varchar2 is
45 	Begin
46 	 return ACCT_BAL_APROMPT;
47 	 END;
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  function D_unit_std_priceFormula(name in varchar2) return VARCHAR2 is
61 	begin
62 	Rp_data_found := name;
63 	return null;
64 	end;
65 END AR_RAXILL_XMLP_PKG ;
66