[Home] [Help]
908: END IF;
909:
910: -- If exchange rate has been changed
911: -- Insert a record into ar_rate_adjustments
912: -- Call arplbrad.main() to take care the ar_cash_receipts, ar_payment_schedules
913: -- and ar_receivable_applications/ar_misc_cash_distributions
914: --
915: -- 17-MAY-1999 J Rautiainen truncation exits on exchange rate so the comparison
916: -- was changed from comparing exchange rates to comparing accounted amounts in order
2421: p_reversal_date IN ar_cash_receipts.reversal_date%TYPE,
2422: p_reversal_category IN ar_cash_receipts.reversal_category%TYPE,
2423: p_reversal_reason_code IN ar_cash_receipts.reversal_reason_code%TYPE,
2424: p_reversal_comments IN ar_cash_receipts.reversal_comments%TYPE,
2425: p_dm_number OUT NOCOPY ar_payment_schedules.trx_number%TYPE,
2426: p_dm_doc_sequence_value IN ra_customer_trx.doc_sequence_value%TYPE,
2427: p_dm_doc_sequence_id IN ra_customer_trx.doc_sequence_id%TYPE,
2428: p_tw_status IN OUT NOCOPY VARCHAR2,
2429: p_module_name IN VARCHAR2,
2431: ) IS
2432:
2433: CURSOR applied_to_reserved_br_cur IS
2434: SELECT 'Y'
2435: FROM ar_payment_schedules ps,
2436: ar_receivable_applications ra
2437: WHERE ra.cash_receipt_id = p_cash_receipt_id
2438: AND ra.applied_payment_schedule_id = ps.payment_schedule_id
2439: AND ps.reserved_type IS NOT NULL
2448: AND ra.applied_payment_schedule_id = -2
2449: AND ra.display = 'Y';
2450:
2451: l_cr_rec ar_cash_receipts%ROWTYPE;
2452: l_dm_number ar_payment_schedules.trx_number%TYPE;
2453: applied_to_reserved_br_rec applied_to_reserved_br_cur%ROWTYPE;
2454: applied_to_std_rec applied_to_std_cur%ROWTYPE;
2455:
2456:
2758:
2759: BEGIN
2760: SELECT 'Y'
2761: INTO l_result
2762: FROM ar_payment_schedules ps_dm
2763: WHERE ps_dm.reversed_cash_receipt_id = p_cash_receipt_id
2764: AND ps_dm.class = 'DM';
2765:
2766: EXCEPTION