1 PACKAGE BODY AR_ARXBDP_XMLP_PKG AS
2 /* $Header: ARXBDPB.pls 120.0 2007/12/27 13:34:13 abraghun noship $ */
3
4 function BeforeReport return boolean is
5 begin
6
7 /*SRW.USER_EXIT('FND SRWINIT');*/null;
8
9
10 return (TRUE);
11 end;
12
13 function AfterReport return boolean is
14 begin
15
16 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
17 return (TRUE);
18 end;
19
20 function report_nameformula(Company_Name in varchar2) return varchar2 is
21 begin
22
23 DECLARE
24 l_report_name VARCHAR2(80);
25 BEGIN
26 RP_Company_Name := Company_Name;
27
28 SELECT substr(cp.user_concurrent_program_name,1,80)
29 INTO l_report_name
30 FROM FND_CONCURRENT_PROGRAMS_VL cp,
31 FND_CONCURRENT_REQUESTS cr
32 WHERE
33 cp.application_id = cr.program_application_id
34 AND cr.request_id = p_conc_request_id
35 AND cp.concurrent_program_id = cr.concurrent_program_id;
36
37 RP_Report_Name := l_report_name;
38
39 RETURN(l_report_name);
40 EXCEPTION
41 WHEN NO_DATA_FOUND
42 THEN RP_REPORT_NAME := 'Bad Debt Provision Report';
43 RETURN('Bad Debt Provision Report');
44 END;
45 RETURN NULL; end;
46
47 function AfterPForm return boolean is
48 begin
49
50 begin
51
52 IF p_start_customer_number IS NOT NULL THEN
53 lp_start_customer_number := ' and c.account_number >= :p_start_customer_number ';
54 END IF;
55
56 IF p_end_customer_number IS NOT NULL THEN
57 lp_end_customer_number := ' and c.account_number <= :p_end_customer_number ';
58 END IF;
59
60 IF p_start_customer_name IS NOT NULL THEN
61 lp_start_customer_name := ' and party.party_name >= :p_start_customer_name ' ;
62 END IF;
63
64 IF p_end_customer_name IS NOT NULL THEN
65 lp_end_customer_name := ' and party.party_name <= :p_end_customer_name ';
66 END IF;
67
68
69 IF p_start_account_status IS NOT NULL THEN
70 lp_start_account_status := ' and nvl(status.meaning,''^!'') >= :p_start_account_status ';
71 END IF;
72
73 IF p_end_account_status IS NOT NULL THEN
74 lp_end_account_status := ' and nvl(status.meaning,''^!'') <= :p_end_account_status ';
75 END IF;
76
77 end; return (TRUE);
78 end;
79
80 --Functions to refer Oracle report placeholders--
81
82 Function RP_COMPANY_NAME_p return varchar2 is
83 Begin
84 return RP_COMPANY_NAME;
85 END;
86 Function RP_REPORT_NAME_p return varchar2 is
87 Begin
88 return RP_REPORT_NAME;
89 END;
90 Function RP_DATA_FOUND_p return varchar2 is
91 Begin
92
93 return RP_DATA_FOUND;
94 END;
95 Function Ref_Curr_Code_p return varchar2 is
96 Begin
97 return Ref_Curr_Code;
98 END;
99 Function GSum_Amt_Due_Remaining_Dsp_p return varchar2 is
100 Begin
101 return GSum_Amt_Due_Remaining_Dsp;
102 END;
103 Function GSum_Provision_Dsp_p return varchar2 is
104 Begin
105 return GSum_Provision_Dsp;
106 END;
107
108 /* Added as fix */
109 function D_Amount_Due_OriginalFormula(Amount_Due_Original in number) return VARCHAR2 is
110 begin
111
112 /*srw.reference(:Amount_Due_Original);
113 srw.reference(:Functional_Currency_Code);*/
114 RP_DATA_FOUND := Amount_Due_Original;
115 /*srw.user_exit('FND FORMAT_CURRENCY
116 CODE=":Functional_Currency_Code"
117 DISPLAY_WIDTH="18"
118 AMOUNT=":Amount_Due_Original"
119 DISPLAY=":D_Amount_Due_Original"
120 MINIMUM_PRECISION=":P_MIN_PRECISION"');
121
122 IF :D_Amount_Due_Original IS NOT NULL THEN
123 RETURN(:D_Amount_Due_Original);
124 ELSE
125 RETURN('*');
126 END IF;*/
127 return null;
128 end;
129 END AR_ARXBDP_XMLP_PKG ;
130