[Home] [Help]
1: PACKAGE BODY ARP_LOCKBOX_HOOK_PVT AS
2: /*$Header: ARRLBHPB.pls 120.17.12020000.2 2012/10/19 13:02:31 aghoraka ship $*/
3: --
4: /* Private variables */
5: g_okl_installed boolean := FALSE;
42: l_line_level_cash_app_rule varchar2(2);
43: --
44: BEGIN
45: IF PG_DEBUG in ('Y', 'C') THEN
46: arp_util.debug('arp_lockbox_hook_pvt.proc_before_validation()+');
47: END IF;
48:
49: BEGIN
50: select nvl(a.LINE_LEVEL_CASH_APP_RULE,'N') into l_line_level_cash_app_rule
169: g_second_validation_pvt := TRUE;
170: END IF;
171:
172: -- Now call public hook
173: arp_lockbox_hook.proc_before_validation(pub_errorbuf,pub_errorcode,in_trans_req_id,pub_insert_records);
174:
175: IF pub_insert_records = 'N' THEN
176: g_second_validation_pub := TRUE;
177: END IF;
190: out_insert_records := pub_insert_records;
191: END IF;
192:
193: IF PG_DEBUG in ('Y', 'C') THEN
194: arp_util.debug('arp_lockbox_hook_pvt.proc_before_validation()-');
195: END IF;
196: END proc_before_validation;
197: --
198: /*----------------------------------------------------------------------------
236: x_msg_data VARCHAR(2000);
237: --
238: BEGIN
239: IF PG_DEBUG in ('Y', 'C') THEN
240: arp_util.debug('proc_after_validation: ' || 'arp_lockbox_hook_pvt.proc_after_validation()+');
241: END IF;
242: IF nvl(arp_global.sysparam.ta_installed_flag,'N') = 'Y' THEN
243: -- Removed ARTA logic as functionality is obsolete in R12
244: -- See Bug 4936298
288: pvt_insert_records := 'N';
289: END IF;
290:
291: -- Now call the public hook
292: arp_lockbox_hook.proc_after_validation(pub_errorbuf,pub_errorcode,in_trans_req_id,pub_insert_records);
293:
294: IF g_second_validation_pvt AND g_second_validation_pub THEN
295: IF pvt_errorcode = 0 THEN
296: out_errorcode := pub_errorcode;
311: out_insert_records := pub_insert_records;
312: END IF;
313:
314: IF PG_DEBUG in ('Y', 'C') THEN
315: arp_util.debug('proc_after_validation: ' || 'arp_lockbox_hook_pvt.proc_after_validation()-');
316: END IF;
317: END proc_after_validation;
318: --
319: /*----------------------------------------------------------------------------
337: pub_errorbuf varchar2(255);
338: pub_errorcode varchar2(255);
339: BEGIN
340: IF PG_DEBUG in ('Y', 'C') THEN
341: arp_util.debug('arp_lockbox_hook_pvt.proc_after_second_validation()+');
342: END IF;
343: IF nvl(arp_global.sysparam.ta_installed_flag,'N') = 'Y' THEN
344: -- Removed ARTA logic as functionality is obsolete in R12
345: -- See Bug 4936298
355: pvt_errorbuf := NULL;
356: END IF;
357:
358: -- Now call the public hook
359: arp_lockbox_hook.proc_after_second_validation(pub_errorbuf,pub_errorcode,in_trans_req_id);
360:
361: IF pvt_errorcode = 0 THEN
362: out_errorcode := pub_errorcode;
363: out_errorbuf := pub_errorbuf;
366: out_errorbuf := pvt_errorbuf;
367: END IF;
368:
369: IF PG_DEBUG in ('Y', 'C') THEN
370: arp_util.debug('arp_lockbox_hook_pvt.proc_after_second_validation()-');
371: END IF;
372: END proc_after_second_validation;
373: --
374: /*----------------------------------------------------------------------------
483: and b.requested_trans_format_id = a.transmission_format_id
484: and a.record_type_lookup_code in ('PAYMENT','OVRFLW PAYMENT') );
485: BEGIN
486: IF PG_DEBUG in ('Y', 'C') THEN
487: arp_util.debug('arp_lockbox_hook_pvt.proc_for_custom_llca()+');
488: END IF;
489: /* Check if the format includes batches */
490: BEGIN
491: SELECT distinct 'Y'
689:
690: END LOOP;
691:
692: /* Calling the custom code to return the resolved matching numbers and LLCA Data. */
693: ARP_LOCKBOX_HOOK.cursor_for_custom_llca(l_unres_inv_array,
694: l_invoice_array,
695: l_line_array);
696:
697: l_last_invoice_index := l_invoice_array.last;
1239: END IF;
1240: END IF;
1241:
1242: IF PG_DEBUG in ('Y', 'C') THEN
1243: arp_util.debug('arp_lockbox_hook_pvt.proc_for_custom_llca()-');
1244: END IF;
1245: EXCEPTION
1246: WHEN OTHERS THEN
1247: IF PG_DEBUG in ('Y', 'C') THEN
1250: END IF;
1251: RAISE;
1252: END proc_for_custom_llca;
1253: --
1254: END arp_lockbox_hook_pvt;