39: OZF_Utility_PVT.debug_message(l_full_name||': start');
40: END IF;
41:
42: -------------------- initialize -----------------------
43: x_return_status := FND_API.g_ret_sts_success;
44:
45: ------------------------ start -------------------------
46: BEGIN
47: OZF_AR_SETTLEMENT_PVT.Start_Settlement(
54: WHEN OTHERS THEN
55: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
56: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
57: FND_MSG_PUB.Add;
58: RAISE FND_API.g_exc_unexpected_error;
59: END;
60:
61: IF OZF_DEBUG_HIGH_ON THEN
62: OZF_Utility_PVT.debug_message(l_full_name||': end');
61: IF OZF_DEBUG_HIGH_ON THEN
62: OZF_Utility_PVT.debug_message(l_full_name||': end');
63: END IF;
64: EXCEPTION
65: WHEN FND_API.g_exc_unexpected_error THEN
66: x_return_status := FND_API.g_ret_sts_unexp_error ;
67:
68: WHEN OTHERS THEN
69: x_return_status := FND_API.g_ret_sts_unexp_error ;
62: OZF_Utility_PVT.debug_message(l_full_name||': end');
63: END IF;
64: EXCEPTION
65: WHEN FND_API.g_exc_unexpected_error THEN
66: x_return_status := FND_API.g_ret_sts_unexp_error ;
67:
68: WHEN OTHERS THEN
69: x_return_status := FND_API.g_ret_sts_unexp_error ;
70: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
65: WHEN FND_API.g_exc_unexpected_error THEN
66: x_return_status := FND_API.g_ret_sts_unexp_error ;
67:
68: WHEN OTHERS THEN
69: x_return_status := FND_API.g_ret_sts_unexp_error ;
70: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
71: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
72: END IF;
73:
100: GROUP BY trx_number;
101:
102: BEGIN
103: -- Initialize API return status to sucess
104: x_return_status := FND_API.g_ret_sts_success;
105:
106: -- Check Claim Line number
107: OPEN csr_invoice_balance(p_customer_trx_id);
108: FETCH csr_invoice_balance INTO l_invoice_balance_due,l_trx_number;
113: FND_MESSAGE.set_name('OZF', 'OZF_SETL_INVOICE_BAL_ERR');
114: FND_MESSAGE.set_token('TRX_NUMBER', l_trx_number);
115: FND_MSG_PUB.add;
116: END IF;
117: RAISE FND_API.G_EXC_ERROR;
118: END IF;
119:
120: EXCEPTION
121: WHEN FND_API.G_EXC_ERROR THEN
117: RAISE FND_API.G_EXC_ERROR;
118: END IF;
119:
120: EXCEPTION
121: WHEN FND_API.G_EXC_ERROR THEN
122: x_return_status := FND_API.g_ret_sts_error;
123: WHEN OTHERS THEN
124: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
125: FND_MESSAGE.set_name('OZF', 'OZF_SETL_CHK_TRANS_BAL_UERR');
118: END IF;
119:
120: EXCEPTION
121: WHEN FND_API.G_EXC_ERROR THEN
122: x_return_status := FND_API.g_ret_sts_error;
123: WHEN OTHERS THEN
124: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
125: FND_MESSAGE.set_name('OZF', 'OZF_SETL_CHK_TRANS_BAL_UERR');
126: FND_MSG_PUB.add;
124: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
125: FND_MESSAGE.set_name('OZF', 'OZF_SETL_CHK_TRANS_BAL_UERR');
126: FND_MSG_PUB.add;
127: END IF;
128: x_return_status := FND_API.g_ret_sts_unexp_error;
129: END Check_Transaction_Balance;
130:
131:
132:
155: l_api_name CONSTANT VARCHAR2(30) := 'Reopen_Claim_for_Completion';
156:
157: BEGIN
158: -- Initialize API return status to sucess
159: x_return_status := FND_API.g_ret_sts_success;
160:
161: x_claim_rec := p_claim_rec;
162:
163: -- move amount_settled back to amount_remaining, and calculated acctd_amount_remaining also.
177: X_RETURN_STATUS => l_return_status,
178: X_ACC_AMOUNT => x_claim_rec.acctd_amount_remaining,
179: X_RATE => x_claim_rec.exchange_rate
180: );
181: IF l_return_status = FND_API.g_ret_sts_error THEN
182: RAISE FND_API.g_exc_error;
183: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
184: RAISE FND_API.g_exc_unexpected_error;
185: END IF;
178: X_ACC_AMOUNT => x_claim_rec.acctd_amount_remaining,
179: X_RATE => x_claim_rec.exchange_rate
180: );
181: IF l_return_status = FND_API.g_ret_sts_error THEN
182: RAISE FND_API.g_exc_error;
183: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
184: RAISE FND_API.g_exc_unexpected_error;
185: END IF;
186:
179: X_RATE => x_claim_rec.exchange_rate
180: );
181: IF l_return_status = FND_API.g_ret_sts_error THEN
182: RAISE FND_API.g_exc_error;
183: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
184: RAISE FND_API.g_exc_unexpected_error;
185: END IF;
186:
187: x_claim_rec.settled_by := NULL;
180: );
181: IF l_return_status = FND_API.g_ret_sts_error THEN
182: RAISE FND_API.g_exc_error;
183: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
184: RAISE FND_API.g_exc_unexpected_error;
185: END IF;
186:
187: x_claim_rec.settled_by := NULL;
188: x_claim_rec.settled_date := NULL;
192:
193: x_claim_rec.payment_status := NULL;
194:
195: EXCEPTION
196: WHEN FND_API.G_EXC_ERROR THEN
197: x_return_status := FND_API.G_RET_STS_ERROR;
198: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
199: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
200: WHEN OTHERS THEN
193: x_claim_rec.payment_status := NULL;
194:
195: EXCEPTION
196: WHEN FND_API.G_EXC_ERROR THEN
197: x_return_status := FND_API.G_RET_STS_ERROR;
198: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
199: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
200: WHEN OTHERS THEN
201: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
194:
195: EXCEPTION
196: WHEN FND_API.G_EXC_ERROR THEN
197: x_return_status := FND_API.G_RET_STS_ERROR;
198: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
199: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
200: WHEN OTHERS THEN
201: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
202: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
195: EXCEPTION
196: WHEN FND_API.G_EXC_ERROR THEN
197: x_return_status := FND_API.G_RET_STS_ERROR;
198: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
199: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
200: WHEN OTHERS THEN
201: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
202: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
203: END IF;
200: WHEN OTHERS THEN
201: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
202: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
203: END IF;
204: x_return_status := FND_API.g_ret_sts_unexp_error;
205:
206: END Reopen_Claim_for_Completion;
207:
208: ---------------------------------------------------------------------
276: OZF_Utility_PVT.debug_message(l_full_name||' : start');
277: END IF;
278:
279: -- Initialize API return status to sucess
280: x_return_status := FND_API.g_ret_sts_success;
281:
282: OPEN cust_info_csr(p_claim_id);
283: FETCH cust_info_csr INTO l_payment_method
284: , l_cust_account_id
312: l_trd_prfl.payment_method := l_payment_method;
313:
314: OZF_Trade_Profile_PVT.Create_Trade_Profile(
315: p_api_version_number => l_api_version,
316: p_init_msg_list => FND_API.G_FALSE,
317: p_commit => FND_API.G_FALSE,
318: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
319: x_return_status => l_return_status,
320: x_msg_count => l_msg_count,
313:
314: OZF_Trade_Profile_PVT.Create_Trade_Profile(
315: p_api_version_number => l_api_version,
316: p_init_msg_list => FND_API.G_FALSE,
317: p_commit => FND_API.G_FALSE,
318: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
319: x_return_status => l_return_status,
320: x_msg_count => l_msg_count,
321: x_msg_data => l_msg_data,
314: OZF_Trade_Profile_PVT.Create_Trade_Profile(
315: p_api_version_number => l_api_version,
316: p_init_msg_list => FND_API.G_FALSE,
317: p_commit => FND_API.G_FALSE,
318: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
319: x_return_status => l_return_status,
320: x_msg_count => l_msg_count,
321: x_msg_data => l_msg_data,
322: p_trade_profile_rec => l_trd_prfl,
321: x_msg_data => l_msg_data,
322: p_trade_profile_rec => l_trd_prfl,
323: x_trade_profile_id => l_trade_profile_id
324: );
325: IF l_return_status = FND_API.g_ret_sts_error THEN
326: RAISE FND_API.g_exc_error;
327: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
328: RAISE FND_API.g_exc_unexpected_error;
329: END IF;
322: p_trade_profile_rec => l_trd_prfl,
323: x_trade_profile_id => l_trade_profile_id
324: );
325: IF l_return_status = FND_API.g_ret_sts_error THEN
326: RAISE FND_API.g_exc_error;
327: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
328: RAISE FND_API.g_exc_unexpected_error;
329: END IF;
330: END IF;
323: x_trade_profile_id => l_trade_profile_id
324: );
325: IF l_return_status = FND_API.g_ret_sts_error THEN
326: RAISE FND_API.g_exc_error;
327: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
328: RAISE FND_API.g_exc_unexpected_error;
329: END IF;
330: END IF;
331: END IF;
324: );
325: IF l_return_status = FND_API.g_ret_sts_error THEN
326: RAISE FND_API.g_exc_error;
327: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
328: RAISE FND_API.g_exc_unexpected_error;
329: END IF;
330: END IF;
331: END IF;
332:
334: OZF_Utility_PVT.debug_message(l_full_name||' : end');
335: END IF;
336:
337: EXCEPTION
338: WHEN FND_API.G_EXC_ERROR THEN
339: x_return_status := FND_API.G_RET_STS_ERROR;
340: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
341: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
342: WHEN OTHERS THEN
335: END IF;
336:
337: EXCEPTION
338: WHEN FND_API.G_EXC_ERROR THEN
339: x_return_status := FND_API.G_RET_STS_ERROR;
340: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
341: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
342: WHEN OTHERS THEN
343: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
336:
337: EXCEPTION
338: WHEN FND_API.G_EXC_ERROR THEN
339: x_return_status := FND_API.G_RET_STS_ERROR;
340: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
341: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
342: WHEN OTHERS THEN
343: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
344: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
337: EXCEPTION
338: WHEN FND_API.G_EXC_ERROR THEN
339: x_return_status := FND_API.G_RET_STS_ERROR;
340: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
341: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
342: WHEN OTHERS THEN
343: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
344: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
345: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
339: x_return_status := FND_API.G_RET_STS_ERROR;
340: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
341: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
342: WHEN OTHERS THEN
343: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
344: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
345: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
346: END IF;
347:
389: OZF_Utility_PVT.debug_message(l_full_name||' : start');
390: END IF;
391:
392: -- Initialize API return status to sucess
393: x_return_status := FND_API.g_ret_sts_success;
394:
395: OPEN csr_claim_line_asso(p_claim_id);
396: LOOP
397: FETCH csr_claim_line_asso INTO l_claim_line_asso(l_counter);
411: l_claim_line_rec.earnings_associated_flag := 'F';
412:
413: OZF_CLAIM_LINE_PVT.Update_Claim_Line(
414: p_api_version => l_api_version
415: ,p_init_msg_list => FND_API.g_false
416: ,p_commit => FND_API.g_false
417: ,p_validation_level => FND_API.g_valid_level_full
418: ,x_return_status => l_return_status
419: ,x_msg_count => x_msg_count --ninarasi fix for bug 14333514
412:
413: OZF_CLAIM_LINE_PVT.Update_Claim_Line(
414: p_api_version => l_api_version
415: ,p_init_msg_list => FND_API.g_false
416: ,p_commit => FND_API.g_false
417: ,p_validation_level => FND_API.g_valid_level_full
418: ,x_return_status => l_return_status
419: ,x_msg_count => x_msg_count --ninarasi fix for bug 14333514
420: ,x_msg_data => x_msg_data
413: OZF_CLAIM_LINE_PVT.Update_Claim_Line(
414: p_api_version => l_api_version
415: ,p_init_msg_list => FND_API.g_false
416: ,p_commit => FND_API.g_false
417: ,p_validation_level => FND_API.g_valid_level_full
418: ,x_return_status => l_return_status
419: ,x_msg_count => x_msg_count --ninarasi fix for bug 14333514
420: ,x_msg_data => x_msg_data
421: ,p_claim_line_rec => l_claim_line_rec
420: ,x_msg_data => x_msg_data
421: ,p_claim_line_rec => l_claim_line_rec
422: ,x_object_version => l_line_obj_ver
423: );
424: IF l_return_status = FND_API.g_ret_sts_error THEN
425: RAISE FND_API.g_exc_error;
426: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
427: RAISE FND_API.g_exc_unexpected_error;
428: END IF;
421: ,p_claim_line_rec => l_claim_line_rec
422: ,x_object_version => l_line_obj_ver
423: );
424: IF l_return_status = FND_API.g_ret_sts_error THEN
425: RAISE FND_API.g_exc_error;
426: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
427: RAISE FND_API.g_exc_unexpected_error;
428: END IF;
429: END LOOP;
422: ,x_object_version => l_line_obj_ver
423: );
424: IF l_return_status = FND_API.g_ret_sts_error THEN
425: RAISE FND_API.g_exc_error;
426: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
427: RAISE FND_API.g_exc_unexpected_error;
428: END IF;
429: END LOOP;
430: END IF;
423: );
424: IF l_return_status = FND_API.g_ret_sts_error THEN
425: RAISE FND_API.g_exc_error;
426: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
427: RAISE FND_API.g_exc_unexpected_error;
428: END IF;
429: END LOOP;
430: END IF;
431:
433: OZF_Utility_PVT.debug_message(l_full_name||' : end');
434: END IF;
435:
436: EXCEPTION
437: WHEN FND_API.G_EXC_ERROR THEN
438: x_return_status := FND_API.G_RET_STS_ERROR;
439: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
440: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
441: WHEN OTHERS THEN
434: END IF;
435:
436: EXCEPTION
437: WHEN FND_API.G_EXC_ERROR THEN
438: x_return_status := FND_API.G_RET_STS_ERROR;
439: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
440: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
441: WHEN OTHERS THEN
442: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
435:
436: EXCEPTION
437: WHEN FND_API.G_EXC_ERROR THEN
438: x_return_status := FND_API.G_RET_STS_ERROR;
439: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
440: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
441: WHEN OTHERS THEN
442: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
443: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
436: EXCEPTION
437: WHEN FND_API.G_EXC_ERROR THEN
438: x_return_status := FND_API.G_RET_STS_ERROR;
439: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
440: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
441: WHEN OTHERS THEN
442: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
443: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
444: END IF;
441: WHEN OTHERS THEN
442: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
443: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
444: END IF;
445: x_return_status := FND_API.g_ret_sts_unexp_error;
446:
447: END Remove_Utilization;
448:
449:
474: OZF_Utility_PVT.debug_message(l_full_name||' : start');
475: END IF;
476:
477: -- Initialize API return status to sucess
478: x_return_status := FND_API.g_ret_sts_success;
479:
480: Remove_Utilization (
481: x_return_status => l_return_status
482: ,x_msg_count => x_msg_count
483: ,x_msg_data => x_msg_data
484: ,p_claim_id => p_claim_id
485:
486: );
487: IF l_return_status = FND_API.g_ret_sts_error THEN
488: RAISE FND_API.g_exc_error;
489: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
490: RAISE FND_API.g_exc_unexpected_error;
491: END IF;
484: ,p_claim_id => p_claim_id
485:
486: );
487: IF l_return_status = FND_API.g_ret_sts_error THEN
488: RAISE FND_API.g_exc_error;
489: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
490: RAISE FND_API.g_exc_unexpected_error;
491: END IF;
492:
485:
486: );
487: IF l_return_status = FND_API.g_ret_sts_error THEN
488: RAISE FND_API.g_exc_error;
489: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
490: RAISE FND_API.g_exc_unexpected_error;
491: END IF;
492:
493: IF OZF_DEBUG_HIGH_ON THEN
486: );
487: IF l_return_status = FND_API.g_ret_sts_error THEN
488: RAISE FND_API.g_exc_error;
489: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
490: RAISE FND_API.g_exc_unexpected_error;
491: END IF;
492:
493: IF OZF_DEBUG_HIGH_ON THEN
494: OZF_Utility_PVT.debug_message(l_full_name||' : end');
493: IF OZF_DEBUG_HIGH_ON THEN
494: OZF_Utility_PVT.debug_message(l_full_name||' : end');
495: END IF;
496: EXCEPTION
497: WHEN FND_API.G_EXC_ERROR THEN
498: x_return_status := FND_API.G_RET_STS_ERROR;
499: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
500: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
501: WHEN OTHERS THEN
494: OZF_Utility_PVT.debug_message(l_full_name||' : end');
495: END IF;
496: EXCEPTION
497: WHEN FND_API.G_EXC_ERROR THEN
498: x_return_status := FND_API.G_RET_STS_ERROR;
499: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
500: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
501: WHEN OTHERS THEN
502: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
495: END IF;
496: EXCEPTION
497: WHEN FND_API.G_EXC_ERROR THEN
498: x_return_status := FND_API.G_RET_STS_ERROR;
499: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
500: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
501: WHEN OTHERS THEN
502: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
503: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
496: EXCEPTION
497: WHEN FND_API.G_EXC_ERROR THEN
498: x_return_status := FND_API.G_RET_STS_ERROR;
499: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
500: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
501: WHEN OTHERS THEN
502: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
503: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
504: END IF;
501: WHEN OTHERS THEN
502: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
503: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
504: END IF;
505: x_return_status := FND_API.g_ret_sts_unexp_error;
506:
507: END Duplicate_Claim_for_Completion;
508:
509:
534: OZF_Utility_PVT.debug_message(l_full_name||' : start');
535: END IF;
536:
537: -- Initialize API return status to sucess
538: x_return_status := FND_API.g_ret_sts_success;
539:
540: Remove_Utilization (
541: x_return_status => l_return_status
542: ,x_msg_count => x_msg_count
543: ,x_msg_data => x_msg_data
544: ,p_claim_id => p_claim_id
545:
546: );
547: IF l_return_status = FND_API.g_ret_sts_error THEN
548: RAISE FND_API.g_exc_error;
549: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
550: RAISE FND_API.g_exc_unexpected_error;
551: END IF;
544: ,p_claim_id => p_claim_id
545:
546: );
547: IF l_return_status = FND_API.g_ret_sts_error THEN
548: RAISE FND_API.g_exc_error;
549: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
550: RAISE FND_API.g_exc_unexpected_error;
551: END IF;
552:
545:
546: );
547: IF l_return_status = FND_API.g_ret_sts_error THEN
548: RAISE FND_API.g_exc_error;
549: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
550: RAISE FND_API.g_exc_unexpected_error;
551: END IF;
552:
553: IF OZF_DEBUG_HIGH_ON THEN
546: );
547: IF l_return_status = FND_API.g_ret_sts_error THEN
548: RAISE FND_API.g_exc_error;
549: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
550: RAISE FND_API.g_exc_unexpected_error;
551: END IF;
552:
553: IF OZF_DEBUG_HIGH_ON THEN
554: OZF_Utility_PVT.debug_message(l_full_name||' : end');
553: IF OZF_DEBUG_HIGH_ON THEN
554: OZF_Utility_PVT.debug_message(l_full_name||' : end');
555: END IF;
556: EXCEPTION
557: WHEN FND_API.G_EXC_ERROR THEN
558: x_return_status := FND_API.G_RET_STS_ERROR;
559: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
560: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
561: WHEN OTHERS THEN
554: OZF_Utility_PVT.debug_message(l_full_name||' : end');
555: END IF;
556: EXCEPTION
557: WHEN FND_API.G_EXC_ERROR THEN
558: x_return_status := FND_API.G_RET_STS_ERROR;
559: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
560: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
561: WHEN OTHERS THEN
562: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
555: END IF;
556: EXCEPTION
557: WHEN FND_API.G_EXC_ERROR THEN
558: x_return_status := FND_API.G_RET_STS_ERROR;
559: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
560: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
561: WHEN OTHERS THEN
562: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
563: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
556: EXCEPTION
557: WHEN FND_API.G_EXC_ERROR THEN
558: x_return_status := FND_API.G_RET_STS_ERROR;
559: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
560: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
561: WHEN OTHERS THEN
562: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
563: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
564: END IF;
561: WHEN OTHERS THEN
562: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
563: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
564: END IF;
565: x_return_status := FND_API.g_ret_sts_unexp_error;
566:
567: END Cancel_Claim_for_Completion;
568:
569:
603: OZF_Utility_PVT.debug_message(l_full_name||' : start');
604: END IF;
605:
606: -- Initialize API return status to sucess
607: x_return_status := FND_API.g_ret_sts_success;
608: /*
609: OPEN csr_claim_class(p_claim_id);
610: FETCH csr_claim_class INTO l_claim_class;
611: CLOSE csr_claim_class;
623: WHEN OTHERS THEN
624: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
625: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
626: FND_MSG_PUB.Add;
627: RAISE FND_API.g_exc_unexpected_error;
628: END;
629: END IF;
630: */
631: IF OZF_DEBUG_HIGH_ON THEN
631: IF OZF_DEBUG_HIGH_ON THEN
632: OZF_Utility_PVT.debug_message(l_full_name||' : end');
633: END IF;
634: EXCEPTION
635: WHEN FND_API.G_EXC_ERROR THEN
636: x_return_status := FND_API.G_RET_STS_ERROR;
637: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
638: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
639: WHEN OTHERS THEN
632: OZF_Utility_PVT.debug_message(l_full_name||' : end');
633: END IF;
634: EXCEPTION
635: WHEN FND_API.G_EXC_ERROR THEN
636: x_return_status := FND_API.G_RET_STS_ERROR;
637: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
638: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
639: WHEN OTHERS THEN
640: IF OZF_DEBUG_LOW_ON THEN
633: END IF;
634: EXCEPTION
635: WHEN FND_API.G_EXC_ERROR THEN
636: x_return_status := FND_API.G_RET_STS_ERROR;
637: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
638: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
639: WHEN OTHERS THEN
640: IF OZF_DEBUG_LOW_ON THEN
641: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
634: EXCEPTION
635: WHEN FND_API.G_EXC_ERROR THEN
636: x_return_status := FND_API.G_RET_STS_ERROR;
637: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
638: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
639: WHEN OTHERS THEN
640: IF OZF_DEBUG_LOW_ON THEN
641: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
642: FND_MESSAGE.Set_Token('TEXT',l_full_name||' : Error');
641: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
642: FND_MESSAGE.Set_Token('TEXT',l_full_name||' : Error');
643: FND_MSG_PUB.Add;
644: END IF;
645: x_return_status := FND_API.g_ret_sts_unexp_error;
646:
647: END Cancel_Claim_for_Settlement;
648:
649:
678: OZF_Utility_PVT.debug_message(l_full_name||' : start');
679: END IF;
680:
681: -- Initialize API return status to sucess
682: x_return_status := FND_API.g_ret_sts_success;
683: x_claim_rec := p_claim_rec;
684:
685: -- move amount_settled back to amount_remaining, and calculated acctd_amount_remaining also.
686: x_claim_rec.amount_settled := 0;
699: X_RETURN_STATUS => l_return_status,
700: X_ACC_AMOUNT => x_claim_rec.acctd_amount_remaining,
701: X_RATE => x_claim_rec.exchange_rate
702: );
703: IF l_return_status = FND_API.g_ret_sts_error THEN
704: RAISE FND_API.g_exc_error;
705: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
706: RAISE FND_API.g_exc_unexpected_error;
707: END IF;
700: X_ACC_AMOUNT => x_claim_rec.acctd_amount_remaining,
701: X_RATE => x_claim_rec.exchange_rate
702: );
703: IF l_return_status = FND_API.g_ret_sts_error THEN
704: RAISE FND_API.g_exc_error;
705: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
706: RAISE FND_API.g_exc_unexpected_error;
707: END IF;
708:
701: X_RATE => x_claim_rec.exchange_rate
702: );
703: IF l_return_status = FND_API.g_ret_sts_error THEN
704: RAISE FND_API.g_exc_error;
705: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
706: RAISE FND_API.g_exc_unexpected_error;
707: END IF;
708:
709: IF OZF_DEBUG_HIGH_ON THEN
702: );
703: IF l_return_status = FND_API.g_ret_sts_error THEN
704: RAISE FND_API.g_exc_error;
705: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
706: RAISE FND_API.g_exc_unexpected_error;
707: END IF;
708:
709: IF OZF_DEBUG_HIGH_ON THEN
710: OZF_Utility_PVT.debug_message(l_full_name||' : end');
709: IF OZF_DEBUG_HIGH_ON THEN
710: OZF_Utility_PVT.debug_message(l_full_name||' : end');
711: END IF;
712: EXCEPTION
713: WHEN FND_API.G_EXC_ERROR THEN
714: x_return_status := FND_API.G_RET_STS_ERROR;
715: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
716: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
717: WHEN OTHERS THEN
710: OZF_Utility_PVT.debug_message(l_full_name||' : end');
711: END IF;
712: EXCEPTION
713: WHEN FND_API.G_EXC_ERROR THEN
714: x_return_status := FND_API.G_RET_STS_ERROR;
715: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
716: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
717: WHEN OTHERS THEN
718: x_return_status := FND_API.g_ret_sts_unexp_error;
711: END IF;
712: EXCEPTION
713: WHEN FND_API.G_EXC_ERROR THEN
714: x_return_status := FND_API.G_RET_STS_ERROR;
715: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
716: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
717: WHEN OTHERS THEN
718: x_return_status := FND_API.g_ret_sts_unexp_error;
719: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
712: EXCEPTION
713: WHEN FND_API.G_EXC_ERROR THEN
714: x_return_status := FND_API.G_RET_STS_ERROR;
715: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
716: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
717: WHEN OTHERS THEN
718: x_return_status := FND_API.g_ret_sts_unexp_error;
719: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
720: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
714: x_return_status := FND_API.G_RET_STS_ERROR;
715: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
716: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
717: WHEN OTHERS THEN
718: x_return_status := FND_API.g_ret_sts_unexp_error;
719: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
720: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
721: END IF;
722:
759: OZF_Utility_PVT.debug_message(l_full_name||' : start');
760: END IF;
761:
762: -- Initialize API return status to sucess
763: x_return_status := FND_API.g_ret_sts_success;
764: /*
765: OPEN csr_claim_class(p_claim_id);
766: FETCH csr_claim_class INTO l_claim_class;
767: CLOSE csr_claim_class;
779: WHEN OTHERS THEN
780: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
781: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
782: FND_MSG_PUB.Add;
783: RAISE FND_API.g_exc_unexpected_error;
784: END;
785: END IF;
786: */
787: IF OZF_DEBUG_HIGH_ON THEN
787: IF OZF_DEBUG_HIGH_ON THEN
788: OZF_Utility_PVT.debug_message(l_full_name||' : end');
789: END IF;
790: EXCEPTION
791: WHEN FND_API.G_EXC_ERROR THEN
792: x_return_status := FND_API.G_RET_STS_ERROR;
793: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
794: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
795: WHEN OTHERS THEN
788: OZF_Utility_PVT.debug_message(l_full_name||' : end');
789: END IF;
790: EXCEPTION
791: WHEN FND_API.G_EXC_ERROR THEN
792: x_return_status := FND_API.G_RET_STS_ERROR;
793: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
794: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
795: WHEN OTHERS THEN
796: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
789: END IF;
790: EXCEPTION
791: WHEN FND_API.G_EXC_ERROR THEN
792: x_return_status := FND_API.G_RET_STS_ERROR;
793: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
794: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
795: WHEN OTHERS THEN
796: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
797: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
790: EXCEPTION
791: WHEN FND_API.G_EXC_ERROR THEN
792: x_return_status := FND_API.G_RET_STS_ERROR;
793: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
794: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
795: WHEN OTHERS THEN
796: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
797: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
798: END IF;
795: WHEN OTHERS THEN
796: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
797: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
798: END IF;
799: x_return_status := FND_API.g_ret_sts_unexp_error;
800:
801: END Reject_Claim_for_Settlement;
802:
803:
826: IS
827: l_api_version CONSTANT NUMBER := 1.0;
828: l_api_name CONSTANT VARCHAR2(30) := 'Complete_Claim_for_Completion';
829: l_full_name CONSTANT VARCHAR2(60) := G_PKG_NAME || '.' || l_api_name;
830: l_return_status VARCHAR2(1) := FND_API.g_ret_sts_success;
831:
832: BEGIN
833: IF OZF_DEBUG_HIGH_ON THEN
834: OZF_Utility_PVT.debug_message(l_full_name||' : start');
834: OZF_Utility_PVT.debug_message(l_full_name||' : start');
835: END IF;
836:
837: -- Initialize API return status to sucess
838: x_return_status := FND_API.g_ret_sts_success;
839:
840: x_claim_rec := p_claim_rec;
841:
842: OZF_CLAIM_SETTLEMENT_VAL_PVT.Complete_Claim_Validation(
840: x_claim_rec := p_claim_rec;
841:
842: OZF_CLAIM_SETTLEMENT_VAL_PVT.Complete_Claim_Validation(
843: p_api_version => l_api_version
844: ,p_init_msg_list => FND_API.g_false
845: ,p_validation_level => FND_API.g_valid_level_full
846: ,x_return_status => l_return_status
847: ,x_msg_data => x_msg_data
848: ,x_msg_count => x_msg_count
841:
842: OZF_CLAIM_SETTLEMENT_VAL_PVT.Complete_Claim_Validation(
843: p_api_version => l_api_version
844: ,p_init_msg_list => FND_API.g_false
845: ,p_validation_level => FND_API.g_valid_level_full
846: ,x_return_status => l_return_status
847: ,x_msg_data => x_msg_data
848: ,x_msg_count => x_msg_count
849: ,p_claim_rec => p_claim_rec
848: ,x_msg_count => x_msg_count
849: ,p_claim_rec => p_claim_rec
850: ,x_claim_rec => x_claim_rec
851: );
852: IF l_return_status = FND_API.g_ret_sts_error THEN
853: RAISE FND_API.g_exc_error;
854: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
855: RAISE FND_API.g_exc_unexpected_error;
856: END IF;
849: ,p_claim_rec => p_claim_rec
850: ,x_claim_rec => x_claim_rec
851: );
852: IF l_return_status = FND_API.g_ret_sts_error THEN
853: RAISE FND_API.g_exc_error;
854: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
855: RAISE FND_API.g_exc_unexpected_error;
856: END IF;
857:
850: ,x_claim_rec => x_claim_rec
851: );
852: IF l_return_status = FND_API.g_ret_sts_error THEN
853: RAISE FND_API.g_exc_error;
854: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
855: RAISE FND_API.g_exc_unexpected_error;
856: END IF;
857:
858: IF OZF_DEBUG_HIGH_ON THEN
851: );
852: IF l_return_status = FND_API.g_ret_sts_error THEN
853: RAISE FND_API.g_exc_error;
854: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
855: RAISE FND_API.g_exc_unexpected_error;
856: END IF;
857:
858: IF OZF_DEBUG_HIGH_ON THEN
859: OZF_Utility_PVT.debug_message(l_full_name||' : end');
858: IF OZF_DEBUG_HIGH_ON THEN
859: OZF_Utility_PVT.debug_message(l_full_name||' : end');
860: END IF;
861: EXCEPTION
862: WHEN FND_API.G_EXC_ERROR THEN
863: x_return_status := FND_API.G_RET_STS_ERROR;
864: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
865: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
866: WHEN OTHERS THEN
859: OZF_Utility_PVT.debug_message(l_full_name||' : end');
860: END IF;
861: EXCEPTION
862: WHEN FND_API.G_EXC_ERROR THEN
863: x_return_status := FND_API.G_RET_STS_ERROR;
864: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
865: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
866: WHEN OTHERS THEN
867: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
860: END IF;
861: EXCEPTION
862: WHEN FND_API.G_EXC_ERROR THEN
863: x_return_status := FND_API.G_RET_STS_ERROR;
864: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
865: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
866: WHEN OTHERS THEN
867: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
868: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
861: EXCEPTION
862: WHEN FND_API.G_EXC_ERROR THEN
863: x_return_status := FND_API.G_RET_STS_ERROR;
864: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
865: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
866: WHEN OTHERS THEN
867: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
868: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
869: END IF;
866: WHEN OTHERS THEN
867: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
868: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
869: END IF;
870: x_return_status := FND_API.g_ret_sts_unexp_error;
871:
872: END Complete_Claim_for_Completion;
873:
874:
898: IF OZF_DEBUG_HIGH_ON THEN
899: OZF_Utility_PVT.debug_message(l_full_name||' : start');
900: END IF;
901: -- Initialize API return status to sucess
902: x_return_status := FND_API.g_ret_sts_success;
903:
904: -- create trade profile if need
905: Check_Create_Trd_Prfl (
906: p_claim_id => p_claim_id
907: ,x_return_status => l_return_status
908: ,x_msg_count => x_msg_count
909: ,x_msg_data => x_msg_data
910: );
911: IF l_return_status = FND_API.g_ret_sts_error THEN
912: RAISE FND_API.g_exc_error;
913: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
914: RAISE FND_API.g_exc_unexpected_error;
915: END IF;
908: ,x_msg_count => x_msg_count
909: ,x_msg_data => x_msg_data
910: );
911: IF l_return_status = FND_API.g_ret_sts_error THEN
912: RAISE FND_API.g_exc_error;
913: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
914: RAISE FND_API.g_exc_unexpected_error;
915: END IF;
916:
909: ,x_msg_data => x_msg_data
910: );
911: IF l_return_status = FND_API.g_ret_sts_error THEN
912: RAISE FND_API.g_exc_error;
913: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
914: RAISE FND_API.g_exc_unexpected_error;
915: END IF;
916:
917: IF OZF_DEBUG_HIGH_ON THEN
910: );
911: IF l_return_status = FND_API.g_ret_sts_error THEN
912: RAISE FND_API.g_exc_error;
913: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
914: RAISE FND_API.g_exc_unexpected_error;
915: END IF;
916:
917: IF OZF_DEBUG_HIGH_ON THEN
918: OZF_Utility_PVT.debug_message(l_full_name||' : end');
918: OZF_Utility_PVT.debug_message(l_full_name||' : end');
919: END IF;
920:
921: EXCEPTION
922: WHEN FND_API.G_EXC_ERROR THEN
923: x_return_status := FND_API.G_RET_STS_ERROR;
924: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
925: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
926: WHEN OTHERS THEN
919: END IF;
920:
921: EXCEPTION
922: WHEN FND_API.G_EXC_ERROR THEN
923: x_return_status := FND_API.G_RET_STS_ERROR;
924: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
925: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
926: WHEN OTHERS THEN
927: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
920:
921: EXCEPTION
922: WHEN FND_API.G_EXC_ERROR THEN
923: x_return_status := FND_API.G_RET_STS_ERROR;
924: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
925: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
926: WHEN OTHERS THEN
927: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
928: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
921: EXCEPTION
922: WHEN FND_API.G_EXC_ERROR THEN
923: x_return_status := FND_API.G_RET_STS_ERROR;
924: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
925: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
926: WHEN OTHERS THEN
927: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
928: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
929: END IF;
926: WHEN OTHERS THEN
927: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
928: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
929: END IF;
930: x_return_status := FND_API.g_ret_sts_unexp_error;
931:
932: END Complete_Claim_for_Settlement;
933:
934:
987: IF OZF_DEBUG_HIGH_ON THEN
988: OZF_Utility_PVT.debug_message(l_full_name||' : start');
989: END IF;
990: -- Initialize API return status to sucess
991: x_return_status := FND_API.g_ret_sts_success;
992:
993: x_claim_rec := p_claim_rec;
994:
995: OPEN csr_claim_perf_appr_req(p_claim_rec.custom_setup_id);
1001: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1002: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_PERF_APPR_REQ');
1003: FND_MSG_PUB.add;
1004: END IF;
1005: RAISE FND_API.g_exc_error;
1006: END IF;
1007:
1008: -- status_code/user_status_id : update claim_status to 'PENDING_APPROVAL'
1009: OPEN csr_user_status_id('PENDING_APPROVAL');
1032: X_RETURN_STATUS => l_return_status,
1033: X_ACC_AMOUNT => x_claim_rec.acctd_amount_settled,
1034: X_RATE => x_claim_rec.exchange_rate
1035: );
1036: IF l_return_status = FND_API.g_ret_sts_error THEN
1037: RAISE FND_API.g_exc_error;
1038: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1039: RAISE FND_API.g_exc_unexpected_error;
1040: END IF;
1033: X_ACC_AMOUNT => x_claim_rec.acctd_amount_settled,
1034: X_RATE => x_claim_rec.exchange_rate
1035: );
1036: IF l_return_status = FND_API.g_ret_sts_error THEN
1037: RAISE FND_API.g_exc_error;
1038: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1039: RAISE FND_API.g_exc_unexpected_error;
1040: END IF;
1041:
1034: X_RATE => x_claim_rec.exchange_rate
1035: );
1036: IF l_return_status = FND_API.g_ret_sts_error THEN
1037: RAISE FND_API.g_exc_error;
1038: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1039: RAISE FND_API.g_exc_unexpected_error;
1040: END IF;
1041:
1042: -- amount_remaining
1035: );
1036: IF l_return_status = FND_API.g_ret_sts_error THEN
1037: RAISE FND_API.g_exc_error;
1038: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1039: RAISE FND_API.g_exc_unexpected_error;
1040: END IF;
1041:
1042: -- amount_remaining
1043: x_claim_rec.amount_remaining := x_claim_rec.amount - x_claim_rec.amount_adjusted - x_claim_rec.amount_settled - NVL(x_claim_rec.tax_amount, 0);
1053: X_RETURN_STATUS => l_return_status,
1054: X_ACC_AMOUNT => x_claim_rec.acctd_amount_remaining,
1055: X_RATE => x_claim_rec.exchange_rate
1056: );
1057: IF l_return_status = FND_API.g_ret_sts_error THEN
1058: RAISE FND_API.g_exc_error;
1059: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1060: RAISE FND_API.g_exc_unexpected_error;
1061: END IF;
1054: X_ACC_AMOUNT => x_claim_rec.acctd_amount_remaining,
1055: X_RATE => x_claim_rec.exchange_rate
1056: );
1057: IF l_return_status = FND_API.g_ret_sts_error THEN
1058: RAISE FND_API.g_exc_error;
1059: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1060: RAISE FND_API.g_exc_unexpected_error;
1061: END IF;
1062:
1055: X_RATE => x_claim_rec.exchange_rate
1056: );
1057: IF l_return_status = FND_API.g_ret_sts_error THEN
1058: RAISE FND_API.g_exc_error;
1059: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1060: RAISE FND_API.g_exc_unexpected_error;
1061: END IF;
1062:
1063: ------- amount remaining checking --------
1056: );
1057: IF l_return_status = FND_API.g_ret_sts_error THEN
1058: RAISE FND_API.g_exc_error;
1059: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1060: RAISE FND_API.g_exc_unexpected_error;
1061: END IF;
1062:
1063: ------- amount remaining checking --------
1064: l_claim_amount_remaining := x_claim_rec.amount - x_claim_rec.amount_adjusted - x_claim_rec.amount_settled - NVL(x_claim_rec.tax_amount, 0);
1069: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1070: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AMT_ERR');
1071: FND_MSG_PUB.add;
1072: END IF;
1073: RAISE FND_API.g_exc_error;
1074: END IF;
1075: */
1076:
1077: -- settled_by / settled_date
1081: IF OZF_DEBUG_HIGH_ON THEN
1082: OZF_Utility_PVT.debug_message(l_full_name||' : end');
1083: END IF;
1084: EXCEPTION
1085: WHEN FND_API.G_EXC_ERROR THEN
1086: x_return_status := FND_API.G_RET_STS_ERROR;
1087: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1088: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1089: WHEN OTHERS THEN
1082: OZF_Utility_PVT.debug_message(l_full_name||' : end');
1083: END IF;
1084: EXCEPTION
1085: WHEN FND_API.G_EXC_ERROR THEN
1086: x_return_status := FND_API.G_RET_STS_ERROR;
1087: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1088: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1089: WHEN OTHERS THEN
1090: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1083: END IF;
1084: EXCEPTION
1085: WHEN FND_API.G_EXC_ERROR THEN
1086: x_return_status := FND_API.G_RET_STS_ERROR;
1087: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1088: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1089: WHEN OTHERS THEN
1090: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1091: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1084: EXCEPTION
1085: WHEN FND_API.G_EXC_ERROR THEN
1086: x_return_status := FND_API.G_RET_STS_ERROR;
1087: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1088: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1089: WHEN OTHERS THEN
1090: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1091: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1092: END IF;
1089: WHEN OTHERS THEN
1090: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1091: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1092: END IF;
1093: x_return_status := FND_API.g_ret_sts_unexp_error;
1094:
1095: END Approve_Claim_for_Completion;
1096:
1097:
1146: IF OZF_DEBUG_HIGH_ON THEN
1147: OZF_Utility_PVT.debug_message(l_full_name||' : start');
1148: END IF;
1149: -- Initialize API return status to sucess
1150: x_return_status := FND_API.g_ret_sts_success;
1151:
1152: OPEN claim_rec_csr(p_claim_id);
1153: FETCH claim_rec_csr INTO l_object_version_number,
1154: --l_new_status_id,
1169: l_reject_status_id := OZF_UTILITY_PVT.get_default_user_status(
1170: l_status_type
1171: ,l_reject_status_code
1172: );
1173: IF OZF_Claim_Accrual_PVT.Earnings_Approval_Required(p_claim_id) = FND_API.g_true THEN
1174: l_approval_type := 'EARNING';
1175: ELSIF OZF_Claim_Accrual_PVT.Perform_Approval_Required(p_claim_id) = FND_API.g_true THEN
1176: l_approval_type := 'PERFORMANCE';
1177: ELSE
1171: ,l_reject_status_code
1172: );
1173: IF OZF_Claim_Accrual_PVT.Earnings_Approval_Required(p_claim_id) = FND_API.g_true THEN
1174: l_approval_type := 'EARNING';
1175: ELSIF OZF_Claim_Accrual_PVT.Perform_Approval_Required(p_claim_id) = FND_API.g_true THEN
1176: l_approval_type := 'PERFORMANCE';
1177: ELSE
1178: l_approval_type := 'CLAIM';
1179: END IF;
1194: ,p_notes_from_requester => l_comments
1195: ,p_workflowprocess => l_approval_workflow
1196: ,p_item_type => l_item_type
1197: );
1198: IF l_return_status = FND_API.g_ret_sts_error THEN
1199: RAISE FND_API.g_exc_error;
1200: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1201: RAISE FND_API.g_exc_unexpected_error;
1202: END IF;
1195: ,p_workflowprocess => l_approval_workflow
1196: ,p_item_type => l_item_type
1197: );
1198: IF l_return_status = FND_API.g_ret_sts_error THEN
1199: RAISE FND_API.g_exc_error;
1200: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1201: RAISE FND_API.g_exc_unexpected_error;
1202: END IF;
1203:
1196: ,p_item_type => l_item_type
1197: );
1198: IF l_return_status = FND_API.g_ret_sts_error THEN
1199: RAISE FND_API.g_exc_error;
1200: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1201: RAISE FND_API.g_exc_unexpected_error;
1202: END IF;
1203:
1204: IF OZF_DEBUG_HIGH_ON THEN
1197: );
1198: IF l_return_status = FND_API.g_ret_sts_error THEN
1199: RAISE FND_API.g_exc_error;
1200: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1201: RAISE FND_API.g_exc_unexpected_error;
1202: END IF;
1203:
1204: IF OZF_DEBUG_HIGH_ON THEN
1205: OZF_Utility_PVT.debug_message(l_full_name||' : end');
1204: IF OZF_DEBUG_HIGH_ON THEN
1205: OZF_Utility_PVT.debug_message(l_full_name||' : end');
1206: END IF;
1207: EXCEPTION
1208: WHEN FND_API.G_EXC_ERROR THEN
1209: x_return_status := FND_API.G_RET_STS_ERROR;
1210: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1211: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1212: WHEN OTHERS THEN
1205: OZF_Utility_PVT.debug_message(l_full_name||' : end');
1206: END IF;
1207: EXCEPTION
1208: WHEN FND_API.G_EXC_ERROR THEN
1209: x_return_status := FND_API.G_RET_STS_ERROR;
1210: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1211: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1212: WHEN OTHERS THEN
1213: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1206: END IF;
1207: EXCEPTION
1208: WHEN FND_API.G_EXC_ERROR THEN
1209: x_return_status := FND_API.G_RET_STS_ERROR;
1210: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1211: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1212: WHEN OTHERS THEN
1213: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1214: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1207: EXCEPTION
1208: WHEN FND_API.G_EXC_ERROR THEN
1209: x_return_status := FND_API.G_RET_STS_ERROR;
1210: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1211: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1212: WHEN OTHERS THEN
1213: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1214: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1215: END IF;
1212: WHEN OTHERS THEN
1213: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1214: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1215: END IF;
1216: x_return_status := FND_API.g_ret_sts_unexp_error;
1217:
1218: END Approve_Claim_for_Settlement;
1219:
1220:
1297: IF OZF_DEBUG_HIGH_ON THEN
1298: OZF_Utility_PVT.debug_message(l_full_name||' : start');
1299: END IF;
1300: -- Initialize API return status to sucess
1301: x_return_status := FND_API.g_ret_sts_success;
1302:
1303: x_claim_rec := p_claim_rec;
1304:
1305: /*----------------------------------------------------------
1339: X_RETURN_STATUS => l_return_status,
1340: X_ACC_AMOUNT => x_claim_rec.acctd_amount_settled,
1341: X_RATE => x_claim_rec.exchange_rate
1342: );
1343: IF l_return_status = FND_API.g_ret_sts_error THEN
1344: RAISE FND_API.g_exc_error;
1345: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1346: RAISE FND_API.g_exc_unexpected_error;
1347: END IF;
1340: X_ACC_AMOUNT => x_claim_rec.acctd_amount_settled,
1341: X_RATE => x_claim_rec.exchange_rate
1342: );
1343: IF l_return_status = FND_API.g_ret_sts_error THEN
1344: RAISE FND_API.g_exc_error;
1345: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1346: RAISE FND_API.g_exc_unexpected_error;
1347: END IF;
1348:
1341: X_RATE => x_claim_rec.exchange_rate
1342: );
1343: IF l_return_status = FND_API.g_ret_sts_error THEN
1344: RAISE FND_API.g_exc_error;
1345: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1346: RAISE FND_API.g_exc_unexpected_error;
1347: END IF;
1348:
1349: -- update amount_remaining
1342: );
1343: IF l_return_status = FND_API.g_ret_sts_error THEN
1344: RAISE FND_API.g_exc_error;
1345: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1346: RAISE FND_API.g_exc_unexpected_error;
1347: END IF;
1348:
1349: -- update amount_remaining
1350: x_claim_rec.amount_remaining := x_claim_rec.amount
1363: X_RETURN_STATUS => l_return_status,
1364: X_ACC_AMOUNT => x_claim_rec.acctd_amount_remaining,
1365: X_RATE => x_claim_rec.exchange_rate
1366: );
1367: IF l_return_status = FND_API.g_ret_sts_error THEN
1368: RAISE FND_API.g_exc_error;
1369: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1370: RAISE FND_API.g_exc_unexpected_error;
1371: END IF;
1364: X_ACC_AMOUNT => x_claim_rec.acctd_amount_remaining,
1365: X_RATE => x_claim_rec.exchange_rate
1366: );
1367: IF l_return_status = FND_API.g_ret_sts_error THEN
1368: RAISE FND_API.g_exc_error;
1369: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1370: RAISE FND_API.g_exc_unexpected_error;
1371: END IF;
1372:
1365: X_RATE => x_claim_rec.exchange_rate
1366: );
1367: IF l_return_status = FND_API.g_ret_sts_error THEN
1368: RAISE FND_API.g_exc_error;
1369: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1370: RAISE FND_API.g_exc_unexpected_error;
1371: END IF;
1372:
1373: ------ check amount_remaining ------
1366: );
1367: IF l_return_status = FND_API.g_ret_sts_error THEN
1368: RAISE FND_API.g_exc_error;
1369: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1370: RAISE FND_API.g_exc_unexpected_error;
1371: END IF;
1372:
1373: ------ check amount_remaining ------
1374: -- l_claim_amount_remaining should be >= 0 now
1386: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1387: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AMT_ERR');
1388: FND_MSG_PUB.add;
1389: END IF;
1390: RAISE FND_API.g_exc_error;
1391: END IF;
1392: */
1393:
1394: x_claim_rec.settled_by := OZF_Utility_PVT.get_resource_id(FND_GLOBAL.user_id);
1423: | 2. Raise Business Event for Referral Claim Approval
1424: *---------------------------------------------------------*/
1425: Raise_Business_Event(
1426: p_api_version => l_api_version
1427: ,p_init_msg_list => FND_API.g_false
1428: ,p_commit => FND_API.g_false
1429: ,p_validation_level => FND_API.g_valid_level_full
1430: ,x_return_status => l_return_status
1431: ,x_msg_data => x_msg_data
1424: *---------------------------------------------------------*/
1425: Raise_Business_Event(
1426: p_api_version => l_api_version
1427: ,p_init_msg_list => FND_API.g_false
1428: ,p_commit => FND_API.g_false
1429: ,p_validation_level => FND_API.g_valid_level_full
1430: ,x_return_status => l_return_status
1431: ,x_msg_data => x_msg_data
1432: ,x_msg_count => x_msg_count
1425: Raise_Business_Event(
1426: p_api_version => l_api_version
1427: ,p_init_msg_list => FND_API.g_false
1428: ,p_commit => FND_API.g_false
1429: ,p_validation_level => FND_API.g_valid_level_full
1430: ,x_return_status => l_return_status
1431: ,x_msg_data => x_msg_data
1432: ,x_msg_count => x_msg_count
1433: ,p_claim_id => p_claim_rec.claim_id
1434: ,p_old_status => p_prev_status
1435: ,p_new_status => 'PENDING_APPROVAL'
1436: ,p_event_name => 'oracle.apps.ozf.claim.referralApproval'
1437: );
1438: IF l_return_status = FND_API.g_ret_sts_error THEN
1439: RAISE FND_API.g_exc_error;
1440: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1441: RAISE FND_API.g_exc_unexpected_error;
1442: END IF;
1435: ,p_new_status => 'PENDING_APPROVAL'
1436: ,p_event_name => 'oracle.apps.ozf.claim.referralApproval'
1437: );
1438: IF l_return_status = FND_API.g_ret_sts_error THEN
1439: RAISE FND_API.g_exc_error;
1440: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1441: RAISE FND_API.g_exc_unexpected_error;
1442: END IF;
1443:
1436: ,p_event_name => 'oracle.apps.ozf.claim.referralApproval'
1437: );
1438: IF l_return_status = FND_API.g_ret_sts_error THEN
1439: RAISE FND_API.g_exc_error;
1440: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1441: RAISE FND_API.g_exc_unexpected_error;
1442: END IF;
1443:
1444: x_claim_rec.status_code := 'PENDING_APPROVAL';
1437: );
1438: IF l_return_status = FND_API.g_ret_sts_error THEN
1439: RAISE FND_API.g_exc_error;
1440: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1441: RAISE FND_API.g_exc_unexpected_error;
1442: END IF;
1443:
1444: x_claim_rec.status_code := 'PENDING_APPROVAL';
1445: x_claim_rec.payment_status := 'WAITING_ACCEPTANCE';
1472: | Adjust_Fund_Utilization is fully completed.
1473: *---------------------------------------------------------*/
1474: Ozf_Claim_Accrual_Pvt.Adjust_Fund_Utilization(
1475: p_api_version => l_api_version
1476: ,p_init_msg_list => FND_API.g_false
1477: ,p_commit => FND_API.g_false
1478: ,p_validation_level => FND_API.g_valid_level_full
1479: ,x_return_status => l_return_status
1480: ,x_msg_count => x_msg_count
1473: *---------------------------------------------------------*/
1474: Ozf_Claim_Accrual_Pvt.Adjust_Fund_Utilization(
1475: p_api_version => l_api_version
1476: ,p_init_msg_list => FND_API.g_false
1477: ,p_commit => FND_API.g_false
1478: ,p_validation_level => FND_API.g_valid_level_full
1479: ,x_return_status => l_return_status
1480: ,x_msg_count => x_msg_count
1481: ,x_msg_data => x_msg_data
1474: Ozf_Claim_Accrual_Pvt.Adjust_Fund_Utilization(
1475: p_api_version => l_api_version
1476: ,p_init_msg_list => FND_API.g_false
1477: ,p_commit => FND_API.g_false
1478: ,p_validation_level => FND_API.g_valid_level_full
1479: ,x_return_status => l_return_status
1480: ,x_msg_count => x_msg_count
1481: ,x_msg_data => x_msg_data
1482: ,p_claim_id => p_claim_rec.claim_id
1482: ,p_claim_id => p_claim_rec.claim_id
1483: ,p_mode => 'ADJ_FUND'
1484: ,x_next_status => l_adj_util_result_status
1485: );
1486: IF l_return_status = FND_API.g_ret_sts_error THEN
1487: RAISE FND_API.g_exc_error;
1488: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1489: RAISE FND_API.g_exc_unexpected_error;
1490: END IF;
1483: ,p_mode => 'ADJ_FUND'
1484: ,x_next_status => l_adj_util_result_status
1485: );
1486: IF l_return_status = FND_API.g_ret_sts_error THEN
1487: RAISE FND_API.g_exc_error;
1488: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1489: RAISE FND_API.g_exc_unexpected_error;
1490: END IF;
1491:
1484: ,x_next_status => l_adj_util_result_status
1485: );
1486: IF l_return_status = FND_API.g_ret_sts_error THEN
1487: RAISE FND_API.g_exc_error;
1488: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1489: RAISE FND_API.g_exc_unexpected_error;
1490: END IF;
1491:
1492: IF l_adj_util_result_status = 'PENDING_APPROVAL' THEN
1485: );
1486: IF l_return_status = FND_API.g_ret_sts_error THEN
1487: RAISE FND_API.g_exc_error;
1488: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1489: RAISE FND_API.g_exc_unexpected_error;
1490: END IF;
1491:
1492: IF l_adj_util_result_status = 'PENDING_APPROVAL' THEN
1493: x_claim_rec.status_code := 'PENDING_APPROVAL';
1521: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1522: FND_MESSAGE.set_name('OZF', 'OZF_PAY_REFERENCE_REQD');
1523: FND_MSG_PUB.add;
1524: END IF;
1525: RAISE FND_API.G_EXC_ERROR;
1526: ELSE
1527: OPEN csr_trx_balance(p_claim_rec.payment_reference_id);
1528: FETCH csr_trx_balance INTO l_trx_balance, l_trx_currency;
1529: CLOSE csr_trx_balance;
1533: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1534: FND_MESSAGE.set_name('OZF', 'OZF_SETL_CM_DM_OP_BAL_ERR');
1535: FND_MSG_PUB.add;
1536: END IF;
1537: RAISE FND_API.G_EXC_ERROR;
1538: END IF;
1539: END IF;
1540: END IF;
1541:
1549: OZF_AR_VALIDATION_PVT.Validate_CreditTo_Information(
1550: p_claim_rec => p_claim_rec
1551: ,x_return_status => l_return_status
1552: );
1553: IF l_return_status = FND_API.g_ret_sts_error THEN
1554: RAISE FND_API.g_exc_error;
1555: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1556: RAISE FND_API.g_exc_unexpected_error;
1557: END IF;
1550: p_claim_rec => p_claim_rec
1551: ,x_return_status => l_return_status
1552: );
1553: IF l_return_status = FND_API.g_ret_sts_error THEN
1554: RAISE FND_API.g_exc_error;
1555: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1556: RAISE FND_API.g_exc_unexpected_error;
1557: END IF;
1558: END IF;
1551: ,x_return_status => l_return_status
1552: );
1553: IF l_return_status = FND_API.g_ret_sts_error THEN
1554: RAISE FND_API.g_exc_error;
1555: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1556: RAISE FND_API.g_exc_unexpected_error;
1557: END IF;
1558: END IF;
1559: END IF;
1552: );
1553: IF l_return_status = FND_API.g_ret_sts_error THEN
1554: RAISE FND_API.g_exc_error;
1555: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1556: RAISE FND_API.g_exc_unexpected_error;
1557: END IF;
1558: END IF;
1559: END IF;
1560:
1576: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1577: FND_MESSAGE.Set_Token('TEXT', 'Status return from OZF_CLAIM_LINE_PVT.Adjust_Fund_Utilization = '||l_adj_util_result_status);
1578: FND_MSG_PUB.Add;
1579: END IF;
1580: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1581: END IF; -- end of if l_adj_util_result_status
1582: END IF; -- enf of if referral claim approval
1583:
1584: -- Set returning user_status_id
1589: IF OZF_DEBUG_HIGH_ON THEN
1590: OZF_Utility_PVT.debug_message(l_full_name||' : end');
1591: END IF;
1592: EXCEPTION
1593: WHEN FND_API.G_EXC_ERROR THEN
1594: x_return_status := FND_API.G_RET_STS_ERROR;
1595:
1596: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1597: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1590: OZF_Utility_PVT.debug_message(l_full_name||' : end');
1591: END IF;
1592: EXCEPTION
1593: WHEN FND_API.G_EXC_ERROR THEN
1594: x_return_status := FND_API.G_RET_STS_ERROR;
1595:
1596: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1597: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1598:
1592: EXCEPTION
1593: WHEN FND_API.G_EXC_ERROR THEN
1594: x_return_status := FND_API.G_RET_STS_ERROR;
1595:
1596: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1597: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1598:
1599: WHEN OTHERS THEN
1600: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1593: WHEN FND_API.G_EXC_ERROR THEN
1594: x_return_status := FND_API.G_RET_STS_ERROR;
1595:
1596: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1597: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1598:
1599: WHEN OTHERS THEN
1600: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1601: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1599: WHEN OTHERS THEN
1600: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1601: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1602: END IF;
1603: x_return_status := FND_API.g_ret_sts_unexp_error;
1604:
1605: END Create_Payment_for_Completion;
1606:
1607:
1699: OZF_Utility_PVT.debug_message(l_full_name||' : start');
1700: END IF;
1701:
1702: -- Initialize API return status to sucess
1703: x_return_status := FND_API.g_ret_sts_success;
1704:
1705: OPEN csr_claim_settle(p_claim_id);
1706: FETCH csr_claim_settle INTO l_claim_settle;
1707: CLOSE csr_claim_settle;
1756: WHEN OTHERS THEN
1757: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1758: FND_MESSAGE.Set_Token('TEXT','Promo Err: ' || sqlerrm);
1759: FND_MSG_PUB.Add;
1760: RAISE FND_API.g_exc_unexpected_error;
1761: END;
1762: ELSE -- non promotional claims
1763: /*---------------------------------------------------------*
1764: | CHECK (AP) |
1781: p_claim_id => p_claim_id,
1782: p_settlement_method => l_claim_settle.payment_method
1783: );
1784: END IF;
1785: IF l_return_status = FND_API.g_ret_sts_error THEN
1786: RAISE FND_API.g_exc_error;
1787: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1788: RAISE FND_API.g_exc_unexpected_error;
1789: END IF;
1782: p_settlement_method => l_claim_settle.payment_method
1783: );
1784: END IF;
1785: IF l_return_status = FND_API.g_ret_sts_error THEN
1786: RAISE FND_API.g_exc_error;
1787: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1788: RAISE FND_API.g_exc_unexpected_error;
1789: END IF;
1790: IF OZF_DEBUG_HIGH_ON THEN
1783: );
1784: END IF;
1785: IF l_return_status = FND_API.g_ret_sts_error THEN
1786: RAISE FND_API.g_exc_error;
1787: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1788: RAISE FND_API.g_exc_unexpected_error;
1789: END IF;
1790: IF OZF_DEBUG_HIGH_ON THEN
1791: OZF_Utility_PVT.debug_message('Accounting Event Id :'||l_event_id );
1784: END IF;
1785: IF l_return_status = FND_API.g_ret_sts_error THEN
1786: RAISE FND_API.g_exc_error;
1787: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1788: RAISE FND_API.g_exc_unexpected_error;
1789: END IF;
1790: IF OZF_DEBUG_HIGH_ON THEN
1791: OZF_Utility_PVT.debug_message('Accounting Event Id :'||l_event_id );
1792: OZF_Utility_PVT.debug_message('Code Combination Id :'||l_ccid );
1798:
1799: -- create AP invoice
1800: OZF_AP_INTERFACE_PVT.Create_AP_Invoice (
1801: p_api_version => l_api_version
1802: ,p_init_msg_list => FND_API.g_false
1803: ,p_commit => FND_API.g_false
1804: ,p_validation_level => FND_API.g_valid_level_full
1805: ,x_return_status => l_return_status
1806: ,x_msg_data => x_msg_data
1799: -- create AP invoice
1800: OZF_AP_INTERFACE_PVT.Create_AP_Invoice (
1801: p_api_version => l_api_version
1802: ,p_init_msg_list => FND_API.g_false
1803: ,p_commit => FND_API.g_false
1804: ,p_validation_level => FND_API.g_valid_level_full
1805: ,x_return_status => l_return_status
1806: ,x_msg_data => x_msg_data
1807: ,x_msg_count => x_msg_count
1800: OZF_AP_INTERFACE_PVT.Create_AP_Invoice (
1801: p_api_version => l_api_version
1802: ,p_init_msg_list => FND_API.g_false
1803: ,p_commit => FND_API.g_false
1804: ,p_validation_level => FND_API.g_valid_level_full
1805: ,x_return_status => l_return_status
1806: ,x_msg_data => x_msg_data
1807: ,x_msg_count => x_msg_count
1808: ,p_claim_id => p_claim_id
1806: ,x_msg_data => x_msg_data
1807: ,x_msg_count => x_msg_count
1808: ,p_claim_id => p_claim_id
1809: );
1810: IF l_return_status = FND_API.g_ret_sts_error THEN
1811: RAISE FND_API.g_exc_error;
1812: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1813: RAISE FND_API.g_exc_unexpected_error;
1814: END IF;
1807: ,x_msg_count => x_msg_count
1808: ,p_claim_id => p_claim_id
1809: );
1810: IF l_return_status = FND_API.g_ret_sts_error THEN
1811: RAISE FND_API.g_exc_error;
1812: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1813: RAISE FND_API.g_exc_unexpected_error;
1814: END IF;
1815:
1808: ,p_claim_id => p_claim_id
1809: );
1810: IF l_return_status = FND_API.g_ret_sts_error THEN
1811: RAISE FND_API.g_exc_error;
1812: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1813: RAISE FND_API.g_exc_unexpected_error;
1814: END IF;
1815:
1816: /*---------------------------------------------------------*
1809: );
1810: IF l_return_status = FND_API.g_ret_sts_error THEN
1811: RAISE FND_API.g_exc_error;
1812: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1813: RAISE FND_API.g_exc_unexpected_error;
1814: END IF;
1815:
1816: /*---------------------------------------------------------*
1817: | AR Settlement
1842: p_claim_id => p_claim_id,
1843: p_settlement_method => l_claim_settle.payment_method
1844: );
1845: END IF;
1846: IF l_return_status = FND_API.g_ret_sts_error THEN
1847: RAISE FND_API.g_exc_error;
1848: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1849: RAISE FND_API.g_exc_unexpected_error;
1850: END IF;
1843: p_settlement_method => l_claim_settle.payment_method
1844: );
1845: END IF;
1846: IF l_return_status = FND_API.g_ret_sts_error THEN
1847: RAISE FND_API.g_exc_error;
1848: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1849: RAISE FND_API.g_exc_unexpected_error;
1850: END IF;
1851: IF OZF_DEBUG_HIGH_ON THEN
1844: );
1845: END IF;
1846: IF l_return_status = FND_API.g_ret_sts_error THEN
1847: RAISE FND_API.g_exc_error;
1848: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1849: RAISE FND_API.g_exc_unexpected_error;
1850: END IF;
1851: IF OZF_DEBUG_HIGH_ON THEN
1852: OZF_Utility_PVT.debug_message('Accounting Event Id :'||l_event_id );
1845: END IF;
1846: IF l_return_status = FND_API.g_ret_sts_error THEN
1847: RAISE FND_API.g_exc_error;
1848: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1849: RAISE FND_API.g_exc_unexpected_error;
1850: END IF;
1851: IF OZF_DEBUG_HIGH_ON THEN
1852: OZF_Utility_PVT.debug_message('Accounting Event Id :'||l_event_id );
1853: OZF_Utility_PVT.debug_message('Code Combination Id :'||l_ccid );
1859: IF ((l_automate_settlement = 'Y') OR (l_claim_settle.payment_method = 'ACCOUNTING_ONLY'))
1860: THEN
1861: OZF_AR_PAYMENT_PVT.Create_AR_Payment(
1862: p_api_version => l_api_version
1863: ,p_init_msg_list => FND_API.g_false
1864: ,p_commit => FND_API.g_false
1865: ,p_validation_level => FND_API.g_valid_level_full
1866: ,x_return_status => l_return_status
1867: ,x_msg_data => x_msg_data
1860: THEN
1861: OZF_AR_PAYMENT_PVT.Create_AR_Payment(
1862: p_api_version => l_api_version
1863: ,p_init_msg_list => FND_API.g_false
1864: ,p_commit => FND_API.g_false
1865: ,p_validation_level => FND_API.g_valid_level_full
1866: ,x_return_status => l_return_status
1867: ,x_msg_data => x_msg_data
1868: ,x_msg_count => x_msg_count
1861: OZF_AR_PAYMENT_PVT.Create_AR_Payment(
1862: p_api_version => l_api_version
1863: ,p_init_msg_list => FND_API.g_false
1864: ,p_commit => FND_API.g_false
1865: ,p_validation_level => FND_API.g_valid_level_full
1866: ,x_return_status => l_return_status
1867: ,x_msg_data => x_msg_data
1868: ,x_msg_count => x_msg_count
1869: ,p_claim_id => p_claim_id
1867: ,x_msg_data => x_msg_data
1868: ,x_msg_count => x_msg_count
1869: ,p_claim_id => p_claim_id
1870: );
1871: IF l_return_status = FND_API.g_ret_sts_error THEN
1872: RAISE FND_API.g_exc_error;
1873: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1874: RAISE FND_API.g_exc_unexpected_error;
1875: END IF;
1868: ,x_msg_count => x_msg_count
1869: ,p_claim_id => p_claim_id
1870: );
1871: IF l_return_status = FND_API.g_ret_sts_error THEN
1872: RAISE FND_API.g_exc_error;
1873: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1874: RAISE FND_API.g_exc_unexpected_error;
1875: END IF;
1876: ELSE
1869: ,p_claim_id => p_claim_id
1870: );
1871: IF l_return_status = FND_API.g_ret_sts_error THEN
1872: RAISE FND_API.g_exc_error;
1873: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1874: RAISE FND_API.g_exc_unexpected_error;
1875: END IF;
1876: ELSE
1877: Process_Settlement_WF(
1870: );
1871: IF l_return_status = FND_API.g_ret_sts_error THEN
1872: RAISE FND_API.g_exc_error;
1873: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1874: RAISE FND_API.g_exc_unexpected_error;
1875: END IF;
1876: ELSE
1877: Process_Settlement_WF(
1878: p_claim_id => p_claim_id
1879: ,x_return_status => l_return_status
1880: ,x_msg_data => x_msg_data
1881: ,x_msg_count => x_msg_count
1882: );
1883: IF l_return_status = FND_API.g_ret_sts_error THEN
1884: RAISE FND_API.g_exc_error;
1885: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1886: RAISE FND_API.g_exc_unexpected_error;
1887: END IF;
1880: ,x_msg_data => x_msg_data
1881: ,x_msg_count => x_msg_count
1882: );
1883: IF l_return_status = FND_API.g_ret_sts_error THEN
1884: RAISE FND_API.g_exc_error;
1885: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1886: RAISE FND_API.g_exc_unexpected_error;
1887: END IF;
1888: END IF;
1881: ,x_msg_count => x_msg_count
1882: );
1883: IF l_return_status = FND_API.g_ret_sts_error THEN
1884: RAISE FND_API.g_exc_error;
1885: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1886: RAISE FND_API.g_exc_unexpected_error;
1887: END IF;
1888: END IF;
1889:
1882: );
1883: IF l_return_status = FND_API.g_ret_sts_error THEN
1884: RAISE FND_API.g_exc_error;
1885: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1886: RAISE FND_API.g_exc_unexpected_error;
1887: END IF;
1888: END IF;
1889:
1890: /*---------------------------------------------------------*
1895:
1896: IF l_automate_settlement = 'Y' THEN
1897: OZF_OM_PAYMENT_PVT.Create_OM_Payment(
1898: p_api_version => l_api_version
1899: ,p_init_msg_list => FND_API.g_false
1900: ,p_commit => FND_API.g_false
1901: ,p_validation_level => FND_API.g_valid_level_full
1902: ,x_return_status => l_return_status
1903: ,x_msg_data => x_msg_data
1896: IF l_automate_settlement = 'Y' THEN
1897: OZF_OM_PAYMENT_PVT.Create_OM_Payment(
1898: p_api_version => l_api_version
1899: ,p_init_msg_list => FND_API.g_false
1900: ,p_commit => FND_API.g_false
1901: ,p_validation_level => FND_API.g_valid_level_full
1902: ,x_return_status => l_return_status
1903: ,x_msg_data => x_msg_data
1904: ,x_msg_count => x_msg_count
1897: OZF_OM_PAYMENT_PVT.Create_OM_Payment(
1898: p_api_version => l_api_version
1899: ,p_init_msg_list => FND_API.g_false
1900: ,p_commit => FND_API.g_false
1901: ,p_validation_level => FND_API.g_valid_level_full
1902: ,x_return_status => l_return_status
1903: ,x_msg_data => x_msg_data
1904: ,x_msg_count => x_msg_count
1905: ,p_claim_id => p_claim_id
1903: ,x_msg_data => x_msg_data
1904: ,x_msg_count => x_msg_count
1905: ,p_claim_id => p_claim_id
1906: );
1907: IF l_return_status = FND_API.g_ret_sts_error THEN
1908: RAISE FND_API.g_exc_error;
1909: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1910: RAISE FND_API.g_exc_unexpected_error;
1911: END IF;
1904: ,x_msg_count => x_msg_count
1905: ,p_claim_id => p_claim_id
1906: );
1907: IF l_return_status = FND_API.g_ret_sts_error THEN
1908: RAISE FND_API.g_exc_error;
1909: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1910: RAISE FND_API.g_exc_unexpected_error;
1911: END IF;
1912: ELSE
1905: ,p_claim_id => p_claim_id
1906: );
1907: IF l_return_status = FND_API.g_ret_sts_error THEN
1908: RAISE FND_API.g_exc_error;
1909: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1910: RAISE FND_API.g_exc_unexpected_error;
1911: END IF;
1912: ELSE
1913: Process_Settlement_WF(
1906: );
1907: IF l_return_status = FND_API.g_ret_sts_error THEN
1908: RAISE FND_API.g_exc_error;
1909: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1910: RAISE FND_API.g_exc_unexpected_error;
1911: END IF;
1912: ELSE
1913: Process_Settlement_WF(
1914: p_claim_id => p_claim_id
1915: ,x_return_status => l_return_status
1916: ,x_msg_data => x_msg_data
1917: ,x_msg_count => x_msg_count
1918: );
1919: IF l_return_status = FND_API.g_ret_sts_error THEN
1920: RAISE FND_API.g_exc_error;
1921: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1922: RAISE FND_API.g_exc_unexpected_error;
1923: END IF;
1916: ,x_msg_data => x_msg_data
1917: ,x_msg_count => x_msg_count
1918: );
1919: IF l_return_status = FND_API.g_ret_sts_error THEN
1920: RAISE FND_API.g_exc_error;
1921: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1922: RAISE FND_API.g_exc_unexpected_error;
1923: END IF;
1924: END IF;
1917: ,x_msg_count => x_msg_count
1918: );
1919: IF l_return_status = FND_API.g_ret_sts_error THEN
1920: RAISE FND_API.g_exc_error;
1921: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1922: RAISE FND_API.g_exc_unexpected_error;
1923: END IF;
1924: END IF;
1925:
1918: );
1919: IF l_return_status = FND_API.g_ret_sts_error THEN
1920: RAISE FND_API.g_exc_error;
1921: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1922: RAISE FND_API.g_exc_unexpected_error;
1923: END IF;
1924: END IF;
1925:
1926: /*---------------------------------------------------------*
1937: x_msg_count => x_msg_count,
1938: p_claim_id => p_claim_id,
1939: p_settlement_method => l_claim_settle.payment_method
1940: );
1941: IF l_return_status = FND_API.g_ret_sts_error THEN
1942: RAISE FND_API.g_exc_error;
1943: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1944: RAISE FND_API.g_exc_unexpected_error;
1945: END IF;
1938: p_claim_id => p_claim_id,
1939: p_settlement_method => l_claim_settle.payment_method
1940: );
1941: IF l_return_status = FND_API.g_ret_sts_error THEN
1942: RAISE FND_API.g_exc_error;
1943: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1944: RAISE FND_API.g_exc_unexpected_error;
1945: END IF;
1946: IF OZF_DEBUG_HIGH_ON THEN
1939: p_settlement_method => l_claim_settle.payment_method
1940: );
1941: IF l_return_status = FND_API.g_ret_sts_error THEN
1942: RAISE FND_API.g_exc_error;
1943: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1944: RAISE FND_API.g_exc_unexpected_error;
1945: END IF;
1946: IF OZF_DEBUG_HIGH_ON THEN
1947: OZF_Utility_PVT.debug_message('Accounting Event Id :'||l_event_id );
1940: );
1941: IF l_return_status = FND_API.g_ret_sts_error THEN
1942: RAISE FND_API.g_exc_error;
1943: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1944: RAISE FND_API.g_exc_unexpected_error;
1945: END IF;
1946: IF OZF_DEBUG_HIGH_ON THEN
1947: OZF_Utility_PVT.debug_message('Accounting Event Id :'||l_event_id );
1948: OZF_Utility_PVT.debug_message('Code Combination Id :'||l_ccid );
1954: ,x_return_status => l_return_status
1955: ,x_msg_data => x_msg_data
1956: ,x_msg_count => x_msg_count
1957: );
1958: IF l_return_status = FND_API.g_ret_sts_error THEN
1959: RAISE FND_API.g_exc_error;
1960: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1961: RAISE FND_API.g_exc_unexpected_error;
1962: END IF;
1955: ,x_msg_data => x_msg_data
1956: ,x_msg_count => x_msg_count
1957: );
1958: IF l_return_status = FND_API.g_ret_sts_error THEN
1959: RAISE FND_API.g_exc_error;
1960: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1961: RAISE FND_API.g_exc_unexpected_error;
1962: END IF;
1963:
1956: ,x_msg_count => x_msg_count
1957: );
1958: IF l_return_status = FND_API.g_ret_sts_error THEN
1959: RAISE FND_API.g_exc_error;
1960: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1961: RAISE FND_API.g_exc_unexpected_error;
1962: END IF;
1963:
1964: /*---------------------------------------------------------*
1957: );
1958: IF l_return_status = FND_API.g_ret_sts_error THEN
1959: RAISE FND_API.g_exc_error;
1960: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1961: RAISE FND_API.g_exc_unexpected_error;
1962: END IF;
1963:
1964: /*---------------------------------------------------------*
1965: | MASS_SETTLEMENT |
1970: ,x_return_status => l_return_status
1971: ,x_msg_data => x_msg_data
1972: ,x_msg_count => x_msg_count
1973: );
1974: IF l_return_status = FND_API.g_ret_sts_error THEN
1975: RAISE FND_API.g_exc_error;
1976: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1977: RAISE FND_API.g_exc_unexpected_error;
1978: END IF;
1971: ,x_msg_data => x_msg_data
1972: ,x_msg_count => x_msg_count
1973: );
1974: IF l_return_status = FND_API.g_ret_sts_error THEN
1975: RAISE FND_API.g_exc_error;
1976: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1977: RAISE FND_API.g_exc_unexpected_error;
1978: END IF;
1979:
1972: ,x_msg_count => x_msg_count
1973: );
1974: IF l_return_status = FND_API.g_ret_sts_error THEN
1975: RAISE FND_API.g_exc_error;
1976: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1977: RAISE FND_API.g_exc_unexpected_error;
1978: END IF;
1979:
1980: /*---------------------------------------------------------*
1973: );
1974: IF l_return_status = FND_API.g_ret_sts_error THEN
1975: RAISE FND_API.g_exc_error;
1976: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1977: RAISE FND_API.g_exc_unexpected_error;
1978: END IF;
1979:
1980: /*---------------------------------------------------------*
1981: | Non-seeded payment_method |
1987: ,x_return_status => l_return_status
1988: ,x_msg_data => x_msg_data
1989: ,x_msg_count => x_msg_count
1990: );
1991: IF l_return_status = FND_API.g_ret_sts_error THEN
1992: RAISE FND_API.g_exc_error;
1993: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1994: RAISE FND_API.g_exc_unexpected_error;
1995: END IF;
1988: ,x_msg_data => x_msg_data
1989: ,x_msg_count => x_msg_count
1990: );
1991: IF l_return_status = FND_API.g_ret_sts_error THEN
1992: RAISE FND_API.g_exc_error;
1993: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1994: RAISE FND_API.g_exc_unexpected_error;
1995: END IF;
1996:
1989: ,x_msg_count => x_msg_count
1990: );
1991: IF l_return_status = FND_API.g_ret_sts_error THEN
1992: RAISE FND_API.g_exc_error;
1993: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1994: RAISE FND_API.g_exc_unexpected_error;
1995: END IF;
1996:
1997: END IF;
1990: );
1991: IF l_return_status = FND_API.g_ret_sts_error THEN
1992: RAISE FND_API.g_exc_error;
1993: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1994: RAISE FND_API.g_exc_unexpected_error;
1995: END IF;
1996:
1997: END IF;
1998:
2001: IF OZF_DEBUG_HIGH_ON THEN
2002: OZF_Utility_PVT.debug_message(l_full_name||' : end');
2003: END IF;
2004: EXCEPTION
2005: WHEN FND_API.G_EXC_ERROR THEN
2006: x_return_status := FND_API.G_RET_STS_ERROR;
2007:
2008: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2009: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2002: OZF_Utility_PVT.debug_message(l_full_name||' : end');
2003: END IF;
2004: EXCEPTION
2005: WHEN FND_API.G_EXC_ERROR THEN
2006: x_return_status := FND_API.G_RET_STS_ERROR;
2007:
2008: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2009: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2010:
2004: EXCEPTION
2005: WHEN FND_API.G_EXC_ERROR THEN
2006: x_return_status := FND_API.G_RET_STS_ERROR;
2007:
2008: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2009: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2010:
2011: WHEN OTHERS THEN
2012: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2005: WHEN FND_API.G_EXC_ERROR THEN
2006: x_return_status := FND_API.G_RET_STS_ERROR;
2007:
2008: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2009: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2010:
2011: WHEN OTHERS THEN
2012: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2013: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2011: WHEN OTHERS THEN
2012: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2013: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2014: END IF;
2015: x_return_status := FND_API.g_ret_sts_unexp_error;
2016:
2017: END Create_Payment_for_Settlement;
2018:
2019:
2058: IF OZF_DEBUG_HIGH_ON THEN
2059: OZF_Utility_PVT.debug_message(l_full_name||' : start');
2060: END IF;
2061: -- Initialize API return status to sucess
2062: x_return_status := FND_API.g_ret_sts_success;
2063:
2064: x_claim_rec := p_claim_rec;
2065:
2066: /*
2087: X_RETURN_STATUS => l_return_status,
2088: X_ACC_AMOUNT => x_claim_rec.acctd_amount_remaining,
2089: X_RATE => x_claim_rec.exchange_rate
2090: );
2091: IF l_return_status = FND_API.g_ret_sts_error THEN
2092: RAISE FND_API.g_exc_error;
2093: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2094: RAISE FND_API.g_exc_unexpected_error;
2095: END IF;
2088: X_ACC_AMOUNT => x_claim_rec.acctd_amount_remaining,
2089: X_RATE => x_claim_rec.exchange_rate
2090: );
2091: IF l_return_status = FND_API.g_ret_sts_error THEN
2092: RAISE FND_API.g_exc_error;
2093: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2094: RAISE FND_API.g_exc_unexpected_error;
2095: END IF;
2096: */
2089: X_RATE => x_claim_rec.exchange_rate
2090: );
2091: IF l_return_status = FND_API.g_ret_sts_error THEN
2092: RAISE FND_API.g_exc_error;
2093: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2094: RAISE FND_API.g_exc_unexpected_error;
2095: END IF;
2096: */
2097:
2090: );
2091: IF l_return_status = FND_API.g_ret_sts_error THEN
2092: RAISE FND_API.g_exc_error;
2093: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2094: RAISE FND_API.g_exc_unexpected_error;
2095: END IF;
2096: */
2097:
2098: IF OZF_DEBUG_HIGH_ON THEN
2098: IF OZF_DEBUG_HIGH_ON THEN
2099: OZF_Utility_PVT.debug_message(l_full_name||' : end');
2100: END IF;
2101: EXCEPTION
2102: WHEN FND_API.G_EXC_ERROR THEN
2103: x_return_status := FND_API.G_RET_STS_ERROR;
2104: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2105: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2106: WHEN OTHERS THEN
2099: OZF_Utility_PVT.debug_message(l_full_name||' : end');
2100: END IF;
2101: EXCEPTION
2102: WHEN FND_API.G_EXC_ERROR THEN
2103: x_return_status := FND_API.G_RET_STS_ERROR;
2104: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2105: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2106: WHEN OTHERS THEN
2107: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2100: END IF;
2101: EXCEPTION
2102: WHEN FND_API.G_EXC_ERROR THEN
2103: x_return_status := FND_API.G_RET_STS_ERROR;
2104: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2105: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2106: WHEN OTHERS THEN
2107: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2108: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2101: EXCEPTION
2102: WHEN FND_API.G_EXC_ERROR THEN
2103: x_return_status := FND_API.G_RET_STS_ERROR;
2104: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2105: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2106: WHEN OTHERS THEN
2107: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2108: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2109: END IF;
2106: WHEN OTHERS THEN
2107: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2108: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2109: END IF;
2110: x_return_status := FND_API.g_ret_sts_unexp_error;
2111:
2112: END Update_Claim_Remaining_Amount;
2113:
2114:
2251: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2252: FND_MESSAGE.set_name('OZF', 'OZF_SETL_CHK_APPR_UNEXPERR');
2253: FND_MSG_PUB.add;
2254: END IF;
2255: x_return_status := FND_API.g_ret_sts_unexp_error;
2256: END Claim_Approval_Required;
2257:
2258:
2259: ---------------------------------------------------------------------
2338: OZF_Utility_PVT.debug_message('trunc(p_claim_exchange_date)' || trunc(p_claim_exchange_date));
2339: OZF_Utility_PVT.debug_message('p_claim_rate' || p_claim_rate);
2340: END IF;
2341:
2342: x_return_status := FND_API.g_ret_sts_success;
2343:
2344: l_claim_settled_date := p_settled_date;
2345:
2346: IF (trunc(p_settled_date) = trunc(p_claim_exchange_date)) THEN
2409: ,x_to_amount => l_lu_acctd_amount
2410: ,x_rate => l_claim_exc_rate
2411: );
2412:
2413: IF l_return_status = FND_API.g_ret_sts_error THEN
2414: RAISE FND_API.g_exc_error;
2415: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2416: RAISE FND_API.g_exc_unexpected_error;
2417: END IF;
2410: ,x_rate => l_claim_exc_rate
2411: );
2412:
2413: IF l_return_status = FND_API.g_ret_sts_error THEN
2414: RAISE FND_API.g_exc_error;
2415: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2416: RAISE FND_API.g_exc_unexpected_error;
2417: END IF;
2418:
2411: );
2412:
2413: IF l_return_status = FND_API.g_ret_sts_error THEN
2414: RAISE FND_API.g_exc_error;
2415: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2416: RAISE FND_API.g_exc_unexpected_error;
2417: END IF;
2418:
2419: OZF_UTILITY_PVT.Convert_Currency(
2412:
2413: IF l_return_status = FND_API.g_ret_sts_error THEN
2414: RAISE FND_API.g_exc_error;
2415: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2416: RAISE FND_API.g_exc_unexpected_error;
2417: END IF;
2418:
2419: OZF_UTILITY_PVT.Convert_Currency(
2420: p_from_currency => l_plan_currency_code
2426: ,x_to_amount => l_util_acctd_amount
2427: ,x_rate => l_fu_exc_rate
2428: );
2429:
2430: IF l_return_status = FND_API.g_ret_sts_error THEN
2431: RAISE FND_API.g_exc_error;
2432: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2433: RAISE FND_API.g_exc_unexpected_error;
2434: END IF;
2427: ,x_rate => l_fu_exc_rate
2428: );
2429:
2430: IF l_return_status = FND_API.g_ret_sts_error THEN
2431: RAISE FND_API.g_exc_error;
2432: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2433: RAISE FND_API.g_exc_unexpected_error;
2434: END IF;
2435:
2428: );
2429:
2430: IF l_return_status = FND_API.g_ret_sts_error THEN
2431: RAISE FND_API.g_exc_error;
2432: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2433: RAISE FND_API.g_exc_unexpected_error;
2434: END IF;
2435:
2436: l_fxgl_amount := l_lu_acctd_amount - l_util_acctd_amount;
2429:
2430: IF l_return_status = FND_API.g_ret_sts_error THEN
2431: RAISE FND_API.g_exc_error;
2432: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2433: RAISE FND_API.g_exc_unexpected_error;
2434: END IF;
2435:
2436: l_fxgl_amount := l_lu_acctd_amount - l_util_acctd_amount;
2437:
2465: OZF_Utility_PVT.debug_message(l_full_name||' : end');
2466: END IF;
2467:
2468: EXCEPTION
2469: WHEN FND_API.G_EXC_ERROR THEN
2470: x_return_status := FND_API.G_RET_STS_ERROR;
2471:
2472: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2473: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2466: END IF;
2467:
2468: EXCEPTION
2469: WHEN FND_API.G_EXC_ERROR THEN
2470: x_return_status := FND_API.G_RET_STS_ERROR;
2471:
2472: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2473: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2474:
2468: EXCEPTION
2469: WHEN FND_API.G_EXC_ERROR THEN
2470: x_return_status := FND_API.G_RET_STS_ERROR;
2471:
2472: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2473: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2474:
2475: WHEN OTHERS THEN
2476: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2469: WHEN FND_API.G_EXC_ERROR THEN
2470: x_return_status := FND_API.G_RET_STS_ERROR;
2471:
2472: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2473: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2474:
2475: WHEN OTHERS THEN
2476: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2477: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2475: WHEN OTHERS THEN
2476: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2477: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2478: END IF;
2479: x_return_status := FND_API.g_ret_sts_unexp_error;
2480: END Recalculate_FXGL;
2481:
2482:
2483: ---------------------------------------------------------------------
2490: -- 03/22/2001 mchang Create.
2491: ---------------------------------------------------------------------
2492: PROCEDURE Complete_Settlement(
2493: p_api_version IN NUMBER
2494: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2495: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2496: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2497:
2498: ,x_return_status OUT NOCOPY VARCHAR2
2491: ---------------------------------------------------------------------
2492: PROCEDURE Complete_Settlement(
2493: p_api_version IN NUMBER
2494: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2495: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2496: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2497:
2498: ,x_return_status OUT NOCOPY VARCHAR2
2499: ,x_msg_data OUT NOCOPY VARCHAR2
2492: PROCEDURE Complete_Settlement(
2493: p_api_version IN NUMBER
2494: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2495: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2496: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2497:
2498: ,x_return_status OUT NOCOPY VARCHAR2
2499: ,x_msg_data OUT NOCOPY VARCHAR2
2500: ,x_msg_count OUT NOCOPY NUMBER
2538: IF OZF_DEBUG_HIGH_ON THEN
2539: OZF_Utility_PVT.debug_message(l_full_name||' : start');
2540: END IF;
2541:
2542: IF FND_API.to_boolean(p_init_msg_list) THEN
2543: FND_MSG_PUB.initialize;
2544: END IF;
2545:
2546: IF NOT FND_API.compatible_api_call(
2542: IF FND_API.to_boolean(p_init_msg_list) THEN
2543: FND_MSG_PUB.initialize;
2544: END IF;
2545:
2546: IF NOT FND_API.compatible_api_call(
2547: l_api_version,
2548: p_api_version,
2549: l_api_name,
2550: g_pkg_name
2548: p_api_version,
2549: l_api_name,
2550: g_pkg_name
2551: ) THEN
2552: RAISE FND_API.g_exc_unexpected_error;
2553: END IF;
2554:
2555: -- Initialize API return status to sucess
2556: x_return_status := FND_API.g_ret_sts_success;
2552: RAISE FND_API.g_exc_unexpected_error;
2553: END IF;
2554:
2555: -- Initialize API return status to sucess
2556: x_return_status := FND_API.g_ret_sts_success;
2557:
2558: OPEN csr_claim_prev_status(p_claim_rec.claim_id);
2559: FETCH csr_claim_prev_status INTO l_prev_status;
2560: CLOSE csr_claim_prev_status;
2583: +-------------------------*/
2584: --nepanda : fix for bug # 9539273 - issue #3
2585: IF p_claim_rec.status_code IN ('NEW', 'OPEN') AND
2586: p_claim_rec.payment_method IS NOT NULL AND
2587: p_claim_rec.payment_method <> FND_API.G_MISS_CHAR THEN
2588: OZF_CLAIM_SETTLEMENT_VAL_PVT.Complete_Claim(
2589: p_api_version => l_api_version
2590: ,p_init_msg_list => FND_API.g_false
2591: ,p_validation_level => FND_API.g_valid_level_full
2586: p_claim_rec.payment_method IS NOT NULL AND
2587: p_claim_rec.payment_method <> FND_API.G_MISS_CHAR THEN
2588: OZF_CLAIM_SETTLEMENT_VAL_PVT.Complete_Claim(
2589: p_api_version => l_api_version
2590: ,p_init_msg_list => FND_API.g_false
2591: ,p_validation_level => FND_API.g_valid_level_full
2592: ,x_return_status => l_return_status
2593: ,x_msg_data => x_msg_data
2594: ,x_msg_count => x_msg_count
2587: p_claim_rec.payment_method <> FND_API.G_MISS_CHAR THEN
2588: OZF_CLAIM_SETTLEMENT_VAL_PVT.Complete_Claim(
2589: p_api_version => l_api_version
2590: ,p_init_msg_list => FND_API.g_false
2591: ,p_validation_level => FND_API.g_valid_level_full
2592: ,x_return_status => l_return_status
2593: ,x_msg_data => x_msg_data
2594: ,x_msg_count => x_msg_count
2595: ,p_x_claim_rec => l_claim_rec
2593: ,x_msg_data => x_msg_data
2594: ,x_msg_count => x_msg_count
2595: ,p_x_claim_rec => l_claim_rec
2596: );
2597: IF l_return_status = FND_API.g_ret_sts_error THEN
2598: RAISE FND_API.g_exc_error;
2599: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2600: RAISE FND_API.g_exc_unexpected_error;
2601: END IF;
2594: ,x_msg_count => x_msg_count
2595: ,p_x_claim_rec => l_claim_rec
2596: );
2597: IF l_return_status = FND_API.g_ret_sts_error THEN
2598: RAISE FND_API.g_exc_error;
2599: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2600: RAISE FND_API.g_exc_unexpected_error;
2601: END IF;
2602: END IF;
2595: ,p_x_claim_rec => l_claim_rec
2596: );
2597: IF l_return_status = FND_API.g_ret_sts_error THEN
2598: RAISE FND_API.g_exc_error;
2599: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2600: RAISE FND_API.g_exc_unexpected_error;
2601: END IF;
2602: END IF;
2603:
2596: );
2597: IF l_return_status = FND_API.g_ret_sts_error THEN
2598: RAISE FND_API.g_exc_error;
2599: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2600: RAISE FND_API.g_exc_unexpected_error;
2601: END IF;
2602: END IF;
2603:
2604: x_claim_rec := l_claim_rec;
2622: ,x_msg_count => x_msg_count
2623: ,x_msg_data => x_msg_data
2624: ,p_claim_id => l_claim_rec.claim_id
2625: );
2626: IF l_return_status = FND_API.g_ret_sts_error THEN
2627: RAISE FND_API.g_exc_error;
2628: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2629: RAISE FND_API.g_exc_unexpected_error;
2630: END IF;
2623: ,x_msg_data => x_msg_data
2624: ,p_claim_id => l_claim_rec.claim_id
2625: );
2626: IF l_return_status = FND_API.g_ret_sts_error THEN
2627: RAISE FND_API.g_exc_error;
2628: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2629: RAISE FND_API.g_exc_unexpected_error;
2630: END IF;
2631: ELSE
2624: ,p_claim_id => l_claim_rec.claim_id
2625: );
2626: IF l_return_status = FND_API.g_ret_sts_error THEN
2627: RAISE FND_API.g_exc_error;
2628: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2629: RAISE FND_API.g_exc_unexpected_error;
2630: END IF;
2631: ELSE
2632: Dispose_Invalid_Status_Order(
2625: );
2626: IF l_return_status = FND_API.g_ret_sts_error THEN
2627: RAISE FND_API.g_exc_error;
2628: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2629: RAISE FND_API.g_exc_unexpected_error;
2630: END IF;
2631: ELSE
2632: Dispose_Invalid_Status_Order(
2633: p_prev_status => l_prev_status
2632: Dispose_Invalid_Status_Order(
2633: p_prev_status => l_prev_status
2634: ,p_curr_status => l_curr_status
2635: );
2636: RAISE FND_API.g_exc_error;
2637: END IF;
2638:
2639: -------- REJECTED --------
2640: -- NEW ---> REJECTED
2649: ,x_msg_data => x_msg_data
2650: ,p_claim_rec => l_claim_rec
2651: ,x_claim_rec => x_claim_rec
2652: );
2653: IF l_return_status = FND_API.g_ret_sts_error THEN
2654: RAISE FND_API.g_exc_error;
2655: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2656: RAISE FND_API.g_exc_unexpected_error;
2657: END IF;
2650: ,p_claim_rec => l_claim_rec
2651: ,x_claim_rec => x_claim_rec
2652: );
2653: IF l_return_status = FND_API.g_ret_sts_error THEN
2654: RAISE FND_API.g_exc_error;
2655: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2656: RAISE FND_API.g_exc_unexpected_error;
2657: END IF;
2658: ELSE
2651: ,x_claim_rec => x_claim_rec
2652: );
2653: IF l_return_status = FND_API.g_ret_sts_error THEN
2654: RAISE FND_API.g_exc_error;
2655: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2656: RAISE FND_API.g_exc_unexpected_error;
2657: END IF;
2658: ELSE
2659: Dispose_Invalid_Status_Order(
2652: );
2653: IF l_return_status = FND_API.g_ret_sts_error THEN
2654: RAISE FND_API.g_exc_error;
2655: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2656: RAISE FND_API.g_exc_unexpected_error;
2657: END IF;
2658: ELSE
2659: Dispose_Invalid_Status_Order(
2660: p_prev_status => l_prev_status
2659: Dispose_Invalid_Status_Order(
2660: p_prev_status => l_prev_status
2661: ,p_curr_status => l_curr_status
2662: );
2663: RAISE FND_API.g_exc_error;
2664: END IF;
2665:
2666: -------- DUPLICATE --------
2667: -- NEW ---> DUPLICATE
2673: ,x_msg_count => x_msg_count
2674: ,x_msg_data => x_msg_data
2675: ,p_claim_id => l_claim_rec.claim_id
2676: );
2677: IF l_return_status = FND_API.g_ret_sts_error THEN
2678: RAISE FND_API.g_exc_error;
2679: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2680: RAISE FND_API.g_exc_unexpected_error;
2681: END IF;
2674: ,x_msg_data => x_msg_data
2675: ,p_claim_id => l_claim_rec.claim_id
2676: );
2677: IF l_return_status = FND_API.g_ret_sts_error THEN
2678: RAISE FND_API.g_exc_error;
2679: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2680: RAISE FND_API.g_exc_unexpected_error;
2681: END IF;
2682: ELSE
2675: ,p_claim_id => l_claim_rec.claim_id
2676: );
2677: IF l_return_status = FND_API.g_ret_sts_error THEN
2678: RAISE FND_API.g_exc_error;
2679: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2680: RAISE FND_API.g_exc_unexpected_error;
2681: END IF;
2682: ELSE
2683: Dispose_Invalid_Status_Order(
2676: );
2677: IF l_return_status = FND_API.g_ret_sts_error THEN
2678: RAISE FND_API.g_exc_error;
2679: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2680: RAISE FND_API.g_exc_unexpected_error;
2681: END IF;
2682: ELSE
2683: Dispose_Invalid_Status_Order(
2684: p_prev_status => l_prev_status
2683: Dispose_Invalid_Status_Order(
2684: p_prev_status => l_prev_status
2685: ,p_curr_status => l_curr_status
2686: );
2687: RAISE FND_API.g_exc_error;
2688: END IF;
2689: -------- COMPLETE --------
2690: -- OPEN ---> COMPLETE
2691: ELSIF l_curr_status = 'COMPLETE' THEN
2696: ,x_msg_data => x_msg_data
2697: ,p_claim_rec => l_claim_rec
2698: ,x_claim_rec => x_claim_rec
2699: );
2700: IF l_return_status = FND_API.g_ret_sts_error THEN
2701: RAISE FND_API.g_exc_error;
2702: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2703: RAISE FND_API.g_exc_unexpected_error;
2704: END IF;
2697: ,p_claim_rec => l_claim_rec
2698: ,x_claim_rec => x_claim_rec
2699: );
2700: IF l_return_status = FND_API.g_ret_sts_error THEN
2701: RAISE FND_API.g_exc_error;
2702: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2703: RAISE FND_API.g_exc_unexpected_error;
2704: END IF;
2705: ELSIF l_prev_status <> 'PENDING_APPROVAL' THEN
2698: ,x_claim_rec => x_claim_rec
2699: );
2700: IF l_return_status = FND_API.g_ret_sts_error THEN
2701: RAISE FND_API.g_exc_error;
2702: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2703: RAISE FND_API.g_exc_unexpected_error;
2704: END IF;
2705: ELSIF l_prev_status <> 'PENDING_APPROVAL' THEN
2706: Dispose_Invalid_Status_Order(
2699: );
2700: IF l_return_status = FND_API.g_ret_sts_error THEN
2701: RAISE FND_API.g_exc_error;
2702: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2703: RAISE FND_API.g_exc_unexpected_error;
2704: END IF;
2705: ELSIF l_prev_status <> 'PENDING_APPROVAL' THEN
2706: Dispose_Invalid_Status_Order(
2707: p_prev_status => l_prev_status
2706: Dispose_Invalid_Status_Order(
2707: p_prev_status => l_prev_status
2708: ,p_curr_status => l_curr_status
2709: );
2710: RAISE FND_API.g_exc_error;
2711: END IF;
2712:
2713: -------- CLOSED --------
2714: ELSIF l_curr_status = 'CLOSED' THEN
2721: ,x_msg_data => x_msg_data
2722: ,x_msg_count => x_msg_count
2723: ,x_approval_require => l_approval_require
2724: );
2725: IF l_return_status = FND_API.g_ret_sts_error THEN
2726: RAISE FND_API.g_exc_error;
2727: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2728: RAISE FND_API.g_exc_unexpected_error;
2729: END IF;
2722: ,x_msg_count => x_msg_count
2723: ,x_approval_require => l_approval_require
2724: );
2725: IF l_return_status = FND_API.g_ret_sts_error THEN
2726: RAISE FND_API.g_exc_error;
2727: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2728: RAISE FND_API.g_exc_unexpected_error;
2729: END IF;
2730: ELSE
2723: ,x_approval_require => l_approval_require
2724: );
2725: IF l_return_status = FND_API.g_ret_sts_error THEN
2726: RAISE FND_API.g_exc_error;
2727: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2728: RAISE FND_API.g_exc_unexpected_error;
2729: END IF;
2730: ELSE
2731: -- For Credit Match
2724: );
2725: IF l_return_status = FND_API.g_ret_sts_error THEN
2726: RAISE FND_API.g_exc_error;
2727: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2728: RAISE FND_API.g_exc_unexpected_error;
2729: END IF;
2730: ELSE
2731: -- For Credit Match
2732: IF (p_claim_rec.payment_reference_number IS NOT NULL
2750: ,x_msg_data => x_msg_data
2751: ,p_claim_rec => l_claim_rec
2752: ,x_claim_rec => x_claim_rec
2753: );
2754: IF l_return_status = FND_API.g_ret_sts_error THEN
2755: RAISE FND_API.g_exc_error;
2756: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2757: RAISE FND_API.g_exc_unexpected_error;
2758: END IF;
2751: ,p_claim_rec => l_claim_rec
2752: ,x_claim_rec => x_claim_rec
2753: );
2754: IF l_return_status = FND_API.g_ret_sts_error THEN
2755: RAISE FND_API.g_exc_error;
2756: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2757: RAISE FND_API.g_exc_unexpected_error;
2758: END IF;
2759: END IF;
2752: ,x_claim_rec => x_claim_rec
2753: );
2754: IF l_return_status = FND_API.g_ret_sts_error THEN
2755: RAISE FND_API.g_exc_error;
2756: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2757: RAISE FND_API.g_exc_unexpected_error;
2758: END IF;
2759: END IF;
2760:
2753: );
2754: IF l_return_status = FND_API.g_ret_sts_error THEN
2755: RAISE FND_API.g_exc_error;
2756: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2757: RAISE FND_API.g_exc_unexpected_error;
2758: END IF;
2759: END IF;
2760:
2761: END IF;
2770: ,x_msg_data => x_msg_data
2771: ,p_claim_rec => l_claim_rec
2772: ,x_claim_rec => l_complete_claim_rec
2773: );
2774: IF l_return_status = FND_API.g_ret_sts_error THEN
2775: RAISE FND_API.g_exc_error;
2776: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2777: RAISE FND_API.g_exc_unexpected_error;
2778: END IF;
2771: ,p_claim_rec => l_claim_rec
2772: ,x_claim_rec => l_complete_claim_rec
2773: );
2774: IF l_return_status = FND_API.g_ret_sts_error THEN
2775: RAISE FND_API.g_exc_error;
2776: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2777: RAISE FND_API.g_exc_unexpected_error;
2778: END IF;
2779:
2772: ,x_claim_rec => l_complete_claim_rec
2773: );
2774: IF l_return_status = FND_API.g_ret_sts_error THEN
2775: RAISE FND_API.g_exc_error;
2776: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2777: RAISE FND_API.g_exc_unexpected_error;
2778: END IF;
2779:
2780: l_claim_rec := l_complete_claim_rec;
2773: );
2774: IF l_return_status = FND_API.g_ret_sts_error THEN
2775: RAISE FND_API.g_exc_error;
2776: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2777: RAISE FND_API.g_exc_unexpected_error;
2778: END IF;
2779:
2780: l_claim_rec := l_complete_claim_rec;
2781:
2787: ,x_msg_data => x_msg_data
2788: ,p_claim_rec => l_claim_rec
2789: ,x_claim_rec => x_claim_rec
2790: );
2791: IF l_return_status = FND_API.g_ret_sts_error THEN
2792: RAISE FND_API.g_exc_error;
2793: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2794: RAISE FND_API.g_exc_unexpected_error;
2795: END IF;
2788: ,p_claim_rec => l_claim_rec
2789: ,x_claim_rec => x_claim_rec
2790: );
2791: IF l_return_status = FND_API.g_ret_sts_error THEN
2792: RAISE FND_API.g_exc_error;
2793: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2794: RAISE FND_API.g_exc_unexpected_error;
2795: END IF;
2796: ELSE -- skip approval workflow
2789: ,x_claim_rec => x_claim_rec
2790: );
2791: IF l_return_status = FND_API.g_ret_sts_error THEN
2792: RAISE FND_API.g_exc_error;
2793: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2794: RAISE FND_API.g_exc_unexpected_error;
2795: END IF;
2796: ELSE -- skip approval workflow
2797: Create_Payment_for_Completion (
2790: );
2791: IF l_return_status = FND_API.g_ret_sts_error THEN
2792: RAISE FND_API.g_exc_error;
2793: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2794: RAISE FND_API.g_exc_unexpected_error;
2795: END IF;
2796: ELSE -- skip approval workflow
2797: Create_Payment_for_Completion (
2798: x_return_status => l_return_status
2803: ,p_prev_status => l_prev_status
2804: ,p_curr_status => l_curr_status
2805: ,x_claim_rec => x_claim_rec
2806: );
2807: IF l_return_status = FND_API.g_ret_sts_error THEN
2808: RAISE FND_API.g_exc_error;
2809: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2810: RAISE FND_API.g_exc_unexpected_error;
2811: END IF;
2804: ,p_curr_status => l_curr_status
2805: ,x_claim_rec => x_claim_rec
2806: );
2807: IF l_return_status = FND_API.g_ret_sts_error THEN
2808: RAISE FND_API.g_exc_error;
2809: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2810: RAISE FND_API.g_exc_unexpected_error;
2811: END IF;
2812: END IF;
2805: ,x_claim_rec => x_claim_rec
2806: );
2807: IF l_return_status = FND_API.g_ret_sts_error THEN
2808: RAISE FND_API.g_exc_error;
2809: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2810: RAISE FND_API.g_exc_unexpected_error;
2811: END IF;
2812: END IF;
2813:
2806: );
2807: IF l_return_status = FND_API.g_ret_sts_error THEN
2808: RAISE FND_API.g_exc_error;
2809: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2810: RAISE FND_API.g_exc_unexpected_error;
2811: END IF;
2812: END IF;
2813:
2814: /*-----------------------------------*
2822: ,x_msg_data => x_msg_data
2823: ,p_claim_rec => l_claim_rec
2824: ,x_claim_rec => x_claim_rec
2825: );
2826: IF l_return_status = FND_API.g_ret_sts_error THEN
2827: RAISE FND_API.g_exc_error;
2828: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2829: RAISE FND_API.g_exc_unexpected_error;
2830: END IF;
2823: ,p_claim_rec => l_claim_rec
2824: ,x_claim_rec => x_claim_rec
2825: );
2826: IF l_return_status = FND_API.g_ret_sts_error THEN
2827: RAISE FND_API.g_exc_error;
2828: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2829: RAISE FND_API.g_exc_unexpected_error;
2830: END IF;
2831: ELSE -- skip approval workflow
2824: ,x_claim_rec => x_claim_rec
2825: );
2826: IF l_return_status = FND_API.g_ret_sts_error THEN
2827: RAISE FND_API.g_exc_error;
2828: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2829: RAISE FND_API.g_exc_unexpected_error;
2830: END IF;
2831: ELSE -- skip approval workflow
2832: Create_Payment_for_Completion (
2825: );
2826: IF l_return_status = FND_API.g_ret_sts_error THEN
2827: RAISE FND_API.g_exc_error;
2828: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2829: RAISE FND_API.g_exc_unexpected_error;
2830: END IF;
2831: ELSE -- skip approval workflow
2832: Create_Payment_for_Completion (
2833: x_return_status => l_return_status
2838: ,p_prev_status => l_prev_status
2839: ,p_curr_status => l_curr_status
2840: ,x_claim_rec => x_claim_rec
2841: );
2842: IF l_return_status = FND_API.g_ret_sts_error THEN
2843: RAISE FND_API.g_exc_error;
2844: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2845: RAISE FND_API.g_exc_unexpected_error;
2846: END IF;
2839: ,p_curr_status => l_curr_status
2840: ,x_claim_rec => x_claim_rec
2841: );
2842: IF l_return_status = FND_API.g_ret_sts_error THEN
2843: RAISE FND_API.g_exc_error;
2844: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2845: RAISE FND_API.g_exc_unexpected_error;
2846: END IF;
2847: END IF;
2840: ,x_claim_rec => x_claim_rec
2841: );
2842: IF l_return_status = FND_API.g_ret_sts_error THEN
2843: RAISE FND_API.g_exc_error;
2844: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2845: RAISE FND_API.g_exc_unexpected_error;
2846: END IF;
2847: END IF;
2848:
2841: );
2842: IF l_return_status = FND_API.g_ret_sts_error THEN
2843: RAISE FND_API.g_exc_error;
2844: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2845: RAISE FND_API.g_exc_unexpected_error;
2846: END IF;
2847: END IF;
2848:
2849: /*----------------------------------------------------*
2860: ,p_prev_status => l_prev_status
2861: ,p_curr_status => l_curr_status
2862: ,x_claim_rec => x_claim_rec
2863: );
2864: IF l_return_status = FND_API.g_ret_sts_error THEN
2865: RAISE FND_API.g_exc_error;
2866: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2867: RAISE FND_API.g_exc_unexpected_error;
2868: END IF;
2861: ,p_curr_status => l_curr_status
2862: ,x_claim_rec => x_claim_rec
2863: );
2864: IF l_return_status = FND_API.g_ret_sts_error THEN
2865: RAISE FND_API.g_exc_error;
2866: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2867: RAISE FND_API.g_exc_unexpected_error;
2868: END IF;
2869:
2862: ,x_claim_rec => x_claim_rec
2863: );
2864: IF l_return_status = FND_API.g_ret_sts_error THEN
2865: RAISE FND_API.g_exc_error;
2866: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2867: RAISE FND_API.g_exc_unexpected_error;
2868: END IF;
2869:
2870: /*----------------------------------------*
2863: );
2864: IF l_return_status = FND_API.g_ret_sts_error THEN
2865: RAISE FND_API.g_exc_error;
2866: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2867: RAISE FND_API.g_exc_unexpected_error;
2868: END IF;
2869:
2870: /*----------------------------------------*
2871: | PENDING_CLOSE --> CLOSED :Completion
2877: ,x_msg_data => x_msg_data
2878: ,p_claim_rec => l_claim_rec
2879: ,x_claim_rec => x_claim_rec
2880: );
2881: IF l_return_status = FND_API.g_ret_sts_error THEN
2882: RAISE FND_API.g_exc_error;
2883: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2884: RAISE FND_API.g_exc_unexpected_error;
2885: END IF;
2878: ,p_claim_rec => l_claim_rec
2879: ,x_claim_rec => x_claim_rec
2880: );
2881: IF l_return_status = FND_API.g_ret_sts_error THEN
2882: RAISE FND_API.g_exc_error;
2883: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2884: RAISE FND_API.g_exc_unexpected_error;
2885: END IF;
2886:
2879: ,x_claim_rec => x_claim_rec
2880: );
2881: IF l_return_status = FND_API.g_ret_sts_error THEN
2882: RAISE FND_API.g_exc_error;
2883: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2884: RAISE FND_API.g_exc_unexpected_error;
2885: END IF;
2886:
2887: ELSE
2880: );
2881: IF l_return_status = FND_API.g_ret_sts_error THEN
2882: RAISE FND_API.g_exc_error;
2883: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2884: RAISE FND_API.g_exc_unexpected_error;
2885: END IF;
2886:
2887: ELSE
2888: IF l_prev_status <> 'PENDING_CLOSE' THEN
2889: Dispose_Invalid_Status_Order(
2890: p_prev_status => l_prev_status
2891: ,p_curr_status => l_curr_status
2892: );
2893: RAISE FND_API.g_exc_error;
2894: END IF;
2895: END IF;
2896:
2897: -------- PENDING_APPROVAL (for Mass Settlement) --------
2903: ,x_msg_data => x_msg_data
2904: ,p_claim_rec => l_claim_rec
2905: ,x_claim_rec => x_claim_rec
2906: );
2907: IF l_return_status = FND_API.g_ret_sts_error THEN
2908: RAISE FND_API.g_exc_error;
2909: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2910: RAISE FND_API.g_exc_unexpected_error;
2911: END IF;
2904: ,p_claim_rec => l_claim_rec
2905: ,x_claim_rec => x_claim_rec
2906: );
2907: IF l_return_status = FND_API.g_ret_sts_error THEN
2908: RAISE FND_API.g_exc_error;
2909: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2910: RAISE FND_API.g_exc_unexpected_error;
2911: END IF;
2912: END IF;
2905: ,x_claim_rec => x_claim_rec
2906: );
2907: IF l_return_status = FND_API.g_ret_sts_error THEN
2908: RAISE FND_API.g_exc_error;
2909: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2910: RAISE FND_API.g_exc_unexpected_error;
2911: END IF;
2912: END IF;
2913:
2906: );
2907: IF l_return_status = FND_API.g_ret_sts_error THEN
2908: RAISE FND_API.g_exc_error;
2909: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2910: RAISE FND_API.g_exc_unexpected_error;
2911: END IF;
2912: END IF;
2913:
2914: /*
2929: Dispose_Invalid_Status_Order(
2930: p_prev_status => l_prev_status
2931: ,p_curr_status => l_curr_status
2932: );
2933: RAISE FND_API.g_exc_error;
2934: END IF;
2935: -------- ARCHIVED --------
2936: ELSIF l_curr_status = 'ARCHIVED' THEN
2937: IF l_prev_status IN ( 'NEW'
2944: Dispose_Invalid_Status_Order(
2945: p_prev_status => l_prev_status
2946: ,p_curr_status => l_curr_status
2947: );
2948: RAISE FND_API.g_exc_error;
2949: END IF;
2950: -------- OPEN --------
2951: ELSIF l_curr_status = 'OPEN' THEN
2952: IF l_prev_status IN ( --'COMPLETE'
2957: Dispose_Invalid_Status_Order(
2958: p_prev_status => l_prev_status
2959: ,p_curr_status => l_curr_status
2960: );
2961: RAISE FND_API.g_exc_error;
2962: /*---------------------------*
2963: | PENDING_APPROVAL --> OPEN
2964: | PENDING_CLOSE --> OPEN
2965: *---------------------------*/
2970: ,x_msg_data => x_msg_data
2971: ,p_claim_rec => l_claim_rec
2972: ,x_claim_rec => x_claim_rec
2973: );
2974: IF l_return_status = FND_API.g_ret_sts_error THEN
2975: RAISE FND_API.g_exc_error;
2976: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2977: RAISE FND_API.g_exc_unexpected_error;
2978: END IF;
2971: ,p_claim_rec => l_claim_rec
2972: ,x_claim_rec => x_claim_rec
2973: );
2974: IF l_return_status = FND_API.g_ret_sts_error THEN
2975: RAISE FND_API.g_exc_error;
2976: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2977: RAISE FND_API.g_exc_unexpected_error;
2978: END IF;
2979: END IF;
2972: ,x_claim_rec => x_claim_rec
2973: );
2974: IF l_return_status = FND_API.g_ret_sts_error THEN
2975: RAISE FND_API.g_exc_error;
2976: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2977: RAISE FND_API.g_exc_unexpected_error;
2978: END IF;
2979: END IF;
2980:
2973: );
2974: IF l_return_status = FND_API.g_ret_sts_error THEN
2975: RAISE FND_API.g_exc_error;
2976: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2977: RAISE FND_API.g_exc_unexpected_error;
2978: END IF;
2979: END IF;
2980:
2981: -------- PENDING_CLOSED --------
2992: Dispose_Invalid_Status_Order(
2993: p_prev_status => l_prev_status
2994: ,p_curr_status => l_curr_status
2995: );
2996: RAISE FND_API.g_exc_error;
2997: END IF;
2998: END IF;
2999: --Printing the values for Claim Multi Currency
3000:
3019: IF OZF_DEBUG_HIGH_ON THEN
3020: OZF_Utility_PVT.debug_message('l_return_status' ||l_return_status);
3021: END IF;
3022:
3023: IF l_return_status = FND_API.g_ret_sts_error THEN
3024: RAISE FND_API.g_exc_error;
3025: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3026: RAISE FND_API.g_exc_unexpected_error;
3027: END IF;
3020: OZF_Utility_PVT.debug_message('l_return_status' ||l_return_status);
3021: END IF;
3022:
3023: IF l_return_status = FND_API.g_ret_sts_error THEN
3024: RAISE FND_API.g_exc_error;
3025: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3026: RAISE FND_API.g_exc_unexpected_error;
3027: END IF;
3028:
3021: END IF;
3022:
3023: IF l_return_status = FND_API.g_ret_sts_error THEN
3024: RAISE FND_API.g_exc_error;
3025: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3026: RAISE FND_API.g_exc_unexpected_error;
3027: END IF;
3028:
3029: END IF;
3022:
3023: IF l_return_status = FND_API.g_ret_sts_error THEN
3024: RAISE FND_API.g_exc_error;
3025: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3026: RAISE FND_API.g_exc_unexpected_error;
3027: END IF;
3028:
3029: END IF;
3030: END IF; -- end of complete settlement
3031:
3032: ------------------------- finish -------------------------------
3033: /*
3034: -- Check for commit
3035: IF FND_API.to_boolean(p_commit) THEN
3036: COMMIT;
3037: END IF;
3038: */
3039:
3037: END IF;
3038: */
3039:
3040: FND_MSG_PUB.count_and_get(
3041: p_encoded => FND_API.g_false,
3042: p_count => x_msg_count,
3043: p_data => x_msg_data
3044: );
3045:
3047: OZF_Utility_PVT.debug_message(l_full_name ||': end');
3048: END IF;
3049:
3050: EXCEPTION
3051: WHEN FND_API.g_exc_error THEN
3052: ROLLBACK TO Complete_Settlement;
3053: x_return_status := FND_API.g_ret_sts_error;
3054: FND_MSG_PUB.count_and_get (
3055: p_encoded => FND_API.g_false,
3049:
3050: EXCEPTION
3051: WHEN FND_API.g_exc_error THEN
3052: ROLLBACK TO Complete_Settlement;
3053: x_return_status := FND_API.g_ret_sts_error;
3054: FND_MSG_PUB.count_and_get (
3055: p_encoded => FND_API.g_false,
3056: p_count => x_msg_count,
3057: p_data => x_msg_data
3051: WHEN FND_API.g_exc_error THEN
3052: ROLLBACK TO Complete_Settlement;
3053: x_return_status := FND_API.g_ret_sts_error;
3054: FND_MSG_PUB.count_and_get (
3055: p_encoded => FND_API.g_false,
3056: p_count => x_msg_count,
3057: p_data => x_msg_data
3058: );
3059: WHEN FND_API.g_exc_unexpected_error THEN
3055: p_encoded => FND_API.g_false,
3056: p_count => x_msg_count,
3057: p_data => x_msg_data
3058: );
3059: WHEN FND_API.g_exc_unexpected_error THEN
3060: ROLLBACK TO Complete_Settlement;
3061: x_return_status := FND_API.g_ret_sts_unexp_error ;
3062: FND_MSG_PUB.count_and_get (
3063: p_encoded => FND_API.g_false,
3057: p_data => x_msg_data
3058: );
3059: WHEN FND_API.g_exc_unexpected_error THEN
3060: ROLLBACK TO Complete_Settlement;
3061: x_return_status := FND_API.g_ret_sts_unexp_error ;
3062: FND_MSG_PUB.count_and_get (
3063: p_encoded => FND_API.g_false,
3064: p_count => x_msg_count,
3065: p_data => x_msg_data
3059: WHEN FND_API.g_exc_unexpected_error THEN
3060: ROLLBACK TO Complete_Settlement;
3061: x_return_status := FND_API.g_ret_sts_unexp_error ;
3062: FND_MSG_PUB.count_and_get (
3063: p_encoded => FND_API.g_false,
3064: p_count => x_msg_count,
3065: p_data => x_msg_data
3066: );
3067: WHEN OTHERS THEN
3065: p_data => x_msg_data
3066: );
3067: WHEN OTHERS THEN
3068: ROLLBACK TO Complete_Settlement;
3069: x_return_status := FND_API.g_ret_sts_unexp_error ;
3070: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3071: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
3072: END IF;
3073: FND_MSG_PUB.count_and_get (
3070: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3071: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
3072: END IF;
3073: FND_MSG_PUB.count_and_get (
3074: p_encoded => FND_API.g_false,
3075: p_count => x_msg_count,
3076: p_data => x_msg_data
3077: );
3078:
3089: -- 10-AUG-2001 mchang Create.
3090: ---------------------------------------------------------------------
3091: PROCEDURE Settle_Claim(
3092: p_api_version IN NUMBER
3093: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3094: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3095: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3096:
3097: ,x_return_status OUT NOCOPY VARCHAR2
3090: ---------------------------------------------------------------------
3091: PROCEDURE Settle_Claim(
3092: p_api_version IN NUMBER
3093: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3094: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3095: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3096:
3097: ,x_return_status OUT NOCOPY VARCHAR2
3098: ,x_msg_data OUT NOCOPY VARCHAR2
3091: PROCEDURE Settle_Claim(
3092: p_api_version IN NUMBER
3093: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3094: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3095: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3096:
3097: ,x_return_status OUT NOCOPY VARCHAR2
3098: ,x_msg_data OUT NOCOPY VARCHAR2
3099: ,x_msg_count OUT NOCOPY NUMBER
3143: IF OZF_DEBUG_HIGH_ON THEN
3144: OZF_Utility_PVT.debug_message(l_full_name||' : start');
3145: END IF;
3146:
3147: IF FND_API.to_boolean(p_init_msg_list) THEN
3148: FND_MSG_PUB.initialize;
3149: END IF;
3150:
3151: IF NOT FND_API.compatible_api_call(
3147: IF FND_API.to_boolean(p_init_msg_list) THEN
3148: FND_MSG_PUB.initialize;
3149: END IF;
3150:
3151: IF NOT FND_API.compatible_api_call(
3152: l_api_version,
3153: p_api_version,
3154: l_api_name,
3155: g_pkg_name
3153: p_api_version,
3154: l_api_name,
3155: g_pkg_name
3156: ) THEN
3157: RAISE FND_API.g_exc_unexpected_error;
3158: END IF;
3159:
3160: -- Initialize API return status to sucess
3161: x_return_status := FND_API.g_ret_sts_success;
3157: RAISE FND_API.g_exc_unexpected_error;
3158: END IF;
3159:
3160: -- Initialize API return status to sucess
3161: x_return_status := FND_API.g_ret_sts_success;
3162:
3163: --------------------- Start -----------------------
3164: IF p_curr_status = 'CANCELLED' THEN
3165: Cancel_Claim_for_Settlement (
3169: ,p_claim_id => p_claim_id
3170: ,p_prev_status => p_prev_status
3171: ,p_curr_status => p_curr_status
3172: );
3173: IF l_return_status = FND_API.g_ret_sts_error THEN
3174: RAISE FND_API.g_exc_error;
3175: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3176: RAISE FND_API.g_exc_unexpected_error;
3177: END IF;
3170: ,p_prev_status => p_prev_status
3171: ,p_curr_status => p_curr_status
3172: );
3173: IF l_return_status = FND_API.g_ret_sts_error THEN
3174: RAISE FND_API.g_exc_error;
3175: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3176: RAISE FND_API.g_exc_unexpected_error;
3177: END IF;
3178:
3171: ,p_curr_status => p_curr_status
3172: );
3173: IF l_return_status = FND_API.g_ret_sts_error THEN
3174: RAISE FND_API.g_exc_error;
3175: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3176: RAISE FND_API.g_exc_unexpected_error;
3177: END IF;
3178:
3179: ELSIF p_curr_status = 'REJECTED' THEN
3172: );
3173: IF l_return_status = FND_API.g_ret_sts_error THEN
3174: RAISE FND_API.g_exc_error;
3175: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3176: RAISE FND_API.g_exc_unexpected_error;
3177: END IF;
3178:
3179: ELSIF p_curr_status = 'REJECTED' THEN
3180: Reject_Claim_for_Settlement (
3184: ,p_claim_id => p_claim_id
3185: ,p_prev_status => p_prev_status
3186: ,p_curr_status => p_curr_status
3187: );
3188: IF l_return_status = FND_API.g_ret_sts_error THEN
3189: RAISE FND_API.g_exc_error;
3190: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3191: RAISE FND_API.g_exc_unexpected_error;
3192: END IF;
3185: ,p_prev_status => p_prev_status
3186: ,p_curr_status => p_curr_status
3187: );
3188: IF l_return_status = FND_API.g_ret_sts_error THEN
3189: RAISE FND_API.g_exc_error;
3190: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3191: RAISE FND_API.g_exc_unexpected_error;
3192: END IF;
3193:
3186: ,p_curr_status => p_curr_status
3187: );
3188: IF l_return_status = FND_API.g_ret_sts_error THEN
3189: RAISE FND_API.g_exc_error;
3190: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3191: RAISE FND_API.g_exc_unexpected_error;
3192: END IF;
3193:
3194: ELSIF p_curr_status = 'DUPLICATE' THEN
3187: );
3188: IF l_return_status = FND_API.g_ret_sts_error THEN
3189: RAISE FND_API.g_exc_error;
3190: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3191: RAISE FND_API.g_exc_unexpected_error;
3192: END IF;
3193:
3194: ELSIF p_curr_status = 'DUPLICATE' THEN
3195: /* empty implementation */
3192: END IF;
3193:
3194: ELSIF p_curr_status = 'DUPLICATE' THEN
3195: /* empty implementation */
3196: l_return_status := FND_API.g_ret_sts_success;
3197:
3198: ELSIF p_curr_status = 'COMPLETE' THEN
3199: Complete_Claim_for_Settlement (
3200: x_return_status => l_return_status
3201: ,x_msg_count => x_msg_count
3202: ,x_msg_data => x_msg_data
3203: ,p_claim_id => p_claim_id
3204: );
3205: IF l_return_status = FND_API.g_ret_sts_error THEN
3206: RAISE FND_API.g_exc_error;
3207: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3208: RAISE FND_API.g_exc_unexpected_error;
3209: END IF;
3202: ,x_msg_data => x_msg_data
3203: ,p_claim_id => p_claim_id
3204: );
3205: IF l_return_status = FND_API.g_ret_sts_error THEN
3206: RAISE FND_API.g_exc_error;
3207: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3208: RAISE FND_API.g_exc_unexpected_error;
3209: END IF;
3210:
3203: ,p_claim_id => p_claim_id
3204: );
3205: IF l_return_status = FND_API.g_ret_sts_error THEN
3206: RAISE FND_API.g_exc_error;
3207: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3208: RAISE FND_API.g_exc_unexpected_error;
3209: END IF;
3210:
3211: ELSIF p_curr_status = 'CLOSED' THEN
3204: );
3205: IF l_return_status = FND_API.g_ret_sts_error THEN
3206: RAISE FND_API.g_exc_error;
3207: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3208: RAISE FND_API.g_exc_unexpected_error;
3209: END IF;
3210:
3211: ELSIF p_curr_status = 'CLOSED' THEN
3212: -- Added For Rule Based Settlement ER
3242: ,x_msg_data => x_msg_data
3243: ,x_msg_count => x_msg_count
3244: ,x_approval_require => l_approval_require
3245: );
3246: IF l_return_status = FND_API.g_ret_sts_error THEN
3247: RAISE FND_API.g_exc_error;
3248: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3249: RAISE FND_API.g_exc_unexpected_error;
3250: END IF;
3243: ,x_msg_count => x_msg_count
3244: ,x_approval_require => l_approval_require
3245: );
3246: IF l_return_status = FND_API.g_ret_sts_error THEN
3247: RAISE FND_API.g_exc_error;
3248: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3249: RAISE FND_API.g_exc_unexpected_error;
3250: END IF;
3251: ELSE
3244: ,x_approval_require => l_approval_require
3245: );
3246: IF l_return_status = FND_API.g_ret_sts_error THEN
3247: RAISE FND_API.g_exc_error;
3248: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3249: RAISE FND_API.g_exc_unexpected_error;
3250: END IF;
3251: ELSE
3252: -- For Credit Match
3245: );
3246: IF l_return_status = FND_API.g_ret_sts_error THEN
3247: RAISE FND_API.g_exc_error;
3248: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3249: RAISE FND_API.g_exc_unexpected_error;
3250: END IF;
3251: ELSE
3252: -- For Credit Match
3253: IF (l_claim_approval_attr.payment_reference_number IS NOT NULL
3272: ,x_msg_count => x_msg_count
3273: ,x_msg_data => x_msg_data
3274: ,p_claim_id => p_claim_id
3275: );
3276: IF l_return_status = FND_API.g_ret_sts_error THEN
3277: RAISE FND_API.g_exc_error;
3278: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3279: RAISE FND_API.g_exc_unexpected_error;
3280: END IF;
3273: ,x_msg_data => x_msg_data
3274: ,p_claim_id => p_claim_id
3275: );
3276: IF l_return_status = FND_API.g_ret_sts_error THEN
3277: RAISE FND_API.g_exc_error;
3278: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3279: RAISE FND_API.g_exc_unexpected_error;
3280: END IF;
3281:
3274: ,p_claim_id => p_claim_id
3275: );
3276: IF l_return_status = FND_API.g_ret_sts_error THEN
3277: RAISE FND_API.g_exc_error;
3278: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3279: RAISE FND_API.g_exc_unexpected_error;
3280: END IF;
3281:
3282: IF l_approval_require = 'Y' THEN
3275: );
3276: IF l_return_status = FND_API.g_ret_sts_error THEN
3277: RAISE FND_API.g_exc_error;
3278: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3279: RAISE FND_API.g_exc_unexpected_error;
3280: END IF;
3281:
3282: IF l_approval_require = 'Y' THEN
3283: -- call marketing general approval workflow
3288: ,p_claim_id => p_claim_id
3289: ,p_prev_status => p_prev_status
3290: ,p_curr_status => p_curr_status
3291: );
3292: IF l_return_status = FND_API.g_ret_sts_error THEN
3293: RAISE FND_API.g_exc_error;
3294: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3295: RAISE FND_API.g_exc_unexpected_error;
3296: END IF;
3289: ,p_prev_status => p_prev_status
3290: ,p_curr_status => p_curr_status
3291: );
3292: IF l_return_status = FND_API.g_ret_sts_error THEN
3293: RAISE FND_API.g_exc_error;
3294: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3295: RAISE FND_API.g_exc_unexpected_error;
3296: END IF;
3297: ELSE -- skip approval workflow and create payment directly
3290: ,p_curr_status => p_curr_status
3291: );
3292: IF l_return_status = FND_API.g_ret_sts_error THEN
3293: RAISE FND_API.g_exc_error;
3294: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3295: RAISE FND_API.g_exc_unexpected_error;
3296: END IF;
3297: ELSE -- skip approval workflow and create payment directly
3298: -- payment process won't start if claim will go for referral approval.
3291: );
3292: IF l_return_status = FND_API.g_ret_sts_error THEN
3293: RAISE FND_API.g_exc_error;
3294: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3295: RAISE FND_API.g_exc_unexpected_error;
3296: END IF;
3297: ELSE -- skip approval workflow and create payment directly
3298: -- payment process won't start if claim will go for referral approval.
3299: IF l_claim_approval_attr.status_code <> 'PENDING_APPROVAL' THEN
3304: ,p_claim_id => p_claim_id
3305: ,p_prev_status => p_prev_status
3306: ,p_curr_status => p_curr_status
3307: );
3308: IF l_return_status = FND_API.g_ret_sts_error THEN
3309: RAISE FND_API.g_exc_error;
3310: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3311: RAISE FND_API.g_exc_unexpected_error;
3312: END IF;
3305: ,p_prev_status => p_prev_status
3306: ,p_curr_status => p_curr_status
3307: );
3308: IF l_return_status = FND_API.g_ret_sts_error THEN
3309: RAISE FND_API.g_exc_error;
3310: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3311: RAISE FND_API.g_exc_unexpected_error;
3312: END IF;
3313: END IF;
3306: ,p_curr_status => p_curr_status
3307: );
3308: IF l_return_status = FND_API.g_ret_sts_error THEN
3309: RAISE FND_API.g_exc_error;
3310: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3311: RAISE FND_API.g_exc_unexpected_error;
3312: END IF;
3313: END IF;
3314: END IF;
3307: );
3308: IF l_return_status = FND_API.g_ret_sts_error THEN
3309: RAISE FND_API.g_exc_error;
3310: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3311: RAISE FND_API.g_exc_unexpected_error;
3312: END IF;
3313: END IF;
3314: END IF;
3315:
3326: ,p_claim_id => p_claim_id
3327: ,p_prev_status => p_prev_status
3328: ,p_curr_status => p_curr_status
3329: );
3330: IF l_return_status = FND_API.g_ret_sts_error THEN
3331: RAISE FND_API.g_exc_error;
3332: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3333: RAISE FND_API.g_exc_unexpected_error;
3334: END IF;
3327: ,p_prev_status => p_prev_status
3328: ,p_curr_status => p_curr_status
3329: );
3330: IF l_return_status = FND_API.g_ret_sts_error THEN
3331: RAISE FND_API.g_exc_error;
3332: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3333: RAISE FND_API.g_exc_unexpected_error;
3334: END IF;
3335: ELSE -- skip approval workflow and create payment directly
3328: ,p_curr_status => p_curr_status
3329: );
3330: IF l_return_status = FND_API.g_ret_sts_error THEN
3331: RAISE FND_API.g_exc_error;
3332: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3333: RAISE FND_API.g_exc_unexpected_error;
3334: END IF;
3335: ELSE -- skip approval workflow and create payment directly
3336: -- payment process won't start if claim will go for referral approval.
3329: );
3330: IF l_return_status = FND_API.g_ret_sts_error THEN
3331: RAISE FND_API.g_exc_error;
3332: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3333: RAISE FND_API.g_exc_unexpected_error;
3334: END IF;
3335: ELSE -- skip approval workflow and create payment directly
3336: -- payment process won't start if claim will go for referral approval.
3337: IF l_claim_approval_attr.status_code <> 'PENDING_APPROVAL' THEN
3342: ,p_claim_id => p_claim_id
3343: ,p_prev_status => p_prev_status
3344: ,p_curr_status => p_curr_status
3345: );
3346: IF l_return_status = FND_API.g_ret_sts_error THEN
3347: RAISE FND_API.g_exc_error;
3348: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3349: RAISE FND_API.g_exc_unexpected_error;
3350: END IF;
3343: ,p_prev_status => p_prev_status
3344: ,p_curr_status => p_curr_status
3345: );
3346: IF l_return_status = FND_API.g_ret_sts_error THEN
3347: RAISE FND_API.g_exc_error;
3348: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3349: RAISE FND_API.g_exc_unexpected_error;
3350: END IF;
3351: END IF;
3344: ,p_curr_status => p_curr_status
3345: );
3346: IF l_return_status = FND_API.g_ret_sts_error THEN
3347: RAISE FND_API.g_exc_error;
3348: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3349: RAISE FND_API.g_exc_unexpected_error;
3350: END IF;
3351: END IF;
3352: END IF;
3345: );
3346: IF l_return_status = FND_API.g_ret_sts_error THEN
3347: RAISE FND_API.g_exc_error;
3348: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3349: RAISE FND_API.g_exc_unexpected_error;
3350: END IF;
3351: END IF;
3352: END IF;
3353:
3363: ,p_claim_id => p_claim_id
3364: ,p_prev_status => p_prev_status
3365: ,p_curr_status => p_curr_status
3366: );
3367: IF l_return_status = FND_API.g_ret_sts_error THEN
3368: RAISE FND_API.g_exc_error;
3369: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3370: RAISE FND_API.g_exc_unexpected_error;
3371: END IF;
3364: ,p_prev_status => p_prev_status
3365: ,p_curr_status => p_curr_status
3366: );
3367: IF l_return_status = FND_API.g_ret_sts_error THEN
3368: RAISE FND_API.g_exc_error;
3369: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3370: RAISE FND_API.g_exc_unexpected_error;
3371: END IF;
3372: END IF;
3365: ,p_curr_status => p_curr_status
3366: );
3367: IF l_return_status = FND_API.g_ret_sts_error THEN
3368: RAISE FND_API.g_exc_error;
3369: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3370: RAISE FND_API.g_exc_unexpected_error;
3371: END IF;
3372: END IF;
3373: ELSIF p_curr_status = 'OPEN' THEN
3366: );
3367: IF l_return_status = FND_API.g_ret_sts_error THEN
3368: RAISE FND_API.g_exc_error;
3369: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3370: RAISE FND_API.g_exc_unexpected_error;
3371: END IF;
3372: END IF;
3373: ELSIF p_curr_status = 'OPEN' THEN
3374: /* mchang fix for 1159
3374: /* mchang fix for 1159
3375: IF p_prev_status = 'COMPLETE' AND
3376: payment_method= 'RMA' THEN
3377: -- Delete RMA Order
3378: IF l_return_status = FND_API.g_ret_sts_error THEN
3379: RAISE FND_API.g_exc_error;
3380: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3381: RAISE FND_API.g_exc_unexpected_error;
3382: END IF;
3375: IF p_prev_status = 'COMPLETE' AND
3376: payment_method= 'RMA' THEN
3377: -- Delete RMA Order
3378: IF l_return_status = FND_API.g_ret_sts_error THEN
3379: RAISE FND_API.g_exc_error;
3380: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3381: RAISE FND_API.g_exc_unexpected_error;
3382: END IF;
3383: */
3376: payment_method= 'RMA' THEN
3377: -- Delete RMA Order
3378: IF l_return_status = FND_API.g_ret_sts_error THEN
3379: RAISE FND_API.g_exc_error;
3380: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3381: RAISE FND_API.g_exc_unexpected_error;
3382: END IF;
3383: */
3384: NULL;
3377: -- Delete RMA Order
3378: IF l_return_status = FND_API.g_ret_sts_error THEN
3379: RAISE FND_API.g_exc_error;
3380: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3381: RAISE FND_API.g_exc_unexpected_error;
3382: END IF;
3383: */
3384: NULL;
3385: END IF;
3386:
3387: ------------------------- finish -------------------------------
3388: /*
3389: -- Check for commit
3390: IF FND_API.to_boolean(p_commit) THEN
3391: COMMIT;
3392: END IF;
3393: */
3394:
3392: END IF;
3393: */
3394:
3395: FND_MSG_PUB.count_and_get(
3396: p_encoded => FND_API.g_false,
3397: p_count => x_msg_count,
3398: p_data => x_msg_data
3399: );
3400:
3402: OZF_Utility_PVT.debug_message(l_full_name ||': end');
3403: END IF;
3404:
3405: EXCEPTION
3406: WHEN FND_API.g_exc_error THEN
3407: ROLLBACK TO Settle_Claim;
3408: x_return_status := FND_API.g_ret_sts_error;
3409: FND_MSG_PUB.count_and_get (
3410: p_encoded => FND_API.g_false,
3404:
3405: EXCEPTION
3406: WHEN FND_API.g_exc_error THEN
3407: ROLLBACK TO Settle_Claim;
3408: x_return_status := FND_API.g_ret_sts_error;
3409: FND_MSG_PUB.count_and_get (
3410: p_encoded => FND_API.g_false,
3411: p_count => x_msg_count,
3412: p_data => x_msg_data
3406: WHEN FND_API.g_exc_error THEN
3407: ROLLBACK TO Settle_Claim;
3408: x_return_status := FND_API.g_ret_sts_error;
3409: FND_MSG_PUB.count_and_get (
3410: p_encoded => FND_API.g_false,
3411: p_count => x_msg_count,
3412: p_data => x_msg_data
3413: );
3414: WHEN FND_API.g_exc_unexpected_error THEN
3410: p_encoded => FND_API.g_false,
3411: p_count => x_msg_count,
3412: p_data => x_msg_data
3413: );
3414: WHEN FND_API.g_exc_unexpected_error THEN
3415: ROLLBACK TO Settle_Claim;
3416: x_return_status := FND_API.g_ret_sts_unexp_error ;
3417: FND_MSG_PUB.count_and_get (
3418: p_encoded => FND_API.g_false,
3412: p_data => x_msg_data
3413: );
3414: WHEN FND_API.g_exc_unexpected_error THEN
3415: ROLLBACK TO Settle_Claim;
3416: x_return_status := FND_API.g_ret_sts_unexp_error ;
3417: FND_MSG_PUB.count_and_get (
3418: p_encoded => FND_API.g_false,
3419: p_count => x_msg_count,
3420: p_data => x_msg_data
3414: WHEN FND_API.g_exc_unexpected_error THEN
3415: ROLLBACK TO Settle_Claim;
3416: x_return_status := FND_API.g_ret_sts_unexp_error ;
3417: FND_MSG_PUB.count_and_get (
3418: p_encoded => FND_API.g_false,
3419: p_count => x_msg_count,
3420: p_data => x_msg_data
3421: );
3422: WHEN OTHERS THEN
3420: p_data => x_msg_data
3421: );
3422: WHEN OTHERS THEN
3423: ROLLBACK TO Settle_Claim;
3424: x_return_status := FND_API.g_ret_sts_unexp_error ;
3425: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3426: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
3427: END IF;
3428: FND_MSG_PUB.count_and_get (
3425: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3426: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
3427: END IF;
3428: FND_MSG_PUB.count_and_get (
3429: p_encoded => FND_API.g_false,
3430: p_count => x_msg_count,
3431: p_data => x_msg_data
3432: );
3433:
3444: -- 10-OCT-2003 mchang Create.
3445: ---------------------------------------------------------------------
3446: PROCEDURE Raise_Business_Event(
3447: p_api_version IN NUMBER
3448: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3449: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3450: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3451:
3452: ,x_return_status OUT NOCOPY VARCHAR2
3445: ---------------------------------------------------------------------
3446: PROCEDURE Raise_Business_Event(
3447: p_api_version IN NUMBER
3448: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3449: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3450: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3451:
3452: ,x_return_status OUT NOCOPY VARCHAR2
3453: ,x_msg_data OUT NOCOPY VARCHAR2
3446: PROCEDURE Raise_Business_Event(
3447: p_api_version IN NUMBER
3448: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3449: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3450: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3451:
3452: ,x_return_status OUT NOCOPY VARCHAR2
3453: ,x_msg_data OUT NOCOPY VARCHAR2
3454: ,x_msg_count OUT NOCOPY NUMBER
3484: OZF_Utility_PVT.debug_message(l_full_name||' : start');
3485: OZF_Utility_PVT.debug_message(l_full_name||' : event = '||p_event_name);
3486: END IF;
3487:
3488: IF FND_API.to_boolean(p_init_msg_list) THEN
3489: FND_MSG_PUB.initialize;
3490: END IF;
3491:
3492: IF NOT FND_API.compatible_api_call(
3488: IF FND_API.to_boolean(p_init_msg_list) THEN
3489: FND_MSG_PUB.initialize;
3490: END IF;
3491:
3492: IF NOT FND_API.compatible_api_call(
3493: l_api_version,
3494: p_api_version,
3495: l_api_name,
3496: g_pkg_name
3494: p_api_version,
3495: l_api_name,
3496: g_pkg_name
3497: ) THEN
3498: RAISE FND_API.g_exc_unexpected_error;
3499: END IF;
3500:
3501: -- Initialize API return status to sucess
3502: x_return_status := FND_API.g_ret_sts_success;
3498: RAISE FND_API.g_exc_unexpected_error;
3499: END IF;
3500:
3501: -- Initialize API return status to sucess
3502: x_return_status := FND_API.g_ret_sts_success;
3503:
3504: --------------------- Start -----------------------
3505: l_new_item_key := p_claim_id||'_'||TO_CHAR(SYSDATE,'DDMMRRRRHH24MISS');
3506:
3533: );
3534:
3535: ------------------------- finish -------------------------------
3536: -- Check for commit
3537: IF FND_API.to_boolean(p_commit) THEN
3538: COMMIT;
3539: END IF;
3540:
3541: FND_MSG_PUB.count_and_get(
3538: COMMIT;
3539: END IF;
3540:
3541: FND_MSG_PUB.count_and_get(
3542: p_encoded => FND_API.g_false,
3543: p_count => x_msg_count,
3544: p_data => x_msg_data
3545: );
3546:
3548: OZF_Utility_PVT.debug_message(l_full_name ||': end');
3549: END IF;
3550:
3551: EXCEPTION
3552: WHEN FND_API.g_exc_error THEN
3553: ROLLBACK TO Raise_Business_Event;
3554: x_return_status := FND_API.g_ret_sts_error;
3555: FND_MSG_PUB.count_and_get (
3556: p_encoded => FND_API.g_false,
3550:
3551: EXCEPTION
3552: WHEN FND_API.g_exc_error THEN
3553: ROLLBACK TO Raise_Business_Event;
3554: x_return_status := FND_API.g_ret_sts_error;
3555: FND_MSG_PUB.count_and_get (
3556: p_encoded => FND_API.g_false,
3557: p_count => x_msg_count,
3558: p_data => x_msg_data
3552: WHEN FND_API.g_exc_error THEN
3553: ROLLBACK TO Raise_Business_Event;
3554: x_return_status := FND_API.g_ret_sts_error;
3555: FND_MSG_PUB.count_and_get (
3556: p_encoded => FND_API.g_false,
3557: p_count => x_msg_count,
3558: p_data => x_msg_data
3559: );
3560: WHEN FND_API.g_exc_unexpected_error THEN
3556: p_encoded => FND_API.g_false,
3557: p_count => x_msg_count,
3558: p_data => x_msg_data
3559: );
3560: WHEN FND_API.g_exc_unexpected_error THEN
3561: ROLLBACK TO Raise_Business_Event;
3562: x_return_status := FND_API.g_ret_sts_unexp_error ;
3563: FND_MSG_PUB.count_and_get (
3564: p_encoded => FND_API.g_false,
3558: p_data => x_msg_data
3559: );
3560: WHEN FND_API.g_exc_unexpected_error THEN
3561: ROLLBACK TO Raise_Business_Event;
3562: x_return_status := FND_API.g_ret_sts_unexp_error ;
3563: FND_MSG_PUB.count_and_get (
3564: p_encoded => FND_API.g_false,
3565: p_count => x_msg_count,
3566: p_data => x_msg_data
3560: WHEN FND_API.g_exc_unexpected_error THEN
3561: ROLLBACK TO Raise_Business_Event;
3562: x_return_status := FND_API.g_ret_sts_unexp_error ;
3563: FND_MSG_PUB.count_and_get (
3564: p_encoded => FND_API.g_false,
3565: p_count => x_msg_count,
3566: p_data => x_msg_data
3567: );
3568: WHEN OTHERS THEN
3566: p_data => x_msg_data
3567: );
3568: WHEN OTHERS THEN
3569: ROLLBACK TO Raise_Business_Event;
3570: x_return_status := FND_API.g_ret_sts_unexp_error ;
3571: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3572: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
3573: END IF;
3574: FND_MSG_PUB.count_and_get (
3571: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3572: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
3573: END IF;
3574: FND_MSG_PUB.count_and_get (
3575: p_encoded => FND_API.g_false,
3576: p_count => x_msg_count,
3577: p_data => x_msg_data
3578: );
3579: