[Home] [Help]
709: END IF;
710:
711: -- If exchange rate has been changed
712: -- Insert a record into ar_rate_adjustments
713: -- Call arplbrad.main() to take care the ar_cash_receipts, ar_payment_schedules
714: -- and ar_receivable_applications/ar_misc_cash_distributions
715: --
716: -- 17-MAY-1999 J Rautiainen truncation exits on exchange rate so the comparison
717: -- was changed from comparing exchange rates to comparing accounted amounts in order
1988: p_reversal_date IN ar_cash_receipts.reversal_date%TYPE,
1989: p_reversal_category IN ar_cash_receipts.reversal_category%TYPE,
1990: p_reversal_reason_code IN ar_cash_receipts.reversal_reason_code%TYPE,
1991: p_reversal_comments IN ar_cash_receipts.reversal_comments%TYPE,
1992: p_dm_number OUT NOCOPY ar_payment_schedules.trx_number%TYPE,
1993: p_dm_doc_sequence_value IN ra_customer_trx.doc_sequence_value%TYPE,
1994: p_dm_doc_sequence_id IN ra_customer_trx.doc_sequence_id%TYPE,
1995: p_tw_status IN OUT NOCOPY VARCHAR2,
1996: p_module_name IN VARCHAR2,
1998: ) IS
1999:
2000: CURSOR applied_to_reserved_br_cur IS
2001: SELECT 'Y'
2002: FROM ar_payment_schedules ps,
2003: ar_receivable_applications ra
2004: WHERE ra.cash_receipt_id = p_cash_receipt_id
2005: AND ra.applied_payment_schedule_id = ps.payment_schedule_id
2006: AND ps.reserved_type IS NOT NULL
2015: AND ra.applied_payment_schedule_id = -2
2016: AND ra.display = 'Y';
2017:
2018: l_cr_rec ar_cash_receipts%ROWTYPE;
2019: l_dm_number ar_payment_schedules.trx_number%TYPE;
2020: applied_to_reserved_br_rec applied_to_reserved_br_cur%ROWTYPE;
2021: applied_to_std_rec applied_to_std_cur%ROWTYPE;
2022:
2023:
2325:
2326: BEGIN
2327: SELECT 'Y'
2328: INTO l_result
2329: FROM ar_payment_schedules ps_dm
2330: WHERE ps_dm.reversed_cash_receipt_id = p_cash_receipt_id
2331: AND ps_dm.class = 'DM';
2332:
2333: EXCEPTION