[Home] [Help]
106: -- NOTES
107: ---------------------------------------------------------------------
108: PROCEDURE Create_Line_Util_Tbl(
109: p_api_version IN NUMBER
110: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
111: ,p_commit IN VARCHAR2 := FND_API.g_false
112: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
113:
114: ,x_return_status OUT NOCOPY VARCHAR2
107: ---------------------------------------------------------------------
108: PROCEDURE Create_Line_Util_Tbl(
109: p_api_version IN NUMBER
110: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
111: ,p_commit IN VARCHAR2 := FND_API.g_false
112: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
113:
114: ,x_return_status OUT NOCOPY VARCHAR2
115: ,x_msg_data OUT NOCOPY VARCHAR2
108: PROCEDURE Create_Line_Util_Tbl(
109: p_api_version IN NUMBER
110: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
111: ,p_commit IN VARCHAR2 := FND_API.g_false
112: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
113:
114: ,x_return_status OUT NOCOPY VARCHAR2
115: ,x_msg_data OUT NOCOPY VARCHAR2
116: ,x_msg_count OUT NOCOPY NUMBER
137: -- 2. If claim_line_util_id is passed in, the uniqueness will be checked.
138: -- Raise exception in case of duplicates.
139: -- 3. If claim_line_util_id is not passed in, generate a unique one from
140: -- the sequence.
141: -- 4. Please don't pass in any FND_API.g_miss_char/num/date for claim_line_util record.
142: ---------------------------------------------------------------------
143:
144: PROCEDURE Create_Line_Util(
145: p_api_version IN NUMBER
142: ---------------------------------------------------------------------
143:
144: PROCEDURE Create_Line_Util(
145: p_api_version IN NUMBER
146: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
147: ,p_commit IN VARCHAR2 := FND_API.g_false
148: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
149:
150: ,x_return_status OUT NOCOPY VARCHAR2
143:
144: PROCEDURE Create_Line_Util(
145: p_api_version IN NUMBER
146: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
147: ,p_commit IN VARCHAR2 := FND_API.g_false
148: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
149:
150: ,x_return_status OUT NOCOPY VARCHAR2
151: ,x_msg_count OUT NOCOPY NUMBER
144: PROCEDURE Create_Line_Util(
145: p_api_version IN NUMBER
146: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
147: ,p_commit IN VARCHAR2 := FND_API.g_false
148: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
149:
150: ,x_return_status OUT NOCOPY VARCHAR2
151: ,x_msg_count OUT NOCOPY NUMBER
152: ,x_msg_data OUT NOCOPY VARCHAR2
175: -- 1. Raise exception if the object_version_number doesn't match.
176: --------------------------------------------------------------------
177: PROCEDURE Delete_Line_Util(
178: p_api_version IN NUMBER
179: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
180: ,p_commit IN VARCHAR2 := FND_API.g_false
181:
182: ,x_return_status OUT NOCOPY VARCHAR2
183: ,x_msg_count OUT NOCOPY NUMBER
176: --------------------------------------------------------------------
177: PROCEDURE Delete_Line_Util(
178: p_api_version IN NUMBER
179: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
180: ,p_commit IN VARCHAR2 := FND_API.g_false
181:
182: ,x_return_status OUT NOCOPY VARCHAR2
183: ,x_msg_count OUT NOCOPY NUMBER
184: ,x_msg_data OUT NOCOPY VARCHAR2
200: -- p_line_util_rec: the record with new items.
201: --
202: -- NOTES
203: -- 1. Raise exception if the object_version_number doesn't match.
204: -- 2. If an attribute is passed in as FND_API.g_miss_char/num/date,
205: -- that column won't be updated.
206: ----------------------------------------------------------------------
207: PROCEDURE Update_Line_Util(
208: p_api_version IN NUMBER
205: -- that column won't be updated.
206: ----------------------------------------------------------------------
207: PROCEDURE Update_Line_Util(
208: p_api_version IN NUMBER
209: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
210: ,p_commit IN VARCHAR2 := FND_API.g_false
211: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
212:
213: ,x_return_status OUT NOCOPY VARCHAR2
206: ----------------------------------------------------------------------
207: PROCEDURE Update_Line_Util(
208: p_api_version IN NUMBER
209: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
210: ,p_commit IN VARCHAR2 := FND_API.g_false
211: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
212:
213: ,x_return_status OUT NOCOPY VARCHAR2
214: ,x_msg_count OUT NOCOPY NUMBER
207: PROCEDURE Update_Line_Util(
208: p_api_version IN NUMBER
209: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
210: ,p_commit IN VARCHAR2 := FND_API.g_false
211: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
212:
213: ,x_return_status OUT NOCOPY VARCHAR2
214: ,x_msg_count OUT NOCOPY NUMBER
215: ,x_msg_data OUT NOCOPY VARCHAR2
308: IF OZF_DEBUG_HIGH_ON THEN
309: OZF_Utility_PVT.debug_message(l_full_name||': start');
310: END IF;
311:
312: x_return_status := FND_API.g_ret_sts_success;
313:
314: OPEN csr_fu_amt_rem(l_line_util_rec.utilization_id);
315: FETCH csr_fu_amt_rem INTO l_fu_fund_currency
316: , l_fu_req_currency
385: , x_return_status => l_return_status
386: , x_to_amount => l_fu_acctd_amt_rem
387: , x_rate => l_rate
388: );
389: IF l_return_status = FND_API.g_ret_sts_error THEN
390: RAISE FND_API.g_exc_error;
391: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
392: RAISE FND_API.g_exc_unexpected_error;
393: END IF;
386: , x_to_amount => l_fu_acctd_amt_rem
387: , x_rate => l_rate
388: );
389: IF l_return_status = FND_API.g_ret_sts_error THEN
390: RAISE FND_API.g_exc_error;
391: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
392: RAISE FND_API.g_exc_unexpected_error;
393: END IF;
394: IF l_fu_acctd_amt_rem IS NOT NULL THEN
387: , x_rate => l_rate
388: );
389: IF l_return_status = FND_API.g_ret_sts_error THEN
390: RAISE FND_API.g_exc_error;
391: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
392: RAISE FND_API.g_exc_unexpected_error;
393: END IF;
394: IF l_fu_acctd_amt_rem IS NOT NULL THEN
395: l_fu_acctd_amt_rem := OZF_UTILITY_PVT.CurrRound(l_fu_acctd_amt_rem, l_currency_rec.functional_currency_code);
388: );
389: IF l_return_status = FND_API.g_ret_sts_error THEN
390: RAISE FND_API.g_exc_error;
391: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
392: RAISE FND_API.g_exc_unexpected_error;
393: END IF;
394: IF l_fu_acctd_amt_rem IS NOT NULL THEN
395: l_fu_acctd_amt_rem := OZF_UTILITY_PVT.CurrRound(l_fu_acctd_amt_rem, l_currency_rec.functional_currency_code);
396: END IF;
410: , x_return_status => l_return_status
411: , x_to_amount => l_fu_plan_amt_rem
412: , x_rate => l_rate
413: );
414: IF l_return_status = FND_API.g_ret_sts_error THEN
415: RAISE FND_API.g_exc_error;
416: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
417: RAISE FND_API.g_exc_unexpected_error;
418: END IF;
411: , x_to_amount => l_fu_plan_amt_rem
412: , x_rate => l_rate
413: );
414: IF l_return_status = FND_API.g_ret_sts_error THEN
415: RAISE FND_API.g_exc_error;
416: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
417: RAISE FND_API.g_exc_unexpected_error;
418: END IF;
419: IF l_fu_plan_amt_rem IS NOT NULL THEN
412: , x_rate => l_rate
413: );
414: IF l_return_status = FND_API.g_ret_sts_error THEN
415: RAISE FND_API.g_exc_error;
416: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
417: RAISE FND_API.g_exc_unexpected_error;
418: END IF;
419: IF l_fu_plan_amt_rem IS NOT NULL THEN
420: l_fu_plan_amt_rem := OZF_UTILITY_PVT.CurrRound(l_fu_plan_amt_rem, l_currency_rec.transaction_currency_code);
413: );
414: IF l_return_status = FND_API.g_ret_sts_error THEN
415: RAISE FND_API.g_exc_error;
416: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
417: RAISE FND_API.g_exc_unexpected_error;
418: END IF;
419: IF l_fu_plan_amt_rem IS NOT NULL THEN
420: l_fu_plan_amt_rem := OZF_UTILITY_PVT.CurrRound(l_fu_plan_amt_rem, l_currency_rec.transaction_currency_code);
421: END IF;
442: , x_return_status => l_return_status
443: , x_to_amount => l_fu_amt_rem
444: , x_rate => l_rate
445: );
446: IF l_return_status = FND_API.g_ret_sts_error THEN
447: RAISE FND_API.g_exc_error;
448: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
449: RAISE FND_API.g_exc_unexpected_error;
450: END IF;
443: , x_to_amount => l_fu_amt_rem
444: , x_rate => l_rate
445: );
446: IF l_return_status = FND_API.g_ret_sts_error THEN
447: RAISE FND_API.g_exc_error;
448: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
449: RAISE FND_API.g_exc_unexpected_error;
450: END IF;
451: IF l_fu_amt_rem IS NOT NULL THEN
444: , x_rate => l_rate
445: );
446: IF l_return_status = FND_API.g_ret_sts_error THEN
447: RAISE FND_API.g_exc_error;
448: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
449: RAISE FND_API.g_exc_unexpected_error;
450: END IF;
451: IF l_fu_amt_rem IS NOT NULL THEN
452: l_fu_amt_rem := OZF_UTILITY_PVT.CurrRound(l_fu_amt_rem, l_fu_fund_currency);
445: );
446: IF l_return_status = FND_API.g_ret_sts_error THEN
447: RAISE FND_API.g_exc_error;
448: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
449: RAISE FND_API.g_exc_unexpected_error;
450: END IF;
451: IF l_fu_amt_rem IS NOT NULL THEN
452: l_fu_amt_rem := OZF_UTILITY_PVT.CurrRound(l_fu_amt_rem, l_fu_fund_currency);
453: END IF;
473: , x_return_status => l_return_status
474: , x_to_amount => l_fu_univ_amt_rem
475: , x_rate => l_rate
476: );
477: IF l_return_status = FND_API.g_ret_sts_error THEN
478: RAISE FND_API.g_exc_error;
479: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
480: RAISE FND_API.g_exc_unexpected_error;
481: END IF;
474: , x_to_amount => l_fu_univ_amt_rem
475: , x_rate => l_rate
476: );
477: IF l_return_status = FND_API.g_ret_sts_error THEN
478: RAISE FND_API.g_exc_error;
479: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
480: RAISE FND_API.g_exc_unexpected_error;
481: END IF;
482: IF l_fu_univ_amt_rem IS NOT NULL THEN
475: , x_rate => l_rate
476: );
477: IF l_return_status = FND_API.g_ret_sts_error THEN
478: RAISE FND_API.g_exc_error;
479: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
480: RAISE FND_API.g_exc_unexpected_error;
481: END IF;
482: IF l_fu_univ_amt_rem IS NOT NULL THEN
483: l_fu_univ_amt_rem := OZF_UTILITY_PVT.CurrRound(l_fu_univ_amt_rem, l_currency_rec.universal_currency_code);
476: );
477: IF l_return_status = FND_API.g_ret_sts_error THEN
478: RAISE FND_API.g_exc_error;
479: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
480: RAISE FND_API.g_exc_unexpected_error;
481: END IF;
482: IF l_fu_univ_amt_rem IS NOT NULL THEN
483: l_fu_univ_amt_rem := OZF_UTILITY_PVT.CurrRound(l_fu_univ_amt_rem, l_currency_rec.universal_currency_code);
484: END IF;
506: , x_return_status => l_return_status
507: , x_to_amount => l_fu_req_amt_rem
508: , x_rate => l_rate
509: );
510: IF l_return_status = FND_API.g_ret_sts_error THEN
511: RAISE FND_API.g_exc_error;
512: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
513: RAISE FND_API.g_exc_unexpected_error;
514: END IF;
507: , x_to_amount => l_fu_req_amt_rem
508: , x_rate => l_rate
509: );
510: IF l_return_status = FND_API.g_ret_sts_error THEN
511: RAISE FND_API.g_exc_error;
512: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
513: RAISE FND_API.g_exc_unexpected_error;
514: END IF;
515: IF l_fu_req_amt_rem IS NOT NULL THEN
508: , x_rate => l_rate
509: );
510: IF l_return_status = FND_API.g_ret_sts_error THEN
511: RAISE FND_API.g_exc_error;
512: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
513: RAISE FND_API.g_exc_unexpected_error;
514: END IF;
515: IF l_fu_req_amt_rem IS NOT NULL THEN
516: l_fu_req_amt_rem := OZF_UTILITY_PVT.CurrRound(l_fu_req_amt_rem, l_fu_req_currency);
509: );
510: IF l_return_status = FND_API.g_ret_sts_error THEN
511: RAISE FND_API.g_exc_error;
512: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
513: RAISE FND_API.g_exc_unexpected_error;
514: END IF;
515: IF l_fu_req_amt_rem IS NOT NULL THEN
516: l_fu_req_amt_rem := OZF_UTILITY_PVT.CurrRound(l_fu_req_amt_rem, l_fu_req_currency);
517: END IF;
585:
586:
587:
588: FND_MSG_PUB.count_and_get(
589: p_encoded => FND_API.g_false,
590: p_count => x_msg_count,
591: p_data => x_msg_data
592: );
593:
595: OZF_Utility_PVT.debug_message(l_full_name ||': end');
596: END IF;
597:
598: EXCEPTION
599: WHEN FND_API.g_exc_error THEN
600: ROLLBACK TO Update_Fund_Utils;
601: x_return_status := FND_API.g_ret_sts_error;
602: FND_MSG_PUB.count_and_get (
603: p_encoded => FND_API.g_false
597:
598: EXCEPTION
599: WHEN FND_API.g_exc_error THEN
600: ROLLBACK TO Update_Fund_Utils;
601: x_return_status := FND_API.g_ret_sts_error;
602: FND_MSG_PUB.count_and_get (
603: p_encoded => FND_API.g_false
604: ,p_count => x_msg_count
605: ,p_data => x_msg_data
599: WHEN FND_API.g_exc_error THEN
600: ROLLBACK TO Update_Fund_Utils;
601: x_return_status := FND_API.g_ret_sts_error;
602: FND_MSG_PUB.count_and_get (
603: p_encoded => FND_API.g_false
604: ,p_count => x_msg_count
605: ,p_data => x_msg_data
606: );
607:
604: ,p_count => x_msg_count
605: ,p_data => x_msg_data
606: );
607:
608: WHEN FND_API.g_exc_unexpected_error THEN
609: ROLLBACK TO Update_Fund_Utils;
610: x_return_status := FND_API.g_ret_sts_unexp_error ;
611: FND_MSG_PUB.count_and_get (
612: p_encoded => FND_API.g_false
606: );
607:
608: WHEN FND_API.g_exc_unexpected_error THEN
609: ROLLBACK TO Update_Fund_Utils;
610: x_return_status := FND_API.g_ret_sts_unexp_error ;
611: FND_MSG_PUB.count_and_get (
612: p_encoded => FND_API.g_false
613: ,p_count => x_msg_count
614: ,p_data => x_msg_data
608: WHEN FND_API.g_exc_unexpected_error THEN
609: ROLLBACK TO Update_Fund_Utils;
610: x_return_status := FND_API.g_ret_sts_unexp_error ;
611: FND_MSG_PUB.count_and_get (
612: p_encoded => FND_API.g_false
613: ,p_count => x_msg_count
614: ,p_data => x_msg_data
615: );
616:
615: );
616:
617: WHEN OTHERS THEN
618: ROLLBACK TO Update_Fund_Utils;
619: x_return_status := FND_API.g_ret_sts_unexp_error ;
620: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
621: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
622: END IF;
623: FND_MSG_PUB.count_and_get(
620: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
621: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
622: END IF;
623: FND_MSG_PUB.count_and_get(
624: p_encoded => FND_API.g_false
625: ,p_count => x_msg_count
626: ,p_data => x_msg_data
627: );
628:
1219: l_scan_data_flag VARCHAR2(1) := 'N';
1220: l_offer_flag VARCHAR2(1) := 'Y';
1221: l_price_list_flag VARCHAR2(1) := 'Y';
1222: l_resource_id NUMBER;
1223: l_sales_rep VARCHAR2(1) := FND_API.g_false;
1224: l_is_admin BOOLEAN := FALSE;
1225: l_orgId NUMBER;
1226: l_claim_line_id NUMBER;
1227: l_currency_rec currency_rec_type := p_currency_rec;
1270: END IF;
1271: IF l_offer_flag = 'Y' THEN
1272: -- restrict offer access if user is sales rep
1273: IF l_funds_util_flt.reference_type = 'LEAD_REFERRAL' THEN
1274: l_sales_rep := FND_API.g_false;
1275: ELSE
1276: l_resource_id := ozf_utility_pvt.get_resource_id(fnd_global.user_id);
1277: l_sales_rep := ozf_utility_pvt.has_sales_rep_role(l_resource_id);
1278: END IF;
1332: FND_DSQL.add_bind(l_funds_util_flt.offer_payment_method);
1333: END IF;
1334: END IF;
1335:
1336: IF (l_sales_rep = FND_API.g_true AND NOT l_is_admin ) THEN
1337: FND_DSQL.add_text(' AND (o.confidential_flag =''N'' OR ');
1338: FND_DSQL.add_text(' o.confidential_flag IS NULL OR ');
1339: FND_DSQL.add_text(' ( NVL(o.budget_offer_yn, ''N'') = ''N'' AND ');
1340: FND_DSQL.add_text(' EXISTS ( SELECT 1 FROM ams_act_access_denorm act ');
1427: -- 25-JUN-2002 mchang Create.
1428: ---------------------------------------------------------------------
1429: PROCEDURE Get_Utiz_Sql_Stmt(
1430: p_api_version IN NUMBER
1431: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
1432: ,p_commit IN VARCHAR2 := FND_API.g_false
1433: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
1434:
1435: ,x_return_status OUT NOCOPY VARCHAR2
1428: ---------------------------------------------------------------------
1429: PROCEDURE Get_Utiz_Sql_Stmt(
1430: p_api_version IN NUMBER
1431: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
1432: ,p_commit IN VARCHAR2 := FND_API.g_false
1433: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
1434:
1435: ,x_return_status OUT NOCOPY VARCHAR2
1436: ,x_msg_count OUT NOCOPY NUMBER
1429: PROCEDURE Get_Utiz_Sql_Stmt(
1430: p_api_version IN NUMBER
1431: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
1432: ,p_commit IN VARCHAR2 := FND_API.g_false
1433: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
1434:
1435: ,x_return_status OUT NOCOPY VARCHAR2
1436: ,x_msg_count OUT NOCOPY NUMBER
1437: ,x_msg_data OUT NOCOPY VARCHAR2
1478: IF OZF_DEBUG_HIGH_ON THEN
1479: OZF_Utility_PVT.debug_message(l_full_name||': start');
1480: END IF;
1481:
1482: IF FND_API.to_boolean(p_init_msg_list) THEN
1483: FND_MSG_PUB.initialize;
1484: END IF;
1485:
1486: IF NOT FND_API.compatible_api_call(
1482: IF FND_API.to_boolean(p_init_msg_list) THEN
1483: FND_MSG_PUB.initialize;
1484: END IF;
1485:
1486: IF NOT FND_API.compatible_api_call(
1487: l_api_version,
1488: p_api_version,
1489: l_api_name,
1490: g_pkg_name
1488: p_api_version,
1489: l_api_name,
1490: g_pkg_name
1491: ) THEN
1492: RAISE FND_API.g_exc_unexpected_error;
1493: END IF;
1494: x_return_status := FND_API.g_ret_sts_success;
1495: -- Added For Multi Currency - kpatro
1496: OPEN csr_function_currency;
1490: g_pkg_name
1491: ) THEN
1492: RAISE FND_API.g_exc_unexpected_error;
1493: END IF;
1494: x_return_status := FND_API.g_ret_sts_success;
1495: -- Added For Multi Currency - kpatro
1496: OPEN csr_function_currency;
1497: FETCH csr_function_currency INTO l_currency_rec.functional_currency_code;
1498: CLOSE csr_function_currency;
1656:
1657:
1658: EXCEPTION
1659: WHEN OTHERS THEN
1660: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1661: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1662: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_ATPY_UTIZ_STMT_ERR');
1663: FND_MSG_PUB.add;
1664: END IF;
1765: l_cust_trade_profile g_cust_trade_profile_csr%rowtype;
1766:
1767: BEGIN
1768: -- Initialize API return status to sucess
1769: x_return_status := FND_API.G_RET_STS_SUCCESS;
1770:
1771: IF OZF_DEBUG_HIGH_ON THEN
1772: OZF_Utility_PVT.debug_message(l_full_name||': start');
1773: END IF;
1780: );
1781:
1782: IF l_cust_trade_profile.trade_profile_id IS NOT NULL THEN
1783: x_payment_method := l_cust_trade_profile.payment_method;
1784: IF l_cust_trade_profile.payment_method <> FND_API.G_MISS_CHAR THEN
1785:
1786: IF (l_cust_trade_profile.payment_method IN ('CHECK', 'EFT','WIRE','AP_DEBIT','AP_DEFAULT')) THEN
1787: x_vendor_id := l_cust_trade_profile.vendor_id;
1788: x_vendor_site_id := l_cust_trade_profile.vendor_site_id;
1792: END IF;
1793:
1794: EXCEPTION
1795: WHEN OTHERS THEN
1796: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1797: END Get_Payment_Detail;
1798:
1799: -- Start - Fix for ER#9453443
1800:
1838: OZF_Utility_PVT.debug_message(l_full_name||': start');
1839: END IF;
1840:
1841: -- Initialize API return status to sucess
1842: x_return_status := FND_API.G_RET_STS_SUCCESS;
1843:
1844: IF p_cust_trade_profile.claim_currency is null OR
1845: p_cust_trade_profile.claim_currency = FND_API.G_MISS_CHAR THEN -- [BUG 4217781 FIXING]
1846: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1841: -- Initialize API return status to sucess
1842: x_return_status := FND_API.G_RET_STS_SUCCESS;
1843:
1844: IF p_cust_trade_profile.claim_currency is null OR
1845: p_cust_trade_profile.claim_currency = FND_API.G_MISS_CHAR THEN -- [BUG 4217781 FIXING]
1846: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1847: OPEN csr_cust_name(l_cust_account_id);
1848: FETCH csr_cust_name INTO l_cust_name_num;
1849: CLOSE csr_cust_name;
1851: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_ATPY_CURRENCY_MISS');
1852: FND_MESSAGE.Set_Token('ID',l_cust_name_num);
1853: FND_MSG_PUB.ADD;
1854: END IF;
1855: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1856: END IF;
1857:
1858: IF p_cust_trade_profile.payment_method is null OR
1859: p_cust_trade_profile.payment_method = FND_API.G_MISS_CHAR THEN -- [BUG 4217781 FIXING]
1855: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1856: END IF;
1857:
1858: IF p_cust_trade_profile.payment_method is null OR
1859: p_cust_trade_profile.payment_method = FND_API.G_MISS_CHAR THEN -- [BUG 4217781 FIXING]
1860: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1861: OPEN csr_cust_name(l_cust_account_id);
1862: FETCH csr_cust_name INTO l_cust_name_num;
1863: CLOSE csr_cust_name;
1865: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_ATPY_PYMTHD_MISS');
1866: FND_MESSAGE.Set_Token('ID',l_cust_name_num);
1867: FND_MSG_PUB.ADD;
1868: END IF;
1869: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1870: END IF;
1871:
1872: IF p_cust_trade_profile.payment_method = 'CHECK' THEN
1873: IF p_cust_trade_profile.vendor_id is NULL OR
1880: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_ATPY_VENDOR_MISS');
1881: FND_MESSAGE.Set_Token('ID',l_cust_name_num);
1882: FND_MSG_PUB.ADD;
1883: END IF;
1884: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1885: ELSE
1886: --Added for Bug 16301629
1887: OPEN csr_active_vendor(p_cust_trade_profile.vendor_id, p_cust_trade_profile.vendor_site_id);
1888: FETCH csr_active_vendor INTO l_active_vendor_num;
1899: END IF;
1900: --if vendor or vendor site is inactive, don't default from Customer Trade Profile. Setting it null.
1901: p_cust_trade_profile.vendor_id := null;
1902: p_cust_trade_profile.vendor_site_id := null;
1903: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1904: END IF;
1905: --end bug 16301629
1906: END IF;
1907: ELSIF p_cust_trade_profile.payment_method = 'CREDIT_MEMO' THEN
1914: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_ATPY_SITEID_MISS');
1915: FND_MESSAGE.Set_Token('ID',l_cust_name_num);
1916: FND_MSG_PUB.ADD;
1917: END IF;
1918: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1919: END IF;
1920: END IF;
1921:
1922: IF OZF_DEBUG_HIGH_ON THEN
1923: OZF_Utility_PVT.debug_message(l_full_name||': end');
1924: END IF;
1925: EXCEPTION
1926: WHEN OTHERS THEN
1927: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1928: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1929: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_ATPY_CUSTOMER_ERR');
1930: FND_MSG_PUB.add;
1931: END IF;
2069: IF OZF_DEBUG_HIGH_ON THEN
2070: OZF_Utility_PVT.debug_message(l_full_name||': start');
2071: END IF;
2072:
2073: x_return_status := FND_API.g_ret_sts_success;
2074:
2075: -- This package is called only for non scan data offer adjustments
2076:
2077:
2153: p_act_budgets_rec => l_act_budgets_rec,
2154: p_act_util_rec =>l_act_util_rec,
2155: x_act_budget_id => l_act_budget_id
2156: );
2157: IF l_return_status = fnd_api.g_ret_sts_error THEN
2158: RAISE fnd_api.g_exc_error;
2159: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2160: RAISE fnd_api.g_exc_unexpected_error;
2161: END IF;
2154: p_act_util_rec =>l_act_util_rec,
2155: x_act_budget_id => l_act_budget_id
2156: );
2157: IF l_return_status = fnd_api.g_ret_sts_error THEN
2158: RAISE fnd_api.g_exc_error;
2159: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2160: RAISE fnd_api.g_exc_unexpected_error;
2161: END IF;
2162:
2155: x_act_budget_id => l_act_budget_id
2156: );
2157: IF l_return_status = fnd_api.g_ret_sts_error THEN
2158: RAISE fnd_api.g_exc_error;
2159: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2160: RAISE fnd_api.g_exc_unexpected_error;
2161: END IF;
2162:
2163:
2156: );
2157: IF l_return_status = fnd_api.g_ret_sts_error THEN
2158: RAISE fnd_api.g_exc_error;
2159: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2160: RAISE fnd_api.g_exc_unexpected_error;
2161: END IF;
2162:
2163:
2164: -- Query the adjustment created and return the util id
2177:
2178:
2179:
2180: EXCEPTION
2181: WHEN FND_API.g_exc_error THEN
2182: x_return_status := FND_API.g_ret_sts_error;
2183:
2184: WHEN FND_API.g_exc_unexpected_error THEN
2185: x_return_status := FND_API.g_ret_sts_unexp_error ;
2178:
2179:
2180: EXCEPTION
2181: WHEN FND_API.g_exc_error THEN
2182: x_return_status := FND_API.g_ret_sts_error;
2183:
2184: WHEN FND_API.g_exc_unexpected_error THEN
2185: x_return_status := FND_API.g_ret_sts_unexp_error ;
2186:
2180: EXCEPTION
2181: WHEN FND_API.g_exc_error THEN
2182: x_return_status := FND_API.g_ret_sts_error;
2183:
2184: WHEN FND_API.g_exc_unexpected_error THEN
2185: x_return_status := FND_API.g_ret_sts_unexp_error ;
2186:
2187: WHEN OTHERS THEN
2188: x_return_status := FND_API.g_ret_sts_unexp_error ;
2181: WHEN FND_API.g_exc_error THEN
2182: x_return_status := FND_API.g_ret_sts_error;
2183:
2184: WHEN FND_API.g_exc_unexpected_error THEN
2185: x_return_status := FND_API.g_ret_sts_unexp_error ;
2186:
2187: WHEN OTHERS THEN
2188: x_return_status := FND_API.g_ret_sts_unexp_error ;
2189: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2184: WHEN FND_API.g_exc_unexpected_error THEN
2185: x_return_status := FND_API.g_ret_sts_unexp_error ;
2186:
2187: WHEN OTHERS THEN
2188: x_return_status := FND_API.g_ret_sts_unexp_error ;
2189: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2190: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2191: END IF;
2192:
2202: -- 01/09/2009 kpatro Modified for Bug 7658894
2203: ---------------------------------------------------------------------
2204: PROCEDURE Create_Line_Util_Tbl(
2205: p_api_version IN NUMBER
2206: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
2207: ,p_commit IN VARCHAR2 := FND_API.g_false
2208: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
2209:
2210: ,x_return_status OUT NOCOPY VARCHAR2
2203: ---------------------------------------------------------------------
2204: PROCEDURE Create_Line_Util_Tbl(
2205: p_api_version IN NUMBER
2206: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
2207: ,p_commit IN VARCHAR2 := FND_API.g_false
2208: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
2209:
2210: ,x_return_status OUT NOCOPY VARCHAR2
2211: ,x_msg_data OUT NOCOPY VARCHAR2
2204: PROCEDURE Create_Line_Util_Tbl(
2205: p_api_version IN NUMBER
2206: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
2207: ,p_commit IN VARCHAR2 := FND_API.g_false
2208: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
2209:
2210: ,x_return_status OUT NOCOPY VARCHAR2
2211: ,x_msg_data OUT NOCOPY VARCHAR2
2212: ,x_msg_count OUT NOCOPY NUMBER
2290: IF OZF_DEBUG_HIGH_ON THEN
2291: OZF_Utility_PVT.debug_message(l_full_name||': start');
2292: END IF;
2293:
2294: IF FND_API.to_boolean(p_init_msg_list) THEN
2295: FND_MSG_PUB.initialize;
2296: END IF;
2297:
2298: IF NOT FND_API.compatible_api_call(
2294: IF FND_API.to_boolean(p_init_msg_list) THEN
2295: FND_MSG_PUB.initialize;
2296: END IF;
2297:
2298: IF NOT FND_API.compatible_api_call(
2299: l_api_version,
2300: p_api_version,
2301: l_api_name,
2302: g_pkg_name
2301: l_api_name,
2302: g_pkg_name
2303: )
2304: THEN
2305: RAISE FND_API.g_exc_unexpected_error;
2306: END IF;
2307:
2308: x_return_status := FND_API.g_ret_sts_success;
2309:
2304: THEN
2305: RAISE FND_API.g_exc_unexpected_error;
2306: END IF;
2307:
2308: x_return_status := FND_API.g_ret_sts_success;
2309:
2310: --Claim Access Check: Abort process, if current user doesnt have access on claim.
2311: IF p_mode = OZF_CLAIM_UTILITY_PVT.g_manu_mode AND p_line_util_tbl.count > 0 THEN
2312: FOR j IN p_line_util_tbl.FIRST..p_line_util_tbl.LAST LOOP
2317: CLOSE csr_claim_id;
2318:
2319: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
2320: P_Api_Version_Number => 1.0
2321: , P_Init_Msg_List => FND_API.G_FALSE
2322: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
2323: , P_Commit => FND_API.G_FALSE
2324: , P_object_id => l_claim_id
2325: , P_object_type => G_CLAIM_OBJECT_TYPE
2318:
2319: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
2320: P_Api_Version_Number => 1.0
2321: , P_Init_Msg_List => FND_API.G_FALSE
2322: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
2323: , P_Commit => FND_API.G_FALSE
2324: , P_object_id => l_claim_id
2325: , P_object_type => G_CLAIM_OBJECT_TYPE
2326: , P_user_id => OZF_UTILITY_PVT.get_resource_id(NVL(FND_GLOBAL.user_id,-1))
2319: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
2320: P_Api_Version_Number => 1.0
2321: , P_Init_Msg_List => FND_API.G_FALSE
2322: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
2323: , P_Commit => FND_API.G_FALSE
2324: , P_object_id => l_claim_id
2325: , P_object_type => G_CLAIM_OBJECT_TYPE
2326: , P_user_id => OZF_UTILITY_PVT.get_resource_id(NVL(FND_GLOBAL.user_id,-1))
2327: , X_Return_Status => l_return_status
2333: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2334: FND_MESSAGE.set_name('OZF','OZF_CLAIM_NO_ACCESS');
2335: FND_MSG_PUB.add;
2336: END IF;
2337: RAISE FND_API.G_EXC_ERROR;
2338: END IF;
2339: EXIT;
2340: END IF;
2341: END LOOP;
2397:
2398:
2399: Create_Line_Util(
2400: p_api_version => 1.0
2401: , p_init_msg_list => FND_API.g_false
2402: , p_commit => FND_API.g_false
2403: , p_validation_level => p_validation_level
2404: , x_return_status => l_return_status
2405: , x_msg_count => x_msg_count
2398:
2399: Create_Line_Util(
2400: p_api_version => 1.0
2401: , p_init_msg_list => FND_API.g_false
2402: , p_commit => FND_API.g_false
2403: , p_validation_level => p_validation_level
2404: , x_return_status => l_return_status
2405: , x_msg_count => x_msg_count
2406: , x_msg_data => x_msg_data
2508:
2509:
2510:
2511:
2512: IF l_return_status = fnd_api.g_ret_sts_error THEN
2513: x_error_index := i;
2514: RAISE FND_API.g_exc_error;
2515: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2516: x_error_index := i;
2510:
2511:
2512: IF l_return_status = fnd_api.g_ret_sts_error THEN
2513: x_error_index := i;
2514: RAISE FND_API.g_exc_error;
2515: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2516: x_error_index := i;
2517: RAISE FND_API.g_exc_unexpected_error;
2518: END IF;
2511:
2512: IF l_return_status = fnd_api.g_ret_sts_error THEN
2513: x_error_index := i;
2514: RAISE FND_API.g_exc_error;
2515: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2516: x_error_index := i;
2517: RAISE FND_API.g_exc_unexpected_error;
2518: END IF;
2519:
2513: x_error_index := i;
2514: RAISE FND_API.g_exc_error;
2515: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2516: x_error_index := i;
2517: RAISE FND_API.g_exc_unexpected_error;
2518: END IF;
2519:
2520: END IF;
2521: END LOOP;
2562: WHERE claim_line_id = l_line_util_rec.claim_line_id;
2563: END IF;
2564:
2565: ------------------------- finish -------------------------------
2566: IF FND_API.to_boolean(p_commit) THEN
2567: COMMIT;
2568: END IF;
2569:
2570: FND_MSG_PUB.count_and_get(
2567: COMMIT;
2568: END IF;
2569:
2570: FND_MSG_PUB.count_and_get(
2571: p_encoded => FND_API.g_false,
2572: p_count => x_msg_count,
2573: p_data => x_msg_data
2574: );
2575:
2577: OZF_Utility_PVT.debug_message(l_full_name ||': end');
2578: END IF;
2579:
2580: EXCEPTION
2581: WHEN FND_API.g_exc_error THEN
2582: ROLLBACK TO Create_Line_Util_Tbl;
2583: x_return_status := FND_API.g_ret_sts_error;
2584: FND_MSG_PUB.count_and_get (
2585: p_encoded => FND_API.g_false
2579:
2580: EXCEPTION
2581: WHEN FND_API.g_exc_error THEN
2582: ROLLBACK TO Create_Line_Util_Tbl;
2583: x_return_status := FND_API.g_ret_sts_error;
2584: FND_MSG_PUB.count_and_get (
2585: p_encoded => FND_API.g_false
2586: ,p_count => x_msg_count
2587: ,p_data => x_msg_data
2581: WHEN FND_API.g_exc_error THEN
2582: ROLLBACK TO Create_Line_Util_Tbl;
2583: x_return_status := FND_API.g_ret_sts_error;
2584: FND_MSG_PUB.count_and_get (
2585: p_encoded => FND_API.g_false
2586: ,p_count => x_msg_count
2587: ,p_data => x_msg_data
2588: );
2589:
2586: ,p_count => x_msg_count
2587: ,p_data => x_msg_data
2588: );
2589:
2590: WHEN FND_API.g_exc_unexpected_error THEN
2591: ROLLBACK TO Create_Line_Util_Tbl;
2592: x_return_status := FND_API.g_ret_sts_unexp_error ;
2593: FND_MSG_PUB.count_and_get (
2594: p_encoded => FND_API.g_false
2588: );
2589:
2590: WHEN FND_API.g_exc_unexpected_error THEN
2591: ROLLBACK TO Create_Line_Util_Tbl;
2592: x_return_status := FND_API.g_ret_sts_unexp_error ;
2593: FND_MSG_PUB.count_and_get (
2594: p_encoded => FND_API.g_false
2595: ,p_count => x_msg_count
2596: ,p_data => x_msg_data
2590: WHEN FND_API.g_exc_unexpected_error THEN
2591: ROLLBACK TO Create_Line_Util_Tbl;
2592: x_return_status := FND_API.g_ret_sts_unexp_error ;
2593: FND_MSG_PUB.count_and_get (
2594: p_encoded => FND_API.g_false
2595: ,p_count => x_msg_count
2596: ,p_data => x_msg_data
2597: );
2598:
2597: );
2598:
2599: WHEN OTHERS THEN
2600: ROLLBACK TO Create_Line_Util_Tbl;
2601: x_return_status := FND_API.g_ret_sts_unexp_error ;
2602: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2603: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2604: END IF;
2605: FND_MSG_PUB.count_and_get(
2602: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2603: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2604: END IF;
2605: FND_MSG_PUB.count_and_get(
2606: p_encoded => FND_API.g_false
2607: ,p_count => x_msg_count
2608: ,p_data => x_msg_data
2609: );
2610:
2620: -- 05/08/2006 azahmed Modified for FXGL ER
2621: ---------------------------------------------------------------------
2622: PROCEDURE Create_Line_Util(
2623: p_api_version IN NUMBER
2624: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
2625: ,p_commit IN VARCHAR2 := FND_API.g_false
2626: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
2627:
2628: ,x_return_status OUT NOCOPY VARCHAR2
2621: ---------------------------------------------------------------------
2622: PROCEDURE Create_Line_Util(
2623: p_api_version IN NUMBER
2624: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
2625: ,p_commit IN VARCHAR2 := FND_API.g_false
2626: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
2627:
2628: ,x_return_status OUT NOCOPY VARCHAR2
2629: ,x_msg_count OUT NOCOPY NUMBER
2622: PROCEDURE Create_Line_Util(
2623: p_api_version IN NUMBER
2624: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
2625: ,p_commit IN VARCHAR2 := FND_API.g_false
2626: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
2627:
2628: ,x_return_status OUT NOCOPY VARCHAR2
2629: ,x_msg_count OUT NOCOPY NUMBER
2630: ,x_msg_data OUT NOCOPY VARCHAR2
2670: IF OZF_DEBUG_HIGH_ON THEN
2671: OZF_Utility_PVT.debug_message(l_full_name||': start');
2672: END IF;
2673:
2674: IF FND_API.to_boolean(p_init_msg_list) THEN
2675: FND_MSG_PUB.initialize;
2676: END IF;
2677:
2678: IF NOT FND_API.compatible_api_call(
2674: IF FND_API.to_boolean(p_init_msg_list) THEN
2675: FND_MSG_PUB.initialize;
2676: END IF;
2677:
2678: IF NOT FND_API.compatible_api_call(
2679: l_api_version,
2680: p_api_version,
2681: l_api_name,
2682: g_pkg_name
2680: p_api_version,
2681: l_api_name,
2682: g_pkg_name
2683: ) THEN
2684: RAISE FND_API.g_exc_unexpected_error;
2685: END IF;
2686:
2687: x_return_status := FND_API.g_ret_sts_success;
2688:
2683: ) THEN
2684: RAISE FND_API.g_exc_unexpected_error;
2685: END IF;
2686:
2687: x_return_status := FND_API.g_ret_sts_success;
2688:
2689: IF p_line_util_rec.amount IS NOT NULL THEN
2690:
2691: IF l_line_util_rec.utilization_id > -1 THEN
2701: , x_return_status => l_return_status
2702: , x_to_amount => l_line_util_rec.acctd_amount
2703: , x_rate => l_convert_exchange_rate
2704: );
2705: IF l_return_status = FND_API.g_ret_sts_error THEN
2706: RAISE FND_API.g_exc_error;
2707: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2708: RAISE FND_API.g_exc_unexpected_error;
2709: END IF;
2702: , x_to_amount => l_line_util_rec.acctd_amount
2703: , x_rate => l_convert_exchange_rate
2704: );
2705: IF l_return_status = FND_API.g_ret_sts_error THEN
2706: RAISE FND_API.g_exc_error;
2707: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2708: RAISE FND_API.g_exc_unexpected_error;
2709: END IF;
2710: ELSE
2703: , x_rate => l_convert_exchange_rate
2704: );
2705: IF l_return_status = FND_API.g_ret_sts_error THEN
2706: RAISE FND_API.g_exc_error;
2707: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2708: RAISE FND_API.g_exc_unexpected_error;
2709: END IF;
2710: ELSE
2711: l_line_util_rec.acctd_amount := 0;
2704: );
2705: IF l_return_status = FND_API.g_ret_sts_error THEN
2706: RAISE FND_API.g_exc_error;
2707: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2708: RAISE FND_API.g_exc_unexpected_error;
2709: END IF;
2710: ELSE
2711: l_line_util_rec.acctd_amount := 0;
2712: END IF;
2734: , x_msg_data => x_msg_data
2735: , px_upd_line_util_tbl => px_upd_line_util_tbl --ninarasi fix for bug 13530939
2736: );
2737:
2738: IF l_return_status = fnd_api.g_ret_sts_error THEN
2739: RAISE FND_API.g_exc_error;
2740: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2741: RAISE FND_API.g_exc_unexpected_error;
2742: END IF;
2735: , px_upd_line_util_tbl => px_upd_line_util_tbl --ninarasi fix for bug 13530939
2736: );
2737:
2738: IF l_return_status = fnd_api.g_ret_sts_error THEN
2739: RAISE FND_API.g_exc_error;
2740: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2741: RAISE FND_API.g_exc_unexpected_error;
2742: END IF;
2743:
2736: );
2737:
2738: IF l_return_status = fnd_api.g_ret_sts_error THEN
2739: RAISE FND_API.g_exc_error;
2740: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2741: RAISE FND_API.g_exc_unexpected_error;
2742: END IF;
2743:
2744: IF OZF_DEBUG_HIGH_ON THEN
2737:
2738: IF l_return_status = fnd_api.g_ret_sts_error THEN
2739: RAISE FND_API.g_exc_error;
2740: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2741: RAISE FND_API.g_exc_unexpected_error;
2742: END IF;
2743:
2744: IF OZF_DEBUG_HIGH_ON THEN
2745: OZF_Utility_PVT.debug_message('l_line_util_rec.amount - After Update_Fund_Utils() : '||l_line_util_rec.amount);
2778: , x_to_amount => l_line_util_amount
2779: , x_rate => l_convert_exchange_rate
2780: );
2781:
2782: IF l_return_status = FND_API.g_ret_sts_error THEN
2783: RAISE FND_API.g_exc_error;
2784: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2785: RAISE FND_API.g_exc_unexpected_error;
2786: END IF;
2779: , x_rate => l_convert_exchange_rate
2780: );
2781:
2782: IF l_return_status = FND_API.g_ret_sts_error THEN
2783: RAISE FND_API.g_exc_error;
2784: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2785: RAISE FND_API.g_exc_unexpected_error;
2786: END IF;
2787:
2780: );
2781:
2782: IF l_return_status = FND_API.g_ret_sts_error THEN
2783: RAISE FND_API.g_exc_error;
2784: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2785: RAISE FND_API.g_exc_unexpected_error;
2786: END IF;
2787:
2788: IF OZF_DEBUG_HIGH_ON THEN
2781:
2782: IF l_return_status = FND_API.g_ret_sts_error THEN
2783: RAISE FND_API.g_exc_error;
2784: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2785: RAISE FND_API.g_exc_unexpected_error;
2786: END IF;
2787:
2788: IF OZF_DEBUG_HIGH_ON THEN
2789: OZF_Utility_PVT.debug_message('p_from_currency : '||l_currency_rec.association_currency_code);
2889: ------------------------- finish -------------------------------
2890: x_line_util_id := l_line_util_rec.claim_line_util_id;
2891:
2892: -- Check for commit
2893: IF FND_API.to_boolean(p_commit) THEN
2894: COMMIT;
2895: END IF;
2896:
2897: FND_MSG_PUB.count_and_get(
2894: COMMIT;
2895: END IF;
2896:
2897: FND_MSG_PUB.count_and_get(
2898: p_encoded => FND_API.g_false,
2899: p_count => x_msg_count,
2900: p_data => x_msg_data
2901: );
2902:
2904: OZF_Utility_PVT.debug_message(l_full_name ||': end');
2905: END IF;
2906:
2907: EXCEPTION
2908: WHEN FND_API.g_exc_error THEN
2909: ROLLBACK TO Create_Line_Util;
2910: x_return_status := FND_API.g_ret_sts_error;
2911: FND_MSG_PUB.count_and_get (
2912: p_encoded => FND_API.g_false
2906:
2907: EXCEPTION
2908: WHEN FND_API.g_exc_error THEN
2909: ROLLBACK TO Create_Line_Util;
2910: x_return_status := FND_API.g_ret_sts_error;
2911: FND_MSG_PUB.count_and_get (
2912: p_encoded => FND_API.g_false
2913: ,p_count => x_msg_count
2914: ,p_data => x_msg_data
2908: WHEN FND_API.g_exc_error THEN
2909: ROLLBACK TO Create_Line_Util;
2910: x_return_status := FND_API.g_ret_sts_error;
2911: FND_MSG_PUB.count_and_get (
2912: p_encoded => FND_API.g_false
2913: ,p_count => x_msg_count
2914: ,p_data => x_msg_data
2915: );
2916:
2913: ,p_count => x_msg_count
2914: ,p_data => x_msg_data
2915: );
2916:
2917: WHEN FND_API.g_exc_unexpected_error THEN
2918: ROLLBACK TO Create_Line_Util;
2919: x_return_status := FND_API.g_ret_sts_unexp_error ;
2920: FND_MSG_PUB.count_and_get (
2921: p_encoded => FND_API.g_false
2915: );
2916:
2917: WHEN FND_API.g_exc_unexpected_error THEN
2918: ROLLBACK TO Create_Line_Util;
2919: x_return_status := FND_API.g_ret_sts_unexp_error ;
2920: FND_MSG_PUB.count_and_get (
2921: p_encoded => FND_API.g_false
2922: ,p_count => x_msg_count
2923: ,p_data => x_msg_data
2917: WHEN FND_API.g_exc_unexpected_error THEN
2918: ROLLBACK TO Create_Line_Util;
2919: x_return_status := FND_API.g_ret_sts_unexp_error ;
2920: FND_MSG_PUB.count_and_get (
2921: p_encoded => FND_API.g_false
2922: ,p_count => x_msg_count
2923: ,p_data => x_msg_data
2924: );
2925:
2924: );
2925:
2926: WHEN OTHERS THEN
2927: ROLLBACK TO Create_Line_Util;
2928: x_return_status := FND_API.g_ret_sts_unexp_error ;
2929: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2930: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2931: END IF;
2932: FND_MSG_PUB.count_and_get(
2929: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2930: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2931: END IF;
2932: FND_MSG_PUB.count_and_get(
2933: p_encoded => FND_API.g_false
2934: ,p_count => x_msg_count
2935: ,p_data => x_msg_data
2936: );
2937:
2948: -- 7-Aug-06 azahmed Modified for FXGL ER
2949: ---------------------------------------------------------------------
2950: PROCEDURE Update_Line_Util_Tbl(
2951: p_api_version IN NUMBER
2952: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
2953: ,p_commit IN VARCHAR2 := FND_API.g_false
2954: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
2955:
2956: ,x_return_status OUT NOCOPY VARCHAR2
2949: ---------------------------------------------------------------------
2950: PROCEDURE Update_Line_Util_Tbl(
2951: p_api_version IN NUMBER
2952: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
2953: ,p_commit IN VARCHAR2 := FND_API.g_false
2954: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
2955:
2956: ,x_return_status OUT NOCOPY VARCHAR2
2957: ,x_msg_data OUT NOCOPY VARCHAR2
2950: PROCEDURE Update_Line_Util_Tbl(
2951: p_api_version IN NUMBER
2952: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
2953: ,p_commit IN VARCHAR2 := FND_API.g_false
2954: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
2955:
2956: ,x_return_status OUT NOCOPY VARCHAR2
2957: ,x_msg_data OUT NOCOPY VARCHAR2
2958: ,x_msg_count OUT NOCOPY NUMBER
2988: IF OZF_DEBUG_HIGH_ON THEN
2989: OZF_Utility_PVT.debug_message(l_full_name||': start');
2990: END IF;
2991:
2992: IF FND_API.to_boolean(p_init_msg_list) THEN
2993: FND_MSG_PUB.initialize;
2994: END IF;
2995:
2996: IF NOT FND_API.compatible_api_call(
2992: IF FND_API.to_boolean(p_init_msg_list) THEN
2993: FND_MSG_PUB.initialize;
2994: END IF;
2995:
2996: IF NOT FND_API.compatible_api_call(
2997: l_api_version,
2998: p_api_version,
2999: l_api_name,
3000: g_pkg_name
2998: p_api_version,
2999: l_api_name,
3000: g_pkg_name
3001: ) THEN
3002: RAISE FND_API.g_exc_unexpected_error;
3003: END IF;
3004:
3005: x_return_status := FND_API.g_ret_sts_success;
3006:
3001: ) THEN
3002: RAISE FND_API.g_exc_unexpected_error;
3003: END IF;
3004:
3005: x_return_status := FND_API.g_ret_sts_success;
3006:
3007: ---------------------- check claim access ------------------------
3008: IF p_mode = OZF_CLAIM_UTILITY_PVT.g_manu_mode AND p_line_util_tbl.count > 0 THEN
3009: FOR j IN p_line_util_tbl.FIRST..p_line_util_tbl.LAST LOOP
3014: CLOSE csr_claim_id;
3015:
3016: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
3017: P_Api_Version_Number => 1.0
3018: , P_Init_Msg_List => FND_API.G_FALSE
3019: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
3020: , P_Commit => FND_API.G_FALSE
3021: , P_object_id => l_claim_id
3022: , P_object_type => G_CLAIM_OBJECT_TYPE
3015:
3016: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
3017: P_Api_Version_Number => 1.0
3018: , P_Init_Msg_List => FND_API.G_FALSE
3019: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
3020: , P_Commit => FND_API.G_FALSE
3021: , P_object_id => l_claim_id
3022: , P_object_type => G_CLAIM_OBJECT_TYPE
3023: , P_user_id => OZF_UTILITY_PVT.get_resource_id(NVL(FND_GLOBAL.user_id,-1))
3016: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
3017: P_Api_Version_Number => 1.0
3018: , P_Init_Msg_List => FND_API.G_FALSE
3019: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
3020: , P_Commit => FND_API.G_FALSE
3021: , P_object_id => l_claim_id
3022: , P_object_type => G_CLAIM_OBJECT_TYPE
3023: , P_user_id => OZF_UTILITY_PVT.get_resource_id(NVL(FND_GLOBAL.user_id,-1))
3024: , X_Return_Status => l_return_status
3030: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3031: FND_MESSAGE.set_name('OZF','OZF_CLAIM_NO_ACCESS');
3032: FND_MSG_PUB.add;
3033: END IF;
3034: RAISE FND_API.G_EXC_ERROR;
3035: END IF;
3036: EXIT;
3037: END IF;
3038: END LOOP;
3045: LOOP
3046: l_line_util_rec := p_line_util_tbl(i);
3047: IF l_line_util_rec.claim_line_util_id IS NOT NULL THEN
3048: l_line_util_rec.amount := OZF_UTILITY_PVT.CurrRound(l_line_util_rec.amount, l_line_util_rec.currency_code);
3049: l_line_util_rec.update_from_tbl_flag := FND_API.g_true;
3050: Update_Line_Util(
3051: p_api_version => l_api_version
3052: , p_init_msg_list => FND_API.g_false
3053: , p_commit => FND_API.g_false
3048: l_line_util_rec.amount := OZF_UTILITY_PVT.CurrRound(l_line_util_rec.amount, l_line_util_rec.currency_code);
3049: l_line_util_rec.update_from_tbl_flag := FND_API.g_true;
3050: Update_Line_Util(
3051: p_api_version => l_api_version
3052: , p_init_msg_list => FND_API.g_false
3053: , p_commit => FND_API.g_false
3054: , p_validation_level => p_validation_level
3055: , x_return_status => l_return_status
3056: , x_msg_count => x_msg_count
3049: l_line_util_rec.update_from_tbl_flag := FND_API.g_true;
3050: Update_Line_Util(
3051: p_api_version => l_api_version
3052: , p_init_msg_list => FND_API.g_false
3053: , p_commit => FND_API.g_false
3054: , p_validation_level => p_validation_level
3055: , x_return_status => l_return_status
3056: , x_msg_count => x_msg_count
3057: , x_msg_data => x_msg_data
3059: , p_mode => OZF_CLAIM_UTILITY_PVT.g_auto_mode
3060: , x_object_version => l_object_version
3061: , px_upd_line_util_tbl => l_upd_fund_util_tbl
3062: );
3063: IF l_return_status = fnd_api.g_ret_sts_error THEN
3064: x_error_index := i;
3065: RAISE FND_API.g_exc_error;
3066: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3067: x_error_index := i;
3061: , px_upd_line_util_tbl => l_upd_fund_util_tbl
3062: );
3063: IF l_return_status = fnd_api.g_ret_sts_error THEN
3064: x_error_index := i;
3065: RAISE FND_API.g_exc_error;
3066: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3067: x_error_index := i;
3068: RAISE FND_API.g_exc_unexpected_error;
3069: END IF;
3062: );
3063: IF l_return_status = fnd_api.g_ret_sts_error THEN
3064: x_error_index := i;
3065: RAISE FND_API.g_exc_error;
3066: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3067: x_error_index := i;
3068: RAISE FND_API.g_exc_unexpected_error;
3069: END IF;
3070: IF l_upd_fund_util_tbl.COUNT = G_BULK_LIMIT OR i = p_line_util_tbl.LAST THEN --ninarasi fix for bug 13530939
3064: x_error_index := i;
3065: RAISE FND_API.g_exc_error;
3066: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3067: x_error_index := i;
3068: RAISE FND_API.g_exc_unexpected_error;
3069: END IF;
3070: IF l_upd_fund_util_tbl.COUNT = G_BULK_LIMIT OR i = p_line_util_tbl.LAST THEN --ninarasi fix for bug 13530939
3071: FORALL i IN NVL(l_upd_fund_util_tbl.FIRST,1) .. NVL(l_upd_fund_util_tbl.LAST,0)
3072: UPDATE ozf_funds_utilized_all_b
3085: END LOOP;
3086: END IF;
3087:
3088: ------------------------- finish -------------------------------
3089: IF FND_API.to_boolean(p_commit) THEN
3090: COMMIT;
3091: END IF;
3092:
3093: FND_MSG_PUB.count_and_get(
3090: COMMIT;
3091: END IF;
3092:
3093: FND_MSG_PUB.count_and_get(
3094: p_encoded => FND_API.g_false,
3095: p_count => x_msg_count,
3096: p_data => x_msg_data
3097: );
3098:
3100: OZF_Utility_PVT.debug_message(l_full_name ||': end');
3101: END IF;
3102:
3103: EXCEPTION
3104: WHEN FND_API.g_exc_error THEN
3105: ROLLBACK TO Update_Line_Util_Tbl;
3106: x_return_status := FND_API.g_ret_sts_error;
3107: FND_MSG_PUB.count_and_get (
3108: p_encoded => FND_API.g_false
3102:
3103: EXCEPTION
3104: WHEN FND_API.g_exc_error THEN
3105: ROLLBACK TO Update_Line_Util_Tbl;
3106: x_return_status := FND_API.g_ret_sts_error;
3107: FND_MSG_PUB.count_and_get (
3108: p_encoded => FND_API.g_false
3109: ,p_count => x_msg_count
3110: ,p_data => x_msg_data
3104: WHEN FND_API.g_exc_error THEN
3105: ROLLBACK TO Update_Line_Util_Tbl;
3106: x_return_status := FND_API.g_ret_sts_error;
3107: FND_MSG_PUB.count_and_get (
3108: p_encoded => FND_API.g_false
3109: ,p_count => x_msg_count
3110: ,p_data => x_msg_data
3111: );
3112:
3109: ,p_count => x_msg_count
3110: ,p_data => x_msg_data
3111: );
3112:
3113: WHEN FND_API.g_exc_unexpected_error THEN
3114: ROLLBACK TO Update_Line_Util_Tbl;
3115: x_return_status := FND_API.g_ret_sts_unexp_error ;
3116: FND_MSG_PUB.count_and_get (
3117: p_encoded => FND_API.g_false
3111: );
3112:
3113: WHEN FND_API.g_exc_unexpected_error THEN
3114: ROLLBACK TO Update_Line_Util_Tbl;
3115: x_return_status := FND_API.g_ret_sts_unexp_error ;
3116: FND_MSG_PUB.count_and_get (
3117: p_encoded => FND_API.g_false
3118: ,p_count => x_msg_count
3119: ,p_data => x_msg_data
3113: WHEN FND_API.g_exc_unexpected_error THEN
3114: ROLLBACK TO Update_Line_Util_Tbl;
3115: x_return_status := FND_API.g_ret_sts_unexp_error ;
3116: FND_MSG_PUB.count_and_get (
3117: p_encoded => FND_API.g_false
3118: ,p_count => x_msg_count
3119: ,p_data => x_msg_data
3120: );
3121:
3120: );
3121:
3122: WHEN OTHERS THEN
3123: ROLLBACK TO Update_Line_Util_Tbl;
3124: x_return_status := FND_API.g_ret_sts_unexp_error ;
3125: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3126: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3127: END IF;
3128: FND_MSG_PUB.count_and_get(
3125: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3126: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3127: END IF;
3128: FND_MSG_PUB.count_and_get(
3129: p_encoded => FND_API.g_false
3130: ,p_count => x_msg_count
3131: ,p_data => x_msg_data
3132: );
3133:
3145: -- 08-Aug-06 azahmed Modifed for FXGL ER
3146: ----------------------------------------------------------------------
3147: PROCEDURE Update_Line_Util(
3148: p_api_version IN NUMBER
3149: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
3150: ,p_commit IN VARCHAR2 := FND_API.g_false
3151: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
3152:
3153: ,x_return_status OUT NOCOPY VARCHAR2
3146: ----------------------------------------------------------------------
3147: PROCEDURE Update_Line_Util(
3148: p_api_version IN NUMBER
3149: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
3150: ,p_commit IN VARCHAR2 := FND_API.g_false
3151: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
3152:
3153: ,x_return_status OUT NOCOPY VARCHAR2
3154: ,x_msg_count OUT NOCOPY NUMBER
3147: PROCEDURE Update_Line_Util(
3148: p_api_version IN NUMBER
3149: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
3150: ,p_commit IN VARCHAR2 := FND_API.g_false
3151: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
3152:
3153: ,x_return_status OUT NOCOPY VARCHAR2
3154: ,x_msg_count OUT NOCOPY NUMBER
3155: ,x_msg_data OUT NOCOPY VARCHAR2
3226: IF OZF_DEBUG_HIGH_ON THEN
3227: OZF_Utility_PVT.debug_message(l_full_name||': start');
3228: END IF;
3229:
3230: IF FND_API.to_boolean(p_init_msg_list) THEN
3231: FND_MSG_PUB.initialize;
3232: END IF;
3233:
3234: IF NOT FND_API.compatible_api_call(
3230: IF FND_API.to_boolean(p_init_msg_list) THEN
3231: FND_MSG_PUB.initialize;
3232: END IF;
3233:
3234: IF NOT FND_API.compatible_api_call(
3235: l_api_version,
3236: p_api_version,
3237: l_api_name,
3238: g_pkg_name
3236: p_api_version,
3237: l_api_name,
3238: g_pkg_name
3239: ) THEN
3240: RAISE FND_API.g_exc_unexpected_error;
3241: END IF;
3242:
3243: x_return_status := FND_API.g_ret_sts_success;
3244:
3239: ) THEN
3240: RAISE FND_API.g_exc_unexpected_error;
3241: END IF;
3242:
3243: x_return_status := FND_API.g_ret_sts_success;
3244:
3245: ----------------------- validate ----------------------
3246: IF OZF_DEBUG_HIGH_ON THEN
3247: OZF_Utility_PVT.debug_message(l_full_name ||': validate');
3270: ---------------------- check claim access ------------------------
3271: IF p_mode = OZF_CLAIM_UTILITY_PVT.g_manu_mode THEN
3272: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
3273: P_Api_Version_Number => 1.0
3274: , P_Init_Msg_List => FND_API.G_FALSE
3275: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
3276: , P_Commit => FND_API.G_FALSE
3277: , P_object_id => l_claim_id
3278: , P_object_type => G_CLAIM_OBJECT_TYPE
3271: IF p_mode = OZF_CLAIM_UTILITY_PVT.g_manu_mode THEN
3272: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
3273: P_Api_Version_Number => 1.0
3274: , P_Init_Msg_List => FND_API.G_FALSE
3275: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
3276: , P_Commit => FND_API.G_FALSE
3277: , P_object_id => l_claim_id
3278: , P_object_type => G_CLAIM_OBJECT_TYPE
3279: , P_user_id => OZF_UTILITY_PVT.get_resource_id(NVL(FND_GLOBAL.user_id,-1))
3272: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
3273: P_Api_Version_Number => 1.0
3274: , P_Init_Msg_List => FND_API.G_FALSE
3275: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
3276: , P_Commit => FND_API.G_FALSE
3277: , P_object_id => l_claim_id
3278: , P_object_type => G_CLAIM_OBJECT_TYPE
3279: , P_user_id => OZF_UTILITY_PVT.get_resource_id(NVL(FND_GLOBAL.user_id,-1))
3280: , X_Return_Status => l_return_status
3286: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3287: FND_MESSAGE.set_name('OZF','OZF_CLAIM_NO_ACCESS');
3288: FND_MSG_PUB.add;
3289: END IF;
3290: RAISE FND_API.G_EXC_ERROR;
3291: END IF;
3292: END IF;
3293:
3294: --IF p_line_util_rec.update_from_tbl_flag = FND_API.g_false THEN
3290: RAISE FND_API.G_EXC_ERROR;
3291: END IF;
3292: END IF;
3293:
3294: --IF p_line_util_rec.update_from_tbl_flag = FND_API.g_false THEN
3295: -- get functional_currency
3296: OPEN csr_function_currency;
3297: FETCH csr_function_currency INTO l_currency_rec.functional_currency_code;
3298: CLOSE csr_function_currency;
3298: CLOSE csr_function_currency;
3299: --END IF;
3300:
3301: IF (p_line_util_rec.amount is not null
3302: AND p_line_util_rec.amount <> FND_API.g_miss_num) THEN
3303: OPEN csr_lu_old_amt(p_line_util_rec.claim_line_util_id);
3304: FETCH csr_lu_old_amt INTO l_lu_old_amt, l_lu_old_scan_unit, l_old_utiz_amount ,l_currency_rec.claim_currency_code,l_currency_rec.transaction_currency_code;
3305: CLOSE csr_lu_old_amt;
3306:
3321: ,x_return_status => l_return_status
3322: ,x_to_amount => l_line_util_rec.acctd_amount
3323: ,x_rate => l_exchange_rate
3324: );
3325: IF l_return_status = FND_API.g_ret_sts_error THEN
3326: RAISE FND_API.g_exc_error;
3327: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3328: RAISE FND_API.g_exc_unexpected_error;
3329: END IF;
3322: ,x_to_amount => l_line_util_rec.acctd_amount
3323: ,x_rate => l_exchange_rate
3324: );
3325: IF l_return_status = FND_API.g_ret_sts_error THEN
3326: RAISE FND_API.g_exc_error;
3327: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3328: RAISE FND_API.g_exc_unexpected_error;
3329: END IF;
3330: IF l_line_util_rec.acctd_amount IS NOT NULL THEN
3323: ,x_rate => l_exchange_rate
3324: );
3325: IF l_return_status = FND_API.g_ret_sts_error THEN
3326: RAISE FND_API.g_exc_error;
3327: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3328: RAISE FND_API.g_exc_unexpected_error;
3329: END IF;
3330: IF l_line_util_rec.acctd_amount IS NOT NULL THEN
3331: l_line_util_rec.acctd_amount := OZF_UTILITY_PVT.CurrRound(l_line_util_rec.acctd_amount, l_currency_rec.functional_currency_code);
3324: );
3325: IF l_return_status = FND_API.g_ret_sts_error THEN
3326: RAISE FND_API.g_exc_error;
3327: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3328: RAISE FND_API.g_exc_unexpected_error;
3329: END IF;
3330: IF l_line_util_rec.acctd_amount IS NOT NULL THEN
3331: l_line_util_rec.acctd_amount := OZF_UTILITY_PVT.CurrRound(l_line_util_rec.acctd_amount, l_currency_rec.functional_currency_code);
3332: END IF;
3356: , x_to_amount => l_update_acctd_fund_amount
3357: , x_rate => l_rate
3358: );
3359:
3360: IF l_return_status = FND_API.g_ret_sts_error THEN
3361: RAISE FND_API.g_exc_error;
3362: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3363: RAISE FND_API.g_exc_unexpected_error;
3364: END IF;
3357: , x_rate => l_rate
3358: );
3359:
3360: IF l_return_status = FND_API.g_ret_sts_error THEN
3361: RAISE FND_API.g_exc_error;
3362: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3363: RAISE FND_API.g_exc_unexpected_error;
3364: END IF;
3365: l_update_fund_amount := l_update_acctd_fund_amount;
3358: );
3359:
3360: IF l_return_status = FND_API.g_ret_sts_error THEN
3361: RAISE FND_API.g_exc_error;
3362: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3363: RAISE FND_API.g_exc_unexpected_error;
3364: END IF;
3365: l_update_fund_amount := l_update_acctd_fund_amount;
3366: END IF;
3359:
3360: IF l_return_status = FND_API.g_ret_sts_error THEN
3361: RAISE FND_API.g_exc_error;
3362: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3363: RAISE FND_API.g_exc_unexpected_error;
3364: END IF;
3365: l_update_fund_amount := l_update_acctd_fund_amount;
3366: END IF;
3367: END IF;
3380: , x_msg_count => x_msg_count
3381: , x_msg_data => x_msg_data
3382: , px_upd_line_util_tbl => px_upd_line_util_tbl --ninarasi fix for bug 13530939
3383: );
3384: IF l_return_status = fnd_api.g_ret_sts_error THEN
3385: RAISE FND_API.g_exc_error;
3386: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3387: RAISE FND_API.g_exc_unexpected_error;
3388: END IF;
3381: , x_msg_data => x_msg_data
3382: , px_upd_line_util_tbl => px_upd_line_util_tbl --ninarasi fix for bug 13530939
3383: );
3384: IF l_return_status = fnd_api.g_ret_sts_error THEN
3385: RAISE FND_API.g_exc_error;
3386: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3387: RAISE FND_API.g_exc_unexpected_error;
3388: END IF;
3389:
3382: , px_upd_line_util_tbl => px_upd_line_util_tbl --ninarasi fix for bug 13530939
3383: );
3384: IF l_return_status = fnd_api.g_ret_sts_error THEN
3385: RAISE FND_API.g_exc_error;
3386: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3387: RAISE FND_API.g_exc_unexpected_error;
3388: END IF;
3389:
3390: END IF;
3383: );
3384: IF l_return_status = fnd_api.g_ret_sts_error THEN
3385: RAISE FND_API.g_exc_error;
3386: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3387: RAISE FND_API.g_exc_unexpected_error;
3388: END IF;
3389:
3390: END IF;
3391: END IF;
3424: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3425: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
3426: FND_MSG_PUB.add;
3427: END IF;
3428: RAISE FND_API.g_exc_error;
3429: END IF;
3430:
3431: -------------------- finish --------------------------
3432: x_object_version := l_line_util_rec.object_version_number;
3431: -------------------- finish --------------------------
3432: x_object_version := l_line_util_rec.object_version_number;
3433:
3434: -- Check for commit
3435: IF FND_API.to_boolean(p_commit) THEN
3436: COMMIT;
3437: END IF;
3438:
3439: FND_MSG_PUB.count_and_get(
3436: COMMIT;
3437: END IF;
3438:
3439: FND_MSG_PUB.count_and_get(
3440: p_encoded => FND_API.g_false,
3441: p_count => x_msg_count,
3442: p_data => x_msg_data
3443: );
3444:
3446: OZF_Utility_PVT.debug_message(l_full_name ||': end');
3447: END IF;
3448:
3449: EXCEPTION
3450: WHEN FND_API.g_exc_error THEN
3451: ROLLBACK TO Update_Line_Util;
3452: x_return_status := FND_API.g_ret_sts_error;
3453: FND_MSG_PUB.count_and_get(
3454: p_encoded => FND_API.g_false,
3448:
3449: EXCEPTION
3450: WHEN FND_API.g_exc_error THEN
3451: ROLLBACK TO Update_Line_Util;
3452: x_return_status := FND_API.g_ret_sts_error;
3453: FND_MSG_PUB.count_and_get(
3454: p_encoded => FND_API.g_false,
3455: p_count => x_msg_count,
3456: p_data => x_msg_data
3450: WHEN FND_API.g_exc_error THEN
3451: ROLLBACK TO Update_Line_Util;
3452: x_return_status := FND_API.g_ret_sts_error;
3453: FND_MSG_PUB.count_and_get(
3454: p_encoded => FND_API.g_false,
3455: p_count => x_msg_count,
3456: p_data => x_msg_data
3457: );
3458:
3455: p_count => x_msg_count,
3456: p_data => x_msg_data
3457: );
3458:
3459: WHEN FND_API.g_exc_unexpected_error THEN
3460: ROLLBACK TO Update_Line_Util;
3461: x_return_status := FND_API.g_ret_sts_unexp_error ;
3462: FND_MSG_PUB.count_and_get(
3463: p_encoded => FND_API.g_false,
3457: );
3458:
3459: WHEN FND_API.g_exc_unexpected_error THEN
3460: ROLLBACK TO Update_Line_Util;
3461: x_return_status := FND_API.g_ret_sts_unexp_error ;
3462: FND_MSG_PUB.count_and_get(
3463: p_encoded => FND_API.g_false,
3464: p_count => x_msg_count,
3465: p_data => x_msg_data
3459: WHEN FND_API.g_exc_unexpected_error THEN
3460: ROLLBACK TO Update_Line_Util;
3461: x_return_status := FND_API.g_ret_sts_unexp_error ;
3462: FND_MSG_PUB.count_and_get(
3463: p_encoded => FND_API.g_false,
3464: p_count => x_msg_count,
3465: p_data => x_msg_data
3466: );
3467:
3466: );
3467:
3468: WHEN OTHERS THEN
3469: ROLLBACK TO Update_Line_Util;
3470: x_return_status := FND_API.g_ret_sts_unexp_error ;
3471: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3472: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3473: END IF;
3474: FND_MSG_PUB.count_and_get(
3471: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3472: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3473: END IF;
3474: FND_MSG_PUB.count_and_get(
3475: p_encoded => FND_API.g_false,
3476: p_count => x_msg_count,
3477: p_data => x_msg_data
3478: );
3479:
3489: -- 08-Aug-06 azahmed Modified for FXGL ER
3490: ---------------------------------------------------------------------
3491: PROCEDURE Delete_All_Line_Util(
3492: p_api_version IN NUMBER
3493: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
3494: ,p_commit IN VARCHAR2 := FND_API.g_false
3495: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
3496:
3497: ,x_return_status OUT NOCOPY VARCHAR2
3490: ---------------------------------------------------------------------
3491: PROCEDURE Delete_All_Line_Util(
3492: p_api_version IN NUMBER
3493: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
3494: ,p_commit IN VARCHAR2 := FND_API.g_false
3495: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
3496:
3497: ,x_return_status OUT NOCOPY VARCHAR2
3498: ,x_msg_count OUT NOCOPY NUMBER
3491: PROCEDURE Delete_All_Line_Util(
3492: p_api_version IN NUMBER
3493: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
3494: ,p_commit IN VARCHAR2 := FND_API.g_false
3495: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
3496:
3497: ,x_return_status OUT NOCOPY VARCHAR2
3498: ,x_msg_count OUT NOCOPY NUMBER
3499: ,x_msg_data OUT NOCOPY VARCHAR2
3536: IF OZF_DEBUG_HIGH_ON THEN
3537: OZF_Utility_PVT.debug_message(l_full_name||': start');
3538: END IF;
3539:
3540: IF FND_API.to_boolean(p_init_msg_list) THEN
3541: FND_MSG_PUB.initialize;
3542: END IF;
3543:
3544: IF NOT FND_API.compatible_api_call(
3540: IF FND_API.to_boolean(p_init_msg_list) THEN
3541: FND_MSG_PUB.initialize;
3542: END IF;
3543:
3544: IF NOT FND_API.compatible_api_call(
3545: l_api_version,
3546: p_api_version,
3547: l_api_name,
3548: g_pkg_name
3546: p_api_version,
3547: l_api_name,
3548: g_pkg_name
3549: ) THEN
3550: RAISE FND_API.g_exc_unexpected_error;
3551: END IF;
3552:
3553: x_return_status := FND_API.g_ret_sts_success;
3554:
3549: ) THEN
3550: RAISE FND_API.g_exc_unexpected_error;
3551: END IF;
3552:
3553: x_return_status := FND_API.g_ret_sts_success;
3554:
3555:
3556: --------------------- start -----------------------
3557: Get_Utiz_Sql_Stmt(
3555:
3556: --------------------- start -----------------------
3557: Get_Utiz_Sql_Stmt(
3558: p_api_version => l_api_version
3559: ,p_init_msg_list => FND_API.g_false
3560: ,p_commit => FND_API.g_false
3561: ,p_validation_level => FND_API.g_valid_level_full
3562: ,x_return_status => l_return_status
3563: ,x_msg_count => x_msg_count
3556: --------------------- start -----------------------
3557: Get_Utiz_Sql_Stmt(
3558: p_api_version => l_api_version
3559: ,p_init_msg_list => FND_API.g_false
3560: ,p_commit => FND_API.g_false
3561: ,p_validation_level => FND_API.g_valid_level_full
3562: ,x_return_status => l_return_status
3563: ,x_msg_count => x_msg_count
3564: ,x_msg_data => x_msg_data
3557: Get_Utiz_Sql_Stmt(
3558: p_api_version => l_api_version
3559: ,p_init_msg_list => FND_API.g_false
3560: ,p_commit => FND_API.g_false
3561: ,p_validation_level => FND_API.g_valid_level_full
3562: ,x_return_status => l_return_status
3563: ,x_msg_count => x_msg_count
3564: ,x_msg_data => x_msg_data
3565: ,p_summary_view => 'DEL_GRP_LINE_UTIL'
3567: ,px_currency_rec => l_currency_rec
3568: ,p_cust_account_id => p_funds_util_flt.cust_account_id
3569: ,x_utiz_sql_stmt => l_funds_util_sql
3570: );
3571: IF l_return_status = FND_API.g_ret_sts_error THEN
3572: RAISE FND_API.g_exc_error;
3573: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3574: RAISE FND_API.g_exc_unexpected_error;
3575: END IF;
3568: ,p_cust_account_id => p_funds_util_flt.cust_account_id
3569: ,x_utiz_sql_stmt => l_funds_util_sql
3570: );
3571: IF l_return_status = FND_API.g_ret_sts_error THEN
3572: RAISE FND_API.g_exc_error;
3573: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3574: RAISE FND_API.g_exc_unexpected_error;
3575: END IF;
3576:
3569: ,x_utiz_sql_stmt => l_funds_util_sql
3570: );
3571: IF l_return_status = FND_API.g_ret_sts_error THEN
3572: RAISE FND_API.g_exc_error;
3573: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3574: RAISE FND_API.g_exc_unexpected_error;
3575: END IF;
3576:
3577: -- use FND_DSQL package for dynamic sql and bind variables
3570: );
3571: IF l_return_status = FND_API.g_ret_sts_error THEN
3572: RAISE FND_API.g_exc_error;
3573: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3574: RAISE FND_API.g_exc_unexpected_error;
3575: END IF;
3576:
3577: -- use FND_DSQL package for dynamic sql and bind variables
3578: l_funds_util_csr := DBMS_SQL.open_cursor;
3601: CLOSE csr_util_obj_ver;
3602:
3603: Delete_Line_Util(
3604: p_api_version => l_api_version
3605: ,p_init_msg_list => FND_API.g_false
3606: ,p_commit => FND_API.g_false
3607: ,x_return_status => l_return_status
3608: ,x_msg_data => x_msg_data
3609: ,x_msg_count => x_msg_count
3602:
3603: Delete_Line_Util(
3604: p_api_version => l_api_version
3605: ,p_init_msg_list => FND_API.g_false
3606: ,p_commit => FND_API.g_false
3607: ,x_return_status => l_return_status
3608: ,x_msg_data => x_msg_data
3609: ,x_msg_count => x_msg_count
3610: ,p_line_util_id => l_lu_line_util_id
3626: l_upd_fund_util_tbl.delete;
3627: END IF;
3628:
3629:
3630: IF l_return_status = fnd_api.g_ret_sts_error THEN
3631: RAISE FND_API.g_exc_error;
3632: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3633: RAISE FND_API.g_exc_unexpected_error;
3634: END IF;
3627: END IF;
3628:
3629:
3630: IF l_return_status = fnd_api.g_ret_sts_error THEN
3631: RAISE FND_API.g_exc_error;
3632: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3633: RAISE FND_API.g_exc_unexpected_error;
3634: END IF;
3635: ELSE
3628:
3629:
3630: IF l_return_status = fnd_api.g_ret_sts_error THEN
3631: RAISE FND_API.g_exc_error;
3632: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3633: RAISE FND_API.g_exc_unexpected_error;
3634: END IF;
3635: ELSE
3636: IF l_upd_fund_util_tbl.COUNT > 0 THEN
3629:
3630: IF l_return_status = fnd_api.g_ret_sts_error THEN
3631: RAISE FND_API.g_exc_error;
3632: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3633: RAISE FND_API.g_exc_unexpected_error;
3634: END IF;
3635: ELSE
3636: IF l_upd_fund_util_tbl.COUNT > 0 THEN
3637: FORALL i IN NVL(l_upd_fund_util_tbl.FIRST,1) .. NVL(l_upd_fund_util_tbl.LAST,0) --ninarasi fix for bug 13530939
3651: END LOOP;
3652: DBMS_SQL.close_cursor(l_funds_util_csr);
3653:
3654: -- Check for commit
3655: IF FND_API.to_boolean(p_commit) THEN
3656: COMMIT;
3657: END IF;
3658:
3659: FND_MSG_PUB.count_and_get(
3656: COMMIT;
3657: END IF;
3658:
3659: FND_MSG_PUB.count_and_get(
3660: p_encoded => FND_API.g_false,
3661: p_count => x_msg_count,
3662: p_data => x_msg_data
3663: );
3664:
3666: OZF_Utility_PVT.debug_message(l_full_name ||': end');
3667: END IF;
3668:
3669: EXCEPTION
3670: WHEN FND_API.g_exc_error THEN
3671: ROLLBACK TO Delete_All_Line_Util;
3672: x_return_status := FND_API.g_ret_sts_error;
3673: FND_MSG_PUB.count_and_get (
3674: p_encoded => FND_API.g_false
3668:
3669: EXCEPTION
3670: WHEN FND_API.g_exc_error THEN
3671: ROLLBACK TO Delete_All_Line_Util;
3672: x_return_status := FND_API.g_ret_sts_error;
3673: FND_MSG_PUB.count_and_get (
3674: p_encoded => FND_API.g_false
3675: ,p_count => x_msg_count
3676: ,p_data => x_msg_data
3670: WHEN FND_API.g_exc_error THEN
3671: ROLLBACK TO Delete_All_Line_Util;
3672: x_return_status := FND_API.g_ret_sts_error;
3673: FND_MSG_PUB.count_and_get (
3674: p_encoded => FND_API.g_false
3675: ,p_count => x_msg_count
3676: ,p_data => x_msg_data
3677: );
3678:
3675: ,p_count => x_msg_count
3676: ,p_data => x_msg_data
3677: );
3678:
3679: WHEN FND_API.g_exc_unexpected_error THEN
3680: ROLLBACK TO Delete_All_Line_Util;
3681: x_return_status := FND_API.g_ret_sts_unexp_error ;
3682: FND_MSG_PUB.count_and_get (
3683: p_encoded => FND_API.g_false
3677: );
3678:
3679: WHEN FND_API.g_exc_unexpected_error THEN
3680: ROLLBACK TO Delete_All_Line_Util;
3681: x_return_status := FND_API.g_ret_sts_unexp_error ;
3682: FND_MSG_PUB.count_and_get (
3683: p_encoded => FND_API.g_false
3684: ,p_count => x_msg_count
3685: ,p_data => x_msg_data
3679: WHEN FND_API.g_exc_unexpected_error THEN
3680: ROLLBACK TO Delete_All_Line_Util;
3681: x_return_status := FND_API.g_ret_sts_unexp_error ;
3682: FND_MSG_PUB.count_and_get (
3683: p_encoded => FND_API.g_false
3684: ,p_count => x_msg_count
3685: ,p_data => x_msg_data
3686: );
3687:
3686: );
3687:
3688: WHEN OTHERS THEN
3689: ROLLBACK TO Delete_All_Line_Util;
3690: x_return_status := FND_API.g_ret_sts_unexp_error ;
3691: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3692: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3693: END IF;
3694: FND_MSG_PUB.count_and_get(
3691: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3692: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3693: END IF;
3694: FND_MSG_PUB.count_and_get(
3695: p_encoded => FND_API.g_false
3696: ,p_count => x_msg_count
3697: ,p_data => x_msg_data
3698: );
3699:
3707: -- 05/12/2001 mchang Create.
3708: ---------------------------------------------------------------------
3709: PROCEDURE Delete_Line_Util_Tbl(
3710: p_api_version IN NUMBER
3711: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
3712: ,p_commit IN VARCHAR2 := FND_API.g_false
3713: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
3714:
3715: ,x_return_status OUT NOCOPY VARCHAR2
3708: ---------------------------------------------------------------------
3709: PROCEDURE Delete_Line_Util_Tbl(
3710: p_api_version IN NUMBER
3711: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
3712: ,p_commit IN VARCHAR2 := FND_API.g_false
3713: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
3714:
3715: ,x_return_status OUT NOCOPY VARCHAR2
3716: ,x_msg_data OUT NOCOPY VARCHAR2
3709: PROCEDURE Delete_Line_Util_Tbl(
3710: p_api_version IN NUMBER
3711: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
3712: ,p_commit IN VARCHAR2 := FND_API.g_false
3713: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
3714:
3715: ,x_return_status OUT NOCOPY VARCHAR2
3716: ,x_msg_data OUT NOCOPY VARCHAR2
3717: ,x_msg_count OUT NOCOPY NUMBER
3753: IF OZF_DEBUG_HIGH_ON THEN
3754: OZF_Utility_PVT.debug_message(l_full_name||': start');
3755: END IF;
3756:
3757: IF FND_API.to_boolean(p_init_msg_list) THEN
3758: FND_MSG_PUB.initialize;
3759: END IF;
3760:
3761: IF NOT FND_API.compatible_api_call(
3757: IF FND_API.to_boolean(p_init_msg_list) THEN
3758: FND_MSG_PUB.initialize;
3759: END IF;
3760:
3761: IF NOT FND_API.compatible_api_call(
3762: l_api_version,
3763: p_api_version,
3764: l_api_name,
3765: g_pkg_name
3763: p_api_version,
3764: l_api_name,
3765: g_pkg_name
3766: ) THEN
3767: RAISE FND_API.g_exc_unexpected_error;
3768: END IF;
3769:
3770: x_return_status := FND_API.g_ret_sts_success;
3771:
3766: ) THEN
3767: RAISE FND_API.g_exc_unexpected_error;
3768: END IF;
3769:
3770: x_return_status := FND_API.g_ret_sts_success;
3771:
3772: ---------------------- check claim access ------------------------
3773: IF p_mode = OZF_CLAIM_UTILITY_PVT.g_manu_mode AND p_line_util_tbl.count > 0 THEN
3774: FOR j IN p_line_util_tbl.FIRST..p_line_util_tbl.LAST LOOP
3779: CLOSE csr_claim_id;
3780:
3781: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
3782: P_Api_Version_Number => 1.0
3783: , P_Init_Msg_List => FND_API.G_FALSE
3784: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
3785: , P_Commit => FND_API.G_FALSE
3786: , P_object_id => l_claim_id
3787: , P_object_type => G_CLAIM_OBJECT_TYPE
3780:
3781: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
3782: P_Api_Version_Number => 1.0
3783: , P_Init_Msg_List => FND_API.G_FALSE
3784: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
3785: , P_Commit => FND_API.G_FALSE
3786: , P_object_id => l_claim_id
3787: , P_object_type => G_CLAIM_OBJECT_TYPE
3788: , P_user_id => OZF_UTILITY_PVT.get_resource_id(NVL(FND_GLOBAL.user_id,-1))
3781: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
3782: P_Api_Version_Number => 1.0
3783: , P_Init_Msg_List => FND_API.G_FALSE
3784: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
3785: , P_Commit => FND_API.G_FALSE
3786: , P_object_id => l_claim_id
3787: , P_object_type => G_CLAIM_OBJECT_TYPE
3788: , P_user_id => OZF_UTILITY_PVT.get_resource_id(NVL(FND_GLOBAL.user_id,-1))
3789: , X_Return_Status => l_return_status
3795: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3796: FND_MESSAGE.set_name('OZF','OZF_CLAIM_NO_ACCESS');
3797: FND_MSG_PUB.add;
3798: END IF;
3799: RAISE FND_API.G_EXC_ERROR;
3800: END IF;
3801: EXIT;
3802: END IF;
3803: END LOOP;
3812: l_object_version := p_line_util_tbl(i).object_version_number;
3813: IF l_line_util_id IS NOT NULL THEN
3814: Delete_Line_Util(
3815: p_api_version => 1.0
3816: , p_init_msg_list => FND_API.g_false
3817: , p_commit => FND_API.g_false
3818: , x_return_status => l_return_status
3819: , x_msg_count => x_msg_count
3820: , x_msg_data => x_msg_data
3813: IF l_line_util_id IS NOT NULL THEN
3814: Delete_Line_Util(
3815: p_api_version => 1.0
3816: , p_init_msg_list => FND_API.g_false
3817: , p_commit => FND_API.g_false
3818: , x_return_status => l_return_status
3819: , x_msg_count => x_msg_count
3820: , x_msg_data => x_msg_data
3821: , p_line_util_id => l_line_util_id
3836: l_upd_fund_util_tbl.delete;
3837:
3838: END IF;
3839:
3840: IF l_return_status = fnd_api.g_ret_sts_error THEN
3841: x_error_index := i;
3842: RAISE FND_API.g_exc_error;
3843: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3844: x_error_index := i;
3838: END IF;
3839:
3840: IF l_return_status = fnd_api.g_ret_sts_error THEN
3841: x_error_index := i;
3842: RAISE FND_API.g_exc_error;
3843: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3844: x_error_index := i;
3845: RAISE FND_API.g_exc_unexpected_error;
3846: END IF;
3839:
3840: IF l_return_status = fnd_api.g_ret_sts_error THEN
3841: x_error_index := i;
3842: RAISE FND_API.g_exc_error;
3843: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3844: x_error_index := i;
3845: RAISE FND_API.g_exc_unexpected_error;
3846: END IF;
3847: END IF;
3841: x_error_index := i;
3842: RAISE FND_API.g_exc_error;
3843: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3844: x_error_index := i;
3845: RAISE FND_API.g_exc_unexpected_error;
3846: END IF;
3847: END IF;
3848: EXIT WHEN i = p_line_util_tbl.LAST;
3849: i := p_line_util_tbl.NEXT(i);
3863:
3864: END IF;
3865:
3866: ------------------------- finish -------------------------------
3867: IF FND_API.to_boolean(p_commit) THEN
3868: COMMIT;
3869: END IF;
3870:
3871: FND_MSG_PUB.count_and_get(
3868: COMMIT;
3869: END IF;
3870:
3871: FND_MSG_PUB.count_and_get(
3872: p_encoded => FND_API.g_false,
3873: p_count => x_msg_count,
3874: p_data => x_msg_data
3875: );
3876:
3878: OZF_Utility_PVT.debug_message(l_full_name ||': end');
3879: END IF;
3880:
3881: EXCEPTION
3882: WHEN FND_API.g_exc_error THEN
3883: ROLLBACK TO Delete_Line_Util_Tbl;
3884: x_return_status := FND_API.g_ret_sts_error;
3885: FND_MSG_PUB.count_and_get (
3886: p_encoded => FND_API.g_false
3880:
3881: EXCEPTION
3882: WHEN FND_API.g_exc_error THEN
3883: ROLLBACK TO Delete_Line_Util_Tbl;
3884: x_return_status := FND_API.g_ret_sts_error;
3885: FND_MSG_PUB.count_and_get (
3886: p_encoded => FND_API.g_false
3887: ,p_count => x_msg_count
3888: ,p_data => x_msg_data
3882: WHEN FND_API.g_exc_error THEN
3883: ROLLBACK TO Delete_Line_Util_Tbl;
3884: x_return_status := FND_API.g_ret_sts_error;
3885: FND_MSG_PUB.count_and_get (
3886: p_encoded => FND_API.g_false
3887: ,p_count => x_msg_count
3888: ,p_data => x_msg_data
3889: );
3890:
3887: ,p_count => x_msg_count
3888: ,p_data => x_msg_data
3889: );
3890:
3891: WHEN FND_API.g_exc_unexpected_error THEN
3892: ROLLBACK TO Delete_Line_Util_Tbl;
3893: x_return_status := FND_API.g_ret_sts_unexp_error ;
3894: FND_MSG_PUB.count_and_get (
3895: p_encoded => FND_API.g_false
3889: );
3890:
3891: WHEN FND_API.g_exc_unexpected_error THEN
3892: ROLLBACK TO Delete_Line_Util_Tbl;
3893: x_return_status := FND_API.g_ret_sts_unexp_error ;
3894: FND_MSG_PUB.count_and_get (
3895: p_encoded => FND_API.g_false
3896: ,p_count => x_msg_count
3897: ,p_data => x_msg_data
3891: WHEN FND_API.g_exc_unexpected_error THEN
3892: ROLLBACK TO Delete_Line_Util_Tbl;
3893: x_return_status := FND_API.g_ret_sts_unexp_error ;
3894: FND_MSG_PUB.count_and_get (
3895: p_encoded => FND_API.g_false
3896: ,p_count => x_msg_count
3897: ,p_data => x_msg_data
3898: );
3899:
3898: );
3899:
3900: WHEN OTHERS THEN
3901: ROLLBACK TO Delete_Line_Util_Tbl;
3902: x_return_status := FND_API.g_ret_sts_unexp_error ;
3903: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3904: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3905: END IF;
3906: FND_MSG_PUB.count_and_get(
3903: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3904: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3905: END IF;
3906: FND_MSG_PUB.count_and_get(
3907: p_encoded => FND_API.g_false
3908: ,p_count => x_msg_count
3909: ,p_data => x_msg_data
3910: );
3911:
3922: -- 08-Aug-06 azahmed Modified for FXGL ER (Amount passed to Update_Funds_Util)
3923: ---------------------------------------------------------------
3924: PROCEDURE Delete_Line_Util(
3925: p_api_version IN NUMBER
3926: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
3927: ,p_commit IN VARCHAR2 := FND_API.g_false
3928:
3929: ,x_return_status OUT NOCOPY VARCHAR2
3930: ,x_msg_count OUT NOCOPY NUMBER
3923: ---------------------------------------------------------------
3924: PROCEDURE Delete_Line_Util(
3925: p_api_version IN NUMBER
3926: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
3927: ,p_commit IN VARCHAR2 := FND_API.g_false
3928:
3929: ,x_return_status OUT NOCOPY VARCHAR2
3930: ,x_msg_count OUT NOCOPY NUMBER
3931: ,x_msg_data OUT NOCOPY VARCHAR2
3991: IF OZF_DEBUG_HIGH_ON THEN
3992: OZF_Utility_PVT.debug_message(l_full_name||': start');
3993: END IF;
3994:
3995: IF FND_API.to_boolean(p_init_msg_list) THEN
3996: FND_MSG_PUB.initialize;
3997: END IF;
3998:
3999: IF NOT FND_API.compatible_api_call(
3995: IF FND_API.to_boolean(p_init_msg_list) THEN
3996: FND_MSG_PUB.initialize;
3997: END IF;
3998:
3999: IF NOT FND_API.compatible_api_call(
4000: l_api_version,
4001: p_api_version,
4002: l_api_name,
4003: g_pkg_name
4001: p_api_version,
4002: l_api_name,
4003: g_pkg_name
4004: ) THEN
4005: RAISE FND_API.g_exc_unexpected_error;
4006: END IF;
4007:
4008: x_return_status := FND_API.G_RET_STS_SUCCESS;
4009:
4004: ) THEN
4005: RAISE FND_API.g_exc_unexpected_error;
4006: END IF;
4007:
4008: x_return_status := FND_API.G_RET_STS_SUCCESS;
4009:
4010: OPEN csr_function_currency;
4011: FETCH csr_function_currency INTO l_currency_rec.functional_currency_code;
4012: CLOSE csr_function_currency;
4022: ---------------------- check claim access ------------------------
4023: IF p_mode = OZF_CLAIM_UTILITY_PVT.g_manu_mode THEN
4024: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
4025: P_Api_Version_Number => 1.0
4026: , P_Init_Msg_List => FND_API.G_FALSE
4027: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
4028: , P_Commit => FND_API.G_FALSE
4029: , P_object_id => l_claim_id
4030: , P_object_type => G_CLAIM_OBJECT_TYPE
4023: IF p_mode = OZF_CLAIM_UTILITY_PVT.g_manu_mode THEN
4024: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
4025: P_Api_Version_Number => 1.0
4026: , P_Init_Msg_List => FND_API.G_FALSE
4027: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
4028: , P_Commit => FND_API.G_FALSE
4029: , P_object_id => l_claim_id
4030: , P_object_type => G_CLAIM_OBJECT_TYPE
4031: , P_user_id => OZF_UTILITY_PVT.get_resource_id(NVL(FND_GLOBAL.user_id,-1))
4024: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
4025: P_Api_Version_Number => 1.0
4026: , P_Init_Msg_List => FND_API.G_FALSE
4027: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
4028: , P_Commit => FND_API.G_FALSE
4029: , P_object_id => l_claim_id
4030: , P_object_type => G_CLAIM_OBJECT_TYPE
4031: , P_user_id => OZF_UTILITY_PVT.get_resource_id(NVL(FND_GLOBAL.user_id,-1))
4032: , X_Return_Status => l_return_status
4038: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4039: FND_MESSAGE.set_name('OZF','OZF_CLAIM_NO_ACCESS');
4040: FND_MSG_PUB.add;
4041: END IF;
4042: RAISE FND_API.G_EXC_ERROR;
4043: END IF;
4044: END IF;
4045:
4046: --------------------- Start -----------------------
4077: , x_msg_data => x_msg_data
4078: , px_upd_line_util_tbl => px_upd_line_util_tbl --ninarasi fix for bug 13530939
4079: );
4080:
4081: IF l_return_status = fnd_api.g_ret_sts_error THEN
4082: RAISE FND_API.g_exc_error;
4083: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4084: RAISE FND_API.g_exc_unexpected_error;
4085: END IF;
4078: , px_upd_line_util_tbl => px_upd_line_util_tbl --ninarasi fix for bug 13530939
4079: );
4080:
4081: IF l_return_status = fnd_api.g_ret_sts_error THEN
4082: RAISE FND_API.g_exc_error;
4083: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4084: RAISE FND_API.g_exc_unexpected_error;
4085: END IF;
4086:
4079: );
4080:
4081: IF l_return_status = fnd_api.g_ret_sts_error THEN
4082: RAISE FND_API.g_exc_error;
4083: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4084: RAISE FND_API.g_exc_unexpected_error;
4085: END IF;
4086:
4087: END IF; -- IF l_utilization_rec.utilization_id <> -1
4080:
4081: IF l_return_status = fnd_api.g_ret_sts_error THEN
4082: RAISE FND_API.g_exc_error;
4083: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4084: RAISE FND_API.g_exc_unexpected_error;
4085: END IF;
4086:
4087: END IF; -- IF l_utilization_rec.utilization_id <> -1
4088:
4099: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4100: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
4101: FND_MSG_PUB.add;
4102: END IF;
4103: RAISE FND_API.g_exc_error;
4104: END IF;
4105:
4106: -------------------- finish --------------------------
4107: IF FND_API.to_boolean(p_commit) THEN
4103: RAISE FND_API.g_exc_error;
4104: END IF;
4105:
4106: -------------------- finish --------------------------
4107: IF FND_API.to_boolean(p_commit) THEN
4108: COMMIT;
4109: END IF;
4110:
4111: FND_MSG_PUB.count_and_get(
4108: COMMIT;
4109: END IF;
4110:
4111: FND_MSG_PUB.count_and_get(
4112: p_encoded => FND_API.g_false,
4113: p_count => x_msg_count,
4114: p_data => x_msg_data
4115: );
4116:
4118: OZF_Utility_PVT.debug_message(l_full_name ||': end');
4119: END IF;
4120:
4121: EXCEPTION
4122: WHEN FND_API.g_exc_error THEN
4123: ROLLBACK TO Delete_Line_Util;
4124: x_return_status := FND_API.g_ret_sts_error;
4125: FND_MSG_PUB.count_and_get(
4126: p_encoded => FND_API.g_false,
4120:
4121: EXCEPTION
4122: WHEN FND_API.g_exc_error THEN
4123: ROLLBACK TO Delete_Line_Util;
4124: x_return_status := FND_API.g_ret_sts_error;
4125: FND_MSG_PUB.count_and_get(
4126: p_encoded => FND_API.g_false,
4127: p_count => x_msg_count,
4128: p_data => x_msg_data
4122: WHEN FND_API.g_exc_error THEN
4123: ROLLBACK TO Delete_Line_Util;
4124: x_return_status := FND_API.g_ret_sts_error;
4125: FND_MSG_PUB.count_and_get(
4126: p_encoded => FND_API.g_false,
4127: p_count => x_msg_count,
4128: p_data => x_msg_data
4129: );
4130:
4127: p_count => x_msg_count,
4128: p_data => x_msg_data
4129: );
4130:
4131: WHEN FND_API.g_exc_unexpected_error THEN
4132: ROLLBACK TO Delete_Line_Util;
4133: x_return_status := FND_API.g_ret_sts_unexp_error ;
4134: FND_MSG_PUB.count_and_get(
4135: p_encoded => FND_API.g_false,
4129: );
4130:
4131: WHEN FND_API.g_exc_unexpected_error THEN
4132: ROLLBACK TO Delete_Line_Util;
4133: x_return_status := FND_API.g_ret_sts_unexp_error ;
4134: FND_MSG_PUB.count_and_get(
4135: p_encoded => FND_API.g_false,
4136: p_count => x_msg_count,
4137: p_data => x_msg_data
4131: WHEN FND_API.g_exc_unexpected_error THEN
4132: ROLLBACK TO Delete_Line_Util;
4133: x_return_status := FND_API.g_ret_sts_unexp_error ;
4134: FND_MSG_PUB.count_and_get(
4135: p_encoded => FND_API.g_false,
4136: p_count => x_msg_count,
4137: p_data => x_msg_data
4138: );
4139:
4138: );
4139:
4140: WHEN OTHERS THEN
4141: ROLLBACK TO Delete_Line_Util;
4142: x_return_status := FND_API.g_ret_sts_unexp_error ;
4143: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
4144: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
4145: END IF;
4146: FND_MSG_PUB.count_and_get(
4143: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
4144: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
4145: END IF;
4146: FND_MSG_PUB.count_and_get(
4147: p_encoded => FND_API.g_false,
4148: p_count => x_msg_count,
4149: p_data => x_msg_data
4150: );
4151:
4216: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4217: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
4218: FND_MSG_PUB.add;
4219: END IF;
4220: RAISE FND_API.g_exc_error;
4221: END IF;
4222: CLOSE csr_line_util;
4223:
4224: IF p_line_util_rec.object_version_number = FND_API.G_MISS_NUM THEN
4220: RAISE FND_API.g_exc_error;
4221: END IF;
4222: CLOSE csr_line_util;
4223:
4224: IF p_line_util_rec.object_version_number = FND_API.G_MISS_NUM THEN
4225: x_complete_rec.object_version_number := NULL;
4226: END IF;
4227: IF p_line_util_rec.object_version_number IS NULL THEN
4228: x_complete_rec.object_version_number := l_line_util_rec.object_version_number;
4227: IF p_line_util_rec.object_version_number IS NULL THEN
4228: x_complete_rec.object_version_number := l_line_util_rec.object_version_number;
4229: END IF;
4230:
4231: IF p_line_util_rec.claim_line_id = FND_API.G_MISS_NUM THEN
4232: x_complete_rec.claim_line_id := NULL;
4233: END IF;
4234: IF p_line_util_rec.claim_line_id IS NULL THEN
4235: x_complete_rec.claim_line_id := l_line_util_rec.claim_line_id;
4234: IF p_line_util_rec.claim_line_id IS NULL THEN
4235: x_complete_rec.claim_line_id := l_line_util_rec.claim_line_id;
4236: END IF;
4237:
4238: IF p_line_util_rec.utilization_id = FND_API.G_MISS_NUM THEN
4239: x_complete_rec.utilization_id := NULL;
4240: END IF;
4241: IF p_line_util_rec.utilization_id IS NULL THEN
4242: x_complete_rec.utilization_id := l_line_util_rec.utilization_id;
4241: IF p_line_util_rec.utilization_id IS NULL THEN
4242: x_complete_rec.utilization_id := l_line_util_rec.utilization_id;
4243: END IF;
4244:
4245: IF p_line_util_rec.amount = FND_API.G_MISS_NUM THEN
4246: x_complete_rec.amount := NULL;
4247: END IF;
4248: IF p_line_util_rec.amount IS NULL THEN
4249: x_complete_rec.amount := l_line_util_rec.amount;
4248: IF p_line_util_rec.amount IS NULL THEN
4249: x_complete_rec.amount := l_line_util_rec.amount;
4250: END IF;
4251:
4252: IF p_line_util_rec.currency_code = FND_API.G_MISS_CHAR THEN
4253: x_complete_rec.currency_code := NULL;
4254: END IF;
4255: IF p_line_util_rec.currency_code IS NULL THEN
4256: x_complete_rec.currency_code := l_line_util_rec.currency_code;
4255: IF p_line_util_rec.currency_code IS NULL THEN
4256: x_complete_rec.currency_code := l_line_util_rec.currency_code;
4257: END IF;
4258:
4259: IF p_line_util_rec.exchange_rate_type = FND_API.G_MISS_CHAR THEN
4260: x_complete_rec.exchange_rate_type := NULL;
4261: END IF;
4262: IF p_line_util_rec.exchange_rate_type IS NULL THEN
4263: x_complete_rec.exchange_rate_type := l_line_util_rec.exchange_rate_type;
4262: IF p_line_util_rec.exchange_rate_type IS NULL THEN
4263: x_complete_rec.exchange_rate_type := l_line_util_rec.exchange_rate_type;
4264: END IF;
4265:
4266: IF p_line_util_rec.exchange_rate_date = FND_API.G_MISS_DATE THEN
4267: x_complete_rec.exchange_rate_date := NULL;
4268: END IF;
4269: IF p_line_util_rec.exchange_rate_date IS NULL THEN
4270: x_complete_rec.exchange_rate_date := l_line_util_rec.exchange_rate_date;
4269: IF p_line_util_rec.exchange_rate_date IS NULL THEN
4270: x_complete_rec.exchange_rate_date := l_line_util_rec.exchange_rate_date;
4271: END IF;
4272:
4273: IF p_line_util_rec.exchange_rate = FND_API.G_MISS_NUM THEN
4274: x_complete_rec.exchange_rate := NULL;
4275: END IF;
4276: IF p_line_util_rec.exchange_rate IS NULL THEN
4277: x_complete_rec.exchange_rate := l_line_util_rec.exchange_rate;
4276: IF p_line_util_rec.exchange_rate IS NULL THEN
4277: x_complete_rec.exchange_rate := l_line_util_rec.exchange_rate;
4278: END IF;
4279:
4280: IF p_line_util_rec.acctd_amount = FND_API.G_MISS_NUM THEN
4281: x_complete_rec.acctd_amount := NULL;
4282: END IF;
4283: IF p_line_util_rec.acctd_amount IS NULL THEN
4284: x_complete_rec.acctd_amount := l_line_util_rec.acctd_amount;
4283: IF p_line_util_rec.acctd_amount IS NULL THEN
4284: x_complete_rec.acctd_amount := l_line_util_rec.acctd_amount;
4285: END IF;
4286: --nepanda : fix for bug # 9508390 - issue # 1
4287: IF p_line_util_rec.util_curr_amount = FND_API.G_MISS_NUM THEN
4288: x_complete_rec.util_curr_amount := NULL;
4289: END IF;
4290: IF p_line_util_rec.util_curr_amount IS NULL THEN
4291: x_complete_rec.util_curr_amount := l_line_util_rec.util_curr_amount;
4289: END IF;
4290: IF p_line_util_rec.util_curr_amount IS NULL THEN
4291: x_complete_rec.util_curr_amount := l_line_util_rec.util_curr_amount;
4292: END IF;
4293: IF p_line_util_rec.univ_curr_amount = FND_API.G_MISS_NUM THEN
4294: x_complete_rec.univ_curr_amount := NULL;
4295: END IF;
4296: IF p_line_util_rec.univ_curr_amount IS NULL THEN
4297: x_complete_rec.univ_curr_amount := l_line_util_rec.univ_curr_amount;
4295: END IF;
4296: IF p_line_util_rec.univ_curr_amount IS NULL THEN
4297: x_complete_rec.univ_curr_amount := l_line_util_rec.univ_curr_amount;
4298: END IF;
4299: IF p_line_util_rec.plan_curr_amount = FND_API.G_MISS_NUM THEN
4300: x_complete_rec.plan_curr_amount := NULL;
4301: END IF;
4302: IF p_line_util_rec.plan_curr_amount IS NULL THEN
4303: x_complete_rec.plan_curr_amount := l_line_util_rec.plan_curr_amount;
4301: END IF;
4302: IF p_line_util_rec.plan_curr_amount IS NULL THEN
4303: x_complete_rec.plan_curr_amount := l_line_util_rec.plan_curr_amount;
4304: END IF;
4305: IF p_line_util_rec.scan_unit = FND_API.G_MISS_NUM THEN
4306: x_complete_rec.scan_unit := NULL;
4307: END IF;
4308: IF p_line_util_rec.scan_unit IS NULL THEN
4309: x_complete_rec.scan_unit := l_line_util_rec.scan_unit;
4308: IF p_line_util_rec.scan_unit IS NULL THEN
4309: x_complete_rec.scan_unit := l_line_util_rec.scan_unit;
4310: END IF;
4311:
4312: IF p_line_util_rec.activity_product_id = FND_API.G_MISS_NUM THEN
4313: x_complete_rec.activity_product_id := NULL;
4314: END IF;
4315: IF p_line_util_rec.activity_product_id IS NULL THEN
4316: x_complete_rec.activity_product_id := l_line_util_rec.activity_product_id;
4315: IF p_line_util_rec.activity_product_id IS NULL THEN
4316: x_complete_rec.activity_product_id := l_line_util_rec.activity_product_id;
4317: END IF;
4318:
4319: IF p_line_util_rec.uom_code = FND_API.G_MISS_CHAR THEN
4320: x_complete_rec.uom_code := NULL;
4321: END IF;
4322: IF p_line_util_rec.uom_code IS NULL THEN
4323: x_complete_rec.uom_code := l_line_util_rec.uom_code;
4322: IF p_line_util_rec.uom_code IS NULL THEN
4323: x_complete_rec.uom_code := l_line_util_rec.uom_code;
4324: END IF;
4325:
4326: IF p_line_util_rec.quantity = FND_API.G_MISS_NUM THEN
4327: x_complete_rec.quantity := NULL;
4328: END IF;
4329: IF p_line_util_rec.quantity IS NULL THEN
4330: x_complete_rec.quantity := l_line_util_rec.quantity;
4329: IF p_line_util_rec.quantity IS NULL THEN
4330: x_complete_rec.quantity := l_line_util_rec.quantity;
4331: END IF;
4332:
4333: IF p_line_util_rec.org_id = FND_API.G_MISS_NUM THEN
4334: x_complete_rec.org_id := NULL;
4335: END IF;
4336: IF p_line_util_rec.org_id IS NULL THEN
4337: x_complete_rec.org_id := l_line_util_rec.org_id;
4336: IF p_line_util_rec.org_id IS NULL THEN
4337: x_complete_rec.org_id := l_line_util_rec.org_id;
4338: END IF;
4339:
4340: IF p_line_util_rec.fxgl_acctd_amount = FND_API.G_MISS_NUM THEN
4341: x_complete_rec.fxgl_acctd_amount := NULL;
4342: END IF;
4343: IF p_line_util_rec.fxgl_acctd_amount IS NULL THEN
4344: x_complete_rec.fxgl_acctd_amount := l_line_util_rec.fxgl_acctd_amount;
4344: x_complete_rec.fxgl_acctd_amount := l_line_util_rec.fxgl_acctd_amount;
4345: END IF;
4346:
4347:
4348: IF p_line_util_rec.utilized_acctd_amount = FND_API.G_MISS_NUM THEN
4349: x_complete_rec.utilized_acctd_amount := NULL;
4350: END IF;
4351: IF p_line_util_rec.utilized_acctd_amount IS NULL THEN
4352: x_complete_rec.utilized_acctd_amount := l_line_util_rec.utilized_acctd_amount;
4421: WHERE org.set_of_books_id = gs.set_of_books_id
4422: AND org.org_id = MO_GLOBAL.GET_CURRENT_ORG_ID();
4423:
4424: BEGIN
4425: x_performance_flag := FND_API.g_true;
4426:
4427: OPEN csr_offer_perfs(p_offer_id);
4428: LOOP
4429: FETCH csr_offer_perfs INTO l_offer_performance_id
4489:
4490: IF l_requirement_type = 'VOLUME' THEN
4491: IF l_uom_code = l_common_uom_code THEN
4492: IF l_common_quantity < l_requirement_value THEN
4493: l_performance_flag := FND_API.g_false;
4494: END IF;
4495: ELSE
4496: l_requirement_value := inv_convert.inv_um_convert(
4497: item_id => NULL
4506: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4507: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CANT_CONVERT_UOM');
4508: FND_MSG_PUB.add;
4509: END IF;
4510: RAISE FND_API.g_exc_error;
4511: END IF;
4512:
4513: IF l_common_quantity < l_requirement_value THEN
4514: l_performance_flag := FND_API.g_false;
4510: RAISE FND_API.g_exc_error;
4511: END IF;
4512:
4513: IF l_common_quantity < l_requirement_value THEN
4514: l_performance_flag := FND_API.g_false;
4515: END IF;
4516: END IF;
4517: ELSIF l_requirement_type = 'AMOUNT' THEN
4518: l_offer_currency := OZF_ACTBUDGETS_PVT.Get_Object_Currency(
4519: p_object => 'OFFR'
4520: ,p_object_id => p_offer_id
4521: ,x_return_status => l_return_status
4522: );
4523: IF l_return_status = FND_API.g_ret_sts_error THEN
4524: RAISE FND_API.g_exc_error;
4525: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4526: RAISE FND_API.g_exc_unexpected_error;
4527: END IF;
4520: ,p_object_id => p_offer_id
4521: ,x_return_status => l_return_status
4522: );
4523: IF l_return_status = FND_API.g_ret_sts_error THEN
4524: RAISE FND_API.g_exc_error;
4525: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4526: RAISE FND_API.g_exc_unexpected_error;
4527: END IF;
4528:
4521: ,x_return_status => l_return_status
4522: );
4523: IF l_return_status = FND_API.g_ret_sts_error THEN
4524: RAISE FND_API.g_exc_error;
4525: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4526: RAISE FND_API.g_exc_unexpected_error;
4527: END IF;
4528:
4529: IF l_offer_currency = l_common_curr_code THEN
4522: );
4523: IF l_return_status = FND_API.g_ret_sts_error THEN
4524: RAISE FND_API.g_exc_error;
4525: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4526: RAISE FND_API.g_exc_unexpected_error;
4527: END IF;
4528:
4529: IF l_offer_currency = l_common_curr_code THEN
4530: IF l_common_amount < l_requirement_value THEN
4527: END IF;
4528:
4529: IF l_offer_currency = l_common_curr_code THEN
4530: IF l_common_amount < l_requirement_value THEN
4531: l_performance_flag := FND_API.g_false;
4532: END IF;
4533: ELSE
4534: OZF_UTILITY_PVT.Convert_Currency(
4535: p_from_currency => l_offer_currency
4538: ,p_from_amount => l_requirement_value
4539: ,x_return_status => l_return_status
4540: ,x_to_amount => l_comm_curr_req_amt
4541: );
4542: IF l_return_status = FND_API.g_ret_sts_error THEN
4543: RAISE FND_API.g_exc_error;
4544: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4545: RAISE FND_API.g_exc_unexpected_error;
4546: END IF;
4539: ,x_return_status => l_return_status
4540: ,x_to_amount => l_comm_curr_req_amt
4541: );
4542: IF l_return_status = FND_API.g_ret_sts_error THEN
4543: RAISE FND_API.g_exc_error;
4544: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4545: RAISE FND_API.g_exc_unexpected_error;
4546: END IF;
4547:
4540: ,x_to_amount => l_comm_curr_req_amt
4541: );
4542: IF l_return_status = FND_API.g_ret_sts_error THEN
4543: RAISE FND_API.g_exc_error;
4544: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4545: RAISE FND_API.g_exc_unexpected_error;
4546: END IF;
4547:
4548: IF l_common_amount < l_comm_curr_req_amt THEN
4541: );
4542: IF l_return_status = FND_API.g_ret_sts_error THEN
4543: RAISE FND_API.g_exc_error;
4544: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4545: RAISE FND_API.g_exc_unexpected_error;
4546: END IF;
4547:
4548: IF l_common_amount < l_comm_curr_req_amt THEN
4549: l_performance_flag := FND_API.g_false;
4545: RAISE FND_API.g_exc_unexpected_error;
4546: END IF;
4547:
4548: IF l_common_amount < l_comm_curr_req_amt THEN
4549: l_performance_flag := FND_API.g_false;
4550: END IF;
4551: END IF;
4552: END IF;
4553: ELSE
4554: -- no rows returned
4555: IF OZF_DEBUG_HIGH_ON THEN
4556: OZF_Utility_PVT.debug_message('No sales transactions found');
4557: END IF;
4558: l_performance_flag := FND_API.g_false;
4559: END IF;
4560: DBMS_SQL.close_cursor(l_emp_csr);
4561:
4562: ELSE
4608:
4609: IF l_requirement_type = 'VOLUME' THEN
4610: IF l_uom_code = l_common_uom_code THEN
4611: IF l_common_quantity < l_requirement_value THEN
4612: l_performance_flag := FND_API.g_false;
4613: END IF;
4614: ELSE
4615: l_requirement_value := inv_convert.inv_um_convert(
4616: item_id => NULL
4625: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4626: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CANT_CONVERT_UOM');
4627: FND_MSG_PUB.add;
4628: END IF;
4629: RAISE FND_API.g_exc_error;
4630: END IF;
4631:
4632: IF l_common_quantity < l_requirement_value THEN
4633: l_performance_flag := FND_API.g_false;
4629: RAISE FND_API.g_exc_error;
4630: END IF;
4631:
4632: IF l_common_quantity < l_requirement_value THEN
4633: l_performance_flag := FND_API.g_false;
4634: END IF;
4635: END IF;
4636: ELSIF l_requirement_type = 'AMOUNT' THEN
4637: l_offer_currency := OZF_ACTBUDGETS_PVT.Get_Object_Currency(
4638: p_object => 'OFFR'
4639: ,p_object_id => p_offer_id
4640: ,x_return_status => l_return_status
4641: );
4642: IF l_return_status = FND_API.g_ret_sts_error THEN
4643: RAISE FND_API.g_exc_error;
4644: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4645: RAISE FND_API.g_exc_unexpected_error;
4646: END IF;
4639: ,p_object_id => p_offer_id
4640: ,x_return_status => l_return_status
4641: );
4642: IF l_return_status = FND_API.g_ret_sts_error THEN
4643: RAISE FND_API.g_exc_error;
4644: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4645: RAISE FND_API.g_exc_unexpected_error;
4646: END IF;
4647:
4640: ,x_return_status => l_return_status
4641: );
4642: IF l_return_status = FND_API.g_ret_sts_error THEN
4643: RAISE FND_API.g_exc_error;
4644: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4645: RAISE FND_API.g_exc_unexpected_error;
4646: END IF;
4647:
4648: OPEN csr_function_currency;
4641: );
4642: IF l_return_status = FND_API.g_ret_sts_error THEN
4643: RAISE FND_API.g_exc_error;
4644: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4645: RAISE FND_API.g_exc_unexpected_error;
4646: END IF;
4647:
4648: OPEN csr_function_currency;
4649: FETCH csr_function_currency INTO l_common_curr_code;
4650: CLOSE csr_function_currency;
4651:
4652: IF l_offer_currency = l_common_curr_code THEN
4653: IF l_common_amount < l_requirement_value THEN
4654: l_performance_flag := FND_API.g_false;
4655: END IF;
4656: ELSE
4657: OZF_UTILITY_PVT.Convert_Currency(
4658: p_from_currency => l_offer_currency
4661: ,p_from_amount => l_requirement_value
4662: ,x_return_status => l_return_status
4663: ,x_to_amount => l_comm_curr_req_amt
4664: );
4665: IF l_return_status = FND_API.g_ret_sts_error THEN
4666: RAISE FND_API.g_exc_error;
4667: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4668: RAISE FND_API.g_exc_unexpected_error;
4669: END IF;
4662: ,x_return_status => l_return_status
4663: ,x_to_amount => l_comm_curr_req_amt
4664: );
4665: IF l_return_status = FND_API.g_ret_sts_error THEN
4666: RAISE FND_API.g_exc_error;
4667: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4668: RAISE FND_API.g_exc_unexpected_error;
4669: END IF;
4670:
4663: ,x_to_amount => l_comm_curr_req_amt
4664: );
4665: IF l_return_status = FND_API.g_ret_sts_error THEN
4666: RAISE FND_API.g_exc_error;
4667: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4668: RAISE FND_API.g_exc_unexpected_error;
4669: END IF;
4670:
4671: IF l_common_amount < l_comm_curr_req_amt THEN
4664: );
4665: IF l_return_status = FND_API.g_ret_sts_error THEN
4666: RAISE FND_API.g_exc_error;
4667: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4668: RAISE FND_API.g_exc_unexpected_error;
4669: END IF;
4670:
4671: IF l_common_amount < l_comm_curr_req_amt THEN
4672: l_performance_flag := FND_API.g_false;
4668: RAISE FND_API.g_exc_unexpected_error;
4669: END IF;
4670:
4671: IF l_common_amount < l_comm_curr_req_amt THEN
4672: l_performance_flag := FND_API.g_false;
4673: END IF;
4674: END IF;
4675: END IF;
4676: ELSE
4677: -- no rows returned
4678: IF OZF_DEBUG_HIGH_ON THEN
4679: OZF_Utility_PVT.debug_message('No sales transactions found');
4680: END IF;
4681: l_performance_flag := FND_API.g_false;
4682: END IF;
4683: DBMS_SQL.close_cursor(l_emp_csr);
4684:
4685: END IF;
4684:
4685: END IF;
4686:
4687: IF l_performance_flag = 'F' THEN
4688: x_performance_flag := FND_API.g_false;
4689:
4690: l_counter := l_counter + 1;
4691: l_offer_perf_tbl(l_counter).offer_id := p_offer_id;
4692: l_offer_perf_tbl(l_counter).offer_performance_id := l_offer_performance_id;
4750: BEGIN
4751: --------------------- initialize -----------------------
4752: SAVEPOINT Settle_Claim;
4753:
4754: x_return_status := FND_API.g_ret_sts_success;
4755:
4756: ----------------- start ----------------
4757: OPEN csr_claim_info(l_claim_id);
4758: FETCH csr_claim_info into l_object_version_number, l_sales_rep_id;
4781: END IF;
4782:
4783: OZF_claim_PVT.Update_claim(
4784: P_Api_Version => l_api_version,
4785: P_Init_Msg_List => FND_API.g_false,
4786: P_Commit => FND_API.g_false,
4787: P_Validation_Level => FND_API.g_valid_level_full,
4788: X_Return_Status => l_return_status,
4789: X_Msg_Count => x_msg_count,
4782:
4783: OZF_claim_PVT.Update_claim(
4784: P_Api_Version => l_api_version,
4785: P_Init_Msg_List => FND_API.g_false,
4786: P_Commit => FND_API.g_false,
4787: P_Validation_Level => FND_API.g_valid_level_full,
4788: X_Return_Status => l_return_status,
4789: X_Msg_Count => x_msg_count,
4790: X_Msg_Data => x_msg_data,
4783: OZF_claim_PVT.Update_claim(
4784: P_Api_Version => l_api_version,
4785: P_Init_Msg_List => FND_API.g_false,
4786: P_Commit => FND_API.g_false,
4787: P_Validation_Level => FND_API.g_valid_level_full,
4788: X_Return_Status => l_return_status,
4789: X_Msg_Count => x_msg_count,
4790: X_Msg_Data => x_msg_data,
4791: P_claim => l_claim_Rec,
4792: p_event => 'UPDATE',
4793: p_mode => OZF_claim_Utility_pvt.G_AUTO_MODE,
4794: X_Object_Version_Number => l_object_version_number
4795: );
4796: IF l_return_status = FND_API.g_ret_sts_error THEN
4797: RAISE FND_API.g_exc_error;
4798: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4799: RAISE FND_API.g_exc_unexpected_error;
4800: END IF;
4793: p_mode => OZF_claim_Utility_pvt.G_AUTO_MODE,
4794: X_Object_Version_Number => l_object_version_number
4795: );
4796: IF l_return_status = FND_API.g_ret_sts_error THEN
4797: RAISE FND_API.g_exc_error;
4798: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4799: RAISE FND_API.g_exc_unexpected_error;
4800: END IF;
4801:
4794: X_Object_Version_Number => l_object_version_number
4795: );
4796: IF l_return_status = FND_API.g_ret_sts_error THEN
4797: RAISE FND_API.g_exc_error;
4798: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4799: RAISE FND_API.g_exc_unexpected_error;
4800: END IF;
4801:
4802: EXCEPTION
4795: );
4796: IF l_return_status = FND_API.g_ret_sts_error THEN
4797: RAISE FND_API.g_exc_error;
4798: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4799: RAISE FND_API.g_exc_unexpected_error;
4800: END IF;
4801:
4802: EXCEPTION
4803: WHEN FND_API.g_exc_error THEN
4799: RAISE FND_API.g_exc_unexpected_error;
4800: END IF;
4801:
4802: EXCEPTION
4803: WHEN FND_API.g_exc_error THEN
4804: ROLLBACK TO Settle_Claim;
4805: x_return_status := FND_API.g_ret_sts_error;
4806: WHEN FND_API.g_exc_unexpected_error THEN
4807: ROLLBACK TO Settle_Claim;
4801:
4802: EXCEPTION
4803: WHEN FND_API.g_exc_error THEN
4804: ROLLBACK TO Settle_Claim;
4805: x_return_status := FND_API.g_ret_sts_error;
4806: WHEN FND_API.g_exc_unexpected_error THEN
4807: ROLLBACK TO Settle_Claim;
4808: x_return_status := FND_API.g_ret_sts_unexp_error ;
4809: WHEN OTHERS THEN
4802: EXCEPTION
4803: WHEN FND_API.g_exc_error THEN
4804: ROLLBACK TO Settle_Claim;
4805: x_return_status := FND_API.g_ret_sts_error;
4806: WHEN FND_API.g_exc_unexpected_error THEN
4807: ROLLBACK TO Settle_Claim;
4808: x_return_status := FND_API.g_ret_sts_unexp_error ;
4809: WHEN OTHERS THEN
4810: ROLLBACK TO Settle_Claim;
4804: ROLLBACK TO Settle_Claim;
4805: x_return_status := FND_API.g_ret_sts_error;
4806: WHEN FND_API.g_exc_unexpected_error THEN
4807: ROLLBACK TO Settle_Claim;
4808: x_return_status := FND_API.g_ret_sts_unexp_error ;
4809: WHEN OTHERS THEN
4810: ROLLBACK TO Settle_Claim;
4811: x_return_status := FND_API.g_ret_sts_unexp_error ;
4812: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
4807: ROLLBACK TO Settle_Claim;
4808: x_return_status := FND_API.g_ret_sts_unexp_error ;
4809: WHEN OTHERS THEN
4810: ROLLBACK TO Settle_Claim;
4811: x_return_status := FND_API.g_ret_sts_unexp_error ;
4812: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
4813: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
4814: END IF;
4815: END Settle_Claim;
4832: --
4833: -----------------------------------------------------------------------------------------
4834: PROCEDURE Create_Claim_For_Accruals(
4835: p_api_version IN NUMBER
4836: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
4837: ,p_commit IN VARCHAR2 := FND_API.g_false
4838: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
4839:
4840: ,x_return_status OUT NOCOPY VARCHAR2
4833: -----------------------------------------------------------------------------------------
4834: PROCEDURE Create_Claim_For_Accruals(
4835: p_api_version IN NUMBER
4836: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
4837: ,p_commit IN VARCHAR2 := FND_API.g_false
4838: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
4839:
4840: ,x_return_status OUT NOCOPY VARCHAR2
4841: ,x_msg_count OUT NOCOPY NUMBER
4834: PROCEDURE Create_Claim_For_Accruals(
4835: p_api_version IN NUMBER
4836: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
4837: ,p_commit IN VARCHAR2 := FND_API.g_false
4838: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
4839:
4840: ,x_return_status OUT NOCOPY VARCHAR2
4841: ,x_msg_count OUT NOCOPY NUMBER
4842: ,x_msg_data OUT NOCOPY VARCHAR2
4861: l_product_level_type VARCHAR2(30);
4862: l_product_id NUMBER;
4863: l_amount NUMBER;
4864: l_total_acctd_amount_rem NUMBER;
4865: l_performance_flag VARCHAR2(1) := FND_API.g_true;
4866:
4867: l_emp_csr NUMBER;
4868: l_stmt VARCHAR2(3000);
4869: l_ignore NUMBER;
4941: FROM gl_sets_of_books gs
4942: , ozf_sys_parameters org
4943: WHERE org.set_of_books_id = gs.set_of_books_id
4944: AND org.org_id = l_currOrgId;
4945: l_exchange_rate_type VARCHAR2(30) := FND_API.G_MISS_CHAR;
4946: l_rate NUMBER;
4947:
4948: BEGIN
4949: --------------------- initialize -----------------------
4953: OZF_Utility_PVT.debug_message(l_full_name||': start');
4954: OZF_Utility_PVT.debug_message('l_claim_rec.claim_number : ' || l_claim_rec.claim_number);
4955: END IF;
4956:
4957: IF FND_API.to_boolean(p_init_msg_list) THEN
4958: FND_MSG_PUB.initialize;
4959: END IF;
4960:
4961: IF NOT FND_API.compatible_api_call(
4957: IF FND_API.to_boolean(p_init_msg_list) THEN
4958: FND_MSG_PUB.initialize;
4959: END IF;
4960:
4961: IF NOT FND_API.compatible_api_call(
4962: l_api_version,
4963: p_api_version,
4964: l_api_name,
4965: g_pkg_name
4964: l_api_name,
4965: g_pkg_name
4966: )
4967: THEN
4968: RAISE FND_API.g_exc_unexpected_error;
4969: END IF;
4970:
4971: x_return_status := FND_API.g_ret_sts_success;
4972:
4967: THEN
4968: RAISE FND_API.g_exc_unexpected_error;
4969: END IF;
4970:
4971: x_return_status := FND_API.g_ret_sts_success;
4972:
4973: -------------------- start -------------------
4974: l_funds_util_flt := p_funds_util_flt;
4975: l_total_acctd_amount_rem := 0;
5008: END IF;
5009:
5010: Get_Utiz_Sql_Stmt(
5011: p_api_version => 1.0
5012: ,p_init_msg_list => FND_API.g_false
5013: ,p_commit => FND_API.g_false
5014: ,p_validation_level => FND_API.g_valid_level_full
5015: ,x_return_status => l_return_status
5016: ,x_msg_count => x_msg_count
5009:
5010: Get_Utiz_Sql_Stmt(
5011: p_api_version => 1.0
5012: ,p_init_msg_list => FND_API.g_false
5013: ,p_commit => FND_API.g_false
5014: ,p_validation_level => FND_API.g_valid_level_full
5015: ,x_return_status => l_return_status
5016: ,x_msg_count => x_msg_count
5017: ,x_msg_data => x_msg_data
5010: Get_Utiz_Sql_Stmt(
5011: p_api_version => 1.0
5012: ,p_init_msg_list => FND_API.g_false
5013: ,p_commit => FND_API.g_false
5014: ,p_validation_level => FND_API.g_valid_level_full
5015: ,x_return_status => l_return_status
5016: ,x_msg_count => x_msg_count
5017: ,x_msg_data => x_msg_data
5018: ,p_summary_view => 'AUTOPAY_LINE'
5021: ,p_cust_account_id => l_funds_util_flt.cust_account_id
5022: ,x_utiz_sql_stmt => l_stmt
5023: );
5024:
5025: IF l_return_status = FND_API.g_ret_sts_error THEN
5026: RAISE FND_API.g_exc_error;
5027: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5028: RAISE FND_API.g_exc_error;
5029: END IF;
5022: ,x_utiz_sql_stmt => l_stmt
5023: );
5024:
5025: IF l_return_status = FND_API.g_ret_sts_error THEN
5026: RAISE FND_API.g_exc_error;
5027: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5028: RAISE FND_API.g_exc_error;
5029: END IF;
5030:
5023: );
5024:
5025: IF l_return_status = FND_API.g_ret_sts_error THEN
5026: RAISE FND_API.g_exc_error;
5027: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5028: RAISE FND_API.g_exc_error;
5029: END IF;
5030:
5031: l_emp_csr := DBMS_SQL.open_cursor;
5024:
5025: IF l_return_status = FND_API.g_ret_sts_error THEN
5026: RAISE FND_API.g_exc_error;
5027: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5028: RAISE FND_API.g_exc_error;
5029: END IF;
5030:
5031: l_emp_csr := DBMS_SQL.open_cursor;
5032: FND_DSQL.set_cursor(l_emp_csr);
5080: ,x_return_status => l_return_status
5081: ,x_to_amount => l_amount -- amount in claim currency
5082: ,x_rate => l_rate
5083: );
5084: IF l_return_status = FND_API.g_ret_sts_error THEN
5085: RAISE FND_API.g_exc_error;
5086: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5087: RAISE FND_API.g_exc_unexpected_error;
5088: END IF;
5081: ,x_to_amount => l_amount -- amount in claim currency
5082: ,x_rate => l_rate
5083: );
5084: IF l_return_status = FND_API.g_ret_sts_error THEN
5085: RAISE FND_API.g_exc_error;
5086: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5087: RAISE FND_API.g_exc_unexpected_error;
5088: END IF;
5089: /*
5082: ,x_rate => l_rate
5083: );
5084: IF l_return_status = FND_API.g_ret_sts_error THEN
5085: RAISE FND_API.g_exc_error;
5086: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5087: RAISE FND_API.g_exc_unexpected_error;
5088: END IF;
5089: /*
5090: --END IF;
5083: );
5084: IF l_return_status = FND_API.g_ret_sts_error THEN
5085: RAISE FND_API.g_exc_error;
5086: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5087: RAISE FND_API.g_exc_unexpected_error;
5088: END IF;
5089: /*
5090: --END IF;
5091: --Bug# 7319828 fixed by ateotia(-)
5138: OZF_Utility_PVT.debug_message('l_funds_util_flt.bill_to_site_use_id : ' || l_funds_util_flt.bill_to_site_use_id);
5139: OZF_Utility_PVT.debug_message('l_funds_util_flt.utiz_currency_code : ' || l_funds_util_flt.utiz_currency_code);
5140: END IF;
5141: -- The Claim Created From Autopay should be grouped based on Currency Code Also - kpatro
5142: IF l_performance_flag = FND_API.g_true THEN
5143: IF l_bill_to_site_id IS NOT NULL
5144: AND l_bill_to_site_id = l_funds_util_flt.bill_to_site_use_id
5145: AND l_currency_code = l_funds_util_flt.utiz_currency_code -- Added the check for Multi Currency - kpatro
5146: THEN --nirma
5167: FND_MESSAGE.Set_Name('OZF', 'OZF_PRODUCT_UOM_MISSING');
5168: FND_MESSAGE.Set_Token('ITEM_ID', l_line_tbl(l_counter).item_id);
5169: FND_MSG_PUB.ADD;
5170: END IF;
5171: RAISE FND_API.g_exc_unexpected_error;
5172: END IF;
5173: CLOSE csr_uom_code;
5174: END IF;
5175: /*
5188: FETCH csr_offer_perf INTO l_dummy;
5189: CLOSE csr_offer_perf;
5190:
5191: IF l_dummy = 1 THEN
5192: l_line_tbl(l_counter).performance_attached_flag := FND_API.G_TRUE;
5193: l_line_tbl(l_counter).performance_complete_flag := FND_API.G_TRUE;
5194: END IF;
5195: END IF;
5196:
5189: CLOSE csr_offer_perf;
5190:
5191: IF l_dummy = 1 THEN
5192: l_line_tbl(l_counter).performance_attached_flag := FND_API.G_TRUE;
5193: l_line_tbl(l_counter).performance_complete_flag := FND_API.G_TRUE;
5194: END IF;
5195: END IF;
5196:
5197: l_counter := l_counter + 1;
5220: FND_MESSAGE.Set_Name('OZF', 'OZF_PRODUCT_UOM_MISSING');
5221: FND_MESSAGE.Set_Token('ITEM_ID', l_line_tbl(l_counter).item_id);
5222: FND_MSG_PUB.ADD;
5223: END IF;
5224: RAISE FND_API.g_exc_unexpected_error;
5225: END IF;
5226: CLOSE csr_uom_code;
5227: END IF;
5228:
5237: FETCH csr_offer_perf INTO l_dummy;
5238: CLOSE csr_offer_perf;
5239:
5240: IF l_dummy = 1 THEN
5241: l_line_tbl(l_counter).performance_attached_flag := FND_API.G_TRUE;
5242: l_line_tbl(l_counter).performance_complete_flag := FND_API.G_TRUE;
5243: END IF;
5244: END IF;
5245:
5238: CLOSE csr_offer_perf;
5239:
5240: IF l_dummy = 1 THEN
5241: l_line_tbl(l_counter).performance_attached_flag := FND_API.G_TRUE;
5242: l_line_tbl(l_counter).performance_complete_flag := FND_API.G_TRUE;
5243: END IF;
5244: END IF;
5245:
5246: l_counter := l_counter + 1;
5292: ,x_msg_count => x_msg_count
5293: ,p_claim => l_claim_rec
5294: ,x_claim_id => l_claim_id
5295: );
5296: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5297: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5298: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5299: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5300: END IF;
5293: ,p_claim => l_claim_rec
5294: ,x_claim_id => l_claim_id
5295: );
5296: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5297: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5298: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5299: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5300: END IF;
5301:
5294: ,x_claim_id => l_claim_id
5295: );
5296: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5297: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5298: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5299: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5300: END IF;
5301:
5302: IF OZF_DEBUG_HIGH_ON THEN
5295: );
5296: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5297: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5298: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5299: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5300: END IF;
5301:
5302: IF OZF_DEBUG_HIGH_ON THEN
5303: OZF_Utility_PVT.debug_message('Claim created id: ' || l_claim_id);
5312: END IF;
5313:
5314: OZF_CLAIM_LINE_PVT.Create_Claim_Line_Tbl(
5315: p_api_version => 1.0
5316: ,p_init_msg_list => FND_API.g_false
5317: ,p_commit => FND_API.g_false
5318: ,p_validation_level => FND_API.g_valid_level_full
5319: ,x_return_status => l_return_status
5320: ,x_msg_count => x_msg_count
5313:
5314: OZF_CLAIM_LINE_PVT.Create_Claim_Line_Tbl(
5315: p_api_version => 1.0
5316: ,p_init_msg_list => FND_API.g_false
5317: ,p_commit => FND_API.g_false
5318: ,p_validation_level => FND_API.g_valid_level_full
5319: ,x_return_status => l_return_status
5320: ,x_msg_count => x_msg_count
5321: ,x_msg_data => x_msg_data
5314: OZF_CLAIM_LINE_PVT.Create_Claim_Line_Tbl(
5315: p_api_version => 1.0
5316: ,p_init_msg_list => FND_API.g_false
5317: ,p_commit => FND_API.g_false
5318: ,p_validation_level => FND_API.g_valid_level_full
5319: ,x_return_status => l_return_status
5320: ,x_msg_count => x_msg_count
5321: ,x_msg_data => x_msg_data
5322: ,p_claim_line_tbl => l_line_tbl
5321: ,x_msg_data => x_msg_data
5322: ,p_claim_line_tbl => l_line_tbl
5323: ,x_error_index => l_error_index
5324: );
5325: IF l_return_status = FND_API.g_ret_sts_error THEN
5326: RAISE FND_API.g_exc_error;
5327: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5328: RAISE FND_API.g_exc_error;
5329: END IF;
5322: ,p_claim_line_tbl => l_line_tbl
5323: ,x_error_index => l_error_index
5324: );
5325: IF l_return_status = FND_API.g_ret_sts_error THEN
5326: RAISE FND_API.g_exc_error;
5327: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5328: RAISE FND_API.g_exc_error;
5329: END IF;
5330:
5323: ,x_error_index => l_error_index
5324: );
5325: IF l_return_status = FND_API.g_ret_sts_error THEN
5326: RAISE FND_API.g_exc_error;
5327: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5328: RAISE FND_API.g_exc_error;
5329: END IF;
5330:
5331: IF OZF_DEBUG_HIGH_ON THEN
5324: );
5325: IF l_return_status = FND_API.g_ret_sts_error THEN
5326: RAISE FND_API.g_exc_error;
5327: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5328: RAISE FND_API.g_exc_error;
5329: END IF;
5330:
5331: IF OZF_DEBUG_HIGH_ON THEN
5332: OZF_Utility_PVT.debug_message('Claim lines created for claim_id=' || l_claim_id);
5343: EXIT WHEN csr_claim_line%NOTFOUND;
5344:
5345: Update_Group_Line_Util(
5346: p_api_version => 1.0
5347: ,p_init_msg_list => FND_API.g_false
5348: ,p_commit => FND_API.g_false
5349: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
5350: ,x_return_status => l_return_status
5351: ,x_msg_count => x_msg_count
5344:
5345: Update_Group_Line_Util(
5346: p_api_version => 1.0
5347: ,p_init_msg_list => FND_API.g_false
5348: ,p_commit => FND_API.g_false
5349: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
5350: ,x_return_status => l_return_status
5351: ,x_msg_count => x_msg_count
5352: ,x_msg_data => x_msg_data
5345: Update_Group_Line_Util(
5346: p_api_version => 1.0
5347: ,p_init_msg_list => FND_API.g_false
5348: ,p_commit => FND_API.g_false
5349: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
5350: ,x_return_status => l_return_status
5351: ,x_msg_count => x_msg_count
5352: ,x_msg_data => x_msg_data
5353: ,p_summary_view => 'ACTIVITY'
5352: ,x_msg_data => x_msg_data
5353: ,p_summary_view => 'ACTIVITY'
5354: ,p_funds_util_flt => l_funds_util_flt
5355: );
5356: IF l_return_status = FND_API.g_ret_sts_error THEN
5357: RAISE FND_API.g_exc_error;
5358: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5359: RAISE FND_API.g_exc_error;
5360: END IF;
5353: ,p_summary_view => 'ACTIVITY'
5354: ,p_funds_util_flt => l_funds_util_flt
5355: );
5356: IF l_return_status = FND_API.g_ret_sts_error THEN
5357: RAISE FND_API.g_exc_error;
5358: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5359: RAISE FND_API.g_exc_error;
5360: END IF;
5361: END LOOP;
5354: ,p_funds_util_flt => l_funds_util_flt
5355: );
5356: IF l_return_status = FND_API.g_ret_sts_error THEN
5357: RAISE FND_API.g_exc_error;
5358: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5359: RAISE FND_API.g_exc_error;
5360: END IF;
5361: END LOOP;
5362: CLOSE csr_claim_line;
5355: );
5356: IF l_return_status = FND_API.g_ret_sts_error THEN
5357: RAISE FND_API.g_exc_error;
5358: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5359: RAISE FND_API.g_exc_error;
5360: END IF;
5361: END LOOP;
5362: CLOSE csr_claim_line;
5363: ELSIF l_claim_rec.created_from = 'PROMO_CLAIM' and l_claim_rec.amount <> 0 THEN
5370: FND_MESSAGE.Set_Name('OZF', 'OZF_ACCRUAL_SCAN_DATA_ERROR');
5371: FND_MSG_PUB.ADD;
5372: END IF;
5373:
5374: RAISE FND_API.g_exc_unexpected_error;
5375: ELSIF l_claim_rec.created_from <> 'PROMO_CLAIM' THEN
5376: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5377: FND_MESSAGE.Set_Name('OZF', 'OZF_ACCRUAL_REM_AMOUNT_LT_ZERO');
5378: FND_MSG_PUB.ADD;
5376: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5377: FND_MESSAGE.Set_Name('OZF', 'OZF_ACCRUAL_REM_AMOUNT_LT_ZERO');
5378: FND_MSG_PUB.ADD;
5379: END IF;
5380: RAISE FND_API.g_exc_unexpected_error;
5381:
5382: END IF;
5383:
5384: x_claim_id := l_claim_id;
5384: x_claim_id := l_claim_id;
5385:
5386: ------------------------- finish -------------------------------
5387: -- Check for commit
5388: IF FND_API.to_boolean(p_commit) THEN
5389: COMMIT;
5390: END IF;
5391:
5392: FND_MSG_PUB.count_and_get(
5389: COMMIT;
5390: END IF;
5391:
5392: FND_MSG_PUB.count_and_get(
5393: p_encoded => FND_API.g_false,
5394: p_count => x_msg_count,
5395: p_data => x_msg_data
5396: );
5397:
5399: OZF_Utility_PVT.debug_message(l_full_name ||': end');
5400: END IF;
5401:
5402: EXCEPTION
5403: WHEN FND_API.g_exc_error THEN
5404: ROLLBACK TO Create_Claim_For_Accruals;
5405: x_return_status := FND_API.g_ret_sts_error;
5406: FND_MSG_PUB.count_and_get (
5407: p_encoded => FND_API.g_false
5401:
5402: EXCEPTION
5403: WHEN FND_API.g_exc_error THEN
5404: ROLLBACK TO Create_Claim_For_Accruals;
5405: x_return_status := FND_API.g_ret_sts_error;
5406: FND_MSG_PUB.count_and_get (
5407: p_encoded => FND_API.g_false
5408: ,p_count => x_msg_count
5409: ,p_data => x_msg_data
5403: WHEN FND_API.g_exc_error THEN
5404: ROLLBACK TO Create_Claim_For_Accruals;
5405: x_return_status := FND_API.g_ret_sts_error;
5406: FND_MSG_PUB.count_and_get (
5407: p_encoded => FND_API.g_false
5408: ,p_count => x_msg_count
5409: ,p_data => x_msg_data
5410: );
5411:
5408: ,p_count => x_msg_count
5409: ,p_data => x_msg_data
5410: );
5411:
5412: WHEN FND_API.g_exc_unexpected_error THEN
5413: ROLLBACK TO Create_Claim_For_Accruals;
5414: x_return_status := FND_API.g_ret_sts_unexp_error ;
5415: FND_MSG_PUB.count_and_get (
5416: p_encoded => FND_API.g_false
5410: );
5411:
5412: WHEN FND_API.g_exc_unexpected_error THEN
5413: ROLLBACK TO Create_Claim_For_Accruals;
5414: x_return_status := FND_API.g_ret_sts_unexp_error ;
5415: FND_MSG_PUB.count_and_get (
5416: p_encoded => FND_API.g_false
5417: ,p_count => x_msg_count
5418: ,p_data => x_msg_data
5412: WHEN FND_API.g_exc_unexpected_error THEN
5413: ROLLBACK TO Create_Claim_For_Accruals;
5414: x_return_status := FND_API.g_ret_sts_unexp_error ;
5415: FND_MSG_PUB.count_and_get (
5416: p_encoded => FND_API.g_false
5417: ,p_count => x_msg_count
5418: ,p_data => x_msg_data
5419: );
5420:
5419: );
5420:
5421: WHEN OTHERS THEN
5422: ROLLBACK TO Create_Claim_For_Accruals;
5423: x_return_status := FND_API.g_ret_sts_unexp_error ;
5424: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5425: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
5426: END IF;
5427: FND_MSG_PUB.count_and_get(
5424: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5425: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
5426: END IF;
5427: FND_MSG_PUB.count_and_get(
5428: p_encoded => FND_API.g_false
5429: ,p_count => x_msg_count
5430: ,p_data => x_msg_data
5431: );
5432:
5450: -- Bug# 8632964 fixed.
5451: -------------------------------------------------------------------------------
5452: PROCEDURE Create_Claim_Existing_Accruals(
5453: p_api_version IN NUMBER
5454: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
5455: ,p_commit IN VARCHAR2 := FND_API.g_false
5456: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
5457: ,x_return_status OUT NOCOPY VARCHAR2
5458: ,x_msg_count OUT NOCOPY NUMBER
5451: -------------------------------------------------------------------------------
5452: PROCEDURE Create_Claim_Existing_Accruals(
5453: p_api_version IN NUMBER
5454: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
5455: ,p_commit IN VARCHAR2 := FND_API.g_false
5456: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
5457: ,x_return_status OUT NOCOPY VARCHAR2
5458: ,x_msg_count OUT NOCOPY NUMBER
5459: ,x_msg_data OUT NOCOPY VARCHAR2
5452: PROCEDURE Create_Claim_Existing_Accruals(
5453: p_api_version IN NUMBER
5454: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
5455: ,p_commit IN VARCHAR2 := FND_API.g_false
5456: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
5457: ,x_return_status OUT NOCOPY VARCHAR2
5458: ,x_msg_count OUT NOCOPY NUMBER
5459: ,x_msg_data OUT NOCOPY VARCHAR2
5460: ,p_claim_rec IN ozf_claim_pvt.claim_rec_type
5476: l_product_level_type VARCHAR2(30);
5477: l_product_id NUMBER;
5478: l_amount NUMBER;
5479: l_total_acctd_amount_rem NUMBER;
5480: l_performance_flag VARCHAR2(1) := FND_API.g_true;
5481: l_emp_csr NUMBER;
5482: l_counter PLS_INTEGER := 1;
5483: l_error_index NUMBER;
5484: l_dummy NUMBER;
5575: IF OZF_DEBUG_HIGH_ON THEN
5576: OZF_Utility_PVT.debug_message(l_full_name||': start');
5577: END IF;
5578:
5579: IF FND_API.to_boolean(p_init_msg_list) THEN
5580: FND_MSG_PUB.initialize;
5581: END IF;
5582:
5583: IF NOT FND_API.compatible_api_call(
5579: IF FND_API.to_boolean(p_init_msg_list) THEN
5580: FND_MSG_PUB.initialize;
5581: END IF;
5582:
5583: IF NOT FND_API.compatible_api_call(
5584: l_api_version,
5585: p_api_version,
5586: l_api_name,
5587: g_pkg_name
5586: l_api_name,
5587: g_pkg_name
5588: )
5589: THEN
5590: RAISE FND_API.g_exc_unexpected_error;
5591: END IF;
5592:
5593: x_return_status := FND_API.g_ret_sts_success;
5594:
5589: THEN
5590: RAISE FND_API.g_exc_unexpected_error;
5591: END IF;
5592:
5593: x_return_status := FND_API.g_ret_sts_success;
5594:
5595: -------------------- start -------------------
5596: l_funds_util_flt := p_funds_util_flt;
5597: l_total_acctd_amount_rem := 0;
5643: ,p_from_amount => l_accrual_amount -- accrual amount
5644: ,x_return_status => l_return_status
5645: ,x_to_amount => l_amount -- accrual amount in batch currency
5646: );
5647: IF l_return_status = FND_API.g_ret_sts_error THEN
5648: RAISE FND_API.g_exc_error;
5649: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5650: RAISE FND_API.g_exc_unexpected_error;
5651: END IF;
5644: ,x_return_status => l_return_status
5645: ,x_to_amount => l_amount -- accrual amount in batch currency
5646: );
5647: IF l_return_status = FND_API.g_ret_sts_error THEN
5648: RAISE FND_API.g_exc_error;
5649: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5650: RAISE FND_API.g_exc_unexpected_error;
5651: END IF;
5652: ELSE
5645: ,x_to_amount => l_amount -- accrual amount in batch currency
5646: );
5647: IF l_return_status = FND_API.g_ret_sts_error THEN
5648: RAISE FND_API.g_exc_error;
5649: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5650: RAISE FND_API.g_exc_unexpected_error;
5651: END IF;
5652: ELSE
5653: l_amount := l_accrual_amount; -- accrual amount in batch currency
5646: );
5647: IF l_return_status = FND_API.g_ret_sts_error THEN
5648: RAISE FND_API.g_exc_error;
5649: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5650: RAISE FND_API.g_exc_unexpected_error;
5651: END IF;
5652: ELSE
5653: l_amount := l_accrual_amount; -- accrual amount in batch currency
5654: END IF;
5704: FND_MESSAGE.Set_Name('OZF', 'OZF_PRODUCT_UOM_MISSING');
5705: FND_MESSAGE.Set_Token('ITEM_ID', l_line_tbl(l_counter).item_id);
5706: FND_MSG_PUB.ADD;
5707: END IF;
5708: RAISE FND_API.g_exc_unexpected_error;
5709: END IF;
5710: CLOSE csr_uom_code;
5711: END IF;
5712:
5715: FETCH csr_offer_perf INTO l_dummy;
5716: CLOSE csr_offer_perf;
5717:
5718: IF l_dummy = 1 THEN
5719: l_line_tbl(l_counter).performance_attached_flag := FND_API.G_TRUE;
5720: l_line_tbl(l_counter).performance_complete_flag := FND_API.G_TRUE;
5721: END IF;
5722: END IF;
5723:
5716: CLOSE csr_offer_perf;
5717:
5718: IF l_dummy = 1 THEN
5719: l_line_tbl(l_counter).performance_attached_flag := FND_API.G_TRUE;
5720: l_line_tbl(l_counter).performance_complete_flag := FND_API.G_TRUE;
5721: END IF;
5722: END IF;
5723:
5724: l_counter := l_counter + 1;
5768: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5769: FND_MESSAGE.Set_Name('OZF', 'OZF_CHBK_NO_FUNDS');
5770: FND_MSG_PUB.ADD;
5771: END IF;
5772: RAISE FND_API.g_exc_unexpected_error;
5773: END IF;
5774:
5775: --ninarasi fix for bug 12942827 12-Sep-2011
5776: IF l_total_amount_utilized = 0 THEN
5802: ,x_msg_count => x_msg_count
5803: ,p_claim => l_claim_rec
5804: ,x_claim_id => l_claim_id
5805: );
5806: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5807: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5808: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5809: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5810: END IF;
5803: ,p_claim => l_claim_rec
5804: ,x_claim_id => l_claim_id
5805: );
5806: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5807: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5808: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5809: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5810: END IF;
5811:
5804: ,x_claim_id => l_claim_id
5805: );
5806: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5807: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5808: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5809: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5810: END IF;
5811:
5812: IF OZF_DEBUG_HIGH_ON THEN
5805: );
5806: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5807: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5808: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5809: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5810: END IF;
5811:
5812: IF OZF_DEBUG_HIGH_ON THEN
5813: OZF_Utility_PVT.debug_message('Claim created id: ' || l_claim_id);
5820: END LOOP;
5821:
5822: OZF_CLAIM_LINE_PVT.Create_Claim_Line_Tbl(
5823: p_api_version => 1.0
5824: ,p_init_msg_list => FND_API.g_false
5825: ,p_commit => FND_API.g_false
5826: ,p_validation_level => FND_API.g_valid_level_full
5827: ,x_return_status => l_return_status
5828: ,x_msg_count => x_msg_count
5821:
5822: OZF_CLAIM_LINE_PVT.Create_Claim_Line_Tbl(
5823: p_api_version => 1.0
5824: ,p_init_msg_list => FND_API.g_false
5825: ,p_commit => FND_API.g_false
5826: ,p_validation_level => FND_API.g_valid_level_full
5827: ,x_return_status => l_return_status
5828: ,x_msg_count => x_msg_count
5829: ,x_msg_data => x_msg_data
5822: OZF_CLAIM_LINE_PVT.Create_Claim_Line_Tbl(
5823: p_api_version => 1.0
5824: ,p_init_msg_list => FND_API.g_false
5825: ,p_commit => FND_API.g_false
5826: ,p_validation_level => FND_API.g_valid_level_full
5827: ,x_return_status => l_return_status
5828: ,x_msg_count => x_msg_count
5829: ,x_msg_data => x_msg_data
5830: ,p_claim_line_tbl => l_line_tbl
5830: ,p_claim_line_tbl => l_line_tbl
5831: ,x_error_index => l_error_index
5832: );
5833:
5834: IF l_return_status = FND_API.g_ret_sts_error THEN
5835: RAISE FND_API.g_exc_error;
5836: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5837: RAISE FND_API.g_exc_error;
5838: END IF;
5831: ,x_error_index => l_error_index
5832: );
5833:
5834: IF l_return_status = FND_API.g_ret_sts_error THEN
5835: RAISE FND_API.g_exc_error;
5836: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5837: RAISE FND_API.g_exc_error;
5838: END IF;
5839:
5832: );
5833:
5834: IF l_return_status = FND_API.g_ret_sts_error THEN
5835: RAISE FND_API.g_exc_error;
5836: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5837: RAISE FND_API.g_exc_error;
5838: END IF;
5839:
5840: IF OZF_DEBUG_HIGH_ON THEN
5833:
5834: IF l_return_status = FND_API.g_ret_sts_error THEN
5835: RAISE FND_API.g_exc_error;
5836: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5837: RAISE FND_API.g_exc_error;
5838: END IF;
5839:
5840: IF OZF_DEBUG_HIGH_ON THEN
5841: OZF_Utility_PVT.debug_message('Claim lines created for claim_id=' || l_claim_id);
5852: EXIT WHEN csr_claim_line%NOTFOUND;
5853:
5854: Update_Group_Line_Util(
5855: p_api_version => 1.0
5856: ,p_init_msg_list => FND_API.g_false
5857: ,p_commit => FND_API.g_false
5858: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
5859: ,x_return_status => l_return_status
5860: ,x_msg_count => x_msg_count
5853:
5854: Update_Group_Line_Util(
5855: p_api_version => 1.0
5856: ,p_init_msg_list => FND_API.g_false
5857: ,p_commit => FND_API.g_false
5858: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
5859: ,x_return_status => l_return_status
5860: ,x_msg_count => x_msg_count
5861: ,x_msg_data => x_msg_data
5854: Update_Group_Line_Util(
5855: p_api_version => 1.0
5856: ,p_init_msg_list => FND_API.g_false
5857: ,p_commit => FND_API.g_false
5858: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
5859: ,x_return_status => l_return_status
5860: ,x_msg_count => x_msg_count
5861: ,x_msg_data => x_msg_data
5862: ,p_summary_view => 'ACTIVITY'
5861: ,x_msg_data => x_msg_data
5862: ,p_summary_view => 'ACTIVITY'
5863: ,p_funds_util_flt => l_funds_util_flt
5864: );
5865: IF l_return_status = FND_API.g_ret_sts_error THEN
5866: RAISE FND_API.g_exc_error;
5867: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5868: RAISE FND_API.g_exc_error;
5869: END IF;
5862: ,p_summary_view => 'ACTIVITY'
5863: ,p_funds_util_flt => l_funds_util_flt
5864: );
5865: IF l_return_status = FND_API.g_ret_sts_error THEN
5866: RAISE FND_API.g_exc_error;
5867: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5868: RAISE FND_API.g_exc_error;
5869: END IF;
5870: END LOOP;
5863: ,p_funds_util_flt => l_funds_util_flt
5864: );
5865: IF l_return_status = FND_API.g_ret_sts_error THEN
5866: RAISE FND_API.g_exc_error;
5867: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5868: RAISE FND_API.g_exc_error;
5869: END IF;
5870: END LOOP;
5871: CLOSE csr_claim_line;
5864: );
5865: IF l_return_status = FND_API.g_ret_sts_error THEN
5866: RAISE FND_API.g_exc_error;
5867: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5868: RAISE FND_API.g_exc_error;
5869: END IF;
5870: END LOOP;
5871: CLOSE csr_claim_line;
5872:
5875: x_claim_id := l_claim_id;
5876:
5877: ------------------------- finish -------------------------------
5878: -- Check for commit
5879: IF FND_API.to_boolean(p_commit) THEN
5880: COMMIT;
5881: END IF;
5882:
5883: FND_MSG_PUB.count_and_get(
5880: COMMIT;
5881: END IF;
5882:
5883: FND_MSG_PUB.count_and_get(
5884: p_encoded => FND_API.g_false,
5885: p_count => x_msg_count,
5886: p_data => x_msg_data
5887: );
5888:
5890: OZF_Utility_PVT.debug_message(l_full_name ||': end');
5891: END IF;
5892:
5893: EXCEPTION
5894: WHEN FND_API.g_exc_error THEN
5895: ROLLBACK TO Create_Claim_Existing_Accruals;
5896: x_return_status := FND_API.g_ret_sts_error;
5897: FND_MSG_PUB.count_and_get (
5898: p_encoded => FND_API.g_false
5892:
5893: EXCEPTION
5894: WHEN FND_API.g_exc_error THEN
5895: ROLLBACK TO Create_Claim_Existing_Accruals;
5896: x_return_status := FND_API.g_ret_sts_error;
5897: FND_MSG_PUB.count_and_get (
5898: p_encoded => FND_API.g_false
5899: ,p_count => x_msg_count
5900: ,p_data => x_msg_data
5894: WHEN FND_API.g_exc_error THEN
5895: ROLLBACK TO Create_Claim_Existing_Accruals;
5896: x_return_status := FND_API.g_ret_sts_error;
5897: FND_MSG_PUB.count_and_get (
5898: p_encoded => FND_API.g_false
5899: ,p_count => x_msg_count
5900: ,p_data => x_msg_data
5901: );
5902:
5899: ,p_count => x_msg_count
5900: ,p_data => x_msg_data
5901: );
5902:
5903: WHEN FND_API.g_exc_unexpected_error THEN
5904: ROLLBACK TO Create_Claim_Existing_Accruals;
5905: x_return_status := FND_API.g_ret_sts_unexp_error ;
5906: FND_MSG_PUB.count_and_get (
5907: p_encoded => FND_API.g_false
5901: );
5902:
5903: WHEN FND_API.g_exc_unexpected_error THEN
5904: ROLLBACK TO Create_Claim_Existing_Accruals;
5905: x_return_status := FND_API.g_ret_sts_unexp_error ;
5906: FND_MSG_PUB.count_and_get (
5907: p_encoded => FND_API.g_false
5908: ,p_count => x_msg_count
5909: ,p_data => x_msg_data
5903: WHEN FND_API.g_exc_unexpected_error THEN
5904: ROLLBACK TO Create_Claim_Existing_Accruals;
5905: x_return_status := FND_API.g_ret_sts_unexp_error ;
5906: FND_MSG_PUB.count_and_get (
5907: p_encoded => FND_API.g_false
5908: ,p_count => x_msg_count
5909: ,p_data => x_msg_data
5910: );
5911:
5910: );
5911:
5912: WHEN OTHERS THEN
5913: ROLLBACK TO Create_Claim_Existing_Accruals;
5914: x_return_status := FND_API.g_ret_sts_unexp_error ;
5915: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5916: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
5917: END IF;
5918: FND_MSG_PUB.count_and_get(
5915: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5916: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
5917: END IF;
5918: FND_MSG_PUB.count_and_get(
5919: p_encoded => FND_API.g_false
5920: ,p_count => x_msg_count
5921: ,p_data => x_msg_data
5922: );
5923:
5938: -- NOTES
5939: ---------------------------------------------------------------------
5940: PROCEDURE Pay_Claim_For_Accruals(
5941: p_api_version IN NUMBER
5942: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
5943: ,p_commit IN VARCHAR2 := FND_API.g_false
5944: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
5945: ,p_accrual_flag IN VARCHAR2
5946:
5939: ---------------------------------------------------------------------
5940: PROCEDURE Pay_Claim_For_Accruals(
5941: p_api_version IN NUMBER
5942: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
5943: ,p_commit IN VARCHAR2 := FND_API.g_false
5944: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
5945: ,p_accrual_flag IN VARCHAR2
5946:
5947: ,x_return_status OUT NOCOPY VARCHAR2
5940: PROCEDURE Pay_Claim_For_Accruals(
5941: p_api_version IN NUMBER
5942: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
5943: ,p_commit IN VARCHAR2 := FND_API.g_false
5944: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
5945: ,p_accrual_flag IN VARCHAR2
5946:
5947: ,x_return_status OUT NOCOPY VARCHAR2
5948: ,x_msg_count OUT NOCOPY NUMBER
5980: IF OZF_DEBUG_HIGH_ON THEN
5981: OZF_Utility_PVT.debug_message(l_full_name||': start');
5982: END IF;
5983:
5984: IF FND_API.to_boolean(p_init_msg_list) THEN
5985: FND_MSG_PUB.initialize;
5986: END IF;
5987:
5988: IF NOT FND_API.compatible_api_call(
5984: IF FND_API.to_boolean(p_init_msg_list) THEN
5985: FND_MSG_PUB.initialize;
5986: END IF;
5987:
5988: IF NOT FND_API.compatible_api_call(
5989: l_api_version,
5990: p_api_version,
5991: l_api_name,
5992: g_pkg_name
5990: p_api_version,
5991: l_api_name,
5992: g_pkg_name
5993: ) THEN
5994: RAISE FND_API.g_exc_unexpected_error;
5995: END IF;
5996:
5997: x_return_status := FND_API.g_ret_sts_success;
5998:
5993: ) THEN
5994: RAISE FND_API.g_exc_unexpected_error;
5995: END IF;
5996:
5997: x_return_status := FND_API.g_ret_sts_success;
5998:
5999: ----------------- start ----------------
6000: l_claim_rec := p_claim_rec;
6001:
6013: Validate_Cust_Trade_Profile(
6014: p_cust_trade_profile => l_cust_trade_profile
6015: ,x_return_status => l_return_status
6016: );
6017: IF l_return_status = FND_API.g_ret_sts_error or
6018: l_return_status = FND_API.g_ret_sts_unexp_error THEN
6019: -- trade profile has errors. do not close claim in batch process
6020: -- and raise error in other cases
6021: IF l_claim_rec.source_object_class = OZF_RESALE_COMMON_PVT.G_BATCH_OBJECT_CLASS THEN
6014: p_cust_trade_profile => l_cust_trade_profile
6015: ,x_return_status => l_return_status
6016: );
6017: IF l_return_status = FND_API.g_ret_sts_error or
6018: l_return_status = FND_API.g_ret_sts_unexp_error THEN
6019: -- trade profile has errors. do not close claim in batch process
6020: -- and raise error in other cases
6021: IF l_claim_rec.source_object_class = OZF_RESALE_COMMON_PVT.G_BATCH_OBJECT_CLASS THEN
6022: l_close_claim_flag := 'F';
6020: -- and raise error in other cases
6021: IF l_claim_rec.source_object_class = OZF_RESALE_COMMON_PVT.G_BATCH_OBJECT_CLASS THEN
6022: l_close_claim_flag := 'F';
6023: ELSE
6024: RAISE FND_API.g_exc_unexpected_error;
6025: END IF;
6026: END IF;
6027:
6028: -- [BEGIN OF BUG 4217781 FIXING]
6031: l_close_claim_flag := 'F';
6032: END IF;
6033: -- [END OF BUG 4217781 FIXING]
6034:
6035: IF l_cust_trade_profile.payment_method <> FND_API.G_MISS_CHAR THEN -- [BUG 4217781 FIXING]
6036: l_claim_rec.payment_method := l_cust_trade_profile.payment_method;
6037: END IF;
6038: l_claim_rec.cust_billto_acct_site_id := l_cust_trade_profile.site_use_id;
6039: l_claim_rec.vendor_id := l_cust_trade_profile.vendor_id;
6052: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_NO_TRADE_PROFILE');
6053: FND_MESSAGE.Set_Token('CUST_NAME', l_party_name);
6054: FND_MSG_PUB.ADD;
6055: END IF;
6056: RAISE FND_API.g_exc_unexpected_error;
6057: END IF;
6058: END IF;
6059: END IF;
6060:
6077: OR (l_accrual_flag IS NULL) --kdass - bug 10149100 - for promotional payments, use existing API Create_Claim_For_Accruals()
6078: THEN
6079: Create_Claim_For_Accruals(
6080: p_api_version => l_api_version
6081: ,p_init_msg_list => FND_API.g_false
6082: ,p_commit => FND_API.g_false
6083: ,p_validation_level => p_validation_level
6084: ,x_return_status => l_return_status
6085: ,x_msg_count => x_msg_count
6078: THEN
6079: Create_Claim_For_Accruals(
6080: p_api_version => l_api_version
6081: ,p_init_msg_list => FND_API.g_false
6082: ,p_commit => FND_API.g_false
6083: ,p_validation_level => p_validation_level
6084: ,x_return_status => l_return_status
6085: ,x_msg_count => x_msg_count
6086: ,x_msg_data => x_msg_data
6087: ,p_claim_rec => l_claim_rec
6088: ,p_funds_util_flt => p_funds_util_flt
6089: ,x_claim_id => l_claim_id
6090: );
6091: IF l_return_status = fnd_api.g_ret_sts_error THEN
6092: RAISE FND_API.g_exc_error;
6093: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6094: RAISE FND_API.g_exc_unexpected_error;
6095: END IF;
6088: ,p_funds_util_flt => p_funds_util_flt
6089: ,x_claim_id => l_claim_id
6090: );
6091: IF l_return_status = fnd_api.g_ret_sts_error THEN
6092: RAISE FND_API.g_exc_error;
6093: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6094: RAISE FND_API.g_exc_unexpected_error;
6095: END IF;
6096: ELSE
6089: ,x_claim_id => l_claim_id
6090: );
6091: IF l_return_status = fnd_api.g_ret_sts_error THEN
6092: RAISE FND_API.g_exc_error;
6093: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6094: RAISE FND_API.g_exc_unexpected_error;
6095: END IF;
6096: ELSE
6097: Create_Claim_Existing_Accruals(
6090: );
6091: IF l_return_status = fnd_api.g_ret_sts_error THEN
6092: RAISE FND_API.g_exc_error;
6093: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6094: RAISE FND_API.g_exc_unexpected_error;
6095: END IF;
6096: ELSE
6097: Create_Claim_Existing_Accruals(
6098: p_api_version => l_api_version
6095: END IF;
6096: ELSE
6097: Create_Claim_Existing_Accruals(
6098: p_api_version => l_api_version
6099: ,p_init_msg_list => FND_API.g_false
6100: ,p_commit => FND_API.g_false
6101: ,p_validation_level => p_validation_level
6102: ,x_return_status => l_return_status
6103: ,x_msg_count => x_msg_count
6096: ELSE
6097: Create_Claim_Existing_Accruals(
6098: p_api_version => l_api_version
6099: ,p_init_msg_list => FND_API.g_false
6100: ,p_commit => FND_API.g_false
6101: ,p_validation_level => p_validation_level
6102: ,x_return_status => l_return_status
6103: ,x_msg_count => x_msg_count
6104: ,x_msg_data => x_msg_data
6105: ,p_claim_rec => l_claim_rec
6106: ,p_funds_util_flt => p_funds_util_flt
6107: ,x_claim_id => l_claim_id
6108: );
6109: IF l_return_status = fnd_api.g_ret_sts_error THEN
6110: RAISE FND_API.g_exc_error;
6111: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6112: RAISE FND_API.g_exc_unexpected_error;
6113: END IF;
6106: ,p_funds_util_flt => p_funds_util_flt
6107: ,x_claim_id => l_claim_id
6108: );
6109: IF l_return_status = fnd_api.g_ret_sts_error THEN
6110: RAISE FND_API.g_exc_error;
6111: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6112: RAISE FND_API.g_exc_unexpected_error;
6113: END IF;
6114: END IF;
6107: ,x_claim_id => l_claim_id
6108: );
6109: IF l_return_status = fnd_api.g_ret_sts_error THEN
6110: RAISE FND_API.g_exc_error;
6111: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6112: RAISE FND_API.g_exc_unexpected_error;
6113: END IF;
6114: END IF;
6115: --Bug# 8632964 fixed by anuj & muthsubr (-)
6108: );
6109: IF l_return_status = fnd_api.g_ret_sts_error THEN
6110: RAISE FND_API.g_exc_error;
6111: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6112: RAISE FND_API.g_exc_unexpected_error;
6113: END IF;
6114: END IF;
6115: --Bug# 8632964 fixed by anuj & muthsubr (-)
6116:
6124: ,x_return_status => l_return_status
6125: ,x_msg_count => x_msg_count
6126: ,x_msg_data => x_msg_data
6127: );
6128: IF l_return_status = fnd_api.g_ret_sts_error THEN
6129: RAISE FND_API.g_exc_error;
6130: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6131: RAISE FND_API.g_exc_unexpected_error;
6132: END IF;
6125: ,x_msg_count => x_msg_count
6126: ,x_msg_data => x_msg_data
6127: );
6128: IF l_return_status = fnd_api.g_ret_sts_error THEN
6129: RAISE FND_API.g_exc_error;
6130: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6131: RAISE FND_API.g_exc_unexpected_error;
6132: END IF;
6133: END IF;
6126: ,x_msg_data => x_msg_data
6127: );
6128: IF l_return_status = fnd_api.g_ret_sts_error THEN
6129: RAISE FND_API.g_exc_error;
6130: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6131: RAISE FND_API.g_exc_unexpected_error;
6132: END IF;
6133: END IF;
6134:
6127: );
6128: IF l_return_status = fnd_api.g_ret_sts_error THEN
6129: RAISE FND_API.g_exc_error;
6130: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6131: RAISE FND_API.g_exc_unexpected_error;
6132: END IF;
6133: END IF;
6134:
6135: x_claim_id := l_claim_id;
6135: x_claim_id := l_claim_id;
6136:
6137: ------------------------- finish -------------------------------
6138: -- Check for commit
6139: IF FND_API.to_boolean(p_commit) THEN
6140: COMMIT;
6141: END IF;
6142:
6143: FND_MSG_PUB.count_and_get(
6140: COMMIT;
6141: END IF;
6142:
6143: FND_MSG_PUB.count_and_get(
6144: p_encoded => FND_API.g_false,
6145: p_count => x_msg_count,
6146: p_data => x_msg_data
6147: );
6148:
6150: OZF_Utility_PVT.debug_message(l_full_name ||': end');
6151: END IF;
6152:
6153: EXCEPTION
6154: WHEN FND_API.g_exc_error THEN
6155: ROLLBACK TO Pay_Claim_For_Accruals;
6156: x_return_status := FND_API.g_ret_sts_error;
6157: FND_MSG_PUB.count_and_get (
6158: p_encoded => FND_API.g_false
6152:
6153: EXCEPTION
6154: WHEN FND_API.g_exc_error THEN
6155: ROLLBACK TO Pay_Claim_For_Accruals;
6156: x_return_status := FND_API.g_ret_sts_error;
6157: FND_MSG_PUB.count_and_get (
6158: p_encoded => FND_API.g_false
6159: ,p_count => x_msg_count
6160: ,p_data => x_msg_data
6154: WHEN FND_API.g_exc_error THEN
6155: ROLLBACK TO Pay_Claim_For_Accruals;
6156: x_return_status := FND_API.g_ret_sts_error;
6157: FND_MSG_PUB.count_and_get (
6158: p_encoded => FND_API.g_false
6159: ,p_count => x_msg_count
6160: ,p_data => x_msg_data
6161: );
6162:
6159: ,p_count => x_msg_count
6160: ,p_data => x_msg_data
6161: );
6162:
6163: WHEN FND_API.g_exc_unexpected_error THEN
6164: ROLLBACK TO Pay_Claim_For_Accruals;
6165: x_return_status := FND_API.g_ret_sts_unexp_error ;
6166: FND_MSG_PUB.count_and_get (
6167: p_encoded => FND_API.g_false
6161: );
6162:
6163: WHEN FND_API.g_exc_unexpected_error THEN
6164: ROLLBACK TO Pay_Claim_For_Accruals;
6165: x_return_status := FND_API.g_ret_sts_unexp_error ;
6166: FND_MSG_PUB.count_and_get (
6167: p_encoded => FND_API.g_false
6168: ,p_count => x_msg_count
6169: ,p_data => x_msg_data
6163: WHEN FND_API.g_exc_unexpected_error THEN
6164: ROLLBACK TO Pay_Claim_For_Accruals;
6165: x_return_status := FND_API.g_ret_sts_unexp_error ;
6166: FND_MSG_PUB.count_and_get (
6167: p_encoded => FND_API.g_false
6168: ,p_count => x_msg_count
6169: ,p_data => x_msg_data
6170: );
6171:
6170: );
6171:
6172: WHEN OTHERS THEN
6173: ROLLBACK TO Pay_Claim_For_Accruals;
6174: x_return_status := FND_API.g_ret_sts_unexp_error ;
6175: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
6176: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
6177: END IF;
6178: FND_MSG_PUB.count_and_get(
6175: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
6176: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
6177: END IF;
6178: FND_MSG_PUB.count_and_get(
6179: p_encoded => FND_API.g_false
6180: ,p_count => x_msg_count
6181: ,p_data => x_msg_data
6182: );
6183:
6198: -- NOTES
6199: ---------------------------------------------------------------------
6200: PROCEDURE Asso_Accruals_To_Claim(
6201: p_api_version IN NUMBER
6202: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
6203: ,p_commit IN VARCHAR2 := FND_API.g_false
6204: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
6205:
6206: ,x_return_status OUT NOCOPY VARCHAR2
6199: ---------------------------------------------------------------------
6200: PROCEDURE Asso_Accruals_To_Claim(
6201: p_api_version IN NUMBER
6202: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
6203: ,p_commit IN VARCHAR2 := FND_API.g_false
6204: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
6205:
6206: ,x_return_status OUT NOCOPY VARCHAR2
6207: ,x_msg_count OUT NOCOPY NUMBER
6200: PROCEDURE Asso_Accruals_To_Claim(
6201: p_api_version IN NUMBER
6202: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
6203: ,p_commit IN VARCHAR2 := FND_API.g_false
6204: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
6205:
6206: ,x_return_status OUT NOCOPY VARCHAR2
6207: ,x_msg_count OUT NOCOPY NUMBER
6208: ,x_msg_data OUT NOCOPY VARCHAR2
6288: IF OZF_DEBUG_HIGH_ON THEN
6289: OZF_Utility_PVT.debug_message(l_full_name||': start');
6290: END IF;
6291:
6292: IF FND_API.to_boolean(p_init_msg_list) THEN
6293: FND_MSG_PUB.initialize;
6294: END IF;
6295:
6296: IF NOT FND_API.compatible_api_call(
6292: IF FND_API.to_boolean(p_init_msg_list) THEN
6293: FND_MSG_PUB.initialize;
6294: END IF;
6295:
6296: IF NOT FND_API.compatible_api_call(
6297: l_api_version,
6298: p_api_version,
6299: l_api_name,
6300: g_pkg_name
6298: p_api_version,
6299: l_api_name,
6300: g_pkg_name
6301: ) THEN
6302: RAISE FND_API.g_exc_unexpected_error;
6303: END IF;
6304:
6305: x_return_status := FND_API.g_ret_sts_success;
6306:
6301: ) THEN
6302: RAISE FND_API.g_exc_unexpected_error;
6303: END IF;
6304:
6305: x_return_status := FND_API.g_ret_sts_success;
6306:
6307: ----------------- start ----------------
6308:
6309: -- Added the currency_code for Multi Currency - kpatro
6315: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_ID_NOT_EXIST');
6316: FND_MESSAGE.Set_Token('CLAIM_ID', p_claim_id);
6317: FND_MSG_PUB.ADD;
6318: END IF;
6319: RAISE FND_API.g_exc_unexpected_error;
6320: END IF;
6321: CLOSE csr_claim_info;
6322:
6323: -- Assigning the Claim Currency for Multi Currency - kpatro
6366: END IF;
6367:
6368: Get_Utiz_Sql_Stmt(
6369: p_api_version => 1.0
6370: ,p_init_msg_list => FND_API.g_false
6371: ,p_commit => FND_API.g_false
6372: ,p_validation_level => FND_API.g_valid_level_full
6373: ,x_return_status => l_return_status
6374: ,x_msg_count => x_msg_count
6367:
6368: Get_Utiz_Sql_Stmt(
6369: p_api_version => 1.0
6370: ,p_init_msg_list => FND_API.g_false
6371: ,p_commit => FND_API.g_false
6372: ,p_validation_level => FND_API.g_valid_level_full
6373: ,x_return_status => l_return_status
6374: ,x_msg_count => x_msg_count
6375: ,x_msg_data => x_msg_data
6368: Get_Utiz_Sql_Stmt(
6369: p_api_version => 1.0
6370: ,p_init_msg_list => FND_API.g_false
6371: ,p_commit => FND_API.g_false
6372: ,p_validation_level => FND_API.g_valid_level_full
6373: ,x_return_status => l_return_status
6374: ,x_msg_count => x_msg_count
6375: ,x_msg_data => x_msg_data
6376: ,p_summary_view => 'AUTOPAY_LINE'
6379: ,p_cust_account_id => l_funds_util_flt.cust_account_id
6380: ,x_utiz_sql_stmt => l_stmt
6381: );
6382:
6383: IF l_return_status = FND_API.g_ret_sts_error THEN
6384: RAISE FND_API.g_exc_error;
6385: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
6386: RAISE FND_API.g_exc_error;
6387: END IF;
6380: ,x_utiz_sql_stmt => l_stmt
6381: );
6382:
6383: IF l_return_status = FND_API.g_ret_sts_error THEN
6384: RAISE FND_API.g_exc_error;
6385: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
6386: RAISE FND_API.g_exc_error;
6387: END IF;
6388:
6381: );
6382:
6383: IF l_return_status = FND_API.g_ret_sts_error THEN
6384: RAISE FND_API.g_exc_error;
6385: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
6386: RAISE FND_API.g_exc_error;
6387: END IF;
6388:
6389: l_emp_csr := DBMS_SQL.open_cursor;
6382:
6383: IF l_return_status = FND_API.g_ret_sts_error THEN
6384: RAISE FND_API.g_exc_error;
6385: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
6386: RAISE FND_API.g_exc_error;
6387: END IF;
6388:
6389: l_emp_csr := DBMS_SQL.open_cursor;
6390: FND_DSQL.set_cursor(l_emp_csr);
6452: FND_MESSAGE.Set_Name('OZF', 'OZF_PRODUCT_UOM_MISSING');
6453: FND_MESSAGE.Set_Token('ITEM_ID', l_product_id);
6454: FND_MSG_PUB.ADD;
6455: END IF;
6456: RAISE FND_API.g_exc_unexpected_error;
6457: END IF;
6458: CLOSE csr_uom_code;
6459: END IF;
6460:
6464: , p_funds_util_flt => l_funds_util_flt
6465: , x_return_status => l_return_status
6466: );
6467:
6468: IF l_return_status = FND_API.g_ret_sts_error THEN
6469: RAISE FND_API.g_exc_error;
6470: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
6471: RAISE FND_API.g_exc_error;
6472: END IF;
6465: , x_return_status => l_return_status
6466: );
6467:
6468: IF l_return_status = FND_API.g_ret_sts_error THEN
6469: RAISE FND_API.g_exc_error;
6470: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
6471: RAISE FND_API.g_exc_error;
6472: END IF;
6473:
6466: );
6467:
6468: IF l_return_status = FND_API.g_ret_sts_error THEN
6469: RAISE FND_API.g_exc_error;
6470: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
6471: RAISE FND_API.g_exc_error;
6472: END IF;
6473:
6474: IF l_dummy = FND_API.G_TRUE THEN
6467:
6468: IF l_return_status = FND_API.g_ret_sts_error THEN
6469: RAISE FND_API.g_exc_error;
6470: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
6471: RAISE FND_API.g_exc_error;
6472: END IF;
6473:
6474: IF l_dummy = FND_API.G_TRUE THEN
6475: l_line_tbl(l_counter).performance_attached_flag := FND_API.G_TRUE;
6470: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
6471: RAISE FND_API.g_exc_error;
6472: END IF;
6473:
6474: IF l_dummy = FND_API.G_TRUE THEN
6475: l_line_tbl(l_counter).performance_attached_flag := FND_API.G_TRUE;
6476: l_line_tbl(l_counter).performance_complete_flag := FND_API.G_TRUE;
6477: END IF;
6478: END IF;
6471: RAISE FND_API.g_exc_error;
6472: END IF;
6473:
6474: IF l_dummy = FND_API.G_TRUE THEN
6475: l_line_tbl(l_counter).performance_attached_flag := FND_API.G_TRUE;
6476: l_line_tbl(l_counter).performance_complete_flag := FND_API.G_TRUE;
6477: END IF;
6478: END IF;
6479: */
6472: END IF;
6473:
6474: IF l_dummy = FND_API.G_TRUE THEN
6475: l_line_tbl(l_counter).performance_attached_flag := FND_API.G_TRUE;
6476: l_line_tbl(l_counter).performance_complete_flag := FND_API.G_TRUE;
6477: END IF;
6478: END IF;
6479: */
6480:
6489: -- if earnings are found
6490: IF l_counter > 1 THEN
6491: OZF_CLAIM_LINE_PVT.Create_Claim_Line_Tbl(
6492: p_api_version => 1.0
6493: ,p_init_msg_list => FND_API.g_false
6494: ,p_commit => FND_API.g_false
6495: ,p_validation_level => FND_API.g_valid_level_full
6496: ,x_return_status => l_return_status
6497: ,x_msg_count => x_msg_count
6490: IF l_counter > 1 THEN
6491: OZF_CLAIM_LINE_PVT.Create_Claim_Line_Tbl(
6492: p_api_version => 1.0
6493: ,p_init_msg_list => FND_API.g_false
6494: ,p_commit => FND_API.g_false
6495: ,p_validation_level => FND_API.g_valid_level_full
6496: ,x_return_status => l_return_status
6497: ,x_msg_count => x_msg_count
6498: ,x_msg_data => x_msg_data
6491: OZF_CLAIM_LINE_PVT.Create_Claim_Line_Tbl(
6492: p_api_version => 1.0
6493: ,p_init_msg_list => FND_API.g_false
6494: ,p_commit => FND_API.g_false
6495: ,p_validation_level => FND_API.g_valid_level_full
6496: ,x_return_status => l_return_status
6497: ,x_msg_count => x_msg_count
6498: ,x_msg_data => x_msg_data
6499: ,p_claim_line_tbl => l_line_tbl
6499: ,p_claim_line_tbl => l_line_tbl
6500: ,x_error_index => l_error_index
6501: );
6502:
6503: IF l_return_status = FND_API.g_ret_sts_error THEN
6504: RAISE FND_API.g_exc_error;
6505: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
6506: RAISE FND_API.g_exc_error;
6507: END IF;
6500: ,x_error_index => l_error_index
6501: );
6502:
6503: IF l_return_status = FND_API.g_ret_sts_error THEN
6504: RAISE FND_API.g_exc_error;
6505: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
6506: RAISE FND_API.g_exc_error;
6507: END IF;
6508:
6501: );
6502:
6503: IF l_return_status = FND_API.g_ret_sts_error THEN
6504: RAISE FND_API.g_exc_error;
6505: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
6506: RAISE FND_API.g_exc_error;
6507: END IF;
6508:
6509: -- Added For Bug 7611966
6502:
6503: IF l_return_status = FND_API.g_ret_sts_error THEN
6504: RAISE FND_API.g_exc_error;
6505: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
6506: RAISE FND_API.g_exc_error;
6507: END IF;
6508:
6509: -- Added For Bug 7611966
6510: OPEN csr_claim_line(p_claim_id);
6525: EXIT WHEN csr_claim_line_util%NOTFOUND;
6526:
6527: Update_Group_Line_Util(
6528: p_api_version => 1.0
6529: ,p_init_msg_list => FND_API.g_false
6530: ,p_commit => FND_API.g_false
6531: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
6532: ,x_return_status => l_return_status
6533: ,x_msg_count => x_msg_count
6526:
6527: Update_Group_Line_Util(
6528: p_api_version => 1.0
6529: ,p_init_msg_list => FND_API.g_false
6530: ,p_commit => FND_API.g_false
6531: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
6532: ,x_return_status => l_return_status
6533: ,x_msg_count => x_msg_count
6534: ,x_msg_data => x_msg_data
6527: Update_Group_Line_Util(
6528: p_api_version => 1.0
6529: ,p_init_msg_list => FND_API.g_false
6530: ,p_commit => FND_API.g_false
6531: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
6532: ,x_return_status => l_return_status
6533: ,x_msg_count => x_msg_count
6534: ,x_msg_data => x_msg_data
6535: ,p_summary_view => 'ACTIVITY'
6535: ,p_summary_view => 'ACTIVITY'
6536: ,p_funds_util_flt => l_funds_util_flt
6537: );
6538:
6539: IF l_return_status = FND_API.g_ret_sts_error THEN
6540: RAISE FND_API.g_exc_error;
6541: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
6542: RAISE FND_API.g_exc_error;
6543: END IF;
6536: ,p_funds_util_flt => l_funds_util_flt
6537: );
6538:
6539: IF l_return_status = FND_API.g_ret_sts_error THEN
6540: RAISE FND_API.g_exc_error;
6541: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
6542: RAISE FND_API.g_exc_error;
6543: END IF;
6544: END LOOP;
6537: );
6538:
6539: IF l_return_status = FND_API.g_ret_sts_error THEN
6540: RAISE FND_API.g_exc_error;
6541: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
6542: RAISE FND_API.g_exc_error;
6543: END IF;
6544: END LOOP;
6545: CLOSE csr_claim_line_util;
6538:
6539: IF l_return_status = FND_API.g_ret_sts_error THEN
6540: RAISE FND_API.g_exc_error;
6541: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
6542: RAISE FND_API.g_exc_error;
6543: END IF;
6544: END LOOP;
6545: CLOSE csr_claim_line_util;
6546: END IF;
6546: END IF;
6547:
6548: ------------------------- finish -------------------------------
6549: -- Check for commit
6550: IF FND_API.to_boolean(p_commit) THEN
6551: COMMIT;
6552: END IF;
6553:
6554: FND_MSG_PUB.count_and_get(
6551: COMMIT;
6552: END IF;
6553:
6554: FND_MSG_PUB.count_and_get(
6555: p_encoded => FND_API.g_false,
6556: p_count => x_msg_count,
6557: p_data => x_msg_data
6558: );
6559:
6561: OZF_Utility_PVT.debug_message(l_full_name ||': end');
6562: END IF;
6563:
6564: EXCEPTION
6565: WHEN FND_API.g_exc_error THEN
6566: ROLLBACK TO Asso_Accruals_To_Claim;
6567: x_return_status := FND_API.g_ret_sts_error;
6568: FND_MSG_PUB.count_and_get (
6569: p_encoded => FND_API.g_false
6563:
6564: EXCEPTION
6565: WHEN FND_API.g_exc_error THEN
6566: ROLLBACK TO Asso_Accruals_To_Claim;
6567: x_return_status := FND_API.g_ret_sts_error;
6568: FND_MSG_PUB.count_and_get (
6569: p_encoded => FND_API.g_false
6570: ,p_count => x_msg_count
6571: ,p_data => x_msg_data
6565: WHEN FND_API.g_exc_error THEN
6566: ROLLBACK TO Asso_Accruals_To_Claim;
6567: x_return_status := FND_API.g_ret_sts_error;
6568: FND_MSG_PUB.count_and_get (
6569: p_encoded => FND_API.g_false
6570: ,p_count => x_msg_count
6571: ,p_data => x_msg_data
6572: );
6573:
6570: ,p_count => x_msg_count
6571: ,p_data => x_msg_data
6572: );
6573:
6574: WHEN FND_API.g_exc_unexpected_error THEN
6575: ROLLBACK TO Asso_Accruals_To_Claim;
6576: x_return_status := FND_API.g_ret_sts_unexp_error ;
6577: FND_MSG_PUB.count_and_get (
6578: p_encoded => FND_API.g_false
6572: );
6573:
6574: WHEN FND_API.g_exc_unexpected_error THEN
6575: ROLLBACK TO Asso_Accruals_To_Claim;
6576: x_return_status := FND_API.g_ret_sts_unexp_error ;
6577: FND_MSG_PUB.count_and_get (
6578: p_encoded => FND_API.g_false
6579: ,p_count => x_msg_count
6580: ,p_data => x_msg_data
6574: WHEN FND_API.g_exc_unexpected_error THEN
6575: ROLLBACK TO Asso_Accruals_To_Claim;
6576: x_return_status := FND_API.g_ret_sts_unexp_error ;
6577: FND_MSG_PUB.count_and_get (
6578: p_encoded => FND_API.g_false
6579: ,p_count => x_msg_count
6580: ,p_data => x_msg_data
6581: );
6582:
6581: );
6582:
6583: WHEN OTHERS THEN
6584: ROLLBACK TO Asso_Accruals_To_Claim;
6585: x_return_status := FND_API.g_ret_sts_unexp_error ;
6586: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
6587: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
6588: END IF;
6589: FND_MSG_PUB.count_and_get(
6586: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
6587: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
6588: END IF;
6589: FND_MSG_PUB.count_and_get(
6590: p_encoded => FND_API.g_false
6591: ,p_count => x_msg_count
6592: ,p_data => x_msg_data
6593: );
6594:
6610: -- modified for Bugfix 5182452 l_funds_util populated with claim line info.
6611: ---------------------------------------------------------------------
6612: PROCEDURE Asso_Accruals_To_Claim_Line(
6613: p_api_version IN NUMBER
6614: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
6615: ,p_commit IN VARCHAR2 := FND_API.g_false
6616: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
6617:
6618: ,x_return_status OUT NOCOPY VARCHAR2
6611: ---------------------------------------------------------------------
6612: PROCEDURE Asso_Accruals_To_Claim_Line(
6613: p_api_version IN NUMBER
6614: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
6615: ,p_commit IN VARCHAR2 := FND_API.g_false
6616: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
6617:
6618: ,x_return_status OUT NOCOPY VARCHAR2
6619: ,x_msg_count OUT NOCOPY NUMBER
6612: PROCEDURE Asso_Accruals_To_Claim_Line(
6613: p_api_version IN NUMBER
6614: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
6615: ,p_commit IN VARCHAR2 := FND_API.g_false
6616: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
6617:
6618: ,x_return_status OUT NOCOPY VARCHAR2
6619: ,x_msg_count OUT NOCOPY NUMBER
6620: ,x_msg_data OUT NOCOPY VARCHAR2
6674: IF OZF_DEBUG_HIGH_ON THEN
6675: OZF_Utility_PVT.debug_message(l_full_name||': start');
6676: END IF;
6677:
6678: IF FND_API.to_boolean(p_init_msg_list) THEN
6679: FND_MSG_PUB.initialize;
6680: END IF;
6681:
6682: IF NOT FND_API.compatible_api_call(
6678: IF FND_API.to_boolean(p_init_msg_list) THEN
6679: FND_MSG_PUB.initialize;
6680: END IF;
6681:
6682: IF NOT FND_API.compatible_api_call(
6683: l_api_version,
6684: p_api_version,
6685: l_api_name,
6686: g_pkg_name
6684: p_api_version,
6685: l_api_name,
6686: g_pkg_name
6687: ) THEN
6688: RAISE FND_API.g_exc_unexpected_error;
6689: END IF;
6690:
6691: x_return_status := FND_API.g_ret_sts_success;
6692:
6687: ) THEN
6688: RAISE FND_API.g_exc_unexpected_error;
6689: END IF;
6690:
6691: x_return_status := FND_API.g_ret_sts_success;
6692:
6693: ----------------- Associate earnings ----------------
6694: -- verify the claim exists
6695: --start of bugfix 5182452
6720: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_LINEID_NOT_EXIST');
6721: FND_MESSAGE.Set_Token('LINE_ID', p_claim_line_id);
6722: FND_MSG_PUB.ADD;
6723: END IF;
6724: RAISE FND_API.g_exc_unexpected_error;
6725: END IF;
6726: CLOSE csr_line_info;
6727:
6728: OPEN csr_sum_util_amounts(p_claim_line_id);
6734: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_LINEID_NOT_EXIST');
6735: FND_MESSAGE.Set_Token('LINE_ID', p_claim_line_id);
6736: FND_MSG_PUB.ADD;
6737: END IF;
6738: RAISE FND_API.g_exc_unexpected_error;
6739: END IF;
6740: CLOSE csr_sum_util_amounts;
6741:
6742: OPEN csr_sum_scan_units(p_claim_line_id);
6748: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_LINEID_NOT_EXIST');
6749: FND_MESSAGE.Set_Token('LINE_ID', p_claim_line_id);
6750: FND_MSG_PUB.ADD;
6751: END IF;
6752: RAISE FND_API.g_exc_unexpected_error;
6753: END IF;
6754: CLOSE csr_sum_scan_units;
6755: --end of bugfix 5182452
6756: l_funds_util_flt.run_mode := p_run_mode; --added to fix bug 13349711
6755: --end of bugfix 5182452
6756: l_funds_util_flt.run_mode := p_run_mode; --added to fix bug 13349711
6757: Update_Group_Line_Util(
6758: p_api_version => l_api_version
6759: ,p_init_msg_list => FND_API.g_false
6760: ,p_commit => FND_API.g_false
6761: ,p_validation_level => p_validation_level
6762: ,x_return_status => l_return_status
6763: ,x_msg_count => x_msg_count
6756: l_funds_util_flt.run_mode := p_run_mode; --added to fix bug 13349711
6757: Update_Group_Line_Util(
6758: p_api_version => l_api_version
6759: ,p_init_msg_list => FND_API.g_false
6760: ,p_commit => FND_API.g_false
6761: ,p_validation_level => p_validation_level
6762: ,x_return_status => l_return_status
6763: ,x_msg_count => x_msg_count
6764: ,x_msg_data => x_msg_data
6765: ,p_summary_view => null
6766: ,p_funds_util_flt => l_funds_util_flt
6767: ,p_mode => OZF_CLAIM_UTILITY_PVT.g_auto_mode
6768: );
6769: IF l_return_status = fnd_api.g_ret_sts_error THEN
6770: RAISE FND_API.g_exc_error;
6771: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6772: RAISE FND_API.g_exc_unexpected_error;
6773: END IF;
6766: ,p_funds_util_flt => l_funds_util_flt
6767: ,p_mode => OZF_CLAIM_UTILITY_PVT.g_auto_mode
6768: );
6769: IF l_return_status = fnd_api.g_ret_sts_error THEN
6770: RAISE FND_API.g_exc_error;
6771: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6772: RAISE FND_API.g_exc_unexpected_error;
6773: END IF;
6774:
6767: ,p_mode => OZF_CLAIM_UTILITY_PVT.g_auto_mode
6768: );
6769: IF l_return_status = fnd_api.g_ret_sts_error THEN
6770: RAISE FND_API.g_exc_error;
6771: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6772: RAISE FND_API.g_exc_unexpected_error;
6773: END IF;
6774:
6775: ------------------------- finish -------------------------------
6768: );
6769: IF l_return_status = fnd_api.g_ret_sts_error THEN
6770: RAISE FND_API.g_exc_error;
6771: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6772: RAISE FND_API.g_exc_unexpected_error;
6773: END IF;
6774:
6775: ------------------------- finish -------------------------------
6776: -- Check for commit
6773: END IF;
6774:
6775: ------------------------- finish -------------------------------
6776: -- Check for commit
6777: IF FND_API.to_boolean(p_commit) THEN
6778: COMMIT;
6779: END IF;
6780:
6781: FND_MSG_PUB.count_and_get(
6778: COMMIT;
6779: END IF;
6780:
6781: FND_MSG_PUB.count_and_get(
6782: p_encoded => FND_API.g_false,
6783: p_count => x_msg_count,
6784: p_data => x_msg_data
6785: );
6786:
6788: OZF_Utility_PVT.debug_message(l_full_name ||': end');
6789: END IF;
6790:
6791: EXCEPTION
6792: WHEN FND_API.g_exc_error THEN
6793: ROLLBACK TO Asso_Accruals_To_Claim_Line;
6794: x_return_status := FND_API.g_ret_sts_error;
6795: FND_MSG_PUB.count_and_get (
6796: p_encoded => FND_API.g_false
6790:
6791: EXCEPTION
6792: WHEN FND_API.g_exc_error THEN
6793: ROLLBACK TO Asso_Accruals_To_Claim_Line;
6794: x_return_status := FND_API.g_ret_sts_error;
6795: FND_MSG_PUB.count_and_get (
6796: p_encoded => FND_API.g_false
6797: ,p_count => x_msg_count
6798: ,p_data => x_msg_data
6792: WHEN FND_API.g_exc_error THEN
6793: ROLLBACK TO Asso_Accruals_To_Claim_Line;
6794: x_return_status := FND_API.g_ret_sts_error;
6795: FND_MSG_PUB.count_and_get (
6796: p_encoded => FND_API.g_false
6797: ,p_count => x_msg_count
6798: ,p_data => x_msg_data
6799: );
6800:
6797: ,p_count => x_msg_count
6798: ,p_data => x_msg_data
6799: );
6800:
6801: WHEN FND_API.g_exc_unexpected_error THEN
6802: ROLLBACK TO Asso_Accruals_To_Claim_Line;
6803: x_return_status := FND_API.g_ret_sts_unexp_error ;
6804: FND_MSG_PUB.count_and_get (
6805: p_encoded => FND_API.g_false
6799: );
6800:
6801: WHEN FND_API.g_exc_unexpected_error THEN
6802: ROLLBACK TO Asso_Accruals_To_Claim_Line;
6803: x_return_status := FND_API.g_ret_sts_unexp_error ;
6804: FND_MSG_PUB.count_and_get (
6805: p_encoded => FND_API.g_false
6806: ,p_count => x_msg_count
6807: ,p_data => x_msg_data
6801: WHEN FND_API.g_exc_unexpected_error THEN
6802: ROLLBACK TO Asso_Accruals_To_Claim_Line;
6803: x_return_status := FND_API.g_ret_sts_unexp_error ;
6804: FND_MSG_PUB.count_and_get (
6805: p_encoded => FND_API.g_false
6806: ,p_count => x_msg_count
6807: ,p_data => x_msg_data
6808: );
6809:
6808: );
6809:
6810: WHEN OTHERS THEN
6811: ROLLBACK TO Asso_Accruals_To_Claim_Line;
6812: x_return_status := FND_API.g_ret_sts_unexp_error ;
6813: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
6814: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
6815: END IF;
6816: FND_MSG_PUB.count_and_get(
6813: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
6814: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
6815: END IF;
6816: FND_MSG_PUB.count_and_get(
6817: p_encoded => FND_API.g_false
6818: ,p_count => x_msg_count
6819: ,p_data => x_msg_data
6820: );
6821:
6838: -- Bug# 8571085 fixed.
6839: ---------------------------------------------------------------------
6840: PROCEDURE Create_Claim_Per_SPR(
6841: p_api_version IN NUMBER
6842: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
6843: ,p_commit IN VARCHAR2 := FND_API.g_false
6844: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
6845: ,x_return_status OUT NOCOPY VARCHAR2
6846: ,x_msg_count OUT NOCOPY NUMBER
6839: ---------------------------------------------------------------------
6840: PROCEDURE Create_Claim_Per_SPR(
6841: p_api_version IN NUMBER
6842: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
6843: ,p_commit IN VARCHAR2 := FND_API.g_false
6844: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
6845: ,x_return_status OUT NOCOPY VARCHAR2
6846: ,x_msg_count OUT NOCOPY NUMBER
6847: ,x_msg_data OUT NOCOPY VARCHAR2
6840: PROCEDURE Create_Claim_Per_SPR(
6841: p_api_version IN NUMBER
6842: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
6843: ,p_commit IN VARCHAR2 := FND_API.g_false
6844: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
6845: ,x_return_status OUT NOCOPY VARCHAR2
6846: ,x_msg_count OUT NOCOPY NUMBER
6847: ,x_msg_data OUT NOCOPY VARCHAR2
6848: ,p_resale_batch_id IN NUMBER
6883: l_offer_uom_code VARCHAR2(3);
6884: l_offer_quantity NUMBER;
6885: l_trans_curr_code VARCHAR2(15);
6886: l_new_claim_quantity NUMBER;
6887: l_exchange_rate_type VARCHAR2(30) := FND_API.G_MISS_CHAR;
6888: l_rate NUMBER;
6889:
6890: --POS Batch Processing by profiles by ateotia (+)
6891: l_ship_from_stock_flag VARCHAR2(1);
6976: IF OZF_DEBUG_HIGH_ON THEN
6977: OZF_Utility_PVT.debug_message(l_full_name||': start');
6978: END IF;
6979:
6980: IF FND_API.to_boolean(p_init_msg_list) THEN
6981: FND_MSG_PUB.initialize;
6982: END IF;
6983:
6984: IF NOT FND_API.compatible_api_call(
6980: IF FND_API.to_boolean(p_init_msg_list) THEN
6981: FND_MSG_PUB.initialize;
6982: END IF;
6983:
6984: IF NOT FND_API.compatible_api_call(
6985: l_api_version,
6986: p_api_version,
6987: l_api_name,
6988: g_pkg_name
6986: p_api_version,
6987: l_api_name,
6988: g_pkg_name
6989: ) THEN
6990: RAISE FND_API.g_exc_unexpected_error;
6991: END IF;
6992:
6993: x_return_status := FND_API.g_ret_sts_success;
6994:
6989: ) THEN
6990: RAISE FND_API.g_exc_unexpected_error;
6991: END IF;
6992:
6993: x_return_status := FND_API.g_ret_sts_success;
6994:
6995: ----------------- Process batch ----------------
6996: OPEN csr_resale_batch(p_resale_batch_id);
6997: FETCH csr_resale_batch INTO l_cust_account_id
7018: ,x_return_status => l_return_status
7019: );
7020:
7021: -- do not settle claim if trade profile has errors
7022: IF l_return_status = FND_API.g_ret_sts_error or
7023: l_return_status = FND_API.g_ret_sts_unexp_error THEN
7024: l_close_claim_flag := 'F';
7025: END IF;
7026:
7019: );
7020:
7021: -- do not settle claim if trade profile has errors
7022: IF l_return_status = FND_API.g_ret_sts_error or
7023: l_return_status = FND_API.g_ret_sts_unexp_error THEN
7024: l_close_claim_flag := 'F';
7025: END IF;
7026:
7027: l_payment_method := l_cust_trade_profile.payment_method;
7093: ,p_from_amount => l_line_amount
7094: ,x_return_status => l_return_status
7095: ,x_to_amount => l_new_line_amount
7096: ,x_rate => l_rate);
7097: IF l_return_status = FND_API.g_ret_sts_error THEN
7098: RAISE FND_API.g_exc_error;
7099: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
7100: RAISE FND_API.g_exc_unexpected_error;
7101: END IF;
7094: ,x_return_status => l_return_status
7095: ,x_to_amount => l_new_line_amount
7096: ,x_rate => l_rate);
7097: IF l_return_status = FND_API.g_ret_sts_error THEN
7098: RAISE FND_API.g_exc_error;
7099: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
7100: RAISE FND_API.g_exc_unexpected_error;
7101: END IF;
7102: END IF;
7095: ,x_to_amount => l_new_line_amount
7096: ,x_rate => l_rate);
7097: IF l_return_status = FND_API.g_ret_sts_error THEN
7098: RAISE FND_API.g_exc_error;
7099: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
7100: RAISE FND_API.g_exc_unexpected_error;
7101: END IF;
7102: END IF;
7103: l_claim_amount := l_claim_amount + l_new_line_amount;
7096: ,x_rate => l_rate);
7097: IF l_return_status = FND_API.g_ret_sts_error THEN
7098: RAISE FND_API.g_exc_error;
7099: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
7100: RAISE FND_API.g_exc_unexpected_error;
7101: END IF;
7102: END IF;
7103: l_claim_amount := l_claim_amount + l_new_line_amount;
7104:
7124: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
7125: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CANT_CONVERT_UOM');
7126: FND_MSG_PUB.add;
7127: END IF;
7128: RAISE FND_API.g_exc_error;
7129: END IF;
7130:
7131: ELSE
7132: -- the uom is same, only need to recalculate the correct quantity
7165: l_claim_rec.payment_method := l_payment_method;
7166: --bug # 6690147 julou FP 6276634(+)
7167: --For -ve claim the settlement method defined in trade profile is not valid.
7168: --So, hard coded to DEBIT_MEMO.
7169: IF l_claim_rec.amount < 0 AND l_payment_method IS NOT NULL AND l_payment_method <> FND_API.G_MISS_CHAR THEN
7170: l_claim_rec.payment_method := 'DEBIT_MEMO';
7171: END IF;
7172: --bug # 6690147 (-)
7173: l_claim_rec.cust_billto_acct_site_id := l_cust_billto_acct_site_id;
7187: ,x_msg_data => x_msg_data
7188: ,x_msg_count => x_msg_count
7189: ,p_claim => l_claim_rec
7190: ,x_claim_id => l_claim_id);
7191: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7192: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7193: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7194: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7195: END IF;
7188: ,x_msg_count => x_msg_count
7189: ,p_claim => l_claim_rec
7190: ,x_claim_id => l_claim_id);
7191: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7192: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7193: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7194: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7195: END IF;
7196:
7189: ,p_claim => l_claim_rec
7190: ,x_claim_id => l_claim_id);
7191: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7192: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7193: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7194: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7195: END IF;
7196:
7197: IF OZF_DEBUG_HIGH_ON THEN
7190: ,x_claim_id => l_claim_id);
7191: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7192: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7193: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7194: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7195: END IF;
7196:
7197: IF OZF_DEBUG_HIGH_ON THEN
7198: OZF_Utility_PVT.debug_message('Created claim id:'||l_claim_id);
7205: END LOOP;
7206:
7207: OZF_CLAIM_LINE_PVT.Create_Claim_Line_Tbl(
7208: p_api_version => 1.0
7209: ,p_init_msg_list => FND_API.g_false
7210: ,p_commit => FND_API.g_false
7211: ,p_validation_level => FND_API.g_valid_level_full
7212: ,x_return_status => l_return_status
7213: ,x_msg_count => x_msg_count
7206:
7207: OZF_CLAIM_LINE_PVT.Create_Claim_Line_Tbl(
7208: p_api_version => 1.0
7209: ,p_init_msg_list => FND_API.g_false
7210: ,p_commit => FND_API.g_false
7211: ,p_validation_level => FND_API.g_valid_level_full
7212: ,x_return_status => l_return_status
7213: ,x_msg_count => x_msg_count
7214: ,x_msg_data => x_msg_data
7207: OZF_CLAIM_LINE_PVT.Create_Claim_Line_Tbl(
7208: p_api_version => 1.0
7209: ,p_init_msg_list => FND_API.g_false
7210: ,p_commit => FND_API.g_false
7211: ,p_validation_level => FND_API.g_valid_level_full
7212: ,x_return_status => l_return_status
7213: ,x_msg_count => x_msg_count
7214: ,x_msg_data => x_msg_data
7215: ,p_claim_line_tbl => l_line_tbl
7213: ,x_msg_count => x_msg_count
7214: ,x_msg_data => x_msg_data
7215: ,p_claim_line_tbl => l_line_tbl
7216: ,x_error_index => l_error_index);
7217: IF l_return_status = FND_API.g_ret_sts_error THEN
7218: RAISE FND_API.g_exc_error;
7219: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
7220: RAISE FND_API.g_exc_error;
7221: END IF;
7214: ,x_msg_data => x_msg_data
7215: ,p_claim_line_tbl => l_line_tbl
7216: ,x_error_index => l_error_index);
7217: IF l_return_status = FND_API.g_ret_sts_error THEN
7218: RAISE FND_API.g_exc_error;
7219: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
7220: RAISE FND_API.g_exc_error;
7221: END IF;
7222:
7215: ,p_claim_line_tbl => l_line_tbl
7216: ,x_error_index => l_error_index);
7217: IF l_return_status = FND_API.g_ret_sts_error THEN
7218: RAISE FND_API.g_exc_error;
7219: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
7220: RAISE FND_API.g_exc_error;
7221: END IF;
7222:
7223: IF OZF_DEBUG_HIGH_ON THEN
7216: ,x_error_index => l_error_index);
7217: IF l_return_status = FND_API.g_ret_sts_error THEN
7218: RAISE FND_API.g_exc_error;
7219: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
7220: RAISE FND_API.g_exc_error;
7221: END IF;
7222:
7223: IF OZF_DEBUG_HIGH_ON THEN
7224: OZF_Utility_PVT.debug_message('Claim lines created for claim_id=' || l_claim_id);
7230: EXIT WHEN csr_claim_line%NOTFOUND;
7231:
7232: Asso_Accruals_To_Claim_Line(
7233: p_api_version => 1.0
7234: ,p_init_msg_list => FND_API.g_false
7235: ,p_commit => FND_API.g_false
7236: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
7237: ,x_return_status => l_return_status
7238: ,x_msg_count => x_msg_count
7231:
7232: Asso_Accruals_To_Claim_Line(
7233: p_api_version => 1.0
7234: ,p_init_msg_list => FND_API.g_false
7235: ,p_commit => FND_API.g_false
7236: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
7237: ,x_return_status => l_return_status
7238: ,x_msg_count => x_msg_count
7239: ,x_msg_data => x_msg_data
7232: Asso_Accruals_To_Claim_Line(
7233: p_api_version => 1.0
7234: ,p_init_msg_list => FND_API.g_false
7235: ,p_commit => FND_API.g_false
7236: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
7237: ,x_return_status => l_return_status
7238: ,x_msg_count => x_msg_count
7239: ,x_msg_data => x_msg_data
7240: ,p_claim_line_id => l_claim_line_id
7239: ,x_msg_data => x_msg_data
7240: ,p_claim_line_id => l_claim_line_id
7241: );
7242:
7243: IF l_return_status = FND_API.g_ret_sts_error THEN
7244: RAISE FND_API.g_exc_error;
7245: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
7246: RAISE FND_API.g_exc_error;
7247: END IF;
7240: ,p_claim_line_id => l_claim_line_id
7241: );
7242:
7243: IF l_return_status = FND_API.g_ret_sts_error THEN
7244: RAISE FND_API.g_exc_error;
7245: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
7246: RAISE FND_API.g_exc_error;
7247: END IF;
7248: END LOOP;
7241: );
7242:
7243: IF l_return_status = FND_API.g_ret_sts_error THEN
7244: RAISE FND_API.g_exc_error;
7245: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
7246: RAISE FND_API.g_exc_error;
7247: END IF;
7248: END LOOP;
7249: CLOSE csr_claim_line;
7242:
7243: IF l_return_status = FND_API.g_ret_sts_error THEN
7244: RAISE FND_API.g_exc_error;
7245: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
7246: RAISE FND_API.g_exc_error;
7247: END IF;
7248: END LOOP;
7249: CLOSE csr_claim_line;
7250:
7253: p_claim_id => l_claim_id
7254: ,x_return_status => l_return_status
7255: ,x_msg_count => x_msg_count
7256: ,x_msg_data => x_msg_data);
7257: IF l_return_status = fnd_api.g_ret_sts_error THEN
7258: RAISE FND_API.g_exc_error;
7259: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7260: RAISE FND_API.g_exc_unexpected_error;
7261: END IF;
7254: ,x_return_status => l_return_status
7255: ,x_msg_count => x_msg_count
7256: ,x_msg_data => x_msg_data);
7257: IF l_return_status = fnd_api.g_ret_sts_error THEN
7258: RAISE FND_API.g_exc_error;
7259: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7260: RAISE FND_API.g_exc_unexpected_error;
7261: END IF;
7262: END IF;
7255: ,x_msg_count => x_msg_count
7256: ,x_msg_data => x_msg_data);
7257: IF l_return_status = fnd_api.g_ret_sts_error THEN
7258: RAISE FND_API.g_exc_error;
7259: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7260: RAISE FND_API.g_exc_unexpected_error;
7261: END IF;
7262: END IF;
7263:
7256: ,x_msg_data => x_msg_data);
7257: IF l_return_status = fnd_api.g_ret_sts_error THEN
7258: RAISE FND_API.g_exc_error;
7259: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7260: RAISE FND_API.g_exc_unexpected_error;
7261: END IF;
7262: END IF;
7263:
7264: END LOOP;
7264: END LOOP;
7265: CLOSE csr_batch_request;
7266:
7267: ------------------------- finish -------------------------------
7268: IF FND_API.to_boolean(p_commit) THEN
7269: COMMIT;
7270: END IF;
7271:
7272: FND_MSG_PUB.count_and_get(
7269: COMMIT;
7270: END IF;
7271:
7272: FND_MSG_PUB.count_and_get(
7273: p_encoded => FND_API.g_false,
7274: p_count => x_msg_count,
7275: p_data => x_msg_data);
7276:
7277: IF OZF_DEBUG_HIGH_ON THEN
7278: OZF_Utility_PVT.debug_message(l_full_name ||': end');
7279: END IF;
7280:
7281: EXCEPTION
7282: WHEN FND_API.g_exc_error THEN
7283: ROLLBACK TO Create_Claim_Per_SPR;
7284: x_return_status := FND_API.g_ret_sts_error;
7285: FND_MSG_PUB.count_and_get (
7286: p_encoded => FND_API.g_false
7280:
7281: EXCEPTION
7282: WHEN FND_API.g_exc_error THEN
7283: ROLLBACK TO Create_Claim_Per_SPR;
7284: x_return_status := FND_API.g_ret_sts_error;
7285: FND_MSG_PUB.count_and_get (
7286: p_encoded => FND_API.g_false
7287: ,p_count => x_msg_count
7288: ,p_data => x_msg_data
7282: WHEN FND_API.g_exc_error THEN
7283: ROLLBACK TO Create_Claim_Per_SPR;
7284: x_return_status := FND_API.g_ret_sts_error;
7285: FND_MSG_PUB.count_and_get (
7286: p_encoded => FND_API.g_false
7287: ,p_count => x_msg_count
7288: ,p_data => x_msg_data
7289: );
7290:
7287: ,p_count => x_msg_count
7288: ,p_data => x_msg_data
7289: );
7290:
7291: WHEN FND_API.g_exc_unexpected_error THEN
7292: ROLLBACK TO Create_Claim_Per_SPR;
7293: x_return_status := FND_API.g_ret_sts_unexp_error ;
7294: FND_MSG_PUB.count_and_get (
7295: p_encoded => FND_API.g_false
7289: );
7290:
7291: WHEN FND_API.g_exc_unexpected_error THEN
7292: ROLLBACK TO Create_Claim_Per_SPR;
7293: x_return_status := FND_API.g_ret_sts_unexp_error ;
7294: FND_MSG_PUB.count_and_get (
7295: p_encoded => FND_API.g_false
7296: ,p_count => x_msg_count
7297: ,p_data => x_msg_data
7291: WHEN FND_API.g_exc_unexpected_error THEN
7292: ROLLBACK TO Create_Claim_Per_SPR;
7293: x_return_status := FND_API.g_ret_sts_unexp_error ;
7294: FND_MSG_PUB.count_and_get (
7295: p_encoded => FND_API.g_false
7296: ,p_count => x_msg_count
7297: ,p_data => x_msg_data
7298: );
7299:
7298: );
7299:
7300: WHEN OTHERS THEN
7301: ROLLBACK TO Create_Claim_Per_SPR;
7302: x_return_status := FND_API.g_ret_sts_unexp_error ;
7303: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
7304: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
7305: END IF;
7306: FND_MSG_PUB.count_and_get(
7303: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
7304: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
7305: END IF;
7306: FND_MSG_PUB.count_and_get(
7307: p_encoded => FND_API.g_false
7308: ,p_count => x_msg_count
7309: ,p_data => x_msg_data
7310: );
7311:
7328: -- Bug# 8571085 fixed.
7329: ---------------------------------------------------------------------
7330: PROCEDURE Create_Claim_Per_Batch(
7331: p_api_version IN NUMBER
7332: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
7333: ,p_commit IN VARCHAR2 := FND_API.g_false
7334: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
7335: ,x_return_status OUT NOCOPY VARCHAR2
7336: ,x_msg_count OUT NOCOPY NUMBER
7329: ---------------------------------------------------------------------
7330: PROCEDURE Create_Claim_Per_Batch(
7331: p_api_version IN NUMBER
7332: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
7333: ,p_commit IN VARCHAR2 := FND_API.g_false
7334: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
7335: ,x_return_status OUT NOCOPY VARCHAR2
7336: ,x_msg_count OUT NOCOPY NUMBER
7337: ,x_msg_data OUT NOCOPY VARCHAR2
7330: PROCEDURE Create_Claim_Per_Batch(
7331: p_api_version IN NUMBER
7332: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
7333: ,p_commit IN VARCHAR2 := FND_API.g_false
7334: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
7335: ,x_return_status OUT NOCOPY VARCHAR2
7336: ,x_msg_count OUT NOCOPY NUMBER
7337: ,x_msg_data OUT NOCOPY VARCHAR2
7338: ,p_resale_batch_id IN NUMBER
7373: l_offer_uom_code VARCHAR2(3);
7374: l_offer_quantity NUMBER;
7375: l_trans_curr_code VARCHAR2(15);
7376: l_new_claim_quantity NUMBER;
7377: l_exchange_rate_type VARCHAR2(30) := FND_API.G_MISS_CHAR;
7378: l_rate NUMBER;
7379:
7380: --POS Batch Processing by profiles by ateotia (+)
7381: l_ship_from_stock_flag VARCHAR2(1);
7466: IF OZF_DEBUG_HIGH_ON THEN
7467: OZF_Utility_PVT.debug_message(l_full_name||': start');
7468: END IF;
7469:
7470: IF FND_API.to_boolean(p_init_msg_list) THEN
7471: FND_MSG_PUB.initialize;
7472: END IF;
7473:
7474: IF NOT FND_API.compatible_api_call(
7470: IF FND_API.to_boolean(p_init_msg_list) THEN
7471: FND_MSG_PUB.initialize;
7472: END IF;
7473:
7474: IF NOT FND_API.compatible_api_call(
7475: l_api_version,
7476: p_api_version,
7477: l_api_name,
7478: g_pkg_name
7476: p_api_version,
7477: l_api_name,
7478: g_pkg_name
7479: ) THEN
7480: RAISE FND_API.g_exc_unexpected_error;
7481: END IF;
7482:
7483: x_return_status := FND_API.g_ret_sts_success;
7484:
7479: ) THEN
7480: RAISE FND_API.g_exc_unexpected_error;
7481: END IF;
7482:
7483: x_return_status := FND_API.g_ret_sts_success;
7484:
7485: ----------------- Process batch ----------------
7486: OPEN csr_resale_batch(p_resale_batch_id);
7487: FETCH csr_resale_batch INTO l_cust_account_id
7508: ,x_return_status => l_return_status
7509: );
7510:
7511: -- do not settle claim if trade profile has errors
7512: IF l_return_status = FND_API.g_ret_sts_error or
7513: l_return_status = FND_API.g_ret_sts_unexp_error THEN
7514: l_close_claim_flag := 'F';
7515: END IF;
7516:
7509: );
7510:
7511: -- do not settle claim if trade profile has errors
7512: IF l_return_status = FND_API.g_ret_sts_error or
7513: l_return_status = FND_API.g_ret_sts_unexp_error THEN
7514: l_close_claim_flag := 'F';
7515: END IF;
7516:
7517: l_payment_method := l_cust_trade_profile.payment_method;
7574: ,p_from_amount => l_line_amount
7575: ,x_return_status => l_return_status
7576: ,x_to_amount => l_new_line_amount
7577: ,x_rate => l_rate);
7578: IF l_return_status = FND_API.g_ret_sts_error THEN
7579: RAISE FND_API.g_exc_error;
7580: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
7581: RAISE FND_API.g_exc_unexpected_error;
7582: END IF;
7575: ,x_return_status => l_return_status
7576: ,x_to_amount => l_new_line_amount
7577: ,x_rate => l_rate);
7578: IF l_return_status = FND_API.g_ret_sts_error THEN
7579: RAISE FND_API.g_exc_error;
7580: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
7581: RAISE FND_API.g_exc_unexpected_error;
7582: END IF;
7583: END IF;
7576: ,x_to_amount => l_new_line_amount
7577: ,x_rate => l_rate);
7578: IF l_return_status = FND_API.g_ret_sts_error THEN
7579: RAISE FND_API.g_exc_error;
7580: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
7581: RAISE FND_API.g_exc_unexpected_error;
7582: END IF;
7583: END IF;
7584: l_claim_amount := l_claim_amount + l_new_line_amount;
7577: ,x_rate => l_rate);
7578: IF l_return_status = FND_API.g_ret_sts_error THEN
7579: RAISE FND_API.g_exc_error;
7580: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
7581: RAISE FND_API.g_exc_unexpected_error;
7582: END IF;
7583: END IF;
7584: l_claim_amount := l_claim_amount + l_new_line_amount;
7585:
7607: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
7608: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CANT_CONVERT_UOM');
7609: FND_MSG_PUB.add;
7610: END IF;
7611: RAISE FND_API.g_exc_error;
7612: END IF;
7613:
7614: ELSE
7615: -- the uom is same, only need to recalculate the correct quantity
7649: l_claim_rec.payment_method := l_payment_method;
7650: --bug # 6690147 julou FP 6276634(+)
7651: --For -ve claim the settlement method defined in trade profile is not valid.
7652: --So, hard coded to DEBIT_MEMO.
7653: IF l_claim_rec.amount < 0 AND l_payment_method IS NOT NULL AND l_payment_method <> FND_API.G_MISS_CHAR THEN
7654: l_claim_rec.payment_method := 'DEBIT_MEMO';
7655: END IF;
7656: --bug # 6690147 (-)
7657: l_claim_rec.cust_billto_acct_site_id := l_cust_billto_acct_site_id;
7671: ,x_msg_data => x_msg_data
7672: ,x_msg_count => x_msg_count
7673: ,p_claim => l_claim_rec
7674: ,x_claim_id => l_claim_id);
7675: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7676: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7677: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7678: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7679: END IF;
7672: ,x_msg_count => x_msg_count
7673: ,p_claim => l_claim_rec
7674: ,x_claim_id => l_claim_id);
7675: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7676: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7677: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7678: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7679: END IF;
7680:
7673: ,p_claim => l_claim_rec
7674: ,x_claim_id => l_claim_id);
7675: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7676: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7677: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7678: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7679: END IF;
7680:
7681: IF OZF_DEBUG_HIGH_ON THEN
7674: ,x_claim_id => l_claim_id);
7675: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7676: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7677: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7678: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7679: END IF;
7680:
7681: IF OZF_DEBUG_HIGH_ON THEN
7682: OZF_Utility_PVT.debug_message('Created claim id:'||l_claim_id);
7689: END LOOP;
7690:
7691: OZF_CLAIM_LINE_PVT.Create_Claim_Line_Tbl(
7692: p_api_version => 1.0
7693: ,p_init_msg_list => FND_API.g_false
7694: ,p_commit => FND_API.g_false
7695: ,p_validation_level => FND_API.g_valid_level_full
7696: ,x_return_status => l_return_status
7697: ,x_msg_count => x_msg_count
7690:
7691: OZF_CLAIM_LINE_PVT.Create_Claim_Line_Tbl(
7692: p_api_version => 1.0
7693: ,p_init_msg_list => FND_API.g_false
7694: ,p_commit => FND_API.g_false
7695: ,p_validation_level => FND_API.g_valid_level_full
7696: ,x_return_status => l_return_status
7697: ,x_msg_count => x_msg_count
7698: ,x_msg_data => x_msg_data
7691: OZF_CLAIM_LINE_PVT.Create_Claim_Line_Tbl(
7692: p_api_version => 1.0
7693: ,p_init_msg_list => FND_API.g_false
7694: ,p_commit => FND_API.g_false
7695: ,p_validation_level => FND_API.g_valid_level_full
7696: ,x_return_status => l_return_status
7697: ,x_msg_count => x_msg_count
7698: ,x_msg_data => x_msg_data
7699: ,p_claim_line_tbl => l_line_tbl
7697: ,x_msg_count => x_msg_count
7698: ,x_msg_data => x_msg_data
7699: ,p_claim_line_tbl => l_line_tbl
7700: ,x_error_index => l_error_index);
7701: IF l_return_status = FND_API.g_ret_sts_error THEN
7702: RAISE FND_API.g_exc_error;
7703: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
7704: RAISE FND_API.g_exc_error;
7705: END IF;
7698: ,x_msg_data => x_msg_data
7699: ,p_claim_line_tbl => l_line_tbl
7700: ,x_error_index => l_error_index);
7701: IF l_return_status = FND_API.g_ret_sts_error THEN
7702: RAISE FND_API.g_exc_error;
7703: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
7704: RAISE FND_API.g_exc_error;
7705: END IF;
7706:
7699: ,p_claim_line_tbl => l_line_tbl
7700: ,x_error_index => l_error_index);
7701: IF l_return_status = FND_API.g_ret_sts_error THEN
7702: RAISE FND_API.g_exc_error;
7703: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
7704: RAISE FND_API.g_exc_error;
7705: END IF;
7706:
7707: IF OZF_DEBUG_HIGH_ON THEN
7700: ,x_error_index => l_error_index);
7701: IF l_return_status = FND_API.g_ret_sts_error THEN
7702: RAISE FND_API.g_exc_error;
7703: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
7704: RAISE FND_API.g_exc_error;
7705: END IF;
7706:
7707: IF OZF_DEBUG_HIGH_ON THEN
7708: OZF_Utility_PVT.debug_message('Claim lines created for claim_id=' || l_claim_id);
7714: EXIT WHEN csr_claim_line%NOTFOUND;
7715:
7716: Asso_Accruals_To_Claim_Line(
7717: p_api_version => 1.0
7718: ,p_init_msg_list => FND_API.g_false
7719: ,p_commit => FND_API.g_false
7720: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
7721: ,x_return_status => l_return_status
7722: ,x_msg_count => x_msg_count
7715:
7716: Asso_Accruals_To_Claim_Line(
7717: p_api_version => 1.0
7718: ,p_init_msg_list => FND_API.g_false
7719: ,p_commit => FND_API.g_false
7720: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
7721: ,x_return_status => l_return_status
7722: ,x_msg_count => x_msg_count
7723: ,x_msg_data => x_msg_data
7716: Asso_Accruals_To_Claim_Line(
7717: p_api_version => 1.0
7718: ,p_init_msg_list => FND_API.g_false
7719: ,p_commit => FND_API.g_false
7720: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
7721: ,x_return_status => l_return_status
7722: ,x_msg_count => x_msg_count
7723: ,x_msg_data => x_msg_data
7724: ,p_claim_line_id => l_claim_line_id);
7721: ,x_return_status => l_return_status
7722: ,x_msg_count => x_msg_count
7723: ,x_msg_data => x_msg_data
7724: ,p_claim_line_id => l_claim_line_id);
7725: IF l_return_status = FND_API.g_ret_sts_error THEN
7726: RAISE FND_API.g_exc_error;
7727: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
7728: RAISE FND_API.g_exc_error;
7729: END IF;
7722: ,x_msg_count => x_msg_count
7723: ,x_msg_data => x_msg_data
7724: ,p_claim_line_id => l_claim_line_id);
7725: IF l_return_status = FND_API.g_ret_sts_error THEN
7726: RAISE FND_API.g_exc_error;
7727: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
7728: RAISE FND_API.g_exc_error;
7729: END IF;
7730: END LOOP;
7723: ,x_msg_data => x_msg_data
7724: ,p_claim_line_id => l_claim_line_id);
7725: IF l_return_status = FND_API.g_ret_sts_error THEN
7726: RAISE FND_API.g_exc_error;
7727: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
7728: RAISE FND_API.g_exc_error;
7729: END IF;
7730: END LOOP;
7731: CLOSE csr_claim_line;
7724: ,p_claim_line_id => l_claim_line_id);
7725: IF l_return_status = FND_API.g_ret_sts_error THEN
7726: RAISE FND_API.g_exc_error;
7727: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
7728: RAISE FND_API.g_exc_error;
7729: END IF;
7730: END LOOP;
7731: CLOSE csr_claim_line;
7732:
7735: p_claim_id => l_claim_id
7736: ,x_return_status => l_return_status
7737: ,x_msg_count => x_msg_count
7738: ,x_msg_data => x_msg_data);
7739: IF l_return_status = fnd_api.g_ret_sts_error THEN
7740: RAISE FND_API.g_exc_error;
7741: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7742: RAISE FND_API.g_exc_unexpected_error;
7743: END IF;
7736: ,x_return_status => l_return_status
7737: ,x_msg_count => x_msg_count
7738: ,x_msg_data => x_msg_data);
7739: IF l_return_status = fnd_api.g_ret_sts_error THEN
7740: RAISE FND_API.g_exc_error;
7741: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7742: RAISE FND_API.g_exc_unexpected_error;
7743: END IF;
7744: END IF;
7737: ,x_msg_count => x_msg_count
7738: ,x_msg_data => x_msg_data);
7739: IF l_return_status = fnd_api.g_ret_sts_error THEN
7740: RAISE FND_API.g_exc_error;
7741: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7742: RAISE FND_API.g_exc_unexpected_error;
7743: END IF;
7744: END IF;
7745:
7738: ,x_msg_data => x_msg_data);
7739: IF l_return_status = fnd_api.g_ret_sts_error THEN
7740: RAISE FND_API.g_exc_error;
7741: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7742: RAISE FND_API.g_exc_unexpected_error;
7743: END IF;
7744: END IF;
7745:
7746: ------------------------- finish -------------------------------
7743: END IF;
7744: END IF;
7745:
7746: ------------------------- finish -------------------------------
7747: IF FND_API.to_boolean(p_commit) THEN
7748: COMMIT;
7749: END IF;
7750:
7751: FND_MSG_PUB.count_and_get(
7748: COMMIT;
7749: END IF;
7750:
7751: FND_MSG_PUB.count_and_get(
7752: p_encoded => FND_API.g_false,
7753: p_count => x_msg_count,
7754: p_data => x_msg_data);
7755:
7756: IF OZF_DEBUG_HIGH_ON THEN
7757: OZF_Utility_PVT.debug_message(l_full_name ||': end');
7758: END IF;
7759:
7760: EXCEPTION
7761: WHEN FND_API.g_exc_error THEN
7762: ROLLBACK TO Create_Claim_Per_Batch;
7763: x_return_status := FND_API.g_ret_sts_error;
7764: FND_MSG_PUB.count_and_get (
7765: p_encoded => FND_API.g_false
7759:
7760: EXCEPTION
7761: WHEN FND_API.g_exc_error THEN
7762: ROLLBACK TO Create_Claim_Per_Batch;
7763: x_return_status := FND_API.g_ret_sts_error;
7764: FND_MSG_PUB.count_and_get (
7765: p_encoded => FND_API.g_false
7766: ,p_count => x_msg_count
7767: ,p_data => x_msg_data
7761: WHEN FND_API.g_exc_error THEN
7762: ROLLBACK TO Create_Claim_Per_Batch;
7763: x_return_status := FND_API.g_ret_sts_error;
7764: FND_MSG_PUB.count_and_get (
7765: p_encoded => FND_API.g_false
7766: ,p_count => x_msg_count
7767: ,p_data => x_msg_data
7768: );
7769:
7766: ,p_count => x_msg_count
7767: ,p_data => x_msg_data
7768: );
7769:
7770: WHEN FND_API.g_exc_unexpected_error THEN
7771: ROLLBACK TO Create_Claim_Per_Batch;
7772: x_return_status := FND_API.g_ret_sts_unexp_error ;
7773: FND_MSG_PUB.count_and_get (
7774: p_encoded => FND_API.g_false
7768: );
7769:
7770: WHEN FND_API.g_exc_unexpected_error THEN
7771: ROLLBACK TO Create_Claim_Per_Batch;
7772: x_return_status := FND_API.g_ret_sts_unexp_error ;
7773: FND_MSG_PUB.count_and_get (
7774: p_encoded => FND_API.g_false
7775: ,p_count => x_msg_count
7776: ,p_data => x_msg_data
7770: WHEN FND_API.g_exc_unexpected_error THEN
7771: ROLLBACK TO Create_Claim_Per_Batch;
7772: x_return_status := FND_API.g_ret_sts_unexp_error ;
7773: FND_MSG_PUB.count_and_get (
7774: p_encoded => FND_API.g_false
7775: ,p_count => x_msg_count
7776: ,p_data => x_msg_data
7777: );
7778:
7777: );
7778:
7779: WHEN OTHERS THEN
7780: ROLLBACK TO Create_Claim_Per_Batch;
7781: x_return_status := FND_API.g_ret_sts_unexp_error ;
7782: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
7783: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
7784: END IF;
7785: FND_MSG_PUB.count_and_get(
7782: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
7783: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
7784: END IF;
7785: FND_MSG_PUB.count_and_get(
7786: p_encoded => FND_API.g_false
7787: ,p_count => x_msg_count
7788: ,p_data => x_msg_data
7789: );
7790:
7807: -- 03-Jun-09 ateotia Bug# 8571085 fixed.
7808: ---------------------------------------------------------------------
7809: PROCEDURE Initiate_Batch_Payment(
7810: p_api_version IN NUMBER
7811: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
7812: ,p_commit IN VARCHAR2 := FND_API.g_false
7813: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
7814: ,x_return_status OUT NOCOPY VARCHAR2
7815: ,x_msg_count OUT NOCOPY NUMBER
7808: ---------------------------------------------------------------------
7809: PROCEDURE Initiate_Batch_Payment(
7810: p_api_version IN NUMBER
7811: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
7812: ,p_commit IN VARCHAR2 := FND_API.g_false
7813: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
7814: ,x_return_status OUT NOCOPY VARCHAR2
7815: ,x_msg_count OUT NOCOPY NUMBER
7816: ,x_msg_data OUT NOCOPY VARCHAR2
7809: PROCEDURE Initiate_Batch_Payment(
7810: p_api_version IN NUMBER
7811: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
7812: ,p_commit IN VARCHAR2 := FND_API.g_false
7813: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
7814: ,x_return_status OUT NOCOPY VARCHAR2
7815: ,x_msg_count OUT NOCOPY NUMBER
7816: ,x_msg_data OUT NOCOPY VARCHAR2
7817: ,p_resale_batch_id IN NUMBER
7830: IF OZF_DEBUG_HIGH_ON THEN
7831: OZF_Utility_PVT.debug_message(l_full_name||': start');
7832: END IF;
7833:
7834: IF FND_API.to_boolean(p_init_msg_list) THEN
7835: FND_MSG_PUB.initialize;
7836: END IF;
7837:
7838: IF NOT FND_API.compatible_api_call(
7834: IF FND_API.to_boolean(p_init_msg_list) THEN
7835: FND_MSG_PUB.initialize;
7836: END IF;
7837:
7838: IF NOT FND_API.compatible_api_call(
7839: l_api_version,
7840: p_api_version,
7841: l_api_name,
7842: g_pkg_name
7840: p_api_version,
7841: l_api_name,
7842: g_pkg_name
7843: ) THEN
7844: RAISE FND_API.g_exc_unexpected_error;
7845: END IF;
7846:
7847: x_return_status := FND_API.g_ret_sts_success;
7848:
7843: ) THEN
7844: RAISE FND_API.g_exc_unexpected_error;
7845: END IF;
7846:
7847: x_return_status := FND_API.g_ret_sts_success;
7848:
7849: ----------------- Process batch ----------------
7850: l_consolidate_flag := FND_PROFILE.VALUE('OZF_CONSOLIDATE_SHIP_DEBIT_CLAIM');
7851: IF NVL(l_consolidate_flag,'N') = 'N' THEN
7850: l_consolidate_flag := FND_PROFILE.VALUE('OZF_CONSOLIDATE_SHIP_DEBIT_CLAIM');
7851: IF NVL(l_consolidate_flag,'N') = 'N' THEN
7852: Create_Claim_Per_SPR(
7853: p_api_version => 1.0
7854: ,p_init_msg_list => FND_API.g_false
7855: ,p_commit => FND_API.g_false
7856: ,p_validation_level => FND_API.g_valid_level_full
7857: ,x_return_status => l_return_status
7858: ,x_msg_count => x_msg_count
7851: IF NVL(l_consolidate_flag,'N') = 'N' THEN
7852: Create_Claim_Per_SPR(
7853: p_api_version => 1.0
7854: ,p_init_msg_list => FND_API.g_false
7855: ,p_commit => FND_API.g_false
7856: ,p_validation_level => FND_API.g_valid_level_full
7857: ,x_return_status => l_return_status
7858: ,x_msg_count => x_msg_count
7859: ,x_msg_data => x_msg_data
7852: Create_Claim_Per_SPR(
7853: p_api_version => 1.0
7854: ,p_init_msg_list => FND_API.g_false
7855: ,p_commit => FND_API.g_false
7856: ,p_validation_level => FND_API.g_valid_level_full
7857: ,x_return_status => l_return_status
7858: ,x_msg_count => x_msg_count
7859: ,x_msg_data => x_msg_data
7860: ,p_resale_batch_id => p_resale_batch_id
7859: ,x_msg_data => x_msg_data
7860: ,p_resale_batch_id => p_resale_batch_id
7861: );
7862:
7863: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7864: RAISE FND_API.G_EXC_ERROR;
7865: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7866: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7867: END IF;
7860: ,p_resale_batch_id => p_resale_batch_id
7861: );
7862:
7863: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7864: RAISE FND_API.G_EXC_ERROR;
7865: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7866: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7867: END IF;
7868:
7861: );
7862:
7863: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7864: RAISE FND_API.G_EXC_ERROR;
7865: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7866: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7867: END IF;
7868:
7869: ELSIF NVL(l_consolidate_flag,'N') = 'Y' THEN
7862:
7863: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7864: RAISE FND_API.G_EXC_ERROR;
7865: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7866: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7867: END IF;
7868:
7869: ELSIF NVL(l_consolidate_flag,'N') = 'Y' THEN
7870: Create_Claim_Per_Batch(
7868:
7869: ELSIF NVL(l_consolidate_flag,'N') = 'Y' THEN
7870: Create_Claim_Per_Batch(
7871: p_api_version => 1.0
7872: ,p_init_msg_list => FND_API.g_false
7873: ,p_commit => FND_API.g_false
7874: ,p_validation_level => FND_API.g_valid_level_full
7875: ,x_return_status => l_return_status
7876: ,x_msg_count => x_msg_count
7869: ELSIF NVL(l_consolidate_flag,'N') = 'Y' THEN
7870: Create_Claim_Per_Batch(
7871: p_api_version => 1.0
7872: ,p_init_msg_list => FND_API.g_false
7873: ,p_commit => FND_API.g_false
7874: ,p_validation_level => FND_API.g_valid_level_full
7875: ,x_return_status => l_return_status
7876: ,x_msg_count => x_msg_count
7877: ,x_msg_data => x_msg_data
7870: Create_Claim_Per_Batch(
7871: p_api_version => 1.0
7872: ,p_init_msg_list => FND_API.g_false
7873: ,p_commit => FND_API.g_false
7874: ,p_validation_level => FND_API.g_valid_level_full
7875: ,x_return_status => l_return_status
7876: ,x_msg_count => x_msg_count
7877: ,x_msg_data => x_msg_data
7878: ,p_resale_batch_id => p_resale_batch_id
7877: ,x_msg_data => x_msg_data
7878: ,p_resale_batch_id => p_resale_batch_id
7879: );
7880:
7881: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7882: RAISE FND_API.G_EXC_ERROR;
7883: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7884: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7885: END IF;
7878: ,p_resale_batch_id => p_resale_batch_id
7879: );
7880:
7881: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7882: RAISE FND_API.G_EXC_ERROR;
7883: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7884: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7885: END IF;
7886:
7879: );
7880:
7881: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7882: RAISE FND_API.G_EXC_ERROR;
7883: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7884: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7885: END IF;
7886:
7887: END IF;
7880:
7881: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7882: RAISE FND_API.G_EXC_ERROR;
7883: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7884: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7885: END IF;
7886:
7887: END IF;
7888: --------------------- finish -------------------
7885: END IF;
7886:
7887: END IF;
7888: --------------------- finish -------------------
7889: IF FND_API.to_boolean(p_commit) THEN
7890: COMMIT;
7891: END IF;
7892:
7893: FND_MSG_PUB.count_and_get(
7890: COMMIT;
7891: END IF;
7892:
7893: FND_MSG_PUB.count_and_get(
7894: p_encoded => FND_API.g_false,
7895: p_count => x_msg_count,
7896: p_data => x_msg_data
7897: );
7898:
7900: OZF_Utility_PVT.debug_message(l_full_name ||': end');
7901: END IF;
7902:
7903: EXCEPTION
7904: WHEN FND_API.g_exc_error THEN
7905: ROLLBACK TO Initiate_Batch_Payment;
7906: x_return_status := FND_API.g_ret_sts_error;
7907: FND_MSG_PUB.count_and_get (
7908: p_encoded => FND_API.g_false
7902:
7903: EXCEPTION
7904: WHEN FND_API.g_exc_error THEN
7905: ROLLBACK TO Initiate_Batch_Payment;
7906: x_return_status := FND_API.g_ret_sts_error;
7907: FND_MSG_PUB.count_and_get (
7908: p_encoded => FND_API.g_false
7909: ,p_count => x_msg_count
7910: ,p_data => x_msg_data
7904: WHEN FND_API.g_exc_error THEN
7905: ROLLBACK TO Initiate_Batch_Payment;
7906: x_return_status := FND_API.g_ret_sts_error;
7907: FND_MSG_PUB.count_and_get (
7908: p_encoded => FND_API.g_false
7909: ,p_count => x_msg_count
7910: ,p_data => x_msg_data
7911: );
7912:
7909: ,p_count => x_msg_count
7910: ,p_data => x_msg_data
7911: );
7912:
7913: WHEN FND_API.g_exc_unexpected_error THEN
7914: ROLLBACK TO Initiate_Batch_Payment;
7915: x_return_status := FND_API.g_ret_sts_unexp_error ;
7916: FND_MSG_PUB.count_and_get (
7917: p_encoded => FND_API.g_false
7911: );
7912:
7913: WHEN FND_API.g_exc_unexpected_error THEN
7914: ROLLBACK TO Initiate_Batch_Payment;
7915: x_return_status := FND_API.g_ret_sts_unexp_error ;
7916: FND_MSG_PUB.count_and_get (
7917: p_encoded => FND_API.g_false
7918: ,p_count => x_msg_count
7919: ,p_data => x_msg_data
7913: WHEN FND_API.g_exc_unexpected_error THEN
7914: ROLLBACK TO Initiate_Batch_Payment;
7915: x_return_status := FND_API.g_ret_sts_unexp_error ;
7916: FND_MSG_PUB.count_and_get (
7917: p_encoded => FND_API.g_false
7918: ,p_count => x_msg_count
7919: ,p_data => x_msg_data
7920: );
7921:
7920: );
7921:
7922: WHEN OTHERS THEN
7923: ROLLBACK TO Initiate_Batch_Payment;
7924: x_return_status := FND_API.g_ret_sts_unexp_error ;
7925: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
7926: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
7927: END IF;
7928: FND_MSG_PUB.count_and_get(
7925: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
7926: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
7927: END IF;
7928: FND_MSG_PUB.count_and_get(
7929: p_encoded => FND_API.g_false
7930: ,p_count => x_msg_count
7931: ,p_data => x_msg_data
7932: );
7933:
7941: -- 10/15/2002 yizhang Create.
7942: ---------------------------------------------------------------------
7943: PROCEDURE Validate_Over_Utilization(
7944: p_api_version IN NUMBER
7945: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
7946: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
7947:
7948: ,x_return_status OUT NOCOPY VARCHAR2
7949: ,x_msg_count OUT NOCOPY NUMBER
7942: ---------------------------------------------------------------------
7943: PROCEDURE Validate_Over_Utilization(
7944: p_api_version IN NUMBER
7945: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
7946: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
7947:
7948: ,x_return_status OUT NOCOPY VARCHAR2
7949: ,x_msg_count OUT NOCOPY NUMBER
7950: ,x_msg_data OUT NOCOPY VARCHAR2
8025: IF OZF_DEBUG_HIGH_ON THEN
8026: OZF_Utility_PVT.debug_message(l_full_name||': start');
8027: END IF;
8028:
8029: IF FND_API.to_boolean(p_init_msg_list) THEN
8030: FND_MSG_PUB.initialize;
8031: END IF;
8032:
8033: IF NOT FND_API.compatible_api_call(
8029: IF FND_API.to_boolean(p_init_msg_list) THEN
8030: FND_MSG_PUB.initialize;
8031: END IF;
8032:
8033: IF NOT FND_API.compatible_api_call(
8034: l_api_version,
8035: p_api_version,
8036: l_api_name,
8037: g_pkg_name
8035: p_api_version,
8036: l_api_name,
8037: g_pkg_name
8038: ) THEN
8039: RAISE FND_API.g_exc_unexpected_error;
8040: END IF;
8041:
8042: x_return_status := FND_API.g_ret_sts_success;
8043:
8038: ) THEN
8039: RAISE FND_API.g_exc_unexpected_error;
8040: END IF;
8041:
8042: x_return_status := FND_API.g_ret_sts_success;
8043:
8044: ----------------------- validate ----------------------
8045: -- Scan Data over-utilization is configured in offer line
8046: IF p_funds_util_flt.offer_type = 'SCAN_DATA' THEN
8055: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8056: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CANT_ADJUST_SCANUNIT');
8057: FND_MSG_PUB.add;
8058: END IF;
8059: x_return_status := FND_API.g_ret_sts_error;
8060: RETURN;
8061:
8062: /*
8063: -- Adjustment workflow can be invoked only when profile is set
8065: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8066: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_NO_ADJUST_WORKFLOW');
8067: FND_MSG_PUB.add;
8068: END IF;
8069: x_return_status := FND_API.g_ret_sts_error;
8070: RETURN;
8071: END IF;
8072:
8073: -- At most one workflow can be invoked per claim
8079: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8080: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_MULTI_ADJ_WORKFLOW');
8081: FND_MSG_PUB.add;
8082: END IF;
8083: x_return_status := FND_API.g_ret_sts_error;
8084: RETURN;
8085: END IF;
8086: */
8087: END IF;
8095: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8096: FND_MESSAGE.set_name('OZF', 'OZF_EARN_OVERPAY_NO_OFFER');
8097: FND_MSG_PUB.add;
8098: END IF;
8099: x_return_status := FND_API.g_ret_sts_error;
8100: RETURN;
8101: END IF;
8102:
8103: --eligibility is in trade profile or system parameter
8132: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8133: FND_MESSAGE.set_name('OZF', 'OZF_EARN_OVERPAY_NOT_ALLOWED');
8134: FND_MSG_PUB.add;
8135: END IF;
8136: x_return_status := FND_API.g_ret_sts_error;
8137: RETURN;
8138: END IF;
8139: END IF;
8140:
8153: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8154: FND_MESSAGE.set_name('OZF', 'OZF_EARN_OVERPAY_NOT_ALLOWED');
8155: FND_MSG_PUB.add;
8156: END IF;
8157: x_return_status := FND_API.g_ret_sts_error;
8158: RETURN;
8159: END IF;
8160: END IF;
8161:
8187: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8188: FND_MESSAGE.set_name('OZF', 'OZF_EARN_OVERPAY_OVER_THOLD');
8189: FND_MSG_PUB.add;
8190: END IF;
8191: x_return_status := FND_API.g_ret_sts_error;
8192: RETURN;
8193: END IF;
8194: END IF;
8195: END IF;
8357: px_line_util_tbl(j).claim_line_id := p_funds_util_flt.claim_line_id;
8358: px_line_util_tbl(j).activity_product_id := p_funds_util_flt.activity_product_id;
8359: px_line_util_tbl(j).uom_code := p_funds_util_flt.uom_code;
8360: px_line_util_tbl(j).quantity := p_util_quantity; --EA
8361: px_line_util_tbl(j).update_from_tbl_flag := FND_API.g_true;
8362: --END IF;
8363: ELSE
8364: IF p_prorate_earnings_flag = 'T' THEN
8365: IF px_line_util_tbl.COUNT > 0 THEN
8400: , x_msg_data => l_msg_data
8401: , x_adj_util_id => l_adj_util_id
8402: );
8403:
8404: IF l_return_status = FND_API.g_ret_sts_error THEN
8405: RAISE FND_API.g_exc_error;
8406: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
8407: RAISE FND_API.g_exc_error;
8408: END IF;
8401: , x_adj_util_id => l_adj_util_id
8402: );
8403:
8404: IF l_return_status = FND_API.g_ret_sts_error THEN
8405: RAISE FND_API.g_exc_error;
8406: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
8407: RAISE FND_API.g_exc_error;
8408: END IF;
8409:
8402: );
8403:
8404: IF l_return_status = FND_API.g_ret_sts_error THEN
8405: RAISE FND_API.g_exc_error;
8406: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
8407: RAISE FND_API.g_exc_error;
8408: END IF;
8409:
8410: IF i = l_last_asso_index THEN
8403:
8404: IF l_return_status = FND_API.g_ret_sts_error THEN
8405: RAISE FND_API.g_exc_error;
8406: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
8407: RAISE FND_API.g_exc_error;
8408: END IF;
8409:
8410: IF i = l_last_asso_index THEN
8411: --Fix for Bug 8583847
8426:
8427: px_line_util_tbl(j).amount := OZF_UTILITY_PVT.CurrRound(px_line_util_tbl(j).amount, p_currency_rec.association_currency_code);
8428: px_line_util_tbl(j).utilization_id := l_adj_util_id;
8429: px_line_util_tbl(j).claim_line_id := p_funds_util_flt.claim_line_id;
8430: px_line_util_tbl(j).update_from_tbl_flag := FND_API.g_true;
8431:
8432: END IF;
8433: j := j + 1;
8434: END LOOP;
8475: , x_msg_data => l_msg_data
8476: , x_adj_util_id => l_adj_util_id
8477: );
8478:
8479: IF l_return_status = FND_API.g_ret_sts_error THEN
8480: RAISE FND_API.g_exc_error;
8481: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
8482: RAISE FND_API.g_exc_error;
8483: END IF;
8476: , x_adj_util_id => l_adj_util_id
8477: );
8478:
8479: IF l_return_status = FND_API.g_ret_sts_error THEN
8480: RAISE FND_API.g_exc_error;
8481: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
8482: RAISE FND_API.g_exc_error;
8483: END IF;
8484:
8477: );
8478:
8479: IF l_return_status = FND_API.g_ret_sts_error THEN
8480: RAISE FND_API.g_exc_error;
8481: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
8482: RAISE FND_API.g_exc_error;
8483: END IF;
8484:
8485: IF i = l_level_type.LAST THEN
8478:
8479: IF l_return_status = FND_API.g_ret_sts_error THEN
8480: RAISE FND_API.g_exc_error;
8481: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
8482: RAISE FND_API.g_exc_error;
8483: END IF;
8484:
8485: IF i = l_level_type.LAST THEN
8486: px_line_util_tbl(j).amount := l_prorate_adj_amt;
8492:
8493: px_line_util_tbl(j).amount := OZF_UTILITY_PVT.CurrRound(px_line_util_tbl(j).amount, p_currency_rec.association_currency_code);
8494: px_line_util_tbl(j).utilization_id := l_adj_util_id;
8495: px_line_util_tbl(j).claim_line_id := p_funds_util_flt.claim_line_id;
8496: px_line_util_tbl(j).update_from_tbl_flag := FND_API.g_true;
8497:
8498: IF OZF_DEBUG_HIGH_ON THEN
8499: OZF_Utility_PVT.debug_message('Prorate Total Pay Over Earnings Adjustments ...');
8500: OZF_Utility_PVT.debug_message('Utilization_Id = '||px_line_util_tbl(j).utilization_id);
8524: , x_msg_data => l_msg_data
8525: , x_adj_util_id => l_adj_util_id
8526: );
8527:
8528: IF l_return_status = FND_API.g_ret_sts_error THEN
8529: RAISE FND_API.g_exc_error;
8530: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
8531: RAISE FND_API.g_exc_error;
8532: END IF;
8525: , x_adj_util_id => l_adj_util_id
8526: );
8527:
8528: IF l_return_status = FND_API.g_ret_sts_error THEN
8529: RAISE FND_API.g_exc_error;
8530: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
8531: RAISE FND_API.g_exc_error;
8532: END IF;
8533:
8526: );
8527:
8528: IF l_return_status = FND_API.g_ret_sts_error THEN
8529: RAISE FND_API.g_exc_error;
8530: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
8531: RAISE FND_API.g_exc_error;
8532: END IF;
8533:
8534: IF csr_source_fund%ROWCOUNT = r_source_fund.total_funds THEN
8527:
8528: IF l_return_status = FND_API.g_ret_sts_error THEN
8529: RAISE FND_API.g_exc_error;
8530: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
8531: RAISE FND_API.g_exc_error;
8532: END IF;
8533:
8534: IF csr_source_fund%ROWCOUNT = r_source_fund.total_funds THEN
8535: px_line_util_tbl(j).amount := p_pay_over_amount - l_tot_amt_rem;
8544:
8545: px_line_util_tbl(j).amount := OZF_UTILITY_PVT.CurrRound(px_line_util_tbl(j).amount, p_currency_rec.association_currency_code);
8546: px_line_util_tbl(j).utilization_id := l_adj_util_id;
8547: px_line_util_tbl(j).claim_line_id := p_funds_util_flt.claim_line_id;
8548: px_line_util_tbl(j).update_from_tbl_flag := FND_API.g_true;
8549:
8550: IF OZF_DEBUG_HIGH_ON THEN
8551: OZF_Utility_PVT.debug_message('Non-Prorate Pay Over Earnings Adjustments ...');
8552: OZF_Utility_PVT.debug_message('Utilization_Id = '||px_line_util_tbl(j).utilization_id);
8558: END IF; --p_prorate_earnings_flag
8559: END IF; --SCAN_DATA check
8560:
8561: EXCEPTION
8562: WHEN FND_API.g_exc_error THEN
8563: ROLLBACK TO Create_Pay_Over_Adjustments;
8564: x_return_status := FND_API.g_ret_sts_error;
8565: FND_MSG_PUB.count_and_get (
8566: p_encoded => FND_API.g_false
8560:
8561: EXCEPTION
8562: WHEN FND_API.g_exc_error THEN
8563: ROLLBACK TO Create_Pay_Over_Adjustments;
8564: x_return_status := FND_API.g_ret_sts_error;
8565: FND_MSG_PUB.count_and_get (
8566: p_encoded => FND_API.g_false
8567: ,p_count => x_msg_count
8568: ,p_data => x_msg_data
8562: WHEN FND_API.g_exc_error THEN
8563: ROLLBACK TO Create_Pay_Over_Adjustments;
8564: x_return_status := FND_API.g_ret_sts_error;
8565: FND_MSG_PUB.count_and_get (
8566: p_encoded => FND_API.g_false
8567: ,p_count => x_msg_count
8568: ,p_data => x_msg_data
8569: );
8570:
8567: ,p_count => x_msg_count
8568: ,p_data => x_msg_data
8569: );
8570:
8571: WHEN FND_API.g_exc_unexpected_error THEN
8572: ROLLBACK TO Create_Pay_Over_Adjustments;
8573: x_return_status := FND_API.g_ret_sts_unexp_error ;
8574: FND_MSG_PUB.count_and_get (
8575: p_encoded => FND_API.g_false
8569: );
8570:
8571: WHEN FND_API.g_exc_unexpected_error THEN
8572: ROLLBACK TO Create_Pay_Over_Adjustments;
8573: x_return_status := FND_API.g_ret_sts_unexp_error ;
8574: FND_MSG_PUB.count_and_get (
8575: p_encoded => FND_API.g_false
8576: ,p_count => x_msg_count
8577: ,p_data => x_msg_data
8571: WHEN FND_API.g_exc_unexpected_error THEN
8572: ROLLBACK TO Create_Pay_Over_Adjustments;
8573: x_return_status := FND_API.g_ret_sts_unexp_error ;
8574: FND_MSG_PUB.count_and_get (
8575: p_encoded => FND_API.g_false
8576: ,p_count => x_msg_count
8577: ,p_data => x_msg_data
8578: );
8579:
8578: );
8579:
8580: WHEN OTHERS THEN
8581: ROLLBACK TO Create_Pay_Over_Adjustments;
8582: x_return_status := FND_API.g_ret_sts_unexp_error ;
8583: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
8584: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
8585: END IF;
8586: FND_MSG_PUB.count_and_get(
8583: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
8584: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
8585: END IF;
8586: FND_MSG_PUB.count_and_get(
8587: p_encoded => FND_API.g_false
8588: ,p_count => x_msg_count
8589: ,p_data => x_msg_data
8590: );
8591:
8753: x_line_util_tbl(j).utilization_id := l_util_id;
8754: x_line_util_tbl(j).claim_line_id := p_funds_util_flt.claim_line_id;
8755: x_line_util_tbl(j).activity_product_id := p_funds_util_flt.activity_product_id;
8756: x_line_util_tbl(j).uom_code := l_util_uom_code;
8757: x_line_util_tbl(j).update_from_tbl_flag := FND_API.g_true;
8758:
8759: IF (l_currency_rec.transaction_currency_code = l_currency_rec.claim_currency_code) THEN
8760: x_line_util_tbl(j).amount := l_batch_curr_claim_amt;
8761: ELSE
8771: , x_to_amount => x_line_util_tbl(j).amount
8772: , x_rate => l_conv_exchange_rate
8773: );
8774:
8775: IF l_return_status = FND_API.g_ret_sts_error THEN
8776: RAISE FND_API.g_exc_error;
8777: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
8778: RAISE FND_API.g_exc_unexpected_error;
8779: END IF;
8772: , x_rate => l_conv_exchange_rate
8773: );
8774:
8775: IF l_return_status = FND_API.g_ret_sts_error THEN
8776: RAISE FND_API.g_exc_error;
8777: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
8778: RAISE FND_API.g_exc_unexpected_error;
8779: END IF;
8780:
8773: );
8774:
8775: IF l_return_status = FND_API.g_ret_sts_error THEN
8776: RAISE FND_API.g_exc_error;
8777: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
8778: RAISE FND_API.g_exc_unexpected_error;
8779: END IF;
8780:
8781: x_line_util_tbl(j).amount := OZF_UTILITY_PVT.CurrRound( x_line_util_tbl(j).amount, l_currency_rec.functional_currency_code);
8774:
8775: IF l_return_status = FND_API.g_ret_sts_error THEN
8776: RAISE FND_API.g_exc_error;
8777: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
8778: RAISE FND_API.g_exc_unexpected_error;
8779: END IF;
8780:
8781: x_line_util_tbl(j).amount := OZF_UTILITY_PVT.CurrRound( x_line_util_tbl(j).amount, l_currency_rec.functional_currency_code);
8782:
8803: x_line_util_tbl(j).amount := OZF_UTILITY_PVT.CurrRound(l_fu_amt_rem, l_currency_rec.association_currency_code);
8804: x_line_util_tbl(j).claim_line_id := p_funds_util_flt.claim_line_id;
8805: x_line_util_tbl(j).activity_product_id := p_funds_util_flt.activity_product_id;
8806: x_line_util_tbl(j).uom_code := l_util_uom_code;
8807: x_line_util_tbl(j).update_from_tbl_flag := FND_API.g_true;
8808: j := j + 1;
8809: END LOOP;
8810: CLOSE csr_sd_accruals;
8811: */
8823: --utilizations. We will create adjustments for entire pay over earnings.
8824: --Bugfix 5144750
8825: IF NOT (l_total_pay_over_flag) THEN
8826: Get_Utiz_Sql_Stmt ( p_api_version => 1.0
8827: , p_init_msg_list => FND_API.g_false
8828: , p_commit => FND_API.g_false
8829: , p_validation_level => FND_API.g_valid_level_full
8830: , x_return_status => l_return_status
8831: , x_msg_count => l_msg_count
8824: --Bugfix 5144750
8825: IF NOT (l_total_pay_over_flag) THEN
8826: Get_Utiz_Sql_Stmt ( p_api_version => 1.0
8827: , p_init_msg_list => FND_API.g_false
8828: , p_commit => FND_API.g_false
8829: , p_validation_level => FND_API.g_valid_level_full
8830: , x_return_status => l_return_status
8831: , x_msg_count => l_msg_count
8832: , x_msg_data => l_msg_data
8825: IF NOT (l_total_pay_over_flag) THEN
8826: Get_Utiz_Sql_Stmt ( p_api_version => 1.0
8827: , p_init_msg_list => FND_API.g_false
8828: , p_commit => FND_API.g_false
8829: , p_validation_level => FND_API.g_valid_level_full
8830: , x_return_status => l_return_status
8831: , x_msg_count => l_msg_count
8832: , x_msg_data => l_msg_data
8833: , p_summary_view => p_summary_view
8835: , px_currency_rec => l_currency_rec
8836: , p_cust_account_id => p_funds_util_flt.cust_account_id
8837: , x_utiz_sql_stmt => l_funds_util_sql
8838: );
8839: IF l_return_status = FND_API.g_ret_sts_error THEN
8840: RAISE FND_API.g_exc_error;
8841: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
8842: RAISE FND_API.g_exc_error;
8843: END IF;
8836: , p_cust_account_id => p_funds_util_flt.cust_account_id
8837: , x_utiz_sql_stmt => l_funds_util_sql
8838: );
8839: IF l_return_status = FND_API.g_ret_sts_error THEN
8840: RAISE FND_API.g_exc_error;
8841: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
8842: RAISE FND_API.g_exc_error;
8843: END IF;
8844:
8837: , x_utiz_sql_stmt => l_funds_util_sql
8838: );
8839: IF l_return_status = FND_API.g_ret_sts_error THEN
8840: RAISE FND_API.g_exc_error;
8841: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
8842: RAISE FND_API.g_exc_error;
8843: END IF;
8844:
8845: j := 0;
8838: );
8839: IF l_return_status = FND_API.g_ret_sts_error THEN
8840: RAISE FND_API.g_exc_error;
8841: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
8842: RAISE FND_API.g_exc_error;
8843: END IF;
8844:
8845: j := 0;
8846: l_funds_util_csr := DBMS_SQL.open_cursor;
8898: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8899: FND_MESSAGE.set_name('OZF', 'OZF_EARN_AVAIL_AMT_ZERO');
8900: FND_MSG_PUB.add;
8901: END IF;
8902: RAISE FND_API.g_exc_error;
8903: ELSE
8904: -- Fix for Bug 14023475 : Restrict the Negative Qty association for scan data offer.
8905: IF p_batch_type = 'BATCH' THEN
8906: NULL;
8910: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8911: FND_MESSAGE.set_name('OZF', 'OZF_ASSO_NEG_AMT');
8912: FND_MSG_PUB.add;
8913: END IF;
8914: RAISE FND_API.g_exc_error;
8915: END IF;
8916: END IF;
8917:
8918: END IF;
8969: x_line_util_tbl(i).claim_line_id := p_funds_util_flt.claim_line_id;
8970: x_line_util_tbl(i).activity_product_id := p_funds_util_flt.activity_product_id;
8971: x_line_util_tbl(i).uom_code := p_funds_util_flt.uom_code;
8972: x_line_util_tbl(i).quantity := p_funds_util_flt.quantity;
8973: x_line_util_tbl(i).update_from_tbl_flag := FND_API.g_true;
8974: END LOOP;
8975: ELSE
8976: -- Fix for Bug 8583847
8977: --l_line_rem_amount := p_cre_util_amount;
9056: x_line_util_tbl(i).utilization_id := l_funds_rem_tbl(i).utilization_id;
9057: x_line_util_tbl(i).claim_line_id := p_funds_util_flt.claim_line_id;
9058: x_line_util_tbl(i).activity_product_id := p_funds_util_flt.activity_product_id;
9059: x_line_util_tbl(i).uom_code := p_funds_util_flt.uom_code;
9060: x_line_util_tbl(i).update_from_tbl_flag := FND_API.g_true;
9061:
9062: l_line_rem_amount := l_line_rem_amount - l_fu_amt_rem;
9063: IF OZF_DEBUG_HIGH_ON THEN
9064: OZF_Utility_PVT.debug_message('NN : l_line_rem_amount after= ' || l_line_rem_amount);
9104: x_funds_rem_tbl := l_funds_rem_tbl;
9105:
9106:
9107: EXCEPTION
9108: WHEN FND_API.g_exc_error THEN
9109: ROLLBACK TO Populate_Line_Util_Tbl;
9110: x_return_status := FND_API.g_ret_sts_error;
9111: FND_MSG_PUB.count_and_get (
9112: p_encoded => FND_API.g_false
9106:
9107: EXCEPTION
9108: WHEN FND_API.g_exc_error THEN
9109: ROLLBACK TO Populate_Line_Util_Tbl;
9110: x_return_status := FND_API.g_ret_sts_error;
9111: FND_MSG_PUB.count_and_get (
9112: p_encoded => FND_API.g_false
9113: ,p_count => x_msg_count
9114: ,p_data => x_msg_data
9108: WHEN FND_API.g_exc_error THEN
9109: ROLLBACK TO Populate_Line_Util_Tbl;
9110: x_return_status := FND_API.g_ret_sts_error;
9111: FND_MSG_PUB.count_and_get (
9112: p_encoded => FND_API.g_false
9113: ,p_count => x_msg_count
9114: ,p_data => x_msg_data
9115: );
9116:
9113: ,p_count => x_msg_count
9114: ,p_data => x_msg_data
9115: );
9116:
9117: WHEN FND_API.g_exc_unexpected_error THEN
9118: ROLLBACK TO Populate_Line_Util_Tbl;
9119: x_return_status := FND_API.g_ret_sts_unexp_error ;
9120: FND_MSG_PUB.count_and_get (
9121: p_encoded => FND_API.g_false
9115: );
9116:
9117: WHEN FND_API.g_exc_unexpected_error THEN
9118: ROLLBACK TO Populate_Line_Util_Tbl;
9119: x_return_status := FND_API.g_ret_sts_unexp_error ;
9120: FND_MSG_PUB.count_and_get (
9121: p_encoded => FND_API.g_false
9122: ,p_count => x_msg_count
9123: ,p_data => x_msg_data
9117: WHEN FND_API.g_exc_unexpected_error THEN
9118: ROLLBACK TO Populate_Line_Util_Tbl;
9119: x_return_status := FND_API.g_ret_sts_unexp_error ;
9120: FND_MSG_PUB.count_and_get (
9121: p_encoded => FND_API.g_false
9122: ,p_count => x_msg_count
9123: ,p_data => x_msg_data
9124: );
9125:
9124: );
9125:
9126: WHEN OTHERS THEN
9127: ROLLBACK TO Populate_Line_Util_Tbl;
9128: x_return_status := FND_API.g_ret_sts_unexp_error ;
9129: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
9130: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
9131: END IF;
9132: FND_MSG_PUB.count_and_get(
9129: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
9130: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
9131: END IF;
9132: FND_MSG_PUB.count_and_get(
9133: p_encoded => FND_API.g_false
9134: ,p_count => x_msg_count
9135: ,p_data => x_msg_data
9136: );
9137:
9280: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
9281: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CANT_CONVERT_UOM');
9282: FND_MSG_PUB.add;
9283: END IF;
9284: RAISE FND_API.g_exc_error;
9285: END IF;
9286: ELSE
9287: l_asso_total_quantity := px_funds_util_flt.quantity;
9288: END IF;
9308: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
9309: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CANT_CONVERT_UOM');
9310: FND_MSG_PUB.add;
9311: END IF;
9312: RAISE FND_API.g_exc_error;
9313: END IF;
9314: ELSE
9315: l_asso_total_quantity := l_asso_total_units * l_offer_quantity;
9316: END IF;
9342: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
9343: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_ASSO_COMPLETE_OFFER');
9344: FND_MSG_PUB.add;
9345: END IF;
9346: RAISE FND_API.g_exc_error;
9347: END IF;
9348: END IF;
9349:
9350: IF OZF_DEBUG_HIGH_ON THEN
9362: OZF_Utility_PVT.debug_message(l_full_name||': end');
9363: END IF;
9364:
9365: EXCEPTION
9366: WHEN FND_API.g_exc_error THEN
9367: ROLLBACK TO Get_Scan_Data_Details;
9368: x_return_status := FND_API.g_ret_sts_error;
9369: FND_MSG_PUB.count_and_get (
9370: p_encoded => FND_API.g_false
9364:
9365: EXCEPTION
9366: WHEN FND_API.g_exc_error THEN
9367: ROLLBACK TO Get_Scan_Data_Details;
9368: x_return_status := FND_API.g_ret_sts_error;
9369: FND_MSG_PUB.count_and_get (
9370: p_encoded => FND_API.g_false
9371: ,p_count => x_msg_count
9372: ,p_data => x_msg_data
9366: WHEN FND_API.g_exc_error THEN
9367: ROLLBACK TO Get_Scan_Data_Details;
9368: x_return_status := FND_API.g_ret_sts_error;
9369: FND_MSG_PUB.count_and_get (
9370: p_encoded => FND_API.g_false
9371: ,p_count => x_msg_count
9372: ,p_data => x_msg_data
9373: );
9374:
9371: ,p_count => x_msg_count
9372: ,p_data => x_msg_data
9373: );
9374:
9375: WHEN FND_API.g_exc_unexpected_error THEN
9376: ROLLBACK TO Get_Scan_Data_Details;
9377: x_return_status := FND_API.g_ret_sts_unexp_error ;
9378: FND_MSG_PUB.count_and_get (
9379: p_encoded => FND_API.g_false
9373: );
9374:
9375: WHEN FND_API.g_exc_unexpected_error THEN
9376: ROLLBACK TO Get_Scan_Data_Details;
9377: x_return_status := FND_API.g_ret_sts_unexp_error ;
9378: FND_MSG_PUB.count_and_get (
9379: p_encoded => FND_API.g_false
9380: ,p_count => x_msg_count
9381: ,p_data => x_msg_data
9375: WHEN FND_API.g_exc_unexpected_error THEN
9376: ROLLBACK TO Get_Scan_Data_Details;
9377: x_return_status := FND_API.g_ret_sts_unexp_error ;
9378: FND_MSG_PUB.count_and_get (
9379: p_encoded => FND_API.g_false
9380: ,p_count => x_msg_count
9381: ,p_data => x_msg_data
9382: );
9383:
9382: );
9383:
9384: WHEN OTHERS THEN
9385: ROLLBACK TO Get_Scan_Data_Details;
9386: x_return_status := FND_API.g_ret_sts_unexp_error ;
9387: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
9388: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
9389: END IF;
9390: FND_MSG_PUB.count_and_get(
9387: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
9388: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
9389: END IF;
9390: FND_MSG_PUB.count_and_get(
9391: p_encoded => FND_API.g_false
9392: ,p_count => x_msg_count
9393: ,p_data => x_msg_data
9394: );
9395:
9519: OZF_Utility_PVT.debug_message(l_full_name||': end');
9520: END IF;
9521:
9522: EXCEPTION
9523: WHEN FND_API.g_exc_error THEN
9524: ROLLBACK TO Get_Pay_Over_Amount;
9525: x_return_status := FND_API.g_ret_sts_error;
9526: FND_MSG_PUB.count_and_get (
9527: p_encoded => FND_API.g_false
9521:
9522: EXCEPTION
9523: WHEN FND_API.g_exc_error THEN
9524: ROLLBACK TO Get_Pay_Over_Amount;
9525: x_return_status := FND_API.g_ret_sts_error;
9526: FND_MSG_PUB.count_and_get (
9527: p_encoded => FND_API.g_false
9528: ,p_count => x_msg_count
9529: ,p_data => x_msg_data
9523: WHEN FND_API.g_exc_error THEN
9524: ROLLBACK TO Get_Pay_Over_Amount;
9525: x_return_status := FND_API.g_ret_sts_error;
9526: FND_MSG_PUB.count_and_get (
9527: p_encoded => FND_API.g_false
9528: ,p_count => x_msg_count
9529: ,p_data => x_msg_data
9530: );
9531:
9528: ,p_count => x_msg_count
9529: ,p_data => x_msg_data
9530: );
9531:
9532: WHEN FND_API.g_exc_unexpected_error THEN
9533: ROLLBACK TO Get_Pay_Over_Amount;
9534: x_return_status := FND_API.g_ret_sts_unexp_error ;
9535: FND_MSG_PUB.count_and_get (
9536: p_encoded => FND_API.g_false
9530: );
9531:
9532: WHEN FND_API.g_exc_unexpected_error THEN
9533: ROLLBACK TO Get_Pay_Over_Amount;
9534: x_return_status := FND_API.g_ret_sts_unexp_error ;
9535: FND_MSG_PUB.count_and_get (
9536: p_encoded => FND_API.g_false
9537: ,p_count => x_msg_count
9538: ,p_data => x_msg_data
9532: WHEN FND_API.g_exc_unexpected_error THEN
9533: ROLLBACK TO Get_Pay_Over_Amount;
9534: x_return_status := FND_API.g_ret_sts_unexp_error ;
9535: FND_MSG_PUB.count_and_get (
9536: p_encoded => FND_API.g_false
9537: ,p_count => x_msg_count
9538: ,p_data => x_msg_data
9539: );
9540:
9539: );
9540:
9541: WHEN OTHERS THEN
9542: ROLLBACK TO Get_Pay_Over_Amount;
9543: x_return_status := FND_API.g_ret_sts_unexp_error ;
9544: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
9545: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
9546: END IF;
9547: FND_MSG_PUB.count_and_get(
9544: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
9545: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
9546: END IF;
9547: FND_MSG_PUB.count_and_get(
9548: p_encoded => FND_API.g_false
9549: ,p_count => x_msg_count
9550: ,p_data => x_msg_data
9551: );
9552:
9561: -- 11/03/2009 psomyaju Re-organized code for R12 multicurrency ER
9562: ---------------------------------------------------------------------
9563: PROCEDURE Update_Group_Line_Util(
9564: p_api_version IN NUMBER
9565: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
9566: ,p_commit IN VARCHAR2 := FND_API.g_false
9567: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
9568:
9569: ,x_return_status OUT NOCOPY VARCHAR2
9562: ---------------------------------------------------------------------
9563: PROCEDURE Update_Group_Line_Util(
9564: p_api_version IN NUMBER
9565: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
9566: ,p_commit IN VARCHAR2 := FND_API.g_false
9567: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
9568:
9569: ,x_return_status OUT NOCOPY VARCHAR2
9570: ,x_msg_count OUT NOCOPY NUMBER
9563: PROCEDURE Update_Group_Line_Util(
9564: p_api_version IN NUMBER
9565: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
9566: ,p_commit IN VARCHAR2 := FND_API.g_false
9567: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
9568:
9569: ,x_return_status OUT NOCOPY VARCHAR2
9570: ,x_msg_count OUT NOCOPY NUMBER
9571: ,x_msg_data OUT NOCOPY VARCHAR2
9656:
9657: BEGIN
9658: --------------------- initialize -----------------------
9659: SAVEPOINT Update_Group_Line_Util;
9660: x_return_status := FND_API.g_ret_sts_success;
9661:
9662: --Set to handle rounding issue at Update_Fund_Utils
9663: G_ENTERED_AMOUNT := l_funds_util_flt.total_amount;
9664:
9665: IF OZF_DEBUG_HIGH_ON THEN
9666: OZF_Utility_PVT.debug_message(l_full_name||': start');
9667: END IF;
9668:
9669: IF FND_API.to_boolean(p_init_msg_list) THEN
9670: FND_MSG_PUB.initialize;
9671: END IF;
9672:
9673: IF NOT FND_API.compatible_api_call(
9669: IF FND_API.to_boolean(p_init_msg_list) THEN
9670: FND_MSG_PUB.initialize;
9671: END IF;
9672:
9673: IF NOT FND_API.compatible_api_call(
9674: l_api_version,
9675: p_api_version,
9676: l_api_name,
9677: g_pkg_name
9675: p_api_version,
9676: l_api_name,
9677: g_pkg_name
9678: ) THEN
9679: RAISE FND_API.g_exc_unexpected_error;
9680: END IF;
9681:
9682: ----------------- copy line info to filter ---------------
9683: IF l_funds_util_flt.claim_line_id IS NOT NULL THEN
9720: , x_msg_count => l_msg_count
9721: , x_msg_data => l_msg_data
9722: );
9723:
9724: IF l_return_status = FND_API.g_ret_sts_error THEN
9725: RAISE FND_API.g_exc_error;
9726: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
9727: RAISE FND_API.g_exc_error;
9728: END IF;
9721: , x_msg_data => l_msg_data
9722: );
9723:
9724: IF l_return_status = FND_API.g_ret_sts_error THEN
9725: RAISE FND_API.g_exc_error;
9726: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
9727: RAISE FND_API.g_exc_error;
9728: END IF;
9729:
9722: );
9723:
9724: IF l_return_status = FND_API.g_ret_sts_error THEN
9725: RAISE FND_API.g_exc_error;
9726: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
9727: RAISE FND_API.g_exc_error;
9728: END IF;
9729:
9730: --For SCAN DATA offers, if units or quantity will be NULL then association amount will be NULL.
9723:
9724: IF l_return_status = FND_API.g_ret_sts_error THEN
9725: RAISE FND_API.g_exc_error;
9726: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
9727: RAISE FND_API.g_exc_error;
9728: END IF;
9729:
9730: --For SCAN DATA offers, if units or quantity will be NULL then association amount will be NULL.
9731: --Abort process, as without these entities, association cannot be done.
9736: END IF;
9737:
9738: -- Added for fix 11793070
9739:
9740: IF(l_funds_util_flt.claim_line_id IS NULL OR l_funds_util_flt.claim_line_id = FND_API.G_MISS_NUM
9741: AND l_funds_util_flt.created_from = 'ASSOUI') THEN
9742: --Construct the claim line record
9743: l_line_tbl(1).claim_id := l_funds_util_flt.claim_id;
9744: l_line_tbl(1).claim_currency_amount := l_funds_util_flt.total_amount;
9749:
9750: -- Create Claim Line
9751: OZF_CLAIM_LINE_PVT.Create_Claim_Line_Tbl(
9752: p_api_version => 1.0
9753: ,p_init_msg_list => FND_API.g_false
9754: ,p_commit => FND_API.g_false
9755: ,p_validation_level => FND_API.g_valid_level_full
9756: ,x_return_status => l_return_status
9757: ,x_msg_count => l_msg_count
9750: -- Create Claim Line
9751: OZF_CLAIM_LINE_PVT.Create_Claim_Line_Tbl(
9752: p_api_version => 1.0
9753: ,p_init_msg_list => FND_API.g_false
9754: ,p_commit => FND_API.g_false
9755: ,p_validation_level => FND_API.g_valid_level_full
9756: ,x_return_status => l_return_status
9757: ,x_msg_count => l_msg_count
9758: ,x_msg_data => l_msg_data
9751: OZF_CLAIM_LINE_PVT.Create_Claim_Line_Tbl(
9752: p_api_version => 1.0
9753: ,p_init_msg_list => FND_API.g_false
9754: ,p_commit => FND_API.g_false
9755: ,p_validation_level => FND_API.g_valid_level_full
9756: ,x_return_status => l_return_status
9757: ,x_msg_count => l_msg_count
9758: ,x_msg_data => l_msg_data
9759: ,p_claim_line_tbl => l_line_tbl
9759: ,p_claim_line_tbl => l_line_tbl
9760: ,x_error_index => l_error_index
9761: );
9762:
9763: IF l_return_status = FND_API.g_ret_sts_error THEN
9764: RAISE FND_API.g_exc_error;
9765: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
9766: RAISE FND_API.g_exc_error;
9767: END IF;
9760: ,x_error_index => l_error_index
9761: );
9762:
9763: IF l_return_status = FND_API.g_ret_sts_error THEN
9764: RAISE FND_API.g_exc_error;
9765: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
9766: RAISE FND_API.g_exc_error;
9767: END IF;
9768:
9761: );
9762:
9763: IF l_return_status = FND_API.g_ret_sts_error THEN
9764: RAISE FND_API.g_exc_error;
9765: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
9766: RAISE FND_API.g_exc_error;
9767: END IF;
9768:
9769: l_funds_util_flt.claim_line_id := l_line_tbl(1).claim_line_id;
9762:
9763: IF l_return_status = FND_API.g_ret_sts_error THEN
9764: RAISE FND_API.g_exc_error;
9765: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
9766: RAISE FND_API.g_exc_error;
9767: END IF;
9768:
9769: l_funds_util_flt.claim_line_id := l_line_tbl(1).claim_line_id;
9770: END IF;
9828: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
9829: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_ASSO_NOT_OPEN');
9830: FND_MSG_PUB.add;
9831: END IF;
9832: RAISE FND_API.g_exc_error;
9833: END IF;
9834:
9835:
9836: IF OZF_DEBUG_HIGH_ON THEN
9873: , x_to_amount => l_asso_amount
9874: , x_rate => l_convert_exchange_rate
9875: );
9876:
9877: IF l_return_status = FND_API.g_ret_sts_error THEN
9878: RAISE FND_API.g_exc_error;
9879: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
9880: RAISE FND_API.g_exc_error;
9881: END IF;
9874: , x_rate => l_convert_exchange_rate
9875: );
9876:
9877: IF l_return_status = FND_API.g_ret_sts_error THEN
9878: RAISE FND_API.g_exc_error;
9879: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
9880: RAISE FND_API.g_exc_error;
9881: END IF;
9882: --ninarasi fix for bug 14089950
9875: );
9876:
9877: IF l_return_status = FND_API.g_ret_sts_error THEN
9878: RAISE FND_API.g_exc_error;
9879: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
9880: RAISE FND_API.g_exc_error;
9881: END IF;
9882: --ninarasi fix for bug 14089950
9883: --do not round the amount for scandata because it is units and quantity gets recalculated again in Populate_Line_Util_Tbl
9876:
9877: IF l_return_status = FND_API.g_ret_sts_error THEN
9878: RAISE FND_API.g_exc_error;
9879: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
9880: RAISE FND_API.g_exc_error;
9881: END IF;
9882: --ninarasi fix for bug 14089950
9883: --do not round the amount for scandata because it is units and quantity gets recalculated again in Populate_Line_Util_Tbl
9884: IF l_asso_amount IS NOT NULL AND l_funds_util_flt.offer_type <> 'SCAN_DATA' THEN
9903: , x_to_amount => l_exists_asso_amount
9904: , x_rate => l_convert_exchange_rate
9905: );
9906:
9907: IF l_return_status = FND_API.g_ret_sts_error THEN
9908: RAISE FND_API.g_exc_error;
9909: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
9910: RAISE FND_API.g_exc_error;
9911: END IF;
9904: , x_rate => l_convert_exchange_rate
9905: );
9906:
9907: IF l_return_status = FND_API.g_ret_sts_error THEN
9908: RAISE FND_API.g_exc_error;
9909: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
9910: RAISE FND_API.g_exc_error;
9911: END IF;
9912: IF l_exists_asso_amount IS NOT NULL THEN
9905: );
9906:
9907: IF l_return_status = FND_API.g_ret_sts_error THEN
9908: RAISE FND_API.g_exc_error;
9909: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
9910: RAISE FND_API.g_exc_error;
9911: END IF;
9912: IF l_exists_asso_amount IS NOT NULL THEN
9913: l_exists_asso_amount := OZF_UTILITY_PVT.CurrRound(l_exists_asso_amount, l_currency_rec.association_currency_code);
9906:
9907: IF l_return_status = FND_API.g_ret_sts_error THEN
9908: RAISE FND_API.g_exc_error;
9909: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
9910: RAISE FND_API.g_exc_error;
9911: END IF;
9912: IF l_exists_asso_amount IS NOT NULL THEN
9913: l_exists_asso_amount := OZF_UTILITY_PVT.CurrRound(l_exists_asso_amount, l_currency_rec.association_currency_code);
9914: END IF;
9946: */
9947:
9948: IF l_prorate_req_flag THEN
9949: Delete_All_Line_Util ( p_api_version => l_api_version
9950: , p_init_msg_list => FND_API.g_false
9951: , p_commit => FND_API.g_false
9952: , p_validation_level => FND_API.g_valid_level_full
9953: , x_return_status => l_return_status
9954: , x_msg_data => x_msg_data
9947:
9948: IF l_prorate_req_flag THEN
9949: Delete_All_Line_Util ( p_api_version => l_api_version
9950: , p_init_msg_list => FND_API.g_false
9951: , p_commit => FND_API.g_false
9952: , p_validation_level => FND_API.g_valid_level_full
9953: , x_return_status => l_return_status
9954: , x_msg_data => x_msg_data
9955: , x_msg_count => x_msg_count
9948: IF l_prorate_req_flag THEN
9949: Delete_All_Line_Util ( p_api_version => l_api_version
9950: , p_init_msg_list => FND_API.g_false
9951: , p_commit => FND_API.g_false
9952: , p_validation_level => FND_API.g_valid_level_full
9953: , x_return_status => l_return_status
9954: , x_msg_data => x_msg_data
9955: , x_msg_count => x_msg_count
9956: , p_currency_rec => l_currency_rec
9956: , p_currency_rec => l_currency_rec
9957: , p_funds_util_flt => l_funds_util_flt
9958: );
9959:
9960: IF l_return_status = FND_API.g_ret_sts_error THEN
9961: RAISE FND_API.g_exc_error;
9962: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
9963: RAISE FND_API.g_exc_error;
9964: END IF;
9957: , p_funds_util_flt => l_funds_util_flt
9958: );
9959:
9960: IF l_return_status = FND_API.g_ret_sts_error THEN
9961: RAISE FND_API.g_exc_error;
9962: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
9963: RAISE FND_API.g_exc_error;
9964: END IF;
9965: l_cre_util_amount := NVL(l_asso_amount, 0);
9958: );
9959:
9960: IF l_return_status = FND_API.g_ret_sts_error THEN
9961: RAISE FND_API.g_exc_error;
9962: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
9963: RAISE FND_API.g_exc_error;
9964: END IF;
9965: l_cre_util_amount := NVL(l_asso_amount, 0);
9966: ELSE
9959:
9960: IF l_return_status = FND_API.g_ret_sts_error THEN
9961: RAISE FND_API.g_exc_error;
9962: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
9963: RAISE FND_API.g_exc_error;
9964: END IF;
9965: l_cre_util_amount := NVL(l_asso_amount, 0);
9966: ELSE
9967: IF l_net_asso_amount < 0 THEN
9965: l_cre_util_amount := NVL(l_asso_amount, 0);
9966: ELSE
9967: IF l_net_asso_amount < 0 THEN
9968: Delete_Group_Line_Util ( p_api_version => l_api_version
9969: , p_init_msg_list => FND_API.g_false
9970: , p_commit => FND_API.g_false
9971: , p_validation_level => FND_API.g_valid_level_full
9972: , x_return_status => l_return_status
9973: , x_msg_data => x_msg_data
9966: ELSE
9967: IF l_net_asso_amount < 0 THEN
9968: Delete_Group_Line_Util ( p_api_version => l_api_version
9969: , p_init_msg_list => FND_API.g_false
9970: , p_commit => FND_API.g_false
9971: , p_validation_level => FND_API.g_valid_level_full
9972: , x_return_status => l_return_status
9973: , x_msg_data => x_msg_data
9974: , x_msg_count => x_msg_count
9967: IF l_net_asso_amount < 0 THEN
9968: Delete_Group_Line_Util ( p_api_version => l_api_version
9969: , p_init_msg_list => FND_API.g_false
9970: , p_commit => FND_API.g_false
9971: , p_validation_level => FND_API.g_valid_level_full
9972: , x_return_status => l_return_status
9973: , x_msg_data => x_msg_data
9974: , x_msg_count => x_msg_count
9975: , p_funds_util_flt => l_funds_util_flt
9974: , x_msg_count => x_msg_count
9975: , p_funds_util_flt => l_funds_util_flt
9976: );
9977:
9978: IF l_return_status = FND_API.g_ret_sts_error THEN
9979: RAISE FND_API.g_exc_error;
9980: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
9981: RAISE FND_API.g_exc_error;
9982: END IF;
9975: , p_funds_util_flt => l_funds_util_flt
9976: );
9977:
9978: IF l_return_status = FND_API.g_ret_sts_error THEN
9979: RAISE FND_API.g_exc_error;
9980: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
9981: RAISE FND_API.g_exc_error;
9982: END IF;
9983: l_create_util := FALSE;
9976: );
9977:
9978: IF l_return_status = FND_API.g_ret_sts_error THEN
9979: RAISE FND_API.g_exc_error;
9980: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
9981: RAISE FND_API.g_exc_error;
9982: END IF;
9983: l_create_util := FALSE;
9984: ELSE
9977:
9978: IF l_return_status = FND_API.g_ret_sts_error THEN
9979: RAISE FND_API.g_exc_error;
9980: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
9981: RAISE FND_API.g_exc_error;
9982: END IF;
9983: l_create_util := FALSE;
9984: ELSE
9985: l_cre_util_amount := NVL(l_asso_amount, 0) - NVL(l_exists_asso_amount ,0);
10025: , x_return_status => l_return_status
10026: );
10027:
10028:
10029: IF l_return_status = FND_API.g_ret_sts_error THEN
10030: RAISE FND_API.g_exc_error;
10031: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
10032: RAISE FND_API.g_exc_error;
10033: END IF;
10026: );
10027:
10028:
10029: IF l_return_status = FND_API.g_ret_sts_error THEN
10030: RAISE FND_API.g_exc_error;
10031: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
10032: RAISE FND_API.g_exc_error;
10033: END IF;
10034:
10027:
10028:
10029: IF l_return_status = FND_API.g_ret_sts_error THEN
10030: RAISE FND_API.g_exc_error;
10031: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
10032: RAISE FND_API.g_exc_error;
10033: END IF;
10034:
10035: --For Supplier Ship Debit claims, claim line amount will always be total association
10028:
10029: IF l_return_status = FND_API.g_ret_sts_error THEN
10030: RAISE FND_API.g_exc_error;
10031: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
10032: RAISE FND_API.g_exc_error;
10033: END IF;
10034:
10035: --For Supplier Ship Debit claims, claim line amount will always be total association
10036: --amount and never fall into pay over earnings category. Hence, skip pay over earnings
10084:
10085: IF (l_pay_over_flag OR (p_summary_view <> 'ACTIVITY' AND (l_cre_util_amount > 0 and l_cre_util_amount > l_tot_accrual_amt)) OR (p_summary_view <> 'ACTIVITY' AND NVL(l_tot_accrual_amt,0) = 0)) THEN --ninarasi fix for bug 14611756
10086: Validate_Over_Utilization(
10087: p_api_version => l_api_version
10088: ,p_init_msg_list => FND_API.g_false
10089: ,p_validation_level => p_validation_level
10090: ,x_return_status => l_return_status
10091: ,x_msg_count => x_msg_count
10092: ,x_msg_data => x_msg_data
10093: ,p_currency_rec => l_currency_rec
10094: ,p_funds_util_flt => l_funds_util_flt
10095: ,p_over_paid_amount => l_pay_over_amount --nepanda : fix for bug # 9508390 - issue # 3
10096: );
10097: IF l_return_status = fnd_api.g_ret_sts_error THEN
10098: RAISE FND_API.g_exc_error;
10099: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
10100: RAISE FND_API.g_exc_unexpected_error;
10101: END IF;
10094: ,p_funds_util_flt => l_funds_util_flt
10095: ,p_over_paid_amount => l_pay_over_amount --nepanda : fix for bug # 9508390 - issue # 3
10096: );
10097: IF l_return_status = fnd_api.g_ret_sts_error THEN
10098: RAISE FND_API.g_exc_error;
10099: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
10100: RAISE FND_API.g_exc_unexpected_error;
10101: END IF;
10102:
10095: ,p_over_paid_amount => l_pay_over_amount --nepanda : fix for bug # 9508390 - issue # 3
10096: );
10097: IF l_return_status = fnd_api.g_ret_sts_error THEN
10098: RAISE FND_API.g_exc_error;
10099: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
10100: RAISE FND_API.g_exc_unexpected_error;
10101: END IF;
10102:
10103: END IF;
10096: );
10097: IF l_return_status = fnd_api.g_ret_sts_error THEN
10098: RAISE FND_API.g_exc_error;
10099: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
10100: RAISE FND_API.g_exc_unexpected_error;
10101: END IF;
10102:
10103: END IF;
10104:
10120: , x_msg_data => x_msg_data
10121: , x_msg_count => x_msg_count
10122:
10123: );
10124: IF l_return_status = FND_API.g_ret_sts_error THEN
10125: RAISE FND_API.g_exc_error;
10126: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
10127: RAISE FND_API.g_exc_error;
10128: END IF;
10121: , x_msg_count => x_msg_count
10122:
10123: );
10124: IF l_return_status = FND_API.g_ret_sts_error THEN
10125: RAISE FND_API.g_exc_error;
10126: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
10127: RAISE FND_API.g_exc_error;
10128: END IF;
10129: ELSE
10122:
10123: );
10124: IF l_return_status = FND_API.g_ret_sts_error THEN
10125: RAISE FND_API.g_exc_error;
10126: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
10127: RAISE FND_API.g_exc_error;
10128: END IF;
10129: ELSE
10130: --for scandata offers replace the util quantity and units with the original quantity
10123: );
10124: IF l_return_status = FND_API.g_ret_sts_error THEN
10125: RAISE FND_API.g_exc_error;
10126: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
10127: RAISE FND_API.g_exc_error;
10128: END IF;
10129: ELSE
10130: --for scandata offers replace the util quantity and units with the original quantity
10131: --ninarasi fix for bug 14089950
10147: --FXGL. Reduce amount remaining of utilizations w.r.t. corresponding association amounts.
10148:
10149: IF l_line_util_tbl.COUNT > 0 THEN
10150: Create_Line_Util_Tbl ( p_api_version => l_api_version
10151: , p_init_msg_list => FND_API.g_false
10152: , p_commit => FND_API.g_false
10153: , p_validation_level => p_validation_level
10154: , x_return_status => l_return_status
10155: , x_msg_data => x_msg_data
10148:
10149: IF l_line_util_tbl.COUNT > 0 THEN
10150: Create_Line_Util_Tbl ( p_api_version => l_api_version
10151: , p_init_msg_list => FND_API.g_false
10152: , p_commit => FND_API.g_false
10153: , p_validation_level => p_validation_level
10154: , x_return_status => l_return_status
10155: , x_msg_data => x_msg_data
10156: , x_msg_count => x_msg_count
10158: , p_line_util_tbl => l_line_util_tbl
10159: , x_error_index => l_error_index
10160: );
10161:
10162: IF l_return_status = fnd_api.g_ret_sts_error THEN
10163: RAISE FND_API.g_exc_error;
10164: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
10165: RAISE FND_API.g_exc_unexpected_error;
10166: END IF;
10159: , x_error_index => l_error_index
10160: );
10161:
10162: IF l_return_status = fnd_api.g_ret_sts_error THEN
10163: RAISE FND_API.g_exc_error;
10164: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
10165: RAISE FND_API.g_exc_unexpected_error;
10166: END IF;
10167: END IF;
10160: );
10161:
10162: IF l_return_status = fnd_api.g_ret_sts_error THEN
10163: RAISE FND_API.g_exc_error;
10164: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
10165: RAISE FND_API.g_exc_unexpected_error;
10166: END IF;
10167: END IF;
10168:
10161:
10162: IF l_return_status = fnd_api.g_ret_sts_error THEN
10163: RAISE FND_API.g_exc_error;
10164: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
10165: RAISE FND_API.g_exc_unexpected_error;
10166: END IF;
10167: END IF;
10168:
10169: ------------------------- finish -------------------------------
10167: END IF;
10168:
10169: ------------------------- finish -------------------------------
10170: -- Check for commit
10171: IF FND_API.to_boolean(p_commit) THEN
10172: COMMIT;
10173: END IF;
10174:
10175: FND_MSG_PUB.count_and_get(
10172: COMMIT;
10173: END IF;
10174:
10175: FND_MSG_PUB.count_and_get(
10176: p_encoded => FND_API.g_false,
10177: p_count => x_msg_count,
10178: p_data => x_msg_data
10179: );
10180:
10182: OZF_Utility_PVT.debug_message(l_full_name ||': end');
10183: END IF;
10184:
10185: EXCEPTION
10186: WHEN FND_API.g_exc_error THEN
10187: ROLLBACK TO Update_Group_Line_Util;
10188: x_return_status := FND_API.g_ret_sts_error;
10189: FND_MSG_PUB.count_and_get (
10190: p_encoded => FND_API.g_false
10184:
10185: EXCEPTION
10186: WHEN FND_API.g_exc_error THEN
10187: ROLLBACK TO Update_Group_Line_Util;
10188: x_return_status := FND_API.g_ret_sts_error;
10189: FND_MSG_PUB.count_and_get (
10190: p_encoded => FND_API.g_false
10191: ,p_count => x_msg_count
10192: ,p_data => x_msg_data
10186: WHEN FND_API.g_exc_error THEN
10187: ROLLBACK TO Update_Group_Line_Util;
10188: x_return_status := FND_API.g_ret_sts_error;
10189: FND_MSG_PUB.count_and_get (
10190: p_encoded => FND_API.g_false
10191: ,p_count => x_msg_count
10192: ,p_data => x_msg_data
10193: );
10194:
10191: ,p_count => x_msg_count
10192: ,p_data => x_msg_data
10193: );
10194:
10195: WHEN FND_API.g_exc_unexpected_error THEN
10196: ROLLBACK TO Update_Group_Line_Util;
10197: x_return_status := FND_API.g_ret_sts_unexp_error ;
10198: FND_MSG_PUB.count_and_get (
10199: p_encoded => FND_API.g_false
10193: );
10194:
10195: WHEN FND_API.g_exc_unexpected_error THEN
10196: ROLLBACK TO Update_Group_Line_Util;
10197: x_return_status := FND_API.g_ret_sts_unexp_error ;
10198: FND_MSG_PUB.count_and_get (
10199: p_encoded => FND_API.g_false
10200: ,p_count => x_msg_count
10201: ,p_data => x_msg_data
10195: WHEN FND_API.g_exc_unexpected_error THEN
10196: ROLLBACK TO Update_Group_Line_Util;
10197: x_return_status := FND_API.g_ret_sts_unexp_error ;
10198: FND_MSG_PUB.count_and_get (
10199: p_encoded => FND_API.g_false
10200: ,p_count => x_msg_count
10201: ,p_data => x_msg_data
10202: );
10203:
10202: );
10203:
10204: WHEN OTHERS THEN
10205: ROLLBACK TO Update_Group_Line_Util;
10206: x_return_status := FND_API.g_ret_sts_unexp_error ;
10207: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
10208: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
10209: END IF;
10210: FND_MSG_PUB.count_and_get(
10207: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
10208: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
10209: END IF;
10210: FND_MSG_PUB.count_and_get(
10211: p_encoded => FND_API.g_false
10212: ,p_count => x_msg_count
10213: ,p_data => x_msg_data
10214: );
10215:
10251: BEGIN
10252: --------------------- initialize -----------------------
10253: SAVEPOINT Del_Line_Util_By_Group;
10254:
10255: x_return_status := FND_API.G_RET_STS_SUCCESS;
10256:
10257: IF p_line_util_rec.utilization_id > 0 THEN
10258: ------------------ Update Uitlization ------------------
10259:
10278: , x_msg_count => x_msg_count
10279: , x_msg_data => x_msg_data
10280: , px_upd_line_util_tbl => px_upd_line_util_tbl --ninarasi fix for bug 13530939
10281: );
10282: IF l_return_status = fnd_api.g_ret_sts_error THEN
10283: RAISE FND_API.g_exc_error;
10284: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
10285: RAISE FND_API.g_exc_unexpected_error;
10286: END IF;
10279: , x_msg_data => x_msg_data
10280: , px_upd_line_util_tbl => px_upd_line_util_tbl --ninarasi fix for bug 13530939
10281: );
10282: IF l_return_status = fnd_api.g_ret_sts_error THEN
10283: RAISE FND_API.g_exc_error;
10284: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
10285: RAISE FND_API.g_exc_unexpected_error;
10286: END IF;
10287:
10280: , px_upd_line_util_tbl => px_upd_line_util_tbl --ninarasi fix for bug 13530939
10281: );
10282: IF l_return_status = fnd_api.g_ret_sts_error THEN
10283: RAISE FND_API.g_exc_error;
10284: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
10285: RAISE FND_API.g_exc_unexpected_error;
10286: END IF;
10287:
10288: END IF; -- p_line_util_rec.utilization_id > 0
10281: );
10282: IF l_return_status = fnd_api.g_ret_sts_error THEN
10283: RAISE FND_API.g_exc_error;
10284: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
10285: RAISE FND_API.g_exc_unexpected_error;
10286: END IF;
10287:
10288: END IF; -- p_line_util_rec.utilization_id > 0
10289:
10295: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
10296: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
10297: FND_MSG_PUB.add;
10298: END IF;
10299: RAISE FND_API.g_exc_error;
10300: END IF;
10301:
10302: -------------------- finish --------------------------
10303: FND_MSG_PUB.count_and_get(
10300: END IF;
10301:
10302: -------------------- finish --------------------------
10303: FND_MSG_PUB.count_and_get(
10304: p_encoded => FND_API.g_false,
10305: p_count => x_msg_count,
10306: p_data => x_msg_data
10307: );
10308:
10306: p_data => x_msg_data
10307: );
10308:
10309: EXCEPTION
10310: WHEN FND_API.g_exc_error THEN
10311: ROLLBACK TO Del_Line_Util_By_Group;
10312: x_return_status := FND_API.g_ret_sts_error;
10313: FND_MSG_PUB.count_and_get(
10314: p_encoded => FND_API.g_false,
10308:
10309: EXCEPTION
10310: WHEN FND_API.g_exc_error THEN
10311: ROLLBACK TO Del_Line_Util_By_Group;
10312: x_return_status := FND_API.g_ret_sts_error;
10313: FND_MSG_PUB.count_and_get(
10314: p_encoded => FND_API.g_false,
10315: p_count => x_msg_count,
10316: p_data => x_msg_data
10310: WHEN FND_API.g_exc_error THEN
10311: ROLLBACK TO Del_Line_Util_By_Group;
10312: x_return_status := FND_API.g_ret_sts_error;
10313: FND_MSG_PUB.count_and_get(
10314: p_encoded => FND_API.g_false,
10315: p_count => x_msg_count,
10316: p_data => x_msg_data
10317: );
10318:
10315: p_count => x_msg_count,
10316: p_data => x_msg_data
10317: );
10318:
10319: WHEN FND_API.g_exc_unexpected_error THEN
10320: ROLLBACK TO Del_Line_Util_By_Group;
10321: x_return_status := FND_API.g_ret_sts_unexp_error ;
10322: FND_MSG_PUB.count_and_get(
10323: p_encoded => FND_API.g_false,
10317: );
10318:
10319: WHEN FND_API.g_exc_unexpected_error THEN
10320: ROLLBACK TO Del_Line_Util_By_Group;
10321: x_return_status := FND_API.g_ret_sts_unexp_error ;
10322: FND_MSG_PUB.count_and_get(
10323: p_encoded => FND_API.g_false,
10324: p_count => x_msg_count,
10325: p_data => x_msg_data
10319: WHEN FND_API.g_exc_unexpected_error THEN
10320: ROLLBACK TO Del_Line_Util_By_Group;
10321: x_return_status := FND_API.g_ret_sts_unexp_error ;
10322: FND_MSG_PUB.count_and_get(
10323: p_encoded => FND_API.g_false,
10324: p_count => x_msg_count,
10325: p_data => x_msg_data
10326: );
10327:
10326: );
10327:
10328: WHEN OTHERS THEN
10329: ROLLBACK TO Del_Line_Util_By_Group;
10330: x_return_status := FND_API.g_ret_sts_unexp_error ;
10331: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
10332: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
10333: END IF;
10334: FND_MSG_PUB.count_and_get(
10331: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
10332: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
10333: END IF;
10334: FND_MSG_PUB.count_and_get(
10335: p_encoded => FND_API.g_false,
10336: p_count => x_msg_count,
10337: p_data => x_msg_data
10338: );
10339:
10349: -- 08-Aug-06 azahmed Modified for FXGL ER
10350: ---------------------------------------------------------------------
10351: PROCEDURE Delete_Group_Line_Util(
10352: p_api_version IN NUMBER
10353: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
10354: ,p_commit IN VARCHAR2 := FND_API.g_false
10355: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
10356:
10357: ,x_return_status OUT NOCOPY VARCHAR2
10350: ---------------------------------------------------------------------
10351: PROCEDURE Delete_Group_Line_Util(
10352: p_api_version IN NUMBER
10353: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
10354: ,p_commit IN VARCHAR2 := FND_API.g_false
10355: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
10356:
10357: ,x_return_status OUT NOCOPY VARCHAR2
10358: ,x_msg_count OUT NOCOPY NUMBER
10351: PROCEDURE Delete_Group_Line_Util(
10352: p_api_version IN NUMBER
10353: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
10354: ,p_commit IN VARCHAR2 := FND_API.g_false
10355: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
10356:
10357: ,x_return_status OUT NOCOPY VARCHAR2
10358: ,x_msg_count OUT NOCOPY NUMBER
10359: ,x_msg_data OUT NOCOPY VARCHAR2
10465: IF OZF_DEBUG_HIGH_ON THEN
10466: OZF_Utility_PVT.debug_message(l_full_name||': start');
10467: END IF;
10468:
10469: IF FND_API.to_boolean(p_init_msg_list) THEN
10470: FND_MSG_PUB.initialize;
10471: END IF;
10472:
10473: IF NOT FND_API.compatible_api_call(
10469: IF FND_API.to_boolean(p_init_msg_list) THEN
10470: FND_MSG_PUB.initialize;
10471: END IF;
10472:
10473: IF NOT FND_API.compatible_api_call(
10474: l_api_version,
10475: p_api_version,
10476: l_api_name,
10477: g_pkg_name
10475: p_api_version,
10476: l_api_name,
10477: g_pkg_name
10478: ) THEN
10479: RAISE FND_API.g_exc_unexpected_error;
10480: END IF;
10481:
10482: x_return_status := FND_API.g_ret_sts_success;
10483:
10478: ) THEN
10479: RAISE FND_API.g_exc_unexpected_error;
10480: END IF;
10481:
10482: x_return_status := FND_API.g_ret_sts_success;
10483:
10484: OPEN csr_function_currency;
10485: FETCH csr_function_currency INTO l_currency_rec.functional_currency_code;
10486: CLOSE csr_function_currency;
10600:
10601: IF l_del_total_amount <> 0 THEN -- added for bugfix 4448859
10602: Get_Utiz_Sql_Stmt(
10603: p_api_version => l_api_version
10604: ,p_init_msg_list => FND_API.g_false
10605: ,p_commit => FND_API.g_false
10606: ,p_validation_level => FND_API.g_valid_level_full
10607: ,x_return_status => l_return_status
10608: ,x_msg_count => x_msg_count
10601: IF l_del_total_amount <> 0 THEN -- added for bugfix 4448859
10602: Get_Utiz_Sql_Stmt(
10603: p_api_version => l_api_version
10604: ,p_init_msg_list => FND_API.g_false
10605: ,p_commit => FND_API.g_false
10606: ,p_validation_level => FND_API.g_valid_level_full
10607: ,x_return_status => l_return_status
10608: ,x_msg_count => x_msg_count
10609: ,x_msg_data => x_msg_data
10602: Get_Utiz_Sql_Stmt(
10603: p_api_version => l_api_version
10604: ,p_init_msg_list => FND_API.g_false
10605: ,p_commit => FND_API.g_false
10606: ,p_validation_level => FND_API.g_valid_level_full
10607: ,x_return_status => l_return_status
10608: ,x_msg_count => x_msg_count
10609: ,x_msg_data => x_msg_data
10610: ,p_summary_view => 'DEL_GRP_LINE_UTIL'
10612: ,px_currency_rec => l_currency_rec
10613: ,p_cust_account_id => l_funds_util_flt.cust_account_id
10614: ,x_utiz_sql_stmt => l_funds_util_sql
10615: );
10616: IF l_return_status = FND_API.g_ret_sts_error THEN
10617: RAISE FND_API.g_exc_error;
10618: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
10619: RAISE FND_API.g_exc_unexpected_error;
10620: END IF;
10613: ,p_cust_account_id => l_funds_util_flt.cust_account_id
10614: ,x_utiz_sql_stmt => l_funds_util_sql
10615: );
10616: IF l_return_status = FND_API.g_ret_sts_error THEN
10617: RAISE FND_API.g_exc_error;
10618: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
10619: RAISE FND_API.g_exc_unexpected_error;
10620: END IF;
10621:
10614: ,x_utiz_sql_stmt => l_funds_util_sql
10615: );
10616: IF l_return_status = FND_API.g_ret_sts_error THEN
10617: RAISE FND_API.g_exc_error;
10618: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
10619: RAISE FND_API.g_exc_unexpected_error;
10620: END IF;
10621:
10622: -- use FND_DSQL package for dynamic sql and bind variables
10615: );
10616: IF l_return_status = FND_API.g_ret_sts_error THEN
10617: RAISE FND_API.g_exc_error;
10618: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
10619: RAISE FND_API.g_exc_unexpected_error;
10620: END IF;
10621:
10622: -- use FND_DSQL package for dynamic sql and bind variables
10623: l_funds_util_csr := DBMS_SQL.open_cursor;
10750:
10751: l_upd_fund_util_tbl.delete;
10752: END IF;
10753:
10754: IF l_return_status = fnd_api.g_ret_sts_error THEN
10755: RAISE FND_API.g_exc_error;
10756: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
10757: RAISE FND_API.g_exc_unexpected_error;
10758: END IF;
10751: l_upd_fund_util_tbl.delete;
10752: END IF;
10753:
10754: IF l_return_status = fnd_api.g_ret_sts_error THEN
10755: RAISE FND_API.g_exc_error;
10756: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
10757: RAISE FND_API.g_exc_unexpected_error;
10758: END IF;
10759: END IF;
10752: END IF;
10753:
10754: IF l_return_status = fnd_api.g_ret_sts_error THEN
10755: RAISE FND_API.g_exc_error;
10756: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
10757: RAISE FND_API.g_exc_unexpected_error;
10758: END IF;
10759: END IF;
10760: EXIT WHEN i = l_line_util_tbl.LAST;
10753:
10754: IF l_return_status = fnd_api.g_ret_sts_error THEN
10755: RAISE FND_API.g_exc_error;
10756: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
10757: RAISE FND_API.g_exc_unexpected_error;
10758: END IF;
10759: END IF;
10760: EXIT WHEN i = l_line_util_tbl.LAST;
10761: i := l_line_util_tbl.NEXT(i);
10763: END IF;
10764:
10765: --------------------- 2. update -----------------------
10766: IF (l_upd_line_util_rec.claim_line_util_id is not null
10767: AND l_upd_line_util_rec.claim_line_util_id <> FND_API.G_MISS_NUM) THEN
10768: -- Bugfix 5101106: Recalculate qty
10769: IF p_funds_util_flt.offer_type = 'SCAN_DATA' THEN
10770: OPEN csr_offer_profile(l_funds_util_flt.activity_product_id);
10771: FETCH csr_offer_profile INTO l_offer_uom_code
10789: END IF;
10790:
10791: Update_Line_Util(
10792: p_api_version => l_api_version
10793: ,p_init_msg_list => FND_API.g_false
10794: ,p_commit => FND_API.g_false
10795: ,p_validation_level => FND_API.g_valid_level_full
10796: ,x_return_status => l_return_status
10797: ,x_msg_count => x_msg_count
10790:
10791: Update_Line_Util(
10792: p_api_version => l_api_version
10793: ,p_init_msg_list => FND_API.g_false
10794: ,p_commit => FND_API.g_false
10795: ,p_validation_level => FND_API.g_valid_level_full
10796: ,x_return_status => l_return_status
10797: ,x_msg_count => x_msg_count
10798: ,x_msg_data => x_msg_data
10791: Update_Line_Util(
10792: p_api_version => l_api_version
10793: ,p_init_msg_list => FND_API.g_false
10794: ,p_commit => FND_API.g_false
10795: ,p_validation_level => FND_API.g_valid_level_full
10796: ,x_return_status => l_return_status
10797: ,x_msg_count => x_msg_count
10798: ,x_msg_data => x_msg_data
10799: ,p_line_util_rec => l_upd_line_util_rec
10811: WHERE utilization_id = l_upd_fund_util_tbl(i).utilization_id;
10812:
10813: l_upd_fund_util_tbl.delete;
10814:
10815: IF l_return_status = fnd_api.g_ret_sts_error THEN
10816: RAISE FND_API.g_exc_error;
10817: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
10818: RAISE FND_API.g_exc_unexpected_error;
10819: END IF;
10812:
10813: l_upd_fund_util_tbl.delete;
10814:
10815: IF l_return_status = fnd_api.g_ret_sts_error THEN
10816: RAISE FND_API.g_exc_error;
10817: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
10818: RAISE FND_API.g_exc_unexpected_error;
10819: END IF;
10820: l_upd_line_util_rec.object_version_number := l_object_version_number;
10813: l_upd_fund_util_tbl.delete;
10814:
10815: IF l_return_status = fnd_api.g_ret_sts_error THEN
10816: RAISE FND_API.g_exc_error;
10817: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
10818: RAISE FND_API.g_exc_unexpected_error;
10819: END IF;
10820: l_upd_line_util_rec.object_version_number := l_object_version_number;
10821: END IF;
10814:
10815: IF l_return_status = fnd_api.g_ret_sts_error THEN
10816: RAISE FND_API.g_exc_error;
10817: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
10818: RAISE FND_API.g_exc_unexpected_error;
10819: END IF;
10820: l_upd_line_util_rec.object_version_number := l_object_version_number;
10821: END IF;
10822:
10834: END IF;
10835:
10836: ------------------------- finish -------------------------------
10837: -- Check for commit
10838: IF FND_API.to_boolean(p_commit) THEN
10839: COMMIT;
10840: END IF;
10841:
10842: FND_MSG_PUB.count_and_get(
10839: COMMIT;
10840: END IF;
10841:
10842: FND_MSG_PUB.count_and_get(
10843: p_encoded => FND_API.g_false,
10844: p_count => x_msg_count,
10845: p_data => x_msg_data
10846: );
10847:
10849: OZF_Utility_PVT.debug_message(l_full_name ||': end');
10850: END IF;
10851:
10852: EXCEPTION
10853: WHEN FND_API.g_exc_error THEN
10854: ROLLBACK TO Delete_Group_Line_Util;
10855: x_return_status := FND_API.g_ret_sts_error;
10856: FND_MSG_PUB.count_and_get (
10857: p_encoded => FND_API.g_false
10851:
10852: EXCEPTION
10853: WHEN FND_API.g_exc_error THEN
10854: ROLLBACK TO Delete_Group_Line_Util;
10855: x_return_status := FND_API.g_ret_sts_error;
10856: FND_MSG_PUB.count_and_get (
10857: p_encoded => FND_API.g_false
10858: ,p_count => x_msg_count
10859: ,p_data => x_msg_data
10853: WHEN FND_API.g_exc_error THEN
10854: ROLLBACK TO Delete_Group_Line_Util;
10855: x_return_status := FND_API.g_ret_sts_error;
10856: FND_MSG_PUB.count_and_get (
10857: p_encoded => FND_API.g_false
10858: ,p_count => x_msg_count
10859: ,p_data => x_msg_data
10860: );
10861:
10858: ,p_count => x_msg_count
10859: ,p_data => x_msg_data
10860: );
10861:
10862: WHEN FND_API.g_exc_unexpected_error THEN
10863: ROLLBACK TO Delete_Group_Line_Util;
10864: x_return_status := FND_API.g_ret_sts_unexp_error ;
10865: FND_MSG_PUB.count_and_get (
10866: p_encoded => FND_API.g_false
10860: );
10861:
10862: WHEN FND_API.g_exc_unexpected_error THEN
10863: ROLLBACK TO Delete_Group_Line_Util;
10864: x_return_status := FND_API.g_ret_sts_unexp_error ;
10865: FND_MSG_PUB.count_and_get (
10866: p_encoded => FND_API.g_false
10867: ,p_count => x_msg_count
10868: ,p_data => x_msg_data
10862: WHEN FND_API.g_exc_unexpected_error THEN
10863: ROLLBACK TO Delete_Group_Line_Util;
10864: x_return_status := FND_API.g_ret_sts_unexp_error ;
10865: FND_MSG_PUB.count_and_get (
10866: p_encoded => FND_API.g_false
10867: ,p_count => x_msg_count
10868: ,p_data => x_msg_data
10869: );
10870:
10869: );
10870:
10871: WHEN OTHERS THEN
10872: ROLLBACK TO Delete_Group_Line_Util;
10873: x_return_status := FND_API.g_ret_sts_unexp_error ;
10874: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
10875: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
10876: END IF;
10877: FND_MSG_PUB.count_and_get(
10874: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
10875: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
10876: END IF;
10877: FND_MSG_PUB.count_and_get(
10878: p_encoded => FND_API.g_false
10879: ,p_count => x_msg_count
10880: ,p_data => x_msg_data
10881: );
10882:
10893: --
10894: ---------------------------------------------------------------------
10895: PROCEDURE Update_Dummy_Utilizations(
10896: p_api_version IN NUMBER
10897: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
10898: ,p_commit IN VARCHAR2 := FND_API.g_false
10899: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
10900:
10901: ,x_return_status OUT NOCOPY VARCHAR2
10894: ---------------------------------------------------------------------
10895: PROCEDURE Update_Dummy_Utilizations(
10896: p_api_version IN NUMBER
10897: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
10898: ,p_commit IN VARCHAR2 := FND_API.g_false
10899: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
10900:
10901: ,x_return_status OUT NOCOPY VARCHAR2
10902: ,x_msg_count OUT NOCOPY NUMBER
10895: PROCEDURE Update_Dummy_Utilizations(
10896: p_api_version IN NUMBER
10897: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
10898: ,p_commit IN VARCHAR2 := FND_API.g_false
10899: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
10900:
10901: ,x_return_status OUT NOCOPY VARCHAR2
10902: ,x_msg_count OUT NOCOPY NUMBER
10903: ,x_msg_data OUT NOCOPY VARCHAR2
10965: IF OZF_DEBUG_HIGH_ON THEN
10966: OZF_Utility_PVT.debug_message(l_full_name||': start');
10967: END IF;
10968:
10969: IF FND_API.to_boolean(p_init_msg_list) THEN
10970: FND_MSG_PUB.initialize;
10971: END IF;
10972:
10973: IF NOT FND_API.compatible_api_call(
10969: IF FND_API.to_boolean(p_init_msg_list) THEN
10970: FND_MSG_PUB.initialize;
10971: END IF;
10972:
10973: IF NOT FND_API.compatible_api_call(
10974: l_api_version,
10975: p_api_version,
10976: l_api_name,
10977: g_pkg_name
10975: p_api_version,
10976: l_api_name,
10977: g_pkg_name
10978: ) THEN
10979: RAISE FND_API.g_exc_unexpected_error;
10980: END IF;
10981:
10982: x_return_status := FND_API.g_ret_sts_success;
10983:
10978: ) THEN
10979: RAISE FND_API.g_exc_unexpected_error;
10980: END IF;
10981:
10982: x_return_status := FND_API.g_ret_sts_success;
10983:
10984: -------------------- update -----------------------
10985: OPEN csr_line_util_info(p_claim_line_util_id);
10986: FETCH csr_line_util_info INTO l_claim_line_id
11054: --Need to check
11055: IF l_counter > 1 THEN
11056: Create_Line_Util_Tbl(
11057: p_api_version => l_api_version
11058: ,p_init_msg_list => FND_API.g_false
11059: ,p_commit => FND_API.g_false
11060: ,p_validation_level => p_validation_level
11061: ,x_return_status => l_return_status
11062: ,x_msg_data => x_msg_data
11055: IF l_counter > 1 THEN
11056: Create_Line_Util_Tbl(
11057: p_api_version => l_api_version
11058: ,p_init_msg_list => FND_API.g_false
11059: ,p_commit => FND_API.g_false
11060: ,p_validation_level => p_validation_level
11061: ,x_return_status => l_return_status
11062: ,x_msg_data => x_msg_data
11063: ,x_msg_count => x_msg_count
11065: ,p_currency_rec => l_currency_rec
11066: ,p_mode => p_mode
11067: ,x_error_index => l_error_index
11068: );
11069: IF l_return_status = fnd_api.g_ret_sts_error THEN
11070: RAISE FND_API.g_exc_error;
11071: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11072: RAISE FND_API.g_exc_unexpected_error;
11073: END IF;
11066: ,p_mode => p_mode
11067: ,x_error_index => l_error_index
11068: );
11069: IF l_return_status = fnd_api.g_ret_sts_error THEN
11070: RAISE FND_API.g_exc_error;
11071: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11072: RAISE FND_API.g_exc_unexpected_error;
11073: END IF;
11074: END IF;
11067: ,x_error_index => l_error_index
11068: );
11069: IF l_return_status = fnd_api.g_ret_sts_error THEN
11070: RAISE FND_API.g_exc_error;
11071: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11072: RAISE FND_API.g_exc_unexpected_error;
11073: END IF;
11074: END IF;
11075:
11068: );
11069: IF l_return_status = fnd_api.g_ret_sts_error THEN
11070: RAISE FND_API.g_exc_error;
11071: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11072: RAISE FND_API.g_exc_unexpected_error;
11073: END IF;
11074: END IF;
11075:
11076: ------------------------- finish -------------------------------
11074: END IF;
11075:
11076: ------------------------- finish -------------------------------
11077: -- Check for commit
11078: IF FND_API.to_boolean(p_commit) THEN
11079: COMMIT;
11080: END IF;
11081:
11082: FND_MSG_PUB.count_and_get(
11079: COMMIT;
11080: END IF;
11081:
11082: FND_MSG_PUB.count_and_get(
11083: p_encoded => FND_API.g_false,
11084: p_count => x_msg_count,
11085: p_data => x_msg_data
11086: );
11087:
11089: OZF_Utility_PVT.debug_message(l_full_name ||': end');
11090: END IF;
11091:
11092: EXCEPTION
11093: WHEN FND_API.g_exc_error THEN
11094: ROLLBACK TO Update_Dummy_Utilizations;
11095: x_return_status := FND_API.g_ret_sts_error;
11096: FND_MSG_PUB.count_and_get (
11097: p_encoded => FND_API.g_false
11091:
11092: EXCEPTION
11093: WHEN FND_API.g_exc_error THEN
11094: ROLLBACK TO Update_Dummy_Utilizations;
11095: x_return_status := FND_API.g_ret_sts_error;
11096: FND_MSG_PUB.count_and_get (
11097: p_encoded => FND_API.g_false
11098: ,p_count => x_msg_count
11099: ,p_data => x_msg_data
11093: WHEN FND_API.g_exc_error THEN
11094: ROLLBACK TO Update_Dummy_Utilizations;
11095: x_return_status := FND_API.g_ret_sts_error;
11096: FND_MSG_PUB.count_and_get (
11097: p_encoded => FND_API.g_false
11098: ,p_count => x_msg_count
11099: ,p_data => x_msg_data
11100: );
11101:
11098: ,p_count => x_msg_count
11099: ,p_data => x_msg_data
11100: );
11101:
11102: WHEN FND_API.g_exc_unexpected_error THEN
11103: ROLLBACK TO Update_Dummy_Utilizations;
11104: x_return_status := FND_API.g_ret_sts_unexp_error ;
11105: FND_MSG_PUB.count_and_get (
11106: p_encoded => FND_API.g_false
11100: );
11101:
11102: WHEN FND_API.g_exc_unexpected_error THEN
11103: ROLLBACK TO Update_Dummy_Utilizations;
11104: x_return_status := FND_API.g_ret_sts_unexp_error ;
11105: FND_MSG_PUB.count_and_get (
11106: p_encoded => FND_API.g_false
11107: ,p_count => x_msg_count
11108: ,p_data => x_msg_data
11102: WHEN FND_API.g_exc_unexpected_error THEN
11103: ROLLBACK TO Update_Dummy_Utilizations;
11104: x_return_status := FND_API.g_ret_sts_unexp_error ;
11105: FND_MSG_PUB.count_and_get (
11106: p_encoded => FND_API.g_false
11107: ,p_count => x_msg_count
11108: ,p_data => x_msg_data
11109: );
11110:
11109: );
11110:
11111: WHEN OTHERS THEN
11112: ROLLBACK TO Update_Dummy_Utilizations;
11113: x_return_status := FND_API.g_ret_sts_unexp_error ;
11114: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
11115: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
11116: END IF;
11117: FND_MSG_PUB.count_and_get(
11114: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
11115: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
11116: END IF;
11117: FND_MSG_PUB.count_and_get(
11118: p_encoded => FND_API.g_false
11119: ,p_count => x_msg_count
11120: ,p_data => x_msg_data
11121: );
11122:
11136: -- 27/03/06 azahmed Bugfix 5119143
11137: ---------------------------------------------------------------------
11138: PROCEDURE Adjust_Fund_Utilization(
11139: p_api_version IN NUMBER
11140: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
11141: ,p_commit IN VARCHAR2 := FND_API.g_false
11142: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
11143:
11144: ,x_return_status OUT NOCOPY VARCHAR2
11137: ---------------------------------------------------------------------
11138: PROCEDURE Adjust_Fund_Utilization(
11139: p_api_version IN NUMBER
11140: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
11141: ,p_commit IN VARCHAR2 := FND_API.g_false
11142: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
11143:
11144: ,x_return_status OUT NOCOPY VARCHAR2
11145: ,x_msg_count OUT NOCOPY NUMBER
11138: PROCEDURE Adjust_Fund_Utilization(
11139: p_api_version IN NUMBER
11140: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
11141: ,p_commit IN VARCHAR2 := FND_API.g_false
11142: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
11143:
11144: ,x_return_status OUT NOCOPY VARCHAR2
11145: ,x_msg_count OUT NOCOPY NUMBER
11146: ,x_msg_data OUT NOCOPY VARCHAR2
11219: IF OZF_DEBUG_HIGH_ON THEN
11220: OZF_Utility_PVT.debug_message(l_full_name||': start');
11221: END IF;
11222:
11223: IF FND_API.to_boolean(p_init_msg_list) THEN
11224: FND_MSG_PUB.initialize;
11225: END IF;
11226:
11227: IF NOT FND_API.compatible_api_call(
11223: IF FND_API.to_boolean(p_init_msg_list) THEN
11224: FND_MSG_PUB.initialize;
11225: END IF;
11226:
11227: IF NOT FND_API.compatible_api_call(
11228: l_api_version,
11229: p_api_version,
11230: l_api_name,
11231: g_pkg_name
11229: p_api_version,
11230: l_api_name,
11231: g_pkg_name
11232: ) THEN
11233: RAISE FND_API.g_exc_unexpected_error;
11234: END IF;
11235:
11236: x_return_status := FND_API.g_ret_sts_success;
11237:
11232: ) THEN
11233: RAISE FND_API.g_exc_unexpected_error;
11234: END IF;
11235:
11236: x_return_status := FND_API.g_ret_sts_success;
11237:
11238: -- initialized x_next_status; Settlement process needs to be contine if there is no
11239: -- associated earnings attached to claim line.
11240: x_next_status := 'CLOSED';
11267: ,p_bill_to_cust_acct_id => l_cust_account_id
11268: ,p_bill_to_site_use_id => l_bill_to_site_id
11269: ,p_ship_to_site_use_id => l_ship_to_site_id
11270: ,p_api_version => l_api_version
11271: ,p_init_msg_list => FND_API.g_false
11272: ,p_commit => FND_API.g_false
11273: ,x_msg_count => x_msg_count
11274: ,x_msg_data => x_msg_data
11275: ,x_return_status => l_return_status
11268: ,p_bill_to_site_use_id => l_bill_to_site_id
11269: ,p_ship_to_site_use_id => l_ship_to_site_id
11270: ,p_api_version => l_api_version
11271: ,p_init_msg_list => FND_API.g_false
11272: ,p_commit => FND_API.g_false
11273: ,x_msg_count => x_msg_count
11274: ,x_msg_data => x_msg_data
11275: ,x_return_status => l_return_status
11276: );
11273: ,x_msg_count => x_msg_count
11274: ,x_msg_data => x_msg_data
11275: ,x_return_status => l_return_status
11276: );
11277: IF l_return_status = fnd_api.g_ret_sts_error THEN
11278: RAISE FND_API.g_exc_error;
11279: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11280: RAISE FND_API.g_exc_unexpected_error;
11281: END IF;
11274: ,x_msg_data => x_msg_data
11275: ,x_return_status => l_return_status
11276: );
11277: IF l_return_status = fnd_api.g_ret_sts_error THEN
11278: RAISE FND_API.g_exc_error;
11279: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11280: RAISE FND_API.g_exc_unexpected_error;
11281: END IF;
11282:
11275: ,x_return_status => l_return_status
11276: );
11277: IF l_return_status = fnd_api.g_ret_sts_error THEN
11278: RAISE FND_API.g_exc_error;
11279: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11280: RAISE FND_API.g_exc_unexpected_error;
11281: END IF;
11282:
11283: Update_Dummy_Utilizations(
11276: );
11277: IF l_return_status = fnd_api.g_ret_sts_error THEN
11278: RAISE FND_API.g_exc_error;
11279: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11280: RAISE FND_API.g_exc_unexpected_error;
11281: END IF;
11282:
11283: Update_Dummy_Utilizations(
11284: p_api_version => l_api_version
11281: END IF;
11282:
11283: Update_Dummy_Utilizations(
11284: p_api_version => l_api_version
11285: ,p_init_msg_list => FND_API.g_false
11286: ,p_commit => FND_API.g_false
11287: ,p_validation_level => p_validation_level
11288: ,x_return_status => l_return_status
11289: ,x_msg_count => x_msg_count
11282:
11283: Update_Dummy_Utilizations(
11284: p_api_version => l_api_version
11285: ,p_init_msg_list => FND_API.g_false
11286: ,p_commit => FND_API.g_false
11287: ,p_validation_level => p_validation_level
11288: ,x_return_status => l_return_status
11289: ,x_msg_count => x_msg_count
11290: ,x_msg_data => x_msg_data
11290: ,x_msg_data => x_msg_data
11291: ,p_claim_line_util_id => l_claim_line_util_id
11292: ,p_mode => p_mode
11293: );
11294: IF l_return_status = fnd_api.g_ret_sts_error THEN
11295: RAISE FND_API.g_exc_error;
11296: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11297: RAISE FND_API.g_exc_unexpected_error;
11298: END IF;
11291: ,p_claim_line_util_id => l_claim_line_util_id
11292: ,p_mode => p_mode
11293: );
11294: IF l_return_status = fnd_api.g_ret_sts_error THEN
11295: RAISE FND_API.g_exc_error;
11296: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11297: RAISE FND_API.g_exc_unexpected_error;
11298: END IF;
11299:
11292: ,p_mode => p_mode
11293: );
11294: IF l_return_status = fnd_api.g_ret_sts_error THEN
11295: RAISE FND_API.g_exc_error;
11296: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11297: RAISE FND_API.g_exc_unexpected_error;
11298: END IF;
11299:
11300: x_next_status := 'CLOSED';
11293: );
11294: IF l_return_status = fnd_api.g_ret_sts_error THEN
11295: RAISE FND_API.g_exc_error;
11296: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11297: RAISE FND_API.g_exc_unexpected_error;
11298: END IF;
11299:
11300: x_next_status := 'CLOSED';
11301: ELSE
11310: FND_MESSAGE.Set_Token('TEXT',l_full_name||' : Manual Adjust Over Utilization is not supported.');
11311: FND_MSG_PUB.Add;
11312: END IF;
11313:
11314: RAISE FND_API.g_exc_unexpected_error;
11315: --Invoke_Adjustment_Workflow();
11316: END IF;
11317:
11318: END LOOP;
11340: END IF;
11341:
11342: ------------------------- finish -------------------------------
11343: -- Check for commit
11344: IF FND_API.to_boolean(p_commit) THEN
11345: COMMIT;
11346: END IF;
11347:
11348: FND_MSG_PUB.count_and_get(
11345: COMMIT;
11346: END IF;
11347:
11348: FND_MSG_PUB.count_and_get(
11349: p_encoded => FND_API.g_false,
11350: p_count => x_msg_count,
11351: p_data => x_msg_data
11352: );
11353:
11355: OZF_Utility_PVT.debug_message(l_full_name ||': end');
11356: END IF;
11357:
11358: EXCEPTION
11359: WHEN FND_API.g_exc_error THEN
11360: ROLLBACK TO Adjust_Fund_Utilization;
11361: x_return_status := FND_API.g_ret_sts_error;
11362: FND_MSG_PUB.count_and_get (
11363: p_encoded => FND_API.g_false
11357:
11358: EXCEPTION
11359: WHEN FND_API.g_exc_error THEN
11360: ROLLBACK TO Adjust_Fund_Utilization;
11361: x_return_status := FND_API.g_ret_sts_error;
11362: FND_MSG_PUB.count_and_get (
11363: p_encoded => FND_API.g_false
11364: ,p_count => x_msg_count
11365: ,p_data => x_msg_data
11359: WHEN FND_API.g_exc_error THEN
11360: ROLLBACK TO Adjust_Fund_Utilization;
11361: x_return_status := FND_API.g_ret_sts_error;
11362: FND_MSG_PUB.count_and_get (
11363: p_encoded => FND_API.g_false
11364: ,p_count => x_msg_count
11365: ,p_data => x_msg_data
11366: );
11367:
11364: ,p_count => x_msg_count
11365: ,p_data => x_msg_data
11366: );
11367:
11368: WHEN FND_API.g_exc_unexpected_error THEN
11369: ROLLBACK TO Adjust_Fund_Utilization;
11370: x_return_status := FND_API.g_ret_sts_unexp_error ;
11371: FND_MSG_PUB.count_and_get (
11372: p_encoded => FND_API.g_false
11366: );
11367:
11368: WHEN FND_API.g_exc_unexpected_error THEN
11369: ROLLBACK TO Adjust_Fund_Utilization;
11370: x_return_status := FND_API.g_ret_sts_unexp_error ;
11371: FND_MSG_PUB.count_and_get (
11372: p_encoded => FND_API.g_false
11373: ,p_count => x_msg_count
11374: ,p_data => x_msg_data
11368: WHEN FND_API.g_exc_unexpected_error THEN
11369: ROLLBACK TO Adjust_Fund_Utilization;
11370: x_return_status := FND_API.g_ret_sts_unexp_error ;
11371: FND_MSG_PUB.count_and_get (
11372: p_encoded => FND_API.g_false
11373: ,p_count => x_msg_count
11374: ,p_data => x_msg_data
11375: );
11376:
11375: );
11376:
11377: WHEN OTHERS THEN
11378: ROLLBACK TO Adjust_Fund_Utilization;
11379: x_return_status := FND_API.g_ret_sts_unexp_error ;
11380: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
11381: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
11382: END IF;
11383: FND_MSG_PUB.count_and_get(
11380: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
11381: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
11382: END IF;
11383: FND_MSG_PUB.count_and_get(
11384: p_encoded => FND_API.g_false
11385: ,p_count => x_msg_count
11386: ,p_data => x_msg_data
11387: );
11388:
11444: ,x_return_status => l_return_status
11445: ,x_to_amount => l_utilized_amount
11446: ,x_rate => l_fu_exc_rate
11447: );
11448: IF l_return_status = FND_API.g_ret_sts_error THEN
11449: RAISE FND_API.g_exc_error;
11450: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
11451: RAISE FND_API.g_exc_unexpected_error;
11452: END IF;
11445: ,x_to_amount => l_utilized_amount
11446: ,x_rate => l_fu_exc_rate
11447: );
11448: IF l_return_status = FND_API.g_ret_sts_error THEN
11449: RAISE FND_API.g_exc_error;
11450: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
11451: RAISE FND_API.g_exc_unexpected_error;
11452: END IF;
11453: l_fxgl_acctd_amount := p_line_util_rec.acctd_amount - l_utilized_amount;
11446: ,x_rate => l_fu_exc_rate
11447: );
11448: IF l_return_status = FND_API.g_ret_sts_error THEN
11449: RAISE FND_API.g_exc_error;
11450: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
11451: RAISE FND_API.g_exc_unexpected_error;
11452: END IF;
11453: l_fxgl_acctd_amount := p_line_util_rec.acctd_amount - l_utilized_amount;
11454:
11447: );
11448: IF l_return_status = FND_API.g_ret_sts_error THEN
11449: RAISE FND_API.g_exc_error;
11450: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
11451: RAISE FND_API.g_exc_unexpected_error;
11452: END IF;
11453: l_fxgl_acctd_amount := p_line_util_rec.acctd_amount - l_utilized_amount;
11454:
11455: END IF;
11520:
11521: -- Approval is not required if claim performance approval is false
11522: -- in Claim Custom set up.
11523: IF l_perf_appr_require = 'N' THEN
11524: RETURN FND_API.g_false;
11525: END IF;
11526:
11527: -- Approval is not required if override profile is Yes
11528: IF FND_PROFILE.VALUE('OZF_OFFR_OVERRIDE_PERF_FLAG') = 'Y' THEN
11525: END IF;
11526:
11527: -- Approval is not required if override profile is Yes
11528: IF FND_PROFILE.VALUE('OZF_OFFR_OVERRIDE_PERF_FLAG') = 'Y' THEN
11529: RETURN FND_API.g_false;
11530: END IF;
11531:
11532: OPEN csr_line_util(p_claim_id);
11533: LOOP
11550: ,x_performance_flag => l_performance_flag
11551: ,x_offer_perf_tbl => l_offer_perf_tbl
11552: );
11553:
11554: IF l_performance_flag = FND_API.g_false THEN
11555: -- update ozf_claims.approved_flag
11556: UPDATE ozf_claims_all
11557: SET approved_flag = 'F'
11558: WHERE claim_id = p_claim_id;
11556: UPDATE ozf_claims_all
11557: SET approved_flag = 'F'
11558: WHERE claim_id = p_claim_id;
11559:
11560: RETURN FND_API.g_true;
11561: END IF;
11562: END IF;
11563: END LOOP;
11564: CLOSE csr_line_util;
11567: UPDATE ozf_claims_all
11568: SET approved_flag = 'T'
11569: WHERE claim_id = p_claim_id;
11570:
11571: RETURN FND_API.g_false;
11572: END Perform_Approval_Required;
11573:
11574:
11575: ---------------------------------------------------------------------
11676:
11677: -- Fix for bug 5177341
11678: IF l_un_earned_pay_thold_type = 'UNCONDITIONAL' OR
11679: l_un_earned_pay_thold_flag = 'F' THEN
11680: RETURN FND_API.g_false;
11681: END IF;
11682:
11683: OPEN csr_line_util(p_claim_id);
11684: LOOP
11700: END IF;
11701:
11702: --Fix for bug 7527018
11703: IF ABS(l_amount_remaining) > l_amount_threshold THEN
11704: RETURN FND_API.g_true;
11705: END IF;
11706: END IF;
11707: END LOOP;
11708: CLOSE csr_line_util;
11706: END IF;
11707: END LOOP;
11708: CLOSE csr_line_util;
11709:
11710: RETURN FND_API.g_false;
11711: END Earnings_Approval_Required;
11712:
11713:
11714: ---------------------------------------------------------------------
11770: ,x_performance_flag => l_performance_flag
11771: ,x_offer_perf_tbl => l_offer_perf_tbl
11772: );
11773:
11774: IF l_performance_flag = FND_API.g_false AND
11775: l_offer_perf_tbl.count > 0
11776: THEN
11777: FOR j IN l_offer_perf_tbl.FIRST..l_offer_perf_tbl.LAST LOOP
11778: l_counter := l_counter + 1;
11853: ---------------------------------------------------------------------
11854:
11855: PROCEDURE Initiate_SD_Payment(
11856: p_api_version IN NUMBER
11857: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
11858: ,p_commit IN VARCHAR2 := FND_API.g_false
11859: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
11860: ,x_return_status OUT NOCOPY VARCHAR2
11861: ,x_msg_count OUT NOCOPY NUMBER
11854:
11855: PROCEDURE Initiate_SD_Payment(
11856: p_api_version IN NUMBER
11857: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
11858: ,p_commit IN VARCHAR2 := FND_API.g_false
11859: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
11860: ,x_return_status OUT NOCOPY VARCHAR2
11861: ,x_msg_count OUT NOCOPY NUMBER
11862: ,x_msg_data OUT NOCOPY VARCHAR2
11855: PROCEDURE Initiate_SD_Payment(
11856: p_api_version IN NUMBER
11857: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
11858: ,p_commit IN VARCHAR2 := FND_API.g_false
11859: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
11860: ,x_return_status OUT NOCOPY VARCHAR2
11861: ,x_msg_count OUT NOCOPY NUMBER
11862: ,x_msg_data OUT NOCOPY VARCHAR2
11863: ,p_ship_debit_id IN NUMBER
12173: OZF_Utility_PVT.debug_message('p_ship_debit_id : '||p_ship_debit_id);
12174: OZF_Utility_PVT.debug_message('p_ship_debit_type : '||p_ship_debit_type);
12175: END IF;
12176:
12177: IF FND_API.to_boolean(p_init_msg_list) THEN
12178: FND_MSG_PUB.initialize;
12179: END IF;
12180:
12181: IF NOT FND_API.compatible_api_call(
12177: IF FND_API.to_boolean(p_init_msg_list) THEN
12178: FND_MSG_PUB.initialize;
12179: END IF;
12180:
12181: IF NOT FND_API.compatible_api_call(
12182: l_api_version,
12183: p_api_version,
12184: l_api_name,
12185: g_pkg_name
12183: p_api_version,
12184: l_api_name,
12185: g_pkg_name
12186: ) THEN
12187: RAISE FND_API.g_exc_unexpected_error;
12188: END IF;
12189:
12190: x_return_status := FND_API.g_ret_sts_success;
12191:
12186: ) THEN
12187: RAISE FND_API.g_exc_unexpected_error;
12188: END IF;
12189:
12190: x_return_status := FND_API.g_ret_sts_success;
12191:
12192: ----------------- Process batch ----------------
12193:
12194: IF p_ship_debit_id IS NULL OR p_ship_debit_type IS NULL THEN
12329: FND_MESSAGE.Set_Name('OZF', 'OZF_DUP_CUST_ACCTS');
12330: FND_MESSAGE.Set_Token('CUST_ACCOUNT_ID', l_cust_util_tbl(i).cust_account_id);
12331: FND_MSG_PUB.ADD;
12332: END IF;
12333: RAISE FND_API.g_exc_unexpected_error;
12334: END IF;
12335: END LOOP;
12336: END IF;
12337:
12460: ,x_to_amount => l_amount
12461: ,x_rate => l_conv_exc_rate
12462: );
12463:
12464: IF l_return_status = FND_API.g_ret_sts_error THEN
12465: RAISE FND_API.g_exc_error;
12466: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
12467: RAISE FND_API.g_exc_unexpected_error;
12468: END IF;
12461: ,x_rate => l_conv_exc_rate
12462: );
12463:
12464: IF l_return_status = FND_API.g_ret_sts_error THEN
12465: RAISE FND_API.g_exc_error;
12466: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
12467: RAISE FND_API.g_exc_unexpected_error;
12468: END IF;
12469: END IF;
12462: );
12463:
12464: IF l_return_status = FND_API.g_ret_sts_error THEN
12465: RAISE FND_API.g_exc_error;
12466: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
12467: RAISE FND_API.g_exc_unexpected_error;
12468: END IF;
12469: END IF;
12470: END IF;
12463:
12464: IF l_return_status = FND_API.g_ret_sts_error THEN
12465: RAISE FND_API.g_exc_error;
12466: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
12467: RAISE FND_API.g_exc_unexpected_error;
12468: END IF;
12469: END IF;
12470: END IF;
12471: END IF;
12479: ,p_from_amount => l_amount_offr_curr
12480: ,x_return_status => l_return_status
12481: ,x_to_amount => l_amount
12482: );
12483: IF l_return_status = FND_API.g_ret_sts_error THEN
12484: RAISE FND_API.g_exc_error;
12485: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
12486: RAISE FND_API.g_exc_unexpected_error;
12487: END IF;
12480: ,x_return_status => l_return_status
12481: ,x_to_amount => l_amount
12482: );
12483: IF l_return_status = FND_API.g_ret_sts_error THEN
12484: RAISE FND_API.g_exc_error;
12485: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
12486: RAISE FND_API.g_exc_unexpected_error;
12487: END IF;
12488: END IF;
12481: ,x_to_amount => l_amount
12482: );
12483: IF l_return_status = FND_API.g_ret_sts_error THEN
12484: RAISE FND_API.g_exc_error;
12485: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
12486: RAISE FND_API.g_exc_unexpected_error;
12487: END IF;
12488: END IF;
12489: */
12482: );
12483: IF l_return_status = FND_API.g_ret_sts_error THEN
12484: RAISE FND_API.g_exc_error;
12485: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
12486: RAISE FND_API.g_exc_unexpected_error;
12487: END IF;
12488: END IF;
12489: */
12490:
12520: FND_MESSAGE.Set_Name('OZF', 'OZF_PRODUCT_UOM_MISSING');
12521: FND_MESSAGE.Set_Token('ITEM_ID', l_line_tbl(l_counter).item_id);
12522: FND_MSG_PUB.ADD;
12523: END IF;
12524: RAISE FND_API.g_exc_unexpected_error;
12525: END IF;
12526: CLOSE csr_uom_code;
12527: END IF;
12528: END IF;
12538: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
12539: FND_MESSAGE.Set_Name('OZF', 'OZF_ACCRUAL_NOT_EXISTS');
12540: FND_MSG_PUB.ADD;
12541: END IF;
12542: RAISE FND_API.g_exc_unexpected_error;
12543: END IF;
12544:
12545: IF p_ship_debit_type = 'INTERNAL' THEN
12546: CLOSE csr_request_lines;
12652: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
12653: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_AMOUNT_NEGATIVE');
12654: FND_MSG_PUB.ADD;
12655: END IF;
12656: RAISE FND_API.g_exc_unexpected_error;
12657:
12658: END IF;
12659: -- Fix for Bug 10047209
12660: ELSIF(p_ship_debit_type IN ('SUPPLIER','INTERNAL') and l_claim_rec.amount > 0) THEN
12671: ,p_claim => l_claim_rec
12672: ,x_claim_id => l_claim_id
12673: );
12674:
12675: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
12676: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12677: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12678: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12679: END IF;
12672: ,x_claim_id => l_claim_id
12673: );
12674:
12675: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
12676: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12677: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12678: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12679: END IF;
12680:
12673: );
12674:
12675: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
12676: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12677: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12678: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12679: END IF;
12680:
12681: IF l_rec_num = 1 THEN
12674:
12675: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
12676: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12677: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12678: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12679: END IF;
12680:
12681: IF l_rec_num = 1 THEN
12682: x_claim_id := l_claim_id;
12695:
12696: --Claim line creation
12697: OZF_CLAIM_LINE_PVT.Create_Claim_Line_Tbl(
12698: p_api_version => 1.0
12699: ,p_init_msg_list => FND_API.g_false
12700: ,p_commit => FND_API.g_false
12701: ,p_validation_level => FND_API.g_valid_level_full
12702: ,x_return_status => l_return_status
12703: ,x_msg_count => x_msg_count
12696: --Claim line creation
12697: OZF_CLAIM_LINE_PVT.Create_Claim_Line_Tbl(
12698: p_api_version => 1.0
12699: ,p_init_msg_list => FND_API.g_false
12700: ,p_commit => FND_API.g_false
12701: ,p_validation_level => FND_API.g_valid_level_full
12702: ,x_return_status => l_return_status
12703: ,x_msg_count => x_msg_count
12704: ,x_msg_data => x_msg_data
12697: OZF_CLAIM_LINE_PVT.Create_Claim_Line_Tbl(
12698: p_api_version => 1.0
12699: ,p_init_msg_list => FND_API.g_false
12700: ,p_commit => FND_API.g_false
12701: ,p_validation_level => FND_API.g_valid_level_full
12702: ,x_return_status => l_return_status
12703: ,x_msg_count => x_msg_count
12704: ,x_msg_data => x_msg_data
12705: ,p_claim_line_tbl => l_line_tbl
12705: ,p_claim_line_tbl => l_line_tbl
12706: ,x_error_index => l_error_index
12707: );
12708:
12709: IF l_return_status = FND_API.g_ret_sts_error THEN
12710: RAISE FND_API.g_exc_error;
12711: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
12712: RAISE FND_API.g_exc_error;
12713: END IF;
12706: ,x_error_index => l_error_index
12707: );
12708:
12709: IF l_return_status = FND_API.g_ret_sts_error THEN
12710: RAISE FND_API.g_exc_error;
12711: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
12712: RAISE FND_API.g_exc_error;
12713: END IF;
12714:
12707: );
12708:
12709: IF l_return_status = FND_API.g_ret_sts_error THEN
12710: RAISE FND_API.g_exc_error;
12711: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
12712: RAISE FND_API.g_exc_error;
12713: END IF;
12714:
12715: IF OZF_DEBUG_HIGH_ON THEN
12708:
12709: IF l_return_status = FND_API.g_ret_sts_error THEN
12710: RAISE FND_API.g_exc_error;
12711: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
12712: RAISE FND_API.g_exc_error;
12713: END IF;
12714:
12715: IF OZF_DEBUG_HIGH_ON THEN
12716: OZF_Utility_PVT.debug_message('Claim lines created for claim_id=' || l_claim_id);
12729:
12730: --Claim Line/Utilizations association
12731: Update_Group_Line_Util(
12732: p_api_version => l_api_version
12733: ,p_init_msg_list => FND_API.g_false
12734: ,p_commit => FND_API.g_false
12735: ,p_validation_level => p_validation_level
12736: ,x_return_status => l_return_status
12737: ,x_msg_count => x_msg_count
12730: --Claim Line/Utilizations association
12731: Update_Group_Line_Util(
12732: p_api_version => l_api_version
12733: ,p_init_msg_list => FND_API.g_false
12734: ,p_commit => FND_API.g_false
12735: ,p_validation_level => p_validation_level
12736: ,x_return_status => l_return_status
12737: ,x_msg_count => x_msg_count
12738: ,x_msg_data => x_msg_data
12740: ,p_funds_util_flt => l_funds_util_flt
12741: ,p_mode => OZF_CLAIM_UTILITY_PVT.g_auto_mode
12742: );
12743:
12744: IF l_return_status = FND_API.g_ret_sts_error THEN
12745: RAISE FND_API.g_exc_error;
12746: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
12747: RAISE FND_API.g_exc_error;
12748: END IF;
12741: ,p_mode => OZF_CLAIM_UTILITY_PVT.g_auto_mode
12742: );
12743:
12744: IF l_return_status = FND_API.g_ret_sts_error THEN
12745: RAISE FND_API.g_exc_error;
12746: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
12747: RAISE FND_API.g_exc_error;
12748: END IF;
12749:
12742: );
12743:
12744: IF l_return_status = FND_API.g_ret_sts_error THEN
12745: RAISE FND_API.g_exc_error;
12746: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
12747: RAISE FND_API.g_exc_error;
12748: END IF;
12749:
12750: END LOOP;
12743:
12744: IF l_return_status = FND_API.g_ret_sts_error THEN
12745: RAISE FND_API.g_exc_error;
12746: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
12747: RAISE FND_API.g_exc_error;
12748: END IF;
12749:
12750: END LOOP;
12751: CLOSE csr_claim_lines;
12760: ,x_msg_data => x_msg_data
12761: );
12762:
12763:
12764: IF l_return_status = fnd_api.g_ret_sts_error THEN
12765: RAISE FND_API.g_exc_error;
12766: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
12767: RAISE FND_API.g_exc_unexpected_error;
12768: END IF;
12761: );
12762:
12763:
12764: IF l_return_status = fnd_api.g_ret_sts_error THEN
12765: RAISE FND_API.g_exc_error;
12766: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
12767: RAISE FND_API.g_exc_unexpected_error;
12768: END IF;
12769: END IF; --IF l_sd_claim_open_status = 'N' THEN
12762:
12763:
12764: IF l_return_status = fnd_api.g_ret_sts_error THEN
12765: RAISE FND_API.g_exc_error;
12766: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
12767: RAISE FND_API.g_exc_unexpected_error;
12768: END IF;
12769: END IF; --IF l_sd_claim_open_status = 'N' THEN
12770: END IF; -- l_create_claim := 'Y';
12763:
12764: IF l_return_status = fnd_api.g_ret_sts_error THEN
12765: RAISE FND_API.g_exc_error;
12766: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
12767: RAISE FND_API.g_exc_unexpected_error;
12768: END IF;
12769: END IF; --IF l_sd_claim_open_status = 'N' THEN
12770: END IF; -- l_create_claim := 'Y';
12771: ELSIF l_claim_rec.amount = 0 THEN
12774: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
12775: FND_MESSAGE.Set_Name('OZF', 'OZF_EARN_AVAIL_AMT_ZERO');
12776: FND_MSG_PUB.ADD;
12777: END IF;
12778: RAISE FND_API.g_exc_unexpected_error;
12779: /*ELSE
12780: --Raise error, if claim amount is negative.
12781: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
12782: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_AMOUNT_NEGATIVE');
12781: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
12782: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_AMOUNT_NEGATIVE');
12783: FND_MSG_PUB.ADD;
12784: END IF;
12785: RAISE FND_API.g_exc_unexpected_error;
12786: */
12787: END IF;
12788:
12789: --Set Claim Access
12804: OZF_Utility_PVT.debug_message('arc_act_access_to_object : '||l_access_rec.arc_act_access_to_object);
12805: END IF;
12806:
12807: ams_access_pvt.create_access ( p_api_version => l_api_version
12808: , p_init_msg_list => fnd_api.g_false
12809: , p_validation_level => fnd_api.g_valid_level_full
12810: , x_return_status => x_return_status
12811: , x_msg_count => x_msg_count
12812: , x_msg_data => x_msg_data
12805: END IF;
12806:
12807: ams_access_pvt.create_access ( p_api_version => l_api_version
12808: , p_init_msg_list => fnd_api.g_false
12809: , p_validation_level => fnd_api.g_valid_level_full
12810: , x_return_status => x_return_status
12811: , x_msg_count => x_msg_count
12812: , x_msg_data => x_msg_data
12813: , p_commit => fnd_api.g_false
12809: , p_validation_level => fnd_api.g_valid_level_full
12810: , x_return_status => x_return_status
12811: , x_msg_count => x_msg_count
12812: , x_msg_data => x_msg_data
12813: , p_commit => fnd_api.g_false
12814: , p_access_rec => l_access_rec
12815: , x_access_id => l_access_id
12816: );
12817: END LOOP;
12825: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
12826: FND_MESSAGE.Set_Name('OZF', 'OZF_ACCRUAL_NOT_EXISTS');
12827: FND_MSG_PUB.ADD;
12828: END IF;
12829: RAISE FND_API.g_exc_unexpected_error;
12830: END IF;
12831:
12832: ------------------------- finish -------------------------------
12833: -- Check for commit
12830: END IF;
12831:
12832: ------------------------- finish -------------------------------
12833: -- Check for commit
12834: IF FND_API.to_boolean(p_commit) THEN
12835: COMMIT;
12836: END IF;
12837:
12838: FND_MSG_PUB.count_and_get(
12835: COMMIT;
12836: END IF;
12837:
12838: FND_MSG_PUB.count_and_get(
12839: p_encoded => FND_API.g_false,
12840: p_count => x_msg_count,
12841: p_data => x_msg_data
12842: );
12843:
12845: OZF_Utility_PVT.debug_message(l_full_name ||': end');
12846: END IF;
12847:
12848: EXCEPTION
12849: WHEN FND_API.g_exc_error THEN
12850: ROLLBACK TO Initiate_SD_Payment;
12851: x_return_status := FND_API.g_ret_sts_error;
12852: FND_MSG_PUB.count_and_get (
12853: p_encoded => FND_API.g_false
12847:
12848: EXCEPTION
12849: WHEN FND_API.g_exc_error THEN
12850: ROLLBACK TO Initiate_SD_Payment;
12851: x_return_status := FND_API.g_ret_sts_error;
12852: FND_MSG_PUB.count_and_get (
12853: p_encoded => FND_API.g_false
12854: ,p_count => x_msg_count
12855: ,p_data => x_msg_data
12849: WHEN FND_API.g_exc_error THEN
12850: ROLLBACK TO Initiate_SD_Payment;
12851: x_return_status := FND_API.g_ret_sts_error;
12852: FND_MSG_PUB.count_and_get (
12853: p_encoded => FND_API.g_false
12854: ,p_count => x_msg_count
12855: ,p_data => x_msg_data
12856: );
12857:
12854: ,p_count => x_msg_count
12855: ,p_data => x_msg_data
12856: );
12857:
12858: WHEN FND_API.g_exc_unexpected_error THEN
12859: ROLLBACK TO Initiate_SD_Payment;
12860: x_return_status := FND_API.g_ret_sts_unexp_error ;
12861: FND_MSG_PUB.count_and_get (
12862: p_encoded => FND_API.g_false
12856: );
12857:
12858: WHEN FND_API.g_exc_unexpected_error THEN
12859: ROLLBACK TO Initiate_SD_Payment;
12860: x_return_status := FND_API.g_ret_sts_unexp_error ;
12861: FND_MSG_PUB.count_and_get (
12862: p_encoded => FND_API.g_false
12863: ,p_count => x_msg_count
12864: ,p_data => x_msg_data
12858: WHEN FND_API.g_exc_unexpected_error THEN
12859: ROLLBACK TO Initiate_SD_Payment;
12860: x_return_status := FND_API.g_ret_sts_unexp_error ;
12861: FND_MSG_PUB.count_and_get (
12862: p_encoded => FND_API.g_false
12863: ,p_count => x_msg_count
12864: ,p_data => x_msg_data
12865: );
12866:
12865: );
12866:
12867: WHEN OTHERS THEN
12868: ROLLBACK TO Initiate_SD_Payment;
12869: x_return_status := FND_API.g_ret_sts_unexp_error ;
12870: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
12871: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
12872: END IF;
12873: FND_MSG_PUB.count_and_get(
12870: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
12871: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
12872: END IF;
12873: FND_MSG_PUB.count_and_get(
12874: p_encoded => FND_API.g_false
12875: ,p_count => x_msg_count
12876: ,p_data => x_msg_data
12877: );
12878:
12895: -- 10-FEB-2011 kpatro Created.
12896: ---------------------------------------------------------------------
12897: PROCEDURE Accruals_Association(
12898: p_api_version IN NUMBER
12899: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
12900: ,p_commit IN VARCHAR2 := FND_API.g_false
12901: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
12902:
12903: ,x_return_status OUT NOCOPY VARCHAR2
12896: ---------------------------------------------------------------------
12897: PROCEDURE Accruals_Association(
12898: p_api_version IN NUMBER
12899: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
12900: ,p_commit IN VARCHAR2 := FND_API.g_false
12901: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
12902:
12903: ,x_return_status OUT NOCOPY VARCHAR2
12904: ,x_msg_count OUT NOCOPY NUMBER
12897: PROCEDURE Accruals_Association(
12898: p_api_version IN NUMBER
12899: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
12900: ,p_commit IN VARCHAR2 := FND_API.g_false
12901: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
12902:
12903: ,x_return_status OUT NOCOPY VARCHAR2
12904: ,x_msg_count OUT NOCOPY NUMBER
12905: ,x_msg_data OUT NOCOPY VARCHAR2
12947: IF OZF_DEBUG_HIGH_ON THEN
12948: OZF_Utility_PVT.debug_message(l_full_name||': start');
12949: END IF;
12950:
12951: IF FND_API.to_boolean(p_init_msg_list) THEN
12952: FND_MSG_PUB.initialize;
12953: END IF;
12954:
12955: IF NOT FND_API.compatible_api_call(
12951: IF FND_API.to_boolean(p_init_msg_list) THEN
12952: FND_MSG_PUB.initialize;
12953: END IF;
12954:
12955: IF NOT FND_API.compatible_api_call(
12956: l_api_version,
12957: p_api_version,
12958: l_api_name,
12959: g_pkg_name
12957: p_api_version,
12958: l_api_name,
12959: g_pkg_name
12960: ) THEN
12961: RAISE FND_API.g_exc_unexpected_error;
12962: END IF;
12963:
12964: x_return_status := FND_API.g_ret_sts_success;
12965:
12960: ) THEN
12961: RAISE FND_API.g_exc_unexpected_error;
12962: END IF;
12963:
12964: x_return_status := FND_API.g_ret_sts_success;
12965:
12966: ----------------- start ----------------
12967:
12968: OPEN csr_claim_header(p_claim_id);
12987: IF(l_claim_line_tbl.COUNT > 0 ) THEN
12988: OZF_Utility_PVT.debug_message('Deleting the Non promotional Lines');
12989: OZF_Claim_Line_PVT.Delete_Claim_Line_Tbl(
12990: p_api_version => l_api_version
12991: ,p_init_msg_list => FND_API.g_false
12992: ,p_commit => FND_API.g_false
12993: ,p_validation_level => FND_API.g_valid_level_full
12994: ,x_return_status => l_return_status
12995: ,x_msg_count => l_msg_count
12988: OZF_Utility_PVT.debug_message('Deleting the Non promotional Lines');
12989: OZF_Claim_Line_PVT.Delete_Claim_Line_Tbl(
12990: p_api_version => l_api_version
12991: ,p_init_msg_list => FND_API.g_false
12992: ,p_commit => FND_API.g_false
12993: ,p_validation_level => FND_API.g_valid_level_full
12994: ,x_return_status => l_return_status
12995: ,x_msg_count => l_msg_count
12996: ,x_msg_data => l_msg_data
12989: OZF_Claim_Line_PVT.Delete_Claim_Line_Tbl(
12990: p_api_version => l_api_version
12991: ,p_init_msg_list => FND_API.g_false
12992: ,p_commit => FND_API.g_false
12993: ,p_validation_level => FND_API.g_valid_level_full
12994: ,x_return_status => l_return_status
12995: ,x_msg_count => l_msg_count
12996: ,x_msg_data => l_msg_data
12997: ,p_claim_line_tbl => l_claim_line_tbl
12994: ,x_return_status => l_return_status
12995: ,x_msg_count => l_msg_count
12996: ,x_msg_data => l_msg_data
12997: ,p_claim_line_tbl => l_claim_line_tbl
12998: ,p_change_object_version => FND_API.g_false
12999: ,x_error_index => l_error_index
13000: );
13001: IF l_return_status = FND_API.g_ret_sts_error THEN
13002: RAISE FND_API.g_exc_unexpected_error;
12997: ,p_claim_line_tbl => l_claim_line_tbl
12998: ,p_change_object_version => FND_API.g_false
12999: ,x_error_index => l_error_index
13000: );
13001: IF l_return_status = FND_API.g_ret_sts_error THEN
13002: RAISE FND_API.g_exc_unexpected_error;
13003: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
13004: RAISE FND_API.g_exc_unexpected_error;
13005: END IF;
12998: ,p_change_object_version => FND_API.g_false
12999: ,x_error_index => l_error_index
13000: );
13001: IF l_return_status = FND_API.g_ret_sts_error THEN
13002: RAISE FND_API.g_exc_unexpected_error;
13003: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
13004: RAISE FND_API.g_exc_unexpected_error;
13005: END IF;
13006: END IF; -- End of delete claim line
12999: ,x_error_index => l_error_index
13000: );
13001: IF l_return_status = FND_API.g_ret_sts_error THEN
13002: RAISE FND_API.g_exc_unexpected_error;
13003: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
13004: RAISE FND_API.g_exc_unexpected_error;
13005: END IF;
13006: END IF; -- End of delete claim line
13007:
13000: );
13001: IF l_return_status = FND_API.g_ret_sts_error THEN
13002: RAISE FND_API.g_exc_unexpected_error;
13003: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
13004: RAISE FND_API.g_exc_unexpected_error;
13005: END IF;
13006: END IF; -- End of delete claim line
13007:
13008:
13021:
13022: -- Create Claim Line
13023: OZF_CLAIM_LINE_PVT.Create_Claim_Line_Tbl(
13024: p_api_version => 1.0
13025: ,p_init_msg_list => FND_API.g_false
13026: ,p_commit => FND_API.g_false
13027: ,p_validation_level => FND_API.g_valid_level_full
13028: ,x_return_status => l_return_status
13029: ,x_msg_count => x_msg_count
13022: -- Create Claim Line
13023: OZF_CLAIM_LINE_PVT.Create_Claim_Line_Tbl(
13024: p_api_version => 1.0
13025: ,p_init_msg_list => FND_API.g_false
13026: ,p_commit => FND_API.g_false
13027: ,p_validation_level => FND_API.g_valid_level_full
13028: ,x_return_status => l_return_status
13029: ,x_msg_count => x_msg_count
13030: ,x_msg_data => x_msg_data
13023: OZF_CLAIM_LINE_PVT.Create_Claim_Line_Tbl(
13024: p_api_version => 1.0
13025: ,p_init_msg_list => FND_API.g_false
13026: ,p_commit => FND_API.g_false
13027: ,p_validation_level => FND_API.g_valid_level_full
13028: ,x_return_status => l_return_status
13029: ,x_msg_count => x_msg_count
13030: ,x_msg_data => x_msg_data
13031: ,p_claim_line_tbl => l_line_tbl
13031: ,p_claim_line_tbl => l_line_tbl
13032: ,x_error_index => l_error_index
13033: );
13034:
13035: IF l_return_status = FND_API.g_ret_sts_error THEN
13036: RAISE FND_API.g_exc_error;
13037: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
13038: RAISE FND_API.g_exc_error;
13039: END IF;
13032: ,x_error_index => l_error_index
13033: );
13034:
13035: IF l_return_status = FND_API.g_ret_sts_error THEN
13036: RAISE FND_API.g_exc_error;
13037: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
13038: RAISE FND_API.g_exc_error;
13039: END IF;
13040:
13033: );
13034:
13035: IF l_return_status = FND_API.g_ret_sts_error THEN
13036: RAISE FND_API.g_exc_error;
13037: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
13038: RAISE FND_API.g_exc_error;
13039: END IF;
13040:
13041: l_funds_util_flt.claim_line_id := l_line_tbl(1).claim_line_id;
13034:
13035: IF l_return_status = FND_API.g_ret_sts_error THEN
13036: RAISE FND_API.g_exc_error;
13037: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
13038: RAISE FND_API.g_exc_error;
13039: END IF;
13040:
13041: l_funds_util_flt.claim_line_id := l_line_tbl(1).claim_line_id;
13042: END IF;
13043:
13044: -- Associate the earning to claim line
13045: Update_Group_Line_Util(
13046: p_api_version => 1.0
13047: ,p_init_msg_list => FND_API.g_false
13048: ,p_commit => FND_API.g_false
13049: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
13050: ,x_return_status => l_return_status
13051: ,x_msg_count => x_msg_count
13044: -- Associate the earning to claim line
13045: Update_Group_Line_Util(
13046: p_api_version => 1.0
13047: ,p_init_msg_list => FND_API.g_false
13048: ,p_commit => FND_API.g_false
13049: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
13050: ,x_return_status => l_return_status
13051: ,x_msg_count => x_msg_count
13052: ,x_msg_data => x_msg_data
13045: Update_Group_Line_Util(
13046: p_api_version => 1.0
13047: ,p_init_msg_list => FND_API.g_false
13048: ,p_commit => FND_API.g_false
13049: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
13050: ,x_return_status => l_return_status
13051: ,x_msg_count => x_msg_count
13052: ,x_msg_data => x_msg_data
13053: ,p_summary_view => p_summary_view
13053: ,p_summary_view => p_summary_view
13054: ,p_funds_util_flt => l_funds_util_flt
13055: );
13056:
13057: IF l_return_status = FND_API.g_ret_sts_error THEN
13058: RAISE FND_API.g_exc_error;
13059: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
13060: RAISE FND_API.g_exc_error;
13061: END IF;
13054: ,p_funds_util_flt => l_funds_util_flt
13055: );
13056:
13057: IF l_return_status = FND_API.g_ret_sts_error THEN
13058: RAISE FND_API.g_exc_error;
13059: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
13060: RAISE FND_API.g_exc_error;
13061: END IF;
13062: -- Auto split the Claim Line if there is multiple product associated with the same offer
13055: );
13056:
13057: IF l_return_status = FND_API.g_ret_sts_error THEN
13058: RAISE FND_API.g_exc_error;
13059: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
13060: RAISE FND_API.g_exc_error;
13061: END IF;
13062: -- Auto split the Claim Line if there is multiple product associated with the same offer
13063: OZF_Claim_Line_PVT.split_claim_line
13056:
13057: IF l_return_status = FND_API.g_ret_sts_error THEN
13058: RAISE FND_API.g_exc_error;
13059: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
13060: RAISE FND_API.g_exc_error;
13061: END IF;
13062: -- Auto split the Claim Line if there is multiple product associated with the same offer
13063: OZF_Claim_Line_PVT.split_claim_line
13064: (
13062: -- Auto split the Claim Line if there is multiple product associated with the same offer
13063: OZF_Claim_Line_PVT.split_claim_line
13064: (
13065: p_api_version => 1.0
13066: ,p_init_msg_list => FND_API.g_false
13067: ,p_commit => FND_API.g_false
13068: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
13069: ,x_return_status => l_return_status
13070: ,x_msg_count => x_msg_count
13063: OZF_Claim_Line_PVT.split_claim_line
13064: (
13065: p_api_version => 1.0
13066: ,p_init_msg_list => FND_API.g_false
13067: ,p_commit => FND_API.g_false
13068: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
13069: ,x_return_status => l_return_status
13070: ,x_msg_count => x_msg_count
13071: ,x_msg_data => x_msg_data
13064: (
13065: p_api_version => 1.0
13066: ,p_init_msg_list => FND_API.g_false
13067: ,p_commit => FND_API.g_false
13068: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
13069: ,x_return_status => l_return_status
13070: ,x_msg_count => x_msg_count
13071: ,x_msg_data => x_msg_data
13072: ,p_claim_line_id => l_funds_util_flt.claim_line_id
13070: ,x_msg_count => x_msg_count
13071: ,x_msg_data => x_msg_data
13072: ,p_claim_line_id => l_funds_util_flt.claim_line_id
13073: );
13074: IF l_return_status = FND_API.g_ret_sts_error THEN
13075: RAISE FND_API.g_exc_error;
13076: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
13077: RAISE FND_API.g_exc_error;
13078: END IF;
13071: ,x_msg_data => x_msg_data
13072: ,p_claim_line_id => l_funds_util_flt.claim_line_id
13073: );
13074: IF l_return_status = FND_API.g_ret_sts_error THEN
13075: RAISE FND_API.g_exc_error;
13076: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
13077: RAISE FND_API.g_exc_error;
13078: END IF;
13079:
13072: ,p_claim_line_id => l_funds_util_flt.claim_line_id
13073: );
13074: IF l_return_status = FND_API.g_ret_sts_error THEN
13075: RAISE FND_API.g_exc_error;
13076: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
13077: RAISE FND_API.g_exc_error;
13078: END IF;
13079:
13080:
13073: );
13074: IF l_return_status = FND_API.g_ret_sts_error THEN
13075: RAISE FND_API.g_exc_error;
13076: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
13077: RAISE FND_API.g_exc_error;
13078: END IF;
13079:
13080:
13081: ------------------------- finish -------------------------------
13079:
13080:
13081: ------------------------- finish -------------------------------
13082: -- Check for commit
13083: IF FND_API.to_boolean(p_commit) THEN
13084: COMMIT;
13085: END IF;
13086:
13087: FND_MSG_PUB.count_and_get(
13084: COMMIT;
13085: END IF;
13086:
13087: FND_MSG_PUB.count_and_get(
13088: p_encoded => FND_API.g_false,
13089: p_count => x_msg_count,
13090: p_data => x_msg_data
13091: );
13092:
13094: OZF_Utility_PVT.debug_message(l_full_name ||': end');
13095: END IF;
13096:
13097: EXCEPTION
13098: WHEN FND_API.g_exc_error THEN
13099: ROLLBACK TO Accruals_Association;
13100: x_return_status := FND_API.g_ret_sts_error;
13101: FND_MSG_PUB.count_and_get (
13102: p_encoded => FND_API.g_false
13096:
13097: EXCEPTION
13098: WHEN FND_API.g_exc_error THEN
13099: ROLLBACK TO Accruals_Association;
13100: x_return_status := FND_API.g_ret_sts_error;
13101: FND_MSG_PUB.count_and_get (
13102: p_encoded => FND_API.g_false
13103: ,p_count => x_msg_count
13104: ,p_data => x_msg_data
13098: WHEN FND_API.g_exc_error THEN
13099: ROLLBACK TO Accruals_Association;
13100: x_return_status := FND_API.g_ret_sts_error;
13101: FND_MSG_PUB.count_and_get (
13102: p_encoded => FND_API.g_false
13103: ,p_count => x_msg_count
13104: ,p_data => x_msg_data
13105: );
13106:
13103: ,p_count => x_msg_count
13104: ,p_data => x_msg_data
13105: );
13106:
13107: WHEN FND_API.g_exc_unexpected_error THEN
13108: ROLLBACK TO Accruals_Association;
13109: x_return_status := FND_API.g_ret_sts_unexp_error ;
13110: FND_MSG_PUB.count_and_get (
13111: p_encoded => FND_API.g_false
13105: );
13106:
13107: WHEN FND_API.g_exc_unexpected_error THEN
13108: ROLLBACK TO Accruals_Association;
13109: x_return_status := FND_API.g_ret_sts_unexp_error ;
13110: FND_MSG_PUB.count_and_get (
13111: p_encoded => FND_API.g_false
13112: ,p_count => x_msg_count
13113: ,p_data => x_msg_data
13107: WHEN FND_API.g_exc_unexpected_error THEN
13108: ROLLBACK TO Accruals_Association;
13109: x_return_status := FND_API.g_ret_sts_unexp_error ;
13110: FND_MSG_PUB.count_and_get (
13111: p_encoded => FND_API.g_false
13112: ,p_count => x_msg_count
13113: ,p_data => x_msg_data
13114: );
13115:
13114: );
13115:
13116: WHEN OTHERS THEN
13117: ROLLBACK TO Accruals_Association;
13118: x_return_status := FND_API.g_ret_sts_unexp_error ;
13119: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
13120: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
13121: END IF;
13122: FND_MSG_PUB.count_and_get(
13119: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
13120: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
13121: END IF;
13122: FND_MSG_PUB.count_and_get(
13123: p_encoded => FND_API.g_false
13124: ,p_count => x_msg_count
13125: ,p_data => x_msg_data
13126: );
13127: