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: ---------------------------------------------------------------------
274: OZF_Utility_PVT.debug_message(l_full_name||' : start');
275: END IF;
276:
277: -- Initialize API return status to sucess
278: x_return_status := FND_API.g_ret_sts_success;
279:
280: OPEN cust_info_csr(p_claim_id);
281: FETCH cust_info_csr INTO l_payment_method
282: , l_cust_account_id
310: l_trd_prfl.payment_method := l_payment_method;
311:
312: OZF_Trade_Profile_PVT.Create_Trade_Profile(
313: p_api_version_number => l_api_version,
314: p_init_msg_list => FND_API.G_FALSE,
315: p_commit => FND_API.G_FALSE,
316: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
317: x_return_status => l_return_status,
318: x_msg_count => l_msg_count,
311:
312: OZF_Trade_Profile_PVT.Create_Trade_Profile(
313: p_api_version_number => l_api_version,
314: p_init_msg_list => FND_API.G_FALSE,
315: p_commit => FND_API.G_FALSE,
316: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
317: x_return_status => l_return_status,
318: x_msg_count => l_msg_count,
319: x_msg_data => l_msg_data,
312: OZF_Trade_Profile_PVT.Create_Trade_Profile(
313: p_api_version_number => l_api_version,
314: p_init_msg_list => FND_API.G_FALSE,
315: p_commit => FND_API.G_FALSE,
316: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
317: x_return_status => l_return_status,
318: x_msg_count => l_msg_count,
319: x_msg_data => l_msg_data,
320: p_trade_profile_rec => l_trd_prfl,
319: x_msg_data => l_msg_data,
320: p_trade_profile_rec => l_trd_prfl,
321: x_trade_profile_id => l_trade_profile_id
322: );
323: IF l_return_status = FND_API.g_ret_sts_error THEN
324: RAISE FND_API.g_exc_error;
325: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
326: RAISE FND_API.g_exc_unexpected_error;
327: END IF;
320: p_trade_profile_rec => l_trd_prfl,
321: x_trade_profile_id => l_trade_profile_id
322: );
323: IF l_return_status = FND_API.g_ret_sts_error THEN
324: RAISE FND_API.g_exc_error;
325: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
326: RAISE FND_API.g_exc_unexpected_error;
327: END IF;
328: END IF;
321: x_trade_profile_id => l_trade_profile_id
322: );
323: IF l_return_status = FND_API.g_ret_sts_error THEN
324: RAISE FND_API.g_exc_error;
325: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
326: RAISE FND_API.g_exc_unexpected_error;
327: END IF;
328: END IF;
329: END IF;
322: );
323: IF l_return_status = FND_API.g_ret_sts_error THEN
324: RAISE FND_API.g_exc_error;
325: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
326: RAISE FND_API.g_exc_unexpected_error;
327: END IF;
328: END IF;
329: END IF;
330:
332: OZF_Utility_PVT.debug_message(l_full_name||' : end');
333: END IF;
334:
335: EXCEPTION
336: WHEN FND_API.G_EXC_ERROR THEN
337: x_return_status := FND_API.G_RET_STS_ERROR;
338: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
339: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
340: WHEN OTHERS THEN
333: END IF;
334:
335: EXCEPTION
336: WHEN FND_API.G_EXC_ERROR THEN
337: x_return_status := FND_API.G_RET_STS_ERROR;
338: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
339: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
340: WHEN OTHERS THEN
341: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
334:
335: EXCEPTION
336: WHEN FND_API.G_EXC_ERROR THEN
337: x_return_status := FND_API.G_RET_STS_ERROR;
338: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
339: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
340: WHEN OTHERS THEN
341: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
342: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
335: EXCEPTION
336: WHEN FND_API.G_EXC_ERROR THEN
337: x_return_status := FND_API.G_RET_STS_ERROR;
338: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
339: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
340: WHEN OTHERS THEN
341: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
342: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
343: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
337: x_return_status := FND_API.G_RET_STS_ERROR;
338: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
339: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
340: WHEN OTHERS THEN
341: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
342: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
343: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
344: END IF;
345:
387: OZF_Utility_PVT.debug_message(l_full_name||' : start');
388: END IF;
389:
390: -- Initialize API return status to sucess
391: x_return_status := FND_API.g_ret_sts_success;
392:
393: OPEN csr_claim_line_asso(p_claim_id);
394: LOOP
395: FETCH csr_claim_line_asso INTO l_claim_line_asso(l_counter);
409: l_claim_line_rec.earnings_associated_flag := 'F';
410:
411: OZF_CLAIM_LINE_PVT.Update_Claim_Line(
412: p_api_version => l_api_version
413: ,p_init_msg_list => FND_API.g_false
414: ,p_commit => FND_API.g_false
415: ,p_validation_level => FND_API.g_valid_level_full
416: ,x_return_status => l_return_status
417: ,x_msg_count => x_msg_data
410:
411: OZF_CLAIM_LINE_PVT.Update_Claim_Line(
412: p_api_version => l_api_version
413: ,p_init_msg_list => FND_API.g_false
414: ,p_commit => FND_API.g_false
415: ,p_validation_level => FND_API.g_valid_level_full
416: ,x_return_status => l_return_status
417: ,x_msg_count => x_msg_data
418: ,x_msg_data => x_msg_count
411: OZF_CLAIM_LINE_PVT.Update_Claim_Line(
412: p_api_version => l_api_version
413: ,p_init_msg_list => FND_API.g_false
414: ,p_commit => FND_API.g_false
415: ,p_validation_level => FND_API.g_valid_level_full
416: ,x_return_status => l_return_status
417: ,x_msg_count => x_msg_data
418: ,x_msg_data => x_msg_count
419: ,p_claim_line_rec => l_claim_line_rec
418: ,x_msg_data => x_msg_count
419: ,p_claim_line_rec => l_claim_line_rec
420: ,x_object_version => l_line_obj_ver
421: );
422: IF l_return_status = FND_API.g_ret_sts_error THEN
423: RAISE FND_API.g_exc_error;
424: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
425: RAISE FND_API.g_exc_unexpected_error;
426: END IF;
419: ,p_claim_line_rec => l_claim_line_rec
420: ,x_object_version => l_line_obj_ver
421: );
422: IF l_return_status = FND_API.g_ret_sts_error THEN
423: RAISE FND_API.g_exc_error;
424: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
425: RAISE FND_API.g_exc_unexpected_error;
426: END IF;
427: END LOOP;
420: ,x_object_version => l_line_obj_ver
421: );
422: IF l_return_status = FND_API.g_ret_sts_error THEN
423: RAISE FND_API.g_exc_error;
424: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
425: RAISE FND_API.g_exc_unexpected_error;
426: END IF;
427: END LOOP;
428: END IF;
421: );
422: IF l_return_status = FND_API.g_ret_sts_error THEN
423: RAISE FND_API.g_exc_error;
424: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
425: RAISE FND_API.g_exc_unexpected_error;
426: END IF;
427: END LOOP;
428: END IF;
429:
431: OZF_Utility_PVT.debug_message(l_full_name||' : end');
432: END IF;
433:
434: EXCEPTION
435: WHEN FND_API.G_EXC_ERROR THEN
436: x_return_status := FND_API.G_RET_STS_ERROR;
437: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
438: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
439: WHEN OTHERS THEN
432: END IF;
433:
434: EXCEPTION
435: WHEN FND_API.G_EXC_ERROR THEN
436: x_return_status := FND_API.G_RET_STS_ERROR;
437: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
438: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
439: WHEN OTHERS THEN
440: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
433:
434: EXCEPTION
435: WHEN FND_API.G_EXC_ERROR THEN
436: x_return_status := FND_API.G_RET_STS_ERROR;
437: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
438: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
439: WHEN OTHERS THEN
440: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
441: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
434: EXCEPTION
435: WHEN FND_API.G_EXC_ERROR THEN
436: x_return_status := FND_API.G_RET_STS_ERROR;
437: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
438: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
439: WHEN OTHERS THEN
440: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
441: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
442: END IF;
439: WHEN OTHERS THEN
440: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
441: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
442: END IF;
443: x_return_status := FND_API.g_ret_sts_unexp_error;
444:
445: END Remove_Utilization;
446:
447:
472: OZF_Utility_PVT.debug_message(l_full_name||' : start');
473: END IF;
474:
475: -- Initialize API return status to sucess
476: x_return_status := FND_API.g_ret_sts_success;
477:
478: Remove_Utilization (
479: x_return_status => l_return_status
480: ,x_msg_count => x_msg_count
481: ,x_msg_data => x_msg_data
482: ,p_claim_id => p_claim_id
483:
484: );
485: IF l_return_status = FND_API.g_ret_sts_error THEN
486: RAISE FND_API.g_exc_error;
487: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
488: RAISE FND_API.g_exc_unexpected_error;
489: END IF;
482: ,p_claim_id => p_claim_id
483:
484: );
485: IF l_return_status = FND_API.g_ret_sts_error THEN
486: RAISE FND_API.g_exc_error;
487: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
488: RAISE FND_API.g_exc_unexpected_error;
489: END IF;
490:
483:
484: );
485: IF l_return_status = FND_API.g_ret_sts_error THEN
486: RAISE FND_API.g_exc_error;
487: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
488: RAISE FND_API.g_exc_unexpected_error;
489: END IF;
490:
491: IF OZF_DEBUG_HIGH_ON THEN
484: );
485: IF l_return_status = FND_API.g_ret_sts_error THEN
486: RAISE FND_API.g_exc_error;
487: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
488: RAISE FND_API.g_exc_unexpected_error;
489: END IF;
490:
491: IF OZF_DEBUG_HIGH_ON THEN
492: OZF_Utility_PVT.debug_message(l_full_name||' : end');
491: IF OZF_DEBUG_HIGH_ON THEN
492: OZF_Utility_PVT.debug_message(l_full_name||' : end');
493: END IF;
494: EXCEPTION
495: WHEN FND_API.G_EXC_ERROR THEN
496: x_return_status := FND_API.G_RET_STS_ERROR;
497: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
498: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
499: WHEN OTHERS THEN
492: OZF_Utility_PVT.debug_message(l_full_name||' : end');
493: END IF;
494: EXCEPTION
495: WHEN FND_API.G_EXC_ERROR THEN
496: x_return_status := FND_API.G_RET_STS_ERROR;
497: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
498: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
499: WHEN OTHERS THEN
500: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
493: END IF;
494: EXCEPTION
495: WHEN FND_API.G_EXC_ERROR THEN
496: x_return_status := FND_API.G_RET_STS_ERROR;
497: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
498: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
499: WHEN OTHERS THEN
500: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
501: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
494: EXCEPTION
495: WHEN FND_API.G_EXC_ERROR THEN
496: x_return_status := FND_API.G_RET_STS_ERROR;
497: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
498: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
499: WHEN OTHERS THEN
500: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
501: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
502: END IF;
499: WHEN OTHERS THEN
500: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
501: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
502: END IF;
503: x_return_status := FND_API.g_ret_sts_unexp_error;
504:
505: END Duplicate_Claim_for_Completion;
506:
507:
532: OZF_Utility_PVT.debug_message(l_full_name||' : start');
533: END IF;
534:
535: -- Initialize API return status to sucess
536: x_return_status := FND_API.g_ret_sts_success;
537:
538: Remove_Utilization (
539: x_return_status => l_return_status
540: ,x_msg_count => x_msg_count
541: ,x_msg_data => x_msg_data
542: ,p_claim_id => p_claim_id
543:
544: );
545: IF l_return_status = FND_API.g_ret_sts_error THEN
546: RAISE FND_API.g_exc_error;
547: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
548: RAISE FND_API.g_exc_unexpected_error;
549: END IF;
542: ,p_claim_id => p_claim_id
543:
544: );
545: IF l_return_status = FND_API.g_ret_sts_error THEN
546: RAISE FND_API.g_exc_error;
547: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
548: RAISE FND_API.g_exc_unexpected_error;
549: END IF;
550:
543:
544: );
545: IF l_return_status = FND_API.g_ret_sts_error THEN
546: RAISE FND_API.g_exc_error;
547: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
548: RAISE FND_API.g_exc_unexpected_error;
549: END IF;
550:
551: IF OZF_DEBUG_HIGH_ON THEN
544: );
545: IF l_return_status = FND_API.g_ret_sts_error THEN
546: RAISE FND_API.g_exc_error;
547: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
548: RAISE FND_API.g_exc_unexpected_error;
549: END IF;
550:
551: IF OZF_DEBUG_HIGH_ON THEN
552: OZF_Utility_PVT.debug_message(l_full_name||' : end');
551: IF OZF_DEBUG_HIGH_ON THEN
552: OZF_Utility_PVT.debug_message(l_full_name||' : end');
553: END IF;
554: EXCEPTION
555: WHEN FND_API.G_EXC_ERROR THEN
556: x_return_status := FND_API.G_RET_STS_ERROR;
557: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
558: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
559: WHEN OTHERS THEN
552: OZF_Utility_PVT.debug_message(l_full_name||' : end');
553: END IF;
554: EXCEPTION
555: WHEN FND_API.G_EXC_ERROR THEN
556: x_return_status := FND_API.G_RET_STS_ERROR;
557: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
558: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
559: WHEN OTHERS THEN
560: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
553: END IF;
554: EXCEPTION
555: WHEN FND_API.G_EXC_ERROR THEN
556: x_return_status := FND_API.G_RET_STS_ERROR;
557: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
558: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
559: WHEN OTHERS THEN
560: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
561: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
554: EXCEPTION
555: WHEN FND_API.G_EXC_ERROR THEN
556: x_return_status := FND_API.G_RET_STS_ERROR;
557: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
558: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
559: WHEN OTHERS THEN
560: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
561: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
562: END IF;
559: WHEN OTHERS THEN
560: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
561: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
562: END IF;
563: x_return_status := FND_API.g_ret_sts_unexp_error;
564:
565: END Cancel_Claim_for_Completion;
566:
567:
601: OZF_Utility_PVT.debug_message(l_full_name||' : start');
602: END IF;
603:
604: -- Initialize API return status to sucess
605: x_return_status := FND_API.g_ret_sts_success;
606: /*
607: OPEN csr_claim_class(p_claim_id);
608: FETCH csr_claim_class INTO l_claim_class;
609: CLOSE csr_claim_class;
621: WHEN OTHERS THEN
622: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
623: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
624: FND_MSG_PUB.Add;
625: RAISE FND_API.g_exc_unexpected_error;
626: END;
627: END IF;
628: */
629: IF OZF_DEBUG_HIGH_ON THEN
629: IF OZF_DEBUG_HIGH_ON THEN
630: OZF_Utility_PVT.debug_message(l_full_name||' : end');
631: END IF;
632: EXCEPTION
633: WHEN FND_API.G_EXC_ERROR THEN
634: x_return_status := FND_API.G_RET_STS_ERROR;
635: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
636: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
637: WHEN OTHERS THEN
630: OZF_Utility_PVT.debug_message(l_full_name||' : end');
631: END IF;
632: EXCEPTION
633: WHEN FND_API.G_EXC_ERROR THEN
634: x_return_status := FND_API.G_RET_STS_ERROR;
635: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
636: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
637: WHEN OTHERS THEN
638: IF OZF_DEBUG_LOW_ON THEN
631: END IF;
632: EXCEPTION
633: WHEN FND_API.G_EXC_ERROR THEN
634: x_return_status := FND_API.G_RET_STS_ERROR;
635: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
636: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
637: WHEN OTHERS THEN
638: IF OZF_DEBUG_LOW_ON THEN
639: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
632: EXCEPTION
633: WHEN FND_API.G_EXC_ERROR THEN
634: x_return_status := FND_API.G_RET_STS_ERROR;
635: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
636: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
637: WHEN OTHERS THEN
638: IF OZF_DEBUG_LOW_ON THEN
639: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
640: FND_MESSAGE.Set_Token('TEXT',l_full_name||' : Error');
639: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
640: FND_MESSAGE.Set_Token('TEXT',l_full_name||' : Error');
641: FND_MSG_PUB.Add;
642: END IF;
643: x_return_status := FND_API.g_ret_sts_unexp_error;
644:
645: END Cancel_Claim_for_Settlement;
646:
647:
676: OZF_Utility_PVT.debug_message(l_full_name||' : start');
677: END IF;
678:
679: -- Initialize API return status to sucess
680: x_return_status := FND_API.g_ret_sts_success;
681: x_claim_rec := p_claim_rec;
682:
683: -- move amount_settled back to amount_remaining, and calculated acctd_amount_remaining also.
684: x_claim_rec.amount_settled := 0;
697: X_RETURN_STATUS => l_return_status,
698: X_ACC_AMOUNT => x_claim_rec.acctd_amount_remaining,
699: X_RATE => x_claim_rec.exchange_rate
700: );
701: IF l_return_status = FND_API.g_ret_sts_error THEN
702: RAISE FND_API.g_exc_error;
703: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
704: RAISE FND_API.g_exc_unexpected_error;
705: END IF;
698: X_ACC_AMOUNT => x_claim_rec.acctd_amount_remaining,
699: X_RATE => x_claim_rec.exchange_rate
700: );
701: IF l_return_status = FND_API.g_ret_sts_error THEN
702: RAISE FND_API.g_exc_error;
703: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
704: RAISE FND_API.g_exc_unexpected_error;
705: END IF;
706:
699: X_RATE => x_claim_rec.exchange_rate
700: );
701: IF l_return_status = FND_API.g_ret_sts_error THEN
702: RAISE FND_API.g_exc_error;
703: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
704: RAISE FND_API.g_exc_unexpected_error;
705: END IF;
706:
707: IF OZF_DEBUG_HIGH_ON THEN
700: );
701: IF l_return_status = FND_API.g_ret_sts_error THEN
702: RAISE FND_API.g_exc_error;
703: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
704: RAISE FND_API.g_exc_unexpected_error;
705: END IF;
706:
707: IF OZF_DEBUG_HIGH_ON THEN
708: OZF_Utility_PVT.debug_message(l_full_name||' : end');
707: IF OZF_DEBUG_HIGH_ON THEN
708: OZF_Utility_PVT.debug_message(l_full_name||' : end');
709: END IF;
710: EXCEPTION
711: WHEN FND_API.G_EXC_ERROR THEN
712: x_return_status := FND_API.G_RET_STS_ERROR;
713: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
714: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
715: WHEN OTHERS THEN
708: OZF_Utility_PVT.debug_message(l_full_name||' : end');
709: END IF;
710: EXCEPTION
711: WHEN FND_API.G_EXC_ERROR THEN
712: x_return_status := FND_API.G_RET_STS_ERROR;
713: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
714: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
715: WHEN OTHERS THEN
716: x_return_status := FND_API.g_ret_sts_unexp_error;
709: END IF;
710: EXCEPTION
711: WHEN FND_API.G_EXC_ERROR THEN
712: x_return_status := FND_API.G_RET_STS_ERROR;
713: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
714: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
715: WHEN OTHERS THEN
716: x_return_status := FND_API.g_ret_sts_unexp_error;
717: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
710: EXCEPTION
711: WHEN FND_API.G_EXC_ERROR THEN
712: x_return_status := FND_API.G_RET_STS_ERROR;
713: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
714: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
715: WHEN OTHERS THEN
716: x_return_status := FND_API.g_ret_sts_unexp_error;
717: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
718: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
712: x_return_status := FND_API.G_RET_STS_ERROR;
713: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
714: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
715: WHEN OTHERS THEN
716: x_return_status := FND_API.g_ret_sts_unexp_error;
717: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
718: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
719: END IF;
720:
757: OZF_Utility_PVT.debug_message(l_full_name||' : start');
758: END IF;
759:
760: -- Initialize API return status to sucess
761: x_return_status := FND_API.g_ret_sts_success;
762: /*
763: OPEN csr_claim_class(p_claim_id);
764: FETCH csr_claim_class INTO l_claim_class;
765: CLOSE csr_claim_class;
777: WHEN OTHERS THEN
778: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
779: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
780: FND_MSG_PUB.Add;
781: RAISE FND_API.g_exc_unexpected_error;
782: END;
783: END IF;
784: */
785: IF OZF_DEBUG_HIGH_ON THEN
785: IF OZF_DEBUG_HIGH_ON THEN
786: OZF_Utility_PVT.debug_message(l_full_name||' : end');
787: END IF;
788: EXCEPTION
789: WHEN FND_API.G_EXC_ERROR THEN
790: x_return_status := FND_API.G_RET_STS_ERROR;
791: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
792: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
793: WHEN OTHERS THEN
786: OZF_Utility_PVT.debug_message(l_full_name||' : end');
787: END IF;
788: EXCEPTION
789: WHEN FND_API.G_EXC_ERROR THEN
790: x_return_status := FND_API.G_RET_STS_ERROR;
791: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
792: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
793: WHEN OTHERS THEN
794: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
787: END IF;
788: EXCEPTION
789: WHEN FND_API.G_EXC_ERROR THEN
790: x_return_status := FND_API.G_RET_STS_ERROR;
791: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
792: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
793: WHEN OTHERS THEN
794: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
795: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
788: EXCEPTION
789: WHEN FND_API.G_EXC_ERROR THEN
790: x_return_status := FND_API.G_RET_STS_ERROR;
791: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
792: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
793: WHEN OTHERS THEN
794: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
795: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
796: END IF;
793: WHEN OTHERS THEN
794: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
795: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
796: END IF;
797: x_return_status := FND_API.g_ret_sts_unexp_error;
798:
799: END Reject_Claim_for_Settlement;
800:
801:
824: IS
825: l_api_version CONSTANT NUMBER := 1.0;
826: l_api_name CONSTANT VARCHAR2(30) := 'Complete_Claim_for_Completion';
827: l_full_name CONSTANT VARCHAR2(60) := G_PKG_NAME || '.' || l_api_name;
828: l_return_status VARCHAR2(1) := FND_API.g_ret_sts_success;
829:
830: BEGIN
831: IF OZF_DEBUG_HIGH_ON THEN
832: OZF_Utility_PVT.debug_message(l_full_name||' : start');
832: OZF_Utility_PVT.debug_message(l_full_name||' : start');
833: END IF;
834:
835: -- Initialize API return status to sucess
836: x_return_status := FND_API.g_ret_sts_success;
837:
838: x_claim_rec := p_claim_rec;
839:
840: OZF_CLAIM_SETTLEMENT_VAL_PVT.Complete_Claim_Validation(
838: x_claim_rec := p_claim_rec;
839:
840: OZF_CLAIM_SETTLEMENT_VAL_PVT.Complete_Claim_Validation(
841: p_api_version => l_api_version
842: ,p_init_msg_list => FND_API.g_false
843: ,p_validation_level => FND_API.g_valid_level_full
844: ,x_return_status => l_return_status
845: ,x_msg_data => x_msg_data
846: ,x_msg_count => x_msg_count
839:
840: OZF_CLAIM_SETTLEMENT_VAL_PVT.Complete_Claim_Validation(
841: p_api_version => l_api_version
842: ,p_init_msg_list => FND_API.g_false
843: ,p_validation_level => FND_API.g_valid_level_full
844: ,x_return_status => l_return_status
845: ,x_msg_data => x_msg_data
846: ,x_msg_count => x_msg_count
847: ,p_claim_rec => p_claim_rec
846: ,x_msg_count => x_msg_count
847: ,p_claim_rec => p_claim_rec
848: ,x_claim_rec => x_claim_rec
849: );
850: IF l_return_status = FND_API.g_ret_sts_error THEN
851: RAISE FND_API.g_exc_error;
852: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
853: RAISE FND_API.g_exc_unexpected_error;
854: END IF;
847: ,p_claim_rec => p_claim_rec
848: ,x_claim_rec => x_claim_rec
849: );
850: IF l_return_status = FND_API.g_ret_sts_error THEN
851: RAISE FND_API.g_exc_error;
852: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
853: RAISE FND_API.g_exc_unexpected_error;
854: END IF;
855:
848: ,x_claim_rec => x_claim_rec
849: );
850: IF l_return_status = FND_API.g_ret_sts_error THEN
851: RAISE FND_API.g_exc_error;
852: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
853: RAISE FND_API.g_exc_unexpected_error;
854: END IF;
855:
856: IF OZF_DEBUG_HIGH_ON THEN
849: );
850: IF l_return_status = FND_API.g_ret_sts_error THEN
851: RAISE FND_API.g_exc_error;
852: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
853: RAISE FND_API.g_exc_unexpected_error;
854: END IF;
855:
856: IF OZF_DEBUG_HIGH_ON THEN
857: OZF_Utility_PVT.debug_message(l_full_name||' : end');
856: IF OZF_DEBUG_HIGH_ON THEN
857: OZF_Utility_PVT.debug_message(l_full_name||' : end');
858: END IF;
859: EXCEPTION
860: WHEN FND_API.G_EXC_ERROR THEN
861: x_return_status := FND_API.G_RET_STS_ERROR;
862: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
863: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
864: WHEN OTHERS THEN
857: OZF_Utility_PVT.debug_message(l_full_name||' : end');
858: END IF;
859: EXCEPTION
860: WHEN FND_API.G_EXC_ERROR THEN
861: x_return_status := FND_API.G_RET_STS_ERROR;
862: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
863: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
864: WHEN OTHERS THEN
865: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
858: END IF;
859: EXCEPTION
860: WHEN FND_API.G_EXC_ERROR THEN
861: x_return_status := FND_API.G_RET_STS_ERROR;
862: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
863: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
864: WHEN OTHERS THEN
865: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
866: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
859: EXCEPTION
860: WHEN FND_API.G_EXC_ERROR THEN
861: x_return_status := FND_API.G_RET_STS_ERROR;
862: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
863: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
864: WHEN OTHERS THEN
865: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
866: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
867: END IF;
864: WHEN OTHERS THEN
865: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
866: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
867: END IF;
868: x_return_status := FND_API.g_ret_sts_unexp_error;
869:
870: END Complete_Claim_for_Completion;
871:
872:
896: IF OZF_DEBUG_HIGH_ON THEN
897: OZF_Utility_PVT.debug_message(l_full_name||' : start');
898: END IF;
899: -- Initialize API return status to sucess
900: x_return_status := FND_API.g_ret_sts_success;
901:
902: -- create trade profile if need
903: Check_Create_Trd_Prfl (
904: p_claim_id => p_claim_id
905: ,x_return_status => l_return_status
906: ,x_msg_count => x_msg_count
907: ,x_msg_data => x_msg_data
908: );
909: IF l_return_status = FND_API.g_ret_sts_error THEN
910: RAISE FND_API.g_exc_error;
911: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
912: RAISE FND_API.g_exc_unexpected_error;
913: END IF;
906: ,x_msg_count => x_msg_count
907: ,x_msg_data => x_msg_data
908: );
909: IF l_return_status = FND_API.g_ret_sts_error THEN
910: RAISE FND_API.g_exc_error;
911: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
912: RAISE FND_API.g_exc_unexpected_error;
913: END IF;
914:
907: ,x_msg_data => x_msg_data
908: );
909: IF l_return_status = FND_API.g_ret_sts_error THEN
910: RAISE FND_API.g_exc_error;
911: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
912: RAISE FND_API.g_exc_unexpected_error;
913: END IF;
914:
915: IF OZF_DEBUG_HIGH_ON THEN
908: );
909: IF l_return_status = FND_API.g_ret_sts_error THEN
910: RAISE FND_API.g_exc_error;
911: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
912: RAISE FND_API.g_exc_unexpected_error;
913: END IF;
914:
915: IF OZF_DEBUG_HIGH_ON THEN
916: OZF_Utility_PVT.debug_message(l_full_name||' : end');
916: OZF_Utility_PVT.debug_message(l_full_name||' : end');
917: END IF;
918:
919: EXCEPTION
920: WHEN FND_API.G_EXC_ERROR THEN
921: x_return_status := FND_API.G_RET_STS_ERROR;
922: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
923: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
924: WHEN OTHERS THEN
917: END IF;
918:
919: EXCEPTION
920: WHEN FND_API.G_EXC_ERROR THEN
921: x_return_status := FND_API.G_RET_STS_ERROR;
922: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
923: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
924: WHEN OTHERS THEN
925: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
918:
919: EXCEPTION
920: WHEN FND_API.G_EXC_ERROR THEN
921: x_return_status := FND_API.G_RET_STS_ERROR;
922: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
923: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
924: WHEN OTHERS THEN
925: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
926: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
919: EXCEPTION
920: WHEN FND_API.G_EXC_ERROR THEN
921: x_return_status := FND_API.G_RET_STS_ERROR;
922: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
923: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
924: WHEN OTHERS THEN
925: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
926: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
927: END IF;
924: WHEN OTHERS THEN
925: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
926: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
927: END IF;
928: x_return_status := FND_API.g_ret_sts_unexp_error;
929:
930: END Complete_Claim_for_Settlement;
931:
932:
985: IF OZF_DEBUG_HIGH_ON THEN
986: OZF_Utility_PVT.debug_message(l_full_name||' : start');
987: END IF;
988: -- Initialize API return status to sucess
989: x_return_status := FND_API.g_ret_sts_success;
990:
991: x_claim_rec := p_claim_rec;
992:
993: OPEN csr_claim_perf_appr_req(p_claim_rec.custom_setup_id);
999: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1000: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_PERF_APPR_REQ');
1001: FND_MSG_PUB.add;
1002: END IF;
1003: RAISE FND_API.g_exc_error;
1004: END IF;
1005:
1006: -- status_code/user_status_id : update claim_status to 'PENDING_APPROVAL'
1007: OPEN csr_user_status_id('PENDING_APPROVAL');
1030: X_RETURN_STATUS => l_return_status,
1031: X_ACC_AMOUNT => x_claim_rec.acctd_amount_settled,
1032: X_RATE => x_claim_rec.exchange_rate
1033: );
1034: IF l_return_status = FND_API.g_ret_sts_error THEN
1035: RAISE FND_API.g_exc_error;
1036: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1037: RAISE FND_API.g_exc_unexpected_error;
1038: END IF;
1031: X_ACC_AMOUNT => x_claim_rec.acctd_amount_settled,
1032: X_RATE => x_claim_rec.exchange_rate
1033: );
1034: IF l_return_status = FND_API.g_ret_sts_error THEN
1035: RAISE FND_API.g_exc_error;
1036: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1037: RAISE FND_API.g_exc_unexpected_error;
1038: END IF;
1039:
1032: X_RATE => x_claim_rec.exchange_rate
1033: );
1034: IF l_return_status = FND_API.g_ret_sts_error THEN
1035: RAISE FND_API.g_exc_error;
1036: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1037: RAISE FND_API.g_exc_unexpected_error;
1038: END IF;
1039:
1040: -- amount_remaining
1033: );
1034: IF l_return_status = FND_API.g_ret_sts_error THEN
1035: RAISE FND_API.g_exc_error;
1036: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1037: RAISE FND_API.g_exc_unexpected_error;
1038: END IF;
1039:
1040: -- amount_remaining
1041: 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);
1051: X_RETURN_STATUS => l_return_status,
1052: X_ACC_AMOUNT => x_claim_rec.acctd_amount_remaining,
1053: X_RATE => x_claim_rec.exchange_rate
1054: );
1055: IF l_return_status = FND_API.g_ret_sts_error THEN
1056: RAISE FND_API.g_exc_error;
1057: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1058: RAISE FND_API.g_exc_unexpected_error;
1059: END IF;
1052: X_ACC_AMOUNT => x_claim_rec.acctd_amount_remaining,
1053: X_RATE => x_claim_rec.exchange_rate
1054: );
1055: IF l_return_status = FND_API.g_ret_sts_error THEN
1056: RAISE FND_API.g_exc_error;
1057: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1058: RAISE FND_API.g_exc_unexpected_error;
1059: END IF;
1060:
1053: X_RATE => x_claim_rec.exchange_rate
1054: );
1055: IF l_return_status = FND_API.g_ret_sts_error THEN
1056: RAISE FND_API.g_exc_error;
1057: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1058: RAISE FND_API.g_exc_unexpected_error;
1059: END IF;
1060:
1061: ------- amount remaining checking --------
1054: );
1055: IF l_return_status = FND_API.g_ret_sts_error THEN
1056: RAISE FND_API.g_exc_error;
1057: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1058: RAISE FND_API.g_exc_unexpected_error;
1059: END IF;
1060:
1061: ------- amount remaining checking --------
1062: 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);
1067: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1068: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AMT_ERR');
1069: FND_MSG_PUB.add;
1070: END IF;
1071: RAISE FND_API.g_exc_error;
1072: END IF;
1073: */
1074:
1075: -- settled_by / settled_date
1079: IF OZF_DEBUG_HIGH_ON THEN
1080: OZF_Utility_PVT.debug_message(l_full_name||' : end');
1081: END IF;
1082: EXCEPTION
1083: WHEN FND_API.G_EXC_ERROR THEN
1084: x_return_status := FND_API.G_RET_STS_ERROR;
1085: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1086: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1087: WHEN OTHERS THEN
1080: OZF_Utility_PVT.debug_message(l_full_name||' : end');
1081: END IF;
1082: EXCEPTION
1083: WHEN FND_API.G_EXC_ERROR THEN
1084: x_return_status := FND_API.G_RET_STS_ERROR;
1085: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1086: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1087: WHEN OTHERS THEN
1088: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1081: END IF;
1082: EXCEPTION
1083: WHEN FND_API.G_EXC_ERROR THEN
1084: x_return_status := FND_API.G_RET_STS_ERROR;
1085: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1086: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1087: WHEN OTHERS THEN
1088: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1089: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1082: EXCEPTION
1083: WHEN FND_API.G_EXC_ERROR THEN
1084: x_return_status := FND_API.G_RET_STS_ERROR;
1085: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1086: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1087: WHEN OTHERS THEN
1088: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1089: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1090: END IF;
1087: WHEN OTHERS THEN
1088: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1089: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1090: END IF;
1091: x_return_status := FND_API.g_ret_sts_unexp_error;
1092:
1093: END Approve_Claim_for_Completion;
1094:
1095:
1144: IF OZF_DEBUG_HIGH_ON THEN
1145: OZF_Utility_PVT.debug_message(l_full_name||' : start');
1146: END IF;
1147: -- Initialize API return status to sucess
1148: x_return_status := FND_API.g_ret_sts_success;
1149:
1150: OPEN claim_rec_csr(p_claim_id);
1151: FETCH claim_rec_csr INTO l_object_version_number,
1152: --l_new_status_id,
1167: l_reject_status_id := OZF_UTILITY_PVT.get_default_user_status(
1168: l_status_type
1169: ,l_reject_status_code
1170: );
1171: IF OZF_Claim_Accrual_PVT.Earnings_Approval_Required(p_claim_id) = FND_API.g_true THEN
1172: l_approval_type := 'EARNING';
1173: ELSIF OZF_Claim_Accrual_PVT.Perform_Approval_Required(p_claim_id) = FND_API.g_true THEN
1174: l_approval_type := 'PERFORMANCE';
1175: ELSE
1169: ,l_reject_status_code
1170: );
1171: IF OZF_Claim_Accrual_PVT.Earnings_Approval_Required(p_claim_id) = FND_API.g_true THEN
1172: l_approval_type := 'EARNING';
1173: ELSIF OZF_Claim_Accrual_PVT.Perform_Approval_Required(p_claim_id) = FND_API.g_true THEN
1174: l_approval_type := 'PERFORMANCE';
1175: ELSE
1176: l_approval_type := 'CLAIM';
1177: END IF;
1192: ,p_notes_from_requester => l_comments
1193: ,p_workflowprocess => l_approval_workflow
1194: ,p_item_type => l_item_type
1195: );
1196: IF l_return_status = FND_API.g_ret_sts_error THEN
1197: RAISE FND_API.g_exc_error;
1198: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1199: RAISE FND_API.g_exc_unexpected_error;
1200: END IF;
1193: ,p_workflowprocess => l_approval_workflow
1194: ,p_item_type => l_item_type
1195: );
1196: IF l_return_status = FND_API.g_ret_sts_error THEN
1197: RAISE FND_API.g_exc_error;
1198: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1199: RAISE FND_API.g_exc_unexpected_error;
1200: END IF;
1201:
1194: ,p_item_type => l_item_type
1195: );
1196: IF l_return_status = FND_API.g_ret_sts_error THEN
1197: RAISE FND_API.g_exc_error;
1198: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1199: RAISE FND_API.g_exc_unexpected_error;
1200: END IF;
1201:
1202: IF OZF_DEBUG_HIGH_ON THEN
1195: );
1196: IF l_return_status = FND_API.g_ret_sts_error THEN
1197: RAISE FND_API.g_exc_error;
1198: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1199: RAISE FND_API.g_exc_unexpected_error;
1200: END IF;
1201:
1202: IF OZF_DEBUG_HIGH_ON THEN
1203: OZF_Utility_PVT.debug_message(l_full_name||' : end');
1202: IF OZF_DEBUG_HIGH_ON THEN
1203: OZF_Utility_PVT.debug_message(l_full_name||' : end');
1204: END IF;
1205: EXCEPTION
1206: WHEN FND_API.G_EXC_ERROR THEN
1207: x_return_status := FND_API.G_RET_STS_ERROR;
1208: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1209: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1210: WHEN OTHERS THEN
1203: OZF_Utility_PVT.debug_message(l_full_name||' : end');
1204: END IF;
1205: EXCEPTION
1206: WHEN FND_API.G_EXC_ERROR THEN
1207: x_return_status := FND_API.G_RET_STS_ERROR;
1208: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1209: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1210: WHEN OTHERS THEN
1211: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1204: END IF;
1205: EXCEPTION
1206: WHEN FND_API.G_EXC_ERROR THEN
1207: x_return_status := FND_API.G_RET_STS_ERROR;
1208: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1209: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1210: WHEN OTHERS THEN
1211: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1212: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1205: EXCEPTION
1206: WHEN FND_API.G_EXC_ERROR THEN
1207: x_return_status := FND_API.G_RET_STS_ERROR;
1208: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1209: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1210: WHEN OTHERS THEN
1211: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1212: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1213: END IF;
1210: WHEN OTHERS THEN
1211: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1212: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1213: END IF;
1214: x_return_status := FND_API.g_ret_sts_unexp_error;
1215:
1216: END Approve_Claim_for_Settlement;
1217:
1218:
1295: IF OZF_DEBUG_HIGH_ON THEN
1296: OZF_Utility_PVT.debug_message(l_full_name||' : start');
1297: END IF;
1298: -- Initialize API return status to sucess
1299: x_return_status := FND_API.g_ret_sts_success;
1300:
1301: x_claim_rec := p_claim_rec;
1302:
1303: /*----------------------------------------------------------
1337: X_RETURN_STATUS => l_return_status,
1338: X_ACC_AMOUNT => x_claim_rec.acctd_amount_settled,
1339: X_RATE => x_claim_rec.exchange_rate
1340: );
1341: IF l_return_status = FND_API.g_ret_sts_error THEN
1342: RAISE FND_API.g_exc_error;
1343: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1344: RAISE FND_API.g_exc_unexpected_error;
1345: END IF;
1338: X_ACC_AMOUNT => x_claim_rec.acctd_amount_settled,
1339: X_RATE => x_claim_rec.exchange_rate
1340: );
1341: IF l_return_status = FND_API.g_ret_sts_error THEN
1342: RAISE FND_API.g_exc_error;
1343: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1344: RAISE FND_API.g_exc_unexpected_error;
1345: END IF;
1346:
1339: X_RATE => x_claim_rec.exchange_rate
1340: );
1341: IF l_return_status = FND_API.g_ret_sts_error THEN
1342: RAISE FND_API.g_exc_error;
1343: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1344: RAISE FND_API.g_exc_unexpected_error;
1345: END IF;
1346:
1347: -- update amount_remaining
1340: );
1341: IF l_return_status = FND_API.g_ret_sts_error THEN
1342: RAISE FND_API.g_exc_error;
1343: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1344: RAISE FND_API.g_exc_unexpected_error;
1345: END IF;
1346:
1347: -- update amount_remaining
1348: x_claim_rec.amount_remaining := x_claim_rec.amount
1361: X_RETURN_STATUS => l_return_status,
1362: X_ACC_AMOUNT => x_claim_rec.acctd_amount_remaining,
1363: X_RATE => x_claim_rec.exchange_rate
1364: );
1365: IF l_return_status = FND_API.g_ret_sts_error THEN
1366: RAISE FND_API.g_exc_error;
1367: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1368: RAISE FND_API.g_exc_unexpected_error;
1369: END IF;
1362: X_ACC_AMOUNT => x_claim_rec.acctd_amount_remaining,
1363: X_RATE => x_claim_rec.exchange_rate
1364: );
1365: IF l_return_status = FND_API.g_ret_sts_error THEN
1366: RAISE FND_API.g_exc_error;
1367: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1368: RAISE FND_API.g_exc_unexpected_error;
1369: END IF;
1370:
1363: X_RATE => x_claim_rec.exchange_rate
1364: );
1365: IF l_return_status = FND_API.g_ret_sts_error THEN
1366: RAISE FND_API.g_exc_error;
1367: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1368: RAISE FND_API.g_exc_unexpected_error;
1369: END IF;
1370:
1371: ------ check amount_remaining ------
1364: );
1365: IF l_return_status = FND_API.g_ret_sts_error THEN
1366: RAISE FND_API.g_exc_error;
1367: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1368: RAISE FND_API.g_exc_unexpected_error;
1369: END IF;
1370:
1371: ------ check amount_remaining ------
1372: -- l_claim_amount_remaining should be >= 0 now
1384: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1385: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AMT_ERR');
1386: FND_MSG_PUB.add;
1387: END IF;
1388: RAISE FND_API.g_exc_error;
1389: END IF;
1390: */
1391:
1392: x_claim_rec.settled_by := OZF_Utility_PVT.get_resource_id(FND_GLOBAL.user_id);
1421: | 2. Raise Business Event for Referral Claim Approval
1422: *---------------------------------------------------------*/
1423: Raise_Business_Event(
1424: p_api_version => l_api_version
1425: ,p_init_msg_list => FND_API.g_false
1426: ,p_commit => FND_API.g_false
1427: ,p_validation_level => FND_API.g_valid_level_full
1428: ,x_return_status => l_return_status
1429: ,x_msg_data => x_msg_data
1422: *---------------------------------------------------------*/
1423: Raise_Business_Event(
1424: p_api_version => l_api_version
1425: ,p_init_msg_list => FND_API.g_false
1426: ,p_commit => FND_API.g_false
1427: ,p_validation_level => FND_API.g_valid_level_full
1428: ,x_return_status => l_return_status
1429: ,x_msg_data => x_msg_data
1430: ,x_msg_count => x_msg_count
1423: Raise_Business_Event(
1424: p_api_version => l_api_version
1425: ,p_init_msg_list => FND_API.g_false
1426: ,p_commit => FND_API.g_false
1427: ,p_validation_level => FND_API.g_valid_level_full
1428: ,x_return_status => l_return_status
1429: ,x_msg_data => x_msg_data
1430: ,x_msg_count => x_msg_count
1431: ,p_claim_id => p_claim_rec.claim_id
1432: ,p_old_status => p_prev_status
1433: ,p_new_status => 'PENDING_APPROVAL'
1434: ,p_event_name => 'oracle.apps.ozf.claim.referralApproval'
1435: );
1436: IF l_return_status = FND_API.g_ret_sts_error THEN
1437: RAISE FND_API.g_exc_error;
1438: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1439: RAISE FND_API.g_exc_unexpected_error;
1440: END IF;
1433: ,p_new_status => 'PENDING_APPROVAL'
1434: ,p_event_name => 'oracle.apps.ozf.claim.referralApproval'
1435: );
1436: IF l_return_status = FND_API.g_ret_sts_error THEN
1437: RAISE FND_API.g_exc_error;
1438: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1439: RAISE FND_API.g_exc_unexpected_error;
1440: END IF;
1441:
1434: ,p_event_name => 'oracle.apps.ozf.claim.referralApproval'
1435: );
1436: IF l_return_status = FND_API.g_ret_sts_error THEN
1437: RAISE FND_API.g_exc_error;
1438: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1439: RAISE FND_API.g_exc_unexpected_error;
1440: END IF;
1441:
1442: x_claim_rec.status_code := 'PENDING_APPROVAL';
1435: );
1436: IF l_return_status = FND_API.g_ret_sts_error THEN
1437: RAISE FND_API.g_exc_error;
1438: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1439: RAISE FND_API.g_exc_unexpected_error;
1440: END IF;
1441:
1442: x_claim_rec.status_code := 'PENDING_APPROVAL';
1443: x_claim_rec.payment_status := 'WAITING_ACCEPTANCE';
1470: | Adjust_Fund_Utilization is fully completed.
1471: *---------------------------------------------------------*/
1472: Ozf_Claim_Accrual_Pvt.Adjust_Fund_Utilization(
1473: p_api_version => l_api_version
1474: ,p_init_msg_list => FND_API.g_false
1475: ,p_commit => FND_API.g_false
1476: ,p_validation_level => FND_API.g_valid_level_full
1477: ,x_return_status => l_return_status
1478: ,x_msg_count => x_msg_count
1471: *---------------------------------------------------------*/
1472: Ozf_Claim_Accrual_Pvt.Adjust_Fund_Utilization(
1473: p_api_version => l_api_version
1474: ,p_init_msg_list => FND_API.g_false
1475: ,p_commit => FND_API.g_false
1476: ,p_validation_level => FND_API.g_valid_level_full
1477: ,x_return_status => l_return_status
1478: ,x_msg_count => x_msg_count
1479: ,x_msg_data => x_msg_data
1472: Ozf_Claim_Accrual_Pvt.Adjust_Fund_Utilization(
1473: p_api_version => l_api_version
1474: ,p_init_msg_list => FND_API.g_false
1475: ,p_commit => FND_API.g_false
1476: ,p_validation_level => FND_API.g_valid_level_full
1477: ,x_return_status => l_return_status
1478: ,x_msg_count => x_msg_count
1479: ,x_msg_data => x_msg_data
1480: ,p_claim_id => p_claim_rec.claim_id
1480: ,p_claim_id => p_claim_rec.claim_id
1481: ,p_mode => 'ADJ_FUND'
1482: ,x_next_status => l_adj_util_result_status
1483: );
1484: IF l_return_status = FND_API.g_ret_sts_error THEN
1485: RAISE FND_API.g_exc_error;
1486: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1487: RAISE FND_API.g_exc_unexpected_error;
1488: END IF;
1481: ,p_mode => 'ADJ_FUND'
1482: ,x_next_status => l_adj_util_result_status
1483: );
1484: IF l_return_status = FND_API.g_ret_sts_error THEN
1485: RAISE FND_API.g_exc_error;
1486: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1487: RAISE FND_API.g_exc_unexpected_error;
1488: END IF;
1489:
1482: ,x_next_status => l_adj_util_result_status
1483: );
1484: IF l_return_status = FND_API.g_ret_sts_error THEN
1485: RAISE FND_API.g_exc_error;
1486: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1487: RAISE FND_API.g_exc_unexpected_error;
1488: END IF;
1489:
1490: IF l_adj_util_result_status = 'PENDING_APPROVAL' THEN
1483: );
1484: IF l_return_status = FND_API.g_ret_sts_error THEN
1485: RAISE FND_API.g_exc_error;
1486: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1487: RAISE FND_API.g_exc_unexpected_error;
1488: END IF;
1489:
1490: IF l_adj_util_result_status = 'PENDING_APPROVAL' THEN
1491: x_claim_rec.status_code := 'PENDING_APPROVAL';
1519: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1520: FND_MESSAGE.set_name('OZF', 'OZF_PAY_REFERENCE_REQD');
1521: FND_MSG_PUB.add;
1522: END IF;
1523: RAISE FND_API.G_EXC_ERROR;
1524: ELSE
1525: OPEN csr_trx_balance(p_claim_rec.payment_reference_id);
1526: FETCH csr_trx_balance INTO l_trx_balance, l_trx_currency;
1527: CLOSE csr_trx_balance;
1531: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1532: FND_MESSAGE.set_name('OZF', 'OZF_SETL_CM_DM_OP_BAL_ERR');
1533: FND_MSG_PUB.add;
1534: END IF;
1535: RAISE FND_API.G_EXC_ERROR;
1536: END IF;
1537: END IF;
1538: END IF;
1539:
1547: OZF_AR_VALIDATION_PVT.Validate_CreditTo_Information(
1548: p_claim_rec => p_claim_rec
1549: ,x_return_status => l_return_status
1550: );
1551: IF l_return_status = FND_API.g_ret_sts_error THEN
1552: RAISE FND_API.g_exc_error;
1553: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1554: RAISE FND_API.g_exc_unexpected_error;
1555: END IF;
1548: p_claim_rec => p_claim_rec
1549: ,x_return_status => l_return_status
1550: );
1551: IF l_return_status = FND_API.g_ret_sts_error THEN
1552: RAISE FND_API.g_exc_error;
1553: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1554: RAISE FND_API.g_exc_unexpected_error;
1555: END IF;
1556: END IF;
1549: ,x_return_status => l_return_status
1550: );
1551: IF l_return_status = FND_API.g_ret_sts_error THEN
1552: RAISE FND_API.g_exc_error;
1553: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1554: RAISE FND_API.g_exc_unexpected_error;
1555: END IF;
1556: END IF;
1557: END IF;
1550: );
1551: IF l_return_status = FND_API.g_ret_sts_error THEN
1552: RAISE FND_API.g_exc_error;
1553: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1554: RAISE FND_API.g_exc_unexpected_error;
1555: END IF;
1556: END IF;
1557: END IF;
1558:
1574: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1575: FND_MESSAGE.Set_Token('TEXT', 'Status return from OZF_CLAIM_LINE_PVT.Adjust_Fund_Utilization = '||l_adj_util_result_status);
1576: FND_MSG_PUB.Add;
1577: END IF;
1578: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1579: END IF; -- end of if l_adj_util_result_status
1580: END IF; -- enf of if referral claim approval
1581:
1582: -- Set returning user_status_id
1587: IF OZF_DEBUG_HIGH_ON THEN
1588: OZF_Utility_PVT.debug_message(l_full_name||' : end');
1589: END IF;
1590: EXCEPTION
1591: WHEN FND_API.G_EXC_ERROR THEN
1592: x_return_status := FND_API.G_RET_STS_ERROR;
1593:
1594: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1595: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1588: OZF_Utility_PVT.debug_message(l_full_name||' : end');
1589: END IF;
1590: EXCEPTION
1591: WHEN FND_API.G_EXC_ERROR THEN
1592: x_return_status := FND_API.G_RET_STS_ERROR;
1593:
1594: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1595: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1596:
1590: EXCEPTION
1591: WHEN FND_API.G_EXC_ERROR THEN
1592: x_return_status := FND_API.G_RET_STS_ERROR;
1593:
1594: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1595: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1596:
1597: WHEN OTHERS THEN
1598: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1591: WHEN FND_API.G_EXC_ERROR THEN
1592: x_return_status := FND_API.G_RET_STS_ERROR;
1593:
1594: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1595: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1596:
1597: WHEN OTHERS THEN
1598: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1599: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1597: WHEN OTHERS THEN
1598: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1599: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1600: END IF;
1601: x_return_status := FND_API.g_ret_sts_unexp_error;
1602:
1603: END Create_Payment_for_Completion;
1604:
1605:
1697: OZF_Utility_PVT.debug_message(l_full_name||' : start');
1698: END IF;
1699:
1700: -- Initialize API return status to sucess
1701: x_return_status := FND_API.g_ret_sts_success;
1702:
1703: OPEN csr_claim_settle(p_claim_id);
1704: FETCH csr_claim_settle INTO l_claim_settle;
1705: CLOSE csr_claim_settle;
1740: WHEN OTHERS THEN
1741: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1742: FND_MESSAGE.Set_Token('TEXT','Promo Err: ' || sqlerrm);
1743: FND_MSG_PUB.Add;
1744: RAISE FND_API.g_exc_unexpected_error;
1745: END;
1746: ELSE -- non promotional claims
1747: /*---------------------------------------------------------*
1748: | CHECK (AP) |
1766: x_event_id => l_event_id,
1767: x_clear_code_combination_id => l_ccid
1768: );
1769: END IF;
1770: IF l_return_status = FND_API.g_ret_sts_error THEN
1771: RAISE FND_API.g_exc_error;
1772: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1773: RAISE FND_API.g_exc_unexpected_error;
1774: END IF;
1767: x_clear_code_combination_id => l_ccid
1768: );
1769: END IF;
1770: IF l_return_status = FND_API.g_ret_sts_error THEN
1771: RAISE FND_API.g_exc_error;
1772: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1773: RAISE FND_API.g_exc_unexpected_error;
1774: END IF;
1775: IF OZF_DEBUG_HIGH_ON THEN
1768: );
1769: END IF;
1770: IF l_return_status = FND_API.g_ret_sts_error THEN
1771: RAISE FND_API.g_exc_error;
1772: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1773: RAISE FND_API.g_exc_unexpected_error;
1774: END IF;
1775: IF OZF_DEBUG_HIGH_ON THEN
1776: OZF_Utility_PVT.debug_message('Accounting Event Id :'||l_event_id );
1769: END IF;
1770: IF l_return_status = FND_API.g_ret_sts_error THEN
1771: RAISE FND_API.g_exc_error;
1772: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1773: RAISE FND_API.g_exc_unexpected_error;
1774: END IF;
1775: IF OZF_DEBUG_HIGH_ON THEN
1776: OZF_Utility_PVT.debug_message('Accounting Event Id :'||l_event_id );
1777: OZF_Utility_PVT.debug_message('Code Combination Id :'||l_ccid );
1783:
1784: -- create AP invoice
1785: OZF_AP_INTERFACE_PVT.Create_AP_Invoice (
1786: p_api_version => l_api_version
1787: ,p_init_msg_list => FND_API.g_false
1788: ,p_commit => FND_API.g_false
1789: ,p_validation_level => FND_API.g_valid_level_full
1790: ,x_return_status => l_return_status
1791: ,x_msg_data => x_msg_data
1784: -- create AP invoice
1785: OZF_AP_INTERFACE_PVT.Create_AP_Invoice (
1786: p_api_version => l_api_version
1787: ,p_init_msg_list => FND_API.g_false
1788: ,p_commit => FND_API.g_false
1789: ,p_validation_level => FND_API.g_valid_level_full
1790: ,x_return_status => l_return_status
1791: ,x_msg_data => x_msg_data
1792: ,x_msg_count => x_msg_count
1785: OZF_AP_INTERFACE_PVT.Create_AP_Invoice (
1786: p_api_version => l_api_version
1787: ,p_init_msg_list => FND_API.g_false
1788: ,p_commit => FND_API.g_false
1789: ,p_validation_level => FND_API.g_valid_level_full
1790: ,x_return_status => l_return_status
1791: ,x_msg_data => x_msg_data
1792: ,x_msg_count => x_msg_count
1793: ,p_claim_id => p_claim_id
1791: ,x_msg_data => x_msg_data
1792: ,x_msg_count => x_msg_count
1793: ,p_claim_id => p_claim_id
1794: );
1795: IF l_return_status = FND_API.g_ret_sts_error THEN
1796: RAISE FND_API.g_exc_error;
1797: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1798: RAISE FND_API.g_exc_unexpected_error;
1799: END IF;
1792: ,x_msg_count => x_msg_count
1793: ,p_claim_id => p_claim_id
1794: );
1795: IF l_return_status = FND_API.g_ret_sts_error THEN
1796: RAISE FND_API.g_exc_error;
1797: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1798: RAISE FND_API.g_exc_unexpected_error;
1799: END IF;
1800:
1793: ,p_claim_id => p_claim_id
1794: );
1795: IF l_return_status = FND_API.g_ret_sts_error THEN
1796: RAISE FND_API.g_exc_error;
1797: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1798: RAISE FND_API.g_exc_unexpected_error;
1799: END IF;
1800:
1801: /*---------------------------------------------------------*
1794: );
1795: IF l_return_status = FND_API.g_ret_sts_error THEN
1796: RAISE FND_API.g_exc_error;
1797: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1798: RAISE FND_API.g_exc_unexpected_error;
1799: END IF;
1800:
1801: /*---------------------------------------------------------*
1802: | AR Settlement
1828: x_event_id => l_event_id,
1829: x_clear_code_combination_id => l_ccid
1830: );
1831: END IF;
1832: IF l_return_status = FND_API.g_ret_sts_error THEN
1833: RAISE FND_API.g_exc_error;
1834: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1835: RAISE FND_API.g_exc_unexpected_error;
1836: END IF;
1829: x_clear_code_combination_id => l_ccid
1830: );
1831: END IF;
1832: IF l_return_status = FND_API.g_ret_sts_error THEN
1833: RAISE FND_API.g_exc_error;
1834: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1835: RAISE FND_API.g_exc_unexpected_error;
1836: END IF;
1837: IF OZF_DEBUG_HIGH_ON THEN
1830: );
1831: END IF;
1832: IF l_return_status = FND_API.g_ret_sts_error THEN
1833: RAISE FND_API.g_exc_error;
1834: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1835: RAISE FND_API.g_exc_unexpected_error;
1836: END IF;
1837: IF OZF_DEBUG_HIGH_ON THEN
1838: OZF_Utility_PVT.debug_message('Accounting Event Id :'||l_event_id );
1831: END IF;
1832: IF l_return_status = FND_API.g_ret_sts_error THEN
1833: RAISE FND_API.g_exc_error;
1834: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1835: RAISE FND_API.g_exc_unexpected_error;
1836: END IF;
1837: IF OZF_DEBUG_HIGH_ON THEN
1838: OZF_Utility_PVT.debug_message('Accounting Event Id :'||l_event_id );
1839: OZF_Utility_PVT.debug_message('Code Combination Id :'||l_ccid );
1845: IF ((l_automate_settlement = 'Y') OR (l_claim_settle.payment_method = 'ACCOUNTING_ONLY'))
1846: THEN
1847: OZF_AR_PAYMENT_PVT.Create_AR_Payment(
1848: p_api_version => l_api_version
1849: ,p_init_msg_list => FND_API.g_false
1850: ,p_commit => FND_API.g_false
1851: ,p_validation_level => FND_API.g_valid_level_full
1852: ,x_return_status => l_return_status
1853: ,x_msg_data => x_msg_data
1846: THEN
1847: OZF_AR_PAYMENT_PVT.Create_AR_Payment(
1848: p_api_version => l_api_version
1849: ,p_init_msg_list => FND_API.g_false
1850: ,p_commit => FND_API.g_false
1851: ,p_validation_level => FND_API.g_valid_level_full
1852: ,x_return_status => l_return_status
1853: ,x_msg_data => x_msg_data
1854: ,x_msg_count => x_msg_count
1847: OZF_AR_PAYMENT_PVT.Create_AR_Payment(
1848: p_api_version => l_api_version
1849: ,p_init_msg_list => FND_API.g_false
1850: ,p_commit => FND_API.g_false
1851: ,p_validation_level => FND_API.g_valid_level_full
1852: ,x_return_status => l_return_status
1853: ,x_msg_data => x_msg_data
1854: ,x_msg_count => x_msg_count
1855: ,p_claim_id => p_claim_id
1853: ,x_msg_data => x_msg_data
1854: ,x_msg_count => x_msg_count
1855: ,p_claim_id => p_claim_id
1856: );
1857: IF l_return_status = FND_API.g_ret_sts_error THEN
1858: RAISE FND_API.g_exc_error;
1859: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1860: RAISE FND_API.g_exc_unexpected_error;
1861: END IF;
1854: ,x_msg_count => x_msg_count
1855: ,p_claim_id => p_claim_id
1856: );
1857: IF l_return_status = FND_API.g_ret_sts_error THEN
1858: RAISE FND_API.g_exc_error;
1859: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1860: RAISE FND_API.g_exc_unexpected_error;
1861: END IF;
1862: ELSE
1855: ,p_claim_id => p_claim_id
1856: );
1857: IF l_return_status = FND_API.g_ret_sts_error THEN
1858: RAISE FND_API.g_exc_error;
1859: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1860: RAISE FND_API.g_exc_unexpected_error;
1861: END IF;
1862: ELSE
1863: Process_Settlement_WF(
1856: );
1857: IF l_return_status = FND_API.g_ret_sts_error THEN
1858: RAISE FND_API.g_exc_error;
1859: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1860: RAISE FND_API.g_exc_unexpected_error;
1861: END IF;
1862: ELSE
1863: Process_Settlement_WF(
1864: p_claim_id => p_claim_id
1865: ,x_return_status => l_return_status
1866: ,x_msg_data => x_msg_data
1867: ,x_msg_count => x_msg_count
1868: );
1869: IF l_return_status = FND_API.g_ret_sts_error THEN
1870: RAISE FND_API.g_exc_error;
1871: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1872: RAISE FND_API.g_exc_unexpected_error;
1873: END IF;
1866: ,x_msg_data => x_msg_data
1867: ,x_msg_count => x_msg_count
1868: );
1869: IF l_return_status = FND_API.g_ret_sts_error THEN
1870: RAISE FND_API.g_exc_error;
1871: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1872: RAISE FND_API.g_exc_unexpected_error;
1873: END IF;
1874: END IF;
1867: ,x_msg_count => x_msg_count
1868: );
1869: IF l_return_status = FND_API.g_ret_sts_error THEN
1870: RAISE FND_API.g_exc_error;
1871: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1872: RAISE FND_API.g_exc_unexpected_error;
1873: END IF;
1874: END IF;
1875:
1868: );
1869: IF l_return_status = FND_API.g_ret_sts_error THEN
1870: RAISE FND_API.g_exc_error;
1871: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1872: RAISE FND_API.g_exc_unexpected_error;
1873: END IF;
1874: END IF;
1875:
1876: /*---------------------------------------------------------*
1881:
1882: IF l_automate_settlement = 'Y' THEN
1883: OZF_OM_PAYMENT_PVT.Create_OM_Payment(
1884: p_api_version => l_api_version
1885: ,p_init_msg_list => FND_API.g_false
1886: ,p_commit => FND_API.g_false
1887: ,p_validation_level => FND_API.g_valid_level_full
1888: ,x_return_status => l_return_status
1889: ,x_msg_data => x_msg_data
1882: IF l_automate_settlement = 'Y' THEN
1883: OZF_OM_PAYMENT_PVT.Create_OM_Payment(
1884: p_api_version => l_api_version
1885: ,p_init_msg_list => FND_API.g_false
1886: ,p_commit => FND_API.g_false
1887: ,p_validation_level => FND_API.g_valid_level_full
1888: ,x_return_status => l_return_status
1889: ,x_msg_data => x_msg_data
1890: ,x_msg_count => x_msg_count
1883: OZF_OM_PAYMENT_PVT.Create_OM_Payment(
1884: p_api_version => l_api_version
1885: ,p_init_msg_list => FND_API.g_false
1886: ,p_commit => FND_API.g_false
1887: ,p_validation_level => FND_API.g_valid_level_full
1888: ,x_return_status => l_return_status
1889: ,x_msg_data => x_msg_data
1890: ,x_msg_count => x_msg_count
1891: ,p_claim_id => p_claim_id
1889: ,x_msg_data => x_msg_data
1890: ,x_msg_count => x_msg_count
1891: ,p_claim_id => p_claim_id
1892: );
1893: IF l_return_status = FND_API.g_ret_sts_error THEN
1894: RAISE FND_API.g_exc_error;
1895: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1896: RAISE FND_API.g_exc_unexpected_error;
1897: END IF;
1890: ,x_msg_count => x_msg_count
1891: ,p_claim_id => p_claim_id
1892: );
1893: IF l_return_status = FND_API.g_ret_sts_error THEN
1894: RAISE FND_API.g_exc_error;
1895: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1896: RAISE FND_API.g_exc_unexpected_error;
1897: END IF;
1898: ELSE
1891: ,p_claim_id => p_claim_id
1892: );
1893: IF l_return_status = FND_API.g_ret_sts_error THEN
1894: RAISE FND_API.g_exc_error;
1895: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1896: RAISE FND_API.g_exc_unexpected_error;
1897: END IF;
1898: ELSE
1899: Process_Settlement_WF(
1892: );
1893: IF l_return_status = FND_API.g_ret_sts_error THEN
1894: RAISE FND_API.g_exc_error;
1895: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1896: RAISE FND_API.g_exc_unexpected_error;
1897: END IF;
1898: ELSE
1899: Process_Settlement_WF(
1900: p_claim_id => p_claim_id
1901: ,x_return_status => l_return_status
1902: ,x_msg_data => x_msg_data
1903: ,x_msg_count => x_msg_count
1904: );
1905: IF l_return_status = FND_API.g_ret_sts_error THEN
1906: RAISE FND_API.g_exc_error;
1907: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1908: RAISE FND_API.g_exc_unexpected_error;
1909: END IF;
1902: ,x_msg_data => x_msg_data
1903: ,x_msg_count => x_msg_count
1904: );
1905: IF l_return_status = FND_API.g_ret_sts_error THEN
1906: RAISE FND_API.g_exc_error;
1907: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1908: RAISE FND_API.g_exc_unexpected_error;
1909: END IF;
1910: END IF;
1903: ,x_msg_count => x_msg_count
1904: );
1905: IF l_return_status = FND_API.g_ret_sts_error THEN
1906: RAISE FND_API.g_exc_error;
1907: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1908: RAISE FND_API.g_exc_unexpected_error;
1909: END IF;
1910: END IF;
1911:
1904: );
1905: IF l_return_status = FND_API.g_ret_sts_error THEN
1906: RAISE FND_API.g_exc_error;
1907: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1908: RAISE FND_API.g_exc_unexpected_error;
1909: END IF;
1910: END IF;
1911:
1912: /*---------------------------------------------------------*
1924: p_settlement_method => l_claim_settle.payment_method,
1925: x_event_id => l_event_id,
1926: x_clear_code_combination_id => l_ccid
1927: );
1928: IF l_return_status = FND_API.g_ret_sts_error THEN
1929: RAISE FND_API.g_exc_error;
1930: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1931: RAISE FND_API.g_exc_unexpected_error;
1932: END IF;
1925: x_event_id => l_event_id,
1926: x_clear_code_combination_id => l_ccid
1927: );
1928: IF l_return_status = FND_API.g_ret_sts_error THEN
1929: RAISE FND_API.g_exc_error;
1930: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1931: RAISE FND_API.g_exc_unexpected_error;
1932: END IF;
1933: IF OZF_DEBUG_HIGH_ON THEN
1926: x_clear_code_combination_id => l_ccid
1927: );
1928: IF l_return_status = FND_API.g_ret_sts_error THEN
1929: RAISE FND_API.g_exc_error;
1930: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1931: RAISE FND_API.g_exc_unexpected_error;
1932: END IF;
1933: IF OZF_DEBUG_HIGH_ON THEN
1934: OZF_Utility_PVT.debug_message('Accounting Event Id :'||l_event_id );
1927: );
1928: IF l_return_status = FND_API.g_ret_sts_error THEN
1929: RAISE FND_API.g_exc_error;
1930: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1931: RAISE FND_API.g_exc_unexpected_error;
1932: END IF;
1933: IF OZF_DEBUG_HIGH_ON THEN
1934: OZF_Utility_PVT.debug_message('Accounting Event Id :'||l_event_id );
1935: OZF_Utility_PVT.debug_message('Code Combination Id :'||l_ccid );
1941: ,x_return_status => l_return_status
1942: ,x_msg_data => x_msg_data
1943: ,x_msg_count => x_msg_count
1944: );
1945: IF l_return_status = FND_API.g_ret_sts_error THEN
1946: RAISE FND_API.g_exc_error;
1947: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1948: RAISE FND_API.g_exc_unexpected_error;
1949: END IF;
1942: ,x_msg_data => x_msg_data
1943: ,x_msg_count => x_msg_count
1944: );
1945: IF l_return_status = FND_API.g_ret_sts_error THEN
1946: RAISE FND_API.g_exc_error;
1947: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1948: RAISE FND_API.g_exc_unexpected_error;
1949: END IF;
1950:
1943: ,x_msg_count => x_msg_count
1944: );
1945: IF l_return_status = FND_API.g_ret_sts_error THEN
1946: RAISE FND_API.g_exc_error;
1947: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1948: RAISE FND_API.g_exc_unexpected_error;
1949: END IF;
1950:
1951: /*---------------------------------------------------------*
1944: );
1945: IF l_return_status = FND_API.g_ret_sts_error THEN
1946: RAISE FND_API.g_exc_error;
1947: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1948: RAISE FND_API.g_exc_unexpected_error;
1949: END IF;
1950:
1951: /*---------------------------------------------------------*
1952: | MASS_SETTLEMENT |
1957: ,x_return_status => l_return_status
1958: ,x_msg_data => x_msg_data
1959: ,x_msg_count => x_msg_count
1960: );
1961: IF l_return_status = FND_API.g_ret_sts_error THEN
1962: RAISE FND_API.g_exc_error;
1963: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1964: RAISE FND_API.g_exc_unexpected_error;
1965: END IF;
1958: ,x_msg_data => x_msg_data
1959: ,x_msg_count => x_msg_count
1960: );
1961: IF l_return_status = FND_API.g_ret_sts_error THEN
1962: RAISE FND_API.g_exc_error;
1963: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1964: RAISE FND_API.g_exc_unexpected_error;
1965: END IF;
1966:
1959: ,x_msg_count => x_msg_count
1960: );
1961: IF l_return_status = FND_API.g_ret_sts_error THEN
1962: RAISE FND_API.g_exc_error;
1963: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1964: RAISE FND_API.g_exc_unexpected_error;
1965: END IF;
1966:
1967: /*---------------------------------------------------------*
1960: );
1961: IF l_return_status = FND_API.g_ret_sts_error THEN
1962: RAISE FND_API.g_exc_error;
1963: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1964: RAISE FND_API.g_exc_unexpected_error;
1965: END IF;
1966:
1967: /*---------------------------------------------------------*
1968: | Non-seeded payment_method |
1974: ,x_return_status => l_return_status
1975: ,x_msg_data => x_msg_data
1976: ,x_msg_count => x_msg_count
1977: );
1978: IF l_return_status = FND_API.g_ret_sts_error THEN
1979: RAISE FND_API.g_exc_error;
1980: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1981: RAISE FND_API.g_exc_unexpected_error;
1982: END IF;
1975: ,x_msg_data => x_msg_data
1976: ,x_msg_count => x_msg_count
1977: );
1978: IF l_return_status = FND_API.g_ret_sts_error THEN
1979: RAISE FND_API.g_exc_error;
1980: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1981: RAISE FND_API.g_exc_unexpected_error;
1982: END IF;
1983:
1976: ,x_msg_count => x_msg_count
1977: );
1978: IF l_return_status = FND_API.g_ret_sts_error THEN
1979: RAISE FND_API.g_exc_error;
1980: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1981: RAISE FND_API.g_exc_unexpected_error;
1982: END IF;
1983:
1984: END IF;
1977: );
1978: IF l_return_status = FND_API.g_ret_sts_error THEN
1979: RAISE FND_API.g_exc_error;
1980: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1981: RAISE FND_API.g_exc_unexpected_error;
1982: END IF;
1983:
1984: END IF;
1985:
1988: IF OZF_DEBUG_HIGH_ON THEN
1989: OZF_Utility_PVT.debug_message(l_full_name||' : end');
1990: END IF;
1991: EXCEPTION
1992: WHEN FND_API.G_EXC_ERROR THEN
1993: x_return_status := FND_API.G_RET_STS_ERROR;
1994:
1995: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1996: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1989: OZF_Utility_PVT.debug_message(l_full_name||' : end');
1990: END IF;
1991: EXCEPTION
1992: WHEN FND_API.G_EXC_ERROR THEN
1993: x_return_status := FND_API.G_RET_STS_ERROR;
1994:
1995: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1996: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1997:
1991: EXCEPTION
1992: WHEN FND_API.G_EXC_ERROR THEN
1993: x_return_status := FND_API.G_RET_STS_ERROR;
1994:
1995: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1996: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1997:
1998: WHEN OTHERS THEN
1999: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1992: WHEN FND_API.G_EXC_ERROR THEN
1993: x_return_status := FND_API.G_RET_STS_ERROR;
1994:
1995: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1996: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1997:
1998: WHEN OTHERS THEN
1999: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2000: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1998: WHEN OTHERS THEN
1999: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2000: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2001: END IF;
2002: x_return_status := FND_API.g_ret_sts_unexp_error;
2003:
2004: END Create_Payment_for_Settlement;
2005:
2006:
2045: IF OZF_DEBUG_HIGH_ON THEN
2046: OZF_Utility_PVT.debug_message(l_full_name||' : start');
2047: END IF;
2048: -- Initialize API return status to sucess
2049: x_return_status := FND_API.g_ret_sts_success;
2050:
2051: x_claim_rec := p_claim_rec;
2052:
2053: /*
2074: X_RETURN_STATUS => l_return_status,
2075: X_ACC_AMOUNT => x_claim_rec.acctd_amount_remaining,
2076: X_RATE => x_claim_rec.exchange_rate
2077: );
2078: IF l_return_status = FND_API.g_ret_sts_error THEN
2079: RAISE FND_API.g_exc_error;
2080: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2081: RAISE FND_API.g_exc_unexpected_error;
2082: END IF;
2075: X_ACC_AMOUNT => x_claim_rec.acctd_amount_remaining,
2076: X_RATE => x_claim_rec.exchange_rate
2077: );
2078: IF l_return_status = FND_API.g_ret_sts_error THEN
2079: RAISE FND_API.g_exc_error;
2080: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2081: RAISE FND_API.g_exc_unexpected_error;
2082: END IF;
2083: */
2076: X_RATE => x_claim_rec.exchange_rate
2077: );
2078: IF l_return_status = FND_API.g_ret_sts_error THEN
2079: RAISE FND_API.g_exc_error;
2080: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2081: RAISE FND_API.g_exc_unexpected_error;
2082: END IF;
2083: */
2084:
2077: );
2078: IF l_return_status = FND_API.g_ret_sts_error THEN
2079: RAISE FND_API.g_exc_error;
2080: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2081: RAISE FND_API.g_exc_unexpected_error;
2082: END IF;
2083: */
2084:
2085: IF OZF_DEBUG_HIGH_ON THEN
2085: IF OZF_DEBUG_HIGH_ON THEN
2086: OZF_Utility_PVT.debug_message(l_full_name||' : end');
2087: END IF;
2088: EXCEPTION
2089: WHEN FND_API.G_EXC_ERROR THEN
2090: x_return_status := FND_API.G_RET_STS_ERROR;
2091: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2092: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2093: WHEN OTHERS THEN
2086: OZF_Utility_PVT.debug_message(l_full_name||' : end');
2087: END IF;
2088: EXCEPTION
2089: WHEN FND_API.G_EXC_ERROR THEN
2090: x_return_status := FND_API.G_RET_STS_ERROR;
2091: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2092: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2093: WHEN OTHERS THEN
2094: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2087: END IF;
2088: EXCEPTION
2089: WHEN FND_API.G_EXC_ERROR THEN
2090: x_return_status := FND_API.G_RET_STS_ERROR;
2091: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2092: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2093: WHEN OTHERS THEN
2094: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2095: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2088: EXCEPTION
2089: WHEN FND_API.G_EXC_ERROR THEN
2090: x_return_status := FND_API.G_RET_STS_ERROR;
2091: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2092: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2093: WHEN OTHERS THEN
2094: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2095: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2096: END IF;
2093: WHEN OTHERS THEN
2094: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2095: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2096: END IF;
2097: x_return_status := FND_API.g_ret_sts_unexp_error;
2098:
2099: END Update_Claim_Remaining_Amount;
2100:
2101:
2238: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2239: FND_MESSAGE.set_name('OZF', 'OZF_SETL_CHK_APPR_UNEXPERR');
2240: FND_MSG_PUB.add;
2241: END IF;
2242: x_return_status := FND_API.g_ret_sts_unexp_error;
2243: END Claim_Approval_Required;
2244:
2245:
2246:
2255: -- 03/22/2001 mchang Create.
2256: ---------------------------------------------------------------------
2257: PROCEDURE Complete_Settlement(
2258: p_api_version IN NUMBER
2259: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2260: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2261: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2262:
2263: ,x_return_status OUT NOCOPY VARCHAR2
2256: ---------------------------------------------------------------------
2257: PROCEDURE Complete_Settlement(
2258: p_api_version IN NUMBER
2259: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2260: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2261: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2262:
2263: ,x_return_status OUT NOCOPY VARCHAR2
2264: ,x_msg_data OUT NOCOPY VARCHAR2
2257: PROCEDURE Complete_Settlement(
2258: p_api_version IN NUMBER
2259: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2260: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2261: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2262:
2263: ,x_return_status OUT NOCOPY VARCHAR2
2264: ,x_msg_data OUT NOCOPY VARCHAR2
2265: ,x_msg_count OUT NOCOPY NUMBER
2292: IF OZF_DEBUG_HIGH_ON THEN
2293: OZF_Utility_PVT.debug_message(l_full_name||' : start');
2294: END IF;
2295:
2296: IF FND_API.to_boolean(p_init_msg_list) THEN
2297: FND_MSG_PUB.initialize;
2298: END IF;
2299:
2300: IF NOT FND_API.compatible_api_call(
2296: IF FND_API.to_boolean(p_init_msg_list) THEN
2297: FND_MSG_PUB.initialize;
2298: END IF;
2299:
2300: IF NOT FND_API.compatible_api_call(
2301: l_api_version,
2302: p_api_version,
2303: l_api_name,
2304: g_pkg_name
2302: p_api_version,
2303: l_api_name,
2304: g_pkg_name
2305: ) THEN
2306: RAISE FND_API.g_exc_unexpected_error;
2307: END IF;
2308:
2309: -- Initialize API return status to sucess
2310: x_return_status := FND_API.g_ret_sts_success;
2306: RAISE FND_API.g_exc_unexpected_error;
2307: END IF;
2308:
2309: -- Initialize API return status to sucess
2310: x_return_status := FND_API.g_ret_sts_success;
2311:
2312: OPEN csr_claim_prev_status(p_claim_rec.claim_id);
2313: FETCH csr_claim_prev_status INTO l_prev_status;
2314: CLOSE csr_claim_prev_status;
2324: IF p_claim_rec.status_code IN ('NEW', 'OPEN') AND
2325: p_claim_rec.payment_method IS NOT NULL THEN
2326: OZF_CLAIM_SETTLEMENT_VAL_PVT.Complete_Claim(
2327: p_api_version => l_api_version
2328: ,p_init_msg_list => FND_API.g_false
2329: ,p_validation_level => FND_API.g_valid_level_full
2330: ,x_return_status => l_return_status
2331: ,x_msg_data => x_msg_data
2332: ,x_msg_count => x_msg_count
2325: p_claim_rec.payment_method IS NOT NULL THEN
2326: OZF_CLAIM_SETTLEMENT_VAL_PVT.Complete_Claim(
2327: p_api_version => l_api_version
2328: ,p_init_msg_list => FND_API.g_false
2329: ,p_validation_level => FND_API.g_valid_level_full
2330: ,x_return_status => l_return_status
2331: ,x_msg_data => x_msg_data
2332: ,x_msg_count => x_msg_count
2333: ,p_x_claim_rec => l_claim_rec
2331: ,x_msg_data => x_msg_data
2332: ,x_msg_count => x_msg_count
2333: ,p_x_claim_rec => l_claim_rec
2334: );
2335: IF l_return_status = FND_API.g_ret_sts_error THEN
2336: RAISE FND_API.g_exc_error;
2337: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2338: RAISE FND_API.g_exc_unexpected_error;
2339: END IF;
2332: ,x_msg_count => x_msg_count
2333: ,p_x_claim_rec => l_claim_rec
2334: );
2335: IF l_return_status = FND_API.g_ret_sts_error THEN
2336: RAISE FND_API.g_exc_error;
2337: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2338: RAISE FND_API.g_exc_unexpected_error;
2339: END IF;
2340: END IF;
2333: ,p_x_claim_rec => l_claim_rec
2334: );
2335: IF l_return_status = FND_API.g_ret_sts_error THEN
2336: RAISE FND_API.g_exc_error;
2337: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2338: RAISE FND_API.g_exc_unexpected_error;
2339: END IF;
2340: END IF;
2341:
2334: );
2335: IF l_return_status = FND_API.g_ret_sts_error THEN
2336: RAISE FND_API.g_exc_error;
2337: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2338: RAISE FND_API.g_exc_unexpected_error;
2339: END IF;
2340: END IF;
2341:
2342: x_claim_rec := l_claim_rec;
2360: ,x_msg_count => x_msg_count
2361: ,x_msg_data => x_msg_data
2362: ,p_claim_id => l_claim_rec.claim_id
2363: );
2364: IF l_return_status = FND_API.g_ret_sts_error THEN
2365: RAISE FND_API.g_exc_error;
2366: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2367: RAISE FND_API.g_exc_unexpected_error;
2368: END IF;
2361: ,x_msg_data => x_msg_data
2362: ,p_claim_id => l_claim_rec.claim_id
2363: );
2364: IF l_return_status = FND_API.g_ret_sts_error THEN
2365: RAISE FND_API.g_exc_error;
2366: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2367: RAISE FND_API.g_exc_unexpected_error;
2368: END IF;
2369: ELSE
2362: ,p_claim_id => l_claim_rec.claim_id
2363: );
2364: IF l_return_status = FND_API.g_ret_sts_error THEN
2365: RAISE FND_API.g_exc_error;
2366: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2367: RAISE FND_API.g_exc_unexpected_error;
2368: END IF;
2369: ELSE
2370: Dispose_Invalid_Status_Order(
2363: );
2364: IF l_return_status = FND_API.g_ret_sts_error THEN
2365: RAISE FND_API.g_exc_error;
2366: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2367: RAISE FND_API.g_exc_unexpected_error;
2368: END IF;
2369: ELSE
2370: Dispose_Invalid_Status_Order(
2371: p_prev_status => l_prev_status
2370: Dispose_Invalid_Status_Order(
2371: p_prev_status => l_prev_status
2372: ,p_curr_status => l_curr_status
2373: );
2374: RAISE FND_API.g_exc_error;
2375: END IF;
2376:
2377: -------- REJECTED --------
2378: -- NEW ---> REJECTED
2387: ,x_msg_data => x_msg_data
2388: ,p_claim_rec => l_claim_rec
2389: ,x_claim_rec => x_claim_rec
2390: );
2391: IF l_return_status = FND_API.g_ret_sts_error THEN
2392: RAISE FND_API.g_exc_error;
2393: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2394: RAISE FND_API.g_exc_unexpected_error;
2395: END IF;
2388: ,p_claim_rec => l_claim_rec
2389: ,x_claim_rec => x_claim_rec
2390: );
2391: IF l_return_status = FND_API.g_ret_sts_error THEN
2392: RAISE FND_API.g_exc_error;
2393: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2394: RAISE FND_API.g_exc_unexpected_error;
2395: END IF;
2396: ELSE
2389: ,x_claim_rec => x_claim_rec
2390: );
2391: IF l_return_status = FND_API.g_ret_sts_error THEN
2392: RAISE FND_API.g_exc_error;
2393: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2394: RAISE FND_API.g_exc_unexpected_error;
2395: END IF;
2396: ELSE
2397: Dispose_Invalid_Status_Order(
2390: );
2391: IF l_return_status = FND_API.g_ret_sts_error THEN
2392: RAISE FND_API.g_exc_error;
2393: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2394: RAISE FND_API.g_exc_unexpected_error;
2395: END IF;
2396: ELSE
2397: Dispose_Invalid_Status_Order(
2398: p_prev_status => l_prev_status
2397: Dispose_Invalid_Status_Order(
2398: p_prev_status => l_prev_status
2399: ,p_curr_status => l_curr_status
2400: );
2401: RAISE FND_API.g_exc_error;
2402: END IF;
2403:
2404: -------- DUPLICATE --------
2405: -- NEW ---> DUPLICATE
2411: ,x_msg_count => x_msg_count
2412: ,x_msg_data => x_msg_data
2413: ,p_claim_id => l_claim_rec.claim_id
2414: );
2415: IF l_return_status = FND_API.g_ret_sts_error THEN
2416: RAISE FND_API.g_exc_error;
2417: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2418: RAISE FND_API.g_exc_unexpected_error;
2419: END IF;
2412: ,x_msg_data => x_msg_data
2413: ,p_claim_id => l_claim_rec.claim_id
2414: );
2415: IF l_return_status = FND_API.g_ret_sts_error THEN
2416: RAISE FND_API.g_exc_error;
2417: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2418: RAISE FND_API.g_exc_unexpected_error;
2419: END IF;
2420: ELSE
2413: ,p_claim_id => l_claim_rec.claim_id
2414: );
2415: IF l_return_status = FND_API.g_ret_sts_error THEN
2416: RAISE FND_API.g_exc_error;
2417: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2418: RAISE FND_API.g_exc_unexpected_error;
2419: END IF;
2420: ELSE
2421: Dispose_Invalid_Status_Order(
2414: );
2415: IF l_return_status = FND_API.g_ret_sts_error THEN
2416: RAISE FND_API.g_exc_error;
2417: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2418: RAISE FND_API.g_exc_unexpected_error;
2419: END IF;
2420: ELSE
2421: Dispose_Invalid_Status_Order(
2422: p_prev_status => l_prev_status
2421: Dispose_Invalid_Status_Order(
2422: p_prev_status => l_prev_status
2423: ,p_curr_status => l_curr_status
2424: );
2425: RAISE FND_API.g_exc_error;
2426: END IF;
2427: -------- COMPLETE --------
2428: -- OPEN ---> COMPLETE
2429: ELSIF l_curr_status = 'COMPLETE' THEN
2434: ,x_msg_data => x_msg_data
2435: ,p_claim_rec => l_claim_rec
2436: ,x_claim_rec => x_claim_rec
2437: );
2438: IF l_return_status = FND_API.g_ret_sts_error THEN
2439: RAISE FND_API.g_exc_error;
2440: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2441: RAISE FND_API.g_exc_unexpected_error;
2442: END IF;
2435: ,p_claim_rec => l_claim_rec
2436: ,x_claim_rec => x_claim_rec
2437: );
2438: IF l_return_status = FND_API.g_ret_sts_error THEN
2439: RAISE FND_API.g_exc_error;
2440: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2441: RAISE FND_API.g_exc_unexpected_error;
2442: END IF;
2443: ELSIF l_prev_status <> 'PENDING_APPROVAL' THEN
2436: ,x_claim_rec => x_claim_rec
2437: );
2438: IF l_return_status = FND_API.g_ret_sts_error THEN
2439: RAISE FND_API.g_exc_error;
2440: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2441: RAISE FND_API.g_exc_unexpected_error;
2442: END IF;
2443: ELSIF l_prev_status <> 'PENDING_APPROVAL' THEN
2444: Dispose_Invalid_Status_Order(
2437: );
2438: IF l_return_status = FND_API.g_ret_sts_error THEN
2439: RAISE FND_API.g_exc_error;
2440: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2441: RAISE FND_API.g_exc_unexpected_error;
2442: END IF;
2443: ELSIF l_prev_status <> 'PENDING_APPROVAL' THEN
2444: Dispose_Invalid_Status_Order(
2445: p_prev_status => l_prev_status
2444: Dispose_Invalid_Status_Order(
2445: p_prev_status => l_prev_status
2446: ,p_curr_status => l_curr_status
2447: );
2448: RAISE FND_API.g_exc_error;
2449: END IF;
2450:
2451: -------- CLOSED --------
2452: ELSIF l_curr_status = 'CLOSED' THEN
2456: ,x_msg_data => x_msg_data
2457: ,x_msg_count => x_msg_count
2458: ,x_approval_require => l_approval_require
2459: );
2460: IF l_return_status = FND_API.g_ret_sts_error THEN
2461: RAISE FND_API.g_exc_error;
2462: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2463: RAISE FND_API.g_exc_unexpected_error;
2464: END IF;
2457: ,x_msg_count => x_msg_count
2458: ,x_approval_require => l_approval_require
2459: );
2460: IF l_return_status = FND_API.g_ret_sts_error THEN
2461: RAISE FND_API.g_exc_error;
2462: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2463: RAISE FND_API.g_exc_unexpected_error;
2464: END IF;
2465:
2458: ,x_approval_require => l_approval_require
2459: );
2460: IF l_return_status = FND_API.g_ret_sts_error THEN
2461: RAISE FND_API.g_exc_error;
2462: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2463: RAISE FND_API.g_exc_unexpected_error;
2464: END IF;
2465:
2466: /*-------------------------------*
2459: );
2460: IF l_return_status = FND_API.g_ret_sts_error THEN
2461: RAISE FND_API.g_exc_error;
2462: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2463: RAISE FND_API.g_exc_unexpected_error;
2464: END IF;
2465:
2466: /*-------------------------------*
2467: | OPEN --> CLOSED :Completion
2473: ,x_msg_data => x_msg_data
2474: ,p_claim_rec => l_claim_rec
2475: ,x_claim_rec => l_complete_claim_rec
2476: );
2477: IF l_return_status = FND_API.g_ret_sts_error THEN
2478: RAISE FND_API.g_exc_error;
2479: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2480: RAISE FND_API.g_exc_unexpected_error;
2481: END IF;
2474: ,p_claim_rec => l_claim_rec
2475: ,x_claim_rec => l_complete_claim_rec
2476: );
2477: IF l_return_status = FND_API.g_ret_sts_error THEN
2478: RAISE FND_API.g_exc_error;
2479: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2480: RAISE FND_API.g_exc_unexpected_error;
2481: END IF;
2482:
2475: ,x_claim_rec => l_complete_claim_rec
2476: );
2477: IF l_return_status = FND_API.g_ret_sts_error THEN
2478: RAISE FND_API.g_exc_error;
2479: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2480: RAISE FND_API.g_exc_unexpected_error;
2481: END IF;
2482:
2483: l_claim_rec := l_complete_claim_rec;
2476: );
2477: IF l_return_status = FND_API.g_ret_sts_error THEN
2478: RAISE FND_API.g_exc_error;
2479: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2480: RAISE FND_API.g_exc_unexpected_error;
2481: END IF;
2482:
2483: l_claim_rec := l_complete_claim_rec;
2484:
2490: ,x_msg_data => x_msg_data
2491: ,p_claim_rec => l_claim_rec
2492: ,x_claim_rec => x_claim_rec
2493: );
2494: IF l_return_status = FND_API.g_ret_sts_error THEN
2495: RAISE FND_API.g_exc_error;
2496: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2497: RAISE FND_API.g_exc_unexpected_error;
2498: END IF;
2491: ,p_claim_rec => l_claim_rec
2492: ,x_claim_rec => x_claim_rec
2493: );
2494: IF l_return_status = FND_API.g_ret_sts_error THEN
2495: RAISE FND_API.g_exc_error;
2496: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2497: RAISE FND_API.g_exc_unexpected_error;
2498: END IF;
2499: ELSE -- skip approval workflow
2492: ,x_claim_rec => x_claim_rec
2493: );
2494: IF l_return_status = FND_API.g_ret_sts_error THEN
2495: RAISE FND_API.g_exc_error;
2496: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2497: RAISE FND_API.g_exc_unexpected_error;
2498: END IF;
2499: ELSE -- skip approval workflow
2500: Create_Payment_for_Completion (
2493: );
2494: IF l_return_status = FND_API.g_ret_sts_error THEN
2495: RAISE FND_API.g_exc_error;
2496: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2497: RAISE FND_API.g_exc_unexpected_error;
2498: END IF;
2499: ELSE -- skip approval workflow
2500: Create_Payment_for_Completion (
2501: x_return_status => l_return_status
2506: ,p_prev_status => l_prev_status
2507: ,p_curr_status => l_curr_status
2508: ,x_claim_rec => x_claim_rec
2509: );
2510: IF l_return_status = FND_API.g_ret_sts_error THEN
2511: RAISE FND_API.g_exc_error;
2512: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2513: RAISE FND_API.g_exc_unexpected_error;
2514: END IF;
2507: ,p_curr_status => l_curr_status
2508: ,x_claim_rec => x_claim_rec
2509: );
2510: IF l_return_status = FND_API.g_ret_sts_error THEN
2511: RAISE FND_API.g_exc_error;
2512: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2513: RAISE FND_API.g_exc_unexpected_error;
2514: END IF;
2515: END IF;
2508: ,x_claim_rec => x_claim_rec
2509: );
2510: IF l_return_status = FND_API.g_ret_sts_error THEN
2511: RAISE FND_API.g_exc_error;
2512: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2513: RAISE FND_API.g_exc_unexpected_error;
2514: END IF;
2515: END IF;
2516:
2509: );
2510: IF l_return_status = FND_API.g_ret_sts_error THEN
2511: RAISE FND_API.g_exc_error;
2512: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2513: RAISE FND_API.g_exc_unexpected_error;
2514: END IF;
2515: END IF;
2516:
2517: /*-----------------------------------*
2525: ,x_msg_data => x_msg_data
2526: ,p_claim_rec => l_claim_rec
2527: ,x_claim_rec => x_claim_rec
2528: );
2529: IF l_return_status = FND_API.g_ret_sts_error THEN
2530: RAISE FND_API.g_exc_error;
2531: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2532: RAISE FND_API.g_exc_unexpected_error;
2533: END IF;
2526: ,p_claim_rec => l_claim_rec
2527: ,x_claim_rec => x_claim_rec
2528: );
2529: IF l_return_status = FND_API.g_ret_sts_error THEN
2530: RAISE FND_API.g_exc_error;
2531: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2532: RAISE FND_API.g_exc_unexpected_error;
2533: END IF;
2534: ELSE -- skip approval workflow
2527: ,x_claim_rec => x_claim_rec
2528: );
2529: IF l_return_status = FND_API.g_ret_sts_error THEN
2530: RAISE FND_API.g_exc_error;
2531: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2532: RAISE FND_API.g_exc_unexpected_error;
2533: END IF;
2534: ELSE -- skip approval workflow
2535: Create_Payment_for_Completion (
2528: );
2529: IF l_return_status = FND_API.g_ret_sts_error THEN
2530: RAISE FND_API.g_exc_error;
2531: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2532: RAISE FND_API.g_exc_unexpected_error;
2533: END IF;
2534: ELSE -- skip approval workflow
2535: Create_Payment_for_Completion (
2536: x_return_status => l_return_status
2541: ,p_prev_status => l_prev_status
2542: ,p_curr_status => l_curr_status
2543: ,x_claim_rec => x_claim_rec
2544: );
2545: IF l_return_status = FND_API.g_ret_sts_error THEN
2546: RAISE FND_API.g_exc_error;
2547: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2548: RAISE FND_API.g_exc_unexpected_error;
2549: END IF;
2542: ,p_curr_status => l_curr_status
2543: ,x_claim_rec => x_claim_rec
2544: );
2545: IF l_return_status = FND_API.g_ret_sts_error THEN
2546: RAISE FND_API.g_exc_error;
2547: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2548: RAISE FND_API.g_exc_unexpected_error;
2549: END IF;
2550: END IF;
2543: ,x_claim_rec => x_claim_rec
2544: );
2545: IF l_return_status = FND_API.g_ret_sts_error THEN
2546: RAISE FND_API.g_exc_error;
2547: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2548: RAISE FND_API.g_exc_unexpected_error;
2549: END IF;
2550: END IF;
2551:
2544: );
2545: IF l_return_status = FND_API.g_ret_sts_error THEN
2546: RAISE FND_API.g_exc_error;
2547: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2548: RAISE FND_API.g_exc_unexpected_error;
2549: END IF;
2550: END IF;
2551:
2552: /*----------------------------------------------------*
2563: ,p_prev_status => l_prev_status
2564: ,p_curr_status => l_curr_status
2565: ,x_claim_rec => x_claim_rec
2566: );
2567: IF l_return_status = FND_API.g_ret_sts_error THEN
2568: RAISE FND_API.g_exc_error;
2569: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2570: RAISE FND_API.g_exc_unexpected_error;
2571: END IF;
2564: ,p_curr_status => l_curr_status
2565: ,x_claim_rec => x_claim_rec
2566: );
2567: IF l_return_status = FND_API.g_ret_sts_error THEN
2568: RAISE FND_API.g_exc_error;
2569: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2570: RAISE FND_API.g_exc_unexpected_error;
2571: END IF;
2572:
2565: ,x_claim_rec => x_claim_rec
2566: );
2567: IF l_return_status = FND_API.g_ret_sts_error THEN
2568: RAISE FND_API.g_exc_error;
2569: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2570: RAISE FND_API.g_exc_unexpected_error;
2571: END IF;
2572:
2573: /*----------------------------------------*
2566: );
2567: IF l_return_status = FND_API.g_ret_sts_error THEN
2568: RAISE FND_API.g_exc_error;
2569: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2570: RAISE FND_API.g_exc_unexpected_error;
2571: END IF;
2572:
2573: /*----------------------------------------*
2574: | PENDING_CLOSE --> CLOSED :Completion
2580: ,x_msg_data => x_msg_data
2581: ,p_claim_rec => l_claim_rec
2582: ,x_claim_rec => x_claim_rec
2583: );
2584: IF l_return_status = FND_API.g_ret_sts_error THEN
2585: RAISE FND_API.g_exc_error;
2586: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2587: RAISE FND_API.g_exc_unexpected_error;
2588: END IF;
2581: ,p_claim_rec => l_claim_rec
2582: ,x_claim_rec => x_claim_rec
2583: );
2584: IF l_return_status = FND_API.g_ret_sts_error THEN
2585: RAISE FND_API.g_exc_error;
2586: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2587: RAISE FND_API.g_exc_unexpected_error;
2588: END IF;
2589:
2582: ,x_claim_rec => x_claim_rec
2583: );
2584: IF l_return_status = FND_API.g_ret_sts_error THEN
2585: RAISE FND_API.g_exc_error;
2586: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2587: RAISE FND_API.g_exc_unexpected_error;
2588: END IF;
2589:
2590: ELSE
2583: );
2584: IF l_return_status = FND_API.g_ret_sts_error THEN
2585: RAISE FND_API.g_exc_error;
2586: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2587: RAISE FND_API.g_exc_unexpected_error;
2588: END IF;
2589:
2590: ELSE
2591: IF l_prev_status <> 'PENDING_CLOSE' THEN
2592: Dispose_Invalid_Status_Order(
2593: p_prev_status => l_prev_status
2594: ,p_curr_status => l_curr_status
2595: );
2596: RAISE FND_API.g_exc_error;
2597: END IF;
2598: END IF;
2599:
2600: -------- PENDING_APPROVAL (for Mass Settlement) --------
2606: ,x_msg_data => x_msg_data
2607: ,p_claim_rec => l_claim_rec
2608: ,x_claim_rec => x_claim_rec
2609: );
2610: IF l_return_status = FND_API.g_ret_sts_error THEN
2611: RAISE FND_API.g_exc_error;
2612: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2613: RAISE FND_API.g_exc_unexpected_error;
2614: END IF;
2607: ,p_claim_rec => l_claim_rec
2608: ,x_claim_rec => x_claim_rec
2609: );
2610: IF l_return_status = FND_API.g_ret_sts_error THEN
2611: RAISE FND_API.g_exc_error;
2612: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2613: RAISE FND_API.g_exc_unexpected_error;
2614: END IF;
2615: END IF;
2608: ,x_claim_rec => x_claim_rec
2609: );
2610: IF l_return_status = FND_API.g_ret_sts_error THEN
2611: RAISE FND_API.g_exc_error;
2612: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2613: RAISE FND_API.g_exc_unexpected_error;
2614: END IF;
2615: END IF;
2616:
2609: );
2610: IF l_return_status = FND_API.g_ret_sts_error THEN
2611: RAISE FND_API.g_exc_error;
2612: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2613: RAISE FND_API.g_exc_unexpected_error;
2614: END IF;
2615: END IF;
2616:
2617: /*
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: -------- ARCHIVED --------
2639: ELSIF l_curr_status = 'ARCHIVED' THEN
2640: IF l_prev_status IN ( 'NEW'
2647: Dispose_Invalid_Status_Order(
2648: p_prev_status => l_prev_status
2649: ,p_curr_status => l_curr_status
2650: );
2651: RAISE FND_API.g_exc_error;
2652: END IF;
2653: -------- OPEN --------
2654: ELSIF l_curr_status = 'OPEN' THEN
2655: IF l_prev_status IN ( --'COMPLETE'
2660: Dispose_Invalid_Status_Order(
2661: p_prev_status => l_prev_status
2662: ,p_curr_status => l_curr_status
2663: );
2664: RAISE FND_API.g_exc_error;
2665: /*---------------------------*
2666: | PENDING_APPROVAL --> OPEN
2667: | PENDING_CLOSE --> OPEN
2668: *---------------------------*/
2673: ,x_msg_data => x_msg_data
2674: ,p_claim_rec => l_claim_rec
2675: ,x_claim_rec => x_claim_rec
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: ,p_claim_rec => l_claim_rec
2675: ,x_claim_rec => x_claim_rec
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: END IF;
2675: ,x_claim_rec => x_claim_rec
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: END IF;
2683:
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: END IF;
2683:
2684: -------- PENDING_CLOSED --------
2695: Dispose_Invalid_Status_Order(
2696: p_prev_status => l_prev_status
2697: ,p_curr_status => l_curr_status
2698: );
2699: RAISE FND_API.g_exc_error;
2700: END IF;
2701: END IF;
2702: END IF; -- end of complete settlement
2703:
2703:
2704: ------------------------- finish -------------------------------
2705: /*
2706: -- Check for commit
2707: IF FND_API.to_boolean(p_commit) THEN
2708: COMMIT;
2709: END IF;
2710: */
2711:
2709: END IF;
2710: */
2711:
2712: FND_MSG_PUB.count_and_get(
2713: p_encoded => FND_API.g_false,
2714: p_count => x_msg_count,
2715: p_data => x_msg_data
2716: );
2717:
2719: OZF_Utility_PVT.debug_message(l_full_name ||': end');
2720: END IF;
2721:
2722: EXCEPTION
2723: WHEN FND_API.g_exc_error THEN
2724: ROLLBACK TO Complete_Settlement;
2725: x_return_status := FND_API.g_ret_sts_error;
2726: FND_MSG_PUB.count_and_get (
2727: p_encoded => FND_API.g_false,
2721:
2722: EXCEPTION
2723: WHEN FND_API.g_exc_error THEN
2724: ROLLBACK TO Complete_Settlement;
2725: x_return_status := FND_API.g_ret_sts_error;
2726: FND_MSG_PUB.count_and_get (
2727: p_encoded => FND_API.g_false,
2728: p_count => x_msg_count,
2729: p_data => x_msg_data
2723: WHEN FND_API.g_exc_error THEN
2724: ROLLBACK TO Complete_Settlement;
2725: x_return_status := FND_API.g_ret_sts_error;
2726: FND_MSG_PUB.count_and_get (
2727: p_encoded => FND_API.g_false,
2728: p_count => x_msg_count,
2729: p_data => x_msg_data
2730: );
2731: WHEN FND_API.g_exc_unexpected_error THEN
2727: p_encoded => FND_API.g_false,
2728: p_count => x_msg_count,
2729: p_data => x_msg_data
2730: );
2731: WHEN FND_API.g_exc_unexpected_error THEN
2732: ROLLBACK TO Complete_Settlement;
2733: x_return_status := FND_API.g_ret_sts_unexp_error ;
2734: FND_MSG_PUB.count_and_get (
2735: p_encoded => FND_API.g_false,
2729: p_data => x_msg_data
2730: );
2731: WHEN FND_API.g_exc_unexpected_error THEN
2732: ROLLBACK TO Complete_Settlement;
2733: x_return_status := FND_API.g_ret_sts_unexp_error ;
2734: FND_MSG_PUB.count_and_get (
2735: p_encoded => FND_API.g_false,
2736: p_count => x_msg_count,
2737: p_data => x_msg_data
2731: WHEN FND_API.g_exc_unexpected_error THEN
2732: ROLLBACK TO Complete_Settlement;
2733: x_return_status := FND_API.g_ret_sts_unexp_error ;
2734: FND_MSG_PUB.count_and_get (
2735: p_encoded => FND_API.g_false,
2736: p_count => x_msg_count,
2737: p_data => x_msg_data
2738: );
2739: WHEN OTHERS THEN
2737: p_data => x_msg_data
2738: );
2739: WHEN OTHERS THEN
2740: ROLLBACK TO Complete_Settlement;
2741: x_return_status := FND_API.g_ret_sts_unexp_error ;
2742: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2743: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
2744: END IF;
2745: FND_MSG_PUB.count_and_get (
2742: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2743: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
2744: END IF;
2745: FND_MSG_PUB.count_and_get (
2746: p_encoded => FND_API.g_false,
2747: p_count => x_msg_count,
2748: p_data => x_msg_data
2749: );
2750:
2761: -- 10-AUG-2001 mchang Create.
2762: ---------------------------------------------------------------------
2763: PROCEDURE Settle_Claim(
2764: p_api_version IN NUMBER
2765: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2766: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2767: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2768:
2769: ,x_return_status OUT NOCOPY VARCHAR2
2762: ---------------------------------------------------------------------
2763: PROCEDURE Settle_Claim(
2764: p_api_version IN NUMBER
2765: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2766: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2767: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2768:
2769: ,x_return_status OUT NOCOPY VARCHAR2
2770: ,x_msg_data OUT NOCOPY VARCHAR2
2763: PROCEDURE Settle_Claim(
2764: p_api_version IN NUMBER
2765: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2766: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2767: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2768:
2769: ,x_return_status OUT NOCOPY VARCHAR2
2770: ,x_msg_data OUT NOCOPY VARCHAR2
2771: ,x_msg_count OUT NOCOPY NUMBER
2799: IF OZF_DEBUG_HIGH_ON THEN
2800: OZF_Utility_PVT.debug_message(l_full_name||' : start');
2801: END IF;
2802:
2803: IF FND_API.to_boolean(p_init_msg_list) THEN
2804: FND_MSG_PUB.initialize;
2805: END IF;
2806:
2807: IF NOT FND_API.compatible_api_call(
2803: IF FND_API.to_boolean(p_init_msg_list) THEN
2804: FND_MSG_PUB.initialize;
2805: END IF;
2806:
2807: IF NOT FND_API.compatible_api_call(
2808: l_api_version,
2809: p_api_version,
2810: l_api_name,
2811: g_pkg_name
2809: p_api_version,
2810: l_api_name,
2811: g_pkg_name
2812: ) THEN
2813: RAISE FND_API.g_exc_unexpected_error;
2814: END IF;
2815:
2816: -- Initialize API return status to sucess
2817: x_return_status := FND_API.g_ret_sts_success;
2813: RAISE FND_API.g_exc_unexpected_error;
2814: END IF;
2815:
2816: -- Initialize API return status to sucess
2817: x_return_status := FND_API.g_ret_sts_success;
2818:
2819: --------------------- Start -----------------------
2820: IF p_curr_status = 'CANCELLED' THEN
2821: Cancel_Claim_for_Settlement (
2825: ,p_claim_id => p_claim_id
2826: ,p_prev_status => p_prev_status
2827: ,p_curr_status => p_curr_status
2828: );
2829: IF l_return_status = FND_API.g_ret_sts_error THEN
2830: RAISE FND_API.g_exc_error;
2831: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2832: RAISE FND_API.g_exc_unexpected_error;
2833: END IF;
2826: ,p_prev_status => p_prev_status
2827: ,p_curr_status => p_curr_status
2828: );
2829: IF l_return_status = FND_API.g_ret_sts_error THEN
2830: RAISE FND_API.g_exc_error;
2831: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2832: RAISE FND_API.g_exc_unexpected_error;
2833: END IF;
2834:
2827: ,p_curr_status => p_curr_status
2828: );
2829: IF l_return_status = FND_API.g_ret_sts_error THEN
2830: RAISE FND_API.g_exc_error;
2831: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2832: RAISE FND_API.g_exc_unexpected_error;
2833: END IF;
2834:
2835: ELSIF p_curr_status = 'REJECTED' THEN
2828: );
2829: IF l_return_status = FND_API.g_ret_sts_error THEN
2830: RAISE FND_API.g_exc_error;
2831: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2832: RAISE FND_API.g_exc_unexpected_error;
2833: END IF;
2834:
2835: ELSIF p_curr_status = 'REJECTED' THEN
2836: Reject_Claim_for_Settlement (
2840: ,p_claim_id => p_claim_id
2841: ,p_prev_status => p_prev_status
2842: ,p_curr_status => p_curr_status
2843: );
2844: IF l_return_status = FND_API.g_ret_sts_error THEN
2845: RAISE FND_API.g_exc_error;
2846: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2847: RAISE FND_API.g_exc_unexpected_error;
2848: END IF;
2841: ,p_prev_status => p_prev_status
2842: ,p_curr_status => p_curr_status
2843: );
2844: IF l_return_status = FND_API.g_ret_sts_error THEN
2845: RAISE FND_API.g_exc_error;
2846: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2847: RAISE FND_API.g_exc_unexpected_error;
2848: END IF;
2849:
2842: ,p_curr_status => p_curr_status
2843: );
2844: IF l_return_status = FND_API.g_ret_sts_error THEN
2845: RAISE FND_API.g_exc_error;
2846: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2847: RAISE FND_API.g_exc_unexpected_error;
2848: END IF;
2849:
2850: ELSIF p_curr_status = 'DUPLICATE' THEN
2843: );
2844: IF l_return_status = FND_API.g_ret_sts_error THEN
2845: RAISE FND_API.g_exc_error;
2846: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2847: RAISE FND_API.g_exc_unexpected_error;
2848: END IF;
2849:
2850: ELSIF p_curr_status = 'DUPLICATE' THEN
2851: /* empty implementation */
2848: END IF;
2849:
2850: ELSIF p_curr_status = 'DUPLICATE' THEN
2851: /* empty implementation */
2852: l_return_status := FND_API.g_ret_sts_success;
2853:
2854: ELSIF p_curr_status = 'COMPLETE' THEN
2855: Complete_Claim_for_Settlement (
2856: x_return_status => l_return_status
2857: ,x_msg_count => x_msg_count
2858: ,x_msg_data => x_msg_data
2859: ,p_claim_id => p_claim_id
2860: );
2861: IF l_return_status = FND_API.g_ret_sts_error THEN
2862: RAISE FND_API.g_exc_error;
2863: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2864: RAISE FND_API.g_exc_unexpected_error;
2865: END IF;
2858: ,x_msg_data => x_msg_data
2859: ,p_claim_id => p_claim_id
2860: );
2861: IF l_return_status = FND_API.g_ret_sts_error THEN
2862: RAISE FND_API.g_exc_error;
2863: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2864: RAISE FND_API.g_exc_unexpected_error;
2865: END IF;
2866:
2859: ,p_claim_id => p_claim_id
2860: );
2861: IF l_return_status = FND_API.g_ret_sts_error THEN
2862: RAISE FND_API.g_exc_error;
2863: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2864: RAISE FND_API.g_exc_unexpected_error;
2865: END IF;
2866:
2867: ELSIF p_curr_status = 'CLOSED' THEN
2860: );
2861: IF l_return_status = FND_API.g_ret_sts_error THEN
2862: RAISE FND_API.g_exc_error;
2863: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2864: RAISE FND_API.g_exc_unexpected_error;
2865: END IF;
2866:
2867: ELSIF p_curr_status = 'CLOSED' THEN
2868: OPEN csr_claim_approval_attr(p_claim_id);
2879: ,x_msg_data => x_msg_data
2880: ,x_msg_count => x_msg_count
2881: ,x_approval_require => l_approval_require
2882: );
2883: IF l_return_status = FND_API.g_ret_sts_error THEN
2884: RAISE FND_API.g_exc_error;
2885: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2886: RAISE FND_API.g_exc_unexpected_error;
2887: END IF;
2880: ,x_msg_count => x_msg_count
2881: ,x_approval_require => l_approval_require
2882: );
2883: IF l_return_status = FND_API.g_ret_sts_error THEN
2884: RAISE FND_API.g_exc_error;
2885: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2886: RAISE FND_API.g_exc_unexpected_error;
2887: END IF;
2888:
2881: ,x_approval_require => l_approval_require
2882: );
2883: IF l_return_status = FND_API.g_ret_sts_error THEN
2884: RAISE FND_API.g_exc_error;
2885: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2886: RAISE FND_API.g_exc_unexpected_error;
2887: END IF;
2888:
2889: /*-------------------------------*
2882: );
2883: IF l_return_status = FND_API.g_ret_sts_error THEN
2884: RAISE FND_API.g_exc_error;
2885: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2886: RAISE FND_API.g_exc_unexpected_error;
2887: END IF;
2888:
2889: /*-------------------------------*
2890: | OPEN --> CLOSED :Settlement
2895: ,x_msg_count => x_msg_count
2896: ,x_msg_data => x_msg_data
2897: ,p_claim_id => p_claim_id
2898: );
2899: IF l_return_status = FND_API.g_ret_sts_error THEN
2900: RAISE FND_API.g_exc_error;
2901: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2902: RAISE FND_API.g_exc_unexpected_error;
2903: END IF;
2896: ,x_msg_data => x_msg_data
2897: ,p_claim_id => p_claim_id
2898: );
2899: IF l_return_status = FND_API.g_ret_sts_error THEN
2900: RAISE FND_API.g_exc_error;
2901: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2902: RAISE FND_API.g_exc_unexpected_error;
2903: END IF;
2904:
2897: ,p_claim_id => p_claim_id
2898: );
2899: IF l_return_status = FND_API.g_ret_sts_error THEN
2900: RAISE FND_API.g_exc_error;
2901: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2902: RAISE FND_API.g_exc_unexpected_error;
2903: END IF;
2904:
2905: IF l_approval_require = 'Y' THEN
2898: );
2899: IF l_return_status = FND_API.g_ret_sts_error THEN
2900: RAISE FND_API.g_exc_error;
2901: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2902: RAISE FND_API.g_exc_unexpected_error;
2903: END IF;
2904:
2905: IF l_approval_require = 'Y' THEN
2906: -- call marketing general approval workflow
2911: ,p_claim_id => p_claim_id
2912: ,p_prev_status => p_prev_status
2913: ,p_curr_status => p_curr_status
2914: );
2915: IF l_return_status = FND_API.g_ret_sts_error THEN
2916: RAISE FND_API.g_exc_error;
2917: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2918: RAISE FND_API.g_exc_unexpected_error;
2919: END IF;
2912: ,p_prev_status => p_prev_status
2913: ,p_curr_status => p_curr_status
2914: );
2915: IF l_return_status = FND_API.g_ret_sts_error THEN
2916: RAISE FND_API.g_exc_error;
2917: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2918: RAISE FND_API.g_exc_unexpected_error;
2919: END IF;
2920: ELSE -- skip approval workflow and create payment directly
2913: ,p_curr_status => p_curr_status
2914: );
2915: IF l_return_status = FND_API.g_ret_sts_error THEN
2916: RAISE FND_API.g_exc_error;
2917: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2918: RAISE FND_API.g_exc_unexpected_error;
2919: END IF;
2920: ELSE -- skip approval workflow and create payment directly
2921: -- payment process won't start if claim will go for referral approval.
2914: );
2915: IF l_return_status = FND_API.g_ret_sts_error THEN
2916: RAISE FND_API.g_exc_error;
2917: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2918: RAISE FND_API.g_exc_unexpected_error;
2919: END IF;
2920: ELSE -- skip approval workflow and create payment directly
2921: -- payment process won't start if claim will go for referral approval.
2922: IF l_claim_approval_attr.status_code <> 'PENDING_APPROVAL' THEN
2927: ,p_claim_id => p_claim_id
2928: ,p_prev_status => p_prev_status
2929: ,p_curr_status => p_curr_status
2930: );
2931: IF l_return_status = FND_API.g_ret_sts_error THEN
2932: RAISE FND_API.g_exc_error;
2933: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2934: RAISE FND_API.g_exc_unexpected_error;
2935: END IF;
2928: ,p_prev_status => p_prev_status
2929: ,p_curr_status => p_curr_status
2930: );
2931: IF l_return_status = FND_API.g_ret_sts_error THEN
2932: RAISE FND_API.g_exc_error;
2933: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2934: RAISE FND_API.g_exc_unexpected_error;
2935: END IF;
2936: END IF;
2929: ,p_curr_status => p_curr_status
2930: );
2931: IF l_return_status = FND_API.g_ret_sts_error THEN
2932: RAISE FND_API.g_exc_error;
2933: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2934: RAISE FND_API.g_exc_unexpected_error;
2935: END IF;
2936: END IF;
2937: END IF;
2930: );
2931: IF l_return_status = FND_API.g_ret_sts_error THEN
2932: RAISE FND_API.g_exc_error;
2933: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2934: RAISE FND_API.g_exc_unexpected_error;
2935: END IF;
2936: END IF;
2937: END IF;
2938:
2949: ,p_claim_id => p_claim_id
2950: ,p_prev_status => p_prev_status
2951: ,p_curr_status => p_curr_status
2952: );
2953: IF l_return_status = FND_API.g_ret_sts_error THEN
2954: RAISE FND_API.g_exc_error;
2955: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2956: RAISE FND_API.g_exc_unexpected_error;
2957: END IF;
2950: ,p_prev_status => p_prev_status
2951: ,p_curr_status => p_curr_status
2952: );
2953: IF l_return_status = FND_API.g_ret_sts_error THEN
2954: RAISE FND_API.g_exc_error;
2955: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2956: RAISE FND_API.g_exc_unexpected_error;
2957: END IF;
2958: ELSE -- skip approval workflow and create payment directly
2951: ,p_curr_status => p_curr_status
2952: );
2953: IF l_return_status = FND_API.g_ret_sts_error THEN
2954: RAISE FND_API.g_exc_error;
2955: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2956: RAISE FND_API.g_exc_unexpected_error;
2957: END IF;
2958: ELSE -- skip approval workflow and create payment directly
2959: -- payment process won't start if claim will go for referral approval.
2952: );
2953: IF l_return_status = FND_API.g_ret_sts_error THEN
2954: RAISE FND_API.g_exc_error;
2955: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2956: RAISE FND_API.g_exc_unexpected_error;
2957: END IF;
2958: ELSE -- skip approval workflow and create payment directly
2959: -- payment process won't start if claim will go for referral approval.
2960: IF l_claim_approval_attr.status_code <> 'PENDING_APPROVAL' THEN
2965: ,p_claim_id => p_claim_id
2966: ,p_prev_status => p_prev_status
2967: ,p_curr_status => p_curr_status
2968: );
2969: IF l_return_status = FND_API.g_ret_sts_error THEN
2970: RAISE FND_API.g_exc_error;
2971: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2972: RAISE FND_API.g_exc_unexpected_error;
2973: END IF;
2966: ,p_prev_status => p_prev_status
2967: ,p_curr_status => p_curr_status
2968: );
2969: IF l_return_status = FND_API.g_ret_sts_error THEN
2970: RAISE FND_API.g_exc_error;
2971: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2972: RAISE FND_API.g_exc_unexpected_error;
2973: END IF;
2974: END IF;
2967: ,p_curr_status => p_curr_status
2968: );
2969: IF l_return_status = FND_API.g_ret_sts_error THEN
2970: RAISE FND_API.g_exc_error;
2971: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2972: RAISE FND_API.g_exc_unexpected_error;
2973: END IF;
2974: END IF;
2975: END IF;
2968: );
2969: IF l_return_status = FND_API.g_ret_sts_error THEN
2970: RAISE FND_API.g_exc_error;
2971: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2972: RAISE FND_API.g_exc_unexpected_error;
2973: END IF;
2974: END IF;
2975: END IF;
2976:
2986: ,p_claim_id => p_claim_id
2987: ,p_prev_status => p_prev_status
2988: ,p_curr_status => p_curr_status
2989: );
2990: IF l_return_status = FND_API.g_ret_sts_error THEN
2991: RAISE FND_API.g_exc_error;
2992: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2993: RAISE FND_API.g_exc_unexpected_error;
2994: END IF;
2987: ,p_prev_status => p_prev_status
2988: ,p_curr_status => p_curr_status
2989: );
2990: IF l_return_status = FND_API.g_ret_sts_error THEN
2991: RAISE FND_API.g_exc_error;
2992: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2993: RAISE FND_API.g_exc_unexpected_error;
2994: END IF;
2995: END IF;
2988: ,p_curr_status => p_curr_status
2989: );
2990: IF l_return_status = FND_API.g_ret_sts_error THEN
2991: RAISE FND_API.g_exc_error;
2992: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2993: RAISE FND_API.g_exc_unexpected_error;
2994: END IF;
2995: END IF;
2996: ELSIF p_curr_status = 'OPEN' THEN
2989: );
2990: IF l_return_status = FND_API.g_ret_sts_error THEN
2991: RAISE FND_API.g_exc_error;
2992: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2993: RAISE FND_API.g_exc_unexpected_error;
2994: END IF;
2995: END IF;
2996: ELSIF p_curr_status = 'OPEN' THEN
2997: /* mchang fix for 1159
2997: /* mchang fix for 1159
2998: IF p_prev_status = 'COMPLETE' AND
2999: payment_method= 'RMA' THEN
3000: -- Delete RMA Order
3001: IF l_return_status = FND_API.g_ret_sts_error THEN
3002: RAISE FND_API.g_exc_error;
3003: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3004: RAISE FND_API.g_exc_unexpected_error;
3005: END IF;
2998: IF p_prev_status = 'COMPLETE' AND
2999: payment_method= 'RMA' THEN
3000: -- Delete RMA Order
3001: IF l_return_status = FND_API.g_ret_sts_error THEN
3002: RAISE FND_API.g_exc_error;
3003: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3004: RAISE FND_API.g_exc_unexpected_error;
3005: END IF;
3006: */
2999: payment_method= 'RMA' THEN
3000: -- Delete RMA Order
3001: IF l_return_status = FND_API.g_ret_sts_error THEN
3002: RAISE FND_API.g_exc_error;
3003: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3004: RAISE FND_API.g_exc_unexpected_error;
3005: END IF;
3006: */
3007: NULL;
3000: -- Delete RMA Order
3001: IF l_return_status = FND_API.g_ret_sts_error THEN
3002: RAISE FND_API.g_exc_error;
3003: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3004: RAISE FND_API.g_exc_unexpected_error;
3005: END IF;
3006: */
3007: NULL;
3008: END IF;
3009:
3010: ------------------------- finish -------------------------------
3011: /*
3012: -- Check for commit
3013: IF FND_API.to_boolean(p_commit) THEN
3014: COMMIT;
3015: END IF;
3016: */
3017:
3015: END IF;
3016: */
3017:
3018: FND_MSG_PUB.count_and_get(
3019: p_encoded => FND_API.g_false,
3020: p_count => x_msg_count,
3021: p_data => x_msg_data
3022: );
3023:
3025: OZF_Utility_PVT.debug_message(l_full_name ||': end');
3026: END IF;
3027:
3028: EXCEPTION
3029: WHEN FND_API.g_exc_error THEN
3030: ROLLBACK TO Settle_Claim;
3031: x_return_status := FND_API.g_ret_sts_error;
3032: FND_MSG_PUB.count_and_get (
3033: p_encoded => FND_API.g_false,
3027:
3028: EXCEPTION
3029: WHEN FND_API.g_exc_error THEN
3030: ROLLBACK TO Settle_Claim;
3031: x_return_status := FND_API.g_ret_sts_error;
3032: FND_MSG_PUB.count_and_get (
3033: p_encoded => FND_API.g_false,
3034: p_count => x_msg_count,
3035: p_data => x_msg_data
3029: WHEN FND_API.g_exc_error THEN
3030: ROLLBACK TO Settle_Claim;
3031: x_return_status := FND_API.g_ret_sts_error;
3032: FND_MSG_PUB.count_and_get (
3033: p_encoded => FND_API.g_false,
3034: p_count => x_msg_count,
3035: p_data => x_msg_data
3036: );
3037: WHEN FND_API.g_exc_unexpected_error THEN
3033: p_encoded => FND_API.g_false,
3034: p_count => x_msg_count,
3035: p_data => x_msg_data
3036: );
3037: WHEN FND_API.g_exc_unexpected_error THEN
3038: ROLLBACK TO Settle_Claim;
3039: x_return_status := FND_API.g_ret_sts_unexp_error ;
3040: FND_MSG_PUB.count_and_get (
3041: p_encoded => FND_API.g_false,
3035: p_data => x_msg_data
3036: );
3037: WHEN FND_API.g_exc_unexpected_error THEN
3038: ROLLBACK TO Settle_Claim;
3039: x_return_status := FND_API.g_ret_sts_unexp_error ;
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
3037: WHEN FND_API.g_exc_unexpected_error THEN
3038: ROLLBACK TO Settle_Claim;
3039: x_return_status := FND_API.g_ret_sts_unexp_error ;
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: WHEN OTHERS THEN
3043: p_data => x_msg_data
3044: );
3045: WHEN OTHERS THEN
3046: ROLLBACK TO Settle_Claim;
3047: x_return_status := FND_API.g_ret_sts_unexp_error ;
3048: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3049: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
3050: END IF;
3051: FND_MSG_PUB.count_and_get (
3048: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3049: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
3050: END IF;
3051: FND_MSG_PUB.count_and_get (
3052: p_encoded => FND_API.g_false,
3053: p_count => x_msg_count,
3054: p_data => x_msg_data
3055: );
3056:
3067: -- 10-OCT-2003 mchang Create.
3068: ---------------------------------------------------------------------
3069: PROCEDURE Raise_Business_Event(
3070: p_api_version IN NUMBER
3071: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3072: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3073: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3074:
3075: ,x_return_status OUT NOCOPY VARCHAR2
3068: ---------------------------------------------------------------------
3069: PROCEDURE Raise_Business_Event(
3070: p_api_version IN NUMBER
3071: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3072: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3073: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3074:
3075: ,x_return_status OUT NOCOPY VARCHAR2
3076: ,x_msg_data OUT NOCOPY VARCHAR2
3069: PROCEDURE Raise_Business_Event(
3070: p_api_version IN NUMBER
3071: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3072: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3073: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3074:
3075: ,x_return_status OUT NOCOPY VARCHAR2
3076: ,x_msg_data OUT NOCOPY VARCHAR2
3077: ,x_msg_count OUT NOCOPY NUMBER
3107: OZF_Utility_PVT.debug_message(l_full_name||' : start');
3108: OZF_Utility_PVT.debug_message(l_full_name||' : event = '||p_event_name);
3109: END IF;
3110:
3111: IF FND_API.to_boolean(p_init_msg_list) THEN
3112: FND_MSG_PUB.initialize;
3113: END IF;
3114:
3115: IF NOT FND_API.compatible_api_call(
3111: IF FND_API.to_boolean(p_init_msg_list) THEN
3112: FND_MSG_PUB.initialize;
3113: END IF;
3114:
3115: IF NOT FND_API.compatible_api_call(
3116: l_api_version,
3117: p_api_version,
3118: l_api_name,
3119: g_pkg_name
3117: p_api_version,
3118: l_api_name,
3119: g_pkg_name
3120: ) THEN
3121: RAISE FND_API.g_exc_unexpected_error;
3122: END IF;
3123:
3124: -- Initialize API return status to sucess
3125: x_return_status := FND_API.g_ret_sts_success;
3121: RAISE FND_API.g_exc_unexpected_error;
3122: END IF;
3123:
3124: -- Initialize API return status to sucess
3125: x_return_status := FND_API.g_ret_sts_success;
3126:
3127: --------------------- Start -----------------------
3128: l_new_item_key := p_claim_id||'_'||TO_CHAR(SYSDATE,'DDMMRRRRHH24MISS');
3129:
3156: );
3157:
3158: ------------------------- finish -------------------------------
3159: -- Check for commit
3160: IF FND_API.to_boolean(p_commit) THEN
3161: COMMIT;
3162: END IF;
3163:
3164: FND_MSG_PUB.count_and_get(
3161: COMMIT;
3162: END IF;
3163:
3164: FND_MSG_PUB.count_and_get(
3165: p_encoded => FND_API.g_false,
3166: p_count => x_msg_count,
3167: p_data => x_msg_data
3168: );
3169:
3171: OZF_Utility_PVT.debug_message(l_full_name ||': end');
3172: END IF;
3173:
3174: EXCEPTION
3175: WHEN FND_API.g_exc_error THEN
3176: ROLLBACK TO Raise_Business_Event;
3177: x_return_status := FND_API.g_ret_sts_error;
3178: FND_MSG_PUB.count_and_get (
3179: p_encoded => FND_API.g_false,
3173:
3174: EXCEPTION
3175: WHEN FND_API.g_exc_error THEN
3176: ROLLBACK TO Raise_Business_Event;
3177: x_return_status := FND_API.g_ret_sts_error;
3178: FND_MSG_PUB.count_and_get (
3179: p_encoded => FND_API.g_false,
3180: p_count => x_msg_count,
3181: p_data => x_msg_data
3175: WHEN FND_API.g_exc_error THEN
3176: ROLLBACK TO Raise_Business_Event;
3177: x_return_status := FND_API.g_ret_sts_error;
3178: FND_MSG_PUB.count_and_get (
3179: p_encoded => FND_API.g_false,
3180: p_count => x_msg_count,
3181: p_data => x_msg_data
3182: );
3183: WHEN FND_API.g_exc_unexpected_error THEN
3179: p_encoded => FND_API.g_false,
3180: p_count => x_msg_count,
3181: p_data => x_msg_data
3182: );
3183: WHEN FND_API.g_exc_unexpected_error THEN
3184: ROLLBACK TO Raise_Business_Event;
3185: x_return_status := FND_API.g_ret_sts_unexp_error ;
3186: FND_MSG_PUB.count_and_get (
3187: p_encoded => FND_API.g_false,
3181: p_data => x_msg_data
3182: );
3183: WHEN FND_API.g_exc_unexpected_error THEN
3184: ROLLBACK TO Raise_Business_Event;
3185: x_return_status := FND_API.g_ret_sts_unexp_error ;
3186: FND_MSG_PUB.count_and_get (
3187: p_encoded => FND_API.g_false,
3188: p_count => x_msg_count,
3189: p_data => x_msg_data
3183: WHEN FND_API.g_exc_unexpected_error THEN
3184: ROLLBACK TO Raise_Business_Event;
3185: x_return_status := FND_API.g_ret_sts_unexp_error ;
3186: FND_MSG_PUB.count_and_get (
3187: p_encoded => FND_API.g_false,
3188: p_count => x_msg_count,
3189: p_data => x_msg_data
3190: );
3191: WHEN OTHERS THEN
3189: p_data => x_msg_data
3190: );
3191: WHEN OTHERS THEN
3192: ROLLBACK TO Raise_Business_Event;
3193: x_return_status := FND_API.g_ret_sts_unexp_error ;
3194: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3195: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
3196: END IF;
3197: FND_MSG_PUB.count_and_get (
3194: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3195: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
3196: END IF;
3197: FND_MSG_PUB.count_and_get (
3198: p_encoded => FND_API.g_false,
3199: p_count => x_msg_count,
3200: p_data => x_msg_data
3201: );
3202: