[Home] [Help]
1: PACKAGE BODY ARP_PROCESS_APPLICATION AS
2: /* $Header: ARCEAPPB.pls 120.165.12020000.6 2012/10/15 10:32:04 dgaurab ship $ */
3:
4: /* =======================================================================
5: | Global Data Types
219: l_status VARCHAR2(30);
220: l_called_from VARCHAR2(30); --Bug7194951
221: BEGIN
222: IF PG_DEBUG in ('Y', 'C') THEN
223: arp_debug.debug('arp_process_application.reverse()+' );
224: END IF;
225:
226: -- Validate input arguments
227: validate_args( p_ra_id,
556:
557: -- RAM-C changes end
558:
559: IF PG_DEBUG in ('Y', 'C') THEN
560: arp_debug.debug('arp_process_application.reverse()-' );
561: END IF;
562: EXCEPTION
563: WHEN OTHERS THEN
564: IF PG_DEBUG in ('Y', 'C') THEN
562: EXCEPTION
563: WHEN OTHERS THEN
564: IF PG_DEBUG in ('Y', 'C') THEN
565: arp_debug.debug(
566: 'EXCEPTION: arp_process_application.reverse' );
567: END IF;
568: RAISE;
569: END reverse;
570: --
623: l_sum_dist NUMBER;
624:
625: BEGIN
626: IF PG_DEBUG in ('Y', 'C') THEN
627: arp_debug.debug( 'arp_process_application.reverse_cm_app()+' );
628: END IF;
629:
630: -- -------------------------------------------------------------------
631: -- Get ready to insert application row into ar_receivable_applications.
651:
652: -- need some information to check if we have a regular cm or
653: -- on acct credit memo also if we have invoice with rules.
654: -- to do some processing before the application is reversed.
655: l_reg_cm := arp_process_application.is_regular_cm(
656: p_customer_trx_id => lr_ra_rec.customer_trx_id,
657: p_invoicing_rule_id => l_rule_id);
658:
659: IF (l_reg_cm) THEN
683: END IF;
684:
685: END IF;
686:
687: arp_process_application.Unassociate_Regular_CM(
688: p_cust_Trx_id => lr_ra_rec.customer_trx_id,
689: p_app_cust_trx_id => lr_ra_rec.applied_customer_trx_id);
690:
691: arp_process_application.Unassociate_Deposit_from_CM(
687: arp_process_application.Unassociate_Regular_CM(
688: p_cust_Trx_id => lr_ra_rec.customer_trx_id,
689: p_app_cust_trx_id => lr_ra_rec.applied_customer_trx_id);
690:
691: arp_process_application.Unassociate_Deposit_from_CM(
692: p_cm_cust_Trx_id => lr_ra_rec.customer_trx_id,
693: p_inv_cust_trx_id => lr_ra_rec.applied_customer_trx_id);
694:
695: END IF;
754: AR_BUS_EVENT_COVER.Raise_CM_UnApply_Event(l_rec_app_id);
755: END IF;
756:
757: IF PG_DEBUG in ('Y', 'C') THEN
758: arp_debug.debug( 'arp_process_application.reverse_cm_app()-' );
759: END IF;
760:
761: END reverse_cm_app;
762: --
920: l_app_ra_rec ar_receivable_applications%ROWTYPE;
921:
922: BEGIN
923: IF PG_DEBUG in ('Y', 'C') THEN
924: arp_debug.debug( 'arp_process_application.update_selected_transaction()+');
925: END IF;
926:
927: functional_curr := arp_global.functional_currency;
928:
929: -- First check that all required arguments have some value
930: IF (pn_ra_id IS NULL)
931: THEN
932: APP_EXCEPTION.INVALID_ARGUMENT(
933: 'ARP_PROCESS_APPLICATION.UPDATE_SELECTED_TRANSACTION'
934: , 'PN_RA_ID'
935: , 'NULL');
936: ELSIF (pn_amount_applied IS NULL)
937: THEN
935: , 'NULL');
936: ELSIF (pn_amount_applied IS NULL)
937: THEN
938: APP_EXCEPTION.INVALID_ARGUMENT(
939: 'ARP_PROCESS_APPLICATION.UPDATE_SELECTED_TRANSACTION'
940: , 'pn_amount_applied'
941: , 'NULL');
942: END IF;
943:
942: END IF;
943:
944: IF (pc_invoice_currency_code IS NULL) THEN
945: APP_EXCEPTION.INVALID_ARGUMENT(
946: 'ARP_PROCESS_APPLICATION.UPDATE_SELECTED_TRANSACTION'
947: , 'pc_invoice_currency_code'
948: , 'NULL');
949: ELSIF (pc_invoice_currency_code <> functional_curr) AND
950: (pn_invoice_exchange_rate IS NULL) THEN
948: , 'NULL');
949: ELSIF (pc_invoice_currency_code <> functional_curr) AND
950: (pn_invoice_exchange_rate IS NULL) THEN
951: APP_EXCEPTION.INVALID_ARGUMENT(
952: 'ARP_PROCESS_APPLICATION.UPDATE_SELECTED_TRANSACTION'
953: , 'pn_invoice_exchange_rate'
954: , 'NULL');
955: END IF;
956:
955: END IF;
956:
957: IF (pc_receipt_currency_code IS NULL) THEN
958: APP_EXCEPTION.INVALID_ARGUMENT(
959: 'ARP_PROCESS_APPLICATION.UPDATE_SELECTED_TRANSACTION'
960: , 'pc_receipt_currency_code'
961: , 'NULL');
962: ELSIF (pc_receipt_currency_code <> functional_curr) AND
963: (pn_receipt_exchange_rate IS NULL) THEN
961: , 'NULL');
962: ELSIF (pc_receipt_currency_code <> functional_curr) AND
963: (pn_receipt_exchange_rate IS NULL) THEN
964: APP_EXCEPTION.INVALID_ARGUMENT(
965: 'ARP_PROCESS_APPLICATION.UPDATE_SELECTED_TRANSACTION'
966: , 'pn_receipt_exchange_rate'
967: , 'NULL');
968: END IF;
969:
1111: -- lr_ra_rec);
1112: END IF;
1113:
1114: IF PG_DEBUG in ('Y', 'C') THEN
1115: arp_debug.debug( 'arp_process_application.update_amount_applied()-');
1116: END IF;
1117:
1118: EXCEPTION
1119: WHEN OTHERS THEN
1172: p_reversal_date IN DATE,
1173: p_module_name IN VARCHAR2 ) IS
1174: BEGIN
1175: IF PG_DEBUG in ('Y', 'C') THEN
1176: arp_debug.debug( 'arp_process_application.validate_args()+' );
1177: END IF;
1178:
1179: IF (p_ra_id IS NULL)
1180: THEN
1178:
1179: IF (p_ra_id IS NULL)
1180: THEN
1181: APP_EXCEPTION.INVALID_ARGUMENT(
1182: 'ARP_PROCESS_APPLICATION'
1183: , 'P_RA_ID'
1184: , 'NULL');
1185:
1186: ELSIF (p_module_name IS NULL)
1190:
1191: ELSIF (p_reversal_gl_date IS NULL)
1192: THEN
1193: APP_EXCEPTION.INVALID_ARGUMENT(
1194: 'ARP_PROCESS_APPLICATION'
1195: , 'P_REVERSAL_GL_DATE'
1196: , 'NULL');
1197:
1198: ELSIF (p_reversal_date IS NULL)
1197:
1198: ELSIF (p_reversal_date IS NULL)
1199: THEN
1200: APP_EXCEPTION.INVALID_ARGUMENT(
1201: 'ARP_PROCESS_APPLICATION'
1202: , 'P_REVERSAL_DATE'
1203: , 'NULL');
1204: END IF;
1205:
1203: , 'NULL');
1204: END IF;
1205:
1206: IF PG_DEBUG in ('Y', 'C') THEN
1207: arp_debug.debug( 'arp_process_application.validate_args()-' );
1208: END IF;
1209:
1210: EXCEPTION
1211: WHEN OTHERS THEN
1209:
1210: EXCEPTION
1211: WHEN OTHERS THEN
1212: IF PG_DEBUG in ('Y', 'C') THEN
1213: arp_debug.debug('EXCEPTION: arp_process_application.validate_args');
1214: END IF;
1215: RAISE;
1216: END validate_args;
1217: --
1294: l_app_rec arp_global.app_rec_type;
1295:
1296: BEGIN
1297: IF PG_DEBUG in ('Y', 'C') THEN
1298: arp_debug.debug( 'arp_process_application.reversal_update_ps_recs()+');
1299: END IF;
1300:
1301: --------------------------------------------------------------------------
1302: -- Process the payment schedule row of the applied Transaction...
1437: --
1438: arp_ps_util.update_reverse_actions(l_app_rec, NULL, NULL);
1439:
1440: IF PG_DEBUG in ('Y', 'C') THEN
1441: arp_debug.debug( 'arp_process_application.reversal_update_ps_recs()-');
1442: END IF;
1443: EXCEPTION
1444: WHEN OTHERS THEN
1445: IF PG_DEBUG in ('Y', 'C') THEN
1443: EXCEPTION
1444: WHEN OTHERS THEN
1445: IF PG_DEBUG in ('Y', 'C') THEN
1446: arp_debug.debug(
1447: 'EXCEPTION: arp_process_application.reversal_update_ps_recs' );
1448: END IF;
1449: RAISE;
1450: END reversal_update_ps_recs;
1451: --
1558: l_llca_exist varchar(1) := 'N';
1559:
1560: BEGIN
1561: IF PG_DEBUG in ('Y', 'C') THEN
1562: arp_debug.debug( 'arp_process_application.reversal_insert_oppos_ra_recs()+');
1563: END IF;
1564:
1565: -----------------------------------------------------------------
1566: -- Handle the Receipt reversal and Credit Memo reversal cases.
1797:
1798: END IF;
1799:
1800: IF PG_DEBUG in ('Y', 'C') THEN
1801: arp_debug.debug( 'arp_process_application.reversal_insert_oppos_ra_recs()-');
1802: END IF;
1803: return;
1804:
1805: END IF;
2262: -- Update cash receipt status
2263: arp_cash_receipts_pkg.update_p(l_cr_rec, p_ra_rec.cash_receipt_id);
2264:
2265: IF PG_DEBUG in ('Y', 'C') THEN
2266: arp_debug.debug( 'arp_process_application.reversal_insert_oppos_ra_recs()-');
2267: END IF;
2268: EXCEPTION
2269: WHEN OTHERS THEN
2270: IF PG_DEBUG in ('Y', 'C') THEN
2268: EXCEPTION
2269: WHEN OTHERS THEN
2270: IF PG_DEBUG in ('Y', 'C') THEN
2271: arp_debug.debug(
2272: 'EXCEPTION: arp_process_application.reversal_insert_oppos_ra_recs');
2273: END IF;
2274: RAISE;
2275:
2276: END reversal_insert_oppos_ra_recs;
2305: PROCEDURE reversal_update_old_ra_rec( p_reversal_gl_date DATE,
2306: p_ra_rec IN OUT NOCOPY ar_receivable_applications%ROWTYPE ) IS
2307: BEGIN
2308: IF PG_DEBUG in ('Y', 'C') THEN
2309: arp_debug.debug( 'arp_process_application.reversal_update_old_ra_rec()+' );
2310: END IF;
2311: --
2312: p_ra_rec.display := 'N';
2313:
2319: --
2320: arp_app_pkg.update_p( p_ra_rec );
2321: --
2322: IF PG_DEBUG in ('Y', 'C') THEN
2323: arp_debug.debug( 'arp_process_application.reversal_update_old_ra_rec()-' );
2324: END IF;
2325: EXCEPTION
2326: WHEN OTHERS THEN
2327: IF PG_DEBUG in ('Y', 'C') THEN
2325: EXCEPTION
2326: WHEN OTHERS THEN
2327: IF PG_DEBUG in ('Y', 'C') THEN
2328: arp_debug.debug(
2329: 'EXCEPTION: arp_process_application.reversal_update_old_ra_rec' );
2330: END IF;
2331: RAISE;
2332: END reversal_update_old_ra_rec;
2333: --
2401: BEGIN
2402: -- validate_args_appdel( p_ra_id );
2403: --
2404: IF PG_DEBUG in ('Y', 'C') THEN
2405: arp_debug.debug( 'arp_process_application.check_reversable()+' );
2406: END IF;
2407: --
2408: arp_app_pkg.fetch_p(p_ra_id, l_ra_rec );
2409:
2435: AND ps.payment_schedule_id(+) = ra.applied_payment_schedule_id
2436: AND ctt.cust_trx_type_id = ps.cust_trx_type_id;
2437: --
2438: IF PG_DEBUG in ('Y', 'C') THEN
2439: arp_debug.debug( 'arp_process_application.check_reversable()+' );
2440: END IF;
2441: EXCEPTION
2442: WHEN NO_DATA_FOUND THEN
2443: IF PG_DEBUG in ('Y', 'C') THEN
2507: RAISE;
2508: END;
2509:
2510: IF PG_DEBUG in ('Y', 'C') THEN
2511: arp_debug.debug( 'arp_process_application.check_reversable(-6)-' );
2512: END IF;
2513:
2514: IF l_dummy = 1 THEN
2515: RETURN FALSE;
2686: AND adj.chargeback_customer_trx_id = ps.customer_trx_id(+)
2687: FOR UPDATE OF ps.last_updated_by,adj.last_updated_by NOWAIT; */
2688: --
2689: IF PG_DEBUG in ('Y', 'C') THEN
2690: arp_debug.debug( 'arp_process_application.check_reversable()-' );
2691: END IF;
2692: RETURN TRUE;
2693: --
2694: EXCEPTION
2694: EXCEPTION
2695: WHEN OTHERS THEN
2696: IF PG_DEBUG in ('Y', 'C') THEN
2697: arp_debug.debug(
2698: 'EXCEPTION: arp_process_application.check_reversable - OTHER' );
2699: END IF;
2700: RAISE;
2701: END check_reversable;
2702: --
2725: PROCEDURE validate_args_appdel(
2726: p_ra_id IN ar_receivable_applications.receivable_application_id%TYPE ) IS
2727: BEGIN
2728: IF PG_DEBUG in ('Y', 'C') THEN
2729: arp_debug.debug( 'arp_process_application.validate_args_appdel()+' );
2730: END IF;
2731: --
2732: IF ( p_ra_id is NULL ) THEN
2733: FND_MESSAGE.set_name ('AR', 'AR_ARGUEMENTS_FAIL' );
2734: APP_EXCEPTION.raise_exception;
2735: END IF;
2736: --
2737: IF PG_DEBUG in ('Y', 'C') THEN
2738: arp_debug.debug( 'arp_process_application.validate_args_appdel()-' );
2739: END IF;
2740: EXCEPTION
2741: WHEN OTHERS THEN
2742: IF PG_DEBUG in ('Y', 'C') THEN
2740: EXCEPTION
2741: WHEN OTHERS THEN
2742: IF PG_DEBUG in ('Y', 'C') THEN
2743: arp_debug.debug(
2744: 'EXCEPTION: arp_process_application.validate_args_appdel' );
2745: END IF;
2746: RAISE;
2747: END validate_args_appdel;
2748: --
2834: AND associated_application_id is null
2835: AND chargeback_customer_trx_id is null;
2836: BEGIN
2837: IF PG_DEBUG in ('Y', 'C') THEN
2838: arp_debug.debug( 'arp_process_application.reverse_action()+' );
2839: END IF;
2840: --
2841: IF PG_DEBUG in ('Y', 'C') THEN
2842: arp_debug.debug( to_char( p_ra_id ) );
3055: END IF;
3056: arp_ps_util.update_reverse_actions( l_app_rec, NULL, NULL );
3057: --
3058: IF PG_DEBUG in ('Y', 'C') THEN
3059: arp_debug.debug( 'arp_process_application.reverse_action()-' );
3060: END IF;
3061: EXCEPTION
3062: WHEN OTHERS THEN
3063: IF PG_DEBUG in ('Y', 'C') THEN
3061: EXCEPTION
3062: WHEN OTHERS THEN
3063: IF PG_DEBUG in ('Y', 'C') THEN
3064: arp_debug.debug(
3065: 'EXCEPTION: arp_process_application.reverse_action' );
3066: END IF;
3067: RAISE;
3068: END reverse_action;
3069: --
3103: p_select_flag IN BOOLEAN ) IS
3104: BEGIN
3105: IF PG_DEBUG in ('Y', 'C') THEN
3106: arp_debug.debug(
3107: 'arp_process_application.validate_reverse_action_args()+' );
3108: END IF;
3109: --
3110: IF ( p_ra_id IS NULL OR p_reversal_gl_date IS NULL OR
3111: p_select_flag IS NULL ) THEN
3120: END IF;
3121: END IF;
3122: --
3123: IF PG_DEBUG in ('Y', 'C') THEN
3124: arp_debug.debug( 'arp_process_application.validate_reverse_action_args()-' );
3125: END IF;
3126: EXCEPTION
3127: WHEN OTHERS THEN
3128: IF PG_DEBUG in ('Y', 'C') THEN
3126: EXCEPTION
3127: WHEN OTHERS THEN
3128: IF PG_DEBUG in ('Y', 'C') THEN
3129: arp_debug.debug(
3130: 'EXCEPTION: arp_process_application.validate_reverse_action_args' );
3131: END IF;
3132: RAISE;
3133: END validate_reverse_action_args;
3134: --
3432: l_org_id NUMBER := -99;
3433:
3434: BEGIN
3435: IF PG_DEBUG in ('Y', 'C') THEN
3436: arp_debug.debug( 'arp_process_application.receipt_application()+' );
3437: END IF;
3438:
3439: /* Bug 3773036: Initializing return status ..*/
3440: x_return_status := FND_API.G_RET_STS_SUCCESS;
3919: --for PS -2, it should go in side the if condition
3920:
3921: IF (p_invoice_ps_id not in (-4,-5)) THEN
3922:
3923: ARP_PROCESS_APPLICATION.fetch_app_ccid(p_invoice_ps_id,
3924: l_inv_ra_rec.applied_customer_trx_id,
3925: l_inv_ra_rec.code_combination_id,
3926: l_source_type);
3927:
4453:
4454: -- RAM-C changes end
4455:
4456: IF PG_DEBUG in ('Y', 'C') THEN
4457: arp_debug.debug( 'arp_process_application.receipt_application()-' );
4458: END IF;
4459:
4460: EXCEPTION
4461: /* Bug 3773036 - Trade management errors treated separately to
4462: ensure calling program displays TM error */
4463: WHEN trade_mgt_err THEN
4464: IF PG_DEBUG in ('Y', 'C') THEN
4465: arp_debug.debug('Error occured in Trade Management: ' ||
4466: 'EXCEPTION: arp_process_application.receipt_application' );
4467: END IF;
4468: WHEN OTHERS THEN
4469: IF PG_DEBUG in ('Y', 'C') THEN
4470: arp_debug.debug(
4467: END IF;
4468: WHEN OTHERS THEN
4469: IF PG_DEBUG in ('Y', 'C') THEN
4470: arp_debug.debug(
4471: 'EXCEPTION: arp_process_application.receipt_application' );
4472: END IF;
4473: RAISE;
4474: END receipt_application;
4475: --
4523: p_apply_date IN ar_receivable_applications.apply_date%TYPE,
4524: p_gl_date IN ar_receivable_applications.gl_date%TYPE ) IS
4525: BEGIN
4526: IF PG_DEBUG in ('Y', 'C') THEN
4527: arp_debug.debug( 'arp_process_application.validate_receipt_appln_args()+' );
4528: END IF;
4529:
4530: -- Check for mandatory parameters.
4531: IF ( p_receipt_ps_id IS NULL OR
4558: END IF;
4559:
4560:
4561: IF PG_DEBUG in ('Y', 'C') THEN
4562: arp_debug.debug( 'arp_process_application.validate_receipt_appln_args()-' );
4563: END IF;
4564:
4565: EXCEPTION
4566: WHEN OTHERS THEN
4564:
4565: EXCEPTION
4566: WHEN OTHERS THEN
4567: IF PG_DEBUG in ('Y', 'C') THEN
4568: arp_debug.debug( 'EXCEPTION: arp_process_application.validate_receipt_appln_args' );
4569: END IF;
4570: RAISE;
4571: END validate_receipt_appln_args;
4572: --
4713: l_new_acctd_amt_due_rem Number;
4714:
4715: BEGIN
4716: IF PG_DEBUG in ('Y', 'C') THEN
4717: arp_debug.debug( 'arp_process_application.cm_application()+' );
4718: END IF;
4719:
4720: -- Output IN parameters
4721: IF PG_DEBUG in ('Y', 'C') THEN
4815: /* 14-APR-2000 jrautiai BR implementation
4816: * Moved into a procedure for BR transactions has the accounting in ar_distributions table.
4817: * instead of ra_cust_trx_line_gl_dist */
4818:
4819: ARP_PROCESS_APPLICATION.fetch_app_ccid(p_invoice_ps_id,
4820: l_inv_ra_rec.applied_customer_trx_id,
4821: l_inv_ra_rec.code_combination_id,
4822: l_source_type);
4823:
5045: -- Return the new receivable_application_id
5046: p_out_rec_application_id := l_inv_ra_rec.receivable_application_id;
5047:
5048: IF PG_DEBUG in ('Y', 'C') THEN
5049: arp_debug.debug( 'arp_process_application.cm_application()-' );
5050: END IF;
5051:
5052: EXCEPTION
5053: WHEN OTHERS THEN
5052: EXCEPTION
5053: WHEN OTHERS THEN
5054: IF PG_DEBUG in ('Y', 'C') THEN
5055: arp_debug.debug(
5056: 'EXCEPTION: arp_process_application.cm_application' );
5057: END IF;
5058: RAISE;
5059: END cm_application;
5060: --
5093: p_gl_date IN ar_receivable_applications.gl_date%TYPE ) IS
5094: BEGIN
5095: IF PG_DEBUG in ('Y', 'C') THEN
5096: arp_debug.debug(
5097: 'arp_process_application.validate_cm_appln_args()+' );
5098: END IF;
5099: --
5100: IF ( p_cm_ps_id IS NULL OR p_invoice_ps_id IS NULL OR
5101: p_apply_date IS NULL OR p_gl_date IS NULL OR
5105: END IF;
5106: --
5107: IF PG_DEBUG in ('Y', 'C') THEN
5108: arp_debug.debug(
5109: 'arp_process_application.validate_cm_appln_args()-' );
5110: END IF;
5111: EXCEPTION
5112: WHEN OTHERS THEN
5113: IF PG_DEBUG in ('Y', 'C') THEN
5111: EXCEPTION
5112: WHEN OTHERS THEN
5113: IF PG_DEBUG in ('Y', 'C') THEN
5114: arp_debug.debug(
5115: 'EXCEPTION: arp_process_application.validate_cm_appln_args' );
5116: END IF;
5117: RAISE;
5118: END validate_cm_appln_args;
5119: --
5262: l_xla_doc_table VARCHAR2(20);
5263:
5264: BEGIN
5265: IF PG_DEBUG in ('Y', 'C') THEN
5266: arp_debug.debug( 'arp_process_application.on_account_receipts()+' );
5267: arp_debug.debug( '-- p_receipt_ps_id = '||TO_CHAR(p_receipt_ps_id));
5268: arp_debug.debug( '-- p_amount_applied = '||
5269: TO_CHAR( p_amount_applied ) );
5270: arp_debug.debug( '-- p_gl_date = '|| TO_CHAR( p_gl_date ) );
5554: p_out_rec_application_id := l_ra_rec.receivable_application_id;
5555:
5556: IF PG_DEBUG in ('Y', 'C') THEN
5557: arp_debug.debug(
5558: 'arp_process_application.on_account_receipts()-' );
5559: END IF;
5560: EXCEPTION
5561: WHEN OTHERS THEN
5562: IF PG_DEBUG in ('Y', 'C') THEN
5560: EXCEPTION
5561: WHEN OTHERS THEN
5562: IF PG_DEBUG in ('Y', 'C') THEN
5563: arp_debug.debug(
5564: 'EXCEPTION: arp_process_application.on_account_receipts' );
5565: END IF;
5566: RAISE;
5567:
5568: END on_account_receipts;
5600: p_gl_date IN ar_receivable_applications.gl_date%TYPE ) IS
5601: BEGIN
5602: IF PG_DEBUG in ('Y', 'C') THEN
5603: arp_debug.debug(
5604: 'arp_process_application.validate_on_account_args()+' );
5605: END IF;
5606: --
5607: IF ( p_ps_id IS NULL OR p_apply_date IS NULL OR
5608: p_gl_date IS NULL OR p_amount_applied IS NULL ) THEN
5611: END IF;
5612: --
5613: IF PG_DEBUG in ('Y', 'C') THEN
5614: arp_debug.debug(
5615: 'arp_process_application.validate_on_account_args()-' );
5616: END IF;
5617: EXCEPTION
5618: WHEN OTHERS THEN
5619: IF PG_DEBUG in ('Y', 'C') THEN
5617: EXCEPTION
5618: WHEN OTHERS THEN
5619: IF PG_DEBUG in ('Y', 'C') THEN
5620: arp_debug.debug(
5621: 'EXCEPTION: arp_process_application.validate_on_account_args' );
5622: END IF;
5623: RAISE;
5624: END validate_on_account_args;
5625:
5889: l_pymnt_trxn_ext_id_temp ar_cash_receipts.payment_trxn_extension_id%TYPE;
5890:
5891: BEGIN
5892: IF PG_DEBUG in ('Y', 'C') THEN
5893: arp_debug.debug( 'arp_process_application.activity_application()+' );
5894: arp_debug.debug( '-- p_receipt_ps_id = '||TO_CHAR(p_receipt_ps_id));
5895: arp_debug.debug( '-- p_application_ps_id = '||TO_CHAR(p_application_ps_id));
5896: arp_debug.debug( '-- p_link_to_customer_trx_id = '||
5897: TO_CHAR(p_link_to_customer_trx_id));
6095: EXCEPTION
6096: WHEN API_exception THEN
6097: IF PG_DEBUG in ('Y', 'C') THEN
6098: arp_debug.debug( 'API EXCEPTION: ' ||
6099: 'arp_process_application.activity_application(misc_receipt creation))'
6100: ||SQLERRM);
6101: END IF;
6102: FND_MSG_PUB.Get (FND_MSG_PUB.G_FIRST, FND_API.G_TRUE,
6103: l_msg_data, l_msg_index);
6106:
6107: WHEN OTHERS THEN
6108: IF PG_DEBUG in ('Y', 'C') THEN
6109: arp_debug.debug( 'API EXCEPTION: ' ||
6110: 'arp_process_application.activity_application(misc_receipt creation))'
6111: ||SQLERRM);
6112: END IF;
6113: RAISE;
6114: END; -- Misc receipt creation block
6532: p_application_ref_num := l_application_ref_num;
6533: p_secondary_application_ref_id := l_secondary_application_ref_id;
6534:
6535: IF PG_DEBUG in ('Y', 'C') THEN
6536: arp_debug.debug( 'arp_process_application.activity_application()-' );
6537: END IF;
6538: EXCEPTION
6539: WHEN OTHERS THEN
6540: IF PG_DEBUG in ('Y', 'C') THEN
6537: END IF;
6538: EXCEPTION
6539: WHEN OTHERS THEN
6540: IF PG_DEBUG in ('Y', 'C') THEN
6541: arp_debug.debug( 'EXCEPTION: arp_process_application.activity_application' );
6542: END IF;
6543: RAISE;
6544:
6545: END activity_application;
6583: p_receivables_trx_id IN ar_receivable_applications.receivables_trx_id%TYPE) IS
6584:
6585: BEGIN
6586: IF PG_DEBUG in ('Y', 'C') THEN
6587: arp_debug.debug( 'arp_process_application.validate_activity_args()+' );
6588: END IF;
6589:
6590: /* All the arguments must be defined */
6591:
6603: APP_EXCEPTION.raise_exception;
6604: END IF;
6605:
6606: IF PG_DEBUG in ('Y', 'C') THEN
6607: arp_debug.debug( 'arp_process_application.validate_activity_args()-' );
6608: END IF;
6609: EXCEPTION
6610: WHEN OTHERS THEN
6611: IF PG_DEBUG in ('Y', 'C') THEN
6608: END IF;
6609: EXCEPTION
6610: WHEN OTHERS THEN
6611: IF PG_DEBUG in ('Y', 'C') THEN
6612: arp_debug.debug( 'EXCEPTION: arp_process_application.validate_activity_args' );
6613: END IF;
6614: RAISE;
6615: END validate_activity_args;
6616:
6707: l_postable_trh_id ar_transaction_history.transaction_history_id%TYPE;
6708:
6709: BEGIN
6710: IF PG_DEBUG in ('Y', 'C') THEN
6711: arp_debug.debug( 'arp_process_application.fetch_app_ccid()+' );
6712: END IF;
6713:
6714: /* Fetch transaction class to branch out NOCOPY the depending whether
6715: * we are dealing with Bills Receivable or not */
6785:
6786: END IF;
6787:
6788: IF PG_DEBUG in ('Y', 'C') THEN
6789: arp_debug.debug( 'arp_process_application.fetch_app_ccid()-' );
6790: END IF;
6791: EXCEPTION
6792: WHEN OTHERS THEN
6793: IF PG_DEBUG in ('Y', 'C') THEN
6791: EXCEPTION
6792: WHEN OTHERS THEN
6793: IF PG_DEBUG in ('Y', 'C') THEN
6794: arp_debug.debug( SQLERRM(SQLCODE));
6795: arp_debug.debug( 'EXCEPTION: arp_process_application.fetch_app_ccid' );
6796: END IF;
6797: RAISE;
6798: END fetch_app_ccid;
6799:
6825: p_activity_type IN ar_receivables_trx.type%TYPE) IS
6826:
6827: BEGIN
6828: IF PG_DEBUG in ('Y', 'C') THEN
6829: arp_debug.debug( 'arp_process_application.validate_activity()+' );
6830: END IF;
6831:
6832: /* Activity and seeded ps must match. */
6833: --SNAMBIAR Added a new validation for applied PS id -3
6842:
6843: END IF;
6844:
6845: IF PG_DEBUG in ('Y', 'C') THEN
6846: arp_debug.debug( 'arp_process_application.validate_activity()-' );
6847: END IF;
6848: EXCEPTION
6849: WHEN OTHERS THEN
6850: IF PG_DEBUG in ('Y', 'C') THEN
6847: END IF;
6848: EXCEPTION
6849: WHEN OTHERS THEN
6850: IF PG_DEBUG in ('Y', 'C') THEN
6851: arp_debug.debug( 'EXCEPTION: arp_process_application.validate_activity' );
6852: END IF;
6853: RAISE;
6854: END validate_activity;
6855:
6895: current_BR_rec current_BR_cur%ROWTYPE;
6896:
6897: BEGIN
6898: IF PG_DEBUG in ('Y', 'C') THEN
6899: arp_debug.debug( 'arp_process_application.unapp_postable()+' );
6900: END IF;
6901:
6902: IF p_applied_customer_trx_id IS NULL OR p_applied_ps_id IS NULL OR p_applied_ps_id = -1 THEN
6903:
6927:
6928: END IF;
6929:
6930: IF PG_DEBUG in ('Y', 'C') THEN
6931: arp_debug.debug( 'arp_process_application.unapp_postable()-' );
6932: END IF;
6933: EXCEPTION
6934: WHEN OTHERS THEN
6935: IF PG_DEBUG in ('Y', 'C') THEN
6932: END IF;
6933: EXCEPTION
6934: WHEN OTHERS THEN
6935: IF PG_DEBUG in ('Y', 'C') THEN
6936: arp_debug.debug( 'EXCEPTION: arp_process_application.unapp_postable' );
6937: END IF;
6938: RAISE;
6939: END unapp_postable;
6940:
7107: l_xla_doc_table VARCHAR2(20);
7108:
7109: BEGIN
7110: IF PG_DEBUG in ('Y', 'C') THEN
7111: arp_debug.debug( 'arp_process_application.other_account_application()+' );
7112: END IF;
7113: x_return_status := FND_API.G_RET_STS_SUCCESS;
7114:
7115: IF PG_DEBUG in ('Y', 'C') THEN
7551: -- ---------------------------------------------------------------------
7552: p_out_rec_application_id := l_ra_rec.receivable_application_id;
7553:
7554: IF PG_DEBUG in ('Y', 'C') THEN
7555: arp_debug.debug( 'arp_process_application.other_account_application()-' );
7556: END IF;
7557: EXCEPTION
7558: WHEN trade_mgt_err THEN
7559: x_return_status := FND_API.G_RET_STS_ERROR;
7558: WHEN trade_mgt_err THEN
7559: x_return_status := FND_API.G_RET_STS_ERROR;
7560: IF PG_DEBUG in ('Y', 'C') THEN
7561: arp_debug.debug('Trade Management : ' ||
7562: 'EXCEPTION: arp_process_application.other_account_application' );
7563: END IF;
7564: WHEN OTHERS THEN
7565: x_return_status := FND_API.G_RET_STS_ERROR;
7566: IF PG_DEBUG in ('Y', 'C') THEN
7564: WHEN OTHERS THEN
7565: x_return_status := FND_API.G_RET_STS_ERROR;
7566: IF PG_DEBUG in ('Y', 'C') THEN
7567: arp_debug.debug(
7568: 'EXCEPTION: arp_process_application.other_account_application' );
7569: END IF;
7570: RAISE;
7571:
7572: END other_account_application;
7653:
7654: BEGIN
7655:
7656: IF PG_DEBUG in ('Y', 'C') THEN
7657: arp_debug.debug( 'arp_process_application.create_claim()+' );
7658: END IF;
7659: IF p_amount = 0
7660: THEN
7661: x_return_status := 'S';
7772: x_return_status := 'U';
7773: END IF;
7774:
7775: IF PG_DEBUG in ('Y', 'C') THEN
7776: arp_debug.debug( 'arp_process_application.create_claim()-' );
7777: END IF;
7778:
7779: EXCEPTION
7780: WHEN OTHERS THEN
7779: EXCEPTION
7780: WHEN OTHERS THEN
7781: IF PG_DEBUG in ('Y', 'C') THEN
7782: arp_debug.debug(
7783: 'EXCEPTION: arp_process_application.create_claim' );
7784: END IF;
7785: RAISE;
7786: END create_claim;
7787:
7860: /*End of change, Bug 11841102*/
7861:
7862: BEGIN
7863: IF PG_DEBUG in ('Y', 'C') THEN
7864: arp_debug.debug( 'arp_process_application.update_claim()+' );
7865: END IF;
7866:
7867: l_return_status := FND_API.G_RET_STS_SUCCESS;
7868:
8046: END IF;
8047:
8048: IF PG_DEBUG in ('Y', 'C') AND l_return_status <> FND_API.G_RET_STS_SUCCESS
8049: THEN
8050: arp_debug.debug( 'arp_process_application.update_claim: ERROR occurred calling update_deduction: '||SQLERRM );
8051: END IF;
8052: IF PG_DEBUG in ('Y', 'C') THEN
8053: arp_debug.debug( 'arp_process_application.update_claim()-' );
8054: END IF;
8049: THEN
8050: arp_debug.debug( 'arp_process_application.update_claim: ERROR occurred calling update_deduction: '||SQLERRM );
8051: END IF;
8052: IF PG_DEBUG in ('Y', 'C') THEN
8053: arp_debug.debug( 'arp_process_application.update_claim()-' );
8054: END IF;
8055:
8056: EXCEPTION
8057: WHEN OTHERS THEN
8056: EXCEPTION
8057: WHEN OTHERS THEN
8058: IF PG_DEBUG in ('Y', 'C') THEN
8059: arp_debug.debug(
8060: 'EXCEPTION: arp_process_application.update_claim' );
8061: END IF;
8062: RAISE;
8063: END update_claim;
8064:
8099: l_note_id NUMBER;
8100:
8101: BEGIN
8102: IF PG_DEBUG in ('Y', 'C') THEN
8103: arp_debug.debug( 'arp_process_application.insert_trx_note()+' );
8104: END IF;
8105: --Bug 1812334 : ar_notes entry needs to be created also when the claim is cancelled.
8106:
8107: IF p_flag = 'CREATE' THEN
8136: p_last_update_login => l_last_update_login,
8137: p_created_by => l_user_id,
8138: p_creation_date => l_sysdate);
8139: IF PG_DEBUG in ('Y', 'C') THEN
8140: arp_debug.debug( 'arp_process_application.insert_trx_note()-' );
8141: END IF;
8142: EXCEPTION
8143: WHEN OTHERS THEN
8144: IF PG_DEBUG in ('Y', 'C') THEN
8141: END IF;
8142: EXCEPTION
8143: WHEN OTHERS THEN
8144: IF PG_DEBUG in ('Y', 'C') THEN
8145: arp_debug.debug( 'EXCEPTION: arp_process_application.insert_trx_note' );
8146: END IF;
8147: RAISE;
8148: END insert_trx_note;
8149:
8181: FROM ar_payment_schedules
8182: WHERE payment_schedule_id = p_ps_id;
8183: BEGIN
8184: IF PG_DEBUG in ('Y', 'C') THEN
8185: arp_debug.debug( 'arp_process_application.put_trx_in_dispute()+' );
8186: END IF;
8187: l_user_id := arp_standard.profile.user_id;
8188: l_last_update_login := arp_standard.profile.last_update_login;
8189: l_sysdate := SYSDATE;
8249: l_trx_class,
8250: l_history_id);
8251:
8252: IF PG_DEBUG in ('Y', 'C') THEN
8253: arp_debug.debug( 'arp_process_application.put_trx_in_dispute()-' );
8254: END IF;
8255: EXCEPTION
8256: WHEN OTHERS THEN
8257: IF PG_DEBUG in ('Y', 'C') THEN
8254: END IF;
8255: EXCEPTION
8256: WHEN OTHERS THEN
8257: IF PG_DEBUG in ('Y', 'C') THEN
8258: arp_debug.debug( 'EXCEPTION: arp_process_application.put_trx_in_dispute');
8259: END IF;
8260: RAISE;
8261: END put_trx_in_dispute;
8262:
8287: l_user_id := arp_standard.profile.user_id;
8288: l_last_update_login := arp_standard.profile.last_update_login;
8289: l_sysdate := SYSDATE;
8290: IF PG_DEBUG in ('Y', 'C') THEN
8291: arp_debug.debug( 'arp_process_application.update_dispute_on_trx()+' );
8292: END IF;
8293: /*Bug 5129946: Calling arp_dispute_history.DisputeHistory*/
8294: OPEN get_existing_ps(p_invoice_ps_id);
8295: FETCH get_existing_ps INTO
8346: /*End of change, Bug 11841102*/
8347:
8348:
8349: IF PG_DEBUG in ('Y', 'C') THEN
8350: arp_debug.debug( 'arp_process_application.update_dispute_on_trx()-' );
8351: END IF;
8352: EXCEPTION
8353: WHEN OTHERS THEN
8354: IF PG_DEBUG in ('Y', 'C') THEN
8351: END IF;
8352: EXCEPTION
8353: WHEN OTHERS THEN
8354: IF PG_DEBUG in ('Y', 'C') THEN
8355: arp_debug.debug( 'EXCEPTION: arp_process_application.update_dispute_on_trx');
8356: END IF;
8357: RAISE;
8358: END update_dispute_on_trx;
8359:
8394: p_module_version IN VARCHAR2 ) IS
8395: --
8396: BEGIN
8397: IF PG_DEBUG in ('Y', 'C') THEN
8398: arp_debug.debug( 'arp_process_application.reverse_action_receipt_cb()+' );
8399: END IF;
8400: --
8401: -- reverse chargeback
8402: -- For receipt chargeback,there is no adjustment associated with it
8407: p_module_name,
8408: p_module_version );
8409:
8410: IF PG_DEBUG in ('Y', 'C') THEN
8411: arp_debug.debug( 'arp_process_application.reverse_action_receipt_cb()-' );
8412: END IF;
8413: EXCEPTION
8414: WHEN OTHERS THEN
8415: IF PG_DEBUG in ('Y', 'C') THEN
8413: EXCEPTION
8414: WHEN OTHERS THEN
8415: IF PG_DEBUG in ('Y', 'C') THEN
8416: arp_debug.debug(
8417: 'EXCEPTION: arp_process_application.reverse_action_receipt_cb' );
8418: END IF;
8419: RAISE;
8420: END reverse_action_receipt_cb;
8421:
8460: l_msg_index NUMBER;
8461: API_exception EXCEPTION;
8462: BEGIN
8463: IF PG_DEBUG in ('Y', 'C') THEN
8464: arp_debug.debug( 'arp_process_application.reverse_action_misc_receipt()+' );
8465: END IF;
8466: --
8467: -- reverse Misc Receipt
8468:
8539:
8540: END IF; -- l_return_status
8541:
8542: IF PG_DEBUG in ('Y', 'C') THEN
8543: arp_debug.debug( 'arp_process_application.reverse_action_misc_receipt()-' );
8544: END IF;
8545: /*----------------------------------+
8546: | APIs propagate exception upwards |
8547: +----------------------------------*/
8548: EXCEPTION
8549: WHEN API_exception THEN
8550: IF PG_DEBUG in ('Y', 'C') THEN
8551: arp_debug.debug( 'API EXCEPTION: ' ||
8552: 'arp_process_application.reverse_action_misc_receipt'
8553: ||SQLERRM);
8554: END IF;
8555: FND_MSG_PUB.Get (FND_MSG_PUB.G_FIRST, FND_API.G_TRUE,
8556: l_msg_data, l_msg_index);
8558: app_exception.raise_exception;
8559:
8560: WHEN OTHERS THEN
8561: IF PG_DEBUG in ('Y', 'C') THEN
8562: arp_debug.debug('EXCEPTION: arp_process_application.reverse_action_misc_receipt'
8563: ||SQLERRM);
8564: END IF;
8565: RAISE;
8566: END reverse_action_misc_receipt;
8595: l_query_string VARCHAR2(2000);
8596:
8597: BEGIN
8598: IF PG_DEBUG in ('Y', 'C') THEN
8599: arp_debug.debug( 'arp_process_application.get_claim_status()+' );
8600: END IF;
8601: l_query_string :=
8602: ' select status_code from ozf_ar_deductions_v where claim_id = :claim_id ';
8603: BEGIN
8610: FND_MESSAGE.set_token('CLAIM_ID',p_claim_id);
8611: APP_EXCEPTION.raise_exception;
8612: END;
8613: IF PG_DEBUG in ('Y', 'C') THEN
8614: arp_debug.debug( 'arp_process_application.get_claim_status()-' );
8615: END IF;
8616: END get_claim_status;
8617:
8618: /*===========================================================================+
8758: l_xla_doc_table VARCHAR2(20);
8759:
8760: BEGIN
8761: IF PG_DEBUG in ('Y', 'C') THEN
8762: arp_debug.debug('arp_process_application.cm_activity_application()+' );
8763: END IF;
8764:
8765: x_return_status := FND_API.G_RET_STS_SUCCESS;
8766:
8882: EXCEPTION
8883: WHEN OTHERS THEN
8884: IF PG_DEBUG in ('Y', 'C') THEN
8885: arp_debug.debug(
8886: 'EXCEPTION: arp_process_application.cm_activity_application' );
8887: END IF;
8888: RAISE;
8889: END;
8890: END IF;
8953: and account_class='REC'
8954: and latest_rec_flag='Y';
8955:
8956: IF PG_DEBUG in ('Y', 'C') THEN
8957: arp_debug.debug('Before BS Substitute: arp_process_application.cm_activity_application' );
8958: arp_debug.debug('Before BS Substitute: arp_process_application.cm_activity_application CCID REC' || l_rec_ccid );
8959: arp_debug.debug('Before BS Substitute: arp_process_application.cm_activity_application CCID ACTIVITY' || l_activity_ccid );
8960:
8961: END IF;
8954: and latest_rec_flag='Y';
8955:
8956: IF PG_DEBUG in ('Y', 'C') THEN
8957: arp_debug.debug('Before BS Substitute: arp_process_application.cm_activity_application' );
8958: arp_debug.debug('Before BS Substitute: arp_process_application.cm_activity_application CCID REC' || l_rec_ccid );
8959: arp_debug.debug('Before BS Substitute: arp_process_application.cm_activity_application CCID ACTIVITY' || l_activity_ccid );
8960:
8961: END IF;
8962:
8955:
8956: IF PG_DEBUG in ('Y', 'C') THEN
8957: arp_debug.debug('Before BS Substitute: arp_process_application.cm_activity_application' );
8958: arp_debug.debug('Before BS Substitute: arp_process_application.cm_activity_application CCID REC' || l_rec_ccid );
8959: arp_debug.debug('Before BS Substitute: arp_process_application.cm_activity_application CCID ACTIVITY' || l_activity_ccid );
8960:
8961: END IF;
8962:
8963: IF NVL(FND_PROFILE.value('AR_DISABLE_REC_ACTIVITY_BALSEG_SUBSTITUTION'),'N') = 'N' THEN
9017: -- Return the new receivable_application_id
9018: p_out_rec_application_id := l_inv_ra_rec.receivable_application_id;
9019:
9020: IF PG_DEBUG in ('Y', 'C') THEN
9021: arp_debug.debug('arp_process_application.cm_activity_application()-' );
9022: END IF;
9023:
9024: EXCEPTION
9025: WHEN OTHERS THEN
9024: EXCEPTION
9025: WHEN OTHERS THEN
9026: IF PG_DEBUG in ('Y', 'C') THEN
9027: arp_debug.debug(
9028: 'EXCEPTION: arp_process_application.cm_activity_application' );
9029: END IF;
9030: RAISE;
9031: END cm_activity_application;
9032:
9066: l_msg_data VARCHAR2(1000);
9067: API_EXCEPTION EXCEPTION;
9068:
9069: BEGIN
9070: arp_debug.debug('arp_process_application.Unapply_Regular_CM()+');
9071:
9072: For rec in (select receivable_application_id source_id from ar_receivable_applications ra
9073: where customer_trx_id = p_cust_Trx_id
9074: and applied_customer_trx_id = p_app_cust_trx_id
9185: SET comments = comments || l_message_text
9186: WHERE customer_trx_id = p_cust_trx_id
9187: AND account_set_flag = 'N';
9188:
9189: arp_debug.debug('arp_process_application.Unassociate_Regular_CM()+');
9190:
9191: END Unassociate_Regular_CM;
9192:
9193: FUNCTION is_regular_cm (p_customer_Trx_id IN NUMBER,
9195:
9196: l_prev_cust_trx_id NUMBER;
9197:
9198: BEGIN
9199: arp_debug.debug('arp_process_application.is_regular_cm()+');
9200:
9201: SELECT nvl(previous_customer_Trx_id, -999),
9202: nvl(invoicing_rule_id, -999)
9203: INTO l_prev_cust_trx_id,
9312: end if;
9313: EXCEPTION
9314: WHEN OTHERS THEN
9315: IF PG_DEBUG in ('Y', 'C') THEN
9316: arp_debug.debug('EXCEPTION: arp_process_application.Unassociate_Deposit' );
9317: END IF;
9318: RAISE;
9319: end Unassociate_Deposit_from_CM;
9320: END arp_process_application;
9316: arp_debug.debug('EXCEPTION: arp_process_application.Unassociate_Deposit' );
9317: END IF;
9318: RAISE;
9319: end Unassociate_Deposit_from_CM;
9320: END arp_process_application;