[Home] [Help]
4: /* Private procedures added for bug 2670619 */
5: /*Bug 44509019 used NOCOPY hint to remove GSCC warnings file.sql.39*/
6: PROCEDURE calc_amt_applied_from_fmt (
7: p_currency_code IN VARCHAR2,
8: p_amount_applied IN ar_payments_interface.amount_applied1%type,
9: p_trans_to_receipt_rate IN ar_payments_interface.trans_to_receipt_rate1%type,
10: amount_applied_from OUT NOCOPY ar_payments_interface.amount_applied_from1%type,
11: p_format_amount IN VARCHAR2
12: );
5: /*Bug 44509019 used NOCOPY hint to remove GSCC warnings file.sql.39*/
6: PROCEDURE calc_amt_applied_from_fmt (
7: p_currency_code IN VARCHAR2,
8: p_amount_applied IN ar_payments_interface.amount_applied1%type,
9: p_trans_to_receipt_rate IN ar_payments_interface.trans_to_receipt_rate1%type,
10: amount_applied_from OUT NOCOPY ar_payments_interface.amount_applied_from1%type,
11: p_format_amount IN VARCHAR2
12: );
13:
6: PROCEDURE calc_amt_applied_from_fmt (
7: p_currency_code IN VARCHAR2,
8: p_amount_applied IN ar_payments_interface.amount_applied1%type,
9: p_trans_to_receipt_rate IN ar_payments_interface.trans_to_receipt_rate1%type,
10: amount_applied_from OUT NOCOPY ar_payments_interface.amount_applied_from1%type,
11: p_format_amount IN VARCHAR2
12: );
13:
14: PROCEDURE calc_amt_applied_fmt (
12: );
13:
14: PROCEDURE calc_amt_applied_fmt (
15: p_invoice_currency_code IN VARCHAR2,
16: p_amount_applied_from IN ar_payments_interface.amount_applied_from1%type,
17: p_trans_to_receipt_rate IN ar_payments_interface.trans_to_receipt_rate1%type,
18: amount_applied OUT NOCOPY ar_payments_interface.amount_applied1%type,
19: p_format_amount IN VARCHAR2
20: );
13:
14: PROCEDURE calc_amt_applied_fmt (
15: p_invoice_currency_code IN VARCHAR2,
16: p_amount_applied_from IN ar_payments_interface.amount_applied_from1%type,
17: p_trans_to_receipt_rate IN ar_payments_interface.trans_to_receipt_rate1%type,
18: amount_applied OUT NOCOPY ar_payments_interface.amount_applied1%type,
19: p_format_amount IN VARCHAR2
20: );
21: --
14: PROCEDURE calc_amt_applied_fmt (
15: p_invoice_currency_code IN VARCHAR2,
16: p_amount_applied_from IN ar_payments_interface.amount_applied_from1%type,
17: p_trans_to_receipt_rate IN ar_payments_interface.trans_to_receipt_rate1%type,
18: amount_applied OUT NOCOPY ar_payments_interface.amount_applied1%type,
19: p_format_amount IN VARCHAR2
20: );
21: --
22:
113:
114: PG_DEBUG varchar2(1) := NVL(FND_PROFILE.value('AFLOG_ENABLED'), 'N');
115:
116: PROCEDURE calc_cross_rate (
117: p_amount_applied IN ar_payments_interface.amount_applied1%TYPE,
118: p_amount_applied_from IN ar_payments_interface.amount_applied_from1%TYPE,
119: p_inv_curr_code IN ar_payments_interface.invoice_currency_code1%TYPE,
120: p_rec_curr_code IN ar_payments_interface.currency_code%TYPE,
121: p_cross_rate OUT NOCOPY NUMBER ) IS
114: PG_DEBUG varchar2(1) := NVL(FND_PROFILE.value('AFLOG_ENABLED'), 'N');
115:
116: PROCEDURE calc_cross_rate (
117: p_amount_applied IN ar_payments_interface.amount_applied1%TYPE,
118: p_amount_applied_from IN ar_payments_interface.amount_applied_from1%TYPE,
119: p_inv_curr_code IN ar_payments_interface.invoice_currency_code1%TYPE,
120: p_rec_curr_code IN ar_payments_interface.currency_code%TYPE,
121: p_cross_rate OUT NOCOPY NUMBER ) IS
122:
115:
116: PROCEDURE calc_cross_rate (
117: p_amount_applied IN ar_payments_interface.amount_applied1%TYPE,
118: p_amount_applied_from IN ar_payments_interface.amount_applied_from1%TYPE,
119: p_inv_curr_code IN ar_payments_interface.invoice_currency_code1%TYPE,
120: p_rec_curr_code IN ar_payments_interface.currency_code%TYPE,
121: p_cross_rate OUT NOCOPY NUMBER ) IS
122:
123: ln_start_rounding NUMBER;
116: PROCEDURE calc_cross_rate (
117: p_amount_applied IN ar_payments_interface.amount_applied1%TYPE,
118: p_amount_applied_from IN ar_payments_interface.amount_applied_from1%TYPE,
119: p_inv_curr_code IN ar_payments_interface.invoice_currency_code1%TYPE,
120: p_rec_curr_code IN ar_payments_interface.currency_code%TYPE,
121: p_cross_rate OUT NOCOPY NUMBER ) IS
122:
123: ln_start_rounding NUMBER;
124: ln_amount_applied NUMBER;
390: PROCEDURE populate_add_inv_details(
391: p_transmission_id IN VARCHAR2,
392: p_payment_rec_type IN VARCHAR2,
393: p_overflow_rec_type IN VARCHAR2,
394: p_item_num IN ar_payments_interface.item_number%type,
395: p_batch_name IN ar_payments_interface.batch_name%type,
396: p_lockbox_number IN ar_payments_interface.lockbox_number%type,
397: p_batches IN VARCHAR2,
398: p_only_one_lb IN VARCHAR2,
391: p_transmission_id IN VARCHAR2,
392: p_payment_rec_type IN VARCHAR2,
393: p_overflow_rec_type IN VARCHAR2,
394: p_item_num IN ar_payments_interface.item_number%type,
395: p_batch_name IN ar_payments_interface.batch_name%type,
396: p_lockbox_number IN ar_payments_interface.lockbox_number%type,
397: p_batches IN VARCHAR2,
398: p_only_one_lb IN VARCHAR2,
399: p_pay_unrelated_invoices IN VARCHAR2,
392: p_payment_rec_type IN VARCHAR2,
393: p_overflow_rec_type IN VARCHAR2,
394: p_item_num IN ar_payments_interface.item_number%type,
395: p_batch_name IN ar_payments_interface.batch_name%type,
396: p_lockbox_number IN ar_payments_interface.lockbox_number%type,
397: p_batches IN VARCHAR2,
398: p_only_one_lb IN VARCHAR2,
399: p_pay_unrelated_invoices IN VARCHAR2,
400: p_default_exchange_rate_type IN VARCHAR2,
419: --
420: l_transmission_id VARCHAR2(50);
421: l_payment_rec_type VARCHAR2(3);
422: l_overflow_rec_type VARCHAR2(3);
423: l_item_num ar_payments_interface.item_number%type;
424: l_batch_name ar_payments_interface.batch_name%type;
425: l_lockbox_number ar_payments_interface.lockbox_number%type;
426: l_batches VARCHAR2(2);
427: l_only_one_lb VARCHAR2(2);
420: l_transmission_id VARCHAR2(50);
421: l_payment_rec_type VARCHAR2(3);
422: l_overflow_rec_type VARCHAR2(3);
423: l_item_num ar_payments_interface.item_number%type;
424: l_batch_name ar_payments_interface.batch_name%type;
425: l_lockbox_number ar_payments_interface.lockbox_number%type;
426: l_batches VARCHAR2(2);
427: l_only_one_lb VARCHAR2(2);
428: l_use_matching_date ar_lockboxes.use_matching_date%type;
421: l_payment_rec_type VARCHAR2(3);
422: l_overflow_rec_type VARCHAR2(3);
423: l_item_num ar_payments_interface.item_number%type;
424: l_batch_name ar_payments_interface.batch_name%type;
425: l_lockbox_number ar_payments_interface.lockbox_number%type;
426: l_batches VARCHAR2(2);
427: l_only_one_lb VARCHAR2(2);
428: l_use_matching_date ar_lockboxes.use_matching_date%type;
429: l_lockbox_matching_option ar_lockboxes.lockbox_matching_option%type;
466: l_tot_trx7 NUMBER;
467: l_tot_trx8 NUMBER;
468:
469: /* declare matching invoice numbers */
470: l_matching_number1 ar_payments_interface.invoice1%type;
471: l_matching_number2 ar_payments_interface.invoice2%type;
472: l_matching_number3 ar_payments_interface.invoice3%type;
473: l_matching_number4 ar_payments_interface.invoice4%type;
474: l_matching_number5 ar_payments_interface.invoice5%type;
467: l_tot_trx8 NUMBER;
468:
469: /* declare matching invoice numbers */
470: l_matching_number1 ar_payments_interface.invoice1%type;
471: l_matching_number2 ar_payments_interface.invoice2%type;
472: l_matching_number3 ar_payments_interface.invoice3%type;
473: l_matching_number4 ar_payments_interface.invoice4%type;
474: l_matching_number5 ar_payments_interface.invoice5%type;
475: l_matching_number6 ar_payments_interface.invoice6%type;
468:
469: /* declare matching invoice numbers */
470: l_matching_number1 ar_payments_interface.invoice1%type;
471: l_matching_number2 ar_payments_interface.invoice2%type;
472: l_matching_number3 ar_payments_interface.invoice3%type;
473: l_matching_number4 ar_payments_interface.invoice4%type;
474: l_matching_number5 ar_payments_interface.invoice5%type;
475: l_matching_number6 ar_payments_interface.invoice6%type;
476: l_matching_number7 ar_payments_interface.invoice7%type;
469: /* declare matching invoice numbers */
470: l_matching_number1 ar_payments_interface.invoice1%type;
471: l_matching_number2 ar_payments_interface.invoice2%type;
472: l_matching_number3 ar_payments_interface.invoice3%type;
473: l_matching_number4 ar_payments_interface.invoice4%type;
474: l_matching_number5 ar_payments_interface.invoice5%type;
475: l_matching_number6 ar_payments_interface.invoice6%type;
476: l_matching_number7 ar_payments_interface.invoice7%type;
477: l_matching_number8 ar_payments_interface.invoice8%type;
470: l_matching_number1 ar_payments_interface.invoice1%type;
471: l_matching_number2 ar_payments_interface.invoice2%type;
472: l_matching_number3 ar_payments_interface.invoice3%type;
473: l_matching_number4 ar_payments_interface.invoice4%type;
474: l_matching_number5 ar_payments_interface.invoice5%type;
475: l_matching_number6 ar_payments_interface.invoice6%type;
476: l_matching_number7 ar_payments_interface.invoice7%type;
477: l_matching_number8 ar_payments_interface.invoice8%type;
478: --
471: l_matching_number2 ar_payments_interface.invoice2%type;
472: l_matching_number3 ar_payments_interface.invoice3%type;
473: l_matching_number4 ar_payments_interface.invoice4%type;
474: l_matching_number5 ar_payments_interface.invoice5%type;
475: l_matching_number6 ar_payments_interface.invoice6%type;
476: l_matching_number7 ar_payments_interface.invoice7%type;
477: l_matching_number8 ar_payments_interface.invoice8%type;
478: --
479: l_trans_to_receipt_rate1 ar_payments_interface.trans_to_receipt_rate1%type;
472: l_matching_number3 ar_payments_interface.invoice3%type;
473: l_matching_number4 ar_payments_interface.invoice4%type;
474: l_matching_number5 ar_payments_interface.invoice5%type;
475: l_matching_number6 ar_payments_interface.invoice6%type;
476: l_matching_number7 ar_payments_interface.invoice7%type;
477: l_matching_number8 ar_payments_interface.invoice8%type;
478: --
479: l_trans_to_receipt_rate1 ar_payments_interface.trans_to_receipt_rate1%type;
480: l_trans_to_receipt_rate2 ar_payments_interface.trans_to_receipt_rate2%type;
473: l_matching_number4 ar_payments_interface.invoice4%type;
474: l_matching_number5 ar_payments_interface.invoice5%type;
475: l_matching_number6 ar_payments_interface.invoice6%type;
476: l_matching_number7 ar_payments_interface.invoice7%type;
477: l_matching_number8 ar_payments_interface.invoice8%type;
478: --
479: l_trans_to_receipt_rate1 ar_payments_interface.trans_to_receipt_rate1%type;
480: l_trans_to_receipt_rate2 ar_payments_interface.trans_to_receipt_rate2%type;
481: l_trans_to_receipt_rate3 ar_payments_interface.trans_to_receipt_rate3%type;
475: l_matching_number6 ar_payments_interface.invoice6%type;
476: l_matching_number7 ar_payments_interface.invoice7%type;
477: l_matching_number8 ar_payments_interface.invoice8%type;
478: --
479: l_trans_to_receipt_rate1 ar_payments_interface.trans_to_receipt_rate1%type;
480: l_trans_to_receipt_rate2 ar_payments_interface.trans_to_receipt_rate2%type;
481: l_trans_to_receipt_rate3 ar_payments_interface.trans_to_receipt_rate3%type;
482: l_trans_to_receipt_rate4 ar_payments_interface.trans_to_receipt_rate4%type;
483: l_trans_to_receipt_rate5 ar_payments_interface.trans_to_receipt_rate5%type;
476: l_matching_number7 ar_payments_interface.invoice7%type;
477: l_matching_number8 ar_payments_interface.invoice8%type;
478: --
479: l_trans_to_receipt_rate1 ar_payments_interface.trans_to_receipt_rate1%type;
480: l_trans_to_receipt_rate2 ar_payments_interface.trans_to_receipt_rate2%type;
481: l_trans_to_receipt_rate3 ar_payments_interface.trans_to_receipt_rate3%type;
482: l_trans_to_receipt_rate4 ar_payments_interface.trans_to_receipt_rate4%type;
483: l_trans_to_receipt_rate5 ar_payments_interface.trans_to_receipt_rate5%type;
484: l_trans_to_receipt_rate6 ar_payments_interface.trans_to_receipt_rate6%type;
477: l_matching_number8 ar_payments_interface.invoice8%type;
478: --
479: l_trans_to_receipt_rate1 ar_payments_interface.trans_to_receipt_rate1%type;
480: l_trans_to_receipt_rate2 ar_payments_interface.trans_to_receipt_rate2%type;
481: l_trans_to_receipt_rate3 ar_payments_interface.trans_to_receipt_rate3%type;
482: l_trans_to_receipt_rate4 ar_payments_interface.trans_to_receipt_rate4%type;
483: l_trans_to_receipt_rate5 ar_payments_interface.trans_to_receipt_rate5%type;
484: l_trans_to_receipt_rate6 ar_payments_interface.trans_to_receipt_rate6%type;
485: l_trans_to_receipt_rate7 ar_payments_interface.trans_to_receipt_rate7%type;
478: --
479: l_trans_to_receipt_rate1 ar_payments_interface.trans_to_receipt_rate1%type;
480: l_trans_to_receipt_rate2 ar_payments_interface.trans_to_receipt_rate2%type;
481: l_trans_to_receipt_rate3 ar_payments_interface.trans_to_receipt_rate3%type;
482: l_trans_to_receipt_rate4 ar_payments_interface.trans_to_receipt_rate4%type;
483: l_trans_to_receipt_rate5 ar_payments_interface.trans_to_receipt_rate5%type;
484: l_trans_to_receipt_rate6 ar_payments_interface.trans_to_receipt_rate6%type;
485: l_trans_to_receipt_rate7 ar_payments_interface.trans_to_receipt_rate7%type;
486: l_trans_to_receipt_rate8 ar_payments_interface.trans_to_receipt_rate8%type;
479: l_trans_to_receipt_rate1 ar_payments_interface.trans_to_receipt_rate1%type;
480: l_trans_to_receipt_rate2 ar_payments_interface.trans_to_receipt_rate2%type;
481: l_trans_to_receipt_rate3 ar_payments_interface.trans_to_receipt_rate3%type;
482: l_trans_to_receipt_rate4 ar_payments_interface.trans_to_receipt_rate4%type;
483: l_trans_to_receipt_rate5 ar_payments_interface.trans_to_receipt_rate5%type;
484: l_trans_to_receipt_rate6 ar_payments_interface.trans_to_receipt_rate6%type;
485: l_trans_to_receipt_rate7 ar_payments_interface.trans_to_receipt_rate7%type;
486: l_trans_to_receipt_rate8 ar_payments_interface.trans_to_receipt_rate8%type;
487: --
480: l_trans_to_receipt_rate2 ar_payments_interface.trans_to_receipt_rate2%type;
481: l_trans_to_receipt_rate3 ar_payments_interface.trans_to_receipt_rate3%type;
482: l_trans_to_receipt_rate4 ar_payments_interface.trans_to_receipt_rate4%type;
483: l_trans_to_receipt_rate5 ar_payments_interface.trans_to_receipt_rate5%type;
484: l_trans_to_receipt_rate6 ar_payments_interface.trans_to_receipt_rate6%type;
485: l_trans_to_receipt_rate7 ar_payments_interface.trans_to_receipt_rate7%type;
486: l_trans_to_receipt_rate8 ar_payments_interface.trans_to_receipt_rate8%type;
487: --
488: l_invoice_currency_code1 ar_payments_interface.invoice_currency_code1%type;
481: l_trans_to_receipt_rate3 ar_payments_interface.trans_to_receipt_rate3%type;
482: l_trans_to_receipt_rate4 ar_payments_interface.trans_to_receipt_rate4%type;
483: l_trans_to_receipt_rate5 ar_payments_interface.trans_to_receipt_rate5%type;
484: l_trans_to_receipt_rate6 ar_payments_interface.trans_to_receipt_rate6%type;
485: l_trans_to_receipt_rate7 ar_payments_interface.trans_to_receipt_rate7%type;
486: l_trans_to_receipt_rate8 ar_payments_interface.trans_to_receipt_rate8%type;
487: --
488: l_invoice_currency_code1 ar_payments_interface.invoice_currency_code1%type;
489: l_invoice_currency_code2 ar_payments_interface.invoice_currency_code2%type;
482: l_trans_to_receipt_rate4 ar_payments_interface.trans_to_receipt_rate4%type;
483: l_trans_to_receipt_rate5 ar_payments_interface.trans_to_receipt_rate5%type;
484: l_trans_to_receipt_rate6 ar_payments_interface.trans_to_receipt_rate6%type;
485: l_trans_to_receipt_rate7 ar_payments_interface.trans_to_receipt_rate7%type;
486: l_trans_to_receipt_rate8 ar_payments_interface.trans_to_receipt_rate8%type;
487: --
488: l_invoice_currency_code1 ar_payments_interface.invoice_currency_code1%type;
489: l_invoice_currency_code2 ar_payments_interface.invoice_currency_code2%type;
490: l_invoice_currency_code3 ar_payments_interface.invoice_currency_code3%type;
484: l_trans_to_receipt_rate6 ar_payments_interface.trans_to_receipt_rate6%type;
485: l_trans_to_receipt_rate7 ar_payments_interface.trans_to_receipt_rate7%type;
486: l_trans_to_receipt_rate8 ar_payments_interface.trans_to_receipt_rate8%type;
487: --
488: l_invoice_currency_code1 ar_payments_interface.invoice_currency_code1%type;
489: l_invoice_currency_code2 ar_payments_interface.invoice_currency_code2%type;
490: l_invoice_currency_code3 ar_payments_interface.invoice_currency_code3%type;
491: l_invoice_currency_code4 ar_payments_interface.invoice_currency_code4%type;
492: l_invoice_currency_code5 ar_payments_interface.invoice_currency_code5%type;
485: l_trans_to_receipt_rate7 ar_payments_interface.trans_to_receipt_rate7%type;
486: l_trans_to_receipt_rate8 ar_payments_interface.trans_to_receipt_rate8%type;
487: --
488: l_invoice_currency_code1 ar_payments_interface.invoice_currency_code1%type;
489: l_invoice_currency_code2 ar_payments_interface.invoice_currency_code2%type;
490: l_invoice_currency_code3 ar_payments_interface.invoice_currency_code3%type;
491: l_invoice_currency_code4 ar_payments_interface.invoice_currency_code4%type;
492: l_invoice_currency_code5 ar_payments_interface.invoice_currency_code5%type;
493: l_invoice_currency_code6 ar_payments_interface.invoice_currency_code6%type;
486: l_trans_to_receipt_rate8 ar_payments_interface.trans_to_receipt_rate8%type;
487: --
488: l_invoice_currency_code1 ar_payments_interface.invoice_currency_code1%type;
489: l_invoice_currency_code2 ar_payments_interface.invoice_currency_code2%type;
490: l_invoice_currency_code3 ar_payments_interface.invoice_currency_code3%type;
491: l_invoice_currency_code4 ar_payments_interface.invoice_currency_code4%type;
492: l_invoice_currency_code5 ar_payments_interface.invoice_currency_code5%type;
493: l_invoice_currency_code6 ar_payments_interface.invoice_currency_code6%type;
494: l_invoice_currency_code7 ar_payments_interface.invoice_currency_code7%type;
487: --
488: l_invoice_currency_code1 ar_payments_interface.invoice_currency_code1%type;
489: l_invoice_currency_code2 ar_payments_interface.invoice_currency_code2%type;
490: l_invoice_currency_code3 ar_payments_interface.invoice_currency_code3%type;
491: l_invoice_currency_code4 ar_payments_interface.invoice_currency_code4%type;
492: l_invoice_currency_code5 ar_payments_interface.invoice_currency_code5%type;
493: l_invoice_currency_code6 ar_payments_interface.invoice_currency_code6%type;
494: l_invoice_currency_code7 ar_payments_interface.invoice_currency_code7%type;
495: l_invoice_currency_code8 ar_payments_interface.invoice_currency_code8%type;
488: l_invoice_currency_code1 ar_payments_interface.invoice_currency_code1%type;
489: l_invoice_currency_code2 ar_payments_interface.invoice_currency_code2%type;
490: l_invoice_currency_code3 ar_payments_interface.invoice_currency_code3%type;
491: l_invoice_currency_code4 ar_payments_interface.invoice_currency_code4%type;
492: l_invoice_currency_code5 ar_payments_interface.invoice_currency_code5%type;
493: l_invoice_currency_code6 ar_payments_interface.invoice_currency_code6%type;
494: l_invoice_currency_code7 ar_payments_interface.invoice_currency_code7%type;
495: l_invoice_currency_code8 ar_payments_interface.invoice_currency_code8%type;
496: --
489: l_invoice_currency_code2 ar_payments_interface.invoice_currency_code2%type;
490: l_invoice_currency_code3 ar_payments_interface.invoice_currency_code3%type;
491: l_invoice_currency_code4 ar_payments_interface.invoice_currency_code4%type;
492: l_invoice_currency_code5 ar_payments_interface.invoice_currency_code5%type;
493: l_invoice_currency_code6 ar_payments_interface.invoice_currency_code6%type;
494: l_invoice_currency_code7 ar_payments_interface.invoice_currency_code7%type;
495: l_invoice_currency_code8 ar_payments_interface.invoice_currency_code8%type;
496: --
497: l_amount_applied1 ar_payments_interface.amount_applied1%type;
490: l_invoice_currency_code3 ar_payments_interface.invoice_currency_code3%type;
491: l_invoice_currency_code4 ar_payments_interface.invoice_currency_code4%type;
492: l_invoice_currency_code5 ar_payments_interface.invoice_currency_code5%type;
493: l_invoice_currency_code6 ar_payments_interface.invoice_currency_code6%type;
494: l_invoice_currency_code7 ar_payments_interface.invoice_currency_code7%type;
495: l_invoice_currency_code8 ar_payments_interface.invoice_currency_code8%type;
496: --
497: l_amount_applied1 ar_payments_interface.amount_applied1%type;
498: l_amount_applied2 ar_payments_interface.amount_applied2%type;
491: l_invoice_currency_code4 ar_payments_interface.invoice_currency_code4%type;
492: l_invoice_currency_code5 ar_payments_interface.invoice_currency_code5%type;
493: l_invoice_currency_code6 ar_payments_interface.invoice_currency_code6%type;
494: l_invoice_currency_code7 ar_payments_interface.invoice_currency_code7%type;
495: l_invoice_currency_code8 ar_payments_interface.invoice_currency_code8%type;
496: --
497: l_amount_applied1 ar_payments_interface.amount_applied1%type;
498: l_amount_applied2 ar_payments_interface.amount_applied2%type;
499: l_amount_applied3 ar_payments_interface.amount_applied3%type;
493: l_invoice_currency_code6 ar_payments_interface.invoice_currency_code6%type;
494: l_invoice_currency_code7 ar_payments_interface.invoice_currency_code7%type;
495: l_invoice_currency_code8 ar_payments_interface.invoice_currency_code8%type;
496: --
497: l_amount_applied1 ar_payments_interface.amount_applied1%type;
498: l_amount_applied2 ar_payments_interface.amount_applied2%type;
499: l_amount_applied3 ar_payments_interface.amount_applied3%type;
500: l_amount_applied4 ar_payments_interface.amount_applied4%type;
501: l_amount_applied5 ar_payments_interface.amount_applied5%type;
494: l_invoice_currency_code7 ar_payments_interface.invoice_currency_code7%type;
495: l_invoice_currency_code8 ar_payments_interface.invoice_currency_code8%type;
496: --
497: l_amount_applied1 ar_payments_interface.amount_applied1%type;
498: l_amount_applied2 ar_payments_interface.amount_applied2%type;
499: l_amount_applied3 ar_payments_interface.amount_applied3%type;
500: l_amount_applied4 ar_payments_interface.amount_applied4%type;
501: l_amount_applied5 ar_payments_interface.amount_applied5%type;
502: l_amount_applied6 ar_payments_interface.amount_applied6%type;
495: l_invoice_currency_code8 ar_payments_interface.invoice_currency_code8%type;
496: --
497: l_amount_applied1 ar_payments_interface.amount_applied1%type;
498: l_amount_applied2 ar_payments_interface.amount_applied2%type;
499: l_amount_applied3 ar_payments_interface.amount_applied3%type;
500: l_amount_applied4 ar_payments_interface.amount_applied4%type;
501: l_amount_applied5 ar_payments_interface.amount_applied5%type;
502: l_amount_applied6 ar_payments_interface.amount_applied6%type;
503: l_amount_applied7 ar_payments_interface.amount_applied7%type;
496: --
497: l_amount_applied1 ar_payments_interface.amount_applied1%type;
498: l_amount_applied2 ar_payments_interface.amount_applied2%type;
499: l_amount_applied3 ar_payments_interface.amount_applied3%type;
500: l_amount_applied4 ar_payments_interface.amount_applied4%type;
501: l_amount_applied5 ar_payments_interface.amount_applied5%type;
502: l_amount_applied6 ar_payments_interface.amount_applied6%type;
503: l_amount_applied7 ar_payments_interface.amount_applied7%type;
504: l_amount_applied8 ar_payments_interface.amount_applied8%type;
497: l_amount_applied1 ar_payments_interface.amount_applied1%type;
498: l_amount_applied2 ar_payments_interface.amount_applied2%type;
499: l_amount_applied3 ar_payments_interface.amount_applied3%type;
500: l_amount_applied4 ar_payments_interface.amount_applied4%type;
501: l_amount_applied5 ar_payments_interface.amount_applied5%type;
502: l_amount_applied6 ar_payments_interface.amount_applied6%type;
503: l_amount_applied7 ar_payments_interface.amount_applied7%type;
504: l_amount_applied8 ar_payments_interface.amount_applied8%type;
505: --
498: l_amount_applied2 ar_payments_interface.amount_applied2%type;
499: l_amount_applied3 ar_payments_interface.amount_applied3%type;
500: l_amount_applied4 ar_payments_interface.amount_applied4%type;
501: l_amount_applied5 ar_payments_interface.amount_applied5%type;
502: l_amount_applied6 ar_payments_interface.amount_applied6%type;
503: l_amount_applied7 ar_payments_interface.amount_applied7%type;
504: l_amount_applied8 ar_payments_interface.amount_applied8%type;
505: --
506: l_amount_applied_from1 ar_payments_interface.amount_applied_from1%type;
499: l_amount_applied3 ar_payments_interface.amount_applied3%type;
500: l_amount_applied4 ar_payments_interface.amount_applied4%type;
501: l_amount_applied5 ar_payments_interface.amount_applied5%type;
502: l_amount_applied6 ar_payments_interface.amount_applied6%type;
503: l_amount_applied7 ar_payments_interface.amount_applied7%type;
504: l_amount_applied8 ar_payments_interface.amount_applied8%type;
505: --
506: l_amount_applied_from1 ar_payments_interface.amount_applied_from1%type;
507: l_amount_applied_from2 ar_payments_interface.amount_applied_from2%type;
500: l_amount_applied4 ar_payments_interface.amount_applied4%type;
501: l_amount_applied5 ar_payments_interface.amount_applied5%type;
502: l_amount_applied6 ar_payments_interface.amount_applied6%type;
503: l_amount_applied7 ar_payments_interface.amount_applied7%type;
504: l_amount_applied8 ar_payments_interface.amount_applied8%type;
505: --
506: l_amount_applied_from1 ar_payments_interface.amount_applied_from1%type;
507: l_amount_applied_from2 ar_payments_interface.amount_applied_from2%type;
508: l_amount_applied_from3 ar_payments_interface.amount_applied_from3%type;
502: l_amount_applied6 ar_payments_interface.amount_applied6%type;
503: l_amount_applied7 ar_payments_interface.amount_applied7%type;
504: l_amount_applied8 ar_payments_interface.amount_applied8%type;
505: --
506: l_amount_applied_from1 ar_payments_interface.amount_applied_from1%type;
507: l_amount_applied_from2 ar_payments_interface.amount_applied_from2%type;
508: l_amount_applied_from3 ar_payments_interface.amount_applied_from3%type;
509: l_amount_applied_from4 ar_payments_interface.amount_applied_from4%type;
510: l_amount_applied_from5 ar_payments_interface.amount_applied_from5%type;
503: l_amount_applied7 ar_payments_interface.amount_applied7%type;
504: l_amount_applied8 ar_payments_interface.amount_applied8%type;
505: --
506: l_amount_applied_from1 ar_payments_interface.amount_applied_from1%type;
507: l_amount_applied_from2 ar_payments_interface.amount_applied_from2%type;
508: l_amount_applied_from3 ar_payments_interface.amount_applied_from3%type;
509: l_amount_applied_from4 ar_payments_interface.amount_applied_from4%type;
510: l_amount_applied_from5 ar_payments_interface.amount_applied_from5%type;
511: l_amount_applied_from6 ar_payments_interface.amount_applied_from6%type;
504: l_amount_applied8 ar_payments_interface.amount_applied8%type;
505: --
506: l_amount_applied_from1 ar_payments_interface.amount_applied_from1%type;
507: l_amount_applied_from2 ar_payments_interface.amount_applied_from2%type;
508: l_amount_applied_from3 ar_payments_interface.amount_applied_from3%type;
509: l_amount_applied_from4 ar_payments_interface.amount_applied_from4%type;
510: l_amount_applied_from5 ar_payments_interface.amount_applied_from5%type;
511: l_amount_applied_from6 ar_payments_interface.amount_applied_from6%type;
512: l_amount_applied_from7 ar_payments_interface.amount_applied_from7%type;
505: --
506: l_amount_applied_from1 ar_payments_interface.amount_applied_from1%type;
507: l_amount_applied_from2 ar_payments_interface.amount_applied_from2%type;
508: l_amount_applied_from3 ar_payments_interface.amount_applied_from3%type;
509: l_amount_applied_from4 ar_payments_interface.amount_applied_from4%type;
510: l_amount_applied_from5 ar_payments_interface.amount_applied_from5%type;
511: l_amount_applied_from6 ar_payments_interface.amount_applied_from6%type;
512: l_amount_applied_from7 ar_payments_interface.amount_applied_from7%type;
513: l_amount_applied_from8 ar_payments_interface.amount_applied_from8%type;
506: l_amount_applied_from1 ar_payments_interface.amount_applied_from1%type;
507: l_amount_applied_from2 ar_payments_interface.amount_applied_from2%type;
508: l_amount_applied_from3 ar_payments_interface.amount_applied_from3%type;
509: l_amount_applied_from4 ar_payments_interface.amount_applied_from4%type;
510: l_amount_applied_from5 ar_payments_interface.amount_applied_from5%type;
511: l_amount_applied_from6 ar_payments_interface.amount_applied_from6%type;
512: l_amount_applied_from7 ar_payments_interface.amount_applied_from7%type;
513: l_amount_applied_from8 ar_payments_interface.amount_applied_from8%type;
514: --
507: l_amount_applied_from2 ar_payments_interface.amount_applied_from2%type;
508: l_amount_applied_from3 ar_payments_interface.amount_applied_from3%type;
509: l_amount_applied_from4 ar_payments_interface.amount_applied_from4%type;
510: l_amount_applied_from5 ar_payments_interface.amount_applied_from5%type;
511: l_amount_applied_from6 ar_payments_interface.amount_applied_from6%type;
512: l_amount_applied_from7 ar_payments_interface.amount_applied_from7%type;
513: l_amount_applied_from8 ar_payments_interface.amount_applied_from8%type;
514: --
515: /* declare variable for currency code of the receipt */
508: l_amount_applied_from3 ar_payments_interface.amount_applied_from3%type;
509: l_amount_applied_from4 ar_payments_interface.amount_applied_from4%type;
510: l_amount_applied_from5 ar_payments_interface.amount_applied_from5%type;
511: l_amount_applied_from6 ar_payments_interface.amount_applied_from6%type;
512: l_amount_applied_from7 ar_payments_interface.amount_applied_from7%type;
513: l_amount_applied_from8 ar_payments_interface.amount_applied_from8%type;
514: --
515: /* declare variable for currency code of the receipt */
516: l_currency_code ar_payments_interface.currency_code%type;
509: l_amount_applied_from4 ar_payments_interface.amount_applied_from4%type;
510: l_amount_applied_from5 ar_payments_interface.amount_applied_from5%type;
511: l_amount_applied_from6 ar_payments_interface.amount_applied_from6%type;
512: l_amount_applied_from7 ar_payments_interface.amount_applied_from7%type;
513: l_amount_applied_from8 ar_payments_interface.amount_applied_from8%type;
514: --
515: /* declare variable for currency code of the receipt */
516: l_currency_code ar_payments_interface.currency_code%type;
517: --
512: l_amount_applied_from7 ar_payments_interface.amount_applied_from7%type;
513: l_amount_applied_from8 ar_payments_interface.amount_applied_from8%type;
514: --
515: /* declare variable for currency code of the receipt */
516: l_currency_code ar_payments_interface.currency_code%type;
517: --
518: /* declare variables to hold the currency code from payment schedules */
519: ps_currency_code1 ar_payment_schedules.invoice_currency_code%type;
520: ps_currency_code2 ar_payment_schedules.invoice_currency_code%type;
534: trx_amt_due_rem5 ar_payment_schedules.amount_due_remaining%type;
535: trx_amt_due_rem6 ar_payment_schedules.amount_due_remaining%type;
536: trx_amt_due_rem7 ar_payment_schedules.amount_due_remaining%type;
537: trx_amt_due_rem8 ar_payment_schedules.amount_due_remaining%type;
538: amt_applied_from_tc ar_payments_interface.amount_applied_from1%type;
539:
540: l_receipt_date ar_payments_interface.receipt_date%type;
541: --
542: /* temporary variables used to check if amount_applied, amount_applied_from
536: trx_amt_due_rem7 ar_payment_schedules.amount_due_remaining%type;
537: trx_amt_due_rem8 ar_payment_schedules.amount_due_remaining%type;
538: amt_applied_from_tc ar_payments_interface.amount_applied_from1%type;
539:
540: l_receipt_date ar_payments_interface.receipt_date%type;
541: --
542: /* temporary variables used to check if amount_applied, amount_applied_from
543: and trans_to_receipt rates are given */
544: l_temp_amt_applied ar_payments_interface.amount_applied1%type;
540: l_receipt_date ar_payments_interface.receipt_date%type;
541: --
542: /* temporary variables used to check if amount_applied, amount_applied_from
543: and trans_to_receipt rates are given */
544: l_temp_amt_applied ar_payments_interface.amount_applied1%type;
545: l_temp_amt_applied_from ar_payments_interface.amount_applied_from1%type;
546: l_temp_trans_to_receipt_rate ar_payments_interface.trans_to_receipt_rate1%type;
547: --
548: /* Added to fix Bug 1052313 */
541: --
542: /* temporary variables used to check if amount_applied, amount_applied_from
543: and trans_to_receipt rates are given */
544: l_temp_amt_applied ar_payments_interface.amount_applied1%type;
545: l_temp_amt_applied_from ar_payments_interface.amount_applied_from1%type;
546: l_temp_trans_to_receipt_rate ar_payments_interface.trans_to_receipt_rate1%type;
547: --
548: /* Added to fix Bug 1052313 */
549: l_resolved_matching1_date ar_payments_interface.resolved_matching1_date%type;
542: /* temporary variables used to check if amount_applied, amount_applied_from
543: and trans_to_receipt rates are given */
544: l_temp_amt_applied ar_payments_interface.amount_applied1%type;
545: l_temp_amt_applied_from ar_payments_interface.amount_applied_from1%type;
546: l_temp_trans_to_receipt_rate ar_payments_interface.trans_to_receipt_rate1%type;
547: --
548: /* Added to fix Bug 1052313 */
549: l_resolved_matching1_date ar_payments_interface.resolved_matching1_date%type;
550: l_resolved_matching2_date ar_payments_interface.resolved_matching1_date%type;
545: l_temp_amt_applied_from ar_payments_interface.amount_applied_from1%type;
546: l_temp_trans_to_receipt_rate ar_payments_interface.trans_to_receipt_rate1%type;
547: --
548: /* Added to fix Bug 1052313 */
549: l_resolved_matching1_date ar_payments_interface.resolved_matching1_date%type;
550: l_resolved_matching2_date ar_payments_interface.resolved_matching1_date%type;
551: l_resolved_matching3_date ar_payments_interface.resolved_matching1_date%type;
552: l_resolved_matching4_date ar_payments_interface.resolved_matching1_date%type;
553: l_resolved_matching5_date ar_payments_interface.resolved_matching1_date%type;
546: l_temp_trans_to_receipt_rate ar_payments_interface.trans_to_receipt_rate1%type;
547: --
548: /* Added to fix Bug 1052313 */
549: l_resolved_matching1_date ar_payments_interface.resolved_matching1_date%type;
550: l_resolved_matching2_date ar_payments_interface.resolved_matching1_date%type;
551: l_resolved_matching3_date ar_payments_interface.resolved_matching1_date%type;
552: l_resolved_matching4_date ar_payments_interface.resolved_matching1_date%type;
553: l_resolved_matching5_date ar_payments_interface.resolved_matching1_date%type;
554: l_resolved_matching6_date ar_payments_interface.resolved_matching1_date%type;
547: --
548: /* Added to fix Bug 1052313 */
549: l_resolved_matching1_date ar_payments_interface.resolved_matching1_date%type;
550: l_resolved_matching2_date ar_payments_interface.resolved_matching1_date%type;
551: l_resolved_matching3_date ar_payments_interface.resolved_matching1_date%type;
552: l_resolved_matching4_date ar_payments_interface.resolved_matching1_date%type;
553: l_resolved_matching5_date ar_payments_interface.resolved_matching1_date%type;
554: l_resolved_matching6_date ar_payments_interface.resolved_matching1_date%type;
555: l_resolved_matching7_date ar_payments_interface.resolved_matching1_date%type;
548: /* Added to fix Bug 1052313 */
549: l_resolved_matching1_date ar_payments_interface.resolved_matching1_date%type;
550: l_resolved_matching2_date ar_payments_interface.resolved_matching1_date%type;
551: l_resolved_matching3_date ar_payments_interface.resolved_matching1_date%type;
552: l_resolved_matching4_date ar_payments_interface.resolved_matching1_date%type;
553: l_resolved_matching5_date ar_payments_interface.resolved_matching1_date%type;
554: l_resolved_matching6_date ar_payments_interface.resolved_matching1_date%type;
555: l_resolved_matching7_date ar_payments_interface.resolved_matching1_date%type;
556: l_resolved_matching8_date ar_payments_interface.resolved_matching1_date%type;
549: l_resolved_matching1_date ar_payments_interface.resolved_matching1_date%type;
550: l_resolved_matching2_date ar_payments_interface.resolved_matching1_date%type;
551: l_resolved_matching3_date ar_payments_interface.resolved_matching1_date%type;
552: l_resolved_matching4_date ar_payments_interface.resolved_matching1_date%type;
553: l_resolved_matching5_date ar_payments_interface.resolved_matching1_date%type;
554: l_resolved_matching6_date ar_payments_interface.resolved_matching1_date%type;
555: l_resolved_matching7_date ar_payments_interface.resolved_matching1_date%type;
556: l_resolved_matching8_date ar_payments_interface.resolved_matching1_date%type;
557:
550: l_resolved_matching2_date ar_payments_interface.resolved_matching1_date%type;
551: l_resolved_matching3_date ar_payments_interface.resolved_matching1_date%type;
552: l_resolved_matching4_date ar_payments_interface.resolved_matching1_date%type;
553: l_resolved_matching5_date ar_payments_interface.resolved_matching1_date%type;
554: l_resolved_matching6_date ar_payments_interface.resolved_matching1_date%type;
555: l_resolved_matching7_date ar_payments_interface.resolved_matching1_date%type;
556: l_resolved_matching8_date ar_payments_interface.resolved_matching1_date%type;
557:
558: l_resolved_matching1_inst ar_payments_interface.resolved_matching1_installment%type;
551: l_resolved_matching3_date ar_payments_interface.resolved_matching1_date%type;
552: l_resolved_matching4_date ar_payments_interface.resolved_matching1_date%type;
553: l_resolved_matching5_date ar_payments_interface.resolved_matching1_date%type;
554: l_resolved_matching6_date ar_payments_interface.resolved_matching1_date%type;
555: l_resolved_matching7_date ar_payments_interface.resolved_matching1_date%type;
556: l_resolved_matching8_date ar_payments_interface.resolved_matching1_date%type;
557:
558: l_resolved_matching1_inst ar_payments_interface.resolved_matching1_installment%type;
559: l_resolved_matching2_inst ar_payments_interface.resolved_matching1_installment%type;
552: l_resolved_matching4_date ar_payments_interface.resolved_matching1_date%type;
553: l_resolved_matching5_date ar_payments_interface.resolved_matching1_date%type;
554: l_resolved_matching6_date ar_payments_interface.resolved_matching1_date%type;
555: l_resolved_matching7_date ar_payments_interface.resolved_matching1_date%type;
556: l_resolved_matching8_date ar_payments_interface.resolved_matching1_date%type;
557:
558: l_resolved_matching1_inst ar_payments_interface.resolved_matching1_installment%type;
559: l_resolved_matching2_inst ar_payments_interface.resolved_matching1_installment%type;
560: l_resolved_matching3_inst ar_payments_interface.resolved_matching1_installment%type;
554: l_resolved_matching6_date ar_payments_interface.resolved_matching1_date%type;
555: l_resolved_matching7_date ar_payments_interface.resolved_matching1_date%type;
556: l_resolved_matching8_date ar_payments_interface.resolved_matching1_date%type;
557:
558: l_resolved_matching1_inst ar_payments_interface.resolved_matching1_installment%type;
559: l_resolved_matching2_inst ar_payments_interface.resolved_matching1_installment%type;
560: l_resolved_matching3_inst ar_payments_interface.resolved_matching1_installment%type;
561: l_resolved_matching4_inst ar_payments_interface.resolved_matching1_installment%type;
562: l_resolved_matching5_inst ar_payments_interface.resolved_matching1_installment%type;
555: l_resolved_matching7_date ar_payments_interface.resolved_matching1_date%type;
556: l_resolved_matching8_date ar_payments_interface.resolved_matching1_date%type;
557:
558: l_resolved_matching1_inst ar_payments_interface.resolved_matching1_installment%type;
559: l_resolved_matching2_inst ar_payments_interface.resolved_matching1_installment%type;
560: l_resolved_matching3_inst ar_payments_interface.resolved_matching1_installment%type;
561: l_resolved_matching4_inst ar_payments_interface.resolved_matching1_installment%type;
562: l_resolved_matching5_inst ar_payments_interface.resolved_matching1_installment%type;
563: l_resolved_matching6_inst ar_payments_interface.resolved_matching1_installment%type;
556: l_resolved_matching8_date ar_payments_interface.resolved_matching1_date%type;
557:
558: l_resolved_matching1_inst ar_payments_interface.resolved_matching1_installment%type;
559: l_resolved_matching2_inst ar_payments_interface.resolved_matching1_installment%type;
560: l_resolved_matching3_inst ar_payments_interface.resolved_matching1_installment%type;
561: l_resolved_matching4_inst ar_payments_interface.resolved_matching1_installment%type;
562: l_resolved_matching5_inst ar_payments_interface.resolved_matching1_installment%type;
563: l_resolved_matching6_inst ar_payments_interface.resolved_matching1_installment%type;
564: l_resolved_matching7_inst ar_payments_interface.resolved_matching1_installment%type;
557:
558: l_resolved_matching1_inst ar_payments_interface.resolved_matching1_installment%type;
559: l_resolved_matching2_inst ar_payments_interface.resolved_matching1_installment%type;
560: l_resolved_matching3_inst ar_payments_interface.resolved_matching1_installment%type;
561: l_resolved_matching4_inst ar_payments_interface.resolved_matching1_installment%type;
562: l_resolved_matching5_inst ar_payments_interface.resolved_matching1_installment%type;
563: l_resolved_matching6_inst ar_payments_interface.resolved_matching1_installment%type;
564: l_resolved_matching7_inst ar_payments_interface.resolved_matching1_installment%type;
565: l_resolved_matching8_inst ar_payments_interface.resolved_matching1_installment%type;
558: l_resolved_matching1_inst ar_payments_interface.resolved_matching1_installment%type;
559: l_resolved_matching2_inst ar_payments_interface.resolved_matching1_installment%type;
560: l_resolved_matching3_inst ar_payments_interface.resolved_matching1_installment%type;
561: l_resolved_matching4_inst ar_payments_interface.resolved_matching1_installment%type;
562: l_resolved_matching5_inst ar_payments_interface.resolved_matching1_installment%type;
563: l_resolved_matching6_inst ar_payments_interface.resolved_matching1_installment%type;
564: l_resolved_matching7_inst ar_payments_interface.resolved_matching1_installment%type;
565: l_resolved_matching8_inst ar_payments_interface.resolved_matching1_installment%type;
566:
559: l_resolved_matching2_inst ar_payments_interface.resolved_matching1_installment%type;
560: l_resolved_matching3_inst ar_payments_interface.resolved_matching1_installment%type;
561: l_resolved_matching4_inst ar_payments_interface.resolved_matching1_installment%type;
562: l_resolved_matching5_inst ar_payments_interface.resolved_matching1_installment%type;
563: l_resolved_matching6_inst ar_payments_interface.resolved_matching1_installment%type;
564: l_resolved_matching7_inst ar_payments_interface.resolved_matching1_installment%type;
565: l_resolved_matching8_inst ar_payments_interface.resolved_matching1_installment%type;
566:
567: l_customer_id ar_payments_interface.customer_id%type;
560: l_resolved_matching3_inst ar_payments_interface.resolved_matching1_installment%type;
561: l_resolved_matching4_inst ar_payments_interface.resolved_matching1_installment%type;
562: l_resolved_matching5_inst ar_payments_interface.resolved_matching1_installment%type;
563: l_resolved_matching6_inst ar_payments_interface.resolved_matching1_installment%type;
564: l_resolved_matching7_inst ar_payments_interface.resolved_matching1_installment%type;
565: l_resolved_matching8_inst ar_payments_interface.resolved_matching1_installment%type;
566:
567: l_customer_id ar_payments_interface.customer_id%type;
568:
561: l_resolved_matching4_inst ar_payments_interface.resolved_matching1_installment%type;
562: l_resolved_matching5_inst ar_payments_interface.resolved_matching1_installment%type;
563: l_resolved_matching6_inst ar_payments_interface.resolved_matching1_installment%type;
564: l_resolved_matching7_inst ar_payments_interface.resolved_matching1_installment%type;
565: l_resolved_matching8_inst ar_payments_interface.resolved_matching1_installment%type;
566:
567: l_customer_id ar_payments_interface.customer_id%type;
568:
569: /* Bugfix 1732391 */
563: l_resolved_matching6_inst ar_payments_interface.resolved_matching1_installment%type;
564: l_resolved_matching7_inst ar_payments_interface.resolved_matching1_installment%type;
565: l_resolved_matching8_inst ar_payments_interface.resolved_matching1_installment%type;
566:
567: l_customer_id ar_payments_interface.customer_id%type;
568:
569: /* Bugfix 1732391 */
570: l_no_batch_or_lb varchar2(2);
571:
569: /* Bugfix 1732391 */
570: l_no_batch_or_lb varchar2(2);
571:
572: /* To fix bug 2066392 */
573: l_unformat_amount ar_payments_interface.amount_applied1%type;
574: --
575:
576: unexpected_program_error EXCEPTION;
577: --
668: fc.precision),
669: pi.amount_applied_from8),
670: pi.currency_code, /* currency code of the receipt */
671: pi.receipt_date
672: from ar_payments_interface pi, fnd_currencies fc
673: where pi.transmission_id = l_transmission_id
674: and pi.record_type||'' in ( l_payment_rec_type, l_overflow_rec_type )
675: and pi.item_number = l_item_num
676: and pi.currency_code = fc.currency_code
829: /* need to get receipt_date */
830: /* Bugfix 1732391. Replaced l_only_one_lockbox with l_no_batch_or_lb */
831: SELECT receipt_date
832: INTO l_receipt_date
833: FROM ar_payments_interface pi
834: WHERE pi.transmission_id = l_transmission_id
835: and pi.record_type||'' in ( l_payment_rec_type )
836: and pi.item_number = l_item_num
837: and ( pi.batch_name = l_batch_name
899: GROUP BY ps.customer_trx_id
900: HAVING sum(ps.amount_due_remaining) <> 0;
901:
902: IF (l_tot_trx1 > 1) then
903: update ar_payments_interface pi
904: set invoice1_status = 'AR_PLB_DUP_INV'
905: where rowid = l_rowid;
906: goto END_1;
907: ELSE
991: debug1('currency code is null.. setting = ' || ps_currency_code1);
992: l_invoice_currency_code1 := ps_currency_code1;
993:
994: /* update ar_payment_interface to have the invoice currency_code */
995: UPDATE ar_payments_interface
996: SET invoice_currency_code1 = l_invoice_currency_code1
997: WHERE rowid = l_rowid ;
998: END IF; /* end if invoice currency code was null */
999:
1005: debug1('ps_currency_code = ' || ps_currency_code1);
1006:
1007: IF (l_invoice_currency_code1 <> ps_currency_code1) then
1008: debug1('currency code give does not match payment schedules..');
1009: UPDATE AR_PAYMENTS_INTERFACE
1010: SET invoice1_status = 'AR_PLB_CURRENCY_BAD'
1011: WHERE rowid = l_rowid ;
1012: ELSE
1013: /* Bug:1513671 we know the invoice currency code so we can now format the
1114: * fine and we can write the rate to the
1115: * database
1116: *********************************************/
1117: debug1('validation passed ' );
1118: UPDATE ar_payments_interface
1119: SET trans_to_receipt_rate1 =
1120: l_trans_to_receipt_rate1
1121: WHERE rowid = l_rowid;
1122: ELSE
1119: SET trans_to_receipt_rate1 =
1120: l_trans_to_receipt_rate1
1121: WHERE rowid = l_rowid;
1122: ELSE
1123: UPDATE AR_PAYMENTS_INTERFACE
1124: SET invoice1_status =
1125: 'AR_PLB_CC_INVALID_VALUE'
1126: WHERE rowid = l_rowid;
1127: END IF;
1137: l_trans_to_receipt_rate1);
1138:
1139: /* once the rate has been calculated, we need
1140: to write it to the table */
1141: UPDATE ar_payments_interface
1142: SET trans_to_receipt_rate1 =
1143: l_trans_to_receipt_rate1
1144: WHERE rowid = l_rowid;
1145: END IF;
1159: /* if there is no rate in GL, there is nothing
1160: more we can do */
1161: IF (l_trans_to_receipt_rate1 < 0 ) THEN
1162:
1163: UPDATE AR_PAYMENTS_INTERFACE
1164: SET invoice1_status = 'AR_PLB_NO_EXCHANGE_RATE'
1165: WHERE rowid = l_rowid;
1166: ELSE
1167: /* once the rate has been calculated, we need
1168: to write it to the table */
1169:
1170: debug1('writing rate to database ' || to_char(l_trans_to_receipt_rate1));
1171:
1172: UPDATE ar_payments_interface
1173: SET trans_to_receipt_rate1 =
1174: l_trans_to_receipt_rate1
1175: WHERE rowid = l_rowid;
1176:
1181: l_amount_applied1,
1182: l_trans_to_receipt_rate1,
1183: l_amount_applied_from1,
1184: l_format_amount_applied_from1);
1185: update ar_payments_interface
1186: set amount_applied_from1 =
1187: l_amount_applied_from1
1188: where rowid = l_rowid;
1189:
1233: END IF;
1234: END IF;
1235: END IF;
1236:
1237: update ar_payments_interface
1238: set amount_applied1 =
1239: l_amount_applied1
1240: where rowid = l_rowid;
1241:
1241:
1242: END IF; /* if amount_applied_From1 is null */
1243: END IF; /* if rate is null after it is calc */
1244: ELSE /* bug 1519765 */
1245: UPDATE AR_PAYMENTS_INTERFACE
1246: SET invoice1_status = 'AR_PLB_NO_EXCHANGE_RATE'
1247: WHERE rowid = l_rowid;
1248: END IF; /* if derive profile is not null */
1249: END IF;
1258: l_amount_applied1,
1259: l_trans_to_receipt_rate1,
1260: l_amount_applied_from1,
1261: l_format_amount_applied_from1);
1262: update ar_payments_interface
1263: set amount_applied_from1 =
1264: l_amount_applied_from1
1265: where rowid = l_rowid;
1266:
1307: END IF;
1308: END IF;
1309: END IF;
1310:
1311: UPDATE AR_PAYMENTS_INTERFACE
1312: SET amount_applied1 =
1313: l_amount_applied1
1314: WHERE rowid = l_rowid;
1315:
1349: /* since one or more of the conditions are true
1350: then we assume that everything is fine. */
1351: debug1('validation passed ' );
1352: ELSE
1353: UPDATE AR_PAYMENTS_INTERFACE
1354: SET invoice1_status = 'AR_PLB_CC_INVALID_VALUE'
1355: WHERE rowid = l_rowid;
1356: END IF;
1357:
1362: cross currency enabled profile is not on.
1363: then set the status to be a currency conflict between
1364: the invoice and receipt currencies
1365: ***************************************************/
1366: UPDATE AR_PAYMENTS_INTERFACE
1367: SET invoice1_status = 'AR_PLB_CURR_CONFLICT'
1368: WHERE rowid = l_rowid;
1369: END IF;
1370: ELSE /* Bug 2066392. Single currency */
1370: ELSE /* Bug 2066392. Single currency */
1371: IF l_amount_applied_from1 is not null THEN
1372: IF l_amount_applied1 is not null THEN
1373: IF l_amount_applied_from1 <> l_amount_applied1 THEN
1374: UPDATE AR_PAYMENTS_INTERFACE
1375: SET invoice1_status = 'AR_PLB_CC_INVALID_VALUE'
1376: WHERE rowid = l_rowid;
1377: END IF;
1378: ELSE
1384: l_unformat_amount := l_amount_applied_from1 * power(10, l_precision);
1385: ELSE
1386: l_unformat_amount := l_amount_applied_from1;
1387: END IF;
1388: UPDATE AR_PAYMENTS_INTERFACE
1389: SET amount_applied1 = l_unformat_amount
1390: WHERE rowid = l_rowid;
1391: END IF;
1392: END IF;
1437: GROUP BY ps.customer_trx_id
1438: HAVING sum(ps.amount_due_remaining) <> 0;
1439:
1440: IF (l_tot_trx2 > 1) then
1441: update ar_payments_interface pi
1442: set invoice2_status = 'AR_PLB_DUP_INV'
1443: where rowid = l_rowid;
1444: goto END_2;
1445: ELSE
1528: IF (l_invoice_currency_code2 is NULL ) THEN
1529: debug1('currency code is null.. set equal to ps currency code');
1530: l_invoice_currency_code2 := ps_currency_code2;
1531:
1532: UPDATE ar_payments_interface pi
1533: SET pi.invoice_currency_code2 = l_invoice_currency_code2
1534: WHERE rowid = l_rowid;
1535: END IF; /* end if invoice currency is NULL */
1536:
1544: /* ------------------ Bug# 2066679 --------------------- */
1545:
1546: IF (l_invoice_currency_code2 <> ps_currency_code2) then
1547: debug1('currency code given does not match payment schedules..');
1548: UPDATE AR_PAYMENTS_INTERFACE
1549: SET invoice2_status = 'AR_PLB_CURRENCY_BAD'
1550: WHERE rowid = l_rowid;
1551: ELSE
1552: /* Bug:1513671 we know the invoice currency code so we can now format the
1651: * database
1652: *********************************************/
1653: debug1('validation passed ' );
1654:
1655: UPDATE ar_payments_interface
1656: SET trans_to_receipt_rate2 =
1657: l_trans_to_receipt_rate2
1658: WHERE rowid = l_rowid;
1659: ELSE
1656: SET trans_to_receipt_rate2 =
1657: l_trans_to_receipt_rate2
1658: WHERE rowid = l_rowid;
1659: ELSE
1660: UPDATE AR_PAYMENTS_INTERFACE
1661: SET invoice2_status =
1662: 'AR_PLB_CC_INVALID_VALUE'
1663: WHERE rowid = l_rowid;
1664: END IF;
1673: l_trans_to_receipt_rate2);
1674:
1675: /* once the rate has been calculated, we need
1676: to write it to the table */
1677: UPDATE ar_payments_interface
1678: SET trans_to_receipt_rate2 =
1679: l_trans_to_receipt_rate2
1680: WHERE rowid = l_rowid;
1681: END IF;
1695: /* if there is no rate in GL, there is nothing
1696: more we can do */
1697: IF (l_trans_to_receipt_rate2 < 0) THEN
1698:
1699: UPDATE AR_PAYMENTS_INTERFACE
1700: SET invoice2_status = 'AR_PLB_NO_EXCHANGE_RATE'
1701: WHERE rowid = l_rowid;
1702: ELSE
1703: /* once the rate has been calculated, we need
1704: to write it to the table */
1705:
1706: debug1('writing rate to database ' || to_char(l_trans_to_receipt_rate2));
1707:
1708: UPDATE ar_payments_interface
1709: SET trans_to_receipt_rate2 =
1710: l_trans_to_receipt_rate2
1711: WHERE rowid = l_rowid;
1712:
1718: l_amount_applied_from2,
1719: l_format_amount_applied_from2);
1720: /* once we calculate the value, we need
1721: to write it to the table */
1722: UPDATE ar_payments_interface
1723: SET amount_applied_from2 =
1724: l_amount_applied_from2
1725: WHERE rowid = l_rowid;
1726:
1765: END IF;
1766: END IF;
1767:
1768:
1769: UPDATE ar_payments_interface
1770: SET amount_applied2 =
1771: l_amount_applied2
1772: WHERE rowid = l_rowid;
1773:
1773:
1774: END IF; /* if amount_applied_From2 is null */
1775: END IF; /* if rate is null after it is calc */
1776: ELSE /* Bug 1519765 */
1777: UPDATE AR_PAYMENTS_INTERFACE
1778: SET invoice2_status = 'AR_PLB_NO_EXCHANGE_RATE'
1779: WHERE rowid = l_rowid;
1780: END IF; /* if derive profile is not null */
1781: END IF;
1790: l_amount_applied2,
1791: l_trans_to_receipt_rate2,
1792: l_amount_applied_from2,
1793: l_format_amount_applied_from2);
1794: UPDATE ar_payments_interface
1795: SET amount_applied_from2 =
1796: l_amount_applied_from2
1797: WHERE rowid = l_rowid;
1798:
1839: END IF;
1840: END IF;
1841:
1842:
1843: UPDATE ar_payments_interface
1844: SET amount_applied2 =
1845: l_amount_applied2
1846: WHERE rowid = l_rowid;
1847:
1881: /* since one or more of the conditions are true
1882: then we assume that everything is fine. */
1883: debug1('validation passed ' );
1884: ELSE
1885: UPDATE AR_PAYMENTS_INTERFACE
1886: SET invoice2_status = 'AR_PLB_CC_INVALID_VALUE'
1887: WHERE rowid = l_rowid;
1888: END IF;
1889: END IF; /* if one of the 3 items is NULL */
1893: cross currency enabled profile is not on.
1894: then set the status to be a currency conflict between
1895: the invoice and receipt currencies
1896: ***************************************************/
1897: UPDATE AR_PAYMENTS_INTERFACE
1898: SET invoice2_status = 'AR_PLB_CURR_CONFLICT'
1899: WHERE rowid = l_rowid;
1900: END IF;
1901: ELSE /* Bug 2066392. Single currency */
1901: ELSE /* Bug 2066392. Single currency */
1902: IF l_amount_applied_from2 is not null THEN
1903: IF l_amount_applied2 is not null THEN
1904: IF l_amount_applied_from2 <> l_amount_applied2 THEN
1905: UPDATE AR_PAYMENTS_INTERFACE
1906: SET invoice2_status = 'AR_PLB_CC_INVALID_VALUE'
1907: WHERE rowid = l_rowid;
1908: END IF;
1909: ELSE
1915: l_unformat_amount := l_amount_applied_from2 * power(10, l_precision);
1916: ELSE
1917: l_unformat_amount := l_amount_applied_from2;
1918: END IF;
1919: UPDATE AR_PAYMENTS_INTERFACE
1920: SET amount_applied2 = l_unformat_amount
1921: WHERE rowid = l_rowid;
1922: END IF;
1923: END IF;
1967: GROUP BY ps.customer_trx_id
1968: HAVING sum(ps.amount_due_remaining) <> 0;
1969:
1970: IF (l_tot_trx3 > 1) then
1971: update ar_payments_interface pi
1972: set invoice3_status = 'AR_PLB_DUP_INV'
1973: where rowid = l_rowid;
1974: goto END_3;
1975: ELSE
2059: debug1('currency code is null.. setting = ' || ps_currency_code3);
2060: l_invoice_currency_code3 := ps_currency_code3;
2061:
2062: /* update ar_payment_interface to have the invoice currency_code */
2063: UPDATE ar_payments_interface
2064: SET invoice_currency_code3 = l_invoice_currency_code3
2065: WHERE rowid = l_rowid;
2066: END IF; /* end if invoice currency code was null */
2067:
2073: debug1('ps_currency_code = ' || ps_currency_code3);
2074:
2075: IF (l_invoice_currency_code3 <> ps_currency_code3) then
2076: debug1('currency code give does not match payment schedules..');
2077: UPDATE AR_PAYMENTS_INTERFACE
2078: SET invoice3_status = 'AR_PLB_CURRENCY_BAD'
2079: WHERE rowid = l_rowid;
2080: ELSE
2081: /* Bug:1513671 we know the invoice currency code so we can now format the
2183: * fine and we can write the rate to the
2184: * database
2185: *********************************************/
2186: debug1('validation passed ' );
2187: UPDATE ar_payments_interface
2188: SET trans_to_receipt_rate3 =
2189: l_trans_to_receipt_rate3
2190: WHERE rowid = l_rowid;
2191: ELSE
2188: SET trans_to_receipt_rate3 =
2189: l_trans_to_receipt_rate3
2190: WHERE rowid = l_rowid;
2191: ELSE
2192: UPDATE AR_PAYMENTS_INTERFACE
2193: SET invoice3_status =
2194: 'AR_PLB_CC_INVALID_VALUE'
2195: WHERE rowid = l_rowid;
2196: END IF;
2205: l_trans_to_receipt_rate3);
2206:
2207: /* once the rate has been calculated, we need
2208: to write it to the table */
2209: UPDATE ar_payments_interface
2210: SET trans_to_receipt_rate3 =
2211: l_trans_to_receipt_rate3
2212: WHERE rowid = l_rowid;
2213: END IF;
2227: /* if there is no rate in GL, there is nothing
2228: more we can do */
2229: IF (l_trans_to_receipt_rate3 < 0 ) THEN
2230:
2231: UPDATE AR_PAYMENTS_INTERFACE
2232: SET invoice3_status = 'AR_PLB_NO_EXCHANGE_RATE'
2233: WHERE rowid = l_rowid;
2234:
2235: ELSE
2237: to write it to the table */
2238:
2239: debug1('writing rate to database ' || to_char(l_trans_to_receipt_rate3));
2240:
2241: UPDATE ar_payments_interface
2242: SET trans_to_receipt_rate3 =
2243: l_trans_to_receipt_rate3
2244: WHERE rowid = l_rowid;
2245:
2251: l_trans_to_receipt_rate3,
2252: l_amount_applied_from3,
2253: l_format_amount_applied_from3);
2254:
2255: update ar_payments_interface
2256: set amount_applied_from3 =
2257: l_amount_applied_from3
2258: where rowid = l_rowid;
2259:
2301: END IF;
2302: END IF;
2303:
2304:
2305: update ar_payments_interface
2306: set amount_applied3 =
2307: l_amount_applied3
2308: where rowid = l_rowid;
2309:
2309:
2310: END IF; /* if amount_applied_From3 is null */
2311: END IF; /* if rate is null after it is calc */
2312: ELSE /* Bug 1519765 */
2313: UPDATE AR_PAYMENTS_INTERFACE
2314: SET invoice3_status = 'AR_PLB_NO_EXCHANGE_RATE'
2315: WHERE rowid = l_rowid;
2316: END IF; /* if derive profile is not null */
2317: END IF;
2325: l_amount_applied3,
2326: l_trans_to_receipt_rate3,
2327: l_amount_applied_from3,
2328: l_format_amount_applied_from3);
2329: update ar_payments_interface
2330: set amount_applied_from3 =
2331: l_amount_applied_from3
2332: where rowid = l_rowid;
2333:
2372: END IF;
2373: END IF;
2374: END IF;
2375:
2376: UPDATE AR_PAYMENTS_INTERFACE
2377: SET amount_applied3 =
2378: l_amount_applied3
2379: WHERE rowid = l_rowid;
2380:
2415: then we assume that everything is fine. */
2416: debug1('validation passed ' );
2417: debug1('validation passed ' );
2418: ELSE
2419: UPDATE AR_PAYMENTS_INTERFACE
2420: SET invoice3_status = 'AR_PLB_CC_INVALID_VALUE'
2421: WHERE rowid = l_rowid;
2422: END IF;
2423:
2428: cross currency enabled profile is not on.
2429: then set the status to be a currency conflict between
2430: the invoice and receipt currencies
2431: ***************************************************/
2432: UPDATE AR_PAYMENTS_INTERFACE
2433: SET invoice3_status = 'AR_PLB_CURR_CONFLICT'
2434: WHERE rowid = l_rowid;
2435: END IF;
2436: ELSE /* Bug 2066392. Single currency */
2436: ELSE /* Bug 2066392. Single currency */
2437: IF l_amount_applied_from3 is not null THEN
2438: IF l_amount_applied3 is not null THEN
2439: IF l_amount_applied_from3 <> l_amount_applied3 THEN
2440: UPDATE AR_PAYMENTS_INTERFACE
2441: SET invoice3_status = 'AR_PLB_CC_INVALID_VALUE'
2442: WHERE rowid = l_rowid;
2443: END IF;
2444: ELSE
2450: l_unformat_amount := l_amount_applied_from3 * power(10, l_precision);
2451: ELSE
2452: l_unformat_amount := l_amount_applied_from3;
2453: END IF;
2454: UPDATE AR_PAYMENTS_INTERFACE
2455: SET amount_applied3 = l_unformat_amount
2456: WHERE rowid = l_rowid;
2457: END IF;
2458: END IF;
2503: GROUP BY ps.customer_trx_id
2504: HAVING sum(ps.amount_due_remaining) <> 0;
2505:
2506: IF (l_tot_trx4 > 1) then
2507: update ar_payments_interface pi
2508: set invoice4_status = 'AR_PLB_DUP_INV'
2509: where rowid = l_rowid;
2510: goto END_4;
2511: ELSE
2595: debug1('currency code is null.. setting = ' || ps_currency_code4);
2596: l_invoice_currency_code4 := ps_currency_code4;
2597:
2598: /* update ar_payment_interface to have the invoice currency_code */
2599: UPDATE ar_payments_interface
2600: SET invoice_currency_code4 = l_invoice_currency_code4
2601: WHERE rowid = l_rowid;
2602: END IF; /* end if invoice currency code was null */
2603:
2609: debug1('ps_currency_code = ' || ps_currency_code4);
2610:
2611: IF (l_invoice_currency_code4 <> ps_currency_code4) then
2612: debug1('currency code give does not match payment schedules..');
2613: UPDATE AR_PAYMENTS_INTERFACE
2614: SET invoice4_status = 'AR_PLB_CURRENCY_BAD'
2615: WHERE rowid = l_rowid;
2616: ELSE
2617: /* Bug:1513671 we know the invoice currency code so we can now format the
2718: * fine and we can write the rate to the
2719: * database
2720: *********************************************/
2721: debug1('validation passed ' );
2722: UPDATE ar_payments_interface
2723: SET trans_to_receipt_rate4 =
2724: l_trans_to_receipt_rate4
2725: WHERE rowid = l_rowid;
2726: ELSE
2723: SET trans_to_receipt_rate4 =
2724: l_trans_to_receipt_rate4
2725: WHERE rowid = l_rowid;
2726: ELSE
2727: UPDATE AR_PAYMENTS_INTERFACE
2728: SET invoice4_status =
2729: 'AR_PLB_CC_INVALID_VALUE'
2730: WHERE rowid = l_rowid;
2731: END IF;
2741: l_trans_to_receipt_rate4);
2742:
2743: /* once the rate has been calculated, we need
2744: to write it to the table */
2745: UPDATE ar_payments_interface
2746: SET trans_to_receipt_rate4 =
2747: l_trans_to_receipt_rate4
2748: WHERE rowid = l_rowid;
2749: END IF;
2763: /* if there is no rate in GL, there is nothing
2764: more we can do */
2765: IF (l_trans_to_receipt_rate4 < 0 ) THEN
2766:
2767: UPDATE AR_PAYMENTS_INTERFACE
2768: SET invoice4_status = 'AR_PLB_NO_EXCHANGE_RATE'
2769: WHERE rowid = l_rowid;
2770:
2771: ELSE
2773: to write it to the table */
2774:
2775: debug1('writing rate to database ' || to_char(l_trans_to_receipt_rate4));
2776:
2777: UPDATE ar_payments_interface
2778: SET trans_to_receipt_rate4 =
2779: l_trans_to_receipt_rate4
2780: WHERE rowid = l_rowid;
2781:
2786: l_amount_applied4,
2787: l_trans_to_receipt_rate4,
2788: l_amount_applied_from4,
2789: l_format_amount_applied_from4);
2790: update ar_payments_interface
2791: set amount_applied_from4 =
2792: l_amount_applied_from4
2793: where rowid = l_rowid;
2794:
2835: END IF;
2836: END IF;
2837:
2838:
2839: update ar_payments_interface
2840: set amount_applied4 =
2841: l_amount_applied4
2842: where rowid = l_rowid;
2843:
2843:
2844: END IF; /* if amount_applied_From4 is null */
2845: END IF; /* if rate is null after it is calc */
2846: ELSE /* Bug 1519765 */
2847: UPDATE AR_PAYMENTS_INTERFACE
2848: SET invoice4_status = 'AR_PLB_NO_EXCHANGE_RATE'
2849: WHERE rowid = l_rowid;
2850: END IF; /* if derive profile is not null */
2851: END IF;
2860: l_amount_applied4,
2861: l_trans_to_receipt_rate4,
2862: l_amount_applied_from4,
2863: l_format_amount_applied_from4);
2864: update ar_payments_interface
2865: set amount_applied_from4 =
2866: l_amount_applied_from4
2867: where rowid = l_rowid;
2868:
2905: END IF;
2906: END IF;
2907: END IF;
2908:
2909: UPDATE AR_PAYMENTS_INTERFACE
2910: SET amount_applied4 =
2911: l_amount_applied4
2912: WHERE rowid = l_rowid;
2913:
2947: /* since one or more of the conditions are true
2948: then we assume that everything is fine. */
2949: debug1('validation passed ' );
2950: ELSE
2951: UPDATE AR_PAYMENTS_INTERFACE
2952: SET invoice4_status = 'AR_PLB_CC_INVALID_VALUE'
2953: WHERE rowid = l_rowid;
2954: END IF;
2955:
2960: cross currency enabled profile is not on.
2961: then set the status to be a currency conflict between
2962: the invoice and receipt currencies
2963: ***************************************************/
2964: UPDATE AR_PAYMENTS_INTERFACE
2965: SET invoice4_status = 'AR_PLB_CURR_CONFLICT'
2966: WHERE rowid = l_rowid;
2967: END IF;
2968: ELSE /* Bug 2066392. Single currency */
2968: ELSE /* Bug 2066392. Single currency */
2969: IF l_amount_applied_from4 is not null THEN
2970: IF l_amount_applied4 is not null THEN
2971: IF l_amount_applied_from4 <> l_amount_applied4 THEN
2972: UPDATE AR_PAYMENTS_INTERFACE
2973: SET invoice4_status = 'AR_PLB_CC_INVALID_VALUE'
2974: WHERE rowid = l_rowid;
2975: END IF;
2976: ELSE
2982: l_unformat_amount := l_amount_applied_from4 * power(10, l_precision);
2983: ELSE
2984: l_unformat_amount := l_amount_applied_from4;
2985: END IF;
2986: UPDATE AR_PAYMENTS_INTERFACE
2987: SET amount_applied4 = l_unformat_amount
2988: WHERE rowid = l_rowid;
2989: END IF;
2990: END IF;
3035: GROUP BY ps.customer_trx_id
3036: HAVING sum(ps.amount_due_remaining) <> 0;
3037:
3038: IF (l_tot_trx5 > 1) then
3039: update ar_payments_interface pi
3040: set invoice5_status = 'AR_PLB_DUP_INV'
3041: where rowid = l_rowid;
3042: goto END_5;
3043: ELSE
3127: debug1('currency code is null.. setting = ' || ps_currency_code5);
3128: l_invoice_currency_code5 := ps_currency_code5;
3129:
3130: /* update ar_payment_interface to have the invoice currency_code */
3131: UPDATE ar_payments_interface
3132: SET invoice_currency_code5 = l_invoice_currency_code5
3133: WHERE rowid = l_rowid;
3134: END IF; /* end if invoice currency code was null */
3135:
3141: debug1('ps_currency_code = ' || ps_currency_code5);
3142:
3143: IF (l_invoice_currency_code5 <> ps_currency_code5) then
3144: debug1('currency code give does not match payment schedules..');
3145: UPDATE AR_PAYMENTS_INTERFACE
3146: SET invoice5_status = 'AR_PLB_CURRENCY_BAD'
3147: WHERE rowid = l_rowid;
3148: ELSE
3149: /* Bug:1513671 we know the invoice currency code so we can now format the
3250: * fine and we can write the rate to the
3251: * database
3252: *********************************************/
3253: debug1('validation passed ' );
3254: UPDATE ar_payments_interface
3255: SET trans_to_receipt_rate5 =
3256: l_trans_to_receipt_rate5
3257: WHERE rowid = l_rowid;
3258: ELSE
3255: SET trans_to_receipt_rate5 =
3256: l_trans_to_receipt_rate5
3257: WHERE rowid = l_rowid;
3258: ELSE
3259: UPDATE AR_PAYMENTS_INTERFACE
3260: SET invoice5_status =
3261: 'AR_PLB_CC_INVALID_VALUE'
3262: WHERE rowid = l_rowid;
3263: END IF;
3273: l_trans_to_receipt_rate5);
3274:
3275: /* once the rate has been calculated, we need
3276: to write it to the table */
3277: UPDATE ar_payments_interface
3278: SET trans_to_receipt_rate5 =
3279: l_trans_to_receipt_rate5
3280: WHERE rowid = l_rowid;
3281: END IF;
3295: /* if there is no rate in GL, there is nothing
3296: more we can do */
3297: IF (l_trans_to_receipt_rate5 < 0 ) THEN
3298:
3299: UPDATE AR_PAYMENTS_INTERFACE
3300: SET invoice5_status = 'AR_PLB_NO_EXCHANGE_RATE'
3301: WHERE rowid = l_rowid;
3302:
3303: ELSE
3305: to write it to the table */
3306:
3307: debug1('writing rate to database ' || to_char(l_trans_to_receipt_rate5));
3308:
3309: UPDATE ar_payments_interface
3310: SET trans_to_receipt_rate5 =
3311: l_trans_to_receipt_rate5
3312: WHERE rowid = l_rowid;
3313:
3318: l_amount_applied5,
3319: l_trans_to_receipt_rate5,
3320: l_amount_applied_from5,
3321: l_format_amount_applied_from5);
3322: update ar_payments_interface
3323: set amount_applied_from5 =
3324: l_amount_applied_from5
3325: where rowid = l_rowid;
3326:
3365: END IF;
3366: END IF;
3367: END IF;
3368:
3369: update ar_payments_interface
3370: set amount_applied5 =
3371: l_amount_applied5
3372: where rowid = l_rowid;
3373:
3373:
3374: END IF; /* if amount_applied_From5 is null */
3375: END IF; /* if rate is null after it is calc */
3376: ELSE /* Bug 1519765 */
3377: UPDATE AR_PAYMENTS_INTERFACE
3378: SET invoice5_status = 'AR_PLB_NO_EXCHANGE_RATE'
3379: WHERE rowid = l_rowid;
3380: END IF; /* if derive profile is not null */
3381: END IF;
3390: l_amount_applied5,
3391: l_trans_to_receipt_rate5,
3392: l_amount_applied_from5,
3393: l_format_amount_applied_from5);
3394: update ar_payments_interface
3395: set amount_applied_from5 =
3396: l_amount_applied_from5
3397: where rowid = l_rowid;
3398:
3436: END IF;
3437: END IF;
3438: END IF;
3439:
3440: UPDATE AR_PAYMENTS_INTERFACE
3441: SET amount_applied5 =
3442: l_amount_applied5
3443: WHERE rowid = l_rowid;
3444:
3478: /* since one or more of the conditions are true
3479: then we assume that everything is fine. */
3480: debug1('validation passed ' );
3481: ELSE
3482: UPDATE AR_PAYMENTS_INTERFACE
3483: SET invoice5_status = 'AR_PLB_CC_INVALID_VALUE'
3484: WHERE rowid = l_rowid;
3485: END IF;
3486:
3491: cross currency enabled profile is not on.
3492: then set the status to be a currency conflict between
3493: the invoice and receipt currencies
3494: ***************************************************/
3495: UPDATE AR_PAYMENTS_INTERFACE
3496: SET invoice5_status = 'AR_PLB_CURR_CONFLICT'
3497: WHERE rowid = l_rowid;
3498: END IF;
3499: ELSE /* Bug 2066392. Single currency */
3499: ELSE /* Bug 2066392. Single currency */
3500: IF l_amount_applied_from5 is not null THEN
3501: IF l_amount_applied5 is not null THEN
3502: IF l_amount_applied_from5 <> l_amount_applied5 THEN
3503: UPDATE AR_PAYMENTS_INTERFACE
3504: SET invoice5_status = 'AR_PLB_CC_INVALID_VALUE'
3505: WHERE rowid = l_rowid;
3506: END IF;
3507: ELSE
3513: l_unformat_amount := l_amount_applied_from5 * power(10, l_precision);
3514: ELSE
3515: l_unformat_amount := l_amount_applied_from5;
3516: END IF;
3517: UPDATE AR_PAYMENTS_INTERFACE
3518: SET amount_applied5 = l_unformat_amount
3519: WHERE rowid = l_rowid;
3520: END IF;
3521: END IF;
3566: GROUP BY ps.customer_trx_id
3567: HAVING sum(ps.amount_due_remaining) <> 0;
3568:
3569: IF (l_tot_trx6 > 1) then
3570: update ar_payments_interface pi
3571: set invoice6_status = 'AR_PLB_DUP_INV'
3572: where rowid = l_rowid;
3573: goto END_6;
3574: ELSE
3658: debug1('currency code is null.. setting = ' || ps_currency_code6);
3659: l_invoice_currency_code6 := ps_currency_code6;
3660:
3661: /* update ar_payment_interface to have the invoice currency_code */
3662: UPDATE ar_payments_interface
3663: SET invoice_currency_code6 = l_invoice_currency_code6
3664: WHERE rowid = l_rowid;
3665: END IF; /* end if invoice currency code was null */
3666:
3672: debug1('ps_currency_code = ' || ps_currency_code6);
3673:
3674: IF (l_invoice_currency_code6 <> ps_currency_code6) then
3675: debug1('currency code give does not match payment schedules..');
3676: UPDATE AR_PAYMENTS_INTERFACE
3677: SET invoice6_status = 'AR_PLB_CURRENCY_BAD'
3678: WHERE rowid = l_rowid;
3679: ELSE
3680: /* Bug:1513671 we know the invoice currency code so we can now format the
3781: * fine and we can write the rate to the
3782: * database
3783: *********************************************/
3784: debug1('validation passed ' );
3785: UPDATE ar_payments_interface
3786: SET trans_to_receipt_rate6 =
3787: l_trans_to_receipt_rate6
3788: WHERE rowid = l_rowid;
3789: ELSE
3786: SET trans_to_receipt_rate6 =
3787: l_trans_to_receipt_rate6
3788: WHERE rowid = l_rowid;
3789: ELSE
3790: UPDATE AR_PAYMENTS_INTERFACE
3791: SET invoice6_status =
3792: 'AR_PLB_CC_INVALID_VALUE'
3793: WHERE rowid = l_rowid;
3794: END IF;
3804: l_trans_to_receipt_rate6);
3805:
3806: /* once the rate has been calculated, we need
3807: to write it to the table */
3808: UPDATE ar_payments_interface
3809: SET trans_to_receipt_rate6 =
3810: l_trans_to_receipt_rate6
3811: WHERE rowid = l_rowid;
3812: END IF;
3826: /* if there is no rate in GL, there is nothing
3827: more we can do */
3828: IF (l_trans_to_receipt_rate6 < 0 ) THEN
3829:
3830: UPDATE AR_PAYMENTS_INTERFACE
3831: SET invoice6_status = 'AR_PLB_NO_EXCHANGE_RATE'
3832: WHERE rowid = l_rowid;
3833:
3834: ELSE
3836: to write it to the table */
3837:
3838: debug1('writing rate to database ' || to_char(l_trans_to_receipt_rate6));
3839:
3840: UPDATE ar_payments_interface
3841: SET trans_to_receipt_rate6 =
3842: l_trans_to_receipt_rate6
3843: WHERE rowid = l_rowid;
3844:
3849: l_amount_applied6,
3850: l_trans_to_receipt_rate6,
3851: l_amount_applied_from6,
3852: l_format_amount_applied_from6);
3853: update ar_payments_interface
3854: set amount_applied_from6 =
3855: l_amount_applied_from6
3856: where rowid = l_rowid;
3857:
3896: END IF;
3897: END IF;
3898: END IF;
3899:
3900: update ar_payments_interface
3901: set amount_applied6 =
3902: l_amount_applied6
3903: where rowid = l_rowid;
3904:
3904:
3905: END IF; /* if amount_applied_From6 is null */
3906: END IF; /* if rate is null after it is calc */
3907: ELSE /* Bug 1519765 */
3908: UPDATE AR_PAYMENTS_INTERFACE
3909: SET invoice6_status = 'AR_PLB_NO_EXCHANGE_RATE'
3910: WHERE rowid = l_rowid;
3911: END IF; /* if derive profile is not null */
3912: END IF;
3921: l_amount_applied6,
3922: l_trans_to_receipt_rate6,
3923: l_amount_applied_from6,
3924: l_format_amount_applied_from6);
3925: update ar_payments_interface
3926: set amount_applied_from6 =
3927: l_amount_applied_from6
3928: where rowid = l_rowid;
3929:
3966: END IF;
3967: END IF;
3968: END IF;
3969:
3970: UPDATE AR_PAYMENTS_INTERFACE
3971: SET amount_applied6 =
3972: l_amount_applied6
3973: WHERE rowid = l_rowid;
3974:
4008: /* since one or more of the conditions are true
4009: then we assume that everything is fine. */
4010: debug1('validation passed ' );
4011: ELSE
4012: UPDATE AR_PAYMENTS_INTERFACE
4013: SET invoice6_status = 'AR_PLB_CC_INVALID_VALUE'
4014: WHERE rowid = l_rowid;
4015: END IF;
4016:
4021: cross currency enabled profile is not on.
4022: then set the status to be a currency conflict between
4023: the invoice and receipt currencies
4024: ***************************************************/
4025: UPDATE AR_PAYMENTS_INTERFACE
4026: SET invoice6_status = 'AR_PLB_CURR_CONFLICT'
4027: WHERE rowid = l_rowid;
4028: END IF;
4029: ELSE /* Bug 2066392. Single currency */
4029: ELSE /* Bug 2066392. Single currency */
4030: IF l_amount_applied_from6 is not null THEN
4031: IF l_amount_applied6 is not null THEN
4032: IF l_amount_applied_from6 <> l_amount_applied6 THEN
4033: UPDATE AR_PAYMENTS_INTERFACE
4034: SET invoice6_status = 'AR_PLB_CC_INVALID_VALUE'
4035: WHERE rowid = l_rowid;
4036: END IF;
4037: ELSE
4043: l_unformat_amount := l_amount_applied_from6 * power(10, l_precision);
4044: ELSE
4045: l_unformat_amount := l_amount_applied_from6;
4046: END IF;
4047: UPDATE AR_PAYMENTS_INTERFACE
4048: SET amount_applied6 = l_unformat_amount
4049: WHERE rowid = l_rowid;
4050: END IF;
4051: END IF;
4096: GROUP BY ps.customer_trx_id
4097: HAVING sum(ps.amount_due_remaining) <> 0;
4098:
4099: IF (l_tot_trx7 > 1) then
4100: update ar_payments_interface pi
4101: set invoice7_status = 'AR_PLB_DUP_INV'
4102: where rowid = l_rowid;
4103: goto END_7;
4104: ELSE
4188: debug1('currency code is null.. setting = ' || ps_currency_code7);
4189: l_invoice_currency_code7 := ps_currency_code7;
4190:
4191: /* update ar_payment_interface to have the invoice currency_code */
4192: UPDATE ar_payments_interface
4193: SET invoice_currency_code7 = l_invoice_currency_code7
4194: WHERE rowid = l_rowid;
4195: END IF; /* end if invoice currency code was null */
4196:
4202: debug1('ps_currency_code = ' || ps_currency_code7);
4203:
4204: IF (l_invoice_currency_code7 <> ps_currency_code7) then
4205: debug1('currency code give does not match payment schedules..');
4206: UPDATE AR_PAYMENTS_INTERFACE
4207: SET invoice7_status = 'AR_PLB_CURRENCY_BAD'
4208: WHERE rowid = l_rowid;
4209: ELSE
4210: /* Bug:1513671 we know the invoice currency code so we can now format the
4311: * fine and we can write the rate to the
4312: * database
4313: *********************************************/
4314: debug1('validation passed ' );
4315: UPDATE ar_payments_interface
4316: SET trans_to_receipt_rate7 =
4317: l_trans_to_receipt_rate7
4318: WHERE rowid = l_rowid;
4319: ELSE
4316: SET trans_to_receipt_rate7 =
4317: l_trans_to_receipt_rate7
4318: WHERE rowid = l_rowid;
4319: ELSE
4320: UPDATE AR_PAYMENTS_INTERFACE
4321: SET invoice7_status =
4322: 'AR_PLB_CC_INVALID_VALUE'
4323: WHERE rowid = l_rowid;
4324: END IF;
4334: l_trans_to_receipt_rate7);
4335:
4336: /* once the rate has been calculated, we need
4337: to write it to the table */
4338: UPDATE ar_payments_interface
4339: SET trans_to_receipt_rate7 =
4340: l_trans_to_receipt_rate7
4341: WHERE rowid = l_rowid;
4342: END IF;
4356: /* if there is no rate in GL, there is nothing
4357: more we can do */
4358: IF (l_trans_to_receipt_rate7 < 0 ) THEN
4359:
4360: UPDATE AR_PAYMENTS_INTERFACE
4361: SET invoice7_status = 'AR_PLB_NO_EXCHANGE_RATE'
4362: WHERE rowid = l_rowid;
4363:
4364: ELSE
4366: to write it to the table */
4367:
4368: debug1('writing rate to database ' || to_char(l_trans_to_receipt_rate7));
4369:
4370: UPDATE ar_payments_interface
4371: SET trans_to_receipt_rate7 =
4372: l_trans_to_receipt_rate7
4373: WHERE rowid = l_rowid;
4374:
4379: l_amount_applied7,
4380: l_trans_to_receipt_rate7,
4381: l_amount_applied_from7,
4382: l_format_amount_applied_from7);
4383: update ar_payments_interface
4384: set amount_applied_from7 =
4385: l_amount_applied_from7
4386: where rowid = l_rowid;
4387:
4426: END IF;
4427: END IF;
4428: END IF;
4429:
4430: update ar_payments_interface
4431: set amount_applied7 =
4432: l_amount_applied7
4433: where rowid = l_rowid;
4434:
4434:
4435: END IF; /* if amount_applied_From7 is null */
4436: END IF; /* if rate is null after it is calc */
4437: ELSE /* Bug 1519765 */
4438: UPDATE AR_PAYMENTS_INTERFACE
4439: SET invoice7_status = 'AR_PLB_NO_EXCHANGE_RATE'
4440: WHERE rowid = l_rowid;
4441: END IF; /* if derive profile is not null */
4442: END IF;
4451: l_amount_applied7,
4452: l_trans_to_receipt_rate7,
4453: l_amount_applied_from7,
4454: l_format_amount_applied_from7);
4455: update ar_payments_interface
4456: set amount_applied_from7 =
4457: l_amount_applied_from7
4458: where rowid = l_rowid;
4459:
4497: END IF;
4498: END IF;
4499: END IF;
4500:
4501: UPDATE AR_PAYMENTS_INTERFACE
4502: SET amount_applied7 =
4503: l_amount_applied7
4504: WHERE rowid = l_rowid;
4505:
4539: /* since one or more of the conditions are true
4540: then we assume that everything is fine. */
4541: debug1('validation passed ' );
4542: ELSE
4543: UPDATE AR_PAYMENTS_INTERFACE
4544: SET invoice7_status = 'AR_PLB_CC_INVALID_VALUE'
4545: WHERE rowid = l_rowid;
4546: END IF;
4547:
4552: cross currency enabled profile is not on.
4553: then set the status to be a currency conflict between
4554: the invoice and receipt currencies
4555: ***************************************************/
4556: UPDATE AR_PAYMENTS_INTERFACE
4557: SET invoice7_status = 'AR_PLB_CURR_CONFLICT'
4558: WHERE rowid = l_rowid;
4559: END IF;
4560: ELSE /* Bug 2066392. Single currency */
4560: ELSE /* Bug 2066392. Single currency */
4561: IF l_amount_applied_from7 is not null THEN
4562: IF l_amount_applied7 is not null THEN
4563: IF l_amount_applied_from7 <> l_amount_applied7 THEN
4564: UPDATE AR_PAYMENTS_INTERFACE
4565: SET invoice7_status = 'AR_PLB_CC_INVALID_VALUE'
4566: WHERE rowid = l_rowid;
4567: END IF;
4568: ELSE
4574: l_unformat_amount := l_amount_applied_from7 * power(10, l_precision);
4575: ELSE
4576: l_unformat_amount := l_amount_applied_from7;
4577: END IF;
4578: UPDATE AR_PAYMENTS_INTERFACE
4579: SET amount_applied7 = l_unformat_amount
4580: WHERE rowid = l_rowid;
4581: END IF;
4582: END IF;
4627: GROUP BY ps.customer_trx_id
4628: HAVING sum(ps.amount_due_remaining) <> 0;
4629:
4630: IF (l_tot_trx8 > 1) then
4631: update ar_payments_interface pi
4632: set invoice8_status = 'AR_PLB_DUP_INV'
4633: where rowid = l_rowid;
4634: goto END_8;
4635: ELSE
4719: debug1('currency code is null.. setting = ' || ps_currency_code8);
4720: l_invoice_currency_code8 := ps_currency_code8;
4721:
4722: /* update ar_payment_interface to have the invoice currency_code */
4723: UPDATE ar_payments_interface
4724: SET invoice_currency_code8 = l_invoice_currency_code8
4725: WHERE rowid = l_rowid;
4726: END IF; /* end if invoice currency code was null */
4727:
4733: debug1('ps_currency_code = ' || ps_currency_code8);
4734:
4735: IF (l_invoice_currency_code8 <> ps_currency_code8) then
4736: debug1('currency code give does not match payment schedules..');
4737: UPDATE AR_PAYMENTS_INTERFACE
4738: SET invoice8_status = 'AR_PLB_CURRENCY_BAD'
4739: WHERE rowid = l_rowid;
4740: ELSE
4741: /* Bug:1513671 we know the invoice currency code so we can now format the
4842: * fine and we can write the rate to the
4843: * database
4844: *********************************************/
4845: debug1('validation passed ' );
4846: UPDATE ar_payments_interface
4847: SET trans_to_receipt_rate8 =
4848: l_trans_to_receipt_rate8
4849: WHERE rowid = l_rowid;
4850: ELSE
4847: SET trans_to_receipt_rate8 =
4848: l_trans_to_receipt_rate8
4849: WHERE rowid = l_rowid;
4850: ELSE
4851: UPDATE AR_PAYMENTS_INTERFACE
4852: SET invoice8_status =
4853: 'AR_PLB_CC_INVALID_VALUE'
4854: WHERE rowid = l_rowid;
4855: END IF;
4865: l_trans_to_receipt_rate8);
4866:
4867: /* once the rate has been calculated, we need
4868: to write it to the table */
4869: UPDATE ar_payments_interface
4870: SET trans_to_receipt_rate8 =
4871: l_trans_to_receipt_rate8
4872: WHERE rowid = l_rowid;
4873: END IF;
4887: /* if there is no rate in GL, there is nothing
4888: more we can do */
4889: IF (l_trans_to_receipt_rate8 < 0 ) THEN
4890:
4891: UPDATE AR_PAYMENTS_INTERFACE
4892: SET invoice8_status = 'AR_PLB_NO_EXCHANGE_RATE'
4893: WHERE rowid = l_rowid;
4894:
4895: ELSE
4897: to write it to the table */
4898:
4899: debug1('writing rate to database ' || to_char(l_trans_to_receipt_rate8));
4900:
4901: UPDATE ar_payments_interface
4902: SET trans_to_receipt_rate8 =
4903: l_trans_to_receipt_rate8
4904: WHERE rowid = l_rowid;
4905:
4910: l_amount_applied8,
4911: l_trans_to_receipt_rate8,
4912: l_amount_applied_from8,
4913: l_format_amount_applied_from8);
4914: update ar_payments_interface
4915: set amount_applied_from8 =
4916: l_amount_applied_from8
4917: where rowid = l_rowid;
4918:
4958: END IF;
4959: END IF;
4960: END IF;
4961:
4962: update ar_payments_interface
4963: set amount_applied8 =
4964: l_amount_applied8
4965: where rowid = l_rowid;
4966:
4966:
4967: END IF; /* if amount_applied_From8 is null */
4968: END IF; /* if rate is null after it is calc */
4969: ELSE /* Bug 1519765 */
4970: UPDATE AR_PAYMENTS_INTERFACE
4971: SET invoice8_status = 'AR_PLB_NO_EXCHANGE_RATE'
4972: WHERE rowid = l_rowid;
4973: END IF; /* if derive profile is not null */
4974: END IF;
4983: l_amount_applied8,
4984: l_trans_to_receipt_rate8,
4985: l_amount_applied_from8,
4986: l_format_amount_applied_from8);
4987: update ar_payments_interface
4988: set amount_applied_from8 =
4989: l_amount_applied_from8
4990: where rowid = l_rowid;
4991:
5029: END IF;
5030: END IF;
5031: END IF;
5032:
5033: UPDATE AR_PAYMENTS_INTERFACE
5034: SET amount_applied8 =
5035: l_amount_applied8
5036: WHERE rowid = l_rowid;
5037:
5071: /* since one or more of the conditions are true
5072: then we assume that everything is fine. */
5073: debug1('validation passed ' );
5074: ELSE
5075: UPDATE AR_PAYMENTS_INTERFACE
5076: SET invoice8_status = 'AR_PLB_CC_INVALID_VALUE'
5077: WHERE rowid = l_rowid;
5078: END IF;
5079:
5084: cross currency enabled profile is not on.
5085: then set the status to be a currency conflict between
5086: the invoice and receipt currencies
5087: ***************************************************/
5088: UPDATE AR_PAYMENTS_INTERFACE
5089: SET invoice8_status = 'AR_PLB_CURR_CONFLICT'
5090: WHERE rowid = l_rowid;
5091: END IF;
5092: ELSE /* Bug 2066392. Single currency */
5092: ELSE /* Bug 2066392. Single currency */
5093: IF l_amount_applied_from8 is not null THEN
5094: IF l_amount_applied8 is not null THEN
5095: IF l_amount_applied_from8 <> l_amount_applied8 THEN
5096: UPDATE AR_PAYMENTS_INTERFACE
5097: SET invoice8_status = 'AR_PLB_CC_INVALID_VALUE'
5098: WHERE rowid = l_rowid;
5099: END IF;
5100: ELSE
5106: l_unformat_amount := l_amount_applied_from8 * power(10, l_precision);
5107: ELSE
5108: l_unformat_amount := l_amount_applied_from8;
5109: END IF;
5110: UPDATE AR_PAYMENTS_INTERFACE
5111: SET amount_applied8 = l_unformat_amount
5112: WHERE rowid = l_rowid;
5113: END IF;
5114: END IF;
5154: +---------------------------------------------------------------------------*/
5155:
5156: PROCEDURE calc_amt_applied_from(
5157: p_currency_code IN VARCHAR2,
5158: p_amount_applied IN ar_payments_interface.amount_applied1%type,
5159: p_trans_to_receipt_rate IN ar_payments_interface.trans_to_receipt_rate1%type,
5160: amount_applied_from OUT NOCOPY ar_payments_interface.amount_applied_from1%type
5161: ) IS
5162: --
5155:
5156: PROCEDURE calc_amt_applied_from(
5157: p_currency_code IN VARCHAR2,
5158: p_amount_applied IN ar_payments_interface.amount_applied1%type,
5159: p_trans_to_receipt_rate IN ar_payments_interface.trans_to_receipt_rate1%type,
5160: amount_applied_from OUT NOCOPY ar_payments_interface.amount_applied_from1%type
5161: ) IS
5162: --
5163: l_mau NUMBER;
5156: PROCEDURE calc_amt_applied_from(
5157: p_currency_code IN VARCHAR2,
5158: p_amount_applied IN ar_payments_interface.amount_applied1%type,
5159: p_trans_to_receipt_rate IN ar_payments_interface.trans_to_receipt_rate1%type,
5160: amount_applied_from OUT NOCOPY ar_payments_interface.amount_applied_from1%type
5161: ) IS
5162: --
5163: l_mau NUMBER;
5164: l_precision NUMBER(1);
5232: +---------------------------------------------------------------------------*/
5233:
5234: PROCEDURE calc_amt_applied(
5235: p_invoice_currency_code IN VARCHAR2,
5236: p_amount_applied_from IN ar_payments_interface.amount_applied_from1%type,
5237: p_trans_to_receipt_rate IN ar_payments_interface.trans_to_receipt_rate1%type,
5238: amount_applied OUT NOCOPY ar_payments_interface.amount_applied1%type
5239: ) IS
5240:
5233:
5234: PROCEDURE calc_amt_applied(
5235: p_invoice_currency_code IN VARCHAR2,
5236: p_amount_applied_from IN ar_payments_interface.amount_applied_from1%type,
5237: p_trans_to_receipt_rate IN ar_payments_interface.trans_to_receipt_rate1%type,
5238: amount_applied OUT NOCOPY ar_payments_interface.amount_applied1%type
5239: ) IS
5240:
5241: --
5234: PROCEDURE calc_amt_applied(
5235: p_invoice_currency_code IN VARCHAR2,
5236: p_amount_applied_from IN ar_payments_interface.amount_applied_from1%type,
5237: p_trans_to_receipt_rate IN ar_payments_interface.trans_to_receipt_rate1%type,
5238: amount_applied OUT NOCOPY ar_payments_interface.amount_applied1%type
5239: ) IS
5240:
5241: --
5242: l_mau NUMBER;
5306: END debug1;
5307:
5308: /*************************************************************
5309: This procedure will populate all the temporary columns
5310: in the ar_payments_interface table with the original
5311: values in the table for the columns:
5312: amount_applied1-8, amount_applied_from1-8,
5313: invoice_currency_code1-8, and the trans_to_Receipt_rate1-8
5314: so that in the event of a problem with the validation
5318: were not.
5319: *************************************************************/
5320: PROCEDURE pop_temp_columns IS
5321: BEGIN
5322: update ar_payments_interface pi
5323: set tmp_amt_applied_from1 = pi.amount_applied_from1,
5324: tmp_amt_applied_from2 = pi.amount_applied_from2,
5325: tmp_amt_applied_from3 = pi.amount_applied_from3,
5326: tmp_amt_applied_from4 = pi.amount_applied_from4,
5356:
5357: PROCEDURE restore_orig_values IS
5358:
5359: BEGIN
5360: update ar_payments_interface
5361: set amount_applied_from1 = tmp_amt_applied_from1,
5362: amount_applied_from2 = tmp_amt_applied_from2,
5363: amount_applied_from3 = tmp_amt_applied_from3,
5364: amount_applied_from4 = tmp_amt_applied_from4,
5396:
5397:
5398: PROCEDURE are_values_valid (
5399: p_invoice_currency_code IN VARCHAR2,
5400: p_amount_applied_from IN ar_payments_interface.amount_applied_from1%type,
5401: p_trans_to_receipt_rate IN ar_payments_interface.trans_to_receipt_rate1%type,
5402: p_amount_applied IN ar_payments_interface.amount_applied1%type,
5403: p_currency_code IN VARCHAR2,
5404: valid OUT NOCOPY VARCHAR2 ) IS
5397:
5398: PROCEDURE are_values_valid (
5399: p_invoice_currency_code IN VARCHAR2,
5400: p_amount_applied_from IN ar_payments_interface.amount_applied_from1%type,
5401: p_trans_to_receipt_rate IN ar_payments_interface.trans_to_receipt_rate1%type,
5402: p_amount_applied IN ar_payments_interface.amount_applied1%type,
5403: p_currency_code IN VARCHAR2,
5404: valid OUT NOCOPY VARCHAR2 ) IS
5405:
5398: PROCEDURE are_values_valid (
5399: p_invoice_currency_code IN VARCHAR2,
5400: p_amount_applied_from IN ar_payments_interface.amount_applied_from1%type,
5401: p_trans_to_receipt_rate IN ar_payments_interface.trans_to_receipt_rate1%type,
5402: p_amount_applied IN ar_payments_interface.amount_applied1%type,
5403: p_currency_code IN VARCHAR2,
5404: valid OUT NOCOPY VARCHAR2 ) IS
5405:
5406: /* temporary variables used to check if amount_applied, amount_applied_from
5404: valid OUT NOCOPY VARCHAR2 ) IS
5405:
5406: /* temporary variables used to check if amount_applied, amount_applied_from
5407: and trans_to_receipt rates are given */
5408: l_temp_amt_applied ar_payments_interface.amount_applied1%type;
5409: l_temp_amt_applied_from ar_payments_interface.amount_applied_from1%type;
5410: l_temp_trans_to_receipt_rate ar_payments_interface.trans_to_receipt_rate1%type;
5411:
5412: BEGIN
5405:
5406: /* temporary variables used to check if amount_applied, amount_applied_from
5407: and trans_to_receipt rates are given */
5408: l_temp_amt_applied ar_payments_interface.amount_applied1%type;
5409: l_temp_amt_applied_from ar_payments_interface.amount_applied_from1%type;
5410: l_temp_trans_to_receipt_rate ar_payments_interface.trans_to_receipt_rate1%type;
5411:
5412: BEGIN
5413: /*************************************************
5406: /* temporary variables used to check if amount_applied, amount_applied_from
5407: and trans_to_receipt rates are given */
5408: l_temp_amt_applied ar_payments_interface.amount_applied1%type;
5409: l_temp_amt_applied_from ar_payments_interface.amount_applied_from1%type;
5410: l_temp_trans_to_receipt_rate ar_payments_interface.trans_to_receipt_rate1%type;
5411:
5412: BEGIN
5413: /*************************************************
5414: * if all fields are populated, we need to
5473: +---------------------------------------------------------------------------*/
5474:
5475: PROCEDURE calc_amt_applied_from_fmt(
5476: p_currency_code IN VARCHAR2,
5477: p_amount_applied IN ar_payments_interface.amount_applied1%type,
5478: p_trans_to_receipt_rate IN ar_payments_interface.trans_to_receipt_rate1%type,
5479: amount_applied_from OUT NOCOPY ar_payments_interface.amount_applied_from1%type,
5480: p_format_amount IN VARCHAR2
5481: ) IS
5474:
5475: PROCEDURE calc_amt_applied_from_fmt(
5476: p_currency_code IN VARCHAR2,
5477: p_amount_applied IN ar_payments_interface.amount_applied1%type,
5478: p_trans_to_receipt_rate IN ar_payments_interface.trans_to_receipt_rate1%type,
5479: amount_applied_from OUT NOCOPY ar_payments_interface.amount_applied_from1%type,
5480: p_format_amount IN VARCHAR2
5481: ) IS
5482: --
5475: PROCEDURE calc_amt_applied_from_fmt(
5476: p_currency_code IN VARCHAR2,
5477: p_amount_applied IN ar_payments_interface.amount_applied1%type,
5478: p_trans_to_receipt_rate IN ar_payments_interface.trans_to_receipt_rate1%type,
5479: amount_applied_from OUT NOCOPY ar_payments_interface.amount_applied_from1%type,
5480: p_format_amount IN VARCHAR2
5481: ) IS
5482: --
5483: l_mau NUMBER;
5553: +---------------------------------------------------------------------------*/
5554:
5555: PROCEDURE calc_amt_applied_fmt(
5556: p_invoice_currency_code IN VARCHAR2,
5557: p_amount_applied_from IN ar_payments_interface.amount_applied_from1%type,
5558: p_trans_to_receipt_rate IN ar_payments_interface.trans_to_receipt_rate1%type,
5559: amount_applied OUT NOCOPY ar_payments_interface.amount_applied1%type,
5560: p_format_amount IN VARCHAR2
5561: ) IS
5554:
5555: PROCEDURE calc_amt_applied_fmt(
5556: p_invoice_currency_code IN VARCHAR2,
5557: p_amount_applied_from IN ar_payments_interface.amount_applied_from1%type,
5558: p_trans_to_receipt_rate IN ar_payments_interface.trans_to_receipt_rate1%type,
5559: amount_applied OUT NOCOPY ar_payments_interface.amount_applied1%type,
5560: p_format_amount IN VARCHAR2
5561: ) IS
5562:
5555: PROCEDURE calc_amt_applied_fmt(
5556: p_invoice_currency_code IN VARCHAR2,
5557: p_amount_applied_from IN ar_payments_interface.amount_applied_from1%type,
5558: p_trans_to_receipt_rate IN ar_payments_interface.trans_to_receipt_rate1%type,
5559: amount_applied OUT NOCOPY ar_payments_interface.amount_applied1%type,
5560: p_format_amount IN VARCHAR2
5561: ) IS
5562:
5563: --