[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;
735: l_balance NUMBER := 0;
736: l_receipt_number ar_cash_receipts.receipt_number%TYPE;
737: l_receipt_date DATE;
738: l_currency_code ar_cash_receipts.currency_code%TYPE;
739: l_trx_currency_code ar_payment_schedules.invoice_currency_code%TYPE;
740: l_installment ar_payment_schedules.terms_sequence_number%TYPE;
741: l_cr_gl_date DATE;
742: l_cr_payment_schedule_id NUMBER;
743: l_customer_id NUMBER;
736: l_receipt_number ar_cash_receipts.receipt_number%TYPE;
737: l_receipt_date DATE;
738: l_currency_code ar_cash_receipts.currency_code%TYPE;
739: l_trx_currency_code ar_payment_schedules.invoice_currency_code%TYPE;
740: l_installment ar_payment_schedules.terms_sequence_number%TYPE;
741: l_cr_gl_date DATE;
742: l_cr_payment_schedule_id NUMBER;
743: l_customer_id NUMBER;
744: l_default_gl_date DATE;
780: SELECT sum(rec.amount_applied) amt_applied,
781: sum(rec.earned_discount_taken) earned_discount_taken,
782: sum(rec.unearned_discount_taken) unearned_discount_taken
783: FROM ar_receivable_applications rec
784: , ar_payment_schedules pay
785: WHERE rec.applied_payment_schedule_id = pay.payment_schedule_id
786: AND rec.cash_receipt_id = cv_cash_receipt_id
787: AND pay.customer_trx_id = cv_customer_trx_id
788: AND rec.application_ref_type = 'CLAIM'
836: , ps.terms_sequence_number
837: INTO l_applied_ps_id
838: , l_trx_currency_code
839: , l_installment
840: FROM ar_payment_schedules ps,
841: ar_receivable_applications ra
842: WHERE ps.payment_schedule_id = ra.applied_payment_schedule_id
843: AND ra.application_ref_type = 'CLAIM'
844: AND ra.secondary_application_ref_id = p_claim_id
1068: IF (p_customer_trx_id IS NOT NULL AND
1069: ARPT_SQL_FUNC_UTIL.get_claim_amount(l_claim_id) = 0)
1070: THEN
1071: BEGIN
1072: UPDATE ar_payment_schedules
1073: SET active_claim_flag = 'N'
1074: WHERE payment_schedule_id = l_applied_ps_id;
1075: EXCEPTION
1076: WHEN others then
1214: , x_customer_id
1215: , x_currency_code
1216: , x_cr_payment_schedule_id
1217: FROM ar_cash_receipts cr
1218: , ar_payment_schedules ps
1219: , ar_cash_receipt_history crh
1220: WHERE cr.cash_receipt_id = crh.cash_receipt_id(+)
1221: AND crh.first_posted_record_flag(+) = 'Y'
1222: AND cr.cash_receipt_id = ps.cash_receipt_id(+)