[Home] [Help]
289: p_batch_id IN NUMBER) IS
290:
291: CURSOR get_app_C IS
292: select app.receivable_application_id app_id
293: from ar_receivable_applications app
294: where app.cash_receipt_id = p_cash_receipt_id
295: and nvl(app.confirmed_flag,'Y') = 'Y' --confirmed records have accounting only
296: and exists (select 'x'
297: from ar_distributions ard
308: l_event_id NUMBER;
309:
310: CURSOR get_app_ev is
311: select distinct ra.event_id event_id , ra.cash_receipt_id cash_receipt_id from
312: ar_receivable_applications ra where ra.cash_receipt_id = p_cash_receipt_id
313: and ra.status not in ('UNAPP','UNID')
314: and ra.event_id is not null
315: and exists
316: ( select 'x' from xla_events where event_id = ra.event_id
465:
466: END LOOP;
467:
468:
469: -- delete all AR_RECEIVABLE_APPLICATIONS records created for this
470: -- receipt:
471:
472: DELETE AR_RECEIVABLE_APPLICATIONS
473: WHERE cash_receipt_id = p_cash_receipt_id;
468:
469: -- delete all AR_RECEIVABLE_APPLICATIONS records created for this
470: -- receipt:
471:
472: DELETE AR_RECEIVABLE_APPLICATIONS
473: WHERE cash_receipt_id = p_cash_receipt_id;
474: --Commented for bug 12989298
475: --RETURNING receivable_application_id
476: --BULK COLLECT INTO l_rec_app_key_value_list;
481: +---------------------------------*/
482:
483: ar_mrc_engine.maintain_mrc_data(
484: p_event_mode => 'DELETE',
485: p_table_name => 'AR_RECEIVABLE_APPLICATIONS',
486: p_mode => 'BATCH',
487: p_key_value_list => l_rec_app_key_value_list);
488:
489: /* Bug 4173339
745: AND cb_sl.statement_header_id = cb_sh.statement_header_id (+);
746:
747:
748: -- for cash receipts, get the application amounts from
749: -- ar_receivable_applications
750:
751: IF (p_receipt_type = 'MISC') THEN
752:
753: p_apps_exist_flag := 'N';
888: p_discounts_earned,
889: p_discounts_unearned,
890: l_tot_exchange_gain_loss
891: FROM
892: ar_receivable_applications ra
893: WHERE
894: ra.cash_receipt_id = p_cr_id;
895:
896: p_amount_on_account := l_amount_on_account;
907: 'ACC', 'Y',
908: 'OTHER ACC', 'Y',
909: 'ACTIVITY', 'Y', 'N'))
910: INTO l_apps_exist
911: FROM ar_receivable_applications ra
912: WHERE ra.cash_receipt_id = p_cr_id
913: AND ra.reversal_gl_date is NULL;
914:
915: p_apps_exist_flag := l_apps_exist;
925: FROM ar_cash_receipts cr
926: WHERE cr.cash_receipt_id = p_cr_id
927: AND exists
928: (select 1
929: from ar_receivable_applications ra,
930: ar_payment_schedules ps
931: where ra.cash_receipt_id = cr.cash_receipt_id
932: and ra.applied_payment_schedule_id = ps.payment_schedule_id
933: and ps.invoice_currency_code <> cr.currency_code
994: FROM dual
995: WHERE
996: EXISTS
997: ( SELECT 1
998: FROM AR_CASH_RECEIPT_HISTORY crh, ar_receivable_applications ra
999: WHERE crh.cash_receipt_id = ra.application_ref_id
1000: AND ra.cash_receipt_id = p_cr_id
1001: AND ra.applied_payment_schedule_id+0 in (-6 , -9)
1002: AND ra.application_ref_type = 'MISC_RECEIPT'