[Home] [Help]
PACKAGE BODY: APPS.AR_ARXAPRMB_XMLP_PKG
Source
1 PACKAGE BODY AR_ARXAPRMB_XMLP_PKG AS
2 /* $Header: ARXAPRMBB.pls 120.0 2007/12/27 13:31:19 abraghun noship $ */
3
4 function report_nameformula(Company_Name in varchar2) return varchar2 is
5 begin
6
7 DECLARE
8 l_report_name VARCHAR2(240);
9 BEGIN
10 RP_Company_Name := Company_Name;
11
12 SELECT substr(cp.user_concurrent_program_name,1,80)
13 INTO l_report_name
14 FROM FND_CONCURRENT_PROGRAMS_VL cp,
15 FND_CONCURRENT_REQUESTS cr
16 WHERE cr.request_id = P_CONC_REQUEST_ID
17 AND cp.application_id = cr.program_application_id
18 AND cp.concurrent_program_id = cr.concurrent_program_id;
19
20 RP_Report_Name := l_report_name;
21
22 RP_Report_Name := substr(RP_Report_Name,1,instr(RP_Report_Name,' (XML)'));
23 RETURN(l_report_name);
24
25 EXCEPTION
26 WHEN NO_DATA_FOUND
27 THEN RP_REPORT_NAME := 'Remittance Batch Management Report';
28 RETURN('Remittance Batch Management Report');
29 END;
30 RETURN NULL; end;
31
32 function BeforeReport return boolean is
33 begin
34
35 begin
36 P_CONC_REQUEST_ID:=FND_GLOBAL.conc_request_id;
37 /*SRW.USER_EXIT('FND SRWINIT');*/null;
38 P_SORT_BY_T := nvl(P_SORT_BY,'REMITTANCE ACCOUNT');
39
40 P_REM_DATE_FROM_T := to_char(P_REM_DATE_FROM,'DD-MON-YY');
41 P_REM_DATE_TO_T := to_char(P_REM_DATE_TO,'DD-MON-YY');
42
43 end;
44 return (TRUE);
45 end;
46
47 function Sub_TitleFormula return VARCHAR2 is
48 begin
49
50 begin
51 RP_SUB_TITLE := ' ';
52 return(' ');
53 end;
54
55 RETURN NULL; end;
56
57 function AfterReport return boolean is
58 begin
59
60 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
61 return (TRUE);
62 end;
63
64 function AfterPForm return boolean is
65 begin
66
67 IF P_STATUS IS NOT NULL THEN
68 LP_STATUS := ' and batch.batch_applied_status = :P_STATUS ';
69 END IF; return (TRUE);
70 end;
71
72 function RP_DSP_SORT_BYFormula return VARCHAR2 is
73 begin
74
75 DECLARE
76 l_sort_by varchar(40);
77 BEGIN
78 SELECT meaning
79 INTO l_sort_by
80 FROM AR_LOOKUPS
81 WHERE lookup_type = 'SORT_BY_ARXAPRMB'
82 AND lookup_code = P_SORT_BY;
83
84 RETURN(l_sort_by);
85
86 EXCEPTION
87 WHEN OTHERS THEN RETURN NULL;
88 END;
89 RETURN NULL; end;
90
91 function RP_DSP_STATUSFormula return VARCHAR2 is
92 begin
93
94 DECLARE
95 l_status varchar(50);
96 BEGIN
97 SELECT meaning
98 INTO l_status
99 FROM AR_LOOKUPS
100 WHERE lookup_type = 'BATCH_APPLIED_STATUS'
101 AND lookup_code = P_STATUS;
102
103 RETURN(l_status);
104
105 EXCEPTION
106 WHEN OTHERS THEN RETURN NULL;
107 END;
108 RETURN NULL; end;
109
110 function amountformula(status_code in varchar2, p_batch_id in number) return number is
111 begin
112
113 DECLARE
114 l_amount NUMBER;
115 BEGIN
116 IF ((status_code = 'STARTED_CREATION') OR
117 (status_code = 'COMPLETED_CREATION') OR
118 (status_code = 'STARTED_APPROVAL')) THEN
119
120 SELECT sum(nvl(cr.amount,0)+nvl(cr.factor_discount_amount,0))
121 INTO l_amount
122 FROM ar_cash_receipts cr
123 WHERE cr.selected_remittance_batch_id = p_batch_id;
124
125 return(l_amount);
126
127 ELSE
128
129 SELECT sum(nvl(crh.amount,0)+nvl(crh.factor_discount_amount,0))
130 INTO l_amount
131 FROM ar_cash_receipt_history crh,
132 ar_cash_receipt_history crhprv
133 WHERE crh.batch_id = p_batch_id
134 AND crh.cash_receipt_history_id =
135 crhprv.reversal_cash_receipt_hist_id
136 AND crhprv.status = 'CONFIRMED'
137 AND crh.status = 'REMITTED';
138
139 return(l_amount);
140 END IF;
141 return(l_amount);
142 END;
143 RETURN NULL; end;
144
145 function DISP_REMIT_METHODFormula return VARCHAR2 is
146 begin
147
148 DECLARE
149 l_rem_met varchar(40);
150 BEGIN
151 SELECT meaning
152 INTO l_rem_met
153 FROM AR_LOOKUPS
154 WHERE LOOKUP_TYPE = 'REMITTANCE_METHOD'
155 AND ENABLED_FLAG = 'Y'
156 AND LOOKUP_CODE = P_REMITTANCE_METHOD;
157
158 RETURN(l_rem_met);
159
160 EXCEPTION
161 WHEN OTHERS THEN RETURN NULL;
162 END;
163
164 RETURN NULL; end;
165
166 function DISP_REMIT_ACCOUNTFormula return VARCHAR2 is
167 begin
168
169 DECLARE
170 l_rem_acc varchar(40);
171 BEGIN
172 SELECT BANK_ACCOUNT_NAME
173 INTO l_rem_acc
174 FROM CE_BANK_ACCOUNTS cba,
175 ce_bank_acct_uses ba
176 WHERE BANK_ACCT_USE_ID =P_REMIT_BANK_ACCOUNT
177 AND cba.bank_account_id = ba.bank_account_id;
178
179 RETURN(l_rem_acc);
180
181 EXCEPTION
182 WHEN OTHERS THEN RETURN NULL;
183 END;
184
185 RETURN NULL; end;
186
187 function DISP_INC_FORMATTEDFormula return VARCHAR2 is
188 begin
189
190 DECLARE
191 l_inc_form varchar(40);
192 BEGIN
193 SELECT meaning
194 INTO l_inc_form
195 FROM FND_LOOKUPS
196 WHERE LOOKUP_TYPE = 'YES_NO'
197 AND ENABLED_FLAG = 'Y'
198 AND LOOKUP_CODE = P_INCLUDE_FORMATTED;
199
200 RETURN(l_inc_form);
201
202 EXCEPTION
203 WHEN OTHERS THEN RETURN NULL;
204 END;
205
206 RETURN NULL; end;
207
208 function DISP_SUM_OR_DETFormula return VARCHAR2 is
209 begin
210
211 DECLARE
212 l_sum_or_det varchar(80);
213 BEGIN
214 SELECT meaning
215 INTO l_sum_or_det
216 FROM AR_LOOKUPS
217 WHERE LOOKUP_TYPE = 'ARXAPRMB_SD'
218 AND ENABLED_FLAG = 'Y'
219 AND LOOKUP_CODE = P_SUMMARY_OR_DETAILED;
220
221 RETURN(l_sum_or_det);
222
223 EXCEPTION
224 WHEN OTHERS THEN RETURN NULL;
225 END;
226
227 RETURN NULL; end;
228
229 function det_batch_statusformula(batch_status in varchar2) return varchar2 is
230 begin
231
232 if p_summary_or_detailed = 'DETAILED'
233 then return(batch_status);
234 end if;
235 RETURN NULL; end;
236
237 --Functions to refer Oracle report placeholders--
238
239 Function RP_COMPANY_NAME_p return varchar2 is
240 Begin
241 return RP_COMPANY_NAME;
242 END;
243 Function RP_REPORT_NAME_p return varchar2 is
244 Begin
245 return RP_REPORT_NAME;
246 END;
247 Function RP_SUB_TITLE_p return varchar2 is
248 Begin
249 return RP_SUB_TITLE;
250 END;
251 Function RP_DATA_FOUND_p return varchar2 is
252 Begin
253 return RP_DATA_FOUND;
254 END;
255 END AR_ARXAPRMB_XMLP_PKG ;
256