[Home] [Help]
PACKAGE BODY: APPS.AR_ARBRATBR_XMLP_PKG
Source
1 PACKAGE BODY AR_ARBRATBR_XMLP_PKG AS
2 /* $Header: ARBRATBRB.pls 120.2 2011/03/07 13:48:19 dgaurab ship $ */
3 FUNCTION CF_MATURITY_DATEFORMULA(MATURITY_DATE IN DATE) RETURN CHAR IS
4 BEGIN
5 --Bug11799279
6 RETURN (FND_DATE.DATE_TO_CHARDATE(MATURITY_DATE, calendar_aware=> FND_DATE.calendar_aware_alt));
7 END CF_MATURITY_DATEFORMULA;
8
9 FUNCTION CF_SYSDATEFORMULA RETURN CHAR IS
10 BEGIN
11 --Bug11799279
12 RETURN (FND_DATE.DATE_TO_CHARDT(SYSDATE, calendar_aware=> FND_DATE.calendar_aware_alt));
13 END CF_SYSDATEFORMULA;
14
15 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
16 BEGIN
17 DECLARE
18 ERRBUF VARCHAR2(132);
19 BEGIN
20 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
21 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
22 SELECT
23 C.PRECISION,
24 C.CURRENCY_CODE,
25 SOB.NAME
26 INTO CP_PRECISION,CP_FUNC_CURR,CP_SOB
27 FROM
28 AP_SYSTEM_PARAMETERS ASP,
29 GL_SETS_OF_BOOKS SOB,
30 FND_CURRENCIES_VL C
31 WHERE ASP.SET_OF_BOOKS_ID = SOB.SET_OF_BOOKS_ID
32 AND ASP.BASE_CURRENCY_CODE = C.CURRENCY_CODE;
33 IF P_VERSION = 'S' THEN
34 CP_VERSION := 'Summary';
35 ELSE
36 CP_VERSION := 'Detail';
37 END IF;
38 IF P_REQUEST_ID IS NULL THEN
39 SELECT
40 MAX(REQUEST_ID)
41 INTO CP_REQUEST_ID
42 FROM
43 AR_BR_TRX_BATCH_RPT
44 WHERE BATCH_ID = P_BATCH;
45 ELSE
46 CP_REQUEST_ID := P_REQUEST_ID;
47 END IF;
48 BEGIN
49 SELECT
50 RAB.NAME SC_BATCH_NAME,
51 ARL_STATUS.MEANING SC_BATCH_STATUS,
52 SLC.DUE_DATE_LOW SC_DUE_DATE_LOW,
53 SLC.DUE_DATE_HIGH SC_DUE_DATE_HIGH,
54 SLC.TRX_DATE_LOW SC_TRX_DATE_LOW,
55 SLC.TRX_DATE_HIGH SC_TRX_DATE_HIGH,
56 SLC.TRX_NUMBER_LOW SC_TRX_NUMBER_LOW,
57 SLC.TRX_NUMBER_HIGH SC_TRX_NUMBER_HIGH,
58 ARM.NAME SC_PAYMENT_METHOD,
59 RAB.ISSUE_DATE SC_ISSUE_DATE,
60 ARL_CLASS.MEANING SC_CUSTOMER_CLASS,
61 ARL_CATEGORY.MEANING SC_CUSTOMER_CATEGORY,
62 SUBSTRB(PARTY.PARTY_NAME
63 ,1
64 ,50) SC_CUSTOMER_NAME,
65 RAC.ACCOUNT_NUMBER SC_CUSTOMER_NUMBER,
66 RAS.LOCATION SC_LOCATION,
67 APB.BANK_NAME SC_BANK_NAME,
68 TYP.NAME SC_TRX_TYPE,
69 RAB.CURRENCY_CODE SC_CURRENCY_CODE,
70 BSR.NAME SOURCE
71 INTO CP_BATCH_NAME,CP_BATCH_STATUS,CP_DUE_DATE_LOW,CP_DUE_DATE_HIGH,
72 CP_TRX_DATE_LOW,CP_TRX_DATE_HIGH,CP_TRX_NUMBER_LOW,CP_TRX_NUMBER_HIGH,
73 CP_PAYMENT_METHOD,CP_ISSUE_DATE,CP_CUSTOMER_CLASS,CP_CUSTOMER_CATEGORY,
74 CP_CUSTOMER_NAME,CP_CUSTOMER_NUMBER,CP_LOCATION,CP_BANK_NAME,CP_TRX_TYPE,CP_CURRENCY_CODE,CP_SOURCE
75 FROM
76 AR_SELECTION_CRITERIA SLC,
77 RA_BATCHES RAB,
78 AR_RECEIPT_METHODS ARM,
79 AR_LOOKUPS ARL_STATUS,
80 AR_LOOKUPS ARL_CLASS,
81 AR_LOOKUPS ARL_CATEGORY,
82 HZ_CUST_ACCOUNTS RAC,
83 HZ_PARTIES PARTY,
84 HZ_CUST_SITE_USES RAS,
85 CE_BANK_BRANCHES_V APB,
86 RA_CUST_TRX_TYPES TYP,
87 RA_BATCH_SOURCES BSR
88 WHERE SLC.SELECTION_CRITERIA_ID = rab.selection_criteria_id (+)
89 AND SLC.RECEIPT_METHOD_ID = arm.receipt_method_id (+)
90 AND RAB.BATCH_PROCESS_STATUS = arl_status.lookup_code (+)
91 AND arl_status.lookup_type (+) = 'RA_BATCH_PROCESS_STATUS'
92 AND SLC.CUSTOMER_CLASS_CODE = arl_class.lookup_code (+)
93 AND arl_class.lookup_type (+) = 'CUSTOMER CLASS'
94 AND SLC.CUSTOMER_CATEGORY_CODE = arl_category.lookup_code (+)
95 AND arl_category.lookup_type (+) = 'CUSTOMER_CATEGORY'
96 AND SLC.CUSTOMER_ID = rac.cust_account_id (+)
97 AND RAC.PARTY_ID = party.party_id (+)
98 AND SLC.SITE_USE_ID = ras.site_use_id (+)
99 AND SLC.BANK_BRANCH_ID = apb.branch_party_id (+)
100 AND SLC.CUST_TRX_TYPE_ID = typ.cust_trx_type_id (+)
101 AND RAB.BATCH_SOURCE_ID = bsr.batch_source_id (+)
102 AND RAB.BATCH_ID = (
103 SELECT
104 MAX(RPT.BATCH_ID)
105 FROM
106 AR_BR_TRX_BATCH_RPT RPT
107 WHERE RPT.REQUEST_ID = CP_REQUEST_ID );
108 EXCEPTION
109 WHEN NO_DATA_FOUND THEN
110 NULL;
111 END;
112 END;
113 RETURN (TRUE);
114 END BEFOREREPORT;
115
116 FUNCTION AFTERREPORT RETURN BOOLEAN IS
117 BEGIN
118 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
119 RETURN (TRUE);
120 RETURN (TRUE);
121 END AFTERREPORT;
122
123 FUNCTION CF_TRX_DATEFORMULA(TRX_DATE IN DATE) RETURN CHAR IS
124 BEGIN
125 --Bug11799279
126 RETURN (FND_DATE.DATE_TO_CHARDATE(TRX_DATE, calendar_aware=> FND_DATE.calendar_aware_alt));
127 END CF_TRX_DATEFORMULA;
128
129 FUNCTION CF_FUNC_AMT_ASSIGNEDFORMULA(EXCHANGE_RATE IN NUMBER
130 ,AMOUNT_ASSIGNED IN NUMBER) RETURN NUMBER IS
131 BEGIN
132 DECLARE
133 L_FUNC_AMT_ASSIGNED NUMBER;
134 L_NEW_ADR NUMBER;
135 L_NEW_AADR NUMBER;
136 L_ADR NUMBER := 0;
137 L_AADR NUMBER := 0;
138 BEGIN
139 ARP_UTIL.CALC_ACCTD_AMOUNT(NULL
140 ,NULL
141 ,NULL
142 ,EXCHANGE_RATE
143 ,'+'
144 ,L_ADR
145 ,L_AADR
146 ,AMOUNT_ASSIGNED
147 ,L_NEW_ADR
148 ,L_NEW_AADR
149 ,L_FUNC_AMT_ASSIGNED);
150 RETURN (L_FUNC_AMT_ASSIGNED);
151 END;
152 END CF_FUNC_AMT_ASSIGNEDFORMULA;
153
154 FUNCTION CF_REPORT_TITLEFORMULA RETURN CHAR IS
155 BEGIN
156 DECLARE
157 L_REPORT_NAME VARCHAR2(80);
158 BEGIN
159 SELECT
160 SUBSTR(CP.USER_CONCURRENT_PROGRAM_NAME
161 ,1
162 ,80)
163 INTO L_REPORT_NAME
164 FROM
165 FND_CONCURRENT_PROGRAMS_VL CP,
166 FND_APPLICATION_VL AP
167 WHERE CP.CONCURRENT_PROGRAM_NAME = 'ARBRATBR'
168 AND AP.APPLICATION_SHORT_NAME = 'AR'
169 AND CP.APPLICATION_ID = AP.APPLICATION_ID;
170 RETURN (L_REPORT_NAME);
171 EXCEPTION
172 WHEN NO_DATA_FOUND THEN
173 RETURN ('Automatic Transactions Batch Report');
174 WHEN TOO_MANY_ROWS THEN
175 RETURN ('Automatic Transactions Batch Report');
176 END;
177 RETURN NULL;
178 END CF_REPORT_TITLEFORMULA;
179
180 --Bug11799279
181 FUNCTION CF_DUE_DATE_LOWFORMULA RETURN CHAR IS
182 BEGIN
183 RETURN (FND_DATE.DATE_TO_CHARDATE(CP_DUE_DATE_LOW, calendar_aware=> FND_DATE.calendar_aware_alt));
184 END CF_DUE_DATE_LOWFORMULA;
185
186 FUNCTION CF_DUE_DATE_HIGHFORMULA RETURN CHAR IS
187 BEGIN
188 RETURN (FND_DATE.DATE_TO_CHARDATE(CP_DUE_DATE_HIGH, calendar_aware=> FND_DATE.calendar_aware_alt));
189 END CF_DUE_DATE_HIGHFORMULA;
190
191 FUNCTION CF_TRX_DATE_LOWFORMULA RETURN CHAR IS
192 BEGIN
193 RETURN (FND_DATE.DATE_TO_CHARDATE(CP_TRX_DATE_LOW, calendar_aware=> FND_DATE.calendar_aware_alt));
194 END CF_TRX_DATE_LOWFORMULA;
195
196 FUNCTION CF_TRX_DATE_HIGHFORMULA RETURN CHAR IS
197 BEGIN
198 RETURN (FND_DATE.DATE_TO_CHARDATE(CP_TRX_DATE_HIGH, calendar_aware=> FND_DATE.calendar_aware_alt));
199 END CF_TRX_DATE_HIGHFORMULA;
200
201 FUNCTION CF_ISSUE_DATEFORMULA RETURN CHAR IS
202 BEGIN
203 RETURN (FND_DATE.DATE_TO_CHARDATE(CP_ISSUE_DATE, calendar_aware=> FND_DATE.calendar_aware_alt));
204 END CF_ISSUE_DATEFORMULA;
205
206 FUNCTION CP_SOB_P RETURN VARCHAR2 IS
207 BEGIN
208 RETURN CP_SOB;
209 END CP_SOB_P;
210
211 FUNCTION CP_PRECISION_P RETURN NUMBER IS
212 BEGIN
213 RETURN CP_PRECISION;
214 END CP_PRECISION_P;
215
216 FUNCTION CP_FUNC_CURR_P RETURN VARCHAR2 IS
217 BEGIN
218 RETURN CP_FUNC_CURR;
219 END CP_FUNC_CURR_P;
220
221 FUNCTION CP_VERSION_P RETURN VARCHAR2 IS
222 BEGIN
223 RETURN CP_VERSION;
224 END CP_VERSION_P;
225
226 FUNCTION CP_REQUEST_ID_P RETURN NUMBER IS
227 BEGIN
228 RETURN CP_REQUEST_ID;
229 END CP_REQUEST_ID_P;
230
231 FUNCTION CP_BATCH_NAME_P RETURN VARCHAR2 IS
232 BEGIN
233 RETURN CP_BATCH_NAME;
234 END CP_BATCH_NAME_P;
235
236 FUNCTION CP_BATCH_STATUS_P RETURN VARCHAR2 IS
237 BEGIN
238 RETURN CP_BATCH_STATUS;
239 END CP_BATCH_STATUS_P;
240
241 FUNCTION CP_DUE_DATE_LOW_P RETURN VARCHAR2 IS
242 BEGIN
243 RETURN CP_DUE_DATE_LOW;
244 END CP_DUE_DATE_LOW_P;
245
246 FUNCTION CP_DUE_DATE_HIGH_P RETURN VARCHAR2 IS
247 BEGIN
248 RETURN CP_DUE_DATE_HIGH;
249 END CP_DUE_DATE_HIGH_P;
250
251 FUNCTION CP_TRX_DATE_LOW_P RETURN VARCHAR2 IS
252 BEGIN
253 RETURN CP_TRX_DATE_LOW;
254 END CP_TRX_DATE_LOW_P;
255
256 FUNCTION CP_TRX_DATE_HIGH_P RETURN VARCHAR2 IS
257 BEGIN
258 RETURN CP_TRX_DATE_HIGH;
259 END CP_TRX_DATE_HIGH_P;
260
261 FUNCTION CP_TRX_NUMBER_LOW_P RETURN VARCHAR2 IS
262 BEGIN
263 RETURN CP_TRX_NUMBER_LOW;
264 END CP_TRX_NUMBER_LOW_P;
265
266 FUNCTION CP_TRX_NUMBER_HIGH_P RETURN VARCHAR2 IS
267 BEGIN
268 RETURN CP_TRX_NUMBER_HIGH;
269 END CP_TRX_NUMBER_HIGH_P;
270
271 FUNCTION CP_PAYMENT_METHOD_P RETURN VARCHAR2 IS
272 BEGIN
273 RETURN CP_PAYMENT_METHOD;
274 END CP_PAYMENT_METHOD_P;
275
276 FUNCTION CP_ISSUE_DATE_P RETURN VARCHAR2 IS
277 BEGIN
278 RETURN CP_ISSUE_DATE;
279 END CP_ISSUE_DATE_P;
280
281 FUNCTION CP_CUSTOMER_CLASS_P RETURN VARCHAR2 IS
282 BEGIN
283 RETURN CP_CUSTOMER_CLASS;
284 END CP_CUSTOMER_CLASS_P;
285
286 FUNCTION CP_CUSTOMER_CATEGORY_P RETURN VARCHAR2 IS
287 BEGIN
288 RETURN CP_CUSTOMER_CATEGORY;
289 END CP_CUSTOMER_CATEGORY_P;
290
291 FUNCTION CP_CUSTOMER_NAME_P RETURN VARCHAR2 IS
292 BEGIN
293 RETURN CP_CUSTOMER_NAME;
294 END CP_CUSTOMER_NAME_P;
295
296 FUNCTION CP_CUSTOMER_NUMBER_P RETURN VARCHAR2 IS
297 BEGIN
298 RETURN CP_CUSTOMER_NUMBER;
299 END CP_CUSTOMER_NUMBER_P;
300
301 FUNCTION CP_LOCATION_P RETURN VARCHAR2 IS
302 BEGIN
303 RETURN CP_LOCATION;
304 END CP_LOCATION_P;
305
306 FUNCTION CP_BANK_NAME_P RETURN VARCHAR2 IS
307 BEGIN
308 RETURN CP_BANK_NAME;
309 END CP_BANK_NAME_P;
310
311 FUNCTION CP_TRX_TYPE_P RETURN VARCHAR2 IS
312 BEGIN
313 RETURN CP_TRX_TYPE;
314 END CP_TRX_TYPE_P;
315
316 FUNCTION CP_CURRENCY_CODE_P RETURN VARCHAR2 IS
317 BEGIN
318 RETURN CP_CURRENCY_CODE;
319 END CP_CURRENCY_CODE_P;
320
321 FUNCTION CP_SOURCE_P RETURN VARCHAR2 IS
322 BEGIN
323 RETURN CP_SOURCE;
324 END CP_SOURCE_P;
325
326 END AR_ARBRATBR_XMLP_PKG;
327
328