[Home] [Help]
214: --apandit Bug : 2641517
215: l_status VARCHAR2(30);
216: BEGIN
217: IF PG_DEBUG in ('Y', 'C') THEN
218: arp_standard.debug('arp_process_application.reverse()+' );
219: END IF;
220:
221: -- Validate input arguments
222: validate_args( p_ra_id,
391: So if the above update can not update the paired UNAPP record, the following update
392: which uses the maximum matching criteria should be run to update the paired UNAPP record */
393: IF SQL%NOTFOUND THEN
394: IF PG_DEBUG in ('Y', 'C') THEN
395: arp_standard.debug('reverse: ' || 'trans_to_receipt_rate = '||to_char(l_ra_rec.trans_to_receipt_rate));
396: arp_standard.debug('reverse: ' || 'cash_receipt_id = '||to_char(l_ra_rec.cash_receipt_id));
397: arp_standard.debug('reverse: ' || 'posting_control_id = '||to_char(l_ra_rec.posting_control_id));
398: arp_standard.debug('reverse: ' || 'gl_posted_date = '||to_char(l_ra_rec.gl_posted_date,'DD-MON-YYYY'));
399: arp_standard.debug('reverse: ' || 'amount_applied = '||to_char(l_ra_rec.amount_applied));
392: which uses the maximum matching criteria should be run to update the paired UNAPP record */
393: IF SQL%NOTFOUND THEN
394: IF PG_DEBUG in ('Y', 'C') THEN
395: arp_standard.debug('reverse: ' || 'trans_to_receipt_rate = '||to_char(l_ra_rec.trans_to_receipt_rate));
396: arp_standard.debug('reverse: ' || 'cash_receipt_id = '||to_char(l_ra_rec.cash_receipt_id));
397: arp_standard.debug('reverse: ' || 'posting_control_id = '||to_char(l_ra_rec.posting_control_id));
398: arp_standard.debug('reverse: ' || 'gl_posted_date = '||to_char(l_ra_rec.gl_posted_date,'DD-MON-YYYY'));
399: arp_standard.debug('reverse: ' || 'amount_applied = '||to_char(l_ra_rec.amount_applied));
400: arp_standard.debug('reverse: ' || 'amount_applied_from = '||to_char(l_ra_rec.amount_applied_from));
393: IF SQL%NOTFOUND THEN
394: IF PG_DEBUG in ('Y', 'C') THEN
395: arp_standard.debug('reverse: ' || 'trans_to_receipt_rate = '||to_char(l_ra_rec.trans_to_receipt_rate));
396: arp_standard.debug('reverse: ' || 'cash_receipt_id = '||to_char(l_ra_rec.cash_receipt_id));
397: arp_standard.debug('reverse: ' || 'posting_control_id = '||to_char(l_ra_rec.posting_control_id));
398: arp_standard.debug('reverse: ' || 'gl_posted_date = '||to_char(l_ra_rec.gl_posted_date,'DD-MON-YYYY'));
399: arp_standard.debug('reverse: ' || 'amount_applied = '||to_char(l_ra_rec.amount_applied));
400: arp_standard.debug('reverse: ' || 'amount_applied_from = '||to_char(l_ra_rec.amount_applied_from));
401: arp_standard.debug('reverse: ' || 'gl_date = '||to_char(l_ra_rec.gl_date,'DD-MON-YYYY'));
394: IF PG_DEBUG in ('Y', 'C') THEN
395: arp_standard.debug('reverse: ' || 'trans_to_receipt_rate = '||to_char(l_ra_rec.trans_to_receipt_rate));
396: arp_standard.debug('reverse: ' || 'cash_receipt_id = '||to_char(l_ra_rec.cash_receipt_id));
397: arp_standard.debug('reverse: ' || 'posting_control_id = '||to_char(l_ra_rec.posting_control_id));
398: arp_standard.debug('reverse: ' || 'gl_posted_date = '||to_char(l_ra_rec.gl_posted_date,'DD-MON-YYYY'));
399: arp_standard.debug('reverse: ' || 'amount_applied = '||to_char(l_ra_rec.amount_applied));
400: arp_standard.debug('reverse: ' || 'amount_applied_from = '||to_char(l_ra_rec.amount_applied_from));
401: arp_standard.debug('reverse: ' || 'gl_date = '||to_char(l_ra_rec.gl_date,'DD-MON-YYYY'));
402: arp_standard.debug('reverse: ' || 'apply_date = '||to_char(l_ra_rec.apply_date,'DD-MON-YYYY'));
395: arp_standard.debug('reverse: ' || 'trans_to_receipt_rate = '||to_char(l_ra_rec.trans_to_receipt_rate));
396: arp_standard.debug('reverse: ' || 'cash_receipt_id = '||to_char(l_ra_rec.cash_receipt_id));
397: arp_standard.debug('reverse: ' || 'posting_control_id = '||to_char(l_ra_rec.posting_control_id));
398: arp_standard.debug('reverse: ' || 'gl_posted_date = '||to_char(l_ra_rec.gl_posted_date,'DD-MON-YYYY'));
399: arp_standard.debug('reverse: ' || 'amount_applied = '||to_char(l_ra_rec.amount_applied));
400: arp_standard.debug('reverse: ' || 'amount_applied_from = '||to_char(l_ra_rec.amount_applied_from));
401: arp_standard.debug('reverse: ' || 'gl_date = '||to_char(l_ra_rec.gl_date,'DD-MON-YYYY'));
402: arp_standard.debug('reverse: ' || 'apply_date = '||to_char(l_ra_rec.apply_date,'DD-MON-YYYY'));
403: END IF;
396: arp_standard.debug('reverse: ' || 'cash_receipt_id = '||to_char(l_ra_rec.cash_receipt_id));
397: arp_standard.debug('reverse: ' || 'posting_control_id = '||to_char(l_ra_rec.posting_control_id));
398: arp_standard.debug('reverse: ' || 'gl_posted_date = '||to_char(l_ra_rec.gl_posted_date,'DD-MON-YYYY'));
399: arp_standard.debug('reverse: ' || 'amount_applied = '||to_char(l_ra_rec.amount_applied));
400: arp_standard.debug('reverse: ' || 'amount_applied_from = '||to_char(l_ra_rec.amount_applied_from));
401: arp_standard.debug('reverse: ' || 'gl_date = '||to_char(l_ra_rec.gl_date,'DD-MON-YYYY'));
402: arp_standard.debug('reverse: ' || 'apply_date = '||to_char(l_ra_rec.apply_date,'DD-MON-YYYY'));
403: END IF;
404: IF l_ra_rec.trans_to_receipt_rate is NOT NULL THEN
397: arp_standard.debug('reverse: ' || 'posting_control_id = '||to_char(l_ra_rec.posting_control_id));
398: arp_standard.debug('reverse: ' || 'gl_posted_date = '||to_char(l_ra_rec.gl_posted_date,'DD-MON-YYYY'));
399: arp_standard.debug('reverse: ' || 'amount_applied = '||to_char(l_ra_rec.amount_applied));
400: arp_standard.debug('reverse: ' || 'amount_applied_from = '||to_char(l_ra_rec.amount_applied_from));
401: arp_standard.debug('reverse: ' || 'gl_date = '||to_char(l_ra_rec.gl_date,'DD-MON-YYYY'));
402: arp_standard.debug('reverse: ' || 'apply_date = '||to_char(l_ra_rec.apply_date,'DD-MON-YYYY'));
403: END IF;
404: IF l_ra_rec.trans_to_receipt_rate is NOT NULL THEN
405: update ar_receivable_applications
398: arp_standard.debug('reverse: ' || 'gl_posted_date = '||to_char(l_ra_rec.gl_posted_date,'DD-MON-YYYY'));
399: arp_standard.debug('reverse: ' || 'amount_applied = '||to_char(l_ra_rec.amount_applied));
400: arp_standard.debug('reverse: ' || 'amount_applied_from = '||to_char(l_ra_rec.amount_applied_from));
401: arp_standard.debug('reverse: ' || 'gl_date = '||to_char(l_ra_rec.gl_date,'DD-MON-YYYY'));
402: arp_standard.debug('reverse: ' || 'apply_date = '||to_char(l_ra_rec.apply_date,'DD-MON-YYYY'));
403: END IF;
404: IF l_ra_rec.trans_to_receipt_rate is NOT NULL THEN
405: update ar_receivable_applications
406: set reversal_gl_date = p_reversal_gl_date
511: -- call revenue management's receipt analyzer for revenue related
512: -- impact of this reversal.
513:
514: IF PG_DEBUG in ('Y', 'C') THEN
515: arp_standard.debug('reverse: ' || 'calling receipt_analyzer in reversal mode');
516: END IF;
517:
518: ar_revenue_management_pvt.receipt_analyzer (
519: p_mode => ar_revenue_management_pvt.c_receipt_reversal_mode,
519: p_mode => ar_revenue_management_pvt.c_receipt_reversal_mode,
520: p_receivable_application_id => p_ra_id);
521:
522: IF PG_DEBUG in ('Y', 'C') THEN
523: arp_standard.debug('returned from receipt_analyzer');
524: END IF;
525:
526: -- RAM-C changes end
527:
525:
526: -- RAM-C changes end
527:
528: IF PG_DEBUG in ('Y', 'C') THEN
529: arp_standard.debug('arp_process_application.reverse()-' );
530: END IF;
531: EXCEPTION
532: WHEN OTHERS THEN
533: IF PG_DEBUG in ('Y', 'C') THEN
530: END IF;
531: EXCEPTION
532: WHEN OTHERS THEN
533: IF PG_DEBUG in ('Y', 'C') THEN
534: arp_standard.debug('reverse: ' ||
535: 'EXCEPTION: arp_process_application.reverse' );
536: END IF;
537: RAISE;
538: END reverse;
592: l_sum_dist NUMBER;
593:
594: BEGIN
595: IF PG_DEBUG in ('Y', 'C') THEN
596: arp_standard.debug( 'arp_process_application.reverse_cm_app()+' );
597: END IF;
598:
599: -- -------------------------------------------------------------------
600: -- Get ready to insert application row into ar_receivable_applications.
628: IF (l_reg_cm) THEN
629: IF (l_rule_id <> -999) THEN
630: -- make sure rev rec is run, if not, run rev rec
631: IF (PG_DEBUG in ('Y', 'C')) THEN
632: arp_standard.debug('reverse_cm_app: we have a reg cm with rules');
633: END IF;
634:
635: -- has rev rec been run for this CM?
636: l_rev_rec_run := arpt_sql_func_util.get_revenue_recog_run_flag(
664: -- invoice, also set actual date closed and gl_date_closed.
665:
666: IF ( NVL( lr_ra_rec.confirmed_flag, 'Y' ) = 'Y' ) THEN
667: IF PG_DEBUG in ('Y', 'C') THEN
668: arp_standard.debug('reverse_cm_app: ' || 'lr_ra_rec.confirmed_flag = Y' );
669: END IF;
670:
671: /* Bug 4122494 CM refunds */
672: IF pn_applied_ps_id = -8 THEN
717: AR_BUS_EVENT_COVER.Raise_CM_UnApply_Event(l_rec_app_id);
718: END IF;
719:
720: IF PG_DEBUG in ('Y', 'C') THEN
721: arp_standard.debug( 'arp_process_application.reverse_cm_app()-' );
722: END IF;
723:
724: END reverse_cm_app;
725: --
883: l_app_ra_rec ar_receivable_applications%ROWTYPE;
884:
885: BEGIN
886: IF PG_DEBUG in ('Y', 'C') THEN
887: arp_standard.debug( 'arp_process_application.update_selected_transaction()+');
888: END IF;
889:
890: functional_curr := arp_global.functional_currency;
891:
1074: -- lr_ra_rec);
1075: END IF;
1076:
1077: IF PG_DEBUG in ('Y', 'C') THEN
1078: arp_standard.debug('update_selected_transaction: ' || 'arp_process_application.update_amount_applied()-');
1079: END IF;
1080:
1081: EXCEPTION
1082: WHEN OTHERS THEN
1080:
1081: EXCEPTION
1082: WHEN OTHERS THEN
1083: IF PG_DEBUG in ('Y', 'C') THEN
1084: arp_standard.debug('update_selected_transaction: ' || '-- EXCEPTION:');
1085: arp_standard.debug('update_selected_transaction: ' || 'Printing procedure parameter values:');
1086: arp_standard.debug('update_selected_transaction: ' || '-- pn_ra_id = '||TO_CHAR(pn_ra_id));
1087: arp_standard.debug('update_selected_transaction: ' || '-- pn_amount_applied = '||TO_CHAR(pn_amount_applied));
1088: arp_standard.debug('update_selected_transaction: ' || '-- pc_invoice_currency_code = '||
1081: EXCEPTION
1082: WHEN OTHERS THEN
1083: IF PG_DEBUG in ('Y', 'C') THEN
1084: arp_standard.debug('update_selected_transaction: ' || '-- EXCEPTION:');
1085: arp_standard.debug('update_selected_transaction: ' || 'Printing procedure parameter values:');
1086: arp_standard.debug('update_selected_transaction: ' || '-- pn_ra_id = '||TO_CHAR(pn_ra_id));
1087: arp_standard.debug('update_selected_transaction: ' || '-- pn_amount_applied = '||TO_CHAR(pn_amount_applied));
1088: arp_standard.debug('update_selected_transaction: ' || '-- pc_invoice_currency_code = '||
1089: pc_invoice_currency_code);
1082: WHEN OTHERS THEN
1083: IF PG_DEBUG in ('Y', 'C') THEN
1084: arp_standard.debug('update_selected_transaction: ' || '-- EXCEPTION:');
1085: arp_standard.debug('update_selected_transaction: ' || 'Printing procedure parameter values:');
1086: arp_standard.debug('update_selected_transaction: ' || '-- pn_ra_id = '||TO_CHAR(pn_ra_id));
1087: arp_standard.debug('update_selected_transaction: ' || '-- pn_amount_applied = '||TO_CHAR(pn_amount_applied));
1088: arp_standard.debug('update_selected_transaction: ' || '-- pc_invoice_currency_code = '||
1089: pc_invoice_currency_code);
1090: arp_standard.debug('update_selected_transaction: ' || '-- pn_invoice_exchange_rate = '||
1083: IF PG_DEBUG in ('Y', 'C') THEN
1084: arp_standard.debug('update_selected_transaction: ' || '-- EXCEPTION:');
1085: arp_standard.debug('update_selected_transaction: ' || 'Printing procedure parameter values:');
1086: arp_standard.debug('update_selected_transaction: ' || '-- pn_ra_id = '||TO_CHAR(pn_ra_id));
1087: arp_standard.debug('update_selected_transaction: ' || '-- pn_amount_applied = '||TO_CHAR(pn_amount_applied));
1088: arp_standard.debug('update_selected_transaction: ' || '-- pc_invoice_currency_code = '||
1089: pc_invoice_currency_code);
1090: arp_standard.debug('update_selected_transaction: ' || '-- pn_invoice_exchange_rate = '||
1091: to_char(pn_invoice_exchange_rate));
1084: arp_standard.debug('update_selected_transaction: ' || '-- EXCEPTION:');
1085: arp_standard.debug('update_selected_transaction: ' || 'Printing procedure parameter values:');
1086: arp_standard.debug('update_selected_transaction: ' || '-- pn_ra_id = '||TO_CHAR(pn_ra_id));
1087: arp_standard.debug('update_selected_transaction: ' || '-- pn_amount_applied = '||TO_CHAR(pn_amount_applied));
1088: arp_standard.debug('update_selected_transaction: ' || '-- pc_invoice_currency_code = '||
1089: pc_invoice_currency_code);
1090: arp_standard.debug('update_selected_transaction: ' || '-- pn_invoice_exchange_rate = '||
1091: to_char(pn_invoice_exchange_rate));
1092: arp_standard.debug('update_selected_transaction: ' || '-- pc_receipt_currency_code = '||
1086: arp_standard.debug('update_selected_transaction: ' || '-- pn_ra_id = '||TO_CHAR(pn_ra_id));
1087: arp_standard.debug('update_selected_transaction: ' || '-- pn_amount_applied = '||TO_CHAR(pn_amount_applied));
1088: arp_standard.debug('update_selected_transaction: ' || '-- pc_invoice_currency_code = '||
1089: pc_invoice_currency_code);
1090: arp_standard.debug('update_selected_transaction: ' || '-- pn_invoice_exchange_rate = '||
1091: to_char(pn_invoice_exchange_rate));
1092: arp_standard.debug('update_selected_transaction: ' || '-- pc_receipt_currency_code = '||
1093: pc_receipt_currency_code);
1094: arp_standard.debug('update_selected_transaction: ' || '-- pn_receipt_exchange_rate = '||
1088: arp_standard.debug('update_selected_transaction: ' || '-- pc_invoice_currency_code = '||
1089: pc_invoice_currency_code);
1090: arp_standard.debug('update_selected_transaction: ' || '-- pn_invoice_exchange_rate = '||
1091: to_char(pn_invoice_exchange_rate));
1092: arp_standard.debug('update_selected_transaction: ' || '-- pc_receipt_currency_code = '||
1093: pc_receipt_currency_code);
1094: arp_standard.debug('update_selected_transaction: ' || '-- pn_receipt_exchange_rate = '||
1095: to_char(pn_receipt_exchange_rate));
1096: arp_standard.debug('update_selected_transaction: ' || '-- pc_module_name = '||pc_module_name);
1090: arp_standard.debug('update_selected_transaction: ' || '-- pn_invoice_exchange_rate = '||
1091: to_char(pn_invoice_exchange_rate));
1092: arp_standard.debug('update_selected_transaction: ' || '-- pc_receipt_currency_code = '||
1093: pc_receipt_currency_code);
1094: arp_standard.debug('update_selected_transaction: ' || '-- pn_receipt_exchange_rate = '||
1095: to_char(pn_receipt_exchange_rate));
1096: arp_standard.debug('update_selected_transaction: ' || '-- pc_module_name = '||pc_module_name);
1097: arp_standard.debug('update_selected_transaction: ' || '-- pc_module_version = '||pc_module_version);
1098: END IF;
1092: arp_standard.debug('update_selected_transaction: ' || '-- pc_receipt_currency_code = '||
1093: pc_receipt_currency_code);
1094: arp_standard.debug('update_selected_transaction: ' || '-- pn_receipt_exchange_rate = '||
1095: to_char(pn_receipt_exchange_rate));
1096: arp_standard.debug('update_selected_transaction: ' || '-- pc_module_name = '||pc_module_name);
1097: arp_standard.debug('update_selected_transaction: ' || '-- pc_module_version = '||pc_module_version);
1098: END IF;
1099:
1100: app_exception.raise_exception;
1093: pc_receipt_currency_code);
1094: arp_standard.debug('update_selected_transaction: ' || '-- pn_receipt_exchange_rate = '||
1095: to_char(pn_receipt_exchange_rate));
1096: arp_standard.debug('update_selected_transaction: ' || '-- pc_module_name = '||pc_module_name);
1097: arp_standard.debug('update_selected_transaction: ' || '-- pc_module_version = '||pc_module_version);
1098: END IF;
1099:
1100: app_exception.raise_exception;
1101: -- RAISE;
1135: p_reversal_date IN DATE,
1136: p_module_name IN VARCHAR2 ) IS
1137: BEGIN
1138: IF PG_DEBUG in ('Y', 'C') THEN
1139: arp_standard.debug( 'arp_process_application.validate_args()+' );
1140: END IF;
1141:
1142: IF (p_ra_id IS NULL)
1143: THEN
1166: , 'NULL');
1167: END IF;
1168:
1169: IF PG_DEBUG in ('Y', 'C') THEN
1170: arp_standard.debug( 'arp_process_application.validate_args()-' );
1171: END IF;
1172:
1173: EXCEPTION
1174: WHEN OTHERS THEN
1172:
1173: EXCEPTION
1174: WHEN OTHERS THEN
1175: IF PG_DEBUG in ('Y', 'C') THEN
1176: arp_standard.debug('EXCEPTION: arp_process_application.validate_args');
1177: END IF;
1178: RAISE;
1179: END validate_args;
1180: --
1182: | PROCEDURE |
1183: | reversal_update_ps_recs |
1184: | |
1185: | DESCRIPTION |
1186: | This procedure is called from the standard (receipt) and credit memo |
1187: | reversal procedures. It updates the payment schedule for both the |
1188: | source (cash receipt or on account credit) and the applied transaction.|
1189: | |
1190: | SCOPE - PRIVATE |
1257: l_app_rec arp_global.app_rec_type;
1258:
1259: BEGIN
1260: IF PG_DEBUG in ('Y', 'C') THEN
1261: arp_standard.debug('validate_args: ' || 'arp_process_application.reversal_update_ps_recs()+');
1262: END IF;
1263:
1264: --------------------------------------------------------------------------
1265: -- Process the payment schedule row of the applied Transaction...
1356: --
1357: arp_ps_util.update_reverse_actions(l_app_rec, NULL, NULL);
1358:
1359: IF PG_DEBUG in ('Y', 'C') THEN
1360: arp_standard.debug('validate_args: ' || 'arp_process_application.reversal_update_ps_recs()-');
1361: END IF;
1362: EXCEPTION
1363: WHEN OTHERS THEN
1364: IF PG_DEBUG in ('Y', 'C') THEN
1361: END IF;
1362: EXCEPTION
1363: WHEN OTHERS THEN
1364: IF PG_DEBUG in ('Y', 'C') THEN
1365: arp_standard.debug('validate_args: ' ||
1366: 'EXCEPTION: arp_process_application.reversal_update_ps_recs' );
1367: END IF;
1368: RAISE;
1369: END reversal_update_ps_recs;
1477: l_llca_exist varchar(1) := 'N';
1478:
1479: BEGIN
1480: IF PG_DEBUG in ('Y', 'C') THEN
1481: arp_standard.debug('validate_args: ' || 'arp_process_application.reversal_insert_oppos_ra_recs()+');
1482: END IF;
1483:
1484: -----------------------------------------------------------------
1485: -- Handle the Receipt reversal and Credit Memo reversal cases.
1524: p_ra_rec.freight_uediscounted := -p_ra_rec.freight_uediscounted ;
1525: p_ra_rec.charges_ediscounted := -p_ra_rec.charges_ediscounted ;
1526: p_ra_rec.charges_uediscounted := -p_ra_rec.charges_uediscounted ;
1527: --
1528: -- Application Rule needs to be 96 for standard Applications
1529: -- and 75 for Credit Memo Applications.
1530: -- Some reports rely on the application rule being set to
1531: -- certain values .. so be careful changing them!
1532: if p_app_rec_trx_type = 'AR_CM' then
1583: l_llca_exist := 'N';
1584: end;
1585:
1586: IF PG_DEBUG in ('Y', 'C') THEN
1587: arp_standard.debug('Total rows selected under activity details: ' || SQL%ROWCOUNT);
1588: END IF;
1589:
1590: IF NVL(l_llca_exist,'N') = 'Y' THEN
1591:
1595: source_id = l_ra_id,
1596: CURRENT_ACTIVITY_FLAG = 'N',
1597: CREATED_BY = NVL(FND_GLOBAL.user_id,-1),
1598: CREATION_DATE = SYSDATE ,
1599: LAST_UPDATE_LOGIN = NVL( arp_standard.profile.last_update_login,
1600: p_ra_rec.last_update_login ),
1601: LAST_UPDATE_DATE = SYSDATE ,
1602: LAST_UPDATED_BY = NVL(FND_GLOBAL.user_id,-1)
1603: where cash_receipt_id = p_ra_rec.cash_receipt_id
1605: and source_table = 'RA'
1606: and nvl(CURRENT_ACTIVITY_FLAG,'Y') = 'R';
1607:
1608: IF PG_DEBUG in ('Y', 'C') THEN
1609: arp_standard.debug('Total rows updated under activity details: ' || SQL%ROWCOUNT);
1610: END IF;
1611: END IF;
1612:
1613: END IF;
1621: ARP_XLA_EVENTS.create_events(p_xla_ev_rec => l_xla_ev_rec);
1622: END IF;
1623:
1624: IF PG_DEBUG in ('Y', 'C') THEN
1625: arp_standard.debug('validate_args: ' || 'p_ra_rec.rec_app_id :'||p_ra_rec.receivable_application_id);
1626: arp_standard.debug('validate_args: ' || 'l_ra_id 1 :'||l_ra_id);
1627: END IF;
1628: --apandit
1629: --Bug : 2641517
1622: END IF;
1623:
1624: IF PG_DEBUG in ('Y', 'C') THEN
1625: arp_standard.debug('validate_args: ' || 'p_ra_rec.rec_app_id :'||p_ra_rec.receivable_application_id);
1626: arp_standard.debug('validate_args: ' || 'l_ra_id 1 :'||l_ra_id);
1627: END IF;
1628: --apandit
1629: --Bug : 2641517
1630: IF p_ra_rec.status in ('APP', 'ACTIVITY') THEN
1716:
1717: END IF;
1718:
1719: IF PG_DEBUG in ('Y', 'C') THEN
1720: arp_standard.debug('validate_args: ' || 'arp_process_application.reversal_insert_oppos_ra_recs()-');
1721: END IF;
1722: return;
1723:
1724: END IF;
1723:
1724: END IF;
1725:
1726: --------------------------------------------------------------
1727: -- This code caters for the standard case, creating opposing
1728: -- UNAPP and APP rows.
1729: --
1730: -- For example:
1731: -- Receipt
1838: l_llca_exist_rev := 'N';
1839: end;
1840:
1841: IF PG_DEBUG in ('Y', 'C') THEN
1842: arp_standard.debug('Total rows selected under activity details: ' || SQL%ROWCOUNT);
1843: END IF;
1844:
1845: IF NVL(l_llca_exist_rev,'N') = 'Y' THEN
1846:
1849: source_id = l_ra_id,
1850: CURRENT_ACTIVITY_FLAG = 'N',
1851: CREATED_BY = NVL(FND_GLOBAL.user_id,-1),
1852: CREATION_DATE = SYSDATE ,
1853: LAST_UPDATE_LOGIN = NVL( arp_standard.profile.last_update_login,
1854: p_ra_rec.last_update_login ),
1855: LAST_UPDATE_DATE = SYSDATE ,
1856: LAST_UPDATED_BY = NVL(FND_GLOBAL.user_id,-1)
1857: where cash_receipt_id = p_ra_rec.cash_receipt_id
1859: and source_table = 'RA'
1860: and nvl(CURRENT_ACTIVITY_FLAG,'Y') = 'R';
1861:
1862: IF PG_DEBUG in ('Y', 'C') THEN
1863: arp_standard.debug('Total rows updated under activity details: ' || SQL%ROWCOUNT);
1864: END IF;
1865:
1866: END IF;
1867: END IF;
1875: ARP_XLA_EVENTS.create_events(p_xla_ev_rec => l_xla_ev_rec);
1876: END IF;
1877:
1878: IF PG_DEBUG in ('Y', 'C') THEN
1879: arp_standard.debug('validate_args: ' || 'p_ra_rec.rec_app_id :'||p_ra_rec.receivable_application_id);
1880: arp_standard.debug('validate_args: ' || 'l_ra_id 2 :'||l_ra_id);
1881: END IF;
1882:
1883: --apandit
1876: END IF;
1877:
1878: IF PG_DEBUG in ('Y', 'C') THEN
1879: arp_standard.debug('validate_args: ' || 'p_ra_rec.rec_app_id :'||p_ra_rec.receivable_application_id);
1880: arp_standard.debug('validate_args: ' || 'l_ra_id 2 :'||l_ra_id);
1881: END IF;
1882:
1883: --apandit
1884: --Bug : 2641517
2107: ARP_XLA_EVENTS.create_events(p_xla_ev_rec => l_xla_ev_rec);
2108: END IF;
2109:
2110: IF PG_DEBUG in ('Y', 'C') THEN
2111: arp_standard.debug('validate_args: ' || 'p_ra_rec.rec_app_id :'||p_ra_rec.receivable_application_id);
2112: arp_standard.debug('validate_args: ' || 'l_ra_id 3 :'||l_ra_id);
2113: END IF;
2114:
2115: --
2108: END IF;
2109:
2110: IF PG_DEBUG in ('Y', 'C') THEN
2111: arp_standard.debug('validate_args: ' || 'p_ra_rec.rec_app_id :'||p_ra_rec.receivable_application_id);
2112: arp_standard.debug('validate_args: ' || 'l_ra_id 3 :'||l_ra_id);
2113: END IF;
2114:
2115: --
2116: --Release 11.5 VAT changes, create UNAPP paired record
2176: -- Update cash receipt status
2177: arp_cash_receipts_pkg.update_p(l_cr_rec, p_ra_rec.cash_receipt_id);
2178:
2179: IF PG_DEBUG in ('Y', 'C') THEN
2180: arp_standard.debug('validate_args: ' || 'arp_process_application.reversal_insert_oppos_ra_recs()-');
2181: END IF;
2182: EXCEPTION
2183: WHEN OTHERS THEN
2184: IF PG_DEBUG in ('Y', 'C') THEN
2181: END IF;
2182: EXCEPTION
2183: WHEN OTHERS THEN
2184: IF PG_DEBUG in ('Y', 'C') THEN
2185: arp_standard.debug('validate_args: ' ||
2186: 'EXCEPTION: arp_process_application.reversal_insert_oppos_ra_recs');
2187: END IF;
2188: RAISE;
2189:
2219: PROCEDURE reversal_update_old_ra_rec( p_reversal_gl_date DATE,
2220: p_ra_rec IN OUT NOCOPY ar_receivable_applications%ROWTYPE ) IS
2221: BEGIN
2222: IF PG_DEBUG in ('Y', 'C') THEN
2223: arp_standard.debug('validate_args: ' || 'arp_process_application.reversal_update_old_ra_rec()+' );
2224: END IF;
2225: --
2226: p_ra_rec.display := 'N';
2227:
2233: --
2234: arp_app_pkg.update_p( p_ra_rec );
2235: --
2236: IF PG_DEBUG in ('Y', 'C') THEN
2237: arp_standard.debug('validate_args: ' || 'arp_process_application.reversal_update_old_ra_rec()-' );
2238: END IF;
2239: EXCEPTION
2240: WHEN OTHERS THEN
2241: IF PG_DEBUG in ('Y', 'C') THEN
2238: END IF;
2239: EXCEPTION
2240: WHEN OTHERS THEN
2241: IF PG_DEBUG in ('Y', 'C') THEN
2242: arp_standard.debug('validate_args: ' ||
2243: 'EXCEPTION: arp_process_application.reversal_update_old_ra_rec' );
2244: END IF;
2245: RAISE;
2246: END reversal_update_old_ra_rec;
2313: BEGIN
2314: -- validate_args_appdel( p_ra_id );
2315: --
2316: IF PG_DEBUG in ('Y', 'C') THEN
2317: arp_standard.debug('validate_args: ' || 'arp_process_application.check_reversable()+' );
2318: END IF;
2319: --
2320: arp_app_pkg.fetch_p(p_ra_id, l_ra_rec );
2321:
2347: AND ps.payment_schedule_id(+) = ra.applied_payment_schedule_id
2348: AND ctt.cust_trx_type_id = ps.cust_trx_type_id;
2349: --
2350: IF PG_DEBUG in ('Y', 'C') THEN
2351: arp_standard.debug('validate_args: ' || 'arp_process_application.check_reversable()+' );
2352: END IF;
2353: EXCEPTION
2354: WHEN NO_DATA_FOUND THEN
2355: IF PG_DEBUG in ('Y', 'C') THEN
2352: END IF;
2353: EXCEPTION
2354: WHEN NO_DATA_FOUND THEN
2355: IF PG_DEBUG in ('Y', 'C') THEN
2356: arp_standard.debug('validate_args: ' || 'No data found in PS and RA table - check_reversable ' );
2357: END IF;
2358: RETURN FALSE;
2359: END;
2360: --
2392: IF ( arp_process_chargeback.validate_cb_reversal( l_ct_id,
2393: p_module_name,
2394: p_module_version) <> TRUE ) THEN
2395: IF PG_DEBUG in ('Y', 'C') THEN
2396: arp_standard.debug('validate_args: ' || 'validate_cb_reversal failed' );
2397: END IF;
2398: RETURN FALSE;
2399: END IF;
2400:
2419: RAISE;
2420: END;
2421:
2422: IF PG_DEBUG in ('Y', 'C') THEN
2423: arp_standard.debug('validate_args: ' || 'arp_process_application.check_reversable(-6)-' );
2424: END IF;
2425:
2426: IF l_dummy = 1 THEN
2427: RETURN FALSE;
2433: RETURN TRUE;
2434: END IF;
2435:
2436: IF PG_DEBUG in ('Y', 'C') THEN
2437: arp_standard.debug('validate_args: ' || 'l_ps_id and l_ass_cr_id ARE' );
2438: arp_standard.debug('validate_args: ' || to_char( l_ps_id ) );
2439: arp_standard.debug('validate_args: ' || to_char( l_ass_cr_id ) );
2440: END IF;
2441: --
2434: END IF;
2435:
2436: IF PG_DEBUG in ('Y', 'C') THEN
2437: arp_standard.debug('validate_args: ' || 'l_ps_id and l_ass_cr_id ARE' );
2438: arp_standard.debug('validate_args: ' || to_char( l_ps_id ) );
2439: arp_standard.debug('validate_args: ' || to_char( l_ass_cr_id ) );
2440: END IF;
2441: --
2442: -- If status = 'ACC', application is on account and no further
2435:
2436: IF PG_DEBUG in ('Y', 'C') THEN
2437: arp_standard.debug('validate_args: ' || 'l_ps_id and l_ass_cr_id ARE' );
2438: arp_standard.debug('validate_args: ' || to_char( l_ps_id ) );
2439: arp_standard.debug('validate_args: ' || to_char( l_ass_cr_id ) );
2440: END IF;
2441: --
2442: -- If status = 'ACC', application is on account and no further
2443: -- validation is necessary. Return Status as 'NO_ACTION' since there will
2443: -- validation is necessary. Return Status as 'NO_ACTION' since there will
2444: -- not be any actions associated with an on-account application.
2445: --
2446: IF PG_DEBUG in ('Y', 'C') THEN
2447: arp_standard.debug('validate_args: ' || 'l_status in app_delete IS' );
2448: arp_standard.debug('validate_args: ' || l_status );
2449: END IF;
2450: IF ( l_status in ('ACC','OTHER ACC')) THEN
2451: IF PG_DEBUG in ('Y', 'C') THEN
2444: -- not be any actions associated with an on-account application.
2445: --
2446: IF PG_DEBUG in ('Y', 'C') THEN
2447: arp_standard.debug('validate_args: ' || 'l_status in app_delete IS' );
2448: arp_standard.debug('validate_args: ' || l_status );
2449: END IF;
2450: IF ( l_status in ('ACC','OTHER ACC')) THEN
2451: IF PG_DEBUG in ('Y', 'C') THEN
2452: arp_standard.debug('validate_args: ' || 'No application action found - check_reversable ' );
2448: arp_standard.debug('validate_args: ' || l_status );
2449: END IF;
2450: IF ( l_status in ('ACC','OTHER ACC')) THEN
2451: IF PG_DEBUG in ('Y', 'C') THEN
2452: arp_standard.debug('validate_args: ' || 'No application action found - check_reversable ' );
2453: END IF;
2454: RETURN TRUE;
2455: END IF;
2456: --
2462: WHERE payment_schedule_id = l_ps_id
2463: AND associated_cash_receipt_id = l_ass_cr_id
2464: AND status = 'A';
2465: --
2466: -- arp_standard.debug( 'l_over_appln_flag in app_delete IS ' );
2467: -- arp_standard.debug( l_over_appln_flag );
2468: -- arp_standard.debug( ' l_adj_amount in app_delete IS' );
2469: -- arp_standard.debug( to_char( l_bal ) || ' ' );
2470: -- arp_standard.debug( to_char( l_adj_amount ) || ' ' );
2463: AND associated_cash_receipt_id = l_ass_cr_id
2464: AND status = 'A';
2465: --
2466: -- arp_standard.debug( 'l_over_appln_flag in app_delete IS ' );
2467: -- arp_standard.debug( l_over_appln_flag );
2468: -- arp_standard.debug( ' l_adj_amount in app_delete IS' );
2469: -- arp_standard.debug( to_char( l_bal ) || ' ' );
2470: -- arp_standard.debug( to_char( l_adj_amount ) || ' ' );
2471: -- arp_standard.debug( to_char( l_pmt ) || ' ');
2464: AND status = 'A';
2465: --
2466: -- arp_standard.debug( 'l_over_appln_flag in app_delete IS ' );
2467: -- arp_standard.debug( l_over_appln_flag );
2468: -- arp_standard.debug( ' l_adj_amount in app_delete IS' );
2469: -- arp_standard.debug( to_char( l_bal ) || ' ' );
2470: -- arp_standard.debug( to_char( l_adj_amount ) || ' ' );
2471: -- arp_standard.debug( to_char( l_pmt ) || ' ');
2472: -- arp_standard.debug( to_char( l_edisc ) || ' ');
2465: --
2466: -- arp_standard.debug( 'l_over_appln_flag in app_delete IS ' );
2467: -- arp_standard.debug( l_over_appln_flag );
2468: -- arp_standard.debug( ' l_adj_amount in app_delete IS' );
2469: -- arp_standard.debug( to_char( l_bal ) || ' ' );
2470: -- arp_standard.debug( to_char( l_adj_amount ) || ' ' );
2471: -- arp_standard.debug( to_char( l_pmt ) || ' ');
2472: -- arp_standard.debug( to_char( l_edisc ) || ' ');
2473: -- arp_standard.debug( to_char( l_udisc ) || ' ');
2466: -- arp_standard.debug( 'l_over_appln_flag in app_delete IS ' );
2467: -- arp_standard.debug( l_over_appln_flag );
2468: -- arp_standard.debug( ' l_adj_amount in app_delete IS' );
2469: -- arp_standard.debug( to_char( l_bal ) || ' ' );
2470: -- arp_standard.debug( to_char( l_adj_amount ) || ' ' );
2471: -- arp_standard.debug( to_char( l_pmt ) || ' ');
2472: -- arp_standard.debug( to_char( l_edisc ) || ' ');
2473: -- arp_standard.debug( to_char( l_udisc ) || ' ');
2474: -- arp_standard.debug( to_char( l_bal_org ) || ' ');
2467: -- arp_standard.debug( l_over_appln_flag );
2468: -- arp_standard.debug( ' l_adj_amount in app_delete IS' );
2469: -- arp_standard.debug( to_char( l_bal ) || ' ' );
2470: -- arp_standard.debug( to_char( l_adj_amount ) || ' ' );
2471: -- arp_standard.debug( to_char( l_pmt ) || ' ');
2472: -- arp_standard.debug( to_char( l_edisc ) || ' ');
2473: -- arp_standard.debug( to_char( l_udisc ) || ' ');
2474: -- arp_standard.debug( to_char( l_bal_org ) || ' ');
2475: --
2468: -- arp_standard.debug( ' l_adj_amount in app_delete IS' );
2469: -- arp_standard.debug( to_char( l_bal ) || ' ' );
2470: -- arp_standard.debug( to_char( l_adj_amount ) || ' ' );
2471: -- arp_standard.debug( to_char( l_pmt ) || ' ');
2472: -- arp_standard.debug( to_char( l_edisc ) || ' ');
2473: -- arp_standard.debug( to_char( l_udisc ) || ' ');
2474: -- arp_standard.debug( to_char( l_bal_org ) || ' ');
2475: --
2476: -- If overapplication is not allowed with the applications and
2469: -- arp_standard.debug( to_char( l_bal ) || ' ' );
2470: -- arp_standard.debug( to_char( l_adj_amount ) || ' ' );
2471: -- arp_standard.debug( to_char( l_pmt ) || ' ');
2472: -- arp_standard.debug( to_char( l_edisc ) || ' ');
2473: -- arp_standard.debug( to_char( l_udisc ) || ' ');
2474: -- arp_standard.debug( to_char( l_bal_org ) || ' ');
2475: --
2476: -- If overapplication is not allowed with the applications and
2477: -- if reversal would result in negative amount for the application
2470: -- arp_standard.debug( to_char( l_adj_amount ) || ' ' );
2471: -- arp_standard.debug( to_char( l_pmt ) || ' ');
2472: -- arp_standard.debug( to_char( l_edisc ) || ' ');
2473: -- arp_standard.debug( to_char( l_udisc ) || ' ');
2474: -- arp_standard.debug( to_char( l_bal_org ) || ' ');
2475: --
2476: -- If overapplication is not allowed with the applications and
2477: -- if reversal would result in negative amount for the application
2478: -- the return false
2491: IF ( l_over_appln_flag = 'N' AND
2492: (( l_bal - l_adj_amount + l_pmt + l_edisc + l_udisc ) <> 0) AND
2493: (sign( l_bal - l_adj_amount + l_pmt + l_edisc + l_udisc ) <> sign(l_bal_org))) THEN
2494: IF PG_DEBUG in ('Y', 'C') THEN
2495: arp_standard.debug('validate_args: ' || 'Reversal Application amount will have sign opposite to original amount' );
2496: END IF;
2497:
2498: RETURN FALSE;
2499: END IF;
2509: AND b.customer_trx_id(+) = a.chargeback_customer_trx_id
2510: AND b.customer_trx_id is NULL;
2511: --
2512: IF PG_DEBUG in ('Y', 'C') THEN
2513: arp_standard.debug('validate_args: ' || 'lb_count IS ' );
2514: arp_standard.debug('validate_args: ' || to_char( l_cb_count ) );
2515: END IF;
2516: --
2517: -- Validate chargebacks
2510: AND b.customer_trx_id is NULL;
2511: --
2512: IF PG_DEBUG in ('Y', 'C') THEN
2513: arp_standard.debug('validate_args: ' || 'lb_count IS ' );
2514: arp_standard.debug('validate_args: ' || to_char( l_cb_count ) );
2515: END IF;
2516: --
2517: -- Validate chargebacks
2518: --
2541: AND chargeback_customer_trx_id iS NULL;
2542: --
2543: IF ( l_cb_count = 0 AND l_adj_amt = 0 AND l_pend_amt = 0 ) THEN
2544: IF PG_DEBUG in ('Y', 'C') THEN
2545: arp_standard.debug('validate_args: ' || 'No data found in ADJ table - check_reversable ' );
2546: END IF;
2547: RETURN TRUE;
2548: END IF;
2549: --
2548: END IF;
2549: --
2550: IF ( l_cb_count <> 0 ) THEN
2551: IF PG_DEBUG in ('Y', 'C') THEN
2552: arp_standard.debug('validate_args: ' || 'Inside l_cb_count <> 0' );
2553: END IF;
2554: IF ( arp_process_chargeback.validate_cb_reversal( l_ps_id,
2555: l_ass_cr_id, l_cb_count, p_module_name,
2556: p_module_version ) <> TRUE ) THEN
2554: IF ( arp_process_chargeback.validate_cb_reversal( l_ps_id,
2555: l_ass_cr_id, l_cb_count, p_module_name,
2556: p_module_version ) <> TRUE ) THEN
2557: IF PG_DEBUG in ('Y', 'C') THEN
2558: arp_standard.debug('validate_args: ' || 'validate_cb_reversal failed' );
2559: END IF;
2560: RETURN FALSE;
2561: END IF;
2562: END IF;
2560: RETURN FALSE;
2561: END IF;
2562: END IF;
2563: IF PG_DEBUG in ('Y', 'C') THEN
2564: arp_standard.debug('validate_args: ' || 'after validate_cb_reversal in app_delete' );
2565: END IF;
2566: --
2567: /**** FOR l_adj_rec IN ar_adjustments_C( l_ps_id, l_ass_cr_id )
2568: LOOP
2566: --
2567: /**** FOR l_adj_rec IN ar_adjustments_C( l_ps_id, l_ass_cr_id )
2568: LOOP
2569: IF PG_DEBUG in ('Y', 'C') THEN
2570: arp_standard.debug('validate_args: ' || 'inside for ar_adjustments_C in app_delete' );
2571: END IF;
2572: IF ( validate_cb_reversal(
2573: l_adj_rec.chargeback_customer_trx_id, l_cb_count
2574: p_module_name, p_module_version ) <> TRUE ) THEN
2573: l_adj_rec.chargeback_customer_trx_id, l_cb_count
2574: p_module_name, p_module_version ) <> TRUE ) THEN
2575: RETURN FALSE;
2576: IF PG_DEBUG in ('Y', 'C') THEN
2577: arp_standard.debug('validate_args: ' || 'after validate_cb_reversal in app_delete' );
2578: END IF;
2579: END IF;
2580: END LOOP; ****/
2581: --
2591: AND adj.chargeback_customer_trx_id = ps.customer_trx_id(+)
2592: FOR UPDATE OF ps.last_updated_by,adj.last_updated_by NOWAIT; */
2593: --
2594: IF PG_DEBUG in ('Y', 'C') THEN
2595: arp_standard.debug('validate_args: ' || 'arp_process_application.check_reversable()-' );
2596: END IF;
2597: RETURN TRUE;
2598: --
2599: EXCEPTION
2598: --
2599: EXCEPTION
2600: WHEN OTHERS THEN
2601: IF PG_DEBUG in ('Y', 'C') THEN
2602: arp_standard.debug('validate_args: ' ||
2603: 'EXCEPTION: arp_process_application.check_reversable - OTHER' );
2604: END IF;
2605: RAISE;
2606: END check_reversable;
2630: PROCEDURE validate_args_appdel(
2631: p_ra_id IN ar_receivable_applications.receivable_application_id%TYPE ) IS
2632: BEGIN
2633: IF PG_DEBUG in ('Y', 'C') THEN
2634: arp_standard.debug( 'arp_process_application.validate_args_appdel()+' );
2635: END IF;
2636: --
2637: IF ( p_ra_id is NULL ) THEN
2638: FND_MESSAGE.set_name ('AR', 'AR_ARGUEMENTS_FAIL' );
2639: APP_EXCEPTION.raise_exception;
2640: END IF;
2641: --
2642: IF PG_DEBUG in ('Y', 'C') THEN
2643: arp_standard.debug( 'arp_process_application.validate_args_appdel()-' );
2644: END IF;
2645: EXCEPTION
2646: WHEN OTHERS THEN
2647: IF PG_DEBUG in ('Y', 'C') THEN
2644: END IF;
2645: EXCEPTION
2646: WHEN OTHERS THEN
2647: IF PG_DEBUG in ('Y', 'C') THEN
2648: arp_standard.debug('validate_args: ' ||
2649: 'EXCEPTION: arp_process_application.validate_args_appdel' );
2650: END IF;
2651: RAISE;
2652: END validate_args_appdel;
2730: AND associated_application_id = p_ra_id --Bug2144783
2731: AND chargeback_customer_trx_id is null;
2732: BEGIN
2733: IF PG_DEBUG in ('Y', 'C') THEN
2734: arp_standard.debug( 'arp_process_application.reverse_action()+' );
2735: END IF;
2736: --
2737: IF PG_DEBUG in ('Y', 'C') THEN
2738: arp_standard.debug( to_char( p_ra_id ) );
2734: arp_standard.debug( 'arp_process_application.reverse_action()+' );
2735: END IF;
2736: --
2737: IF PG_DEBUG in ('Y', 'C') THEN
2738: arp_standard.debug( to_char( p_ra_id ) );
2739: arp_standard.debug( to_char( p_cr_id ) );
2740: arp_standard.debug( to_char( p_ps_id ) );
2741: END IF;
2742: --
2735: END IF;
2736: --
2737: IF PG_DEBUG in ('Y', 'C') THEN
2738: arp_standard.debug( to_char( p_ra_id ) );
2739: arp_standard.debug( to_char( p_cr_id ) );
2740: arp_standard.debug( to_char( p_ps_id ) );
2741: END IF;
2742: --
2743: IF PG_DEBUG in ('Y', 'C') THEN
2736: --
2737: IF PG_DEBUG in ('Y', 'C') THEN
2738: arp_standard.debug( to_char( p_ra_id ) );
2739: arp_standard.debug( to_char( p_cr_id ) );
2740: arp_standard.debug( to_char( p_ps_id ) );
2741: END IF;
2742: --
2743: IF PG_DEBUG in ('Y', 'C') THEN
2744: arp_standard.debug( 'inside BEGIN reverse_action in app_delete' );
2740: arp_standard.debug( to_char( p_ps_id ) );
2741: END IF;
2742: --
2743: IF PG_DEBUG in ('Y', 'C') THEN
2744: arp_standard.debug( 'inside BEGIN reverse_action in app_delete' );
2745: END IF;
2746: /** IF ( p_module_name IS NOT NULL AND p_module_version IS NOT NULL ) THEN
2747: validate_reverse_action_args( p_ra_id, p_cr_id, p_ps_id,
2748: p_reversal_gl_date, p_reversal_date,
2759: WHERE receivable_application_id = p_ra_id;
2760: EXCEPTION
2761: WHEN NO_DATA_FOUND THEN
2762: IF PG_DEBUG in ('Y', 'C') THEN
2763: arp_standard.debug( 'Select from ar_adjustments failed' );
2764: END IF;
2765: RETURN;
2766: END;
2767: ELSE
2772: -- Get the sum of approved and pending adjustments on the payment schedule
2773: -- This sum includes chargebacks amounts, too.
2774: --
2775: IF PG_DEBUG in ('Y', 'C') THEN
2776: arp_standard.debug( 'before SELECT NVL reverse_action in app_delete' );
2777: END IF;
2778: SELECT NVL( SUM( DECODE( status,
2779: 'A', amount,
2780: 0
2847: WHERE payment_schedule_id = l_ps_id
2848: AND associated_cash_receipt_id = l_ass_cr_id;
2849: --
2850: IF PG_DEBUG in ('Y', 'C') THEN
2851: arp_standard.debug( 'before for reverse_action in app_delete' );
2852: arp_standard.debug( to_char( l_ps_id ) );
2853: arp_standard.debug( to_char( l_ass_cr_id ) );
2854: END IF;
2855: FOR l_adj_rec IN ar_adjustments_C( l_ps_id, l_ass_cr_id )
2848: AND associated_cash_receipt_id = l_ass_cr_id;
2849: --
2850: IF PG_DEBUG in ('Y', 'C') THEN
2851: arp_standard.debug( 'before for reverse_action in app_delete' );
2852: arp_standard.debug( to_char( l_ps_id ) );
2853: arp_standard.debug( to_char( l_ass_cr_id ) );
2854: END IF;
2855: FOR l_adj_rec IN ar_adjustments_C( l_ps_id, l_ass_cr_id )
2856: LOOP
2849: --
2850: IF PG_DEBUG in ('Y', 'C') THEN
2851: arp_standard.debug( 'before for reverse_action in app_delete' );
2852: arp_standard.debug( to_char( l_ps_id ) );
2853: arp_standard.debug( to_char( l_ass_cr_id ) );
2854: END IF;
2855: FOR l_adj_rec IN ar_adjustments_C( l_ps_id, l_ass_cr_id )
2856: LOOP
2857: l_count := l_count + 1;
2855: FOR l_adj_rec IN ar_adjustments_C( l_ps_id, l_ass_cr_id )
2856: LOOP
2857: l_count := l_count + 1;
2858: IF PG_DEBUG in ('Y', 'C') THEN
2859: arp_standard.debug( 'inside for ar_adjustments_C in app_delete' );
2860: END IF;
2861: --
2862: -- reverse chargeback
2863: --
2865: l_adj_rec.chargeback_customer_trx_id,
2866: p_reversal_gl_date, p_reversal_date,
2867: p_module_name, p_module_version );
2868: IF PG_DEBUG in ('Y', 'C') THEN
2869: arp_standard.debug( 'after reverse_chargeback in app_delete' );
2870: END IF;
2871: --
2872: arp_process_adjustment.reverse_adjustment( l_adj_rec.adjustment_id,
2873: p_reversal_gl_date, p_reversal_date,
2872: arp_process_adjustment.reverse_adjustment( l_adj_rec.adjustment_id,
2873: p_reversal_gl_date, p_reversal_date,
2874: p_module_name, p_module_version );
2875: IF PG_DEBUG in ('Y', 'C') THEN
2876: arp_standard.debug(
2877: 'after ar_adjustment.reverse_adjustment in app_delete' );
2878: END IF;
2879: --
2880: UPDATE ra_customer_trx
2880: UPDATE ra_customer_trx
2881: SET status_trx = 'CL'
2882: WHERE customer_trx_id = l_adj_rec.chargeback_customer_trx_id;
2883: IF PG_DEBUG in ('Y', 'C') THEN
2884: arp_standard.debug( 'after UPDATE in app_delete ' );
2885: END IF;
2886: END LOOP;
2887: --
2888: IF PG_DEBUG in ('Y', 'C') THEN
2885: END IF;
2886: END LOOP;
2887: --
2888: IF PG_DEBUG in ('Y', 'C') THEN
2889: arp_standard.debug( 'before if ar_adjustments_C%ROWCOUNT in app_delete ' );
2890: END IF;
2891: IF ( l_count = 0 AND l_adj_amount = 0 AND
2892: l_app_rec.amount_adjusted_pending = 0 ) THEN
2893: IF PG_DEBUG in ('Y', 'C') THEN
2890: END IF;
2891: IF ( l_count = 0 AND l_adj_amount = 0 AND
2892: l_app_rec.amount_adjusted_pending = 0 ) THEN
2893: IF PG_DEBUG in ('Y', 'C') THEN
2894: arp_standard.debug(
2895: 'AR-ARMDAPP:Theres no actions associated with the appln');
2896: END IF;
2897: RETURN;
2898: END IF;
2900: -- Reverse adjustments , call armradj,
2901: -- select only adjustments that have not been rejected
2902: --
2903: IF PG_DEBUG in ('Y', 'C') THEN
2904: arp_standard.debug( 'before for ar_adjustments_radj_C in app_delete' );
2905: END IF;
2906: FOR l_adj_rec IN ar_adjustments_radj_C( l_ps_id, l_ass_cr_id )
2907: LOOP
2908: IF PG_DEBUG in ('Y', 'C') THEN
2905: END IF;
2906: FOR l_adj_rec IN ar_adjustments_radj_C( l_ps_id, l_ass_cr_id )
2907: LOOP
2908: IF PG_DEBUG in ('Y', 'C') THEN
2909: arp_standard.debug( 'inside for ar_adjustments_radj_C in app_delete' );
2910: END IF;
2911: arp_process_adjustment.reverse_adjustment( l_adj_rec.adjustment_id,
2912: p_reversal_gl_date,
2913: p_reversal_date,
2913: p_reversal_date,
2914: p_module_name,
2915: p_module_version );
2916: IF PG_DEBUG in ('Y', 'C') THEN
2917: arp_standard.debug(
2918: 'after AR_ADJUSTMENT.reverse_adjustmen in app_delete' );
2919: END IF;
2920: END LOOP;
2921: --
2921: --
2922: -- Call armups to update the payment schedule with approved adj
2923: --
2924: IF PG_DEBUG in ('Y', 'C') THEN
2925: arp_standard.debug(
2926: 'before SELECT NVL( amount_adjusted_pending in app_delete' );
2927: END IF;
2928: SELECT NVL( amount_adjusted_pending, 0 ) -
2929: NVL( l_app_rec.amount_adjusted_pending, 0)
2931: FROM ar_payment_schedules
2932: WHERE payment_schedule_id = l_ps_id;
2933: --
2934: IF PG_DEBUG in ('Y', 'C') THEN
2935: arp_standard.debug( 'before get_closed_dates in app_delete' );
2936: END IF;
2937: --
2938: -- Get closed dates to update payment schedule table
2939: --
2946: l_app_rec.trx_type := 'AR_ADJ';
2947: l_app_rec.user_id := FND_GLOBAL.user_id;
2948: --
2949: IF PG_DEBUG in ('Y', 'C') THEN
2950: arp_standard.debug( 'before update_reverse_actions in app_delete' );
2951: END IF;
2952: arp_ps_util.update_reverse_actions( l_app_rec, NULL, NULL );
2953: --
2954: IF PG_DEBUG in ('Y', 'C') THEN
2951: END IF;
2952: arp_ps_util.update_reverse_actions( l_app_rec, NULL, NULL );
2953: --
2954: IF PG_DEBUG in ('Y', 'C') THEN
2955: arp_standard.debug( 'arp_process_application.reverse_action()-' );
2956: END IF;
2957: EXCEPTION
2958: WHEN OTHERS THEN
2959: IF PG_DEBUG in ('Y', 'C') THEN
2956: END IF;
2957: EXCEPTION
2958: WHEN OTHERS THEN
2959: IF PG_DEBUG in ('Y', 'C') THEN
2960: arp_standard.debug(
2961: 'EXCEPTION: arp_process_application.reverse_action' );
2962: END IF;
2963: RAISE;
2964: END reverse_action;
2998: p_reversal_gl_date IN DATE, p_reversal_date IN DATE,
2999: p_select_flag IN BOOLEAN ) IS
3000: BEGIN
3001: IF PG_DEBUG in ('Y', 'C') THEN
3002: arp_standard.debug(
3003: 'arp_process_application.validate_reverse_action_args()+' );
3004: END IF;
3005: --
3006: IF ( p_ra_id IS NULL OR p_reversal_gl_date IS NULL OR
3016: END IF;
3017: END IF;
3018: --
3019: IF PG_DEBUG in ('Y', 'C') THEN
3020: arp_standard.debug( 'arp_process_application.validate_reverse_action_args()-' );
3021: END IF;
3022: EXCEPTION
3023: WHEN OTHERS THEN
3024: IF PG_DEBUG in ('Y', 'C') THEN
3021: END IF;
3022: EXCEPTION
3023: WHEN OTHERS THEN
3024: IF PG_DEBUG in ('Y', 'C') THEN
3025: arp_standard.debug(
3026: 'EXCEPTION: arp_process_application.validate_reverse_action_args' );
3027: END IF;
3028: RAISE;
3029: END validate_reverse_action_args;
3316: trade_mgt_err EXCEPTION; -- Bug 3773036
3317:
3318: BEGIN
3319: IF PG_DEBUG in ('Y', 'C') THEN
3320: arp_standard.debug( 'arp_process_application.receipt_application()+' );
3321: END IF;
3322:
3323: /* Bug 3773036: Initializing return status ..*/
3324: x_return_status := FND_API.G_RET_STS_SUCCESS;
3339: END IF;
3340:
3341: -- Output IN parameters
3342: IF PG_DEBUG in ('Y', 'C') THEN
3343: arp_standard.debug( 'Receipt PS Id : '||TO_CHAR( p_receipt_ps_id ) );
3344: arp_standard.debug( 'Invoice PS Id : '||TO_CHAR( p_invoice_ps_id ) );
3345: arp_standard.debug( 'Amount Applied : '||TO_CHAR( p_amount_applied ) );
3346: arp_standard.debug( 'Amount Applied From : '||TO_CHAR( p_amount_applied_from ) );
3347: arp_standard.debug( 'Trans to Receipt Rate : '||TO_CHAR( p_trans_to_receipt_rate ) );
3340:
3341: -- Output IN parameters
3342: IF PG_DEBUG in ('Y', 'C') THEN
3343: arp_standard.debug( 'Receipt PS Id : '||TO_CHAR( p_receipt_ps_id ) );
3344: arp_standard.debug( 'Invoice PS Id : '||TO_CHAR( p_invoice_ps_id ) );
3345: arp_standard.debug( 'Amount Applied : '||TO_CHAR( p_amount_applied ) );
3346: arp_standard.debug( 'Amount Applied From : '||TO_CHAR( p_amount_applied_from ) );
3347: arp_standard.debug( 'Trans to Receipt Rate : '||TO_CHAR( p_trans_to_receipt_rate ) );
3348: arp_standard.debug( 'Invoice Currency Code : '||p_invoice_currency_code );
3341: -- Output IN parameters
3342: IF PG_DEBUG in ('Y', 'C') THEN
3343: arp_standard.debug( 'Receipt PS Id : '||TO_CHAR( p_receipt_ps_id ) );
3344: arp_standard.debug( 'Invoice PS Id : '||TO_CHAR( p_invoice_ps_id ) );
3345: arp_standard.debug( 'Amount Applied : '||TO_CHAR( p_amount_applied ) );
3346: arp_standard.debug( 'Amount Applied From : '||TO_CHAR( p_amount_applied_from ) );
3347: arp_standard.debug( 'Trans to Receipt Rate : '||TO_CHAR( p_trans_to_receipt_rate ) );
3348: arp_standard.debug( 'Invoice Currency Code : '||p_invoice_currency_code );
3349: arp_standard.debug( 'Receipt Currency Code : '||p_receipt_currency_code );
3342: IF PG_DEBUG in ('Y', 'C') THEN
3343: arp_standard.debug( 'Receipt PS Id : '||TO_CHAR( p_receipt_ps_id ) );
3344: arp_standard.debug( 'Invoice PS Id : '||TO_CHAR( p_invoice_ps_id ) );
3345: arp_standard.debug( 'Amount Applied : '||TO_CHAR( p_amount_applied ) );
3346: arp_standard.debug( 'Amount Applied From : '||TO_CHAR( p_amount_applied_from ) );
3347: arp_standard.debug( 'Trans to Receipt Rate : '||TO_CHAR( p_trans_to_receipt_rate ) );
3348: arp_standard.debug( 'Invoice Currency Code : '||p_invoice_currency_code );
3349: arp_standard.debug( 'Receipt Currency Code : '||p_receipt_currency_code );
3350: arp_standard.debug( 'Earned Discount : '||TO_CHAR( p_earned_discount_taken ) );
3343: arp_standard.debug( 'Receipt PS Id : '||TO_CHAR( p_receipt_ps_id ) );
3344: arp_standard.debug( 'Invoice PS Id : '||TO_CHAR( p_invoice_ps_id ) );
3345: arp_standard.debug( 'Amount Applied : '||TO_CHAR( p_amount_applied ) );
3346: arp_standard.debug( 'Amount Applied From : '||TO_CHAR( p_amount_applied_from ) );
3347: arp_standard.debug( 'Trans to Receipt Rate : '||TO_CHAR( p_trans_to_receipt_rate ) );
3348: arp_standard.debug( 'Invoice Currency Code : '||p_invoice_currency_code );
3349: arp_standard.debug( 'Receipt Currency Code : '||p_receipt_currency_code );
3350: arp_standard.debug( 'Earned Discount : '||TO_CHAR( p_earned_discount_taken ) );
3351: arp_standard.debug( 'Unearned Discount : '||TO_CHAR( p_unearned_discount_taken ) );
3344: arp_standard.debug( 'Invoice PS Id : '||TO_CHAR( p_invoice_ps_id ) );
3345: arp_standard.debug( 'Amount Applied : '||TO_CHAR( p_amount_applied ) );
3346: arp_standard.debug( 'Amount Applied From : '||TO_CHAR( p_amount_applied_from ) );
3347: arp_standard.debug( 'Trans to Receipt Rate : '||TO_CHAR( p_trans_to_receipt_rate ) );
3348: arp_standard.debug( 'Invoice Currency Code : '||p_invoice_currency_code );
3349: arp_standard.debug( 'Receipt Currency Code : '||p_receipt_currency_code );
3350: arp_standard.debug( 'Earned Discount : '||TO_CHAR( p_earned_discount_taken ) );
3351: arp_standard.debug( 'Unearned Discount : '||TO_CHAR( p_unearned_discount_taken ) );
3352: arp_standard.debug( 'GL Date : '||TO_CHAR( p_gl_date ) );
3345: arp_standard.debug( 'Amount Applied : '||TO_CHAR( p_amount_applied ) );
3346: arp_standard.debug( 'Amount Applied From : '||TO_CHAR( p_amount_applied_from ) );
3347: arp_standard.debug( 'Trans to Receipt Rate : '||TO_CHAR( p_trans_to_receipt_rate ) );
3348: arp_standard.debug( 'Invoice Currency Code : '||p_invoice_currency_code );
3349: arp_standard.debug( 'Receipt Currency Code : '||p_receipt_currency_code );
3350: arp_standard.debug( 'Earned Discount : '||TO_CHAR( p_earned_discount_taken ) );
3351: arp_standard.debug( 'Unearned Discount : '||TO_CHAR( p_unearned_discount_taken ) );
3352: arp_standard.debug( 'GL Date : '||TO_CHAR( p_gl_date ) );
3353: arp_standard.debug( 'Apply Date : '||TO_CHAR( p_apply_date ) );
3346: arp_standard.debug( 'Amount Applied From : '||TO_CHAR( p_amount_applied_from ) );
3347: arp_standard.debug( 'Trans to Receipt Rate : '||TO_CHAR( p_trans_to_receipt_rate ) );
3348: arp_standard.debug( 'Invoice Currency Code : '||p_invoice_currency_code );
3349: arp_standard.debug( 'Receipt Currency Code : '||p_receipt_currency_code );
3350: arp_standard.debug( 'Earned Discount : '||TO_CHAR( p_earned_discount_taken ) );
3351: arp_standard.debug( 'Unearned Discount : '||TO_CHAR( p_unearned_discount_taken ) );
3352: arp_standard.debug( 'GL Date : '||TO_CHAR( p_gl_date ) );
3353: arp_standard.debug( 'Apply Date : '||TO_CHAR( p_apply_date ) );
3354: arp_standard.debug( 'Customer Trx Line Id : '||TO_CHAR( p_customer_trx_line_id ) );
3347: arp_standard.debug( 'Trans to Receipt Rate : '||TO_CHAR( p_trans_to_receipt_rate ) );
3348: arp_standard.debug( 'Invoice Currency Code : '||p_invoice_currency_code );
3349: arp_standard.debug( 'Receipt Currency Code : '||p_receipt_currency_code );
3350: arp_standard.debug( 'Earned Discount : '||TO_CHAR( p_earned_discount_taken ) );
3351: arp_standard.debug( 'Unearned Discount : '||TO_CHAR( p_unearned_discount_taken ) );
3352: arp_standard.debug( 'GL Date : '||TO_CHAR( p_gl_date ) );
3353: arp_standard.debug( 'Apply Date : '||TO_CHAR( p_apply_date ) );
3354: arp_standard.debug( 'Customer Trx Line Id : '||TO_CHAR( p_customer_trx_line_id ) );
3355: END IF;
3348: arp_standard.debug( 'Invoice Currency Code : '||p_invoice_currency_code );
3349: arp_standard.debug( 'Receipt Currency Code : '||p_receipt_currency_code );
3350: arp_standard.debug( 'Earned Discount : '||TO_CHAR( p_earned_discount_taken ) );
3351: arp_standard.debug( 'Unearned Discount : '||TO_CHAR( p_unearned_discount_taken ) );
3352: arp_standard.debug( 'GL Date : '||TO_CHAR( p_gl_date ) );
3353: arp_standard.debug( 'Apply Date : '||TO_CHAR( p_apply_date ) );
3354: arp_standard.debug( 'Customer Trx Line Id : '||TO_CHAR( p_customer_trx_line_id ) );
3355: END IF;
3356:
3349: arp_standard.debug( 'Receipt Currency Code : '||p_receipt_currency_code );
3350: arp_standard.debug( 'Earned Discount : '||TO_CHAR( p_earned_discount_taken ) );
3351: arp_standard.debug( 'Unearned Discount : '||TO_CHAR( p_unearned_discount_taken ) );
3352: arp_standard.debug( 'GL Date : '||TO_CHAR( p_gl_date ) );
3353: arp_standard.debug( 'Apply Date : '||TO_CHAR( p_apply_date ) );
3354: arp_standard.debug( 'Customer Trx Line Id : '||TO_CHAR( p_customer_trx_line_id ) );
3355: END IF;
3356:
3357: -----------------------------------------------------
3350: arp_standard.debug( 'Earned Discount : '||TO_CHAR( p_earned_discount_taken ) );
3351: arp_standard.debug( 'Unearned Discount : '||TO_CHAR( p_unearned_discount_taken ) );
3352: arp_standard.debug( 'GL Date : '||TO_CHAR( p_gl_date ) );
3353: arp_standard.debug( 'Apply Date : '||TO_CHAR( p_apply_date ) );
3354: arp_standard.debug( 'Customer Trx Line Id : '||TO_CHAR( p_customer_trx_line_id ) );
3355: END IF;
3356:
3357: -----------------------------------------------------
3358: -- KML 10/17/1996
3652: l_from_llca_call := from_llca_call;
3653: --{HYULLCA
3654: -- Not LLCA current process
3655: IF l_from_llca_call = 'N' THEN
3656: arp_standard.debug(' LLCA application commit by pass maintenance of the invoice ps done by LLCA back ground');
3657:
3658: -- 5569488, for receipt where confirmation is required, pass the cash_receipt_id
3659: IF NULL_VAR.cash_receipt_id IS NULL AND NVL(p_called_from,'NONE') = 'AUTORECAPI' THEN
3660: NULL_VAR.cash_receipt_id := l_rec_ra_rec.cash_receipt_id ;
3693: p_acctd_amount_applied_to := l_inv_ra_rec.acctd_amount_applied_to;
3694:
3695: ELSE -- LLCA = 'Y'
3696:
3697: arp_standard.debug(' LLCA application commit');
3698:
3699: arp_process_det_pkg.get_app_ra_amounts
3700: (p_gt_id => l_gt_id,
3701: x_ra_rec => l_inv_ra_rec);
3699: arp_process_det_pkg.get_app_ra_amounts
3700: (p_gt_id => l_gt_id,
3701: x_ra_rec => l_inv_ra_rec);
3702:
3703: arp_standard.debug(' Ra_id in GT from LLCA l_inv_ra_rec.receivable_application_id :'||l_inv_ra_rec.receivable_application_id);
3704:
3705: p_acctd_amount_applied_to := l_inv_ra_rec.acctd_amount_applied_to; /* 5189370 */
3706:
3707: END IF;
3933: /* 5677984 - copy l_ra_app_id into l_inv_ra_rec to preserve it for
3934: later processing */
3935: l_inv_ra_rec.receivable_application_id := l_ra_app_id;
3936:
3937: arp_standard.debug('Calling arp_app_pkg.insert_p and created l_inv_ra_rec.receivable_application_id :'||
3938: l_inv_ra_rec.receivable_application_id);
3939:
3940: --apandit
3941: --Bug : 2641517 raise Apply business event.
3971: THEN
3972: /* overriding flag */
3973: l_from_llca_call := 'Y';
3974: IF PG_DEBUG in ('Y', 'C') THEN
3975: arp_standard.debug('from_llca_call was N (not line level), overriding to Y');
3976: arp_standard.debug(' l_gt_id = ' || l_gt_id);
3977: END IF;
3978:
3979: /* 4607809 - distribute recoverable entries before acct_main call */
3972: /* overriding flag */
3973: l_from_llca_call := 'Y';
3974: IF PG_DEBUG in ('Y', 'C') THEN
3975: arp_standard.debug('from_llca_call was N (not line level), overriding to Y');
3976: arp_standard.debug(' l_gt_id = ' || l_gt_id);
3977: END IF;
3978:
3979: /* 4607809 - distribute recoverable entries before acct_main call */
3980: arp_etax_util.distribute_recoverable(
4033: */ /* End FP Bug 5594328 SPDIXIT */
4034:
4035: END IF;
4036:
4037: arp_standard.debug('l_rec_ra_rec.receivable_application_id:'||l_rec_ra_rec.receivable_application_id);
4038: arp_standard.debug('l_inv_ra_rec.receivable_application_id:'||l_inv_ra_rec.receivable_application_id);
4039:
4040: IF l_rec_ra_rec.receivable_application_id IS NOT NULL THEN
4041: l_xla_ev_rec.xla_from_doc_id := l_rec_ra_rec.receivable_application_id;
4034:
4035: END IF;
4036:
4037: arp_standard.debug('l_rec_ra_rec.receivable_application_id:'||l_rec_ra_rec.receivable_application_id);
4038: arp_standard.debug('l_inv_ra_rec.receivable_application_id:'||l_inv_ra_rec.receivable_application_id);
4039:
4040: IF l_rec_ra_rec.receivable_application_id IS NOT NULL THEN
4041: l_xla_ev_rec.xla_from_doc_id := l_rec_ra_rec.receivable_application_id;
4042: l_xla_ev_rec.xla_to_doc_id := l_rec_ra_rec.receivable_application_id;
4140: -- call revenue management engine's receipt analyzer for revenue related
4141: -- impact of this application.
4142:
4143: IF PG_DEBUG in ('Y', 'C') THEN
4144: arp_standard.debug( 'calling receipt_analyzer in application mode');
4145: END IF;
4146:
4147: ar_revenue_management_pvt.receipt_analyzer (
4148: p_mode => ar_revenue_management_pvt.c_receipt_application_mode,
4156: p_line_applied => l_inv_ra_rec.line_applied,
4157: p_gl_date => p_gl_date);
4158:
4159: IF PG_DEBUG in ('Y', 'C') THEN
4160: arp_standard.debug( 'returned from receipt_analyzer');
4161: END IF;
4162:
4163: -- RAM-C changes end
4164:
4162:
4163: -- RAM-C changes end
4164:
4165: IF PG_DEBUG in ('Y', 'C') THEN
4166: arp_standard.debug( 'arp_process_application.receipt_application()-' );
4167: END IF;
4168:
4169: EXCEPTION
4170: /* Bug 3773036 - Trade management errors treated separately to
4170: /* Bug 3773036 - Trade management errors treated separately to
4171: ensure calling program displays TM error */
4172: WHEN trade_mgt_err THEN
4173: IF PG_DEBUG in ('Y', 'C') THEN
4174: arp_standard.debug('Error occured in Trade Management: ' ||
4175: 'EXCEPTION: arp_process_application.receipt_application' );
4176: END IF;
4177: WHEN OTHERS THEN
4178: IF PG_DEBUG in ('Y', 'C') THEN
4175: 'EXCEPTION: arp_process_application.receipt_application' );
4176: END IF;
4177: WHEN OTHERS THEN
4178: IF PG_DEBUG in ('Y', 'C') THEN
4179: arp_standard.debug(
4180: 'EXCEPTION: arp_process_application.receipt_application' );
4181: END IF;
4182: RAISE;
4183: END receipt_application;
4232: p_apply_date IN ar_receivable_applications.apply_date%TYPE,
4233: p_gl_date IN ar_receivable_applications.gl_date%TYPE ) IS
4234: BEGIN
4235: IF PG_DEBUG in ('Y', 'C') THEN
4236: arp_standard.debug( 'arp_process_application.validate_receipt_appln_args()+' );
4237: END IF;
4238:
4239: -- Check for mandatory parameters.
4240: IF ( p_receipt_ps_id IS NULL OR
4267: END IF;
4268:
4269:
4270: IF PG_DEBUG in ('Y', 'C') THEN
4271: arp_standard.debug( 'arp_process_application.validate_receipt_appln_args()-' );
4272: END IF;
4273:
4274: EXCEPTION
4275: WHEN OTHERS THEN
4273:
4274: EXCEPTION
4275: WHEN OTHERS THEN
4276: IF PG_DEBUG in ('Y', 'C') THEN
4277: arp_standard.debug( 'EXCEPTION: arp_process_application.validate_receipt_appln_args' );
4278: END IF;
4279: RAISE;
4280: END validate_receipt_appln_args;
4281: --
4414: l_xla_doc_table VARCHAR2(20);
4415:
4416: BEGIN
4417: IF PG_DEBUG in ('Y', 'C') THEN
4418: arp_standard.debug( 'arp_process_application.cm_application()+' );
4419: END IF;
4420:
4421: -- Output IN parameters
4422: IF PG_DEBUG in ('Y', 'C') THEN
4419: END IF;
4420:
4421: -- Output IN parameters
4422: IF PG_DEBUG in ('Y', 'C') THEN
4423: arp_standard.debug( 'CM PS Id. : '||TO_CHAR( p_cm_ps_id ) );
4424: arp_standard.debug( 'Invoice PS Id. : '||TO_CHAR( p_invoice_ps_id ) );
4425: arp_standard.debug( 'Amount Applied : '||TO_CHAR( p_amount_applied ) );
4426: arp_standard.debug( 'Gl Date : '||TO_CHAR( p_gl_date ) );
4427: arp_standard.debug( 'Apply Date : '||TO_CHAR( p_apply_date ) );
4420:
4421: -- Output IN parameters
4422: IF PG_DEBUG in ('Y', 'C') THEN
4423: arp_standard.debug( 'CM PS Id. : '||TO_CHAR( p_cm_ps_id ) );
4424: arp_standard.debug( 'Invoice PS Id. : '||TO_CHAR( p_invoice_ps_id ) );
4425: arp_standard.debug( 'Amount Applied : '||TO_CHAR( p_amount_applied ) );
4426: arp_standard.debug( 'Gl Date : '||TO_CHAR( p_gl_date ) );
4427: arp_standard.debug( 'Apply Date : '||TO_CHAR( p_apply_date ) );
4428: arp_standard.debug( 'Customer_trx_line_id : '||TO_CHAR(p_customer_trx_line_id));
4421: -- Output IN parameters
4422: IF PG_DEBUG in ('Y', 'C') THEN
4423: arp_standard.debug( 'CM PS Id. : '||TO_CHAR( p_cm_ps_id ) );
4424: arp_standard.debug( 'Invoice PS Id. : '||TO_CHAR( p_invoice_ps_id ) );
4425: arp_standard.debug( 'Amount Applied : '||TO_CHAR( p_amount_applied ) );
4426: arp_standard.debug( 'Gl Date : '||TO_CHAR( p_gl_date ) );
4427: arp_standard.debug( 'Apply Date : '||TO_CHAR( p_apply_date ) );
4428: arp_standard.debug( 'Customer_trx_line_id : '||TO_CHAR(p_customer_trx_line_id));
4429: END IF;
4422: IF PG_DEBUG in ('Y', 'C') THEN
4423: arp_standard.debug( 'CM PS Id. : '||TO_CHAR( p_cm_ps_id ) );
4424: arp_standard.debug( 'Invoice PS Id. : '||TO_CHAR( p_invoice_ps_id ) );
4425: arp_standard.debug( 'Amount Applied : '||TO_CHAR( p_amount_applied ) );
4426: arp_standard.debug( 'Gl Date : '||TO_CHAR( p_gl_date ) );
4427: arp_standard.debug( 'Apply Date : '||TO_CHAR( p_apply_date ) );
4428: arp_standard.debug( 'Customer_trx_line_id : '||TO_CHAR(p_customer_trx_line_id));
4429: END IF;
4430:
4423: arp_standard.debug( 'CM PS Id. : '||TO_CHAR( p_cm_ps_id ) );
4424: arp_standard.debug( 'Invoice PS Id. : '||TO_CHAR( p_invoice_ps_id ) );
4425: arp_standard.debug( 'Amount Applied : '||TO_CHAR( p_amount_applied ) );
4426: arp_standard.debug( 'Gl Date : '||TO_CHAR( p_gl_date ) );
4427: arp_standard.debug( 'Apply Date : '||TO_CHAR( p_apply_date ) );
4428: arp_standard.debug( 'Customer_trx_line_id : '||TO_CHAR(p_customer_trx_line_id));
4429: END IF;
4430:
4431: -----------------------------------------------------
4424: arp_standard.debug( 'Invoice PS Id. : '||TO_CHAR( p_invoice_ps_id ) );
4425: arp_standard.debug( 'Amount Applied : '||TO_CHAR( p_amount_applied ) );
4426: arp_standard.debug( 'Gl Date : '||TO_CHAR( p_gl_date ) );
4427: arp_standard.debug( 'Apply Date : '||TO_CHAR( p_apply_date ) );
4428: arp_standard.debug( 'Customer_trx_line_id : '||TO_CHAR(p_customer_trx_line_id));
4429: END IF;
4430:
4431: -----------------------------------------------------
4432: -- KML 10/17/1996
4705: -- Return the new receivable_application_id
4706: p_out_rec_application_id := l_inv_ra_rec.receivable_application_id;
4707:
4708: IF PG_DEBUG in ('Y', 'C') THEN
4709: arp_standard.debug( 'arp_process_application.cm_application()-' );
4710: END IF;
4711:
4712: EXCEPTION
4713: WHEN OTHERS THEN
4711:
4712: EXCEPTION
4713: WHEN OTHERS THEN
4714: IF PG_DEBUG in ('Y', 'C') THEN
4715: arp_standard.debug(
4716: 'EXCEPTION: arp_process_application.cm_application' );
4717: END IF;
4718: RAISE;
4719: END cm_application;
4752: p_apply_date IN ar_receivable_applications.apply_date%TYPE,
4753: p_gl_date IN ar_receivable_applications.gl_date%TYPE ) IS
4754: BEGIN
4755: IF PG_DEBUG in ('Y', 'C') THEN
4756: arp_standard.debug(
4757: 'arp_process_application.validate_cm_appln_args()+' );
4758: END IF;
4759: --
4760: IF ( p_cm_ps_id IS NULL OR p_invoice_ps_id IS NULL OR
4764: APP_EXCEPTION.raise_exception;
4765: END IF;
4766: --
4767: IF PG_DEBUG in ('Y', 'C') THEN
4768: arp_standard.debug(
4769: 'arp_process_application.validate_cm_appln_args()-' );
4770: END IF;
4771: EXCEPTION
4772: WHEN OTHERS THEN
4770: END IF;
4771: EXCEPTION
4772: WHEN OTHERS THEN
4773: IF PG_DEBUG in ('Y', 'C') THEN
4774: arp_standard.debug(
4775: 'EXCEPTION: arp_process_application.validate_cm_appln_args' );
4776: END IF;
4777: RAISE;
4778: END validate_cm_appln_args;
4919: l_xla_doc_table VARCHAR2(20);
4920:
4921: BEGIN
4922: IF PG_DEBUG in ('Y', 'C') THEN
4923: arp_standard.debug( 'arp_process_application.on_account_receipts()+' );
4924: arp_standard.debug( '-- p_receipt_ps_id = '||TO_CHAR(p_receipt_ps_id));
4925: arp_standard.debug( '-- p_amount_applied = '||
4926: TO_CHAR( p_amount_applied ) );
4927: arp_standard.debug( '-- p_gl_date = '|| TO_CHAR( p_gl_date ) );
4920:
4921: BEGIN
4922: IF PG_DEBUG in ('Y', 'C') THEN
4923: arp_standard.debug( 'arp_process_application.on_account_receipts()+' );
4924: arp_standard.debug( '-- p_receipt_ps_id = '||TO_CHAR(p_receipt_ps_id));
4925: arp_standard.debug( '-- p_amount_applied = '||
4926: TO_CHAR( p_amount_applied ) );
4927: arp_standard.debug( '-- p_gl_date = '|| TO_CHAR( p_gl_date ) );
4928: arp_standard.debug( '-- p_apply_date = '|| TO_CHAR( p_apply_date ) );
4921: BEGIN
4922: IF PG_DEBUG in ('Y', 'C') THEN
4923: arp_standard.debug( 'arp_process_application.on_account_receipts()+' );
4924: arp_standard.debug( '-- p_receipt_ps_id = '||TO_CHAR(p_receipt_ps_id));
4925: arp_standard.debug( '-- p_amount_applied = '||
4926: TO_CHAR( p_amount_applied ) );
4927: arp_standard.debug( '-- p_gl_date = '|| TO_CHAR( p_gl_date ) );
4928: arp_standard.debug( '-- p_apply_date = '|| TO_CHAR( p_apply_date ) );
4929: END IF;
4923: arp_standard.debug( 'arp_process_application.on_account_receipts()+' );
4924: arp_standard.debug( '-- p_receipt_ps_id = '||TO_CHAR(p_receipt_ps_id));
4925: arp_standard.debug( '-- p_amount_applied = '||
4926: TO_CHAR( p_amount_applied ) );
4927: arp_standard.debug( '-- p_gl_date = '|| TO_CHAR( p_gl_date ) );
4928: arp_standard.debug( '-- p_apply_date = '|| TO_CHAR( p_apply_date ) );
4929: END IF;
4930: --
4931: IF ( p_module_name IS NOT NULL AND p_module_version IS NOT NULL ) THEN
4924: arp_standard.debug( '-- p_receipt_ps_id = '||TO_CHAR(p_receipt_ps_id));
4925: arp_standard.debug( '-- p_amount_applied = '||
4926: TO_CHAR( p_amount_applied ) );
4927: arp_standard.debug( '-- p_gl_date = '|| TO_CHAR( p_gl_date ) );
4928: arp_standard.debug( '-- p_apply_date = '|| TO_CHAR( p_apply_date ) );
4929: END IF;
4930: --
4931: IF ( p_module_name IS NOT NULL AND p_module_version IS NOT NULL ) THEN
4932: validate_on_account_args( p_receipt_ps_id, p_amount_applied,
4993: functional_curr,
4994: l_ps_rec.exchange_rate,
4995: NULL, NULL );
4996: IF PG_DEBUG in ('Y', 'C') THEN
4997: arp_standard.debug( 'acctd_amount_applied_from = '||
4998: TO_CHAR( l_ra_rec.acctd_amount_applied_from ) );
4999: END IF;
5000: --
5001: l_ra_rec.status := 'UNAPP';
5162: -- Cash receipt must be fully applied in order to set the status
5163: -- to 'Applied'.
5164: -- ---------------------------------------------------------------------
5165: IF PG_DEBUG in ('Y', 'C') THEN
5166: arp_standard.debug ( '-- Defining receipt status ...');
5167: arp_standard.debug ( '-- p_amount_applied = '||to_char(p_amount_applied));
5168: arp_standard.debug ( '-- l_amount_due_remaining = '||
5169: to_char(l_amount_due_remaining));
5170: END IF;
5163: -- to 'Applied'.
5164: -- ---------------------------------------------------------------------
5165: IF PG_DEBUG in ('Y', 'C') THEN
5166: arp_standard.debug ( '-- Defining receipt status ...');
5167: arp_standard.debug ( '-- p_amount_applied = '||to_char(p_amount_applied));
5168: arp_standard.debug ( '-- l_amount_due_remaining = '||
5169: to_char(l_amount_due_remaining));
5170: END IF;
5171:
5164: -- ---------------------------------------------------------------------
5165: IF PG_DEBUG in ('Y', 'C') THEN
5166: arp_standard.debug ( '-- Defining receipt status ...');
5167: arp_standard.debug ( '-- p_amount_applied = '||to_char(p_amount_applied));
5168: arp_standard.debug ( '-- l_amount_due_remaining = '||
5169: to_char(l_amount_due_remaining));
5170: END IF;
5171:
5172: -- Determine if the receipt has been fully applied.
5181: l_cr_rec.status := 'APP';
5182: END IF;
5183:
5184: IF PG_DEBUG in ('Y', 'C') THEN
5185: arp_standard.debug ( '-- status = '|| l_cr_rec.status);
5186: END IF;
5187:
5188: l_cr_rec.cash_receipt_id := l_ra_rec.cash_receipt_id;
5189:
5205: -- ---------------------------------------------------------------------
5206: p_out_rec_application_id := l_ra_rec.receivable_application_id;
5207:
5208: IF PG_DEBUG in ('Y', 'C') THEN
5209: arp_standard.debug(
5210: 'arp_process_application.on_account_receipts()-' );
5211: END IF;
5212: EXCEPTION
5213: WHEN OTHERS THEN
5211: END IF;
5212: EXCEPTION
5213: WHEN OTHERS THEN
5214: IF PG_DEBUG in ('Y', 'C') THEN
5215: arp_standard.debug(
5216: 'EXCEPTION: arp_process_application.on_account_receipts' );
5217: END IF;
5218: RAISE;
5219:
5251: p_apply_date IN ar_receivable_applications.apply_date%TYPE,
5252: p_gl_date IN ar_receivable_applications.gl_date%TYPE ) IS
5253: BEGIN
5254: IF PG_DEBUG in ('Y', 'C') THEN
5255: arp_standard.debug(
5256: 'arp_process_application.validate_on_account_args()+' );
5257: END IF;
5258: --
5259: IF ( p_ps_id IS NULL OR p_apply_date IS NULL OR
5262: APP_EXCEPTION.raise_exception;
5263: END IF;
5264: --
5265: IF PG_DEBUG in ('Y', 'C') THEN
5266: arp_standard.debug(
5267: 'arp_process_application.validate_on_account_args()-' );
5268: END IF;
5269: EXCEPTION
5270: WHEN OTHERS THEN
5268: END IF;
5269: EXCEPTION
5270: WHEN OTHERS THEN
5271: IF PG_DEBUG in ('Y', 'C') THEN
5272: arp_standard.debug(
5273: 'EXCEPTION: arp_process_application.validate_on_account_args' );
5274: END IF;
5275: RAISE;
5276: END validate_on_account_args;
5541: l_pymnt_trxn_ext_id_temp ar_cash_receipts.payment_trxn_extension_id%TYPE;
5542:
5543: BEGIN
5544: IF PG_DEBUG in ('Y', 'C') THEN
5545: arp_standard.debug( 'arp_process_application.activity_application()+' );
5546: arp_standard.debug( '-- p_receipt_ps_id = '||TO_CHAR(p_receipt_ps_id));
5547: arp_standard.debug( '-- p_application_ps_id = '||TO_CHAR(p_application_ps_id));
5548: arp_standard.debug( '-- p_link_to_customer_trx_id = '||
5549: TO_CHAR(p_link_to_customer_trx_id));
5542:
5543: BEGIN
5544: IF PG_DEBUG in ('Y', 'C') THEN
5545: arp_standard.debug( 'arp_process_application.activity_application()+' );
5546: arp_standard.debug( '-- p_receipt_ps_id = '||TO_CHAR(p_receipt_ps_id));
5547: arp_standard.debug( '-- p_application_ps_id = '||TO_CHAR(p_application_ps_id));
5548: arp_standard.debug( '-- p_link_to_customer_trx_id = '||
5549: TO_CHAR(p_link_to_customer_trx_id));
5550: arp_standard.debug( '-- p_amount_applied = '||TO_CHAR( p_amount_applied ) );
5543: BEGIN
5544: IF PG_DEBUG in ('Y', 'C') THEN
5545: arp_standard.debug( 'arp_process_application.activity_application()+' );
5546: arp_standard.debug( '-- p_receipt_ps_id = '||TO_CHAR(p_receipt_ps_id));
5547: arp_standard.debug( '-- p_application_ps_id = '||TO_CHAR(p_application_ps_id));
5548: arp_standard.debug( '-- p_link_to_customer_trx_id = '||
5549: TO_CHAR(p_link_to_customer_trx_id));
5550: arp_standard.debug( '-- p_amount_applied = '||TO_CHAR( p_amount_applied ) );
5551: arp_standard.debug( '-- p_gl_date = '|| TO_CHAR( p_gl_date ) );
5544: IF PG_DEBUG in ('Y', 'C') THEN
5545: arp_standard.debug( 'arp_process_application.activity_application()+' );
5546: arp_standard.debug( '-- p_receipt_ps_id = '||TO_CHAR(p_receipt_ps_id));
5547: arp_standard.debug( '-- p_application_ps_id = '||TO_CHAR(p_application_ps_id));
5548: arp_standard.debug( '-- p_link_to_customer_trx_id = '||
5549: TO_CHAR(p_link_to_customer_trx_id));
5550: arp_standard.debug( '-- p_amount_applied = '||TO_CHAR( p_amount_applied ) );
5551: arp_standard.debug( '-- p_gl_date = '|| TO_CHAR( p_gl_date ) );
5552: arp_standard.debug( '-- p_receivables_trx_id = '||
5546: arp_standard.debug( '-- p_receipt_ps_id = '||TO_CHAR(p_receipt_ps_id));
5547: arp_standard.debug( '-- p_application_ps_id = '||TO_CHAR(p_application_ps_id));
5548: arp_standard.debug( '-- p_link_to_customer_trx_id = '||
5549: TO_CHAR(p_link_to_customer_trx_id));
5550: arp_standard.debug( '-- p_amount_applied = '||TO_CHAR( p_amount_applied ) );
5551: arp_standard.debug( '-- p_gl_date = '|| TO_CHAR( p_gl_date ) );
5552: arp_standard.debug( '-- p_receivables_trx_id = '||
5553: TO_CHAR( p_receivables_trx_id ) );
5554: arp_standard.debug( '-- p_apply_date = '|| TO_CHAR( p_apply_date ) );
5547: arp_standard.debug( '-- p_application_ps_id = '||TO_CHAR(p_application_ps_id));
5548: arp_standard.debug( '-- p_link_to_customer_trx_id = '||
5549: TO_CHAR(p_link_to_customer_trx_id));
5550: arp_standard.debug( '-- p_amount_applied = '||TO_CHAR( p_amount_applied ) );
5551: arp_standard.debug( '-- p_gl_date = '|| TO_CHAR( p_gl_date ) );
5552: arp_standard.debug( '-- p_receivables_trx_id = '||
5553: TO_CHAR( p_receivables_trx_id ) );
5554: arp_standard.debug( '-- p_apply_date = '|| TO_CHAR( p_apply_date ) );
5555: END IF;
5548: arp_standard.debug( '-- p_link_to_customer_trx_id = '||
5549: TO_CHAR(p_link_to_customer_trx_id));
5550: arp_standard.debug( '-- p_amount_applied = '||TO_CHAR( p_amount_applied ) );
5551: arp_standard.debug( '-- p_gl_date = '|| TO_CHAR( p_gl_date ) );
5552: arp_standard.debug( '-- p_receivables_trx_id = '||
5553: TO_CHAR( p_receivables_trx_id ) );
5554: arp_standard.debug( '-- p_apply_date = '|| TO_CHAR( p_apply_date ) );
5555: END IF;
5556:
5550: arp_standard.debug( '-- p_amount_applied = '||TO_CHAR( p_amount_applied ) );
5551: arp_standard.debug( '-- p_gl_date = '|| TO_CHAR( p_gl_date ) );
5552: arp_standard.debug( '-- p_receivables_trx_id = '||
5553: TO_CHAR( p_receivables_trx_id ) );
5554: arp_standard.debug( '-- p_apply_date = '|| TO_CHAR( p_apply_date ) );
5555: END IF;
5556:
5557: /* Validate parameters */
5558:
5880: , min_acc_unit => NULL );
5881: END IF;
5882:
5883: IF PG_DEBUG in ('Y', 'C') THEN
5884: arp_standard.debug( 'acctd_amount_applied_from = '||TO_CHAR( l_ra_rec.acctd_amount_applied_from ) );
5885: arp_standard.debug( 'acctd_amount_applied_to = '||TO_CHAR( l_ra_rec.acctd_amount_applied_to ) );
5886: END IF;
5887:
5888: /* Fill in the UNAPP application information */
5881: END IF;
5882:
5883: IF PG_DEBUG in ('Y', 'C') THEN
5884: arp_standard.debug( 'acctd_amount_applied_from = '||TO_CHAR( l_ra_rec.acctd_amount_applied_from ) );
5885: arp_standard.debug( 'acctd_amount_applied_to = '||TO_CHAR( l_ra_rec.acctd_amount_applied_to ) );
5886: END IF;
5887:
5888: /* Fill in the UNAPP application information */
5889:
6037: l_xla_ev_rec.xla_doc_table := 'APP';
6038: ARP_XLA_EVENTS.create_events(p_xla_ev_rec => l_xla_ev_rec);
6039: END IF;
6040:
6041: arp_standard.debug('netted cash receipt id = ' || to_char(p_netted_cash_receipt_id));
6042: IF (p_receivables_trx_id = -16) THEN
6043: l_mc_application_ref_id := p_netted_cash_receipt_id;
6044: ELSE
6045: l_mc_application_ref_id := l_application_ref_id;
6124: * Cash receipt must be fully applied in order to set the status
6125: * to 'Applied'.
6126: * --------------------------------------------------------------------- */
6127: IF PG_DEBUG in ('Y', 'C') THEN
6128: arp_standard.debug ( '-- Defining receipt status ...');
6129: arp_standard.debug ( '-- p_amount_applied = '||to_char(p_amount_applied));
6130: arp_standard.debug ( '-- activity_rec.amount_due_remaining = '||to_char(activity_rec.amount_due_remaining));
6131: END IF;
6132:
6125: * to 'Applied'.
6126: * --------------------------------------------------------------------- */
6127: IF PG_DEBUG in ('Y', 'C') THEN
6128: arp_standard.debug ( '-- Defining receipt status ...');
6129: arp_standard.debug ( '-- p_amount_applied = '||to_char(p_amount_applied));
6130: arp_standard.debug ( '-- activity_rec.amount_due_remaining = '||to_char(activity_rec.amount_due_remaining));
6131: END IF;
6132:
6133:
6126: * --------------------------------------------------------------------- */
6127: IF PG_DEBUG in ('Y', 'C') THEN
6128: arp_standard.debug ( '-- Defining receipt status ...');
6129: arp_standard.debug ( '-- p_amount_applied = '||to_char(p_amount_applied));
6130: arp_standard.debug ( '-- activity_rec.amount_due_remaining = '||to_char(activity_rec.amount_due_remaining));
6131: END IF;
6132:
6133:
6134: /* Determine if the receipt has been fully applied.
6149: l_cr_rec.status := 'APP';
6150: END IF;
6151:
6152: IF PG_DEBUG in ('Y', 'C') THEN
6153: arp_standard.debug ( '-- status = '|| l_cr_rec.status);
6154: END IF;
6155:
6156: l_cr_rec.cash_receipt_id := l_ra_rec.cash_receipt_id;
6157:
6180: p_application_ref_num := l_application_ref_num;
6181: p_secondary_application_ref_id := l_secondary_application_ref_id;
6182:
6183: IF PG_DEBUG in ('Y', 'C') THEN
6184: arp_standard.debug( 'arp_process_application.activity_application()-' );
6185: END IF;
6186: EXCEPTION
6187: WHEN OTHERS THEN
6188: IF PG_DEBUG in ('Y', 'C') THEN
6185: END IF;
6186: EXCEPTION
6187: WHEN OTHERS THEN
6188: IF PG_DEBUG in ('Y', 'C') THEN
6189: arp_standard.debug( 'EXCEPTION: arp_process_application.activity_application' );
6190: END IF;
6191: RAISE;
6192:
6193: END activity_application;
6231: p_receivables_trx_id IN ar_receivable_applications.receivables_trx_id%TYPE) IS
6232:
6233: BEGIN
6234: IF PG_DEBUG in ('Y', 'C') THEN
6235: arp_standard.debug( 'arp_process_application.validate_activity_args()+' );
6236: END IF;
6237:
6238: /* All the arguments must be defined */
6239:
6251: APP_EXCEPTION.raise_exception;
6252: END IF;
6253:
6254: IF PG_DEBUG in ('Y', 'C') THEN
6255: arp_standard.debug( 'arp_process_application.validate_activity_args()-' );
6256: END IF;
6257: EXCEPTION
6258: WHEN OTHERS THEN
6259: IF PG_DEBUG in ('Y', 'C') THEN
6256: END IF;
6257: EXCEPTION
6258: WHEN OTHERS THEN
6259: IF PG_DEBUG in ('Y', 'C') THEN
6260: arp_standard.debug( 'EXCEPTION: arp_process_application.validate_activity_args' );
6261: END IF;
6262: RAISE;
6263: END validate_activity_args;
6264:
6270: | This procedure fetches the CCID for the application. This changed for |
6271: | the BR project since the accounting for Bills Receivable document is |
6272: | stored in the ar_distributions table instead of the |
6273: | ra_cust_trx_lines_gl_dist table (where the accounting is stored for |
6274: | other transactions). This was done to confirm with SLA standards |
6275: | |
6276: | SCOPE - PRIVATE |
6277: | |
6278: | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED - NONE |
6355: l_postable_trh_id ar_transaction_history.transaction_history_id%TYPE;
6356:
6357: BEGIN
6358: IF PG_DEBUG in ('Y', 'C') THEN
6359: arp_standard.debug( 'arp_process_application.fetch_app_ccid()+' );
6360: END IF;
6361:
6362: /* Fetch transaction class to branch out NOCOPY the depending whether
6363: * we are dealing with Bills Receivable or not */
6433:
6434: END IF;
6435:
6436: IF PG_DEBUG in ('Y', 'C') THEN
6437: arp_standard.debug( 'arp_process_application.fetch_app_ccid()-' );
6438: END IF;
6439: EXCEPTION
6440: WHEN OTHERS THEN
6441: IF PG_DEBUG in ('Y', 'C') THEN
6438: END IF;
6439: EXCEPTION
6440: WHEN OTHERS THEN
6441: IF PG_DEBUG in ('Y', 'C') THEN
6442: arp_standard.debug( SQLERRM(SQLCODE));
6443: arp_standard.debug( 'EXCEPTION: arp_process_application.fetch_app_ccid' );
6444: END IF;
6445: RAISE;
6446: END fetch_app_ccid;
6439: EXCEPTION
6440: WHEN OTHERS THEN
6441: IF PG_DEBUG in ('Y', 'C') THEN
6442: arp_standard.debug( SQLERRM(SQLCODE));
6443: arp_standard.debug( 'EXCEPTION: arp_process_application.fetch_app_ccid' );
6444: END IF;
6445: RAISE;
6446: END fetch_app_ccid;
6447:
6473: p_activity_type IN ar_receivables_trx.type%TYPE) IS
6474:
6475: BEGIN
6476: IF PG_DEBUG in ('Y', 'C') THEN
6477: arp_standard.debug( 'arp_process_application.validate_activity()+' );
6478: END IF;
6479:
6480: /* Activity and seeded ps must match. */
6481: --SNAMBIAR Added a new validation for applied PS id -3
6490:
6491: END IF;
6492:
6493: IF PG_DEBUG in ('Y', 'C') THEN
6494: arp_standard.debug( 'arp_process_application.validate_activity()-' );
6495: END IF;
6496: EXCEPTION
6497: WHEN OTHERS THEN
6498: IF PG_DEBUG in ('Y', 'C') THEN
6495: END IF;
6496: EXCEPTION
6497: WHEN OTHERS THEN
6498: IF PG_DEBUG in ('Y', 'C') THEN
6499: arp_standard.debug( 'EXCEPTION: arp_process_application.validate_activity' );
6500: END IF;
6501: RAISE;
6502: END validate_activity;
6503:
6543: current_BR_rec current_BR_cur%ROWTYPE;
6544:
6545: BEGIN
6546: IF PG_DEBUG in ('Y', 'C') THEN
6547: arp_standard.debug( 'arp_process_application.unapp_postable()+' );
6548: END IF;
6549:
6550: IF p_applied_customer_trx_id IS NULL OR p_applied_ps_id IS NULL OR p_applied_ps_id = -1 THEN
6551:
6575:
6576: END IF;
6577:
6578: IF PG_DEBUG in ('Y', 'C') THEN
6579: arp_standard.debug( 'arp_process_application.unapp_postable()-' );
6580: END IF;
6581: EXCEPTION
6582: WHEN OTHERS THEN
6583: IF PG_DEBUG in ('Y', 'C') THEN
6580: END IF;
6581: EXCEPTION
6582: WHEN OTHERS THEN
6583: IF PG_DEBUG in ('Y', 'C') THEN
6584: arp_standard.debug( 'EXCEPTION: arp_process_application.unapp_postable' );
6585: END IF;
6586: RAISE;
6587: END unapp_postable;
6588:
6755: l_xla_doc_table VARCHAR2(20);
6756:
6757: BEGIN
6758: IF PG_DEBUG in ('Y', 'C') THEN
6759: arp_standard.debug( 'arp_process_application.other_account_application()+' );
6760: END IF;
6761: x_return_status := FND_API.G_RET_STS_SUCCESS;
6762:
6763: IF PG_DEBUG in ('Y', 'C') THEN
6760: END IF;
6761: x_return_status := FND_API.G_RET_STS_SUCCESS;
6762:
6763: IF PG_DEBUG in ('Y', 'C') THEN
6764: arp_standard.debug( '-- p_receipt_ps_id = '||TO_CHAR(p_receipt_ps_id));
6765: arp_standard.debug( '-- p_amount_applied = '||
6766: TO_CHAR( p_amount_applied ) );
6767: arp_standard.debug( '-- p_gl_date = '|| TO_CHAR( p_gl_date ) );
6768: arp_standard.debug( '-- p_apply_date = '|| TO_CHAR( p_apply_date ) );
6761: x_return_status := FND_API.G_RET_STS_SUCCESS;
6762:
6763: IF PG_DEBUG in ('Y', 'C') THEN
6764: arp_standard.debug( '-- p_receipt_ps_id = '||TO_CHAR(p_receipt_ps_id));
6765: arp_standard.debug( '-- p_amount_applied = '||
6766: TO_CHAR( p_amount_applied ) );
6767: arp_standard.debug( '-- p_gl_date = '|| TO_CHAR( p_gl_date ) );
6768: arp_standard.debug( '-- p_apply_date = '|| TO_CHAR( p_apply_date ) );
6769: END IF;
6763: IF PG_DEBUG in ('Y', 'C') THEN
6764: arp_standard.debug( '-- p_receipt_ps_id = '||TO_CHAR(p_receipt_ps_id));
6765: arp_standard.debug( '-- p_amount_applied = '||
6766: TO_CHAR( p_amount_applied ) );
6767: arp_standard.debug( '-- p_gl_date = '|| TO_CHAR( p_gl_date ) );
6768: arp_standard.debug( '-- p_apply_date = '|| TO_CHAR( p_apply_date ) );
6769: END IF;
6770: --
6771: IF ( p_module_name IS NOT NULL AND p_module_version IS NOT NULL ) THEN
6764: arp_standard.debug( '-- p_receipt_ps_id = '||TO_CHAR(p_receipt_ps_id));
6765: arp_standard.debug( '-- p_amount_applied = '||
6766: TO_CHAR( p_amount_applied ) );
6767: arp_standard.debug( '-- p_gl_date = '|| TO_CHAR( p_gl_date ) );
6768: arp_standard.debug( '-- p_apply_date = '|| TO_CHAR( p_apply_date ) );
6769: END IF;
6770: --
6771: IF ( p_module_name IS NOT NULL AND p_module_version IS NOT NULL ) THEN
6772: validate_on_account_args( p_receipt_ps_id, p_amount_applied,
6888: functional_curr,
6889: l_ps_rec.exchange_rate,
6890: NULL, NULL );
6891: IF PG_DEBUG in ('Y', 'C') THEN
6892: arp_standard.debug( 'acctd_amount_applied_from = '||
6893: TO_CHAR( l_ra_rec.acctd_amount_applied_from ) );
6894: END IF;
6895: --
6896: l_ra_rec.status := 'UNAPP';
7154: -- Cash receipt must be fully applied in order to set the status
7155: -- to 'Applied'.
7156: -- ---------------------------------------------------------------------
7157: IF PG_DEBUG in ('Y', 'C') THEN
7158: arp_standard.debug ( '-- Defining receipt status ...');
7159: arp_standard.debug ( '-- p_amount_applied = '||to_char(p_amount_applied));
7160: arp_standard.debug ( '-- l_amount_due_remaining = '||
7161: to_char(l_amount_due_remaining));
7162: END IF;
7155: -- to 'Applied'.
7156: -- ---------------------------------------------------------------------
7157: IF PG_DEBUG in ('Y', 'C') THEN
7158: arp_standard.debug ( '-- Defining receipt status ...');
7159: arp_standard.debug ( '-- p_amount_applied = '||to_char(p_amount_applied));
7160: arp_standard.debug ( '-- l_amount_due_remaining = '||
7161: to_char(l_amount_due_remaining));
7162: END IF;
7163:
7156: -- ---------------------------------------------------------------------
7157: IF PG_DEBUG in ('Y', 'C') THEN
7158: arp_standard.debug ( '-- Defining receipt status ...');
7159: arp_standard.debug ( '-- p_amount_applied = '||to_char(p_amount_applied));
7160: arp_standard.debug ( '-- l_amount_due_remaining = '||
7161: to_char(l_amount_due_remaining));
7162: END IF;
7163:
7164: -- Determine if the receipt has been fully applied.
7173: l_cr_rec.status := 'APP';
7174: END IF;
7175:
7176: IF PG_DEBUG in ('Y', 'C') THEN
7177: arp_standard.debug ( '-- status = '|| l_cr_rec.status);
7178: END IF;
7179:
7180: l_cr_rec.cash_receipt_id := l_ra_rec.cash_receipt_id;
7181:
7197: -- ---------------------------------------------------------------------
7198: p_out_rec_application_id := l_ra_rec.receivable_application_id;
7199:
7200: IF PG_DEBUG in ('Y', 'C') THEN
7201: arp_standard.debug( 'arp_process_application.other_account_application()-' );
7202: END IF;
7203: EXCEPTION
7204: WHEN trade_mgt_err THEN
7205: x_return_status := FND_API.G_RET_STS_ERROR;
7203: EXCEPTION
7204: WHEN trade_mgt_err THEN
7205: x_return_status := FND_API.G_RET_STS_ERROR;
7206: IF PG_DEBUG in ('Y', 'C') THEN
7207: arp_standard.debug('Trade Management : ' ||
7208: 'EXCEPTION: arp_process_application.other_account_application' );
7209: END IF;
7210: WHEN OTHERS THEN
7211: x_return_status := FND_API.G_RET_STS_ERROR;
7209: END IF;
7210: WHEN OTHERS THEN
7211: x_return_status := FND_API.G_RET_STS_ERROR;
7212: IF PG_DEBUG in ('Y', 'C') THEN
7213: arp_standard.debug(
7214: 'EXCEPTION: arp_process_application.other_account_application' );
7215: END IF;
7216: RAISE;
7217:
7299:
7300: BEGIN
7301:
7302: IF PG_DEBUG in ('Y', 'C') THEN
7303: arp_standard.debug( 'arp_process_application.create_claim()+' );
7304: END IF;
7305: IF p_amount = 0
7306: THEN
7307: x_return_status := 'S';
7362:
7363: -- Dumping all the values
7364:
7365: IF PG_DEBUG in ('Y', 'C') THEN
7366: arp_standard.debug('set_of_books id = '||arp_global.set_of_books_id);
7367: arp_standard.debug('p_amount = '||p_amount);
7368: arp_standard.debug('p_amount_applied = '||p_amount_applied);
7369: arp_standard.debug('p_currency_code = '||p_currency_code);
7370: arp_standard.debug('p_exchange_rate_type = '||p_exchange_rate_type);
7363: -- Dumping all the values
7364:
7365: IF PG_DEBUG in ('Y', 'C') THEN
7366: arp_standard.debug('set_of_books id = '||arp_global.set_of_books_id);
7367: arp_standard.debug('p_amount = '||p_amount);
7368: arp_standard.debug('p_amount_applied = '||p_amount_applied);
7369: arp_standard.debug('p_currency_code = '||p_currency_code);
7370: arp_standard.debug('p_exchange_rate_type = '||p_exchange_rate_type);
7371: arp_standard.debug('p_exchange_rate_date = '||p_exchange_rate_date);
7364:
7365: IF PG_DEBUG in ('Y', 'C') THEN
7366: arp_standard.debug('set_of_books id = '||arp_global.set_of_books_id);
7367: arp_standard.debug('p_amount = '||p_amount);
7368: arp_standard.debug('p_amount_applied = '||p_amount_applied);
7369: arp_standard.debug('p_currency_code = '||p_currency_code);
7370: arp_standard.debug('p_exchange_rate_type = '||p_exchange_rate_type);
7371: arp_standard.debug('p_exchange_rate_date = '||p_exchange_rate_date);
7372: arp_standard.debug('p_exchange_rate = '||p_exchange_rate);
7365: IF PG_DEBUG in ('Y', 'C') THEN
7366: arp_standard.debug('set_of_books id = '||arp_global.set_of_books_id);
7367: arp_standard.debug('p_amount = '||p_amount);
7368: arp_standard.debug('p_amount_applied = '||p_amount_applied);
7369: arp_standard.debug('p_currency_code = '||p_currency_code);
7370: arp_standard.debug('p_exchange_rate_type = '||p_exchange_rate_type);
7371: arp_standard.debug('p_exchange_rate_date = '||p_exchange_rate_date);
7372: arp_standard.debug('p_exchange_rate = '||p_exchange_rate);
7373: arp_standard.debug('p_customer_trx_id = '||p_customer_trx_id);
7366: arp_standard.debug('set_of_books id = '||arp_global.set_of_books_id);
7367: arp_standard.debug('p_amount = '||p_amount);
7368: arp_standard.debug('p_amount_applied = '||p_amount_applied);
7369: arp_standard.debug('p_currency_code = '||p_currency_code);
7370: arp_standard.debug('p_exchange_rate_type = '||p_exchange_rate_type);
7371: arp_standard.debug('p_exchange_rate_date = '||p_exchange_rate_date);
7372: arp_standard.debug('p_exchange_rate = '||p_exchange_rate);
7373: arp_standard.debug('p_customer_trx_id = '||p_customer_trx_id);
7374: arp_standard.debug('p_invoice_ps_id = '||p_invoice_ps_id);
7367: arp_standard.debug('p_amount = '||p_amount);
7368: arp_standard.debug('p_amount_applied = '||p_amount_applied);
7369: arp_standard.debug('p_currency_code = '||p_currency_code);
7370: arp_standard.debug('p_exchange_rate_type = '||p_exchange_rate_type);
7371: arp_standard.debug('p_exchange_rate_date = '||p_exchange_rate_date);
7372: arp_standard.debug('p_exchange_rate = '||p_exchange_rate);
7373: arp_standard.debug('p_customer_trx_id = '||p_customer_trx_id);
7374: arp_standard.debug('p_invoice_ps_id = '||p_invoice_ps_id);
7375: arp_standard.debug('p_cust_trx_type_id = '||p_cust_trx_type_id);
7368: arp_standard.debug('p_amount_applied = '||p_amount_applied);
7369: arp_standard.debug('p_currency_code = '||p_currency_code);
7370: arp_standard.debug('p_exchange_rate_type = '||p_exchange_rate_type);
7371: arp_standard.debug('p_exchange_rate_date = '||p_exchange_rate_date);
7372: arp_standard.debug('p_exchange_rate = '||p_exchange_rate);
7373: arp_standard.debug('p_customer_trx_id = '||p_customer_trx_id);
7374: arp_standard.debug('p_invoice_ps_id = '||p_invoice_ps_id);
7375: arp_standard.debug('p_cust_trx_type_id = '||p_cust_trx_type_id);
7376: arp_standard.debug('p_trx_number = '||p_trx_number);
7369: arp_standard.debug('p_currency_code = '||p_currency_code);
7370: arp_standard.debug('p_exchange_rate_type = '||p_exchange_rate_type);
7371: arp_standard.debug('p_exchange_rate_date = '||p_exchange_rate_date);
7372: arp_standard.debug('p_exchange_rate = '||p_exchange_rate);
7373: arp_standard.debug('p_customer_trx_id = '||p_customer_trx_id);
7374: arp_standard.debug('p_invoice_ps_id = '||p_invoice_ps_id);
7375: arp_standard.debug('p_cust_trx_type_id = '||p_cust_trx_type_id);
7376: arp_standard.debug('p_trx_number = '||p_trx_number);
7377: arp_standard.debug('p_cust_account_id = '||p_cust_account_id);
7370: arp_standard.debug('p_exchange_rate_type = '||p_exchange_rate_type);
7371: arp_standard.debug('p_exchange_rate_date = '||p_exchange_rate_date);
7372: arp_standard.debug('p_exchange_rate = '||p_exchange_rate);
7373: arp_standard.debug('p_customer_trx_id = '||p_customer_trx_id);
7374: arp_standard.debug('p_invoice_ps_id = '||p_invoice_ps_id);
7375: arp_standard.debug('p_cust_trx_type_id = '||p_cust_trx_type_id);
7376: arp_standard.debug('p_trx_number = '||p_trx_number);
7377: arp_standard.debug('p_cust_account_id = '||p_cust_account_id);
7378: arp_standard.debug('p_bill_to_site_id = '||p_bill_to_site_id);
7371: arp_standard.debug('p_exchange_rate_date = '||p_exchange_rate_date);
7372: arp_standard.debug('p_exchange_rate = '||p_exchange_rate);
7373: arp_standard.debug('p_customer_trx_id = '||p_customer_trx_id);
7374: arp_standard.debug('p_invoice_ps_id = '||p_invoice_ps_id);
7375: arp_standard.debug('p_cust_trx_type_id = '||p_cust_trx_type_id);
7376: arp_standard.debug('p_trx_number = '||p_trx_number);
7377: arp_standard.debug('p_cust_account_id = '||p_cust_account_id);
7378: arp_standard.debug('p_bill_to_site_id = '||p_bill_to_site_id);
7379: arp_standard.debug('p_ship_to_site_id = '||p_ship_to_site_id);
7372: arp_standard.debug('p_exchange_rate = '||p_exchange_rate);
7373: arp_standard.debug('p_customer_trx_id = '||p_customer_trx_id);
7374: arp_standard.debug('p_invoice_ps_id = '||p_invoice_ps_id);
7375: arp_standard.debug('p_cust_trx_type_id = '||p_cust_trx_type_id);
7376: arp_standard.debug('p_trx_number = '||p_trx_number);
7377: arp_standard.debug('p_cust_account_id = '||p_cust_account_id);
7378: arp_standard.debug('p_bill_to_site_id = '||p_bill_to_site_id);
7379: arp_standard.debug('p_ship_to_site_id = '||p_ship_to_site_id);
7380: arp_standard.debug('p_salesrep_id = '||p_salesrep_id);
7373: arp_standard.debug('p_customer_trx_id = '||p_customer_trx_id);
7374: arp_standard.debug('p_invoice_ps_id = '||p_invoice_ps_id);
7375: arp_standard.debug('p_cust_trx_type_id = '||p_cust_trx_type_id);
7376: arp_standard.debug('p_trx_number = '||p_trx_number);
7377: arp_standard.debug('p_cust_account_id = '||p_cust_account_id);
7378: arp_standard.debug('p_bill_to_site_id = '||p_bill_to_site_id);
7379: arp_standard.debug('p_ship_to_site_id = '||p_ship_to_site_id);
7380: arp_standard.debug('p_salesrep_id = '||p_salesrep_id);
7381: arp_standard.debug('p_customer_ref_date = '||p_customer_ref_date);
7374: arp_standard.debug('p_invoice_ps_id = '||p_invoice_ps_id);
7375: arp_standard.debug('p_cust_trx_type_id = '||p_cust_trx_type_id);
7376: arp_standard.debug('p_trx_number = '||p_trx_number);
7377: arp_standard.debug('p_cust_account_id = '||p_cust_account_id);
7378: arp_standard.debug('p_bill_to_site_id = '||p_bill_to_site_id);
7379: arp_standard.debug('p_ship_to_site_id = '||p_ship_to_site_id);
7380: arp_standard.debug('p_salesrep_id = '||p_salesrep_id);
7381: arp_standard.debug('p_customer_ref_date = '||p_customer_ref_date);
7382: arp_standard.debug('p_customer_ref_number = '||p_customer_ref_number);
7375: arp_standard.debug('p_cust_trx_type_id = '||p_cust_trx_type_id);
7376: arp_standard.debug('p_trx_number = '||p_trx_number);
7377: arp_standard.debug('p_cust_account_id = '||p_cust_account_id);
7378: arp_standard.debug('p_bill_to_site_id = '||p_bill_to_site_id);
7379: arp_standard.debug('p_ship_to_site_id = '||p_ship_to_site_id);
7380: arp_standard.debug('p_salesrep_id = '||p_salesrep_id);
7381: arp_standard.debug('p_customer_ref_date = '||p_customer_ref_date);
7382: arp_standard.debug('p_customer_ref_number = '||p_customer_ref_number);
7383: arp_standard.debug('p_cash_receipt_id = '||p_cash_receipt_id);
7376: arp_standard.debug('p_trx_number = '||p_trx_number);
7377: arp_standard.debug('p_cust_account_id = '||p_cust_account_id);
7378: arp_standard.debug('p_bill_to_site_id = '||p_bill_to_site_id);
7379: arp_standard.debug('p_ship_to_site_id = '||p_ship_to_site_id);
7380: arp_standard.debug('p_salesrep_id = '||p_salesrep_id);
7381: arp_standard.debug('p_customer_ref_date = '||p_customer_ref_date);
7382: arp_standard.debug('p_customer_ref_number = '||p_customer_ref_number);
7383: arp_standard.debug('p_cash_receipt_id = '||p_cash_receipt_id);
7384: arp_standard.debug('p_receipt_number = '||p_receipt_number);
7377: arp_standard.debug('p_cust_account_id = '||p_cust_account_id);
7378: arp_standard.debug('p_bill_to_site_id = '||p_bill_to_site_id);
7379: arp_standard.debug('p_ship_to_site_id = '||p_ship_to_site_id);
7380: arp_standard.debug('p_salesrep_id = '||p_salesrep_id);
7381: arp_standard.debug('p_customer_ref_date = '||p_customer_ref_date);
7382: arp_standard.debug('p_customer_ref_number = '||p_customer_ref_number);
7383: arp_standard.debug('p_cash_receipt_id = '||p_cash_receipt_id);
7384: arp_standard.debug('p_receipt_number = '||p_receipt_number);
7385: arp_standard.debug('p_reason_id = '||p_reason_id);
7378: arp_standard.debug('p_bill_to_site_id = '||p_bill_to_site_id);
7379: arp_standard.debug('p_ship_to_site_id = '||p_ship_to_site_id);
7380: arp_standard.debug('p_salesrep_id = '||p_salesrep_id);
7381: arp_standard.debug('p_customer_ref_date = '||p_customer_ref_date);
7382: arp_standard.debug('p_customer_ref_number = '||p_customer_ref_number);
7383: arp_standard.debug('p_cash_receipt_id = '||p_cash_receipt_id);
7384: arp_standard.debug('p_receipt_number = '||p_receipt_number);
7385: arp_standard.debug('p_reason_id = '||p_reason_id);
7386: arp_standard.debug('p_customer_reason = '||p_customer_reason);
7379: arp_standard.debug('p_ship_to_site_id = '||p_ship_to_site_id);
7380: arp_standard.debug('p_salesrep_id = '||p_salesrep_id);
7381: arp_standard.debug('p_customer_ref_date = '||p_customer_ref_date);
7382: arp_standard.debug('p_customer_ref_number = '||p_customer_ref_number);
7383: arp_standard.debug('p_cash_receipt_id = '||p_cash_receipt_id);
7384: arp_standard.debug('p_receipt_number = '||p_receipt_number);
7385: arp_standard.debug('p_reason_id = '||p_reason_id);
7386: arp_standard.debug('p_customer_reason = '||p_customer_reason);
7387: END IF;
7380: arp_standard.debug('p_salesrep_id = '||p_salesrep_id);
7381: arp_standard.debug('p_customer_ref_date = '||p_customer_ref_date);
7382: arp_standard.debug('p_customer_ref_number = '||p_customer_ref_number);
7383: arp_standard.debug('p_cash_receipt_id = '||p_cash_receipt_id);
7384: arp_standard.debug('p_receipt_number = '||p_receipt_number);
7385: arp_standard.debug('p_reason_id = '||p_reason_id);
7386: arp_standard.debug('p_customer_reason = '||p_customer_reason);
7387: END IF;
7388:
7381: arp_standard.debug('p_customer_ref_date = '||p_customer_ref_date);
7382: arp_standard.debug('p_customer_ref_number = '||p_customer_ref_number);
7383: arp_standard.debug('p_cash_receipt_id = '||p_cash_receipt_id);
7384: arp_standard.debug('p_receipt_number = '||p_receipt_number);
7385: arp_standard.debug('p_reason_id = '||p_reason_id);
7386: arp_standard.debug('p_customer_reason = '||p_customer_reason);
7387: END IF;
7388:
7389: OZF_Claim_GRP.Create_Deduction
7382: arp_standard.debug('p_customer_ref_number = '||p_customer_ref_number);
7383: arp_standard.debug('p_cash_receipt_id = '||p_cash_receipt_id);
7384: arp_standard.debug('p_receipt_number = '||p_receipt_number);
7385: arp_standard.debug('p_reason_id = '||p_reason_id);
7386: arp_standard.debug('p_customer_reason = '||p_customer_reason);
7387: END IF;
7388:
7389: OZF_Claim_GRP.Create_Deduction
7390: (p_api_version_number => 1.0
7418: x_return_status := 'U';
7419: END IF;
7420:
7421: IF PG_DEBUG in ('Y', 'C') THEN
7422: arp_standard.debug( 'arp_process_application.create_claim()-' );
7423: END IF;
7424:
7425: EXCEPTION
7426: WHEN OTHERS THEN
7424:
7425: EXCEPTION
7426: WHEN OTHERS THEN
7427: IF PG_DEBUG in ('Y', 'C') THEN
7428: arp_standard.debug(
7429: 'EXCEPTION: arp_process_application.create_claim' );
7430: END IF;
7431: RAISE;
7432: END create_claim;
7489: l_amount_due_original NUMBER;
7490:
7491: BEGIN
7492: IF PG_DEBUG in ('Y', 'C') THEN
7493: arp_standard.debug( 'arp_process_application.update_claim()+' );
7494: END IF;
7495:
7496: l_return_status := FND_API.G_RET_STS_SUCCESS;
7497:
7531: END IF;
7532:
7533: IF PG_DEBUG in ('Y', 'C') THEN
7534: --dump the in parameters
7535: arp_standard.debug('update_claim: p_claim_id = '||p_claim_id);
7536: arp_standard.debug('update_claim: p_amount = '||p_amount);
7537: arp_standard.debug('update_claim: p_apply_date = '||p_apply_date);
7538: arp_standard.debug('update_claim: p_amount_applied = '||p_amount_applied);
7539: arp_standard.debug('update_claim: p_action_type = '||p_action_type);
7532:
7533: IF PG_DEBUG in ('Y', 'C') THEN
7534: --dump the in parameters
7535: arp_standard.debug('update_claim: p_claim_id = '||p_claim_id);
7536: arp_standard.debug('update_claim: p_amount = '||p_amount);
7537: arp_standard.debug('update_claim: p_apply_date = '||p_apply_date);
7538: arp_standard.debug('update_claim: p_amount_applied = '||p_amount_applied);
7539: arp_standard.debug('update_claim: p_action_type = '||p_action_type);
7540: arp_standard.debug('update_claim: p_cash_receipt_id = '||p_cash_receipt_id);
7533: IF PG_DEBUG in ('Y', 'C') THEN
7534: --dump the in parameters
7535: arp_standard.debug('update_claim: p_claim_id = '||p_claim_id);
7536: arp_standard.debug('update_claim: p_amount = '||p_amount);
7537: arp_standard.debug('update_claim: p_apply_date = '||p_apply_date);
7538: arp_standard.debug('update_claim: p_amount_applied = '||p_amount_applied);
7539: arp_standard.debug('update_claim: p_action_type = '||p_action_type);
7540: arp_standard.debug('update_claim: p_cash_receipt_id = '||p_cash_receipt_id);
7541: arp_standard.debug('update_claim: p_customer_trx_id = '||p_customer_trx_id);
7534: --dump the in parameters
7535: arp_standard.debug('update_claim: p_claim_id = '||p_claim_id);
7536: arp_standard.debug('update_claim: p_amount = '||p_amount);
7537: arp_standard.debug('update_claim: p_apply_date = '||p_apply_date);
7538: arp_standard.debug('update_claim: p_amount_applied = '||p_amount_applied);
7539: arp_standard.debug('update_claim: p_action_type = '||p_action_type);
7540: arp_standard.debug('update_claim: p_cash_receipt_id = '||p_cash_receipt_id);
7541: arp_standard.debug('update_claim: p_customer_trx_id = '||p_customer_trx_id);
7542: arp_standard.debug('update_claim: l_receipt_number = '||l_receipt_number);
7535: arp_standard.debug('update_claim: p_claim_id = '||p_claim_id);
7536: arp_standard.debug('update_claim: p_amount = '||p_amount);
7537: arp_standard.debug('update_claim: p_apply_date = '||p_apply_date);
7538: arp_standard.debug('update_claim: p_amount_applied = '||p_amount_applied);
7539: arp_standard.debug('update_claim: p_action_type = '||p_action_type);
7540: arp_standard.debug('update_claim: p_cash_receipt_id = '||p_cash_receipt_id);
7541: arp_standard.debug('update_claim: p_customer_trx_id = '||p_customer_trx_id);
7542: arp_standard.debug('update_claim: l_receipt_number = '||l_receipt_number);
7543: END IF;
7536: arp_standard.debug('update_claim: p_amount = '||p_amount);
7537: arp_standard.debug('update_claim: p_apply_date = '||p_apply_date);
7538: arp_standard.debug('update_claim: p_amount_applied = '||p_amount_applied);
7539: arp_standard.debug('update_claim: p_action_type = '||p_action_type);
7540: arp_standard.debug('update_claim: p_cash_receipt_id = '||p_cash_receipt_id);
7541: arp_standard.debug('update_claim: p_customer_trx_id = '||p_customer_trx_id);
7542: arp_standard.debug('update_claim: l_receipt_number = '||l_receipt_number);
7543: END IF;
7544:
7537: arp_standard.debug('update_claim: p_apply_date = '||p_apply_date);
7538: arp_standard.debug('update_claim: p_amount_applied = '||p_amount_applied);
7539: arp_standard.debug('update_claim: p_action_type = '||p_action_type);
7540: arp_standard.debug('update_claim: p_cash_receipt_id = '||p_cash_receipt_id);
7541: arp_standard.debug('update_claim: p_customer_trx_id = '||p_customer_trx_id);
7542: arp_standard.debug('update_claim: l_receipt_number = '||l_receipt_number);
7543: END IF;
7544:
7545: OZF_Claim_GRP.Update_Deduction
7538: arp_standard.debug('update_claim: p_amount_applied = '||p_amount_applied);
7539: arp_standard.debug('update_claim: p_action_type = '||p_action_type);
7540: arp_standard.debug('update_claim: p_cash_receipt_id = '||p_cash_receipt_id);
7541: arp_standard.debug('update_claim: p_customer_trx_id = '||p_customer_trx_id);
7542: arp_standard.debug('update_claim: l_receipt_number = '||l_receipt_number);
7543: END IF;
7544:
7545: OZF_Claim_GRP.Update_Deduction
7546: (p_api_version_number => 1.0
7598: END IF;
7599:
7600: IF PG_DEBUG in ('Y', 'C') AND l_return_status <> FND_API.G_RET_STS_SUCCESS
7601: THEN
7602: arp_standard.debug( 'arp_process_application.update_claim: ERROR occurred calling update_deduction: '||SQLERRM );
7603: END IF;
7604: IF PG_DEBUG in ('Y', 'C') THEN
7605: arp_standard.debug( 'arp_process_application.update_claim()-' );
7606: END IF;
7601: THEN
7602: arp_standard.debug( 'arp_process_application.update_claim: ERROR occurred calling update_deduction: '||SQLERRM );
7603: END IF;
7604: IF PG_DEBUG in ('Y', 'C') THEN
7605: arp_standard.debug( 'arp_process_application.update_claim()-' );
7606: END IF;
7607:
7608: EXCEPTION
7609: WHEN OTHERS THEN
7607:
7608: EXCEPTION
7609: WHEN OTHERS THEN
7610: IF PG_DEBUG in ('Y', 'C') THEN
7611: arp_standard.debug(
7612: 'EXCEPTION: arp_process_application.update_claim' );
7613: END IF;
7614: RAISE;
7615: END update_claim;
7651: l_note_id NUMBER;
7652:
7653: BEGIN
7654: IF PG_DEBUG in ('Y', 'C') THEN
7655: arp_standard.debug( 'arp_process_application.insert_trx_note()+' );
7656: END IF;
7657: --Bug 1812334 : ar_notes entry needs to be created also when the claim is cancelled.
7658:
7659: IF p_flag = 'CREATE' THEN
7668: /* bug 3161148, need to pass only 240 characters as that is the
7669: limit on the column in the table. */
7670: l_text := substrb(fnd_message.get,1,240);
7671:
7672: l_user_id := arp_standard.profile.user_id;
7673: l_last_update_login := arp_standard.profile.last_update_login;
7674: l_sysdate := SYSDATE;
7675: arp_notes_pkg.insert_cover(
7676: p_note_type => 'MAINTAIN',
7669: limit on the column in the table. */
7670: l_text := substrb(fnd_message.get,1,240);
7671:
7672: l_user_id := arp_standard.profile.user_id;
7673: l_last_update_login := arp_standard.profile.last_update_login;
7674: l_sysdate := SYSDATE;
7675: arp_notes_pkg.insert_cover(
7676: p_note_type => 'MAINTAIN',
7677: p_text => l_text,
7685: p_last_update_login => l_last_update_login,
7686: p_created_by => l_user_id,
7687: p_creation_date => l_sysdate);
7688: IF PG_DEBUG in ('Y', 'C') THEN
7689: arp_standard.debug( 'arp_process_application.insert_trx_note()-' );
7690: END IF;
7691: EXCEPTION
7692: WHEN OTHERS THEN
7693: IF PG_DEBUG in ('Y', 'C') THEN
7690: END IF;
7691: EXCEPTION
7692: WHEN OTHERS THEN
7693: IF PG_DEBUG in ('Y', 'C') THEN
7694: arp_standard.debug( 'EXCEPTION: arp_process_application.insert_trx_note' );
7695: END IF;
7696: RAISE;
7697: END insert_trx_note;
7698:
7730: FROM ar_payment_schedules
7731: WHERE payment_schedule_id = p_ps_id;
7732: BEGIN
7733: IF PG_DEBUG in ('Y', 'C') THEN
7734: arp_standard.debug( 'arp_process_application.put_trx_in_dispute()+' );
7735: END IF;
7736: l_user_id := arp_standard.profile.user_id;
7737: l_last_update_login := arp_standard.profile.last_update_login;
7738: l_sysdate := SYSDATE;
7732: BEGIN
7733: IF PG_DEBUG in ('Y', 'C') THEN
7734: arp_standard.debug( 'arp_process_application.put_trx_in_dispute()+' );
7735: END IF;
7736: l_user_id := arp_standard.profile.user_id;
7737: l_last_update_login := arp_standard.profile.last_update_login;
7738: l_sysdate := SYSDATE;
7739:
7740: /*bug 2641517 : creating history record for business event */
7733: IF PG_DEBUG in ('Y', 'C') THEN
7734: arp_standard.debug( 'arp_process_application.put_trx_in_dispute()+' );
7735: END IF;
7736: l_user_id := arp_standard.profile.user_id;
7737: l_last_update_login := arp_standard.profile.last_update_login;
7738: l_sysdate := SYSDATE;
7739:
7740: /*bug 2641517 : creating history record for business event */
7741: OPEN get_existing_ps(p_invoice_ps_id);
7798: l_trx_class,
7799: l_history_id);
7800:
7801: IF PG_DEBUG in ('Y', 'C') THEN
7802: arp_standard.debug( 'arp_process_application.put_trx_in_dispute()-' );
7803: END IF;
7804: EXCEPTION
7805: WHEN OTHERS THEN
7806: IF PG_DEBUG in ('Y', 'C') THEN
7803: END IF;
7804: EXCEPTION
7805: WHEN OTHERS THEN
7806: IF PG_DEBUG in ('Y', 'C') THEN
7807: arp_standard.debug( 'EXCEPTION: arp_process_application.put_trx_in_dispute');
7808: END IF;
7809: RAISE;
7810: END put_trx_in_dispute;
7811:
7832: dispute_date
7833: FROM ar_payment_schedules
7834: WHERE payment_schedule_id = p_ps_id;
7835: BEGIN
7836: l_user_id := arp_standard.profile.user_id;
7837: l_last_update_login := arp_standard.profile.last_update_login;
7838: l_sysdate := SYSDATE;
7839: IF PG_DEBUG in ('Y', 'C') THEN
7840: arp_standard.debug( 'arp_process_application.update_dispute_on_trx()+' );
7833: FROM ar_payment_schedules
7834: WHERE payment_schedule_id = p_ps_id;
7835: BEGIN
7836: l_user_id := arp_standard.profile.user_id;
7837: l_last_update_login := arp_standard.profile.last_update_login;
7838: l_sysdate := SYSDATE;
7839: IF PG_DEBUG in ('Y', 'C') THEN
7840: arp_standard.debug( 'arp_process_application.update_dispute_on_trx()+' );
7841: END IF;
7836: l_user_id := arp_standard.profile.user_id;
7837: l_last_update_login := arp_standard.profile.last_update_login;
7838: l_sysdate := SYSDATE;
7839: IF PG_DEBUG in ('Y', 'C') THEN
7840: arp_standard.debug( 'arp_process_application.update_dispute_on_trx()+' );
7841: END IF;
7842: /*Bug 5129946: Calling arp_dispute_history.DisputeHistory*/
7843: OPEN get_existing_ps(p_invoice_ps_id);
7844: FETCH get_existing_ps INTO
7879: last_update_login = l_last_update_login,
7880: active_claim_flag = p_active_claim
7881: WHERE ps.payment_schedule_id = p_invoice_ps_id;
7882: IF PG_DEBUG in ('Y', 'C') THEN
7883: arp_standard.debug( 'arp_process_application.update_dispute_on_trx()-' );
7884: END IF;
7885: EXCEPTION
7886: WHEN OTHERS THEN
7887: IF PG_DEBUG in ('Y', 'C') THEN
7884: END IF;
7885: EXCEPTION
7886: WHEN OTHERS THEN
7887: IF PG_DEBUG in ('Y', 'C') THEN
7888: arp_standard.debug( 'EXCEPTION: arp_process_application.update_dispute_on_trx');
7889: END IF;
7890: RAISE;
7891: END update_dispute_on_trx;
7892:
7927: p_module_version IN VARCHAR2 ) IS
7928: --
7929: BEGIN
7930: IF PG_DEBUG in ('Y', 'C') THEN
7931: arp_standard.debug( 'arp_process_application.reverse_action_receipt_cb()+' );
7932: END IF;
7933: --
7934: -- reverse chargeback
7935: -- For receipt chargeback,there is no adjustment associated with it
7940: p_module_name,
7941: p_module_version );
7942:
7943: IF PG_DEBUG in ('Y', 'C') THEN
7944: arp_standard.debug( 'arp_process_application.reverse_action_receipt_cb()-' );
7945: END IF;
7946: EXCEPTION
7947: WHEN OTHERS THEN
7948: IF PG_DEBUG in ('Y', 'C') THEN
7945: END IF;
7946: EXCEPTION
7947: WHEN OTHERS THEN
7948: IF PG_DEBUG in ('Y', 'C') THEN
7949: arp_standard.debug(
7950: 'EXCEPTION: arp_process_application.reverse_action_receipt_cb' );
7951: END IF;
7952: RAISE;
7953: END reverse_action_receipt_cb;
7993: l_msg_index NUMBER;
7994: API_exception EXCEPTION;
7995: BEGIN
7996: IF PG_DEBUG in ('Y', 'C') THEN
7997: arp_standard.debug( 'arp_process_application.reverse_action_misc_receipt()+' );
7998: END IF;
7999: --
8000: -- reverse Misc Receipt
8001:
8072:
8073: END IF; -- l_return_status
8074:
8075: IF PG_DEBUG in ('Y', 'C') THEN
8076: arp_standard.debug( 'arp_process_application.reverse_action_misc_receipt()-' );
8077: END IF;
8078: /*----------------------------------+
8079: | APIs propagate exception upwards |
8080: +----------------------------------*/
8128: l_query_string VARCHAR2(2000);
8129:
8130: BEGIN
8131: IF PG_DEBUG in ('Y', 'C') THEN
8132: arp_standard.debug( 'arp_process_application.get_claim_status()+' );
8133: END IF;
8134: l_query_string :=
8135: ' select status_code from ozf_ar_deductions_v where claim_id = :claim_id ';
8136: BEGIN
8143: FND_MESSAGE.set_token('CLAIM_ID',p_claim_id);
8144: APP_EXCEPTION.raise_exception;
8145: END;
8146: IF PG_DEBUG in ('Y', 'C') THEN
8147: arp_standard.debug( 'arp_process_application.get_claim_status()-' );
8148: END IF;
8149: END get_claim_status;
8150:
8151: /*===========================================================================+
8277: l_xla_doc_table VARCHAR2(20);
8278:
8279: BEGIN
8280: IF PG_DEBUG in ('Y', 'C') THEN
8281: arp_standard.debug('arp_process_application.cm_activity_application()+' );
8282: END IF;
8283:
8284: x_return_status := FND_API.G_RET_STS_SUCCESS;
8285:
8284: x_return_status := FND_API.G_RET_STS_SUCCESS;
8285:
8286: -- Output IN parameters
8287: IF PG_DEBUG in ('Y', 'C') THEN
8288: arp_standard.debug('CM PS Id. : '||TO_CHAR( p_cm_ps_id ) );
8289: arp_standard.debug('Amount Applied : '||TO_CHAR( p_amount_applied ) );
8290: arp_standard.debug('Gl Date : '||TO_CHAR( p_gl_date ) );
8291: arp_standard.debug('Apply Date : '||TO_CHAR( p_apply_date ) );
8292: END IF;
8285:
8286: -- Output IN parameters
8287: IF PG_DEBUG in ('Y', 'C') THEN
8288: arp_standard.debug('CM PS Id. : '||TO_CHAR( p_cm_ps_id ) );
8289: arp_standard.debug('Amount Applied : '||TO_CHAR( p_amount_applied ) );
8290: arp_standard.debug('Gl Date : '||TO_CHAR( p_gl_date ) );
8291: arp_standard.debug('Apply Date : '||TO_CHAR( p_apply_date ) );
8292: END IF;
8293:
8286: -- Output IN parameters
8287: IF PG_DEBUG in ('Y', 'C') THEN
8288: arp_standard.debug('CM PS Id. : '||TO_CHAR( p_cm_ps_id ) );
8289: arp_standard.debug('Amount Applied : '||TO_CHAR( p_amount_applied ) );
8290: arp_standard.debug('Gl Date : '||TO_CHAR( p_gl_date ) );
8291: arp_standard.debug('Apply Date : '||TO_CHAR( p_apply_date ) );
8292: END IF;
8293:
8294: -----------------------------------------------------
8287: IF PG_DEBUG in ('Y', 'C') THEN
8288: arp_standard.debug('CM PS Id. : '||TO_CHAR( p_cm_ps_id ) );
8289: arp_standard.debug('Amount Applied : '||TO_CHAR( p_amount_applied ) );
8290: arp_standard.debug('Gl Date : '||TO_CHAR( p_gl_date ) );
8291: arp_standard.debug('Apply Date : '||TO_CHAR( p_apply_date ) );
8292: END IF;
8293:
8294: -----------------------------------------------------
8295:
8367: , min_acc_unit => NULL );
8368: EXCEPTION
8369: WHEN OTHERS THEN
8370: IF PG_DEBUG in ('Y', 'C') THEN
8371: arp_standard.debug(
8372: 'EXCEPTION: arp_process_application.cm_activity_application' );
8373: END IF;
8374: RAISE;
8375: END;
8479: -- Return the new receivable_application_id
8480: p_out_rec_application_id := l_inv_ra_rec.receivable_application_id;
8481:
8482: IF PG_DEBUG in ('Y', 'C') THEN
8483: arp_standard.debug('arp_process_application.cm_activity_application()-' );
8484: END IF;
8485:
8486: EXCEPTION
8487: WHEN OTHERS THEN
8485:
8486: EXCEPTION
8487: WHEN OTHERS THEN
8488: IF PG_DEBUG in ('Y', 'C') THEN
8489: arp_standard.debug(
8490: 'EXCEPTION: arp_process_application.cm_activity_application' );
8491: END IF;
8492: RAISE;
8493: END cm_activity_application;
8520: l_trx_number ra_customer_trx.trx_number%TYPE;
8521: l_message_text VARCHAR2(2000);
8522:
8523: BEGIN
8524: arp_standard.debug('arp_process_application.Unapply_Regular_CM()+');
8525:
8526: -- since we are unapplying the regular cm, we need to null out the
8527: -- previous_customer_trx_id and previous_customer_trx_line_id
8528:
8550: SET comments = comments || l_message_text
8551: WHERE customer_trx_id = p_cust_trx_id
8552: AND account_set_flag = 'N';
8553:
8554: arp_standard.debug('arp_process_application.Unassociate_Regular_CM()+');
8555:
8556: END Unassociate_Regular_CM;
8557:
8558: FUNCTION is_regular_cm (p_customer_Trx_id IN NUMBER,
8560:
8561: l_prev_cust_trx_id NUMBER;
8562:
8563: BEGIN
8564: arp_standard.debug('arp_process_application.is_regular_cm()+');
8565:
8566: SELECT nvl(previous_customer_Trx_id, -999),
8567: nvl(invoicing_rule_id, -999)
8568: INTO l_prev_cust_trx_id,