1 PACKAGE BODY AR_ARXAPRCL_XMLP_PKG AS
2 /* $Header: ARXAPRCLB.pls 120.0 2007/12/27 13:29:33 abraghun noship $ */
3
4 function report_nameformula(Company_Name in varchar2) return varchar2 is
5 begin
6
7 DECLARE
8 l_report_name VARCHAR2(80);
9 BEGIN
10 RP_Company_Name := Company_Name;
11 SELECT substr(cp.user_concurrent_program_name, 1, 80)
12 INTO l_report_name
13 FROM FND_CONCURRENT_PROGRAMS_VL cp,
14 FND_CONCURRENT_REQUESTS cr
15 WHERE cr.request_id = P_CONC_REQUEST_ID
16 AND cp.application_id = cr.program_application_id
17 AND cp.concurrent_program_id = cr.concurrent_program_id;
18
19 RP_Report_Name := l_report_name;
20 RP_Report_Name := substr(RP_Report_Name,1,instr(RP_Report_Name,' (XML)'));
21 RETURN(l_report_name);
22 EXCEPTION
23 WHEN NO_DATA_FOUND
24 THEN RP_REPORT_NAME := 'Receipts Awaiting Bank Clearance Report';
25 RETURN('Receipts Awaiting Bank Clearance Report');
26 END;
27 RETURN NULL; end;
28
29 function BeforeReport return boolean is
30 begin
31
32 begin
33 P_MATURITY_DATE_LOW_T:= to_char(P_MATURITY_DATE_LOW,'DD-MON-YY');
34 P_MATURITY_DATE_HIGH_T := to_char(P_MATURITY_DATE_HIGH,'DD-MON-YY');
35 P_CONC_REQUEST_ID:=FND_GLOBAL.conc_request_id;
36 /*SRW.USER_EXIT('FND SRWINIT');*/null;
37
38
39
40
41 end;
42 return (TRUE);
43 end;
44
45 function Sub_TitleFormula return VARCHAR2 is
46 begin
47
48 begin
49 RP_SUB_TITLE := ' ';
50 return(' ');
51 end;
52
53 RETURN NULL; end;
54
55 function AfterReport return boolean is
56 begin
57
58 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
59 return (TRUE);
60 end;
61
62 function AfterPForm return boolean is
63 begin
64
65 IF P_REMIT_ACCOUNT IS NOT NULL THEN
66 LP_REMIT_ACCOUNT := ' and racct.bank_acct_use_id = :P_REMIT_ACCOUNT ';
67 END IF;
68
69 IF P_REMIT_METHOD IS NOT NULL THEN
70 LP_REMIT_METHOD := ' and batch.remit_method_code = :P_REMIT_METHOD';
71 END IF;
72
73 IF P_PMT_METHOD IS NOT NULL THEN
74 LP_PMT_METHOD := ' and rmethod.name = :P_PMT_METHOD';
75 END IF;
76
77 IF P_MATURITY_DATE_LOW IS NOT NULL THEN
78 LP_MATURITY_DATE := ' and ps.due_date >= :P_MATURITY_DATE_LOW';
79 END IF;
80
81 IF P_MATURITY_DATE_HIGH IS NOT NULL THEN
82 LP_MATURITY_DATE := LP_MATURITY_DATE || ' and ps.due_date <= :P_MATURITY_DATE_HIGH';
83 END IF;
84
85 IF P_REMIT_AMOUNT_LOW IS NOT NULL THEN
86 LP_REMIT_AMOUNT := ' and cr.amount >= :P_REMIT_AMOUNT_LOW ';
87 END IF;
88
89 IF P_REMIT_AMOUNT_HIGH IS NOT NULL THEN
90 LP_REMIT_AMOUNT := LP_REMIT_AMOUNT || ' and cr.amount <= :P_REMIT_AMOUNT_HIGH ';
91 END IF;
92
93 IF P_CURRENCY IS NOT NULL THEN
94 LP_CURRENCY := ' and cr.currency_code = :P_CURRENCY';
95 END IF;
96 return (TRUE);
97 end;
98
99 function RP_DISP_SORT_BYFormula return VARCHAR2 is
100 begin
101
102 DECLARE
103 l_sort_by varchar(50);
104 BEGIN
105 SELECT lc.meaning
106 INTO l_sort_by
107 FROM AR_LOOKUPS lc
108 WHERE lc.lookup_type = 'SORT_BY_ARXAPRCL'
109 AND lc.lookup_code = P_SORT_BY;
110
111 RETURN(l_sort_by);
112
113 EXCEPTION
114 WHEN OTHERS THEN RETURN NULL;
115 END;
116 RETURN NULL; end;
117
118 function RP_DISP_REMIT_METHODFormula return VARCHAR2 is
119 begin
120
121 DECLARE
122 l_remit_method varchar(40);
123 BEGIN
124 SELECT meaning
125 INTO l_remit_method
126 FROM AR_LOOKUPS
127 WHERE lookup_type = 'REMITTANCE_METHOD'
128 AND lookup_code = P_REMIT_METHOD;
129
130 RETURN(l_remit_method);
131
132 EXCEPTION
133 WHEN OTHERS THEN RETURN NULL;
134 END;
135 RETURN NULL; end;
136
137 function RP_ACCOUNT_NAMEFormula return Char is
138 begin
139 DECLARE
140 l_account_name varchar(80);
141 BEGIN
142 SELECT CBA.BANK_ACCOUNT_NAME,
143 BB.BANK_NAME
144 INTO l_account_name,RP_BANK_NAME
145 FROM CE_BANK_ACCOUNTS CBA,
146 CE_BANK_ACCT_USES BA,
147 CE_BANK_BRANCHES_V BB
148 WHERE BA.BANK_ACCT_USE_ID = P_REMIT_ACCOUNT
149 AND CBA.BANK_ACCOUNT_ID = BA.BANK_ACCOUNT_ID
150 AND CBA.BANK_BRANCH_ID = BB.BRANCH_PARTY_ID;
151
152 RETURN(l_account_name);
153
154 EXCEPTION
155 WHEN OTHERS THEN RETURN NULL;
156 END;
157
158 end;
159
160 --Functions to refer Oracle report placeholders--
161
162 Function COUNTER_p return number is
163 Begin
164 return COUNTER;
165 END;
166 Function RP_COMPANY_NAME_p return varchar2 is
167 Begin
168 return RP_COMPANY_NAME;
169 END;
170 Function RP_REPORT_NAME_p return varchar2 is
171 Begin
172 return RP_REPORT_NAME;
173 END;
174 Function RP_SUB_TITLE_p return varchar2 is
175 Begin
176 return RP_SUB_TITLE;
177 END;
178 Function RP_DATA_FOUND_p return varchar2 is
179 Begin
180 return RP_DATA_FOUND;
181 END;
182 Function RP_BANK_NAME_p return varchar2 is
183 Begin
184 return RP_BANK_NAME;
185 END;
186 function D_SUM_AMOUNT_CURRFormula return VARCHAR2 is
187 begin
188 RP_DATA_FOUND := 1;
189 return null;
190 end;
191 END AR_ARXAPRCL_XMLP_PKG ;
192