[Home] [Help]
58: x_msg_count OUT NOCOPY NUMBER,
59: x_msg_data OUT NOCOPY VARCHAR2)
60: IS
61:
62: l_ps_rec ar_payment_schedules%ROWTYPE;
63: l_payment_schedule_id NUMBER;
64: l_amount_in_dispute NUMBER;
65: l_amount_in_dispute_new NUMBER;
66: l_note_text VARCHAR2(2000);
68: l_error_count NUMBER := 0;
69: l_api_name CONSTANT VARCHAR2(30)
70: := 'update_amount_in_dispute';
71: l_claim_id NUMBER;
72: l_active_claim_flag ar_payment_schedules.active_claim_flag%TYPE;
73:
74: BEGIN
75: IF PG_DEBUG in ('Y', 'C') THEN
76: arp_standard.debug('ARP_DEDUCTION_COVER.update_amount_in_dispute()+');
131: ELSE
132: arp_ps_pkg.set_to_dummy(p_ps_rec => l_ps_rec);
133: SELECT amount_in_dispute
134: INTO l_amount_in_dispute
135: FROM ar_payment_schedules
136: WHERE payment_schedule_id = l_payment_schedule_id;
137:
138: l_ps_rec.payment_schedule_id := l_payment_schedule_id;
139: l_amount_in_dispute_new := l_amount_in_dispute + p_amount;
308: l_balance NUMBER := 0;
309: l_receipt_number ar_cash_receipts.receipt_number%TYPE;
310: l_receipt_date DATE;
311: l_currency_code ar_cash_receipts.currency_code%TYPE;
312: l_trx_currency_code ar_payment_schedules.invoice_currency_code%TYPE;
313: l_cr_gl_date DATE;
314: l_cr_payment_schedule_id NUMBER;
315: l_customer_id NUMBER;
316: l_default_gl_date DATE;
752: l_balance NUMBER := 0;
753: l_receipt_number ar_cash_receipts.receipt_number%TYPE;
754: l_receipt_date DATE;
755: l_currency_code ar_cash_receipts.currency_code%TYPE;
756: l_trx_currency_code ar_payment_schedules.invoice_currency_code%TYPE;
757: l_installment ar_payment_schedules.terms_sequence_number%TYPE;
758: l_cr_gl_date DATE;
759: l_cr_payment_schedule_id NUMBER;
760: l_customer_id NUMBER;
753: l_receipt_number ar_cash_receipts.receipt_number%TYPE;
754: l_receipt_date DATE;
755: l_currency_code ar_cash_receipts.currency_code%TYPE;
756: l_trx_currency_code ar_payment_schedules.invoice_currency_code%TYPE;
757: l_installment ar_payment_schedules.terms_sequence_number%TYPE;
758: l_cr_gl_date DATE;
759: l_cr_payment_schedule_id NUMBER;
760: l_customer_id NUMBER;
761: l_default_gl_date DATE;
798: SELECT sum(rec.amount_applied) amt_applied,
799: sum(rec.earned_discount_taken) earned_discount_taken,
800: sum(rec.unearned_discount_taken) unearned_discount_taken
801: FROM ar_receivable_applications rec
802: , ar_payment_schedules pay
803: WHERE rec.applied_payment_schedule_id = pay.payment_schedule_id
804: AND rec.cash_receipt_id = cv_cash_receipt_id
805: AND pay.customer_trx_id = cv_customer_trx_id
806: AND rec.application_ref_type = 'CLAIM'
870: , ps.terms_sequence_number
871: INTO l_applied_ps_id
872: , l_trx_currency_code
873: , l_installment
874: FROM ar_payment_schedules ps,
875: ar_receivable_applications ra
876: WHERE ps.payment_schedule_id = ra.applied_payment_schedule_id
877: AND ra.application_ref_type = 'CLAIM'
878: AND ra.secondary_application_ref_id = p_claim_id
1102: IF (p_customer_trx_id IS NOT NULL AND
1103: ARPT_SQL_FUNC_UTIL.get_claim_amount(l_claim_id) = 0)
1104: THEN
1105: BEGIN
1106: UPDATE ar_payment_schedules
1107: SET active_claim_flag = 'N'
1108: WHERE payment_schedule_id = l_applied_ps_id;
1109: EXCEPTION
1110: WHEN others then
1248: , x_customer_id
1249: , x_currency_code
1250: , x_cr_payment_schedule_id
1251: FROM ar_cash_receipts cr
1252: , ar_payment_schedules ps
1253: , ar_cash_receipt_history crh
1254: WHERE cr.cash_receipt_id = crh.cash_receipt_id(+)
1255: AND crh.first_posted_record_flag(+) = 'Y'
1256: AND cr.cash_receipt_id = ps.cash_receipt_id(+)