[Home] [Help]
219: l_status VARCHAR2(30);
220: l_called_from VARCHAR2(30); --Bug7194951
221: BEGIN
222: IF PG_DEBUG in ('Y', 'C') THEN
223: arp_debug.debug('arp_process_application.reverse()+' );
224: END IF;
225:
226: -- Validate input arguments
227: validate_args( p_ra_id,
410: So if the above update can not update the paired UNAPP record, the following update
411: which uses the maximum matching criteria should be run to update the paired UNAPP record */
412: IF SQL%NOTFOUND THEN
413: IF PG_DEBUG in ('Y', 'C') THEN
414: arp_debug.debug( 'trans_to_receipt_rate = '||to_char(l_ra_rec.trans_to_receipt_rate));
415: arp_debug.debug( 'cash_receipt_id = '||to_char(l_ra_rec.cash_receipt_id));
416: arp_debug.debug( 'posting_control_id = '||to_char(l_ra_rec.posting_control_id));
417: arp_debug.debug( 'gl_posted_date = '||to_char(l_ra_rec.gl_posted_date,'DD-MON-YYYY'));
418: arp_debug.debug( 'amount_applied = '||to_char(l_ra_rec.amount_applied));
411: which uses the maximum matching criteria should be run to update the paired UNAPP record */
412: IF SQL%NOTFOUND THEN
413: IF PG_DEBUG in ('Y', 'C') THEN
414: arp_debug.debug( 'trans_to_receipt_rate = '||to_char(l_ra_rec.trans_to_receipt_rate));
415: arp_debug.debug( 'cash_receipt_id = '||to_char(l_ra_rec.cash_receipt_id));
416: arp_debug.debug( 'posting_control_id = '||to_char(l_ra_rec.posting_control_id));
417: arp_debug.debug( 'gl_posted_date = '||to_char(l_ra_rec.gl_posted_date,'DD-MON-YYYY'));
418: arp_debug.debug( 'amount_applied = '||to_char(l_ra_rec.amount_applied));
419: arp_debug.debug( 'amount_applied_from = '||to_char(l_ra_rec.amount_applied_from));
412: IF SQL%NOTFOUND THEN
413: IF PG_DEBUG in ('Y', 'C') THEN
414: arp_debug.debug( 'trans_to_receipt_rate = '||to_char(l_ra_rec.trans_to_receipt_rate));
415: arp_debug.debug( 'cash_receipt_id = '||to_char(l_ra_rec.cash_receipt_id));
416: arp_debug.debug( 'posting_control_id = '||to_char(l_ra_rec.posting_control_id));
417: arp_debug.debug( 'gl_posted_date = '||to_char(l_ra_rec.gl_posted_date,'DD-MON-YYYY'));
418: arp_debug.debug( 'amount_applied = '||to_char(l_ra_rec.amount_applied));
419: arp_debug.debug( 'amount_applied_from = '||to_char(l_ra_rec.amount_applied_from));
420: arp_debug.debug( 'gl_date = '||to_char(l_ra_rec.gl_date,'DD-MON-YYYY'));
413: IF PG_DEBUG in ('Y', 'C') THEN
414: arp_debug.debug( 'trans_to_receipt_rate = '||to_char(l_ra_rec.trans_to_receipt_rate));
415: arp_debug.debug( 'cash_receipt_id = '||to_char(l_ra_rec.cash_receipt_id));
416: arp_debug.debug( 'posting_control_id = '||to_char(l_ra_rec.posting_control_id));
417: arp_debug.debug( 'gl_posted_date = '||to_char(l_ra_rec.gl_posted_date,'DD-MON-YYYY'));
418: arp_debug.debug( 'amount_applied = '||to_char(l_ra_rec.amount_applied));
419: arp_debug.debug( 'amount_applied_from = '||to_char(l_ra_rec.amount_applied_from));
420: arp_debug.debug( 'gl_date = '||to_char(l_ra_rec.gl_date,'DD-MON-YYYY'));
421: arp_debug.debug( 'apply_date = '||to_char(l_ra_rec.apply_date,'DD-MON-YYYY'));
414: arp_debug.debug( 'trans_to_receipt_rate = '||to_char(l_ra_rec.trans_to_receipt_rate));
415: arp_debug.debug( 'cash_receipt_id = '||to_char(l_ra_rec.cash_receipt_id));
416: arp_debug.debug( 'posting_control_id = '||to_char(l_ra_rec.posting_control_id));
417: arp_debug.debug( 'gl_posted_date = '||to_char(l_ra_rec.gl_posted_date,'DD-MON-YYYY'));
418: arp_debug.debug( 'amount_applied = '||to_char(l_ra_rec.amount_applied));
419: arp_debug.debug( 'amount_applied_from = '||to_char(l_ra_rec.amount_applied_from));
420: arp_debug.debug( 'gl_date = '||to_char(l_ra_rec.gl_date,'DD-MON-YYYY'));
421: arp_debug.debug( 'apply_date = '||to_char(l_ra_rec.apply_date,'DD-MON-YYYY'));
422: END IF;
415: arp_debug.debug( 'cash_receipt_id = '||to_char(l_ra_rec.cash_receipt_id));
416: arp_debug.debug( 'posting_control_id = '||to_char(l_ra_rec.posting_control_id));
417: arp_debug.debug( 'gl_posted_date = '||to_char(l_ra_rec.gl_posted_date,'DD-MON-YYYY'));
418: arp_debug.debug( 'amount_applied = '||to_char(l_ra_rec.amount_applied));
419: arp_debug.debug( 'amount_applied_from = '||to_char(l_ra_rec.amount_applied_from));
420: arp_debug.debug( 'gl_date = '||to_char(l_ra_rec.gl_date,'DD-MON-YYYY'));
421: arp_debug.debug( 'apply_date = '||to_char(l_ra_rec.apply_date,'DD-MON-YYYY'));
422: END IF;
423: IF l_ra_rec.trans_to_receipt_rate is NOT NULL THEN
416: arp_debug.debug( 'posting_control_id = '||to_char(l_ra_rec.posting_control_id));
417: arp_debug.debug( 'gl_posted_date = '||to_char(l_ra_rec.gl_posted_date,'DD-MON-YYYY'));
418: arp_debug.debug( 'amount_applied = '||to_char(l_ra_rec.amount_applied));
419: arp_debug.debug( 'amount_applied_from = '||to_char(l_ra_rec.amount_applied_from));
420: arp_debug.debug( 'gl_date = '||to_char(l_ra_rec.gl_date,'DD-MON-YYYY'));
421: arp_debug.debug( 'apply_date = '||to_char(l_ra_rec.apply_date,'DD-MON-YYYY'));
422: END IF;
423: IF l_ra_rec.trans_to_receipt_rate is NOT NULL THEN
424: update ar_receivable_applications
417: arp_debug.debug( 'gl_posted_date = '||to_char(l_ra_rec.gl_posted_date,'DD-MON-YYYY'));
418: arp_debug.debug( 'amount_applied = '||to_char(l_ra_rec.amount_applied));
419: arp_debug.debug( 'amount_applied_from = '||to_char(l_ra_rec.amount_applied_from));
420: arp_debug.debug( 'gl_date = '||to_char(l_ra_rec.gl_date,'DD-MON-YYYY'));
421: arp_debug.debug( 'apply_date = '||to_char(l_ra_rec.apply_date,'DD-MON-YYYY'));
422: END IF;
423: IF l_ra_rec.trans_to_receipt_rate is NOT NULL THEN
424: update ar_receivable_applications
425: set reversal_gl_date = p_reversal_gl_date
542: -- call revenue management's receipt analyzer for revenue related
543: -- impact of this reversal.
544:
545: IF PG_DEBUG in ('Y', 'C') THEN
546: arp_debug.debug( 'calling receipt_analyzer in reversal mode');
547: END IF;
548:
549: ar_revenue_management_pvt.receipt_analyzer (
550: p_mode => ar_revenue_management_pvt.c_receipt_reversal_mode,
550: p_mode => ar_revenue_management_pvt.c_receipt_reversal_mode,
551: p_receivable_application_id => p_ra_id);
552:
553: IF PG_DEBUG in ('Y', 'C') THEN
554: arp_debug.debug('returned from receipt_analyzer');
555: END IF;
556:
557: -- RAM-C changes end
558:
556:
557: -- RAM-C changes end
558:
559: IF PG_DEBUG in ('Y', 'C') THEN
560: arp_debug.debug('arp_process_application.reverse()-' );
561: END IF;
562: EXCEPTION
563: WHEN OTHERS THEN
564: IF PG_DEBUG in ('Y', 'C') THEN
561: END IF;
562: EXCEPTION
563: WHEN OTHERS THEN
564: IF PG_DEBUG in ('Y', 'C') THEN
565: arp_debug.debug(
566: 'EXCEPTION: arp_process_application.reverse' );
567: END IF;
568: RAISE;
569: END reverse;
623: l_sum_dist NUMBER;
624:
625: BEGIN
626: IF PG_DEBUG in ('Y', 'C') THEN
627: arp_debug.debug( 'arp_process_application.reverse_cm_app()+' );
628: END IF;
629:
630: -- -------------------------------------------------------------------
631: -- Get ready to insert application row into ar_receivable_applications.
659: IF (l_reg_cm) THEN
660: IF (l_rule_id <> -999) THEN
661: -- make sure rev rec is run, if not, run rev rec
662: IF (PG_DEBUG in ('Y', 'C')) THEN
663: arp_debug.debug('reverse_cm_app: we have a reg cm with rules');
664: END IF;
665:
666: -- has rev rec been run for this CM?
667: l_rev_rec_run := arpt_sql_func_util.get_revenue_recog_run_flag(
699: -- invoice, also set actual date closed and gl_date_closed.
700:
701: IF ( NVL( lr_ra_rec.confirmed_flag, 'Y' ) = 'Y' ) THEN
702: IF PG_DEBUG in ('Y', 'C') THEN
703: arp_debug.debug( 'lr_ra_rec.confirmed_flag = Y' );
704: END IF;
705:
706: /* Bug 4122494 CM refunds */
707: IF pn_applied_ps_id = -8 THEN
754: AR_BUS_EVENT_COVER.Raise_CM_UnApply_Event(l_rec_app_id);
755: END IF;
756:
757: IF PG_DEBUG in ('Y', 'C') THEN
758: arp_debug.debug( 'arp_process_application.reverse_cm_app()-' );
759: END IF;
760:
761: END reverse_cm_app;
762: --
920: l_app_ra_rec ar_receivable_applications%ROWTYPE;
921:
922: BEGIN
923: IF PG_DEBUG in ('Y', 'C') THEN
924: arp_debug.debug( 'arp_process_application.update_selected_transaction()+');
925: END IF;
926:
927: functional_curr := arp_global.functional_currency;
928:
1111: -- lr_ra_rec);
1112: END IF;
1113:
1114: IF PG_DEBUG in ('Y', 'C') THEN
1115: arp_debug.debug( 'arp_process_application.update_amount_applied()-');
1116: END IF;
1117:
1118: EXCEPTION
1119: WHEN OTHERS THEN
1117:
1118: EXCEPTION
1119: WHEN OTHERS THEN
1120: IF PG_DEBUG in ('Y', 'C') THEN
1121: arp_debug.debug( '-- EXCEPTION:');
1122: arp_debug.debug( 'Printing procedure parameter values:');
1123: arp_debug.debug( '-- pn_ra_id = '||TO_CHAR(pn_ra_id));
1124: arp_debug.debug( '-- pn_amount_applied = '||TO_CHAR(pn_amount_applied));
1125: arp_debug.debug( '-- pc_invoice_currency_code = '||
1118: EXCEPTION
1119: WHEN OTHERS THEN
1120: IF PG_DEBUG in ('Y', 'C') THEN
1121: arp_debug.debug( '-- EXCEPTION:');
1122: arp_debug.debug( 'Printing procedure parameter values:');
1123: arp_debug.debug( '-- pn_ra_id = '||TO_CHAR(pn_ra_id));
1124: arp_debug.debug( '-- pn_amount_applied = '||TO_CHAR(pn_amount_applied));
1125: arp_debug.debug( '-- pc_invoice_currency_code = '||
1126: pc_invoice_currency_code);
1119: WHEN OTHERS THEN
1120: IF PG_DEBUG in ('Y', 'C') THEN
1121: arp_debug.debug( '-- EXCEPTION:');
1122: arp_debug.debug( 'Printing procedure parameter values:');
1123: arp_debug.debug( '-- pn_ra_id = '||TO_CHAR(pn_ra_id));
1124: arp_debug.debug( '-- pn_amount_applied = '||TO_CHAR(pn_amount_applied));
1125: arp_debug.debug( '-- pc_invoice_currency_code = '||
1126: pc_invoice_currency_code);
1127: arp_debug.debug( '-- pn_invoice_exchange_rate = '||
1120: IF PG_DEBUG in ('Y', 'C') THEN
1121: arp_debug.debug( '-- EXCEPTION:');
1122: arp_debug.debug( 'Printing procedure parameter values:');
1123: arp_debug.debug( '-- pn_ra_id = '||TO_CHAR(pn_ra_id));
1124: arp_debug.debug( '-- pn_amount_applied = '||TO_CHAR(pn_amount_applied));
1125: arp_debug.debug( '-- pc_invoice_currency_code = '||
1126: pc_invoice_currency_code);
1127: arp_debug.debug( '-- pn_invoice_exchange_rate = '||
1128: to_char(pn_invoice_exchange_rate));
1121: arp_debug.debug( '-- EXCEPTION:');
1122: arp_debug.debug( 'Printing procedure parameter values:');
1123: arp_debug.debug( '-- pn_ra_id = '||TO_CHAR(pn_ra_id));
1124: arp_debug.debug( '-- pn_amount_applied = '||TO_CHAR(pn_amount_applied));
1125: arp_debug.debug( '-- pc_invoice_currency_code = '||
1126: pc_invoice_currency_code);
1127: arp_debug.debug( '-- pn_invoice_exchange_rate = '||
1128: to_char(pn_invoice_exchange_rate));
1129: arp_debug.debug( '-- pc_receipt_currency_code = '||
1123: arp_debug.debug( '-- pn_ra_id = '||TO_CHAR(pn_ra_id));
1124: arp_debug.debug( '-- pn_amount_applied = '||TO_CHAR(pn_amount_applied));
1125: arp_debug.debug( '-- pc_invoice_currency_code = '||
1126: pc_invoice_currency_code);
1127: arp_debug.debug( '-- pn_invoice_exchange_rate = '||
1128: to_char(pn_invoice_exchange_rate));
1129: arp_debug.debug( '-- pc_receipt_currency_code = '||
1130: pc_receipt_currency_code);
1131: arp_debug.debug( '-- pn_receipt_exchange_rate = '||
1125: arp_debug.debug( '-- pc_invoice_currency_code = '||
1126: pc_invoice_currency_code);
1127: arp_debug.debug( '-- pn_invoice_exchange_rate = '||
1128: to_char(pn_invoice_exchange_rate));
1129: arp_debug.debug( '-- pc_receipt_currency_code = '||
1130: pc_receipt_currency_code);
1131: arp_debug.debug( '-- pn_receipt_exchange_rate = '||
1132: to_char(pn_receipt_exchange_rate));
1133: arp_debug.debug( '-- pc_module_name = '||pc_module_name);
1127: arp_debug.debug( '-- pn_invoice_exchange_rate = '||
1128: to_char(pn_invoice_exchange_rate));
1129: arp_debug.debug( '-- pc_receipt_currency_code = '||
1130: pc_receipt_currency_code);
1131: arp_debug.debug( '-- pn_receipt_exchange_rate = '||
1132: to_char(pn_receipt_exchange_rate));
1133: arp_debug.debug( '-- pc_module_name = '||pc_module_name);
1134: arp_debug.debug( '-- pc_module_version = '||pc_module_version);
1135: END IF;
1129: arp_debug.debug( '-- pc_receipt_currency_code = '||
1130: pc_receipt_currency_code);
1131: arp_debug.debug( '-- pn_receipt_exchange_rate = '||
1132: to_char(pn_receipt_exchange_rate));
1133: arp_debug.debug( '-- pc_module_name = '||pc_module_name);
1134: arp_debug.debug( '-- pc_module_version = '||pc_module_version);
1135: END IF;
1136:
1137: app_exception.raise_exception;
1130: pc_receipt_currency_code);
1131: arp_debug.debug( '-- pn_receipt_exchange_rate = '||
1132: to_char(pn_receipt_exchange_rate));
1133: arp_debug.debug( '-- pc_module_name = '||pc_module_name);
1134: arp_debug.debug( '-- pc_module_version = '||pc_module_version);
1135: END IF;
1136:
1137: app_exception.raise_exception;
1138: -- RAISE;
1172: p_reversal_date IN DATE,
1173: p_module_name IN VARCHAR2 ) IS
1174: BEGIN
1175: IF PG_DEBUG in ('Y', 'C') THEN
1176: arp_debug.debug( 'arp_process_application.validate_args()+' );
1177: END IF;
1178:
1179: IF (p_ra_id IS NULL)
1180: THEN
1203: , 'NULL');
1204: END IF;
1205:
1206: IF PG_DEBUG in ('Y', 'C') THEN
1207: arp_debug.debug( 'arp_process_application.validate_args()-' );
1208: END IF;
1209:
1210: EXCEPTION
1211: WHEN OTHERS THEN
1209:
1210: EXCEPTION
1211: WHEN OTHERS THEN
1212: IF PG_DEBUG in ('Y', 'C') THEN
1213: arp_debug.debug('EXCEPTION: arp_process_application.validate_args');
1214: END IF;
1215: RAISE;
1216: END validate_args;
1217: --
1294: l_app_rec arp_global.app_rec_type;
1295:
1296: BEGIN
1297: IF PG_DEBUG in ('Y', 'C') THEN
1298: arp_debug.debug( 'arp_process_application.reversal_update_ps_recs()+');
1299: END IF;
1300:
1301: --------------------------------------------------------------------------
1302: -- Process the payment schedule row of the applied Transaction...
1386: l_app_rec.freight_applied := p_ra_rec.freight_applied;
1387: l_app_rec.receivables_charges_applied :=
1388: p_ra_rec.receivables_charges_applied;
1389:
1390: arp_debug.debug('inv result dates (gl/act):' || l_gl_date_closed ||
1391: ' / ' || l_actual_date_closed);
1392:
1393: arp_debug.debug('cm proposed dates (gl/act):' || p_reversal_gl_date ||
1394: ' / ' || p_reversal_date);
1389:
1390: arp_debug.debug('inv result dates (gl/act):' || l_gl_date_closed ||
1391: ' / ' || l_actual_date_closed);
1392:
1393: arp_debug.debug('cm proposed dates (gl/act):' || p_reversal_gl_date ||
1394: ' / ' || p_reversal_date);
1395:
1396: /* 9313440 - get actual_date_closed and gl_date_closed
1397: for the CM based on its own PS row */
1400: p_reversal_date,
1401: l_gl_date_closed,
1402: l_actual_date_closed, 'CM' );
1403:
1404: arp_debug.debug('cm result dates (gl/act):' || l_gl_date_closed ||
1405: ' / ' || l_actual_date_closed);
1406:
1407: l_app_rec.gl_date_closed := l_gl_date_closed;
1408: l_app_rec.actual_date_closed := l_actual_date_closed;
1412: /* 9475986 - If reversing a receipt, consider same logic as CM
1413: and only fetch dates that are actually associated with this PMT */
1414: if p_app_rec_trx_type = 'AR_APP'
1415: then
1416: arp_debug.debug('inv result dates (gl/act):' || l_gl_date_closed ||
1417: ' / ' || l_actual_date_closed);
1418:
1419: arp_debug.debug('pmt proposed dates (gl/act):' || p_reversal_gl_date ||
1420: ' / ' || p_reversal_date);
1415: then
1416: arp_debug.debug('inv result dates (gl/act):' || l_gl_date_closed ||
1417: ' / ' || l_actual_date_closed);
1418:
1419: arp_debug.debug('pmt proposed dates (gl/act):' || p_reversal_gl_date ||
1420: ' / ' || p_reversal_date);
1421:
1422: arp_ps_util.get_closed_dates( l_app_rec.ps_id,
1423: p_reversal_gl_date,
1424: p_reversal_date,
1425: l_gl_date_closed,
1426: l_actual_date_closed, 'CASH' );
1427:
1428: arp_debug.debug('pmt result dates (gl/act):' || l_gl_date_closed ||
1429: ' / ' || l_actual_date_closed);
1430:
1431: l_app_rec.gl_date_closed := l_gl_date_closed;
1432: l_app_rec.actual_date_closed := l_actual_date_closed;
1437: --
1438: arp_ps_util.update_reverse_actions(l_app_rec, NULL, NULL);
1439:
1440: IF PG_DEBUG in ('Y', 'C') THEN
1441: arp_debug.debug( 'arp_process_application.reversal_update_ps_recs()-');
1442: END IF;
1443: EXCEPTION
1444: WHEN OTHERS THEN
1445: IF PG_DEBUG in ('Y', 'C') THEN
1442: END IF;
1443: EXCEPTION
1444: WHEN OTHERS THEN
1445: IF PG_DEBUG in ('Y', 'C') THEN
1446: arp_debug.debug(
1447: 'EXCEPTION: arp_process_application.reversal_update_ps_recs' );
1448: END IF;
1449: RAISE;
1450: END reversal_update_ps_recs;
1558: l_llca_exist varchar(1) := 'N';
1559:
1560: BEGIN
1561: IF PG_DEBUG in ('Y', 'C') THEN
1562: arp_debug.debug( 'arp_process_application.reversal_insert_oppos_ra_recs()+');
1563: END IF;
1564:
1565: -----------------------------------------------------------------
1566: -- Handle the Receipt reversal and Credit Memo reversal cases.
1664: l_llca_exist := 'N';
1665: end;
1666:
1667: IF PG_DEBUG in ('Y', 'C') THEN
1668: arp_debug.debug('Total rows selected under activity details: ' || SQL%ROWCOUNT);
1669: END IF;
1670:
1671: IF NVL(l_llca_exist,'N') = 'Y' THEN
1672:
1686: and source_table = 'RA'
1687: and nvl(CURRENT_ACTIVITY_FLAG,'Y') = 'R';
1688:
1689: IF PG_DEBUG in ('Y', 'C') THEN
1690: arp_debug.debug('Total rows updated under activity details: ' || SQL%ROWCOUNT);
1691: END IF;
1692: END IF;
1693:
1694: END IF;
1702: ARP_XLA_EVENTS.create_events(p_xla_ev_rec => l_xla_ev_rec);
1703: END IF;
1704:
1705: IF PG_DEBUG in ('Y', 'C') THEN
1706: arp_debug.debug( 'p_ra_rec.rec_app_id :'||p_ra_rec.receivable_application_id);
1707: arp_debug.debug( 'l_ra_id 1 :'||l_ra_id);
1708: END IF;
1709: --apandit
1710: --Bug : 2641517
1703: END IF;
1704:
1705: IF PG_DEBUG in ('Y', 'C') THEN
1706: arp_debug.debug( 'p_ra_rec.rec_app_id :'||p_ra_rec.receivable_application_id);
1707: arp_debug.debug( 'l_ra_id 1 :'||l_ra_id);
1708: END IF;
1709: --apandit
1710: --Bug : 2641517
1711: IF p_ra_rec.status in ('APP', 'ACTIVITY') THEN
1797:
1798: END IF;
1799:
1800: IF PG_DEBUG in ('Y', 'C') THEN
1801: arp_debug.debug( 'arp_process_application.reversal_insert_oppos_ra_recs()-');
1802: END IF;
1803: return;
1804:
1805: END IF;
1919: l_llca_exist_rev := 'N';
1920: end;
1921:
1922: IF PG_DEBUG in ('Y', 'C') THEN
1923: arp_debug.debug('Total rows selected under activity details: ' || SQL%ROWCOUNT);
1924: END IF;
1925:
1926: IF NVL(l_llca_exist_rev,'N') = 'Y' THEN
1927:
1940: and source_table = 'RA'
1941: and nvl(CURRENT_ACTIVITY_FLAG,'Y') = 'R';
1942:
1943: IF PG_DEBUG in ('Y', 'C') THEN
1944: arp_debug.debug('Total rows updated under activity details: ' || SQL%ROWCOUNT);
1945: END IF;
1946:
1947: END IF;
1948: END IF;
1958: END IF;
1959: END IF;
1960:
1961: IF PG_DEBUG in ('Y', 'C') THEN
1962: arp_debug.debug( 'p_ra_rec.rec_app_id :'||p_ra_rec.receivable_application_id);
1963: arp_debug.debug( 'l_ra_id 2 :'||l_ra_id);
1964: END IF;
1965:
1966: --apandit
1959: END IF;
1960:
1961: IF PG_DEBUG in ('Y', 'C') THEN
1962: arp_debug.debug( 'p_ra_rec.rec_app_id :'||p_ra_rec.receivable_application_id);
1963: arp_debug.debug( 'l_ra_id 2 :'||l_ra_id);
1964: END IF;
1965:
1966: --apandit
1967: --Bug : 2641517
2172: p_ra_rec.applied_customer_trx_id := NULL;
2173: p_ra_rec.applied_customer_trx_line_id := NULL;
2174:
2175: /* DEBUG */
2176: arp_debug.debug(' l_ra_id = ' || l_ra_id);
2177: l_ra_id := NULL;
2178:
2179: -- Call the table handler to insert the UNAPP row.
2180: arp_app_pkg.insert_p(
2193: END IF;
2194: END IF;
2195:
2196: IF PG_DEBUG in ('Y', 'C') THEN
2197: arp_debug.debug( 'p_ra_rec.rec_app_id :'||p_ra_rec.receivable_application_id);
2198: arp_debug.debug( 'l_ra_id 3 :'||l_ra_id);
2199: END IF;
2200:
2201: --
2194: END IF;
2195:
2196: IF PG_DEBUG in ('Y', 'C') THEN
2197: arp_debug.debug( 'p_ra_rec.rec_app_id :'||p_ra_rec.receivable_application_id);
2198: arp_debug.debug( 'l_ra_id 3 :'||l_ra_id);
2199: END IF;
2200:
2201: --
2202: --Release 11.5 VAT changes, create UNAPP paired record
2262: -- Update cash receipt status
2263: arp_cash_receipts_pkg.update_p(l_cr_rec, p_ra_rec.cash_receipt_id);
2264:
2265: IF PG_DEBUG in ('Y', 'C') THEN
2266: arp_debug.debug( 'arp_process_application.reversal_insert_oppos_ra_recs()-');
2267: END IF;
2268: EXCEPTION
2269: WHEN OTHERS THEN
2270: IF PG_DEBUG in ('Y', 'C') THEN
2267: END IF;
2268: EXCEPTION
2269: WHEN OTHERS THEN
2270: IF PG_DEBUG in ('Y', 'C') THEN
2271: arp_debug.debug(
2272: 'EXCEPTION: arp_process_application.reversal_insert_oppos_ra_recs');
2273: END IF;
2274: RAISE;
2275:
2305: PROCEDURE reversal_update_old_ra_rec( p_reversal_gl_date DATE,
2306: p_ra_rec IN OUT NOCOPY ar_receivable_applications%ROWTYPE ) IS
2307: BEGIN
2308: IF PG_DEBUG in ('Y', 'C') THEN
2309: arp_debug.debug( 'arp_process_application.reversal_update_old_ra_rec()+' );
2310: END IF;
2311: --
2312: p_ra_rec.display := 'N';
2313:
2319: --
2320: arp_app_pkg.update_p( p_ra_rec );
2321: --
2322: IF PG_DEBUG in ('Y', 'C') THEN
2323: arp_debug.debug( 'arp_process_application.reversal_update_old_ra_rec()-' );
2324: END IF;
2325: EXCEPTION
2326: WHEN OTHERS THEN
2327: IF PG_DEBUG in ('Y', 'C') THEN
2324: END IF;
2325: EXCEPTION
2326: WHEN OTHERS THEN
2327: IF PG_DEBUG in ('Y', 'C') THEN
2328: arp_debug.debug(
2329: 'EXCEPTION: arp_process_application.reversal_update_old_ra_rec' );
2330: END IF;
2331: RAISE;
2332: END reversal_update_old_ra_rec;
2401: BEGIN
2402: -- validate_args_appdel( p_ra_id );
2403: --
2404: IF PG_DEBUG in ('Y', 'C') THEN
2405: arp_debug.debug( 'arp_process_application.check_reversable()+' );
2406: END IF;
2407: --
2408: arp_app_pkg.fetch_p(p_ra_id, l_ra_rec );
2409:
2435: AND ps.payment_schedule_id(+) = ra.applied_payment_schedule_id
2436: AND ctt.cust_trx_type_id = ps.cust_trx_type_id;
2437: --
2438: IF PG_DEBUG in ('Y', 'C') THEN
2439: arp_debug.debug( 'arp_process_application.check_reversable()+' );
2440: END IF;
2441: EXCEPTION
2442: WHEN NO_DATA_FOUND THEN
2443: IF PG_DEBUG in ('Y', 'C') THEN
2440: END IF;
2441: EXCEPTION
2442: WHEN NO_DATA_FOUND THEN
2443: IF PG_DEBUG in ('Y', 'C') THEN
2444: arp_debug.debug( 'No data found in PS and RA table - check_reversable ' );
2445: END IF;
2446: RETURN FALSE;
2447: END;
2448: --
2480: IF ( arp_process_chargeback.validate_cb_reversal( l_ct_id,
2481: p_module_name,
2482: p_module_version) <> TRUE ) THEN
2483: IF PG_DEBUG in ('Y', 'C') THEN
2484: arp_debug.debug( 'validate_cb_reversal failed' );
2485: END IF;
2486: RETURN FALSE;
2487: END IF;
2488:
2507: RAISE;
2508: END;
2509:
2510: IF PG_DEBUG in ('Y', 'C') THEN
2511: arp_debug.debug( 'arp_process_application.check_reversable(-6)-' );
2512: END IF;
2513:
2514: IF l_dummy = 1 THEN
2515: RETURN FALSE;
2521: RETURN TRUE;
2522: END IF;
2523:
2524: IF PG_DEBUG in ('Y', 'C') THEN
2525: arp_debug.debug( 'l_ps_id and l_ass_cr_id ARE' );
2526: arp_debug.debug( to_char( l_ps_id ) );
2527: arp_debug.debug( to_char( l_ass_cr_id ) );
2528: END IF;
2529: --
2522: END IF;
2523:
2524: IF PG_DEBUG in ('Y', 'C') THEN
2525: arp_debug.debug( 'l_ps_id and l_ass_cr_id ARE' );
2526: arp_debug.debug( to_char( l_ps_id ) );
2527: arp_debug.debug( to_char( l_ass_cr_id ) );
2528: END IF;
2529: --
2530: -- If status = 'ACC', application is on account and no further
2523:
2524: IF PG_DEBUG in ('Y', 'C') THEN
2525: arp_debug.debug( 'l_ps_id and l_ass_cr_id ARE' );
2526: arp_debug.debug( to_char( l_ps_id ) );
2527: arp_debug.debug( to_char( l_ass_cr_id ) );
2528: END IF;
2529: --
2530: -- If status = 'ACC', application is on account and no further
2531: -- validation is necessary. Return Status as 'NO_ACTION' since there will
2531: -- validation is necessary. Return Status as 'NO_ACTION' since there will
2532: -- not be any actions associated with an on-account application.
2533: --
2534: IF PG_DEBUG in ('Y', 'C') THEN
2535: arp_debug.debug( 'l_status in app_delete IS' );
2536: arp_debug.debug( l_status );
2537: END IF;
2538: IF ( l_status in ('ACC','OTHER ACC')) THEN
2539: IF PG_DEBUG in ('Y', 'C') THEN
2532: -- not be any actions associated with an on-account application.
2533: --
2534: IF PG_DEBUG in ('Y', 'C') THEN
2535: arp_debug.debug( 'l_status in app_delete IS' );
2536: arp_debug.debug( l_status );
2537: END IF;
2538: IF ( l_status in ('ACC','OTHER ACC')) THEN
2539: IF PG_DEBUG in ('Y', 'C') THEN
2540: arp_debug.debug( 'No application action found - check_reversable ' );
2536: arp_debug.debug( l_status );
2537: END IF;
2538: IF ( l_status in ('ACC','OTHER ACC')) THEN
2539: IF PG_DEBUG in ('Y', 'C') THEN
2540: arp_debug.debug( 'No application action found - check_reversable ' );
2541: END IF;
2542: RETURN TRUE;
2543: END IF;
2544: --
2557: WHERE payment_schedule_id = l_ps_id
2558: AND associated_cash_receipt_id is null
2559: AND status = 'A';
2560: --
2561: -- arp_debug.debug( 'l_over_appln_flag in app_delete IS ' );
2562: -- arp_debug.debug( l_over_appln_flag );
2563: -- arp_debug.debug( ' l_adj_amount in app_delete IS' );
2564: -- arp_debug.debug( to_char( l_bal ) || ' ' );
2565: -- arp_debug.debug( to_char( l_adj_amount ) || ' ' );
2558: AND associated_cash_receipt_id is null
2559: AND status = 'A';
2560: --
2561: -- arp_debug.debug( 'l_over_appln_flag in app_delete IS ' );
2562: -- arp_debug.debug( l_over_appln_flag );
2563: -- arp_debug.debug( ' l_adj_amount in app_delete IS' );
2564: -- arp_debug.debug( to_char( l_bal ) || ' ' );
2565: -- arp_debug.debug( to_char( l_adj_amount ) || ' ' );
2566: -- arp_debug.debug( to_char( l_pmt ) || ' ');
2559: AND status = 'A';
2560: --
2561: -- arp_debug.debug( 'l_over_appln_flag in app_delete IS ' );
2562: -- arp_debug.debug( l_over_appln_flag );
2563: -- arp_debug.debug( ' l_adj_amount in app_delete IS' );
2564: -- arp_debug.debug( to_char( l_bal ) || ' ' );
2565: -- arp_debug.debug( to_char( l_adj_amount ) || ' ' );
2566: -- arp_debug.debug( to_char( l_pmt ) || ' ');
2567: -- arp_debug.debug( to_char( l_edisc ) || ' ');
2560: --
2561: -- arp_debug.debug( 'l_over_appln_flag in app_delete IS ' );
2562: -- arp_debug.debug( l_over_appln_flag );
2563: -- arp_debug.debug( ' l_adj_amount in app_delete IS' );
2564: -- arp_debug.debug( to_char( l_bal ) || ' ' );
2565: -- arp_debug.debug( to_char( l_adj_amount ) || ' ' );
2566: -- arp_debug.debug( to_char( l_pmt ) || ' ');
2567: -- arp_debug.debug( to_char( l_edisc ) || ' ');
2568: -- arp_debug.debug( to_char( l_udisc ) || ' ');
2561: -- arp_debug.debug( 'l_over_appln_flag in app_delete IS ' );
2562: -- arp_debug.debug( l_over_appln_flag );
2563: -- arp_debug.debug( ' l_adj_amount in app_delete IS' );
2564: -- arp_debug.debug( to_char( l_bal ) || ' ' );
2565: -- arp_debug.debug( to_char( l_adj_amount ) || ' ' );
2566: -- arp_debug.debug( to_char( l_pmt ) || ' ');
2567: -- arp_debug.debug( to_char( l_edisc ) || ' ');
2568: -- arp_debug.debug( to_char( l_udisc ) || ' ');
2569: -- arp_debug.debug( to_char( l_bal_org ) || ' ');
2562: -- arp_debug.debug( l_over_appln_flag );
2563: -- arp_debug.debug( ' l_adj_amount in app_delete IS' );
2564: -- arp_debug.debug( to_char( l_bal ) || ' ' );
2565: -- arp_debug.debug( to_char( l_adj_amount ) || ' ' );
2566: -- arp_debug.debug( to_char( l_pmt ) || ' ');
2567: -- arp_debug.debug( to_char( l_edisc ) || ' ');
2568: -- arp_debug.debug( to_char( l_udisc ) || ' ');
2569: -- arp_debug.debug( to_char( l_bal_org ) || ' ');
2570: --
2563: -- arp_debug.debug( ' l_adj_amount in app_delete IS' );
2564: -- arp_debug.debug( to_char( l_bal ) || ' ' );
2565: -- arp_debug.debug( to_char( l_adj_amount ) || ' ' );
2566: -- arp_debug.debug( to_char( l_pmt ) || ' ');
2567: -- arp_debug.debug( to_char( l_edisc ) || ' ');
2568: -- arp_debug.debug( to_char( l_udisc ) || ' ');
2569: -- arp_debug.debug( to_char( l_bal_org ) || ' ');
2570: --
2571: -- If overapplication is not allowed with the applications and
2564: -- arp_debug.debug( to_char( l_bal ) || ' ' );
2565: -- arp_debug.debug( to_char( l_adj_amount ) || ' ' );
2566: -- arp_debug.debug( to_char( l_pmt ) || ' ');
2567: -- arp_debug.debug( to_char( l_edisc ) || ' ');
2568: -- arp_debug.debug( to_char( l_udisc ) || ' ');
2569: -- arp_debug.debug( to_char( l_bal_org ) || ' ');
2570: --
2571: -- If overapplication is not allowed with the applications and
2572: -- if reversal would result in negative amount for the application
2565: -- arp_debug.debug( to_char( l_adj_amount ) || ' ' );
2566: -- arp_debug.debug( to_char( l_pmt ) || ' ');
2567: -- arp_debug.debug( to_char( l_edisc ) || ' ');
2568: -- arp_debug.debug( to_char( l_udisc ) || ' ');
2569: -- arp_debug.debug( to_char( l_bal_org ) || ' ');
2570: --
2571: -- If overapplication is not allowed with the applications and
2572: -- if reversal would result in negative amount for the application
2573: -- the return false
2586: IF ( l_over_appln_flag = 'N' AND
2587: (( l_bal - l_adj_amount + l_pmt + l_edisc + l_udisc ) <> 0) AND
2588: (sign( l_bal - l_adj_amount + l_pmt + l_edisc + l_udisc ) <> sign(l_bal_org+l_adj_amount_twb))) THEN
2589: IF PG_DEBUG in ('Y', 'C') THEN
2590: arp_debug.debug( 'Reversal Application amount will have sign opposite to original amount' );
2591: END IF;
2592:
2593: RETURN FALSE;
2594: END IF;
2604: AND b.customer_trx_id(+) = a.chargeback_customer_trx_id
2605: AND b.customer_trx_id is NULL;
2606: --
2607: IF PG_DEBUG in ('Y', 'C') THEN
2608: arp_debug.debug( 'lb_count IS ' );
2609: arp_debug.debug( to_char( l_cb_count ) );
2610: END IF;
2611: --
2612: -- Validate chargebacks
2605: AND b.customer_trx_id is NULL;
2606: --
2607: IF PG_DEBUG in ('Y', 'C') THEN
2608: arp_debug.debug( 'lb_count IS ' );
2609: arp_debug.debug( to_char( l_cb_count ) );
2610: END IF;
2611: --
2612: -- Validate chargebacks
2613: --
2636: AND chargeback_customer_trx_id iS NULL;
2637: --
2638: IF ( l_cb_count = 0 AND l_adj_amt = 0 AND l_pend_amt = 0 ) THEN
2639: IF PG_DEBUG in ('Y', 'C') THEN
2640: arp_debug.debug( 'No data found in ADJ table - check_reversable ' );
2641: END IF;
2642: RETURN TRUE;
2643: END IF;
2644: --
2643: END IF;
2644: --
2645: IF ( l_cb_count <> 0 ) THEN
2646: IF PG_DEBUG in ('Y', 'C') THEN
2647: arp_debug.debug( 'Inside l_cb_count <> 0' );
2648: END IF;
2649: IF ( arp_process_chargeback.validate_cb_reversal( l_ps_id,
2650: l_ass_cr_id, l_cb_count, p_module_name,
2651: p_module_version ) <> TRUE ) THEN
2649: IF ( arp_process_chargeback.validate_cb_reversal( l_ps_id,
2650: l_ass_cr_id, l_cb_count, p_module_name,
2651: p_module_version ) <> TRUE ) THEN
2652: IF PG_DEBUG in ('Y', 'C') THEN
2653: arp_debug.debug( 'validate_cb_reversal failed' );
2654: END IF;
2655: RETURN FALSE;
2656: END IF;
2657: END IF;
2655: RETURN FALSE;
2656: END IF;
2657: END IF;
2658: IF PG_DEBUG in ('Y', 'C') THEN
2659: arp_debug.debug( 'after validate_cb_reversal in app_delete' );
2660: END IF;
2661: --
2662: /**** FOR l_adj_rec IN ar_adjustments_C( l_ps_id, l_ass_cr_id )
2663: LOOP
2661: --
2662: /**** FOR l_adj_rec IN ar_adjustments_C( l_ps_id, l_ass_cr_id )
2663: LOOP
2664: IF PG_DEBUG in ('Y', 'C') THEN
2665: arp_debug.debug( 'inside for ar_adjustments_C in app_delete' );
2666: END IF;
2667: IF ( validate_cb_reversal(
2668: l_adj_rec.chargeback_customer_trx_id, l_cb_count
2669: p_module_name, p_module_version ) <> TRUE ) THEN
2668: l_adj_rec.chargeback_customer_trx_id, l_cb_count
2669: p_module_name, p_module_version ) <> TRUE ) THEN
2670: RETURN FALSE;
2671: IF PG_DEBUG in ('Y', 'C') THEN
2672: arp_debug.debug( 'after validate_cb_reversal in app_delete' );
2673: END IF;
2674: END IF;
2675: END LOOP; ****/
2676: --
2686: AND adj.chargeback_customer_trx_id = ps.customer_trx_id(+)
2687: FOR UPDATE OF ps.last_updated_by,adj.last_updated_by NOWAIT; */
2688: --
2689: IF PG_DEBUG in ('Y', 'C') THEN
2690: arp_debug.debug( 'arp_process_application.check_reversable()-' );
2691: END IF;
2692: RETURN TRUE;
2693: --
2694: EXCEPTION
2693: --
2694: EXCEPTION
2695: WHEN OTHERS THEN
2696: IF PG_DEBUG in ('Y', 'C') THEN
2697: arp_debug.debug(
2698: 'EXCEPTION: arp_process_application.check_reversable - OTHER' );
2699: END IF;
2700: RAISE;
2701: END check_reversable;
2725: PROCEDURE validate_args_appdel(
2726: p_ra_id IN ar_receivable_applications.receivable_application_id%TYPE ) IS
2727: BEGIN
2728: IF PG_DEBUG in ('Y', 'C') THEN
2729: arp_debug.debug( 'arp_process_application.validate_args_appdel()+' );
2730: END IF;
2731: --
2732: IF ( p_ra_id is NULL ) THEN
2733: FND_MESSAGE.set_name ('AR', 'AR_ARGUEMENTS_FAIL' );
2734: APP_EXCEPTION.raise_exception;
2735: END IF;
2736: --
2737: IF PG_DEBUG in ('Y', 'C') THEN
2738: arp_debug.debug( 'arp_process_application.validate_args_appdel()-' );
2739: END IF;
2740: EXCEPTION
2741: WHEN OTHERS THEN
2742: IF PG_DEBUG in ('Y', 'C') THEN
2739: END IF;
2740: EXCEPTION
2741: WHEN OTHERS THEN
2742: IF PG_DEBUG in ('Y', 'C') THEN
2743: arp_debug.debug(
2744: 'EXCEPTION: arp_process_application.validate_args_appdel' );
2745: END IF;
2746: RAISE;
2747: END validate_args_appdel;
2834: AND associated_application_id is null
2835: AND chargeback_customer_trx_id is null;
2836: BEGIN
2837: IF PG_DEBUG in ('Y', 'C') THEN
2838: arp_debug.debug( 'arp_process_application.reverse_action()+' );
2839: END IF;
2840: --
2841: IF PG_DEBUG in ('Y', 'C') THEN
2842: arp_debug.debug( to_char( p_ra_id ) );
2838: arp_debug.debug( 'arp_process_application.reverse_action()+' );
2839: END IF;
2840: --
2841: IF PG_DEBUG in ('Y', 'C') THEN
2842: arp_debug.debug( to_char( p_ra_id ) );
2843: arp_debug.debug( to_char( p_cr_id ) );
2844: arp_debug.debug( to_char( p_ps_id ) );
2845: END IF;
2846: --
2839: END IF;
2840: --
2841: IF PG_DEBUG in ('Y', 'C') THEN
2842: arp_debug.debug( to_char( p_ra_id ) );
2843: arp_debug.debug( to_char( p_cr_id ) );
2844: arp_debug.debug( to_char( p_ps_id ) );
2845: END IF;
2846: --
2847: IF PG_DEBUG in ('Y', 'C') THEN
2840: --
2841: IF PG_DEBUG in ('Y', 'C') THEN
2842: arp_debug.debug( to_char( p_ra_id ) );
2843: arp_debug.debug( to_char( p_cr_id ) );
2844: arp_debug.debug( to_char( p_ps_id ) );
2845: END IF;
2846: --
2847: IF PG_DEBUG in ('Y', 'C') THEN
2848: arp_debug.debug( 'inside BEGIN reverse_action in app_delete' );
2844: arp_debug.debug( to_char( p_ps_id ) );
2845: END IF;
2846: --
2847: IF PG_DEBUG in ('Y', 'C') THEN
2848: arp_debug.debug( 'inside BEGIN reverse_action in app_delete' );
2849: END IF;
2850: /** IF ( p_module_name IS NOT NULL AND p_module_version IS NOT NULL ) THEN
2851: validate_reverse_action_args( p_ra_id, p_cr_id, p_ps_id,
2852: p_reversal_gl_date, p_reversal_date,
2863: WHERE receivable_application_id = p_ra_id;
2864: EXCEPTION
2865: WHEN NO_DATA_FOUND THEN
2866: IF PG_DEBUG in ('Y', 'C') THEN
2867: arp_debug.debug( 'Select from ar_adjustments failed' );
2868: END IF;
2869: RETURN;
2870: END;
2871: ELSE
2876: -- Get the sum of approved and pending adjustments on the payment schedule
2877: -- This sum includes chargebacks amounts, too.
2878: --
2879: IF PG_DEBUG in ('Y', 'C') THEN
2880: arp_debug.debug( 'before SELECT NVL reverse_action in app_delete' );
2881: END IF;
2882: SELECT NVL( SUM( DECODE( status,
2883: 'A', amount,
2884: 0
2951: WHERE payment_schedule_id = l_ps_id
2952: AND associated_cash_receipt_id = l_ass_cr_id;
2953: --
2954: IF PG_DEBUG in ('Y', 'C') THEN
2955: arp_debug.debug( 'before for reverse_action in app_delete' );
2956: arp_debug.debug( to_char( l_ps_id ) );
2957: arp_debug.debug( to_char( l_ass_cr_id ) );
2958: END IF;
2959: FOR l_adj_rec IN ar_adjustments_C( l_ps_id, l_ass_cr_id )
2952: AND associated_cash_receipt_id = l_ass_cr_id;
2953: --
2954: IF PG_DEBUG in ('Y', 'C') THEN
2955: arp_debug.debug( 'before for reverse_action in app_delete' );
2956: arp_debug.debug( to_char( l_ps_id ) );
2957: arp_debug.debug( to_char( l_ass_cr_id ) );
2958: END IF;
2959: FOR l_adj_rec IN ar_adjustments_C( l_ps_id, l_ass_cr_id )
2960: LOOP
2953: --
2954: IF PG_DEBUG in ('Y', 'C') THEN
2955: arp_debug.debug( 'before for reverse_action in app_delete' );
2956: arp_debug.debug( to_char( l_ps_id ) );
2957: arp_debug.debug( to_char( l_ass_cr_id ) );
2958: END IF;
2959: FOR l_adj_rec IN ar_adjustments_C( l_ps_id, l_ass_cr_id )
2960: LOOP
2961: l_count := l_count + 1;
2959: FOR l_adj_rec IN ar_adjustments_C( l_ps_id, l_ass_cr_id )
2960: LOOP
2961: l_count := l_count + 1;
2962: IF PG_DEBUG in ('Y', 'C') THEN
2963: arp_debug.debug( 'inside for ar_adjustments_C in app_delete' );
2964: END IF;
2965: --
2966: -- reverse chargeback
2967: --
2969: l_adj_rec.chargeback_customer_trx_id,
2970: p_reversal_gl_date, p_reversal_date,
2971: p_module_name, p_module_version );
2972: IF PG_DEBUG in ('Y', 'C') THEN
2973: arp_debug.debug( 'after reverse_chargeback in app_delete' );
2974: END IF;
2975: --
2976: arp_process_adjustment.reverse_adjustment( l_adj_rec.adjustment_id,
2977: p_reversal_gl_date, p_reversal_date,
2976: arp_process_adjustment.reverse_adjustment( l_adj_rec.adjustment_id,
2977: p_reversal_gl_date, p_reversal_date,
2978: p_module_name, p_module_version );
2979: IF PG_DEBUG in ('Y', 'C') THEN
2980: arp_debug.debug(
2981: 'after ar_adjustment.reverse_adjustment in app_delete' );
2982: END IF;
2983: --
2984: UPDATE ra_customer_trx
2984: UPDATE ra_customer_trx
2985: SET status_trx = 'CL'
2986: WHERE customer_trx_id = l_adj_rec.chargeback_customer_trx_id;
2987: IF PG_DEBUG in ('Y', 'C') THEN
2988: arp_debug.debug( 'after UPDATE in app_delete ' );
2989: END IF;
2990: END LOOP;
2991: --
2992: IF PG_DEBUG in ('Y', 'C') THEN
2989: END IF;
2990: END LOOP;
2991: --
2992: IF PG_DEBUG in ('Y', 'C') THEN
2993: arp_debug.debug( 'before if ar_adjustments_C%ROWCOUNT in app_delete ' );
2994: END IF;
2995: IF ( l_count = 0 AND l_adj_amount = 0 AND
2996: l_app_rec.amount_adjusted_pending = 0 ) THEN
2997: IF PG_DEBUG in ('Y', 'C') THEN
2994: END IF;
2995: IF ( l_count = 0 AND l_adj_amount = 0 AND
2996: l_app_rec.amount_adjusted_pending = 0 ) THEN
2997: IF PG_DEBUG in ('Y', 'C') THEN
2998: arp_debug.debug(
2999: 'AR-ARMDAPP:Theres no actions associated with the appln');
3000: END IF;
3001: RETURN;
3002: END IF;
3004: -- Reverse adjustments , call armradj,
3005: -- select only adjustments that have not been rejected
3006: --
3007: IF PG_DEBUG in ('Y', 'C') THEN
3008: arp_debug.debug( 'before for ar_adjustments_radj_C in app_delete' );
3009: END IF;
3010: FOR l_adj_rec IN ar_adjustments_radj_C( l_ps_id, l_ass_cr_id )
3011: LOOP
3012: IF PG_DEBUG in ('Y', 'C') THEN
3009: END IF;
3010: FOR l_adj_rec IN ar_adjustments_radj_C( l_ps_id, l_ass_cr_id )
3011: LOOP
3012: IF PG_DEBUG in ('Y', 'C') THEN
3013: arp_debug.debug( 'inside for ar_adjustments_radj_C in app_delete' );
3014: END IF;
3015: arp_process_adjustment.reverse_adjustment( l_adj_rec.adjustment_id,
3016: p_reversal_gl_date,
3017: p_reversal_date,
3017: p_reversal_date,
3018: p_module_name,
3019: p_module_version );
3020: IF PG_DEBUG in ('Y', 'C') THEN
3021: arp_debug.debug(
3022: 'after AR_ADJUSTMENT.reverse_adjustmen in app_delete' );
3023: END IF;
3024: END LOOP;
3025: --
3025: --
3026: -- Call armups to update the payment schedule with approved adj
3027: --
3028: IF PG_DEBUG in ('Y', 'C') THEN
3029: arp_debug.debug(
3030: 'before SELECT NVL( amount_adjusted_pending in app_delete' );
3031: END IF;
3032: SELECT NVL( amount_adjusted_pending, 0 ) -
3033: NVL( l_app_rec.amount_adjusted_pending, 0)
3035: FROM ar_payment_schedules
3036: WHERE payment_schedule_id = l_ps_id;
3037: --
3038: IF PG_DEBUG in ('Y', 'C') THEN
3039: arp_debug.debug( 'before get_closed_dates in app_delete' );
3040: END IF;
3041: --
3042: -- Get closed dates to update payment schedule table
3043: --
3050: l_app_rec.trx_type := 'AR_ADJ';
3051: l_app_rec.user_id := FND_GLOBAL.user_id;
3052: --
3053: IF PG_DEBUG in ('Y', 'C') THEN
3054: arp_debug.debug( 'before update_reverse_actions in app_delete' );
3055: END IF;
3056: arp_ps_util.update_reverse_actions( l_app_rec, NULL, NULL );
3057: --
3058: IF PG_DEBUG in ('Y', 'C') THEN
3055: END IF;
3056: arp_ps_util.update_reverse_actions( l_app_rec, NULL, NULL );
3057: --
3058: IF PG_DEBUG in ('Y', 'C') THEN
3059: arp_debug.debug( 'arp_process_application.reverse_action()-' );
3060: END IF;
3061: EXCEPTION
3062: WHEN OTHERS THEN
3063: IF PG_DEBUG in ('Y', 'C') THEN
3060: END IF;
3061: EXCEPTION
3062: WHEN OTHERS THEN
3063: IF PG_DEBUG in ('Y', 'C') THEN
3064: arp_debug.debug(
3065: 'EXCEPTION: arp_process_application.reverse_action' );
3066: END IF;
3067: RAISE;
3068: END reverse_action;
3102: p_reversal_gl_date IN DATE, p_reversal_date IN DATE,
3103: p_select_flag IN BOOLEAN ) IS
3104: BEGIN
3105: IF PG_DEBUG in ('Y', 'C') THEN
3106: arp_debug.debug(
3107: 'arp_process_application.validate_reverse_action_args()+' );
3108: END IF;
3109: --
3110: IF ( p_ra_id IS NULL OR p_reversal_gl_date IS NULL OR
3120: END IF;
3121: END IF;
3122: --
3123: IF PG_DEBUG in ('Y', 'C') THEN
3124: arp_debug.debug( 'arp_process_application.validate_reverse_action_args()-' );
3125: END IF;
3126: EXCEPTION
3127: WHEN OTHERS THEN
3128: IF PG_DEBUG in ('Y', 'C') THEN
3125: END IF;
3126: EXCEPTION
3127: WHEN OTHERS THEN
3128: IF PG_DEBUG in ('Y', 'C') THEN
3129: arp_debug.debug(
3130: 'EXCEPTION: arp_process_application.validate_reverse_action_args' );
3131: END IF;
3132: RAISE;
3133: END validate_reverse_action_args;
3432: l_org_id NUMBER := -99;
3433:
3434: BEGIN
3435: IF PG_DEBUG in ('Y', 'C') THEN
3436: arp_debug.debug( 'arp_process_application.receipt_application()+' );
3437: END IF;
3438:
3439: /* Bug 3773036: Initializing return status ..*/
3440: x_return_status := FND_API.G_RET_STS_SUCCESS;
3455: END IF;
3456:
3457: -- Output IN parameters
3458: IF PG_DEBUG in ('Y', 'C') THEN
3459: arp_debug.debug( 'Receipt PS Id : '||TO_CHAR( p_receipt_ps_id ) );
3460: arp_debug.debug( 'Invoice PS Id : '||TO_CHAR( p_invoice_ps_id ) );
3461: arp_debug.debug( 'Amount Applied : '||TO_CHAR( p_amount_applied ) );
3462: arp_debug.debug( 'Amount Applied From : '||TO_CHAR( p_amount_applied_from ) );
3463: arp_debug.debug( 'Trans to Receipt Rate : '||TO_CHAR( p_trans_to_receipt_rate ) );
3456:
3457: -- Output IN parameters
3458: IF PG_DEBUG in ('Y', 'C') THEN
3459: arp_debug.debug( 'Receipt PS Id : '||TO_CHAR( p_receipt_ps_id ) );
3460: arp_debug.debug( 'Invoice PS Id : '||TO_CHAR( p_invoice_ps_id ) );
3461: arp_debug.debug( 'Amount Applied : '||TO_CHAR( p_amount_applied ) );
3462: arp_debug.debug( 'Amount Applied From : '||TO_CHAR( p_amount_applied_from ) );
3463: arp_debug.debug( 'Trans to Receipt Rate : '||TO_CHAR( p_trans_to_receipt_rate ) );
3464: arp_debug.debug( 'Invoice Currency Code : '||p_invoice_currency_code );
3457: -- Output IN parameters
3458: IF PG_DEBUG in ('Y', 'C') THEN
3459: arp_debug.debug( 'Receipt PS Id : '||TO_CHAR( p_receipt_ps_id ) );
3460: arp_debug.debug( 'Invoice PS Id : '||TO_CHAR( p_invoice_ps_id ) );
3461: arp_debug.debug( 'Amount Applied : '||TO_CHAR( p_amount_applied ) );
3462: arp_debug.debug( 'Amount Applied From : '||TO_CHAR( p_amount_applied_from ) );
3463: arp_debug.debug( 'Trans to Receipt Rate : '||TO_CHAR( p_trans_to_receipt_rate ) );
3464: arp_debug.debug( 'Invoice Currency Code : '||p_invoice_currency_code );
3465: arp_debug.debug( 'Receipt Currency Code : '||p_receipt_currency_code );
3458: IF PG_DEBUG in ('Y', 'C') THEN
3459: arp_debug.debug( 'Receipt PS Id : '||TO_CHAR( p_receipt_ps_id ) );
3460: arp_debug.debug( 'Invoice PS Id : '||TO_CHAR( p_invoice_ps_id ) );
3461: arp_debug.debug( 'Amount Applied : '||TO_CHAR( p_amount_applied ) );
3462: arp_debug.debug( 'Amount Applied From : '||TO_CHAR( p_amount_applied_from ) );
3463: arp_debug.debug( 'Trans to Receipt Rate : '||TO_CHAR( p_trans_to_receipt_rate ) );
3464: arp_debug.debug( 'Invoice Currency Code : '||p_invoice_currency_code );
3465: arp_debug.debug( 'Receipt Currency Code : '||p_receipt_currency_code );
3466: arp_debug.debug( 'Earned Discount : '||TO_CHAR( p_earned_discount_taken ) );
3459: arp_debug.debug( 'Receipt PS Id : '||TO_CHAR( p_receipt_ps_id ) );
3460: arp_debug.debug( 'Invoice PS Id : '||TO_CHAR( p_invoice_ps_id ) );
3461: arp_debug.debug( 'Amount Applied : '||TO_CHAR( p_amount_applied ) );
3462: arp_debug.debug( 'Amount Applied From : '||TO_CHAR( p_amount_applied_from ) );
3463: arp_debug.debug( 'Trans to Receipt Rate : '||TO_CHAR( p_trans_to_receipt_rate ) );
3464: arp_debug.debug( 'Invoice Currency Code : '||p_invoice_currency_code );
3465: arp_debug.debug( 'Receipt Currency Code : '||p_receipt_currency_code );
3466: arp_debug.debug( 'Earned Discount : '||TO_CHAR( p_earned_discount_taken ) );
3467: arp_debug.debug( 'Unearned Discount : '||TO_CHAR( p_unearned_discount_taken ) );
3460: arp_debug.debug( 'Invoice PS Id : '||TO_CHAR( p_invoice_ps_id ) );
3461: arp_debug.debug( 'Amount Applied : '||TO_CHAR( p_amount_applied ) );
3462: arp_debug.debug( 'Amount Applied From : '||TO_CHAR( p_amount_applied_from ) );
3463: arp_debug.debug( 'Trans to Receipt Rate : '||TO_CHAR( p_trans_to_receipt_rate ) );
3464: arp_debug.debug( 'Invoice Currency Code : '||p_invoice_currency_code );
3465: arp_debug.debug( 'Receipt Currency Code : '||p_receipt_currency_code );
3466: arp_debug.debug( 'Earned Discount : '||TO_CHAR( p_earned_discount_taken ) );
3467: arp_debug.debug( 'Unearned Discount : '||TO_CHAR( p_unearned_discount_taken ) );
3468: arp_debug.debug( 'GL Date : '||TO_CHAR( p_gl_date ) );
3461: arp_debug.debug( 'Amount Applied : '||TO_CHAR( p_amount_applied ) );
3462: arp_debug.debug( 'Amount Applied From : '||TO_CHAR( p_amount_applied_from ) );
3463: arp_debug.debug( 'Trans to Receipt Rate : '||TO_CHAR( p_trans_to_receipt_rate ) );
3464: arp_debug.debug( 'Invoice Currency Code : '||p_invoice_currency_code );
3465: arp_debug.debug( 'Receipt Currency Code : '||p_receipt_currency_code );
3466: arp_debug.debug( 'Earned Discount : '||TO_CHAR( p_earned_discount_taken ) );
3467: arp_debug.debug( 'Unearned Discount : '||TO_CHAR( p_unearned_discount_taken ) );
3468: arp_debug.debug( 'GL Date : '||TO_CHAR( p_gl_date ) );
3469: arp_debug.debug( 'Apply Date : '||TO_CHAR( p_apply_date ) );
3462: arp_debug.debug( 'Amount Applied From : '||TO_CHAR( p_amount_applied_from ) );
3463: arp_debug.debug( 'Trans to Receipt Rate : '||TO_CHAR( p_trans_to_receipt_rate ) );
3464: arp_debug.debug( 'Invoice Currency Code : '||p_invoice_currency_code );
3465: arp_debug.debug( 'Receipt Currency Code : '||p_receipt_currency_code );
3466: arp_debug.debug( 'Earned Discount : '||TO_CHAR( p_earned_discount_taken ) );
3467: arp_debug.debug( 'Unearned Discount : '||TO_CHAR( p_unearned_discount_taken ) );
3468: arp_debug.debug( 'GL Date : '||TO_CHAR( p_gl_date ) );
3469: arp_debug.debug( 'Apply Date : '||TO_CHAR( p_apply_date ) );
3470: arp_debug.debug( 'Customer Trx Line Id : '||TO_CHAR( p_customer_trx_line_id ) );
3463: arp_debug.debug( 'Trans to Receipt Rate : '||TO_CHAR( p_trans_to_receipt_rate ) );
3464: arp_debug.debug( 'Invoice Currency Code : '||p_invoice_currency_code );
3465: arp_debug.debug( 'Receipt Currency Code : '||p_receipt_currency_code );
3466: arp_debug.debug( 'Earned Discount : '||TO_CHAR( p_earned_discount_taken ) );
3467: arp_debug.debug( 'Unearned Discount : '||TO_CHAR( p_unearned_discount_taken ) );
3468: arp_debug.debug( 'GL Date : '||TO_CHAR( p_gl_date ) );
3469: arp_debug.debug( 'Apply Date : '||TO_CHAR( p_apply_date ) );
3470: arp_debug.debug( 'Customer Trx Line Id : '||TO_CHAR( p_customer_trx_line_id ) );
3471: END IF;
3464: arp_debug.debug( 'Invoice Currency Code : '||p_invoice_currency_code );
3465: arp_debug.debug( 'Receipt Currency Code : '||p_receipt_currency_code );
3466: arp_debug.debug( 'Earned Discount : '||TO_CHAR( p_earned_discount_taken ) );
3467: arp_debug.debug( 'Unearned Discount : '||TO_CHAR( p_unearned_discount_taken ) );
3468: arp_debug.debug( 'GL Date : '||TO_CHAR( p_gl_date ) );
3469: arp_debug.debug( 'Apply Date : '||TO_CHAR( p_apply_date ) );
3470: arp_debug.debug( 'Customer Trx Line Id : '||TO_CHAR( p_customer_trx_line_id ) );
3471: END IF;
3472:
3465: arp_debug.debug( 'Receipt Currency Code : '||p_receipt_currency_code );
3466: arp_debug.debug( 'Earned Discount : '||TO_CHAR( p_earned_discount_taken ) );
3467: arp_debug.debug( 'Unearned Discount : '||TO_CHAR( p_unearned_discount_taken ) );
3468: arp_debug.debug( 'GL Date : '||TO_CHAR( p_gl_date ) );
3469: arp_debug.debug( 'Apply Date : '||TO_CHAR( p_apply_date ) );
3470: arp_debug.debug( 'Customer Trx Line Id : '||TO_CHAR( p_customer_trx_line_id ) );
3471: END IF;
3472:
3473: -----------------------------------------------------
3466: arp_debug.debug( 'Earned Discount : '||TO_CHAR( p_earned_discount_taken ) );
3467: arp_debug.debug( 'Unearned Discount : '||TO_CHAR( p_unearned_discount_taken ) );
3468: arp_debug.debug( 'GL Date : '||TO_CHAR( p_gl_date ) );
3469: arp_debug.debug( 'Apply Date : '||TO_CHAR( p_apply_date ) );
3470: arp_debug.debug( 'Customer Trx Line Id : '||TO_CHAR( p_customer_trx_line_id ) );
3471: END IF;
3472:
3473: -----------------------------------------------------
3474: -- KML 10/17/1996
3663: FROM ar_payment_schedules
3664: WHERE payment_schedule_id = p_invoice_ps_id;
3665: END IF;
3666:
3667: arp_debug.debug('trx_id = ' || l_inv_ra_rec.applied_customer_trx_id);
3668:
3669: -----------------------------------------------------
3670: -- Bug 1814806
3671: -- Prevent the application of a receipt against a claim number
3732: */
3733:
3734: IF PG_DEBUG in ('Y', 'C')
3735: THEN
3736: arp_debug.debug('---maturity date---');
3737: arp_debug.debug('receipt_date = ' || l_receipt_date);
3738: arp_debug.debug('maturity_date = ' || l_maturity_date);
3739: arp_debug.debug('inv due_date = ' || l_due_date);
3740: arp_debug.debug('date rule = ' || l_maturity_date_rule);
3733:
3734: IF PG_DEBUG in ('Y', 'C')
3735: THEN
3736: arp_debug.debug('---maturity date---');
3737: arp_debug.debug('receipt_date = ' || l_receipt_date);
3738: arp_debug.debug('maturity_date = ' || l_maturity_date);
3739: arp_debug.debug('inv due_date = ' || l_due_date);
3740: arp_debug.debug('date rule = ' || l_maturity_date_rule);
3741: arp_debug.debug('amount_applied= ' || l_amount_applied);
3734: IF PG_DEBUG in ('Y', 'C')
3735: THEN
3736: arp_debug.debug('---maturity date---');
3737: arp_debug.debug('receipt_date = ' || l_receipt_date);
3738: arp_debug.debug('maturity_date = ' || l_maturity_date);
3739: arp_debug.debug('inv due_date = ' || l_due_date);
3740: arp_debug.debug('date rule = ' || l_maturity_date_rule);
3741: arp_debug.debug('amount_applied= ' || l_amount_applied);
3742: END IF;
3735: THEN
3736: arp_debug.debug('---maturity date---');
3737: arp_debug.debug('receipt_date = ' || l_receipt_date);
3738: arp_debug.debug('maturity_date = ' || l_maturity_date);
3739: arp_debug.debug('inv due_date = ' || l_due_date);
3740: arp_debug.debug('date rule = ' || l_maturity_date_rule);
3741: arp_debug.debug('amount_applied= ' || l_amount_applied);
3742: END IF;
3743:
3736: arp_debug.debug('---maturity date---');
3737: arp_debug.debug('receipt_date = ' || l_receipt_date);
3738: arp_debug.debug('maturity_date = ' || l_maturity_date);
3739: arp_debug.debug('inv due_date = ' || l_due_date);
3740: arp_debug.debug('date rule = ' || l_maturity_date_rule);
3741: arp_debug.debug('amount_applied= ' || l_amount_applied);
3742: END IF;
3743:
3744: IF nvl(l_amount_applied, 0) <> 0
3737: arp_debug.debug('receipt_date = ' || l_receipt_date);
3738: arp_debug.debug('maturity_date = ' || l_maturity_date);
3739: arp_debug.debug('inv due_date = ' || l_due_date);
3740: arp_debug.debug('date rule = ' || l_maturity_date_rule);
3741: arp_debug.debug('amount_applied= ' || l_amount_applied);
3742: END IF;
3743:
3744: IF nvl(l_amount_applied, 0) <> 0
3745: THEN
3776: END IF;
3777:
3778: IF PG_DEBUG in ('Y', 'C')
3779: THEN
3780: arp_debug.debug('new maturity_date = ' || l_maturity_date);
3781: END IF;
3782:
3783: /* end 8620127 */
3784:
3929: l_from_llca_call := from_llca_call;
3930: --{HYULLCA
3931: -- Not LLCA current process
3932: IF l_from_llca_call = 'N' THEN
3933: arp_debug.debug(' LLCA application commit by pass maintenance of the invoice ps done by LLCA back ground');
3934:
3935: -- 5569488, for receipt where confirmation is required, pass the cash_receipt_id
3936: IF NULL_VAR.cash_receipt_id IS NULL AND NVL(p_called_from,'NONE') = 'AUTORECAPI' THEN
3937: NULL_VAR.cash_receipt_id := l_rec_ra_rec.cash_receipt_id ;
3970: p_acctd_amount_applied_to := l_inv_ra_rec.acctd_amount_applied_to;
3971:
3972: ELSE -- LLCA = 'Y'
3973:
3974: arp_debug.debug(' LLCA application commit');
3975:
3976: arp_process_det_pkg.get_app_ra_amounts
3977: (p_gt_id => l_gt_id,
3978: x_ra_rec => l_inv_ra_rec);
3976: arp_process_det_pkg.get_app_ra_amounts
3977: (p_gt_id => l_gt_id,
3978: x_ra_rec => l_inv_ra_rec);
3979:
3980: arp_debug.debug(' Ra_id in GT from LLCA l_inv_ra_rec.receivable_application_id :'||l_inv_ra_rec.receivable_application_id);
3981:
3982: p_acctd_amount_applied_to := l_inv_ra_rec.acctd_amount_applied_to; /* 5189370 */
3983:
3984: END IF;
4213: /* 5677984 - copy l_ra_app_id into l_inv_ra_rec to preserve it for
4214: later processing */
4215: l_inv_ra_rec.receivable_application_id := l_ra_app_id;
4216:
4217: arp_debug.debug('Calling arp_app_pkg.insert_p and created l_inv_ra_rec.receivable_application_id :'||
4218: l_inv_ra_rec.receivable_application_id);
4219:
4220: --apandit
4221: --Bug : 2641517 raise Apply business event.
4251: THEN
4252: /* overriding flag */
4253: l_from_llca_call := 'Y';
4254: IF PG_DEBUG in ('Y', 'C') THEN
4255: arp_debug.debug('from_llca_call was N (not line level), overriding to Y');
4256: arp_debug.debug(' l_gt_id = ' || l_gt_id);
4257: END IF;
4258:
4259: /* 4607809 - distribute recoverable entries before acct_main call */
4252: /* overriding flag */
4253: l_from_llca_call := 'Y';
4254: IF PG_DEBUG in ('Y', 'C') THEN
4255: arp_debug.debug('from_llca_call was N (not line level), overriding to Y');
4256: arp_debug.debug(' l_gt_id = ' || l_gt_id);
4257: END IF;
4258:
4259: /* 4607809 - distribute recoverable entries before acct_main call */
4260: arp_etax_util.distribute_recoverable(
4318: */ /* End FP Bug 5594328 SPDIXIT */
4319:
4320: END IF;
4321:
4322: arp_debug.debug('l_rec_ra_rec.receivable_application_id:'||l_rec_ra_rec.receivable_application_id);
4323: arp_debug.debug('l_inv_ra_rec.receivable_application_id:'||l_inv_ra_rec.receivable_application_id);
4324: ----Autoreceipis performance changes nproddut
4325: IF nvl(p_called_from,'NONE') NOT IN ('AUTORECAPI','AUTORECAPI2','CUSTRECAPIBULK') THEN
4326: IF l_rec_ra_rec.receivable_application_id IS NOT NULL THEN
4319:
4320: END IF;
4321:
4322: arp_debug.debug('l_rec_ra_rec.receivable_application_id:'||l_rec_ra_rec.receivable_application_id);
4323: arp_debug.debug('l_inv_ra_rec.receivable_application_id:'||l_inv_ra_rec.receivable_application_id);
4324: ----Autoreceipis performance changes nproddut
4325: IF nvl(p_called_from,'NONE') NOT IN ('AUTORECAPI','AUTORECAPI2','CUSTRECAPIBULK') THEN
4326: IF l_rec_ra_rec.receivable_application_id IS NOT NULL THEN
4327: l_xla_ev_rec.xla_from_doc_id := l_rec_ra_rec.receivable_application_id;
4431: -- call revenue management engine's receipt analyzer for revenue related
4432: -- impact of this application.
4433:
4434: IF PG_DEBUG in ('Y', 'C') THEN
4435: arp_debug.debug( 'calling receipt_analyzer in application mode');
4436: END IF;
4437:
4438: ar_revenue_management_pvt.receipt_analyzer (
4439: p_mode => ar_revenue_management_pvt.c_receipt_application_mode,
4447: p_line_applied => l_inv_ra_rec.line_applied,
4448: p_gl_date => p_gl_date);
4449:
4450: IF PG_DEBUG in ('Y', 'C') THEN
4451: arp_debug.debug( 'returned from receipt_analyzer');
4452: END IF;
4453:
4454: -- RAM-C changes end
4455:
4453:
4454: -- RAM-C changes end
4455:
4456: IF PG_DEBUG in ('Y', 'C') THEN
4457: arp_debug.debug( 'arp_process_application.receipt_application()-' );
4458: END IF;
4459:
4460: EXCEPTION
4461: /* Bug 3773036 - Trade management errors treated separately to
4461: /* Bug 3773036 - Trade management errors treated separately to
4462: ensure calling program displays TM error */
4463: WHEN trade_mgt_err THEN
4464: IF PG_DEBUG in ('Y', 'C') THEN
4465: arp_debug.debug('Error occured in Trade Management: ' ||
4466: 'EXCEPTION: arp_process_application.receipt_application' );
4467: END IF;
4468: WHEN OTHERS THEN
4469: IF PG_DEBUG in ('Y', 'C') THEN
4466: 'EXCEPTION: arp_process_application.receipt_application' );
4467: END IF;
4468: WHEN OTHERS THEN
4469: IF PG_DEBUG in ('Y', 'C') THEN
4470: arp_debug.debug(
4471: 'EXCEPTION: arp_process_application.receipt_application' );
4472: END IF;
4473: RAISE;
4474: END receipt_application;
4523: p_apply_date IN ar_receivable_applications.apply_date%TYPE,
4524: p_gl_date IN ar_receivable_applications.gl_date%TYPE ) IS
4525: BEGIN
4526: IF PG_DEBUG in ('Y', 'C') THEN
4527: arp_debug.debug( 'arp_process_application.validate_receipt_appln_args()+' );
4528: END IF;
4529:
4530: -- Check for mandatory parameters.
4531: IF ( p_receipt_ps_id IS NULL OR
4558: END IF;
4559:
4560:
4561: IF PG_DEBUG in ('Y', 'C') THEN
4562: arp_debug.debug( 'arp_process_application.validate_receipt_appln_args()-' );
4563: END IF;
4564:
4565: EXCEPTION
4566: WHEN OTHERS THEN
4564:
4565: EXCEPTION
4566: WHEN OTHERS THEN
4567: IF PG_DEBUG in ('Y', 'C') THEN
4568: arp_debug.debug( 'EXCEPTION: arp_process_application.validate_receipt_appln_args' );
4569: END IF;
4570: RAISE;
4571: END validate_receipt_appln_args;
4572: --
4713: l_new_acctd_amt_due_rem Number;
4714:
4715: BEGIN
4716: IF PG_DEBUG in ('Y', 'C') THEN
4717: arp_debug.debug( 'arp_process_application.cm_application()+' );
4718: END IF;
4719:
4720: -- Output IN parameters
4721: IF PG_DEBUG in ('Y', 'C') THEN
4718: END IF;
4719:
4720: -- Output IN parameters
4721: IF PG_DEBUG in ('Y', 'C') THEN
4722: arp_debug.debug( 'CM PS Id. : '||TO_CHAR( p_cm_ps_id ) );
4723: arp_debug.debug( 'Invoice PS Id. : '||TO_CHAR( p_invoice_ps_id ) );
4724: arp_debug.debug( 'Amount Applied : '||TO_CHAR( p_amount_applied ) );
4725: arp_debug.debug( 'Gl Date : '||TO_CHAR( p_gl_date ) );
4726: arp_debug.debug( 'Apply Date : '||TO_CHAR( p_apply_date ) );
4719:
4720: -- Output IN parameters
4721: IF PG_DEBUG in ('Y', 'C') THEN
4722: arp_debug.debug( 'CM PS Id. : '||TO_CHAR( p_cm_ps_id ) );
4723: arp_debug.debug( 'Invoice PS Id. : '||TO_CHAR( p_invoice_ps_id ) );
4724: arp_debug.debug( 'Amount Applied : '||TO_CHAR( p_amount_applied ) );
4725: arp_debug.debug( 'Gl Date : '||TO_CHAR( p_gl_date ) );
4726: arp_debug.debug( 'Apply Date : '||TO_CHAR( p_apply_date ) );
4727: arp_debug.debug( 'Customer_trx_line_id : '||TO_CHAR(p_customer_trx_line_id));
4720: -- Output IN parameters
4721: IF PG_DEBUG in ('Y', 'C') THEN
4722: arp_debug.debug( 'CM PS Id. : '||TO_CHAR( p_cm_ps_id ) );
4723: arp_debug.debug( 'Invoice PS Id. : '||TO_CHAR( p_invoice_ps_id ) );
4724: arp_debug.debug( 'Amount Applied : '||TO_CHAR( p_amount_applied ) );
4725: arp_debug.debug( 'Gl Date : '||TO_CHAR( p_gl_date ) );
4726: arp_debug.debug( 'Apply Date : '||TO_CHAR( p_apply_date ) );
4727: arp_debug.debug( 'Customer_trx_line_id : '||TO_CHAR(p_customer_trx_line_id));
4728: END IF;
4721: IF PG_DEBUG in ('Y', 'C') THEN
4722: arp_debug.debug( 'CM PS Id. : '||TO_CHAR( p_cm_ps_id ) );
4723: arp_debug.debug( 'Invoice PS Id. : '||TO_CHAR( p_invoice_ps_id ) );
4724: arp_debug.debug( 'Amount Applied : '||TO_CHAR( p_amount_applied ) );
4725: arp_debug.debug( 'Gl Date : '||TO_CHAR( p_gl_date ) );
4726: arp_debug.debug( 'Apply Date : '||TO_CHAR( p_apply_date ) );
4727: arp_debug.debug( 'Customer_trx_line_id : '||TO_CHAR(p_customer_trx_line_id));
4728: END IF;
4729:
4722: arp_debug.debug( 'CM PS Id. : '||TO_CHAR( p_cm_ps_id ) );
4723: arp_debug.debug( 'Invoice PS Id. : '||TO_CHAR( p_invoice_ps_id ) );
4724: arp_debug.debug( 'Amount Applied : '||TO_CHAR( p_amount_applied ) );
4725: arp_debug.debug( 'Gl Date : '||TO_CHAR( p_gl_date ) );
4726: arp_debug.debug( 'Apply Date : '||TO_CHAR( p_apply_date ) );
4727: arp_debug.debug( 'Customer_trx_line_id : '||TO_CHAR(p_customer_trx_line_id));
4728: END IF;
4729:
4730: -----------------------------------------------------
4723: arp_debug.debug( 'Invoice PS Id. : '||TO_CHAR( p_invoice_ps_id ) );
4724: arp_debug.debug( 'Amount Applied : '||TO_CHAR( p_amount_applied ) );
4725: arp_debug.debug( 'Gl Date : '||TO_CHAR( p_gl_date ) );
4726: arp_debug.debug( 'Apply Date : '||TO_CHAR( p_apply_date ) );
4727: arp_debug.debug( 'Customer_trx_line_id : '||TO_CHAR(p_customer_trx_line_id));
4728: END IF;
4729:
4730: -----------------------------------------------------
4731: -- KML 10/17/1996
5045: -- Return the new receivable_application_id
5046: p_out_rec_application_id := l_inv_ra_rec.receivable_application_id;
5047:
5048: IF PG_DEBUG in ('Y', 'C') THEN
5049: arp_debug.debug( 'arp_process_application.cm_application()-' );
5050: END IF;
5051:
5052: EXCEPTION
5053: WHEN OTHERS THEN
5051:
5052: EXCEPTION
5053: WHEN OTHERS THEN
5054: IF PG_DEBUG in ('Y', 'C') THEN
5055: arp_debug.debug(
5056: 'EXCEPTION: arp_process_application.cm_application' );
5057: END IF;
5058: RAISE;
5059: END cm_application;
5092: p_apply_date IN ar_receivable_applications.apply_date%TYPE,
5093: p_gl_date IN ar_receivable_applications.gl_date%TYPE ) IS
5094: BEGIN
5095: IF PG_DEBUG in ('Y', 'C') THEN
5096: arp_debug.debug(
5097: 'arp_process_application.validate_cm_appln_args()+' );
5098: END IF;
5099: --
5100: IF ( p_cm_ps_id IS NULL OR p_invoice_ps_id IS NULL OR
5104: APP_EXCEPTION.raise_exception;
5105: END IF;
5106: --
5107: IF PG_DEBUG in ('Y', 'C') THEN
5108: arp_debug.debug(
5109: 'arp_process_application.validate_cm_appln_args()-' );
5110: END IF;
5111: EXCEPTION
5112: WHEN OTHERS THEN
5110: END IF;
5111: EXCEPTION
5112: WHEN OTHERS THEN
5113: IF PG_DEBUG in ('Y', 'C') THEN
5114: arp_debug.debug(
5115: 'EXCEPTION: arp_process_application.validate_cm_appln_args' );
5116: END IF;
5117: RAISE;
5118: END validate_cm_appln_args;
5262: l_xla_doc_table VARCHAR2(20);
5263:
5264: BEGIN
5265: IF PG_DEBUG in ('Y', 'C') THEN
5266: arp_debug.debug( 'arp_process_application.on_account_receipts()+' );
5267: arp_debug.debug( '-- p_receipt_ps_id = '||TO_CHAR(p_receipt_ps_id));
5268: arp_debug.debug( '-- p_amount_applied = '||
5269: TO_CHAR( p_amount_applied ) );
5270: arp_debug.debug( '-- p_gl_date = '|| TO_CHAR( p_gl_date ) );
5263:
5264: BEGIN
5265: IF PG_DEBUG in ('Y', 'C') THEN
5266: arp_debug.debug( 'arp_process_application.on_account_receipts()+' );
5267: arp_debug.debug( '-- p_receipt_ps_id = '||TO_CHAR(p_receipt_ps_id));
5268: arp_debug.debug( '-- p_amount_applied = '||
5269: TO_CHAR( p_amount_applied ) );
5270: arp_debug.debug( '-- p_gl_date = '|| TO_CHAR( p_gl_date ) );
5271: arp_debug.debug( '-- p_apply_date = '|| TO_CHAR( p_apply_date ) );
5264: BEGIN
5265: IF PG_DEBUG in ('Y', 'C') THEN
5266: arp_debug.debug( 'arp_process_application.on_account_receipts()+' );
5267: arp_debug.debug( '-- p_receipt_ps_id = '||TO_CHAR(p_receipt_ps_id));
5268: arp_debug.debug( '-- p_amount_applied = '||
5269: TO_CHAR( p_amount_applied ) );
5270: arp_debug.debug( '-- p_gl_date = '|| TO_CHAR( p_gl_date ) );
5271: arp_debug.debug( '-- p_apply_date = '|| TO_CHAR( p_apply_date ) );
5272: END IF;
5266: arp_debug.debug( 'arp_process_application.on_account_receipts()+' );
5267: arp_debug.debug( '-- p_receipt_ps_id = '||TO_CHAR(p_receipt_ps_id));
5268: arp_debug.debug( '-- p_amount_applied = '||
5269: TO_CHAR( p_amount_applied ) );
5270: arp_debug.debug( '-- p_gl_date = '|| TO_CHAR( p_gl_date ) );
5271: arp_debug.debug( '-- p_apply_date = '|| TO_CHAR( p_apply_date ) );
5272: END IF;
5273: --
5274: IF ( p_module_name IS NOT NULL AND p_module_version IS NOT NULL ) THEN
5267: arp_debug.debug( '-- p_receipt_ps_id = '||TO_CHAR(p_receipt_ps_id));
5268: arp_debug.debug( '-- p_amount_applied = '||
5269: TO_CHAR( p_amount_applied ) );
5270: arp_debug.debug( '-- p_gl_date = '|| TO_CHAR( p_gl_date ) );
5271: arp_debug.debug( '-- p_apply_date = '|| TO_CHAR( p_apply_date ) );
5272: END IF;
5273: --
5274: IF ( p_module_name IS NOT NULL AND p_module_version IS NOT NULL ) THEN
5275: validate_on_account_args( p_receipt_ps_id, p_amount_applied,
5336: functional_curr,
5337: l_ps_rec.exchange_rate,
5338: NULL, NULL );
5339: IF PG_DEBUG in ('Y', 'C') THEN
5340: arp_debug.debug( 'acctd_amount_applied_from = '||
5341: TO_CHAR( l_ra_rec.acctd_amount_applied_from ) );
5342: END IF;
5343: --
5344: l_ra_rec.status := 'UNAPP';
5510: -- Cash receipt must be fully applied in order to set the status
5511: -- to 'Applied'.
5512: -- ---------------------------------------------------------------------
5513: IF PG_DEBUG in ('Y', 'C') THEN
5514: arp_debug.debug ( '-- Defining receipt status ...');
5515: arp_debug.debug ( '-- p_amount_applied = '||to_char(p_amount_applied));
5516: arp_debug.debug ( '-- l_amount_due_remaining = '||
5517: to_char(l_amount_due_remaining));
5518: END IF;
5511: -- to 'Applied'.
5512: -- ---------------------------------------------------------------------
5513: IF PG_DEBUG in ('Y', 'C') THEN
5514: arp_debug.debug ( '-- Defining receipt status ...');
5515: arp_debug.debug ( '-- p_amount_applied = '||to_char(p_amount_applied));
5516: arp_debug.debug ( '-- l_amount_due_remaining = '||
5517: to_char(l_amount_due_remaining));
5518: END IF;
5519:
5512: -- ---------------------------------------------------------------------
5513: IF PG_DEBUG in ('Y', 'C') THEN
5514: arp_debug.debug ( '-- Defining receipt status ...');
5515: arp_debug.debug ( '-- p_amount_applied = '||to_char(p_amount_applied));
5516: arp_debug.debug ( '-- l_amount_due_remaining = '||
5517: to_char(l_amount_due_remaining));
5518: END IF;
5519:
5520: -- Determine if the receipt has been fully applied.
5529: l_cr_rec.status := 'APP';
5530: END IF;
5531:
5532: IF PG_DEBUG in ('Y', 'C') THEN
5533: arp_debug.debug ( '-- status = '|| l_cr_rec.status);
5534: END IF;
5535:
5536: l_cr_rec.cash_receipt_id := l_ra_rec.cash_receipt_id;
5537:
5553: -- ---------------------------------------------------------------------
5554: p_out_rec_application_id := l_ra_rec.receivable_application_id;
5555:
5556: IF PG_DEBUG in ('Y', 'C') THEN
5557: arp_debug.debug(
5558: 'arp_process_application.on_account_receipts()-' );
5559: END IF;
5560: EXCEPTION
5561: WHEN OTHERS THEN
5559: END IF;
5560: EXCEPTION
5561: WHEN OTHERS THEN
5562: IF PG_DEBUG in ('Y', 'C') THEN
5563: arp_debug.debug(
5564: 'EXCEPTION: arp_process_application.on_account_receipts' );
5565: END IF;
5566: RAISE;
5567:
5599: p_apply_date IN ar_receivable_applications.apply_date%TYPE,
5600: p_gl_date IN ar_receivable_applications.gl_date%TYPE ) IS
5601: BEGIN
5602: IF PG_DEBUG in ('Y', 'C') THEN
5603: arp_debug.debug(
5604: 'arp_process_application.validate_on_account_args()+' );
5605: END IF;
5606: --
5607: IF ( p_ps_id IS NULL OR p_apply_date IS NULL OR
5610: APP_EXCEPTION.raise_exception;
5611: END IF;
5612: --
5613: IF PG_DEBUG in ('Y', 'C') THEN
5614: arp_debug.debug(
5615: 'arp_process_application.validate_on_account_args()-' );
5616: END IF;
5617: EXCEPTION
5618: WHEN OTHERS THEN
5616: END IF;
5617: EXCEPTION
5618: WHEN OTHERS THEN
5619: IF PG_DEBUG in ('Y', 'C') THEN
5620: arp_debug.debug(
5621: 'EXCEPTION: arp_process_application.validate_on_account_args' );
5622: END IF;
5623: RAISE;
5624: END validate_on_account_args;
5889: l_pymnt_trxn_ext_id_temp ar_cash_receipts.payment_trxn_extension_id%TYPE;
5890:
5891: BEGIN
5892: IF PG_DEBUG in ('Y', 'C') THEN
5893: arp_debug.debug( 'arp_process_application.activity_application()+' );
5894: arp_debug.debug( '-- p_receipt_ps_id = '||TO_CHAR(p_receipt_ps_id));
5895: arp_debug.debug( '-- p_application_ps_id = '||TO_CHAR(p_application_ps_id));
5896: arp_debug.debug( '-- p_link_to_customer_trx_id = '||
5897: TO_CHAR(p_link_to_customer_trx_id));
5890:
5891: BEGIN
5892: IF PG_DEBUG in ('Y', 'C') THEN
5893: arp_debug.debug( 'arp_process_application.activity_application()+' );
5894: arp_debug.debug( '-- p_receipt_ps_id = '||TO_CHAR(p_receipt_ps_id));
5895: arp_debug.debug( '-- p_application_ps_id = '||TO_CHAR(p_application_ps_id));
5896: arp_debug.debug( '-- p_link_to_customer_trx_id = '||
5897: TO_CHAR(p_link_to_customer_trx_id));
5898: arp_debug.debug( '-- p_amount_applied = '||TO_CHAR( p_amount_applied ) );
5891: BEGIN
5892: IF PG_DEBUG in ('Y', 'C') THEN
5893: arp_debug.debug( 'arp_process_application.activity_application()+' );
5894: arp_debug.debug( '-- p_receipt_ps_id = '||TO_CHAR(p_receipt_ps_id));
5895: arp_debug.debug( '-- p_application_ps_id = '||TO_CHAR(p_application_ps_id));
5896: arp_debug.debug( '-- p_link_to_customer_trx_id = '||
5897: TO_CHAR(p_link_to_customer_trx_id));
5898: arp_debug.debug( '-- p_amount_applied = '||TO_CHAR( p_amount_applied ) );
5899: arp_debug.debug( '-- p_gl_date = '|| TO_CHAR( p_gl_date ) );
5892: IF PG_DEBUG in ('Y', 'C') THEN
5893: arp_debug.debug( 'arp_process_application.activity_application()+' );
5894: arp_debug.debug( '-- p_receipt_ps_id = '||TO_CHAR(p_receipt_ps_id));
5895: arp_debug.debug( '-- p_application_ps_id = '||TO_CHAR(p_application_ps_id));
5896: arp_debug.debug( '-- p_link_to_customer_trx_id = '||
5897: TO_CHAR(p_link_to_customer_trx_id));
5898: arp_debug.debug( '-- p_amount_applied = '||TO_CHAR( p_amount_applied ) );
5899: arp_debug.debug( '-- p_gl_date = '|| TO_CHAR( p_gl_date ) );
5900: arp_debug.debug( '-- p_receivables_trx_id = '||
5894: arp_debug.debug( '-- p_receipt_ps_id = '||TO_CHAR(p_receipt_ps_id));
5895: arp_debug.debug( '-- p_application_ps_id = '||TO_CHAR(p_application_ps_id));
5896: arp_debug.debug( '-- p_link_to_customer_trx_id = '||
5897: TO_CHAR(p_link_to_customer_trx_id));
5898: arp_debug.debug( '-- p_amount_applied = '||TO_CHAR( p_amount_applied ) );
5899: arp_debug.debug( '-- p_gl_date = '|| TO_CHAR( p_gl_date ) );
5900: arp_debug.debug( '-- p_receivables_trx_id = '||
5901: TO_CHAR( p_receivables_trx_id ) );
5902: arp_debug.debug( '-- p_apply_date = '|| TO_CHAR( p_apply_date ) );
5895: arp_debug.debug( '-- p_application_ps_id = '||TO_CHAR(p_application_ps_id));
5896: arp_debug.debug( '-- p_link_to_customer_trx_id = '||
5897: TO_CHAR(p_link_to_customer_trx_id));
5898: arp_debug.debug( '-- p_amount_applied = '||TO_CHAR( p_amount_applied ) );
5899: arp_debug.debug( '-- p_gl_date = '|| TO_CHAR( p_gl_date ) );
5900: arp_debug.debug( '-- p_receivables_trx_id = '||
5901: TO_CHAR( p_receivables_trx_id ) );
5902: arp_debug.debug( '-- p_apply_date = '|| TO_CHAR( p_apply_date ) );
5903: END IF;
5896: arp_debug.debug( '-- p_link_to_customer_trx_id = '||
5897: TO_CHAR(p_link_to_customer_trx_id));
5898: arp_debug.debug( '-- p_amount_applied = '||TO_CHAR( p_amount_applied ) );
5899: arp_debug.debug( '-- p_gl_date = '|| TO_CHAR( p_gl_date ) );
5900: arp_debug.debug( '-- p_receivables_trx_id = '||
5901: TO_CHAR( p_receivables_trx_id ) );
5902: arp_debug.debug( '-- p_apply_date = '|| TO_CHAR( p_apply_date ) );
5903: END IF;
5904:
5898: arp_debug.debug( '-- p_amount_applied = '||TO_CHAR( p_amount_applied ) );
5899: arp_debug.debug( '-- p_gl_date = '|| TO_CHAR( p_gl_date ) );
5900: arp_debug.debug( '-- p_receivables_trx_id = '||
5901: TO_CHAR( p_receivables_trx_id ) );
5902: arp_debug.debug( '-- p_apply_date = '|| TO_CHAR( p_apply_date ) );
5903: END IF;
5904:
5905: /* Validate parameters */
5906:
5966:
5967: IF NVL(l_crcpt_rec.exchange_rate_type, 'x') = 'User' THEN
5968: l_ex_rate := l_crcpt_rec.exchange_rate;
5969: END IF;
5970: arp_debug.debug ( 'cr_rec_id ' || l_ps_rec.cash_receipt_id );
5971: arp_debug.debug ( 'rec_num '|| l_crcpt_rec.receipt_number );
5972: arp_debug.debug ( 'payment_trxn_extension_id '|| l_crcpt_rec.payment_trxn_extension_id );
5973:
5974: /* Start Bug 7317841 */
5967: IF NVL(l_crcpt_rec.exchange_rate_type, 'x') = 'User' THEN
5968: l_ex_rate := l_crcpt_rec.exchange_rate;
5969: END IF;
5970: arp_debug.debug ( 'cr_rec_id ' || l_ps_rec.cash_receipt_id );
5971: arp_debug.debug ( 'rec_num '|| l_crcpt_rec.receipt_number );
5972: arp_debug.debug ( 'payment_trxn_extension_id '|| l_crcpt_rec.payment_trxn_extension_id );
5973:
5974: /* Start Bug 7317841 */
5975: IF(Nvl(l_called_from,'x') <> 'CC_CHARGEBACK') THEN -- Bug 13850391
5968: l_ex_rate := l_crcpt_rec.exchange_rate;
5969: END IF;
5970: arp_debug.debug ( 'cr_rec_id ' || l_ps_rec.cash_receipt_id );
5971: arp_debug.debug ( 'rec_num '|| l_crcpt_rec.receipt_number );
5972: arp_debug.debug ( 'payment_trxn_extension_id '|| l_crcpt_rec.payment_trxn_extension_id );
5973:
5974: /* Start Bug 7317841 */
5975: IF(Nvl(l_called_from,'x') <> 'CC_CHARGEBACK') THEN -- Bug 13850391
5976: BEGIN
5985: AND application_ref_type = 'MISC_RECEIPT'
5986: AND applied_payment_schedule_id <> '-9'); -- Added for Bug 13591288
5987:
5988: l_crcpt_rec.payment_trxn_extension_id := l_pymnt_trxn_ext_id_temp;
5989: arp_debug.debug ( 'Latest payment_trxn_extension_id '|| l_crcpt_rec.payment_trxn_extension_id );
5990: EXCEPTION
5991: WHEN NO_DATA_FOUND THEN
5992: arp_debug.debug ( 'Handled Exception for getting max pymnt_trxn_id - First Refund Case' );
5993:
5988: l_crcpt_rec.payment_trxn_extension_id := l_pymnt_trxn_ext_id_temp;
5989: arp_debug.debug ( 'Latest payment_trxn_extension_id '|| l_crcpt_rec.payment_trxn_extension_id );
5990: EXCEPTION
5991: WHEN NO_DATA_FOUND THEN
5992: arp_debug.debug ( 'Handled Exception for getting max pymnt_trxn_id - First Refund Case' );
5993:
5994: WHEN OTHERS THEN
5995: arp_debug.debug( 'API EXCEPTION: Getting Max Pymnt_trxn_ext_id ' || SQLERRM);
5996: RAISE;
5991: WHEN NO_DATA_FOUND THEN
5992: arp_debug.debug ( 'Handled Exception for getting max pymnt_trxn_id - First Refund Case' );
5993:
5994: WHEN OTHERS THEN
5995: arp_debug.debug( 'API EXCEPTION: Getting Max Pymnt_trxn_ext_id ' || SQLERRM);
5996: RAISE;
5997: END;
5998: END IF;
5999: /* End Bug 7317841 */
6033: /*------------------------------------------------+
6034: | Write API output to the concurrent program log |
6035: +------------------------------------------------*/
6036: IF PG_DEBUG in ('Y', 'C') THEN
6037: arp_debug.debug( 'API error count '||to_char(NVL(l_msg_count,0)));
6038: END IF;
6039:
6040: IF NVL(l_msg_count,0) > 0 Then
6041:
6045: | There is one message returned by the API, so it|
6046: | has been sent out NOCOPY in the parameter x_msg_data |
6047: +------------------------------------------------*/
6048: IF PG_DEBUG in ('Y', 'C') THEN
6049: arp_debug.debug( l_msg_data);
6050: END IF;
6051:
6052: ELSIF l_msg_count > 1 Then
6053:
6060:
6061: l_msg_data := FND_MSG_PUB.Get(FND_MSG_PUB.G_NEXT,
6062: FND_API.G_FALSE);
6063: IF PG_DEBUG in ('Y', 'C') THEN
6064: arp_debug.debug( to_char(l_count)||' : '||l_msg_data);
6065: END IF;
6066:
6067: END LOOP;
6068:
6094: +----------------------------------*/
6095: EXCEPTION
6096: WHEN API_exception THEN
6097: IF PG_DEBUG in ('Y', 'C') THEN
6098: arp_debug.debug( 'API EXCEPTION: ' ||
6099: 'arp_process_application.activity_application(misc_receipt creation))'
6100: ||SQLERRM);
6101: END IF;
6102: FND_MSG_PUB.Get (FND_MSG_PUB.G_FIRST, FND_API.G_TRUE,
6105: app_exception.raise_exception;
6106:
6107: WHEN OTHERS THEN
6108: IF PG_DEBUG in ('Y', 'C') THEN
6109: arp_debug.debug( 'API EXCEPTION: ' ||
6110: 'arp_process_application.activity_application(misc_receipt creation))'
6111: ||SQLERRM);
6112: END IF;
6113: RAISE;
6232: , min_acc_unit => NULL );
6233: END IF;
6234:
6235: IF PG_DEBUG in ('Y', 'C') THEN
6236: arp_debug.debug( 'acctd_amount_applied_from = '||TO_CHAR( l_ra_rec.acctd_amount_applied_from ) );
6237: arp_debug.debug( 'acctd_amount_applied_to = '||TO_CHAR( l_ra_rec.acctd_amount_applied_to ) );
6238: END IF;
6239:
6240: /* Fill in the UNAPP application information */
6233: END IF;
6234:
6235: IF PG_DEBUG in ('Y', 'C') THEN
6236: arp_debug.debug( 'acctd_amount_applied_from = '||TO_CHAR( l_ra_rec.acctd_amount_applied_from ) );
6237: arp_debug.debug( 'acctd_amount_applied_to = '||TO_CHAR( l_ra_rec.acctd_amount_applied_to ) );
6238: END IF;
6239:
6240: /* Fill in the UNAPP application information */
6241:
6389: l_xla_ev_rec.xla_doc_table := 'APP';
6390: ARP_XLA_EVENTS.create_events(p_xla_ev_rec => l_xla_ev_rec);
6391: END IF;
6392:
6393: arp_debug.debug('netted cash receipt id = ' || to_char(p_netted_cash_receipt_id));
6394: IF (p_receivables_trx_id = -16) THEN
6395: l_mc_application_ref_id := p_netted_cash_receipt_id;
6396: ELSE
6397: l_mc_application_ref_id := l_application_ref_id;
6476: * Cash receipt must be fully applied in order to set the status
6477: * to 'Applied'.
6478: * --------------------------------------------------------------------- */
6479: IF PG_DEBUG in ('Y', 'C') THEN
6480: arp_debug.debug ( '-- Defining receipt status ...');
6481: arp_debug.debug ( '-- p_amount_applied = '||to_char(p_amount_applied));
6482: arp_debug.debug ( '-- activity_rec.amount_due_remaining = '||to_char(activity_rec.amount_due_remaining));
6483: END IF;
6484:
6477: * to 'Applied'.
6478: * --------------------------------------------------------------------- */
6479: IF PG_DEBUG in ('Y', 'C') THEN
6480: arp_debug.debug ( '-- Defining receipt status ...');
6481: arp_debug.debug ( '-- p_amount_applied = '||to_char(p_amount_applied));
6482: arp_debug.debug ( '-- activity_rec.amount_due_remaining = '||to_char(activity_rec.amount_due_remaining));
6483: END IF;
6484:
6485:
6478: * --------------------------------------------------------------------- */
6479: IF PG_DEBUG in ('Y', 'C') THEN
6480: arp_debug.debug ( '-- Defining receipt status ...');
6481: arp_debug.debug ( '-- p_amount_applied = '||to_char(p_amount_applied));
6482: arp_debug.debug ( '-- activity_rec.amount_due_remaining = '||to_char(activity_rec.amount_due_remaining));
6483: END IF;
6484:
6485:
6486: /* Determine if the receipt has been fully applied.
6501: l_cr_rec.status := 'APP';
6502: END IF;
6503:
6504: IF PG_DEBUG in ('Y', 'C') THEN
6505: arp_debug.debug ( '-- status = '|| l_cr_rec.status);
6506: END IF;
6507:
6508: l_cr_rec.cash_receipt_id := l_ra_rec.cash_receipt_id;
6509:
6532: p_application_ref_num := l_application_ref_num;
6533: p_secondary_application_ref_id := l_secondary_application_ref_id;
6534:
6535: IF PG_DEBUG in ('Y', 'C') THEN
6536: arp_debug.debug( 'arp_process_application.activity_application()-' );
6537: END IF;
6538: EXCEPTION
6539: WHEN OTHERS THEN
6540: IF PG_DEBUG in ('Y', 'C') THEN
6537: END IF;
6538: EXCEPTION
6539: WHEN OTHERS THEN
6540: IF PG_DEBUG in ('Y', 'C') THEN
6541: arp_debug.debug( 'EXCEPTION: arp_process_application.activity_application' );
6542: END IF;
6543: RAISE;
6544:
6545: END activity_application;
6583: p_receivables_trx_id IN ar_receivable_applications.receivables_trx_id%TYPE) IS
6584:
6585: BEGIN
6586: IF PG_DEBUG in ('Y', 'C') THEN
6587: arp_debug.debug( 'arp_process_application.validate_activity_args()+' );
6588: END IF;
6589:
6590: /* All the arguments must be defined */
6591:
6603: APP_EXCEPTION.raise_exception;
6604: END IF;
6605:
6606: IF PG_DEBUG in ('Y', 'C') THEN
6607: arp_debug.debug( 'arp_process_application.validate_activity_args()-' );
6608: END IF;
6609: EXCEPTION
6610: WHEN OTHERS THEN
6611: IF PG_DEBUG in ('Y', 'C') THEN
6608: END IF;
6609: EXCEPTION
6610: WHEN OTHERS THEN
6611: IF PG_DEBUG in ('Y', 'C') THEN
6612: arp_debug.debug( 'EXCEPTION: arp_process_application.validate_activity_args' );
6613: END IF;
6614: RAISE;
6615: END validate_activity_args;
6616:
6707: l_postable_trh_id ar_transaction_history.transaction_history_id%TYPE;
6708:
6709: BEGIN
6710: IF PG_DEBUG in ('Y', 'C') THEN
6711: arp_debug.debug( 'arp_process_application.fetch_app_ccid()+' );
6712: END IF;
6713:
6714: /* Fetch transaction class to branch out NOCOPY the depending whether
6715: * we are dealing with Bills Receivable or not */
6785:
6786: END IF;
6787:
6788: IF PG_DEBUG in ('Y', 'C') THEN
6789: arp_debug.debug( 'arp_process_application.fetch_app_ccid()-' );
6790: END IF;
6791: EXCEPTION
6792: WHEN OTHERS THEN
6793: IF PG_DEBUG in ('Y', 'C') THEN
6790: END IF;
6791: EXCEPTION
6792: WHEN OTHERS THEN
6793: IF PG_DEBUG in ('Y', 'C') THEN
6794: arp_debug.debug( SQLERRM(SQLCODE));
6795: arp_debug.debug( 'EXCEPTION: arp_process_application.fetch_app_ccid' );
6796: END IF;
6797: RAISE;
6798: END fetch_app_ccid;
6791: EXCEPTION
6792: WHEN OTHERS THEN
6793: IF PG_DEBUG in ('Y', 'C') THEN
6794: arp_debug.debug( SQLERRM(SQLCODE));
6795: arp_debug.debug( 'EXCEPTION: arp_process_application.fetch_app_ccid' );
6796: END IF;
6797: RAISE;
6798: END fetch_app_ccid;
6799:
6825: p_activity_type IN ar_receivables_trx.type%TYPE) IS
6826:
6827: BEGIN
6828: IF PG_DEBUG in ('Y', 'C') THEN
6829: arp_debug.debug( 'arp_process_application.validate_activity()+' );
6830: END IF;
6831:
6832: /* Activity and seeded ps must match. */
6833: --SNAMBIAR Added a new validation for applied PS id -3
6842:
6843: END IF;
6844:
6845: IF PG_DEBUG in ('Y', 'C') THEN
6846: arp_debug.debug( 'arp_process_application.validate_activity()-' );
6847: END IF;
6848: EXCEPTION
6849: WHEN OTHERS THEN
6850: IF PG_DEBUG in ('Y', 'C') THEN
6847: END IF;
6848: EXCEPTION
6849: WHEN OTHERS THEN
6850: IF PG_DEBUG in ('Y', 'C') THEN
6851: arp_debug.debug( 'EXCEPTION: arp_process_application.validate_activity' );
6852: END IF;
6853: RAISE;
6854: END validate_activity;
6855:
6895: current_BR_rec current_BR_cur%ROWTYPE;
6896:
6897: BEGIN
6898: IF PG_DEBUG in ('Y', 'C') THEN
6899: arp_debug.debug( 'arp_process_application.unapp_postable()+' );
6900: END IF;
6901:
6902: IF p_applied_customer_trx_id IS NULL OR p_applied_ps_id IS NULL OR p_applied_ps_id = -1 THEN
6903:
6927:
6928: END IF;
6929:
6930: IF PG_DEBUG in ('Y', 'C') THEN
6931: arp_debug.debug( 'arp_process_application.unapp_postable()-' );
6932: END IF;
6933: EXCEPTION
6934: WHEN OTHERS THEN
6935: IF PG_DEBUG in ('Y', 'C') THEN
6932: END IF;
6933: EXCEPTION
6934: WHEN OTHERS THEN
6935: IF PG_DEBUG in ('Y', 'C') THEN
6936: arp_debug.debug( 'EXCEPTION: arp_process_application.unapp_postable' );
6937: END IF;
6938: RAISE;
6939: END unapp_postable;
6940:
7107: l_xla_doc_table VARCHAR2(20);
7108:
7109: BEGIN
7110: IF PG_DEBUG in ('Y', 'C') THEN
7111: arp_debug.debug( 'arp_process_application.other_account_application()+' );
7112: END IF;
7113: x_return_status := FND_API.G_RET_STS_SUCCESS;
7114:
7115: IF PG_DEBUG in ('Y', 'C') THEN
7112: END IF;
7113: x_return_status := FND_API.G_RET_STS_SUCCESS;
7114:
7115: IF PG_DEBUG in ('Y', 'C') THEN
7116: arp_debug.debug( '-- p_receipt_ps_id = '||TO_CHAR(p_receipt_ps_id));
7117: arp_debug.debug( '-- p_amount_applied = '||
7118: TO_CHAR( p_amount_applied ) );
7119: arp_debug.debug( '-- p_gl_date = '|| TO_CHAR( p_gl_date ) );
7120: arp_debug.debug( '-- p_apply_date = '|| TO_CHAR( p_apply_date ) );
7113: x_return_status := FND_API.G_RET_STS_SUCCESS;
7114:
7115: IF PG_DEBUG in ('Y', 'C') THEN
7116: arp_debug.debug( '-- p_receipt_ps_id = '||TO_CHAR(p_receipt_ps_id));
7117: arp_debug.debug( '-- p_amount_applied = '||
7118: TO_CHAR( p_amount_applied ) );
7119: arp_debug.debug( '-- p_gl_date = '|| TO_CHAR( p_gl_date ) );
7120: arp_debug.debug( '-- p_apply_date = '|| TO_CHAR( p_apply_date ) );
7121: END IF;
7115: IF PG_DEBUG in ('Y', 'C') THEN
7116: arp_debug.debug( '-- p_receipt_ps_id = '||TO_CHAR(p_receipt_ps_id));
7117: arp_debug.debug( '-- p_amount_applied = '||
7118: TO_CHAR( p_amount_applied ) );
7119: arp_debug.debug( '-- p_gl_date = '|| TO_CHAR( p_gl_date ) );
7120: arp_debug.debug( '-- p_apply_date = '|| TO_CHAR( p_apply_date ) );
7121: END IF;
7122: --
7123: IF ( p_module_name IS NOT NULL AND p_module_version IS NOT NULL ) THEN
7116: arp_debug.debug( '-- p_receipt_ps_id = '||TO_CHAR(p_receipt_ps_id));
7117: arp_debug.debug( '-- p_amount_applied = '||
7118: TO_CHAR( p_amount_applied ) );
7119: arp_debug.debug( '-- p_gl_date = '|| TO_CHAR( p_gl_date ) );
7120: arp_debug.debug( '-- p_apply_date = '|| TO_CHAR( p_apply_date ) );
7121: END IF;
7122: --
7123: IF ( p_module_name IS NOT NULL AND p_module_version IS NOT NULL ) THEN
7124: validate_on_account_args( p_receipt_ps_id, p_amount_applied,
7240: functional_curr,
7241: l_ps_rec.exchange_rate,
7242: NULL, NULL );
7243: IF PG_DEBUG in ('Y', 'C') THEN
7244: arp_debug.debug( 'acctd_amount_applied_from = '||
7245: TO_CHAR( l_ra_rec.acctd_amount_applied_from ) );
7246: END IF;
7247: --
7248: l_ra_rec.status := 'UNAPP';
7508: -- Cash receipt must be fully applied in order to set the status
7509: -- to 'Applied'.
7510: -- ---------------------------------------------------------------------
7511: IF PG_DEBUG in ('Y', 'C') THEN
7512: arp_debug.debug ( '-- Defining receipt status ...');
7513: arp_debug.debug ( '-- p_amount_applied = '||to_char(p_amount_applied));
7514: arp_debug.debug ( '-- l_amount_due_remaining = '||
7515: to_char(l_amount_due_remaining));
7516: END IF;
7509: -- to 'Applied'.
7510: -- ---------------------------------------------------------------------
7511: IF PG_DEBUG in ('Y', 'C') THEN
7512: arp_debug.debug ( '-- Defining receipt status ...');
7513: arp_debug.debug ( '-- p_amount_applied = '||to_char(p_amount_applied));
7514: arp_debug.debug ( '-- l_amount_due_remaining = '||
7515: to_char(l_amount_due_remaining));
7516: END IF;
7517:
7510: -- ---------------------------------------------------------------------
7511: IF PG_DEBUG in ('Y', 'C') THEN
7512: arp_debug.debug ( '-- Defining receipt status ...');
7513: arp_debug.debug ( '-- p_amount_applied = '||to_char(p_amount_applied));
7514: arp_debug.debug ( '-- l_amount_due_remaining = '||
7515: to_char(l_amount_due_remaining));
7516: END IF;
7517:
7518: -- Determine if the receipt has been fully applied.
7527: l_cr_rec.status := 'APP';
7528: END IF;
7529:
7530: IF PG_DEBUG in ('Y', 'C') THEN
7531: arp_debug.debug ( '-- status = '|| l_cr_rec.status);
7532: END IF;
7533:
7534: l_cr_rec.cash_receipt_id := l_ra_rec.cash_receipt_id;
7535:
7551: -- ---------------------------------------------------------------------
7552: p_out_rec_application_id := l_ra_rec.receivable_application_id;
7553:
7554: IF PG_DEBUG in ('Y', 'C') THEN
7555: arp_debug.debug( 'arp_process_application.other_account_application()-' );
7556: END IF;
7557: EXCEPTION
7558: WHEN trade_mgt_err THEN
7559: x_return_status := FND_API.G_RET_STS_ERROR;
7557: EXCEPTION
7558: WHEN trade_mgt_err THEN
7559: x_return_status := FND_API.G_RET_STS_ERROR;
7560: IF PG_DEBUG in ('Y', 'C') THEN
7561: arp_debug.debug('Trade Management : ' ||
7562: 'EXCEPTION: arp_process_application.other_account_application' );
7563: END IF;
7564: WHEN OTHERS THEN
7565: x_return_status := FND_API.G_RET_STS_ERROR;
7563: END IF;
7564: WHEN OTHERS THEN
7565: x_return_status := FND_API.G_RET_STS_ERROR;
7566: IF PG_DEBUG in ('Y', 'C') THEN
7567: arp_debug.debug(
7568: 'EXCEPTION: arp_process_application.other_account_application' );
7569: END IF;
7570: RAISE;
7571:
7653:
7654: BEGIN
7655:
7656: IF PG_DEBUG in ('Y', 'C') THEN
7657: arp_debug.debug( 'arp_process_application.create_claim()+' );
7658: END IF;
7659: IF p_amount = 0
7660: THEN
7661: x_return_status := 'S';
7716:
7717: -- Dumping all the values
7718:
7719: IF PG_DEBUG in ('Y', 'C') THEN
7720: arp_debug.debug('set_of_books id = '||arp_global.set_of_books_id);
7721: arp_debug.debug('p_amount = '||p_amount);
7722: arp_debug.debug('p_amount_applied = '||p_amount_applied);
7723: arp_debug.debug('p_currency_code = '||p_currency_code);
7724: arp_debug.debug('p_exchange_rate_type = '||p_exchange_rate_type);
7717: -- Dumping all the values
7718:
7719: IF PG_DEBUG in ('Y', 'C') THEN
7720: arp_debug.debug('set_of_books id = '||arp_global.set_of_books_id);
7721: arp_debug.debug('p_amount = '||p_amount);
7722: arp_debug.debug('p_amount_applied = '||p_amount_applied);
7723: arp_debug.debug('p_currency_code = '||p_currency_code);
7724: arp_debug.debug('p_exchange_rate_type = '||p_exchange_rate_type);
7725: arp_debug.debug('p_exchange_rate_date = '||p_exchange_rate_date);
7718:
7719: IF PG_DEBUG in ('Y', 'C') THEN
7720: arp_debug.debug('set_of_books id = '||arp_global.set_of_books_id);
7721: arp_debug.debug('p_amount = '||p_amount);
7722: arp_debug.debug('p_amount_applied = '||p_amount_applied);
7723: arp_debug.debug('p_currency_code = '||p_currency_code);
7724: arp_debug.debug('p_exchange_rate_type = '||p_exchange_rate_type);
7725: arp_debug.debug('p_exchange_rate_date = '||p_exchange_rate_date);
7726: arp_debug.debug('p_exchange_rate = '||p_exchange_rate);
7719: IF PG_DEBUG in ('Y', 'C') THEN
7720: arp_debug.debug('set_of_books id = '||arp_global.set_of_books_id);
7721: arp_debug.debug('p_amount = '||p_amount);
7722: arp_debug.debug('p_amount_applied = '||p_amount_applied);
7723: arp_debug.debug('p_currency_code = '||p_currency_code);
7724: arp_debug.debug('p_exchange_rate_type = '||p_exchange_rate_type);
7725: arp_debug.debug('p_exchange_rate_date = '||p_exchange_rate_date);
7726: arp_debug.debug('p_exchange_rate = '||p_exchange_rate);
7727: arp_debug.debug('p_customer_trx_id = '||p_customer_trx_id);
7720: arp_debug.debug('set_of_books id = '||arp_global.set_of_books_id);
7721: arp_debug.debug('p_amount = '||p_amount);
7722: arp_debug.debug('p_amount_applied = '||p_amount_applied);
7723: arp_debug.debug('p_currency_code = '||p_currency_code);
7724: arp_debug.debug('p_exchange_rate_type = '||p_exchange_rate_type);
7725: arp_debug.debug('p_exchange_rate_date = '||p_exchange_rate_date);
7726: arp_debug.debug('p_exchange_rate = '||p_exchange_rate);
7727: arp_debug.debug('p_customer_trx_id = '||p_customer_trx_id);
7728: arp_debug.debug('p_invoice_ps_id = '||p_invoice_ps_id);
7721: arp_debug.debug('p_amount = '||p_amount);
7722: arp_debug.debug('p_amount_applied = '||p_amount_applied);
7723: arp_debug.debug('p_currency_code = '||p_currency_code);
7724: arp_debug.debug('p_exchange_rate_type = '||p_exchange_rate_type);
7725: arp_debug.debug('p_exchange_rate_date = '||p_exchange_rate_date);
7726: arp_debug.debug('p_exchange_rate = '||p_exchange_rate);
7727: arp_debug.debug('p_customer_trx_id = '||p_customer_trx_id);
7728: arp_debug.debug('p_invoice_ps_id = '||p_invoice_ps_id);
7729: arp_debug.debug('p_cust_trx_type_id = '||p_cust_trx_type_id);
7722: arp_debug.debug('p_amount_applied = '||p_amount_applied);
7723: arp_debug.debug('p_currency_code = '||p_currency_code);
7724: arp_debug.debug('p_exchange_rate_type = '||p_exchange_rate_type);
7725: arp_debug.debug('p_exchange_rate_date = '||p_exchange_rate_date);
7726: arp_debug.debug('p_exchange_rate = '||p_exchange_rate);
7727: arp_debug.debug('p_customer_trx_id = '||p_customer_trx_id);
7728: arp_debug.debug('p_invoice_ps_id = '||p_invoice_ps_id);
7729: arp_debug.debug('p_cust_trx_type_id = '||p_cust_trx_type_id);
7730: arp_debug.debug('p_trx_number = '||p_trx_number);
7723: arp_debug.debug('p_currency_code = '||p_currency_code);
7724: arp_debug.debug('p_exchange_rate_type = '||p_exchange_rate_type);
7725: arp_debug.debug('p_exchange_rate_date = '||p_exchange_rate_date);
7726: arp_debug.debug('p_exchange_rate = '||p_exchange_rate);
7727: arp_debug.debug('p_customer_trx_id = '||p_customer_trx_id);
7728: arp_debug.debug('p_invoice_ps_id = '||p_invoice_ps_id);
7729: arp_debug.debug('p_cust_trx_type_id = '||p_cust_trx_type_id);
7730: arp_debug.debug('p_trx_number = '||p_trx_number);
7731: arp_debug.debug('p_cust_account_id = '||p_cust_account_id);
7724: arp_debug.debug('p_exchange_rate_type = '||p_exchange_rate_type);
7725: arp_debug.debug('p_exchange_rate_date = '||p_exchange_rate_date);
7726: arp_debug.debug('p_exchange_rate = '||p_exchange_rate);
7727: arp_debug.debug('p_customer_trx_id = '||p_customer_trx_id);
7728: arp_debug.debug('p_invoice_ps_id = '||p_invoice_ps_id);
7729: arp_debug.debug('p_cust_trx_type_id = '||p_cust_trx_type_id);
7730: arp_debug.debug('p_trx_number = '||p_trx_number);
7731: arp_debug.debug('p_cust_account_id = '||p_cust_account_id);
7732: arp_debug.debug('p_bill_to_site_id = '||p_bill_to_site_id);
7725: arp_debug.debug('p_exchange_rate_date = '||p_exchange_rate_date);
7726: arp_debug.debug('p_exchange_rate = '||p_exchange_rate);
7727: arp_debug.debug('p_customer_trx_id = '||p_customer_trx_id);
7728: arp_debug.debug('p_invoice_ps_id = '||p_invoice_ps_id);
7729: arp_debug.debug('p_cust_trx_type_id = '||p_cust_trx_type_id);
7730: arp_debug.debug('p_trx_number = '||p_trx_number);
7731: arp_debug.debug('p_cust_account_id = '||p_cust_account_id);
7732: arp_debug.debug('p_bill_to_site_id = '||p_bill_to_site_id);
7733: arp_debug.debug('p_ship_to_site_id = '||p_ship_to_site_id);
7726: arp_debug.debug('p_exchange_rate = '||p_exchange_rate);
7727: arp_debug.debug('p_customer_trx_id = '||p_customer_trx_id);
7728: arp_debug.debug('p_invoice_ps_id = '||p_invoice_ps_id);
7729: arp_debug.debug('p_cust_trx_type_id = '||p_cust_trx_type_id);
7730: arp_debug.debug('p_trx_number = '||p_trx_number);
7731: arp_debug.debug('p_cust_account_id = '||p_cust_account_id);
7732: arp_debug.debug('p_bill_to_site_id = '||p_bill_to_site_id);
7733: arp_debug.debug('p_ship_to_site_id = '||p_ship_to_site_id);
7734: arp_debug.debug('p_salesrep_id = '||p_salesrep_id);
7727: arp_debug.debug('p_customer_trx_id = '||p_customer_trx_id);
7728: arp_debug.debug('p_invoice_ps_id = '||p_invoice_ps_id);
7729: arp_debug.debug('p_cust_trx_type_id = '||p_cust_trx_type_id);
7730: arp_debug.debug('p_trx_number = '||p_trx_number);
7731: arp_debug.debug('p_cust_account_id = '||p_cust_account_id);
7732: arp_debug.debug('p_bill_to_site_id = '||p_bill_to_site_id);
7733: arp_debug.debug('p_ship_to_site_id = '||p_ship_to_site_id);
7734: arp_debug.debug('p_salesrep_id = '||p_salesrep_id);
7735: arp_debug.debug('p_customer_ref_date = '||p_customer_ref_date);
7728: arp_debug.debug('p_invoice_ps_id = '||p_invoice_ps_id);
7729: arp_debug.debug('p_cust_trx_type_id = '||p_cust_trx_type_id);
7730: arp_debug.debug('p_trx_number = '||p_trx_number);
7731: arp_debug.debug('p_cust_account_id = '||p_cust_account_id);
7732: arp_debug.debug('p_bill_to_site_id = '||p_bill_to_site_id);
7733: arp_debug.debug('p_ship_to_site_id = '||p_ship_to_site_id);
7734: arp_debug.debug('p_salesrep_id = '||p_salesrep_id);
7735: arp_debug.debug('p_customer_ref_date = '||p_customer_ref_date);
7736: arp_debug.debug('p_customer_ref_number = '||p_customer_ref_number);
7729: arp_debug.debug('p_cust_trx_type_id = '||p_cust_trx_type_id);
7730: arp_debug.debug('p_trx_number = '||p_trx_number);
7731: arp_debug.debug('p_cust_account_id = '||p_cust_account_id);
7732: arp_debug.debug('p_bill_to_site_id = '||p_bill_to_site_id);
7733: arp_debug.debug('p_ship_to_site_id = '||p_ship_to_site_id);
7734: arp_debug.debug('p_salesrep_id = '||p_salesrep_id);
7735: arp_debug.debug('p_customer_ref_date = '||p_customer_ref_date);
7736: arp_debug.debug('p_customer_ref_number = '||p_customer_ref_number);
7737: arp_debug.debug('p_cash_receipt_id = '||p_cash_receipt_id);
7730: arp_debug.debug('p_trx_number = '||p_trx_number);
7731: arp_debug.debug('p_cust_account_id = '||p_cust_account_id);
7732: arp_debug.debug('p_bill_to_site_id = '||p_bill_to_site_id);
7733: arp_debug.debug('p_ship_to_site_id = '||p_ship_to_site_id);
7734: arp_debug.debug('p_salesrep_id = '||p_salesrep_id);
7735: arp_debug.debug('p_customer_ref_date = '||p_customer_ref_date);
7736: arp_debug.debug('p_customer_ref_number = '||p_customer_ref_number);
7737: arp_debug.debug('p_cash_receipt_id = '||p_cash_receipt_id);
7738: arp_debug.debug('p_receipt_number = '||p_receipt_number);
7731: arp_debug.debug('p_cust_account_id = '||p_cust_account_id);
7732: arp_debug.debug('p_bill_to_site_id = '||p_bill_to_site_id);
7733: arp_debug.debug('p_ship_to_site_id = '||p_ship_to_site_id);
7734: arp_debug.debug('p_salesrep_id = '||p_salesrep_id);
7735: arp_debug.debug('p_customer_ref_date = '||p_customer_ref_date);
7736: arp_debug.debug('p_customer_ref_number = '||p_customer_ref_number);
7737: arp_debug.debug('p_cash_receipt_id = '||p_cash_receipt_id);
7738: arp_debug.debug('p_receipt_number = '||p_receipt_number);
7739: arp_debug.debug('p_reason_id = '||p_reason_id);
7732: arp_debug.debug('p_bill_to_site_id = '||p_bill_to_site_id);
7733: arp_debug.debug('p_ship_to_site_id = '||p_ship_to_site_id);
7734: arp_debug.debug('p_salesrep_id = '||p_salesrep_id);
7735: arp_debug.debug('p_customer_ref_date = '||p_customer_ref_date);
7736: arp_debug.debug('p_customer_ref_number = '||p_customer_ref_number);
7737: arp_debug.debug('p_cash_receipt_id = '||p_cash_receipt_id);
7738: arp_debug.debug('p_receipt_number = '||p_receipt_number);
7739: arp_debug.debug('p_reason_id = '||p_reason_id);
7740: arp_debug.debug('p_customer_reason = '||p_customer_reason);
7733: arp_debug.debug('p_ship_to_site_id = '||p_ship_to_site_id);
7734: arp_debug.debug('p_salesrep_id = '||p_salesrep_id);
7735: arp_debug.debug('p_customer_ref_date = '||p_customer_ref_date);
7736: arp_debug.debug('p_customer_ref_number = '||p_customer_ref_number);
7737: arp_debug.debug('p_cash_receipt_id = '||p_cash_receipt_id);
7738: arp_debug.debug('p_receipt_number = '||p_receipt_number);
7739: arp_debug.debug('p_reason_id = '||p_reason_id);
7740: arp_debug.debug('p_customer_reason = '||p_customer_reason);
7741: END IF;
7734: arp_debug.debug('p_salesrep_id = '||p_salesrep_id);
7735: arp_debug.debug('p_customer_ref_date = '||p_customer_ref_date);
7736: arp_debug.debug('p_customer_ref_number = '||p_customer_ref_number);
7737: arp_debug.debug('p_cash_receipt_id = '||p_cash_receipt_id);
7738: arp_debug.debug('p_receipt_number = '||p_receipt_number);
7739: arp_debug.debug('p_reason_id = '||p_reason_id);
7740: arp_debug.debug('p_customer_reason = '||p_customer_reason);
7741: END IF;
7742:
7735: arp_debug.debug('p_customer_ref_date = '||p_customer_ref_date);
7736: arp_debug.debug('p_customer_ref_number = '||p_customer_ref_number);
7737: arp_debug.debug('p_cash_receipt_id = '||p_cash_receipt_id);
7738: arp_debug.debug('p_receipt_number = '||p_receipt_number);
7739: arp_debug.debug('p_reason_id = '||p_reason_id);
7740: arp_debug.debug('p_customer_reason = '||p_customer_reason);
7741: END IF;
7742:
7743: OZF_Claim_GRP.Create_Deduction
7736: arp_debug.debug('p_customer_ref_number = '||p_customer_ref_number);
7737: arp_debug.debug('p_cash_receipt_id = '||p_cash_receipt_id);
7738: arp_debug.debug('p_receipt_number = '||p_receipt_number);
7739: arp_debug.debug('p_reason_id = '||p_reason_id);
7740: arp_debug.debug('p_customer_reason = '||p_customer_reason);
7741: END IF;
7742:
7743: OZF_Claim_GRP.Create_Deduction
7744: (p_api_version_number => 1.0
7772: x_return_status := 'U';
7773: END IF;
7774:
7775: IF PG_DEBUG in ('Y', 'C') THEN
7776: arp_debug.debug( 'arp_process_application.create_claim()-' );
7777: END IF;
7778:
7779: EXCEPTION
7780: WHEN OTHERS THEN
7778:
7779: EXCEPTION
7780: WHEN OTHERS THEN
7781: IF PG_DEBUG in ('Y', 'C') THEN
7782: arp_debug.debug(
7783: 'EXCEPTION: arp_process_application.create_claim' );
7784: END IF;
7785: RAISE;
7786: END create_claim;
7860: /*End of change, Bug 11841102*/
7861:
7862: BEGIN
7863: IF PG_DEBUG in ('Y', 'C') THEN
7864: arp_debug.debug( 'arp_process_application.update_claim()+' );
7865: END IF;
7866:
7867: l_return_status := FND_API.G_RET_STS_SUCCESS;
7868:
7903: END IF;
7904:
7905: IF PG_DEBUG in ('Y', 'C') THEN
7906: --dump the in parameters
7907: arp_debug.debug('update_claim: p_claim_id = '||p_claim_id);
7908: arp_debug.debug('update_claim: p_amount = '||p_amount);
7909: arp_debug.debug('update_claim: p_apply_date = '||p_apply_date);
7910: arp_debug.debug('update_claim: p_amount_applied = '||p_amount_applied);
7911: arp_debug.debug('update_claim: p_action_type = '||p_action_type);
7904:
7905: IF PG_DEBUG in ('Y', 'C') THEN
7906: --dump the in parameters
7907: arp_debug.debug('update_claim: p_claim_id = '||p_claim_id);
7908: arp_debug.debug('update_claim: p_amount = '||p_amount);
7909: arp_debug.debug('update_claim: p_apply_date = '||p_apply_date);
7910: arp_debug.debug('update_claim: p_amount_applied = '||p_amount_applied);
7911: arp_debug.debug('update_claim: p_action_type = '||p_action_type);
7912: arp_debug.debug('update_claim: p_cash_receipt_id = '||p_cash_receipt_id);
7905: IF PG_DEBUG in ('Y', 'C') THEN
7906: --dump the in parameters
7907: arp_debug.debug('update_claim: p_claim_id = '||p_claim_id);
7908: arp_debug.debug('update_claim: p_amount = '||p_amount);
7909: arp_debug.debug('update_claim: p_apply_date = '||p_apply_date);
7910: arp_debug.debug('update_claim: p_amount_applied = '||p_amount_applied);
7911: arp_debug.debug('update_claim: p_action_type = '||p_action_type);
7912: arp_debug.debug('update_claim: p_cash_receipt_id = '||p_cash_receipt_id);
7913: arp_debug.debug('update_claim: p_customer_trx_id = '||p_customer_trx_id);
7906: --dump the in parameters
7907: arp_debug.debug('update_claim: p_claim_id = '||p_claim_id);
7908: arp_debug.debug('update_claim: p_amount = '||p_amount);
7909: arp_debug.debug('update_claim: p_apply_date = '||p_apply_date);
7910: arp_debug.debug('update_claim: p_amount_applied = '||p_amount_applied);
7911: arp_debug.debug('update_claim: p_action_type = '||p_action_type);
7912: arp_debug.debug('update_claim: p_cash_receipt_id = '||p_cash_receipt_id);
7913: arp_debug.debug('update_claim: p_customer_trx_id = '||p_customer_trx_id);
7914: arp_debug.debug('update_claim: l_receipt_number = '||l_receipt_number);
7907: arp_debug.debug('update_claim: p_claim_id = '||p_claim_id);
7908: arp_debug.debug('update_claim: p_amount = '||p_amount);
7909: arp_debug.debug('update_claim: p_apply_date = '||p_apply_date);
7910: arp_debug.debug('update_claim: p_amount_applied = '||p_amount_applied);
7911: arp_debug.debug('update_claim: p_action_type = '||p_action_type);
7912: arp_debug.debug('update_claim: p_cash_receipt_id = '||p_cash_receipt_id);
7913: arp_debug.debug('update_claim: p_customer_trx_id = '||p_customer_trx_id);
7914: arp_debug.debug('update_claim: l_receipt_number = '||l_receipt_number);
7915: arp_debug.debug('update_claim: l_reason_id = '||p_reason_id);
7908: arp_debug.debug('update_claim: p_amount = '||p_amount);
7909: arp_debug.debug('update_claim: p_apply_date = '||p_apply_date);
7910: arp_debug.debug('update_claim: p_amount_applied = '||p_amount_applied);
7911: arp_debug.debug('update_claim: p_action_type = '||p_action_type);
7912: arp_debug.debug('update_claim: p_cash_receipt_id = '||p_cash_receipt_id);
7913: arp_debug.debug('update_claim: p_customer_trx_id = '||p_customer_trx_id);
7914: arp_debug.debug('update_claim: l_receipt_number = '||l_receipt_number);
7915: arp_debug.debug('update_claim: l_reason_id = '||p_reason_id);
7916: arp_debug.debug('update_claim: l_reason_id in p_deduction= '||l_claim_rec.reason_code_id);
7909: arp_debug.debug('update_claim: p_apply_date = '||p_apply_date);
7910: arp_debug.debug('update_claim: p_amount_applied = '||p_amount_applied);
7911: arp_debug.debug('update_claim: p_action_type = '||p_action_type);
7912: arp_debug.debug('update_claim: p_cash_receipt_id = '||p_cash_receipt_id);
7913: arp_debug.debug('update_claim: p_customer_trx_id = '||p_customer_trx_id);
7914: arp_debug.debug('update_claim: l_receipt_number = '||l_receipt_number);
7915: arp_debug.debug('update_claim: l_reason_id = '||p_reason_id);
7916: arp_debug.debug('update_claim: l_reason_id in p_deduction= '||l_claim_rec.reason_code_id);
7917: END IF;
7910: arp_debug.debug('update_claim: p_amount_applied = '||p_amount_applied);
7911: arp_debug.debug('update_claim: p_action_type = '||p_action_type);
7912: arp_debug.debug('update_claim: p_cash_receipt_id = '||p_cash_receipt_id);
7913: arp_debug.debug('update_claim: p_customer_trx_id = '||p_customer_trx_id);
7914: arp_debug.debug('update_claim: l_receipt_number = '||l_receipt_number);
7915: arp_debug.debug('update_claim: l_reason_id = '||p_reason_id);
7916: arp_debug.debug('update_claim: l_reason_id in p_deduction= '||l_claim_rec.reason_code_id);
7917: END IF;
7918:
7911: arp_debug.debug('update_claim: p_action_type = '||p_action_type);
7912: arp_debug.debug('update_claim: p_cash_receipt_id = '||p_cash_receipt_id);
7913: arp_debug.debug('update_claim: p_customer_trx_id = '||p_customer_trx_id);
7914: arp_debug.debug('update_claim: l_receipt_number = '||l_receipt_number);
7915: arp_debug.debug('update_claim: l_reason_id = '||p_reason_id);
7916: arp_debug.debug('update_claim: l_reason_id in p_deduction= '||l_claim_rec.reason_code_id);
7917: END IF;
7918:
7919: OZF_Claim_GRP.Update_Deduction
7912: arp_debug.debug('update_claim: p_cash_receipt_id = '||p_cash_receipt_id);
7913: arp_debug.debug('update_claim: p_customer_trx_id = '||p_customer_trx_id);
7914: arp_debug.debug('update_claim: l_receipt_number = '||l_receipt_number);
7915: arp_debug.debug('update_claim: l_reason_id = '||p_reason_id);
7916: arp_debug.debug('update_claim: l_reason_id in p_deduction= '||l_claim_rec.reason_code_id);
7917: END IF;
7918:
7919: OZF_Claim_GRP.Update_Deduction
7920: (p_api_version_number => 1.0
8001: l_claim_flag :='I'; /* InActive Claim */
8002: end if;
8003:
8004: IF PG_DEBUG in ('Y', 'C') THEN
8005: arp_debug.debug('l_claim_flag ='||l_claim_flag);
8006: arp_debug.debug('i_ra_app_id.amount_applied '||i_ra_app_id.amount_applied);
8007: END IF;
8008: end loop;
8009:
8002: end if;
8003:
8004: IF PG_DEBUG in ('Y', 'C') THEN
8005: arp_debug.debug('l_claim_flag ='||l_claim_flag);
8006: arp_debug.debug('i_ra_app_id.amount_applied '||i_ra_app_id.amount_applied);
8007: END IF;
8008: end loop;
8009:
8010: if (l_claim_flag ='A' or p_claim_id is not null) then
8024: end if;
8025: end if;
8026:
8027: IF PG_DEBUG in ('Y', 'C') THEN
8028: arp_debug.debug('update_claim: l_amount_due_original = '||l_amount_due_original);
8029: arp_debug.debug('update_claim: l_c_app_amt = '||l_c_app_amt);
8030: ARP_Debug.debug('update_claim: l_nc_app_amt = '||l_nc_app_amt);
8031: END IF;
8032:
8025: end if;
8026:
8027: IF PG_DEBUG in ('Y', 'C') THEN
8028: arp_debug.debug('update_claim: l_amount_due_original = '||l_amount_due_original);
8029: arp_debug.debug('update_claim: l_c_app_amt = '||l_c_app_amt);
8030: ARP_Debug.debug('update_claim: l_nc_app_amt = '||l_nc_app_amt);
8031: END IF;
8032:
8033: update_dispute_on_trx(p_invoice_ps_id
8026:
8027: IF PG_DEBUG in ('Y', 'C') THEN
8028: arp_debug.debug('update_claim: l_amount_due_original = '||l_amount_due_original);
8029: arp_debug.debug('update_claim: l_c_app_amt = '||l_c_app_amt);
8030: ARP_Debug.debug('update_claim: l_nc_app_amt = '||l_nc_app_amt);
8031: END IF;
8032:
8033: update_dispute_on_trx(p_invoice_ps_id
8034: , l_claim_flag
8046: END IF;
8047:
8048: IF PG_DEBUG in ('Y', 'C') AND l_return_status <> FND_API.G_RET_STS_SUCCESS
8049: THEN
8050: arp_debug.debug( 'arp_process_application.update_claim: ERROR occurred calling update_deduction: '||SQLERRM );
8051: END IF;
8052: IF PG_DEBUG in ('Y', 'C') THEN
8053: arp_debug.debug( 'arp_process_application.update_claim()-' );
8054: END IF;
8049: THEN
8050: arp_debug.debug( 'arp_process_application.update_claim: ERROR occurred calling update_deduction: '||SQLERRM );
8051: END IF;
8052: IF PG_DEBUG in ('Y', 'C') THEN
8053: arp_debug.debug( 'arp_process_application.update_claim()-' );
8054: END IF;
8055:
8056: EXCEPTION
8057: WHEN OTHERS THEN
8055:
8056: EXCEPTION
8057: WHEN OTHERS THEN
8058: IF PG_DEBUG in ('Y', 'C') THEN
8059: arp_debug.debug(
8060: 'EXCEPTION: arp_process_application.update_claim' );
8061: END IF;
8062: RAISE;
8063: END update_claim;
8099: l_note_id NUMBER;
8100:
8101: BEGIN
8102: IF PG_DEBUG in ('Y', 'C') THEN
8103: arp_debug.debug( 'arp_process_application.insert_trx_note()+' );
8104: END IF;
8105: --Bug 1812334 : ar_notes entry needs to be created also when the claim is cancelled.
8106:
8107: IF p_flag = 'CREATE' THEN
8136: p_last_update_login => l_last_update_login,
8137: p_created_by => l_user_id,
8138: p_creation_date => l_sysdate);
8139: IF PG_DEBUG in ('Y', 'C') THEN
8140: arp_debug.debug( 'arp_process_application.insert_trx_note()-' );
8141: END IF;
8142: EXCEPTION
8143: WHEN OTHERS THEN
8144: IF PG_DEBUG in ('Y', 'C') THEN
8141: END IF;
8142: EXCEPTION
8143: WHEN OTHERS THEN
8144: IF PG_DEBUG in ('Y', 'C') THEN
8145: arp_debug.debug( 'EXCEPTION: arp_process_application.insert_trx_note' );
8146: END IF;
8147: RAISE;
8148: END insert_trx_note;
8149:
8181: FROM ar_payment_schedules
8182: WHERE payment_schedule_id = p_ps_id;
8183: BEGIN
8184: IF PG_DEBUG in ('Y', 'C') THEN
8185: arp_debug.debug( 'arp_process_application.put_trx_in_dispute()+' );
8186: END IF;
8187: l_user_id := arp_standard.profile.user_id;
8188: l_last_update_login := arp_standard.profile.last_update_login;
8189: l_sysdate := SYSDATE;
8249: l_trx_class,
8250: l_history_id);
8251:
8252: IF PG_DEBUG in ('Y', 'C') THEN
8253: arp_debug.debug( 'arp_process_application.put_trx_in_dispute()-' );
8254: END IF;
8255: EXCEPTION
8256: WHEN OTHERS THEN
8257: IF PG_DEBUG in ('Y', 'C') THEN
8254: END IF;
8255: EXCEPTION
8256: WHEN OTHERS THEN
8257: IF PG_DEBUG in ('Y', 'C') THEN
8258: arp_debug.debug( 'EXCEPTION: arp_process_application.put_trx_in_dispute');
8259: END IF;
8260: RAISE;
8261: END put_trx_in_dispute;
8262:
8287: l_user_id := arp_standard.profile.user_id;
8288: l_last_update_login := arp_standard.profile.last_update_login;
8289: l_sysdate := SYSDATE;
8290: IF PG_DEBUG in ('Y', 'C') THEN
8291: arp_debug.debug( 'arp_process_application.update_dispute_on_trx()+' );
8292: END IF;
8293: /*Bug 5129946: Calling arp_dispute_history.DisputeHistory*/
8294: OPEN get_existing_ps(p_invoice_ps_id);
8295: FETCH get_existing_ps INTO
8346: /*End of change, Bug 11841102*/
8347:
8348:
8349: IF PG_DEBUG in ('Y', 'C') THEN
8350: arp_debug.debug( 'arp_process_application.update_dispute_on_trx()-' );
8351: END IF;
8352: EXCEPTION
8353: WHEN OTHERS THEN
8354: IF PG_DEBUG in ('Y', 'C') THEN
8351: END IF;
8352: EXCEPTION
8353: WHEN OTHERS THEN
8354: IF PG_DEBUG in ('Y', 'C') THEN
8355: arp_debug.debug( 'EXCEPTION: arp_process_application.update_dispute_on_trx');
8356: END IF;
8357: RAISE;
8358: END update_dispute_on_trx;
8359:
8394: p_module_version IN VARCHAR2 ) IS
8395: --
8396: BEGIN
8397: IF PG_DEBUG in ('Y', 'C') THEN
8398: arp_debug.debug( 'arp_process_application.reverse_action_receipt_cb()+' );
8399: END IF;
8400: --
8401: -- reverse chargeback
8402: -- For receipt chargeback,there is no adjustment associated with it
8407: p_module_name,
8408: p_module_version );
8409:
8410: IF PG_DEBUG in ('Y', 'C') THEN
8411: arp_debug.debug( 'arp_process_application.reverse_action_receipt_cb()-' );
8412: END IF;
8413: EXCEPTION
8414: WHEN OTHERS THEN
8415: IF PG_DEBUG in ('Y', 'C') THEN
8412: END IF;
8413: EXCEPTION
8414: WHEN OTHERS THEN
8415: IF PG_DEBUG in ('Y', 'C') THEN
8416: arp_debug.debug(
8417: 'EXCEPTION: arp_process_application.reverse_action_receipt_cb' );
8418: END IF;
8419: RAISE;
8420: END reverse_action_receipt_cb;
8460: l_msg_index NUMBER;
8461: API_exception EXCEPTION;
8462: BEGIN
8463: IF PG_DEBUG in ('Y', 'C') THEN
8464: arp_debug.debug( 'arp_process_application.reverse_action_misc_receipt()+' );
8465: END IF;
8466: --
8467: -- reverse Misc Receipt
8468:
8483: /*------------------------------------------------+
8484: | Write API output to the concurrent program log |
8485: +------------------------------------------------*/
8486: IF PG_DEBUG in ('Y', 'C') THEN
8487: arp_debug.debug( 'API error count '||to_char(NVL(l_msg_count,0)));
8488: END IF;
8489:
8490: IF NVL(l_msg_count,0) > 0 Then
8491:
8495: | There is one message returned by the API, so it|
8496: | has been sent out NOCOPY in the parameter x_msg_data |
8497: +------------------------------------------------*/
8498: IF PG_DEBUG in ('Y', 'C') THEN
8499: arp_debug.debug( l_msg_data);
8500: END IF;
8501:
8502: ELSIF l_msg_count > 1 Then
8503:
8510:
8511: l_msg_data := FND_MSG_PUB.Get(FND_MSG_PUB.G_NEXT,
8512: FND_API.G_FALSE);
8513: IF PG_DEBUG in ('Y', 'C') THEN
8514: arp_debug.debug( to_char(l_count)||' : '||l_msg_data);
8515: END IF;
8516:
8517: END LOOP;
8518:
8539:
8540: END IF; -- l_return_status
8541:
8542: IF PG_DEBUG in ('Y', 'C') THEN
8543: arp_debug.debug( 'arp_process_application.reverse_action_misc_receipt()-' );
8544: END IF;
8545: /*----------------------------------+
8546: | APIs propagate exception upwards |
8547: +----------------------------------*/
8547: +----------------------------------*/
8548: EXCEPTION
8549: WHEN API_exception THEN
8550: IF PG_DEBUG in ('Y', 'C') THEN
8551: arp_debug.debug( 'API EXCEPTION: ' ||
8552: 'arp_process_application.reverse_action_misc_receipt'
8553: ||SQLERRM);
8554: END IF;
8555: FND_MSG_PUB.Get (FND_MSG_PUB.G_FIRST, FND_API.G_TRUE,
8558: app_exception.raise_exception;
8559:
8560: WHEN OTHERS THEN
8561: IF PG_DEBUG in ('Y', 'C') THEN
8562: arp_debug.debug('EXCEPTION: arp_process_application.reverse_action_misc_receipt'
8563: ||SQLERRM);
8564: END IF;
8565: RAISE;
8566: END reverse_action_misc_receipt;
8595: l_query_string VARCHAR2(2000);
8596:
8597: BEGIN
8598: IF PG_DEBUG in ('Y', 'C') THEN
8599: arp_debug.debug( 'arp_process_application.get_claim_status()+' );
8600: END IF;
8601: l_query_string :=
8602: ' select status_code from ozf_ar_deductions_v where claim_id = :claim_id ';
8603: BEGIN
8610: FND_MESSAGE.set_token('CLAIM_ID',p_claim_id);
8611: APP_EXCEPTION.raise_exception;
8612: END;
8613: IF PG_DEBUG in ('Y', 'C') THEN
8614: arp_debug.debug( 'arp_process_application.get_claim_status()-' );
8615: END IF;
8616: END get_claim_status;
8617:
8618: /*===========================================================================+
8758: l_xla_doc_table VARCHAR2(20);
8759:
8760: BEGIN
8761: IF PG_DEBUG in ('Y', 'C') THEN
8762: arp_debug.debug('arp_process_application.cm_activity_application()+' );
8763: END IF;
8764:
8765: x_return_status := FND_API.G_RET_STS_SUCCESS;
8766:
8765: x_return_status := FND_API.G_RET_STS_SUCCESS;
8766:
8767: -- Output IN parameters
8768: IF PG_DEBUG in ('Y', 'C') THEN
8769: arp_debug.debug('CM PS Id. : '||TO_CHAR( p_cm_ps_id ) );
8770: arp_debug.debug('Amount Applied : '||TO_CHAR( p_amount_applied ) );
8771: arp_debug.debug('Gl Date : '||TO_CHAR( p_gl_date ) );
8772: arp_debug.debug('Apply Date : '||TO_CHAR( p_apply_date ) );
8773: END IF;
8766:
8767: -- Output IN parameters
8768: IF PG_DEBUG in ('Y', 'C') THEN
8769: arp_debug.debug('CM PS Id. : '||TO_CHAR( p_cm_ps_id ) );
8770: arp_debug.debug('Amount Applied : '||TO_CHAR( p_amount_applied ) );
8771: arp_debug.debug('Gl Date : '||TO_CHAR( p_gl_date ) );
8772: arp_debug.debug('Apply Date : '||TO_CHAR( p_apply_date ) );
8773: END IF;
8774:
8767: -- Output IN parameters
8768: IF PG_DEBUG in ('Y', 'C') THEN
8769: arp_debug.debug('CM PS Id. : '||TO_CHAR( p_cm_ps_id ) );
8770: arp_debug.debug('Amount Applied : '||TO_CHAR( p_amount_applied ) );
8771: arp_debug.debug('Gl Date : '||TO_CHAR( p_gl_date ) );
8772: arp_debug.debug('Apply Date : '||TO_CHAR( p_apply_date ) );
8773: END IF;
8774:
8775: -----------------------------------------------------
8768: IF PG_DEBUG in ('Y', 'C') THEN
8769: arp_debug.debug('CM PS Id. : '||TO_CHAR( p_cm_ps_id ) );
8770: arp_debug.debug('Amount Applied : '||TO_CHAR( p_amount_applied ) );
8771: arp_debug.debug('Gl Date : '||TO_CHAR( p_gl_date ) );
8772: arp_debug.debug('Apply Date : '||TO_CHAR( p_apply_date ) );
8773: END IF;
8774:
8775: -----------------------------------------------------
8776:
8881: , min_acc_unit => NULL );
8882: EXCEPTION
8883: WHEN OTHERS THEN
8884: IF PG_DEBUG in ('Y', 'C') THEN
8885: arp_debug.debug(
8886: 'EXCEPTION: arp_process_application.cm_activity_application' );
8887: END IF;
8888: RAISE;
8889: END;
8953: and account_class='REC'
8954: and latest_rec_flag='Y';
8955:
8956: IF PG_DEBUG in ('Y', 'C') THEN
8957: arp_debug.debug('Before BS Substitute: arp_process_application.cm_activity_application' );
8958: arp_debug.debug('Before BS Substitute: arp_process_application.cm_activity_application CCID REC' || l_rec_ccid );
8959: arp_debug.debug('Before BS Substitute: arp_process_application.cm_activity_application CCID ACTIVITY' || l_activity_ccid );
8960:
8961: END IF;
8954: and latest_rec_flag='Y';
8955:
8956: IF PG_DEBUG in ('Y', 'C') THEN
8957: arp_debug.debug('Before BS Substitute: arp_process_application.cm_activity_application' );
8958: arp_debug.debug('Before BS Substitute: arp_process_application.cm_activity_application CCID REC' || l_rec_ccid );
8959: arp_debug.debug('Before BS Substitute: arp_process_application.cm_activity_application CCID ACTIVITY' || l_activity_ccid );
8960:
8961: END IF;
8962:
8955:
8956: IF PG_DEBUG in ('Y', 'C') THEN
8957: arp_debug.debug('Before BS Substitute: arp_process_application.cm_activity_application' );
8958: arp_debug.debug('Before BS Substitute: arp_process_application.cm_activity_application CCID REC' || l_rec_ccid );
8959: arp_debug.debug('Before BS Substitute: arp_process_application.cm_activity_application CCID ACTIVITY' || l_activity_ccid );
8960:
8961: END IF;
8962:
8963: IF NVL(FND_PROFILE.value('AR_DISABLE_REC_ACTIVITY_BALSEG_SUBSTITUTION'),'N') = 'N' THEN
9017: -- Return the new receivable_application_id
9018: p_out_rec_application_id := l_inv_ra_rec.receivable_application_id;
9019:
9020: IF PG_DEBUG in ('Y', 'C') THEN
9021: arp_debug.debug('arp_process_application.cm_activity_application()-' );
9022: END IF;
9023:
9024: EXCEPTION
9025: WHEN OTHERS THEN
9023:
9024: EXCEPTION
9025: WHEN OTHERS THEN
9026: IF PG_DEBUG in ('Y', 'C') THEN
9027: arp_debug.debug(
9028: 'EXCEPTION: arp_process_application.cm_activity_application' );
9029: END IF;
9030: RAISE;
9031: END cm_activity_application;
9066: l_msg_data VARCHAR2(1000);
9067: API_EXCEPTION EXCEPTION;
9068:
9069: BEGIN
9070: arp_debug.debug('arp_process_application.Unapply_Regular_CM()+');
9071:
9072: For rec in (select receivable_application_id source_id from ar_receivable_applications ra
9073: where customer_trx_id = p_cust_Trx_id
9074: and applied_customer_trx_id = p_app_cust_trx_id
9076: where source_id = ra.receivable_application_id
9077: and source_table = 'RA'
9078: and ref_customer_trx_line_id is not null
9079: and ref_prev_cust_trx_line_id is null)) Loop
9080: arp_debug.debug('Updating CM ard to stamp ref_prev_cust_trx_line_id');
9081:
9082: update ar_distributions ard
9083: set ref_prev_cust_trx_line_id = (select previous_customer_trx_line_id
9084: from ra_customer_trx_lines
9093: and ctl_cm.previous_customer_trx_line_id is not null);
9094:
9095: l_cnt := sql%rowcount;
9096:
9097: arp_debug.debug('CM ard rows updated : '||l_cnt);
9098:
9099: IF l_cnt > 0 THEN
9100: arp_debug.debug('Updating INV ard to stamp ref_prev_cust_trx_line_id');
9101:
9096:
9097: arp_debug.debug('CM ard rows updated : '||l_cnt);
9098:
9099: IF l_cnt > 0 THEN
9100: arp_debug.debug('Updating INV ard to stamp ref_prev_cust_trx_line_id');
9101:
9102: update ar_distributions ard
9103: set ref_prev_cust_trx_line_id = (select ref_customer_trx_line_id
9104: from ar_distributions
9112: where ra.receivable_application_id = rec.source_id
9113: and ra.applied_customer_trx_id = ctl_inv.customer_trx_id);
9114: l_cnt := sql%rowcount;
9115:
9116: arp_debug.debug('INV ard rows updated : '||l_cnt);
9117: END IF;
9118: End Loop;
9119:
9120:
9147: IF x_return_status = FND_API.G_RET_STS_SUCCESS
9148: THEN
9149: NULL;
9150: ELSE
9151: arp_debug.debug(x_msg_count || ':' ||
9152: substr(x_msg_data,1,150));
9153: RAISE API_exception;
9154: END IF;
9155:
9155:
9156: EXCEPTION
9157: WHEN API_exception THEN
9158: IF PG_DEBUG in ('Y', 'C') THEN
9159: arp_debug.debug( 'API EXCEPTION: ' ||
9160: 'zx_api_pub.unapply_applied_cm()'
9161: ||SQLERRM);
9162: END IF;
9163: RAISE;
9163: RAISE;
9164:
9165: WHEN OTHERS THEN
9166: IF PG_DEBUG in ('Y', 'C') THEN
9167: arp_debug.debug( 'API EXCEPTION (OTHERS): ' ||
9168: 'zx_api_pub.unapply_applied_cm()'
9169: ||SQLERRM);
9170: END IF;
9171: RAISE;
9185: SET comments = comments || l_message_text
9186: WHERE customer_trx_id = p_cust_trx_id
9187: AND account_set_flag = 'N';
9188:
9189: arp_debug.debug('arp_process_application.Unassociate_Regular_CM()+');
9190:
9191: END Unassociate_Regular_CM;
9192:
9193: FUNCTION is_regular_cm (p_customer_Trx_id IN NUMBER,
9195:
9196: l_prev_cust_trx_id NUMBER;
9197:
9198: BEGIN
9199: arp_debug.debug('arp_process_application.is_regular_cm()+');
9200:
9201: SELECT nvl(previous_customer_Trx_id, -999),
9202: nvl(invoicing_rule_id, -999)
9203: INTO l_prev_cust_trx_id,
9312: end if;
9313: EXCEPTION
9314: WHEN OTHERS THEN
9315: IF PG_DEBUG in ('Y', 'C') THEN
9316: arp_debug.debug('EXCEPTION: arp_process_application.Unassociate_Deposit' );
9317: END IF;
9318: RAISE;
9319: end Unassociate_Deposit_from_CM;
9320: END arp_process_application;