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