[Home] [Help]
1: PACKAGE BODY AP_DBI_PKG AS
2: /* $Header: apdbigeb.pls 120.1.12010000.2 2009/11/23 03:52:39 ssdeshpa ship $ */
3: -- Public Procedure Specifications
4:
5: -- Procedure Definitions
9: p_operation IN VARCHAR2,
10: p_key_value1 IN NUMBER DEFAULT NULL,
11: p_key_value2 IN NUMBER DEFAULT NULL,
12: p_key_value_list IN
13: ap_dbi_pkg.r_dbi_key_value_arr DEFAULT NULL,
14: p_calling_sequence in VARCHAR2) IS
15:
16: l_curr_calling_sequence varchar2(2000);
17: l_debug_info varchar2(100);
334:
335: BEGIN
336:
337:
338: l_curr_calling_sequence := 'AP_DBI_PKG.Insert_Payment_Confirm_DBI<-'||
339: P_calling_sequence;
340:
341:
342: IF (p_key_table = 'AP_INVOICES_ALL') THEN
347: INTO l_invoice_id;
348: EXIT WHEN invoice_cur%NOTFOUND;
349: --l_num_fetches_inv := l_num_fetches_inv + 1;
350:
351: AP_DBI_PKG.Maintain_DBI_Summary
352: (p_table_name => 'AP_INVOICES',
353: p_operation => 'I',
354: p_key_value1 => l_invoice_id,
355: p_calling_sequence => l_curr_calling_sequence);
362: FETCH invoice_dist_cur
363: INTO l_invoice_dist_id,l_invoice_id;
364: EXIT WHEN invoice_dist_cur%NOTFOUND;
365:
366: AP_DBI_PKG.Maintain_DBI_Summary
367: (p_table_name => 'AP_INVOICE_DISTRIBUTIONS',
368: p_operation => 'I',
369: p_key_value1 => l_invoice_id,
370: p_key_value2 => l_invoice_dist_id,
377: FETCH sched_cur
378: INTO l_invoice_id, l_payment_num;
379: EXIT WHEN sched_cur%NOTFOUND;
380:
381: AP_DBI_PKG.Maintain_DBI_Summary
382: (p_table_name => 'AP_PAYMENT_SCHEDULES',
383: p_operation => 'I',
384: p_key_value1 => l_invoice_id,
385: p_key_value2 => l_payment_num,
394: FETCH invoice_payments_cur
395: INTO l_invoice_pay_id;
396: EXIT WHEN invoice_payments_cur%NOTFOUND;
397:
398: AP_DBI_PKG.Maintain_DBI_Summary
399: (p_table_name => 'AP_INVOICE_PAYMENTS',
400: p_operation => 'I',
401: p_key_value1 => l_invoice_pay_id,
402: p_calling_sequence => l_curr_calling_sequence);
419:
420:
421: END Insert_Payment_Confirm_DBI;
422:
423: END AP_DBI_PKG;