982:
983: CURSOR del_app IS
984: select app.receivable_application_id app_id,
985: app.customer_trx_id trx_id
986: from ar_receivable_applications app
987: where app.customer_trx_id = p_customer_trx_id
988: and nvl(app.confirmed_flag,'Y') = 'Y' --accounting exists in ar_distributions only if confirmed
989: and exists (select 'x'
990: from ar_distributions ard
1019: END LOOP;
1020:
1021: --Now delete parent application record
1022: DELETE
1023: FROM ar_receivable_applications ra
1024: WHERE ra.customer_trx_id = p_customer_trx_id
1025: RETURNING receivable_application_id
1026: BULK COLLECT INTO l_rec_app_key_value_list;
1027:
1033: +---------------------------------*/
1034:
1035: ar_mrc_engine.maintain_mrc_data(
1036: p_event_mode => 'DELETE',
1037: p_table_name => 'AR_RECEIVABLE_APPLICATIONS',
1038: p_mode => 'BATCH',
1039: p_key_value_list => l_rec_app_key_value_list);
1040:
1041: EXCEPTION
1270: FROM
1271: ar_adjustments adj,
1272: ar_payment_schedules ps2,
1273: ar_adjustments adj2,
1274: ar_receivable_applications ra2
1275: WHERE adj.receivables_trx_id =-1
1276: and adj.customer_trx_id = p_customer_trx_id
1277: and adj.subsequent_trx_id = p_subsequent_trx_id
1278: and adj.payment_schedule_id = ps2.payment_schedule_id
1422: p_profile_info.user_id,
1423: trunc(sysdate),
1424: p_profile_info.conc_login_id
1425: FROM
1426: ar_receivable_applications ra,
1427: ar_payment_schedules ps2,
1428: ar_adjustments adj2,
1429: ar_receivable_applications ra2
1430: WHERE ra.customer_trx_id = p_customer_trx_id
1425: FROM
1426: ar_receivable_applications ra,
1427: ar_payment_schedules ps2,
1428: ar_adjustments adj2,
1429: ar_receivable_applications ra2
1430: WHERE ra.customer_trx_id = p_customer_trx_id
1431: and ra.status||'' = 'APP'
1432: and ra.applied_payment_schedule_id = ps2.payment_schedule_id
1433: and ps2.payment_schedule_id =ps.payment_schedule_id
1455: ra.receivables_charges_applied)
1456: WHERE ps.payment_schedule_id in
1457: (
1458: SELECT ra3.applied_payment_schedule_id
1459: FROM ar_receivable_applications ra3
1460: WHERE ra3.customer_trx_id = p_customer_trx_id
1461: and ra3.status='APP'
1462: )
1463: RETURNING ps.payment_schedule_id
1506: --BUG#5324129
1507: CURSOR del_app(p_app_id IN NUMBER) IS
1508: select app.receivable_application_id app_id,
1509: app.customer_trx_id trx_id
1510: from ar_receivable_applications app
1511: where app.applied_payment_schedule_id = p_control.payment_schedule_id --inv ps
1512: and app.customer_trx_id = p_control.customer_trx_id --cm trx id
1513: and nvl(app.confirmed_flag,'Y') = 'Y' --accounting exists in ar_distributions only if confirmed
1514: and app.reversal_gl_date IS NULL
1521: --BUG#5324129
1522: CURSOR cre_app(p_app_id IN NUMBER) IS
1523: select app.receivable_application_id app_id,
1524: app.customer_trx_id trx_id
1525: from ar_receivable_applications app
1526: where app.applied_payment_schedule_id = p_control.payment_schedule_id
1527: and app.customer_trx_id = p_control.customer_trx_id
1528: and nvl(app.confirmed_flag,'Y') = 'Y'
1529: and app.reversal_gl_date IS NULL
1535:
1536: --BUG#5324129
1537: CURSOR cu_posted IS
1538: select *
1539: from ar_receivable_applications
1540: where applied_payment_schedule_id = p_control.payment_schedule_id
1541: and customer_trx_id = p_control.customer_trx_id
1542: and nvl(confirmed_flag,'Y') = 'Y'
1543: and reversal_gl_date IS NULL;
1545:
1546: CURSOR get_app_id(p_app_id IN NUMBER) IS
1547: select app.receivable_application_id,
1548: app.amount_applied
1549: from ar_receivable_applications app
1550: where app.applied_payment_schedule_id = p_control.payment_schedule_id
1551: and app.customer_trx_id = p_control.customer_trx_id
1552: and app.receivable_application_id = p_app_id;
1553:
1575: l_amount_applied NUMBER;
1576: l_ra_id NUMBER;
1577: l_del_app_rec del_app%ROWTYPE;
1578: l_cre_app_rec cre_app%ROWTYPE;
1579: old_rec_app ar_receivable_Applications%ROWTYPE;
1580: ins_ra_rec ar_receivable_Applications%ROWTYPE;
1581: no_app_found EXCEPTION;
1582:
1583: BEGIN
1576: l_ra_id NUMBER;
1577: l_del_app_rec del_app%ROWTYPE;
1578: l_cre_app_rec cre_app%ROWTYPE;
1579: old_rec_app ar_receivable_Applications%ROWTYPE;
1580: ins_ra_rec ar_receivable_Applications%ROWTYPE;
1581: no_app_found EXCEPTION;
1582:
1583: BEGIN
1584:
1619: l_inv_rate
1620: FROM
1621: ar_payment_schedules ps_cm,
1622: ar_payment_schedules ps_inv,
1623: ar_receivable_applications ra
1624: WHERE p_system_info.base_currency <> ps_inv.invoice_currency_code
1625: and ra.applied_payment_schedule_id = ps_inv.payment_schedule_id
1626: and ps_inv.payment_schedule_id = p_control.payment_schedule_id
1627: and ra.payment_schedule_id = ps_cm.payment_schedule_id
1754: p_profile_info.user_id,
1755: trunc(sysdate),
1756: p_profile_info.conc_login_id
1757: FROM
1758: ar_receivable_applications ra,
1759: ar_payment_schedules ps2,
1760: ar_receivable_applications ra2,
1761: ar_adjustments adj2
1762: WHERE ra.customer_trx_id = p_control.customer_trx_id
1756: p_profile_info.conc_login_id
1757: FROM
1758: ar_receivable_applications ra,
1759: ar_payment_schedules ps2,
1760: ar_receivable_applications ra2,
1761: ar_adjustments adj2
1762: WHERE ra.customer_trx_id = p_control.customer_trx_id
1763: and ra.status||'' = 'APP'
1764: and ra.reversal_gl_date IS NULL
1791: ps2.exchange_rate)
1792: WHERE ps.payment_schedule_id in
1793: (
1794: SELECT ra3.applied_payment_schedule_id
1795: FROM ar_receivable_applications ra3
1796: WHERE ra3.customer_trx_id = p_control.customer_trx_id
1797: and ra3.status = 'APP'
1798: and ra3.applied_payment_schedule_id = p_control.payment_schedule_id
1799: and ra3.reversal_gl_date IS NULL
1864: -- Update the CM application record to the correct amount
1865: ----------------------------------------------------------------
1866: arp_standard.debug('Update the CM app ra_id '|| old_rec_app.receivable_application_id || '+');
1867:
1868: UPDATE ar_receivable_applications ra
1869: SET
1870: acctd_amount_applied_from =
1871: decode(l_foreign_transaction,
1872: 'N',
2026: arp_app_pkg.insert_p( ins_ra_rec, l_ra_id );
2027: arp_standard.debug('Reverse application inserted ra_id :'||l_ra_id);
2028:
2029: --Update the reversal app record reversal_gl_date
2030: UPDATE ar_receivable_applications
2031: SET reversal_gl_date = TRUNC(SYSDATE),
2032: display = 'N'
2033: WHERE receivable_application_id = old_rec_app.receivable_application_id;
2034:
2156:
2157: CURSOR del_app IS
2158: select app.receivable_application_id app_id,
2159: app.customer_trx_id trx_id
2160: from ar_receivable_applications app
2161: where app.applied_payment_schedule_id = p_control.payment_schedule_id
2162: and app.customer_trx_id = p_control.customer_trx_id
2163: and nvl(app.confirmed_flag,'Y') = 'Y' --accounting exists in ar_distributions only if confirmed
2164: and app.status = 'APP'
2272: l_new_adj_amount
2273: FROM
2274: ar_payment_schedules ps_cm,
2275: ar_payment_schedules ps_inv,
2276: ar_receivable_applications ra
2277: WHERE p_system_info.base_currency <> ps_inv.invoice_currency_code
2278: and ra.applied_payment_schedule_id = ps_inv.payment_schedule_id
2279: and ps_inv.payment_schedule_id = p_control.payment_schedule_id
2280: and ra.payment_schedule_id = ps_cm.payment_schedule_id
2460: -3
2461: ,arp_standard.sysparm.org_id /* SSA changes anuj */
2462: FROM
2463: ar_adjustments adj2,
2464: ar_receivable_applications ra,
2465: ra_customer_trx ct
2466: WHERE adj2.receivables_trx_id= -1
2467: and adj2.customer_trx_id = p_control.previous_customer_trx_id
2468: and adj2.subsequent_trx_id = p_control.customer_trx_id
2590: p_profile_info.user_id,
2591: trunc(sysdate),
2592: p_profile_info.conc_login_id
2593: FROM
2594: ar_receivable_applications ra,
2595: ra_customer_trx ct
2596: WHERE ra.customer_trx_id = p_control.customer_trx_id
2597: and ra.status||'' = 'APP'
2598: and ra.applied_payment_schedule_id = p_control.payment_schedule_id
2735: p_profile_info.user_id,
2736: trunc(sysdate),
2737: p_profile_info.conc_login_id
2738: FROM
2739: ar_receivable_applications ra,
2740: ar_payment_schedules ps2,
2741: ar_receivable_applications ra2,
2742: ar_adjustments adj2
2743: WHERE ra.customer_trx_id = p_control.customer_trx_id
2737: p_profile_info.conc_login_id
2738: FROM
2739: ar_receivable_applications ra,
2740: ar_payment_schedules ps2,
2741: ar_receivable_applications ra2,
2742: ar_adjustments adj2
2743: WHERE ra.customer_trx_id = p_control.customer_trx_id
2744: and ra.status||'' = 'APP'
2745: and ra.applied_payment_schedule_id = ps2.payment_schedule_id
2800: DECLARE
2801: CURSOR get_app_id IS
2802: select app.receivable_application_id,
2803: app.amount_applied
2804: from ar_receivable_applications app
2805: where app.applied_payment_schedule_id = p_control.payment_schedule_id
2806: and app.customer_trx_id = p_control.customer_trx_id
2807: and app.status = 'APP';
2808:
2827: arp_acct_main.Delete_Acct_Entry(l_ae_doc_rec);
2828:
2829: END LOOP;
2830:
2831: UPDATE ar_receivable_applications ra
2832: SET
2833: acctd_amount_applied_from =
2834: decode(l_foreign_transaction,
2835: 'N',