[Home] [Help]
PACKAGE BODY: APPS.IBY_PAYMENT_METHODS_PKG
Source
1 package body IBY_PAYMENT_METHODS_PKG as
2 /* $Header: ibypmtdb.pls 120.5 2006/06/26 21:29:09 syidner noship $ */
3
4 procedure INSERT_ROW (
5 X_ROWID in out NOCOPY VARCHAR2,
6 X_PAYMENT_METHOD_CODE in VARCHAR2,
7 X_ATTRIBUTE14 in VARCHAR2,
8 X_ATTRIBUTE15 in VARCHAR2,
9 X_REMITTANCE_MESSAGE1_APL_FLAG in VARCHAR2,
10 X_REMITTANCE_MESSAGE2_APL_FLAG in VARCHAR2,
11 X_REMITTANCE_MESSAGE3_APL_FLAG in VARCHAR2,
12 X_UNIQUE_REMIT_ID_APL_FLAG in VARCHAR2,
13 X_URI_CHECK_DIGIT_APL_FLAG in VARCHAR2,
14 X_DELIVERY_CHANNEL_APL_FLAG in VARCHAR2,
15 X_PAYMENT_FORMAT_APL_FLAG in VARCHAR2,
16 X_SETTLEMENT_PRIORITY_APL_FLAG in VARCHAR2,
17 X_EXCLUSIVE_PMT_APL_FLAG in VARCHAR2,
18 X_REASON_APL_FLAG in VARCHAR2,
19 X_REASON_COMNT_APL_FLAG in VARCHAR2,
20 X_ATTRIBUTE10 in VARCHAR2,
21 X_OBJECT_VERSION_NUMBER in NUMBER,
22 X_BANK_CHARGE_BEARER_APL_FLAG in VARCHAR2,
23 X_ATTRIBUTE12 in VARCHAR2,
24 X_ATTRIBUTE13 in VARCHAR2,
25 X_EXTERNAL_BANK_ACCT_APL_FLAG in VARCHAR2,
26 X_SUPPORT_BILLS_PAYABLE_FLAG in VARCHAR2,
27 X_DOCUMENT_CATEGORY_CODE in VARCHAR2,
28 X_MATURITY_DATE_OFFSET_DAYS in NUMBER,
29 X_INACTIVE_DATE in DATE,
30 X_ANTICIPATED_FLOAT in NUMBER,
31 X_ATTRIBUTE_CATEGORY in VARCHAR2,
32 X_ATTRIBUTE1 in VARCHAR2,
33 X_ATTRIBUTE2 in VARCHAR2,
34 X_ATTRIBUTE3 in VARCHAR2,
35 X_ATTRIBUTE4 in VARCHAR2,
36 X_ATTRIBUTE5 in VARCHAR2,
37 X_ATTRIBUTE6 in VARCHAR2,
38 X_ATTRIBUTE7 in VARCHAR2,
39 X_ATTRIBUTE8 in VARCHAR2,
40 X_ATTRIBUTE9 in VARCHAR2,
41 X_ATTRIBUTE11 in VARCHAR2,
42 X_PAYMENT_METHOD_NAME in VARCHAR2,
43 X_DESCRIPTION in VARCHAR2,
44 X_CREATION_DATE in DATE,
45 X_CREATED_BY in NUMBER,
46 X_LAST_UPDATE_DATE in DATE,
47 X_LAST_UPDATED_BY in NUMBER,
48 X_LAST_UPDATE_LOGIN in NUMBER,
49 X_SEEDED_FLAG in VARCHAR2
50 ) is
51 cursor C is select ROWID from IBY_PAYMENT_METHODS_B
52 where PAYMENT_METHOD_CODE = X_PAYMENT_METHOD_CODE
53 ;
54 begin
55 insert into IBY_PAYMENT_METHODS_B (
56 ATTRIBUTE14,
57 ATTRIBUTE15,
58 REMITTANCE_MESSAGE1_APL_FLAG,
59 REMITTANCE_MESSAGE2_APL_FLAG,
60 REMITTANCE_MESSAGE3_APL_FLAG,
61 UNIQUE_REMITTANCE_ID_APL_FLAG,
62 URI_CHECK_DIGIT_APL_FLAG,
63 DELIVERY_CHANNEL_APL_FLAG,
64 PAYMENT_FORMAT_APL_FLAG,
65 SETTLEMENT_PRIORITY_APL_FLAG,
66 EXCLUSIVE_PMT_APL_FLAG,
67 PAYMENT_REASON_APL_FLAG,
68 PAYMENT_REASON_COMNT_APL_FLAG,
69 ATTRIBUTE10,
70 OBJECT_VERSION_NUMBER,
71 BANK_CHARGE_BEARER_APL_FLAG,
72 ATTRIBUTE12,
73 ATTRIBUTE13,
74 PAYMENT_METHOD_CODE,
75 EXTERNAL_BANK_ACCT_APL_FLAG,
76 SUPPORT_BILLS_PAYABLE_FLAG,
77 DOCUMENT_CATEGORY_CODE,
78 MATURITY_DATE_OFFSET_DAYS,
79 INACTIVE_DATE,
80 ANTICIPATED_FLOAT,
81 ATTRIBUTE_CATEGORY,
82 ATTRIBUTE1,
83 ATTRIBUTE2,
84 ATTRIBUTE3,
85 ATTRIBUTE4,
86 ATTRIBUTE5,
87 ATTRIBUTE6,
88 ATTRIBUTE7,
89 ATTRIBUTE8,
90 ATTRIBUTE9,
91 ATTRIBUTE11,
92 CREATION_DATE,
93 CREATED_BY,
94 LAST_UPDATE_DATE,
95 LAST_UPDATED_BY,
96 LAST_UPDATE_LOGIN,
97 SEEDED_FLAG
98 ) values (
99 X_ATTRIBUTE14,
100 X_ATTRIBUTE15,
101 X_REMITTANCE_MESSAGE1_APL_FLAG,
102 X_REMITTANCE_MESSAGE2_APL_FLAG,
103 X_REMITTANCE_MESSAGE3_APL_FLAG,
104 X_UNIQUE_REMIT_ID_APL_FLAG,
105 X_URI_CHECK_DIGIT_APL_FLAG,
106 X_DELIVERY_CHANNEL_APL_FLAG,
107 X_PAYMENT_FORMAT_APL_FLAG,
108 X_SETTLEMENT_PRIORITY_APL_FLAG,
109 X_EXCLUSIVE_PMT_APL_FLAG,
110 X_REASON_APL_FLAG,
111 X_REASON_COMNT_APL_FLAG,
112 X_ATTRIBUTE10,
113 X_OBJECT_VERSION_NUMBER,
114 X_BANK_CHARGE_BEARER_APL_FLAG,
115 X_ATTRIBUTE12,
116 X_ATTRIBUTE13,
117 X_PAYMENT_METHOD_CODE,
118 X_EXTERNAL_BANK_ACCT_APL_FLAG,
119 X_SUPPORT_BILLS_PAYABLE_FLAG,
120 X_DOCUMENT_CATEGORY_CODE,
121 X_MATURITY_DATE_OFFSET_DAYS,
122 X_INACTIVE_DATE,
123 X_ANTICIPATED_FLOAT,
124 X_ATTRIBUTE_CATEGORY,
125 X_ATTRIBUTE1,
126 X_ATTRIBUTE2,
127 X_ATTRIBUTE3,
128 X_ATTRIBUTE4,
129 X_ATTRIBUTE5,
130 X_ATTRIBUTE6,
131 X_ATTRIBUTE7,
132 X_ATTRIBUTE8,
133 X_ATTRIBUTE9,
134 X_ATTRIBUTE11,
135 X_CREATION_DATE,
136 X_CREATED_BY,
137 X_LAST_UPDATE_DATE,
138 X_LAST_UPDATED_BY,
139 X_LAST_UPDATE_LOGIN,
140 X_SEEDED_FLAG
141 );
142
143 insert into IBY_PAYMENT_METHODS_TL (
144 PAYMENT_METHOD_NAME,
145 DESCRIPTION,
146 LAST_UPDATE_DATE,
147 LAST_UPDATE_LOGIN,
148 PAYMENT_METHOD_CODE,
149 CREATED_BY,
150 CREATION_DATE,
151 LAST_UPDATED_BY,
152 OBJECT_VERSION_NUMBER,
153 LANGUAGE,
154 SOURCE_LANG
155 ) select
156 X_PAYMENT_METHOD_NAME,
157 X_DESCRIPTION,
158 X_LAST_UPDATE_DATE,
159 X_LAST_UPDATE_LOGIN,
160 X_PAYMENT_METHOD_CODE,
161 X_CREATED_BY,
162 X_CREATION_DATE,
163 X_LAST_UPDATED_BY,
164 X_OBJECT_VERSION_NUMBER,
165 L.LANGUAGE_CODE,
166 userenv('LANG')
167 from FND_LANGUAGES L
168 where L.INSTALLED_FLAG in ('I', 'B')
169 and not exists
170 (select NULL
171 from IBY_PAYMENT_METHODS_TL T
172 where T.PAYMENT_METHOD_CODE = X_PAYMENT_METHOD_CODE
173 and T.LANGUAGE = L.LANGUAGE_CODE);
174
175 open c;
176 fetch c into X_ROWID;
177 if (c%notfound) then
178 close c;
179 raise no_data_found;
180 end if;
181 close c;
182
183 end INSERT_ROW;
184
185 procedure LOCK_ROW (
186 X_PAYMENT_METHOD_CODE in VARCHAR2,
187 X_ATTRIBUTE14 in VARCHAR2,
188 X_ATTRIBUTE15 in VARCHAR2,
189 X_REMITTANCE_MESSAGE1_APL_FLAG in VARCHAR2,
190 X_REMITTANCE_MESSAGE2_APL_FLAG in VARCHAR2,
191 X_REMITTANCE_MESSAGE3_APL_FLAG in VARCHAR2,
192 X_UNIQUE_REMIT_ID_APL_FLAG in VARCHAR2,
193 X_URI_CHECK_DIGIT_APL_FLAG in VARCHAR2,
194 X_DELIVERY_CHANNEL_APL_FLAG in VARCHAR2,
195 X_PAYMENT_FORMAT_APL_FLAG in VARCHAR2,
196 X_SETTLEMENT_PRIORITY_APL_FLAG in VARCHAR2,
197 X_EXCLUSIVE_PMT_APL_FLAG in VARCHAR2,
198 X_REASON_APL_FLAG in VARCHAR2,
199 X_REASON_COMNT_APL_FLAG in VARCHAR2,
200 X_ATTRIBUTE10 in VARCHAR2,
201 X_OBJECT_VERSION_NUMBER in NUMBER,
202 X_BANK_CHARGE_BEARER_APL_FLAG in VARCHAR2,
203 X_ATTRIBUTE12 in VARCHAR2,
204 X_ATTRIBUTE13 in VARCHAR2,
205 X_EXTERNAL_BANK_ACCT_APL_FLAG in VARCHAR2,
206 X_SUPPORT_BILLS_PAYABLE_FLAG in VARCHAR2,
207 X_DOCUMENT_CATEGORY_CODE in VARCHAR2,
208 X_MATURITY_DATE_OFFSET_DAYS in NUMBER,
209 X_INACTIVE_DATE in DATE,
210 X_ANTICIPATED_FLOAT in NUMBER,
211 X_ATTRIBUTE_CATEGORY in VARCHAR2,
212 X_ATTRIBUTE1 in VARCHAR2,
213 X_ATTRIBUTE2 in VARCHAR2,
214 X_ATTRIBUTE3 in VARCHAR2,
215 X_ATTRIBUTE4 in VARCHAR2,
216 X_ATTRIBUTE5 in VARCHAR2,
217 X_ATTRIBUTE6 in VARCHAR2,
218 X_ATTRIBUTE7 in VARCHAR2,
219 X_ATTRIBUTE8 in VARCHAR2,
220 X_ATTRIBUTE9 in VARCHAR2,
221 X_ATTRIBUTE11 in VARCHAR2,
222 X_PAYMENT_METHOD_NAME in VARCHAR2,
223 X_DESCRIPTION in VARCHAR2
224 ) is
225 cursor c is select
226 ATTRIBUTE14,
227 ATTRIBUTE15,
228 REMITTANCE_MESSAGE1_APL_FLAG,
229 REMITTANCE_MESSAGE2_APL_FLAG,
230 REMITTANCE_MESSAGE3_APL_FLAG,
231 UNIQUE_REMITTANCE_ID_APL_FLAG,
232 URI_CHECK_DIGIT_APL_FLAG,
233 DELIVERY_CHANNEL_APL_FLAG,
234 PAYMENT_FORMAT_APL_FLAG,
235 SETTLEMENT_PRIORITY_APL_FLAG,
236 EXCLUSIVE_PMT_APL_FLAG,
237 PAYMENT_REASON_APL_FLAG,
238 PAYMENT_REASON_COMNT_APL_FLAG,
239 ATTRIBUTE10,
240 OBJECT_VERSION_NUMBER,
241 BANK_CHARGE_BEARER_APL_FLAG,
242 ATTRIBUTE12,
243 ATTRIBUTE13,
244 EXTERNAL_BANK_ACCT_APL_FLAG,
245 SUPPORT_BILLS_PAYABLE_FLAG,
246 DOCUMENT_CATEGORY_CODE,
247 MATURITY_DATE_OFFSET_DAYS,
248 INACTIVE_DATE,
249 ANTICIPATED_FLOAT,
250 ATTRIBUTE_CATEGORY,
251 ATTRIBUTE1,
252 ATTRIBUTE2,
253 ATTRIBUTE3,
254 ATTRIBUTE4,
255 ATTRIBUTE5,
256 ATTRIBUTE6,
257 ATTRIBUTE7,
258 ATTRIBUTE8,
259 ATTRIBUTE9,
260 ATTRIBUTE11
261 from IBY_PAYMENT_METHODS_B
262 where PAYMENT_METHOD_CODE = X_PAYMENT_METHOD_CODE
263 for update of PAYMENT_METHOD_CODE nowait;
264 recinfo c%rowtype;
265
266 cursor c1 is select
267 PAYMENT_METHOD_NAME,
268 DESCRIPTION,
269 decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
270 from IBY_PAYMENT_METHODS_TL
271 where PAYMENT_METHOD_CODE = X_PAYMENT_METHOD_CODE
272 and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
273 for update of PAYMENT_METHOD_CODE nowait;
274 begin
275 open c;
276 fetch c into recinfo;
277 if (c%notfound) then
278 close c;
279 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
280 app_exception.raise_exception;
281 end if;
282 close c;
283 if ( ((recinfo.ATTRIBUTE14 = X_ATTRIBUTE14)
284 OR ((recinfo.ATTRIBUTE14 is null) AND (X_ATTRIBUTE14 is null)))
285 AND ((recinfo.ATTRIBUTE15 = X_ATTRIBUTE15)
286 OR ((recinfo.ATTRIBUTE15 is null) AND (X_ATTRIBUTE15 is null)))
287 AND (recinfo.REMITTANCE_MESSAGE1_APL_FLAG = X_REMITTANCE_MESSAGE1_APL_FLAG)
288 AND (recinfo.REMITTANCE_MESSAGE2_APL_FLAG = X_REMITTANCE_MESSAGE2_APL_FLAG)
289 AND (recinfo.REMITTANCE_MESSAGE3_APL_FLAG = X_REMITTANCE_MESSAGE3_APL_FLAG)
290 AND (recinfo.UNIQUE_REMITTANCE_ID_APL_FLAG = X_UNIQUE_REMIT_ID_APL_FLAG)
291 AND (recinfo.URI_CHECK_DIGIT_APL_FLAG = X_URI_CHECK_DIGIT_APL_FLAG)
292 AND (recinfo.DELIVERY_CHANNEL_APL_FLAG = X_DELIVERY_CHANNEL_APL_FLAG)
293 AND (recinfo.PAYMENT_FORMAT_APL_FLAG = X_PAYMENT_FORMAT_APL_FLAG)
294 AND (recinfo.SETTLEMENT_PRIORITY_APL_FLAG = X_SETTLEMENT_PRIORITY_APL_FLAG)
295 AND (recinfo.EXCLUSIVE_PMT_APL_FLAG = X_EXCLUSIVE_PMT_APL_FLAG)
296 AND (recinfo.PAYMENT_REASON_APL_FLAG = X_REASON_APL_FLAG)
297 AND (recinfo.PAYMENT_REASON_COMNT_APL_FLAG = X_REASON_COMNT_APL_FLAG)
298 AND ((recinfo.ATTRIBUTE10 = X_ATTRIBUTE10)
299 OR ((recinfo.ATTRIBUTE10 is null) AND (X_ATTRIBUTE10 is null)))
300 AND (recinfo.OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER)
301 AND (recinfo.BANK_CHARGE_BEARER_APL_FLAG = X_BANK_CHARGE_BEARER_APL_FLAG)
302 AND ((recinfo.ATTRIBUTE12 = X_ATTRIBUTE12)
303 OR ((recinfo.ATTRIBUTE12 is null) AND (X_ATTRIBUTE12 is null)))
304 AND ((recinfo.ATTRIBUTE13 = X_ATTRIBUTE13)
305 OR ((recinfo.ATTRIBUTE13 is null) AND (X_ATTRIBUTE13 is null)))
306 AND (recinfo.EXTERNAL_BANK_ACCT_APL_FLAG = X_EXTERNAL_BANK_ACCT_APL_FLAG)
307 AND (recinfo.SUPPORT_BILLS_PAYABLE_FLAG = X_SUPPORT_BILLS_PAYABLE_FLAG)
308 AND ((recinfo.DOCUMENT_CATEGORY_CODE = X_DOCUMENT_CATEGORY_CODE)
309 OR ((recinfo.DOCUMENT_CATEGORY_CODE is null) AND (X_DOCUMENT_CATEGORY_CODE is null)))
310 AND ((recinfo.MATURITY_DATE_OFFSET_DAYS = X_MATURITY_DATE_OFFSET_DAYS)
311 OR ((recinfo.MATURITY_DATE_OFFSET_DAYS is null) AND (X_MATURITY_DATE_OFFSET_DAYS is null)))
312 AND ((recinfo.INACTIVE_DATE = X_INACTIVE_DATE)
313 OR ((recinfo.INACTIVE_DATE is null) AND (X_INACTIVE_DATE is null)))
314 AND ((recinfo.ANTICIPATED_FLOAT = X_ANTICIPATED_FLOAT)
315 OR ((recinfo.ANTICIPATED_FLOAT is null) AND (X_ANTICIPATED_FLOAT is null)))
316 AND ((recinfo.ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY)
317 OR ((recinfo.ATTRIBUTE_CATEGORY is null) AND (X_ATTRIBUTE_CATEGORY is null)))
318 AND ((recinfo.ATTRIBUTE1 = X_ATTRIBUTE1)
319 OR ((recinfo.ATTRIBUTE1 is null) AND (X_ATTRIBUTE1 is null)))
320 AND ((recinfo.ATTRIBUTE2 = X_ATTRIBUTE2)
321 OR ((recinfo.ATTRIBUTE2 is null) AND (X_ATTRIBUTE2 is null)))
322 AND ((recinfo.ATTRIBUTE3 = X_ATTRIBUTE3)
323 OR ((recinfo.ATTRIBUTE3 is null) AND (X_ATTRIBUTE3 is null)))
324 AND ((recinfo.ATTRIBUTE4 = X_ATTRIBUTE4)
325 OR ((recinfo.ATTRIBUTE4 is null) AND (X_ATTRIBUTE4 is null)))
326 AND ((recinfo.ATTRIBUTE5 = X_ATTRIBUTE5)
327 OR ((recinfo.ATTRIBUTE5 is null) AND (X_ATTRIBUTE5 is null)))
328 AND ((recinfo.ATTRIBUTE6 = X_ATTRIBUTE6)
329 OR ((recinfo.ATTRIBUTE6 is null) AND (X_ATTRIBUTE6 is null)))
330 AND ((recinfo.ATTRIBUTE7 = X_ATTRIBUTE7)
331 OR ((recinfo.ATTRIBUTE7 is null) AND (X_ATTRIBUTE7 is null)))
332 AND ((recinfo.ATTRIBUTE8 = X_ATTRIBUTE8)
333 OR ((recinfo.ATTRIBUTE8 is null) AND (X_ATTRIBUTE8 is null)))
334 AND ((recinfo.ATTRIBUTE9 = X_ATTRIBUTE9)
335 OR ((recinfo.ATTRIBUTE9 is null) AND (X_ATTRIBUTE9 is null)))
336 AND ((recinfo.ATTRIBUTE11 = X_ATTRIBUTE11)
337 OR ((recinfo.ATTRIBUTE11 is null) AND (X_ATTRIBUTE11 is null)))
338 ) then
339 null;
340 else
341 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
342 app_exception.raise_exception;
343 end if;
344
345 for tlinfo in c1 loop
346 if (tlinfo.BASELANG = 'Y') then
347 if ( (tlinfo.PAYMENT_METHOD_NAME = X_PAYMENT_METHOD_NAME)
348 AND ((tlinfo.DESCRIPTION = X_DESCRIPTION)
349 OR ((tlinfo.DESCRIPTION is null) AND (X_DESCRIPTION is null)))
350 ) then
351 null;
352 else
353 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
354 app_exception.raise_exception;
355 end if;
356 end if;
357 end loop;
358 return;
359 end LOCK_ROW;
360
361 procedure UPDATE_ROW (
362 X_PAYMENT_METHOD_CODE in VARCHAR2,
363 X_ATTRIBUTE14 in VARCHAR2,
364 X_ATTRIBUTE15 in VARCHAR2,
365 X_REMITTANCE_MESSAGE1_APL_FLAG in VARCHAR2,
366 X_REMITTANCE_MESSAGE2_APL_FLAG in VARCHAR2,
367 X_REMITTANCE_MESSAGE3_APL_FLAG in VARCHAR2,
368 X_UNIQUE_REMIT_ID_APL_FLAG in VARCHAR2,
369 X_URI_CHECK_DIGIT_APL_FLAG in VARCHAR2,
370 X_DELIVERY_CHANNEL_APL_FLAG in VARCHAR2,
371 X_PAYMENT_FORMAT_APL_FLAG in VARCHAR2,
372 X_SETTLEMENT_PRIORITY_APL_FLAG in VARCHAR2,
373 X_EXCLUSIVE_PMT_APL_FLAG in VARCHAR2,
374 X_REASON_APL_FLAG in VARCHAR2,
375 X_REASON_COMNT_APL_FLAG in VARCHAR2,
376 X_ATTRIBUTE10 in VARCHAR2,
377 X_OBJECT_VERSION_NUMBER in NUMBER,
378 X_BANK_CHARGE_BEARER_APL_FLAG in VARCHAR2,
379 X_ATTRIBUTE12 in VARCHAR2,
383 X_DOCUMENT_CATEGORY_CODE in VARCHAR2,
380 X_ATTRIBUTE13 in VARCHAR2,
381 X_EXTERNAL_BANK_ACCT_APL_FLAG in VARCHAR2,
382 X_SUPPORT_BILLS_PAYABLE_FLAG in VARCHAR2,
384 X_MATURITY_DATE_OFFSET_DAYS in NUMBER,
385 X_INACTIVE_DATE in DATE,
386 X_ANTICIPATED_FLOAT in NUMBER,
387 X_ATTRIBUTE_CATEGORY in VARCHAR2,
388 X_ATTRIBUTE1 in VARCHAR2,
389 X_ATTRIBUTE2 in VARCHAR2,
390 X_ATTRIBUTE3 in VARCHAR2,
391 X_ATTRIBUTE4 in VARCHAR2,
392 X_ATTRIBUTE5 in VARCHAR2,
393 X_ATTRIBUTE6 in VARCHAR2,
394 X_ATTRIBUTE7 in VARCHAR2,
395 X_ATTRIBUTE8 in VARCHAR2,
396 X_ATTRIBUTE9 in VARCHAR2,
397 X_ATTRIBUTE11 in VARCHAR2,
398 X_PAYMENT_METHOD_NAME in VARCHAR2,
399 X_DESCRIPTION in VARCHAR2,
400 X_LAST_UPDATE_DATE in DATE,
401 X_LAST_UPDATED_BY in NUMBER,
402 X_LAST_UPDATE_LOGIN in NUMBER
403 ) is
404 begin
405 update IBY_PAYMENT_METHODS_B set
406 ATTRIBUTE14 = X_ATTRIBUTE14,
407 ATTRIBUTE15 = X_ATTRIBUTE15,
408 REMITTANCE_MESSAGE1_APL_FLAG = X_REMITTANCE_MESSAGE1_APL_FLAG,
409 REMITTANCE_MESSAGE2_APL_FLAG = X_REMITTANCE_MESSAGE2_APL_FLAG,
410 REMITTANCE_MESSAGE3_APL_FLAG = X_REMITTANCE_MESSAGE3_APL_FLAG,
411 UNIQUE_REMITTANCE_ID_APL_FLAG = X_UNIQUE_REMIT_ID_APL_FLAG,
412 URI_CHECK_DIGIT_APL_FLAG = X_URI_CHECK_DIGIT_APL_FLAG,
413 DELIVERY_CHANNEL_APL_FLAG = X_DELIVERY_CHANNEL_APL_FLAG,
414 PAYMENT_FORMAT_APL_FLAG = X_PAYMENT_FORMAT_APL_FLAG,
415 SETTLEMENT_PRIORITY_APL_FLAG = X_SETTLEMENT_PRIORITY_APL_FLAG,
416 EXCLUSIVE_PMT_APL_FLAG = X_EXCLUSIVE_PMT_APL_FLAG,
417 PAYMENT_REASON_APL_FLAG = X_REASON_APL_FLAG,
418 PAYMENT_REASON_COMNT_APL_FLAG = X_REASON_COMNT_APL_FLAG,
419 ATTRIBUTE10 = X_ATTRIBUTE10,
420 OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
421 BANK_CHARGE_BEARER_APL_FLAG = X_BANK_CHARGE_BEARER_APL_FLAG,
422 ATTRIBUTE12 = X_ATTRIBUTE12,
423 ATTRIBUTE13 = X_ATTRIBUTE13,
424 EXTERNAL_BANK_ACCT_APL_FLAG = X_EXTERNAL_BANK_ACCT_APL_FLAG,
425 SUPPORT_BILLS_PAYABLE_FLAG = X_SUPPORT_BILLS_PAYABLE_FLAG,
426 DOCUMENT_CATEGORY_CODE = X_DOCUMENT_CATEGORY_CODE,
427 MATURITY_DATE_OFFSET_DAYS = X_MATURITY_DATE_OFFSET_DAYS,
428 INACTIVE_DATE = X_INACTIVE_DATE,
429 ANTICIPATED_FLOAT = X_ANTICIPATED_FLOAT,
430 ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
431 ATTRIBUTE1 = X_ATTRIBUTE1,
432 ATTRIBUTE2 = X_ATTRIBUTE2,
433 ATTRIBUTE3 = X_ATTRIBUTE3,
434 ATTRIBUTE4 = X_ATTRIBUTE4,
435 ATTRIBUTE5 = X_ATTRIBUTE5,
436 ATTRIBUTE6 = X_ATTRIBUTE6,
437 ATTRIBUTE7 = X_ATTRIBUTE7,
438 ATTRIBUTE8 = X_ATTRIBUTE8,
439 ATTRIBUTE9 = X_ATTRIBUTE9,
440 ATTRIBUTE11 = X_ATTRIBUTE11,
441 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
442 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
443 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
444 where PAYMENT_METHOD_CODE = X_PAYMENT_METHOD_CODE;
445
446 if (sql%notfound) then
447 raise no_data_found;
448 end if;
449
450 update IBY_PAYMENT_METHODS_TL set
451 PAYMENT_METHOD_NAME = X_PAYMENT_METHOD_NAME,
452 DESCRIPTION = X_DESCRIPTION,
453 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
454 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
455 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
456 SOURCE_LANG = userenv('LANG')
457 where PAYMENT_METHOD_CODE = X_PAYMENT_METHOD_CODE
458 and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
459
460 if (sql%notfound) then
461 raise no_data_found;
462 end if;
463 end UPDATE_ROW;
464
465 procedure DELETE_ROW (
466 X_PAYMENT_METHOD_CODE in VARCHAR2
467 ) is
468 begin
469 delete from IBY_PAYMENT_METHODS_TL
470 where PAYMENT_METHOD_CODE = X_PAYMENT_METHOD_CODE;
471
472 if (sql%notfound) then
473 raise no_data_found;
474 end if;
475
476 delete from IBY_PAYMENT_METHODS_B
477 where PAYMENT_METHOD_CODE = X_PAYMENT_METHOD_CODE;
478
479 if (sql%notfound) then
480 raise no_data_found;
481 end if;
482 end DELETE_ROW;
483
484 procedure ADD_LANGUAGE
485 is
486 begin
487 delete from IBY_PAYMENT_METHODS_TL T
488 where not exists
489 (select NULL
490 from IBY_PAYMENT_METHODS_B B
491 where B.PAYMENT_METHOD_CODE = T.PAYMENT_METHOD_CODE
492 );
493
494 update IBY_PAYMENT_METHODS_TL T set (
495 PAYMENT_METHOD_NAME,
496 DESCRIPTION
497 ) = (select
498 B.PAYMENT_METHOD_NAME,
499 B.DESCRIPTION
500 from IBY_PAYMENT_METHODS_TL B
501 where B.PAYMENT_METHOD_CODE = T.PAYMENT_METHOD_CODE
502 and B.LANGUAGE = T.SOURCE_LANG)
503 where (
504 T.PAYMENT_METHOD_CODE,
505 T.LANGUAGE
506 ) in (select
507 SUBT.PAYMENT_METHOD_CODE,
508 SUBT.LANGUAGE
509 from IBY_PAYMENT_METHODS_TL SUBB, IBY_PAYMENT_METHODS_TL SUBT
510 where SUBB.PAYMENT_METHOD_CODE = SUBT.PAYMENT_METHOD_CODE
511 and SUBB.LANGUAGE = SUBT.SOURCE_LANG
512 and (SUBB.PAYMENT_METHOD_NAME <> SUBT.PAYMENT_METHOD_NAME
513 or SUBB.DESCRIPTION <> SUBT.DESCRIPTION
514 or (SUBB.DESCRIPTION is null and SUBT.DESCRIPTION is not null)
515 or (SUBB.DESCRIPTION is not null and SUBT.DESCRIPTION is null)
516 ));
517
518 insert into IBY_PAYMENT_METHODS_TL (
519 PAYMENT_METHOD_NAME,
520 DESCRIPTION,
521 LAST_UPDATE_DATE,
522 LAST_UPDATE_LOGIN,
523 PAYMENT_METHOD_CODE,
524 CREATED_BY,
525 CREATION_DATE,
526 LAST_UPDATED_BY,
527 OBJECT_VERSION_NUMBER,
528 LANGUAGE,
529 SOURCE_LANG
530 ) select /*+ ORDERED */
531 B.PAYMENT_METHOD_NAME,
532 B.DESCRIPTION,
533 B.LAST_UPDATE_DATE,
534 B.LAST_UPDATE_LOGIN,
538 B.LAST_UPDATED_BY,
535 B.PAYMENT_METHOD_CODE,
536 B.CREATED_BY,
537 B.CREATION_DATE,
539 B.OBJECT_VERSION_NUMBER,
540 L.LANGUAGE_CODE,
541 B.SOURCE_LANG
542 from IBY_PAYMENT_METHODS_TL B, FND_LANGUAGES L
543 where L.INSTALLED_FLAG in ('I', 'B')
544 and B.LANGUAGE = userenv('LANG')
545 and not exists
546 (select NULL
547 from IBY_PAYMENT_METHODS_TL T
548 where T.PAYMENT_METHOD_CODE = B.PAYMENT_METHOD_CODE
549 and T.LANGUAGE = L.LANGUAGE_CODE);
550 end ADD_LANGUAGE;
551
552 procedure LOAD_SEED_ROW (
553 X_PAYMENT_METHOD_CODE in VARCHAR2,
554 X_REMITTANCE_MESSAGE1_APL_FLAG in VARCHAR2,
555 X_REMITTANCE_MESSAGE2_APL_FLAG in VARCHAR2,
556 X_REMITTANCE_MESSAGE3_APL_FLAG in VARCHAR2,
557 X_UNIQUE_REMIT_ID_APL_FLAG in VARCHAR2,
558 X_URI_CHECK_DIGIT_APL_FLAG in VARCHAR2,
559 X_DELIVERY_CHANNEL_APL_FLAG in VARCHAR2,
560 X_PAYMENT_FORMAT_APL_FLAG in VARCHAR2,
561 X_SETTLEMENT_PRIORITY_APL_FLAG in VARCHAR2,
562 X_EXCLUSIVE_PMT_APL_FLAG in VARCHAR2,
563 X_REASON_APL_FLAG in VARCHAR2,
564 X_REASON_COMNT_APL_FLAG in VARCHAR2,
565 X_OBJECT_VERSION_NUMBER in NUMBER,
566 X_BANK_CHARGE_BEARER_APL_FLAG in VARCHAR2,
567 X_EXTERNAL_BANK_ACCT_APL_FLAG in VARCHAR2,
568 X_SUPPORT_BILLS_PAYABLE_FLAG in VARCHAR2,
569 X_INACTIVE_DATE in DATE,
570 X_ANTICIPATED_FLOAT in NUMBER,
571 X_PAYMENT_METHOD_NAME in VARCHAR2,
572 X_DESCRIPTION in VARCHAR2,
573 X_SEEDED_FLAG in VARCHAR2,
574 X_CREATION_DATE in DATE,
575 X_CREATED_BY in NUMBER,
576 X_LAST_UPDATE_DATE in DATE,
577 X_LAST_UPDATED_BY in NUMBER,
578 X_LAST_UPDATE_LOGIN in NUMBER
579 ) is
580 row_id VARCHAR2(200);
581 begin
582
583 update IBY_PAYMENT_METHODS_B set
584 REMITTANCE_MESSAGE1_APL_FLAG = X_REMITTANCE_MESSAGE1_APL_FLAG,
585 REMITTANCE_MESSAGE2_APL_FLAG = X_REMITTANCE_MESSAGE2_APL_FLAG,
586 REMITTANCE_MESSAGE3_APL_FLAG = X_REMITTANCE_MESSAGE3_APL_FLAG,
587 UNIQUE_REMITTANCE_ID_APL_FLAG = X_UNIQUE_REMIT_ID_APL_FLAG,
588 URI_CHECK_DIGIT_APL_FLAG = X_URI_CHECK_DIGIT_APL_FLAG,
589 DELIVERY_CHANNEL_APL_FLAG = X_DELIVERY_CHANNEL_APL_FLAG,
590 PAYMENT_FORMAT_APL_FLAG = X_PAYMENT_FORMAT_APL_FLAG,
591 SETTLEMENT_PRIORITY_APL_FLAG = X_SETTLEMENT_PRIORITY_APL_FLAG,
592 EXCLUSIVE_PMT_APL_FLAG = X_EXCLUSIVE_PMT_APL_FLAG,
593 PAYMENT_REASON_APL_FLAG = X_REASON_APL_FLAG,
594 PAYMENT_REASON_COMNT_APL_FLAG = X_REASON_COMNT_APL_FLAG,
595 OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
596 BANK_CHARGE_BEARER_APL_FLAG = X_BANK_CHARGE_BEARER_APL_FLAG,
597 EXTERNAL_BANK_ACCT_APL_FLAG = X_EXTERNAL_BANK_ACCT_APL_FLAG,
598 SUPPORT_BILLS_PAYABLE_FLAG = X_SUPPORT_BILLS_PAYABLE_FLAG,
599 INACTIVE_DATE = X_INACTIVE_DATE,
600 ANTICIPATED_FLOAT = X_ANTICIPATED_FLOAT,
601 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
602 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
603 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
604 where PAYMENT_METHOD_CODE = X_PAYMENT_METHOD_CODE;
605
606 if (sql%notfound) then
607 raise no_data_found;
608 end if;
609
610 update IBY_PAYMENT_METHODS_TL set
611 PAYMENT_METHOD_NAME = X_PAYMENT_METHOD_NAME,
612 DESCRIPTION = X_DESCRIPTION,
613 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
614 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
615 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
616 SOURCE_LANG = userenv('LANG')
617 where PAYMENT_METHOD_CODE = X_PAYMENT_METHOD_CODE
618 and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
619
620 if (sql%notfound) then
621 raise no_data_found;
622 end if;
623
624 exception
625 when no_data_found then
626 INSERT_ROW (
627 row_id,
628 X_PAYMENT_METHOD_CODE,
629 null,
630 null,
631 X_REMITTANCE_MESSAGE1_APL_FLAG,
632 X_REMITTANCE_MESSAGE2_APL_FLAG,
633 X_REMITTANCE_MESSAGE3_APL_FLAG,
634 X_UNIQUE_REMIT_ID_APL_FLAG,
635 X_URI_CHECK_DIGIT_APL_FLAG,
636 X_DELIVERY_CHANNEL_APL_FLAG,
637 X_PAYMENT_FORMAT_APL_FLAG,
638 X_SETTLEMENT_PRIORITY_APL_FLAG,
639 X_EXCLUSIVE_PMT_APL_FLAG,
640 X_REASON_APL_FLAG,
641 X_REASON_COMNT_APL_FLAG,
642 null,
643 X_OBJECT_VERSION_NUMBER,
644 X_BANK_CHARGE_BEARER_APL_FLAG,
645 null,
646 null,
647 X_EXTERNAL_BANK_ACCT_APL_FLAG,
648 X_SUPPORT_BILLS_PAYABLE_FLAG,
649 null,
650 null,
651 X_INACTIVE_DATE,
652 X_ANTICIPATED_FLOAT,
653 null,
654 null,
655 null,
656 null,
657 null,
658 null,
659 null,
660 null,
661 null,
662 null,
663 null,
664 X_PAYMENT_METHOD_NAME,
665 X_DESCRIPTION,
666 X_CREATION_DATE,
667 X_CREATED_BY,
668 X_LAST_UPDATE_DATE,
669 X_LAST_UPDATED_BY,
670 X_LAST_UPDATE_LOGIN,
671 X_SEEDED_FLAG);
672
673 end LOAD_SEED_ROW;
674
675 procedure TRANSLATE_ROW (
676 X_PAYMENT_METHOD_CODE in VARCHAR2,
677 X_PAYMENT_METHOD_NAME in VARCHAR2,
678 X_DESCRIPTION in VARCHAR2,
679 X_OBJECT_VERSION_NUMBER in NUMBER,
680 X_OWNER in VARCHAR2)
681 is
682 begin
683 update iby_payment_methods_tl set
684 PAYMENT_METHOD_NAME = X_PAYMENT_METHOD_NAME,
685 DESCRIPTION = X_DESCRIPTION,
686 OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
687 LAST_UPDATED_BY = fnd_load_util.owner_id(X_OWNER),
688 LAST_UPDATE_DATE = trunc(sysdate),
689 LAST_UPDATE_LOGIN = fnd_load_util.owner_id(X_OWNER),
690 SOURCE_LANG = userenv('LANG')
691 where userenv('LANG') in (LANGUAGE, SOURCE_LANG)
692 and PAYMENT_METHOD_CODE = X_PAYMENT_METHOD_CODE;
693 end;
694
695 procedure LOAD_SEED_APL_ROW (
696 X_PAYMENT_METHOD_CODE in VARCHAR2,
697 X_OBJECT_VERSION_NUMBER in NUMBER,
698 X_PAYMENT_FLOW in VARCHAR2,
699 X_APPLICABLE_TYPE_CODE in VARCHAR2,
700 X_APPLICABLE_VALUE_FROM in VARCHAR2,
701 X_APPLICABLE_VALUE_TO in VARCHAR2,
702 X_APPLICATION_ID in NUMBER,
703 X_INACTIVE_DATE in DATE,
704 X_EXCLUDE_FROM_APPLIC_FLAG VARCHAR2,
705 X_CREATION_DATE in DATE,
706 X_CREATED_BY in NUMBER,
707 X_LAST_UPDATE_DATE in DATE,
708 X_LAST_UPDATED_BY in NUMBER,
709 X_LAST_UPDATE_LOGIN in NUMBER
710 ) is
711 l_result number;
712
713 begin
714
715 select 1
716 into l_result
717 from
718 IBY_APPLICABLE_PMT_MTHDS
719 where application_id=X_APPLICATION_ID
720 and payment_flow=x_payment_flow
721 and applicable_type_code=x_applicable_type_code
722 and payment_method_code=x_payment_method_code
723 and rownum=1;
724
725 exception
726 when no_data_found then
727 insert into IBY_APPLICABLE_PMT_MTHDS
728 ( APPLICABLE_PMT_MTHD_ID,
729 PAYMENT_METHOD_CODE,
730 PAYMENT_FLOW,
731 APPLICABLE_TYPE_CODE,
732 APPLICABLE_VALUE_FROM,
733 APPLICABLE_VALUE_TO,
734 APPLICATION_ID,
735 INACTIVE_DATE,
736 EXCLUDE_FROM_APPLIC_FLAG,
737 LAST_UPDATE_DATE,
738 LAST_UPDATE_LOGIN,
739 CREATED_BY,
740 CREATION_DATE,
741 LAST_UPDATED_BY,
742 OBJECT_VERSION_NUMBER)
743 VALUES
744 ( iby_applicable_pmt_mthds_s.nextval,
745 X_PAYMENT_METHOD_CODE,
746 X_PAYMENT_FLOW,
747 X_APPLICABLE_TYPE_CODE,
748 X_APPLICABLE_VALUE_FROM,
749 X_APPLICABLE_VALUE_TO,
750 X_APPLICATION_ID,
751 X_INACTIVE_DATE,
752 X_EXCLUDE_FROM_APPLIC_FLAG,
753 X_LAST_UPDATE_DATE,
754 X_LAST_UPDATE_LOGIN,
755 X_CREATED_BY,
756 X_CREATION_DATE,
757 X_LAST_UPDATED_BY,
758 X_OBJECT_VERSION_NUMBER);
759
760 end LOAD_SEED_APL_ROW;
761
762 end IBY_PAYMENT_METHODS_PKG;