[Home] [Help]
1: PACKAGE BODY ARP_LOCKBOX_HOOK_PVT AS
2: /*$Header: ARRLBHPB.pls 120.10.12010000.5 2008/10/24 16:51:47 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
154: g_second_validation_pvt := TRUE;
155: END IF;
156:
157: -- Now call public hook
158: arp_lockbox_hook.proc_before_validation(pub_errorbuf,pub_errorcode,in_trans_req_id,pub_insert_records);
159:
160: IF pub_insert_records = 'N' THEN
161: g_second_validation_pub := TRUE;
162: END IF;
175: out_insert_records := pub_insert_records;
176: END IF;
177:
178: IF PG_DEBUG in ('Y', 'C') THEN
179: arp_util.debug('arp_lockbox_hook_pvt.proc_before_validation()-');
180: END IF;
181: END proc_before_validation;
182: --
183: /*----------------------------------------------------------------------------
221: x_msg_data VARCHAR(2000);
222: --
223: BEGIN
224: IF PG_DEBUG in ('Y', 'C') THEN
225: arp_util.debug('proc_after_validation: ' || 'arp_lockbox_hook_pvt.proc_after_validation()+');
226: END IF;
227: IF nvl(arp_global.sysparam.ta_installed_flag,'N') = 'Y' THEN
228: -- Removed ARTA logic as functionality is obsolete in R12
229: -- See Bug 4936298
273: pvt_insert_records := 'N';
274: END IF;
275:
276: -- Now call the public hook
277: arp_lockbox_hook.proc_after_validation(pub_errorbuf,pub_errorcode,in_trans_req_id,pub_insert_records);
278:
279: IF g_second_validation_pvt AND g_second_validation_pub THEN
280: IF pvt_errorcode = 0 THEN
281: out_errorcode := pub_errorcode;
296: out_insert_records := pub_insert_records;
297: END IF;
298:
299: IF PG_DEBUG in ('Y', 'C') THEN
300: arp_util.debug('proc_after_validation: ' || 'arp_lockbox_hook_pvt.proc_after_validation()-');
301: END IF;
302: END proc_after_validation;
303: --
304: /*----------------------------------------------------------------------------
322: pub_errorbuf varchar2(255);
323: pub_errorcode varchar2(255);
324: BEGIN
325: IF PG_DEBUG in ('Y', 'C') THEN
326: arp_util.debug('arp_lockbox_hook_pvt.proc_after_second_validation()+');
327: END IF;
328: IF nvl(arp_global.sysparam.ta_installed_flag,'N') = 'Y' THEN
329: -- Removed ARTA logic as functionality is obsolete in R12
330: -- See Bug 4936298
340: pvt_errorbuf := NULL;
341: END IF;
342:
343: -- Now call the public hook
344: arp_lockbox_hook.proc_after_second_validation(pub_errorbuf,pub_errorcode,in_trans_req_id);
345:
346: IF pvt_errorcode = 0 THEN
347: out_errorcode := pub_errorcode;
348: out_errorbuf := pub_errorbuf;
351: out_errorbuf := pvt_errorbuf;
352: END IF;
353:
354: IF PG_DEBUG in ('Y', 'C') THEN
355: arp_util.debug('arp_lockbox_hook_pvt.proc_after_second_validation()-');
356: END IF;
357: END proc_after_second_validation;
358: --
359: /*----------------------------------------------------------------------------
468: and b.requested_trans_format_id = a.transmission_format_id
469: and a.record_type_lookup_code in ('PAYMENT','OVRFLW PAYMENT') );
470: BEGIN
471: IF PG_DEBUG in ('Y', 'C') THEN
472: arp_util.debug('arp_lockbox_hook_pvt.proc_for_custom_llca()+');
473: END IF;
474: /* Check if the format includes batches */
475: BEGIN
476: SELECT distinct 'Y'
674:
675: END LOOP;
676:
677: /* Calling the custom code to return the resolved matching numbers and LLCA Data. */
678: ARP_LOCKBOX_HOOK.cursor_for_custom_llca(l_unres_inv_array,
679: l_invoice_array,
680: l_line_array);
681:
682: l_last_invoice_index := l_invoice_array.last;
1192: END IF;
1193: END IF;
1194:
1195: IF PG_DEBUG in ('Y', 'C') THEN
1196: arp_util.debug('arp_lockbox_hook_pvt.proc_for_custom_llca()-');
1197: END IF;
1198: EXCEPTION
1199: WHEN OTHERS THEN
1200: IF PG_DEBUG in ('Y', 'C') THEN
1205: END IF;
1206: RAISE;
1207: END proc_for_custom_llca;
1208: --
1209: END arp_lockbox_hook_pvt;