275: ,x_claim_rec.wo_rec_trx_id
276: ,x_claim_rec.legal_entity_id
277: FROM ozf_claims_all
278: WHERE claim_id = p_claim_id ;
279: x_return_status := FND_API.g_ret_sts_success;
280: EXCEPTION
281: WHEN OTHERS THEN
282: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
283: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_QUERY_ERROR');
282: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
283: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_QUERY_ERROR');
284: FND_MSG_PUB.add;
285: END IF;
286: x_return_status := FND_API.g_ret_sts_unexp_error;
287: END Query_Claim;
288:
289:
290: /*=======================================================================*
314: IF g_debug THEN
315: OZF_Utility_PVT.debug_message(l_full_name||': start');
316: END IF;
317:
318: x_return_status := FND_API.g_ret_sts_success;
319:
320: ------------------------ start -------------------------
321: OZF_SETTLEMENT_DOC_PVT.Update_Claim_From_Settlement(
322: p_api_version_number => l_api_version,
319:
320: ------------------------ start -------------------------
321: OZF_SETTLEMENT_DOC_PVT.Update_Claim_From_Settlement(
322: p_api_version_number => l_api_version,
323: p_init_msg_list => FND_API.g_false,
324: p_commit => FND_API.g_false,
325: p_validation_level => FND_API.g_valid_level_full,
326: x_return_status => l_return_status,
327: x_msg_count => x_msg_count,
320: ------------------------ start -------------------------
321: OZF_SETTLEMENT_DOC_PVT.Update_Claim_From_Settlement(
322: p_api_version_number => l_api_version,
323: p_init_msg_list => FND_API.g_false,
324: p_commit => FND_API.g_false,
325: p_validation_level => FND_API.g_valid_level_full,
326: x_return_status => l_return_status,
327: x_msg_count => x_msg_count,
328: x_msg_data => x_msg_data,
321: OZF_SETTLEMENT_DOC_PVT.Update_Claim_From_Settlement(
322: p_api_version_number => l_api_version,
323: p_init_msg_list => FND_API.g_false,
324: p_commit => FND_API.g_false,
325: p_validation_level => FND_API.g_valid_level_full,
326: x_return_status => l_return_status,
327: x_msg_count => x_msg_count,
328: x_msg_data => x_msg_data,
329: p_claim_id => p_claim_rec.claim_id,
330: p_object_version_number => p_claim_rec.object_version_number,
331: p_status_code => 'CLOSED',
332: p_payment_status => 'PAID'
333: );
334: IF l_return_status = FND_API.g_ret_sts_error THEN
335: RAISE FND_API.g_exc_error;
336: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
337: RAISE FND_API.g_exc_unexpected_error;
338: END IF;
331: p_status_code => 'CLOSED',
332: p_payment_status => 'PAID'
333: );
334: IF l_return_status = FND_API.g_ret_sts_error THEN
335: RAISE FND_API.g_exc_error;
336: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
337: RAISE FND_API.g_exc_unexpected_error;
338: END IF;
339:
332: p_payment_status => 'PAID'
333: );
334: IF l_return_status = FND_API.g_ret_sts_error THEN
335: RAISE FND_API.g_exc_error;
336: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
337: RAISE FND_API.g_exc_unexpected_error;
338: END IF;
339:
340: IF g_debug THEN
333: );
334: IF l_return_status = FND_API.g_ret_sts_error THEN
335: RAISE FND_API.g_exc_error;
336: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
337: RAISE FND_API.g_exc_unexpected_error;
338: END IF;
339:
340: IF g_debug THEN
341: OZF_Utility_PVT.debug_message(l_full_name||': end');
340: IF g_debug THEN
341: OZF_Utility_PVT.debug_message(l_full_name||': end');
342: END IF;
343: EXCEPTION
344: WHEN FND_API.g_exc_error THEN
345: x_return_status := FND_API.g_ret_sts_error;
346:
347: WHEN FND_API.g_exc_unexpected_error THEN
348: x_return_status := FND_API.g_ret_sts_unexp_error ;
341: OZF_Utility_PVT.debug_message(l_full_name||': end');
342: END IF;
343: EXCEPTION
344: WHEN FND_API.g_exc_error THEN
345: x_return_status := FND_API.g_ret_sts_error;
346:
347: WHEN FND_API.g_exc_unexpected_error THEN
348: x_return_status := FND_API.g_ret_sts_unexp_error ;
349:
343: EXCEPTION
344: WHEN FND_API.g_exc_error THEN
345: x_return_status := FND_API.g_ret_sts_error;
346:
347: WHEN FND_API.g_exc_unexpected_error THEN
348: x_return_status := FND_API.g_ret_sts_unexp_error ;
349:
350: WHEN OTHERS THEN
351: x_return_status := FND_API.g_ret_sts_unexp_error ;
344: WHEN FND_API.g_exc_error THEN
345: x_return_status := FND_API.g_ret_sts_error;
346:
347: WHEN FND_API.g_exc_unexpected_error THEN
348: x_return_status := FND_API.g_ret_sts_unexp_error ;
349:
350: WHEN OTHERS THEN
351: x_return_status := FND_API.g_ret_sts_unexp_error ;
352: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
347: WHEN FND_API.g_exc_unexpected_error THEN
348: x_return_status := FND_API.g_ret_sts_unexp_error ;
349:
350: WHEN OTHERS THEN
351: x_return_status := FND_API.g_ret_sts_unexp_error ;
352: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
353: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
354: END IF;
355:
384: IF g_debug THEN
385: OZF_Utility_PVT.debug_message(l_full_name||': start');
386: END IF;
387:
388: x_return_status := FND_API.g_ret_sts_success;
389:
390: ------------------------ start -------------------------
391: IF g_debug THEN
392: OZF_Utility_PVT.debug_message('Reapply amount='||p_reapply_amount);
395: ARP_DEDUCTION_COVER.split_claim_reapplication(
396: p_claim_id => p_claim_rec.root_claim_id,
397: p_customer_trx_id => p_claim_rec.source_object_id,
398: p_amount => p_reapply_amount,
399: p_init_msg_list => FND_API.g_false,
400: p_cash_receipt_id => p_claim_rec.receipt_id,
401: p_ussgl_transaction_code => NULL,
402: x_return_status => l_return_status,
403: x_msg_count => x_msg_count,
402: x_return_status => l_return_status,
403: x_msg_count => x_msg_count,
404: x_msg_data => x_msg_data
405: );
406: IF l_return_status = FND_API.g_ret_sts_error THEN
407: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
408: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_SPLIT_REAPP_ERR');
409: FND_MSG_PUB.add;
410: END IF;
407: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
408: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_SPLIT_REAPP_ERR');
409: FND_MSG_PUB.add;
410: END IF;
411: RAISE FND_API.g_exc_error;
412: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
413: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
414: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_SPLIT_REAPP_UERR');
415: FND_MSG_PUB.add;
408: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_SPLIT_REAPP_ERR');
409: FND_MSG_PUB.add;
410: END IF;
411: RAISE FND_API.g_exc_error;
412: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
413: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
414: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_SPLIT_REAPP_UERR');
415: FND_MSG_PUB.add;
416: END IF;
413: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
414: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_SPLIT_REAPP_UERR');
415: FND_MSG_PUB.add;
416: END IF;
417: RAISE FND_API.g_exc_unexpected_error;
418: END IF;
419:
420: IF g_debug THEN
421: OZF_Utility_PVT.debug_message(l_full_name||': end');
420: IF g_debug THEN
421: OZF_Utility_PVT.debug_message(l_full_name||': end');
422: END IF;
423: EXCEPTION
424: WHEN FND_API.g_exc_error THEN
425: x_return_status := FND_API.g_ret_sts_error;
426:
427: WHEN FND_API.g_exc_unexpected_error THEN
428: x_return_status := FND_API.g_ret_sts_unexp_error ;
421: OZF_Utility_PVT.debug_message(l_full_name||': end');
422: END IF;
423: EXCEPTION
424: WHEN FND_API.g_exc_error THEN
425: x_return_status := FND_API.g_ret_sts_error;
426:
427: WHEN FND_API.g_exc_unexpected_error THEN
428: x_return_status := FND_API.g_ret_sts_unexp_error ;
429:
423: EXCEPTION
424: WHEN FND_API.g_exc_error THEN
425: x_return_status := FND_API.g_ret_sts_error;
426:
427: WHEN FND_API.g_exc_unexpected_error THEN
428: x_return_status := FND_API.g_ret_sts_unexp_error ;
429:
430: WHEN OTHERS THEN
431: x_return_status := FND_API.g_ret_sts_unexp_error ;
424: WHEN FND_API.g_exc_error THEN
425: x_return_status := FND_API.g_ret_sts_error;
426:
427: WHEN FND_API.g_exc_unexpected_error THEN
428: x_return_status := FND_API.g_ret_sts_unexp_error ;
429:
430: WHEN OTHERS THEN
431: x_return_status := FND_API.g_ret_sts_unexp_error ;
432: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
427: WHEN FND_API.g_exc_unexpected_error THEN
428: x_return_status := FND_API.g_ret_sts_unexp_error ;
429:
430: WHEN OTHERS THEN
431: x_return_status := FND_API.g_ret_sts_unexp_error ;
432: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
433: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
434: END IF;
435:
486: IF g_debug THEN
487: OZF_Utility_PVT.debug_message(l_full_name||': start');
488: END IF;
489:
490: x_return_status := FND_API.g_ret_sts_success;
491:
492: --Bug:2781186 Get more claim details
493: IF p_claim_rec.claim_id = p_claim_rec.root_claim_id THEN
494: OPEN csr_get_more_root_clm_dtls(p_claim_rec.claim_id);
505: ------------------------ start -------------------------
506: AR_RECEIPT_API_COVER.Apply_on_account(
507: -- Standard API parameters
508: p_api_version => l_api_version,
509: p_init_msg_list => FND_API.g_false,
510: p_commit => FND_API.g_false,
511: p_validation_level => FND_API.g_valid_level_full,
512: x_return_status => l_return_status,
513: x_msg_count => x_msg_count,
506: AR_RECEIPT_API_COVER.Apply_on_account(
507: -- Standard API parameters
508: p_api_version => l_api_version,
509: p_init_msg_list => FND_API.g_false,
510: p_commit => FND_API.g_false,
511: p_validation_level => FND_API.g_valid_level_full,
512: x_return_status => l_return_status,
513: x_msg_count => x_msg_count,
514: x_msg_data => x_msg_data,
507: -- Standard API parameters
508: p_api_version => l_api_version,
509: p_init_msg_list => FND_API.g_false,
510: p_commit => FND_API.g_false,
511: p_validation_level => FND_API.g_valid_level_full,
512: x_return_status => l_return_status,
513: x_msg_count => x_msg_count,
514: x_msg_data => x_msg_data,
515: -- Receipt application parameters.
526: p_application_ref_num => l_application_ref_num,
527: p_secondary_application_ref_id => l_secondary_appl_ref_id,
528: p_customer_reference => l_customer_reference --11.5.10 enhancements. TM should pass.
529: );
530: IF l_return_status = FND_API.g_ret_sts_error THEN
531: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
532: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_REC_APPACC_ERR');
533: FND_MSG_PUB.add;
534: END IF;
531: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
532: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_REC_APPACC_ERR');
533: FND_MSG_PUB.add;
534: END IF;
535: RAISE FND_API.g_exc_error;
536: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
537: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
538: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_REC_APPACC_UERR');
539: FND_MSG_PUB.add;
532: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_REC_APPACC_ERR');
533: FND_MSG_PUB.add;
534: END IF;
535: RAISE FND_API.g_exc_error;
536: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
537: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
538: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_REC_APPACC_UERR');
539: FND_MSG_PUB.add;
540: END IF;
537: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
538: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_REC_APPACC_UERR');
539: FND_MSG_PUB.add;
540: END IF;
541: RAISE FND_API.g_exc_unexpected_error;
542: END IF;
543:
544: IF g_debug THEN
545: OZF_Utility_PVT.debug_message(l_full_name||': end');
544: IF g_debug THEN
545: OZF_Utility_PVT.debug_message(l_full_name||': end');
546: END IF;
547: EXCEPTION
548: WHEN FND_API.g_exc_error THEN
549: x_return_status := FND_API.g_ret_sts_error;
550:
551: WHEN FND_API.g_exc_unexpected_error THEN
552: x_return_status := FND_API.g_ret_sts_unexp_error ;
545: OZF_Utility_PVT.debug_message(l_full_name||': end');
546: END IF;
547: EXCEPTION
548: WHEN FND_API.g_exc_error THEN
549: x_return_status := FND_API.g_ret_sts_error;
550:
551: WHEN FND_API.g_exc_unexpected_error THEN
552: x_return_status := FND_API.g_ret_sts_unexp_error ;
553:
547: EXCEPTION
548: WHEN FND_API.g_exc_error THEN
549: x_return_status := FND_API.g_ret_sts_error;
550:
551: WHEN FND_API.g_exc_unexpected_error THEN
552: x_return_status := FND_API.g_ret_sts_unexp_error ;
553:
554: WHEN OTHERS THEN
555: x_return_status := FND_API.g_ret_sts_unexp_error ;
548: WHEN FND_API.g_exc_error THEN
549: x_return_status := FND_API.g_ret_sts_error;
550:
551: WHEN FND_API.g_exc_unexpected_error THEN
552: x_return_status := FND_API.g_ret_sts_unexp_error ;
553:
554: WHEN OTHERS THEN
555: x_return_status := FND_API.g_ret_sts_unexp_error ;
556: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
551: WHEN FND_API.g_exc_unexpected_error THEN
552: x_return_status := FND_API.g_ret_sts_unexp_error ;
553:
554: WHEN OTHERS THEN
555: x_return_status := FND_API.g_ret_sts_unexp_error ;
556: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
557: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
558: END IF;
559:
595: IF g_debug THEN
596: OZF_Utility_PVT.debug_message(l_full_name||': start');
597: END IF;
598:
599: x_return_status := FND_API.g_ret_sts_success;
600:
601: ------------------------ start -------------------------
602: OPEN csr_payment_schedule(p_customer_trx_id);
603: FETCH csr_payment_schedule INTO l_payment_schedule_id;
605:
606: AR_RECEIPT_API_COVER.Unapply(
607: -- Standard API parameters
608: p_api_version => l_api_version,
609: p_init_msg_list => FND_API.g_false,
610: p_commit => FND_API.g_false,
611: p_validation_level => FND_API.g_valid_level_full,
612: x_return_status => l_return_status,
613: x_msg_count => x_msg_count,
606: AR_RECEIPT_API_COVER.Unapply(
607: -- Standard API parameters
608: p_api_version => l_api_version,
609: p_init_msg_list => FND_API.g_false,
610: p_commit => FND_API.g_false,
611: p_validation_level => FND_API.g_valid_level_full,
612: x_return_status => l_return_status,
613: x_msg_count => x_msg_count,
614: x_msg_data => x_msg_data,
607: -- Standard API parameters
608: p_api_version => l_api_version,
609: p_init_msg_list => FND_API.g_false,
610: p_commit => FND_API.g_false,
611: p_validation_level => FND_API.g_valid_level_full,
612: x_return_status => l_return_status,
613: x_msg_count => x_msg_count,
614: x_msg_data => x_msg_data,
615: -- Receipt Info. parameters
623: p_reversal_gl_date => NULL,
624: p_called_from => NULL,
625: p_cancel_claim_flag => 'N'
626: );
627: IF l_return_status = FND_API.g_ret_sts_error THEN
628: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
629: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_REC_UNAPP_ERR');
630: FND_MSG_PUB.add;
631: END IF;
628: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
629: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_REC_UNAPP_ERR');
630: FND_MSG_PUB.add;
631: END IF;
632: RAISE FND_API.g_exc_error;
633: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
634: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
635: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_REC_UNAPP_UERR');
636: FND_MSG_PUB.add;
629: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_REC_UNAPP_ERR');
630: FND_MSG_PUB.add;
631: END IF;
632: RAISE FND_API.g_exc_error;
633: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
634: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
635: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_REC_UNAPP_UERR');
636: FND_MSG_PUB.add;
637: END IF;
634: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
635: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_REC_UNAPP_UERR');
636: FND_MSG_PUB.add;
637: END IF;
638: RAISE FND_API.g_exc_unexpected_error;
639: END IF;
640:
641: IF g_debug THEN
642: OZF_Utility_PVT.debug_message(l_full_name||': end');
641: IF g_debug THEN
642: OZF_Utility_PVT.debug_message(l_full_name||': end');
643: END IF;
644: EXCEPTION
645: WHEN FND_API.g_exc_error THEN
646: x_return_status := FND_API.g_ret_sts_error;
647:
648: WHEN FND_API.g_exc_unexpected_error THEN
649: x_return_status := FND_API.g_ret_sts_unexp_error ;
642: OZF_Utility_PVT.debug_message(l_full_name||': end');
643: END IF;
644: EXCEPTION
645: WHEN FND_API.g_exc_error THEN
646: x_return_status := FND_API.g_ret_sts_error;
647:
648: WHEN FND_API.g_exc_unexpected_error THEN
649: x_return_status := FND_API.g_ret_sts_unexp_error ;
650:
644: EXCEPTION
645: WHEN FND_API.g_exc_error THEN
646: x_return_status := FND_API.g_ret_sts_error;
647:
648: WHEN FND_API.g_exc_unexpected_error THEN
649: x_return_status := FND_API.g_ret_sts_unexp_error ;
650:
651: WHEN OTHERS THEN
652: x_return_status := FND_API.g_ret_sts_unexp_error ;
645: WHEN FND_API.g_exc_error THEN
646: x_return_status := FND_API.g_ret_sts_error;
647:
648: WHEN FND_API.g_exc_unexpected_error THEN
649: x_return_status := FND_API.g_ret_sts_unexp_error ;
650:
651: WHEN OTHERS THEN
652: x_return_status := FND_API.g_ret_sts_unexp_error ;
653: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
648: WHEN FND_API.g_exc_unexpected_error THEN
649: x_return_status := FND_API.g_ret_sts_unexp_error ;
650:
651: WHEN OTHERS THEN
652: x_return_status := FND_API.g_ret_sts_unexp_error ;
653: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
654: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
655: END IF;
656:
710: IF g_debug THEN
711: OZF_Utility_PVT.debug_message(l_full_name||': start');
712: END IF;
713:
714: x_return_status := FND_API.g_ret_sts_success;
715:
716: ------------------------ start -------------------------
717: -- CM/DM open balance checking
718: OPEN csr_trx_balance(p_customer_trx_id);
724: FND_MESSAGE.set_name('OZF', 'OZF_SETL_TRX_BAL_ERR');
725: FND_MESSAGE.set_token('APPLY_AMT', p_new_applied_amount);
726: FND_MSG_PUB.add;
727: END IF;
728: RAISE FND_API.G_EXC_ERROR;
729: END IF;
730:
731: OPEN csr_payment_schedule(p_customer_trx_id);
732: FETCH csr_payment_schedule INTO l_payment_schedule_id;
744:
745: AR_RECEIPT_API_COVER.Apply(
746: -- Standard API parameters.
747: p_api_version => l_api_version,
748: p_init_msg_list => FND_API.g_false,
749: p_commit => FND_API.g_false,
750: p_validation_level => FND_API.g_valid_level_full,
751: x_return_status => l_return_status,
752: x_msg_count => x_msg_count,
745: AR_RECEIPT_API_COVER.Apply(
746: -- Standard API parameters.
747: p_api_version => l_api_version,
748: p_init_msg_list => FND_API.g_false,
749: p_commit => FND_API.g_false,
750: p_validation_level => FND_API.g_valid_level_full,
751: x_return_status => l_return_status,
752: x_msg_count => x_msg_count,
753: x_msg_data => x_msg_data,
746: -- Standard API parameters.
747: p_api_version => l_api_version,
748: p_init_msg_list => FND_API.g_false,
749: p_commit => FND_API.g_false,
750: p_validation_level => FND_API.g_valid_level_full,
751: x_return_status => l_return_status,
752: x_msg_count => x_msg_count,
753: x_msg_data => x_msg_data,
754: -- Receipt application parameters.
788: p_application_ref_reason => p_application_ref_reason,
789: p_customer_reference => p_customer_reference,
790: p_called_from => NULL
791: );
792: IF l_return_status = FND_API.g_ret_sts_error THEN
793: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
794: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_REC_APP_ERR');
795: FND_MSG_PUB.add;
796: END IF;
793: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
794: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_REC_APP_ERR');
795: FND_MSG_PUB.add;
796: END IF;
797: RAISE FND_API.g_exc_error;
798: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
799: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
800: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_REC_APP_UERR');
801: FND_MSG_PUB.add;
794: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_REC_APP_ERR');
795: FND_MSG_PUB.add;
796: END IF;
797: RAISE FND_API.g_exc_error;
798: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
799: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
800: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_REC_APP_UERR');
801: FND_MSG_PUB.add;
802: END IF;
799: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
800: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_REC_APP_UERR');
801: FND_MSG_PUB.add;
802: END IF;
803: RAISE FND_API.g_exc_unexpected_error;
804: END IF;
805:
806: IF g_debug THEN
807: OZF_Utility_PVT.debug_message(l_full_name||': end');
806: IF g_debug THEN
807: OZF_Utility_PVT.debug_message(l_full_name||': end');
808: END IF;
809: EXCEPTION
810: WHEN FND_API.g_exc_error THEN
811: x_return_status := FND_API.g_ret_sts_error;
812:
813: WHEN FND_API.g_exc_unexpected_error THEN
814: x_return_status := FND_API.g_ret_sts_unexp_error ;
807: OZF_Utility_PVT.debug_message(l_full_name||': end');
808: END IF;
809: EXCEPTION
810: WHEN FND_API.g_exc_error THEN
811: x_return_status := FND_API.g_ret_sts_error;
812:
813: WHEN FND_API.g_exc_unexpected_error THEN
814: x_return_status := FND_API.g_ret_sts_unexp_error ;
815:
809: EXCEPTION
810: WHEN FND_API.g_exc_error THEN
811: x_return_status := FND_API.g_ret_sts_error;
812:
813: WHEN FND_API.g_exc_unexpected_error THEN
814: x_return_status := FND_API.g_ret_sts_unexp_error ;
815:
816: WHEN OTHERS THEN
817: x_return_status := FND_API.g_ret_sts_unexp_error ;
810: WHEN FND_API.g_exc_error THEN
811: x_return_status := FND_API.g_ret_sts_error;
812:
813: WHEN FND_API.g_exc_unexpected_error THEN
814: x_return_status := FND_API.g_ret_sts_unexp_error ;
815:
816: WHEN OTHERS THEN
817: x_return_status := FND_API.g_ret_sts_unexp_error ;
818: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
813: WHEN FND_API.g_exc_unexpected_error THEN
814: x_return_status := FND_API.g_ret_sts_unexp_error ;
815:
816: WHEN OTHERS THEN
817: x_return_status := FND_API.g_ret_sts_unexp_error ;
818: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
819: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
820: END IF;
821:
856: IF g_debug THEN
857: OZF_Utility_PVT.debug_message(l_full_name||': start');
858: END IF;
859:
860: x_return_status := FND_API.g_ret_sts_success;
861:
862: ------------------------ start -------------------------
863: IF p_claim_rec.claim_id = p_claim_rec.root_claim_id THEN
864: l_root_claim_number := p_claim_rec.claim_number;
871: ARP_DEDUCTION_COVER.update_amount_in_dispute(
872: p_customer_trx_id => p_claim_rec.source_object_id,
873: p_claim_number => l_root_claim_number,
874: p_amount => p_dispute_amount,
875: p_init_msg_list => FND_API.g_false,
876: x_return_status => l_return_status,
877: x_msg_count => x_msg_count,
878: x_msg_data => x_msg_data
879: );
876: x_return_status => l_return_status,
877: x_msg_count => x_msg_count,
878: x_msg_data => x_msg_data
879: );
880: IF l_return_status = FND_API.g_ret_sts_error THEN
881: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
882: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_UPD_DISPUTE_ERR');
883: FND_MSG_PUB.add;
884: END IF;
881: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
882: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_UPD_DISPUTE_ERR');
883: FND_MSG_PUB.add;
884: END IF;
885: RAISE FND_API.g_exc_error;
886: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
887: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
888: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_UPD_DISPUTE_UERR');
889: FND_MSG_PUB.add;
882: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_UPD_DISPUTE_ERR');
883: FND_MSG_PUB.add;
884: END IF;
885: RAISE FND_API.g_exc_error;
886: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
887: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
888: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_UPD_DISPUTE_UERR');
889: FND_MSG_PUB.add;
890: END IF;
887: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
888: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_UPD_DISPUTE_UERR');
889: FND_MSG_PUB.add;
890: END IF;
891: RAISE FND_API.g_exc_unexpected_error;
892: END IF;
893:
894: IF g_debug THEN
895: OZF_Utility_PVT.debug_message(l_full_name||': end');
894: IF g_debug THEN
895: OZF_Utility_PVT.debug_message(l_full_name||': end');
896: END IF;
897: EXCEPTION
898: WHEN FND_API.g_exc_error THEN
899: x_return_status := FND_API.g_ret_sts_error;
900:
901: WHEN FND_API.g_exc_unexpected_error THEN
902: x_return_status := FND_API.g_ret_sts_unexp_error ;
895: OZF_Utility_PVT.debug_message(l_full_name||': end');
896: END IF;
897: EXCEPTION
898: WHEN FND_API.g_exc_error THEN
899: x_return_status := FND_API.g_ret_sts_error;
900:
901: WHEN FND_API.g_exc_unexpected_error THEN
902: x_return_status := FND_API.g_ret_sts_unexp_error ;
903:
897: EXCEPTION
898: WHEN FND_API.g_exc_error THEN
899: x_return_status := FND_API.g_ret_sts_error;
900:
901: WHEN FND_API.g_exc_unexpected_error THEN
902: x_return_status := FND_API.g_ret_sts_unexp_error ;
903:
904: WHEN OTHERS THEN
905: x_return_status := FND_API.g_ret_sts_unexp_error ;
898: WHEN FND_API.g_exc_error THEN
899: x_return_status := FND_API.g_ret_sts_error;
900:
901: WHEN FND_API.g_exc_unexpected_error THEN
902: x_return_status := FND_API.g_ret_sts_unexp_error ;
903:
904: WHEN OTHERS THEN
905: x_return_status := FND_API.g_ret_sts_unexp_error ;
906: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
901: WHEN FND_API.g_exc_unexpected_error THEN
902: x_return_status := FND_API.g_ret_sts_unexp_error ;
903:
904: WHEN OTHERS THEN
905: x_return_status := FND_API.g_ret_sts_unexp_error ;
906: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
907: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
908: END IF;
909:
1007: IF g_debug THEN
1008: OZF_Utility_PVT.debug_message(l_full_name||': start');
1009: END IF;
1010:
1011: x_return_status := FND_API.g_ret_sts_success;
1012:
1013: ------------------------ start -------------------------
1014: /* Logic Changed for Bug3963604 */
1015: IF p_total_credit = 0 AND p_line_credit = 0 AND
1085: *------------------------------------------------------------*/
1086: AR_CREDIT_MEMO_API_PUB.create_request (
1087: -- standard API parameters
1088: p_api_version => l_api_version,
1089: p_init_msg_list => FND_API.G_FALSE,
1090: p_commit => FND_API.G_FALSE,
1091: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1092: x_return_status => l_return_status,
1093: x_msg_count => x_msg_count,
1086: AR_CREDIT_MEMO_API_PUB.create_request (
1087: -- standard API parameters
1088: p_api_version => l_api_version,
1089: p_init_msg_list => FND_API.G_FALSE,
1090: p_commit => FND_API.G_FALSE,
1091: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1092: x_return_status => l_return_status,
1093: x_msg_count => x_msg_count,
1094: x_msg_data => x_msg_data,
1087: -- standard API parameters
1088: p_api_version => l_api_version,
1089: p_init_msg_list => FND_API.G_FALSE,
1090: p_commit => FND_API.G_FALSE,
1091: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1092: x_return_status => l_return_status,
1093: x_msg_count => x_msg_count,
1094: x_msg_data => x_msg_data,
1095: -- credit memo request parameters
1111: p_credit_method_rules => l_credit_rules,
1112: p_batch_source_name => l_batch_source_name,
1113: x_request_id => l_request_id
1114: );
1115: IF l_return_status = FND_API.g_ret_sts_error THEN
1116: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1117: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_CM_REQ_ERR');
1118: FND_MSG_PUB.add;
1119: END IF;
1116: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1117: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_CM_REQ_ERR');
1118: FND_MSG_PUB.add;
1119: END IF;
1120: RAISE FND_API.g_exc_error;
1121: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1122: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1123: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_CM_REQ_UERR');
1124: FND_MSG_PUB.add;
1117: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_CM_REQ_ERR');
1118: FND_MSG_PUB.add;
1119: END IF;
1120: RAISE FND_API.g_exc_error;
1121: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1122: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1123: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_CM_REQ_UERR');
1124: FND_MSG_PUB.add;
1125: END IF;
1122: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1123: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_CM_REQ_UERR');
1124: FND_MSG_PUB.add;
1125: END IF;
1126: RAISE FND_API.g_exc_unexpected_error;
1127: END IF;
1128:
1129: /*------------------------------------------------------------*
1130: | 2. Get creidt memo request information
1131: *------------------------------------------------------------*/
1132: AR_CREDIT_MEMO_API_PUB.get_request_status(
1133: -- standard API parameters
1134: p_api_version => l_api_version,
1135: p_init_msg_list => FND_API.G_false,
1136: x_msg_count => x_msg_count,
1137: x_msg_data => x_msg_data,
1138: x_return_status => l_return_status,
1139: -- credit memo request parameters
1153: x_cm_line_tbl => l_x_cm_line_tbl,
1154: x_cm_activity_tbl => l_x_cm_activity_tbl,
1155: x_cm_notes_tbl => l_x_cm_notes_tbl
1156: );
1157: IF l_return_status = FND_API.g_ret_sts_error THEN
1158: RAISE FND_API.g_exc_error;
1159: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1160: RAISE FND_API.g_exc_unexpected_error;
1161: END IF;
1154: x_cm_activity_tbl => l_x_cm_activity_tbl,
1155: x_cm_notes_tbl => l_x_cm_notes_tbl
1156: );
1157: IF l_return_status = FND_API.g_ret_sts_error THEN
1158: RAISE FND_API.g_exc_error;
1159: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1160: RAISE FND_API.g_exc_unexpected_error;
1161: END IF;
1162:
1155: x_cm_notes_tbl => l_x_cm_notes_tbl
1156: );
1157: IF l_return_status = FND_API.g_ret_sts_error THEN
1158: RAISE FND_API.g_exc_error;
1159: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1160: RAISE FND_API.g_exc_unexpected_error;
1161: END IF;
1162:
1163: IF x_cm_customer_trx_id IS NULL THEN
1156: );
1157: IF l_return_status = FND_API.g_ret_sts_error THEN
1158: RAISE FND_API.g_exc_error;
1159: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1160: RAISE FND_API.g_exc_unexpected_error;
1161: END IF;
1162:
1163: IF x_cm_customer_trx_id IS NULL THEN
1164: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1164: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1165: FND_MESSAGE.set_name('OZF', 'OZF_SETL_CRE_ARCM_ERR');
1166: FND_MSG_PUB.add;
1167: END IF;
1168: RAISE FND_API.g_exc_error;
1169: -- [04/29/2002]: due to the rollback problem on ar credit memo api, instead of
1170: -- raising error to rollback, calling settlement workflow to proceed.
1171: BEGIN
1172: OZF_AR_SETTLEMENT_PVT.Start_Settlement(
1179: WHEN OTHERS THEN
1180: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1181: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
1182: FND_MSG_PUB.Add;
1183: RAISE FND_API.g_exc_unexpected_error;
1184: END;
1185: END IF;
1186:
1187: x_cm_amount := l_x_line_amount + l_x_tax_amount + l_x_freight_amount;
1191: OZF_Utility_PVT.debug_message(l_full_name||': credit memo amount => '||x_cm_amount);
1192: END IF;
1193:
1194: --IF p_deduction_type = 'SOURCE_DED' THEN
1195: IF p_upd_dispute_flag = FND_API.g_true THEN
1196: /*------------------------------------------------------------*
1197: | 3. For Invoice Deduction only -> Taking invoice out of dispute
1198: *------------------------------------------------------------*/
1199: Update_dispute_amount(
1202: ,x_return_status => l_return_status
1203: ,x_msg_data => x_msg_data
1204: ,x_msg_count => x_msg_count
1205: );
1206: IF l_return_status = FND_API.g_ret_sts_error THEN
1207: RAISE FND_API.g_exc_error;
1208: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1209: RAISE FND_API.g_exc_unexpected_error;
1210: END IF;
1203: ,x_msg_data => x_msg_data
1204: ,x_msg_count => x_msg_count
1205: );
1206: IF l_return_status = FND_API.g_ret_sts_error THEN
1207: RAISE FND_API.g_exc_error;
1208: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1209: RAISE FND_API.g_exc_unexpected_error;
1210: END IF;
1211: END IF; -- end if p_deduction_type = 'SOURCE_DED'
1204: ,x_msg_count => x_msg_count
1205: );
1206: IF l_return_status = FND_API.g_ret_sts_error THEN
1207: RAISE FND_API.g_exc_error;
1208: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1209: RAISE FND_API.g_exc_unexpected_error;
1210: END IF;
1211: END IF; -- end if p_deduction_type = 'SOURCE_DED'
1212:
1205: );
1206: IF l_return_status = FND_API.g_ret_sts_error THEN
1207: RAISE FND_API.g_exc_error;
1208: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1209: RAISE FND_API.g_exc_unexpected_error;
1210: END IF;
1211: END IF; -- end if p_deduction_type = 'SOURCE_DED'
1212:
1213: IF g_debug THEN
1213: IF g_debug THEN
1214: OZF_Utility_PVT.debug_message(l_full_name||': end');
1215: END IF;
1216: EXCEPTION
1217: WHEN FND_API.g_exc_error THEN
1218: x_return_status := FND_API.g_ret_sts_error;
1219:
1220: WHEN FND_API.g_exc_unexpected_error THEN
1221: x_return_status := FND_API.g_ret_sts_unexp_error ;
1214: OZF_Utility_PVT.debug_message(l_full_name||': end');
1215: END IF;
1216: EXCEPTION
1217: WHEN FND_API.g_exc_error THEN
1218: x_return_status := FND_API.g_ret_sts_error;
1219:
1220: WHEN FND_API.g_exc_unexpected_error THEN
1221: x_return_status := FND_API.g_ret_sts_unexp_error ;
1222:
1216: EXCEPTION
1217: WHEN FND_API.g_exc_error THEN
1218: x_return_status := FND_API.g_ret_sts_error;
1219:
1220: WHEN FND_API.g_exc_unexpected_error THEN
1221: x_return_status := FND_API.g_ret_sts_unexp_error ;
1222:
1223: WHEN OTHERS THEN
1224: x_return_status := FND_API.g_ret_sts_unexp_error ;
1217: WHEN FND_API.g_exc_error THEN
1218: x_return_status := FND_API.g_ret_sts_error;
1219:
1220: WHEN FND_API.g_exc_unexpected_error THEN
1221: x_return_status := FND_API.g_ret_sts_unexp_error ;
1222:
1223: WHEN OTHERS THEN
1224: x_return_status := FND_API.g_ret_sts_unexp_error ;
1225: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1220: WHEN FND_API.g_exc_unexpected_error THEN
1221: x_return_status := FND_API.g_ret_sts_unexp_error ;
1222:
1223: WHEN OTHERS THEN
1224: x_return_status := FND_API.g_ret_sts_unexp_error ;
1225: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1226: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1227: END IF;
1228:
1325: IF g_debug THEN
1326: OZF_Utility_PVT.debug_message(l_full_name||': start');
1327: END IF;
1328:
1329: x_return_status := FND_API.g_ret_sts_success;
1330:
1331: ------------------------ start -------------------------
1332: OPEN csr_cust_trx_type(p_claim_rec.claim_type_id);
1333: FETCH csr_cust_trx_type INTO l_cb_trx_type_id;
1359:
1360: --11.5.10 Enhancements. TM passes only if AR period is Open (I.e. not when it's
1361: --Closed or Close Pending, in which cases AR will default)
1362: IF p_gl_date IS NULL OR
1363: p_gl_date = FND_API.g_miss_date THEN
1364: IF OZF_CLAIM_SETTLEMENT_VAL_PVT.gl_date_in_open(222, p_claim_rec.claim_id) THEN
1365: l_chargeback_rec.gl_date := p_claim_rec.gl_date;
1366: END IF;
1367: ELSE
1465: END IF;
1466:
1467: ARP_CHARGEBACK_COVER.create_chargeback (
1468: p_chargeback_rec => l_chargeback_rec,
1469: p_init_msg_list => FND_API.g_false,
1470: x_doc_sequence_id => l_x_doc_seq_id,
1471: x_doc_sequence_value => l_x_doc_seq_value,
1472: x_trx_number => l_x_trx_number,
1473: x_customer_trx_id => x_cb_customer_trx_id,
1474: x_return_status => l_return_status,
1475: x_msg_count => x_msg_count,
1476: x_msg_data => x_msg_data
1477: );
1478: IF l_return_status = FND_API.g_ret_sts_error THEN
1479: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1480: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_CRE_CB_ERR');
1481: FND_MSG_PUB.add;
1482: END IF;
1479: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1480: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_CRE_CB_ERR');
1481: FND_MSG_PUB.add;
1482: END IF;
1483: RAISE FND_API.g_exc_error;
1484: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1485: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1486: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_CRE_CB_UERR');
1487: FND_MSG_PUB.add;
1480: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_CRE_CB_ERR');
1481: FND_MSG_PUB.add;
1482: END IF;
1483: RAISE FND_API.g_exc_error;
1484: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1485: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1486: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_CRE_CB_UERR');
1487: FND_MSG_PUB.add;
1488: END IF;
1485: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1486: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_CRE_CB_UERR');
1487: FND_MSG_PUB.add;
1488: END IF;
1489: RAISE FND_API.g_exc_unexpected_error;
1490: END IF;
1491:
1492: IF g_debug THEN
1493: OZF_Utility_PVT.debug_message(l_full_name||': end');
1492: IF g_debug THEN
1493: OZF_Utility_PVT.debug_message(l_full_name||': end');
1494: END IF;
1495: EXCEPTION
1496: WHEN FND_API.g_exc_error THEN
1497: x_return_status := FND_API.g_ret_sts_error;
1498:
1499: WHEN FND_API.g_exc_unexpected_error THEN
1500: x_return_status := FND_API.g_ret_sts_unexp_error ;
1493: OZF_Utility_PVT.debug_message(l_full_name||': end');
1494: END IF;
1495: EXCEPTION
1496: WHEN FND_API.g_exc_error THEN
1497: x_return_status := FND_API.g_ret_sts_error;
1498:
1499: WHEN FND_API.g_exc_unexpected_error THEN
1500: x_return_status := FND_API.g_ret_sts_unexp_error ;
1501:
1495: EXCEPTION
1496: WHEN FND_API.g_exc_error THEN
1497: x_return_status := FND_API.g_ret_sts_error;
1498:
1499: WHEN FND_API.g_exc_unexpected_error THEN
1500: x_return_status := FND_API.g_ret_sts_unexp_error ;
1501:
1502: WHEN OTHERS THEN
1503: x_return_status := FND_API.g_ret_sts_unexp_error ;
1496: WHEN FND_API.g_exc_error THEN
1497: x_return_status := FND_API.g_ret_sts_error;
1498:
1499: WHEN FND_API.g_exc_unexpected_error THEN
1500: x_return_status := FND_API.g_ret_sts_unexp_error ;
1501:
1502: WHEN OTHERS THEN
1503: x_return_status := FND_API.g_ret_sts_unexp_error ;
1504: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1499: WHEN FND_API.g_exc_unexpected_error THEN
1500: x_return_status := FND_API.g_ret_sts_unexp_error ;
1501:
1502: WHEN OTHERS THEN
1503: x_return_status := FND_API.g_ret_sts_unexp_error ;
1504: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1505: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1506: END IF;
1507:
1647: BEGIN
1648: -------------------- initialize -----------------------
1649: AMS_Utility_PVT.debug_message(l_full_name||': start');
1650:
1651: x_return_status := FND_API.g_ret_sts_success;
1652:
1653: --//Bug 5345095
1654: IF p_wo_rec_trx_id IS NULL THEN
1655: l_receivables_trx_id := p_claim_rec.wo_rec_trx_id;
1711: -- l_adj_customer_trx_line_id := -- for type other then 'INVOICE' only.
1712: l_adj_rec.receivables_trx_id := l_receivables_trx_id;
1713: l_adj_rec.apply_date := SYSDATE;
1714: IF p_gl_date IS NULL OR
1715: p_gl_date = FND_API.g_miss_date THEN
1716: l_adj_rec.gl_date := p_claim_rec.gl_date;
1717: ELSE
1718: l_adj_rec.gl_date := p_gl_date;
1719: END IF;
1780:
1781: AR_ADJUST_PUB.Create_Adjustment (
1782: p_api_name => 'AR_ADJUST_PUB.Create_Adjustment',
1783: p_api_version => l_api_version,
1784: p_init_msg_list => FND_API.g_false,
1785: p_commit_flag => FND_API.g_false,
1786: p_validation_level => FND_API.g_valid_level_full,
1787: p_msg_count => x_msg_count,
1788: p_msg_data => x_msg_data,
1781: AR_ADJUST_PUB.Create_Adjustment (
1782: p_api_name => 'AR_ADJUST_PUB.Create_Adjustment',
1783: p_api_version => l_api_version,
1784: p_init_msg_list => FND_API.g_false,
1785: p_commit_flag => FND_API.g_false,
1786: p_validation_level => FND_API.g_valid_level_full,
1787: p_msg_count => x_msg_count,
1788: p_msg_data => x_msg_data,
1789: p_return_status => l_return_status,
1782: p_api_name => 'AR_ADJUST_PUB.Create_Adjustment',
1783: p_api_version => l_api_version,
1784: p_init_msg_list => FND_API.g_false,
1785: p_commit_flag => FND_API.g_false,
1786: p_validation_level => FND_API.g_valid_level_full,
1787: p_msg_count => x_msg_count,
1788: p_msg_data => x_msg_data,
1789: p_return_status => l_return_status,
1790: p_adj_rec => t_adj_rec,
1787: p_msg_count => x_msg_count,
1788: p_msg_data => x_msg_data,
1789: p_return_status => l_return_status,
1790: p_adj_rec => t_adj_rec,
1791: p_chk_approval_limits => FND_API.g_false,
1792: p_check_amount => FND_API.g_true,
1793: p_move_deferred_tax => 'Y', --??
1794: p_new_adjust_number => l_x_new_adjust_number,
1795: p_new_adjust_id => l_x_wo_adjust_id,
1788: p_msg_data => x_msg_data,
1789: p_return_status => l_return_status,
1790: p_adj_rec => t_adj_rec,
1791: p_chk_approval_limits => FND_API.g_false,
1792: p_check_amount => FND_API.g_true,
1793: p_move_deferred_tax => 'Y', --??
1794: p_new_adjust_number => l_x_new_adjust_number,
1795: p_new_adjust_id => l_x_wo_adjust_id,
1796: p_called_from => 'CLAIMS',
1795: p_new_adjust_id => l_x_wo_adjust_id,
1796: p_called_from => 'CLAIMS',
1797: p_old_adjust_id => NULL
1798: );
1799: IF l_return_status = FND_API.g_ret_sts_error THEN
1800: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1801: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_CRE_ADJ_ERR');
1802: FND_MSG_PUB.add;
1803: END IF;
1800: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1801: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_CRE_ADJ_ERR');
1802: FND_MSG_PUB.add;
1803: END IF;
1804: RAISE FND_API.g_exc_error;
1805: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1806: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1807: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_CRE_ADJ_UERR');
1808: FND_MSG_PUB.add;
1801: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_CRE_ADJ_ERR');
1802: FND_MSG_PUB.add;
1803: END IF;
1804: RAISE FND_API.g_exc_error;
1805: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1806: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1807: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_CRE_ADJ_UERR');
1808: FND_MSG_PUB.add;
1809: END IF;
1806: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1807: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_CRE_ADJ_UERR');
1808: FND_MSG_PUB.add;
1809: END IF;
1810: RAISE FND_API.g_exc_unexpected_error;
1811: END IF;
1812:
1813: /*------------------------------------------------------------*
1814: | Update Deduction payment detail
1816: IF l_x_wo_adjust_id IS NOT NULL THEN
1817: -- Update Deduction payment detail
1818: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
1819: p_api_version => l_api_version
1820: ,p_init_msg_list => FND_API.g_false
1821: ,p_commit => FND_API.g_false
1822: ,p_validation_level => FND_API.g_valid_level_full
1823: ,x_return_status => l_return_status
1824: ,x_msg_data => x_msg_data
1817: -- Update Deduction payment detail
1818: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
1819: p_api_version => l_api_version
1820: ,p_init_msg_list => FND_API.g_false
1821: ,p_commit => FND_API.g_false
1822: ,p_validation_level => FND_API.g_valid_level_full
1823: ,x_return_status => l_return_status
1824: ,x_msg_data => x_msg_data
1825: ,x_msg_count => x_msg_count
1818: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
1819: p_api_version => l_api_version
1820: ,p_init_msg_list => FND_API.g_false
1821: ,p_commit => FND_API.g_false
1822: ,p_validation_level => FND_API.g_valid_level_full
1823: ,x_return_status => l_return_status
1824: ,x_msg_data => x_msg_data
1825: ,x_msg_count => x_msg_count
1826: ,p_claim_id => p_claim_rec.claim_id
1830: ,p_customer_trx_id => p_claim_rec.source_object_id
1831: ,p_adjust_id => l_x_wo_adjust_id
1832: );
1833:
1834: IF l_return_status = FND_API.g_ret_sts_error THEN
1835: RAISE FND_API.g_exc_error;
1836: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1837: RAISE FND_API.g_exc_unexpected_error;
1838: END IF;
1831: ,p_adjust_id => l_x_wo_adjust_id
1832: );
1833:
1834: IF l_return_status = FND_API.g_ret_sts_error THEN
1835: RAISE FND_API.g_exc_error;
1836: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1837: RAISE FND_API.g_exc_unexpected_error;
1838: END IF;
1839: END IF;
1832: );
1833:
1834: IF l_return_status = FND_API.g_ret_sts_error THEN
1835: RAISE FND_API.g_exc_error;
1836: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1837: RAISE FND_API.g_exc_unexpected_error;
1838: END IF;
1839: END IF;
1840: END LOOP;
1833:
1834: IF l_return_status = FND_API.g_ret_sts_error THEN
1835: RAISE FND_API.g_exc_error;
1836: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1837: RAISE FND_API.g_exc_unexpected_error;
1838: END IF;
1839: END IF;
1840: END LOOP;
1841: END IF; -- bug # 7484916 fixed by ateotia
1852: ARP_DEDUCTION_COVER.update_amount_in_dispute(
1853: p_customer_trx_id => p_claim_rec.source_object_id,
1854: p_claim_number => l_root_claim_number,
1855: p_amount => p_write_off_amount * -1,
1856: p_init_msg_list => FND_API.g_false,
1857: x_return_status => l_return_status,
1858: x_msg_count => x_msg_count,
1859: x_msg_data => x_msg_data
1860: );
1857: x_return_status => l_return_status,
1858: x_msg_count => x_msg_count,
1859: x_msg_data => x_msg_data
1860: );
1861: IF l_return_status = FND_API.g_ret_sts_error THEN
1862: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1863: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_UPD_DISPUTE_ERR');
1864: FND_MSG_PUB.add;
1865: END IF;
1862: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1863: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_UPD_DISPUTE_ERR');
1864: FND_MSG_PUB.add;
1865: END IF;
1866: RAISE FND_API.g_exc_error;
1867: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1868: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1869: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_UPD_DISPUTE_UERR');
1870: FND_MSG_PUB.add;
1863: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_UPD_DISPUTE_ERR');
1864: FND_MSG_PUB.add;
1865: END IF;
1866: RAISE FND_API.g_exc_error;
1867: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1868: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1869: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_UPD_DISPUTE_UERR');
1870: FND_MSG_PUB.add;
1871: END IF;
1868: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1869: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_UPD_DISPUTE_UERR');
1870: FND_MSG_PUB.add;
1871: END IF;
1872: RAISE FND_API.g_exc_unexpected_error;
1873: END IF;
1874:
1875: ELSIF p_deduction_type in ('RECEIPT_OPM','RECEIPT_DED') THEN
1876: /*------------------------------------------------------------*
1890: CLOSE csr_get_more_chld_clm_dtls;
1891: END IF;
1892:
1893: IF p_wo_rec_trx_id IS NULL OR
1894: p_wo_rec_trx_id = FND_API.g_miss_num THEN
1895:
1896: IF l_receivables_trx_id IS NULL THEN
1897: IF p_deduction_type = 'RECEIPT_OPM' THEN
1898: l_receivables_trx_id := l_wo_rec_trx_id;
1907: ARP_DEDUCTION_COVER.create_receipt_writeoff(
1908: p_claim_id => p_claim_rec.root_claim_id,
1909: p_amount => (p_write_off_amount * -1),
1910: p_new_claim_id => p_claim_rec.root_claim_id,
1911: p_init_msg_list => FND_API.g_false,
1912: p_cash_receipt_id => p_claim_rec.receipt_id,
1913: p_receivables_trx_id => l_receivables_trx_id,
1914: p_ussgl_transaction_code => NULL,
1915: p_application_ref_num => l_application_ref_num,
1918: x_return_status => l_return_status,
1919: x_msg_count => x_msg_count,
1920: x_msg_data => x_msg_data
1921: );
1922: IF l_return_status = FND_API.g_ret_sts_error THEN
1923: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1924: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_CRE_REC_WO_ERR');
1925: FND_MSG_PUB.add;
1926: END IF;
1923: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1924: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_CRE_REC_WO_ERR');
1925: FND_MSG_PUB.add;
1926: END IF;
1927: RAISE FND_API.g_exc_error;
1928: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1929: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1930: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_CRE_REC_WO_UERR');
1931: FND_MSG_PUB.add;
1924: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_CRE_REC_WO_ERR');
1925: FND_MSG_PUB.add;
1926: END IF;
1927: RAISE FND_API.g_exc_error;
1928: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1929: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1930: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_CRE_REC_WO_UERR');
1931: FND_MSG_PUB.add;
1932: END IF;
1929: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1930: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_CRE_REC_WO_UERR');
1931: FND_MSG_PUB.add;
1932: END IF;
1933: RAISE FND_API.g_exc_unexpected_error;
1934: END IF;
1935:
1936: -- There is no write_off number populating in case of receipt write_off.
1937: l_x_wo_adjust_id := -3;
1936: -- There is no write_off number populating in case of receipt write_off.
1937: l_x_wo_adjust_id := -3;
1938: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
1939: p_api_version => l_api_version
1940: ,p_init_msg_list => FND_API.g_false
1941: ,p_commit => FND_API.g_false
1942: ,p_validation_level => FND_API.g_valid_level_full
1943: ,x_return_status => l_return_status
1944: ,x_msg_data => x_msg_data
1937: l_x_wo_adjust_id := -3;
1938: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
1939: p_api_version => l_api_version
1940: ,p_init_msg_list => FND_API.g_false
1941: ,p_commit => FND_API.g_false
1942: ,p_validation_level => FND_API.g_valid_level_full
1943: ,x_return_status => l_return_status
1944: ,x_msg_data => x_msg_data
1945: ,x_msg_count => x_msg_count
1938: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
1939: p_api_version => l_api_version
1940: ,p_init_msg_list => FND_API.g_false
1941: ,p_commit => FND_API.g_false
1942: ,p_validation_level => FND_API.g_valid_level_full
1943: ,x_return_status => l_return_status
1944: ,x_msg_data => x_msg_data
1945: ,x_msg_count => x_msg_count
1946: ,p_claim_id => p_claim_rec.claim_id
1950: ,p_customer_trx_id => p_claim_rec.source_object_id
1951: ,p_adjust_id => l_x_wo_adjust_id
1952: );
1953:
1954: IF l_return_status = FND_API.g_ret_sts_error THEN
1955: RAISE FND_API.g_exc_error;
1956: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1957: RAISE FND_API.g_exc_unexpected_error;
1958: END IF;
1951: ,p_adjust_id => l_x_wo_adjust_id
1952: );
1953:
1954: IF l_return_status = FND_API.g_ret_sts_error THEN
1955: RAISE FND_API.g_exc_error;
1956: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1957: RAISE FND_API.g_exc_unexpected_error;
1958: END IF;
1959: END IF;
1952: );
1953:
1954: IF l_return_status = FND_API.g_ret_sts_error THEN
1955: RAISE FND_API.g_exc_error;
1956: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1957: RAISE FND_API.g_exc_unexpected_error;
1958: END IF;
1959: END IF;
1960:
1953:
1954: IF l_return_status = FND_API.g_ret_sts_error THEN
1955: RAISE FND_API.g_exc_error;
1956: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1957: RAISE FND_API.g_exc_unexpected_error;
1958: END IF;
1959: END IF;
1960:
1961: --//Bug 5345095 BK Modif
1977: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1978: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
1979: FND_MSG_PUB.Add;
1980: END IF;
1981: RAISE FND_API.g_exc_unexpected_error;
1982: END;
1983: END IF;
1984:
1985: AMS_Utility_PVT.debug_message(l_full_name||': end');
1984:
1985: AMS_Utility_PVT.debug_message(l_full_name||': end');
1986:
1987: EXCEPTION
1988: WHEN FND_API.g_exc_error THEN
1989: x_return_status := FND_API.g_ret_sts_error;
1990:
1991: WHEN FND_API.g_exc_unexpected_error THEN
1992: x_return_status := FND_API.g_ret_sts_unexp_error ;
1985: AMS_Utility_PVT.debug_message(l_full_name||': end');
1986:
1987: EXCEPTION
1988: WHEN FND_API.g_exc_error THEN
1989: x_return_status := FND_API.g_ret_sts_error;
1990:
1991: WHEN FND_API.g_exc_unexpected_error THEN
1992: x_return_status := FND_API.g_ret_sts_unexp_error ;
1993:
1987: EXCEPTION
1988: WHEN FND_API.g_exc_error THEN
1989: x_return_status := FND_API.g_ret_sts_error;
1990:
1991: WHEN FND_API.g_exc_unexpected_error THEN
1992: x_return_status := FND_API.g_ret_sts_unexp_error ;
1993:
1994: WHEN OTHERS THEN
1995: x_return_status := FND_API.g_ret_sts_unexp_error ;
1988: WHEN FND_API.g_exc_error THEN
1989: x_return_status := FND_API.g_ret_sts_error;
1990:
1991: WHEN FND_API.g_exc_unexpected_error THEN
1992: x_return_status := FND_API.g_ret_sts_unexp_error ;
1993:
1994: WHEN OTHERS THEN
1995: x_return_status := FND_API.g_ret_sts_unexp_error ;
1996: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1991: WHEN FND_API.g_exc_unexpected_error THEN
1992: x_return_status := FND_API.g_ret_sts_unexp_error ;
1993:
1994: WHEN OTHERS THEN
1995: x_return_status := FND_API.g_ret_sts_unexp_error ;
1996: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1997: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1998: END IF;
1999:
2028: IF g_debug THEN
2029: OZF_Utility_PVT.debug_message(l_full_name||': start');
2030: END IF;
2031:
2032: x_return_status := FND_API.g_ret_sts_success;
2033:
2034: ------------------------ start -------------------------
2035: BEGIN
2036: OZF_AR_SETTLEMENT_PVT.Start_Settlement(
2045: WHEN OTHERS THEN
2046: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2047: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
2048: FND_MSG_PUB.Add;
2049: RAISE FND_API.g_exc_unexpected_error;
2050: END;
2051:
2052: IF g_debug THEN
2053: OZF_Utility_PVT.debug_message(l_full_name||': end');
2052: IF g_debug THEN
2053: OZF_Utility_PVT.debug_message(l_full_name||': end');
2054: END IF;
2055: EXCEPTION
2056: WHEN FND_API.g_exc_unexpected_error THEN
2057: x_return_status := FND_API.g_ret_sts_unexp_error ;
2058:
2059: WHEN OTHERS THEN
2060: x_return_status := FND_API.g_ret_sts_unexp_error ;
2053: OZF_Utility_PVT.debug_message(l_full_name||': end');
2054: END IF;
2055: EXCEPTION
2056: WHEN FND_API.g_exc_unexpected_error THEN
2057: x_return_status := FND_API.g_ret_sts_unexp_error ;
2058:
2059: WHEN OTHERS THEN
2060: x_return_status := FND_API.g_ret_sts_unexp_error ;
2061: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2056: WHEN FND_API.g_exc_unexpected_error THEN
2057: x_return_status := FND_API.g_ret_sts_unexp_error ;
2058:
2059: WHEN OTHERS THEN
2060: x_return_status := FND_API.g_ret_sts_unexp_error ;
2061: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2062: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2063: END IF;
2064:
2068: | Function
2069: | Get_Inv_Credit_Details
2070: |
2071: | Return
2072: | FND_API.g_true / FND_API.g_false
2073: |
2074: | HISTORY
2075: | 14-Jun-2005 Sahana Created for R12
2076: *=======================================================================*/
2108:
2109: l_counter NUMBER := 1;
2110:
2111: BEGIN
2112: x_return_status := FND_API.g_ret_sts_success;
2113:
2114:
2115: IF g_debug THEN
2116: OZF_Utility_PVT.debug_message( l_full_name || ' : Start');
2172: WHEN OTHERS THEN
2173: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2174: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2175: END IF;
2176: x_return_status := FND_API.g_ret_sts_unexp_error;
2177: END Get_Inv_Credit_Details;
2178:
2179: /*=======================================================================*
2180: | PROCEDURE
2277: IF g_debug THEN
2278: OZF_Utility_PVT.debug_message(l_full_name||': start');
2279: END IF;
2280:
2281: x_return_status := FND_API.g_ret_sts_success;
2282:
2283: IF p_deduction_type = 'SOURCE_DED' THEN
2284: /*------------------------------------------------------------*
2285: | Remove invoice from dispute.
2302: ,x_return_status => l_return_status
2303: ,x_msg_data => x_msg_data
2304: ,x_msg_count => x_msg_count
2305: );
2306: IF l_return_status = FND_API.g_ret_sts_error THEN
2307: RAISE FND_API.g_exc_error;
2308: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2309: RAISE FND_API.g_exc_unexpected_error;
2310: END IF;
2303: ,x_msg_data => x_msg_data
2304: ,x_msg_count => x_msg_count
2305: );
2306: IF l_return_status = FND_API.g_ret_sts_error THEN
2307: RAISE FND_API.g_exc_error;
2308: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2309: RAISE FND_API.g_exc_unexpected_error;
2310: END IF;
2311:
2304: ,x_msg_count => x_msg_count
2305: );
2306: IF l_return_status = FND_API.g_ret_sts_error THEN
2307: RAISE FND_API.g_exc_error;
2308: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2309: RAISE FND_API.g_exc_unexpected_error;
2310: END IF;
2311:
2312:
2305: );
2306: IF l_return_status = FND_API.g_ret_sts_error THEN
2307: RAISE FND_API.g_exc_error;
2308: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2309: RAISE FND_API.g_exc_unexpected_error;
2310: END IF;
2311:
2312:
2313: -- -------------------------------------
2331: ,p_tax_credit => p_tax_credit
2332: ,p_freight_credit => p_freight_credit
2333: ,p_total_credit => p_total_credit
2334: ,p_cm_line_tbl => p_cm_line_tbl
2335: ,p_upd_dispute_flag => FND_API.g_true
2336: ,x_cm_customer_trx_id => l_cm_customer_trx_id
2337: ,x_cm_amount => l_cm_amount
2338: ,x_return_status => l_return_status
2339: ,x_msg_data => x_msg_data
2338: ,x_return_status => l_return_status
2339: ,x_msg_data => x_msg_data
2340: ,x_msg_count => x_msg_count
2341: );
2342: IF l_return_status = FND_API.g_ret_sts_error THEN
2343: RAISE FND_API.g_exc_error;
2344: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2345: RAISE FND_API.g_exc_unexpected_error;
2346: END IF;
2339: ,x_msg_data => x_msg_data
2340: ,x_msg_count => x_msg_count
2341: );
2342: IF l_return_status = FND_API.g_ret_sts_error THEN
2343: RAISE FND_API.g_exc_error;
2344: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2345: RAISE FND_API.g_exc_unexpected_error;
2346: END IF;
2347:
2340: ,x_msg_count => x_msg_count
2341: );
2342: IF l_return_status = FND_API.g_ret_sts_error THEN
2343: RAISE FND_API.g_exc_error;
2344: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2345: RAISE FND_API.g_exc_unexpected_error;
2346: END IF;
2347:
2348: -- ----------------------------------------------
2341: );
2342: IF l_return_status = FND_API.g_ret_sts_error THEN
2343: RAISE FND_API.g_exc_error;
2344: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2345: RAISE FND_API.g_exc_unexpected_error;
2346: END IF;
2347:
2348: -- ----------------------------------------------
2349: -- Invoice Deduction - Credit to Tax/Line/Freight
2368: ,x_return_status => l_return_status
2369: ,x_msg_data => x_msg_data
2370: ,x_msg_count => x_msg_count
2371: );
2372: IF l_return_status = FND_API.g_ret_sts_error THEN
2373: RAISE FND_API.g_exc_error;
2374: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2375: RAISE FND_API.g_exc_unexpected_error;
2376: END IF;
2369: ,x_msg_data => x_msg_data
2370: ,x_msg_count => x_msg_count
2371: );
2372: IF l_return_status = FND_API.g_ret_sts_error THEN
2373: RAISE FND_API.g_exc_error;
2374: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2375: RAISE FND_API.g_exc_unexpected_error;
2376: END IF;
2377: END IF;
2370: ,x_msg_count => x_msg_count
2371: );
2372: IF l_return_status = FND_API.g_ret_sts_error THEN
2373: RAISE FND_API.g_exc_error;
2374: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2375: RAISE FND_API.g_exc_unexpected_error;
2376: END IF;
2377: END IF;
2378:
2371: );
2372: IF l_return_status = FND_API.g_ret_sts_error THEN
2373: RAISE FND_API.g_exc_error;
2374: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2375: RAISE FND_API.g_exc_unexpected_error;
2376: END IF;
2377: END IF;
2378:
2379: -- 2. Create credit memo for the invoice
2391: ,p_tax_credit => p_tax_credit
2392: ,p_freight_credit => p_freight_credit
2393: ,p_total_credit => p_total_credit
2394: ,p_cm_line_tbl => p_cm_line_tbl
2395: ,p_upd_dispute_flag => FND_API.g_false
2396: ,x_cm_customer_trx_id => l_cm_customer_trx_id
2397: ,x_cm_amount => l_cm_amount
2398: ,x_return_status => l_return_status
2399: ,x_msg_data => x_msg_data
2398: ,x_return_status => l_return_status
2399: ,x_msg_data => x_msg_data
2400: ,x_msg_count => x_msg_count
2401: );
2402: IF l_return_status = FND_API.g_ret_sts_error THEN
2403: RAISE FND_API.g_exc_error;
2404: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2405: RAISE FND_API.g_exc_unexpected_error;
2406: END IF;
2399: ,x_msg_data => x_msg_data
2400: ,x_msg_count => x_msg_count
2401: );
2402: IF l_return_status = FND_API.g_ret_sts_error THEN
2403: RAISE FND_API.g_exc_error;
2404: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2405: RAISE FND_API.g_exc_unexpected_error;
2406: END IF;
2407:
2400: ,x_msg_count => x_msg_count
2401: );
2402: IF l_return_status = FND_API.g_ret_sts_error THEN
2403: RAISE FND_API.g_exc_error;
2404: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2405: RAISE FND_API.g_exc_unexpected_error;
2406: END IF;
2407:
2408: -- 3. Apply invoice back on receipt.
2401: );
2402: IF l_return_status = FND_API.g_ret_sts_error THEN
2403: RAISE FND_API.g_exc_error;
2404: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2405: RAISE FND_API.g_exc_unexpected_error;
2406: END IF;
2407:
2408: -- 3. Apply invoice back on receipt.
2409: IF g_debug THEN
2435: ,x_return_status => l_return_status
2436: ,x_msg_data => x_msg_data
2437: ,x_msg_count => x_msg_count
2438: );
2439: IF l_return_status = FND_API.g_ret_sts_error THEN
2440: RAISE FND_API.g_exc_error;
2441: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2442: RAISE FND_API.g_exc_unexpected_error;
2443: END IF;
2436: ,x_msg_data => x_msg_data
2437: ,x_msg_count => x_msg_count
2438: );
2439: IF l_return_status = FND_API.g_ret_sts_error THEN
2440: RAISE FND_API.g_exc_error;
2441: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2442: RAISE FND_API.g_exc_unexpected_error;
2443: END IF;
2444: END IF;
2437: ,x_msg_count => x_msg_count
2438: );
2439: IF l_return_status = FND_API.g_ret_sts_error THEN
2440: RAISE FND_API.g_exc_error;
2441: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2442: RAISE FND_API.g_exc_unexpected_error;
2443: END IF;
2444: END IF;
2445:
2438: );
2439: IF l_return_status = FND_API.g_ret_sts_error THEN
2440: RAISE FND_API.g_exc_error;
2441: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2442: RAISE FND_API.g_exc_unexpected_error;
2443: END IF;
2444: END IF;
2445:
2446: END IF;
2477: ,x_return_status => l_return_status
2478: ,x_msg_data => x_msg_data
2479: ,x_msg_count => x_msg_count
2480: );
2481: IF l_return_status = FND_API.g_ret_sts_error THEN
2482: RAISE FND_API.g_exc_error;
2483: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2484: RAISE FND_API.g_exc_unexpected_error;
2485: END IF;
2478: ,x_msg_data => x_msg_data
2479: ,x_msg_count => x_msg_count
2480: );
2481: IF l_return_status = FND_API.g_ret_sts_error THEN
2482: RAISE FND_API.g_exc_error;
2483: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2484: RAISE FND_API.g_exc_unexpected_error;
2485: END IF;
2486:
2479: ,x_msg_count => x_msg_count
2480: );
2481: IF l_return_status = FND_API.g_ret_sts_error THEN
2482: RAISE FND_API.g_exc_error;
2483: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2484: RAISE FND_API.g_exc_unexpected_error;
2485: END IF;
2486:
2487:
2480: );
2481: IF l_return_status = FND_API.g_ret_sts_error THEN
2482: RAISE FND_API.g_exc_error;
2483: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2484: RAISE FND_API.g_exc_unexpected_error;
2485: END IF;
2486:
2487:
2488: IF g_debug THEN
2500: ,x_return_status => l_return_status
2501: ,x_msg_data => x_msg_data
2502: ,x_msg_count => x_msg_count
2503: );
2504: IF l_return_status = FND_API.g_ret_sts_error THEN
2505: RAISE FND_API.g_exc_error;
2506: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2507: RAISE FND_API.g_exc_unexpected_error;
2508: END IF;
2501: ,x_msg_data => x_msg_data
2502: ,x_msg_count => x_msg_count
2503: );
2504: IF l_return_status = FND_API.g_ret_sts_error THEN
2505: RAISE FND_API.g_exc_error;
2506: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2507: RAISE FND_API.g_exc_unexpected_error;
2508: END IF;
2509:
2502: ,x_msg_count => x_msg_count
2503: );
2504: IF l_return_status = FND_API.g_ret_sts_error THEN
2505: RAISE FND_API.g_exc_error;
2506: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2507: RAISE FND_API.g_exc_unexpected_error;
2508: END IF;
2509:
2510:
2503: );
2504: IF l_return_status = FND_API.g_ret_sts_error THEN
2505: RAISE FND_API.g_exc_error;
2506: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2507: RAISE FND_API.g_exc_unexpected_error;
2508: END IF;
2509:
2510:
2511: IF g_debug THEN
2515: p_claim_rec => p_claim_rec
2516: ,p_invoice_id => p_invoice_id
2517: ,x_return_status => l_return_status
2518: );
2519: IF l_return_status = FND_API.g_ret_sts_error THEN
2520: RAISE FND_API.g_exc_error;
2521: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2522: RAISE FND_API.g_exc_unexpected_error;
2523: END IF;
2516: ,p_invoice_id => p_invoice_id
2517: ,x_return_status => l_return_status
2518: );
2519: IF l_return_status = FND_API.g_ret_sts_error THEN
2520: RAISE FND_API.g_exc_error;
2521: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2522: RAISE FND_API.g_exc_unexpected_error;
2523: END IF;
2524:
2517: ,x_return_status => l_return_status
2518: );
2519: IF l_return_status = FND_API.g_ret_sts_error THEN
2520: RAISE FND_API.g_exc_error;
2521: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2522: RAISE FND_API.g_exc_unexpected_error;
2523: END IF;
2524:
2525: -- ----------------------------------------------
2518: );
2519: IF l_return_status = FND_API.g_ret_sts_error THEN
2520: RAISE FND_API.g_exc_error;
2521: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2522: RAISE FND_API.g_exc_unexpected_error;
2523: END IF;
2524:
2525: -- ----------------------------------------------
2526: -- Claim Investigation (Deduction) - Invoice
2551: ,x_return_status => l_return_status
2552: ,x_msg_data => x_msg_data
2553: ,x_msg_count => x_msg_count
2554: );
2555: IF l_return_status = FND_API.g_ret_sts_error THEN
2556: RAISE FND_API.g_exc_error;
2557: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2558: RAISE FND_API.g_exc_unexpected_error;
2559: END IF;
2552: ,x_msg_data => x_msg_data
2553: ,x_msg_count => x_msg_count
2554: );
2555: IF l_return_status = FND_API.g_ret_sts_error THEN
2556: RAISE FND_API.g_exc_error;
2557: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2558: RAISE FND_API.g_exc_unexpected_error;
2559: END IF;
2560:
2553: ,x_msg_count => x_msg_count
2554: );
2555: IF l_return_status = FND_API.g_ret_sts_error THEN
2556: RAISE FND_API.g_exc_error;
2557: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2558: RAISE FND_API.g_exc_unexpected_error;
2559: END IF;
2560:
2561: -- 4. Create credit memo for the invoice.
2554: );
2555: IF l_return_status = FND_API.g_ret_sts_error THEN
2556: RAISE FND_API.g_exc_error;
2557: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2558: RAISE FND_API.g_exc_unexpected_error;
2559: END IF;
2560:
2561: -- 4. Create credit memo for the invoice.
2562: IF g_debug THEN
2573: ,p_tax_credit => p_tax_credit
2574: ,p_freight_credit => p_freight_credit
2575: ,p_total_credit => p_total_credit
2576: ,p_cm_line_tbl => p_cm_line_tbl
2577: ,p_upd_dispute_flag => FND_API.g_false
2578: ,x_cm_customer_trx_id => l_cm_customer_trx_id
2579: ,x_cm_amount => l_cm_amount
2580: ,x_return_status => l_return_status
2581: ,x_msg_data => x_msg_data
2580: ,x_return_status => l_return_status
2581: ,x_msg_data => x_msg_data
2582: ,x_msg_count => x_msg_count
2583: );
2584: IF l_return_status = FND_API.g_ret_sts_error THEN
2585: RAISE FND_API.g_exc_error;
2586: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2587: RAISE FND_API.g_exc_unexpected_error;
2588: END IF;
2581: ,x_msg_data => x_msg_data
2582: ,x_msg_count => x_msg_count
2583: );
2584: IF l_return_status = FND_API.g_ret_sts_error THEN
2585: RAISE FND_API.g_exc_error;
2586: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2587: RAISE FND_API.g_exc_unexpected_error;
2588: END IF;
2589:
2582: ,x_msg_count => x_msg_count
2583: );
2584: IF l_return_status = FND_API.g_ret_sts_error THEN
2585: RAISE FND_API.g_exc_error;
2586: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2587: RAISE FND_API.g_exc_unexpected_error;
2588: END IF;
2589:
2590: ELSE
2583: );
2584: IF l_return_status = FND_API.g_ret_sts_error THEN
2585: RAISE FND_API.g_exc_error;
2586: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2587: RAISE FND_API.g_exc_unexpected_error;
2588: END IF;
2589:
2590: ELSE
2591: -- ----------------------------------------------
2613: ,x_return_status => l_return_status
2614: ,x_msg_data => x_msg_data
2615: ,x_msg_count => x_msg_count
2616: );
2617: IF l_return_status = FND_API.g_ret_sts_error THEN
2618: RAISE FND_API.g_exc_error;
2619: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2620: RAISE FND_API.g_exc_unexpected_error;
2621: END IF;
2614: ,x_msg_data => x_msg_data
2615: ,x_msg_count => x_msg_count
2616: );
2617: IF l_return_status = FND_API.g_ret_sts_error THEN
2618: RAISE FND_API.g_exc_error;
2619: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2620: RAISE FND_API.g_exc_unexpected_error;
2621: END IF;
2622: END IF;
2615: ,x_msg_count => x_msg_count
2616: );
2617: IF l_return_status = FND_API.g_ret_sts_error THEN
2618: RAISE FND_API.g_exc_error;
2619: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2620: RAISE FND_API.g_exc_unexpected_error;
2621: END IF;
2622: END IF;
2623:
2616: );
2617: IF l_return_status = FND_API.g_ret_sts_error THEN
2618: RAISE FND_API.g_exc_error;
2619: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2620: RAISE FND_API.g_exc_unexpected_error;
2621: END IF;
2622: END IF;
2623:
2624: -- 4. Create credit memo for the invoice.
2636: ,p_tax_credit => p_tax_credit
2637: ,p_freight_credit => p_freight_credit
2638: ,p_total_credit => p_total_credit
2639: ,p_cm_line_tbl => p_cm_line_tbl
2640: ,p_upd_dispute_flag => FND_API.g_false
2641: ,x_cm_customer_trx_id => l_cm_customer_trx_id
2642: ,x_cm_amount => l_cm_amount
2643: ,x_return_status => l_return_status
2644: ,x_msg_data => x_msg_data
2643: ,x_return_status => l_return_status
2644: ,x_msg_data => x_msg_data
2645: ,x_msg_count => x_msg_count
2646: );
2647: IF l_return_status = FND_API.g_ret_sts_error THEN
2648: RAISE FND_API.g_exc_error;
2649: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2650: RAISE FND_API.g_exc_unexpected_error;
2651: END IF;
2644: ,x_msg_data => x_msg_data
2645: ,x_msg_count => x_msg_count
2646: );
2647: IF l_return_status = FND_API.g_ret_sts_error THEN
2648: RAISE FND_API.g_exc_error;
2649: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2650: RAISE FND_API.g_exc_unexpected_error;
2651: END IF;
2652:
2645: ,x_msg_count => x_msg_count
2646: );
2647: IF l_return_status = FND_API.g_ret_sts_error THEN
2648: RAISE FND_API.g_exc_error;
2649: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2650: RAISE FND_API.g_exc_unexpected_error;
2651: END IF;
2652:
2653:
2646: );
2647: IF l_return_status = FND_API.g_ret_sts_error THEN
2648: RAISE FND_API.g_exc_error;
2649: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2650: RAISE FND_API.g_exc_unexpected_error;
2651: END IF;
2652:
2653:
2654: IF g_debug THEN
2672: ,x_return_status => l_return_status
2673: ,x_msg_data => x_msg_data
2674: ,x_msg_count => x_msg_count
2675: );
2676: IF l_return_status = FND_API.g_ret_sts_error THEN
2677: RAISE FND_API.g_exc_error;
2678: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2679: RAISE FND_API.g_exc_unexpected_error;
2680: END IF;
2673: ,x_msg_data => x_msg_data
2674: ,x_msg_count => x_msg_count
2675: );
2676: IF l_return_status = FND_API.g_ret_sts_error THEN
2677: RAISE FND_API.g_exc_error;
2678: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2679: RAISE FND_API.g_exc_unexpected_error;
2680: END IF;
2681: END IF;
2674: ,x_msg_count => x_msg_count
2675: );
2676: IF l_return_status = FND_API.g_ret_sts_error THEN
2677: RAISE FND_API.g_exc_error;
2678: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2679: RAISE FND_API.g_exc_unexpected_error;
2680: END IF;
2681: END IF;
2682: END IF;
2675: );
2676: IF l_return_status = FND_API.g_ret_sts_error THEN
2677: RAISE FND_API.g_exc_error;
2678: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2679: RAISE FND_API.g_exc_unexpected_error;
2680: END IF;
2681: END IF;
2682: END IF;
2683:
2708: ,p_tax_credit => p_tax_credit
2709: ,p_freight_credit => p_freight_credit
2710: ,p_total_credit => p_total_credit
2711: ,p_cm_line_tbl => p_cm_line_tbl
2712: ,p_upd_dispute_flag => FND_API.g_false
2713: ,x_cm_customer_trx_id => l_cm_customer_trx_id
2714: ,x_cm_amount => l_cm_amount
2715: ,x_return_status => l_return_status
2716: ,x_msg_data => x_msg_data
2715: ,x_return_status => l_return_status
2716: ,x_msg_data => x_msg_data
2717: ,x_msg_count => x_msg_count
2718: );
2719: IF l_return_status = FND_API.g_ret_sts_error THEN
2720: RAISE FND_API.g_exc_error;
2721: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2722: RAISE FND_API.g_exc_unexpected_error;
2723: END IF;
2716: ,x_msg_data => x_msg_data
2717: ,x_msg_count => x_msg_count
2718: );
2719: IF l_return_status = FND_API.g_ret_sts_error THEN
2720: RAISE FND_API.g_exc_error;
2721: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2722: RAISE FND_API.g_exc_unexpected_error;
2723: END IF;
2724: ELSE
2717: ,x_msg_count => x_msg_count
2718: );
2719: IF l_return_status = FND_API.g_ret_sts_error THEN
2720: RAISE FND_API.g_exc_error;
2721: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2722: RAISE FND_API.g_exc_unexpected_error;
2723: END IF;
2724: ELSE
2725: -- 1. Create credit memo for the invoice
2718: );
2719: IF l_return_status = FND_API.g_ret_sts_error THEN
2720: RAISE FND_API.g_exc_error;
2721: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2722: RAISE FND_API.g_exc_unexpected_error;
2723: END IF;
2724: ELSE
2725: -- 1. Create credit memo for the invoice
2726: IF g_debug THEN
2737: ,p_tax_credit => p_tax_credit
2738: ,p_freight_credit => p_freight_credit
2739: ,p_total_credit => p_total_credit
2740: ,p_cm_line_tbl => p_cm_line_tbl
2741: ,p_upd_dispute_flag => FND_API.g_false
2742: ,x_cm_customer_trx_id => l_cm_customer_trx_id
2743: ,x_cm_amount => l_cm_amount
2744: ,x_return_status => l_return_status
2745: ,x_msg_data => x_msg_data
2744: ,x_return_status => l_return_status
2745: ,x_msg_data => x_msg_data
2746: ,x_msg_count => x_msg_count
2747: );
2748: IF l_return_status = FND_API.g_ret_sts_error THEN
2749: RAISE FND_API.g_exc_error;
2750: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2751: RAISE FND_API.g_exc_unexpected_error;
2752: END IF;
2745: ,x_msg_data => x_msg_data
2746: ,x_msg_count => x_msg_count
2747: );
2748: IF l_return_status = FND_API.g_ret_sts_error THEN
2749: RAISE FND_API.g_exc_error;
2750: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2751: RAISE FND_API.g_exc_unexpected_error;
2752: END IF;
2753: END IF;
2746: ,x_msg_count => x_msg_count
2747: );
2748: IF l_return_status = FND_API.g_ret_sts_error THEN
2749: RAISE FND_API.g_exc_error;
2750: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2751: RAISE FND_API.g_exc_unexpected_error;
2752: END IF;
2753: END IF;
2754: END IF;
2747: );
2748: IF l_return_status = FND_API.g_ret_sts_error THEN
2749: RAISE FND_API.g_exc_error;
2750: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2751: RAISE FND_API.g_exc_unexpected_error;
2752: END IF;
2753: END IF;
2754: END IF;
2755:
2759: IF l_cm_customer_trx_id IS NOT NULL THEN
2760: -- Update Deduction payment detail
2761: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
2762: p_api_version => l_api_version
2763: ,p_init_msg_list => FND_API.g_false
2764: ,p_commit => FND_API.g_false
2765: ,p_validation_level => FND_API.g_valid_level_full
2766: ,x_return_status => l_return_status
2767: ,x_msg_data => x_msg_data
2760: -- Update Deduction payment detail
2761: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
2762: p_api_version => l_api_version
2763: ,p_init_msg_list => FND_API.g_false
2764: ,p_commit => FND_API.g_false
2765: ,p_validation_level => FND_API.g_valid_level_full
2766: ,x_return_status => l_return_status
2767: ,x_msg_data => x_msg_data
2768: ,x_msg_count => x_msg_count
2761: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
2762: p_api_version => l_api_version
2763: ,p_init_msg_list => FND_API.g_false
2764: ,p_commit => FND_API.g_false
2765: ,p_validation_level => FND_API.g_valid_level_full
2766: ,x_return_status => l_return_status
2767: ,x_msg_data => x_msg_data
2768: ,x_msg_count => x_msg_count
2769: ,p_claim_id => p_claim_rec.claim_id
2772: ,p_cash_receipt_id => NULL
2773: ,p_customer_trx_id => l_cm_customer_trx_id
2774: ,p_adjust_id => NULL
2775: );
2776: IF l_return_status = FND_API.g_ret_sts_error THEN
2777: RAISE FND_API.g_exc_error;
2778: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2779: RAISE FND_API.g_exc_unexpected_error;
2780: END IF;
2773: ,p_customer_trx_id => l_cm_customer_trx_id
2774: ,p_adjust_id => NULL
2775: );
2776: IF l_return_status = FND_API.g_ret_sts_error THEN
2777: RAISE FND_API.g_exc_error;
2778: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2779: RAISE FND_API.g_exc_unexpected_error;
2780: END IF;
2781: END IF;
2774: ,p_adjust_id => NULL
2775: );
2776: IF l_return_status = FND_API.g_ret_sts_error THEN
2777: RAISE FND_API.g_exc_error;
2778: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2779: RAISE FND_API.g_exc_unexpected_error;
2780: END IF;
2781: END IF;
2782:
2775: );
2776: IF l_return_status = FND_API.g_ret_sts_error THEN
2777: RAISE FND_API.g_exc_error;
2778: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2779: RAISE FND_API.g_exc_unexpected_error;
2780: END IF;
2781: END IF;
2782:
2783: IF g_debug THEN
2783: IF g_debug THEN
2784: OZF_Utility_PVT.debug_message(l_full_name||': end');
2785: END IF;
2786: EXCEPTION
2787: WHEN FND_API.g_exc_error THEN
2788: x_return_status := FND_API.g_ret_sts_error;
2789:
2790: WHEN FND_API.g_exc_unexpected_error THEN
2791: x_return_status := FND_API.g_ret_sts_unexp_error ;
2784: OZF_Utility_PVT.debug_message(l_full_name||': end');
2785: END IF;
2786: EXCEPTION
2787: WHEN FND_API.g_exc_error THEN
2788: x_return_status := FND_API.g_ret_sts_error;
2789:
2790: WHEN FND_API.g_exc_unexpected_error THEN
2791: x_return_status := FND_API.g_ret_sts_unexp_error ;
2792:
2786: EXCEPTION
2787: WHEN FND_API.g_exc_error THEN
2788: x_return_status := FND_API.g_ret_sts_error;
2789:
2790: WHEN FND_API.g_exc_unexpected_error THEN
2791: x_return_status := FND_API.g_ret_sts_unexp_error ;
2792:
2793: WHEN OTHERS THEN
2794: x_return_status := FND_API.g_ret_sts_unexp_error ;
2787: WHEN FND_API.g_exc_error THEN
2788: x_return_status := FND_API.g_ret_sts_error;
2789:
2790: WHEN FND_API.g_exc_unexpected_error THEN
2791: x_return_status := FND_API.g_ret_sts_unexp_error ;
2792:
2793: WHEN OTHERS THEN
2794: x_return_status := FND_API.g_ret_sts_unexp_error ;
2795: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2790: WHEN FND_API.g_exc_unexpected_error THEN
2791: x_return_status := FND_API.g_ret_sts_unexp_error ;
2792:
2793: WHEN OTHERS THEN
2794: x_return_status := FND_API.g_ret_sts_unexp_error ;
2795: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2796: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2797: END IF;
2798:
2923: END IF;
2924:
2925: SAVEPOINT Pay_by_Invoice_Credit;
2926:
2927: x_return_status := FND_API.g_ret_sts_success;
2928:
2929: ------------------------ start -------------------------
2930: /*------------------------------------------------------------*
2931: | Check Claim Line invoice to see if need to process settement workflow
2934: l_process_setl_wf := OZF_AR_VALIDATION_PVT.Check_to_Process_SETL_WF(
2935: p_claim_rec => p_claim_rec
2936: ,x_return_status => l_return_status
2937: );
2938: IF l_return_status = FND_API.g_ret_sts_error THEN
2939: RAISE FND_API.g_exc_error;
2940: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2941: RAISE FND_API.g_exc_unexpected_error;
2942: END IF;
2935: p_claim_rec => p_claim_rec
2936: ,x_return_status => l_return_status
2937: );
2938: IF l_return_status = FND_API.g_ret_sts_error THEN
2939: RAISE FND_API.g_exc_error;
2940: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2941: RAISE FND_API.g_exc_unexpected_error;
2942: END IF;
2943:
2936: ,x_return_status => l_return_status
2937: );
2938: IF l_return_status = FND_API.g_ret_sts_error THEN
2939: RAISE FND_API.g_exc_error;
2940: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2941: RAISE FND_API.g_exc_unexpected_error;
2942: END IF;
2943:
2944:
2937: );
2938: IF l_return_status = FND_API.g_ret_sts_error THEN
2939: RAISE FND_API.g_exc_error;
2940: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2941: RAISE FND_API.g_exc_unexpected_error;
2942: END IF;
2943:
2944:
2945: IF g_debug THEN
2959: ,x_return_status => l_return_status
2960: ,x_msg_data => x_msg_data
2961: ,x_msg_count => x_msg_count
2962: );
2963: IF l_return_status = FND_API.g_ret_sts_error THEN
2964: RAISE FND_API.g_exc_error;
2965: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2966: RAISE FND_API.g_exc_unexpected_error;
2967: END IF;
2960: ,x_msg_data => x_msg_data
2961: ,x_msg_count => x_msg_count
2962: );
2963: IF l_return_status = FND_API.g_ret_sts_error THEN
2964: RAISE FND_API.g_exc_error;
2965: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2966: RAISE FND_API.g_exc_unexpected_error;
2967: END IF;
2968: l_cm_customer_trx_id := NULL;
2961: ,x_msg_count => x_msg_count
2962: );
2963: IF l_return_status = FND_API.g_ret_sts_error THEN
2964: RAISE FND_API.g_exc_error;
2965: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2966: RAISE FND_API.g_exc_unexpected_error;
2967: END IF;
2968: l_cm_customer_trx_id := NULL;
2969: ELSE
2962: );
2963: IF l_return_status = FND_API.g_ret_sts_error THEN
2964: RAISE FND_API.g_exc_error;
2965: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2966: RAISE FND_API.g_exc_unexpected_error;
2967: END IF;
2968: l_cm_customer_trx_id := NULL;
2969: ELSE
2970:
2976: ,x_return_status => l_return_status
2977: ,x_msg_data => x_msg_data
2978: ,x_msg_count => x_msg_count
2979: );
2980: IF l_return_status = FND_API.g_ret_sts_error THEN
2981: RAISE FND_API.g_exc_error;
2982: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2983: RAISE FND_API.g_exc_unexpected_error;
2984: END IF;
2977: ,x_msg_data => x_msg_data
2978: ,x_msg_count => x_msg_count
2979: );
2980: IF l_return_status = FND_API.g_ret_sts_error THEN
2981: RAISE FND_API.g_exc_error;
2982: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2983: RAISE FND_API.g_exc_unexpected_error;
2984: END IF;
2985:
2978: ,x_msg_count => x_msg_count
2979: );
2980: IF l_return_status = FND_API.g_ret_sts_error THEN
2981: RAISE FND_API.g_exc_error;
2982: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2983: RAISE FND_API.g_exc_unexpected_error;
2984: END IF;
2985:
2986:
2979: );
2980: IF l_return_status = FND_API.g_ret_sts_error THEN
2981: RAISE FND_API.g_exc_error;
2982: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2983: RAISE FND_API.g_exc_unexpected_error;
2984: END IF;
2985:
2986:
2987: -- For each invoice to be credited, get credit details and create creditmemo.
2998: ,x_tax_credit => l_tax_credit
2999: ,x_freight_credit => l_freight_credit
3000: ,x_total_credit => l_total_credit
3001: ,x_cm_line_tbl => l_cm_line_tbl);
3002: IF l_return_status = FND_API.g_ret_sts_error THEN
3003: RAISE FND_API.g_exc_error;
3004: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3005: RAISE FND_API.g_exc_unexpected_error;
3006: END IF;
2999: ,x_freight_credit => l_freight_credit
3000: ,x_total_credit => l_total_credit
3001: ,x_cm_line_tbl => l_cm_line_tbl);
3002: IF l_return_status = FND_API.g_ret_sts_error THEN
3003: RAISE FND_API.g_exc_error;
3004: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3005: RAISE FND_API.g_exc_unexpected_error;
3006: END IF;
3007:
3000: ,x_total_credit => l_total_credit
3001: ,x_cm_line_tbl => l_cm_line_tbl);
3002: IF l_return_status = FND_API.g_ret_sts_error THEN
3003: RAISE FND_API.g_exc_error;
3004: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3005: RAISE FND_API.g_exc_unexpected_error;
3006: END IF;
3007:
3008: Pay_by_Single_Invoice_Credit(
3001: ,x_cm_line_tbl => l_cm_line_tbl);
3002: IF l_return_status = FND_API.g_ret_sts_error THEN
3003: RAISE FND_API.g_exc_error;
3004: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3005: RAISE FND_API.g_exc_unexpected_error;
3006: END IF;
3007:
3008: Pay_by_Single_Invoice_Credit(
3009: p_claim_rec => p_claim_rec
3018: ,x_return_status => l_return_status
3019: ,x_msg_data => x_msg_data
3020: ,x_msg_count => x_msg_count
3021: );
3022: IF l_return_status = FND_API.g_ret_sts_error THEN
3023: RAISE FND_API.g_exc_error;
3024: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3025: RAISE FND_API.g_exc_unexpected_error;
3026: END IF;
3019: ,x_msg_data => x_msg_data
3020: ,x_msg_count => x_msg_count
3021: );
3022: IF l_return_status = FND_API.g_ret_sts_error THEN
3023: RAISE FND_API.g_exc_error;
3024: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3025: RAISE FND_API.g_exc_unexpected_error;
3026: END IF;
3027: END LOOP;
3020: ,x_msg_count => x_msg_count
3021: );
3022: IF l_return_status = FND_API.g_ret_sts_error THEN
3023: RAISE FND_API.g_exc_error;
3024: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3025: RAISE FND_API.g_exc_unexpected_error;
3026: END IF;
3027: END LOOP;
3028: CLOSE csr_claim_lines;
3021: );
3022: IF l_return_status = FND_API.g_ret_sts_error THEN
3023: RAISE FND_API.g_exc_error;
3024: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3025: RAISE FND_API.g_exc_unexpected_error;
3026: END IF;
3027: END LOOP;
3028: CLOSE csr_claim_lines;
3029: END IF;
3032: FND_MESSAGE.set_name('OZF', 'OZF_AR_PAYMENT_NOTMATCH');
3033: FND_MESSAGE.set_token('CLAIM_NUMBER', p_claim_rec.claim_number);
3034: FND_MSG_PUB.add;
3035: END IF;
3036: RAISE FND_API.g_exc_error;
3037: END IF;
3038: EXCEPTION
3039: WHEN FND_API.g_exc_error THEN
3040: x_return_status := FND_API.g_ret_sts_error;
3035: END IF;
3036: RAISE FND_API.g_exc_error;
3037: END IF;
3038: EXCEPTION
3039: WHEN FND_API.g_exc_error THEN
3040: x_return_status := FND_API.g_ret_sts_error;
3041: ROLLBACK TO Pay_by_Invoice_Credit;
3042:
3043: WHEN FND_API.g_exc_unexpected_error THEN
3036: RAISE FND_API.g_exc_error;
3037: END IF;
3038: EXCEPTION
3039: WHEN FND_API.g_exc_error THEN
3040: x_return_status := FND_API.g_ret_sts_error;
3041: ROLLBACK TO Pay_by_Invoice_Credit;
3042:
3043: WHEN FND_API.g_exc_unexpected_error THEN
3044: x_return_status := FND_API.g_ret_sts_unexp_error ;
3039: WHEN FND_API.g_exc_error THEN
3040: x_return_status := FND_API.g_ret_sts_error;
3041: ROLLBACK TO Pay_by_Invoice_Credit;
3042:
3043: WHEN FND_API.g_exc_unexpected_error THEN
3044: x_return_status := FND_API.g_ret_sts_unexp_error ;
3045: ROLLBACK TO Pay_by_Invoice_Credit;
3046:
3047: WHEN OTHERS THEN
3040: x_return_status := FND_API.g_ret_sts_error;
3041: ROLLBACK TO Pay_by_Invoice_Credit;
3042:
3043: WHEN FND_API.g_exc_unexpected_error THEN
3044: x_return_status := FND_API.g_ret_sts_unexp_error ;
3045: ROLLBACK TO Pay_by_Invoice_Credit;
3046:
3047: WHEN OTHERS THEN
3048: x_return_status := FND_API.g_ret_sts_unexp_error ;
3044: x_return_status := FND_API.g_ret_sts_unexp_error ;
3045: ROLLBACK TO Pay_by_Invoice_Credit;
3046:
3047: WHEN OTHERS THEN
3048: x_return_status := FND_API.g_ret_sts_unexp_error ;
3049: ROLLBACK TO Pay_by_Invoice_Credit;
3050: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3051: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3052: END IF;
3174: -------------------- initialize -----------------------
3175: IF g_debug THEN
3176: OZF_Utility_PVT.debug_message(l_full_name||': start');
3177: END IF;
3178: x_return_status := FND_API.g_ret_sts_success;
3179:
3180: ------------------------ start -------------------------
3181: IF p_payment_reference_id IS NULL OR
3182: p_payment_reference_id = FND_API.g_miss_num THEN
3178: x_return_status := FND_API.g_ret_sts_success;
3179:
3180: ------------------------ start -------------------------
3181: IF p_payment_reference_id IS NULL OR
3182: p_payment_reference_id = FND_API.g_miss_num THEN
3183: /*------------------------------------------------------------*
3184: | No payment reference specified (No open credit memo specified) -> AutoInvoice
3185: *------------------------------------------------------------*/
3186: IF g_debug THEN
3188: END IF;
3189: -- 1. AutoInvoice
3190: OZF_AR_INTERFACE_PVT.Interface_Claim(
3191: p_api_version => l_api_version
3192: ,p_init_msg_list => FND_API.g_false
3193: ,p_commit => FND_API.g_false
3194: ,p_validation_level => FND_API.g_valid_level_full
3195: ,x_return_status => l_return_status
3196: ,x_msg_data => x_msg_data
3189: -- 1. AutoInvoice
3190: OZF_AR_INTERFACE_PVT.Interface_Claim(
3191: p_api_version => l_api_version
3192: ,p_init_msg_list => FND_API.g_false
3193: ,p_commit => FND_API.g_false
3194: ,p_validation_level => FND_API.g_valid_level_full
3195: ,x_return_status => l_return_status
3196: ,x_msg_data => x_msg_data
3197: ,x_msg_count => x_msg_count
3190: OZF_AR_INTERFACE_PVT.Interface_Claim(
3191: p_api_version => l_api_version
3192: ,p_init_msg_list => FND_API.g_false
3193: ,p_commit => FND_API.g_false
3194: ,p_validation_level => FND_API.g_valid_level_full
3195: ,x_return_status => l_return_status
3196: ,x_msg_data => x_msg_data
3197: ,x_msg_count => x_msg_count
3198: ,p_claim_id => p_claim_rec.claim_id
3196: ,x_msg_data => x_msg_data
3197: ,x_msg_count => x_msg_count
3198: ,p_claim_id => p_claim_rec.claim_id
3199: );
3200: IF l_return_status = FND_API.g_ret_sts_error THEN
3201: RAISE FND_API.g_exc_error;
3202: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3203: RAISE FND_API.g_exc_unexpected_error;
3204: END IF;
3197: ,x_msg_count => x_msg_count
3198: ,p_claim_id => p_claim_rec.claim_id
3199: );
3200: IF l_return_status = FND_API.g_ret_sts_error THEN
3201: RAISE FND_API.g_exc_error;
3202: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3203: RAISE FND_API.g_exc_unexpected_error;
3204: END IF;
3205:
3198: ,p_claim_id => p_claim_rec.claim_id
3199: );
3200: IF l_return_status = FND_API.g_ret_sts_error THEN
3201: RAISE FND_API.g_exc_error;
3202: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3203: RAISE FND_API.g_exc_unexpected_error;
3204: END IF;
3205:
3206: --2. Update Deduction payment detail --
3199: );
3200: IF l_return_status = FND_API.g_ret_sts_error THEN
3201: RAISE FND_API.g_exc_error;
3202: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3203: RAISE FND_API.g_exc_unexpected_error;
3204: END IF;
3205:
3206: --2. Update Deduction payment detail --
3207: l_online_upd_ded_status := FALSE;
3215: ,x_return_status => l_return_status
3216: ,x_msg_data => x_msg_data
3217: ,x_msg_count => x_msg_count
3218: );
3219: IF l_return_status = FND_API.g_ret_sts_error THEN
3220: RAISE FND_API.g_exc_error;
3221: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3222: RAISE FND_API.g_exc_unexpected_error;
3223: END IF;
3216: ,x_msg_data => x_msg_data
3217: ,x_msg_count => x_msg_count
3218: );
3219: IF l_return_status = FND_API.g_ret_sts_error THEN
3220: RAISE FND_API.g_exc_error;
3221: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3222: RAISE FND_API.g_exc_unexpected_error;
3223: END IF;
3224:
3217: ,x_msg_count => x_msg_count
3218: );
3219: IF l_return_status = FND_API.g_ret_sts_error THEN
3220: RAISE FND_API.g_exc_error;
3221: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3222: RAISE FND_API.g_exc_unexpected_error;
3223: END IF;
3224:
3225: IF p_claim_rec.receipt_id IS NOT NULL THEN
3218: );
3219: IF l_return_status = FND_API.g_ret_sts_error THEN
3220: RAISE FND_API.g_exc_error;
3221: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3222: RAISE FND_API.g_exc_unexpected_error;
3223: END IF;
3224:
3225: IF p_claim_rec.receipt_id IS NOT NULL THEN
3226: OPEN csr_cm_exist_on_rec(p_claim_rec.receipt_id, p_claim_rec.payment_reference_id);
3275: ,x_return_status => l_return_status
3276: ,x_msg_data => x_msg_data
3277: ,x_msg_count => x_msg_count
3278: );
3279: IF l_return_status = FND_API.g_ret_sts_error THEN
3280: RAISE FND_API.g_exc_error;
3281: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3282: RAISE FND_API.g_exc_unexpected_error;
3283: END IF;
3276: ,x_msg_data => x_msg_data
3277: ,x_msg_count => x_msg_count
3278: );
3279: IF l_return_status = FND_API.g_ret_sts_error THEN
3280: RAISE FND_API.g_exc_error;
3281: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3282: RAISE FND_API.g_exc_unexpected_error;
3283: END IF;
3284:
3277: ,x_msg_count => x_msg_count
3278: );
3279: IF l_return_status = FND_API.g_ret_sts_error THEN
3280: RAISE FND_API.g_exc_error;
3281: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3282: RAISE FND_API.g_exc_unexpected_error;
3283: END IF;
3284:
3285: IF l_cm_applied_on_rec_amt IS NULL THEN
3278: );
3279: IF l_return_status = FND_API.g_ret_sts_error THEN
3280: RAISE FND_API.g_exc_error;
3281: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3282: RAISE FND_API.g_exc_unexpected_error;
3283: END IF;
3284:
3285: IF l_cm_applied_on_rec_amt IS NULL THEN
3286: IF g_debug THEN
3308: ,x_return_status => l_return_status
3309: ,x_msg_data => x_msg_data
3310: ,x_msg_count => x_msg_count
3311: );
3312: IF l_return_status = FND_API.g_ret_sts_error THEN
3313: RAISE FND_API.g_exc_error;
3314: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3315: RAISE FND_API.g_exc_unexpected_error;
3316: END IF;
3309: ,x_msg_data => x_msg_data
3310: ,x_msg_count => x_msg_count
3311: );
3312: IF l_return_status = FND_API.g_ret_sts_error THEN
3313: RAISE FND_API.g_exc_error;
3314: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3315: RAISE FND_API.g_exc_unexpected_error;
3316: END IF;
3317: ELSE
3310: ,x_msg_count => x_msg_count
3311: );
3312: IF l_return_status = FND_API.g_ret_sts_error THEN
3313: RAISE FND_API.g_exc_error;
3314: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3315: RAISE FND_API.g_exc_unexpected_error;
3316: END IF;
3317: ELSE
3318: IF g_debug THEN
3311: );
3312: IF l_return_status = FND_API.g_ret_sts_error THEN
3313: RAISE FND_API.g_exc_error;
3314: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3315: RAISE FND_API.g_exc_unexpected_error;
3316: END IF;
3317: ELSE
3318: IF g_debug THEN
3319: OZF_Utility_PVT.debug_message('Invoice Deduction: Pay by Previous Open Credit Memo which already exists on the receipt');
3332: arp_deduction_cover2.reapply_credit_memo(
3333: p_customer_trx_id => p_payment_reference_id ,
3334: p_cash_receipt_id => p_claim_rec.receipt_id,
3335: p_amount_applied => l_p_new_applied_amount, --4684931
3336: p_init_msg_list => FND_API.g_false,
3337: x_return_status => l_return_status,
3338: x_msg_count => x_msg_count,
3339: x_msg_data => x_msg_data);
3340: IF l_return_status = FND_API.g_ret_sts_error THEN
3336: p_init_msg_list => FND_API.g_false,
3337: x_return_status => l_return_status,
3338: x_msg_count => x_msg_count,
3339: x_msg_data => x_msg_data);
3340: IF l_return_status = FND_API.g_ret_sts_error THEN
3341: RAISE FND_API.g_exc_error;
3342: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3343: RAISE FND_API.g_exc_unexpected_error;
3344: END IF;
3337: x_return_status => l_return_status,
3338: x_msg_count => x_msg_count,
3339: x_msg_data => x_msg_data);
3340: IF l_return_status = FND_API.g_ret_sts_error THEN
3341: RAISE FND_API.g_exc_error;
3342: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3343: RAISE FND_API.g_exc_unexpected_error;
3344: END IF;
3345:
3338: x_msg_count => x_msg_count,
3339: x_msg_data => x_msg_data);
3340: IF l_return_status = FND_API.g_ret_sts_error THEN
3341: RAISE FND_API.g_exc_error;
3342: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3343: RAISE FND_API.g_exc_unexpected_error;
3344: END IF;
3345:
3346: END IF;
3339: x_msg_data => x_msg_data);
3340: IF l_return_status = FND_API.g_ret_sts_error THEN
3341: RAISE FND_API.g_exc_error;
3342: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3343: RAISE FND_API.g_exc_unexpected_error;
3344: END IF;
3345:
3346: END IF;
3347:
3357: ,x_return_status => l_return_status
3358: ,x_msg_data => x_msg_data
3359: ,x_msg_count => x_msg_count
3360: );
3361: IF l_return_status = FND_API.g_ret_sts_error THEN
3362: RAISE FND_API.g_exc_error;
3363: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3364: RAISE FND_API.g_exc_unexpected_error;
3365: END IF;
3358: ,x_msg_data => x_msg_data
3359: ,x_msg_count => x_msg_count
3360: );
3361: IF l_return_status = FND_API.g_ret_sts_error THEN
3362: RAISE FND_API.g_exc_error;
3363: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3364: RAISE FND_API.g_exc_unexpected_error;
3365: END IF;
3366:
3359: ,x_msg_count => x_msg_count
3360: );
3361: IF l_return_status = FND_API.g_ret_sts_error THEN
3362: RAISE FND_API.g_exc_error;
3363: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3364: RAISE FND_API.g_exc_unexpected_error;
3365: END IF;
3366:
3367: l_online_upd_ded_status := TRUE;
3360: );
3361: IF l_return_status = FND_API.g_ret_sts_error THEN
3362: RAISE FND_API.g_exc_error;
3363: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3364: RAISE FND_API.g_exc_unexpected_error;
3365: END IF;
3366:
3367: l_online_upd_ded_status := TRUE;
3368:
3407: ,x_return_status => l_return_status
3408: ,x_msg_data => x_msg_data
3409: ,x_msg_count => x_msg_count
3410: );
3411: IF l_return_status = FND_API.g_ret_sts_error THEN
3412: RAISE FND_API.g_exc_error;
3413: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3414: RAISE FND_API.g_exc_unexpected_error;
3415: END IF;
3408: ,x_msg_data => x_msg_data
3409: ,x_msg_count => x_msg_count
3410: );
3411: IF l_return_status = FND_API.g_ret_sts_error THEN
3412: RAISE FND_API.g_exc_error;
3413: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3414: RAISE FND_API.g_exc_unexpected_error;
3415: END IF;
3416: IF g_debug THEN
3409: ,x_msg_count => x_msg_count
3410: );
3411: IF l_return_status = FND_API.g_ret_sts_error THEN
3412: RAISE FND_API.g_exc_error;
3413: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3414: RAISE FND_API.g_exc_unexpected_error;
3415: END IF;
3416: IF g_debug THEN
3417: OZF_Utility_PVT.debug_message('Receipt Deduction -> 2. Unapply claim investigation');
3410: );
3411: IF l_return_status = FND_API.g_ret_sts_error THEN
3412: RAISE FND_API.g_exc_error;
3413: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3414: RAISE FND_API.g_exc_unexpected_error;
3415: END IF;
3416: IF g_debug THEN
3417: OZF_Utility_PVT.debug_message('Receipt Deduction -> 2. Unapply claim investigation');
3418: END IF;
3441: arp_deduction_cover2.reapply_credit_memo(
3442: p_customer_trx_id => p_payment_reference_id ,
3443: p_cash_receipt_id => p_claim_rec.receipt_id,
3444: p_amount_applied => l_p_new_applied_amount,
3445: p_init_msg_list => FND_API.g_false,
3446: x_return_status => l_return_status,
3447: x_msg_count => x_msg_count,
3448: x_msg_data => x_msg_data);
3449: IF l_return_status = FND_API.g_ret_sts_error THEN
3445: p_init_msg_list => FND_API.g_false,
3446: x_return_status => l_return_status,
3447: x_msg_count => x_msg_count,
3448: x_msg_data => x_msg_data);
3449: IF l_return_status = FND_API.g_ret_sts_error THEN
3450: RAISE FND_API.g_exc_error;
3451: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3452: RAISE FND_API.g_exc_unexpected_error;
3453: END IF;
3446: x_return_status => l_return_status,
3447: x_msg_count => x_msg_count,
3448: x_msg_data => x_msg_data);
3449: IF l_return_status = FND_API.g_ret_sts_error THEN
3450: RAISE FND_API.g_exc_error;
3451: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3452: RAISE FND_API.g_exc_unexpected_error;
3453: END IF;
3454: END IF;
3447: x_msg_count => x_msg_count,
3448: x_msg_data => x_msg_data);
3449: IF l_return_status = FND_API.g_ret_sts_error THEN
3450: RAISE FND_API.g_exc_error;
3451: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3452: RAISE FND_API.g_exc_unexpected_error;
3453: END IF;
3454: END IF;
3455:
3448: x_msg_data => x_msg_data);
3449: IF l_return_status = FND_API.g_ret_sts_error THEN
3450: RAISE FND_API.g_exc_error;
3451: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3452: RAISE FND_API.g_exc_unexpected_error;
3453: END IF;
3454: END IF;
3455:
3456: -- 2. Unapply claim investigation
3468: ,x_return_status => l_return_status
3469: ,x_msg_data => x_msg_data
3470: ,x_msg_count => x_msg_count
3471: );
3472: IF l_return_status = FND_API.g_ret_sts_error THEN
3473: RAISE FND_API.g_exc_error;
3474: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3475: RAISE FND_API.g_exc_unexpected_error;
3476: END IF;
3469: ,x_msg_data => x_msg_data
3470: ,x_msg_count => x_msg_count
3471: );
3472: IF l_return_status = FND_API.g_ret_sts_error THEN
3473: RAISE FND_API.g_exc_error;
3474: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3475: RAISE FND_API.g_exc_unexpected_error;
3476: END IF;
3477: l_online_upd_ded_status := TRUE;
3470: ,x_msg_count => x_msg_count
3471: );
3472: IF l_return_status = FND_API.g_ret_sts_error THEN
3473: RAISE FND_API.g_exc_error;
3474: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3475: RAISE FND_API.g_exc_unexpected_error;
3476: END IF;
3477: l_online_upd_ded_status := TRUE;
3478: END IF; -- end if p_deduction_type
3471: );
3472: IF l_return_status = FND_API.g_ret_sts_error THEN
3473: RAISE FND_API.g_exc_error;
3474: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3475: RAISE FND_API.g_exc_unexpected_error;
3476: END IF;
3477: l_online_upd_ded_status := TRUE;
3478: END IF; -- end if p_deduction_type
3479: END IF; -- end if payment_reference_id is null
3484: IF l_online_upd_ded_status THEN
3485: -- Update Deduction payment detail
3486: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
3487: p_api_version => l_api_version
3488: ,p_init_msg_list => FND_API.g_false
3489: ,p_commit => FND_API.g_false
3490: ,p_validation_level => FND_API.g_valid_level_full
3491: ,x_return_status => l_return_status
3492: ,x_msg_data => x_msg_data
3485: -- Update Deduction payment detail
3486: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
3487: p_api_version => l_api_version
3488: ,p_init_msg_list => FND_API.g_false
3489: ,p_commit => FND_API.g_false
3490: ,p_validation_level => FND_API.g_valid_level_full
3491: ,x_return_status => l_return_status
3492: ,x_msg_data => x_msg_data
3493: ,x_msg_count => x_msg_count
3486: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
3487: p_api_version => l_api_version
3488: ,p_init_msg_list => FND_API.g_false
3489: ,p_commit => FND_API.g_false
3490: ,p_validation_level => FND_API.g_valid_level_full
3491: ,x_return_status => l_return_status
3492: ,x_msg_data => x_msg_data
3493: ,x_msg_count => x_msg_count
3494: ,p_claim_id => p_claim_rec.claim_id
3498: ,p_customer_trx_id => p_payment_reference_id
3499: ,p_adjust_id => NULL
3500: ,p_settlement_amount => l_settlement_amount -- Bug4308188
3501: );
3502: IF l_return_status = FND_API.g_ret_sts_error THEN
3503: RAISE FND_API.g_exc_error;
3504: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3505: RAISE FND_API.g_exc_unexpected_error;
3506: END IF;
3499: ,p_adjust_id => NULL
3500: ,p_settlement_amount => l_settlement_amount -- Bug4308188
3501: );
3502: IF l_return_status = FND_API.g_ret_sts_error THEN
3503: RAISE FND_API.g_exc_error;
3504: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3505: RAISE FND_API.g_exc_unexpected_error;
3506: END IF;
3507: END IF;
3500: ,p_settlement_amount => l_settlement_amount -- Bug4308188
3501: );
3502: IF l_return_status = FND_API.g_ret_sts_error THEN
3503: RAISE FND_API.g_exc_error;
3504: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3505: RAISE FND_API.g_exc_unexpected_error;
3506: END IF;
3507: END IF;
3508:
3501: );
3502: IF l_return_status = FND_API.g_ret_sts_error THEN
3503: RAISE FND_API.g_exc_error;
3504: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3505: RAISE FND_API.g_exc_unexpected_error;
3506: END IF;
3507: END IF;
3508:
3509: IF g_debug THEN
3509: IF g_debug THEN
3510: OZF_Utility_PVT.debug_message(l_full_name||': end');
3511: END IF;
3512: EXCEPTION
3513: WHEN FND_API.g_exc_error THEN
3514: x_return_status := FND_API.g_ret_sts_error;
3515:
3516: WHEN FND_API.g_exc_unexpected_error THEN
3517: x_return_status := FND_API.g_ret_sts_unexp_error ;
3510: OZF_Utility_PVT.debug_message(l_full_name||': end');
3511: END IF;
3512: EXCEPTION
3513: WHEN FND_API.g_exc_error THEN
3514: x_return_status := FND_API.g_ret_sts_error;
3515:
3516: WHEN FND_API.g_exc_unexpected_error THEN
3517: x_return_status := FND_API.g_ret_sts_unexp_error ;
3518:
3512: EXCEPTION
3513: WHEN FND_API.g_exc_error THEN
3514: x_return_status := FND_API.g_ret_sts_error;
3515:
3516: WHEN FND_API.g_exc_unexpected_error THEN
3517: x_return_status := FND_API.g_ret_sts_unexp_error ;
3518:
3519: WHEN OTHERS THEN
3520: x_return_status := FND_API.g_ret_sts_unexp_error ;
3513: WHEN FND_API.g_exc_error THEN
3514: x_return_status := FND_API.g_ret_sts_error;
3515:
3516: WHEN FND_API.g_exc_unexpected_error THEN
3517: x_return_status := FND_API.g_ret_sts_unexp_error ;
3518:
3519: WHEN OTHERS THEN
3520: x_return_status := FND_API.g_ret_sts_unexp_error ;
3521: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3516: WHEN FND_API.g_exc_unexpected_error THEN
3517: x_return_status := FND_API.g_ret_sts_unexp_error ;
3518:
3519: WHEN OTHERS THEN
3520: x_return_status := FND_API.g_ret_sts_unexp_error ;
3521: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3522: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3523: END IF;
3524:
3566: IF g_debug THEN
3567: OZF_Utility_PVT.debug_message(l_full_name||': start');
3568: END IF;
3569:
3570: x_return_status := FND_API.g_ret_sts_success;
3571:
3572: ------------------------ start -------------------------
3573: /*------------------------------------------------------------*
3574: | Update Claim Status to CLOSED.
3578: ,x_return_status => l_return_status
3579: ,x_msg_data => x_msg_data
3580: ,x_msg_count => x_msg_count
3581: );
3582: IF l_return_status = FND_API.g_ret_sts_error THEN
3583: RAISE FND_API.g_exc_error;
3584: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3585: RAISE FND_API.g_exc_unexpected_error;
3586: END IF;
3579: ,x_msg_data => x_msg_data
3580: ,x_msg_count => x_msg_count
3581: );
3582: IF l_return_status = FND_API.g_ret_sts_error THEN
3583: RAISE FND_API.g_exc_error;
3584: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3585: RAISE FND_API.g_exc_unexpected_error;
3586: END IF;
3587:
3580: ,x_msg_count => x_msg_count
3581: );
3582: IF l_return_status = FND_API.g_ret_sts_error THEN
3583: RAISE FND_API.g_exc_error;
3584: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3585: RAISE FND_API.g_exc_unexpected_error;
3586: END IF;
3587:
3588: IF p_deduction_type = 'RECEIPT_OPM' THEN
3581: );
3582: IF l_return_status = FND_API.g_ret_sts_error THEN
3583: RAISE FND_API.g_exc_error;
3584: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3585: RAISE FND_API.g_exc_unexpected_error;
3586: END IF;
3587:
3588: IF p_deduction_type = 'RECEIPT_OPM' THEN
3589: /*------------------------------------------------------------*
3606: ,x_return_status => l_return_status
3607: ,x_msg_data => x_msg_data
3608: ,x_msg_count => x_msg_count
3609: );
3610: IF l_return_status = FND_API.g_ret_sts_error THEN
3611: RAISE FND_API.g_exc_error;
3612: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3613: RAISE FND_API.g_exc_unexpected_error;
3614: END IF;
3607: ,x_msg_data => x_msg_data
3608: ,x_msg_count => x_msg_count
3609: );
3610: IF l_return_status = FND_API.g_ret_sts_error THEN
3611: RAISE FND_API.g_exc_error;
3612: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3613: RAISE FND_API.g_exc_unexpected_error;
3614: END IF;
3615:
3608: ,x_msg_count => x_msg_count
3609: );
3610: IF l_return_status = FND_API.g_ret_sts_error THEN
3611: RAISE FND_API.g_exc_error;
3612: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3613: RAISE FND_API.g_exc_unexpected_error;
3614: END IF;
3615:
3616: IF g_debug THEN
3609: );
3610: IF l_return_status = FND_API.g_ret_sts_error THEN
3611: RAISE FND_API.g_exc_error;
3612: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3613: RAISE FND_API.g_exc_unexpected_error;
3614: END IF;
3615:
3616: IF g_debug THEN
3617: OZF_Utility_PVT.debug_message('Overpayment -> 2. Apply On Account Credit.');
3622: ,x_return_status => l_return_status
3623: ,x_msg_data => x_msg_data
3624: ,x_msg_count => x_msg_count
3625: );
3626: IF l_return_status = FND_API.g_ret_sts_error THEN
3627: RAISE FND_API.g_exc_error;
3628: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3629: RAISE FND_API.g_exc_unexpected_error;
3630: END IF;
3623: ,x_msg_data => x_msg_data
3624: ,x_msg_count => x_msg_count
3625: );
3626: IF l_return_status = FND_API.g_ret_sts_error THEN
3627: RAISE FND_API.g_exc_error;
3628: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3629: RAISE FND_API.g_exc_unexpected_error;
3630: END IF;
3631:
3624: ,x_msg_count => x_msg_count
3625: );
3626: IF l_return_status = FND_API.g_ret_sts_error THEN
3627: RAISE FND_API.g_exc_error;
3628: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3629: RAISE FND_API.g_exc_unexpected_error;
3630: END IF;
3631:
3632: /*------------------------------------------------------------*
3625: );
3626: IF l_return_status = FND_API.g_ret_sts_error THEN
3627: RAISE FND_API.g_exc_error;
3628: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3629: RAISE FND_API.g_exc_unexpected_error;
3630: END IF;
3631:
3632: /*------------------------------------------------------------*
3633: | Update Deduction payment detail
3637: OZF_Utility_PVT.debug_message('cash_receipt_id = '||p_claim_rec.receipt_id);
3638: END IF;
3639: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
3640: p_api_version => l_api_version
3641: ,p_init_msg_list => FND_API.g_false
3642: ,p_commit => FND_API.g_false
3643: ,p_validation_level => FND_API.g_valid_level_full
3644: ,x_return_status => l_return_status
3645: ,x_msg_data => x_msg_data
3638: END IF;
3639: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
3640: p_api_version => l_api_version
3641: ,p_init_msg_list => FND_API.g_false
3642: ,p_commit => FND_API.g_false
3643: ,p_validation_level => FND_API.g_valid_level_full
3644: ,x_return_status => l_return_status
3645: ,x_msg_data => x_msg_data
3646: ,x_msg_count => x_msg_count
3639: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
3640: p_api_version => l_api_version
3641: ,p_init_msg_list => FND_API.g_false
3642: ,p_commit => FND_API.g_false
3643: ,p_validation_level => FND_API.g_valid_level_full
3644: ,x_return_status => l_return_status
3645: ,x_msg_data => x_msg_data
3646: ,x_msg_count => x_msg_count
3647: ,p_claim_id => p_claim_rec.claim_id
3650: ,p_cash_receipt_id => p_claim_rec.receipt_id
3651: ,p_customer_trx_id => NULL --p_claim_rec.payment_reference_id
3652: ,p_adjust_id => NULL
3653: );
3654: IF l_return_status = FND_API.g_ret_sts_error THEN
3655: RAISE FND_API.g_exc_error;
3656: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3657: RAISE FND_API.g_exc_unexpected_error;
3658: END IF;
3651: ,p_customer_trx_id => NULL --p_claim_rec.payment_reference_id
3652: ,p_adjust_id => NULL
3653: );
3654: IF l_return_status = FND_API.g_ret_sts_error THEN
3655: RAISE FND_API.g_exc_error;
3656: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3657: RAISE FND_API.g_exc_unexpected_error;
3658: END IF;
3659: ELSE
3652: ,p_adjust_id => NULL
3653: );
3654: IF l_return_status = FND_API.g_ret_sts_error THEN
3655: RAISE FND_API.g_exc_error;
3656: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3657: RAISE FND_API.g_exc_unexpected_error;
3658: END IF;
3659: ELSE
3660: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3653: );
3654: IF l_return_status = FND_API.g_ret_sts_error THEN
3655: RAISE FND_API.g_exc_error;
3656: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3657: RAISE FND_API.g_exc_unexpected_error;
3658: END IF;
3659: ELSE
3660: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3661: FND_MESSAGE.set_name('OZF', 'OZF_AR_PAYMENT_NOTMATCH');
3660: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3661: FND_MESSAGE.set_name('OZF', 'OZF_AR_PAYMENT_NOTMATCH');
3662: FND_MSG_PUB.add;
3663: END IF;
3664: RAISE FND_API.g_exc_error;
3665: END IF;
3666:
3667: IF g_debug THEN
3668: OZF_Utility_PVT.debug_message(l_full_name||': end');
3667: IF g_debug THEN
3668: OZF_Utility_PVT.debug_message(l_full_name||': end');
3669: END IF;
3670: EXCEPTION
3671: WHEN FND_API.g_exc_error THEN
3672: x_return_status := FND_API.g_ret_sts_error;
3673:
3674: WHEN FND_API.g_exc_unexpected_error THEN
3675: x_return_status := FND_API.g_ret_sts_unexp_error ;
3668: OZF_Utility_PVT.debug_message(l_full_name||': end');
3669: END IF;
3670: EXCEPTION
3671: WHEN FND_API.g_exc_error THEN
3672: x_return_status := FND_API.g_ret_sts_error;
3673:
3674: WHEN FND_API.g_exc_unexpected_error THEN
3675: x_return_status := FND_API.g_ret_sts_unexp_error ;
3676:
3670: EXCEPTION
3671: WHEN FND_API.g_exc_error THEN
3672: x_return_status := FND_API.g_ret_sts_error;
3673:
3674: WHEN FND_API.g_exc_unexpected_error THEN
3675: x_return_status := FND_API.g_ret_sts_unexp_error ;
3676:
3677: WHEN OTHERS THEN
3678: x_return_status := FND_API.g_ret_sts_unexp_error ;
3671: WHEN FND_API.g_exc_error THEN
3672: x_return_status := FND_API.g_ret_sts_error;
3673:
3674: WHEN FND_API.g_exc_unexpected_error THEN
3675: x_return_status := FND_API.g_ret_sts_unexp_error ;
3676:
3677: WHEN OTHERS THEN
3678: x_return_status := FND_API.g_ret_sts_unexp_error ;
3679: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3674: WHEN FND_API.g_exc_unexpected_error THEN
3675: x_return_status := FND_API.g_ret_sts_unexp_error ;
3676:
3677: WHEN OTHERS THEN
3678: x_return_status := FND_API.g_ret_sts_unexp_error ;
3679: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3680: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3681: END IF;
3682:
3714: IF g_debug THEN
3715: OZF_Utility_PVT.debug_message(l_full_name||': start');
3716: END IF;
3717:
3718: x_return_status := FND_API.g_ret_sts_success;
3719:
3720: ------------------------ start -------------------------
3721: /*------------------------------------------------------------*
3722: | Update Claim Status to CLOSED.
3726: ,x_return_status => l_return_status
3727: ,x_msg_data => x_msg_data
3728: ,x_msg_count => x_msg_count
3729: );
3730: IF l_return_status = FND_API.g_ret_sts_error THEN
3731: RAISE FND_API.g_exc_error;
3732: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3733: RAISE FND_API.g_exc_unexpected_error;
3734: END IF;
3727: ,x_msg_data => x_msg_data
3728: ,x_msg_count => x_msg_count
3729: );
3730: IF l_return_status = FND_API.g_ret_sts_error THEN
3731: RAISE FND_API.g_exc_error;
3732: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3733: RAISE FND_API.g_exc_unexpected_error;
3734: END IF;
3735:
3728: ,x_msg_count => x_msg_count
3729: );
3730: IF l_return_status = FND_API.g_ret_sts_error THEN
3731: RAISE FND_API.g_exc_error;
3732: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3733: RAISE FND_API.g_exc_unexpected_error;
3734: END IF;
3735:
3736: IF p_deduction_type IN ('SOURCE_DED', 'RECEIPT_DED') THEN
3729: );
3730: IF l_return_status = FND_API.g_ret_sts_error THEN
3731: RAISE FND_API.g_exc_error;
3732: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3733: RAISE FND_API.g_exc_unexpected_error;
3734: END IF;
3735:
3736: IF p_deduction_type IN ('SOURCE_DED', 'RECEIPT_DED') THEN
3737: IF p_deduction_type = 'SOURCE_DED'THEN
3747: ,x_return_status => l_return_status
3748: ,x_msg_data => x_msg_data
3749: ,x_msg_count => x_msg_count
3750: );
3751: IF l_return_status = FND_API.g_ret_sts_error THEN
3752: RAISE FND_API.g_exc_error;
3753: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3754: RAISE FND_API.g_exc_unexpected_error;
3755: END IF;
3748: ,x_msg_data => x_msg_data
3749: ,x_msg_count => x_msg_count
3750: );
3751: IF l_return_status = FND_API.g_ret_sts_error THEN
3752: RAISE FND_API.g_exc_error;
3753: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3754: RAISE FND_API.g_exc_unexpected_error;
3755: END IF;
3756:
3749: ,x_msg_count => x_msg_count
3750: );
3751: IF l_return_status = FND_API.g_ret_sts_error THEN
3752: RAISE FND_API.g_exc_error;
3753: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3754: RAISE FND_API.g_exc_unexpected_error;
3755: END IF;
3756:
3757: /*------------------------------------------------------------*
3750: );
3751: IF l_return_status = FND_API.g_ret_sts_error THEN
3752: RAISE FND_API.g_exc_error;
3753: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3754: RAISE FND_API.g_exc_unexpected_error;
3755: END IF;
3756:
3757: /*------------------------------------------------------------*
3758: | Update Deduction payment detail
3760: IF l_cb_customer_trx_id IS NOT NULL THEN
3761: -- Update Deduction payment detail
3762: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
3763: p_api_version => l_api_version
3764: ,p_init_msg_list => FND_API.g_false
3765: ,p_commit => FND_API.g_false
3766: ,p_validation_level => FND_API.g_valid_level_full
3767: ,x_return_status => l_return_status
3768: ,x_msg_data => x_msg_data
3761: -- Update Deduction payment detail
3762: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
3763: p_api_version => l_api_version
3764: ,p_init_msg_list => FND_API.g_false
3765: ,p_commit => FND_API.g_false
3766: ,p_validation_level => FND_API.g_valid_level_full
3767: ,x_return_status => l_return_status
3768: ,x_msg_data => x_msg_data
3769: ,x_msg_count => x_msg_count
3762: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
3763: p_api_version => l_api_version
3764: ,p_init_msg_list => FND_API.g_false
3765: ,p_commit => FND_API.g_false
3766: ,p_validation_level => FND_API.g_valid_level_full
3767: ,x_return_status => l_return_status
3768: ,x_msg_data => x_msg_data
3769: ,x_msg_count => x_msg_count
3770: ,p_claim_id => p_claim_rec.claim_id
3773: ,p_cash_receipt_id => p_claim_rec.receipt_id
3774: ,p_customer_trx_id => l_cb_customer_trx_id
3775: ,p_adjust_id => NULL
3776: );
3777: IF l_return_status = FND_API.g_ret_sts_error THEN
3778: RAISE FND_API.g_exc_error;
3779: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3780: RAISE FND_API.g_exc_unexpected_error;
3781: END IF;
3774: ,p_customer_trx_id => l_cb_customer_trx_id
3775: ,p_adjust_id => NULL
3776: );
3777: IF l_return_status = FND_API.g_ret_sts_error THEN
3778: RAISE FND_API.g_exc_error;
3779: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3780: RAISE FND_API.g_exc_unexpected_error;
3781: END IF;
3782: END IF;
3775: ,p_adjust_id => NULL
3776: );
3777: IF l_return_status = FND_API.g_ret_sts_error THEN
3778: RAISE FND_API.g_exc_error;
3779: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3780: RAISE FND_API.g_exc_unexpected_error;
3781: END IF;
3782: END IF;
3783:
3776: );
3777: IF l_return_status = FND_API.g_ret_sts_error THEN
3778: RAISE FND_API.g_exc_error;
3779: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3780: RAISE FND_API.g_exc_unexpected_error;
3781: END IF;
3782: END IF;
3783:
3784: ELSE
3792: IF g_debug THEN
3793: OZF_Utility_PVT.debug_message(l_full_name||': end');
3794: END IF;
3795: EXCEPTION
3796: WHEN FND_API.g_exc_error THEN
3797: x_return_status := FND_API.g_ret_sts_error;
3798:
3799: WHEN FND_API.g_exc_unexpected_error THEN
3800: x_return_status := FND_API.g_ret_sts_unexp_error ;
3793: OZF_Utility_PVT.debug_message(l_full_name||': end');
3794: END IF;
3795: EXCEPTION
3796: WHEN FND_API.g_exc_error THEN
3797: x_return_status := FND_API.g_ret_sts_error;
3798:
3799: WHEN FND_API.g_exc_unexpected_error THEN
3800: x_return_status := FND_API.g_ret_sts_unexp_error ;
3801:
3795: EXCEPTION
3796: WHEN FND_API.g_exc_error THEN
3797: x_return_status := FND_API.g_ret_sts_error;
3798:
3799: WHEN FND_API.g_exc_unexpected_error THEN
3800: x_return_status := FND_API.g_ret_sts_unexp_error ;
3801:
3802: WHEN OTHERS THEN
3803: x_return_status := FND_API.g_ret_sts_unexp_error ;
3796: WHEN FND_API.g_exc_error THEN
3797: x_return_status := FND_API.g_ret_sts_error;
3798:
3799: WHEN FND_API.g_exc_unexpected_error THEN
3800: x_return_status := FND_API.g_ret_sts_unexp_error ;
3801:
3802: WHEN OTHERS THEN
3803: x_return_status := FND_API.g_ret_sts_unexp_error ;
3804: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3799: WHEN FND_API.g_exc_unexpected_error THEN
3800: x_return_status := FND_API.g_ret_sts_unexp_error ;
3801:
3802: WHEN OTHERS THEN
3803: x_return_status := FND_API.g_ret_sts_unexp_error ;
3804: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3805: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3806: END IF;
3807:
3838: IF g_debug THEN
3839: OZF_Utility_PVT.debug_message(l_full_name||': start');
3840: END IF;
3841:
3842: x_return_status := FND_API.g_ret_sts_success;
3843:
3844: ------------------------ start -------------------------
3845: IF p_deduction_type = 'RECEIPT_DED' AND
3846: NOT ARP_DEDUCTION_COVER.negative_rct_writeoffs_allowed THEN
3852: ,x_return_status => l_return_status
3853: ,x_msg_data => x_msg_data
3854: ,x_msg_count => x_msg_count
3855: );
3856: IF l_return_status = FND_API.g_ret_sts_error THEN
3857: RAISE FND_API.g_exc_error;
3858: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3859: RAISE FND_API.g_exc_unexpected_error;
3860: END IF;
3853: ,x_msg_data => x_msg_data
3854: ,x_msg_count => x_msg_count
3855: );
3856: IF l_return_status = FND_API.g_ret_sts_error THEN
3857: RAISE FND_API.g_exc_error;
3858: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3859: RAISE FND_API.g_exc_unexpected_error;
3860: END IF;
3861:
3854: ,x_msg_count => x_msg_count
3855: );
3856: IF l_return_status = FND_API.g_ret_sts_error THEN
3857: RAISE FND_API.g_exc_error;
3858: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3859: RAISE FND_API.g_exc_unexpected_error;
3860: END IF;
3861:
3862: ELSIF p_deduction_type IN ('SOURCE_DED', 'RECEIPT_DED', 'RECEIPT_OPM') THEN
3855: );
3856: IF l_return_status = FND_API.g_ret_sts_error THEN
3857: RAISE FND_API.g_exc_error;
3858: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3859: RAISE FND_API.g_exc_unexpected_error;
3860: END IF;
3861:
3862: ELSIF p_deduction_type IN ('SOURCE_DED', 'RECEIPT_DED', 'RECEIPT_OPM') THEN
3863: /*------------------------------------------------------------*
3868: ,x_return_status => l_return_status
3869: ,x_msg_data => x_msg_data
3870: ,x_msg_count => x_msg_count
3871: );
3872: IF l_return_status = FND_API.g_ret_sts_error THEN
3873: RAISE FND_API.g_exc_error;
3874: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3875: RAISE FND_API.g_exc_unexpected_error;
3876: END IF;
3869: ,x_msg_data => x_msg_data
3870: ,x_msg_count => x_msg_count
3871: );
3872: IF l_return_status = FND_API.g_ret_sts_error THEN
3873: RAISE FND_API.g_exc_error;
3874: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3875: RAISE FND_API.g_exc_unexpected_error;
3876: END IF;
3877:
3870: ,x_msg_count => x_msg_count
3871: );
3872: IF l_return_status = FND_API.g_ret_sts_error THEN
3873: RAISE FND_API.g_exc_error;
3874: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3875: RAISE FND_API.g_exc_unexpected_error;
3876: END IF;
3877:
3878: Create_AR_Write_Off(
3871: );
3872: IF l_return_status = FND_API.g_ret_sts_error THEN
3873: RAISE FND_API.g_exc_error;
3874: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3875: RAISE FND_API.g_exc_unexpected_error;
3876: END IF;
3877:
3878: Create_AR_Write_Off(
3879: p_claim_rec => p_claim_rec
3883: ,x_return_status => l_return_status
3884: ,x_msg_data => x_msg_data
3885: ,x_msg_count => x_msg_count
3886: );
3887: IF l_return_status = FND_API.g_ret_sts_error THEN
3888: RAISE FND_API.g_exc_error;
3889: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3890: RAISE FND_API.g_exc_unexpected_error;
3891: END IF;
3884: ,x_msg_data => x_msg_data
3885: ,x_msg_count => x_msg_count
3886: );
3887: IF l_return_status = FND_API.g_ret_sts_error THEN
3888: RAISE FND_API.g_exc_error;
3889: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3890: RAISE FND_API.g_exc_unexpected_error;
3891: END IF;
3892: END IF;
3885: ,x_msg_count => x_msg_count
3886: );
3887: IF l_return_status = FND_API.g_ret_sts_error THEN
3888: RAISE FND_API.g_exc_error;
3889: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3890: RAISE FND_API.g_exc_unexpected_error;
3891: END IF;
3892: END IF;
3893:
3886: );
3887: IF l_return_status = FND_API.g_ret_sts_error THEN
3888: RAISE FND_API.g_exc_error;
3889: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3890: RAISE FND_API.g_exc_unexpected_error;
3891: END IF;
3892: END IF;
3893:
3894: IF g_debug THEN
3894: IF g_debug THEN
3895: OZF_Utility_PVT.debug_message(l_full_name||': end');
3896: END IF;
3897: EXCEPTION
3898: WHEN FND_API.g_exc_error THEN
3899: x_return_status := FND_API.g_ret_sts_error;
3900:
3901: WHEN FND_API.g_exc_unexpected_error THEN
3902: x_return_status := FND_API.g_ret_sts_unexp_error ;
3895: OZF_Utility_PVT.debug_message(l_full_name||': end');
3896: END IF;
3897: EXCEPTION
3898: WHEN FND_API.g_exc_error THEN
3899: x_return_status := FND_API.g_ret_sts_error;
3900:
3901: WHEN FND_API.g_exc_unexpected_error THEN
3902: x_return_status := FND_API.g_ret_sts_unexp_error ;
3903:
3897: EXCEPTION
3898: WHEN FND_API.g_exc_error THEN
3899: x_return_status := FND_API.g_ret_sts_error;
3900:
3901: WHEN FND_API.g_exc_unexpected_error THEN
3902: x_return_status := FND_API.g_ret_sts_unexp_error ;
3903:
3904: WHEN OTHERS THEN
3905: x_return_status := FND_API.g_ret_sts_unexp_error ;
3898: WHEN FND_API.g_exc_error THEN
3899: x_return_status := FND_API.g_ret_sts_error;
3900:
3901: WHEN FND_API.g_exc_unexpected_error THEN
3902: x_return_status := FND_API.g_ret_sts_unexp_error ;
3903:
3904: WHEN OTHERS THEN
3905: x_return_status := FND_API.g_ret_sts_unexp_error ;
3906: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3901: WHEN FND_API.g_exc_unexpected_error THEN
3902: x_return_status := FND_API.g_ret_sts_unexp_error ;
3903:
3904: WHEN OTHERS THEN
3905: x_return_status := FND_API.g_ret_sts_unexp_error ;
3906: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3907: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3908: END IF;
3909:
4005: IF g_debug THEN
4006: OZF_Utility_PVT.debug_message(l_full_name||': start');
4007: END IF;
4008:
4009: x_return_status := FND_API.g_ret_sts_success;
4010:
4011: ------------------------ start -------------------------
4012: IF p_deduction_type IN ('RECEIPT_OPM', 'CHARGE') THEN
4013: IF p_payment_reference_id IS NULL THEN
4016: *------------------------------------------------------------*/
4017: -- 1. AutoInvoice
4018: OZF_AR_INTERFACE_PVT.Interface_Claim(
4019: p_api_version => l_api_version
4020: ,p_init_msg_list => FND_API.g_false
4021: ,p_commit => FND_API.g_false
4022: ,p_validation_level => FND_API.g_valid_level_full
4023: ,x_return_status => l_return_status
4024: ,x_msg_data => x_msg_data
4017: -- 1. AutoInvoice
4018: OZF_AR_INTERFACE_PVT.Interface_Claim(
4019: p_api_version => l_api_version
4020: ,p_init_msg_list => FND_API.g_false
4021: ,p_commit => FND_API.g_false
4022: ,p_validation_level => FND_API.g_valid_level_full
4023: ,x_return_status => l_return_status
4024: ,x_msg_data => x_msg_data
4025: ,x_msg_count => x_msg_count
4018: OZF_AR_INTERFACE_PVT.Interface_Claim(
4019: p_api_version => l_api_version
4020: ,p_init_msg_list => FND_API.g_false
4021: ,p_commit => FND_API.g_false
4022: ,p_validation_level => FND_API.g_valid_level_full
4023: ,x_return_status => l_return_status
4024: ,x_msg_data => x_msg_data
4025: ,x_msg_count => x_msg_count
4026: ,p_claim_id => p_claim_rec.claim_id
4024: ,x_msg_data => x_msg_data
4025: ,x_msg_count => x_msg_count
4026: ,p_claim_id => p_claim_rec.claim_id
4027: );
4028: IF l_return_status = FND_API.g_ret_sts_error THEN
4029: RAISE FND_API.g_exc_error;
4030: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4031: RAISE FND_API.g_exc_unexpected_error;
4032: END IF;
4025: ,x_msg_count => x_msg_count
4026: ,p_claim_id => p_claim_rec.claim_id
4027: );
4028: IF l_return_status = FND_API.g_ret_sts_error THEN
4029: RAISE FND_API.g_exc_error;
4030: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4031: RAISE FND_API.g_exc_unexpected_error;
4032: END IF;
4033:
4026: ,p_claim_id => p_claim_rec.claim_id
4027: );
4028: IF l_return_status = FND_API.g_ret_sts_error THEN
4029: RAISE FND_API.g_exc_error;
4030: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4031: RAISE FND_API.g_exc_unexpected_error;
4032: END IF;
4033:
4034: --2. Update Deduction payment detail --
4027: );
4028: IF l_return_status = FND_API.g_ret_sts_error THEN
4029: RAISE FND_API.g_exc_error;
4030: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4031: RAISE FND_API.g_exc_unexpected_error;
4032: END IF;
4033:
4034: --2. Update Deduction payment detail --
4035: l_online_upd_ded_status := FALSE;
4042: ,x_return_status => l_return_status
4043: ,x_msg_data => x_msg_data
4044: ,x_msg_count => x_msg_count
4045: );
4046: IF l_return_status = FND_API.g_ret_sts_error THEN
4047: RAISE FND_API.g_exc_error;
4048: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4049: RAISE FND_API.g_exc_unexpected_error;
4050: END IF;
4043: ,x_msg_data => x_msg_data
4044: ,x_msg_count => x_msg_count
4045: );
4046: IF l_return_status = FND_API.g_ret_sts_error THEN
4047: RAISE FND_API.g_exc_error;
4048: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4049: RAISE FND_API.g_exc_unexpected_error;
4050: END IF;
4051:
4044: ,x_msg_count => x_msg_count
4045: );
4046: IF l_return_status = FND_API.g_ret_sts_error THEN
4047: RAISE FND_API.g_exc_error;
4048: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4049: RAISE FND_API.g_exc_unexpected_error;
4050: END IF;
4051:
4052: --bug 4684931
4045: );
4046: IF l_return_status = FND_API.g_ret_sts_error THEN
4047: RAISE FND_API.g_exc_error;
4048: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4049: RAISE FND_API.g_exc_unexpected_error;
4050: END IF;
4051:
4052: --bug 4684931
4053: l_receipt_currency := p_claim_rec.currency_code;
4086: ,x_return_status => l_return_status
4087: ,x_msg_data => x_msg_data
4088: ,x_msg_count => x_msg_count
4089: );
4090: IF l_return_status = FND_API.g_ret_sts_error THEN
4091: RAISE FND_API.g_exc_error;
4092: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4093: RAISE FND_API.g_exc_unexpected_error;
4094: END IF;
4087: ,x_msg_data => x_msg_data
4088: ,x_msg_count => x_msg_count
4089: );
4090: IF l_return_status = FND_API.g_ret_sts_error THEN
4091: RAISE FND_API.g_exc_error;
4092: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4093: RAISE FND_API.g_exc_unexpected_error;
4094: END IF;
4095:
4088: ,x_msg_count => x_msg_count
4089: );
4090: IF l_return_status = FND_API.g_ret_sts_error THEN
4091: RAISE FND_API.g_exc_error;
4092: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4093: RAISE FND_API.g_exc_unexpected_error;
4094: END IF;
4095:
4096: l_stlmnt_amount := NVL(l_dm_applied_on_rec_amt,0) + (p_debit_memo_amount * -1);
4089: );
4090: IF l_return_status = FND_API.g_ret_sts_error THEN
4091: RAISE FND_API.g_exc_error;
4092: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4093: RAISE FND_API.g_exc_unexpected_error;
4094: END IF;
4095:
4096: l_stlmnt_amount := NVL(l_dm_applied_on_rec_amt,0) + (p_debit_memo_amount * -1);
4097: IF l_dm_applied_on_rec_amt IS NULL THEN
4117: ,x_msg_data => x_msg_data
4118: ,x_msg_count => x_msg_count
4119: );
4120:
4121: IF l_return_status = FND_API.g_ret_sts_error THEN
4122: RAISE FND_API.g_exc_error;
4123: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4124: RAISE FND_API.g_exc_unexpected_error;
4125: END IF;
4118: ,x_msg_count => x_msg_count
4119: );
4120:
4121: IF l_return_status = FND_API.g_ret_sts_error THEN
4122: RAISE FND_API.g_exc_error;
4123: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4124: RAISE FND_API.g_exc_unexpected_error;
4125: END IF;
4126: ELSE
4119: );
4120:
4121: IF l_return_status = FND_API.g_ret_sts_error THEN
4122: RAISE FND_API.g_exc_error;
4123: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4124: RAISE FND_API.g_exc_unexpected_error;
4125: END IF;
4126: ELSE
4127: OZF_Utility_PVT.debug_message('Overpayment: Pay by Previous Open Debit Memo which already exists on the receipt');
4120:
4121: IF l_return_status = FND_API.g_ret_sts_error THEN
4122: RAISE FND_API.g_exc_error;
4123: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4124: RAISE FND_API.g_exc_unexpected_error;
4125: END IF;
4126: ELSE
4127: OZF_Utility_PVT.debug_message('Overpayment: Pay by Previous Open Debit Memo which already exists on the receipt');
4128: OZF_Utility_PVT.debug_message('Overpayment -> 1.5. Unapply debit memo on receipt');
4133: ,x_return_status => l_return_status
4134: ,x_msg_data => x_msg_data
4135: ,x_msg_count => x_msg_count
4136: );
4137: IF l_return_status = FND_API.g_ret_sts_error THEN
4138: RAISE FND_API.g_exc_error;
4139: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4140: RAISE FND_API.g_exc_unexpected_error;
4141: END IF;
4134: ,x_msg_data => x_msg_data
4135: ,x_msg_count => x_msg_count
4136: );
4137: IF l_return_status = FND_API.g_ret_sts_error THEN
4138: RAISE FND_API.g_exc_error;
4139: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4140: RAISE FND_API.g_exc_unexpected_error;
4141: END IF;
4142:
4135: ,x_msg_count => x_msg_count
4136: );
4137: IF l_return_status = FND_API.g_ret_sts_error THEN
4138: RAISE FND_API.g_exc_error;
4139: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4140: RAISE FND_API.g_exc_unexpected_error;
4141: END IF;
4142:
4143: OZF_Utility_PVT.debug_message('Overpayment -> 2. Apply debit memo with increased amount on receipt');
4136: );
4137: IF l_return_status = FND_API.g_ret_sts_error THEN
4138: RAISE FND_API.g_exc_error;
4139: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4140: RAISE FND_API.g_exc_unexpected_error;
4141: END IF;
4142:
4143: OZF_Utility_PVT.debug_message('Overpayment -> 2. Apply debit memo with increased amount on receipt');
4144: l_settlement_amount := (p_debit_memo_amount * -1); -- Bug4308188
4163: ,x_return_status => l_return_status
4164: ,x_msg_data => x_msg_data
4165: ,x_msg_count => x_msg_count
4166: );
4167: IF l_return_status = FND_API.g_ret_sts_error THEN
4168: RAISE FND_API.g_exc_error;
4169: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4170: RAISE FND_API.g_exc_unexpected_error;
4171: END IF;
4164: ,x_msg_data => x_msg_data
4165: ,x_msg_count => x_msg_count
4166: );
4167: IF l_return_status = FND_API.g_ret_sts_error THEN
4168: RAISE FND_API.g_exc_error;
4169: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4170: RAISE FND_API.g_exc_unexpected_error;
4171: END IF;
4172: END IF;
4165: ,x_msg_count => x_msg_count
4166: );
4167: IF l_return_status = FND_API.g_ret_sts_error THEN
4168: RAISE FND_API.g_exc_error;
4169: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4170: RAISE FND_API.g_exc_unexpected_error;
4171: END IF;
4172: END IF;
4173:
4166: );
4167: IF l_return_status = FND_API.g_ret_sts_error THEN
4168: RAISE FND_API.g_exc_error;
4169: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4170: RAISE FND_API.g_exc_unexpected_error;
4171: END IF;
4172: END IF;
4173:
4174:
4179: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4180: FND_MESSAGE.set_name('OZF', 'OZF_AR_PAYMENT_NOTMATCH');
4181: FND_MSG_PUB.add;
4182: END IF;
4183: RAISE FND_API.g_exc_error;
4184: END IF;
4185:
4186:
4187: /*------------------------------------------------------------*
4190: IF l_online_upd_ded_status THEN
4191: -- Update Deduction payment detail
4192: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
4193: p_api_version => l_api_version
4194: ,p_init_msg_list => FND_API.g_false
4195: ,p_commit => FND_API.g_false
4196: ,p_validation_level => FND_API.g_valid_level_full
4197: ,x_return_status => l_return_status
4198: ,x_msg_data => x_msg_data
4191: -- Update Deduction payment detail
4192: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
4193: p_api_version => l_api_version
4194: ,p_init_msg_list => FND_API.g_false
4195: ,p_commit => FND_API.g_false
4196: ,p_validation_level => FND_API.g_valid_level_full
4197: ,x_return_status => l_return_status
4198: ,x_msg_data => x_msg_data
4199: ,x_msg_count => x_msg_count
4192: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
4193: p_api_version => l_api_version
4194: ,p_init_msg_list => FND_API.g_false
4195: ,p_commit => FND_API.g_false
4196: ,p_validation_level => FND_API.g_valid_level_full
4197: ,x_return_status => l_return_status
4198: ,x_msg_data => x_msg_data
4199: ,x_msg_count => x_msg_count
4200: ,p_claim_id => p_claim_rec.claim_id
4204: ,p_customer_trx_id => p_payment_reference_id
4205: ,p_adjust_id => NULL
4206: ,p_settlement_amount => l_settlement_amount -- Bug4308188
4207: );
4208: IF l_return_status = FND_API.g_ret_sts_error THEN
4209: RAISE FND_API.g_exc_error;
4210: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4211: RAISE FND_API.g_exc_unexpected_error;
4212: END IF;
4205: ,p_adjust_id => NULL
4206: ,p_settlement_amount => l_settlement_amount -- Bug4308188
4207: );
4208: IF l_return_status = FND_API.g_ret_sts_error THEN
4209: RAISE FND_API.g_exc_error;
4210: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4211: RAISE FND_API.g_exc_unexpected_error;
4212: END IF;
4213: END IF;
4206: ,p_settlement_amount => l_settlement_amount -- Bug4308188
4207: );
4208: IF l_return_status = FND_API.g_ret_sts_error THEN
4209: RAISE FND_API.g_exc_error;
4210: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4211: RAISE FND_API.g_exc_unexpected_error;
4212: END IF;
4213: END IF;
4214:
4207: );
4208: IF l_return_status = FND_API.g_ret_sts_error THEN
4209: RAISE FND_API.g_exc_error;
4210: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4211: RAISE FND_API.g_exc_unexpected_error;
4212: END IF;
4213: END IF;
4214:
4215: IF g_debug THEN
4215: IF g_debug THEN
4216: OZF_Utility_PVT.debug_message(l_full_name||': end');
4217: END IF;
4218: EXCEPTION
4219: WHEN FND_API.g_exc_error THEN
4220: x_return_status := FND_API.g_ret_sts_error;
4221:
4222: WHEN FND_API.g_exc_unexpected_error THEN
4223: x_return_status := FND_API.g_ret_sts_unexp_error ;
4216: OZF_Utility_PVT.debug_message(l_full_name||': end');
4217: END IF;
4218: EXCEPTION
4219: WHEN FND_API.g_exc_error THEN
4220: x_return_status := FND_API.g_ret_sts_error;
4221:
4222: WHEN FND_API.g_exc_unexpected_error THEN
4223: x_return_status := FND_API.g_ret_sts_unexp_error ;
4224:
4218: EXCEPTION
4219: WHEN FND_API.g_exc_error THEN
4220: x_return_status := FND_API.g_ret_sts_error;
4221:
4222: WHEN FND_API.g_exc_unexpected_error THEN
4223: x_return_status := FND_API.g_ret_sts_unexp_error ;
4224:
4225: WHEN OTHERS THEN
4226: x_return_status := FND_API.g_ret_sts_unexp_error ;
4219: WHEN FND_API.g_exc_error THEN
4220: x_return_status := FND_API.g_ret_sts_error;
4221:
4222: WHEN FND_API.g_exc_unexpected_error THEN
4223: x_return_status := FND_API.g_ret_sts_unexp_error ;
4224:
4225: WHEN OTHERS THEN
4226: x_return_status := FND_API.g_ret_sts_unexp_error ;
4227: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
4222: WHEN FND_API.g_exc_unexpected_error THEN
4223: x_return_status := FND_API.g_ret_sts_unexp_error ;
4224:
4225: WHEN OTHERS THEN
4226: x_return_status := FND_API.g_ret_sts_unexp_error ;
4227: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
4228: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
4229: END IF;
4230:
4260: IF g_debug THEN
4261: OZF_Utility_PVT.debug_message(l_full_name||': start');
4262: END IF;
4263:
4264: x_return_status := FND_API.g_ret_sts_success;
4265:
4266: ------------------------ start -------------------------
4267: IF p_deduction_type IN ('SOURCE_DED', 'RECEIPT_DED') THEN
4268: -- invoke claim settlement workflow
4277: WHEN OTHERS THEN
4278: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
4279: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
4280: FND_MSG_PUB.Add;
4281: RAISE FND_API.g_exc_unexpected_error;
4282: END;
4283: ELSE
4284: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4285: FND_MESSAGE.set_name('OZF', 'OZF_AR_PAYMENT_NOTMATCH');
4290: IF g_debug THEN
4291: OZF_Utility_PVT.debug_message(l_full_name||': end');
4292: END IF;
4293: EXCEPTION
4294: WHEN FND_API.g_exc_error THEN
4295: x_return_status := FND_API.g_ret_sts_error;
4296:
4297: WHEN FND_API.g_exc_unexpected_error THEN
4298: x_return_status := FND_API.g_ret_sts_unexp_error ;
4291: OZF_Utility_PVT.debug_message(l_full_name||': end');
4292: END IF;
4293: EXCEPTION
4294: WHEN FND_API.g_exc_error THEN
4295: x_return_status := FND_API.g_ret_sts_error;
4296:
4297: WHEN FND_API.g_exc_unexpected_error THEN
4298: x_return_status := FND_API.g_ret_sts_unexp_error ;
4299:
4293: EXCEPTION
4294: WHEN FND_API.g_exc_error THEN
4295: x_return_status := FND_API.g_ret_sts_error;
4296:
4297: WHEN FND_API.g_exc_unexpected_error THEN
4298: x_return_status := FND_API.g_ret_sts_unexp_error ;
4299:
4300: WHEN OTHERS THEN
4301: x_return_status := FND_API.g_ret_sts_unexp_error ;
4294: WHEN FND_API.g_exc_error THEN
4295: x_return_status := FND_API.g_ret_sts_error;
4296:
4297: WHEN FND_API.g_exc_unexpected_error THEN
4298: x_return_status := FND_API.g_ret_sts_unexp_error ;
4299:
4300: WHEN OTHERS THEN
4301: x_return_status := FND_API.g_ret_sts_unexp_error ;
4302: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
4297: WHEN FND_API.g_exc_unexpected_error THEN
4298: x_return_status := FND_API.g_ret_sts_unexp_error ;
4299:
4300: WHEN OTHERS THEN
4301: x_return_status := FND_API.g_ret_sts_unexp_error ;
4302: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
4303: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
4304: END IF;
4305:
4343: IF g_debug THEN
4344: OZF_Utility_PVT.debug_message(l_full_name||': start');
4345: END IF;
4346:
4347: IF FND_API.to_boolean(p_init_msg_list) THEN
4348: FND_MSG_PUB.initialize;
4349: END IF;
4350:
4351: IF NOT FND_API.compatible_api_call(
4347: IF FND_API.to_boolean(p_init_msg_list) THEN
4348: FND_MSG_PUB.initialize;
4349: END IF;
4350:
4351: IF NOT FND_API.compatible_api_call(
4352: l_api_version,
4353: p_api_version,
4354: l_api_name,
4355: g_pkg_name
4353: p_api_version,
4354: l_api_name,
4355: g_pkg_name
4356: ) THEN
4357: RAISE FND_API.g_exc_unexpected_error;
4358: END IF;
4359:
4360: x_return_status := FND_API.g_ret_sts_success;
4361:
4356: ) THEN
4357: RAISE FND_API.g_exc_unexpected_error;
4358: END IF;
4359:
4360: x_return_status := FND_API.g_ret_sts_success;
4361:
4362: ------------------------ start -------------------------
4363: Query_Claim(
4364: p_claim_id => p_claim_id
4364: p_claim_id => p_claim_id
4365: ,x_claim_rec => l_claim_rec
4366: ,x_return_status => l_return_status
4367: );
4368: IF l_return_status = FND_API.g_ret_sts_error THEN
4369: RAISE FND_API.g_exc_error;
4370: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4371: RAISE FND_API.g_exc_unexpected_error;
4372: END IF;
4365: ,x_claim_rec => l_claim_rec
4366: ,x_return_status => l_return_status
4367: );
4368: IF l_return_status = FND_API.g_ret_sts_error THEN
4369: RAISE FND_API.g_exc_error;
4370: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4371: RAISE FND_API.g_exc_unexpected_error;
4372: END IF;
4373:
4366: ,x_return_status => l_return_status
4367: );
4368: IF l_return_status = FND_API.g_ret_sts_error THEN
4369: RAISE FND_API.g_exc_error;
4370: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4371: RAISE FND_API.g_exc_unexpected_error;
4372: END IF;
4373:
4374: IF g_debug THEN
4367: );
4368: IF l_return_status = FND_API.g_ret_sts_error THEN
4369: RAISE FND_API.g_exc_error;
4370: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4371: RAISE FND_API.g_exc_unexpected_error;
4372: END IF;
4373:
4374: IF g_debug THEN
4375: OZF_Utility_PVT.debug_message('Create Payment for ==> '||l_claim_rec.claim_number);
4415: );
4416:
4417: OZF_Utility_PVT.debug_message('After calling the close_claim ==> '||l_return_status);
4418: OZF_Utility_PVT.debug_message('After calling the close_claim ==> '||l_claim_rec.claim_id);
4419: IF l_return_status = FND_API.g_ret_sts_error THEN
4420: RAISE FND_API.g_exc_error;
4421: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4422: RAISE FND_API.g_exc_unexpected_error;
4423: END IF;
4416:
4417: OZF_Utility_PVT.debug_message('After calling the close_claim ==> '||l_return_status);
4418: OZF_Utility_PVT.debug_message('After calling the close_claim ==> '||l_claim_rec.claim_id);
4419: IF l_return_status = FND_API.g_ret_sts_error THEN
4420: RAISE FND_API.g_exc_error;
4421: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4422: RAISE FND_API.g_exc_unexpected_error;
4423: END IF;
4424: OZF_Utility_PVT.debug_message('Before calling the update_payment_detail ==> '||l_claim_rec.claim_id);
4417: OZF_Utility_PVT.debug_message('After calling the close_claim ==> '||l_return_status);
4418: OZF_Utility_PVT.debug_message('After calling the close_claim ==> '||l_claim_rec.claim_id);
4419: IF l_return_status = FND_API.g_ret_sts_error THEN
4420: RAISE FND_API.g_exc_error;
4421: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4422: RAISE FND_API.g_exc_unexpected_error;
4423: END IF;
4424: OZF_Utility_PVT.debug_message('Before calling the update_payment_detail ==> '||l_claim_rec.claim_id);
4425: -- To create the settlement doc.
4418: OZF_Utility_PVT.debug_message('After calling the close_claim ==> '||l_claim_rec.claim_id);
4419: IF l_return_status = FND_API.g_ret_sts_error THEN
4420: RAISE FND_API.g_exc_error;
4421: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4422: RAISE FND_API.g_exc_unexpected_error;
4423: END IF;
4424: OZF_Utility_PVT.debug_message('Before calling the update_payment_detail ==> '||l_claim_rec.claim_id);
4425: -- To create the settlement doc.
4426: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
4424: OZF_Utility_PVT.debug_message('Before calling the update_payment_detail ==> '||l_claim_rec.claim_id);
4425: -- To create the settlement doc.
4426: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
4427: p_api_version => l_api_version
4428: ,p_init_msg_list => FND_API.g_false
4429: ,p_commit => FND_API.g_false
4430: ,p_validation_level => FND_API.g_valid_level_full
4431: ,x_return_status => l_return_status
4432: ,x_msg_data => x_msg_data
4425: -- To create the settlement doc.
4426: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
4427: p_api_version => l_api_version
4428: ,p_init_msg_list => FND_API.g_false
4429: ,p_commit => FND_API.g_false
4430: ,p_validation_level => FND_API.g_valid_level_full
4431: ,x_return_status => l_return_status
4432: ,x_msg_data => x_msg_data
4433: ,x_msg_count => x_msg_count
4426: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
4427: p_api_version => l_api_version
4428: ,p_init_msg_list => FND_API.g_false
4429: ,p_commit => FND_API.g_false
4430: ,p_validation_level => FND_API.g_valid_level_full
4431: ,x_return_status => l_return_status
4432: ,x_msg_data => x_msg_data
4433: ,x_msg_count => x_msg_count
4434: ,p_claim_id => l_claim_rec.claim_id
4439: ,p_adjust_id => NULL
4440: );
4441: OZF_Utility_PVT.debug_message('After calling update_payment_detail ==> '||l_return_status);
4442: OZF_Utility_PVT.debug_message('After calling update_payment_detail ==> '||l_claim_rec.claim_id);
4443: IF l_return_status = FND_API.g_ret_sts_error THEN
4444: RAISE FND_API.g_exc_error;
4445: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4446: RAISE FND_API.g_exc_unexpected_error;
4447: END IF;
4440: );
4441: OZF_Utility_PVT.debug_message('After calling update_payment_detail ==> '||l_return_status);
4442: OZF_Utility_PVT.debug_message('After calling update_payment_detail ==> '||l_claim_rec.claim_id);
4443: IF l_return_status = FND_API.g_ret_sts_error THEN
4444: RAISE FND_API.g_exc_error;
4445: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4446: RAISE FND_API.g_exc_unexpected_error;
4447: END IF;
4448: END IF;
4441: OZF_Utility_PVT.debug_message('After calling update_payment_detail ==> '||l_return_status);
4442: OZF_Utility_PVT.debug_message('After calling update_payment_detail ==> '||l_claim_rec.claim_id);
4443: IF l_return_status = FND_API.g_ret_sts_error THEN
4444: RAISE FND_API.g_exc_error;
4445: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4446: RAISE FND_API.g_exc_unexpected_error;
4447: END IF;
4448: END IF;
4449: END IF;
4442: OZF_Utility_PVT.debug_message('After calling update_payment_detail ==> '||l_claim_rec.claim_id);
4443: IF l_return_status = FND_API.g_ret_sts_error THEN
4444: RAISE FND_API.g_exc_error;
4445: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4446: RAISE FND_API.g_exc_unexpected_error;
4447: END IF;
4448: END IF;
4449: END IF;
4450: --R12.1 Enhancement end
4455: ,x_return_status => l_return_status
4456: ,x_msg_data => x_msg_data
4457: ,x_msg_count => x_msg_count
4458: );
4459: IF l_return_status = FND_API.g_ret_sts_error THEN
4460: RAISE FND_API.g_exc_error;
4461: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4462: RAISE FND_API.g_exc_unexpected_error;
4463: END IF;
4456: ,x_msg_data => x_msg_data
4457: ,x_msg_count => x_msg_count
4458: );
4459: IF l_return_status = FND_API.g_ret_sts_error THEN
4460: RAISE FND_API.g_exc_error;
4461: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4462: RAISE FND_API.g_exc_unexpected_error;
4463: END IF;
4464: --R12.1 Enhancement : Check for ACCOUNTING_ONLY
4457: ,x_msg_count => x_msg_count
4458: );
4459: IF l_return_status = FND_API.g_ret_sts_error THEN
4460: RAISE FND_API.g_exc_error;
4461: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4462: RAISE FND_API.g_exc_unexpected_error;
4463: END IF;
4464: --R12.1 Enhancement : Check for ACCOUNTING_ONLY
4465: ELSIF l_claim_rec.payment_method <> 'ACCOUNTING_ONLY' THEN
4458: );
4459: IF l_return_status = FND_API.g_ret_sts_error THEN
4460: RAISE FND_API.g_exc_error;
4461: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4462: RAISE FND_API.g_exc_unexpected_error;
4463: END IF;
4464: --R12.1 Enhancement : Check for ACCOUNTING_ONLY
4465: ELSIF l_claim_rec.payment_method <> 'ACCOUNTING_ONLY' THEN
4466: IF l_claim_rec.payment_method = 'REG_CREDIT_MEMO' THEN
4470: ,x_return_status => l_return_status
4471: ,x_msg_data => x_msg_data
4472: ,x_msg_count => x_msg_count
4473: );
4474: IF l_return_status = FND_API.g_ret_sts_error THEN
4475: RAISE FND_API.g_exc_error;
4476: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4477: RAISE FND_API.g_exc_unexpected_error;
4478: END IF;
4471: ,x_msg_data => x_msg_data
4472: ,x_msg_count => x_msg_count
4473: );
4474: IF l_return_status = FND_API.g_ret_sts_error THEN
4475: RAISE FND_API.g_exc_error;
4476: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4477: RAISE FND_API.g_exc_unexpected_error;
4478: END IF;
4479:
4472: ,x_msg_count => x_msg_count
4473: );
4474: IF l_return_status = FND_API.g_ret_sts_error THEN
4475: RAISE FND_API.g_exc_error;
4476: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4477: RAISE FND_API.g_exc_unexpected_error;
4478: END IF;
4479:
4480: ELSIF l_claim_rec.payment_method in ( 'CREDIT_MEMO', 'PREV_OPEN_CREDIT') THEN
4473: );
4474: IF l_return_status = FND_API.g_ret_sts_error THEN
4475: RAISE FND_API.g_exc_error;
4476: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4477: RAISE FND_API.g_exc_unexpected_error;
4478: END IF;
4479:
4480: ELSIF l_claim_rec.payment_method in ( 'CREDIT_MEMO', 'PREV_OPEN_CREDIT') THEN
4481: Pay_by_Credit_Memo(
4486: ,x_return_status => l_return_status
4487: ,x_msg_data => x_msg_data
4488: ,x_msg_count => x_msg_count
4489: );
4490: IF l_return_status = FND_API.g_ret_sts_error THEN
4491: RAISE FND_API.g_exc_error;
4492: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4493: RAISE FND_API.g_exc_unexpected_error;
4494: END IF;
4487: ,x_msg_data => x_msg_data
4488: ,x_msg_count => x_msg_count
4489: );
4490: IF l_return_status = FND_API.g_ret_sts_error THEN
4491: RAISE FND_API.g_exc_error;
4492: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4493: RAISE FND_API.g_exc_unexpected_error;
4494: END IF;
4495:
4488: ,x_msg_count => x_msg_count
4489: );
4490: IF l_return_status = FND_API.g_ret_sts_error THEN
4491: RAISE FND_API.g_exc_error;
4492: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4493: RAISE FND_API.g_exc_unexpected_error;
4494: END IF;
4495:
4496: ELSIF l_claim_rec.payment_method = 'ON_ACCT_CREDIT' THEN
4489: );
4490: IF l_return_status = FND_API.g_ret_sts_error THEN
4491: RAISE FND_API.g_exc_error;
4492: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4493: RAISE FND_API.g_exc_unexpected_error;
4494: END IF;
4495:
4496: ELSIF l_claim_rec.payment_method = 'ON_ACCT_CREDIT' THEN
4497: Pay_by_On_Account_Credit(
4500: ,x_return_status => l_return_status
4501: ,x_msg_data => x_msg_data
4502: ,x_msg_count => x_msg_count
4503: );
4504: IF l_return_status = FND_API.g_ret_sts_error THEN
4505: RAISE FND_API.g_exc_error;
4506: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4507: RAISE FND_API.g_exc_unexpected_error;
4508: END IF;
4501: ,x_msg_data => x_msg_data
4502: ,x_msg_count => x_msg_count
4503: );
4504: IF l_return_status = FND_API.g_ret_sts_error THEN
4505: RAISE FND_API.g_exc_error;
4506: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4507: RAISE FND_API.g_exc_unexpected_error;
4508: END IF;
4509:
4502: ,x_msg_count => x_msg_count
4503: );
4504: IF l_return_status = FND_API.g_ret_sts_error THEN
4505: RAISE FND_API.g_exc_error;
4506: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4507: RAISE FND_API.g_exc_unexpected_error;
4508: END IF;
4509:
4510: ELSIF l_claim_rec.payment_method = 'CHARGEBACK' THEN
4503: );
4504: IF l_return_status = FND_API.g_ret_sts_error THEN
4505: RAISE FND_API.g_exc_error;
4506: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4507: RAISE FND_API.g_exc_unexpected_error;
4508: END IF;
4509:
4510: ELSIF l_claim_rec.payment_method = 'CHARGEBACK' THEN
4511: Pay_by_Chargeback(
4514: ,x_return_status => l_return_status
4515: ,x_msg_data => x_msg_data
4516: ,x_msg_count => x_msg_count
4517: );
4518: IF l_return_status = FND_API.g_ret_sts_error THEN
4519: RAISE FND_API.g_exc_error;
4520: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4521: RAISE FND_API.g_exc_unexpected_error;
4522: END IF;
4515: ,x_msg_data => x_msg_data
4516: ,x_msg_count => x_msg_count
4517: );
4518: IF l_return_status = FND_API.g_ret_sts_error THEN
4519: RAISE FND_API.g_exc_error;
4520: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4521: RAISE FND_API.g_exc_unexpected_error;
4522: END IF;
4523:
4516: ,x_msg_count => x_msg_count
4517: );
4518: IF l_return_status = FND_API.g_ret_sts_error THEN
4519: RAISE FND_API.g_exc_error;
4520: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4521: RAISE FND_API.g_exc_unexpected_error;
4522: END IF;
4523:
4524: ELSIF (l_claim_rec.payment_method = 'WRITE_OFF')
4517: );
4518: IF l_return_status = FND_API.g_ret_sts_error THEN
4519: RAISE FND_API.g_exc_error;
4520: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4521: RAISE FND_API.g_exc_unexpected_error;
4522: END IF;
4523:
4524: ELSIF (l_claim_rec.payment_method = 'WRITE_OFF')
4525: THEN
4529: ,x_return_status => l_return_status
4530: ,x_msg_data => x_msg_data
4531: ,x_msg_count => x_msg_count
4532: );
4533: IF l_return_status = FND_API.g_ret_sts_error THEN
4534: RAISE FND_API.g_exc_error;
4535: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4536: RAISE FND_API.g_exc_unexpected_error;
4537: END IF;
4530: ,x_msg_data => x_msg_data
4531: ,x_msg_count => x_msg_count
4532: );
4533: IF l_return_status = FND_API.g_ret_sts_error THEN
4534: RAISE FND_API.g_exc_error;
4535: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4536: RAISE FND_API.g_exc_unexpected_error;
4537: END IF;
4538:
4531: ,x_msg_count => x_msg_count
4532: );
4533: IF l_return_status = FND_API.g_ret_sts_error THEN
4534: RAISE FND_API.g_exc_error;
4535: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4536: RAISE FND_API.g_exc_unexpected_error;
4537: END IF;
4538:
4539: ELSIF l_claim_rec.payment_method IN ( 'DEBIT_MEMO', 'PREV_OPEN_DEBIT') THEN
4532: );
4533: IF l_return_status = FND_API.g_ret_sts_error THEN
4534: RAISE FND_API.g_exc_error;
4535: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4536: RAISE FND_API.g_exc_unexpected_error;
4537: END IF;
4538:
4539: ELSIF l_claim_rec.payment_method IN ( 'DEBIT_MEMO', 'PREV_OPEN_DEBIT') THEN
4540: Pay_by_Debit_Memo(
4545: ,x_return_status => l_return_status
4546: ,x_msg_data => x_msg_data
4547: ,x_msg_count => x_msg_count
4548: );
4549: IF l_return_status = FND_API.g_ret_sts_error THEN
4550: RAISE FND_API.g_exc_error;
4551: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4552: RAISE FND_API.g_exc_unexpected_error;
4553: END IF;
4546: ,x_msg_data => x_msg_data
4547: ,x_msg_count => x_msg_count
4548: );
4549: IF l_return_status = FND_API.g_ret_sts_error THEN
4550: RAISE FND_API.g_exc_error;
4551: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4552: RAISE FND_API.g_exc_unexpected_error;
4553: END IF;
4554:
4547: ,x_msg_count => x_msg_count
4548: );
4549: IF l_return_status = FND_API.g_ret_sts_error THEN
4550: RAISE FND_API.g_exc_error;
4551: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4552: RAISE FND_API.g_exc_unexpected_error;
4553: END IF;
4554:
4555: ELSIF l_claim_rec.payment_method = 'CONTRA_CHARGE' THEN
4548: );
4549: IF l_return_status = FND_API.g_ret_sts_error THEN
4550: RAISE FND_API.g_exc_error;
4551: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4552: RAISE FND_API.g_exc_unexpected_error;
4553: END IF;
4554:
4555: ELSIF l_claim_rec.payment_method = 'CONTRA_CHARGE' THEN
4556: Pay_by_Contra_Charge(
4559: ,x_return_status => l_return_status
4560: ,x_msg_data => x_msg_data
4561: ,x_msg_count => x_msg_count
4562: );
4563: IF l_return_status = FND_API.g_ret_sts_error THEN
4564: RAISE FND_API.g_exc_error;
4565: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4566: RAISE FND_API.g_exc_unexpected_error;
4567: END IF;
4560: ,x_msg_data => x_msg_data
4561: ,x_msg_count => x_msg_count
4562: );
4563: IF l_return_status = FND_API.g_ret_sts_error THEN
4564: RAISE FND_API.g_exc_error;
4565: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4566: RAISE FND_API.g_exc_unexpected_error;
4567: END IF;
4568:
4561: ,x_msg_count => x_msg_count
4562: );
4563: IF l_return_status = FND_API.g_ret_sts_error THEN
4564: RAISE FND_API.g_exc_error;
4565: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4566: RAISE FND_API.g_exc_unexpected_error;
4567: END IF;
4568:
4569: ELSE
4562: );
4563: IF l_return_status = FND_API.g_ret_sts_error THEN
4564: RAISE FND_API.g_exc_error;
4565: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4566: RAISE FND_API.g_exc_unexpected_error;
4567: END IF;
4568:
4569: ELSE
4570: OZF_Utility_PVT.debug_message('KP1 Test: end');
4572: FND_MESSAGE.set_name('OZF', 'OZF_DED_PAYMETHOD_ERR');
4573: FND_MESSAGE.set_token('PAYMENT_METHOD', l_claim_rec.payment_method);
4574: FND_MSG_PUB.add;
4575: END IF;
4576: RAISE FND_API.g_exc_error;
4577: END IF;
4578:
4579: END IF;
4580:
4579: END IF;
4580:
4581: ------------------------ finish ------------------------
4582: FND_MSG_PUB.count_and_get(
4583: p_encoded => FND_API.g_false,
4584: p_count => x_msg_count,
4585: p_data => x_msg_data
4586: );
4587:
4589: OZF_Utility_PVT.debug_message(l_full_name ||': end');
4590: END IF;
4591:
4592: EXCEPTION
4593: WHEN FND_API.g_exc_error THEN
4594: ROLLBACK TO Create_AR_Payment;
4595: x_return_status := FND_API.g_ret_sts_error;
4596: FND_MSG_PUB.count_and_get (
4597: p_encoded => FND_API.g_false
4591:
4592: EXCEPTION
4593: WHEN FND_API.g_exc_error THEN
4594: ROLLBACK TO Create_AR_Payment;
4595: x_return_status := FND_API.g_ret_sts_error;
4596: FND_MSG_PUB.count_and_get (
4597: p_encoded => FND_API.g_false
4598: ,p_count => x_msg_count
4599: ,p_data => x_msg_data
4593: WHEN FND_API.g_exc_error THEN
4594: ROLLBACK TO Create_AR_Payment;
4595: x_return_status := FND_API.g_ret_sts_error;
4596: FND_MSG_PUB.count_and_get (
4597: p_encoded => FND_API.g_false
4598: ,p_count => x_msg_count
4599: ,p_data => x_msg_data
4600: );
4601:
4598: ,p_count => x_msg_count
4599: ,p_data => x_msg_data
4600: );
4601:
4602: WHEN FND_API.g_exc_unexpected_error THEN
4603: ROLLBACK TO Create_AR_Payment;
4604: x_return_status := FND_API.g_ret_sts_unexp_error ;
4605: FND_MSG_PUB.count_and_get (
4606: p_encoded => FND_API.g_false
4600: );
4601:
4602: WHEN FND_API.g_exc_unexpected_error THEN
4603: ROLLBACK TO Create_AR_Payment;
4604: x_return_status := FND_API.g_ret_sts_unexp_error ;
4605: FND_MSG_PUB.count_and_get (
4606: p_encoded => FND_API.g_false
4607: ,p_count => x_msg_count
4608: ,p_data => x_msg_data
4602: WHEN FND_API.g_exc_unexpected_error THEN
4603: ROLLBACK TO Create_AR_Payment;
4604: x_return_status := FND_API.g_ret_sts_unexp_error ;
4605: FND_MSG_PUB.count_and_get (
4606: p_encoded => FND_API.g_false
4607: ,p_count => x_msg_count
4608: ,p_data => x_msg_data
4609: );
4610:
4609: );
4610:
4611: WHEN OTHERS THEN
4612: ROLLBACK TO Create_AR_Payment;
4613: x_return_status := FND_API.g_ret_sts_unexp_error ;
4614: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
4615: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
4616: END IF;
4617: FND_MSG_PUB.count_and_get(
4614: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
4615: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
4616: END IF;
4617: FND_MSG_PUB.count_and_get(
4618: p_encoded => FND_API.g_false
4619: ,p_count => x_msg_count
4620: ,p_data => x_msg_data
4621: );
4622:
4649: -------------------- initialize -----------------------
4650: IF g_debug THEN
4651: OZF_Utility_PVT.debug_message(l_full_name||': start');
4652: END IF;
4653: x_return_status := FND_API.g_ret_sts_success;
4654:
4655: /*------------------------------------------------------------*
4656: | Update Claim Status to CLOSED.
4657: *------------------------------------------------------------*/
4661: ,x_return_status => l_return_status
4662: ,x_msg_data => x_msg_data
4663: ,x_msg_count => x_msg_count
4664: );
4665: IF l_return_status = FND_API.g_ret_sts_error THEN
4666: RAISE FND_API.g_exc_error;
4667: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4668: RAISE FND_API.g_exc_unexpected_error;
4669: END IF;
4662: ,x_msg_data => x_msg_data
4663: ,x_msg_count => x_msg_count
4664: );
4665: IF l_return_status = FND_API.g_ret_sts_error THEN
4666: RAISE FND_API.g_exc_error;
4667: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4668: RAISE FND_API.g_exc_unexpected_error;
4669: END IF;
4670:
4663: ,x_msg_count => x_msg_count
4664: );
4665: IF l_return_status = FND_API.g_ret_sts_error THEN
4666: RAISE FND_API.g_exc_error;
4667: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4668: RAISE FND_API.g_exc_unexpected_error;
4669: END IF;
4670:
4671:
4664: );
4665: IF l_return_status = FND_API.g_ret_sts_error THEN
4666: RAISE FND_API.g_exc_error;
4667: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4668: RAISE FND_API.g_exc_unexpected_error;
4669: END IF;
4670:
4671:
4672: -- Update amount in dispute
4676: ,x_return_status => l_return_status
4677: ,x_msg_data => x_msg_data
4678: ,x_msg_count => x_msg_count
4679: );
4680: IF l_return_status = FND_API.g_ret_sts_error THEN
4681: RAISE FND_API.g_exc_error;
4682: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4683: RAISE FND_API.g_exc_unexpected_error;
4684: END IF;
4677: ,x_msg_data => x_msg_data
4678: ,x_msg_count => x_msg_count
4679: );
4680: IF l_return_status = FND_API.g_ret_sts_error THEN
4681: RAISE FND_API.g_exc_error;
4682: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4683: RAISE FND_API.g_exc_unexpected_error;
4684: END IF;
4685:
4678: ,x_msg_count => x_msg_count
4679: );
4680: IF l_return_status = FND_API.g_ret_sts_error THEN
4681: RAISE FND_API.g_exc_error;
4682: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4683: RAISE FND_API.g_exc_unexpected_error;
4684: END IF;
4685:
4686: IF g_debug THEN
4679: );
4680: IF l_return_status = FND_API.g_ret_sts_error THEN
4681: RAISE FND_API.g_exc_error;
4682: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4683: RAISE FND_API.g_exc_unexpected_error;
4684: END IF;
4685:
4686: IF g_debug THEN
4687: OZF_Utility_PVT.debug_message(l_full_name||': end');
4687: OZF_Utility_PVT.debug_message(l_full_name||': end');
4688: END IF;
4689:
4690: EXCEPTION
4691: WHEN FND_API.g_exc_error THEN
4692: x_return_status := FND_API.g_ret_sts_error;
4693:
4694: WHEN FND_API.g_exc_unexpected_error THEN
4695: x_return_status := FND_API.g_ret_sts_unexp_error ;
4688: END IF;
4689:
4690: EXCEPTION
4691: WHEN FND_API.g_exc_error THEN
4692: x_return_status := FND_API.g_ret_sts_error;
4693:
4694: WHEN FND_API.g_exc_unexpected_error THEN
4695: x_return_status := FND_API.g_ret_sts_unexp_error ;
4696:
4690: EXCEPTION
4691: WHEN FND_API.g_exc_error THEN
4692: x_return_status := FND_API.g_ret_sts_error;
4693:
4694: WHEN FND_API.g_exc_unexpected_error THEN
4695: x_return_status := FND_API.g_ret_sts_unexp_error ;
4696:
4697: WHEN OTHERS THEN
4698: x_return_status := FND_API.g_ret_sts_unexp_error ;
4691: WHEN FND_API.g_exc_error THEN
4692: x_return_status := FND_API.g_ret_sts_error;
4693:
4694: WHEN FND_API.g_exc_unexpected_error THEN
4695: x_return_status := FND_API.g_ret_sts_unexp_error ;
4696:
4697: WHEN OTHERS THEN
4698: x_return_status := FND_API.g_ret_sts_unexp_error ;
4699: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
4694: WHEN FND_API.g_exc_unexpected_error THEN
4695: x_return_status := FND_API.g_ret_sts_unexp_error ;
4696:
4697: WHEN OTHERS THEN
4698: x_return_status := FND_API.g_ret_sts_unexp_error ;
4699: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
4700: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
4701: END IF;
4702: