[Home] [Help]
1: PACKAGE BODY ARP_PROCESS_APPLICATION AS
2: /* $Header: ARCEAPPB.pls 120.86.12010000.7 2008/11/17 12:51:02 npanchak ship $ */
3:
4: /* =======================================================================
5: | Global Data Types
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,
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
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;
539: --
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.
620:
621: -- need some information to check if we have a regular cm or
622: -- on acct credit memo also if we have invoice with rules.
623: -- to do some processing before the application is reversed.
624: l_reg_cm := arp_process_application.is_regular_cm(
625: p_customer_trx_id => lr_ra_rec.customer_trx_id,
626: p_invoicing_rule_id => l_rule_id);
627:
628: IF (l_reg_cm) THEN
652: END IF;
653:
654: END IF;
655:
656: arp_process_application.Unassociate_Regular_CM(
657: p_cust_Trx_id => lr_ra_rec.customer_trx_id,
658: p_app_cust_trx_id => lr_ra_rec.applied_customer_trx_id);
659:
660: END IF;
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:
892: -- First check that all required arguments have some value
893: IF (pn_ra_id IS NULL)
894: THEN
895: APP_EXCEPTION.INVALID_ARGUMENT(
896: 'ARP_PROCESS_APPLICATION.UPDATE_SELECTED_TRANSACTION'
897: , 'PN_RA_ID'
898: , 'NULL');
899: ELSIF (pn_amount_applied IS NULL)
900: THEN
898: , 'NULL');
899: ELSIF (pn_amount_applied IS NULL)
900: THEN
901: APP_EXCEPTION.INVALID_ARGUMENT(
902: 'ARP_PROCESS_APPLICATION.UPDATE_SELECTED_TRANSACTION'
903: , 'pn_amount_applied'
904: , 'NULL');
905: END IF;
906:
905: END IF;
906:
907: IF (pc_invoice_currency_code IS NULL) THEN
908: APP_EXCEPTION.INVALID_ARGUMENT(
909: 'ARP_PROCESS_APPLICATION.UPDATE_SELECTED_TRANSACTION'
910: , 'pc_invoice_currency_code'
911: , 'NULL');
912: ELSIF (pc_invoice_currency_code <> functional_curr) AND
913: (pn_invoice_exchange_rate IS NULL) THEN
911: , 'NULL');
912: ELSIF (pc_invoice_currency_code <> functional_curr) AND
913: (pn_invoice_exchange_rate IS NULL) THEN
914: APP_EXCEPTION.INVALID_ARGUMENT(
915: 'ARP_PROCESS_APPLICATION.UPDATE_SELECTED_TRANSACTION'
916: , 'pn_invoice_exchange_rate'
917: , 'NULL');
918: END IF;
919:
918: END IF;
919:
920: IF (pc_receipt_currency_code IS NULL) THEN
921: APP_EXCEPTION.INVALID_ARGUMENT(
922: 'ARP_PROCESS_APPLICATION.UPDATE_SELECTED_TRANSACTION'
923: , 'pc_receipt_currency_code'
924: , 'NULL');
925: ELSIF (pc_receipt_currency_code <> functional_curr) AND
926: (pn_receipt_exchange_rate IS NULL) THEN
924: , 'NULL');
925: ELSIF (pc_receipt_currency_code <> functional_curr) AND
926: (pn_receipt_exchange_rate IS NULL) THEN
927: APP_EXCEPTION.INVALID_ARGUMENT(
928: 'ARP_PROCESS_APPLICATION.UPDATE_SELECTED_TRANSACTION'
929: , 'pn_receipt_exchange_rate'
930: , 'NULL');
931: END IF;
932:
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
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
1141:
1142: IF (p_ra_id IS NULL)
1143: THEN
1144: APP_EXCEPTION.INVALID_ARGUMENT(
1145: 'ARP_PROCESS_APPLICATION'
1146: , 'P_RA_ID'
1147: , 'NULL');
1148:
1149: ELSIF (p_module_name IS NULL)
1153:
1154: ELSIF (p_reversal_gl_date IS NULL)
1155: THEN
1156: APP_EXCEPTION.INVALID_ARGUMENT(
1157: 'ARP_PROCESS_APPLICATION'
1158: , 'P_REVERSAL_GL_DATE'
1159: , 'NULL');
1160:
1161: ELSIF (p_reversal_date IS NULL)
1160:
1161: ELSIF (p_reversal_date IS NULL)
1162: THEN
1163: APP_EXCEPTION.INVALID_ARGUMENT(
1164: 'ARP_PROCESS_APPLICATION'
1165: , 'P_REVERSAL_DATE'
1166: , 'NULL');
1167: END IF;
1168:
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: --
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
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;
1370: --
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.
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;
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
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:
2190: END reversal_insert_oppos_ra_recs;
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
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;
2247: --
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
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;
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
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;
2607: --
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
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;
2653: --
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 ) );
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
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;
2965: --
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
3007: p_select_flag IS NULL ) THEN
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
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;
3030: --
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;
3642: --for PS -2, it should go in side the if condition
3643:
3644: IF (p_invoice_ps_id not in (-4,-5)) THEN
3645:
3646: ARP_PROCESS_APPLICATION.fetch_app_ccid(p_invoice_ps_id,
3647: l_inv_ra_rec.applied_customer_trx_id,
3648: l_inv_ra_rec.code_combination_id,
3649: l_source_type);
3650:
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
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
4179: arp_standard.debug(
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;
4184: --
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
4517: /* 14-APR-2000 jrautiai BR implementation
4518: * Moved into a procedure for BR transactions has the accounting in ar_distributions table.
4519: * instead of ra_cust_trx_line_gl_dist */
4520:
4521: ARP_PROCESS_APPLICATION.fetch_app_ccid(p_invoice_ps_id,
4522: l_inv_ra_rec.applied_customer_trx_id,
4523: l_inv_ra_rec.code_combination_id,
4524: l_source_type);
4525:
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
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;
4720: --
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
4761: p_apply_date IS NULL OR p_gl_date IS NULL OR
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
4773: IF PG_DEBUG in ('Y', 'C') THEN
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;
4779: --
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 ) );
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
5214: IF PG_DEBUG in ('Y', 'C') THEN
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:
5220: END on_account_receipts;
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
5260: p_gl_date IS NULL OR p_amount_applied IS NULL ) THEN
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
5271: IF PG_DEBUG in ('Y', 'C') THEN
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;
5277:
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));
5744: EXCEPTION
5745: WHEN API_exception THEN
5746: IF PG_DEBUG in ('Y', 'C') THEN
5747: arp_util.debug( 'API EXCEPTION: ' ||
5748: 'arp_process_application.activity_application(misc_receipt creation))'
5749: ||SQLERRM);
5750: END IF;
5751: FND_MSG_PUB.Get (FND_MSG_PUB.G_FIRST, FND_API.G_TRUE,
5752: l_msg_data, l_msg_index);
5755:
5756: WHEN OTHERS THEN
5757: IF PG_DEBUG in ('Y', 'C') THEN
5758: arp_util.debug( 'API EXCEPTION: ' ||
5759: 'arp_process_application.activity_application(misc_receipt creation))'
5760: ||SQLERRM);
5761: END IF;
5762: RAISE;
5763: END; -- Misc receipt creation block
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:
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
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
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;
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;
7212: IF PG_DEBUG in ('Y', 'C') THEN
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:
7218: END other_account_application;
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';
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
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;
7433:
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:
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
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;
7616:
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
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;
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:
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
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;
7954:
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: +----------------------------------*/
8081: EXCEPTION
8082: WHEN API_exception THEN
8083: IF PG_DEBUG in ('Y', 'C') THEN
8084: arp_util.debug( 'API EXCEPTION: ' ||
8085: 'arp_process_application.reverse_action_misc_receipt'
8086: ||SQLERRM);
8087: END IF;
8088: FND_MSG_PUB.Get (FND_MSG_PUB.G_FIRST, FND_API.G_TRUE,
8089: l_msg_data, l_msg_index);
8091: app_exception.raise_exception;
8092:
8093: WHEN OTHERS THEN
8094: IF PG_DEBUG in ('Y', 'C') THEN
8095: arp_util.debug('EXCEPTION: arp_process_application.reverse_action_misc_receipt'
8096: ||SQLERRM);
8097: END IF;
8098: RAISE;
8099: END reverse_action_misc_receipt;
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:
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;
8376: END IF;
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
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;
8494:
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,
8576: return TRUE;
8577: END IF;
8578: END is_regular_cm;
8579:
8580: END arp_process_application;