PACKAGE BODY: APPS.AR_RAXMRP_XMLP_PKG

Source

1 PACKAGE BODY AR_RAXMRP_XMLP_PKG AS
2 /* $Header: RAXMRPB.pls 120.0 2007/12/27 14:29:27 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     SELECT substrb(cp.user_concurrent_program_name,1,80)
27     INTO   l_report_name
28     FROM   FND_CONCURRENT_PROGRAMS_VL cp,
29            FND_CONCURRENT_REQUESTS cr
30     WHERE  cr.request_id = P_CONC_REQUEST_ID
31     AND    cp.application_id = cr.program_application_id
32     AND    cp.concurrent_program_id = cr.concurrent_program_id;
33 
34     RP_Report_Name := l_report_name;
35     RETURN(l_report_name);
36 EXCEPTION
37     WHEN NO_DATA_FOUND
38     THEN RP_REPORT_NAME := NULL;
39          RETURN(NULL);
40 END;
41 RETURN NULL; end;
42 
43 function AfterPForm return boolean is
44 begin
45 
46 ph_cust_name := p_customer_name ;
47 Cp_customer_name := p_customer_name ||'%' ;  return (TRUE);
48 end;
49 
50 function c_data_not_foundformula(Name in varchar2) return number is
51 begin
52 
53 rp_data_found := Name ;
54 return (0);
55 end;
56 
57 --Functions to refer Oracle report placeholders--
58 
59  Function RP_COMPANY_NAME_p return varchar2 is
60 	Begin
61 	 return RP_COMPANY_NAME;
62 	 END;
63  Function RP_REPORT_NAME_p return varchar2 is
64 	Begin
65 	 return substr(RP_REPORT_NAME,1,instr(RP_REPORT_NAME,' (XML)'));
66 	 END;
67  Function RP_DATA_FOUND_p return varchar2 is
68 	Begin
69 	 return RP_DATA_FOUND;
70 	 END;
71 END AR_RAXMRP_XMLP_PKG ;
72