[Home] [Help]
951: '' item_exception_rate, /* item_exception_rate */
952: '' meaning /* item_exception_reason */
953: FROM
954: ra_cust_trx_types ctt,
955: ar_payment_schedules ps,
956: ar_cash_receipts cr,
957: ar_receivable_applications ra,
958: ra_customer_trx ct,
959: (SELECT distinct cash_Receipt_id
3200: to_number(null), /* expiration_days */
3201: '' /* override_auto_accounting_flag */
3202: FROM
3203: ra_cust_trx_types ctt,
3204: ar_payment_schedules ps,
3205: ar_cash_receipts cr,
3206: ar_receivable_applications ra,
3207: ra_customer_trx ct
3208: WHERE ctt.cust_trx_type_id = ct.cust_trx_type_id
3871: FOR UPDATE OF ra.customer_trx_id NOWAIT;
3872:
3873: cursor pay_sched_cur is
3874: SELECT 'Found' record_found
3875: from ar_payment_schedules ps
3876: WHERE ps.customer_trx_id = p_entity_id
3877: FOR UPDATE OF ps.customer_trx_id NOWAIT;
3878:
3879: BEGIN
3883: FOR lock_rec IN (
3884: SELECT 'Found' record_found
3885: FROM ra_cust_trx_line_salesreps sales,
3886: ar_receivable_applications ra,
3887: ar_payment_schedules ps,
3888: ar_adjustments adj,
3889: ra_cust_trx_line_gl_dist dist,
3890: ra_customer_trx_lines lines,
3891: ra_customer_trx trx
4150: l_invoice_open_amount NUMBER;
4151: BEGIN
4152: SELECT NVL(SUM(ABS(amount_due_remaining)),0)
4153: INTO l_invoice_open_amount
4154: FROM ar_payment_schedules
4155: WHERE customer_trx_id = p_entity_id;
4156: --
4157: IF l_invoice_open_amount > 0 THEN
4158: print( p_recursive_level, ' ...payment schedule is not closed' );
4450: SET corr.purged_children_flag = 'Y'
4451: WHERE corr.correspondence_id IN
4452: (
4453: SELECT sched.correspondence_id
4454: FROM ar_payment_schedules ps,
4455: ar_correspondence_pay_sched sched
4456: WHERE ps.customer_trx_id = p_entity_id
4457: AND ps.payment_schedule_id =
4458: sched.payment_schedule_id
4463: DELETE FROM ar_correspondence_pay_sched sched
4464: WHERE payment_schedule_id IN
4465: (
4466: SELECT payment_schedule_id
4467: FROM ar_payment_schedules
4468: WHERE customer_trx_id = p_entity_id
4469: )
4470: RETURNING correspondence_id BULK COLLECT INTO del_cid ;
4471: --
4474: WHERE corr.correspondence_id NOT IN
4475: (
4476: SELECT sched.correspondence_id
4477: FROM ar_correspondence_pay_sched sched,
4478: ar_payment_schedules ps
4479: WHERE ps.customer_trx_id = p_entity_id
4480: AND ps.payment_schedule_id =
4481: sched.payment_schedule_id
4482: ) ;
4494: WHERE corr.correspondence_id = sched.correspondence_id )
4495: AND corr.correspondence_id = del_cid(l_corr_row) ;
4496: END IF;
4497: --
4498: DELETE FROM ar_payment_schedules
4499: WHERE customer_trx_id = p_entity_id;
4500:
4501: --
4502: EXCEPTION
4707: dist.source_id NOWAIT;
4708:
4709: cursor ps_cur is
4710: select 'Found' record_found
4711: FROM ar_payment_schedules ps
4712: where ps.cash_receipt_id = p_entity_id
4713: FOR UPDATE OF ps.cash_receipt_id NOWAIT;
4714:
4715: cursor ra_cur is
4730: some stmts. This cursor for loop is not used .
4731: FOR lock_rec IN (
4732: SELECT 'Found' record_found
4733: FROM ar_distributions dist,
4734: ar_payment_schedules ps,
4735: ar_receivable_applications ra,
4736: ar_cash_receipt_history crh,
4737: ar_cash_receipts cr
4738: WHERE cr.cash_receipt_id = p_entity_id
4822: l_ps_status VARCHAR2(2);
4823: BEGIN
4824: SELECT status
4825: INTO l_ps_status
4826: FROM ar_payment_schedules
4827: WHERE cash_receipt_id = p_entity_id
4828: FOR UPDATE OF payment_schedule_id NOWAIT ;
4829:
4830: IF l_ps_status = 'OP' THEN
5033: END IF;
5034: END IF;
5035:
5036: --
5037: DELETE FROM ar_payment_schedules
5038: WHERE cash_receipt_id = p_entity_id;
5039:
5040: --
5041:
5348: SELECT 'X' FROM ar_receivable_applications
5349: WHERE cash_receipt_id = cr_id
5350: FOR UPDATE OF cash_receipt_id NOWAIT;
5351: CURSOR c_ap( cr_id number) IS
5352: SELECT 'X' FROM ar_payment_schedules
5353: WHERE cash_receipt_id = cr_id
5354: FOR UPDATE OF cash_receipt_id NOWAIT;
5355: CURSOR c_ara( cr_id number) IS
5356: SELECT 'X' FROM ar_rate_adjustments
5409: p_mode => 'BATCH',
5410: p_key_value_list => r_rec_app_key_value_list);*/
5411:
5412:
5413: DELETE FROM ar_payment_schedules
5414: WHERE cash_receipt_id = l_rcpt_id;
5415:
5416: /*---------------------------------+
5417: | Calling central MRC library |
5419: +---------------------------------*/
5420: -- Commented as a fix to bug - 13653152
5421: /*ar_mrc_engine.maintain_mrc_data(
5422: p_event_mode => 'DELETE',
5423: p_table_name => 'AR_PAYMENT_SCHEDULES',
5424: p_mode => 'BATCH',
5425: p_key_value_list => r_ar_ps_key_value_list);*/
5426:
5427: DELETE FROM ar_rate_adjustments
5493: p_short_flag IN VARCHAR2) IS
5494: --
5495: -- Earlier, it was driven from RA_CUST_TRX_LINE_GL_DIST
5496: -- To improve the performance, the code is changed
5497: -- so that it drives from AR_PAYMENT_SCHEDULES.
5498: -- This will not handle the cases where the
5499: -- open_receivable flag for the transaction_type is set
5500: -- to 'N'. This is the intended behaviour to improve
5501: -- the performance.
5506: cp_max_trx_id NUMBER) IS
5507: SELECT ct.customer_trx_id customer_trx_id
5508: FROM ra_cust_trx_types ctt,
5509: ra_customer_trx ct,
5510: ar_payment_schedules ps
5511: WHERE ct.initial_customer_trx_id IS NULL
5512: AND ps.customer_trx_id = ct.customer_trx_id
5513: -- bug1199027
5514: AND ps.gl_date_closed BETWEEN cp_start_gl_date