[Home] [Help]
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:
512: IF g_debug THEN
513: OZF_Utility_PVT.debug_message(l_full_name||': start');
514: END IF;
515:
516: x_return_status := FND_API.g_ret_sts_success;
517:
518: --Bug:2781186 Get more claim details
519: IF p_claim_rec.claim_id = p_claim_rec.root_claim_id THEN
520: OPEN csr_get_more_root_clm_dtls(p_claim_rec.claim_id);
557: ------------------------ start -------------------------
558: AR_RECEIPT_API_COVER.Apply_on_account(
559: -- Standard API parameters
560: p_api_version => l_api_version,
561: p_init_msg_list => FND_API.g_false,
562: p_commit => FND_API.g_false,
563: p_validation_level => FND_API.g_valid_level_full,
564: x_return_status => l_return_status,
565: x_msg_count => x_msg_count,
558: AR_RECEIPT_API_COVER.Apply_on_account(
559: -- Standard API parameters
560: p_api_version => l_api_version,
561: p_init_msg_list => FND_API.g_false,
562: p_commit => FND_API.g_false,
563: p_validation_level => FND_API.g_valid_level_full,
564: x_return_status => l_return_status,
565: x_msg_count => x_msg_count,
566: x_msg_data => x_msg_data,
559: -- Standard API parameters
560: p_api_version => l_api_version,
561: p_init_msg_list => FND_API.g_false,
562: p_commit => FND_API.g_false,
563: p_validation_level => FND_API.g_valid_level_full,
564: x_return_status => l_return_status,
565: x_msg_count => x_msg_count,
566: x_msg_data => x_msg_data,
567: -- Receipt application parameters.
581: p_application_ref_num => l_application_ref_num,
582: p_secondary_application_ref_id => l_secondary_appl_ref_id,
583: p_customer_reference => l_customer_reference --11.5.10 enhancements. TM should pass.
584: );
585: IF l_return_status = FND_API.g_ret_sts_error THEN
586: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
587: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_REC_APPACC_ERR');
588: FND_MSG_PUB.add;
589: END IF;
586: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
587: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_REC_APPACC_ERR');
588: FND_MSG_PUB.add;
589: END IF;
590: RAISE FND_API.g_exc_error;
591: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
592: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
593: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_REC_APPACC_UERR');
594: FND_MSG_PUB.add;
587: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_REC_APPACC_ERR');
588: FND_MSG_PUB.add;
589: END IF;
590: RAISE FND_API.g_exc_error;
591: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
592: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
593: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_REC_APPACC_UERR');
594: FND_MSG_PUB.add;
595: END IF;
592: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
593: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_REC_APPACC_UERR');
594: FND_MSG_PUB.add;
595: END IF;
596: RAISE FND_API.g_exc_unexpected_error;
597: END IF;
598:
599: IF g_debug THEN
600: OZF_Utility_PVT.debug_message(l_full_name||': end');
599: IF g_debug THEN
600: OZF_Utility_PVT.debug_message(l_full_name||': end');
601: END IF;
602: EXCEPTION
603: WHEN FND_API.g_exc_error THEN
604: x_return_status := FND_API.g_ret_sts_error;
605:
606: WHEN FND_API.g_exc_unexpected_error THEN
607: x_return_status := FND_API.g_ret_sts_unexp_error ;
600: OZF_Utility_PVT.debug_message(l_full_name||': end');
601: END IF;
602: EXCEPTION
603: WHEN FND_API.g_exc_error THEN
604: x_return_status := FND_API.g_ret_sts_error;
605:
606: WHEN FND_API.g_exc_unexpected_error THEN
607: x_return_status := FND_API.g_ret_sts_unexp_error ;
608:
602: EXCEPTION
603: WHEN FND_API.g_exc_error THEN
604: x_return_status := FND_API.g_ret_sts_error;
605:
606: WHEN FND_API.g_exc_unexpected_error THEN
607: x_return_status := FND_API.g_ret_sts_unexp_error ;
608:
609: WHEN OTHERS THEN
610: x_return_status := FND_API.g_ret_sts_unexp_error ;
603: WHEN FND_API.g_exc_error THEN
604: x_return_status := FND_API.g_ret_sts_error;
605:
606: WHEN FND_API.g_exc_unexpected_error THEN
607: x_return_status := FND_API.g_ret_sts_unexp_error ;
608:
609: WHEN OTHERS THEN
610: x_return_status := FND_API.g_ret_sts_unexp_error ;
611: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
606: WHEN FND_API.g_exc_unexpected_error THEN
607: x_return_status := FND_API.g_ret_sts_unexp_error ;
608:
609: WHEN OTHERS THEN
610: x_return_status := FND_API.g_ret_sts_unexp_error ;
611: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
612: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
613: END IF;
614:
650: IF g_debug THEN
651: OZF_Utility_PVT.debug_message(l_full_name||': start');
652: END IF;
653:
654: x_return_status := FND_API.g_ret_sts_success;
655:
656: ------------------------ start -------------------------
657: OPEN csr_payment_schedule(p_customer_trx_id);
658: FETCH csr_payment_schedule INTO l_payment_schedule_id;
660:
661: AR_RECEIPT_API_COVER.Unapply(
662: -- Standard API parameters
663: p_api_version => l_api_version,
664: p_init_msg_list => FND_API.g_false,
665: p_commit => FND_API.g_false,
666: p_validation_level => FND_API.g_valid_level_full,
667: x_return_status => l_return_status,
668: x_msg_count => x_msg_count,
661: AR_RECEIPT_API_COVER.Unapply(
662: -- Standard API parameters
663: p_api_version => l_api_version,
664: p_init_msg_list => FND_API.g_false,
665: p_commit => FND_API.g_false,
666: p_validation_level => FND_API.g_valid_level_full,
667: x_return_status => l_return_status,
668: x_msg_count => x_msg_count,
669: x_msg_data => x_msg_data,
662: -- Standard API parameters
663: p_api_version => l_api_version,
664: p_init_msg_list => FND_API.g_false,
665: p_commit => FND_API.g_false,
666: p_validation_level => FND_API.g_valid_level_full,
667: x_return_status => l_return_status,
668: x_msg_count => x_msg_count,
669: x_msg_data => x_msg_data,
670: -- Receipt Info. parameters
678: p_reversal_gl_date => NULL,
679: p_called_from => NULL,
680: p_cancel_claim_flag => 'N'
681: );
682: IF l_return_status = FND_API.g_ret_sts_error THEN
683: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
684: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_REC_UNAPP_ERR');
685: FND_MSG_PUB.add;
686: END IF;
683: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
684: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_REC_UNAPP_ERR');
685: FND_MSG_PUB.add;
686: END IF;
687: RAISE FND_API.g_exc_error;
688: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
689: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
690: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_REC_UNAPP_UERR');
691: FND_MSG_PUB.add;
684: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_REC_UNAPP_ERR');
685: FND_MSG_PUB.add;
686: END IF;
687: RAISE FND_API.g_exc_error;
688: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
689: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
690: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_REC_UNAPP_UERR');
691: FND_MSG_PUB.add;
692: END IF;
689: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
690: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_REC_UNAPP_UERR');
691: FND_MSG_PUB.add;
692: END IF;
693: RAISE FND_API.g_exc_unexpected_error;
694: END IF;
695:
696: IF g_debug THEN
697: OZF_Utility_PVT.debug_message(l_full_name||': end');
696: IF g_debug THEN
697: OZF_Utility_PVT.debug_message(l_full_name||': end');
698: END IF;
699: EXCEPTION
700: WHEN FND_API.g_exc_error THEN
701: x_return_status := FND_API.g_ret_sts_error;
702:
703: WHEN FND_API.g_exc_unexpected_error THEN
704: x_return_status := FND_API.g_ret_sts_unexp_error ;
697: OZF_Utility_PVT.debug_message(l_full_name||': end');
698: END IF;
699: EXCEPTION
700: WHEN FND_API.g_exc_error THEN
701: x_return_status := FND_API.g_ret_sts_error;
702:
703: WHEN FND_API.g_exc_unexpected_error THEN
704: x_return_status := FND_API.g_ret_sts_unexp_error ;
705:
699: EXCEPTION
700: WHEN FND_API.g_exc_error THEN
701: x_return_status := FND_API.g_ret_sts_error;
702:
703: WHEN FND_API.g_exc_unexpected_error THEN
704: x_return_status := FND_API.g_ret_sts_unexp_error ;
705:
706: WHEN OTHERS THEN
707: x_return_status := FND_API.g_ret_sts_unexp_error ;
700: WHEN FND_API.g_exc_error THEN
701: x_return_status := FND_API.g_ret_sts_error;
702:
703: WHEN FND_API.g_exc_unexpected_error THEN
704: x_return_status := FND_API.g_ret_sts_unexp_error ;
705:
706: WHEN OTHERS THEN
707: x_return_status := FND_API.g_ret_sts_unexp_error ;
708: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
703: WHEN FND_API.g_exc_unexpected_error THEN
704: x_return_status := FND_API.g_ret_sts_unexp_error ;
705:
706: WHEN OTHERS THEN
707: x_return_status := FND_API.g_ret_sts_unexp_error ;
708: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
709: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
710: END IF;
711:
825: IF g_debug THEN
826: OZF_Utility_PVT.debug_message(l_full_name||': start');
827: END IF;
828:
829: x_return_status := FND_API.g_ret_sts_success;
830:
831: ------------------------ start -------------------------
832: -- CM/DM open balance checking
833: OPEN csr_trx_balance(p_customer_trx_id);
839: FND_MESSAGE.set_name('OZF', 'OZF_SETL_TRX_BAL_ERR');
840: FND_MESSAGE.set_token('APPLY_AMT', p_new_applied_amount);
841: FND_MSG_PUB.add;
842: END IF;
843: RAISE FND_API.G_EXC_ERROR;
844: END IF;
845:
846: OPEN csr_payment_schedule(p_customer_trx_id);
847: FETCH csr_payment_schedule INTO l_payment_schedule_id;
936:
937: AR_RECEIPT_API_COVER.Apply(
938: -- Standard API parameters.
939: p_api_version => l_api_version,
940: p_init_msg_list => FND_API.g_false,
941: p_commit => FND_API.g_false,
942: p_validation_level => FND_API.g_valid_level_full,
943: x_return_status => l_return_status,
944: x_msg_count => x_msg_count,
937: AR_RECEIPT_API_COVER.Apply(
938: -- Standard API parameters.
939: p_api_version => l_api_version,
940: p_init_msg_list => FND_API.g_false,
941: p_commit => FND_API.g_false,
942: p_validation_level => FND_API.g_valid_level_full,
943: x_return_status => l_return_status,
944: x_msg_count => x_msg_count,
945: x_msg_data => x_msg_data,
938: -- Standard API parameters.
939: p_api_version => l_api_version,
940: p_init_msg_list => FND_API.g_false,
941: p_commit => FND_API.g_false,
942: p_validation_level => FND_API.g_valid_level_full,
943: x_return_status => l_return_status,
944: x_msg_count => x_msg_count,
945: x_msg_data => x_msg_data,
946: -- Receipt application parameters.
982: p_application_ref_reason => p_application_ref_reason,
983: p_customer_reference => p_customer_reference,
984: p_called_from => 'OZFAPI' --Fix for bug 13560662
985: );
986: IF l_return_status = FND_API.g_ret_sts_error THEN
987: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
988: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_REC_APP_ERR');
989: FND_MSG_PUB.add;
990: END IF;
987: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
988: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_REC_APP_ERR');
989: FND_MSG_PUB.add;
990: END IF;
991: RAISE FND_API.g_exc_error;
992: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
993: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
994: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_REC_APP_UERR');
995: FND_MSG_PUB.add;
988: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_REC_APP_ERR');
989: FND_MSG_PUB.add;
990: END IF;
991: RAISE FND_API.g_exc_error;
992: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
993: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
994: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_REC_APP_UERR');
995: FND_MSG_PUB.add;
996: END IF;
993: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
994: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_REC_APP_UERR');
995: FND_MSG_PUB.add;
996: END IF;
997: RAISE FND_API.g_exc_unexpected_error;
998: END IF;
999:
1000: IF g_debug THEN
1001: OZF_Utility_PVT.debug_message(l_full_name||': end');
1000: IF g_debug THEN
1001: OZF_Utility_PVT.debug_message(l_full_name||': end');
1002: END IF;
1003: EXCEPTION
1004: WHEN FND_API.g_exc_error THEN
1005: x_return_status := FND_API.g_ret_sts_error;
1006:
1007: WHEN FND_API.g_exc_unexpected_error THEN
1008: x_return_status := FND_API.g_ret_sts_unexp_error ;
1001: OZF_Utility_PVT.debug_message(l_full_name||': end');
1002: END IF;
1003: EXCEPTION
1004: WHEN FND_API.g_exc_error THEN
1005: x_return_status := FND_API.g_ret_sts_error;
1006:
1007: WHEN FND_API.g_exc_unexpected_error THEN
1008: x_return_status := FND_API.g_ret_sts_unexp_error ;
1009:
1003: EXCEPTION
1004: WHEN FND_API.g_exc_error THEN
1005: x_return_status := FND_API.g_ret_sts_error;
1006:
1007: WHEN FND_API.g_exc_unexpected_error THEN
1008: x_return_status := FND_API.g_ret_sts_unexp_error ;
1009:
1010: WHEN OTHERS THEN
1011: x_return_status := FND_API.g_ret_sts_unexp_error ;
1004: WHEN FND_API.g_exc_error THEN
1005: x_return_status := FND_API.g_ret_sts_error;
1006:
1007: WHEN FND_API.g_exc_unexpected_error THEN
1008: x_return_status := FND_API.g_ret_sts_unexp_error ;
1009:
1010: WHEN OTHERS THEN
1011: x_return_status := FND_API.g_ret_sts_unexp_error ;
1012: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1007: WHEN FND_API.g_exc_unexpected_error THEN
1008: x_return_status := FND_API.g_ret_sts_unexp_error ;
1009:
1010: WHEN OTHERS THEN
1011: x_return_status := FND_API.g_ret_sts_unexp_error ;
1012: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1013: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1014: END IF;
1015:
1050: IF g_debug THEN
1051: OZF_Utility_PVT.debug_message(l_full_name||': start');
1052: END IF;
1053:
1054: x_return_status := FND_API.g_ret_sts_success;
1055:
1056: ------------------------ start -------------------------
1057: IF p_claim_rec.claim_id = p_claim_rec.root_claim_id THEN
1058: l_root_claim_number := p_claim_rec.claim_number;
1065: ARP_DEDUCTION_COVER.update_amount_in_dispute(
1066: p_customer_trx_id => p_claim_rec.source_object_id,
1067: p_claim_number => l_root_claim_number,
1068: p_amount => p_dispute_amount,
1069: p_init_msg_list => FND_API.g_false,
1070: x_return_status => l_return_status,
1071: x_msg_count => x_msg_count,
1072: x_msg_data => x_msg_data
1073: );
1070: x_return_status => l_return_status,
1071: x_msg_count => x_msg_count,
1072: x_msg_data => x_msg_data
1073: );
1074: IF l_return_status = FND_API.g_ret_sts_error THEN
1075: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1076: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_UPD_DISPUTE_ERR');
1077: FND_MSG_PUB.add;
1078: END IF;
1075: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1076: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_UPD_DISPUTE_ERR');
1077: FND_MSG_PUB.add;
1078: END IF;
1079: RAISE FND_API.g_exc_error;
1080: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1081: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1082: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_UPD_DISPUTE_UERR');
1083: FND_MSG_PUB.add;
1076: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_UPD_DISPUTE_ERR');
1077: FND_MSG_PUB.add;
1078: END IF;
1079: RAISE FND_API.g_exc_error;
1080: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1081: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1082: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_UPD_DISPUTE_UERR');
1083: FND_MSG_PUB.add;
1084: END IF;
1081: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1082: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_UPD_DISPUTE_UERR');
1083: FND_MSG_PUB.add;
1084: END IF;
1085: RAISE FND_API.g_exc_unexpected_error;
1086: END IF;
1087:
1088: IF g_debug THEN
1089: OZF_Utility_PVT.debug_message(l_full_name||': end');
1088: IF g_debug THEN
1089: OZF_Utility_PVT.debug_message(l_full_name||': end');
1090: END IF;
1091: EXCEPTION
1092: WHEN FND_API.g_exc_error THEN
1093: x_return_status := FND_API.g_ret_sts_error;
1094:
1095: WHEN FND_API.g_exc_unexpected_error THEN
1096: x_return_status := FND_API.g_ret_sts_unexp_error ;
1089: OZF_Utility_PVT.debug_message(l_full_name||': end');
1090: END IF;
1091: EXCEPTION
1092: WHEN FND_API.g_exc_error THEN
1093: x_return_status := FND_API.g_ret_sts_error;
1094:
1095: WHEN FND_API.g_exc_unexpected_error THEN
1096: x_return_status := FND_API.g_ret_sts_unexp_error ;
1097:
1091: EXCEPTION
1092: WHEN FND_API.g_exc_error THEN
1093: x_return_status := FND_API.g_ret_sts_error;
1094:
1095: WHEN FND_API.g_exc_unexpected_error THEN
1096: x_return_status := FND_API.g_ret_sts_unexp_error ;
1097:
1098: WHEN OTHERS THEN
1099: x_return_status := FND_API.g_ret_sts_unexp_error ;
1092: WHEN FND_API.g_exc_error THEN
1093: x_return_status := FND_API.g_ret_sts_error;
1094:
1095: WHEN FND_API.g_exc_unexpected_error THEN
1096: x_return_status := FND_API.g_ret_sts_unexp_error ;
1097:
1098: WHEN OTHERS THEN
1099: x_return_status := FND_API.g_ret_sts_unexp_error ;
1100: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1095: WHEN FND_API.g_exc_unexpected_error THEN
1096: x_return_status := FND_API.g_ret_sts_unexp_error ;
1097:
1098: WHEN OTHERS THEN
1099: x_return_status := FND_API.g_ret_sts_unexp_error ;
1100: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1101: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1102: END IF;
1103:
1240: IF g_debug THEN
1241: OZF_Utility_PVT.debug_message(l_full_name||': start');
1242: END IF;
1243:
1244: x_return_status := FND_API.g_ret_sts_success;
1245: IF g_debug THEN
1246: OZF_Utility_PVT.debug_message(l_full_name||': p_total_credit = '|| p_total_credit);
1247: OZF_Utility_PVT.debug_message(l_full_name||': p_line_credit = '|| p_line_credit);
1248: OZF_Utility_PVT.debug_message(l_full_name||': p_tax_credit = '|| p_tax_credit);
1367: *------------------------------------------------------------*/
1368: AR_CREDIT_MEMO_API_PUB.create_request (
1369: -- standard API parameters
1370: p_api_version => l_api_version,
1371: p_init_msg_list => FND_API.G_FALSE,
1372: p_commit => FND_API.G_FALSE,
1373: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1374: x_return_status => l_return_status,
1375: x_msg_count => x_msg_count,
1368: AR_CREDIT_MEMO_API_PUB.create_request (
1369: -- standard API parameters
1370: p_api_version => l_api_version,
1371: p_init_msg_list => FND_API.G_FALSE,
1372: p_commit => FND_API.G_FALSE,
1373: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1374: x_return_status => l_return_status,
1375: x_msg_count => x_msg_count,
1376: x_msg_data => x_msg_data,
1369: -- standard API parameters
1370: p_api_version => l_api_version,
1371: p_init_msg_list => FND_API.G_FALSE,
1372: p_commit => FND_API.G_FALSE,
1373: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1374: x_return_status => l_return_status,
1375: x_msg_count => x_msg_count,
1376: x_msg_data => x_msg_data,
1377: -- credit memo request parameters
1397: p_attribute_rec => l_attribute_rec,
1398: p_interface_attribute_rec => l_interface_attribute_rec, -- Bug#11741663 -> header attributes
1399: x_request_id => l_request_id
1400: );
1401: IF l_return_status = FND_API.g_ret_sts_error THEN
1402: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1403: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_CM_REQ_ERR');
1404: FND_MSG_PUB.add;
1405: END IF;
1402: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1403: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_CM_REQ_ERR');
1404: FND_MSG_PUB.add;
1405: END IF;
1406: RAISE FND_API.g_exc_error;
1407: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1408: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1409: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_CM_REQ_UERR');
1410: FND_MSG_PUB.add;
1403: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_CM_REQ_ERR');
1404: FND_MSG_PUB.add;
1405: END IF;
1406: RAISE FND_API.g_exc_error;
1407: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1408: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1409: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_CM_REQ_UERR');
1410: FND_MSG_PUB.add;
1411: END IF;
1408: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1409: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_CM_REQ_UERR');
1410: FND_MSG_PUB.add;
1411: END IF;
1412: RAISE FND_API.g_exc_unexpected_error;
1413: END IF;
1414:
1415: /*------------------------------------------------------------*
1416: | 2. Get creidt memo request information
1417: *------------------------------------------------------------*/
1418: AR_CREDIT_MEMO_API_PUB.get_request_status(
1419: -- standard API parameters
1420: p_api_version => l_api_version,
1421: p_init_msg_list => FND_API.G_false,
1422: x_msg_count => x_msg_count,
1423: x_msg_data => x_msg_data,
1424: x_return_status => l_return_status,
1425: -- credit memo request parameters
1439: x_cm_line_tbl => l_x_cm_line_tbl,
1440: x_cm_activity_tbl => l_x_cm_activity_tbl,
1441: x_cm_notes_tbl => l_x_cm_notes_tbl
1442: );
1443: IF l_return_status = FND_API.g_ret_sts_error THEN
1444: RAISE FND_API.g_exc_error;
1445: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1446: RAISE FND_API.g_exc_unexpected_error;
1447: END IF;
1440: x_cm_activity_tbl => l_x_cm_activity_tbl,
1441: x_cm_notes_tbl => l_x_cm_notes_tbl
1442: );
1443: IF l_return_status = FND_API.g_ret_sts_error THEN
1444: RAISE FND_API.g_exc_error;
1445: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1446: RAISE FND_API.g_exc_unexpected_error;
1447: END IF;
1448:
1441: x_cm_notes_tbl => l_x_cm_notes_tbl
1442: );
1443: IF l_return_status = FND_API.g_ret_sts_error THEN
1444: RAISE FND_API.g_exc_error;
1445: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1446: RAISE FND_API.g_exc_unexpected_error;
1447: END IF;
1448:
1449: IF x_cm_customer_trx_id IS NULL THEN
1442: );
1443: IF l_return_status = FND_API.g_ret_sts_error THEN
1444: RAISE FND_API.g_exc_error;
1445: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1446: RAISE FND_API.g_exc_unexpected_error;
1447: END IF;
1448:
1449: IF x_cm_customer_trx_id IS NULL THEN
1450: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1450: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1451: FND_MESSAGE.set_name('OZF', 'OZF_SETL_CRE_ARCM_ERR');
1452: FND_MSG_PUB.add;
1453: END IF;
1454: RAISE FND_API.g_exc_error;
1455: -- [04/29/2002]: due to the rollback problem on ar credit memo api, instead of
1456: -- raising error to rollback, calling settlement workflow to proceed.
1457: BEGIN
1458: OZF_AR_SETTLEMENT_PVT.Start_Settlement(
1465: WHEN OTHERS THEN
1466: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1467: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
1468: FND_MSG_PUB.Add;
1469: RAISE FND_API.g_exc_unexpected_error;
1470: END;
1471: END IF;
1472:
1473: x_cm_amount := l_x_line_amount + l_x_tax_amount + l_x_freight_amount;
1477: OZF_Utility_PVT.debug_message(l_full_name||': credit memo amount => '||x_cm_amount);
1478: END IF;
1479:
1480: --IF p_deduction_type = 'SOURCE_DED' THEN
1481: IF p_upd_dispute_flag = FND_API.g_true THEN
1482: /*------------------------------------------------------------*
1483: | 3. For Invoice Deduction only -> Taking invoice out of dispute
1484: *------------------------------------------------------------*/
1485: Update_dispute_amount(
1488: ,x_return_status => l_return_status
1489: ,x_msg_data => x_msg_data
1490: ,x_msg_count => x_msg_count
1491: );
1492: IF l_return_status = FND_API.g_ret_sts_error THEN
1493: RAISE FND_API.g_exc_error;
1494: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1495: RAISE FND_API.g_exc_unexpected_error;
1496: END IF;
1489: ,x_msg_data => x_msg_data
1490: ,x_msg_count => x_msg_count
1491: );
1492: IF l_return_status = FND_API.g_ret_sts_error THEN
1493: RAISE FND_API.g_exc_error;
1494: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1495: RAISE FND_API.g_exc_unexpected_error;
1496: END IF;
1497: END IF; -- end if p_deduction_type = 'SOURCE_DED'
1490: ,x_msg_count => x_msg_count
1491: );
1492: IF l_return_status = FND_API.g_ret_sts_error THEN
1493: RAISE FND_API.g_exc_error;
1494: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1495: RAISE FND_API.g_exc_unexpected_error;
1496: END IF;
1497: END IF; -- end if p_deduction_type = 'SOURCE_DED'
1498:
1491: );
1492: IF l_return_status = FND_API.g_ret_sts_error THEN
1493: RAISE FND_API.g_exc_error;
1494: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1495: RAISE FND_API.g_exc_unexpected_error;
1496: END IF;
1497: END IF; -- end if p_deduction_type = 'SOURCE_DED'
1498:
1499: IF g_debug THEN
1499: IF g_debug THEN
1500: OZF_Utility_PVT.debug_message(l_full_name||': end');
1501: END IF;
1502: EXCEPTION
1503: WHEN FND_API.g_exc_error THEN
1504: x_return_status := FND_API.g_ret_sts_error;
1505:
1506: WHEN FND_API.g_exc_unexpected_error THEN
1507: x_return_status := FND_API.g_ret_sts_unexp_error ;
1500: OZF_Utility_PVT.debug_message(l_full_name||': end');
1501: END IF;
1502: EXCEPTION
1503: WHEN FND_API.g_exc_error THEN
1504: x_return_status := FND_API.g_ret_sts_error;
1505:
1506: WHEN FND_API.g_exc_unexpected_error THEN
1507: x_return_status := FND_API.g_ret_sts_unexp_error ;
1508:
1502: EXCEPTION
1503: WHEN FND_API.g_exc_error THEN
1504: x_return_status := FND_API.g_ret_sts_error;
1505:
1506: WHEN FND_API.g_exc_unexpected_error THEN
1507: x_return_status := FND_API.g_ret_sts_unexp_error ;
1508:
1509: WHEN OTHERS THEN
1510: x_return_status := FND_API.g_ret_sts_unexp_error ;
1503: WHEN FND_API.g_exc_error THEN
1504: x_return_status := FND_API.g_ret_sts_error;
1505:
1506: WHEN FND_API.g_exc_unexpected_error THEN
1507: x_return_status := FND_API.g_ret_sts_unexp_error ;
1508:
1509: WHEN OTHERS THEN
1510: x_return_status := FND_API.g_ret_sts_unexp_error ;
1511: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1506: WHEN FND_API.g_exc_unexpected_error THEN
1507: x_return_status := FND_API.g_ret_sts_unexp_error ;
1508:
1509: WHEN OTHERS THEN
1510: x_return_status := FND_API.g_ret_sts_unexp_error ;
1511: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1512: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1513: END IF;
1514:
1611: IF g_debug THEN
1612: OZF_Utility_PVT.debug_message(l_full_name||': start');
1613: END IF;
1614:
1615: x_return_status := FND_API.g_ret_sts_success;
1616:
1617: ------------------------ start -------------------------
1618: OPEN csr_cust_trx_type(p_claim_rec.claim_type_id);
1619: FETCH csr_cust_trx_type INTO l_cb_trx_type_id;
1645:
1646: --11.5.10 Enhancements. TM passes only if AR period is Open (I.e. not when it's
1647: --Closed or Close Pending, in which cases AR will default)
1648: IF p_gl_date IS NULL OR
1649: p_gl_date = FND_API.g_miss_date THEN
1650: IF OZF_CLAIM_SETTLEMENT_VAL_PVT.gl_date_in_open(222, p_claim_rec.claim_id) THEN
1651: l_chargeback_rec.gl_date := p_claim_rec.gl_date;
1652: END IF;
1653: ELSE
1753: END IF;
1754:
1755: ARP_CHARGEBACK_COVER.create_chargeback (
1756: p_chargeback_rec => l_chargeback_rec,
1757: p_init_msg_list => FND_API.g_false,
1758: x_doc_sequence_id => l_x_doc_seq_id,
1759: x_doc_sequence_value => l_x_doc_seq_value,
1760: x_trx_number => l_x_trx_number,
1761: x_customer_trx_id => x_cb_customer_trx_id,
1762: x_return_status => l_return_status,
1763: x_msg_count => x_msg_count,
1764: x_msg_data => x_msg_data
1765: );
1766: IF l_return_status = FND_API.g_ret_sts_error THEN
1767: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1768: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_CRE_CB_ERR');
1769: FND_MSG_PUB.add;
1770: END IF;
1767: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1768: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_CRE_CB_ERR');
1769: FND_MSG_PUB.add;
1770: END IF;
1771: RAISE FND_API.g_exc_error;
1772: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1773: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1774: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_CRE_CB_UERR');
1775: FND_MSG_PUB.add;
1768: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_CRE_CB_ERR');
1769: FND_MSG_PUB.add;
1770: END IF;
1771: RAISE FND_API.g_exc_error;
1772: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1773: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1774: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_CRE_CB_UERR');
1775: FND_MSG_PUB.add;
1776: END IF;
1773: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1774: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_CRE_CB_UERR');
1775: FND_MSG_PUB.add;
1776: END IF;
1777: RAISE FND_API.g_exc_unexpected_error;
1778: END IF;
1779:
1780: IF g_debug THEN
1781: OZF_Utility_PVT.debug_message(l_full_name||': end');
1780: IF g_debug THEN
1781: OZF_Utility_PVT.debug_message(l_full_name||': end');
1782: END IF;
1783: EXCEPTION
1784: WHEN FND_API.g_exc_error THEN
1785: x_return_status := FND_API.g_ret_sts_error;
1786:
1787: WHEN FND_API.g_exc_unexpected_error THEN
1788: x_return_status := FND_API.g_ret_sts_unexp_error ;
1781: OZF_Utility_PVT.debug_message(l_full_name||': end');
1782: END IF;
1783: EXCEPTION
1784: WHEN FND_API.g_exc_error THEN
1785: x_return_status := FND_API.g_ret_sts_error;
1786:
1787: WHEN FND_API.g_exc_unexpected_error THEN
1788: x_return_status := FND_API.g_ret_sts_unexp_error ;
1789:
1783: EXCEPTION
1784: WHEN FND_API.g_exc_error THEN
1785: x_return_status := FND_API.g_ret_sts_error;
1786:
1787: WHEN FND_API.g_exc_unexpected_error THEN
1788: x_return_status := FND_API.g_ret_sts_unexp_error ;
1789:
1790: WHEN OTHERS THEN
1791: x_return_status := FND_API.g_ret_sts_unexp_error ;
1784: WHEN FND_API.g_exc_error THEN
1785: x_return_status := FND_API.g_ret_sts_error;
1786:
1787: WHEN FND_API.g_exc_unexpected_error THEN
1788: x_return_status := FND_API.g_ret_sts_unexp_error ;
1789:
1790: WHEN OTHERS THEN
1791: x_return_status := FND_API.g_ret_sts_unexp_error ;
1792: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1787: WHEN FND_API.g_exc_unexpected_error THEN
1788: x_return_status := FND_API.g_ret_sts_unexp_error ;
1789:
1790: WHEN OTHERS THEN
1791: x_return_status := FND_API.g_ret_sts_unexp_error ;
1792: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1793: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1794: END IF;
1795:
1936: -------------------- initialize -----------------------
1937: IF g_debug THEN
1938: OZF_Utility_PVT.debug_message(l_full_name||': start');
1939: END IF;
1940: x_return_status := FND_API.g_ret_sts_success;
1941:
1942: --//Bug 5345095
1943: IF p_wo_rec_trx_id IS NULL THEN
1944: l_receivables_trx_id := p_claim_rec.wo_rec_trx_id;
2011: -- l_adj_customer_trx_line_id := -- for type other then 'INVOICE' only.
2012: l_adj_rec.receivables_trx_id := l_receivables_trx_id;
2013: l_adj_rec.apply_date := SYSDATE;
2014: IF p_gl_date IS NULL OR
2015: p_gl_date = FND_API.g_miss_date THEN
2016: l_adj_rec.gl_date := p_claim_rec.gl_date;
2017: ELSE
2018: l_adj_rec.gl_date := p_gl_date;
2019: END IF;
2098:
2099: AR_ADJUST_PUB.Create_Adjustment (
2100: p_api_name => 'AR_ADJUST_PUB.Create_Adjustment',
2101: p_api_version => l_api_version,
2102: p_init_msg_list => FND_API.g_false,
2103: p_commit_flag => FND_API.g_false,
2104: p_validation_level => FND_API.g_valid_level_full,
2105: p_msg_count => x_msg_count,
2106: p_msg_data => x_msg_data,
2099: AR_ADJUST_PUB.Create_Adjustment (
2100: p_api_name => 'AR_ADJUST_PUB.Create_Adjustment',
2101: p_api_version => l_api_version,
2102: p_init_msg_list => FND_API.g_false,
2103: p_commit_flag => FND_API.g_false,
2104: p_validation_level => FND_API.g_valid_level_full,
2105: p_msg_count => x_msg_count,
2106: p_msg_data => x_msg_data,
2107: p_return_status => l_return_status,
2100: p_api_name => 'AR_ADJUST_PUB.Create_Adjustment',
2101: p_api_version => l_api_version,
2102: p_init_msg_list => FND_API.g_false,
2103: p_commit_flag => FND_API.g_false,
2104: p_validation_level => FND_API.g_valid_level_full,
2105: p_msg_count => x_msg_count,
2106: p_msg_data => x_msg_data,
2107: p_return_status => l_return_status,
2108: p_adj_rec => t_adj_rec,
2105: p_msg_count => x_msg_count,
2106: p_msg_data => x_msg_data,
2107: p_return_status => l_return_status,
2108: p_adj_rec => t_adj_rec,
2109: p_chk_approval_limits => FND_API.g_false,
2110: p_check_amount => FND_API.g_true,
2111: p_move_deferred_tax => 'Y', --??
2112: p_new_adjust_number => l_x_new_adjust_number,
2113: p_new_adjust_id => l_x_wo_adjust_id,
2106: p_msg_data => x_msg_data,
2107: p_return_status => l_return_status,
2108: p_adj_rec => t_adj_rec,
2109: p_chk_approval_limits => FND_API.g_false,
2110: p_check_amount => FND_API.g_true,
2111: p_move_deferred_tax => 'Y', --??
2112: p_new_adjust_number => l_x_new_adjust_number,
2113: p_new_adjust_id => l_x_wo_adjust_id,
2114: p_called_from => 'CLAIMS',
2120: OZF_Utility_PVT.debug_message('After calling AR Adjustmnet API l_x_new_adjust_number :' || l_x_new_adjust_number);
2121: OZF_Utility_PVT.debug_message('After calling AR Adjustmnet API l_x_wo_adjust_id :' || l_x_wo_adjust_id);
2122: END IF;
2123:
2124: IF l_return_status = FND_API.g_ret_sts_error THEN
2125: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2126: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_CRE_ADJ_ERR');
2127: FND_MSG_PUB.add;
2128: END IF;
2125: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2126: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_CRE_ADJ_ERR');
2127: FND_MSG_PUB.add;
2128: END IF;
2129: RAISE FND_API.g_exc_error;
2130: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2131: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2132: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_CRE_ADJ_UERR');
2133: FND_MSG_PUB.add;
2126: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_CRE_ADJ_ERR');
2127: FND_MSG_PUB.add;
2128: END IF;
2129: RAISE FND_API.g_exc_error;
2130: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2131: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2132: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_CRE_ADJ_UERR');
2133: FND_MSG_PUB.add;
2134: END IF;
2131: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2132: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_CRE_ADJ_UERR');
2133: FND_MSG_PUB.add;
2134: END IF;
2135: RAISE FND_API.g_exc_unexpected_error;
2136: END IF;
2137:
2138: /*------------------------------------------------------------*
2139: | Update Deduction payment detail
2152: IF p_claim_rec.payment_method = 'MASS_SETTLEMENT'
2153: THEN
2154: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
2155: p_api_version => l_api_version
2156: ,p_init_msg_list => FND_API.g_false
2157: ,p_commit => FND_API.g_false
2158: ,p_validation_level => FND_API.g_valid_level_full
2159: ,x_return_status => l_return_status
2160: ,x_msg_data => x_msg_data
2153: THEN
2154: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
2155: p_api_version => l_api_version
2156: ,p_init_msg_list => FND_API.g_false
2157: ,p_commit => FND_API.g_false
2158: ,p_validation_level => FND_API.g_valid_level_full
2159: ,x_return_status => l_return_status
2160: ,x_msg_data => x_msg_data
2161: ,x_msg_count => x_msg_count
2154: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
2155: p_api_version => l_api_version
2156: ,p_init_msg_list => FND_API.g_false
2157: ,p_commit => FND_API.g_false
2158: ,p_validation_level => FND_API.g_valid_level_full
2159: ,x_return_status => l_return_status
2160: ,x_msg_data => x_msg_data
2161: ,x_msg_count => x_msg_count
2162: ,p_claim_id => p_claim_rec.claim_id
2170: );
2171: ELSE
2172: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
2173: p_api_version => l_api_version
2174: ,p_init_msg_list => FND_API.g_false
2175: ,p_commit => FND_API.g_false
2176: ,p_validation_level => FND_API.g_valid_level_full
2177: ,x_return_status => l_return_status
2178: ,x_msg_data => x_msg_data
2171: ELSE
2172: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
2173: p_api_version => l_api_version
2174: ,p_init_msg_list => FND_API.g_false
2175: ,p_commit => FND_API.g_false
2176: ,p_validation_level => FND_API.g_valid_level_full
2177: ,x_return_status => l_return_status
2178: ,x_msg_data => x_msg_data
2179: ,x_msg_count => x_msg_count
2172: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
2173: p_api_version => l_api_version
2174: ,p_init_msg_list => FND_API.g_false
2175: ,p_commit => FND_API.g_false
2176: ,p_validation_level => FND_API.g_valid_level_full
2177: ,x_return_status => l_return_status
2178: ,x_msg_data => x_msg_data
2179: ,x_msg_count => x_msg_count
2180: ,p_claim_id => p_claim_rec.claim_id
2185: ,p_adjust_id => l_x_wo_adjust_id
2186: );
2187: END IF;
2188:
2189: IF l_return_status = FND_API.g_ret_sts_error THEN
2190: RAISE FND_API.g_exc_error;
2191: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2192: RAISE FND_API.g_exc_unexpected_error;
2193: END IF;
2186: );
2187: END IF;
2188:
2189: IF l_return_status = FND_API.g_ret_sts_error THEN
2190: RAISE FND_API.g_exc_error;
2191: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2192: RAISE FND_API.g_exc_unexpected_error;
2193: END IF;
2194: END IF;
2187: END IF;
2188:
2189: IF l_return_status = FND_API.g_ret_sts_error THEN
2190: RAISE FND_API.g_exc_error;
2191: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2192: RAISE FND_API.g_exc_unexpected_error;
2193: END IF;
2194: END IF;
2195: END LOOP;
2188:
2189: IF l_return_status = FND_API.g_ret_sts_error THEN
2190: RAISE FND_API.g_exc_error;
2191: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2192: RAISE FND_API.g_exc_unexpected_error;
2193: END IF;
2194: END IF;
2195: END LOOP;
2196: END IF; -- bug # 7484916 fixed by ateotia
2207: ARP_DEDUCTION_COVER.update_amount_in_dispute(
2208: p_customer_trx_id => p_claim_rec.source_object_id,
2209: p_claim_number => l_root_claim_number,
2210: p_amount => p_write_off_amount * -1,
2211: p_init_msg_list => FND_API.g_false,
2212: x_return_status => l_return_status,
2213: x_msg_count => x_msg_count,
2214: x_msg_data => x_msg_data
2215: );
2212: x_return_status => l_return_status,
2213: x_msg_count => x_msg_count,
2214: x_msg_data => x_msg_data
2215: );
2216: IF l_return_status = FND_API.g_ret_sts_error THEN
2217: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2218: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_UPD_DISPUTE_ERR');
2219: FND_MSG_PUB.add;
2220: END IF;
2217: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2218: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_UPD_DISPUTE_ERR');
2219: FND_MSG_PUB.add;
2220: END IF;
2221: RAISE FND_API.g_exc_error;
2222: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2223: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2224: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_UPD_DISPUTE_UERR');
2225: FND_MSG_PUB.add;
2218: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_UPD_DISPUTE_ERR');
2219: FND_MSG_PUB.add;
2220: END IF;
2221: RAISE FND_API.g_exc_error;
2222: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2223: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2224: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_UPD_DISPUTE_UERR');
2225: FND_MSG_PUB.add;
2226: END IF;
2223: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2224: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_UPD_DISPUTE_UERR');
2225: FND_MSG_PUB.add;
2226: END IF;
2227: RAISE FND_API.g_exc_unexpected_error;
2228: END IF;
2229:
2230: ELSIF p_deduction_type in ('RECEIPT_OPM','RECEIPT_DED') THEN
2231: /*------------------------------------------------------------*
2245: CLOSE csr_get_more_chld_clm_dtls;
2246: END IF;
2247:
2248: IF p_wo_rec_trx_id IS NULL OR
2249: p_wo_rec_trx_id = FND_API.g_miss_num THEN
2250:
2251: IF l_receivables_trx_id IS NULL THEN
2252: IF p_deduction_type = 'RECEIPT_OPM' THEN
2253: l_receivables_trx_id := l_wo_rec_trx_id;
2262: ARP_DEDUCTION_COVER.create_receipt_writeoff(
2263: p_claim_id => p_claim_rec.root_claim_id,
2264: p_amount => (p_write_off_amount * -1),
2265: p_new_claim_id => p_claim_rec.root_claim_id,
2266: p_init_msg_list => FND_API.g_false,
2267: p_cash_receipt_id => p_claim_rec.receipt_id,
2268: p_receivables_trx_id => l_receivables_trx_id,
2269: p_ussgl_transaction_code => NULL,
2270: p_application_ref_num => l_application_ref_num,
2273: x_return_status => l_return_status,
2274: x_msg_count => x_msg_count,
2275: x_msg_data => x_msg_data
2276: );
2277: IF l_return_status = FND_API.g_ret_sts_error THEN
2278: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2279: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_CRE_REC_WO_ERR');
2280: FND_MSG_PUB.add;
2281: END IF;
2278: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2279: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_CRE_REC_WO_ERR');
2280: FND_MSG_PUB.add;
2281: END IF;
2282: RAISE FND_API.g_exc_error;
2283: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2284: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2285: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_CRE_REC_WO_UERR');
2286: FND_MSG_PUB.add;
2279: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_CRE_REC_WO_ERR');
2280: FND_MSG_PUB.add;
2281: END IF;
2282: RAISE FND_API.g_exc_error;
2283: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2284: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2285: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_CRE_REC_WO_UERR');
2286: FND_MSG_PUB.add;
2287: END IF;
2284: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2285: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_CRE_REC_WO_UERR');
2286: FND_MSG_PUB.add;
2287: END IF;
2288: RAISE FND_API.g_exc_unexpected_error;
2289: END IF;
2290:
2291: -- There is no write_off number populating in case of receipt write_off.
2292: l_x_wo_adjust_id := -3;
2293: -- Modified for Bug 13948201
2294: IF p_claim_rec.payment_method = 'MASS_SETTLEMENT' THEN
2295: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
2296: p_api_version => l_api_version
2297: ,p_init_msg_list => FND_API.g_false
2298: ,p_commit => FND_API.g_false
2299: ,p_validation_level => FND_API.g_valid_level_full
2300: ,x_return_status => l_return_status
2301: ,x_msg_data => x_msg_data
2294: IF p_claim_rec.payment_method = 'MASS_SETTLEMENT' THEN
2295: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
2296: p_api_version => l_api_version
2297: ,p_init_msg_list => FND_API.g_false
2298: ,p_commit => FND_API.g_false
2299: ,p_validation_level => FND_API.g_valid_level_full
2300: ,x_return_status => l_return_status
2301: ,x_msg_data => x_msg_data
2302: ,x_msg_count => x_msg_count
2295: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
2296: p_api_version => l_api_version
2297: ,p_init_msg_list => FND_API.g_false
2298: ,p_commit => FND_API.g_false
2299: ,p_validation_level => FND_API.g_valid_level_full
2300: ,x_return_status => l_return_status
2301: ,x_msg_data => x_msg_data
2302: ,x_msg_count => x_msg_count
2303: ,p_claim_id => p_claim_rec.claim_id
2311: );
2312: ELSE
2313: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
2314: p_api_version => l_api_version
2315: ,p_init_msg_list => FND_API.g_false
2316: ,p_commit => FND_API.g_false
2317: ,p_validation_level => FND_API.g_valid_level_full
2318: ,x_return_status => l_return_status
2319: ,x_msg_data => x_msg_data
2312: ELSE
2313: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
2314: p_api_version => l_api_version
2315: ,p_init_msg_list => FND_API.g_false
2316: ,p_commit => FND_API.g_false
2317: ,p_validation_level => FND_API.g_valid_level_full
2318: ,x_return_status => l_return_status
2319: ,x_msg_data => x_msg_data
2320: ,x_msg_count => x_msg_count
2313: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
2314: p_api_version => l_api_version
2315: ,p_init_msg_list => FND_API.g_false
2316: ,p_commit => FND_API.g_false
2317: ,p_validation_level => FND_API.g_valid_level_full
2318: ,x_return_status => l_return_status
2319: ,x_msg_data => x_msg_data
2320: ,x_msg_count => x_msg_count
2321: ,p_claim_id => p_claim_rec.claim_id
2326: ,p_adjust_id => l_x_wo_adjust_id
2327: );
2328: END IF;
2329:
2330: IF l_return_status = FND_API.g_ret_sts_error THEN
2331: RAISE FND_API.g_exc_error;
2332: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2333: RAISE FND_API.g_exc_unexpected_error;
2334: END IF;
2327: );
2328: END IF;
2329:
2330: IF l_return_status = FND_API.g_ret_sts_error THEN
2331: RAISE FND_API.g_exc_error;
2332: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2333: RAISE FND_API.g_exc_unexpected_error;
2334: END IF;
2335: END IF;
2328: END IF;
2329:
2330: IF l_return_status = FND_API.g_ret_sts_error THEN
2331: RAISE FND_API.g_exc_error;
2332: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2333: RAISE FND_API.g_exc_unexpected_error;
2334: END IF;
2335: END IF;
2336:
2329:
2330: IF l_return_status = FND_API.g_ret_sts_error THEN
2331: RAISE FND_API.g_exc_error;
2332: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2333: RAISE FND_API.g_exc_unexpected_error;
2334: END IF;
2335: END IF;
2336:
2337: --//Bug 5345095 BK Modif
2353: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2354: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
2355: FND_MSG_PUB.Add;
2356: END IF;
2357: RAISE FND_API.g_exc_unexpected_error;
2358: END;
2359: END IF;
2360:
2361: AMS_Utility_PVT.debug_message(l_full_name||': end');
2362:
2363: OZF_Utility_PVT.debug_message(l_full_name||': end');
2364:
2365: EXCEPTION
2366: WHEN FND_API.g_exc_error THEN
2367: x_return_status := FND_API.g_ret_sts_error;
2368:
2369: WHEN FND_API.g_exc_unexpected_error THEN
2370: x_return_status := FND_API.g_ret_sts_unexp_error ;
2363: OZF_Utility_PVT.debug_message(l_full_name||': end');
2364:
2365: EXCEPTION
2366: WHEN FND_API.g_exc_error THEN
2367: x_return_status := FND_API.g_ret_sts_error;
2368:
2369: WHEN FND_API.g_exc_unexpected_error THEN
2370: x_return_status := FND_API.g_ret_sts_unexp_error ;
2371:
2365: EXCEPTION
2366: WHEN FND_API.g_exc_error THEN
2367: x_return_status := FND_API.g_ret_sts_error;
2368:
2369: WHEN FND_API.g_exc_unexpected_error THEN
2370: x_return_status := FND_API.g_ret_sts_unexp_error ;
2371:
2372: WHEN OTHERS THEN
2373: x_return_status := FND_API.g_ret_sts_unexp_error ;
2366: WHEN FND_API.g_exc_error THEN
2367: x_return_status := FND_API.g_ret_sts_error;
2368:
2369: WHEN FND_API.g_exc_unexpected_error THEN
2370: x_return_status := FND_API.g_ret_sts_unexp_error ;
2371:
2372: WHEN OTHERS THEN
2373: x_return_status := FND_API.g_ret_sts_unexp_error ;
2374: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2369: WHEN FND_API.g_exc_unexpected_error THEN
2370: x_return_status := FND_API.g_ret_sts_unexp_error ;
2371:
2372: WHEN OTHERS THEN
2373: x_return_status := FND_API.g_ret_sts_unexp_error ;
2374: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2375: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2376: END IF;
2377:
2406: IF g_debug THEN
2407: OZF_Utility_PVT.debug_message(l_full_name||': start');
2408: END IF;
2409:
2410: x_return_status := FND_API.g_ret_sts_success;
2411:
2412: ------------------------ start -------------------------
2413: BEGIN
2414: OZF_AR_SETTLEMENT_PVT.Start_Settlement(
2423: WHEN OTHERS THEN
2424: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2425: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
2426: FND_MSG_PUB.Add;
2427: RAISE FND_API.g_exc_unexpected_error;
2428: END;
2429:
2430: IF g_debug THEN
2431: OZF_Utility_PVT.debug_message(l_full_name||': end');
2430: IF g_debug THEN
2431: OZF_Utility_PVT.debug_message(l_full_name||': end');
2432: END IF;
2433: EXCEPTION
2434: WHEN FND_API.g_exc_unexpected_error THEN
2435: x_return_status := FND_API.g_ret_sts_unexp_error ;
2436:
2437: WHEN OTHERS THEN
2438: x_return_status := FND_API.g_ret_sts_unexp_error ;
2431: OZF_Utility_PVT.debug_message(l_full_name||': end');
2432: END IF;
2433: EXCEPTION
2434: WHEN FND_API.g_exc_unexpected_error THEN
2435: x_return_status := FND_API.g_ret_sts_unexp_error ;
2436:
2437: WHEN OTHERS THEN
2438: x_return_status := FND_API.g_ret_sts_unexp_error ;
2439: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2434: WHEN FND_API.g_exc_unexpected_error THEN
2435: x_return_status := FND_API.g_ret_sts_unexp_error ;
2436:
2437: WHEN OTHERS THEN
2438: x_return_status := FND_API.g_ret_sts_unexp_error ;
2439: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2440: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2441: END IF;
2442:
2446: | Function
2447: | Get_Inv_Credit_Details
2448: |
2449: | Return
2450: | FND_API.g_true / FND_API.g_false
2451: |
2452: | HISTORY
2453: | 14-Jun-2005 Sahana Created for R12
2454: *=======================================================================*/
2510:
2511: l_counter NUMBER := 1;
2512:
2513: BEGIN
2514: x_return_status := FND_API.g_ret_sts_success;
2515:
2516:
2517: IF g_debug THEN
2518: OZF_Utility_PVT.debug_message( l_full_name || ' : Start');
2574: WHEN OTHERS THEN
2575: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2576: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2577: END IF;
2578: x_return_status := FND_API.g_ret_sts_unexp_error;
2579: END Get_Inv_Credit_Details;
2580:
2581: /*=======================================================================*
2582: | PROCEDURE
2702: IF g_debug THEN
2703: OZF_Utility_PVT.debug_message(l_full_name||': start');
2704: END IF;
2705:
2706: x_return_status := FND_API.g_ret_sts_success;
2707:
2708: IF p_deduction_type = 'SOURCE_DED' THEN
2709: /*------------------------------------------------------------*
2710: | Remove invoice from dispute.
2727: ,x_return_status => l_return_status
2728: ,x_msg_data => x_msg_data
2729: ,x_msg_count => x_msg_count
2730: );
2731: IF l_return_status = FND_API.g_ret_sts_error THEN
2732: RAISE FND_API.g_exc_error;
2733: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2734: RAISE FND_API.g_exc_unexpected_error;
2735: END IF;
2728: ,x_msg_data => x_msg_data
2729: ,x_msg_count => x_msg_count
2730: );
2731: IF l_return_status = FND_API.g_ret_sts_error THEN
2732: RAISE FND_API.g_exc_error;
2733: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2734: RAISE FND_API.g_exc_unexpected_error;
2735: END IF;
2736:
2729: ,x_msg_count => x_msg_count
2730: );
2731: IF l_return_status = FND_API.g_ret_sts_error THEN
2732: RAISE FND_API.g_exc_error;
2733: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2734: RAISE FND_API.g_exc_unexpected_error;
2735: END IF;
2736:
2737:
2730: );
2731: IF l_return_status = FND_API.g_ret_sts_error THEN
2732: RAISE FND_API.g_exc_error;
2733: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2734: RAISE FND_API.g_exc_unexpected_error;
2735: END IF;
2736:
2737:
2738: -- -------------------------------------
2756: ,p_tax_credit => p_tax_credit
2757: ,p_freight_credit => p_freight_credit
2758: ,p_total_credit => p_total_credit
2759: ,p_cm_line_tbl => p_cm_line_tbl
2760: ,p_upd_dispute_flag => FND_API.g_true
2761: ,x_cm_customer_trx_id => l_cm_customer_trx_id
2762: ,x_cm_amount => l_cm_amount
2763: ,x_return_status => l_return_status
2764: ,x_msg_data => x_msg_data
2763: ,x_return_status => l_return_status
2764: ,x_msg_data => x_msg_data
2765: ,x_msg_count => x_msg_count
2766: );
2767: IF l_return_status = FND_API.g_ret_sts_error THEN
2768: RAISE FND_API.g_exc_error;
2769: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2770: RAISE FND_API.g_exc_unexpected_error;
2771: END IF;
2764: ,x_msg_data => x_msg_data
2765: ,x_msg_count => x_msg_count
2766: );
2767: IF l_return_status = FND_API.g_ret_sts_error THEN
2768: RAISE FND_API.g_exc_error;
2769: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2770: RAISE FND_API.g_exc_unexpected_error;
2771: END IF;
2772:
2765: ,x_msg_count => x_msg_count
2766: );
2767: IF l_return_status = FND_API.g_ret_sts_error THEN
2768: RAISE FND_API.g_exc_error;
2769: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2770: RAISE FND_API.g_exc_unexpected_error;
2771: END IF;
2772:
2773: -- ----------------------------------------------
2766: );
2767: IF l_return_status = FND_API.g_ret_sts_error THEN
2768: RAISE FND_API.g_exc_error;
2769: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2770: RAISE FND_API.g_exc_unexpected_error;
2771: END IF;
2772:
2773: -- ----------------------------------------------
2774: -- Invoice Deduction - Credit to Tax/Line/Freight
2793: ,x_return_status => l_return_status
2794: ,x_msg_data => x_msg_data
2795: ,x_msg_count => x_msg_count
2796: );
2797: IF l_return_status = FND_API.g_ret_sts_error THEN
2798: RAISE FND_API.g_exc_error;
2799: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2800: RAISE FND_API.g_exc_unexpected_error;
2801: END IF;
2794: ,x_msg_data => x_msg_data
2795: ,x_msg_count => x_msg_count
2796: );
2797: IF l_return_status = FND_API.g_ret_sts_error THEN
2798: RAISE FND_API.g_exc_error;
2799: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2800: RAISE FND_API.g_exc_unexpected_error;
2801: END IF;
2802: END IF;
2795: ,x_msg_count => x_msg_count
2796: );
2797: IF l_return_status = FND_API.g_ret_sts_error THEN
2798: RAISE FND_API.g_exc_error;
2799: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2800: RAISE FND_API.g_exc_unexpected_error;
2801: END IF;
2802: END IF;
2803:
2796: );
2797: IF l_return_status = FND_API.g_ret_sts_error THEN
2798: RAISE FND_API.g_exc_error;
2799: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2800: RAISE FND_API.g_exc_unexpected_error;
2801: END IF;
2802: END IF;
2803:
2804: -- 2. Create credit memo for the invoice
2816: ,p_tax_credit => p_tax_credit
2817: ,p_freight_credit => p_freight_credit
2818: ,p_total_credit => p_total_credit
2819: ,p_cm_line_tbl => p_cm_line_tbl
2820: ,p_upd_dispute_flag => FND_API.g_false
2821: ,x_cm_customer_trx_id => l_cm_customer_trx_id
2822: ,x_cm_amount => l_cm_amount
2823: ,x_return_status => l_return_status
2824: ,x_msg_data => x_msg_data
2823: ,x_return_status => l_return_status
2824: ,x_msg_data => x_msg_data
2825: ,x_msg_count => x_msg_count
2826: );
2827: IF l_return_status = FND_API.g_ret_sts_error THEN
2828: RAISE FND_API.g_exc_error;
2829: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2830: RAISE FND_API.g_exc_unexpected_error;
2831: END IF;
2824: ,x_msg_data => x_msg_data
2825: ,x_msg_count => x_msg_count
2826: );
2827: IF l_return_status = FND_API.g_ret_sts_error THEN
2828: RAISE FND_API.g_exc_error;
2829: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2830: RAISE FND_API.g_exc_unexpected_error;
2831: END IF;
2832:
2825: ,x_msg_count => x_msg_count
2826: );
2827: IF l_return_status = FND_API.g_ret_sts_error THEN
2828: RAISE FND_API.g_exc_error;
2829: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2830: RAISE FND_API.g_exc_unexpected_error;
2831: END IF;
2832:
2833: -- 3. Apply invoice back on receipt.
2826: );
2827: IF l_return_status = FND_API.g_ret_sts_error THEN
2828: RAISE FND_API.g_exc_error;
2829: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2830: RAISE FND_API.g_exc_unexpected_error;
2831: END IF;
2832:
2833: -- 3. Apply invoice back on receipt.
2834: IF g_debug THEN
2861: ,x_return_status => l_return_status
2862: ,x_msg_data => x_msg_data
2863: ,x_msg_count => x_msg_count
2864: );
2865: IF l_return_status = FND_API.g_ret_sts_error THEN
2866: RAISE FND_API.g_exc_error;
2867: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2868: RAISE FND_API.g_exc_unexpected_error;
2869: END IF;
2862: ,x_msg_data => x_msg_data
2863: ,x_msg_count => x_msg_count
2864: );
2865: IF l_return_status = FND_API.g_ret_sts_error THEN
2866: RAISE FND_API.g_exc_error;
2867: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2868: RAISE FND_API.g_exc_unexpected_error;
2869: END IF;
2870: END IF;
2863: ,x_msg_count => x_msg_count
2864: );
2865: IF l_return_status = FND_API.g_ret_sts_error THEN
2866: RAISE FND_API.g_exc_error;
2867: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2868: RAISE FND_API.g_exc_unexpected_error;
2869: END IF;
2870: END IF;
2871:
2864: );
2865: IF l_return_status = FND_API.g_ret_sts_error THEN
2866: RAISE FND_API.g_exc_error;
2867: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2868: RAISE FND_API.g_exc_unexpected_error;
2869: END IF;
2870: END IF;
2871:
2872: END IF;
2904: ,x_return_status => l_return_status
2905: ,x_msg_data => x_msg_data
2906: ,x_msg_count => x_msg_count
2907: );
2908: IF l_return_status = FND_API.g_ret_sts_error THEN
2909: RAISE FND_API.g_exc_error;
2910: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2911: RAISE FND_API.g_exc_unexpected_error;
2912: END IF;
2905: ,x_msg_data => x_msg_data
2906: ,x_msg_count => x_msg_count
2907: );
2908: IF l_return_status = FND_API.g_ret_sts_error THEN
2909: RAISE FND_API.g_exc_error;
2910: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2911: RAISE FND_API.g_exc_unexpected_error;
2912: END IF;
2913:
2906: ,x_msg_count => x_msg_count
2907: );
2908: IF l_return_status = FND_API.g_ret_sts_error THEN
2909: RAISE FND_API.g_exc_error;
2910: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2911: RAISE FND_API.g_exc_unexpected_error;
2912: END IF;
2913:
2914: ELSE
2907: );
2908: IF l_return_status = FND_API.g_ret_sts_error THEN
2909: RAISE FND_API.g_exc_error;
2910: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2911: RAISE FND_API.g_exc_unexpected_error;
2912: END IF;
2913:
2914: ELSE
2915:
2943: ,x_return_status => l_return_status
2944: ,x_msg_data => x_msg_data
2945: ,x_msg_count => x_msg_count
2946: );
2947: IF l_return_status = FND_API.g_ret_sts_error THEN
2948: RAISE FND_API.g_exc_error;
2949: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2950: RAISE FND_API.g_exc_unexpected_error;
2951: END IF;
2944: ,x_msg_data => x_msg_data
2945: ,x_msg_count => x_msg_count
2946: );
2947: IF l_return_status = FND_API.g_ret_sts_error THEN
2948: RAISE FND_API.g_exc_error;
2949: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2950: RAISE FND_API.g_exc_unexpected_error;
2951: END IF;
2952:
2945: ,x_msg_count => x_msg_count
2946: );
2947: IF l_return_status = FND_API.g_ret_sts_error THEN
2948: RAISE FND_API.g_exc_error;
2949: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2950: RAISE FND_API.g_exc_unexpected_error;
2951: END IF;
2952:
2953:
2946: );
2947: IF l_return_status = FND_API.g_ret_sts_error THEN
2948: RAISE FND_API.g_exc_error;
2949: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2950: RAISE FND_API.g_exc_unexpected_error;
2951: END IF;
2952:
2953:
2954: IF g_debug THEN
2958: p_claim_rec => p_claim_rec
2959: ,p_invoice_id => p_pay_invoice_id
2960: ,x_return_status => l_return_status
2961: );
2962: IF l_return_status = FND_API.g_ret_sts_error THEN
2963: RAISE FND_API.g_exc_error;
2964: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2965: RAISE FND_API.g_exc_unexpected_error;
2966: END IF;
2959: ,p_invoice_id => p_pay_invoice_id
2960: ,x_return_status => l_return_status
2961: );
2962: IF l_return_status = FND_API.g_ret_sts_error THEN
2963: RAISE FND_API.g_exc_error;
2964: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2965: RAISE FND_API.g_exc_unexpected_error;
2966: END IF;
2967:
2960: ,x_return_status => l_return_status
2961: );
2962: IF l_return_status = FND_API.g_ret_sts_error THEN
2963: RAISE FND_API.g_exc_error;
2964: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2965: RAISE FND_API.g_exc_unexpected_error;
2966: END IF;
2967:
2968: -- ----------------------------------------------
2961: );
2962: IF l_return_status = FND_API.g_ret_sts_error THEN
2963: RAISE FND_API.g_exc_error;
2964: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2965: RAISE FND_API.g_exc_unexpected_error;
2966: END IF;
2967:
2968: -- ----------------------------------------------
2969: -- Claim Investigation (Deduction) - Invoice
3002: ,x_return_status => l_return_status
3003: ,x_msg_data => x_msg_data
3004: ,x_msg_count => x_msg_count
3005: );
3006: IF l_return_status = FND_API.g_ret_sts_error THEN
3007: RAISE FND_API.g_exc_error;
3008: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3009: RAISE FND_API.g_exc_unexpected_error;
3010: END IF;
3003: ,x_msg_data => x_msg_data
3004: ,x_msg_count => x_msg_count
3005: );
3006: IF l_return_status = FND_API.g_ret_sts_error THEN
3007: RAISE FND_API.g_exc_error;
3008: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3009: RAISE FND_API.g_exc_unexpected_error;
3010: END IF;
3011: END IF;
3004: ,x_msg_count => x_msg_count
3005: );
3006: IF l_return_status = FND_API.g_ret_sts_error THEN
3007: RAISE FND_API.g_exc_error;
3008: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3009: RAISE FND_API.g_exc_unexpected_error;
3010: END IF;
3011: END IF;
3012:
3005: );
3006: IF l_return_status = FND_API.g_ret_sts_error THEN
3007: RAISE FND_API.g_exc_error;
3008: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3009: RAISE FND_API.g_exc_unexpected_error;
3010: END IF;
3011: END IF;
3012:
3013: -- 4. Create credit memo for the invoice.
3025: ,p_tax_credit => p_tax_credit
3026: ,p_freight_credit => p_freight_credit
3027: ,p_total_credit => p_total_credit
3028: ,p_cm_line_tbl => p_cm_line_tbl
3029: ,p_upd_dispute_flag => FND_API.g_false
3030: ,x_cm_customer_trx_id => l_cm_customer_trx_id
3031: ,x_cm_amount => l_cm_amount
3032: ,x_return_status => l_return_status
3033: ,x_msg_data => x_msg_data
3032: ,x_return_status => l_return_status
3033: ,x_msg_data => x_msg_data
3034: ,x_msg_count => x_msg_count
3035: );
3036: IF l_return_status = FND_API.g_ret_sts_error THEN
3037: RAISE FND_API.g_exc_error;
3038: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3039: RAISE FND_API.g_exc_unexpected_error;
3040: END IF;
3033: ,x_msg_data => x_msg_data
3034: ,x_msg_count => x_msg_count
3035: );
3036: IF l_return_status = FND_API.g_ret_sts_error THEN
3037: RAISE FND_API.g_exc_error;
3038: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3039: RAISE FND_API.g_exc_unexpected_error;
3040: END IF;
3041:
3034: ,x_msg_count => x_msg_count
3035: );
3036: IF l_return_status = FND_API.g_ret_sts_error THEN
3037: RAISE FND_API.g_exc_error;
3038: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3039: RAISE FND_API.g_exc_unexpected_error;
3040: END IF;
3041:
3042: ELSE
3035: );
3036: IF l_return_status = FND_API.g_ret_sts_error THEN
3037: RAISE FND_API.g_exc_error;
3038: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3039: RAISE FND_API.g_exc_unexpected_error;
3040: END IF;
3041:
3042: ELSE
3043: -- ----------------------------------------------
3071: ,x_return_status => l_return_status
3072: ,x_msg_data => x_msg_data
3073: ,x_msg_count => x_msg_count
3074: );
3075: IF l_return_status = FND_API.g_ret_sts_error THEN
3076: RAISE FND_API.g_exc_error;
3077: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3078: RAISE FND_API.g_exc_unexpected_error;
3079: END IF;
3072: ,x_msg_data => x_msg_data
3073: ,x_msg_count => x_msg_count
3074: );
3075: IF l_return_status = FND_API.g_ret_sts_error THEN
3076: RAISE FND_API.g_exc_error;
3077: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3078: RAISE FND_API.g_exc_unexpected_error;
3079: END IF;
3080: END IF;
3073: ,x_msg_count => x_msg_count
3074: );
3075: IF l_return_status = FND_API.g_ret_sts_error THEN
3076: RAISE FND_API.g_exc_error;
3077: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3078: RAISE FND_API.g_exc_unexpected_error;
3079: END IF;
3080: END IF;
3081: END IF;
3074: );
3075: IF l_return_status = FND_API.g_ret_sts_error THEN
3076: RAISE FND_API.g_exc_error;
3077: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3078: RAISE FND_API.g_exc_unexpected_error;
3079: END IF;
3080: END IF;
3081: END IF;
3082:
3095: ,p_tax_credit => p_tax_credit
3096: ,p_freight_credit => p_freight_credit
3097: ,p_total_credit => p_total_credit
3098: ,p_cm_line_tbl => p_cm_line_tbl
3099: ,p_upd_dispute_flag => FND_API.g_false
3100: ,x_cm_customer_trx_id => l_cm_customer_trx_id
3101: ,x_cm_amount => l_cm_amount
3102: ,x_return_status => l_return_status
3103: ,x_msg_data => x_msg_data
3102: ,x_return_status => l_return_status
3103: ,x_msg_data => x_msg_data
3104: ,x_msg_count => x_msg_count
3105: );
3106: IF l_return_status = FND_API.g_ret_sts_error THEN
3107: RAISE FND_API.g_exc_error;
3108: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3109: RAISE FND_API.g_exc_unexpected_error;
3110: END IF;
3103: ,x_msg_data => x_msg_data
3104: ,x_msg_count => x_msg_count
3105: );
3106: IF l_return_status = FND_API.g_ret_sts_error THEN
3107: RAISE FND_API.g_exc_error;
3108: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3109: RAISE FND_API.g_exc_unexpected_error;
3110: END IF;
3111:
3104: ,x_msg_count => x_msg_count
3105: );
3106: IF l_return_status = FND_API.g_ret_sts_error THEN
3107: RAISE FND_API.g_exc_error;
3108: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3109: RAISE FND_API.g_exc_unexpected_error;
3110: END IF;
3111:
3112:
3105: );
3106: IF l_return_status = FND_API.g_ret_sts_error THEN
3107: RAISE FND_API.g_exc_error;
3108: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3109: RAISE FND_API.g_exc_unexpected_error;
3110: END IF;
3111:
3112:
3113: IF g_debug THEN
3138: ,x_return_status => l_return_status
3139: ,x_msg_data => x_msg_data
3140: ,x_msg_count => x_msg_count
3141: );
3142: IF l_return_status = FND_API.g_ret_sts_error THEN
3143: RAISE FND_API.g_exc_error;
3144: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3145: RAISE FND_API.g_exc_unexpected_error;
3146: END IF;
3139: ,x_msg_data => x_msg_data
3140: ,x_msg_count => x_msg_count
3141: );
3142: IF l_return_status = FND_API.g_ret_sts_error THEN
3143: RAISE FND_API.g_exc_error;
3144: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3145: RAISE FND_API.g_exc_unexpected_error;
3146: END IF;
3147: END IF;
3140: ,x_msg_count => x_msg_count
3141: );
3142: IF l_return_status = FND_API.g_ret_sts_error THEN
3143: RAISE FND_API.g_exc_error;
3144: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3145: RAISE FND_API.g_exc_unexpected_error;
3146: END IF;
3147: END IF;
3148: END IF;
3141: );
3142: IF l_return_status = FND_API.g_ret_sts_error THEN
3143: RAISE FND_API.g_exc_error;
3144: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3145: RAISE FND_API.g_exc_unexpected_error;
3146: END IF;
3147: END IF;
3148: END IF;
3149: END IF;
3175: ,p_tax_credit => p_tax_credit
3176: ,p_freight_credit => p_freight_credit
3177: ,p_total_credit => p_total_credit
3178: ,p_cm_line_tbl => p_cm_line_tbl
3179: ,p_upd_dispute_flag => FND_API.g_false
3180: ,x_cm_customer_trx_id => l_cm_customer_trx_id
3181: ,x_cm_amount => l_cm_amount
3182: ,x_return_status => l_return_status
3183: ,x_msg_data => x_msg_data
3182: ,x_return_status => l_return_status
3183: ,x_msg_data => x_msg_data
3184: ,x_msg_count => x_msg_count
3185: );
3186: IF l_return_status = FND_API.g_ret_sts_error THEN
3187: RAISE FND_API.g_exc_error;
3188: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3189: RAISE FND_API.g_exc_unexpected_error;
3190: END IF;
3183: ,x_msg_data => x_msg_data
3184: ,x_msg_count => x_msg_count
3185: );
3186: IF l_return_status = FND_API.g_ret_sts_error THEN
3187: RAISE FND_API.g_exc_error;
3188: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3189: RAISE FND_API.g_exc_unexpected_error;
3190: END IF;
3191: ELSE
3184: ,x_msg_count => x_msg_count
3185: );
3186: IF l_return_status = FND_API.g_ret_sts_error THEN
3187: RAISE FND_API.g_exc_error;
3188: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3189: RAISE FND_API.g_exc_unexpected_error;
3190: END IF;
3191: ELSE
3192: -- 1. Create credit memo for the invoice
3185: );
3186: IF l_return_status = FND_API.g_ret_sts_error THEN
3187: RAISE FND_API.g_exc_error;
3188: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3189: RAISE FND_API.g_exc_unexpected_error;
3190: END IF;
3191: ELSE
3192: -- 1. Create credit memo for the invoice
3193: IF g_debug THEN
3204: ,p_tax_credit => p_tax_credit
3205: ,p_freight_credit => p_freight_credit
3206: ,p_total_credit => p_total_credit
3207: ,p_cm_line_tbl => p_cm_line_tbl
3208: ,p_upd_dispute_flag => FND_API.g_false
3209: ,x_cm_customer_trx_id => l_cm_customer_trx_id
3210: ,x_cm_amount => l_cm_amount
3211: ,x_return_status => l_return_status
3212: ,x_msg_data => x_msg_data
3211: ,x_return_status => l_return_status
3212: ,x_msg_data => x_msg_data
3213: ,x_msg_count => x_msg_count
3214: );
3215: IF l_return_status = FND_API.g_ret_sts_error THEN
3216: RAISE FND_API.g_exc_error;
3217: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3218: RAISE FND_API.g_exc_unexpected_error;
3219: END IF;
3212: ,x_msg_data => x_msg_data
3213: ,x_msg_count => x_msg_count
3214: );
3215: IF l_return_status = FND_API.g_ret_sts_error THEN
3216: RAISE FND_API.g_exc_error;
3217: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3218: RAISE FND_API.g_exc_unexpected_error;
3219: END IF;
3220: END IF;
3213: ,x_msg_count => x_msg_count
3214: );
3215: IF l_return_status = FND_API.g_ret_sts_error THEN
3216: RAISE FND_API.g_exc_error;
3217: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3218: RAISE FND_API.g_exc_unexpected_error;
3219: END IF;
3220: END IF;
3221: END IF;
3214: );
3215: IF l_return_status = FND_API.g_ret_sts_error THEN
3216: RAISE FND_API.g_exc_error;
3217: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3218: RAISE FND_API.g_exc_unexpected_error;
3219: END IF;
3220: END IF;
3221: END IF;
3222:
3226: IF l_cm_customer_trx_id IS NOT NULL THEN
3227: -- Update Deduction payment detail
3228: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
3229: p_api_version => l_api_version
3230: ,p_init_msg_list => FND_API.g_false
3231: ,p_commit => FND_API.g_false
3232: ,p_validation_level => FND_API.g_valid_level_full
3233: ,x_return_status => l_return_status
3234: ,x_msg_data => x_msg_data
3227: -- Update Deduction payment detail
3228: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
3229: p_api_version => l_api_version
3230: ,p_init_msg_list => FND_API.g_false
3231: ,p_commit => FND_API.g_false
3232: ,p_validation_level => FND_API.g_valid_level_full
3233: ,x_return_status => l_return_status
3234: ,x_msg_data => x_msg_data
3235: ,x_msg_count => x_msg_count
3228: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
3229: p_api_version => l_api_version
3230: ,p_init_msg_list => FND_API.g_false
3231: ,p_commit => FND_API.g_false
3232: ,p_validation_level => FND_API.g_valid_level_full
3233: ,x_return_status => l_return_status
3234: ,x_msg_data => x_msg_data
3235: ,x_msg_count => x_msg_count
3236: ,p_claim_id => p_claim_rec.claim_id
3239: ,p_cash_receipt_id => NULL
3240: ,p_customer_trx_id => l_cm_customer_trx_id
3241: ,p_adjust_id => NULL
3242: );
3243: IF l_return_status = FND_API.g_ret_sts_error THEN
3244: RAISE FND_API.g_exc_error;
3245: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3246: RAISE FND_API.g_exc_unexpected_error;
3247: END IF;
3240: ,p_customer_trx_id => l_cm_customer_trx_id
3241: ,p_adjust_id => NULL
3242: );
3243: IF l_return_status = FND_API.g_ret_sts_error THEN
3244: RAISE FND_API.g_exc_error;
3245: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3246: RAISE FND_API.g_exc_unexpected_error;
3247: END IF;
3248: END IF;
3241: ,p_adjust_id => NULL
3242: );
3243: IF l_return_status = FND_API.g_ret_sts_error THEN
3244: RAISE FND_API.g_exc_error;
3245: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3246: RAISE FND_API.g_exc_unexpected_error;
3247: END IF;
3248: END IF;
3249:
3242: );
3243: IF l_return_status = FND_API.g_ret_sts_error THEN
3244: RAISE FND_API.g_exc_error;
3245: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3246: RAISE FND_API.g_exc_unexpected_error;
3247: END IF;
3248: END IF;
3249:
3250: IF g_debug THEN
3250: IF g_debug THEN
3251: OZF_Utility_PVT.debug_message(l_full_name||': end');
3252: END IF;
3253: EXCEPTION
3254: WHEN FND_API.g_exc_error THEN
3255: x_return_status := FND_API.g_ret_sts_error;
3256:
3257: WHEN FND_API.g_exc_unexpected_error THEN
3258: x_return_status := FND_API.g_ret_sts_unexp_error ;
3251: OZF_Utility_PVT.debug_message(l_full_name||': end');
3252: END IF;
3253: EXCEPTION
3254: WHEN FND_API.g_exc_error THEN
3255: x_return_status := FND_API.g_ret_sts_error;
3256:
3257: WHEN FND_API.g_exc_unexpected_error THEN
3258: x_return_status := FND_API.g_ret_sts_unexp_error ;
3259:
3253: EXCEPTION
3254: WHEN FND_API.g_exc_error THEN
3255: x_return_status := FND_API.g_ret_sts_error;
3256:
3257: WHEN FND_API.g_exc_unexpected_error THEN
3258: x_return_status := FND_API.g_ret_sts_unexp_error ;
3259:
3260: WHEN OTHERS THEN
3261: x_return_status := FND_API.g_ret_sts_unexp_error ;
3254: WHEN FND_API.g_exc_error THEN
3255: x_return_status := FND_API.g_ret_sts_error;
3256:
3257: WHEN FND_API.g_exc_unexpected_error THEN
3258: x_return_status := FND_API.g_ret_sts_unexp_error ;
3259:
3260: WHEN OTHERS THEN
3261: x_return_status := FND_API.g_ret_sts_unexp_error ;
3262: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3257: WHEN FND_API.g_exc_unexpected_error THEN
3258: x_return_status := FND_API.g_ret_sts_unexp_error ;
3259:
3260: WHEN OTHERS THEN
3261: x_return_status := FND_API.g_ret_sts_unexp_error ;
3262: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3263: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3264: END IF;
3265:
3428: END IF;
3429:
3430: SAVEPOINT Pay_by_Invoice_Credit;
3431:
3432: x_return_status := FND_API.g_ret_sts_success;
3433:
3434: ------------------------ start -------------------------
3435: /*------------------------------------------------------------*
3436: | Check Claim Line invoice to see if need to process settement workflow
3441: l_process_setl_wf := OZF_AR_VALIDATION_PVT.Check_to_Process_SETL_WF(
3442: p_claim_rec => p_claim_rec
3443: ,x_return_status => l_return_status
3444: );
3445: IF l_return_status = FND_API.g_ret_sts_error THEN
3446: RAISE FND_API.g_exc_error;
3447: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3448: RAISE FND_API.g_exc_unexpected_error;
3449: END IF;
3442: p_claim_rec => p_claim_rec
3443: ,x_return_status => l_return_status
3444: );
3445: IF l_return_status = FND_API.g_ret_sts_error THEN
3446: RAISE FND_API.g_exc_error;
3447: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3448: RAISE FND_API.g_exc_unexpected_error;
3449: END IF;
3450:
3443: ,x_return_status => l_return_status
3444: );
3445: IF l_return_status = FND_API.g_ret_sts_error THEN
3446: RAISE FND_API.g_exc_error;
3447: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3448: RAISE FND_API.g_exc_unexpected_error;
3449: END IF;
3450:
3451:
3444: );
3445: IF l_return_status = FND_API.g_ret_sts_error THEN
3446: RAISE FND_API.g_exc_error;
3447: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3448: RAISE FND_API.g_exc_unexpected_error;
3449: END IF;
3450:
3451:
3452: IF g_debug THEN
3467: ,x_return_status => l_return_status
3468: ,x_msg_data => x_msg_data
3469: ,x_msg_count => x_msg_count
3470: );
3471: IF l_return_status = FND_API.g_ret_sts_error THEN
3472: RAISE FND_API.g_exc_error;
3473: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3474: RAISE FND_API.g_exc_unexpected_error;
3475: END IF;
3468: ,x_msg_data => x_msg_data
3469: ,x_msg_count => x_msg_count
3470: );
3471: IF l_return_status = FND_API.g_ret_sts_error THEN
3472: RAISE FND_API.g_exc_error;
3473: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3474: RAISE FND_API.g_exc_unexpected_error;
3475: END IF;
3476: l_cm_customer_trx_id := NULL;
3469: ,x_msg_count => x_msg_count
3470: );
3471: IF l_return_status = FND_API.g_ret_sts_error THEN
3472: RAISE FND_API.g_exc_error;
3473: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3474: RAISE FND_API.g_exc_unexpected_error;
3475: END IF;
3476: l_cm_customer_trx_id := NULL;
3477: ELSE
3470: );
3471: IF l_return_status = FND_API.g_ret_sts_error THEN
3472: RAISE FND_API.g_exc_error;
3473: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3474: RAISE FND_API.g_exc_unexpected_error;
3475: END IF;
3476: l_cm_customer_trx_id := NULL;
3477: ELSE
3478:
3485: ,x_return_status => l_return_status
3486: ,x_msg_data => x_msg_data
3487: ,x_msg_count => x_msg_count
3488: );
3489: IF l_return_status = FND_API.g_ret_sts_error THEN
3490: RAISE FND_API.g_exc_error;
3491: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3492: RAISE FND_API.g_exc_unexpected_error;
3493: END IF;
3486: ,x_msg_data => x_msg_data
3487: ,x_msg_count => x_msg_count
3488: );
3489: IF l_return_status = FND_API.g_ret_sts_error THEN
3490: RAISE FND_API.g_exc_error;
3491: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3492: RAISE FND_API.g_exc_unexpected_error;
3493: END IF;
3494:
3487: ,x_msg_count => x_msg_count
3488: );
3489: IF l_return_status = FND_API.g_ret_sts_error THEN
3490: RAISE FND_API.g_exc_error;
3491: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3492: RAISE FND_API.g_exc_unexpected_error;
3493: END IF;
3494:
3495:
3488: );
3489: IF l_return_status = FND_API.g_ret_sts_error THEN
3490: RAISE FND_API.g_exc_error;
3491: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3492: RAISE FND_API.g_exc_unexpected_error;
3493: END IF;
3494:
3495:
3496: -- For each invoice to be credited, get credit details and create creditmemo.
3519: ,x_tax_credit => l_tax_credit
3520: ,x_freight_credit => l_freight_credit
3521: ,x_total_credit => l_total_credit
3522: ,x_cm_line_tbl => l_cm_line_tbl);
3523: IF l_return_status = FND_API.g_ret_sts_error THEN
3524: RAISE FND_API.g_exc_error;
3525: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3526: RAISE FND_API.g_exc_unexpected_error;
3527: END IF;
3520: ,x_freight_credit => l_freight_credit
3521: ,x_total_credit => l_total_credit
3522: ,x_cm_line_tbl => l_cm_line_tbl);
3523: IF l_return_status = FND_API.g_ret_sts_error THEN
3524: RAISE FND_API.g_exc_error;
3525: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3526: RAISE FND_API.g_exc_unexpected_error;
3527: END IF;
3528: -- Fix for Bug 13640947
3521: ,x_total_credit => l_total_credit
3522: ,x_cm_line_tbl => l_cm_line_tbl);
3523: IF l_return_status = FND_API.g_ret_sts_error THEN
3524: RAISE FND_API.g_exc_error;
3525: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3526: RAISE FND_API.g_exc_unexpected_error;
3527: END IF;
3528: -- Fix for Bug 13640947
3529: Pay_by_Single_Invoice_Credit(
3522: ,x_cm_line_tbl => l_cm_line_tbl);
3523: IF l_return_status = FND_API.g_ret_sts_error THEN
3524: RAISE FND_API.g_exc_error;
3525: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3526: RAISE FND_API.g_exc_unexpected_error;
3527: END IF;
3528: -- Fix for Bug 13640947
3529: Pay_by_Single_Invoice_Credit(
3530: p_claim_rec => p_claim_rec
3540: ,x_return_status => l_return_status
3541: ,x_msg_data => x_msg_data
3542: ,x_msg_count => x_msg_count
3543: );
3544: IF l_return_status = FND_API.g_ret_sts_error THEN
3545: RAISE FND_API.g_exc_error;
3546: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3547: RAISE FND_API.g_exc_unexpected_error;
3548: END IF;
3541: ,x_msg_data => x_msg_data
3542: ,x_msg_count => x_msg_count
3543: );
3544: IF l_return_status = FND_API.g_ret_sts_error THEN
3545: RAISE FND_API.g_exc_error;
3546: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3547: RAISE FND_API.g_exc_unexpected_error;
3548: END IF;
3549: END LOOP;
3542: ,x_msg_count => x_msg_count
3543: );
3544: IF l_return_status = FND_API.g_ret_sts_error THEN
3545: RAISE FND_API.g_exc_error;
3546: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3547: RAISE FND_API.g_exc_unexpected_error;
3548: END IF;
3549: END LOOP;
3550: CLOSE csr_claim_lines_ar;
3543: );
3544: IF l_return_status = FND_API.g_ret_sts_error THEN
3545: RAISE FND_API.g_exc_error;
3546: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3547: RAISE FND_API.g_exc_unexpected_error;
3548: END IF;
3549: END LOOP;
3550: CLOSE csr_claim_lines_ar;
3551:
3565: ,x_freight_credit => l_freight_credit
3566: ,x_total_credit => l_total_credit
3567: ,x_cm_line_tbl => l_cm_line_tbl);
3568:
3569: IF l_return_status = FND_API.g_ret_sts_error THEN
3570: RAISE FND_API.g_exc_error;
3571: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3572: RAISE FND_API.g_exc_unexpected_error;
3573: END IF;
3566: ,x_total_credit => l_total_credit
3567: ,x_cm_line_tbl => l_cm_line_tbl);
3568:
3569: IF l_return_status = FND_API.g_ret_sts_error THEN
3570: RAISE FND_API.g_exc_error;
3571: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3572: RAISE FND_API.g_exc_unexpected_error;
3573: END IF;
3574:
3567: ,x_cm_line_tbl => l_cm_line_tbl);
3568:
3569: IF l_return_status = FND_API.g_ret_sts_error THEN
3570: RAISE FND_API.g_exc_error;
3571: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3572: RAISE FND_API.g_exc_unexpected_error;
3573: END IF;
3574:
3575: Pay_by_Single_Invoice_Credit(
3568:
3569: IF l_return_status = FND_API.g_ret_sts_error THEN
3570: RAISE FND_API.g_exc_error;
3571: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3572: RAISE FND_API.g_exc_unexpected_error;
3573: END IF;
3574:
3575: Pay_by_Single_Invoice_Credit(
3576: p_claim_rec => p_claim_rec
3586: ,x_return_status => l_return_status
3587: ,x_msg_data => x_msg_data
3588: ,x_msg_count => x_msg_count
3589: );
3590: IF l_return_status = FND_API.g_ret_sts_error THEN
3591: RAISE FND_API.g_exc_error;
3592: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3593: RAISE FND_API.g_exc_unexpected_error;
3594: END IF;
3587: ,x_msg_data => x_msg_data
3588: ,x_msg_count => x_msg_count
3589: );
3590: IF l_return_status = FND_API.g_ret_sts_error THEN
3591: RAISE FND_API.g_exc_error;
3592: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3593: RAISE FND_API.g_exc_unexpected_error;
3594: END IF;
3595: END LOOP;
3588: ,x_msg_count => x_msg_count
3589: );
3590: IF l_return_status = FND_API.g_ret_sts_error THEN
3591: RAISE FND_API.g_exc_error;
3592: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3593: RAISE FND_API.g_exc_unexpected_error;
3594: END IF;
3595: END LOOP;
3596: CLOSE csr_claim_lines;
3589: );
3590: IF l_return_status = FND_API.g_ret_sts_error THEN
3591: RAISE FND_API.g_exc_error;
3592: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3593: RAISE FND_API.g_exc_unexpected_error;
3594: END IF;
3595: END LOOP;
3596: CLOSE csr_claim_lines;
3597: END IF;
3612: ,x_tax_credit => l_tax_credit
3613: ,x_freight_credit => l_freight_credit
3614: ,x_total_credit => l_total_credit
3615: ,x_cm_line_tbl => l_cm_line_tbl);
3616: IF l_return_status = FND_API.g_ret_sts_error THEN
3617: RAISE FND_API.g_exc_error;
3618: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3619: RAISE FND_API.g_exc_unexpected_error;
3620: END IF;
3613: ,x_freight_credit => l_freight_credit
3614: ,x_total_credit => l_total_credit
3615: ,x_cm_line_tbl => l_cm_line_tbl);
3616: IF l_return_status = FND_API.g_ret_sts_error THEN
3617: RAISE FND_API.g_exc_error;
3618: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3619: RAISE FND_API.g_exc_unexpected_error;
3620: END IF;
3621:
3614: ,x_total_credit => l_total_credit
3615: ,x_cm_line_tbl => l_cm_line_tbl);
3616: IF l_return_status = FND_API.g_ret_sts_error THEN
3617: RAISE FND_API.g_exc_error;
3618: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3619: RAISE FND_API.g_exc_unexpected_error;
3620: END IF;
3621:
3622: Pay_by_Single_Invoice_Credit(
3615: ,x_cm_line_tbl => l_cm_line_tbl);
3616: IF l_return_status = FND_API.g_ret_sts_error THEN
3617: RAISE FND_API.g_exc_error;
3618: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3619: RAISE FND_API.g_exc_unexpected_error;
3620: END IF;
3621:
3622: Pay_by_Single_Invoice_Credit(
3623: p_claim_rec => p_claim_rec
3633: ,x_return_status => l_return_status
3634: ,x_msg_data => x_msg_data
3635: ,x_msg_count => x_msg_count
3636: );
3637: IF l_return_status = FND_API.g_ret_sts_error THEN
3638: RAISE FND_API.g_exc_error;
3639: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3640: RAISE FND_API.g_exc_unexpected_error;
3641: END IF;
3634: ,x_msg_data => x_msg_data
3635: ,x_msg_count => x_msg_count
3636: );
3637: IF l_return_status = FND_API.g_ret_sts_error THEN
3638: RAISE FND_API.g_exc_error;
3639: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3640: RAISE FND_API.g_exc_unexpected_error;
3641: END IF;
3642: END LOOP;
3635: ,x_msg_count => x_msg_count
3636: );
3637: IF l_return_status = FND_API.g_ret_sts_error THEN
3638: RAISE FND_API.g_exc_error;
3639: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3640: RAISE FND_API.g_exc_unexpected_error;
3641: END IF;
3642: END LOOP;
3643: CLOSE csr_claim_lines;
3636: );
3637: IF l_return_status = FND_API.g_ret_sts_error THEN
3638: RAISE FND_API.g_exc_error;
3639: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3640: RAISE FND_API.g_exc_unexpected_error;
3641: END IF;
3642: END LOOP;
3643: CLOSE csr_claim_lines;
3644:
3650: FND_MESSAGE.set_name('OZF', 'OZF_AR_PAYMENT_NOTMATCH');
3651: FND_MESSAGE.set_token('CLAIM_NUMBER', p_claim_rec.claim_number);
3652: FND_MSG_PUB.add;
3653: END IF;
3654: RAISE FND_API.g_exc_error;
3655: END IF;
3656: EXCEPTION
3657: WHEN FND_API.g_exc_error THEN
3658: x_return_status := FND_API.g_ret_sts_error;
3653: END IF;
3654: RAISE FND_API.g_exc_error;
3655: END IF;
3656: EXCEPTION
3657: WHEN FND_API.g_exc_error THEN
3658: x_return_status := FND_API.g_ret_sts_error;
3659: ROLLBACK TO Pay_by_Invoice_Credit;
3660:
3661: WHEN FND_API.g_exc_unexpected_error THEN
3654: RAISE FND_API.g_exc_error;
3655: END IF;
3656: EXCEPTION
3657: WHEN FND_API.g_exc_error THEN
3658: x_return_status := FND_API.g_ret_sts_error;
3659: ROLLBACK TO Pay_by_Invoice_Credit;
3660:
3661: WHEN FND_API.g_exc_unexpected_error THEN
3662: x_return_status := FND_API.g_ret_sts_unexp_error ;
3657: WHEN FND_API.g_exc_error THEN
3658: x_return_status := FND_API.g_ret_sts_error;
3659: ROLLBACK TO Pay_by_Invoice_Credit;
3660:
3661: WHEN FND_API.g_exc_unexpected_error THEN
3662: x_return_status := FND_API.g_ret_sts_unexp_error ;
3663: ROLLBACK TO Pay_by_Invoice_Credit;
3664:
3665: WHEN OTHERS THEN
3658: x_return_status := FND_API.g_ret_sts_error;
3659: ROLLBACK TO Pay_by_Invoice_Credit;
3660:
3661: WHEN FND_API.g_exc_unexpected_error THEN
3662: x_return_status := FND_API.g_ret_sts_unexp_error ;
3663: ROLLBACK TO Pay_by_Invoice_Credit;
3664:
3665: WHEN OTHERS THEN
3666: x_return_status := FND_API.g_ret_sts_unexp_error ;
3662: x_return_status := FND_API.g_ret_sts_unexp_error ;
3663: ROLLBACK TO Pay_by_Invoice_Credit;
3664:
3665: WHEN OTHERS THEN
3666: x_return_status := FND_API.g_ret_sts_unexp_error ;
3667: ROLLBACK TO Pay_by_Invoice_Credit;
3668: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3669: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3670: END IF;
3791: -------------------- initialize -----------------------
3792: IF g_debug THEN
3793: OZF_Utility_PVT.debug_message(l_full_name||': start');
3794: END IF;
3795: x_return_status := FND_API.g_ret_sts_success;
3796:
3797: ------------------------ start -------------------------
3798: IF p_payment_reference_id IS NULL OR
3799: p_payment_reference_id = FND_API.g_miss_num THEN
3795: x_return_status := FND_API.g_ret_sts_success;
3796:
3797: ------------------------ start -------------------------
3798: IF p_payment_reference_id IS NULL OR
3799: p_payment_reference_id = FND_API.g_miss_num THEN
3800: /*------------------------------------------------------------*
3801: | No payment reference specified (No open credit memo specified) -> AutoInvoice
3802: *------------------------------------------------------------*/
3803: IF g_debug THEN
3805: END IF;
3806: -- 1. AutoInvoice
3807: OZF_AR_INTERFACE_PVT.Interface_Claim(
3808: p_api_version => l_api_version
3809: ,p_init_msg_list => FND_API.g_false
3810: ,p_commit => FND_API.g_false
3811: ,p_validation_level => FND_API.g_valid_level_full
3812: ,x_return_status => l_return_status
3813: ,x_msg_data => x_msg_data
3806: -- 1. AutoInvoice
3807: OZF_AR_INTERFACE_PVT.Interface_Claim(
3808: p_api_version => l_api_version
3809: ,p_init_msg_list => FND_API.g_false
3810: ,p_commit => FND_API.g_false
3811: ,p_validation_level => FND_API.g_valid_level_full
3812: ,x_return_status => l_return_status
3813: ,x_msg_data => x_msg_data
3814: ,x_msg_count => x_msg_count
3807: OZF_AR_INTERFACE_PVT.Interface_Claim(
3808: p_api_version => l_api_version
3809: ,p_init_msg_list => FND_API.g_false
3810: ,p_commit => FND_API.g_false
3811: ,p_validation_level => FND_API.g_valid_level_full
3812: ,x_return_status => l_return_status
3813: ,x_msg_data => x_msg_data
3814: ,x_msg_count => x_msg_count
3815: ,p_claim_id => p_claim_rec.claim_id
3813: ,x_msg_data => x_msg_data
3814: ,x_msg_count => x_msg_count
3815: ,p_claim_id => p_claim_rec.claim_id
3816: );
3817: IF l_return_status = FND_API.g_ret_sts_error THEN
3818: RAISE FND_API.g_exc_error;
3819: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3820: RAISE FND_API.g_exc_unexpected_error;
3821: END IF;
3814: ,x_msg_count => x_msg_count
3815: ,p_claim_id => p_claim_rec.claim_id
3816: );
3817: IF l_return_status = FND_API.g_ret_sts_error THEN
3818: RAISE FND_API.g_exc_error;
3819: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3820: RAISE FND_API.g_exc_unexpected_error;
3821: END IF;
3822: OZF_Utility_PVT.debug_message('Return Status after OZF_AR_INTERFACE_PVT.Interface_Claim:' || l_return_status);
3815: ,p_claim_id => p_claim_rec.claim_id
3816: );
3817: IF l_return_status = FND_API.g_ret_sts_error THEN
3818: RAISE FND_API.g_exc_error;
3819: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3820: RAISE FND_API.g_exc_unexpected_error;
3821: END IF;
3822: OZF_Utility_PVT.debug_message('Return Status after OZF_AR_INTERFACE_PVT.Interface_Claim:' || l_return_status);
3823: --2. Update Deduction payment detail --
3816: );
3817: IF l_return_status = FND_API.g_ret_sts_error THEN
3818: RAISE FND_API.g_exc_error;
3819: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3820: RAISE FND_API.g_exc_unexpected_error;
3821: END IF;
3822: OZF_Utility_PVT.debug_message('Return Status after OZF_AR_INTERFACE_PVT.Interface_Claim:' || l_return_status);
3823: --2. Update Deduction payment detail --
3824: l_online_upd_ded_status := FALSE;
3832: ,x_return_status => l_return_status
3833: ,x_msg_data => x_msg_data
3834: ,x_msg_count => x_msg_count
3835: );
3836: IF l_return_status = FND_API.g_ret_sts_error THEN
3837: RAISE FND_API.g_exc_error;
3838: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3839: RAISE FND_API.g_exc_unexpected_error;
3840: END IF;
3833: ,x_msg_data => x_msg_data
3834: ,x_msg_count => x_msg_count
3835: );
3836: IF l_return_status = FND_API.g_ret_sts_error THEN
3837: RAISE FND_API.g_exc_error;
3838: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3839: RAISE FND_API.g_exc_unexpected_error;
3840: END IF;
3841:
3834: ,x_msg_count => x_msg_count
3835: );
3836: IF l_return_status = FND_API.g_ret_sts_error THEN
3837: RAISE FND_API.g_exc_error;
3838: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3839: RAISE FND_API.g_exc_unexpected_error;
3840: END IF;
3841:
3842: IF p_claim_rec.receipt_id IS NOT NULL THEN
3835: );
3836: IF l_return_status = FND_API.g_ret_sts_error THEN
3837: RAISE FND_API.g_exc_error;
3838: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3839: RAISE FND_API.g_exc_unexpected_error;
3840: END IF;
3841:
3842: IF p_claim_rec.receipt_id IS NOT NULL THEN
3843: --//Buffix : 9873938
3894: ,x_return_status => l_return_status
3895: ,x_msg_data => x_msg_data
3896: ,x_msg_count => x_msg_count
3897: );
3898: IF l_return_status = FND_API.g_ret_sts_error THEN
3899: RAISE FND_API.g_exc_error;
3900: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3901: RAISE FND_API.g_exc_unexpected_error;
3902: END IF;
3895: ,x_msg_data => x_msg_data
3896: ,x_msg_count => x_msg_count
3897: );
3898: IF l_return_status = FND_API.g_ret_sts_error THEN
3899: RAISE FND_API.g_exc_error;
3900: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3901: RAISE FND_API.g_exc_unexpected_error;
3902: END IF;
3903:
3896: ,x_msg_count => x_msg_count
3897: );
3898: IF l_return_status = FND_API.g_ret_sts_error THEN
3899: RAISE FND_API.g_exc_error;
3900: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3901: RAISE FND_API.g_exc_unexpected_error;
3902: END IF;
3903:
3904: IF l_cm_applied_on_rec_amt IS NULL THEN
3897: );
3898: IF l_return_status = FND_API.g_ret_sts_error THEN
3899: RAISE FND_API.g_exc_error;
3900: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3901: RAISE FND_API.g_exc_unexpected_error;
3902: END IF;
3903:
3904: IF l_cm_applied_on_rec_amt IS NULL THEN
3905: IF g_debug THEN
3928: ,x_return_status => l_return_status
3929: ,x_msg_data => x_msg_data
3930: ,x_msg_count => x_msg_count
3931: );
3932: IF l_return_status = FND_API.g_ret_sts_error THEN
3933: RAISE FND_API.g_exc_error;
3934: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3935: RAISE FND_API.g_exc_unexpected_error;
3936: END IF;
3929: ,x_msg_data => x_msg_data
3930: ,x_msg_count => x_msg_count
3931: );
3932: IF l_return_status = FND_API.g_ret_sts_error THEN
3933: RAISE FND_API.g_exc_error;
3934: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3935: RAISE FND_API.g_exc_unexpected_error;
3936: END IF;
3937: ELSE
3930: ,x_msg_count => x_msg_count
3931: );
3932: IF l_return_status = FND_API.g_ret_sts_error THEN
3933: RAISE FND_API.g_exc_error;
3934: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3935: RAISE FND_API.g_exc_unexpected_error;
3936: END IF;
3937: ELSE
3938: IF g_debug THEN
3931: );
3932: IF l_return_status = FND_API.g_ret_sts_error THEN
3933: RAISE FND_API.g_exc_error;
3934: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3935: RAISE FND_API.g_exc_unexpected_error;
3936: END IF;
3937: ELSE
3938: IF g_debug THEN
3939: OZF_Utility_PVT.debug_message('Invoice Deduction: Pay by Previous Open Credit Memo which already exists on the receipt');
3952: arp_deduction_cover2.reapply_credit_memo(
3953: p_customer_trx_id => p_payment_reference_id ,
3954: p_cash_receipt_id => p_claim_rec.receipt_id,
3955: p_amount_applied => l_p_new_applied_amount, --4684931
3956: p_init_msg_list => FND_API.g_false,
3957: x_return_status => l_return_status,
3958: x_msg_count => x_msg_count,
3959: x_msg_data => x_msg_data);
3960: IF l_return_status = FND_API.g_ret_sts_error THEN
3956: p_init_msg_list => FND_API.g_false,
3957: x_return_status => l_return_status,
3958: x_msg_count => x_msg_count,
3959: x_msg_data => x_msg_data);
3960: IF l_return_status = FND_API.g_ret_sts_error THEN
3961: RAISE FND_API.g_exc_error;
3962: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3963: RAISE FND_API.g_exc_unexpected_error;
3964: END IF;
3957: x_return_status => l_return_status,
3958: x_msg_count => x_msg_count,
3959: x_msg_data => x_msg_data);
3960: IF l_return_status = FND_API.g_ret_sts_error THEN
3961: RAISE FND_API.g_exc_error;
3962: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3963: RAISE FND_API.g_exc_unexpected_error;
3964: END IF;
3965:
3958: x_msg_count => x_msg_count,
3959: x_msg_data => x_msg_data);
3960: IF l_return_status = FND_API.g_ret_sts_error THEN
3961: RAISE FND_API.g_exc_error;
3962: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3963: RAISE FND_API.g_exc_unexpected_error;
3964: END IF;
3965:
3966: END IF;
3959: x_msg_data => x_msg_data);
3960: IF l_return_status = FND_API.g_ret_sts_error THEN
3961: RAISE FND_API.g_exc_error;
3962: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3963: RAISE FND_API.g_exc_unexpected_error;
3964: END IF;
3965:
3966: END IF;
3967:
3977: ,x_return_status => l_return_status
3978: ,x_msg_data => x_msg_data
3979: ,x_msg_count => x_msg_count
3980: );
3981: IF l_return_status = FND_API.g_ret_sts_error THEN
3982: RAISE FND_API.g_exc_error;
3983: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3984: RAISE FND_API.g_exc_unexpected_error;
3985: END IF;
3978: ,x_msg_data => x_msg_data
3979: ,x_msg_count => x_msg_count
3980: );
3981: IF l_return_status = FND_API.g_ret_sts_error THEN
3982: RAISE FND_API.g_exc_error;
3983: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3984: RAISE FND_API.g_exc_unexpected_error;
3985: END IF;
3986:
3979: ,x_msg_count => x_msg_count
3980: );
3981: IF l_return_status = FND_API.g_ret_sts_error THEN
3982: RAISE FND_API.g_exc_error;
3983: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3984: RAISE FND_API.g_exc_unexpected_error;
3985: END IF;
3986:
3987: l_online_upd_ded_status := TRUE;
3980: );
3981: IF l_return_status = FND_API.g_ret_sts_error THEN
3982: RAISE FND_API.g_exc_error;
3983: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3984: RAISE FND_API.g_exc_unexpected_error;
3985: END IF;
3986:
3987: l_online_upd_ded_status := TRUE;
3988:
4028: ,x_return_status => l_return_status
4029: ,x_msg_data => x_msg_data
4030: ,x_msg_count => x_msg_count
4031: );
4032: IF l_return_status = FND_API.g_ret_sts_error THEN
4033: RAISE FND_API.g_exc_error;
4034: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4035: RAISE FND_API.g_exc_unexpected_error;
4036: END IF;
4029: ,x_msg_data => x_msg_data
4030: ,x_msg_count => x_msg_count
4031: );
4032: IF l_return_status = FND_API.g_ret_sts_error THEN
4033: RAISE FND_API.g_exc_error;
4034: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4035: RAISE FND_API.g_exc_unexpected_error;
4036: END IF;
4037: IF g_debug THEN
4030: ,x_msg_count => x_msg_count
4031: );
4032: IF l_return_status = FND_API.g_ret_sts_error THEN
4033: RAISE FND_API.g_exc_error;
4034: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4035: RAISE FND_API.g_exc_unexpected_error;
4036: END IF;
4037: IF g_debug THEN
4038: OZF_Utility_PVT.debug_message('Receipt Deduction -> 2. Unapply claim investigation');
4031: );
4032: IF l_return_status = FND_API.g_ret_sts_error THEN
4033: RAISE FND_API.g_exc_error;
4034: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4035: RAISE FND_API.g_exc_unexpected_error;
4036: END IF;
4037: IF g_debug THEN
4038: OZF_Utility_PVT.debug_message('Receipt Deduction -> 2. Unapply claim investigation');
4039: END IF;
4062: arp_deduction_cover2.reapply_credit_memo(
4063: p_customer_trx_id => p_payment_reference_id ,
4064: p_cash_receipt_id => p_claim_rec.receipt_id,
4065: p_amount_applied => l_p_new_applied_amount,
4066: p_init_msg_list => FND_API.g_false,
4067: x_return_status => l_return_status,
4068: x_msg_count => x_msg_count,
4069: x_msg_data => x_msg_data);
4070: IF l_return_status = FND_API.g_ret_sts_error THEN
4066: p_init_msg_list => FND_API.g_false,
4067: x_return_status => l_return_status,
4068: x_msg_count => x_msg_count,
4069: x_msg_data => x_msg_data);
4070: IF l_return_status = FND_API.g_ret_sts_error THEN
4071: RAISE FND_API.g_exc_error;
4072: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4073: RAISE FND_API.g_exc_unexpected_error;
4074: END IF;
4067: x_return_status => l_return_status,
4068: x_msg_count => x_msg_count,
4069: x_msg_data => x_msg_data);
4070: IF l_return_status = FND_API.g_ret_sts_error THEN
4071: RAISE FND_API.g_exc_error;
4072: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4073: RAISE FND_API.g_exc_unexpected_error;
4074: END IF;
4075: END IF;
4068: x_msg_count => x_msg_count,
4069: x_msg_data => x_msg_data);
4070: IF l_return_status = FND_API.g_ret_sts_error THEN
4071: RAISE FND_API.g_exc_error;
4072: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4073: RAISE FND_API.g_exc_unexpected_error;
4074: END IF;
4075: END IF;
4076:
4069: x_msg_data => x_msg_data);
4070: IF l_return_status = FND_API.g_ret_sts_error THEN
4071: RAISE FND_API.g_exc_error;
4072: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4073: RAISE FND_API.g_exc_unexpected_error;
4074: END IF;
4075: END IF;
4076:
4077: -- 2. Unapply claim investigation
4089: ,x_return_status => l_return_status
4090: ,x_msg_data => x_msg_data
4091: ,x_msg_count => x_msg_count
4092: );
4093: IF l_return_status = FND_API.g_ret_sts_error THEN
4094: RAISE FND_API.g_exc_error;
4095: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4096: RAISE FND_API.g_exc_unexpected_error;
4097: END IF;
4090: ,x_msg_data => x_msg_data
4091: ,x_msg_count => x_msg_count
4092: );
4093: IF l_return_status = FND_API.g_ret_sts_error THEN
4094: RAISE FND_API.g_exc_error;
4095: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4096: RAISE FND_API.g_exc_unexpected_error;
4097: END IF;
4098: l_online_upd_ded_status := TRUE;
4091: ,x_msg_count => x_msg_count
4092: );
4093: IF l_return_status = FND_API.g_ret_sts_error THEN
4094: RAISE FND_API.g_exc_error;
4095: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4096: RAISE FND_API.g_exc_unexpected_error;
4097: END IF;
4098: l_online_upd_ded_status := TRUE;
4099: END IF; -- end if p_deduction_type
4092: );
4093: IF l_return_status = FND_API.g_ret_sts_error THEN
4094: RAISE FND_API.g_exc_error;
4095: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4096: RAISE FND_API.g_exc_unexpected_error;
4097: END IF;
4098: l_online_upd_ded_status := TRUE;
4099: END IF; -- end if p_deduction_type
4100: END IF; -- end if payment_reference_id is null
4105: IF l_online_upd_ded_status THEN
4106: -- Update Deduction payment detail
4107: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
4108: p_api_version => l_api_version
4109: ,p_init_msg_list => FND_API.g_false
4110: ,p_commit => FND_API.g_false
4111: ,p_validation_level => FND_API.g_valid_level_full
4112: ,x_return_status => l_return_status
4113: ,x_msg_data => x_msg_data
4106: -- Update Deduction payment detail
4107: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
4108: p_api_version => l_api_version
4109: ,p_init_msg_list => FND_API.g_false
4110: ,p_commit => FND_API.g_false
4111: ,p_validation_level => FND_API.g_valid_level_full
4112: ,x_return_status => l_return_status
4113: ,x_msg_data => x_msg_data
4114: ,x_msg_count => x_msg_count
4107: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
4108: p_api_version => l_api_version
4109: ,p_init_msg_list => FND_API.g_false
4110: ,p_commit => FND_API.g_false
4111: ,p_validation_level => FND_API.g_valid_level_full
4112: ,x_return_status => l_return_status
4113: ,x_msg_data => x_msg_data
4114: ,x_msg_count => x_msg_count
4115: ,p_claim_id => p_claim_rec.claim_id
4119: ,p_customer_trx_id => p_payment_reference_id
4120: ,p_adjust_id => NULL
4121: ,p_settlement_amount => l_settlement_amount -- Bug4308188
4122: );
4123: IF l_return_status = FND_API.g_ret_sts_error THEN
4124: RAISE FND_API.g_exc_error;
4125: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4126: RAISE FND_API.g_exc_unexpected_error;
4127: END IF;
4120: ,p_adjust_id => NULL
4121: ,p_settlement_amount => l_settlement_amount -- Bug4308188
4122: );
4123: IF l_return_status = FND_API.g_ret_sts_error THEN
4124: RAISE FND_API.g_exc_error;
4125: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4126: RAISE FND_API.g_exc_unexpected_error;
4127: END IF;
4128: END IF;
4121: ,p_settlement_amount => l_settlement_amount -- Bug4308188
4122: );
4123: IF l_return_status = FND_API.g_ret_sts_error THEN
4124: RAISE FND_API.g_exc_error;
4125: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4126: RAISE FND_API.g_exc_unexpected_error;
4127: END IF;
4128: END IF;
4129:
4122: );
4123: IF l_return_status = FND_API.g_ret_sts_error THEN
4124: RAISE FND_API.g_exc_error;
4125: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4126: RAISE FND_API.g_exc_unexpected_error;
4127: END IF;
4128: END IF;
4129:
4130: IF g_debug THEN
4130: IF g_debug THEN
4131: OZF_Utility_PVT.debug_message(l_full_name||': end');
4132: END IF;
4133: EXCEPTION
4134: WHEN FND_API.g_exc_error THEN
4135: x_return_status := FND_API.g_ret_sts_error;
4136:
4137: WHEN FND_API.g_exc_unexpected_error THEN
4138: x_return_status := FND_API.g_ret_sts_unexp_error ;
4131: OZF_Utility_PVT.debug_message(l_full_name||': end');
4132: END IF;
4133: EXCEPTION
4134: WHEN FND_API.g_exc_error THEN
4135: x_return_status := FND_API.g_ret_sts_error;
4136:
4137: WHEN FND_API.g_exc_unexpected_error THEN
4138: x_return_status := FND_API.g_ret_sts_unexp_error ;
4139:
4133: EXCEPTION
4134: WHEN FND_API.g_exc_error THEN
4135: x_return_status := FND_API.g_ret_sts_error;
4136:
4137: WHEN FND_API.g_exc_unexpected_error THEN
4138: x_return_status := FND_API.g_ret_sts_unexp_error ;
4139:
4140: WHEN OTHERS THEN
4141: x_return_status := FND_API.g_ret_sts_unexp_error ;
4134: WHEN FND_API.g_exc_error THEN
4135: x_return_status := FND_API.g_ret_sts_error;
4136:
4137: WHEN FND_API.g_exc_unexpected_error THEN
4138: x_return_status := FND_API.g_ret_sts_unexp_error ;
4139:
4140: WHEN OTHERS THEN
4141: x_return_status := FND_API.g_ret_sts_unexp_error ;
4142: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
4137: WHEN FND_API.g_exc_unexpected_error THEN
4138: x_return_status := FND_API.g_ret_sts_unexp_error ;
4139:
4140: WHEN OTHERS THEN
4141: x_return_status := FND_API.g_ret_sts_unexp_error ;
4142: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
4143: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
4144: END IF;
4145:
4187: IF g_debug THEN
4188: OZF_Utility_PVT.debug_message(l_full_name||': start');
4189: END IF;
4190:
4191: x_return_status := FND_API.g_ret_sts_success;
4192:
4193: ------------------------ start -------------------------
4194: /*------------------------------------------------------------*
4195: | Update Claim Status to CLOSED.
4199: ,x_return_status => l_return_status
4200: ,x_msg_data => x_msg_data
4201: ,x_msg_count => x_msg_count
4202: );
4203: IF l_return_status = FND_API.g_ret_sts_error THEN
4204: RAISE FND_API.g_exc_error;
4205: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4206: RAISE FND_API.g_exc_unexpected_error;
4207: END IF;
4200: ,x_msg_data => x_msg_data
4201: ,x_msg_count => x_msg_count
4202: );
4203: IF l_return_status = FND_API.g_ret_sts_error THEN
4204: RAISE FND_API.g_exc_error;
4205: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4206: RAISE FND_API.g_exc_unexpected_error;
4207: END IF;
4208:
4201: ,x_msg_count => x_msg_count
4202: );
4203: IF l_return_status = FND_API.g_ret_sts_error THEN
4204: RAISE FND_API.g_exc_error;
4205: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4206: RAISE FND_API.g_exc_unexpected_error;
4207: END IF;
4208:
4209: IF p_deduction_type = 'RECEIPT_OPM' THEN
4202: );
4203: IF l_return_status = FND_API.g_ret_sts_error THEN
4204: RAISE FND_API.g_exc_error;
4205: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4206: RAISE FND_API.g_exc_unexpected_error;
4207: END IF;
4208:
4209: IF p_deduction_type = 'RECEIPT_OPM' THEN
4210: /*------------------------------------------------------------*
4227: ,x_return_status => l_return_status
4228: ,x_msg_data => x_msg_data
4229: ,x_msg_count => x_msg_count
4230: );
4231: IF l_return_status = FND_API.g_ret_sts_error THEN
4232: RAISE FND_API.g_exc_error;
4233: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4234: RAISE FND_API.g_exc_unexpected_error;
4235: END IF;
4228: ,x_msg_data => x_msg_data
4229: ,x_msg_count => x_msg_count
4230: );
4231: IF l_return_status = FND_API.g_ret_sts_error THEN
4232: RAISE FND_API.g_exc_error;
4233: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4234: RAISE FND_API.g_exc_unexpected_error;
4235: END IF;
4236:
4229: ,x_msg_count => x_msg_count
4230: );
4231: IF l_return_status = FND_API.g_ret_sts_error THEN
4232: RAISE FND_API.g_exc_error;
4233: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4234: RAISE FND_API.g_exc_unexpected_error;
4235: END IF;
4236:
4237: IF g_debug THEN
4230: );
4231: IF l_return_status = FND_API.g_ret_sts_error THEN
4232: RAISE FND_API.g_exc_error;
4233: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4234: RAISE FND_API.g_exc_unexpected_error;
4235: END IF;
4236:
4237: IF g_debug THEN
4238: OZF_Utility_PVT.debug_message('Overpayment -> 2. Apply On Account Credit.');
4243: ,x_return_status => l_return_status
4244: ,x_msg_data => x_msg_data
4245: ,x_msg_count => x_msg_count
4246: );
4247: IF l_return_status = FND_API.g_ret_sts_error THEN
4248: RAISE FND_API.g_exc_error;
4249: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4250: RAISE FND_API.g_exc_unexpected_error;
4251: END IF;
4244: ,x_msg_data => x_msg_data
4245: ,x_msg_count => x_msg_count
4246: );
4247: IF l_return_status = FND_API.g_ret_sts_error THEN
4248: RAISE FND_API.g_exc_error;
4249: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4250: RAISE FND_API.g_exc_unexpected_error;
4251: END IF;
4252:
4245: ,x_msg_count => x_msg_count
4246: );
4247: IF l_return_status = FND_API.g_ret_sts_error THEN
4248: RAISE FND_API.g_exc_error;
4249: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4250: RAISE FND_API.g_exc_unexpected_error;
4251: END IF;
4252:
4253: /*------------------------------------------------------------*
4246: );
4247: IF l_return_status = FND_API.g_ret_sts_error THEN
4248: RAISE FND_API.g_exc_error;
4249: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4250: RAISE FND_API.g_exc_unexpected_error;
4251: END IF;
4252:
4253: /*------------------------------------------------------------*
4254: | Update Deduction payment detail
4258: OZF_Utility_PVT.debug_message('cash_receipt_id = '||p_claim_rec.receipt_id);
4259: END IF;
4260: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
4261: p_api_version => l_api_version
4262: ,p_init_msg_list => FND_API.g_false
4263: ,p_commit => FND_API.g_false
4264: ,p_validation_level => FND_API.g_valid_level_full
4265: ,x_return_status => l_return_status
4266: ,x_msg_data => x_msg_data
4259: END IF;
4260: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
4261: p_api_version => l_api_version
4262: ,p_init_msg_list => FND_API.g_false
4263: ,p_commit => FND_API.g_false
4264: ,p_validation_level => FND_API.g_valid_level_full
4265: ,x_return_status => l_return_status
4266: ,x_msg_data => x_msg_data
4267: ,x_msg_count => x_msg_count
4260: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
4261: p_api_version => l_api_version
4262: ,p_init_msg_list => FND_API.g_false
4263: ,p_commit => FND_API.g_false
4264: ,p_validation_level => FND_API.g_valid_level_full
4265: ,x_return_status => l_return_status
4266: ,x_msg_data => x_msg_data
4267: ,x_msg_count => x_msg_count
4268: ,p_claim_id => p_claim_rec.claim_id
4271: ,p_cash_receipt_id => p_claim_rec.receipt_id
4272: ,p_customer_trx_id => NULL --p_claim_rec.payment_reference_id
4273: ,p_adjust_id => NULL
4274: );
4275: IF l_return_status = FND_API.g_ret_sts_error THEN
4276: RAISE FND_API.g_exc_error;
4277: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4278: RAISE FND_API.g_exc_unexpected_error;
4279: END IF;
4272: ,p_customer_trx_id => NULL --p_claim_rec.payment_reference_id
4273: ,p_adjust_id => NULL
4274: );
4275: IF l_return_status = FND_API.g_ret_sts_error THEN
4276: RAISE FND_API.g_exc_error;
4277: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4278: RAISE FND_API.g_exc_unexpected_error;
4279: END IF;
4280: ELSE
4273: ,p_adjust_id => NULL
4274: );
4275: IF l_return_status = FND_API.g_ret_sts_error THEN
4276: RAISE FND_API.g_exc_error;
4277: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4278: RAISE FND_API.g_exc_unexpected_error;
4279: END IF;
4280: ELSE
4281: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4274: );
4275: IF l_return_status = FND_API.g_ret_sts_error THEN
4276: RAISE FND_API.g_exc_error;
4277: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4278: RAISE FND_API.g_exc_unexpected_error;
4279: END IF;
4280: ELSE
4281: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4282: FND_MESSAGE.set_name('OZF', 'OZF_AR_PAYMENT_NOTMATCH');
4281: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4282: FND_MESSAGE.set_name('OZF', 'OZF_AR_PAYMENT_NOTMATCH');
4283: FND_MSG_PUB.add;
4284: END IF;
4285: RAISE FND_API.g_exc_error;
4286: END IF;
4287:
4288: IF g_debug THEN
4289: OZF_Utility_PVT.debug_message(l_full_name||': end');
4288: IF g_debug THEN
4289: OZF_Utility_PVT.debug_message(l_full_name||': end');
4290: END IF;
4291: EXCEPTION
4292: WHEN FND_API.g_exc_error THEN
4293: x_return_status := FND_API.g_ret_sts_error;
4294:
4295: WHEN FND_API.g_exc_unexpected_error THEN
4296: x_return_status := FND_API.g_ret_sts_unexp_error ;
4289: OZF_Utility_PVT.debug_message(l_full_name||': end');
4290: END IF;
4291: EXCEPTION
4292: WHEN FND_API.g_exc_error THEN
4293: x_return_status := FND_API.g_ret_sts_error;
4294:
4295: WHEN FND_API.g_exc_unexpected_error THEN
4296: x_return_status := FND_API.g_ret_sts_unexp_error ;
4297:
4291: EXCEPTION
4292: WHEN FND_API.g_exc_error THEN
4293: x_return_status := FND_API.g_ret_sts_error;
4294:
4295: WHEN FND_API.g_exc_unexpected_error THEN
4296: x_return_status := FND_API.g_ret_sts_unexp_error ;
4297:
4298: WHEN OTHERS THEN
4299: x_return_status := FND_API.g_ret_sts_unexp_error ;
4292: WHEN FND_API.g_exc_error THEN
4293: x_return_status := FND_API.g_ret_sts_error;
4294:
4295: WHEN FND_API.g_exc_unexpected_error THEN
4296: x_return_status := FND_API.g_ret_sts_unexp_error ;
4297:
4298: WHEN OTHERS THEN
4299: x_return_status := FND_API.g_ret_sts_unexp_error ;
4300: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
4295: WHEN FND_API.g_exc_unexpected_error THEN
4296: x_return_status := FND_API.g_ret_sts_unexp_error ;
4297:
4298: WHEN OTHERS THEN
4299: x_return_status := FND_API.g_ret_sts_unexp_error ;
4300: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
4301: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
4302: END IF;
4303:
4335: IF g_debug THEN
4336: OZF_Utility_PVT.debug_message(l_full_name||': start');
4337: END IF;
4338:
4339: x_return_status := FND_API.g_ret_sts_success;
4340:
4341: ------------------------ start -------------------------
4342: /*------------------------------------------------------------*
4343: | Update Claim Status to CLOSED.
4347: ,x_return_status => l_return_status
4348: ,x_msg_data => x_msg_data
4349: ,x_msg_count => x_msg_count
4350: );
4351: IF l_return_status = FND_API.g_ret_sts_error THEN
4352: RAISE FND_API.g_exc_error;
4353: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4354: RAISE FND_API.g_exc_unexpected_error;
4355: END IF;
4348: ,x_msg_data => x_msg_data
4349: ,x_msg_count => x_msg_count
4350: );
4351: IF l_return_status = FND_API.g_ret_sts_error THEN
4352: RAISE FND_API.g_exc_error;
4353: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4354: RAISE FND_API.g_exc_unexpected_error;
4355: END IF;
4356:
4349: ,x_msg_count => x_msg_count
4350: );
4351: IF l_return_status = FND_API.g_ret_sts_error THEN
4352: RAISE FND_API.g_exc_error;
4353: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4354: RAISE FND_API.g_exc_unexpected_error;
4355: END IF;
4356:
4357: IF p_deduction_type IN ('SOURCE_DED', 'RECEIPT_DED') THEN
4350: );
4351: IF l_return_status = FND_API.g_ret_sts_error THEN
4352: RAISE FND_API.g_exc_error;
4353: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4354: RAISE FND_API.g_exc_unexpected_error;
4355: END IF;
4356:
4357: IF p_deduction_type IN ('SOURCE_DED', 'RECEIPT_DED') THEN
4358: IF p_deduction_type = 'SOURCE_DED'THEN
4368: ,x_return_status => l_return_status
4369: ,x_msg_data => x_msg_data
4370: ,x_msg_count => x_msg_count
4371: );
4372: IF l_return_status = FND_API.g_ret_sts_error THEN
4373: RAISE FND_API.g_exc_error;
4374: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4375: RAISE FND_API.g_exc_unexpected_error;
4376: END IF;
4369: ,x_msg_data => x_msg_data
4370: ,x_msg_count => x_msg_count
4371: );
4372: IF l_return_status = FND_API.g_ret_sts_error THEN
4373: RAISE FND_API.g_exc_error;
4374: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4375: RAISE FND_API.g_exc_unexpected_error;
4376: END IF;
4377:
4370: ,x_msg_count => x_msg_count
4371: );
4372: IF l_return_status = FND_API.g_ret_sts_error THEN
4373: RAISE FND_API.g_exc_error;
4374: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4375: RAISE FND_API.g_exc_unexpected_error;
4376: END IF;
4377:
4378: /*------------------------------------------------------------*
4371: );
4372: IF l_return_status = FND_API.g_ret_sts_error THEN
4373: RAISE FND_API.g_exc_error;
4374: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4375: RAISE FND_API.g_exc_unexpected_error;
4376: END IF;
4377:
4378: /*------------------------------------------------------------*
4379: | Update Deduction payment detail
4381: IF l_cb_customer_trx_id IS NOT NULL THEN
4382: -- Update Deduction payment detail
4383: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
4384: p_api_version => l_api_version
4385: ,p_init_msg_list => FND_API.g_false
4386: ,p_commit => FND_API.g_false
4387: ,p_validation_level => FND_API.g_valid_level_full
4388: ,x_return_status => l_return_status
4389: ,x_msg_data => x_msg_data
4382: -- Update Deduction payment detail
4383: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
4384: p_api_version => l_api_version
4385: ,p_init_msg_list => FND_API.g_false
4386: ,p_commit => FND_API.g_false
4387: ,p_validation_level => FND_API.g_valid_level_full
4388: ,x_return_status => l_return_status
4389: ,x_msg_data => x_msg_data
4390: ,x_msg_count => x_msg_count
4383: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
4384: p_api_version => l_api_version
4385: ,p_init_msg_list => FND_API.g_false
4386: ,p_commit => FND_API.g_false
4387: ,p_validation_level => FND_API.g_valid_level_full
4388: ,x_return_status => l_return_status
4389: ,x_msg_data => x_msg_data
4390: ,x_msg_count => x_msg_count
4391: ,p_claim_id => p_claim_rec.claim_id
4394: ,p_cash_receipt_id => p_claim_rec.receipt_id
4395: ,p_customer_trx_id => l_cb_customer_trx_id
4396: ,p_adjust_id => NULL
4397: );
4398: IF l_return_status = FND_API.g_ret_sts_error THEN
4399: RAISE FND_API.g_exc_error;
4400: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4401: RAISE FND_API.g_exc_unexpected_error;
4402: END IF;
4395: ,p_customer_trx_id => l_cb_customer_trx_id
4396: ,p_adjust_id => NULL
4397: );
4398: IF l_return_status = FND_API.g_ret_sts_error THEN
4399: RAISE FND_API.g_exc_error;
4400: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4401: RAISE FND_API.g_exc_unexpected_error;
4402: END IF;
4403: END IF;
4396: ,p_adjust_id => NULL
4397: );
4398: IF l_return_status = FND_API.g_ret_sts_error THEN
4399: RAISE FND_API.g_exc_error;
4400: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4401: RAISE FND_API.g_exc_unexpected_error;
4402: END IF;
4403: END IF;
4404:
4397: );
4398: IF l_return_status = FND_API.g_ret_sts_error THEN
4399: RAISE FND_API.g_exc_error;
4400: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4401: RAISE FND_API.g_exc_unexpected_error;
4402: END IF;
4403: END IF;
4404:
4405: ELSE
4413: IF g_debug THEN
4414: OZF_Utility_PVT.debug_message(l_full_name||': end');
4415: END IF;
4416: EXCEPTION
4417: WHEN FND_API.g_exc_error THEN
4418: x_return_status := FND_API.g_ret_sts_error;
4419:
4420: WHEN FND_API.g_exc_unexpected_error THEN
4421: x_return_status := FND_API.g_ret_sts_unexp_error ;
4414: OZF_Utility_PVT.debug_message(l_full_name||': end');
4415: END IF;
4416: EXCEPTION
4417: WHEN FND_API.g_exc_error THEN
4418: x_return_status := FND_API.g_ret_sts_error;
4419:
4420: WHEN FND_API.g_exc_unexpected_error THEN
4421: x_return_status := FND_API.g_ret_sts_unexp_error ;
4422:
4416: EXCEPTION
4417: WHEN FND_API.g_exc_error THEN
4418: x_return_status := FND_API.g_ret_sts_error;
4419:
4420: WHEN FND_API.g_exc_unexpected_error THEN
4421: x_return_status := FND_API.g_ret_sts_unexp_error ;
4422:
4423: WHEN OTHERS THEN
4424: x_return_status := FND_API.g_ret_sts_unexp_error ;
4417: WHEN FND_API.g_exc_error THEN
4418: x_return_status := FND_API.g_ret_sts_error;
4419:
4420: WHEN FND_API.g_exc_unexpected_error THEN
4421: x_return_status := FND_API.g_ret_sts_unexp_error ;
4422:
4423: WHEN OTHERS THEN
4424: x_return_status := FND_API.g_ret_sts_unexp_error ;
4425: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
4420: WHEN FND_API.g_exc_unexpected_error THEN
4421: x_return_status := FND_API.g_ret_sts_unexp_error ;
4422:
4423: WHEN OTHERS THEN
4424: x_return_status := FND_API.g_ret_sts_unexp_error ;
4425: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
4426: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
4427: END IF;
4428:
4459: IF g_debug THEN
4460: OZF_Utility_PVT.debug_message(l_full_name||': start');
4461: END IF;
4462:
4463: x_return_status := FND_API.g_ret_sts_success;
4464:
4465: ------------------------ start -------------------------
4466: IF p_deduction_type = 'RECEIPT_DED' AND
4467: NOT ARP_DEDUCTION_COVER.negative_rct_writeoffs_allowed THEN
4473: ,x_return_status => l_return_status
4474: ,x_msg_data => x_msg_data
4475: ,x_msg_count => x_msg_count
4476: );
4477: IF l_return_status = FND_API.g_ret_sts_error THEN
4478: RAISE FND_API.g_exc_error;
4479: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4480: RAISE FND_API.g_exc_unexpected_error;
4481: END IF;
4474: ,x_msg_data => x_msg_data
4475: ,x_msg_count => x_msg_count
4476: );
4477: IF l_return_status = FND_API.g_ret_sts_error THEN
4478: RAISE FND_API.g_exc_error;
4479: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4480: RAISE FND_API.g_exc_unexpected_error;
4481: END IF;
4482:
4475: ,x_msg_count => x_msg_count
4476: );
4477: IF l_return_status = FND_API.g_ret_sts_error THEN
4478: RAISE FND_API.g_exc_error;
4479: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4480: RAISE FND_API.g_exc_unexpected_error;
4481: END IF;
4482:
4483: ELSIF p_deduction_type IN ('SOURCE_DED', 'RECEIPT_DED', 'RECEIPT_OPM','SOURCE_OPM') THEN
4476: );
4477: IF l_return_status = FND_API.g_ret_sts_error THEN
4478: RAISE FND_API.g_exc_error;
4479: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4480: RAISE FND_API.g_exc_unexpected_error;
4481: END IF;
4482:
4483: ELSIF p_deduction_type IN ('SOURCE_DED', 'RECEIPT_DED', 'RECEIPT_OPM','SOURCE_OPM') THEN
4484: /*------------------------------------------------------------*
4489: ,x_return_status => l_return_status
4490: ,x_msg_data => x_msg_data
4491: ,x_msg_count => x_msg_count
4492: );
4493: IF l_return_status = FND_API.g_ret_sts_error THEN
4494: RAISE FND_API.g_exc_error;
4495: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4496: RAISE FND_API.g_exc_unexpected_error;
4497: END IF;
4490: ,x_msg_data => x_msg_data
4491: ,x_msg_count => x_msg_count
4492: );
4493: IF l_return_status = FND_API.g_ret_sts_error THEN
4494: RAISE FND_API.g_exc_error;
4495: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4496: RAISE FND_API.g_exc_unexpected_error;
4497: END IF;
4498:
4491: ,x_msg_count => x_msg_count
4492: );
4493: IF l_return_status = FND_API.g_ret_sts_error THEN
4494: RAISE FND_API.g_exc_error;
4495: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4496: RAISE FND_API.g_exc_unexpected_error;
4497: END IF;
4498:
4499: Create_AR_Write_Off(
4492: );
4493: IF l_return_status = FND_API.g_ret_sts_error THEN
4494: RAISE FND_API.g_exc_error;
4495: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4496: RAISE FND_API.g_exc_unexpected_error;
4497: END IF;
4498:
4499: Create_AR_Write_Off(
4500: p_claim_rec => p_claim_rec
4504: ,x_return_status => l_return_status
4505: ,x_msg_data => x_msg_data
4506: ,x_msg_count => x_msg_count
4507: );
4508: IF l_return_status = FND_API.g_ret_sts_error THEN
4509: RAISE FND_API.g_exc_error;
4510: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4511: RAISE FND_API.g_exc_unexpected_error;
4512: END IF;
4505: ,x_msg_data => x_msg_data
4506: ,x_msg_count => x_msg_count
4507: );
4508: IF l_return_status = FND_API.g_ret_sts_error THEN
4509: RAISE FND_API.g_exc_error;
4510: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4511: RAISE FND_API.g_exc_unexpected_error;
4512: END IF;
4513: END IF;
4506: ,x_msg_count => x_msg_count
4507: );
4508: IF l_return_status = FND_API.g_ret_sts_error THEN
4509: RAISE FND_API.g_exc_error;
4510: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4511: RAISE FND_API.g_exc_unexpected_error;
4512: END IF;
4513: END IF;
4514:
4507: );
4508: IF l_return_status = FND_API.g_ret_sts_error THEN
4509: RAISE FND_API.g_exc_error;
4510: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4511: RAISE FND_API.g_exc_unexpected_error;
4512: END IF;
4513: END IF;
4514:
4515: IF g_debug THEN
4515: IF g_debug THEN
4516: OZF_Utility_PVT.debug_message(l_full_name||': end');
4517: END IF;
4518: EXCEPTION
4519: WHEN FND_API.g_exc_error THEN
4520: x_return_status := FND_API.g_ret_sts_error;
4521:
4522: WHEN FND_API.g_exc_unexpected_error THEN
4523: x_return_status := FND_API.g_ret_sts_unexp_error ;
4516: OZF_Utility_PVT.debug_message(l_full_name||': end');
4517: END IF;
4518: EXCEPTION
4519: WHEN FND_API.g_exc_error THEN
4520: x_return_status := FND_API.g_ret_sts_error;
4521:
4522: WHEN FND_API.g_exc_unexpected_error THEN
4523: x_return_status := FND_API.g_ret_sts_unexp_error ;
4524:
4518: EXCEPTION
4519: WHEN FND_API.g_exc_error THEN
4520: x_return_status := FND_API.g_ret_sts_error;
4521:
4522: WHEN FND_API.g_exc_unexpected_error THEN
4523: x_return_status := FND_API.g_ret_sts_unexp_error ;
4524:
4525: WHEN OTHERS THEN
4526: x_return_status := FND_API.g_ret_sts_unexp_error ;
4519: WHEN FND_API.g_exc_error THEN
4520: x_return_status := FND_API.g_ret_sts_error;
4521:
4522: WHEN FND_API.g_exc_unexpected_error THEN
4523: x_return_status := FND_API.g_ret_sts_unexp_error ;
4524:
4525: WHEN OTHERS THEN
4526: x_return_status := FND_API.g_ret_sts_unexp_error ;
4527: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
4522: WHEN FND_API.g_exc_unexpected_error THEN
4523: x_return_status := FND_API.g_ret_sts_unexp_error ;
4524:
4525: WHEN OTHERS THEN
4526: x_return_status := FND_API.g_ret_sts_unexp_error ;
4527: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
4528: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
4529: END IF;
4530:
4682: IF g_debug THEN
4683: OZF_Utility_PVT.debug_message(l_full_name||': start');
4684: END IF;
4685:
4686: x_return_status := FND_API.g_ret_sts_success;
4687:
4688: ------------------------ start -------------------------
4689: -- Added for ER#14109799
4690: IF p_deduction_type IN ('RECEIPT_OPM', 'CHARGE','SOURCE_OPM') THEN
4694: *------------------------------------------------------------*/
4695: -- 1. AutoInvoice
4696: OZF_AR_INTERFACE_PVT.Interface_Claim(
4697: p_api_version => l_api_version
4698: ,p_init_msg_list => FND_API.g_false
4699: ,p_commit => FND_API.g_false
4700: ,p_validation_level => FND_API.g_valid_level_full
4701: ,x_return_status => l_return_status
4702: ,x_msg_data => x_msg_data
4695: -- 1. AutoInvoice
4696: OZF_AR_INTERFACE_PVT.Interface_Claim(
4697: p_api_version => l_api_version
4698: ,p_init_msg_list => FND_API.g_false
4699: ,p_commit => FND_API.g_false
4700: ,p_validation_level => FND_API.g_valid_level_full
4701: ,x_return_status => l_return_status
4702: ,x_msg_data => x_msg_data
4703: ,x_msg_count => x_msg_count
4696: OZF_AR_INTERFACE_PVT.Interface_Claim(
4697: p_api_version => l_api_version
4698: ,p_init_msg_list => FND_API.g_false
4699: ,p_commit => FND_API.g_false
4700: ,p_validation_level => FND_API.g_valid_level_full
4701: ,x_return_status => l_return_status
4702: ,x_msg_data => x_msg_data
4703: ,x_msg_count => x_msg_count
4704: ,p_claim_id => p_claim_rec.claim_id
4702: ,x_msg_data => x_msg_data
4703: ,x_msg_count => x_msg_count
4704: ,p_claim_id => p_claim_rec.claim_id
4705: );
4706: IF l_return_status = FND_API.g_ret_sts_error THEN
4707: RAISE FND_API.g_exc_error;
4708: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4709: RAISE FND_API.g_exc_unexpected_error;
4710: END IF;
4703: ,x_msg_count => x_msg_count
4704: ,p_claim_id => p_claim_rec.claim_id
4705: );
4706: IF l_return_status = FND_API.g_ret_sts_error THEN
4707: RAISE FND_API.g_exc_error;
4708: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4709: RAISE FND_API.g_exc_unexpected_error;
4710: END IF;
4711:
4704: ,p_claim_id => p_claim_rec.claim_id
4705: );
4706: IF l_return_status = FND_API.g_ret_sts_error THEN
4707: RAISE FND_API.g_exc_error;
4708: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4709: RAISE FND_API.g_exc_unexpected_error;
4710: END IF;
4711:
4712: --2. Update Deduction payment detail --
4705: );
4706: IF l_return_status = FND_API.g_ret_sts_error THEN
4707: RAISE FND_API.g_exc_error;
4708: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4709: RAISE FND_API.g_exc_unexpected_error;
4710: END IF;
4711:
4712: --2. Update Deduction payment detail --
4713: l_online_upd_ded_status := FALSE;
4720: ,x_return_status => l_return_status
4721: ,x_msg_data => x_msg_data
4722: ,x_msg_count => x_msg_count
4723: );
4724: IF l_return_status = FND_API.g_ret_sts_error THEN
4725: RAISE FND_API.g_exc_error;
4726: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4727: RAISE FND_API.g_exc_unexpected_error;
4728: END IF;
4721: ,x_msg_data => x_msg_data
4722: ,x_msg_count => x_msg_count
4723: );
4724: IF l_return_status = FND_API.g_ret_sts_error THEN
4725: RAISE FND_API.g_exc_error;
4726: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4727: RAISE FND_API.g_exc_unexpected_error;
4728: END IF;
4729:
4722: ,x_msg_count => x_msg_count
4723: );
4724: IF l_return_status = FND_API.g_ret_sts_error THEN
4725: RAISE FND_API.g_exc_error;
4726: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4727: RAISE FND_API.g_exc_unexpected_error;
4728: END IF;
4729:
4730:
4723: );
4724: IF l_return_status = FND_API.g_ret_sts_error THEN
4725: RAISE FND_API.g_exc_error;
4726: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4727: RAISE FND_API.g_exc_unexpected_error;
4728: END IF;
4729:
4730:
4731: --bug 4684931
4765: ,x_return_status => l_return_status
4766: ,x_msg_data => x_msg_data
4767: ,x_msg_count => x_msg_count
4768: );
4769: IF l_return_status = FND_API.g_ret_sts_error THEN
4770: RAISE FND_API.g_exc_error;
4771: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4772: RAISE FND_API.g_exc_unexpected_error;
4773: END IF;
4766: ,x_msg_data => x_msg_data
4767: ,x_msg_count => x_msg_count
4768: );
4769: IF l_return_status = FND_API.g_ret_sts_error THEN
4770: RAISE FND_API.g_exc_error;
4771: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4772: RAISE FND_API.g_exc_unexpected_error;
4773: END IF;
4774:
4767: ,x_msg_count => x_msg_count
4768: );
4769: IF l_return_status = FND_API.g_ret_sts_error THEN
4770: RAISE FND_API.g_exc_error;
4771: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4772: RAISE FND_API.g_exc_unexpected_error;
4773: END IF;
4774:
4775: l_stlmnt_amount := NVL(l_dm_applied_on_rec_amt,0) + (p_debit_memo_amount * -1);
4768: );
4769: IF l_return_status = FND_API.g_ret_sts_error THEN
4770: RAISE FND_API.g_exc_error;
4771: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4772: RAISE FND_API.g_exc_unexpected_error;
4773: END IF;
4774:
4775: l_stlmnt_amount := NVL(l_dm_applied_on_rec_amt,0) + (p_debit_memo_amount * -1);
4776: IF l_dm_applied_on_rec_amt IS NULL THEN
4797: ,x_msg_data => x_msg_data
4798: ,x_msg_count => x_msg_count
4799: );
4800:
4801: IF l_return_status = FND_API.g_ret_sts_error THEN
4802: RAISE FND_API.g_exc_error;
4803: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4804: RAISE FND_API.g_exc_unexpected_error;
4805: END IF;
4798: ,x_msg_count => x_msg_count
4799: );
4800:
4801: IF l_return_status = FND_API.g_ret_sts_error THEN
4802: RAISE FND_API.g_exc_error;
4803: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4804: RAISE FND_API.g_exc_unexpected_error;
4805: END IF;
4806: ELSE
4799: );
4800:
4801: IF l_return_status = FND_API.g_ret_sts_error THEN
4802: RAISE FND_API.g_exc_error;
4803: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4804: RAISE FND_API.g_exc_unexpected_error;
4805: END IF;
4806: ELSE
4807: OZF_Utility_PVT.debug_message('Overpayment: Pay by Previous Open Debit Memo which already exists on the receipt');
4800:
4801: IF l_return_status = FND_API.g_ret_sts_error THEN
4802: RAISE FND_API.g_exc_error;
4803: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4804: RAISE FND_API.g_exc_unexpected_error;
4805: END IF;
4806: ELSE
4807: OZF_Utility_PVT.debug_message('Overpayment: Pay by Previous Open Debit Memo which already exists on the receipt');
4808: OZF_Utility_PVT.debug_message('Overpayment -> 1.5. Unapply debit memo on receipt');
4813: ,x_return_status => l_return_status
4814: ,x_msg_data => x_msg_data
4815: ,x_msg_count => x_msg_count
4816: );
4817: IF l_return_status = FND_API.g_ret_sts_error THEN
4818: RAISE FND_API.g_exc_error;
4819: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4820: RAISE FND_API.g_exc_unexpected_error;
4821: END IF;
4814: ,x_msg_data => x_msg_data
4815: ,x_msg_count => x_msg_count
4816: );
4817: IF l_return_status = FND_API.g_ret_sts_error THEN
4818: RAISE FND_API.g_exc_error;
4819: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4820: RAISE FND_API.g_exc_unexpected_error;
4821: END IF;
4822:
4815: ,x_msg_count => x_msg_count
4816: );
4817: IF l_return_status = FND_API.g_ret_sts_error THEN
4818: RAISE FND_API.g_exc_error;
4819: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4820: RAISE FND_API.g_exc_unexpected_error;
4821: END IF;
4822:
4823: OZF_Utility_PVT.debug_message('Overpayment -> 2. Apply debit memo with increased amount on receipt');
4816: );
4817: IF l_return_status = FND_API.g_ret_sts_error THEN
4818: RAISE FND_API.g_exc_error;
4819: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4820: RAISE FND_API.g_exc_unexpected_error;
4821: END IF;
4822:
4823: OZF_Utility_PVT.debug_message('Overpayment -> 2. Apply debit memo with increased amount on receipt');
4824: l_settlement_amount := (p_debit_memo_amount * -1); -- Bug4308188
4844: ,x_return_status => l_return_status
4845: ,x_msg_data => x_msg_data
4846: ,x_msg_count => x_msg_count
4847: );
4848: IF l_return_status = FND_API.g_ret_sts_error THEN
4849: RAISE FND_API.g_exc_error;
4850: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4851: RAISE FND_API.g_exc_unexpected_error;
4852: END IF;
4845: ,x_msg_data => x_msg_data
4846: ,x_msg_count => x_msg_count
4847: );
4848: IF l_return_status = FND_API.g_ret_sts_error THEN
4849: RAISE FND_API.g_exc_error;
4850: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4851: RAISE FND_API.g_exc_unexpected_error;
4852: END IF;
4853: END IF;
4846: ,x_msg_count => x_msg_count
4847: );
4848: IF l_return_status = FND_API.g_ret_sts_error THEN
4849: RAISE FND_API.g_exc_error;
4850: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4851: RAISE FND_API.g_exc_unexpected_error;
4852: END IF;
4853: END IF;
4854:
4847: );
4848: IF l_return_status = FND_API.g_ret_sts_error THEN
4849: RAISE FND_API.g_exc_error;
4850: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4851: RAISE FND_API.g_exc_unexpected_error;
4852: END IF;
4853: END IF;
4854:
4855:
4903:
4904: -- API to apply the DM to the CM
4905: AR_CM_API_PUB.apply_on_account(
4906: p_api_version => l_api_version,
4907: p_init_msg_list => FND_API.g_false,
4908: p_commit => FND_API.G_FALSE,
4909: p_cm_app_rec => l_cm_app_rec,
4910: x_return_status => l_return_status,
4911: x_msg_count => x_msg_count,
4904: -- API to apply the DM to the CM
4905: AR_CM_API_PUB.apply_on_account(
4906: p_api_version => l_api_version,
4907: p_init_msg_list => FND_API.g_false,
4908: p_commit => FND_API.G_FALSE,
4909: p_cm_app_rec => l_cm_app_rec,
4910: x_return_status => l_return_status,
4911: x_msg_count => x_msg_count,
4912: x_msg_data => x_msg_data,
4918: IF g_debug THEN
4919: fnd_file.put_line(fnd_file.log, 'l_return_status from AR_CM_API_PUB.apply_on_account '||l_return_status);
4920: END IF;
4921:
4922: IF l_return_status = FND_API.g_ret_sts_error THEN
4923: RAISE FND_API.g_exc_error;
4924: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4925: RAISE FND_API.g_exc_unexpected_error;
4926: END IF;
4919: fnd_file.put_line(fnd_file.log, 'l_return_status from AR_CM_API_PUB.apply_on_account '||l_return_status);
4920: END IF;
4921:
4922: IF l_return_status = FND_API.g_ret_sts_error THEN
4923: RAISE FND_API.g_exc_error;
4924: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4925: RAISE FND_API.g_exc_unexpected_error;
4926: END IF;
4927:
4920: END IF;
4921:
4922: IF l_return_status = FND_API.g_ret_sts_error THEN
4923: RAISE FND_API.g_exc_error;
4924: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4925: RAISE FND_API.g_exc_unexpected_error;
4926: END IF;
4927:
4928:
4921:
4922: IF l_return_status = FND_API.g_ret_sts_error THEN
4923: RAISE FND_API.g_exc_error;
4924: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4925: RAISE FND_API.g_exc_unexpected_error;
4926: END IF;
4927:
4928:
4929: ELSE
4948: ,x_return_status => l_return_status
4949: ,x_msg_data => x_msg_data
4950: ,x_msg_count => x_msg_count
4951: );
4952: IF l_return_status = FND_API.g_ret_sts_error THEN
4953: RAISE FND_API.g_exc_error;
4954: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4955: RAISE FND_API.g_exc_unexpected_error;
4956: END IF;
4949: ,x_msg_data => x_msg_data
4950: ,x_msg_count => x_msg_count
4951: );
4952: IF l_return_status = FND_API.g_ret_sts_error THEN
4953: RAISE FND_API.g_exc_error;
4954: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4955: RAISE FND_API.g_exc_unexpected_error;
4956: END IF;
4957:
4950: ,x_msg_count => x_msg_count
4951: );
4952: IF l_return_status = FND_API.g_ret_sts_error THEN
4953: RAISE FND_API.g_exc_error;
4954: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4955: RAISE FND_API.g_exc_unexpected_error;
4956: END IF;
4957:
4958: IF g_debug THEN
4951: );
4952: IF l_return_status = FND_API.g_ret_sts_error THEN
4953: RAISE FND_API.g_exc_error;
4954: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4955: RAISE FND_API.g_exc_unexpected_error;
4956: END IF;
4957:
4958: IF g_debug THEN
4959: fnd_file.put_line(fnd_file.log, 'Invoice Overpayment -> 2. Apply original amount - debit memo amount to receipt');
4982: ,x_msg_count => x_msg_count
4983: );
4984:
4985:
4986: IF l_return_status = FND_API.g_ret_sts_error THEN
4987: RAISE FND_API.g_exc_error;
4988: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4989: RAISE FND_API.g_exc_unexpected_error;
4990: END IF;
4983: );
4984:
4985:
4986: IF l_return_status = FND_API.g_ret_sts_error THEN
4987: RAISE FND_API.g_exc_error;
4988: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4989: RAISE FND_API.g_exc_unexpected_error;
4990: END IF;
4991:
4984:
4985:
4986: IF l_return_status = FND_API.g_ret_sts_error THEN
4987: RAISE FND_API.g_exc_error;
4988: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4989: RAISE FND_API.g_exc_unexpected_error;
4990: END IF;
4991:
4992:
4985:
4986: IF l_return_status = FND_API.g_ret_sts_error THEN
4987: RAISE FND_API.g_exc_error;
4988: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4989: RAISE FND_API.g_exc_unexpected_error;
4990: END IF;
4991:
4992:
4993: IF g_debug THEN
5017: ,x_msg_data => x_msg_data
5018: ,x_msg_count => x_msg_count
5019: );
5020:
5021: IF l_return_status = FND_API.g_ret_sts_error THEN
5022: RAISE FND_API.g_exc_error;
5023: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5024: RAISE FND_API.g_exc_unexpected_error;
5025: END IF;
5018: ,x_msg_count => x_msg_count
5019: );
5020:
5021: IF l_return_status = FND_API.g_ret_sts_error THEN
5022: RAISE FND_API.g_exc_error;
5023: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5024: RAISE FND_API.g_exc_unexpected_error;
5025: END IF;
5026:
5019: );
5020:
5021: IF l_return_status = FND_API.g_ret_sts_error THEN
5022: RAISE FND_API.g_exc_error;
5023: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5024: RAISE FND_API.g_exc_unexpected_error;
5025: END IF;
5026:
5027:
5020:
5021: IF l_return_status = FND_API.g_ret_sts_error THEN
5022: RAISE FND_API.g_exc_error;
5023: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5024: RAISE FND_API.g_exc_unexpected_error;
5025: END IF;
5026:
5027:
5028: ELSE
5039: ,x_msg_data => x_msg_data
5040: ,x_msg_count => x_msg_count
5041: );
5042:
5043: IF l_return_status = FND_API.g_ret_sts_error THEN
5044: RAISE FND_API.g_exc_error;
5045: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5046: RAISE FND_API.g_exc_unexpected_error;
5047: END IF;
5040: ,x_msg_count => x_msg_count
5041: );
5042:
5043: IF l_return_status = FND_API.g_ret_sts_error THEN
5044: RAISE FND_API.g_exc_error;
5045: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5046: RAISE FND_API.g_exc_unexpected_error;
5047: END IF;
5048:
5041: );
5042:
5043: IF l_return_status = FND_API.g_ret_sts_error THEN
5044: RAISE FND_API.g_exc_error;
5045: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5046: RAISE FND_API.g_exc_unexpected_error;
5047: END IF;
5048:
5049: IF g_debug THEN
5042:
5043: IF l_return_status = FND_API.g_ret_sts_error THEN
5044: RAISE FND_API.g_exc_error;
5045: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5046: RAISE FND_API.g_exc_unexpected_error;
5047: END IF;
5048:
5049: IF g_debug THEN
5050: fnd_file.put_line(fnd_file.log, 'Overpayment: -> 1.1 Apply the invoice amount - (existing debit memo amount + new debit memo amount) on receipt');
5071: ,x_msg_data => x_msg_data
5072: ,x_msg_count => x_msg_count
5073: );
5074:
5075: IF l_return_status = FND_API.g_ret_sts_error THEN
5076: RAISE FND_API.g_exc_error;
5077: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5078: RAISE FND_API.g_exc_unexpected_error;
5079: END IF;
5072: ,x_msg_count => x_msg_count
5073: );
5074:
5075: IF l_return_status = FND_API.g_ret_sts_error THEN
5076: RAISE FND_API.g_exc_error;
5077: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5078: RAISE FND_API.g_exc_unexpected_error;
5079: END IF;
5080:
5073: );
5074:
5075: IF l_return_status = FND_API.g_ret_sts_error THEN
5076: RAISE FND_API.g_exc_error;
5077: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5078: RAISE FND_API.g_exc_unexpected_error;
5079: END IF;
5080:
5081: IF g_debug THEN
5074:
5075: IF l_return_status = FND_API.g_ret_sts_error THEN
5076: RAISE FND_API.g_exc_error;
5077: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5078: RAISE FND_API.g_exc_unexpected_error;
5079: END IF;
5080:
5081: IF g_debug THEN
5082: fnd_file.put_line(fnd_file.log, 'Invoice Overpayment -> 1.3. Apply (existing debit memo amount + new debit memo amount) on receipt');
5102: ,x_msg_data => x_msg_data
5103: ,x_msg_count => x_msg_count
5104: );
5105:
5106: IF l_return_status = FND_API.g_ret_sts_error THEN
5107: RAISE FND_API.g_exc_error;
5108: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5109: RAISE FND_API.g_exc_unexpected_error;
5110: END IF;
5103: ,x_msg_count => x_msg_count
5104: );
5105:
5106: IF l_return_status = FND_API.g_ret_sts_error THEN
5107: RAISE FND_API.g_exc_error;
5108: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5109: RAISE FND_API.g_exc_unexpected_error;
5110: END IF;
5111:
5104: );
5105:
5106: IF l_return_status = FND_API.g_ret_sts_error THEN
5107: RAISE FND_API.g_exc_error;
5108: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5109: RAISE FND_API.g_exc_unexpected_error;
5110: END IF;
5111:
5112: END IF; -- For IF l_dm_applied_on_rec_amt IS NULL THEN
5105:
5106: IF l_return_status = FND_API.g_ret_sts_error THEN
5107: RAISE FND_API.g_exc_error;
5108: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5109: RAISE FND_API.g_exc_unexpected_error;
5110: END IF;
5111:
5112: END IF; -- For IF l_dm_applied_on_rec_amt IS NULL THEN
5113:
5121: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5122: FND_MESSAGE.set_name('OZF', 'OZF_AR_PAYMENT_NOTMATCH');
5123: FND_MSG_PUB.add;
5124: END IF;
5125: RAISE FND_API.g_exc_error;
5126: END IF;
5127:
5128:
5129: /*------------------------------------------------------------*
5132: IF l_online_upd_ded_status THEN
5133: -- Update Deduction payment detail
5134: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
5135: p_api_version => l_api_version
5136: ,p_init_msg_list => FND_API.g_false
5137: ,p_commit => FND_API.g_false
5138: ,p_validation_level => FND_API.g_valid_level_full
5139: ,x_return_status => l_return_status
5140: ,x_msg_data => x_msg_data
5133: -- Update Deduction payment detail
5134: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
5135: p_api_version => l_api_version
5136: ,p_init_msg_list => FND_API.g_false
5137: ,p_commit => FND_API.g_false
5138: ,p_validation_level => FND_API.g_valid_level_full
5139: ,x_return_status => l_return_status
5140: ,x_msg_data => x_msg_data
5141: ,x_msg_count => x_msg_count
5134: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
5135: p_api_version => l_api_version
5136: ,p_init_msg_list => FND_API.g_false
5137: ,p_commit => FND_API.g_false
5138: ,p_validation_level => FND_API.g_valid_level_full
5139: ,x_return_status => l_return_status
5140: ,x_msg_data => x_msg_data
5141: ,x_msg_count => x_msg_count
5142: ,p_claim_id => p_claim_rec.claim_id
5146: ,p_customer_trx_id => p_payment_reference_id
5147: ,p_adjust_id => NULL
5148: ,p_settlement_amount => l_settlement_amount -- Bug4308188
5149: );
5150: IF l_return_status = FND_API.g_ret_sts_error THEN
5151: RAISE FND_API.g_exc_error;
5152: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5153: RAISE FND_API.g_exc_unexpected_error;
5154: END IF;
5147: ,p_adjust_id => NULL
5148: ,p_settlement_amount => l_settlement_amount -- Bug4308188
5149: );
5150: IF l_return_status = FND_API.g_ret_sts_error THEN
5151: RAISE FND_API.g_exc_error;
5152: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5153: RAISE FND_API.g_exc_unexpected_error;
5154: END IF;
5155: END IF;
5148: ,p_settlement_amount => l_settlement_amount -- Bug4308188
5149: );
5150: IF l_return_status = FND_API.g_ret_sts_error THEN
5151: RAISE FND_API.g_exc_error;
5152: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5153: RAISE FND_API.g_exc_unexpected_error;
5154: END IF;
5155: END IF;
5156:
5149: );
5150: IF l_return_status = FND_API.g_ret_sts_error THEN
5151: RAISE FND_API.g_exc_error;
5152: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5153: RAISE FND_API.g_exc_unexpected_error;
5154: END IF;
5155: END IF;
5156:
5157: IF g_debug THEN
5157: IF g_debug THEN
5158: OZF_Utility_PVT.debug_message(l_full_name||': end');
5159: END IF;
5160: EXCEPTION
5161: WHEN FND_API.g_exc_error THEN
5162: x_return_status := FND_API.g_ret_sts_error;
5163:
5164: WHEN FND_API.g_exc_unexpected_error THEN
5165: x_return_status := FND_API.g_ret_sts_unexp_error ;
5158: OZF_Utility_PVT.debug_message(l_full_name||': end');
5159: END IF;
5160: EXCEPTION
5161: WHEN FND_API.g_exc_error THEN
5162: x_return_status := FND_API.g_ret_sts_error;
5163:
5164: WHEN FND_API.g_exc_unexpected_error THEN
5165: x_return_status := FND_API.g_ret_sts_unexp_error ;
5166:
5160: EXCEPTION
5161: WHEN FND_API.g_exc_error THEN
5162: x_return_status := FND_API.g_ret_sts_error;
5163:
5164: WHEN FND_API.g_exc_unexpected_error THEN
5165: x_return_status := FND_API.g_ret_sts_unexp_error ;
5166:
5167: WHEN OTHERS THEN
5168: x_return_status := FND_API.g_ret_sts_unexp_error ;
5161: WHEN FND_API.g_exc_error THEN
5162: x_return_status := FND_API.g_ret_sts_error;
5163:
5164: WHEN FND_API.g_exc_unexpected_error THEN
5165: x_return_status := FND_API.g_ret_sts_unexp_error ;
5166:
5167: WHEN OTHERS THEN
5168: x_return_status := FND_API.g_ret_sts_unexp_error ;
5169: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5164: WHEN FND_API.g_exc_unexpected_error THEN
5165: x_return_status := FND_API.g_ret_sts_unexp_error ;
5166:
5167: WHEN OTHERS THEN
5168: x_return_status := FND_API.g_ret_sts_unexp_error ;
5169: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5170: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
5171: END IF;
5172:
5202: IF g_debug THEN
5203: OZF_Utility_PVT.debug_message(l_full_name||': start');
5204: END IF;
5205:
5206: x_return_status := FND_API.g_ret_sts_success;
5207:
5208: ------------------------ start -------------------------
5209: IF p_deduction_type IN ('SOURCE_DED', 'RECEIPT_DED') THEN
5210: -- invoke claim settlement workflow
5219: WHEN OTHERS THEN
5220: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
5221: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
5222: FND_MSG_PUB.Add;
5223: RAISE FND_API.g_exc_unexpected_error;
5224: END;
5225: ELSE
5226: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5227: FND_MESSAGE.set_name('OZF', 'OZF_AR_PAYMENT_NOTMATCH');
5232: IF g_debug THEN
5233: OZF_Utility_PVT.debug_message(l_full_name||': end');
5234: END IF;
5235: EXCEPTION
5236: WHEN FND_API.g_exc_error THEN
5237: x_return_status := FND_API.g_ret_sts_error;
5238:
5239: WHEN FND_API.g_exc_unexpected_error THEN
5240: x_return_status := FND_API.g_ret_sts_unexp_error ;
5233: OZF_Utility_PVT.debug_message(l_full_name||': end');
5234: END IF;
5235: EXCEPTION
5236: WHEN FND_API.g_exc_error THEN
5237: x_return_status := FND_API.g_ret_sts_error;
5238:
5239: WHEN FND_API.g_exc_unexpected_error THEN
5240: x_return_status := FND_API.g_ret_sts_unexp_error ;
5241:
5235: EXCEPTION
5236: WHEN FND_API.g_exc_error THEN
5237: x_return_status := FND_API.g_ret_sts_error;
5238:
5239: WHEN FND_API.g_exc_unexpected_error THEN
5240: x_return_status := FND_API.g_ret_sts_unexp_error ;
5241:
5242: WHEN OTHERS THEN
5243: x_return_status := FND_API.g_ret_sts_unexp_error ;
5236: WHEN FND_API.g_exc_error THEN
5237: x_return_status := FND_API.g_ret_sts_error;
5238:
5239: WHEN FND_API.g_exc_unexpected_error THEN
5240: x_return_status := FND_API.g_ret_sts_unexp_error ;
5241:
5242: WHEN OTHERS THEN
5243: x_return_status := FND_API.g_ret_sts_unexp_error ;
5244: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5239: WHEN FND_API.g_exc_unexpected_error THEN
5240: x_return_status := FND_API.g_ret_sts_unexp_error ;
5241:
5242: WHEN OTHERS THEN
5243: x_return_status := FND_API.g_ret_sts_unexp_error ;
5244: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5245: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
5246: END IF;
5247:
5285: IF g_debug THEN
5286: OZF_Utility_PVT.debug_message(l_full_name||': start');
5287: END IF;
5288:
5289: IF FND_API.to_boolean(p_init_msg_list) THEN
5290: FND_MSG_PUB.initialize;
5291: END IF;
5292:
5293: IF NOT FND_API.compatible_api_call(
5289: IF FND_API.to_boolean(p_init_msg_list) THEN
5290: FND_MSG_PUB.initialize;
5291: END IF;
5292:
5293: IF NOT FND_API.compatible_api_call(
5294: l_api_version,
5295: p_api_version,
5296: l_api_name,
5297: g_pkg_name
5295: p_api_version,
5296: l_api_name,
5297: g_pkg_name
5298: ) THEN
5299: RAISE FND_API.g_exc_unexpected_error;
5300: END IF;
5301:
5302: x_return_status := FND_API.g_ret_sts_success;
5303:
5298: ) THEN
5299: RAISE FND_API.g_exc_unexpected_error;
5300: END IF;
5301:
5302: x_return_status := FND_API.g_ret_sts_success;
5303:
5304: ------------------------ start -------------------------
5305: Query_Claim(
5306: p_claim_id => p_claim_id
5306: p_claim_id => p_claim_id
5307: ,x_claim_rec => l_claim_rec
5308: ,x_return_status => l_return_status
5309: );
5310: IF l_return_status = FND_API.g_ret_sts_error THEN
5311: RAISE FND_API.g_exc_error;
5312: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5313: RAISE FND_API.g_exc_unexpected_error;
5314: END IF;
5307: ,x_claim_rec => l_claim_rec
5308: ,x_return_status => l_return_status
5309: );
5310: IF l_return_status = FND_API.g_ret_sts_error THEN
5311: RAISE FND_API.g_exc_error;
5312: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5313: RAISE FND_API.g_exc_unexpected_error;
5314: END IF;
5315:
5308: ,x_return_status => l_return_status
5309: );
5310: IF l_return_status = FND_API.g_ret_sts_error THEN
5311: RAISE FND_API.g_exc_error;
5312: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5313: RAISE FND_API.g_exc_unexpected_error;
5314: END IF;
5315:
5316: IF g_debug THEN
5309: );
5310: IF l_return_status = FND_API.g_ret_sts_error THEN
5311: RAISE FND_API.g_exc_error;
5312: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5313: RAISE FND_API.g_exc_unexpected_error;
5314: END IF;
5315:
5316: IF g_debug THEN
5317: OZF_Utility_PVT.debug_message('Create Payment for ==> '||l_claim_rec.claim_number);
5359: IF g_debug THEN
5360: OZF_Utility_PVT.debug_message('After calling the close_claim ==> '||l_return_status);
5361: OZF_Utility_PVT.debug_message('After calling the close_claim ==> '||l_claim_rec.claim_id);
5362: END IF;
5363: IF l_return_status = FND_API.g_ret_sts_error THEN
5364: RAISE FND_API.g_exc_error;
5365: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5366: RAISE FND_API.g_exc_unexpected_error;
5367: END IF;
5360: OZF_Utility_PVT.debug_message('After calling the close_claim ==> '||l_return_status);
5361: OZF_Utility_PVT.debug_message('After calling the close_claim ==> '||l_claim_rec.claim_id);
5362: END IF;
5363: IF l_return_status = FND_API.g_ret_sts_error THEN
5364: RAISE FND_API.g_exc_error;
5365: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5366: RAISE FND_API.g_exc_unexpected_error;
5367: END IF;
5368:
5361: OZF_Utility_PVT.debug_message('After calling the close_claim ==> '||l_claim_rec.claim_id);
5362: END IF;
5363: IF l_return_status = FND_API.g_ret_sts_error THEN
5364: RAISE FND_API.g_exc_error;
5365: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5366: RAISE FND_API.g_exc_unexpected_error;
5367: END IF;
5368:
5369: IF g_debug THEN
5362: END IF;
5363: IF l_return_status = FND_API.g_ret_sts_error THEN
5364: RAISE FND_API.g_exc_error;
5365: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5366: RAISE FND_API.g_exc_unexpected_error;
5367: END IF;
5368:
5369: IF g_debug THEN
5370: OZF_Utility_PVT.debug_message('Before calling the update_payment_detail ==> '||l_claim_rec.claim_id);
5371: END IF;
5372: -- To create the settlement doc.
5373: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
5374: p_api_version => l_api_version
5375: ,p_init_msg_list => FND_API.g_false
5376: ,p_commit => FND_API.g_false
5377: ,p_validation_level => FND_API.g_valid_level_full
5378: ,x_return_status => l_return_status
5379: ,x_msg_data => x_msg_data
5372: -- To create the settlement doc.
5373: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
5374: p_api_version => l_api_version
5375: ,p_init_msg_list => FND_API.g_false
5376: ,p_commit => FND_API.g_false
5377: ,p_validation_level => FND_API.g_valid_level_full
5378: ,x_return_status => l_return_status
5379: ,x_msg_data => x_msg_data
5380: ,x_msg_count => x_msg_count
5373: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
5374: p_api_version => l_api_version
5375: ,p_init_msg_list => FND_API.g_false
5376: ,p_commit => FND_API.g_false
5377: ,p_validation_level => FND_API.g_valid_level_full
5378: ,x_return_status => l_return_status
5379: ,x_msg_data => x_msg_data
5380: ,x_msg_count => x_msg_count
5381: ,p_claim_id => l_claim_rec.claim_id
5388: IF g_debug THEN
5389: OZF_Utility_PVT.debug_message('After calling update_payment_detail ==> '||l_return_status);
5390: OZF_Utility_PVT.debug_message('After calling update_payment_detail ==> '||l_claim_rec.claim_id);
5391: END IF;
5392: IF l_return_status = FND_API.g_ret_sts_error THEN
5393: RAISE FND_API.g_exc_error;
5394: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5395: RAISE FND_API.g_exc_unexpected_error;
5396: END IF;
5389: OZF_Utility_PVT.debug_message('After calling update_payment_detail ==> '||l_return_status);
5390: OZF_Utility_PVT.debug_message('After calling update_payment_detail ==> '||l_claim_rec.claim_id);
5391: END IF;
5392: IF l_return_status = FND_API.g_ret_sts_error THEN
5393: RAISE FND_API.g_exc_error;
5394: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5395: RAISE FND_API.g_exc_unexpected_error;
5396: END IF;
5397: END IF;
5390: OZF_Utility_PVT.debug_message('After calling update_payment_detail ==> '||l_claim_rec.claim_id);
5391: END IF;
5392: IF l_return_status = FND_API.g_ret_sts_error THEN
5393: RAISE FND_API.g_exc_error;
5394: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5395: RAISE FND_API.g_exc_unexpected_error;
5396: END IF;
5397: END IF;
5398: END IF;
5391: END IF;
5392: IF l_return_status = FND_API.g_ret_sts_error THEN
5393: RAISE FND_API.g_exc_error;
5394: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5395: RAISE FND_API.g_exc_unexpected_error;
5396: END IF;
5397: END IF;
5398: END IF;
5399: --R12.1 Enhancement end
5404: ,x_return_status => l_return_status
5405: ,x_msg_data => x_msg_data
5406: ,x_msg_count => x_msg_count
5407: );
5408: IF l_return_status = FND_API.g_ret_sts_error THEN
5409: RAISE FND_API.g_exc_error;
5410: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5411: RAISE FND_API.g_exc_unexpected_error;
5412: END IF;
5405: ,x_msg_data => x_msg_data
5406: ,x_msg_count => x_msg_count
5407: );
5408: IF l_return_status = FND_API.g_ret_sts_error THEN
5409: RAISE FND_API.g_exc_error;
5410: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5411: RAISE FND_API.g_exc_unexpected_error;
5412: END IF;
5413: */
5406: ,x_msg_count => x_msg_count
5407: );
5408: IF l_return_status = FND_API.g_ret_sts_error THEN
5409: RAISE FND_API.g_exc_error;
5410: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5411: RAISE FND_API.g_exc_unexpected_error;
5412: END IF;
5413: */
5414: --R12.1 Enhancement : Check for ACCOUNTING_ONLY
5407: );
5408: IF l_return_status = FND_API.g_ret_sts_error THEN
5409: RAISE FND_API.g_exc_error;
5410: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5411: RAISE FND_API.g_exc_unexpected_error;
5412: END IF;
5413: */
5414: --R12.1 Enhancement : Check for ACCOUNTING_ONLY
5415: --ELS
5421: ,x_return_status => l_return_status
5422: ,x_msg_data => x_msg_data
5423: ,x_msg_count => x_msg_count
5424: );
5425: IF l_return_status = FND_API.g_ret_sts_error THEN
5426: RAISE FND_API.g_exc_error;
5427: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5428: RAISE FND_API.g_exc_unexpected_error;
5429: END IF;
5422: ,x_msg_data => x_msg_data
5423: ,x_msg_count => x_msg_count
5424: );
5425: IF l_return_status = FND_API.g_ret_sts_error THEN
5426: RAISE FND_API.g_exc_error;
5427: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5428: RAISE FND_API.g_exc_unexpected_error;
5429: END IF;
5430:
5423: ,x_msg_count => x_msg_count
5424: );
5425: IF l_return_status = FND_API.g_ret_sts_error THEN
5426: RAISE FND_API.g_exc_error;
5427: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5428: RAISE FND_API.g_exc_unexpected_error;
5429: END IF;
5430:
5431: ELSIF l_claim_rec.payment_method in ( 'CREDIT_MEMO', 'PREV_OPEN_CREDIT') THEN
5424: );
5425: IF l_return_status = FND_API.g_ret_sts_error THEN
5426: RAISE FND_API.g_exc_error;
5427: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5428: RAISE FND_API.g_exc_unexpected_error;
5429: END IF;
5430:
5431: ELSIF l_claim_rec.payment_method in ( 'CREDIT_MEMO', 'PREV_OPEN_CREDIT') THEN
5432: Pay_by_Credit_Memo(
5438: ,x_msg_data => x_msg_data
5439: ,x_msg_count => x_msg_count
5440: );
5441:
5442: IF l_return_status = FND_API.g_ret_sts_error THEN
5443: RAISE FND_API.g_exc_error;
5444: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5445: RAISE FND_API.g_exc_unexpected_error;
5446: END IF;
5439: ,x_msg_count => x_msg_count
5440: );
5441:
5442: IF l_return_status = FND_API.g_ret_sts_error THEN
5443: RAISE FND_API.g_exc_error;
5444: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5445: RAISE FND_API.g_exc_unexpected_error;
5446: END IF;
5447:
5440: );
5441:
5442: IF l_return_status = FND_API.g_ret_sts_error THEN
5443: RAISE FND_API.g_exc_error;
5444: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5445: RAISE FND_API.g_exc_unexpected_error;
5446: END IF;
5447:
5448: ELSIF l_claim_rec.payment_method = 'ON_ACCT_CREDIT' THEN
5441:
5442: IF l_return_status = FND_API.g_ret_sts_error THEN
5443: RAISE FND_API.g_exc_error;
5444: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5445: RAISE FND_API.g_exc_unexpected_error;
5446: END IF;
5447:
5448: ELSIF l_claim_rec.payment_method = 'ON_ACCT_CREDIT' THEN
5449: Pay_by_On_Account_Credit(
5452: ,x_return_status => l_return_status
5453: ,x_msg_data => x_msg_data
5454: ,x_msg_count => x_msg_count
5455: );
5456: IF l_return_status = FND_API.g_ret_sts_error THEN
5457: RAISE FND_API.g_exc_error;
5458: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5459: RAISE FND_API.g_exc_unexpected_error;
5460: END IF;
5453: ,x_msg_data => x_msg_data
5454: ,x_msg_count => x_msg_count
5455: );
5456: IF l_return_status = FND_API.g_ret_sts_error THEN
5457: RAISE FND_API.g_exc_error;
5458: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5459: RAISE FND_API.g_exc_unexpected_error;
5460: END IF;
5461:
5454: ,x_msg_count => x_msg_count
5455: );
5456: IF l_return_status = FND_API.g_ret_sts_error THEN
5457: RAISE FND_API.g_exc_error;
5458: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5459: RAISE FND_API.g_exc_unexpected_error;
5460: END IF;
5461:
5462: ELSIF l_claim_rec.payment_method = 'CHARGEBACK' THEN
5455: );
5456: IF l_return_status = FND_API.g_ret_sts_error THEN
5457: RAISE FND_API.g_exc_error;
5458: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5459: RAISE FND_API.g_exc_unexpected_error;
5460: END IF;
5461:
5462: ELSIF l_claim_rec.payment_method = 'CHARGEBACK' THEN
5463: Pay_by_Chargeback(
5466: ,x_return_status => l_return_status
5467: ,x_msg_data => x_msg_data
5468: ,x_msg_count => x_msg_count
5469: );
5470: IF l_return_status = FND_API.g_ret_sts_error THEN
5471: RAISE FND_API.g_exc_error;
5472: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5473: RAISE FND_API.g_exc_unexpected_error;
5474: END IF;
5467: ,x_msg_data => x_msg_data
5468: ,x_msg_count => x_msg_count
5469: );
5470: IF l_return_status = FND_API.g_ret_sts_error THEN
5471: RAISE FND_API.g_exc_error;
5472: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5473: RAISE FND_API.g_exc_unexpected_error;
5474: END IF;
5475:
5468: ,x_msg_count => x_msg_count
5469: );
5470: IF l_return_status = FND_API.g_ret_sts_error THEN
5471: RAISE FND_API.g_exc_error;
5472: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5473: RAISE FND_API.g_exc_unexpected_error;
5474: END IF;
5475:
5476: ELSIF (l_claim_rec.payment_method = 'WRITE_OFF')
5469: );
5470: IF l_return_status = FND_API.g_ret_sts_error THEN
5471: RAISE FND_API.g_exc_error;
5472: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5473: RAISE FND_API.g_exc_unexpected_error;
5474: END IF;
5475:
5476: ELSIF (l_claim_rec.payment_method = 'WRITE_OFF')
5477: THEN
5481: ,x_return_status => l_return_status
5482: ,x_msg_data => x_msg_data
5483: ,x_msg_count => x_msg_count
5484: );
5485: IF l_return_status = FND_API.g_ret_sts_error THEN
5486: RAISE FND_API.g_exc_error;
5487: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5488: RAISE FND_API.g_exc_unexpected_error;
5489: END IF;
5482: ,x_msg_data => x_msg_data
5483: ,x_msg_count => x_msg_count
5484: );
5485: IF l_return_status = FND_API.g_ret_sts_error THEN
5486: RAISE FND_API.g_exc_error;
5487: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5488: RAISE FND_API.g_exc_unexpected_error;
5489: END IF;
5490:
5483: ,x_msg_count => x_msg_count
5484: );
5485: IF l_return_status = FND_API.g_ret_sts_error THEN
5486: RAISE FND_API.g_exc_error;
5487: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5488: RAISE FND_API.g_exc_unexpected_error;
5489: END IF;
5490:
5491: ELSIF l_claim_rec.payment_method IN ( 'DEBIT_MEMO', 'PREV_OPEN_DEBIT') THEN
5484: );
5485: IF l_return_status = FND_API.g_ret_sts_error THEN
5486: RAISE FND_API.g_exc_error;
5487: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5488: RAISE FND_API.g_exc_unexpected_error;
5489: END IF;
5490:
5491: ELSIF l_claim_rec.payment_method IN ( 'DEBIT_MEMO', 'PREV_OPEN_DEBIT') THEN
5492: Pay_by_Debit_Memo(
5497: ,x_return_status => l_return_status
5498: ,x_msg_data => x_msg_data
5499: ,x_msg_count => x_msg_count
5500: );
5501: IF l_return_status = FND_API.g_ret_sts_error THEN
5502: RAISE FND_API.g_exc_error;
5503: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5504: RAISE FND_API.g_exc_unexpected_error;
5505: END IF;
5498: ,x_msg_data => x_msg_data
5499: ,x_msg_count => x_msg_count
5500: );
5501: IF l_return_status = FND_API.g_ret_sts_error THEN
5502: RAISE FND_API.g_exc_error;
5503: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5504: RAISE FND_API.g_exc_unexpected_error;
5505: END IF;
5506:
5499: ,x_msg_count => x_msg_count
5500: );
5501: IF l_return_status = FND_API.g_ret_sts_error THEN
5502: RAISE FND_API.g_exc_error;
5503: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5504: RAISE FND_API.g_exc_unexpected_error;
5505: END IF;
5506:
5507: ELSIF l_claim_rec.payment_method = 'CONTRA_CHARGE' THEN
5500: );
5501: IF l_return_status = FND_API.g_ret_sts_error THEN
5502: RAISE FND_API.g_exc_error;
5503: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5504: RAISE FND_API.g_exc_unexpected_error;
5505: END IF;
5506:
5507: ELSIF l_claim_rec.payment_method = 'CONTRA_CHARGE' THEN
5508: Pay_by_Contra_Charge(
5511: ,x_return_status => l_return_status
5512: ,x_msg_data => x_msg_data
5513: ,x_msg_count => x_msg_count
5514: );
5515: IF l_return_status = FND_API.g_ret_sts_error THEN
5516: RAISE FND_API.g_exc_error;
5517: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5518: RAISE FND_API.g_exc_unexpected_error;
5519: END IF;
5512: ,x_msg_data => x_msg_data
5513: ,x_msg_count => x_msg_count
5514: );
5515: IF l_return_status = FND_API.g_ret_sts_error THEN
5516: RAISE FND_API.g_exc_error;
5517: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5518: RAISE FND_API.g_exc_unexpected_error;
5519: END IF;
5520:
5513: ,x_msg_count => x_msg_count
5514: );
5515: IF l_return_status = FND_API.g_ret_sts_error THEN
5516: RAISE FND_API.g_exc_error;
5517: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5518: RAISE FND_API.g_exc_unexpected_error;
5519: END IF;
5520:
5521: ELSE
5514: );
5515: IF l_return_status = FND_API.g_ret_sts_error THEN
5516: RAISE FND_API.g_exc_error;
5517: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5518: RAISE FND_API.g_exc_unexpected_error;
5519: END IF;
5520:
5521: ELSE
5522: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5523: FND_MESSAGE.set_name('OZF', 'OZF_DED_PAYMETHOD_ERR');
5524: FND_MESSAGE.set_token('PAYMENT_METHOD', l_claim_rec.payment_method);
5525: FND_MSG_PUB.add;
5526: END IF;
5527: RAISE FND_API.g_exc_error;
5528: END IF;
5529:
5530: END IF;
5531:
5530: END IF;
5531:
5532: ------------------------ finish ------------------------
5533: FND_MSG_PUB.count_and_get(
5534: p_encoded => FND_API.g_false,
5535: p_count => x_msg_count,
5536: p_data => x_msg_data
5537: );
5538:
5540: OZF_Utility_PVT.debug_message(l_full_name ||': end');
5541: END IF;
5542:
5543: EXCEPTION
5544: WHEN FND_API.g_exc_error THEN
5545: ROLLBACK TO Create_AR_Payment;
5546: x_return_status := FND_API.g_ret_sts_error;
5547: FND_MSG_PUB.count_and_get (
5548: p_encoded => FND_API.g_false
5542:
5543: EXCEPTION
5544: WHEN FND_API.g_exc_error THEN
5545: ROLLBACK TO Create_AR_Payment;
5546: x_return_status := FND_API.g_ret_sts_error;
5547: FND_MSG_PUB.count_and_get (
5548: p_encoded => FND_API.g_false
5549: ,p_count => x_msg_count
5550: ,p_data => x_msg_data
5544: WHEN FND_API.g_exc_error THEN
5545: ROLLBACK TO Create_AR_Payment;
5546: x_return_status := FND_API.g_ret_sts_error;
5547: FND_MSG_PUB.count_and_get (
5548: p_encoded => FND_API.g_false
5549: ,p_count => x_msg_count
5550: ,p_data => x_msg_data
5551: );
5552:
5549: ,p_count => x_msg_count
5550: ,p_data => x_msg_data
5551: );
5552:
5553: WHEN FND_API.g_exc_unexpected_error THEN
5554: ROLLBACK TO Create_AR_Payment;
5555: x_return_status := FND_API.g_ret_sts_unexp_error ;
5556: FND_MSG_PUB.count_and_get (
5557: p_encoded => FND_API.g_false
5551: );
5552:
5553: WHEN FND_API.g_exc_unexpected_error THEN
5554: ROLLBACK TO Create_AR_Payment;
5555: x_return_status := FND_API.g_ret_sts_unexp_error ;
5556: FND_MSG_PUB.count_and_get (
5557: p_encoded => FND_API.g_false
5558: ,p_count => x_msg_count
5559: ,p_data => x_msg_data
5553: WHEN FND_API.g_exc_unexpected_error THEN
5554: ROLLBACK TO Create_AR_Payment;
5555: x_return_status := FND_API.g_ret_sts_unexp_error ;
5556: FND_MSG_PUB.count_and_get (
5557: p_encoded => FND_API.g_false
5558: ,p_count => x_msg_count
5559: ,p_data => x_msg_data
5560: );
5561:
5560: );
5561:
5562: WHEN OTHERS THEN
5563: ROLLBACK TO Create_AR_Payment;
5564: x_return_status := FND_API.g_ret_sts_unexp_error ;
5565: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5566: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
5567: END IF;
5568: FND_MSG_PUB.count_and_get(
5565: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5566: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
5567: END IF;
5568: FND_MSG_PUB.count_and_get(
5569: p_encoded => FND_API.g_false
5570: ,p_count => x_msg_count
5571: ,p_data => x_msg_data
5572: );
5573:
5600: -------------------- initialize -----------------------
5601: IF g_debug THEN
5602: OZF_Utility_PVT.debug_message(l_full_name||': start');
5603: END IF;
5604: x_return_status := FND_API.g_ret_sts_success;
5605:
5606: /*------------------------------------------------------------*
5607: | Update Claim Status to CLOSED.
5608: *------------------------------------------------------------*/
5612: ,x_return_status => l_return_status
5613: ,x_msg_data => x_msg_data
5614: ,x_msg_count => x_msg_count
5615: );
5616: IF l_return_status = FND_API.g_ret_sts_error THEN
5617: RAISE FND_API.g_exc_error;
5618: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5619: RAISE FND_API.g_exc_unexpected_error;
5620: END IF;
5613: ,x_msg_data => x_msg_data
5614: ,x_msg_count => x_msg_count
5615: );
5616: IF l_return_status = FND_API.g_ret_sts_error THEN
5617: RAISE FND_API.g_exc_error;
5618: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5619: RAISE FND_API.g_exc_unexpected_error;
5620: END IF;
5621:
5614: ,x_msg_count => x_msg_count
5615: );
5616: IF l_return_status = FND_API.g_ret_sts_error THEN
5617: RAISE FND_API.g_exc_error;
5618: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5619: RAISE FND_API.g_exc_unexpected_error;
5620: END IF;
5621:
5622:
5615: );
5616: IF l_return_status = FND_API.g_ret_sts_error THEN
5617: RAISE FND_API.g_exc_error;
5618: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5619: RAISE FND_API.g_exc_unexpected_error;
5620: END IF;
5621:
5622:
5623: -- Update amount in dispute
5627: ,x_return_status => l_return_status
5628: ,x_msg_data => x_msg_data
5629: ,x_msg_count => x_msg_count
5630: );
5631: IF l_return_status = FND_API.g_ret_sts_error THEN
5632: RAISE FND_API.g_exc_error;
5633: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5634: RAISE FND_API.g_exc_unexpected_error;
5635: END IF;
5628: ,x_msg_data => x_msg_data
5629: ,x_msg_count => x_msg_count
5630: );
5631: IF l_return_status = FND_API.g_ret_sts_error THEN
5632: RAISE FND_API.g_exc_error;
5633: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5634: RAISE FND_API.g_exc_unexpected_error;
5635: END IF;
5636:
5629: ,x_msg_count => x_msg_count
5630: );
5631: IF l_return_status = FND_API.g_ret_sts_error THEN
5632: RAISE FND_API.g_exc_error;
5633: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5634: RAISE FND_API.g_exc_unexpected_error;
5635: END IF;
5636:
5637: IF g_debug THEN
5630: );
5631: IF l_return_status = FND_API.g_ret_sts_error THEN
5632: RAISE FND_API.g_exc_error;
5633: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5634: RAISE FND_API.g_exc_unexpected_error;
5635: END IF;
5636:
5637: IF g_debug THEN
5638: OZF_Utility_PVT.debug_message(l_full_name||': end');
5638: OZF_Utility_PVT.debug_message(l_full_name||': end');
5639: END IF;
5640:
5641: EXCEPTION
5642: WHEN FND_API.g_exc_error THEN
5643: x_return_status := FND_API.g_ret_sts_error;
5644:
5645: WHEN FND_API.g_exc_unexpected_error THEN
5646: x_return_status := FND_API.g_ret_sts_unexp_error ;
5639: END IF;
5640:
5641: EXCEPTION
5642: WHEN FND_API.g_exc_error THEN
5643: x_return_status := FND_API.g_ret_sts_error;
5644:
5645: WHEN FND_API.g_exc_unexpected_error THEN
5646: x_return_status := FND_API.g_ret_sts_unexp_error ;
5647:
5641: EXCEPTION
5642: WHEN FND_API.g_exc_error THEN
5643: x_return_status := FND_API.g_ret_sts_error;
5644:
5645: WHEN FND_API.g_exc_unexpected_error THEN
5646: x_return_status := FND_API.g_ret_sts_unexp_error ;
5647:
5648: WHEN OTHERS THEN
5649: x_return_status := FND_API.g_ret_sts_unexp_error ;
5642: WHEN FND_API.g_exc_error THEN
5643: x_return_status := FND_API.g_ret_sts_error;
5644:
5645: WHEN FND_API.g_exc_unexpected_error THEN
5646: x_return_status := FND_API.g_ret_sts_unexp_error ;
5647:
5648: WHEN OTHERS THEN
5649: x_return_status := FND_API.g_ret_sts_unexp_error ;
5650: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5645: WHEN FND_API.g_exc_unexpected_error THEN
5646: x_return_status := FND_API.g_ret_sts_unexp_error ;
5647:
5648: WHEN OTHERS THEN
5649: x_return_status := FND_API.g_ret_sts_unexp_error ;
5650: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5651: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
5652: END IF;
5653: