PACKAGE BODY: APPS.AR_ARXPAR_XMLP_PKG

Source

1 PACKAGE BODY AR_ARXPAR_XMLP_PKG AS
2 /* $Header: ARXPARB.pls 120.0 2007/12/27 13:58:13 abraghun noship $ */
3 function BeforeReport return boolean is
4 begin
5 	P_CONC_REQUEST_ID:=FND_GLOBAL.conc_request_id;
6   /*SRW.USER_EXIT('FND SRWINIT');*/null;
7 
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     l_report_name     VARCHAR2(240);
21 begin
22 
23     RP_Company_Name := Company_Name;
24     SELECT substrb(cp.user_concurrent_program_name,1,80)
25     INTO   l_report_name
26     FROM   FND_CONCURRENT_PROGRAMS_VL cp,
27            FND_CONCURRENT_REQUESTS cr
28     WHERE  cp.application_id = cr.program_application_id
29     AND    cr.request_id = p_conc_request_id
30     AND    cp.concurrent_program_id = cr.concurrent_program_id;
31 
32     RP_Report_Name := l_report_name;
33 
34     RETURN(l_report_name);
35 
36 RETURN NULL; EXCEPTION
37     WHEN NO_DATA_FOUND
38     THEN RP_REPORT_NAME := 'AutoCash Rules';
39          RETURN('AutoCash Rules');
40 
41 end;
42 
43 function NLS_YESFormula return VARCHAR2 is
44 	nls_yes 	varchar(80);
45 begin
46 
47 	select meaning
48 	into nls_yes
49 	from ar_lookups
50 	where lookup_type = 'YES/NO'
51 	and lookup_code = 'Y';
52 
53 	return(nls_yes);
54 
55 RETURN NULL; Exception
56 	When NO_DATA_FOUND Then
57 	     Return(' ');
58 
59 end;
60 
61 function NLS_NOFormula return VARCHAR2 is
62 	nls_no	varchar(80);
63 begin
64 
65 	select meaning
66 	into   nls_no
67 	from   ar_lookups
68 	where  lookup_type = 'YES/NO'
69 	and    lookup_code = 'N';
70 
71 	return(nls_no);
72 
73 RETURN NULL; Exception
74 	When NO_DATA_FOUND Then
75 	   Return(' ');
76 
77 end;
78 
79 --Functions to refer Oracle report placeholders--
80 
81  Function RP_COMPANY_NAME_p return varchar2 is
82 	Begin
83 	 return RP_COMPANY_NAME;
84 	 END;
85  Function RP_REPORT_NAME_p return varchar2 is
86 	Begin
87 	 return substr(RP_REPORT_NAME,1,instr(RP_REPORT_NAME,' (XML)'));
88 	 END;
89 END AR_ARXPAR_XMLP_PKG ;
90