[Home] [Help]
152: ,x_return_status => l_return_status
153: ,x_to_amount => l_utilized_amount
154: ,x_rate => l_offr_exc_rate
155: );
156: IF l_return_status = FND_API.g_ret_sts_error THEN
157: RAISE FND_API.g_exc_error;
158: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
159: RAISE FND_API.g_exc_unexpected_error;
160: END IF;
153: ,x_to_amount => l_utilized_amount
154: ,x_rate => l_offr_exc_rate
155: );
156: IF l_return_status = FND_API.g_ret_sts_error THEN
157: RAISE FND_API.g_exc_error;
158: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
159: RAISE FND_API.g_exc_unexpected_error;
160: END IF;
161: END IF;
154: ,x_rate => l_offr_exc_rate
155: );
156: IF l_return_status = FND_API.g_ret_sts_error THEN
157: RAISE FND_API.g_exc_error;
158: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
159: RAISE FND_API.g_exc_unexpected_error;
160: END IF;
161: END IF;
162: END IF;
155: );
156: IF l_return_status = FND_API.g_ret_sts_error THEN
157: RAISE FND_API.g_exc_error;
158: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
159: RAISE FND_API.g_exc_unexpected_error;
160: END IF;
161: END IF;
162: END IF;
163:
264: IF OZF_DEBUG_HIGH_ON THEN
265: OZF_Utility_PVT.debug_message(l_full_name||': start');
266: END IF;
267:
268: x_return_status := FND_API.g_ret_sts_success;
269:
270:
271: OPEN csr_fu_old_amt_rem(l_line_util_rec.utilization_id);
272: FETCH csr_fu_old_amt_rem INTO l_fu_utiz_currency
304: p_object => l_fu_plan_type
305: ,p_object_id => l_fu_plan_id
306: ,x_return_status => l_return_status
307: );
308: IF l_return_status = FND_API.g_ret_sts_error THEN
309: RAISE FND_API.g_exc_error;
310: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
311: RAISE FND_API.g_exc_unexpected_error;
312: END IF;
305: ,p_object_id => l_fu_plan_id
306: ,x_return_status => l_return_status
307: );
308: IF l_return_status = FND_API.g_ret_sts_error THEN
309: RAISE FND_API.g_exc_error;
310: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
311: RAISE FND_API.g_exc_unexpected_error;
312: END IF;
313:
306: ,x_return_status => l_return_status
307: );
308: IF l_return_status = FND_API.g_ret_sts_error THEN
309: RAISE FND_API.g_exc_error;
310: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
311: RAISE FND_API.g_exc_unexpected_error;
312: END IF;
313:
314: IF G_FUNCTIONAL_CURRENCY = l_fu_utiz_currency THEN
307: );
308: IF l_return_status = FND_API.g_ret_sts_error THEN
309: RAISE FND_API.g_exc_error;
310: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
311: RAISE FND_API.g_exc_unexpected_error;
312: END IF;
313:
314: IF G_FUNCTIONAL_CURRENCY = l_fu_utiz_currency THEN
315: l_fu_new_acctd_amt_rem := l_fu_new_amt_rem ;
327: ,x_return_status => l_return_status
328: ,x_to_amount => l_fu_new_acctd_amt_rem
329: ,x_rate => l_fu_exc_rate
330: );
331: IF l_return_status = FND_API.g_ret_sts_error THEN
332: RAISE FND_API.g_exc_error;
333: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
334: RAISE FND_API.g_exc_unexpected_error;
335: END IF;
328: ,x_to_amount => l_fu_new_acctd_amt_rem
329: ,x_rate => l_fu_exc_rate
330: );
331: IF l_return_status = FND_API.g_ret_sts_error THEN
332: RAISE FND_API.g_exc_error;
333: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
334: RAISE FND_API.g_exc_unexpected_error;
335: END IF;
336: IF l_fu_new_acctd_amt_rem IS NOT NULL THEN
329: ,x_rate => l_fu_exc_rate
330: );
331: IF l_return_status = FND_API.g_ret_sts_error THEN
332: RAISE FND_API.g_exc_error;
333: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
334: RAISE FND_API.g_exc_unexpected_error;
335: END IF;
336: IF l_fu_new_acctd_amt_rem IS NOT NULL THEN
337: l_fu_new_acctd_amt_rem := OZF_UTILITY_PVT.CurrRound(l_fu_new_acctd_amt_rem, G_FUNCTIONAL_CURRENCY);
330: );
331: IF l_return_status = FND_API.g_ret_sts_error THEN
332: RAISE FND_API.g_exc_error;
333: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
334: RAISE FND_API.g_exc_unexpected_error;
335: END IF;
336: IF l_fu_new_acctd_amt_rem IS NOT NULL THEN
337: l_fu_new_acctd_amt_rem := OZF_UTILITY_PVT.CurrRound(l_fu_new_acctd_amt_rem, G_FUNCTIONAL_CURRENCY);
338: END IF;
354: ,p_from_amount => l_fu_new_amt_rem
355: ,x_return_status => l_return_status
356: ,x_to_amount => l_fu_new_plan_amt_rem
357: );
358: IF l_return_status = FND_API.g_ret_sts_error THEN
359: RAISE FND_API.g_exc_error;
360: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
361: RAISE FND_API.g_exc_unexpected_error;
362: END IF;
355: ,x_return_status => l_return_status
356: ,x_to_amount => l_fu_new_plan_amt_rem
357: );
358: IF l_return_status = FND_API.g_ret_sts_error THEN
359: RAISE FND_API.g_exc_error;
360: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
361: RAISE FND_API.g_exc_unexpected_error;
362: END IF;
363: IF l_fu_new_plan_amt_rem IS NOT NULL THEN
356: ,x_to_amount => l_fu_new_plan_amt_rem
357: );
358: IF l_return_status = FND_API.g_ret_sts_error THEN
359: RAISE FND_API.g_exc_error;
360: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
361: RAISE FND_API.g_exc_unexpected_error;
362: END IF;
363: IF l_fu_new_plan_amt_rem IS NOT NULL THEN
364: l_fu_new_plan_amt_rem := OZF_UTILITY_PVT.CurrRound(l_fu_new_plan_amt_rem, G_OFFER_CURRENCY);
357: );
358: IF l_return_status = FND_API.g_ret_sts_error THEN
359: RAISE FND_API.g_exc_error;
360: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
361: RAISE FND_API.g_exc_unexpected_error;
362: END IF;
363: IF l_fu_new_plan_amt_rem IS NOT NULL THEN
364: l_fu_new_plan_amt_rem := OZF_UTILITY_PVT.CurrRound(l_fu_new_plan_amt_rem, G_OFFER_CURRENCY);
365: END IF;
383: ,p_from_amount => l_fu_new_amt_rem
384: ,x_return_status => l_return_status
385: ,x_to_amount => l_fu_new_univ_amt_rem
386: );
387: IF l_return_status = FND_API.g_ret_sts_error THEN
388: RAISE FND_API.g_exc_error;
389: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
390: RAISE FND_API.g_exc_unexpected_error;
391: END IF;
384: ,x_return_status => l_return_status
385: ,x_to_amount => l_fu_new_univ_amt_rem
386: );
387: IF l_return_status = FND_API.g_ret_sts_error THEN
388: RAISE FND_API.g_exc_error;
389: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
390: RAISE FND_API.g_exc_unexpected_error;
391: END IF;
392: IF l_fu_new_univ_amt_rem IS NOT NULL THEN
385: ,x_to_amount => l_fu_new_univ_amt_rem
386: );
387: IF l_return_status = FND_API.g_ret_sts_error THEN
388: RAISE FND_API.g_exc_error;
389: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
390: RAISE FND_API.g_exc_unexpected_error;
391: END IF;
392: IF l_fu_new_univ_amt_rem IS NOT NULL THEN
393: l_fu_new_univ_amt_rem := OZF_UTILITY_PVT.CurrRound(l_fu_new_univ_amt_rem, G_UNIV_CURRENCY);
386: );
387: IF l_return_status = FND_API.g_ret_sts_error THEN
388: RAISE FND_API.g_exc_error;
389: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
390: RAISE FND_API.g_exc_unexpected_error;
391: END IF;
392: IF l_fu_new_univ_amt_rem IS NOT NULL THEN
393: l_fu_new_univ_amt_rem := OZF_UTILITY_PVT.CurrRound(l_fu_new_univ_amt_rem, G_UNIV_CURRENCY);
394: END IF;
440: ,x_return_status => l_return_status
441: ,x_to_amount => l_line_util_rec.util_curr_amount
442: ,x_rate => l_fu_exc_rate
443: );
444: IF l_return_status = FND_API.g_ret_sts_error THEN
445: RAISE FND_API.g_exc_error;
446: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
447: RAISE FND_API.g_exc_unexpected_error;
448: END IF;
441: ,x_to_amount => l_line_util_rec.util_curr_amount
442: ,x_rate => l_fu_exc_rate
443: );
444: IF l_return_status = FND_API.g_ret_sts_error THEN
445: RAISE FND_API.g_exc_error;
446: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
447: RAISE FND_API.g_exc_unexpected_error;
448: END IF;
449: IF l_line_util_rec.util_curr_amount IS NOT NULL THEN
442: ,x_rate => l_fu_exc_rate
443: );
444: IF l_return_status = FND_API.g_ret_sts_error THEN
445: RAISE FND_API.g_exc_error;
446: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
447: RAISE FND_API.g_exc_unexpected_error;
448: END IF;
449: IF l_line_util_rec.util_curr_amount IS NOT NULL THEN
450: l_line_util_rec.util_curr_amount := OZF_UTILITY_PVT.CurrRound(l_line_util_rec.util_curr_amount, l_fu_utiz_currency);
443: );
444: IF l_return_status = FND_API.g_ret_sts_error THEN
445: RAISE FND_API.g_exc_error;
446: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
447: RAISE FND_API.g_exc_unexpected_error;
448: END IF;
449: IF l_line_util_rec.util_curr_amount IS NOT NULL THEN
450: l_line_util_rec.util_curr_amount := OZF_UTILITY_PVT.CurrRound(l_line_util_rec.util_curr_amount, l_fu_utiz_currency);
451: END IF;*/
467: ,p_from_amount => l_line_util_rec.util_curr_amount
468: ,x_return_status => l_return_status
469: ,x_to_amount => l_line_util_rec.plan_curr_amount
470: );
471: IF l_return_status = FND_API.g_ret_sts_error THEN
472: RAISE FND_API.g_exc_error;
473: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
474: RAISE FND_API.g_exc_unexpected_error;
475: END IF;
468: ,x_return_status => l_return_status
469: ,x_to_amount => l_line_util_rec.plan_curr_amount
470: );
471: IF l_return_status = FND_API.g_ret_sts_error THEN
472: RAISE FND_API.g_exc_error;
473: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
474: RAISE FND_API.g_exc_unexpected_error;
475: END IF;
476: IF l_line_util_rec.plan_curr_amount IS NOT NULL THEN
469: ,x_to_amount => l_line_util_rec.plan_curr_amount
470: );
471: IF l_return_status = FND_API.g_ret_sts_error THEN
472: RAISE FND_API.g_exc_error;
473: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
474: RAISE FND_API.g_exc_unexpected_error;
475: END IF;
476: IF l_line_util_rec.plan_curr_amount IS NOT NULL THEN
477: l_line_util_rec.plan_curr_amount := OZF_UTILITY_PVT.CurrRound(l_line_util_rec.plan_curr_amount, G_OFFER_CURRENCY);
470: );
471: IF l_return_status = FND_API.g_ret_sts_error THEN
472: RAISE FND_API.g_exc_error;
473: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
474: RAISE FND_API.g_exc_unexpected_error;
475: END IF;
476: IF l_line_util_rec.plan_curr_amount IS NOT NULL THEN
477: l_line_util_rec.plan_curr_amount := OZF_UTILITY_PVT.CurrRound(l_line_util_rec.plan_curr_amount, G_OFFER_CURRENCY);
478: END IF;
492: ,p_from_amount => l_line_util_rec.util_curr_amount
493: ,x_return_status => l_return_status
494: ,x_to_amount => l_line_util_rec.univ_curr_amount
495: );
496: IF l_return_status = FND_API.g_ret_sts_error THEN
497: RAISE FND_API.g_exc_error;
498: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
499: RAISE FND_API.g_exc_unexpected_error;
500: END IF;
493: ,x_return_status => l_return_status
494: ,x_to_amount => l_line_util_rec.univ_curr_amount
495: );
496: IF l_return_status = FND_API.g_ret_sts_error THEN
497: RAISE FND_API.g_exc_error;
498: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
499: RAISE FND_API.g_exc_unexpected_error;
500: END IF;
501: IF l_line_util_rec.univ_curr_amount IS NOT NULL THEN
494: ,x_to_amount => l_line_util_rec.univ_curr_amount
495: );
496: IF l_return_status = FND_API.g_ret_sts_error THEN
497: RAISE FND_API.g_exc_error;
498: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
499: RAISE FND_API.g_exc_unexpected_error;
500: END IF;
501: IF l_line_util_rec.univ_curr_amount IS NOT NULL THEN
502: l_line_util_rec.univ_curr_amount := OZF_UTILITY_PVT.CurrRound(l_line_util_rec.univ_curr_amount, G_UNIV_CURRENCY);
495: );
496: IF l_return_status = FND_API.g_ret_sts_error THEN
497: RAISE FND_API.g_exc_error;
498: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
499: RAISE FND_API.g_exc_unexpected_error;
500: END IF;
501: IF l_line_util_rec.univ_curr_amount IS NOT NULL THEN
502: l_line_util_rec.univ_curr_amount := OZF_UTILITY_PVT.CurrRound(l_line_util_rec.univ_curr_amount, G_UNIV_CURRENCY);
503: END IF;
510:
511:
512:
513: FND_MSG_PUB.count_and_get(
514: p_encoded => FND_API.g_false,
515: p_count => x_msg_count,
516: p_data => x_msg_data
517: );
518:
520: OZF_Utility_PVT.debug_message(l_full_name ||': end');
521: END IF;
522:
523: EXCEPTION
524: WHEN FND_API.g_exc_error THEN
525: ROLLBACK TO Update_Fund_Utils;
526: x_return_status := FND_API.g_ret_sts_error;
527: FND_MSG_PUB.count_and_get (
528: p_encoded => FND_API.g_false
522:
523: EXCEPTION
524: WHEN FND_API.g_exc_error THEN
525: ROLLBACK TO Update_Fund_Utils;
526: x_return_status := FND_API.g_ret_sts_error;
527: FND_MSG_PUB.count_and_get (
528: p_encoded => FND_API.g_false
529: ,p_count => x_msg_count
530: ,p_data => x_msg_data
524: WHEN FND_API.g_exc_error THEN
525: ROLLBACK TO Update_Fund_Utils;
526: x_return_status := FND_API.g_ret_sts_error;
527: FND_MSG_PUB.count_and_get (
528: p_encoded => FND_API.g_false
529: ,p_count => x_msg_count
530: ,p_data => x_msg_data
531: );
532:
529: ,p_count => x_msg_count
530: ,p_data => x_msg_data
531: );
532:
533: WHEN FND_API.g_exc_unexpected_error THEN
534: ROLLBACK TO Update_Fund_Utils;
535: x_return_status := FND_API.g_ret_sts_unexp_error ;
536: FND_MSG_PUB.count_and_get (
537: p_encoded => FND_API.g_false
531: );
532:
533: WHEN FND_API.g_exc_unexpected_error THEN
534: ROLLBACK TO Update_Fund_Utils;
535: x_return_status := FND_API.g_ret_sts_unexp_error ;
536: FND_MSG_PUB.count_and_get (
537: p_encoded => FND_API.g_false
538: ,p_count => x_msg_count
539: ,p_data => x_msg_data
533: WHEN FND_API.g_exc_unexpected_error THEN
534: ROLLBACK TO Update_Fund_Utils;
535: x_return_status := FND_API.g_ret_sts_unexp_error ;
536: FND_MSG_PUB.count_and_get (
537: p_encoded => FND_API.g_false
538: ,p_count => x_msg_count
539: ,p_data => x_msg_data
540: );
541:
540: );
541:
542: WHEN OTHERS THEN
543: ROLLBACK TO Update_Fund_Utils;
544: x_return_status := FND_API.g_ret_sts_unexp_error ;
545: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
546: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
547: END IF;
548: FND_MSG_PUB.count_and_get(
545: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
546: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
547: END IF;
548: FND_MSG_PUB.count_and_get(
549: p_encoded => FND_API.g_false
550: ,p_count => x_msg_count
551: ,p_data => x_msg_data
552: );
553:
1078: l_scan_data_flag VARCHAR2(1) := 'N';
1079: l_offer_flag VARCHAR2(1) := 'Y';
1080: l_price_list_flag VARCHAR2(1) := 'Y';
1081: l_resource_id NUMBER;
1082: l_sales_rep VARCHAR2(1) := FND_API.g_false;
1083: l_is_admin BOOLEAN := FALSE;
1084: l_orgId NUMBER;
1085: BEGIN
1086: --------------------- initialize -----------------------
1117:
1118: IF l_offer_flag = 'Y' THEN
1119: -- restrict offer access if user is sales rep
1120: IF l_funds_util_flt.reference_type = 'LEAD_REFERRAL' THEN
1121: l_sales_rep := FND_API.g_false;
1122: ELSE
1123: l_resource_id := ozf_utility_pvt.get_resource_id(fnd_global.user_id);
1124: l_sales_rep := ozf_utility_pvt.has_sales_rep_role(l_resource_id);
1125: END IF;
1159: FND_DSQL.add_bind(l_funds_util_flt.offer_payment_method);
1160: END IF;
1161: END IF;
1162:
1163: IF (l_sales_rep = FND_API.g_true AND NOT l_is_admin ) THEN
1164: FND_DSQL.add_text(' AND (o.confidential_flag =''N'' OR ');
1165: FND_DSQL.add_text(' o.confidential_flag IS NULL OR ');
1166: FND_DSQL.add_text(' ( NVL(o.budget_offer_yn, ''N'') = ''N'' AND ');
1167: FND_DSQL.add_text(' EXISTS ( SELECT 1 FROM ams_act_access_denorm act ');
1232: -- 25-JUN-2002 mchang Create.
1233: ---------------------------------------------------------------------
1234: PROCEDURE Get_Utiz_Sql_Stmt(
1235: p_api_version IN NUMBER
1236: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
1237: ,p_commit IN VARCHAR2 := FND_API.g_false
1238: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
1239:
1240: ,x_return_status OUT NOCOPY VARCHAR2
1233: ---------------------------------------------------------------------
1234: PROCEDURE Get_Utiz_Sql_Stmt(
1235: p_api_version IN NUMBER
1236: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
1237: ,p_commit IN VARCHAR2 := FND_API.g_false
1238: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
1239:
1240: ,x_return_status OUT NOCOPY VARCHAR2
1241: ,x_msg_count OUT NOCOPY NUMBER
1234: PROCEDURE Get_Utiz_Sql_Stmt(
1235: p_api_version IN NUMBER
1236: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
1237: ,p_commit IN VARCHAR2 := FND_API.g_false
1238: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
1239:
1240: ,x_return_status OUT NOCOPY VARCHAR2
1241: ,x_msg_count OUT NOCOPY NUMBER
1242: ,x_msg_data OUT NOCOPY VARCHAR2
1274: IF OZF_DEBUG_HIGH_ON THEN
1275: OZF_Utility_PVT.debug_message(l_full_name||': start');
1276: END IF;
1277:
1278: IF FND_API.to_boolean(p_init_msg_list) THEN
1279: FND_MSG_PUB.initialize;
1280: END IF;
1281:
1282: IF NOT FND_API.compatible_api_call(
1278: IF FND_API.to_boolean(p_init_msg_list) THEN
1279: FND_MSG_PUB.initialize;
1280: END IF;
1281:
1282: IF NOT FND_API.compatible_api_call(
1283: l_api_version,
1284: p_api_version,
1285: l_api_name,
1286: g_pkg_name
1284: p_api_version,
1285: l_api_name,
1286: g_pkg_name
1287: ) THEN
1288: RAISE FND_API.g_exc_unexpected_error;
1289: END IF;
1290: x_return_status := FND_API.g_ret_sts_success;
1291:
1292: l_org_id := FND_PROFILE.VALUE('AMS_ITEM_ORGANIZATION_ID');
1286: g_pkg_name
1287: ) THEN
1288: RAISE FND_API.g_exc_unexpected_error;
1289: END IF;
1290: x_return_status := FND_API.g_ret_sts_success;
1291:
1292: l_org_id := FND_PROFILE.VALUE('AMS_ITEM_ORGANIZATION_ID');
1293:
1294: --------------------- start -----------------------
1434:
1435:
1436: EXCEPTION
1437: WHEN OTHERS THEN
1438: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1439: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1440: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_ATPY_UTIZ_STMT_ERR');
1441: FND_MSG_PUB.add;
1442: END IF;
1541: OZF_Utility_PVT.debug_message(l_full_name||': start');
1542: END IF;
1543:
1544: -- Initialize API return status to sucess
1545: x_return_status := FND_API.G_RET_STS_SUCCESS;
1546:
1547: IF p_cust_trade_profile.claim_currency is null OR
1548: p_cust_trade_profile.claim_currency = FND_API.G_MISS_CHAR THEN -- [BUG 4217781 FIXING]
1549: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1544: -- Initialize API return status to sucess
1545: x_return_status := FND_API.G_RET_STS_SUCCESS;
1546:
1547: IF p_cust_trade_profile.claim_currency is null OR
1548: p_cust_trade_profile.claim_currency = FND_API.G_MISS_CHAR THEN -- [BUG 4217781 FIXING]
1549: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1550: OPEN csr_cust_name(l_cust_account_id);
1551: FETCH csr_cust_name INTO l_cust_name_num;
1552: CLOSE csr_cust_name;
1554: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_ATPY_CURRENCY_MISS');
1555: FND_MESSAGE.Set_Token('ID',l_cust_name_num);
1556: FND_MSG_PUB.ADD;
1557: END IF;
1558: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1559: END IF;
1560:
1561: IF p_cust_trade_profile.payment_method is null OR
1562: p_cust_trade_profile.payment_method = FND_API.G_MISS_CHAR THEN -- [BUG 4217781 FIXING]
1558: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1559: END IF;
1560:
1561: IF p_cust_trade_profile.payment_method is null OR
1562: p_cust_trade_profile.payment_method = FND_API.G_MISS_CHAR THEN -- [BUG 4217781 FIXING]
1563: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1564: OPEN csr_cust_name(l_cust_account_id);
1565: FETCH csr_cust_name INTO l_cust_name_num;
1566: CLOSE csr_cust_name;
1568: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_ATPY_PYMTHD_MISS');
1569: FND_MESSAGE.Set_Token('ID',l_cust_name_num);
1570: FND_MSG_PUB.ADD;
1571: END IF;
1572: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1573: END IF;
1574:
1575: IF p_cust_trade_profile.payment_method = 'CHECK' THEN
1576: IF p_cust_trade_profile.vendor_id is NULL OR
1583: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_ATPY_VENDOR_MISS');
1584: FND_MESSAGE.Set_Token('ID',l_cust_name_num);
1585: FND_MSG_PUB.ADD;
1586: END IF;
1587: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1588: END IF;
1589: ELSIF p_cust_trade_profile.payment_method = 'CREDIT_MEMO' THEN
1590: IF p_cust_trade_profile.site_use_id is NULL THEN
1591: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1596: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_ATPY_SITEID_MISS');
1597: FND_MESSAGE.Set_Token('ID',l_cust_name_num);
1598: FND_MSG_PUB.ADD;
1599: END IF;
1600: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1601: END IF;
1602: END IF;
1603:
1604: IF OZF_DEBUG_HIGH_ON THEN
1605: OZF_Utility_PVT.debug_message(l_full_name||': end');
1606: END IF;
1607: EXCEPTION
1608: WHEN OTHERS THEN
1609: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1610: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1611: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_ATPY_CUSTOMER_ERR');
1612: FND_MSG_PUB.add;
1613: END IF;
1750: IF OZF_DEBUG_HIGH_ON THEN
1751: OZF_Utility_PVT.debug_message(l_full_name||': start');
1752: END IF;
1753:
1754: x_return_status := FND_API.g_ret_sts_success;
1755:
1756: -- This package is called only for non scan data offer adjustments
1757:
1758:
1831: p_act_budgets_rec => l_act_budgets_rec,
1832: p_act_util_rec =>l_act_util_rec,
1833: x_act_budget_id => l_act_budget_id
1834: );
1835: IF l_return_status = fnd_api.g_ret_sts_error THEN
1836: RAISE fnd_api.g_exc_error;
1837: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1838: RAISE fnd_api.g_exc_unexpected_error;
1839: END IF;
1832: p_act_util_rec =>l_act_util_rec,
1833: x_act_budget_id => l_act_budget_id
1834: );
1835: IF l_return_status = fnd_api.g_ret_sts_error THEN
1836: RAISE fnd_api.g_exc_error;
1837: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1838: RAISE fnd_api.g_exc_unexpected_error;
1839: END IF;
1840:
1833: x_act_budget_id => l_act_budget_id
1834: );
1835: IF l_return_status = fnd_api.g_ret_sts_error THEN
1836: RAISE fnd_api.g_exc_error;
1837: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1838: RAISE fnd_api.g_exc_unexpected_error;
1839: END IF;
1840:
1841: CLOSE csr_source_fund;
1834: );
1835: IF l_return_status = fnd_api.g_ret_sts_error THEN
1836: RAISE fnd_api.g_exc_error;
1837: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1838: RAISE fnd_api.g_exc_unexpected_error;
1839: END IF;
1840:
1841: CLOSE csr_source_fund;
1842:
1853:
1854:
1855:
1856: EXCEPTION
1857: WHEN FND_API.g_exc_error THEN
1858: x_return_status := FND_API.g_ret_sts_error;
1859:
1860: WHEN FND_API.g_exc_unexpected_error THEN
1861: x_return_status := FND_API.g_ret_sts_unexp_error ;
1854:
1855:
1856: EXCEPTION
1857: WHEN FND_API.g_exc_error THEN
1858: x_return_status := FND_API.g_ret_sts_error;
1859:
1860: WHEN FND_API.g_exc_unexpected_error THEN
1861: x_return_status := FND_API.g_ret_sts_unexp_error ;
1862:
1856: EXCEPTION
1857: WHEN FND_API.g_exc_error THEN
1858: x_return_status := FND_API.g_ret_sts_error;
1859:
1860: WHEN FND_API.g_exc_unexpected_error THEN
1861: x_return_status := FND_API.g_ret_sts_unexp_error ;
1862:
1863: WHEN OTHERS THEN
1864: x_return_status := FND_API.g_ret_sts_unexp_error ;
1857: WHEN FND_API.g_exc_error THEN
1858: x_return_status := FND_API.g_ret_sts_error;
1859:
1860: WHEN FND_API.g_exc_unexpected_error THEN
1861: x_return_status := FND_API.g_ret_sts_unexp_error ;
1862:
1863: WHEN OTHERS THEN
1864: x_return_status := FND_API.g_ret_sts_unexp_error ;
1865: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1860: WHEN FND_API.g_exc_unexpected_error THEN
1861: x_return_status := FND_API.g_ret_sts_unexp_error ;
1862:
1863: WHEN OTHERS THEN
1864: x_return_status := FND_API.g_ret_sts_unexp_error ;
1865: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1866: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1867: END IF;
1868:
1878: -- 01/09/2009 kpatro Modified for Bug 7658894
1879: ---------------------------------------------------------------------
1880: PROCEDURE Create_Line_Util_Tbl(
1881: p_api_version IN NUMBER
1882: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
1883: ,p_commit IN VARCHAR2 := FND_API.g_false
1884: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
1885:
1886: ,x_return_status OUT NOCOPY VARCHAR2
1879: ---------------------------------------------------------------------
1880: PROCEDURE Create_Line_Util_Tbl(
1881: p_api_version IN NUMBER
1882: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
1883: ,p_commit IN VARCHAR2 := FND_API.g_false
1884: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
1885:
1886: ,x_return_status OUT NOCOPY VARCHAR2
1887: ,x_msg_data OUT NOCOPY VARCHAR2
1880: PROCEDURE Create_Line_Util_Tbl(
1881: p_api_version IN NUMBER
1882: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
1883: ,p_commit IN VARCHAR2 := FND_API.g_false
1884: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
1885:
1886: ,x_return_status OUT NOCOPY VARCHAR2
1887: ,x_msg_data OUT NOCOPY VARCHAR2
1888: ,x_msg_count OUT NOCOPY NUMBER
1949: IF OZF_DEBUG_HIGH_ON THEN
1950: OZF_Utility_PVT.debug_message(l_full_name||': start');
1951: END IF;
1952:
1953: IF FND_API.to_boolean(p_init_msg_list) THEN
1954: FND_MSG_PUB.initialize;
1955: END IF;
1956:
1957: IF NOT FND_API.compatible_api_call(
1953: IF FND_API.to_boolean(p_init_msg_list) THEN
1954: FND_MSG_PUB.initialize;
1955: END IF;
1956:
1957: IF NOT FND_API.compatible_api_call(
1958: l_api_version,
1959: p_api_version,
1960: l_api_name,
1961: g_pkg_name
1960: l_api_name,
1961: g_pkg_name
1962: )
1963: THEN
1964: RAISE FND_API.g_exc_unexpected_error;
1965: END IF;
1966:
1967: x_return_status := FND_API.g_ret_sts_success;
1968:
1963: THEN
1964: RAISE FND_API.g_exc_unexpected_error;
1965: END IF;
1966:
1967: x_return_status := FND_API.g_ret_sts_success;
1968:
1969: ---------------------- check claim access ------------------------
1970: IF p_mode = OZF_CLAIM_UTILITY_PVT.g_manu_mode AND p_line_util_tbl.count > 0 THEN
1971: FOR j IN p_line_util_tbl.FIRST..p_line_util_tbl.LAST LOOP
1976: CLOSE csr_claim_id;
1977:
1978: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
1979: P_Api_Version_Number => 1.0
1980: , P_Init_Msg_List => FND_API.G_FALSE
1981: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
1982: , P_Commit => FND_API.G_FALSE
1983: , P_object_id => l_claim_id
1984: , P_object_type => G_CLAIM_OBJECT_TYPE
1977:
1978: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
1979: P_Api_Version_Number => 1.0
1980: , P_Init_Msg_List => FND_API.G_FALSE
1981: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
1982: , P_Commit => FND_API.G_FALSE
1983: , P_object_id => l_claim_id
1984: , P_object_type => G_CLAIM_OBJECT_TYPE
1985: , P_user_id => OZF_UTILITY_PVT.get_resource_id(NVL(FND_GLOBAL.user_id,-1))
1978: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
1979: P_Api_Version_Number => 1.0
1980: , P_Init_Msg_List => FND_API.G_FALSE
1981: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
1982: , P_Commit => FND_API.G_FALSE
1983: , P_object_id => l_claim_id
1984: , P_object_type => G_CLAIM_OBJECT_TYPE
1985: , P_user_id => OZF_UTILITY_PVT.get_resource_id(NVL(FND_GLOBAL.user_id,-1))
1986: , X_Return_Status => l_return_status
1992: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1993: FND_MESSAGE.set_name('OZF','OZF_CLAIM_NO_ACCESS');
1994: FND_MSG_PUB.add;
1995: END IF;
1996: RAISE FND_API.G_EXC_ERROR;
1997: END IF;
1998: EXIT;
1999: END IF;
2000: END LOOP;
2026: l_line_util_rec.exchange_rate := l_claim_exc_rate;
2027:
2028: Create_Line_Util(
2029: p_api_version => 1.0
2030: , p_init_msg_list => FND_API.g_false
2031: , p_commit => FND_API.g_false
2032: , p_validation_level => p_validation_level
2033: , x_return_status => l_return_status
2034: , x_msg_count => x_msg_count
2027:
2028: Create_Line_Util(
2029: p_api_version => 1.0
2030: , p_init_msg_list => FND_API.g_false
2031: , p_commit => FND_API.g_false
2032: , p_validation_level => p_validation_level
2033: , x_return_status => l_return_status
2034: , x_msg_count => x_msg_count
2035: , x_msg_data => x_msg_data
2058: IF OZF_DEBUG_LOW_ON THEN
2059: OZF_Utility_PVT.debug_message(' Sum of Util amount'||l_sum_amount);
2060: END IF;
2061:
2062: IF l_return_status = fnd_api.g_ret_sts_error THEN
2063: x_error_index := i;
2064: RAISE FND_API.g_exc_error;
2065: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2066: x_error_index := i;
2060: END IF;
2061:
2062: IF l_return_status = fnd_api.g_ret_sts_error THEN
2063: x_error_index := i;
2064: RAISE FND_API.g_exc_error;
2065: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2066: x_error_index := i;
2067: RAISE FND_API.g_exc_unexpected_error;
2068: END IF;
2061:
2062: IF l_return_status = fnd_api.g_ret_sts_error THEN
2063: x_error_index := i;
2064: RAISE FND_API.g_exc_error;
2065: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2066: x_error_index := i;
2067: RAISE FND_API.g_exc_unexpected_error;
2068: END IF;
2069:
2063: x_error_index := i;
2064: RAISE FND_API.g_exc_error;
2065: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2066: x_error_index := i;
2067: RAISE FND_API.g_exc_unexpected_error;
2068: END IF;
2069:
2070: END IF;
2071: END LOOP;
2111: WHERE claim_line_id = l_line_util_rec.claim_line_id;
2112: END IF;
2113:
2114: ------------------------- finish -------------------------------
2115: IF FND_API.to_boolean(p_commit) THEN
2116: COMMIT;
2117: END IF;
2118:
2119: FND_MSG_PUB.count_and_get(
2116: COMMIT;
2117: END IF;
2118:
2119: FND_MSG_PUB.count_and_get(
2120: p_encoded => FND_API.g_false,
2121: p_count => x_msg_count,
2122: p_data => x_msg_data
2123: );
2124:
2126: OZF_Utility_PVT.debug_message(l_full_name ||': end');
2127: END IF;
2128:
2129: EXCEPTION
2130: WHEN FND_API.g_exc_error THEN
2131: ROLLBACK TO Create_Line_Util_Tbl;
2132: x_return_status := FND_API.g_ret_sts_error;
2133: FND_MSG_PUB.count_and_get (
2134: p_encoded => FND_API.g_false
2128:
2129: EXCEPTION
2130: WHEN FND_API.g_exc_error THEN
2131: ROLLBACK TO Create_Line_Util_Tbl;
2132: x_return_status := FND_API.g_ret_sts_error;
2133: FND_MSG_PUB.count_and_get (
2134: p_encoded => FND_API.g_false
2135: ,p_count => x_msg_count
2136: ,p_data => x_msg_data
2130: WHEN FND_API.g_exc_error THEN
2131: ROLLBACK TO Create_Line_Util_Tbl;
2132: x_return_status := FND_API.g_ret_sts_error;
2133: FND_MSG_PUB.count_and_get (
2134: p_encoded => FND_API.g_false
2135: ,p_count => x_msg_count
2136: ,p_data => x_msg_data
2137: );
2138:
2135: ,p_count => x_msg_count
2136: ,p_data => x_msg_data
2137: );
2138:
2139: WHEN FND_API.g_exc_unexpected_error THEN
2140: ROLLBACK TO Create_Line_Util_Tbl;
2141: x_return_status := FND_API.g_ret_sts_unexp_error ;
2142: FND_MSG_PUB.count_and_get (
2143: p_encoded => FND_API.g_false
2137: );
2138:
2139: WHEN FND_API.g_exc_unexpected_error THEN
2140: ROLLBACK TO Create_Line_Util_Tbl;
2141: x_return_status := FND_API.g_ret_sts_unexp_error ;
2142: FND_MSG_PUB.count_and_get (
2143: p_encoded => FND_API.g_false
2144: ,p_count => x_msg_count
2145: ,p_data => x_msg_data
2139: WHEN FND_API.g_exc_unexpected_error THEN
2140: ROLLBACK TO Create_Line_Util_Tbl;
2141: x_return_status := FND_API.g_ret_sts_unexp_error ;
2142: FND_MSG_PUB.count_and_get (
2143: p_encoded => FND_API.g_false
2144: ,p_count => x_msg_count
2145: ,p_data => x_msg_data
2146: );
2147:
2146: );
2147:
2148: WHEN OTHERS THEN
2149: ROLLBACK TO Create_Line_Util_Tbl;
2150: x_return_status := FND_API.g_ret_sts_unexp_error ;
2151: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2152: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2153: END IF;
2154: FND_MSG_PUB.count_and_get(
2151: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2152: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2153: END IF;
2154: FND_MSG_PUB.count_and_get(
2155: p_encoded => FND_API.g_false
2156: ,p_count => x_msg_count
2157: ,p_data => x_msg_data
2158: );
2159:
2169: -- 05/08/2006 azahmed Modified for FXGL ER
2170: ---------------------------------------------------------------------
2171: PROCEDURE Create_Line_Util(
2172: p_api_version IN NUMBER
2173: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
2174: ,p_commit IN VARCHAR2 := FND_API.g_false
2175: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
2176:
2177: ,x_return_status OUT NOCOPY VARCHAR2
2170: ---------------------------------------------------------------------
2171: PROCEDURE Create_Line_Util(
2172: p_api_version IN NUMBER
2173: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
2174: ,p_commit IN VARCHAR2 := FND_API.g_false
2175: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
2176:
2177: ,x_return_status OUT NOCOPY VARCHAR2
2178: ,x_msg_count OUT NOCOPY NUMBER
2171: PROCEDURE Create_Line_Util(
2172: p_api_version IN NUMBER
2173: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
2174: ,p_commit IN VARCHAR2 := FND_API.g_false
2175: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
2176:
2177: ,x_return_status OUT NOCOPY VARCHAR2
2178: ,x_msg_count OUT NOCOPY NUMBER
2179: ,x_msg_data OUT NOCOPY VARCHAR2
2264: IF OZF_DEBUG_HIGH_ON THEN
2265: OZF_Utility_PVT.debug_message(l_full_name||': start');
2266: END IF;
2267:
2268: IF FND_API.to_boolean(p_init_msg_list) THEN
2269: FND_MSG_PUB.initialize;
2270: END IF;
2271:
2272: IF NOT FND_API.compatible_api_call(
2268: IF FND_API.to_boolean(p_init_msg_list) THEN
2269: FND_MSG_PUB.initialize;
2270: END IF;
2271:
2272: IF NOT FND_API.compatible_api_call(
2273: l_api_version,
2274: p_api_version,
2275: l_api_name,
2276: g_pkg_name
2274: p_api_version,
2275: l_api_name,
2276: g_pkg_name
2277: ) THEN
2278: RAISE FND_API.g_exc_unexpected_error;
2279: END IF;
2280:
2281: x_return_status := FND_API.g_ret_sts_success;
2282:
2277: ) THEN
2278: RAISE FND_API.g_exc_unexpected_error;
2279: END IF;
2280:
2281: x_return_status := FND_API.g_ret_sts_success;
2282:
2283: OPEN csr_claim_id(p_line_util_rec.claim_line_id);
2284: FETCH csr_claim_id INTO l_claim_id, l_line_acctd_amount;
2285: CLOSE csr_claim_id;
2284: FETCH csr_claim_id INTO l_claim_id, l_line_acctd_amount;
2285: CLOSE csr_claim_id;
2286:
2287: ---------------------- check claim access ------------------------
2288: IF l_line_util_rec.update_from_tbl_flag = FND_API.g_false AND p_mode = OZF_CLAIM_UTILITY_PVT.g_manu_mode THEN
2289: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
2290: P_Api_Version_Number => 1.0
2291: , P_Init_Msg_List => FND_API.G_FALSE
2292: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
2287: ---------------------- check claim access ------------------------
2288: IF l_line_util_rec.update_from_tbl_flag = FND_API.g_false AND p_mode = OZF_CLAIM_UTILITY_PVT.g_manu_mode THEN
2289: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
2290: P_Api_Version_Number => 1.0
2291: , P_Init_Msg_List => FND_API.G_FALSE
2292: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
2293: , P_Commit => FND_API.G_FALSE
2294: , P_object_id => l_claim_id
2295: , P_object_type => G_CLAIM_OBJECT_TYPE
2288: IF l_line_util_rec.update_from_tbl_flag = FND_API.g_false AND p_mode = OZF_CLAIM_UTILITY_PVT.g_manu_mode THEN
2289: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
2290: P_Api_Version_Number => 1.0
2291: , P_Init_Msg_List => FND_API.G_FALSE
2292: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
2293: , P_Commit => FND_API.G_FALSE
2294: , P_object_id => l_claim_id
2295: , P_object_type => G_CLAIM_OBJECT_TYPE
2296: , P_user_id => OZF_UTILITY_PVT.get_resource_id(NVL(FND_GLOBAL.user_id,-1))
2289: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
2290: P_Api_Version_Number => 1.0
2291: , P_Init_Msg_List => FND_API.G_FALSE
2292: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
2293: , P_Commit => FND_API.G_FALSE
2294: , P_object_id => l_claim_id
2295: , P_object_type => G_CLAIM_OBJECT_TYPE
2296: , P_user_id => OZF_UTILITY_PVT.get_resource_id(NVL(FND_GLOBAL.user_id,-1))
2297: , X_Return_Status => l_return_status
2303: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2304: FND_MESSAGE.set_name('OZF','OZF_CLAIM_NO_ACCESS');
2305: FND_MSG_PUB.add;
2306: END IF;
2307: RAISE FND_API.G_EXC_ERROR;
2308: END IF;
2309: END IF;
2310:
2311: ----------------------- Start ------------------------
2326: , l_exchange_rate
2327: , l_claim_date;
2328: CLOSE csr_claim_exc;
2329:
2330: IF l_line_util_rec.update_from_tbl_flag = FND_API.g_false THEN
2331: -- set global functional currency
2332: OPEN csr_function_currency;
2333: FETCH csr_function_currency INTO G_FUNCTIONAL_CURRENCY;
2334: CLOSE csr_function_currency;
2374: ,x_return_status => l_return_status
2375: ,x_to_amount => l_line_util_amount
2376: ,x_rate => l_convert_exchange_rate
2377: );
2378: IF l_return_status = FND_API.g_ret_sts_error THEN
2379: RAISE FND_API.g_exc_error;
2380: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2381: RAISE FND_API.g_exc_unexpected_error;
2382: END IF;
2375: ,x_to_amount => l_line_util_amount
2376: ,x_rate => l_convert_exchange_rate
2377: );
2378: IF l_return_status = FND_API.g_ret_sts_error THEN
2379: RAISE FND_API.g_exc_error;
2380: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2381: RAISE FND_API.g_exc_unexpected_error;
2382: END IF;
2383: l_line_util_rec.amount := l_line_util_amount;
2376: ,x_rate => l_convert_exchange_rate
2377: );
2378: IF l_return_status = FND_API.g_ret_sts_error THEN
2379: RAISE FND_API.g_exc_error;
2380: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2381: RAISE FND_API.g_exc_unexpected_error;
2382: END IF;
2383: l_line_util_rec.amount := l_line_util_amount;
2384:
2377: );
2378: IF l_return_status = FND_API.g_ret_sts_error THEN
2379: RAISE FND_API.g_exc_error;
2380: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2381: RAISE FND_API.g_exc_unexpected_error;
2382: END IF;
2383: l_line_util_rec.amount := l_line_util_amount;
2384:
2385: IF l_utiz_currency = G_FUNCTIONAL_CURRENCY THEN
2413: ,x_return_status => l_return_status
2414: ,x_to_amount => l_line_util_rec.acctd_amount
2415: ,x_rate => l_convert_exchange_rate
2416: );
2417: IF l_return_status = FND_API.g_ret_sts_error THEN
2418: RAISE FND_API.g_exc_error;
2419: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2420: RAISE FND_API.g_exc_unexpected_error;
2421: END IF;
2414: ,x_to_amount => l_line_util_rec.acctd_amount
2415: ,x_rate => l_convert_exchange_rate
2416: );
2417: IF l_return_status = FND_API.g_ret_sts_error THEN
2418: RAISE FND_API.g_exc_error;
2419: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2420: RAISE FND_API.g_exc_unexpected_error;
2421: END IF;
2422: IF l_line_util_rec.acctd_amount IS NOT NULL THEN
2415: ,x_rate => l_convert_exchange_rate
2416: );
2417: IF l_return_status = FND_API.g_ret_sts_error THEN
2418: RAISE FND_API.g_exc_error;
2419: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2420: RAISE FND_API.g_exc_unexpected_error;
2421: END IF;
2422: IF l_line_util_rec.acctd_amount IS NOT NULL THEN
2423: l_line_util_rec.acctd_amount := OZF_UTILITY_PVT.CurrRound(l_line_util_rec.acctd_amount, G_FUNCTIONAL_CURRENCY);
2416: );
2417: IF l_return_status = FND_API.g_ret_sts_error THEN
2418: RAISE FND_API.g_exc_error;
2419: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2420: RAISE FND_API.g_exc_unexpected_error;
2421: END IF;
2422: IF l_line_util_rec.acctd_amount IS NOT NULL THEN
2423: l_line_util_rec.acctd_amount := OZF_UTILITY_PVT.CurrRound(l_line_util_rec.acctd_amount, G_FUNCTIONAL_CURRENCY);
2424: END IF;
2462: ,p_line_util_rec => l_line_util_rec
2463: ,p_fu_diff_acctd_amt_rem => (-l_update_fund_amount)
2464: ,p_mode => 'CALCULATE'
2465: );
2466: IF l_return_status = fnd_api.g_ret_sts_error THEN
2467: RAISE FND_API.g_exc_error;
2468: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2469: RAISE FND_API.g_exc_unexpected_error;
2470: END IF;
2463: ,p_fu_diff_acctd_amt_rem => (-l_update_fund_amount)
2464: ,p_mode => 'CALCULATE'
2465: );
2466: IF l_return_status = fnd_api.g_ret_sts_error THEN
2467: RAISE FND_API.g_exc_error;
2468: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2469: RAISE FND_API.g_exc_unexpected_error;
2470: END IF;
2471:
2464: ,p_mode => 'CALCULATE'
2465: );
2466: IF l_return_status = fnd_api.g_ret_sts_error THEN
2467: RAISE FND_API.g_exc_error;
2468: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2469: RAISE FND_API.g_exc_unexpected_error;
2470: END IF;
2471:
2472: END IF; -- IF l_utilization_id > -1
2465: );
2466: IF l_return_status = fnd_api.g_ret_sts_error THEN
2467: RAISE FND_API.g_exc_error;
2468: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2469: RAISE FND_API.g_exc_unexpected_error;
2470: END IF;
2471:
2472: END IF; -- IF l_utilization_id > -1
2473:
2551:
2552: );
2553:
2554: ------ Update Claim Line: set earnings_associated_flag to TRUE -----
2555: IF l_line_util_rec.update_from_tbl_flag = FND_API.g_false THEN
2556: UPDATE ozf_claim_lines_all
2557: SET earnings_associated_flag = 'T'
2558: WHERE claim_line_id = l_line_util_rec.claim_line_id;
2559: END IF;
2561: ------------------------- finish -------------------------------
2562: x_line_util_id := l_line_util_rec.claim_line_util_id;
2563:
2564: -- Check for commit
2565: IF FND_API.to_boolean(p_commit) THEN
2566: COMMIT;
2567: END IF;
2568:
2569: FND_MSG_PUB.count_and_get(
2566: COMMIT;
2567: END IF;
2568:
2569: FND_MSG_PUB.count_and_get(
2570: p_encoded => FND_API.g_false,
2571: p_count => x_msg_count,
2572: p_data => x_msg_data
2573: );
2574:
2576: OZF_Utility_PVT.debug_message(l_full_name ||': end');
2577: END IF;
2578:
2579: EXCEPTION
2580: WHEN FND_API.g_exc_error THEN
2581: ROLLBACK TO Create_Line_Util;
2582: x_return_status := FND_API.g_ret_sts_error;
2583: FND_MSG_PUB.count_and_get (
2584: p_encoded => FND_API.g_false
2578:
2579: EXCEPTION
2580: WHEN FND_API.g_exc_error THEN
2581: ROLLBACK TO Create_Line_Util;
2582: x_return_status := FND_API.g_ret_sts_error;
2583: FND_MSG_PUB.count_and_get (
2584: p_encoded => FND_API.g_false
2585: ,p_count => x_msg_count
2586: ,p_data => x_msg_data
2580: WHEN FND_API.g_exc_error THEN
2581: ROLLBACK TO Create_Line_Util;
2582: x_return_status := FND_API.g_ret_sts_error;
2583: FND_MSG_PUB.count_and_get (
2584: p_encoded => FND_API.g_false
2585: ,p_count => x_msg_count
2586: ,p_data => x_msg_data
2587: );
2588:
2585: ,p_count => x_msg_count
2586: ,p_data => x_msg_data
2587: );
2588:
2589: WHEN FND_API.g_exc_unexpected_error THEN
2590: ROLLBACK TO Create_Line_Util;
2591: x_return_status := FND_API.g_ret_sts_unexp_error ;
2592: FND_MSG_PUB.count_and_get (
2593: p_encoded => FND_API.g_false
2587: );
2588:
2589: WHEN FND_API.g_exc_unexpected_error THEN
2590: ROLLBACK TO Create_Line_Util;
2591: x_return_status := FND_API.g_ret_sts_unexp_error ;
2592: FND_MSG_PUB.count_and_get (
2593: p_encoded => FND_API.g_false
2594: ,p_count => x_msg_count
2595: ,p_data => x_msg_data
2589: WHEN FND_API.g_exc_unexpected_error THEN
2590: ROLLBACK TO Create_Line_Util;
2591: x_return_status := FND_API.g_ret_sts_unexp_error ;
2592: FND_MSG_PUB.count_and_get (
2593: p_encoded => FND_API.g_false
2594: ,p_count => x_msg_count
2595: ,p_data => x_msg_data
2596: );
2597:
2596: );
2597:
2598: WHEN OTHERS THEN
2599: ROLLBACK TO Create_Line_Util;
2600: x_return_status := FND_API.g_ret_sts_unexp_error ;
2601: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2602: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2603: END IF;
2604: FND_MSG_PUB.count_and_get(
2601: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2602: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2603: END IF;
2604: FND_MSG_PUB.count_and_get(
2605: p_encoded => FND_API.g_false
2606: ,p_count => x_msg_count
2607: ,p_data => x_msg_data
2608: );
2609:
2620: -- 7-Aug-06 azahmed Modified for FXGL ER
2621: ---------------------------------------------------------------------
2622: PROCEDURE Update_Line_Util_Tbl(
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 Update_Line_Util_Tbl(
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_data OUT NOCOPY VARCHAR2
2622: PROCEDURE Update_Line_Util_Tbl(
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_data OUT NOCOPY VARCHAR2
2630: ,x_msg_count OUT NOCOPY NUMBER
2667: IF OZF_DEBUG_HIGH_ON THEN
2668: OZF_Utility_PVT.debug_message(l_full_name||': start');
2669: END IF;
2670:
2671: IF FND_API.to_boolean(p_init_msg_list) THEN
2672: FND_MSG_PUB.initialize;
2673: END IF;
2674:
2675: IF NOT FND_API.compatible_api_call(
2671: IF FND_API.to_boolean(p_init_msg_list) THEN
2672: FND_MSG_PUB.initialize;
2673: END IF;
2674:
2675: IF NOT FND_API.compatible_api_call(
2676: l_api_version,
2677: p_api_version,
2678: l_api_name,
2679: g_pkg_name
2677: p_api_version,
2678: l_api_name,
2679: g_pkg_name
2680: ) THEN
2681: RAISE FND_API.g_exc_unexpected_error;
2682: END IF;
2683:
2684: x_return_status := FND_API.g_ret_sts_success;
2685:
2680: ) THEN
2681: RAISE FND_API.g_exc_unexpected_error;
2682: END IF;
2683:
2684: x_return_status := FND_API.g_ret_sts_success;
2685:
2686: ---------------------- check claim access ------------------------
2687: IF p_mode = OZF_CLAIM_UTILITY_PVT.g_manu_mode AND p_line_util_tbl.count > 0 THEN
2688: FOR j IN p_line_util_tbl.FIRST..p_line_util_tbl.LAST LOOP
2693: CLOSE csr_claim_id;
2694:
2695: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
2696: P_Api_Version_Number => 1.0
2697: , P_Init_Msg_List => FND_API.G_FALSE
2698: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
2699: , P_Commit => FND_API.G_FALSE
2700: , P_object_id => l_claim_id
2701: , P_object_type => G_CLAIM_OBJECT_TYPE
2694:
2695: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
2696: P_Api_Version_Number => 1.0
2697: , P_Init_Msg_List => FND_API.G_FALSE
2698: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
2699: , P_Commit => FND_API.G_FALSE
2700: , P_object_id => l_claim_id
2701: , P_object_type => G_CLAIM_OBJECT_TYPE
2702: , P_user_id => OZF_UTILITY_PVT.get_resource_id(NVL(FND_GLOBAL.user_id,-1))
2695: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
2696: P_Api_Version_Number => 1.0
2697: , P_Init_Msg_List => FND_API.G_FALSE
2698: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
2699: , P_Commit => FND_API.G_FALSE
2700: , P_object_id => l_claim_id
2701: , P_object_type => G_CLAIM_OBJECT_TYPE
2702: , P_user_id => OZF_UTILITY_PVT.get_resource_id(NVL(FND_GLOBAL.user_id,-1))
2703: , X_Return_Status => l_return_status
2709: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2710: FND_MESSAGE.set_name('OZF','OZF_CLAIM_NO_ACCESS');
2711: FND_MSG_PUB.add;
2712: END IF;
2713: RAISE FND_API.G_EXC_ERROR;
2714: END IF;
2715: EXIT;
2716: END IF;
2717: END LOOP;
2729: LOOP
2730: l_line_util_rec := p_line_util_tbl(i);
2731: IF l_line_util_rec.claim_line_util_id IS NOT NULL THEN
2732: l_line_util_rec.amount := OZF_UTILITY_PVT.CurrRound(l_line_util_rec.amount, l_line_util_rec.currency_code);
2733: l_line_util_rec.update_from_tbl_flag := FND_API.g_true;
2734: Update_Line_Util(
2735: p_api_version => l_api_version
2736: , p_init_msg_list => FND_API.g_false
2737: , p_commit => FND_API.g_false
2732: l_line_util_rec.amount := OZF_UTILITY_PVT.CurrRound(l_line_util_rec.amount, l_line_util_rec.currency_code);
2733: l_line_util_rec.update_from_tbl_flag := FND_API.g_true;
2734: Update_Line_Util(
2735: p_api_version => l_api_version
2736: , p_init_msg_list => FND_API.g_false
2737: , p_commit => FND_API.g_false
2738: , p_validation_level => p_validation_level
2739: , x_return_status => l_return_status
2740: , x_msg_count => x_msg_count
2733: l_line_util_rec.update_from_tbl_flag := FND_API.g_true;
2734: Update_Line_Util(
2735: p_api_version => l_api_version
2736: , p_init_msg_list => FND_API.g_false
2737: , p_commit => FND_API.g_false
2738: , p_validation_level => p_validation_level
2739: , x_return_status => l_return_status
2740: , x_msg_count => x_msg_count
2741: , x_msg_data => x_msg_data
2742: , p_line_util_rec => l_line_util_rec
2743: , p_mode => OZF_CLAIM_UTILITY_PVT.g_auto_mode
2744: , x_object_version => l_object_version
2745: );
2746: IF l_return_status = fnd_api.g_ret_sts_error THEN
2747: x_error_index := i;
2748: RAISE FND_API.g_exc_error;
2749: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2750: x_error_index := i;
2744: , x_object_version => l_object_version
2745: );
2746: IF l_return_status = fnd_api.g_ret_sts_error THEN
2747: x_error_index := i;
2748: RAISE FND_API.g_exc_error;
2749: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2750: x_error_index := i;
2751: RAISE FND_API.g_exc_unexpected_error;
2752: END IF;
2745: );
2746: IF l_return_status = fnd_api.g_ret_sts_error THEN
2747: x_error_index := i;
2748: RAISE FND_API.g_exc_error;
2749: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2750: x_error_index := i;
2751: RAISE FND_API.g_exc_unexpected_error;
2752: END IF;
2753: END IF;
2747: x_error_index := i;
2748: RAISE FND_API.g_exc_error;
2749: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2750: x_error_index := i;
2751: RAISE FND_API.g_exc_unexpected_error;
2752: END IF;
2753: END IF;
2754: EXIT WHEN i = p_line_util_tbl.LAST;
2755: i := p_line_util_tbl.NEXT(i);
2756: END LOOP;
2757: END IF;
2758:
2759: ------------------------- finish -------------------------------
2760: IF FND_API.to_boolean(p_commit) THEN
2761: COMMIT;
2762: END IF;
2763:
2764: FND_MSG_PUB.count_and_get(
2761: COMMIT;
2762: END IF;
2763:
2764: FND_MSG_PUB.count_and_get(
2765: p_encoded => FND_API.g_false,
2766: p_count => x_msg_count,
2767: p_data => x_msg_data
2768: );
2769:
2771: OZF_Utility_PVT.debug_message(l_full_name ||': end');
2772: END IF;
2773:
2774: EXCEPTION
2775: WHEN FND_API.g_exc_error THEN
2776: ROLLBACK TO Update_Line_Util_Tbl;
2777: x_return_status := FND_API.g_ret_sts_error;
2778: FND_MSG_PUB.count_and_get (
2779: p_encoded => FND_API.g_false
2773:
2774: EXCEPTION
2775: WHEN FND_API.g_exc_error THEN
2776: ROLLBACK TO Update_Line_Util_Tbl;
2777: x_return_status := FND_API.g_ret_sts_error;
2778: FND_MSG_PUB.count_and_get (
2779: p_encoded => FND_API.g_false
2780: ,p_count => x_msg_count
2781: ,p_data => x_msg_data
2775: WHEN FND_API.g_exc_error THEN
2776: ROLLBACK TO Update_Line_Util_Tbl;
2777: x_return_status := FND_API.g_ret_sts_error;
2778: FND_MSG_PUB.count_and_get (
2779: p_encoded => FND_API.g_false
2780: ,p_count => x_msg_count
2781: ,p_data => x_msg_data
2782: );
2783:
2780: ,p_count => x_msg_count
2781: ,p_data => x_msg_data
2782: );
2783:
2784: WHEN FND_API.g_exc_unexpected_error THEN
2785: ROLLBACK TO Update_Line_Util_Tbl;
2786: x_return_status := FND_API.g_ret_sts_unexp_error ;
2787: FND_MSG_PUB.count_and_get (
2788: p_encoded => FND_API.g_false
2782: );
2783:
2784: WHEN FND_API.g_exc_unexpected_error THEN
2785: ROLLBACK TO Update_Line_Util_Tbl;
2786: x_return_status := FND_API.g_ret_sts_unexp_error ;
2787: FND_MSG_PUB.count_and_get (
2788: p_encoded => FND_API.g_false
2789: ,p_count => x_msg_count
2790: ,p_data => x_msg_data
2784: WHEN FND_API.g_exc_unexpected_error THEN
2785: ROLLBACK TO Update_Line_Util_Tbl;
2786: x_return_status := FND_API.g_ret_sts_unexp_error ;
2787: FND_MSG_PUB.count_and_get (
2788: p_encoded => FND_API.g_false
2789: ,p_count => x_msg_count
2790: ,p_data => x_msg_data
2791: );
2792:
2791: );
2792:
2793: WHEN OTHERS THEN
2794: ROLLBACK TO Update_Line_Util_Tbl;
2795: x_return_status := FND_API.g_ret_sts_unexp_error ;
2796: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2797: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2798: END IF;
2799: FND_MSG_PUB.count_and_get(
2796: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2797: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2798: END IF;
2799: FND_MSG_PUB.count_and_get(
2800: p_encoded => FND_API.g_false
2801: ,p_count => x_msg_count
2802: ,p_data => x_msg_data
2803: );
2804:
2816: -- 08-Aug-06 azahmed Modifed for FXGL ER
2817: ----------------------------------------------------------------------
2818: PROCEDURE Update_Line_Util(
2819: p_api_version IN NUMBER
2820: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
2821: ,p_commit IN VARCHAR2 := FND_API.g_false
2822: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
2823:
2824: ,x_return_status OUT NOCOPY VARCHAR2
2817: ----------------------------------------------------------------------
2818: PROCEDURE Update_Line_Util(
2819: p_api_version IN NUMBER
2820: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
2821: ,p_commit IN VARCHAR2 := FND_API.g_false
2822: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
2823:
2824: ,x_return_status OUT NOCOPY VARCHAR2
2825: ,x_msg_count OUT NOCOPY NUMBER
2818: PROCEDURE Update_Line_Util(
2819: p_api_version IN NUMBER
2820: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
2821: ,p_commit IN VARCHAR2 := FND_API.g_false
2822: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
2823:
2824: ,x_return_status OUT NOCOPY VARCHAR2
2825: ,x_msg_count OUT NOCOPY NUMBER
2826: ,x_msg_data OUT NOCOPY VARCHAR2
2892: IF OZF_DEBUG_HIGH_ON THEN
2893: OZF_Utility_PVT.debug_message(l_full_name||': start');
2894: END IF;
2895:
2896: IF FND_API.to_boolean(p_init_msg_list) THEN
2897: FND_MSG_PUB.initialize;
2898: END IF;
2899:
2900: IF NOT FND_API.compatible_api_call(
2896: IF FND_API.to_boolean(p_init_msg_list) THEN
2897: FND_MSG_PUB.initialize;
2898: END IF;
2899:
2900: IF NOT FND_API.compatible_api_call(
2901: l_api_version,
2902: p_api_version,
2903: l_api_name,
2904: g_pkg_name
2902: p_api_version,
2903: l_api_name,
2904: g_pkg_name
2905: ) THEN
2906: RAISE FND_API.g_exc_unexpected_error;
2907: END IF;
2908:
2909: x_return_status := FND_API.g_ret_sts_success;
2910:
2905: ) THEN
2906: RAISE FND_API.g_exc_unexpected_error;
2907: END IF;
2908:
2909: x_return_status := FND_API.g_ret_sts_success;
2910:
2911: ----------------------- validate ----------------------
2912: IF OZF_DEBUG_HIGH_ON THEN
2913: OZF_Utility_PVT.debug_message(l_full_name ||': validate');
2936: ---------------------- check claim access ------------------------
2937: IF p_mode = OZF_CLAIM_UTILITY_PVT.g_manu_mode THEN
2938: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
2939: P_Api_Version_Number => 1.0
2940: , P_Init_Msg_List => FND_API.G_FALSE
2941: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
2942: , P_Commit => FND_API.G_FALSE
2943: , P_object_id => l_claim_id
2944: , P_object_type => G_CLAIM_OBJECT_TYPE
2937: IF p_mode = OZF_CLAIM_UTILITY_PVT.g_manu_mode THEN
2938: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
2939: P_Api_Version_Number => 1.0
2940: , P_Init_Msg_List => FND_API.G_FALSE
2941: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
2942: , P_Commit => FND_API.G_FALSE
2943: , P_object_id => l_claim_id
2944: , P_object_type => G_CLAIM_OBJECT_TYPE
2945: , P_user_id => OZF_UTILITY_PVT.get_resource_id(NVL(FND_GLOBAL.user_id,-1))
2938: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
2939: P_Api_Version_Number => 1.0
2940: , P_Init_Msg_List => FND_API.G_FALSE
2941: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
2942: , P_Commit => FND_API.G_FALSE
2943: , P_object_id => l_claim_id
2944: , P_object_type => G_CLAIM_OBJECT_TYPE
2945: , P_user_id => OZF_UTILITY_PVT.get_resource_id(NVL(FND_GLOBAL.user_id,-1))
2946: , X_Return_Status => l_return_status
2952: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2953: FND_MESSAGE.set_name('OZF','OZF_CLAIM_NO_ACCESS');
2954: FND_MSG_PUB.add;
2955: END IF;
2956: RAISE FND_API.G_EXC_ERROR;
2957: END IF;
2958: END IF;
2959:
2960: IF p_line_util_rec.update_from_tbl_flag = FND_API.g_false THEN
2956: RAISE FND_API.G_EXC_ERROR;
2957: END IF;
2958: END IF;
2959:
2960: IF p_line_util_rec.update_from_tbl_flag = FND_API.g_false THEN
2961: -- get functional_currency
2962: OPEN csr_function_currency;
2963: FETCH csr_function_currency INTO G_FUNCTIONAL_CURRENCY;
2964: CLOSE csr_function_currency;
2966:
2967: END IF;
2968:
2969: IF (p_line_util_rec.amount is not null
2970: AND p_line_util_rec.amount <> FND_API.g_miss_num) THEN
2971: OPEN csr_lu_old_amt(p_line_util_rec.claim_line_util_id);
2972: FETCH csr_lu_old_amt INTO l_lu_old_amt, l_lu_old_scan_unit, l_old_utiz_amount;
2973: CLOSE csr_lu_old_amt;
2974:
2989: ,x_return_status => l_return_status
2990: ,x_to_amount => l_line_util_rec.acctd_amount
2991: ,x_rate => l_exchange_rate
2992: );
2993: IF l_return_status = FND_API.g_ret_sts_error THEN
2994: RAISE FND_API.g_exc_error;
2995: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2996: RAISE FND_API.g_exc_unexpected_error;
2997: END IF;
2990: ,x_to_amount => l_line_util_rec.acctd_amount
2991: ,x_rate => l_exchange_rate
2992: );
2993: IF l_return_status = FND_API.g_ret_sts_error THEN
2994: RAISE FND_API.g_exc_error;
2995: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2996: RAISE FND_API.g_exc_unexpected_error;
2997: END IF;
2998: IF l_line_util_rec.acctd_amount IS NOT NULL THEN
2991: ,x_rate => l_exchange_rate
2992: );
2993: IF l_return_status = FND_API.g_ret_sts_error THEN
2994: RAISE FND_API.g_exc_error;
2995: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2996: RAISE FND_API.g_exc_unexpected_error;
2997: END IF;
2998: IF l_line_util_rec.acctd_amount IS NOT NULL THEN
2999: l_line_util_rec.acctd_amount := OZF_UTILITY_PVT.CurrRound(l_line_util_rec.acctd_amount, G_FUNCTIONAL_CURRENCY);
2992: );
2993: IF l_return_status = FND_API.g_ret_sts_error THEN
2994: RAISE FND_API.g_exc_error;
2995: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2996: RAISE FND_API.g_exc_unexpected_error;
2997: END IF;
2998: IF l_line_util_rec.acctd_amount IS NOT NULL THEN
2999: l_line_util_rec.acctd_amount := OZF_UTILITY_PVT.CurrRound(l_line_util_rec.acctd_amount, G_FUNCTIONAL_CURRENCY);
3000: END IF;
3028: ,x_return_status => l_return_status
3029: ,x_to_amount => l_line_util_rec.util_curr_amount
3030: ,x_rate => l_exchange_rate
3031: );
3032: IF l_return_status = FND_API.g_ret_sts_error THEN
3033: RAISE FND_API.g_exc_error;
3034: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3035: RAISE FND_API.g_exc_unexpected_error;
3036: END IF;
3029: ,x_to_amount => l_line_util_rec.util_curr_amount
3030: ,x_rate => l_exchange_rate
3031: );
3032: IF l_return_status = FND_API.g_ret_sts_error THEN
3033: RAISE FND_API.g_exc_error;
3034: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3035: RAISE FND_API.g_exc_unexpected_error;
3036: END IF;
3037: l_update_fund_amount := l_old_utiz_amount - l_line_util_rec.util_curr_amount;
3030: ,x_rate => l_exchange_rate
3031: );
3032: IF l_return_status = FND_API.g_ret_sts_error THEN
3033: RAISE FND_API.g_exc_error;
3034: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3035: RAISE FND_API.g_exc_unexpected_error;
3036: END IF;
3037: l_update_fund_amount := l_old_utiz_amount - l_line_util_rec.util_curr_amount;
3038: ELSE
3031: );
3032: IF l_return_status = FND_API.g_ret_sts_error THEN
3033: RAISE FND_API.g_exc_error;
3034: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3035: RAISE FND_API.g_exc_unexpected_error;
3036: END IF;
3037: l_update_fund_amount := l_old_utiz_amount - l_line_util_rec.util_curr_amount;
3038: ELSE
3039: l_update_fund_amount := l_lu_old_amt - l_line_util_rec.amount;
3046: ,p_line_util_rec => l_line_util_rec
3047: ,p_fu_diff_acctd_amt_rem => l_update_fund_amount
3048: ,p_mode => 'CALCULATE'
3049: );
3050: IF l_return_status = fnd_api.g_ret_sts_error THEN
3051: RAISE FND_API.g_exc_error;
3052: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3053: RAISE FND_API.g_exc_unexpected_error;
3054: END IF;
3047: ,p_fu_diff_acctd_amt_rem => l_update_fund_amount
3048: ,p_mode => 'CALCULATE'
3049: );
3050: IF l_return_status = fnd_api.g_ret_sts_error THEN
3051: RAISE FND_API.g_exc_error;
3052: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3053: RAISE FND_API.g_exc_unexpected_error;
3054: END IF;
3055: END IF; -- -- Util > -1, calcualalte line util amount in plan and util currency
3048: ,p_mode => 'CALCULATE'
3049: );
3050: IF l_return_status = fnd_api.g_ret_sts_error THEN
3051: RAISE FND_API.g_exc_error;
3052: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3053: RAISE FND_API.g_exc_unexpected_error;
3054: END IF;
3055: END IF; -- -- Util > -1, calcualalte line util amount in plan and util currency
3056:
3049: );
3050: IF l_return_status = fnd_api.g_ret_sts_error THEN
3051: RAISE FND_API.g_exc_error;
3052: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3053: RAISE FND_API.g_exc_unexpected_error;
3054: END IF;
3055: END IF; -- -- Util > -1, calcualalte line util amount in plan and util currency
3056:
3057: END IF;
3091: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3092: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
3093: FND_MSG_PUB.add;
3094: END IF;
3095: RAISE FND_API.g_exc_error;
3096: END IF;
3097:
3098: -------------------- finish --------------------------
3099: x_object_version := l_line_util_rec.object_version_number;
3098: -------------------- finish --------------------------
3099: x_object_version := l_line_util_rec.object_version_number;
3100:
3101: -- Check for commit
3102: IF FND_API.to_boolean(p_commit) THEN
3103: COMMIT;
3104: END IF;
3105:
3106: FND_MSG_PUB.count_and_get(
3103: COMMIT;
3104: END IF;
3105:
3106: FND_MSG_PUB.count_and_get(
3107: p_encoded => FND_API.g_false,
3108: p_count => x_msg_count,
3109: p_data => x_msg_data
3110: );
3111:
3113: OZF_Utility_PVT.debug_message(l_full_name ||': end');
3114: END IF;
3115:
3116: EXCEPTION
3117: WHEN FND_API.g_exc_error THEN
3118: ROLLBACK TO Update_Line_Util;
3119: x_return_status := FND_API.g_ret_sts_error;
3120: FND_MSG_PUB.count_and_get(
3121: p_encoded => FND_API.g_false,
3115:
3116: EXCEPTION
3117: WHEN FND_API.g_exc_error THEN
3118: ROLLBACK TO Update_Line_Util;
3119: x_return_status := FND_API.g_ret_sts_error;
3120: FND_MSG_PUB.count_and_get(
3121: p_encoded => FND_API.g_false,
3122: p_count => x_msg_count,
3123: p_data => x_msg_data
3117: WHEN FND_API.g_exc_error THEN
3118: ROLLBACK TO Update_Line_Util;
3119: x_return_status := FND_API.g_ret_sts_error;
3120: FND_MSG_PUB.count_and_get(
3121: p_encoded => FND_API.g_false,
3122: p_count => x_msg_count,
3123: p_data => x_msg_data
3124: );
3125:
3122: p_count => x_msg_count,
3123: p_data => x_msg_data
3124: );
3125:
3126: WHEN FND_API.g_exc_unexpected_error THEN
3127: ROLLBACK TO Update_Line_Util;
3128: x_return_status := FND_API.g_ret_sts_unexp_error ;
3129: FND_MSG_PUB.count_and_get(
3130: p_encoded => FND_API.g_false,
3124: );
3125:
3126: WHEN FND_API.g_exc_unexpected_error THEN
3127: ROLLBACK TO Update_Line_Util;
3128: x_return_status := FND_API.g_ret_sts_unexp_error ;
3129: FND_MSG_PUB.count_and_get(
3130: p_encoded => FND_API.g_false,
3131: p_count => x_msg_count,
3132: p_data => x_msg_data
3126: WHEN FND_API.g_exc_unexpected_error THEN
3127: ROLLBACK TO Update_Line_Util;
3128: x_return_status := FND_API.g_ret_sts_unexp_error ;
3129: FND_MSG_PUB.count_and_get(
3130: p_encoded => FND_API.g_false,
3131: p_count => x_msg_count,
3132: p_data => x_msg_data
3133: );
3134:
3133: );
3134:
3135: WHEN OTHERS THEN
3136: ROLLBACK TO Update_Line_Util;
3137: x_return_status := FND_API.g_ret_sts_unexp_error ;
3138: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3139: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3140: END IF;
3141: FND_MSG_PUB.count_and_get(
3138: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3139: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3140: END IF;
3141: FND_MSG_PUB.count_and_get(
3142: p_encoded => FND_API.g_false,
3143: p_count => x_msg_count,
3144: p_data => x_msg_data
3145: );
3146:
3156: -- 08-Aug-06 azahmed Modified for FXGL ER
3157: ---------------------------------------------------------------------
3158: PROCEDURE Delete_All_Line_Util(
3159: p_api_version IN NUMBER
3160: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
3161: ,p_commit IN VARCHAR2 := FND_API.g_false
3162: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
3163:
3164: ,x_return_status OUT NOCOPY VARCHAR2
3157: ---------------------------------------------------------------------
3158: PROCEDURE Delete_All_Line_Util(
3159: p_api_version IN NUMBER
3160: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
3161: ,p_commit IN VARCHAR2 := FND_API.g_false
3162: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
3163:
3164: ,x_return_status OUT NOCOPY VARCHAR2
3165: ,x_msg_count OUT NOCOPY NUMBER
3158: PROCEDURE Delete_All_Line_Util(
3159: p_api_version IN NUMBER
3160: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
3161: ,p_commit IN VARCHAR2 := FND_API.g_false
3162: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
3163:
3164: ,x_return_status OUT NOCOPY VARCHAR2
3165: ,x_msg_count OUT NOCOPY NUMBER
3166: ,x_msg_data OUT NOCOPY VARCHAR2
3208: IF OZF_DEBUG_HIGH_ON THEN
3209: OZF_Utility_PVT.debug_message(l_full_name||': start');
3210: END IF;
3211:
3212: IF FND_API.to_boolean(p_init_msg_list) THEN
3213: FND_MSG_PUB.initialize;
3214: END IF;
3215:
3216: IF NOT FND_API.compatible_api_call(
3212: IF FND_API.to_boolean(p_init_msg_list) THEN
3213: FND_MSG_PUB.initialize;
3214: END IF;
3215:
3216: IF NOT FND_API.compatible_api_call(
3217: l_api_version,
3218: p_api_version,
3219: l_api_name,
3220: g_pkg_name
3218: p_api_version,
3219: l_api_name,
3220: g_pkg_name
3221: ) THEN
3222: RAISE FND_API.g_exc_unexpected_error;
3223: END IF;
3224:
3225: x_return_status := FND_API.g_ret_sts_success;
3226:
3221: ) THEN
3222: RAISE FND_API.g_exc_unexpected_error;
3223: END IF;
3224:
3225: x_return_status := FND_API.g_ret_sts_success;
3226:
3227:
3228: --------------------- start -----------------------
3229: Get_Utiz_Sql_Stmt(
3227:
3228: --------------------- start -----------------------
3229: Get_Utiz_Sql_Stmt(
3230: p_api_version => l_api_version
3231: ,p_init_msg_list => FND_API.g_false
3232: ,p_commit => FND_API.g_false
3233: ,p_validation_level => FND_API.g_valid_level_full
3234: ,x_return_status => l_return_status
3235: ,x_msg_count => x_msg_count
3228: --------------------- start -----------------------
3229: Get_Utiz_Sql_Stmt(
3230: p_api_version => l_api_version
3231: ,p_init_msg_list => FND_API.g_false
3232: ,p_commit => FND_API.g_false
3233: ,p_validation_level => FND_API.g_valid_level_full
3234: ,x_return_status => l_return_status
3235: ,x_msg_count => x_msg_count
3236: ,x_msg_data => x_msg_data
3229: Get_Utiz_Sql_Stmt(
3230: p_api_version => l_api_version
3231: ,p_init_msg_list => FND_API.g_false
3232: ,p_commit => FND_API.g_false
3233: ,p_validation_level => FND_API.g_valid_level_full
3234: ,x_return_status => l_return_status
3235: ,x_msg_count => x_msg_count
3236: ,x_msg_data => x_msg_data
3237: ,p_summary_view => 'DEL_GRP_LINE_UTIL'
3238: ,p_funds_util_flt => p_funds_util_flt
3239: ,p_cust_account_id => p_funds_util_flt.cust_account_id
3240: ,x_utiz_sql_stmt => l_funds_util_sql
3241: );
3242: IF l_return_status = FND_API.g_ret_sts_error THEN
3243: RAISE FND_API.g_exc_error;
3244: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3245: RAISE FND_API.g_exc_unexpected_error;
3246: END IF;
3239: ,p_cust_account_id => p_funds_util_flt.cust_account_id
3240: ,x_utiz_sql_stmt => l_funds_util_sql
3241: );
3242: IF l_return_status = FND_API.g_ret_sts_error THEN
3243: RAISE FND_API.g_exc_error;
3244: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3245: RAISE FND_API.g_exc_unexpected_error;
3246: END IF;
3247:
3240: ,x_utiz_sql_stmt => l_funds_util_sql
3241: );
3242: IF l_return_status = FND_API.g_ret_sts_error THEN
3243: RAISE FND_API.g_exc_error;
3244: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3245: RAISE FND_API.g_exc_unexpected_error;
3246: END IF;
3247:
3248: G_UNIV_CURRENCY := FND_PROFILE.VALUE('OZF_TP_COMMON_CURRENCY');
3241: );
3242: IF l_return_status = FND_API.g_ret_sts_error THEN
3243: RAISE FND_API.g_exc_error;
3244: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3245: RAISE FND_API.g_exc_unexpected_error;
3246: END IF;
3247:
3248: G_UNIV_CURRENCY := FND_PROFILE.VALUE('OZF_TP_COMMON_CURRENCY');
3249: OPEN csr_function_currency;
3278: CLOSE csr_util_obj_ver;
3279:
3280: Delete_Line_Util(
3281: p_api_version => l_api_version
3282: ,p_init_msg_list => FND_API.g_false
3283: ,p_commit => FND_API.g_false
3284: ,x_return_status => l_return_status
3285: ,x_msg_data => x_msg_data
3286: ,x_msg_count => x_msg_count
3279:
3280: Delete_Line_Util(
3281: p_api_version => l_api_version
3282: ,p_init_msg_list => FND_API.g_false
3283: ,p_commit => FND_API.g_false
3284: ,x_return_status => l_return_status
3285: ,x_msg_data => x_msg_data
3286: ,x_msg_count => x_msg_count
3287: ,p_line_util_id => l_lu_line_util_id
3287: ,p_line_util_id => l_lu_line_util_id
3288: ,p_object_version => l_object_version_number
3289: ,p_mode => OZF_CLAIM_UTILITY_PVT.g_auto_mode
3290: );
3291: IF l_return_status = fnd_api.g_ret_sts_error THEN
3292: RAISE FND_API.g_exc_error;
3293: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3294: RAISE FND_API.g_exc_unexpected_error;
3295: END IF;
3288: ,p_object_version => l_object_version_number
3289: ,p_mode => OZF_CLAIM_UTILITY_PVT.g_auto_mode
3290: );
3291: IF l_return_status = fnd_api.g_ret_sts_error THEN
3292: RAISE FND_API.g_exc_error;
3293: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3294: RAISE FND_API.g_exc_unexpected_error;
3295: END IF;
3296: ELSE
3289: ,p_mode => OZF_CLAIM_UTILITY_PVT.g_auto_mode
3290: );
3291: IF l_return_status = fnd_api.g_ret_sts_error THEN
3292: RAISE FND_API.g_exc_error;
3293: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3294: RAISE FND_API.g_exc_unexpected_error;
3295: END IF;
3296: ELSE
3297: EXIT;
3290: );
3291: IF l_return_status = fnd_api.g_ret_sts_error THEN
3292: RAISE FND_API.g_exc_error;
3293: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3294: RAISE FND_API.g_exc_unexpected_error;
3295: END IF;
3296: ELSE
3297: EXIT;
3298: END IF;
3299: END LOOP;
3300: DBMS_SQL.close_cursor(l_funds_util_csr);
3301:
3302: -- Check for commit
3303: IF FND_API.to_boolean(p_commit) THEN
3304: COMMIT;
3305: END IF;
3306:
3307: FND_MSG_PUB.count_and_get(
3304: COMMIT;
3305: END IF;
3306:
3307: FND_MSG_PUB.count_and_get(
3308: p_encoded => FND_API.g_false,
3309: p_count => x_msg_count,
3310: p_data => x_msg_data
3311: );
3312:
3314: OZF_Utility_PVT.debug_message(l_full_name ||': end');
3315: END IF;
3316:
3317: EXCEPTION
3318: WHEN FND_API.g_exc_error THEN
3319: ROLLBACK TO Delete_All_Line_Util;
3320: x_return_status := FND_API.g_ret_sts_error;
3321: FND_MSG_PUB.count_and_get (
3322: p_encoded => FND_API.g_false
3316:
3317: EXCEPTION
3318: WHEN FND_API.g_exc_error THEN
3319: ROLLBACK TO Delete_All_Line_Util;
3320: x_return_status := FND_API.g_ret_sts_error;
3321: FND_MSG_PUB.count_and_get (
3322: p_encoded => FND_API.g_false
3323: ,p_count => x_msg_count
3324: ,p_data => x_msg_data
3318: WHEN FND_API.g_exc_error THEN
3319: ROLLBACK TO Delete_All_Line_Util;
3320: x_return_status := FND_API.g_ret_sts_error;
3321: FND_MSG_PUB.count_and_get (
3322: p_encoded => FND_API.g_false
3323: ,p_count => x_msg_count
3324: ,p_data => x_msg_data
3325: );
3326:
3323: ,p_count => x_msg_count
3324: ,p_data => x_msg_data
3325: );
3326:
3327: WHEN FND_API.g_exc_unexpected_error THEN
3328: ROLLBACK TO Delete_All_Line_Util;
3329: x_return_status := FND_API.g_ret_sts_unexp_error ;
3330: FND_MSG_PUB.count_and_get (
3331: p_encoded => FND_API.g_false
3325: );
3326:
3327: WHEN FND_API.g_exc_unexpected_error THEN
3328: ROLLBACK TO Delete_All_Line_Util;
3329: x_return_status := FND_API.g_ret_sts_unexp_error ;
3330: FND_MSG_PUB.count_and_get (
3331: p_encoded => FND_API.g_false
3332: ,p_count => x_msg_count
3333: ,p_data => x_msg_data
3327: WHEN FND_API.g_exc_unexpected_error THEN
3328: ROLLBACK TO Delete_All_Line_Util;
3329: x_return_status := FND_API.g_ret_sts_unexp_error ;
3330: FND_MSG_PUB.count_and_get (
3331: p_encoded => FND_API.g_false
3332: ,p_count => x_msg_count
3333: ,p_data => x_msg_data
3334: );
3335:
3334: );
3335:
3336: WHEN OTHERS THEN
3337: ROLLBACK TO Delete_All_Line_Util;
3338: x_return_status := FND_API.g_ret_sts_unexp_error ;
3339: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3340: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3341: END IF;
3342: FND_MSG_PUB.count_and_get(
3339: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3340: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3341: END IF;
3342: FND_MSG_PUB.count_and_get(
3343: p_encoded => FND_API.g_false
3344: ,p_count => x_msg_count
3345: ,p_data => x_msg_data
3346: );
3347:
3355: -- 05/12/2001 mchang Create.
3356: ---------------------------------------------------------------------
3357: PROCEDURE Delete_Line_Util_Tbl(
3358: p_api_version IN NUMBER
3359: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
3360: ,p_commit IN VARCHAR2 := FND_API.g_false
3361: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
3362:
3363: ,x_return_status OUT NOCOPY VARCHAR2
3356: ---------------------------------------------------------------------
3357: PROCEDURE Delete_Line_Util_Tbl(
3358: p_api_version IN NUMBER
3359: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
3360: ,p_commit IN VARCHAR2 := FND_API.g_false
3361: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
3362:
3363: ,x_return_status OUT NOCOPY VARCHAR2
3364: ,x_msg_data OUT NOCOPY VARCHAR2
3357: PROCEDURE Delete_Line_Util_Tbl(
3358: p_api_version IN NUMBER
3359: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
3360: ,p_commit IN VARCHAR2 := FND_API.g_false
3361: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
3362:
3363: ,x_return_status OUT NOCOPY VARCHAR2
3364: ,x_msg_data OUT NOCOPY VARCHAR2
3365: ,x_msg_count OUT NOCOPY NUMBER
3408: IF OZF_DEBUG_HIGH_ON THEN
3409: OZF_Utility_PVT.debug_message(l_full_name||': start');
3410: END IF;
3411:
3412: IF FND_API.to_boolean(p_init_msg_list) THEN
3413: FND_MSG_PUB.initialize;
3414: END IF;
3415:
3416: IF NOT FND_API.compatible_api_call(
3412: IF FND_API.to_boolean(p_init_msg_list) THEN
3413: FND_MSG_PUB.initialize;
3414: END IF;
3415:
3416: IF NOT FND_API.compatible_api_call(
3417: l_api_version,
3418: p_api_version,
3419: l_api_name,
3420: g_pkg_name
3418: p_api_version,
3419: l_api_name,
3420: g_pkg_name
3421: ) THEN
3422: RAISE FND_API.g_exc_unexpected_error;
3423: END IF;
3424:
3425: x_return_status := FND_API.g_ret_sts_success;
3426:
3421: ) THEN
3422: RAISE FND_API.g_exc_unexpected_error;
3423: END IF;
3424:
3425: x_return_status := FND_API.g_ret_sts_success;
3426:
3427: ---------------------- check claim access ------------------------
3428: IF p_mode = OZF_CLAIM_UTILITY_PVT.g_manu_mode AND p_line_util_tbl.count > 0 THEN
3429: FOR j IN p_line_util_tbl.FIRST..p_line_util_tbl.LAST LOOP
3434: CLOSE csr_claim_id;
3435:
3436: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
3437: P_Api_Version_Number => 1.0
3438: , P_Init_Msg_List => FND_API.G_FALSE
3439: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
3440: , P_Commit => FND_API.G_FALSE
3441: , P_object_id => l_claim_id
3442: , P_object_type => G_CLAIM_OBJECT_TYPE
3435:
3436: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
3437: P_Api_Version_Number => 1.0
3438: , P_Init_Msg_List => FND_API.G_FALSE
3439: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
3440: , P_Commit => FND_API.G_FALSE
3441: , P_object_id => l_claim_id
3442: , P_object_type => G_CLAIM_OBJECT_TYPE
3443: , P_user_id => OZF_UTILITY_PVT.get_resource_id(NVL(FND_GLOBAL.user_id,-1))
3436: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
3437: P_Api_Version_Number => 1.0
3438: , P_Init_Msg_List => FND_API.G_FALSE
3439: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
3440: , P_Commit => FND_API.G_FALSE
3441: , P_object_id => l_claim_id
3442: , P_object_type => G_CLAIM_OBJECT_TYPE
3443: , P_user_id => OZF_UTILITY_PVT.get_resource_id(NVL(FND_GLOBAL.user_id,-1))
3444: , X_Return_Status => l_return_status
3450: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3451: FND_MESSAGE.set_name('OZF','OZF_CLAIM_NO_ACCESS');
3452: FND_MSG_PUB.add;
3453: END IF;
3454: RAISE FND_API.G_EXC_ERROR;
3455: END IF;
3456: EXIT;
3457: END IF;
3458: END LOOP;
3472: l_object_version := p_line_util_tbl(i).object_version_number;
3473: IF l_line_util_id IS NOT NULL THEN
3474: Delete_Line_Util(
3475: p_api_version => 1.0
3476: , p_init_msg_list => FND_API.g_false
3477: , p_commit => FND_API.g_false
3478: , x_return_status => l_return_status
3479: , x_msg_count => x_msg_count
3480: , x_msg_data => x_msg_data
3473: IF l_line_util_id IS NOT NULL THEN
3474: Delete_Line_Util(
3475: p_api_version => 1.0
3476: , p_init_msg_list => FND_API.g_false
3477: , p_commit => FND_API.g_false
3478: , x_return_status => l_return_status
3479: , x_msg_count => x_msg_count
3480: , x_msg_data => x_msg_data
3481: , p_line_util_id => l_line_util_id
3481: , p_line_util_id => l_line_util_id
3482: , p_object_version => l_object_version
3483: , p_mode => OZF_CLAIM_UTILITY_PVT.g_auto_mode
3484: );
3485: IF l_return_status = fnd_api.g_ret_sts_error THEN
3486: x_error_index := i;
3487: RAISE FND_API.g_exc_error;
3488: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3489: x_error_index := i;
3483: , p_mode => OZF_CLAIM_UTILITY_PVT.g_auto_mode
3484: );
3485: IF l_return_status = fnd_api.g_ret_sts_error THEN
3486: x_error_index := i;
3487: RAISE FND_API.g_exc_error;
3488: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3489: x_error_index := i;
3490: RAISE FND_API.g_exc_unexpected_error;
3491: END IF;
3484: );
3485: IF l_return_status = fnd_api.g_ret_sts_error THEN
3486: x_error_index := i;
3487: RAISE FND_API.g_exc_error;
3488: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3489: x_error_index := i;
3490: RAISE FND_API.g_exc_unexpected_error;
3491: END IF;
3492: END IF;
3486: x_error_index := i;
3487: RAISE FND_API.g_exc_error;
3488: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3489: x_error_index := i;
3490: RAISE FND_API.g_exc_unexpected_error;
3491: END IF;
3492: END IF;
3493: EXIT WHEN i = p_line_util_tbl.LAST;
3494: i := p_line_util_tbl.NEXT(i);
3508:
3509: END IF;
3510:
3511: ------------------------- finish -------------------------------
3512: IF FND_API.to_boolean(p_commit) THEN
3513: COMMIT;
3514: END IF;
3515:
3516: FND_MSG_PUB.count_and_get(
3513: COMMIT;
3514: END IF;
3515:
3516: FND_MSG_PUB.count_and_get(
3517: p_encoded => FND_API.g_false,
3518: p_count => x_msg_count,
3519: p_data => x_msg_data
3520: );
3521:
3523: OZF_Utility_PVT.debug_message(l_full_name ||': end');
3524: END IF;
3525:
3526: EXCEPTION
3527: WHEN FND_API.g_exc_error THEN
3528: ROLLBACK TO Delete_Line_Util_Tbl;
3529: x_return_status := FND_API.g_ret_sts_error;
3530: FND_MSG_PUB.count_and_get (
3531: p_encoded => FND_API.g_false
3525:
3526: EXCEPTION
3527: WHEN FND_API.g_exc_error THEN
3528: ROLLBACK TO Delete_Line_Util_Tbl;
3529: x_return_status := FND_API.g_ret_sts_error;
3530: FND_MSG_PUB.count_and_get (
3531: p_encoded => FND_API.g_false
3532: ,p_count => x_msg_count
3533: ,p_data => x_msg_data
3527: WHEN FND_API.g_exc_error THEN
3528: ROLLBACK TO Delete_Line_Util_Tbl;
3529: x_return_status := FND_API.g_ret_sts_error;
3530: FND_MSG_PUB.count_and_get (
3531: p_encoded => FND_API.g_false
3532: ,p_count => x_msg_count
3533: ,p_data => x_msg_data
3534: );
3535:
3532: ,p_count => x_msg_count
3533: ,p_data => x_msg_data
3534: );
3535:
3536: WHEN FND_API.g_exc_unexpected_error THEN
3537: ROLLBACK TO Delete_Line_Util_Tbl;
3538: x_return_status := FND_API.g_ret_sts_unexp_error ;
3539: FND_MSG_PUB.count_and_get (
3540: p_encoded => FND_API.g_false
3534: );
3535:
3536: WHEN FND_API.g_exc_unexpected_error THEN
3537: ROLLBACK TO Delete_Line_Util_Tbl;
3538: x_return_status := FND_API.g_ret_sts_unexp_error ;
3539: FND_MSG_PUB.count_and_get (
3540: p_encoded => FND_API.g_false
3541: ,p_count => x_msg_count
3542: ,p_data => x_msg_data
3536: WHEN FND_API.g_exc_unexpected_error THEN
3537: ROLLBACK TO Delete_Line_Util_Tbl;
3538: x_return_status := FND_API.g_ret_sts_unexp_error ;
3539: FND_MSG_PUB.count_and_get (
3540: p_encoded => FND_API.g_false
3541: ,p_count => x_msg_count
3542: ,p_data => x_msg_data
3543: );
3544:
3543: );
3544:
3545: WHEN OTHERS THEN
3546: ROLLBACK TO Delete_Line_Util_Tbl;
3547: x_return_status := FND_API.g_ret_sts_unexp_error ;
3548: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3549: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3550: END IF;
3551: FND_MSG_PUB.count_and_get(
3548: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3549: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3550: END IF;
3551: FND_MSG_PUB.count_and_get(
3552: p_encoded => FND_API.g_false
3553: ,p_count => x_msg_count
3554: ,p_data => x_msg_data
3555: );
3556:
3567: -- 08-Aug-06 azahmed Modified for FXGL ER (Amount passed to Update_Funds_Util)
3568: ---------------------------------------------------------------
3569: PROCEDURE Delete_Line_Util(
3570: p_api_version IN NUMBER
3571: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
3572: ,p_commit IN VARCHAR2 := FND_API.g_false
3573:
3574: ,x_return_status OUT NOCOPY VARCHAR2
3575: ,x_msg_count OUT NOCOPY NUMBER
3568: ---------------------------------------------------------------
3569: PROCEDURE Delete_Line_Util(
3570: p_api_version IN NUMBER
3571: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
3572: ,p_commit IN VARCHAR2 := FND_API.g_false
3573:
3574: ,x_return_status OUT NOCOPY VARCHAR2
3575: ,x_msg_count OUT NOCOPY NUMBER
3576: ,x_msg_data OUT NOCOPY VARCHAR2
3629: IF OZF_DEBUG_HIGH_ON THEN
3630: OZF_Utility_PVT.debug_message(l_full_name||': start');
3631: END IF;
3632:
3633: IF FND_API.to_boolean(p_init_msg_list) THEN
3634: FND_MSG_PUB.initialize;
3635: END IF;
3636:
3637: IF NOT FND_API.compatible_api_call(
3633: IF FND_API.to_boolean(p_init_msg_list) THEN
3634: FND_MSG_PUB.initialize;
3635: END IF;
3636:
3637: IF NOT FND_API.compatible_api_call(
3638: l_api_version,
3639: p_api_version,
3640: l_api_name,
3641: g_pkg_name
3639: p_api_version,
3640: l_api_name,
3641: g_pkg_name
3642: ) THEN
3643: RAISE FND_API.g_exc_unexpected_error;
3644: END IF;
3645:
3646: x_return_status := FND_API.G_RET_STS_SUCCESS;
3647:
3642: ) THEN
3643: RAISE FND_API.g_exc_unexpected_error;
3644: END IF;
3645:
3646: x_return_status := FND_API.G_RET_STS_SUCCESS;
3647:
3648: OPEN csr_claim_line_details(p_line_util_id);
3649: FETCH csr_claim_line_details INTO l_claim_line_id , l_claim_currency;
3650: CLOSE csr_claim_line_details;
3656: ---------------------- check claim access ------------------------
3657: IF p_mode = OZF_CLAIM_UTILITY_PVT.g_manu_mode THEN
3658: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
3659: P_Api_Version_Number => 1.0
3660: , P_Init_Msg_List => FND_API.G_FALSE
3661: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
3662: , P_Commit => FND_API.G_FALSE
3663: , P_object_id => l_claim_id
3664: , P_object_type => G_CLAIM_OBJECT_TYPE
3657: IF p_mode = OZF_CLAIM_UTILITY_PVT.g_manu_mode THEN
3658: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
3659: P_Api_Version_Number => 1.0
3660: , P_Init_Msg_List => FND_API.G_FALSE
3661: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
3662: , P_Commit => FND_API.G_FALSE
3663: , P_object_id => l_claim_id
3664: , P_object_type => G_CLAIM_OBJECT_TYPE
3665: , P_user_id => OZF_UTILITY_PVT.get_resource_id(NVL(FND_GLOBAL.user_id,-1))
3658: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
3659: P_Api_Version_Number => 1.0
3660: , P_Init_Msg_List => FND_API.G_FALSE
3661: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
3662: , P_Commit => FND_API.G_FALSE
3663: , P_object_id => l_claim_id
3664: , P_object_type => G_CLAIM_OBJECT_TYPE
3665: , P_user_id => OZF_UTILITY_PVT.get_resource_id(NVL(FND_GLOBAL.user_id,-1))
3666: , X_Return_Status => l_return_status
3672: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3673: FND_MESSAGE.set_name('OZF','OZF_CLAIM_NO_ACCESS');
3674: FND_MSG_PUB.add;
3675: END IF;
3676: RAISE FND_API.G_EXC_ERROR;
3677: END IF;
3678: END IF;
3679:
3680: --------------------- Start -----------------------
3718: ,p_line_util_rec => l_line_util_rec
3719: ,p_fu_diff_acctd_amt_rem => l_del_line_util_amt
3720: ,p_mode => 'NONE'
3721: );
3722: IF l_return_status = fnd_api.g_ret_sts_error THEN
3723: RAISE FND_API.g_exc_error;
3724: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3725: RAISE FND_API.g_exc_unexpected_error;
3726: END IF;
3719: ,p_fu_diff_acctd_amt_rem => l_del_line_util_amt
3720: ,p_mode => 'NONE'
3721: );
3722: IF l_return_status = fnd_api.g_ret_sts_error THEN
3723: RAISE FND_API.g_exc_error;
3724: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3725: RAISE FND_API.g_exc_unexpected_error;
3726: END IF;
3727:
3720: ,p_mode => 'NONE'
3721: );
3722: IF l_return_status = fnd_api.g_ret_sts_error THEN
3723: RAISE FND_API.g_exc_error;
3724: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3725: RAISE FND_API.g_exc_unexpected_error;
3726: END IF;
3727:
3728: END IF; -- IF l_utilization_rec.utilization_id <> -1
3721: );
3722: IF l_return_status = fnd_api.g_ret_sts_error THEN
3723: RAISE FND_API.g_exc_error;
3724: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3725: RAISE FND_API.g_exc_unexpected_error;
3726: END IF;
3727:
3728: END IF; -- IF l_utilization_rec.utilization_id <> -1
3729:
3740: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3741: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
3742: FND_MSG_PUB.add;
3743: END IF;
3744: RAISE FND_API.g_exc_error;
3745: END IF;
3746:
3747: -------------------- finish --------------------------
3748: IF FND_API.to_boolean(p_commit) THEN
3744: RAISE FND_API.g_exc_error;
3745: END IF;
3746:
3747: -------------------- finish --------------------------
3748: IF FND_API.to_boolean(p_commit) THEN
3749: COMMIT;
3750: END IF;
3751:
3752: FND_MSG_PUB.count_and_get(
3749: COMMIT;
3750: END IF;
3751:
3752: FND_MSG_PUB.count_and_get(
3753: p_encoded => FND_API.g_false,
3754: p_count => x_msg_count,
3755: p_data => x_msg_data
3756: );
3757:
3759: OZF_Utility_PVT.debug_message(l_full_name ||': end');
3760: END IF;
3761:
3762: EXCEPTION
3763: WHEN FND_API.g_exc_error THEN
3764: ROLLBACK TO Delete_Line_Util;
3765: x_return_status := FND_API.g_ret_sts_error;
3766: FND_MSG_PUB.count_and_get(
3767: p_encoded => FND_API.g_false,
3761:
3762: EXCEPTION
3763: WHEN FND_API.g_exc_error THEN
3764: ROLLBACK TO Delete_Line_Util;
3765: x_return_status := FND_API.g_ret_sts_error;
3766: FND_MSG_PUB.count_and_get(
3767: p_encoded => FND_API.g_false,
3768: p_count => x_msg_count,
3769: p_data => x_msg_data
3763: WHEN FND_API.g_exc_error THEN
3764: ROLLBACK TO Delete_Line_Util;
3765: x_return_status := FND_API.g_ret_sts_error;
3766: FND_MSG_PUB.count_and_get(
3767: p_encoded => FND_API.g_false,
3768: p_count => x_msg_count,
3769: p_data => x_msg_data
3770: );
3771:
3768: p_count => x_msg_count,
3769: p_data => x_msg_data
3770: );
3771:
3772: WHEN FND_API.g_exc_unexpected_error THEN
3773: ROLLBACK TO Delete_Line_Util;
3774: x_return_status := FND_API.g_ret_sts_unexp_error ;
3775: FND_MSG_PUB.count_and_get(
3776: p_encoded => FND_API.g_false,
3770: );
3771:
3772: WHEN FND_API.g_exc_unexpected_error THEN
3773: ROLLBACK TO Delete_Line_Util;
3774: x_return_status := FND_API.g_ret_sts_unexp_error ;
3775: FND_MSG_PUB.count_and_get(
3776: p_encoded => FND_API.g_false,
3777: p_count => x_msg_count,
3778: p_data => x_msg_data
3772: WHEN FND_API.g_exc_unexpected_error THEN
3773: ROLLBACK TO Delete_Line_Util;
3774: x_return_status := FND_API.g_ret_sts_unexp_error ;
3775: FND_MSG_PUB.count_and_get(
3776: p_encoded => FND_API.g_false,
3777: p_count => x_msg_count,
3778: p_data => x_msg_data
3779: );
3780:
3779: );
3780:
3781: WHEN OTHERS THEN
3782: ROLLBACK TO Delete_Line_Util;
3783: x_return_status := FND_API.g_ret_sts_unexp_error ;
3784: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3785: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3786: END IF;
3787: FND_MSG_PUB.count_and_get(
3784: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3785: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3786: END IF;
3787: FND_MSG_PUB.count_and_get(
3788: p_encoded => FND_API.g_false,
3789: p_count => x_msg_count,
3790: p_data => x_msg_data
3791: );
3792:
3854: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3855: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
3856: FND_MSG_PUB.add;
3857: END IF;
3858: RAISE FND_API.g_exc_error;
3859: END IF;
3860: CLOSE csr_line_util;
3861:
3862: IF p_line_util_rec.object_version_number = FND_API.G_MISS_NUM THEN
3858: RAISE FND_API.g_exc_error;
3859: END IF;
3860: CLOSE csr_line_util;
3861:
3862: IF p_line_util_rec.object_version_number = FND_API.G_MISS_NUM THEN
3863: x_complete_rec.object_version_number := NULL;
3864: END IF;
3865: IF p_line_util_rec.object_version_number IS NULL THEN
3866: x_complete_rec.object_version_number := l_line_util_rec.object_version_number;
3865: IF p_line_util_rec.object_version_number IS NULL THEN
3866: x_complete_rec.object_version_number := l_line_util_rec.object_version_number;
3867: END IF;
3868:
3869: IF p_line_util_rec.claim_line_id = FND_API.G_MISS_NUM THEN
3870: x_complete_rec.claim_line_id := NULL;
3871: END IF;
3872: IF p_line_util_rec.claim_line_id IS NULL THEN
3873: x_complete_rec.claim_line_id := l_line_util_rec.claim_line_id;
3872: IF p_line_util_rec.claim_line_id IS NULL THEN
3873: x_complete_rec.claim_line_id := l_line_util_rec.claim_line_id;
3874: END IF;
3875:
3876: IF p_line_util_rec.utilization_id = FND_API.G_MISS_NUM THEN
3877: x_complete_rec.utilization_id := NULL;
3878: END IF;
3879: IF p_line_util_rec.utilization_id IS NULL THEN
3880: x_complete_rec.utilization_id := l_line_util_rec.utilization_id;
3879: IF p_line_util_rec.utilization_id IS NULL THEN
3880: x_complete_rec.utilization_id := l_line_util_rec.utilization_id;
3881: END IF;
3882:
3883: IF p_line_util_rec.amount = FND_API.G_MISS_NUM THEN
3884: x_complete_rec.amount := NULL;
3885: END IF;
3886: IF p_line_util_rec.amount IS NULL THEN
3887: x_complete_rec.amount := l_line_util_rec.amount;
3886: IF p_line_util_rec.amount IS NULL THEN
3887: x_complete_rec.amount := l_line_util_rec.amount;
3888: END IF;
3889:
3890: IF p_line_util_rec.currency_code = FND_API.G_MISS_CHAR THEN
3891: x_complete_rec.currency_code := NULL;
3892: END IF;
3893: IF p_line_util_rec.currency_code IS NULL THEN
3894: x_complete_rec.currency_code := l_line_util_rec.currency_code;
3893: IF p_line_util_rec.currency_code IS NULL THEN
3894: x_complete_rec.currency_code := l_line_util_rec.currency_code;
3895: END IF;
3896:
3897: IF p_line_util_rec.exchange_rate_type = FND_API.G_MISS_CHAR THEN
3898: x_complete_rec.exchange_rate_type := NULL;
3899: END IF;
3900: IF p_line_util_rec.exchange_rate_type IS NULL THEN
3901: x_complete_rec.exchange_rate_type := l_line_util_rec.exchange_rate_type;
3900: IF p_line_util_rec.exchange_rate_type IS NULL THEN
3901: x_complete_rec.exchange_rate_type := l_line_util_rec.exchange_rate_type;
3902: END IF;
3903:
3904: IF p_line_util_rec.exchange_rate_date = FND_API.G_MISS_DATE THEN
3905: x_complete_rec.exchange_rate_date := NULL;
3906: END IF;
3907: IF p_line_util_rec.exchange_rate_date IS NULL THEN
3908: x_complete_rec.exchange_rate_date := l_line_util_rec.exchange_rate_date;
3907: IF p_line_util_rec.exchange_rate_date IS NULL THEN
3908: x_complete_rec.exchange_rate_date := l_line_util_rec.exchange_rate_date;
3909: END IF;
3910:
3911: IF p_line_util_rec.exchange_rate = FND_API.G_MISS_NUM THEN
3912: x_complete_rec.exchange_rate := NULL;
3913: END IF;
3914: IF p_line_util_rec.exchange_rate IS NULL THEN
3915: x_complete_rec.exchange_rate := l_line_util_rec.exchange_rate;
3914: IF p_line_util_rec.exchange_rate IS NULL THEN
3915: x_complete_rec.exchange_rate := l_line_util_rec.exchange_rate;
3916: END IF;
3917:
3918: IF p_line_util_rec.acctd_amount = FND_API.G_MISS_NUM THEN
3919: x_complete_rec.acctd_amount := NULL;
3920: END IF;
3921: IF p_line_util_rec.acctd_amount IS NULL THEN
3922: x_complete_rec.acctd_amount := l_line_util_rec.acctd_amount;
3921: IF p_line_util_rec.acctd_amount IS NULL THEN
3922: x_complete_rec.acctd_amount := l_line_util_rec.acctd_amount;
3923: END IF;
3924:
3925: IF p_line_util_rec.scan_unit = FND_API.G_MISS_NUM THEN
3926: x_complete_rec.scan_unit := NULL;
3927: END IF;
3928: IF p_line_util_rec.scan_unit IS NULL THEN
3929: x_complete_rec.scan_unit := l_line_util_rec.scan_unit;
3928: IF p_line_util_rec.scan_unit IS NULL THEN
3929: x_complete_rec.scan_unit := l_line_util_rec.scan_unit;
3930: END IF;
3931:
3932: IF p_line_util_rec.activity_product_id = FND_API.G_MISS_NUM THEN
3933: x_complete_rec.activity_product_id := NULL;
3934: END IF;
3935: IF p_line_util_rec.activity_product_id IS NULL THEN
3936: x_complete_rec.activity_product_id := l_line_util_rec.activity_product_id;
3935: IF p_line_util_rec.activity_product_id IS NULL THEN
3936: x_complete_rec.activity_product_id := l_line_util_rec.activity_product_id;
3937: END IF;
3938:
3939: IF p_line_util_rec.uom_code = FND_API.G_MISS_CHAR THEN
3940: x_complete_rec.uom_code := NULL;
3941: END IF;
3942: IF p_line_util_rec.uom_code IS NULL THEN
3943: x_complete_rec.uom_code := l_line_util_rec.uom_code;
3942: IF p_line_util_rec.uom_code IS NULL THEN
3943: x_complete_rec.uom_code := l_line_util_rec.uom_code;
3944: END IF;
3945:
3946: IF p_line_util_rec.quantity = FND_API.G_MISS_NUM THEN
3947: x_complete_rec.quantity := NULL;
3948: END IF;
3949: IF p_line_util_rec.quantity IS NULL THEN
3950: x_complete_rec.quantity := l_line_util_rec.quantity;
3949: IF p_line_util_rec.quantity IS NULL THEN
3950: x_complete_rec.quantity := l_line_util_rec.quantity;
3951: END IF;
3952:
3953: IF p_line_util_rec.org_id = FND_API.G_MISS_NUM THEN
3954: x_complete_rec.org_id := NULL;
3955: END IF;
3956: IF p_line_util_rec.org_id IS NULL THEN
3957: x_complete_rec.org_id := l_line_util_rec.org_id;
3956: IF p_line_util_rec.org_id IS NULL THEN
3957: x_complete_rec.org_id := l_line_util_rec.org_id;
3958: END IF;
3959:
3960: IF p_line_util_rec.fxgl_acctd_amount = FND_API.G_MISS_NUM THEN
3961: x_complete_rec.fxgl_acctd_amount := NULL;
3962: END IF;
3963: IF p_line_util_rec.fxgl_acctd_amount IS NULL THEN
3964: x_complete_rec.fxgl_acctd_amount := l_line_util_rec.fxgl_acctd_amount;
3964: x_complete_rec.fxgl_acctd_amount := l_line_util_rec.fxgl_acctd_amount;
3965: END IF;
3966:
3967:
3968: IF p_line_util_rec.utilized_acctd_amount = FND_API.G_MISS_NUM THEN
3969: x_complete_rec.utilized_acctd_amount := NULL;
3970: END IF;
3971: IF p_line_util_rec.utilized_acctd_amount IS NULL THEN
3972: x_complete_rec.utilized_acctd_amount := l_line_util_rec.utilized_acctd_amount;
4041: WHERE org.set_of_books_id = gs.set_of_books_id
4042: AND org.org_id = MO_GLOBAL.GET_CURRENT_ORG_ID();
4043:
4044: BEGIN
4045: x_performance_flag := FND_API.g_true;
4046:
4047: OPEN csr_offer_perfs(p_offer_id);
4048: LOOP
4049: FETCH csr_offer_perfs INTO l_offer_performance_id
4109:
4110: IF l_requirement_type = 'VOLUME' THEN
4111: IF l_uom_code = l_common_uom_code THEN
4112: IF l_common_quantity < l_requirement_value THEN
4113: l_performance_flag := FND_API.g_false;
4114: END IF;
4115: ELSE
4116: l_requirement_value := inv_convert.inv_um_convert(
4117: item_id => NULL
4126: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4127: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CANT_CONVERT_UOM');
4128: FND_MSG_PUB.add;
4129: END IF;
4130: RAISE FND_API.g_exc_error;
4131: END IF;
4132:
4133: IF l_common_quantity < l_requirement_value THEN
4134: l_performance_flag := FND_API.g_false;
4130: RAISE FND_API.g_exc_error;
4131: END IF;
4132:
4133: IF l_common_quantity < l_requirement_value THEN
4134: l_performance_flag := FND_API.g_false;
4135: END IF;
4136: END IF;
4137: ELSIF l_requirement_type = 'AMOUNT' THEN
4138: l_offer_currency := OZF_ACTBUDGETS_PVT.Get_Object_Currency(
4139: p_object => 'OFFR'
4140: ,p_object_id => p_offer_id
4141: ,x_return_status => l_return_status
4142: );
4143: IF l_return_status = FND_API.g_ret_sts_error THEN
4144: RAISE FND_API.g_exc_error;
4145: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4146: RAISE FND_API.g_exc_unexpected_error;
4147: END IF;
4140: ,p_object_id => p_offer_id
4141: ,x_return_status => l_return_status
4142: );
4143: IF l_return_status = FND_API.g_ret_sts_error THEN
4144: RAISE FND_API.g_exc_error;
4145: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4146: RAISE FND_API.g_exc_unexpected_error;
4147: END IF;
4148:
4141: ,x_return_status => l_return_status
4142: );
4143: IF l_return_status = FND_API.g_ret_sts_error THEN
4144: RAISE FND_API.g_exc_error;
4145: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4146: RAISE FND_API.g_exc_unexpected_error;
4147: END IF;
4148:
4149: IF l_offer_currency = l_common_curr_code THEN
4142: );
4143: IF l_return_status = FND_API.g_ret_sts_error THEN
4144: RAISE FND_API.g_exc_error;
4145: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4146: RAISE FND_API.g_exc_unexpected_error;
4147: END IF;
4148:
4149: IF l_offer_currency = l_common_curr_code THEN
4150: IF l_common_amount < l_requirement_value THEN
4147: END IF;
4148:
4149: IF l_offer_currency = l_common_curr_code THEN
4150: IF l_common_amount < l_requirement_value THEN
4151: l_performance_flag := FND_API.g_false;
4152: END IF;
4153: ELSE
4154: OZF_UTILITY_PVT.Convert_Currency(
4155: p_from_currency => l_offer_currency
4158: ,p_from_amount => l_requirement_value
4159: ,x_return_status => l_return_status
4160: ,x_to_amount => l_comm_curr_req_amt
4161: );
4162: IF l_return_status = FND_API.g_ret_sts_error THEN
4163: RAISE FND_API.g_exc_error;
4164: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4165: RAISE FND_API.g_exc_unexpected_error;
4166: END IF;
4159: ,x_return_status => l_return_status
4160: ,x_to_amount => l_comm_curr_req_amt
4161: );
4162: IF l_return_status = FND_API.g_ret_sts_error THEN
4163: RAISE FND_API.g_exc_error;
4164: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4165: RAISE FND_API.g_exc_unexpected_error;
4166: END IF;
4167:
4160: ,x_to_amount => l_comm_curr_req_amt
4161: );
4162: IF l_return_status = FND_API.g_ret_sts_error THEN
4163: RAISE FND_API.g_exc_error;
4164: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4165: RAISE FND_API.g_exc_unexpected_error;
4166: END IF;
4167:
4168: IF l_common_amount < l_comm_curr_req_amt THEN
4161: );
4162: IF l_return_status = FND_API.g_ret_sts_error THEN
4163: RAISE FND_API.g_exc_error;
4164: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4165: RAISE FND_API.g_exc_unexpected_error;
4166: END IF;
4167:
4168: IF l_common_amount < l_comm_curr_req_amt THEN
4169: l_performance_flag := FND_API.g_false;
4165: RAISE FND_API.g_exc_unexpected_error;
4166: END IF;
4167:
4168: IF l_common_amount < l_comm_curr_req_amt THEN
4169: l_performance_flag := FND_API.g_false;
4170: END IF;
4171: END IF;
4172: END IF;
4173: ELSE
4174: -- no rows returned
4175: IF OZF_DEBUG_HIGH_ON THEN
4176: OZF_Utility_PVT.debug_message('No sales transactions found');
4177: END IF;
4178: l_performance_flag := FND_API.g_false;
4179: END IF;
4180: DBMS_SQL.close_cursor(l_emp_csr);
4181:
4182: ELSE
4228:
4229: IF l_requirement_type = 'VOLUME' THEN
4230: IF l_uom_code = l_common_uom_code THEN
4231: IF l_common_quantity < l_requirement_value THEN
4232: l_performance_flag := FND_API.g_false;
4233: END IF;
4234: ELSE
4235: l_requirement_value := inv_convert.inv_um_convert(
4236: item_id => NULL
4245: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4246: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CANT_CONVERT_UOM');
4247: FND_MSG_PUB.add;
4248: END IF;
4249: RAISE FND_API.g_exc_error;
4250: END IF;
4251:
4252: IF l_common_quantity < l_requirement_value THEN
4253: l_performance_flag := FND_API.g_false;
4249: RAISE FND_API.g_exc_error;
4250: END IF;
4251:
4252: IF l_common_quantity < l_requirement_value THEN
4253: l_performance_flag := FND_API.g_false;
4254: END IF;
4255: END IF;
4256: ELSIF l_requirement_type = 'AMOUNT' THEN
4257: l_offer_currency := OZF_ACTBUDGETS_PVT.Get_Object_Currency(
4258: p_object => 'OFFR'
4259: ,p_object_id => p_offer_id
4260: ,x_return_status => l_return_status
4261: );
4262: IF l_return_status = FND_API.g_ret_sts_error THEN
4263: RAISE FND_API.g_exc_error;
4264: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4265: RAISE FND_API.g_exc_unexpected_error;
4266: END IF;
4259: ,p_object_id => p_offer_id
4260: ,x_return_status => l_return_status
4261: );
4262: IF l_return_status = FND_API.g_ret_sts_error THEN
4263: RAISE FND_API.g_exc_error;
4264: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4265: RAISE FND_API.g_exc_unexpected_error;
4266: END IF;
4267:
4260: ,x_return_status => l_return_status
4261: );
4262: IF l_return_status = FND_API.g_ret_sts_error THEN
4263: RAISE FND_API.g_exc_error;
4264: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4265: RAISE FND_API.g_exc_unexpected_error;
4266: END IF;
4267:
4268: OPEN csr_function_currency;
4261: );
4262: IF l_return_status = FND_API.g_ret_sts_error THEN
4263: RAISE FND_API.g_exc_error;
4264: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4265: RAISE FND_API.g_exc_unexpected_error;
4266: END IF;
4267:
4268: OPEN csr_function_currency;
4269: FETCH csr_function_currency INTO l_common_curr_code;
4270: CLOSE csr_function_currency;
4271:
4272: IF l_offer_currency = l_common_curr_code THEN
4273: IF l_common_amount < l_requirement_value THEN
4274: l_performance_flag := FND_API.g_false;
4275: END IF;
4276: ELSE
4277: OZF_UTILITY_PVT.Convert_Currency(
4278: p_from_currency => l_offer_currency
4281: ,p_from_amount => l_requirement_value
4282: ,x_return_status => l_return_status
4283: ,x_to_amount => l_comm_curr_req_amt
4284: );
4285: IF l_return_status = FND_API.g_ret_sts_error THEN
4286: RAISE FND_API.g_exc_error;
4287: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4288: RAISE FND_API.g_exc_unexpected_error;
4289: END IF;
4282: ,x_return_status => l_return_status
4283: ,x_to_amount => l_comm_curr_req_amt
4284: );
4285: IF l_return_status = FND_API.g_ret_sts_error THEN
4286: RAISE FND_API.g_exc_error;
4287: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4288: RAISE FND_API.g_exc_unexpected_error;
4289: END IF;
4290:
4283: ,x_to_amount => l_comm_curr_req_amt
4284: );
4285: IF l_return_status = FND_API.g_ret_sts_error THEN
4286: RAISE FND_API.g_exc_error;
4287: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4288: RAISE FND_API.g_exc_unexpected_error;
4289: END IF;
4290:
4291: IF l_common_amount < l_comm_curr_req_amt THEN
4284: );
4285: IF l_return_status = FND_API.g_ret_sts_error THEN
4286: RAISE FND_API.g_exc_error;
4287: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4288: RAISE FND_API.g_exc_unexpected_error;
4289: END IF;
4290:
4291: IF l_common_amount < l_comm_curr_req_amt THEN
4292: l_performance_flag := FND_API.g_false;
4288: RAISE FND_API.g_exc_unexpected_error;
4289: END IF;
4290:
4291: IF l_common_amount < l_comm_curr_req_amt THEN
4292: l_performance_flag := FND_API.g_false;
4293: END IF;
4294: END IF;
4295: END IF;
4296: ELSE
4297: -- no rows returned
4298: IF OZF_DEBUG_HIGH_ON THEN
4299: OZF_Utility_PVT.debug_message('No sales transactions found');
4300: END IF;
4301: l_performance_flag := FND_API.g_false;
4302: END IF;
4303: DBMS_SQL.close_cursor(l_emp_csr);
4304:
4305: END IF;
4304:
4305: END IF;
4306:
4307: IF l_performance_flag = 'F' THEN
4308: x_performance_flag := FND_API.g_false;
4309:
4310: l_counter := l_counter + 1;
4311: l_offer_perf_tbl(l_counter).offer_id := p_offer_id;
4312: l_offer_perf_tbl(l_counter).offer_performance_id := l_offer_performance_id;
4370: BEGIN
4371: --------------------- initialize -----------------------
4372: SAVEPOINT Settle_Claim;
4373:
4374: x_return_status := FND_API.g_ret_sts_success;
4375:
4376: ----------------- start ----------------
4377: OPEN csr_claim_info(l_claim_id);
4378: FETCH csr_claim_info into l_object_version_number, l_sales_rep_id;
4401: END IF;
4402:
4403: OZF_claim_PVT.Update_claim(
4404: P_Api_Version => l_api_version,
4405: P_Init_Msg_List => FND_API.g_false,
4406: P_Commit => FND_API.g_false,
4407: P_Validation_Level => FND_API.g_valid_level_full,
4408: X_Return_Status => l_return_status,
4409: X_Msg_Count => x_msg_count,
4402:
4403: OZF_claim_PVT.Update_claim(
4404: P_Api_Version => l_api_version,
4405: P_Init_Msg_List => FND_API.g_false,
4406: P_Commit => FND_API.g_false,
4407: P_Validation_Level => FND_API.g_valid_level_full,
4408: X_Return_Status => l_return_status,
4409: X_Msg_Count => x_msg_count,
4410: X_Msg_Data => x_msg_data,
4403: OZF_claim_PVT.Update_claim(
4404: P_Api_Version => l_api_version,
4405: P_Init_Msg_List => FND_API.g_false,
4406: P_Commit => FND_API.g_false,
4407: P_Validation_Level => FND_API.g_valid_level_full,
4408: X_Return_Status => l_return_status,
4409: X_Msg_Count => x_msg_count,
4410: X_Msg_Data => x_msg_data,
4411: P_claim => l_claim_Rec,
4412: p_event => 'UPDATE',
4413: p_mode => OZF_claim_Utility_pvt.G_AUTO_MODE,
4414: X_Object_Version_Number => l_object_version_number
4415: );
4416: IF l_return_status = FND_API.g_ret_sts_error THEN
4417: RAISE FND_API.g_exc_error;
4418: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4419: RAISE FND_API.g_exc_unexpected_error;
4420: END IF;
4413: p_mode => OZF_claim_Utility_pvt.G_AUTO_MODE,
4414: X_Object_Version_Number => l_object_version_number
4415: );
4416: IF l_return_status = FND_API.g_ret_sts_error THEN
4417: RAISE FND_API.g_exc_error;
4418: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4419: RAISE FND_API.g_exc_unexpected_error;
4420: END IF;
4421:
4414: X_Object_Version_Number => l_object_version_number
4415: );
4416: IF l_return_status = FND_API.g_ret_sts_error THEN
4417: RAISE FND_API.g_exc_error;
4418: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4419: RAISE FND_API.g_exc_unexpected_error;
4420: END IF;
4421:
4422: EXCEPTION
4415: );
4416: IF l_return_status = FND_API.g_ret_sts_error THEN
4417: RAISE FND_API.g_exc_error;
4418: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4419: RAISE FND_API.g_exc_unexpected_error;
4420: END IF;
4421:
4422: EXCEPTION
4423: WHEN FND_API.g_exc_error THEN
4419: RAISE FND_API.g_exc_unexpected_error;
4420: END IF;
4421:
4422: EXCEPTION
4423: WHEN FND_API.g_exc_error THEN
4424: ROLLBACK TO Settle_Claim;
4425: x_return_status := FND_API.g_ret_sts_error;
4426: WHEN FND_API.g_exc_unexpected_error THEN
4427: ROLLBACK TO Settle_Claim;
4421:
4422: EXCEPTION
4423: WHEN FND_API.g_exc_error THEN
4424: ROLLBACK TO Settle_Claim;
4425: x_return_status := FND_API.g_ret_sts_error;
4426: WHEN FND_API.g_exc_unexpected_error THEN
4427: ROLLBACK TO Settle_Claim;
4428: x_return_status := FND_API.g_ret_sts_unexp_error ;
4429: WHEN OTHERS THEN
4422: EXCEPTION
4423: WHEN FND_API.g_exc_error THEN
4424: ROLLBACK TO Settle_Claim;
4425: x_return_status := FND_API.g_ret_sts_error;
4426: WHEN FND_API.g_exc_unexpected_error THEN
4427: ROLLBACK TO Settle_Claim;
4428: x_return_status := FND_API.g_ret_sts_unexp_error ;
4429: WHEN OTHERS THEN
4430: ROLLBACK TO Settle_Claim;
4424: ROLLBACK TO Settle_Claim;
4425: x_return_status := FND_API.g_ret_sts_error;
4426: WHEN FND_API.g_exc_unexpected_error THEN
4427: ROLLBACK TO Settle_Claim;
4428: x_return_status := FND_API.g_ret_sts_unexp_error ;
4429: WHEN OTHERS THEN
4430: ROLLBACK TO Settle_Claim;
4431: x_return_status := FND_API.g_ret_sts_unexp_error ;
4432: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
4427: ROLLBACK TO Settle_Claim;
4428: x_return_status := FND_API.g_ret_sts_unexp_error ;
4429: WHEN OTHERS THEN
4430: ROLLBACK TO Settle_Claim;
4431: x_return_status := FND_API.g_ret_sts_unexp_error ;
4432: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
4433: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
4434: END IF;
4435: END Settle_Claim;
4449: -- NOTES
4450: ---------------------------------------------------------------------
4451: PROCEDURE Create_Claim_For_Accruals(
4452: p_api_version IN NUMBER
4453: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
4454: ,p_commit IN VARCHAR2 := FND_API.g_false
4455: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
4456:
4457: ,x_return_status OUT NOCOPY VARCHAR2
4450: ---------------------------------------------------------------------
4451: PROCEDURE Create_Claim_For_Accruals(
4452: p_api_version IN NUMBER
4453: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
4454: ,p_commit IN VARCHAR2 := FND_API.g_false
4455: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
4456:
4457: ,x_return_status OUT NOCOPY VARCHAR2
4458: ,x_msg_count OUT NOCOPY NUMBER
4451: PROCEDURE Create_Claim_For_Accruals(
4452: p_api_version IN NUMBER
4453: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
4454: ,p_commit IN VARCHAR2 := FND_API.g_false
4455: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
4456:
4457: ,x_return_status OUT NOCOPY VARCHAR2
4458: ,x_msg_count OUT NOCOPY NUMBER
4459: ,x_msg_data OUT NOCOPY VARCHAR2
4478: l_product_level_type VARCHAR2(30);
4479: l_product_id NUMBER;
4480: l_amount NUMBER;
4481: l_total_acctd_amount_rem NUMBER;
4482: l_performance_flag VARCHAR2(1) := FND_API.g_true;
4483:
4484: l_emp_csr NUMBER;
4485: l_stmt VARCHAR2(3000);
4486: l_ignore NUMBER;
4521: SELECT exchange_rate_type
4522: FROM ozf_sys_parameters_all
4523: WHERE org_id = MO_GLOBAL.GET_CURRENT_ORG_ID;
4524:
4525: l_exchange_rate_type VARCHAR2(30) := FND_API.G_MISS_CHAR;
4526: l_rate NUMBER;
4527:
4528: BEGIN
4529: --------------------- initialize -----------------------
4532: IF OZF_DEBUG_HIGH_ON THEN
4533: OZF_Utility_PVT.debug_message(l_full_name||': start');
4534: END IF;
4535:
4536: IF FND_API.to_boolean(p_init_msg_list) THEN
4537: FND_MSG_PUB.initialize;
4538: END IF;
4539:
4540: IF NOT FND_API.compatible_api_call(
4536: IF FND_API.to_boolean(p_init_msg_list) THEN
4537: FND_MSG_PUB.initialize;
4538: END IF;
4539:
4540: IF NOT FND_API.compatible_api_call(
4541: l_api_version,
4542: p_api_version,
4543: l_api_name,
4544: g_pkg_name
4543: l_api_name,
4544: g_pkg_name
4545: )
4546: THEN
4547: RAISE FND_API.g_exc_unexpected_error;
4548: END IF;
4549:
4550: x_return_status := FND_API.g_ret_sts_success;
4551:
4546: THEN
4547: RAISE FND_API.g_exc_unexpected_error;
4548: END IF;
4549:
4550: x_return_status := FND_API.g_ret_sts_success;
4551:
4552: -------------------- start -------------------
4553: l_funds_util_flt := p_funds_util_flt;
4554: l_total_acctd_amount_rem := 0;
4554: l_total_acctd_amount_rem := 0;
4555:
4556: Get_Utiz_Sql_Stmt(
4557: p_api_version => 1.0
4558: ,p_init_msg_list => FND_API.g_false
4559: ,p_commit => FND_API.g_false
4560: ,p_validation_level => FND_API.g_valid_level_full
4561: ,x_return_status => l_return_status
4562: ,x_msg_count => x_msg_count
4555:
4556: Get_Utiz_Sql_Stmt(
4557: p_api_version => 1.0
4558: ,p_init_msg_list => FND_API.g_false
4559: ,p_commit => FND_API.g_false
4560: ,p_validation_level => FND_API.g_valid_level_full
4561: ,x_return_status => l_return_status
4562: ,x_msg_count => x_msg_count
4563: ,x_msg_data => x_msg_data
4556: Get_Utiz_Sql_Stmt(
4557: p_api_version => 1.0
4558: ,p_init_msg_list => FND_API.g_false
4559: ,p_commit => FND_API.g_false
4560: ,p_validation_level => FND_API.g_valid_level_full
4561: ,x_return_status => l_return_status
4562: ,x_msg_count => x_msg_count
4563: ,x_msg_data => x_msg_data
4564: ,p_summary_view => 'AUTOPAY_LINE'
4566: ,p_cust_account_id => l_funds_util_flt.cust_account_id
4567: ,x_utiz_sql_stmt => l_stmt
4568: );
4569:
4570: IF l_return_status = FND_API.g_ret_sts_error THEN
4571: RAISE FND_API.g_exc_error;
4572: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4573: RAISE FND_API.g_exc_error;
4574: END IF;
4567: ,x_utiz_sql_stmt => l_stmt
4568: );
4569:
4570: IF l_return_status = FND_API.g_ret_sts_error THEN
4571: RAISE FND_API.g_exc_error;
4572: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4573: RAISE FND_API.g_exc_error;
4574: END IF;
4575:
4568: );
4569:
4570: IF l_return_status = FND_API.g_ret_sts_error THEN
4571: RAISE FND_API.g_exc_error;
4572: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4573: RAISE FND_API.g_exc_error;
4574: END IF;
4575:
4576: l_emp_csr := DBMS_SQL.open_cursor;
4569:
4570: IF l_return_status = FND_API.g_ret_sts_error THEN
4571: RAISE FND_API.g_exc_error;
4572: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4573: RAISE FND_API.g_exc_error;
4574: END IF;
4575:
4576: l_emp_csr := DBMS_SQL.open_cursor;
4577: FND_DSQL.set_cursor(l_emp_csr);
4616: ,x_return_status => l_return_status
4617: ,x_to_amount => l_amount -- amount in claim currency
4618: ,x_rate => l_rate
4619: );
4620: IF l_return_status = FND_API.g_ret_sts_error THEN
4621: RAISE FND_API.g_exc_error;
4622: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4623: RAISE FND_API.g_exc_unexpected_error;
4624: END IF;
4617: ,x_to_amount => l_amount -- amount in claim currency
4618: ,x_rate => l_rate
4619: );
4620: IF l_return_status = FND_API.g_ret_sts_error THEN
4621: RAISE FND_API.g_exc_error;
4622: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4623: RAISE FND_API.g_exc_unexpected_error;
4624: END IF;
4625: END IF;
4618: ,x_rate => l_rate
4619: );
4620: IF l_return_status = FND_API.g_ret_sts_error THEN
4621: RAISE FND_API.g_exc_error;
4622: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4623: RAISE FND_API.g_exc_unexpected_error;
4624: END IF;
4625: END IF;
4626:
4619: );
4620: IF l_return_status = FND_API.g_ret_sts_error THEN
4621: RAISE FND_API.g_exc_error;
4622: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4623: RAISE FND_API.g_exc_unexpected_error;
4624: END IF;
4625: END IF;
4626:
4627: IF l_amount IS NOT NULL AND l_amount <> 0 THEN
4655:
4656: --R12.1 enhancements. Added condition so that earnings accrued only against
4657: --the respective bill_to_site_id should be added.
4658:
4659: IF l_performance_flag = FND_API.g_true THEN
4660: IF l_bill_to_site_id IS NOT NULL
4661: AND l_bill_to_site_id = l_funds_util_flt.bill_to_site_use_id THEN --nirma
4662:
4663: -- assume single currency for now; add multi-curr later
4679: FND_MESSAGE.Set_Name('OZF', 'OZF_PRODUCT_UOM_MISSING');
4680: FND_MESSAGE.Set_Token('ITEM_ID', l_line_tbl(l_counter).item_id);
4681: FND_MSG_PUB.ADD;
4682: END IF;
4683: RAISE FND_API.g_exc_unexpected_error;
4684: END IF;
4685: CLOSE csr_uom_code;
4686: END IF;
4687:
4692: FETCH csr_offer_perf INTO l_dummy;
4693: CLOSE csr_offer_perf;
4694:
4695: IF l_dummy = 1 THEN
4696: l_line_tbl(l_counter).performance_attached_flag := FND_API.G_TRUE;
4697: l_line_tbl(l_counter).performance_complete_flag := FND_API.G_TRUE;
4698: END IF;
4699: END IF;
4700:
4693: CLOSE csr_offer_perf;
4694:
4695: IF l_dummy = 1 THEN
4696: l_line_tbl(l_counter).performance_attached_flag := FND_API.G_TRUE;
4697: l_line_tbl(l_counter).performance_complete_flag := FND_API.G_TRUE;
4698: END IF;
4699: END IF;
4700:
4701: l_counter := l_counter + 1;
4720: FND_MESSAGE.Set_Name('OZF', 'OZF_PRODUCT_UOM_MISSING');
4721: FND_MESSAGE.Set_Token('ITEM_ID', l_line_tbl(l_counter).item_id);
4722: FND_MSG_PUB.ADD;
4723: END IF;
4724: RAISE FND_API.g_exc_unexpected_error;
4725: END IF;
4726: CLOSE csr_uom_code;
4727: END IF;
4728:
4737: FETCH csr_offer_perf INTO l_dummy;
4738: CLOSE csr_offer_perf;
4739:
4740: IF l_dummy = 1 THEN
4741: l_line_tbl(l_counter).performance_attached_flag := FND_API.G_TRUE;
4742: l_line_tbl(l_counter).performance_complete_flag := FND_API.G_TRUE;
4743: END IF;
4744: END IF;
4745:
4738: CLOSE csr_offer_perf;
4739:
4740: IF l_dummy = 1 THEN
4741: l_line_tbl(l_counter).performance_attached_flag := FND_API.G_TRUE;
4742: l_line_tbl(l_counter).performance_complete_flag := FND_API.G_TRUE;
4743: END IF;
4744: END IF;
4745:
4746: l_counter := l_counter + 1;
4776: ,x_msg_count => x_msg_count
4777: ,p_claim => l_claim_rec
4778: ,x_claim_id => l_claim_id
4779: );
4780: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4781: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4782: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4783: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4784: END IF;
4777: ,p_claim => l_claim_rec
4778: ,x_claim_id => l_claim_id
4779: );
4780: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4781: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4782: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4783: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4784: END IF;
4785:
4778: ,x_claim_id => l_claim_id
4779: );
4780: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4781: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4782: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4783: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4784: END IF;
4785:
4786: IF OZF_DEBUG_HIGH_ON THEN
4779: );
4780: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4781: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4782: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4783: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4784: END IF;
4785:
4786: IF OZF_DEBUG_HIGH_ON THEN
4787: OZF_Utility_PVT.debug_message('Claim created id: ' || l_claim_id);
4794: END LOOP;
4795:
4796: OZF_CLAIM_LINE_PVT.Create_Claim_Line_Tbl(
4797: p_api_version => 1.0
4798: ,p_init_msg_list => FND_API.g_false
4799: ,p_commit => FND_API.g_false
4800: ,p_validation_level => FND_API.g_valid_level_full
4801: ,x_return_status => l_return_status
4802: ,x_msg_count => x_msg_count
4795:
4796: OZF_CLAIM_LINE_PVT.Create_Claim_Line_Tbl(
4797: p_api_version => 1.0
4798: ,p_init_msg_list => FND_API.g_false
4799: ,p_commit => FND_API.g_false
4800: ,p_validation_level => FND_API.g_valid_level_full
4801: ,x_return_status => l_return_status
4802: ,x_msg_count => x_msg_count
4803: ,x_msg_data => x_msg_data
4796: OZF_CLAIM_LINE_PVT.Create_Claim_Line_Tbl(
4797: p_api_version => 1.0
4798: ,p_init_msg_list => FND_API.g_false
4799: ,p_commit => FND_API.g_false
4800: ,p_validation_level => FND_API.g_valid_level_full
4801: ,x_return_status => l_return_status
4802: ,x_msg_count => x_msg_count
4803: ,x_msg_data => x_msg_data
4804: ,p_claim_line_tbl => l_line_tbl
4803: ,x_msg_data => x_msg_data
4804: ,p_claim_line_tbl => l_line_tbl
4805: ,x_error_index => l_error_index
4806: );
4807: IF l_return_status = FND_API.g_ret_sts_error THEN
4808: RAISE FND_API.g_exc_error;
4809: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4810: RAISE FND_API.g_exc_error;
4811: END IF;
4804: ,p_claim_line_tbl => l_line_tbl
4805: ,x_error_index => l_error_index
4806: );
4807: IF l_return_status = FND_API.g_ret_sts_error THEN
4808: RAISE FND_API.g_exc_error;
4809: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4810: RAISE FND_API.g_exc_error;
4811: END IF;
4812:
4805: ,x_error_index => l_error_index
4806: );
4807: IF l_return_status = FND_API.g_ret_sts_error THEN
4808: RAISE FND_API.g_exc_error;
4809: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4810: RAISE FND_API.g_exc_error;
4811: END IF;
4812:
4813: IF OZF_DEBUG_HIGH_ON THEN
4806: );
4807: IF l_return_status = FND_API.g_ret_sts_error THEN
4808: RAISE FND_API.g_exc_error;
4809: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4810: RAISE FND_API.g_exc_error;
4811: END IF;
4812:
4813: IF OZF_DEBUG_HIGH_ON THEN
4814: OZF_Utility_PVT.debug_message('Claim lines created for claim_id=' || l_claim_id);
4825: EXIT WHEN csr_claim_line%NOTFOUND;
4826:
4827: Update_Group_Line_Util(
4828: p_api_version => 1.0
4829: ,p_init_msg_list => FND_API.g_false
4830: ,p_commit => FND_API.g_false
4831: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
4832: ,x_return_status => l_return_status
4833: ,x_msg_count => x_msg_count
4826:
4827: Update_Group_Line_Util(
4828: p_api_version => 1.0
4829: ,p_init_msg_list => FND_API.g_false
4830: ,p_commit => FND_API.g_false
4831: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
4832: ,x_return_status => l_return_status
4833: ,x_msg_count => x_msg_count
4834: ,x_msg_data => x_msg_data
4827: Update_Group_Line_Util(
4828: p_api_version => 1.0
4829: ,p_init_msg_list => FND_API.g_false
4830: ,p_commit => FND_API.g_false
4831: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
4832: ,x_return_status => l_return_status
4833: ,x_msg_count => x_msg_count
4834: ,x_msg_data => x_msg_data
4835: ,p_summary_view => 'ACTIVITY'
4834: ,x_msg_data => x_msg_data
4835: ,p_summary_view => 'ACTIVITY'
4836: ,p_funds_util_flt => l_funds_util_flt
4837: );
4838: IF l_return_status = FND_API.g_ret_sts_error THEN
4839: RAISE FND_API.g_exc_error;
4840: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4841: RAISE FND_API.g_exc_error;
4842: END IF;
4835: ,p_summary_view => 'ACTIVITY'
4836: ,p_funds_util_flt => l_funds_util_flt
4837: );
4838: IF l_return_status = FND_API.g_ret_sts_error THEN
4839: RAISE FND_API.g_exc_error;
4840: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4841: RAISE FND_API.g_exc_error;
4842: END IF;
4843: END LOOP;
4836: ,p_funds_util_flt => l_funds_util_flt
4837: );
4838: IF l_return_status = FND_API.g_ret_sts_error THEN
4839: RAISE FND_API.g_exc_error;
4840: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4841: RAISE FND_API.g_exc_error;
4842: END IF;
4843: END LOOP;
4844: CLOSE csr_claim_line;
4837: );
4838: IF l_return_status = FND_API.g_ret_sts_error THEN
4839: RAISE FND_API.g_exc_error;
4840: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4841: RAISE FND_API.g_exc_error;
4842: END IF;
4843: END LOOP;
4844: CLOSE csr_claim_line;
4845: ELSIF l_claim_rec.created_from = 'PROMO_CLAIM' and l_claim_rec.amount <> 0 THEN
4852: FND_MESSAGE.Set_Name('OZF', 'OZF_ACCRUAL_SCAN_DATA_ERROR');
4853: FND_MSG_PUB.ADD;
4854: END IF;
4855:
4856: RAISE FND_API.g_exc_unexpected_error;
4857: ELSE
4858: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4859: FND_MESSAGE.Set_Name('OZF', 'OZF_ACCRUAL_REM_AMOUNT_LT_ZERO');
4860: FND_MSG_PUB.ADD;
4858: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4859: FND_MESSAGE.Set_Name('OZF', 'OZF_ACCRUAL_REM_AMOUNT_LT_ZERO');
4860: FND_MSG_PUB.ADD;
4861: END IF;
4862: RAISE FND_API.g_exc_unexpected_error;
4863: END IF;
4864:
4865: x_claim_id := l_claim_id;
4866:
4865: x_claim_id := l_claim_id;
4866:
4867: ------------------------- finish -------------------------------
4868: -- Check for commit
4869: IF FND_API.to_boolean(p_commit) THEN
4870: COMMIT;
4871: END IF;
4872:
4873: FND_MSG_PUB.count_and_get(
4870: COMMIT;
4871: END IF;
4872:
4873: FND_MSG_PUB.count_and_get(
4874: p_encoded => FND_API.g_false,
4875: p_count => x_msg_count,
4876: p_data => x_msg_data
4877: );
4878:
4880: OZF_Utility_PVT.debug_message(l_full_name ||': end');
4881: END IF;
4882:
4883: EXCEPTION
4884: WHEN FND_API.g_exc_error THEN
4885: ROLLBACK TO Create_Claim_For_Accruals;
4886: x_return_status := FND_API.g_ret_sts_error;
4887: FND_MSG_PUB.count_and_get (
4888: p_encoded => FND_API.g_false
4882:
4883: EXCEPTION
4884: WHEN FND_API.g_exc_error THEN
4885: ROLLBACK TO Create_Claim_For_Accruals;
4886: x_return_status := FND_API.g_ret_sts_error;
4887: FND_MSG_PUB.count_and_get (
4888: p_encoded => FND_API.g_false
4889: ,p_count => x_msg_count
4890: ,p_data => x_msg_data
4884: WHEN FND_API.g_exc_error THEN
4885: ROLLBACK TO Create_Claim_For_Accruals;
4886: x_return_status := FND_API.g_ret_sts_error;
4887: FND_MSG_PUB.count_and_get (
4888: p_encoded => FND_API.g_false
4889: ,p_count => x_msg_count
4890: ,p_data => x_msg_data
4891: );
4892:
4889: ,p_count => x_msg_count
4890: ,p_data => x_msg_data
4891: );
4892:
4893: WHEN FND_API.g_exc_unexpected_error THEN
4894: ROLLBACK TO Create_Claim_For_Accruals;
4895: x_return_status := FND_API.g_ret_sts_unexp_error ;
4896: FND_MSG_PUB.count_and_get (
4897: p_encoded => FND_API.g_false
4891: );
4892:
4893: WHEN FND_API.g_exc_unexpected_error THEN
4894: ROLLBACK TO Create_Claim_For_Accruals;
4895: x_return_status := FND_API.g_ret_sts_unexp_error ;
4896: FND_MSG_PUB.count_and_get (
4897: p_encoded => FND_API.g_false
4898: ,p_count => x_msg_count
4899: ,p_data => x_msg_data
4893: WHEN FND_API.g_exc_unexpected_error THEN
4894: ROLLBACK TO Create_Claim_For_Accruals;
4895: x_return_status := FND_API.g_ret_sts_unexp_error ;
4896: FND_MSG_PUB.count_and_get (
4897: p_encoded => FND_API.g_false
4898: ,p_count => x_msg_count
4899: ,p_data => x_msg_data
4900: );
4901:
4900: );
4901:
4902: WHEN OTHERS THEN
4903: ROLLBACK TO Create_Claim_For_Accruals;
4904: x_return_status := FND_API.g_ret_sts_unexp_error ;
4905: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
4906: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
4907: END IF;
4908: FND_MSG_PUB.count_and_get(
4905: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
4906: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
4907: END IF;
4908: FND_MSG_PUB.count_and_get(
4909: p_encoded => FND_API.g_false
4910: ,p_count => x_msg_count
4911: ,p_data => x_msg_data
4912: );
4913:
4929: -- NOTES
4930: ---------------------------------------------------------------------
4931: PROCEDURE Pay_Claim_For_Accruals(
4932: p_api_version IN NUMBER
4933: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
4934: ,p_commit IN VARCHAR2 := FND_API.g_false
4935: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
4936:
4937: ,x_return_status OUT NOCOPY VARCHAR2
4930: ---------------------------------------------------------------------
4931: PROCEDURE Pay_Claim_For_Accruals(
4932: p_api_version IN NUMBER
4933: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
4934: ,p_commit IN VARCHAR2 := FND_API.g_false
4935: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
4936:
4937: ,x_return_status OUT NOCOPY VARCHAR2
4938: ,x_msg_count OUT NOCOPY NUMBER
4931: PROCEDURE Pay_Claim_For_Accruals(
4932: p_api_version IN NUMBER
4933: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
4934: ,p_commit IN VARCHAR2 := FND_API.g_false
4935: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
4936:
4937: ,x_return_status OUT NOCOPY VARCHAR2
4938: ,x_msg_count OUT NOCOPY NUMBER
4939: ,x_msg_data OUT NOCOPY VARCHAR2
4969: IF OZF_DEBUG_HIGH_ON THEN
4970: OZF_Utility_PVT.debug_message(l_full_name||': start');
4971: END IF;
4972:
4973: IF FND_API.to_boolean(p_init_msg_list) THEN
4974: FND_MSG_PUB.initialize;
4975: END IF;
4976:
4977: IF NOT FND_API.compatible_api_call(
4973: IF FND_API.to_boolean(p_init_msg_list) THEN
4974: FND_MSG_PUB.initialize;
4975: END IF;
4976:
4977: IF NOT FND_API.compatible_api_call(
4978: l_api_version,
4979: p_api_version,
4980: l_api_name,
4981: g_pkg_name
4979: p_api_version,
4980: l_api_name,
4981: g_pkg_name
4982: ) THEN
4983: RAISE FND_API.g_exc_unexpected_error;
4984: END IF;
4985:
4986: x_return_status := FND_API.g_ret_sts_success;
4987:
4982: ) THEN
4983: RAISE FND_API.g_exc_unexpected_error;
4984: END IF;
4985:
4986: x_return_status := FND_API.g_ret_sts_success;
4987:
4988: ----------------- start ----------------
4989: l_claim_rec := p_claim_rec;
4990:
5002: Validate_Cust_Trade_Profile(
5003: p_cust_trade_profile => l_cust_trade_profile
5004: ,x_return_status => l_return_status
5005: );
5006: IF l_return_status = FND_API.g_ret_sts_error or
5007: l_return_status = FND_API.g_ret_sts_unexp_error THEN
5008: -- trade profile has errors. do not close claim in batch process
5009: -- and raise error in other cases
5010: IF l_claim_rec.source_object_class = OZF_RESALE_COMMON_PVT.G_BATCH_OBJECT_CLASS THEN
5003: p_cust_trade_profile => l_cust_trade_profile
5004: ,x_return_status => l_return_status
5005: );
5006: IF l_return_status = FND_API.g_ret_sts_error or
5007: l_return_status = FND_API.g_ret_sts_unexp_error THEN
5008: -- trade profile has errors. do not close claim in batch process
5009: -- and raise error in other cases
5010: IF l_claim_rec.source_object_class = OZF_RESALE_COMMON_PVT.G_BATCH_OBJECT_CLASS THEN
5011: l_close_claim_flag := 'F';
5009: -- and raise error in other cases
5010: IF l_claim_rec.source_object_class = OZF_RESALE_COMMON_PVT.G_BATCH_OBJECT_CLASS THEN
5011: l_close_claim_flag := 'F';
5012: ELSE
5013: RAISE FND_API.g_exc_unexpected_error;
5014: END IF;
5015: END IF;
5016:
5017: -- [BEGIN OF BUG 4217781 FIXING]
5020: l_close_claim_flag := 'F';
5021: END IF;
5022: -- [END OF BUG 4217781 FIXING]
5023:
5024: IF l_cust_trade_profile.payment_method <> FND_API.G_MISS_CHAR THEN -- [BUG 4217781 FIXING]
5025: l_claim_rec.payment_method := l_cust_trade_profile.payment_method;
5026: END IF;
5027: l_claim_rec.cust_billto_acct_site_id := l_cust_trade_profile.site_use_id;
5028: l_claim_rec.vendor_id := l_cust_trade_profile.vendor_id;
5041: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_NO_TRADE_PROFILE');
5042: FND_MESSAGE.Set_Token('CUST_NAME', l_party_name);
5043: FND_MSG_PUB.ADD;
5044: END IF;
5045: RAISE FND_API.g_exc_unexpected_error;
5046: END IF;
5047: END IF;
5048: END IF;
5049:
5054: END IF;
5055:
5056: Create_Claim_For_Accruals(
5057: p_api_version => l_api_version
5058: ,p_init_msg_list => FND_API.g_false
5059: ,p_commit => FND_API.g_false
5060: ,p_validation_level => p_validation_level
5061: ,x_return_status => l_return_status
5062: ,x_msg_count => x_msg_count
5055:
5056: Create_Claim_For_Accruals(
5057: p_api_version => l_api_version
5058: ,p_init_msg_list => FND_API.g_false
5059: ,p_commit => FND_API.g_false
5060: ,p_validation_level => p_validation_level
5061: ,x_return_status => l_return_status
5062: ,x_msg_count => x_msg_count
5063: ,x_msg_data => x_msg_data
5065: ,p_funds_util_flt => p_funds_util_flt
5066: ,x_claim_id => l_claim_id
5067: );
5068:
5069: IF l_return_status = fnd_api.g_ret_sts_error THEN
5070: RAISE FND_API.g_exc_error;
5071: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5072: RAISE FND_API.g_exc_unexpected_error;
5073: END IF;
5066: ,x_claim_id => l_claim_id
5067: );
5068:
5069: IF l_return_status = fnd_api.g_ret_sts_error THEN
5070: RAISE FND_API.g_exc_error;
5071: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5072: RAISE FND_API.g_exc_unexpected_error;
5073: END IF;
5074:
5067: );
5068:
5069: IF l_return_status = fnd_api.g_ret_sts_error THEN
5070: RAISE FND_API.g_exc_error;
5071: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5072: RAISE FND_API.g_exc_unexpected_error;
5073: END IF;
5074:
5075: IF l_close_claim_flag = 'T' THEN
5068:
5069: IF l_return_status = fnd_api.g_ret_sts_error THEN
5070: RAISE FND_API.g_exc_error;
5071: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5072: RAISE FND_API.g_exc_unexpected_error;
5073: END IF;
5074:
5075: IF l_close_claim_flag = 'T' THEN
5076: Settle_Claim(
5078: ,x_return_status => l_return_status
5079: ,x_msg_count => x_msg_count
5080: ,x_msg_data => x_msg_data
5081: );
5082: IF l_return_status = fnd_api.g_ret_sts_error THEN
5083: RAISE FND_API.g_exc_error;
5084: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5085: RAISE FND_API.g_exc_unexpected_error;
5086: END IF;
5079: ,x_msg_count => x_msg_count
5080: ,x_msg_data => x_msg_data
5081: );
5082: IF l_return_status = fnd_api.g_ret_sts_error THEN
5083: RAISE FND_API.g_exc_error;
5084: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5085: RAISE FND_API.g_exc_unexpected_error;
5086: END IF;
5087: END IF;
5080: ,x_msg_data => x_msg_data
5081: );
5082: IF l_return_status = fnd_api.g_ret_sts_error THEN
5083: RAISE FND_API.g_exc_error;
5084: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5085: RAISE FND_API.g_exc_unexpected_error;
5086: END IF;
5087: END IF;
5088:
5081: );
5082: IF l_return_status = fnd_api.g_ret_sts_error THEN
5083: RAISE FND_API.g_exc_error;
5084: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5085: RAISE FND_API.g_exc_unexpected_error;
5086: END IF;
5087: END IF;
5088:
5089: x_claim_id := l_claim_id;
5089: x_claim_id := l_claim_id;
5090:
5091: ------------------------- finish -------------------------------
5092: -- Check for commit
5093: IF FND_API.to_boolean(p_commit) THEN
5094: COMMIT;
5095: END IF;
5096:
5097: FND_MSG_PUB.count_and_get(
5094: COMMIT;
5095: END IF;
5096:
5097: FND_MSG_PUB.count_and_get(
5098: p_encoded => FND_API.g_false,
5099: p_count => x_msg_count,
5100: p_data => x_msg_data
5101: );
5102:
5104: OZF_Utility_PVT.debug_message(l_full_name ||': end');
5105: END IF;
5106:
5107: EXCEPTION
5108: WHEN FND_API.g_exc_error THEN
5109: ROLLBACK TO Pay_Claim_For_Accruals;
5110: x_return_status := FND_API.g_ret_sts_error;
5111: FND_MSG_PUB.count_and_get (
5112: p_encoded => FND_API.g_false
5106:
5107: EXCEPTION
5108: WHEN FND_API.g_exc_error THEN
5109: ROLLBACK TO Pay_Claim_For_Accruals;
5110: x_return_status := FND_API.g_ret_sts_error;
5111: FND_MSG_PUB.count_and_get (
5112: p_encoded => FND_API.g_false
5113: ,p_count => x_msg_count
5114: ,p_data => x_msg_data
5108: WHEN FND_API.g_exc_error THEN
5109: ROLLBACK TO Pay_Claim_For_Accruals;
5110: x_return_status := FND_API.g_ret_sts_error;
5111: FND_MSG_PUB.count_and_get (
5112: p_encoded => FND_API.g_false
5113: ,p_count => x_msg_count
5114: ,p_data => x_msg_data
5115: );
5116:
5113: ,p_count => x_msg_count
5114: ,p_data => x_msg_data
5115: );
5116:
5117: WHEN FND_API.g_exc_unexpected_error THEN
5118: ROLLBACK TO Pay_Claim_For_Accruals;
5119: x_return_status := FND_API.g_ret_sts_unexp_error ;
5120: FND_MSG_PUB.count_and_get (
5121: p_encoded => FND_API.g_false
5115: );
5116:
5117: WHEN FND_API.g_exc_unexpected_error THEN
5118: ROLLBACK TO Pay_Claim_For_Accruals;
5119: x_return_status := FND_API.g_ret_sts_unexp_error ;
5120: FND_MSG_PUB.count_and_get (
5121: p_encoded => FND_API.g_false
5122: ,p_count => x_msg_count
5123: ,p_data => x_msg_data
5117: WHEN FND_API.g_exc_unexpected_error THEN
5118: ROLLBACK TO Pay_Claim_For_Accruals;
5119: x_return_status := FND_API.g_ret_sts_unexp_error ;
5120: FND_MSG_PUB.count_and_get (
5121: p_encoded => FND_API.g_false
5122: ,p_count => x_msg_count
5123: ,p_data => x_msg_data
5124: );
5125:
5124: );
5125:
5126: WHEN OTHERS THEN
5127: ROLLBACK TO Pay_Claim_For_Accruals;
5128: x_return_status := FND_API.g_ret_sts_unexp_error ;
5129: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5130: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
5131: END IF;
5132: FND_MSG_PUB.count_and_get(
5129: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5130: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
5131: END IF;
5132: FND_MSG_PUB.count_and_get(
5133: p_encoded => FND_API.g_false
5134: ,p_count => x_msg_count
5135: ,p_data => x_msg_data
5136: );
5137:
5152: -- NOTES
5153: ---------------------------------------------------------------------
5154: PROCEDURE Asso_Accruals_To_Claim(
5155: p_api_version IN NUMBER
5156: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
5157: ,p_commit IN VARCHAR2 := FND_API.g_false
5158: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
5159:
5160: ,x_return_status OUT NOCOPY VARCHAR2
5153: ---------------------------------------------------------------------
5154: PROCEDURE Asso_Accruals_To_Claim(
5155: p_api_version IN NUMBER
5156: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
5157: ,p_commit IN VARCHAR2 := FND_API.g_false
5158: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
5159:
5160: ,x_return_status OUT NOCOPY VARCHAR2
5161: ,x_msg_count OUT NOCOPY NUMBER
5154: PROCEDURE Asso_Accruals_To_Claim(
5155: p_api_version IN NUMBER
5156: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
5157: ,p_commit IN VARCHAR2 := FND_API.g_false
5158: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
5159:
5160: ,x_return_status OUT NOCOPY VARCHAR2
5161: ,x_msg_count OUT NOCOPY NUMBER
5162: ,x_msg_data OUT NOCOPY VARCHAR2
5231: IF OZF_DEBUG_HIGH_ON THEN
5232: OZF_Utility_PVT.debug_message(l_full_name||': start');
5233: END IF;
5234:
5235: IF FND_API.to_boolean(p_init_msg_list) THEN
5236: FND_MSG_PUB.initialize;
5237: END IF;
5238:
5239: IF NOT FND_API.compatible_api_call(
5235: IF FND_API.to_boolean(p_init_msg_list) THEN
5236: FND_MSG_PUB.initialize;
5237: END IF;
5238:
5239: IF NOT FND_API.compatible_api_call(
5240: l_api_version,
5241: p_api_version,
5242: l_api_name,
5243: g_pkg_name
5241: p_api_version,
5242: l_api_name,
5243: g_pkg_name
5244: ) THEN
5245: RAISE FND_API.g_exc_unexpected_error;
5246: END IF;
5247:
5248: x_return_status := FND_API.g_ret_sts_success;
5249:
5244: ) THEN
5245: RAISE FND_API.g_exc_unexpected_error;
5246: END IF;
5247:
5248: x_return_status := FND_API.g_ret_sts_success;
5249:
5250: ----------------- start ----------------
5251: -- verify the claim exists
5252: OPEN csr_claim_info(p_claim_id);
5257: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_ID_NOT_EXIST');
5258: FND_MESSAGE.Set_Token('CLAIM_ID', p_claim_id);
5259: FND_MSG_PUB.ADD;
5260: END IF;
5261: RAISE FND_API.g_exc_unexpected_error;
5262: END IF;
5263: CLOSE csr_claim_info;
5264:
5265: -- default cust_account_id if not given in parameters
5277: END IF;
5278:
5279: Get_Utiz_Sql_Stmt(
5280: p_api_version => 1.0
5281: ,p_init_msg_list => FND_API.g_false
5282: ,p_commit => FND_API.g_false
5283: ,p_validation_level => FND_API.g_valid_level_full
5284: ,x_return_status => l_return_status
5285: ,x_msg_count => x_msg_count
5278:
5279: Get_Utiz_Sql_Stmt(
5280: p_api_version => 1.0
5281: ,p_init_msg_list => FND_API.g_false
5282: ,p_commit => FND_API.g_false
5283: ,p_validation_level => FND_API.g_valid_level_full
5284: ,x_return_status => l_return_status
5285: ,x_msg_count => x_msg_count
5286: ,x_msg_data => x_msg_data
5279: Get_Utiz_Sql_Stmt(
5280: p_api_version => 1.0
5281: ,p_init_msg_list => FND_API.g_false
5282: ,p_commit => FND_API.g_false
5283: ,p_validation_level => FND_API.g_valid_level_full
5284: ,x_return_status => l_return_status
5285: ,x_msg_count => x_msg_count
5286: ,x_msg_data => x_msg_data
5287: ,p_summary_view => 'AUTOPAY_LINE'
5289: ,p_cust_account_id => l_funds_util_flt.cust_account_id
5290: ,x_utiz_sql_stmt => l_stmt
5291: );
5292:
5293: IF l_return_status = FND_API.g_ret_sts_error THEN
5294: RAISE FND_API.g_exc_error;
5295: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5296: RAISE FND_API.g_exc_error;
5297: END IF;
5290: ,x_utiz_sql_stmt => l_stmt
5291: );
5292:
5293: IF l_return_status = FND_API.g_ret_sts_error THEN
5294: RAISE FND_API.g_exc_error;
5295: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5296: RAISE FND_API.g_exc_error;
5297: END IF;
5298:
5291: );
5292:
5293: IF l_return_status = FND_API.g_ret_sts_error THEN
5294: RAISE FND_API.g_exc_error;
5295: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5296: RAISE FND_API.g_exc_error;
5297: END IF;
5298:
5299: l_emp_csr := DBMS_SQL.open_cursor;
5292:
5293: IF l_return_status = FND_API.g_ret_sts_error THEN
5294: RAISE FND_API.g_exc_error;
5295: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5296: RAISE FND_API.g_exc_error;
5297: END IF;
5298:
5299: l_emp_csr := DBMS_SQL.open_cursor;
5300: FND_DSQL.set_cursor(l_emp_csr);
5360: FND_MESSAGE.Set_Name('OZF', 'OZF_PRODUCT_UOM_MISSING');
5361: FND_MESSAGE.Set_Token('ITEM_ID', l_product_id);
5362: FND_MSG_PUB.ADD;
5363: END IF;
5364: RAISE FND_API.g_exc_unexpected_error;
5365: END IF;
5366: CLOSE csr_uom_code;
5367: END IF;
5368:
5372: , p_funds_util_flt => l_funds_util_flt
5373: , x_return_status => l_return_status
5374: );
5375:
5376: IF l_return_status = FND_API.g_ret_sts_error THEN
5377: RAISE FND_API.g_exc_error;
5378: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5379: RAISE FND_API.g_exc_error;
5380: END IF;
5373: , x_return_status => l_return_status
5374: );
5375:
5376: IF l_return_status = FND_API.g_ret_sts_error THEN
5377: RAISE FND_API.g_exc_error;
5378: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5379: RAISE FND_API.g_exc_error;
5380: END IF;
5381:
5374: );
5375:
5376: IF l_return_status = FND_API.g_ret_sts_error THEN
5377: RAISE FND_API.g_exc_error;
5378: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5379: RAISE FND_API.g_exc_error;
5380: END IF;
5381:
5382: IF l_dummy = FND_API.G_TRUE THEN
5375:
5376: IF l_return_status = FND_API.g_ret_sts_error THEN
5377: RAISE FND_API.g_exc_error;
5378: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5379: RAISE FND_API.g_exc_error;
5380: END IF;
5381:
5382: IF l_dummy = FND_API.G_TRUE THEN
5383: l_line_tbl(l_counter).performance_attached_flag := FND_API.G_TRUE;
5378: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5379: RAISE FND_API.g_exc_error;
5380: END IF;
5381:
5382: IF l_dummy = FND_API.G_TRUE THEN
5383: l_line_tbl(l_counter).performance_attached_flag := FND_API.G_TRUE;
5384: l_line_tbl(l_counter).performance_complete_flag := FND_API.G_TRUE;
5385: END IF;
5386: END IF;
5379: RAISE FND_API.g_exc_error;
5380: END IF;
5381:
5382: IF l_dummy = FND_API.G_TRUE THEN
5383: l_line_tbl(l_counter).performance_attached_flag := FND_API.G_TRUE;
5384: l_line_tbl(l_counter).performance_complete_flag := FND_API.G_TRUE;
5385: END IF;
5386: END IF;
5387: */
5380: END IF;
5381:
5382: IF l_dummy = FND_API.G_TRUE THEN
5383: l_line_tbl(l_counter).performance_attached_flag := FND_API.G_TRUE;
5384: l_line_tbl(l_counter).performance_complete_flag := FND_API.G_TRUE;
5385: END IF;
5386: END IF;
5387: */
5388:
5397: -- if earnings are found
5398: IF l_counter > 1 THEN
5399: OZF_CLAIM_LINE_PVT.Create_Claim_Line_Tbl(
5400: p_api_version => 1.0
5401: ,p_init_msg_list => FND_API.g_false
5402: ,p_commit => FND_API.g_false
5403: ,p_validation_level => FND_API.g_valid_level_full
5404: ,x_return_status => l_return_status
5405: ,x_msg_count => x_msg_count
5398: IF l_counter > 1 THEN
5399: OZF_CLAIM_LINE_PVT.Create_Claim_Line_Tbl(
5400: p_api_version => 1.0
5401: ,p_init_msg_list => FND_API.g_false
5402: ,p_commit => FND_API.g_false
5403: ,p_validation_level => FND_API.g_valid_level_full
5404: ,x_return_status => l_return_status
5405: ,x_msg_count => x_msg_count
5406: ,x_msg_data => x_msg_data
5399: OZF_CLAIM_LINE_PVT.Create_Claim_Line_Tbl(
5400: p_api_version => 1.0
5401: ,p_init_msg_list => FND_API.g_false
5402: ,p_commit => FND_API.g_false
5403: ,p_validation_level => FND_API.g_valid_level_full
5404: ,x_return_status => l_return_status
5405: ,x_msg_count => x_msg_count
5406: ,x_msg_data => x_msg_data
5407: ,p_claim_line_tbl => l_line_tbl
5407: ,p_claim_line_tbl => l_line_tbl
5408: ,x_error_index => l_error_index
5409: );
5410:
5411: IF l_return_status = FND_API.g_ret_sts_error THEN
5412: RAISE FND_API.g_exc_error;
5413: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5414: RAISE FND_API.g_exc_error;
5415: END IF;
5408: ,x_error_index => l_error_index
5409: );
5410:
5411: IF l_return_status = FND_API.g_ret_sts_error THEN
5412: RAISE FND_API.g_exc_error;
5413: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5414: RAISE FND_API.g_exc_error;
5415: END IF;
5416:
5409: );
5410:
5411: IF l_return_status = FND_API.g_ret_sts_error THEN
5412: RAISE FND_API.g_exc_error;
5413: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5414: RAISE FND_API.g_exc_error;
5415: END IF;
5416:
5417: -- Added For Bug 7611966
5410:
5411: IF l_return_status = FND_API.g_ret_sts_error THEN
5412: RAISE FND_API.g_exc_error;
5413: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5414: RAISE FND_API.g_exc_error;
5415: END IF;
5416:
5417: -- Added For Bug 7611966
5418: OPEN csr_claim_line(p_claim_id);
5433: EXIT WHEN csr_claim_line_util%NOTFOUND;
5434:
5435: Update_Group_Line_Util(
5436: p_api_version => 1.0
5437: ,p_init_msg_list => FND_API.g_false
5438: ,p_commit => FND_API.g_false
5439: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
5440: ,x_return_status => l_return_status
5441: ,x_msg_count => x_msg_count
5434:
5435: Update_Group_Line_Util(
5436: p_api_version => 1.0
5437: ,p_init_msg_list => FND_API.g_false
5438: ,p_commit => FND_API.g_false
5439: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
5440: ,x_return_status => l_return_status
5441: ,x_msg_count => x_msg_count
5442: ,x_msg_data => x_msg_data
5435: Update_Group_Line_Util(
5436: p_api_version => 1.0
5437: ,p_init_msg_list => FND_API.g_false
5438: ,p_commit => FND_API.g_false
5439: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
5440: ,x_return_status => l_return_status
5441: ,x_msg_count => x_msg_count
5442: ,x_msg_data => x_msg_data
5443: ,p_summary_view => 'ACTIVITY'
5443: ,p_summary_view => 'ACTIVITY'
5444: ,p_funds_util_flt => l_funds_util_flt
5445: );
5446:
5447: IF l_return_status = FND_API.g_ret_sts_error THEN
5448: RAISE FND_API.g_exc_error;
5449: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5450: RAISE FND_API.g_exc_error;
5451: END IF;
5444: ,p_funds_util_flt => l_funds_util_flt
5445: );
5446:
5447: IF l_return_status = FND_API.g_ret_sts_error THEN
5448: RAISE FND_API.g_exc_error;
5449: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5450: RAISE FND_API.g_exc_error;
5451: END IF;
5452: END LOOP;
5445: );
5446:
5447: IF l_return_status = FND_API.g_ret_sts_error THEN
5448: RAISE FND_API.g_exc_error;
5449: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5450: RAISE FND_API.g_exc_error;
5451: END IF;
5452: END LOOP;
5453: CLOSE csr_claim_line_util;
5446:
5447: IF l_return_status = FND_API.g_ret_sts_error THEN
5448: RAISE FND_API.g_exc_error;
5449: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5450: RAISE FND_API.g_exc_error;
5451: END IF;
5452: END LOOP;
5453: CLOSE csr_claim_line_util;
5454: END IF;
5454: END IF;
5455:
5456: ------------------------- finish -------------------------------
5457: -- Check for commit
5458: IF FND_API.to_boolean(p_commit) THEN
5459: COMMIT;
5460: END IF;
5461:
5462: FND_MSG_PUB.count_and_get(
5459: COMMIT;
5460: END IF;
5461:
5462: FND_MSG_PUB.count_and_get(
5463: p_encoded => FND_API.g_false,
5464: p_count => x_msg_count,
5465: p_data => x_msg_data
5466: );
5467:
5469: OZF_Utility_PVT.debug_message(l_full_name ||': end');
5470: END IF;
5471:
5472: EXCEPTION
5473: WHEN FND_API.g_exc_error THEN
5474: ROLLBACK TO Asso_Accruals_To_Claim;
5475: x_return_status := FND_API.g_ret_sts_error;
5476: FND_MSG_PUB.count_and_get (
5477: p_encoded => FND_API.g_false
5471:
5472: EXCEPTION
5473: WHEN FND_API.g_exc_error THEN
5474: ROLLBACK TO Asso_Accruals_To_Claim;
5475: x_return_status := FND_API.g_ret_sts_error;
5476: FND_MSG_PUB.count_and_get (
5477: p_encoded => FND_API.g_false
5478: ,p_count => x_msg_count
5479: ,p_data => x_msg_data
5473: WHEN FND_API.g_exc_error THEN
5474: ROLLBACK TO Asso_Accruals_To_Claim;
5475: x_return_status := FND_API.g_ret_sts_error;
5476: FND_MSG_PUB.count_and_get (
5477: p_encoded => FND_API.g_false
5478: ,p_count => x_msg_count
5479: ,p_data => x_msg_data
5480: );
5481:
5478: ,p_count => x_msg_count
5479: ,p_data => x_msg_data
5480: );
5481:
5482: WHEN FND_API.g_exc_unexpected_error THEN
5483: ROLLBACK TO Asso_Accruals_To_Claim;
5484: x_return_status := FND_API.g_ret_sts_unexp_error ;
5485: FND_MSG_PUB.count_and_get (
5486: p_encoded => FND_API.g_false
5480: );
5481:
5482: WHEN FND_API.g_exc_unexpected_error THEN
5483: ROLLBACK TO Asso_Accruals_To_Claim;
5484: x_return_status := FND_API.g_ret_sts_unexp_error ;
5485: FND_MSG_PUB.count_and_get (
5486: p_encoded => FND_API.g_false
5487: ,p_count => x_msg_count
5488: ,p_data => x_msg_data
5482: WHEN FND_API.g_exc_unexpected_error THEN
5483: ROLLBACK TO Asso_Accruals_To_Claim;
5484: x_return_status := FND_API.g_ret_sts_unexp_error ;
5485: FND_MSG_PUB.count_and_get (
5486: p_encoded => FND_API.g_false
5487: ,p_count => x_msg_count
5488: ,p_data => x_msg_data
5489: );
5490:
5489: );
5490:
5491: WHEN OTHERS THEN
5492: ROLLBACK TO Asso_Accruals_To_Claim;
5493: x_return_status := FND_API.g_ret_sts_unexp_error ;
5494: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5495: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
5496: END IF;
5497: FND_MSG_PUB.count_and_get(
5494: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5495: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
5496: END IF;
5497: FND_MSG_PUB.count_and_get(
5498: p_encoded => FND_API.g_false
5499: ,p_count => x_msg_count
5500: ,p_data => x_msg_data
5501: );
5502:
5518: -- modified for Bugfix 5182452 l_funds_util populated with claim line info.
5519: ---------------------------------------------------------------------
5520: PROCEDURE Asso_Accruals_To_Claim_Line(
5521: p_api_version IN NUMBER
5522: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
5523: ,p_commit IN VARCHAR2 := FND_API.g_false
5524: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
5525:
5526: ,x_return_status OUT NOCOPY VARCHAR2
5519: ---------------------------------------------------------------------
5520: PROCEDURE Asso_Accruals_To_Claim_Line(
5521: p_api_version IN NUMBER
5522: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
5523: ,p_commit IN VARCHAR2 := FND_API.g_false
5524: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
5525:
5526: ,x_return_status OUT NOCOPY VARCHAR2
5527: ,x_msg_count OUT NOCOPY NUMBER
5520: PROCEDURE Asso_Accruals_To_Claim_Line(
5521: p_api_version IN NUMBER
5522: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
5523: ,p_commit IN VARCHAR2 := FND_API.g_false
5524: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
5525:
5526: ,x_return_status OUT NOCOPY VARCHAR2
5527: ,x_msg_count OUT NOCOPY NUMBER
5528: ,x_msg_data OUT NOCOPY VARCHAR2
5580: IF OZF_DEBUG_HIGH_ON THEN
5581: OZF_Utility_PVT.debug_message(l_full_name||': start');
5582: END IF;
5583:
5584: IF FND_API.to_boolean(p_init_msg_list) THEN
5585: FND_MSG_PUB.initialize;
5586: END IF;
5587:
5588: IF NOT FND_API.compatible_api_call(
5584: IF FND_API.to_boolean(p_init_msg_list) THEN
5585: FND_MSG_PUB.initialize;
5586: END IF;
5587:
5588: IF NOT FND_API.compatible_api_call(
5589: l_api_version,
5590: p_api_version,
5591: l_api_name,
5592: g_pkg_name
5590: p_api_version,
5591: l_api_name,
5592: g_pkg_name
5593: ) THEN
5594: RAISE FND_API.g_exc_unexpected_error;
5595: END IF;
5596:
5597: x_return_status := FND_API.g_ret_sts_success;
5598:
5593: ) THEN
5594: RAISE FND_API.g_exc_unexpected_error;
5595: END IF;
5596:
5597: x_return_status := FND_API.g_ret_sts_success;
5598:
5599: ----------------- Associate earnings ----------------
5600: -- verify the claim exists
5601: --start of bugfix 5182452
5625: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_LINEID_NOT_EXIST');
5626: FND_MESSAGE.Set_Token('LINE_ID', p_claim_line_id);
5627: FND_MSG_PUB.ADD;
5628: END IF;
5629: RAISE FND_API.g_exc_unexpected_error;
5630: END IF;
5631: CLOSE csr_line_info;
5632:
5633: OPEN csr_sum_util_amounts(p_claim_line_id);
5639: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_LINEID_NOT_EXIST');
5640: FND_MESSAGE.Set_Token('LINE_ID', p_claim_line_id);
5641: FND_MSG_PUB.ADD;
5642: END IF;
5643: RAISE FND_API.g_exc_unexpected_error;
5644: END IF;
5645: CLOSE csr_sum_util_amounts;
5646:
5647: OPEN csr_sum_scan_units(p_claim_line_id);
5653: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_LINEID_NOT_EXIST');
5654: FND_MESSAGE.Set_Token('LINE_ID', p_claim_line_id);
5655: FND_MSG_PUB.ADD;
5656: END IF;
5657: RAISE FND_API.g_exc_unexpected_error;
5658: END IF;
5659: CLOSE csr_sum_scan_units;
5660: --end of bugfix 5182452
5661:
5660: --end of bugfix 5182452
5661:
5662: Update_Group_Line_Util(
5663: p_api_version => l_api_version
5664: ,p_init_msg_list => FND_API.g_false
5665: ,p_commit => FND_API.g_false
5666: ,p_validation_level => p_validation_level
5667: ,x_return_status => l_return_status
5668: ,x_msg_count => x_msg_count
5661:
5662: Update_Group_Line_Util(
5663: p_api_version => l_api_version
5664: ,p_init_msg_list => FND_API.g_false
5665: ,p_commit => FND_API.g_false
5666: ,p_validation_level => p_validation_level
5667: ,x_return_status => l_return_status
5668: ,x_msg_count => x_msg_count
5669: ,x_msg_data => x_msg_data
5670: ,p_summary_view => null
5671: ,p_funds_util_flt => l_funds_util_flt
5672: ,p_mode => OZF_CLAIM_UTILITY_PVT.g_auto_mode
5673: );
5674: IF l_return_status = fnd_api.g_ret_sts_error THEN
5675: RAISE FND_API.g_exc_error;
5676: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5677: RAISE FND_API.g_exc_unexpected_error;
5678: END IF;
5671: ,p_funds_util_flt => l_funds_util_flt
5672: ,p_mode => OZF_CLAIM_UTILITY_PVT.g_auto_mode
5673: );
5674: IF l_return_status = fnd_api.g_ret_sts_error THEN
5675: RAISE FND_API.g_exc_error;
5676: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5677: RAISE FND_API.g_exc_unexpected_error;
5678: END IF;
5679:
5672: ,p_mode => OZF_CLAIM_UTILITY_PVT.g_auto_mode
5673: );
5674: IF l_return_status = fnd_api.g_ret_sts_error THEN
5675: RAISE FND_API.g_exc_error;
5676: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5677: RAISE FND_API.g_exc_unexpected_error;
5678: END IF;
5679:
5680: ------------------------- finish -------------------------------
5673: );
5674: IF l_return_status = fnd_api.g_ret_sts_error THEN
5675: RAISE FND_API.g_exc_error;
5676: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5677: RAISE FND_API.g_exc_unexpected_error;
5678: END IF;
5679:
5680: ------------------------- finish -------------------------------
5681: -- Check for commit
5678: END IF;
5679:
5680: ------------------------- finish -------------------------------
5681: -- Check for commit
5682: IF FND_API.to_boolean(p_commit) THEN
5683: COMMIT;
5684: END IF;
5685:
5686: FND_MSG_PUB.count_and_get(
5683: COMMIT;
5684: END IF;
5685:
5686: FND_MSG_PUB.count_and_get(
5687: p_encoded => FND_API.g_false,
5688: p_count => x_msg_count,
5689: p_data => x_msg_data
5690: );
5691:
5693: OZF_Utility_PVT.debug_message(l_full_name ||': end');
5694: END IF;
5695:
5696: EXCEPTION
5697: WHEN FND_API.g_exc_error THEN
5698: ROLLBACK TO Asso_Accruals_To_Claim_Line;
5699: x_return_status := FND_API.g_ret_sts_error;
5700: FND_MSG_PUB.count_and_get (
5701: p_encoded => FND_API.g_false
5695:
5696: EXCEPTION
5697: WHEN FND_API.g_exc_error THEN
5698: ROLLBACK TO Asso_Accruals_To_Claim_Line;
5699: x_return_status := FND_API.g_ret_sts_error;
5700: FND_MSG_PUB.count_and_get (
5701: p_encoded => FND_API.g_false
5702: ,p_count => x_msg_count
5703: ,p_data => x_msg_data
5697: WHEN FND_API.g_exc_error THEN
5698: ROLLBACK TO Asso_Accruals_To_Claim_Line;
5699: x_return_status := FND_API.g_ret_sts_error;
5700: FND_MSG_PUB.count_and_get (
5701: p_encoded => FND_API.g_false
5702: ,p_count => x_msg_count
5703: ,p_data => x_msg_data
5704: );
5705:
5702: ,p_count => x_msg_count
5703: ,p_data => x_msg_data
5704: );
5705:
5706: WHEN FND_API.g_exc_unexpected_error THEN
5707: ROLLBACK TO Asso_Accruals_To_Claim_Line;
5708: x_return_status := FND_API.g_ret_sts_unexp_error ;
5709: FND_MSG_PUB.count_and_get (
5710: p_encoded => FND_API.g_false
5704: );
5705:
5706: WHEN FND_API.g_exc_unexpected_error THEN
5707: ROLLBACK TO Asso_Accruals_To_Claim_Line;
5708: x_return_status := FND_API.g_ret_sts_unexp_error ;
5709: FND_MSG_PUB.count_and_get (
5710: p_encoded => FND_API.g_false
5711: ,p_count => x_msg_count
5712: ,p_data => x_msg_data
5706: WHEN FND_API.g_exc_unexpected_error THEN
5707: ROLLBACK TO Asso_Accruals_To_Claim_Line;
5708: x_return_status := FND_API.g_ret_sts_unexp_error ;
5709: FND_MSG_PUB.count_and_get (
5710: p_encoded => FND_API.g_false
5711: ,p_count => x_msg_count
5712: ,p_data => x_msg_data
5713: );
5714:
5713: );
5714:
5715: WHEN OTHERS THEN
5716: ROLLBACK TO Asso_Accruals_To_Claim_Line;
5717: x_return_status := FND_API.g_ret_sts_unexp_error ;
5718: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5719: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
5720: END IF;
5721: FND_MSG_PUB.count_and_get(
5718: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5719: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
5720: END IF;
5721: FND_MSG_PUB.count_and_get(
5722: p_encoded => FND_API.g_false
5723: ,p_count => x_msg_count
5724: ,p_data => x_msg_data
5725: );
5726:
5745: -- FP:11510-R12 7423017 - SHIP AND DEBIT BATCH CREATES MULTIPLE CLAIMS
5746: ---------------------------------------------------------------------
5747: PROCEDURE Initiate_Batch_Payment(
5748: p_api_version IN NUMBER
5749: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
5750: ,p_commit IN VARCHAR2 := FND_API.g_false
5751: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
5752:
5753: ,x_return_status OUT NOCOPY VARCHAR2
5746: ---------------------------------------------------------------------
5747: PROCEDURE Initiate_Batch_Payment(
5748: p_api_version IN NUMBER
5749: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
5750: ,p_commit IN VARCHAR2 := FND_API.g_false
5751: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
5752:
5753: ,x_return_status OUT NOCOPY VARCHAR2
5754: ,x_msg_count OUT NOCOPY NUMBER
5747: PROCEDURE Initiate_Batch_Payment(
5748: p_api_version IN NUMBER
5749: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
5750: ,p_commit IN VARCHAR2 := FND_API.g_false
5751: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
5752:
5753: ,x_return_status OUT NOCOPY VARCHAR2
5754: ,x_msg_count OUT NOCOPY NUMBER
5755: ,x_msg_data OUT NOCOPY VARCHAR2
5887: SELECT exchange_rate_type
5888: FROM ozf_sys_parameters_all
5889: WHERE org_id = MO_GLOBAL.GET_CURRENT_ORG_ID;
5890:
5891: l_exchange_rate_type VARCHAR2(30) := FND_API.G_MISS_CHAR;
5892: l_rate NUMBER;
5893:
5894:
5895: BEGIN
5899: IF OZF_DEBUG_HIGH_ON THEN
5900: OZF_Utility_PVT.debug_message(l_full_name||': start');
5901: END IF;
5902:
5903: IF FND_API.to_boolean(p_init_msg_list) THEN
5904: FND_MSG_PUB.initialize;
5905: END IF;
5906:
5907: IF NOT FND_API.compatible_api_call(
5903: IF FND_API.to_boolean(p_init_msg_list) THEN
5904: FND_MSG_PUB.initialize;
5905: END IF;
5906:
5907: IF NOT FND_API.compatible_api_call(
5908: l_api_version,
5909: p_api_version,
5910: l_api_name,
5911: g_pkg_name
5909: p_api_version,
5910: l_api_name,
5911: g_pkg_name
5912: ) THEN
5913: RAISE FND_API.g_exc_unexpected_error;
5914: END IF;
5915:
5916: x_return_status := FND_API.g_ret_sts_success;
5917:
5912: ) THEN
5913: RAISE FND_API.g_exc_unexpected_error;
5914: END IF;
5915:
5916: x_return_status := FND_API.g_ret_sts_success;
5917:
5918: ----------------- Process batch ----------------
5919: OPEN csr_resale_batch(p_resale_batch_id);
5920: FETCH csr_resale_batch INTO l_cust_account_id
5941: ,x_return_status => l_return_status
5942: );
5943:
5944: -- do not settle claim if trade profile has errors
5945: IF l_return_status = FND_API.g_ret_sts_error or
5946: l_return_status = FND_API.g_ret_sts_unexp_error THEN
5947: l_close_claim_flag := 'F';
5948: END IF;
5949:
5942: );
5943:
5944: -- do not settle claim if trade profile has errors
5945: IF l_return_status = FND_API.g_ret_sts_error or
5946: l_return_status = FND_API.g_ret_sts_unexp_error THEN
5947: l_close_claim_flag := 'F';
5948: END IF;
5949:
5950: l_payment_method := l_cust_trade_profile.payment_method;
5961: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_NO_TRADE_PROFILE');
5962: FND_MESSAGE.Set_Token('CUST_NAME', l_party_name);
5963: FND_MSG_PUB.ADD;
5964: END IF;
5965: RAISE FND_API.g_exc_unexpected_error;
5966: */
5967: -- do not settle claim if trade profile does not exists
5968: l_close_claim_flag := 'F';
5969: END IF;
6036: ,x_return_status => l_return_status
6037: ,x_to_amount => l_new_line_amount
6038: ,x_rate => l_rate
6039: );
6040: IF l_return_status = FND_API.g_ret_sts_error THEN
6041: RAISE FND_API.g_exc_error;
6042: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
6043: RAISE FND_API.g_exc_unexpected_error;
6044: END IF;
6037: ,x_to_amount => l_new_line_amount
6038: ,x_rate => l_rate
6039: );
6040: IF l_return_status = FND_API.g_ret_sts_error THEN
6041: RAISE FND_API.g_exc_error;
6042: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
6043: RAISE FND_API.g_exc_unexpected_error;
6044: END IF;
6045: END IF;
6038: ,x_rate => l_rate
6039: );
6040: IF l_return_status = FND_API.g_ret_sts_error THEN
6041: RAISE FND_API.g_exc_error;
6042: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
6043: RAISE FND_API.g_exc_unexpected_error;
6044: END IF;
6045: END IF;
6046: l_claim_amount := l_claim_amount + l_new_line_amount;
6039: );
6040: IF l_return_status = FND_API.g_ret_sts_error THEN
6041: RAISE FND_API.g_exc_error;
6042: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
6043: RAISE FND_API.g_exc_unexpected_error;
6044: END IF;
6045: END IF;
6046: l_claim_amount := l_claim_amount + l_new_line_amount;
6047:
6062: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
6063: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CANT_CONVERT_UOM');
6064: FND_MSG_PUB.add;
6065: END IF;
6066: RAISE FND_API.g_exc_error;
6067: END IF;
6068:
6069: ELSE
6070: -- the uom is same, only need to recalculate the correct quantity
6118: ,x_msg_count => x_msg_count
6119: ,p_claim => l_claim_rec
6120: ,x_claim_id => l_claim_id
6121: );
6122: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6123: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6124: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6125: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6126: END IF;
6119: ,p_claim => l_claim_rec
6120: ,x_claim_id => l_claim_id
6121: );
6122: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6123: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6124: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6125: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6126: END IF;
6127:
6120: ,x_claim_id => l_claim_id
6121: );
6122: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6123: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6124: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6125: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6126: END IF;
6127:
6128: IF OZF_DEBUG_HIGH_ON THEN
6121: );
6122: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6123: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6124: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6125: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6126: END IF;
6127:
6128: IF OZF_DEBUG_HIGH_ON THEN
6129: OZF_Utility_PVT.debug_message('Created claim id:'||l_claim_id);
6136: END LOOP;
6137:
6138: OZF_CLAIM_LINE_PVT.Create_Claim_Line_Tbl(
6139: p_api_version => 1.0
6140: ,p_init_msg_list => FND_API.g_false
6141: ,p_commit => FND_API.g_false
6142: ,p_validation_level => FND_API.g_valid_level_full
6143: ,x_return_status => l_return_status
6144: ,x_msg_count => x_msg_count
6137:
6138: OZF_CLAIM_LINE_PVT.Create_Claim_Line_Tbl(
6139: p_api_version => 1.0
6140: ,p_init_msg_list => FND_API.g_false
6141: ,p_commit => FND_API.g_false
6142: ,p_validation_level => FND_API.g_valid_level_full
6143: ,x_return_status => l_return_status
6144: ,x_msg_count => x_msg_count
6145: ,x_msg_data => x_msg_data
6138: OZF_CLAIM_LINE_PVT.Create_Claim_Line_Tbl(
6139: p_api_version => 1.0
6140: ,p_init_msg_list => FND_API.g_false
6141: ,p_commit => FND_API.g_false
6142: ,p_validation_level => FND_API.g_valid_level_full
6143: ,x_return_status => l_return_status
6144: ,x_msg_count => x_msg_count
6145: ,x_msg_data => x_msg_data
6146: ,p_claim_line_tbl => l_line_tbl
6145: ,x_msg_data => x_msg_data
6146: ,p_claim_line_tbl => l_line_tbl
6147: ,x_error_index => l_error_index
6148: );
6149: IF l_return_status = FND_API.g_ret_sts_error THEN
6150: RAISE FND_API.g_exc_error;
6151: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
6152: RAISE FND_API.g_exc_error;
6153: END IF;
6146: ,p_claim_line_tbl => l_line_tbl
6147: ,x_error_index => l_error_index
6148: );
6149: IF l_return_status = FND_API.g_ret_sts_error THEN
6150: RAISE FND_API.g_exc_error;
6151: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
6152: RAISE FND_API.g_exc_error;
6153: END IF;
6154:
6147: ,x_error_index => l_error_index
6148: );
6149: IF l_return_status = FND_API.g_ret_sts_error THEN
6150: RAISE FND_API.g_exc_error;
6151: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
6152: RAISE FND_API.g_exc_error;
6153: END IF;
6154:
6155: IF OZF_DEBUG_HIGH_ON THEN
6148: );
6149: IF l_return_status = FND_API.g_ret_sts_error THEN
6150: RAISE FND_API.g_exc_error;
6151: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
6152: RAISE FND_API.g_exc_error;
6153: END IF;
6154:
6155: IF OZF_DEBUG_HIGH_ON THEN
6156: OZF_Utility_PVT.debug_message('Claim lines created for claim_id=' || l_claim_id);
6162: EXIT WHEN csr_claim_line%NOTFOUND;
6163:
6164: Asso_Accruals_To_Claim_Line(
6165: p_api_version => 1.0
6166: ,p_init_msg_list => FND_API.g_false
6167: ,p_commit => FND_API.g_false
6168: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
6169: ,x_return_status => l_return_status
6170: ,x_msg_count => x_msg_count
6163:
6164: Asso_Accruals_To_Claim_Line(
6165: p_api_version => 1.0
6166: ,p_init_msg_list => FND_API.g_false
6167: ,p_commit => FND_API.g_false
6168: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
6169: ,x_return_status => l_return_status
6170: ,x_msg_count => x_msg_count
6171: ,x_msg_data => x_msg_data
6164: Asso_Accruals_To_Claim_Line(
6165: p_api_version => 1.0
6166: ,p_init_msg_list => FND_API.g_false
6167: ,p_commit => FND_API.g_false
6168: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
6169: ,x_return_status => l_return_status
6170: ,x_msg_count => x_msg_count
6171: ,x_msg_data => x_msg_data
6172: ,p_claim_line_id => l_claim_line_id
6170: ,x_msg_count => x_msg_count
6171: ,x_msg_data => x_msg_data
6172: ,p_claim_line_id => l_claim_line_id
6173: );
6174: IF l_return_status = FND_API.g_ret_sts_error THEN
6175: RAISE FND_API.g_exc_error;
6176: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
6177: RAISE FND_API.g_exc_error;
6178: END IF;
6171: ,x_msg_data => x_msg_data
6172: ,p_claim_line_id => l_claim_line_id
6173: );
6174: IF l_return_status = FND_API.g_ret_sts_error THEN
6175: RAISE FND_API.g_exc_error;
6176: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
6177: RAISE FND_API.g_exc_error;
6178: END IF;
6179: END LOOP;
6172: ,p_claim_line_id => l_claim_line_id
6173: );
6174: IF l_return_status = FND_API.g_ret_sts_error THEN
6175: RAISE FND_API.g_exc_error;
6176: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
6177: RAISE FND_API.g_exc_error;
6178: END IF;
6179: END LOOP;
6180: CLOSE csr_claim_line;
6173: );
6174: IF l_return_status = FND_API.g_ret_sts_error THEN
6175: RAISE FND_API.g_exc_error;
6176: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
6177: RAISE FND_API.g_exc_error;
6178: END IF;
6179: END LOOP;
6180: CLOSE csr_claim_line;
6181:
6185: ,x_return_status => l_return_status
6186: ,x_msg_count => x_msg_count
6187: ,x_msg_data => x_msg_data
6188: );
6189: IF l_return_status = fnd_api.g_ret_sts_error THEN
6190: RAISE FND_API.g_exc_error;
6191: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6192: RAISE FND_API.g_exc_unexpected_error;
6193: END IF;
6186: ,x_msg_count => x_msg_count
6187: ,x_msg_data => x_msg_data
6188: );
6189: IF l_return_status = fnd_api.g_ret_sts_error THEN
6190: RAISE FND_API.g_exc_error;
6191: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6192: RAISE FND_API.g_exc_unexpected_error;
6193: END IF;
6194: END IF;
6187: ,x_msg_data => x_msg_data
6188: );
6189: IF l_return_status = fnd_api.g_ret_sts_error THEN
6190: RAISE FND_API.g_exc_error;
6191: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6192: RAISE FND_API.g_exc_unexpected_error;
6193: END IF;
6194: END IF;
6195:
6188: );
6189: IF l_return_status = fnd_api.g_ret_sts_error THEN
6190: RAISE FND_API.g_exc_error;
6191: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6192: RAISE FND_API.g_exc_unexpected_error;
6193: END IF;
6194: END IF;
6195:
6196: -- bug # 7453430 fixed by ateotia(+)
6199: -- bug # 7453430 fixed by ateotia(-)
6200:
6201: ------------------------- finish -------------------------------
6202: -- Check for commit
6203: IF FND_API.to_boolean(p_commit) THEN
6204: COMMIT;
6205: END IF;
6206:
6207: FND_MSG_PUB.count_and_get(
6204: COMMIT;
6205: END IF;
6206:
6207: FND_MSG_PUB.count_and_get(
6208: p_encoded => FND_API.g_false,
6209: p_count => x_msg_count,
6210: p_data => x_msg_data
6211: );
6212:
6214: OZF_Utility_PVT.debug_message(l_full_name ||': end');
6215: END IF;
6216:
6217: EXCEPTION
6218: WHEN FND_API.g_exc_error THEN
6219: ROLLBACK TO Initiate_Batch_Payment;
6220: x_return_status := FND_API.g_ret_sts_error;
6221: FND_MSG_PUB.count_and_get (
6222: p_encoded => FND_API.g_false
6216:
6217: EXCEPTION
6218: WHEN FND_API.g_exc_error THEN
6219: ROLLBACK TO Initiate_Batch_Payment;
6220: x_return_status := FND_API.g_ret_sts_error;
6221: FND_MSG_PUB.count_and_get (
6222: p_encoded => FND_API.g_false
6223: ,p_count => x_msg_count
6224: ,p_data => x_msg_data
6218: WHEN FND_API.g_exc_error THEN
6219: ROLLBACK TO Initiate_Batch_Payment;
6220: x_return_status := FND_API.g_ret_sts_error;
6221: FND_MSG_PUB.count_and_get (
6222: p_encoded => FND_API.g_false
6223: ,p_count => x_msg_count
6224: ,p_data => x_msg_data
6225: );
6226:
6223: ,p_count => x_msg_count
6224: ,p_data => x_msg_data
6225: );
6226:
6227: WHEN FND_API.g_exc_unexpected_error THEN
6228: ROLLBACK TO Initiate_Batch_Payment;
6229: x_return_status := FND_API.g_ret_sts_unexp_error ;
6230: FND_MSG_PUB.count_and_get (
6231: p_encoded => FND_API.g_false
6225: );
6226:
6227: WHEN FND_API.g_exc_unexpected_error THEN
6228: ROLLBACK TO Initiate_Batch_Payment;
6229: x_return_status := FND_API.g_ret_sts_unexp_error ;
6230: FND_MSG_PUB.count_and_get (
6231: p_encoded => FND_API.g_false
6232: ,p_count => x_msg_count
6233: ,p_data => x_msg_data
6227: WHEN FND_API.g_exc_unexpected_error THEN
6228: ROLLBACK TO Initiate_Batch_Payment;
6229: x_return_status := FND_API.g_ret_sts_unexp_error ;
6230: FND_MSG_PUB.count_and_get (
6231: p_encoded => FND_API.g_false
6232: ,p_count => x_msg_count
6233: ,p_data => x_msg_data
6234: );
6235:
6234: );
6235:
6236: WHEN OTHERS THEN
6237: ROLLBACK TO Initiate_Batch_Payment;
6238: x_return_status := FND_API.g_ret_sts_unexp_error ;
6239: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
6240: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
6241: END IF;
6242: FND_MSG_PUB.count_and_get(
6239: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
6240: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
6241: END IF;
6242: FND_MSG_PUB.count_and_get(
6243: p_encoded => FND_API.g_false
6244: ,p_count => x_msg_count
6245: ,p_data => x_msg_data
6246: );
6247:
6256: -- 10/15/2002 yizhang Create.
6257: ---------------------------------------------------------------------
6258: PROCEDURE Validate_Over_Utilization(
6259: p_api_version IN NUMBER
6260: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
6261: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
6262:
6263: ,x_return_status OUT NOCOPY VARCHAR2
6264: ,x_msg_count OUT NOCOPY NUMBER
6257: ---------------------------------------------------------------------
6258: PROCEDURE Validate_Over_Utilization(
6259: p_api_version IN NUMBER
6260: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
6261: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
6262:
6263: ,x_return_status OUT NOCOPY VARCHAR2
6264: ,x_msg_count OUT NOCOPY NUMBER
6265: ,x_msg_data OUT NOCOPY VARCHAR2
6337: IF OZF_DEBUG_HIGH_ON THEN
6338: OZF_Utility_PVT.debug_message(l_full_name||': start');
6339: END IF;
6340:
6341: IF FND_API.to_boolean(p_init_msg_list) THEN
6342: FND_MSG_PUB.initialize;
6343: END IF;
6344:
6345: IF NOT FND_API.compatible_api_call(
6341: IF FND_API.to_boolean(p_init_msg_list) THEN
6342: FND_MSG_PUB.initialize;
6343: END IF;
6344:
6345: IF NOT FND_API.compatible_api_call(
6346: l_api_version,
6347: p_api_version,
6348: l_api_name,
6349: g_pkg_name
6347: p_api_version,
6348: l_api_name,
6349: g_pkg_name
6350: ) THEN
6351: RAISE FND_API.g_exc_unexpected_error;
6352: END IF;
6353:
6354: x_return_status := FND_API.g_ret_sts_success;
6355:
6350: ) THEN
6351: RAISE FND_API.g_exc_unexpected_error;
6352: END IF;
6353:
6354: x_return_status := FND_API.g_ret_sts_success;
6355:
6356: ----------------------- validate ----------------------
6357: -- Scan Data over-utilization is configured in offer line
6358: IF p_funds_util_flt.offer_type = 'SCAN_DATA' THEN
6367: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
6368: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CANT_ADJUST_SCANUNIT');
6369: FND_MSG_PUB.add;
6370: END IF;
6371: x_return_status := FND_API.g_ret_sts_error;
6372: RETURN;
6373:
6374: /*
6375: -- Adjustment workflow can be invoked only when profile is set
6377: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
6378: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_NO_ADJUST_WORKFLOW');
6379: FND_MSG_PUB.add;
6380: END IF;
6381: x_return_status := FND_API.g_ret_sts_error;
6382: RETURN;
6383: END IF;
6384:
6385: -- At most one workflow can be invoked per claim
6391: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
6392: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_MULTI_ADJ_WORKFLOW');
6393: FND_MSG_PUB.add;
6394: END IF;
6395: x_return_status := FND_API.g_ret_sts_error;
6396: RETURN;
6397: END IF;
6398: */
6399: END IF;
6407: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
6408: FND_MESSAGE.set_name('OZF', 'OZF_EARN_OVERPAY_NO_OFFER');
6409: FND_MSG_PUB.add;
6410: END IF;
6411: x_return_status := FND_API.g_ret_sts_error;
6412: RETURN;
6413: END IF;
6414:
6415: --eligibility is in trade profile or system parameter
6444: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
6445: FND_MESSAGE.set_name('OZF', 'OZF_EARN_OVERPAY_NOT_ALLOWED');
6446: FND_MSG_PUB.add;
6447: END IF;
6448: x_return_status := FND_API.g_ret_sts_error;
6449: RETURN;
6450: END IF;
6451: END IF;
6452:
6465: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
6466: FND_MESSAGE.set_name('OZF', 'OZF_EARN_OVERPAY_NOT_ALLOWED');
6467: FND_MSG_PUB.add;
6468: END IF;
6469: x_return_status := FND_API.g_ret_sts_error;
6470: RETURN;
6471: END IF;
6472: END IF;
6473:
6493: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
6494: FND_MESSAGE.set_name('OZF', 'OZF_EARN_OVERPAY_OVER_THOLD');
6495: FND_MSG_PUB.add;
6496: END IF;
6497: x_return_status := FND_API.g_ret_sts_error;
6498: RETURN;
6499: END IF;
6500: END IF;
6501: END IF;
6514: -- 05/16/2001 mchang Create.
6515: ---------------------------------------------------------------------
6516: PROCEDURE Create_Group_Line_Util(
6517: p_api_version IN NUMBER
6518: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
6519: ,p_commit IN VARCHAR2 := FND_API.g_false
6520: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
6521:
6522: ,x_return_status OUT NOCOPY VARCHAR2
6515: ---------------------------------------------------------------------
6516: PROCEDURE Create_Group_Line_Util(
6517: p_api_version IN NUMBER
6518: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
6519: ,p_commit IN VARCHAR2 := FND_API.g_false
6520: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
6521:
6522: ,x_return_status OUT NOCOPY VARCHAR2
6523: ,x_msg_count OUT NOCOPY NUMBER
6516: PROCEDURE Create_Group_Line_Util(
6517: p_api_version IN NUMBER
6518: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
6519: ,p_commit IN VARCHAR2 := FND_API.g_false
6520: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
6521:
6522: ,x_return_status OUT NOCOPY VARCHAR2
6523: ,x_msg_count OUT NOCOPY NUMBER
6524: ,x_msg_data OUT NOCOPY VARCHAR2
6549: IF OZF_DEBUG_HIGH_ON THEN
6550: OZF_Utility_PVT.debug_message(l_full_name||': start');
6551: END IF;
6552:
6553: IF FND_API.to_boolean(p_init_msg_list) THEN
6554: FND_MSG_PUB.initialize;
6555: END IF;
6556:
6557: IF NOT FND_API.compatible_api_call(
6553: IF FND_API.to_boolean(p_init_msg_list) THEN
6554: FND_MSG_PUB.initialize;
6555: END IF;
6556:
6557: IF NOT FND_API.compatible_api_call(
6558: l_api_version,
6559: p_api_version,
6560: l_api_name,
6561: g_pkg_name
6559: p_api_version,
6560: l_api_name,
6561: g_pkg_name
6562: ) THEN
6563: RAISE FND_API.g_exc_unexpected_error;
6564: END IF;
6565:
6566: x_return_status := FND_API.g_ret_sts_success;
6567:
6562: ) THEN
6563: RAISE FND_API.g_exc_unexpected_error;
6564: END IF;
6565:
6566: x_return_status := FND_API.g_ret_sts_success;
6567:
6568: ------------------------- finish -------------------------------
6569: -- Check for commit
6570: IF FND_API.to_boolean(p_commit) THEN
6566: x_return_status := FND_API.g_ret_sts_success;
6567:
6568: ------------------------- finish -------------------------------
6569: -- Check for commit
6570: IF FND_API.to_boolean(p_commit) THEN
6571: COMMIT;
6572: END IF;
6573:
6574: FND_MSG_PUB.count_and_get(
6571: COMMIT;
6572: END IF;
6573:
6574: FND_MSG_PUB.count_and_get(
6575: p_encoded => FND_API.g_false,
6576: p_count => x_msg_count,
6577: p_data => x_msg_data
6578: );
6579:
6581: OZF_Utility_PVT.debug_message(l_full_name ||': end');
6582: END IF;
6583:
6584: EXCEPTION
6585: WHEN FND_API.g_exc_error THEN
6586: ROLLBACK TO Create_Group_Line_Util;
6587: x_return_status := FND_API.g_ret_sts_error;
6588: FND_MSG_PUB.count_and_get (
6589: p_encoded => FND_API.g_false
6583:
6584: EXCEPTION
6585: WHEN FND_API.g_exc_error THEN
6586: ROLLBACK TO Create_Group_Line_Util;
6587: x_return_status := FND_API.g_ret_sts_error;
6588: FND_MSG_PUB.count_and_get (
6589: p_encoded => FND_API.g_false
6590: ,p_count => x_msg_count
6591: ,p_data => x_msg_data
6585: WHEN FND_API.g_exc_error THEN
6586: ROLLBACK TO Create_Group_Line_Util;
6587: x_return_status := FND_API.g_ret_sts_error;
6588: FND_MSG_PUB.count_and_get (
6589: p_encoded => FND_API.g_false
6590: ,p_count => x_msg_count
6591: ,p_data => x_msg_data
6592: );
6593:
6590: ,p_count => x_msg_count
6591: ,p_data => x_msg_data
6592: );
6593:
6594: WHEN FND_API.g_exc_unexpected_error THEN
6595: ROLLBACK TO Create_Group_Line_Util;
6596: x_return_status := FND_API.g_ret_sts_unexp_error ;
6597: FND_MSG_PUB.count_and_get (
6598: p_encoded => FND_API.g_false
6592: );
6593:
6594: WHEN FND_API.g_exc_unexpected_error THEN
6595: ROLLBACK TO Create_Group_Line_Util;
6596: x_return_status := FND_API.g_ret_sts_unexp_error ;
6597: FND_MSG_PUB.count_and_get (
6598: p_encoded => FND_API.g_false
6599: ,p_count => x_msg_count
6600: ,p_data => x_msg_data
6594: WHEN FND_API.g_exc_unexpected_error THEN
6595: ROLLBACK TO Create_Group_Line_Util;
6596: x_return_status := FND_API.g_ret_sts_unexp_error ;
6597: FND_MSG_PUB.count_and_get (
6598: p_encoded => FND_API.g_false
6599: ,p_count => x_msg_count
6600: ,p_data => x_msg_data
6601: );
6602:
6601: );
6602:
6603: WHEN OTHERS THEN
6604: ROLLBACK TO Create_Group_Line_Util;
6605: x_return_status := FND_API.g_ret_sts_unexp_error ;
6606: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
6607: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
6608: END IF;
6609: FND_MSG_PUB.count_and_get(
6606: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
6607: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
6608: END IF;
6609: FND_MSG_PUB.count_and_get(
6610: p_encoded => FND_API.g_false
6611: ,p_count => x_msg_count
6612: ,p_data => x_msg_data
6613: );
6614:
6625: -- 05-Aug-06 azahmed R12 ER: Support FXGL in earnings
6626: ---------------------------------------------------------------------
6627: PROCEDURE Update_Group_Line_Util(
6628: p_api_version IN NUMBER
6629: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
6630: ,p_commit IN VARCHAR2 := FND_API.g_false
6631: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
6632:
6633: ,x_return_status OUT NOCOPY VARCHAR2
6626: ---------------------------------------------------------------------
6627: PROCEDURE Update_Group_Line_Util(
6628: p_api_version IN NUMBER
6629: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
6630: ,p_commit IN VARCHAR2 := FND_API.g_false
6631: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
6632:
6633: ,x_return_status OUT NOCOPY VARCHAR2
6634: ,x_msg_count OUT NOCOPY NUMBER
6627: PROCEDURE Update_Group_Line_Util(
6628: p_api_version IN NUMBER
6629: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
6630: ,p_commit IN VARCHAR2 := FND_API.g_false
6631: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
6632:
6633: ,x_return_status OUT NOCOPY VARCHAR2
6634: ,x_msg_count OUT NOCOPY NUMBER
6635: ,x_msg_data OUT NOCOPY VARCHAR2
6883: IF OZF_DEBUG_HIGH_ON THEN
6884: OZF_Utility_PVT.debug_message(l_full_name||': start');
6885: END IF;
6886:
6887: IF FND_API.to_boolean(p_init_msg_list) THEN
6888: FND_MSG_PUB.initialize;
6889: END IF;
6890:
6891: IF NOT FND_API.compatible_api_call(
6887: IF FND_API.to_boolean(p_init_msg_list) THEN
6888: FND_MSG_PUB.initialize;
6889: END IF;
6890:
6891: IF NOT FND_API.compatible_api_call(
6892: l_api_version,
6893: p_api_version,
6894: l_api_name,
6895: g_pkg_name
6893: p_api_version,
6894: l_api_name,
6895: g_pkg_name
6896: ) THEN
6897: RAISE FND_API.g_exc_unexpected_error;
6898: END IF;
6899:
6900: OPEN csr_function_currency;
6901: FETCH csr_function_currency INTO G_FUNCTIONAL_CURRENCY;
6900: OPEN csr_function_currency;
6901: FETCH csr_function_currency INTO G_FUNCTIONAL_CURRENCY;
6902: CLOSE csr_function_currency;
6903:
6904: x_return_status := FND_API.g_ret_sts_success;
6905:
6906: ----------------- check claim status ----------------
6907: -- earnings cannot be associated when claim is not open
6908: OPEN csr_claim_status(l_funds_util_flt.claim_line_id);
6929: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
6930: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_ASSO_NOT_OPEN');
6931: FND_MSG_PUB.add;
6932: END IF;
6933: RAISE FND_API.g_exc_error;
6934: END IF;
6935:
6936:
6937: ----------------- copy line info to filter ---------------
6959: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
6960: FND_MESSAGE.set_name('OZF', 'OZF_CROSS_CURR_UTILIZATION');
6961: FND_MSG_PUB.add;
6962: END IF;
6963: RAISE FND_API.g_exc_error;
6964: END IF;
6965: END IF;
6966:
6967: -- store the amounts in claim currency
6986: ,x_return_status => l_return_status
6987: ,x_to_amount => l_new_total_amount
6988: ,x_rate => l_convert_exchange_rate
6989: );
6990: IF l_return_status = FND_API.g_ret_sts_error THEN
6991: RAISE FND_API.g_exc_error;
6992: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
6993: RAISE FND_API.g_exc_unexpected_error;
6994: END IF;
6987: ,x_to_amount => l_new_total_amount
6988: ,x_rate => l_convert_exchange_rate
6989: );
6990: IF l_return_status = FND_API.g_ret_sts_error THEN
6991: RAISE FND_API.g_exc_error;
6992: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
6993: RAISE FND_API.g_exc_unexpected_error;
6994: END IF;
6995:
6988: ,x_rate => l_convert_exchange_rate
6989: );
6990: IF l_return_status = FND_API.g_ret_sts_error THEN
6991: RAISE FND_API.g_exc_error;
6992: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
6993: RAISE FND_API.g_exc_unexpected_error;
6994: END IF;
6995:
6996: IF l_funds_util_flt.old_total_amount is not null and l_funds_util_flt.old_total_amount <> 0 THEN
6989: );
6990: IF l_return_status = FND_API.g_ret_sts_error THEN
6991: RAISE FND_API.g_exc_error;
6992: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
6993: RAISE FND_API.g_exc_unexpected_error;
6994: END IF;
6995:
6996: IF l_funds_util_flt.old_total_amount is not null and l_funds_util_flt.old_total_amount <> 0 THEN
6997: OZF_UTILITY_PVT.Convert_Currency(
7005: ,x_to_amount => l_funds_util_flt.old_total_amount
7006: ,x_rate => l_convert_exchange_rate
7007: );
7008: END IF;
7009: IF l_return_status = FND_API.g_ret_sts_error THEN
7010: RAISE FND_API.g_exc_error;
7011: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
7012: RAISE FND_API.g_exc_unexpected_error;
7013: END IF;
7006: ,x_rate => l_convert_exchange_rate
7007: );
7008: END IF;
7009: IF l_return_status = FND_API.g_ret_sts_error THEN
7010: RAISE FND_API.g_exc_error;
7011: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
7012: RAISE FND_API.g_exc_unexpected_error;
7013: END IF;
7014: ELSE
7007: );
7008: END IF;
7009: IF l_return_status = FND_API.g_ret_sts_error THEN
7010: RAISE FND_API.g_exc_error;
7011: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
7012: RAISE FND_API.g_exc_unexpected_error;
7013: END IF;
7014: ELSE
7015: -- l_funds_util_flt.total_amount is in claim currency and not in functional currency
7008: END IF;
7009: IF l_return_status = FND_API.g_ret_sts_error THEN
7010: RAISE FND_API.g_exc_error;
7011: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
7012: RAISE FND_API.g_exc_unexpected_error;
7013: END IF;
7014: ELSE
7015: -- l_funds_util_flt.total_amount is in claim currency and not in functional currency
7016: l_new_total_amount := l_funds_util_flt.total_amount;
7069: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
7070: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CANT_CONVERT_UOM');
7071: FND_MSG_PUB.add;
7072: END IF;
7073: RAISE FND_API.g_exc_error;
7074: END IF;
7075: ELSE
7076: l_util_quantity := l_funds_util_flt.quantity;
7077: END IF;
7096: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
7097: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CANT_CONVERT_UOM');
7098: FND_MSG_PUB.add;
7099: END IF;
7100: RAISE FND_API.g_exc_error;
7101: END IF;
7102: ELSE
7103: l_util_quantity := l_cre_total_units * l_offer_quantity;
7104: END IF;
7134: ,x_return_status => l_return_status
7135: ,x_to_amount => l_new_total_acct_amount
7136: ,x_rate => l_rate
7137: );
7138: IF l_return_status = FND_API.g_ret_sts_error THEN
7139: RAISE FND_API.g_exc_error;
7140: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
7141: RAISE FND_API.g_exc_unexpected_error;
7142: END IF;
7135: ,x_to_amount => l_new_total_acct_amount
7136: ,x_rate => l_rate
7137: );
7138: IF l_return_status = FND_API.g_ret_sts_error THEN
7139: RAISE FND_API.g_exc_error;
7140: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
7141: RAISE FND_API.g_exc_unexpected_error;
7142: END IF;
7143: IF l_new_total_acct_amount IS NOT NULL THEN
7136: ,x_rate => l_rate
7137: );
7138: IF l_return_status = FND_API.g_ret_sts_error THEN
7139: RAISE FND_API.g_exc_error;
7140: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
7141: RAISE FND_API.g_exc_unexpected_error;
7142: END IF;
7143: IF l_new_total_acct_amount IS NOT NULL THEN
7144: l_new_total_amount := OZF_UTILITY_PVT.CurrRound(l_new_total_acct_amount, G_CLAIM_CURRENCY);
7137: );
7138: IF l_return_status = FND_API.g_ret_sts_error THEN
7139: RAISE FND_API.g_exc_error;
7140: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
7141: RAISE FND_API.g_exc_unexpected_error;
7142: END IF;
7143: IF l_new_total_acct_amount IS NOT NULL THEN
7144: l_new_total_amount := OZF_UTILITY_PVT.CurrRound(l_new_total_acct_amount, G_CLAIM_CURRENCY);
7145: END IF;
7169: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
7170: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_ASSO_COMPLETE_OFFER');
7171: FND_MSG_PUB.add;
7172: END IF;
7173: RAISE FND_API.g_exc_error;
7174: END IF;
7175: END IF;
7176: END IF;
7177:
7204: END IF;
7205:
7206: Delete_Group_Line_Util(
7207: p_api_version => l_api_version
7208: ,p_init_msg_list => FND_API.g_false
7209: ,p_commit => FND_API.g_false
7210: ,p_validation_level => p_validation_level
7211: ,x_return_status => l_return_status
7212: ,x_msg_data => x_msg_data
7205:
7206: Delete_Group_Line_Util(
7207: p_api_version => l_api_version
7208: ,p_init_msg_list => FND_API.g_false
7209: ,p_commit => FND_API.g_false
7210: ,p_validation_level => p_validation_level
7211: ,x_return_status => l_return_status
7212: ,x_msg_data => x_msg_data
7213: ,x_msg_count => x_msg_count
7212: ,x_msg_data => x_msg_data
7213: ,x_msg_count => x_msg_count
7214: ,p_funds_util_flt => l_funds_util_flt
7215: );
7216: IF l_return_status = fnd_api.g_ret_sts_error THEN
7217: RAISE FND_API.g_exc_error;
7218: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7219: RAISE FND_API.g_exc_unexpected_error;
7220: END IF;
7213: ,x_msg_count => x_msg_count
7214: ,p_funds_util_flt => l_funds_util_flt
7215: );
7216: IF l_return_status = fnd_api.g_ret_sts_error THEN
7217: RAISE FND_API.g_exc_error;
7218: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7219: RAISE FND_API.g_exc_unexpected_error;
7220: END IF;
7221: ELSIF ( l_diff_total_amount > 0 ) OR
7214: ,p_funds_util_flt => l_funds_util_flt
7215: );
7216: IF l_return_status = fnd_api.g_ret_sts_error THEN
7217: RAISE FND_API.g_exc_error;
7218: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7219: RAISE FND_API.g_exc_unexpected_error;
7220: END IF;
7221: ELSIF ( l_diff_total_amount > 0 ) OR
7222: ( l_diff_total_amount <= 0 AND l_prorate_req_flag )
7215: );
7216: IF l_return_status = fnd_api.g_ret_sts_error THEN
7217: RAISE FND_API.g_exc_error;
7218: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7219: RAISE FND_API.g_exc_unexpected_error;
7220: END IF;
7221: ELSIF ( l_diff_total_amount > 0 ) OR
7222: ( l_diff_total_amount <= 0 AND l_prorate_req_flag )
7223: THEN
7225: IF l_prorate_req_flag THEN
7226: ---------- 1. Delete All Line Utils -------------------
7227: Delete_All_Line_Util(
7228: p_api_version => l_api_version
7229: ,p_init_msg_list => FND_API.g_false
7230: ,p_commit => FND_API.g_false
7231: ,p_validation_level => p_validation_level
7232: ,x_return_status => l_return_status
7233: ,x_msg_data => x_msg_data
7226: ---------- 1. Delete All Line Utils -------------------
7227: Delete_All_Line_Util(
7228: p_api_version => l_api_version
7229: ,p_init_msg_list => FND_API.g_false
7230: ,p_commit => FND_API.g_false
7231: ,p_validation_level => p_validation_level
7232: ,x_return_status => l_return_status
7233: ,x_msg_data => x_msg_data
7234: ,x_msg_count => x_msg_count
7233: ,x_msg_data => x_msg_data
7234: ,x_msg_count => x_msg_count
7235: ,p_funds_util_flt => l_funds_util_flt
7236: );
7237: IF l_return_status = FND_API.g_ret_sts_error THEN
7238: RAISE FND_API.g_exc_error;
7239: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
7240: RAISE FND_API.g_exc_error;
7241: END IF;
7234: ,x_msg_count => x_msg_count
7235: ,p_funds_util_flt => l_funds_util_flt
7236: );
7237: IF l_return_status = FND_API.g_ret_sts_error THEN
7238: RAISE FND_API.g_exc_error;
7239: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
7240: RAISE FND_API.g_exc_error;
7241: END IF;
7242:
7235: ,p_funds_util_flt => l_funds_util_flt
7236: );
7237: IF l_return_status = FND_API.g_ret_sts_error THEN
7238: RAISE FND_API.g_exc_error;
7239: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
7240: RAISE FND_API.g_exc_error;
7241: END IF;
7242:
7243: -- Recreate utils for the entire amount
7236: );
7237: IF l_return_status = FND_API.g_ret_sts_error THEN
7238: RAISE FND_API.g_exc_error;
7239: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
7240: RAISE FND_API.g_exc_error;
7241: END IF;
7242:
7243: -- Recreate utils for the entire amount
7244: l_cre_total_amount := NVL(l_new_total_amount, 0);
7297: l_line_util_tbl(l_counter).amount := l_fu_amt_rem;
7298: l_line_util_tbl(l_counter).claim_line_id := l_funds_util_flt.claim_line_id;
7299: l_line_util_tbl(l_counter).activity_product_id := l_funds_util_flt.activity_product_id;
7300: l_line_util_tbl(l_counter).uom_code := l_util_uom_code;
7301: l_line_util_tbl(l_counter).update_from_tbl_flag := FND_API.g_true;
7302: l_counter := l_counter + 1;
7303: END LOOP;
7304: CLOSE csr_sd_accruals;
7305: GOTO create_line_util;
7311: l_total_pay_over_flag := l_funds_util_flt.pay_over_all_flag;
7312: IF l_total_pay_over_flag IS NULL OR l_total_pay_over_flag = FALSE THEN
7313: Get_Utiz_Sql_Stmt(
7314: p_api_version => 1.0
7315: ,p_init_msg_list => FND_API.g_false
7316: ,p_commit => FND_API.g_false
7317: ,p_validation_level => FND_API.g_valid_level_full
7318: ,x_return_status => l_return_status
7319: ,x_msg_count => x_msg_count
7312: IF l_total_pay_over_flag IS NULL OR l_total_pay_over_flag = FALSE THEN
7313: Get_Utiz_Sql_Stmt(
7314: p_api_version => 1.0
7315: ,p_init_msg_list => FND_API.g_false
7316: ,p_commit => FND_API.g_false
7317: ,p_validation_level => FND_API.g_valid_level_full
7318: ,x_return_status => l_return_status
7319: ,x_msg_count => x_msg_count
7320: ,x_msg_data => x_msg_data
7313: Get_Utiz_Sql_Stmt(
7314: p_api_version => 1.0
7315: ,p_init_msg_list => FND_API.g_false
7316: ,p_commit => FND_API.g_false
7317: ,p_validation_level => FND_API.g_valid_level_full
7318: ,x_return_status => l_return_status
7319: ,x_msg_count => x_msg_count
7320: ,x_msg_data => x_msg_data
7321: ,p_summary_view => p_summary_view
7322: ,p_funds_util_flt => l_funds_util_flt
7323: ,p_cust_account_id => l_funds_util_flt.cust_account_id
7324: ,x_utiz_sql_stmt => l_funds_util_sql
7325: );
7326: IF l_return_status = FND_API.g_ret_sts_error THEN
7327: RAISE FND_API.g_exc_error;
7328: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
7329: RAISE FND_API.g_exc_error;
7330: END IF;
7323: ,p_cust_account_id => l_funds_util_flt.cust_account_id
7324: ,x_utiz_sql_stmt => l_funds_util_sql
7325: );
7326: IF l_return_status = FND_API.g_ret_sts_error THEN
7327: RAISE FND_API.g_exc_error;
7328: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
7329: RAISE FND_API.g_exc_error;
7330: END IF;
7331:
7324: ,x_utiz_sql_stmt => l_funds_util_sql
7325: );
7326: IF l_return_status = FND_API.g_ret_sts_error THEN
7327: RAISE FND_API.g_exc_error;
7328: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
7329: RAISE FND_API.g_exc_error;
7330: END IF;
7331:
7332: -- use FND_DSQL package for dynamic sql and bind variables
7325: );
7326: IF l_return_status = FND_API.g_ret_sts_error THEN
7327: RAISE FND_API.g_exc_error;
7328: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
7329: RAISE FND_API.g_exc_error;
7330: END IF;
7331:
7332: -- use FND_DSQL package for dynamic sql and bind variables
7333: l_funds_util_csr := DBMS_SQL.open_cursor;
7388: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
7389: FND_MESSAGE.set_name('OZF', 'OZF_ASSO_NEG_AMT');
7390: FND_MSG_PUB.add;
7391: END IF;
7392: RAISE FND_API.g_exc_error;
7393: END IF;
7394: END IF;
7395:
7396: --Condition modified for bugfix : 6042226.
7403: THEN
7404: -- IF l_cre_total_amount > l_total_amt_rem THEN
7405: Validate_Over_Utilization(
7406: p_api_version => l_api_version
7407: ,p_init_msg_list => FND_API.g_false
7408: ,p_validation_level => p_validation_level
7409: ,x_return_status => l_return_status
7410: ,x_msg_count => x_msg_count
7411: ,x_msg_data => x_msg_data
7410: ,x_msg_count => x_msg_count
7411: ,x_msg_data => x_msg_data
7412: ,p_funds_util_flt => l_funds_util_flt
7413: );
7414: IF l_return_status = fnd_api.g_ret_sts_error THEN
7415: RAISE FND_API.g_exc_error;
7416: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7417: RAISE FND_API.g_exc_unexpected_error;
7418: END IF;
7411: ,x_msg_data => x_msg_data
7412: ,p_funds_util_flt => l_funds_util_flt
7413: );
7414: IF l_return_status = fnd_api.g_ret_sts_error THEN
7415: RAISE FND_API.g_exc_error;
7416: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7417: RAISE FND_API.g_exc_unexpected_error;
7418: END IF;
7419:
7412: ,p_funds_util_flt => l_funds_util_flt
7413: );
7414: IF l_return_status = fnd_api.g_ret_sts_error THEN
7415: RAISE FND_API.g_exc_error;
7416: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7417: RAISE FND_API.g_exc_unexpected_error;
7418: END IF;
7419:
7420: IF l_total_amt_rem = 0 THEN
7413: );
7414: IF l_return_status = fnd_api.g_ret_sts_error THEN
7415: RAISE FND_API.g_exc_error;
7416: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7417: RAISE FND_API.g_exc_unexpected_error;
7418: END IF;
7419:
7420: IF l_total_amt_rem = 0 THEN
7421: /* When amount remaining is 0, offer must be able to create accruals */
7425: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
7426: FND_MESSAGE.set_name('OZF', 'OZF_EARN_AVAIL_AMT_ZERO');
7427: FND_MSG_PUB.add;
7428: END IF;
7429: RAISE FND_API.g_exc_error;
7430: END IF;
7431: END IF;
7432: END IF;
7433:
7490: l_line_util_tbl(l_counter).claim_line_id := l_funds_util_flt.claim_line_id;
7491: l_line_util_tbl(l_counter).activity_product_id := l_funds_util_flt.activity_product_id;
7492: l_line_util_tbl(l_counter).uom_code := l_util_uom_code;
7493: l_line_util_tbl(l_counter).quantity := l_util_quantity;
7494: l_line_util_tbl(l_counter).update_from_tbl_flag := FND_API.g_true;
7495: EXIT WHEN l_counter = l_funds_rem_tbl.LAST;
7496: l_counter := l_funds_rem_tbl.NEXT(l_counter);
7497: END LOOP;
7498: l_cre_total_amount := 0;
7569:
7570: l_line_util_tbl(l_counter).claim_line_id := l_funds_util_flt.claim_line_id;
7571: l_line_util_tbl(l_counter).activity_product_id := l_funds_util_flt.activity_product_id;
7572: l_line_util_tbl(l_counter).uom_code := l_util_uom_code;
7573: l_line_util_tbl(l_counter).update_from_tbl_flag := FND_API.g_true;
7574:
7575: EXIT WHEN l_cre_total_amount = 0;
7576: EXIT WHEN l_funds_util_end = 'Y';
7577: EXIT WHEN l_counter = l_funds_rem_tbl.LAST;
7604: l_line_util_tbl(l_counter).claim_line_id := l_funds_util_flt.claim_line_id;
7605: l_line_util_tbl(l_counter).activity_product_id := l_funds_util_flt.activity_product_id;
7606: l_line_util_tbl(l_counter).uom_code := l_util_uom_code;
7607: l_line_util_tbl(l_counter).quantity := l_util_quantity;
7608: l_line_util_tbl(l_counter).update_from_tbl_flag := FND_API.g_true;
7609: ELSE
7610: -- create fund adjustments for non scan data offers
7611:
7612: -- Bug4348163: Adjustments should also be pro-rated if pro-rate flag is checked.
7670: ,x_msg_count => x_msg_count
7671: ,x_msg_data => x_msg_data
7672: ,x_adj_util_id => l_adj_util_id
7673: );
7674: IF l_return_status = fnd_api.g_ret_sts_error THEN
7675: RAISE FND_API.g_exc_error;
7676: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7677: RAISE FND_API.g_exc_unexpected_error;
7678: END IF;
7671: ,x_msg_data => x_msg_data
7672: ,x_adj_util_id => l_adj_util_id
7673: );
7674: IF l_return_status = fnd_api.g_ret_sts_error THEN
7675: RAISE FND_API.g_exc_error;
7676: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7677: RAISE FND_API.g_exc_unexpected_error;
7678: END IF;
7679:
7672: ,x_adj_util_id => l_adj_util_id
7673: );
7674: IF l_return_status = fnd_api.g_ret_sts_error THEN
7675: RAISE FND_API.g_exc_error;
7676: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7677: RAISE FND_API.g_exc_unexpected_error;
7678: END IF;
7679:
7680: l_counter := l_counter + 1;
7673: );
7674: IF l_return_status = fnd_api.g_ret_sts_error THEN
7675: RAISE FND_API.g_exc_error;
7676: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7677: RAISE FND_API.g_exc_unexpected_error;
7678: END IF;
7679:
7680: l_counter := l_counter + 1;
7681: l_line_util_tbl(l_counter).amount := l_prorate_adj_amt;
7680: l_counter := l_counter + 1;
7681: l_line_util_tbl(l_counter).amount := l_prorate_adj_amt;
7682: l_line_util_tbl(l_counter).utilization_id := l_adj_util_id;
7683: l_line_util_tbl(l_counter).claim_line_id := l_funds_util_flt.claim_line_id;
7684: l_line_util_tbl(l_counter).update_from_tbl_flag := FND_API.g_true;
7685:
7686: END IF;
7687: EXIT WHEN l_dummy_counter = l_total_util_counter;
7688: l_dummy_counter := l_dummy_counter + 1;
7734: ,x_msg_count => x_msg_count
7735: ,x_msg_data => x_msg_data
7736: ,x_adj_util_id => l_adj_util_id
7737: );
7738: IF l_return_status = fnd_api.g_ret_sts_error THEN
7739: RAISE FND_API.g_exc_error;
7740: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7741: RAISE FND_API.g_exc_unexpected_error;
7742: END IF;
7735: ,x_msg_data => x_msg_data
7736: ,x_adj_util_id => l_adj_util_id
7737: );
7738: IF l_return_status = fnd_api.g_ret_sts_error THEN
7739: RAISE FND_API.g_exc_error;
7740: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7741: RAISE FND_API.g_exc_unexpected_error;
7742: END IF;
7743:
7736: ,x_adj_util_id => l_adj_util_id
7737: );
7738: IF l_return_status = fnd_api.g_ret_sts_error THEN
7739: RAISE FND_API.g_exc_error;
7740: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7741: RAISE FND_API.g_exc_unexpected_error;
7742: END IF;
7743:
7744: l_counter := l_counter + 1;
7737: );
7738: IF l_return_status = fnd_api.g_ret_sts_error THEN
7739: RAISE FND_API.g_exc_error;
7740: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7741: RAISE FND_API.g_exc_unexpected_error;
7742: END IF;
7743:
7744: l_counter := l_counter + 1;
7745: l_line_util_tbl(l_counter).amount := l_prorate_adj_amt;
7744: l_counter := l_counter + 1;
7745: l_line_util_tbl(l_counter).amount := l_prorate_adj_amt;
7746: l_line_util_tbl(l_counter).utilization_id := l_adj_util_id;
7747: l_line_util_tbl(l_counter).claim_line_id := l_funds_util_flt.claim_line_id;
7748: l_line_util_tbl(l_counter).update_from_tbl_flag := FND_API.g_true;
7749:
7750: IF OZF_DEBUG_LOW_ON THEN
7751: OZF_Utility_PVT.debug_message('l_line_util_tbl(l_counter).amount = ' ||l_line_util_tbl(l_counter).amount );
7752: OZF_Utility_PVT.debug_message('l_tot_prorate_adj_amt = ' ||l_tot_prorate_adj_amt );
7785: ,x_msg_count => x_msg_count
7786: ,x_msg_data => x_msg_data
7787: ,x_adj_util_id => l_adj_util_id
7788: );
7789: IF l_return_status = fnd_api.g_ret_sts_error THEN
7790: RAISE FND_API.g_exc_error;
7791: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7792: RAISE FND_API.g_exc_unexpected_error;
7793: END IF;
7786: ,x_msg_data => x_msg_data
7787: ,x_adj_util_id => l_adj_util_id
7788: );
7789: IF l_return_status = fnd_api.g_ret_sts_error THEN
7790: RAISE FND_API.g_exc_error;
7791: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7792: RAISE FND_API.g_exc_unexpected_error;
7793: END IF;
7794:
7787: ,x_adj_util_id => l_adj_util_id
7788: );
7789: IF l_return_status = fnd_api.g_ret_sts_error THEN
7790: RAISE FND_API.g_exc_error;
7791: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7792: RAISE FND_API.g_exc_unexpected_error;
7793: END IF;
7794:
7795: l_counter := l_counter + 1;
7788: );
7789: IF l_return_status = fnd_api.g_ret_sts_error THEN
7790: RAISE FND_API.g_exc_error;
7791: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7792: RAISE FND_API.g_exc_unexpected_error;
7793: END IF;
7794:
7795: l_counter := l_counter + 1;
7796:
7802: , G_ACCRUAL_CURRENCY);
7803: END IF;
7804: l_line_util_tbl(l_counter).utilization_id := l_adj_util_id;
7805: l_line_util_tbl(l_counter).claim_line_id := l_funds_util_flt.claim_line_id;
7806: l_line_util_tbl(l_counter).update_from_tbl_flag := FND_API.g_true;
7807: l_tot_prorate_adj_amt := NVL( l_tot_prorate_adj_amt,0) + l_line_util_tbl(l_counter).amount;
7808: END LOOP;
7809: CLOSE csr_source_fund;
7810: --3. Last record needs rounding
7828: END IF;
7829:
7830: Create_Line_Util_Tbl(
7831: p_api_version => l_api_version
7832: ,p_init_msg_list => FND_API.g_false
7833: ,p_commit => FND_API.g_false
7834: ,p_validation_level => p_validation_level
7835: ,x_return_status => l_return_status
7836: ,x_msg_data => x_msg_data
7829:
7830: Create_Line_Util_Tbl(
7831: p_api_version => l_api_version
7832: ,p_init_msg_list => FND_API.g_false
7833: ,p_commit => FND_API.g_false
7834: ,p_validation_level => p_validation_level
7835: ,x_return_status => l_return_status
7836: ,x_msg_data => x_msg_data
7837: ,x_msg_count => x_msg_count
7837: ,x_msg_count => x_msg_count
7838: ,p_line_util_tbl => l_line_util_tbl
7839: ,x_error_index => l_error_index
7840: );
7841: IF l_return_status = fnd_api.g_ret_sts_error THEN
7842: RAISE FND_API.g_exc_error;
7843: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7844: RAISE FND_API.g_exc_unexpected_error;
7845: END IF;
7838: ,p_line_util_tbl => l_line_util_tbl
7839: ,x_error_index => l_error_index
7840: );
7841: IF l_return_status = fnd_api.g_ret_sts_error THEN
7842: RAISE FND_API.g_exc_error;
7843: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7844: RAISE FND_API.g_exc_unexpected_error;
7845: END IF;
7846: END IF;
7839: ,x_error_index => l_error_index
7840: );
7841: IF l_return_status = fnd_api.g_ret_sts_error THEN
7842: RAISE FND_API.g_exc_error;
7843: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7844: RAISE FND_API.g_exc_unexpected_error;
7845: END IF;
7846: END IF;
7847: END IF;
7840: );
7841: IF l_return_status = fnd_api.g_ret_sts_error THEN
7842: RAISE FND_API.g_exc_error;
7843: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7844: RAISE FND_API.g_exc_unexpected_error;
7845: END IF;
7846: END IF;
7847: END IF;
7848:
7847: END IF;
7848:
7849: ------------------------- finish -------------------------------
7850: -- Check for commit
7851: IF FND_API.to_boolean(p_commit) THEN
7852: COMMIT;
7853: END IF;
7854:
7855: FND_MSG_PUB.count_and_get(
7852: COMMIT;
7853: END IF;
7854:
7855: FND_MSG_PUB.count_and_get(
7856: p_encoded => FND_API.g_false,
7857: p_count => x_msg_count,
7858: p_data => x_msg_data
7859: );
7860:
7862: OZF_Utility_PVT.debug_message(l_full_name ||': end');
7863: END IF;
7864:
7865: EXCEPTION
7866: WHEN FND_API.g_exc_error THEN
7867: ROLLBACK TO Update_Group_Line_Util;
7868: x_return_status := FND_API.g_ret_sts_error;
7869: FND_MSG_PUB.count_and_get (
7870: p_encoded => FND_API.g_false
7864:
7865: EXCEPTION
7866: WHEN FND_API.g_exc_error THEN
7867: ROLLBACK TO Update_Group_Line_Util;
7868: x_return_status := FND_API.g_ret_sts_error;
7869: FND_MSG_PUB.count_and_get (
7870: p_encoded => FND_API.g_false
7871: ,p_count => x_msg_count
7872: ,p_data => x_msg_data
7866: WHEN FND_API.g_exc_error THEN
7867: ROLLBACK TO Update_Group_Line_Util;
7868: x_return_status := FND_API.g_ret_sts_error;
7869: FND_MSG_PUB.count_and_get (
7870: p_encoded => FND_API.g_false
7871: ,p_count => x_msg_count
7872: ,p_data => x_msg_data
7873: );
7874:
7871: ,p_count => x_msg_count
7872: ,p_data => x_msg_data
7873: );
7874:
7875: WHEN FND_API.g_exc_unexpected_error THEN
7876: ROLLBACK TO Update_Group_Line_Util;
7877: x_return_status := FND_API.g_ret_sts_unexp_error ;
7878: FND_MSG_PUB.count_and_get (
7879: p_encoded => FND_API.g_false
7873: );
7874:
7875: WHEN FND_API.g_exc_unexpected_error THEN
7876: ROLLBACK TO Update_Group_Line_Util;
7877: x_return_status := FND_API.g_ret_sts_unexp_error ;
7878: FND_MSG_PUB.count_and_get (
7879: p_encoded => FND_API.g_false
7880: ,p_count => x_msg_count
7881: ,p_data => x_msg_data
7875: WHEN FND_API.g_exc_unexpected_error THEN
7876: ROLLBACK TO Update_Group_Line_Util;
7877: x_return_status := FND_API.g_ret_sts_unexp_error ;
7878: FND_MSG_PUB.count_and_get (
7879: p_encoded => FND_API.g_false
7880: ,p_count => x_msg_count
7881: ,p_data => x_msg_data
7882: );
7883:
7882: );
7883:
7884: WHEN OTHERS THEN
7885: ROLLBACK TO Update_Group_Line_Util;
7886: x_return_status := FND_API.g_ret_sts_unexp_error ;
7887: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
7888: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
7889: END IF;
7890: FND_MSG_PUB.count_and_get(
7887: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
7888: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
7889: END IF;
7890: FND_MSG_PUB.count_and_get(
7891: p_encoded => FND_API.g_false
7892: ,p_count => x_msg_count
7893: ,p_data => x_msg_data
7894: );
7895:
7927: BEGIN
7928: --------------------- initialize -----------------------
7929: SAVEPOINT Del_Line_Util_By_Group;
7930:
7931: x_return_status := FND_API.G_RET_STS_SUCCESS;
7932:
7933: IF p_line_util_rec.utilization_id > 0 THEN
7934: ------------------ Update Uitlization ------------------
7935:
7940: ,x_return_status => l_return_status
7941: ,x_msg_count => x_msg_count
7942: ,x_msg_data => x_msg_data
7943: );
7944: IF l_return_status = fnd_api.g_ret_sts_error THEN
7945: RAISE FND_API.g_exc_error;
7946: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7947: RAISE FND_API.g_exc_unexpected_error;
7948: END IF;
7941: ,x_msg_count => x_msg_count
7942: ,x_msg_data => x_msg_data
7943: );
7944: IF l_return_status = fnd_api.g_ret_sts_error THEN
7945: RAISE FND_API.g_exc_error;
7946: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7947: RAISE FND_API.g_exc_unexpected_error;
7948: END IF;
7949:
7942: ,x_msg_data => x_msg_data
7943: );
7944: IF l_return_status = fnd_api.g_ret_sts_error THEN
7945: RAISE FND_API.g_exc_error;
7946: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7947: RAISE FND_API.g_exc_unexpected_error;
7948: END IF;
7949:
7950: END IF; -- p_line_util_rec.utilization_id > 0
7943: );
7944: IF l_return_status = fnd_api.g_ret_sts_error THEN
7945: RAISE FND_API.g_exc_error;
7946: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7947: RAISE FND_API.g_exc_unexpected_error;
7948: END IF;
7949:
7950: END IF; -- p_line_util_rec.utilization_id > 0
7951:
7957: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
7958: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
7959: FND_MSG_PUB.add;
7960: END IF;
7961: RAISE FND_API.g_exc_error;
7962: END IF;
7963:
7964: -------------------- finish --------------------------
7965: FND_MSG_PUB.count_and_get(
7962: END IF;
7963:
7964: -------------------- finish --------------------------
7965: FND_MSG_PUB.count_and_get(
7966: p_encoded => FND_API.g_false,
7967: p_count => x_msg_count,
7968: p_data => x_msg_data
7969: );
7970:
7968: p_data => x_msg_data
7969: );
7970:
7971: EXCEPTION
7972: WHEN FND_API.g_exc_error THEN
7973: ROLLBACK TO Del_Line_Util_By_Group;
7974: x_return_status := FND_API.g_ret_sts_error;
7975: FND_MSG_PUB.count_and_get(
7976: p_encoded => FND_API.g_false,
7970:
7971: EXCEPTION
7972: WHEN FND_API.g_exc_error THEN
7973: ROLLBACK TO Del_Line_Util_By_Group;
7974: x_return_status := FND_API.g_ret_sts_error;
7975: FND_MSG_PUB.count_and_get(
7976: p_encoded => FND_API.g_false,
7977: p_count => x_msg_count,
7978: p_data => x_msg_data
7972: WHEN FND_API.g_exc_error THEN
7973: ROLLBACK TO Del_Line_Util_By_Group;
7974: x_return_status := FND_API.g_ret_sts_error;
7975: FND_MSG_PUB.count_and_get(
7976: p_encoded => FND_API.g_false,
7977: p_count => x_msg_count,
7978: p_data => x_msg_data
7979: );
7980:
7977: p_count => x_msg_count,
7978: p_data => x_msg_data
7979: );
7980:
7981: WHEN FND_API.g_exc_unexpected_error THEN
7982: ROLLBACK TO Del_Line_Util_By_Group;
7983: x_return_status := FND_API.g_ret_sts_unexp_error ;
7984: FND_MSG_PUB.count_and_get(
7985: p_encoded => FND_API.g_false,
7979: );
7980:
7981: WHEN FND_API.g_exc_unexpected_error THEN
7982: ROLLBACK TO Del_Line_Util_By_Group;
7983: x_return_status := FND_API.g_ret_sts_unexp_error ;
7984: FND_MSG_PUB.count_and_get(
7985: p_encoded => FND_API.g_false,
7986: p_count => x_msg_count,
7987: p_data => x_msg_data
7981: WHEN FND_API.g_exc_unexpected_error THEN
7982: ROLLBACK TO Del_Line_Util_By_Group;
7983: x_return_status := FND_API.g_ret_sts_unexp_error ;
7984: FND_MSG_PUB.count_and_get(
7985: p_encoded => FND_API.g_false,
7986: p_count => x_msg_count,
7987: p_data => x_msg_data
7988: );
7989:
7988: );
7989:
7990: WHEN OTHERS THEN
7991: ROLLBACK TO Del_Line_Util_By_Group;
7992: x_return_status := FND_API.g_ret_sts_unexp_error ;
7993: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
7994: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
7995: END IF;
7996: FND_MSG_PUB.count_and_get(
7993: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
7994: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
7995: END IF;
7996: FND_MSG_PUB.count_and_get(
7997: p_encoded => FND_API.g_false,
7998: p_count => x_msg_count,
7999: p_data => x_msg_data
8000: );
8001:
8011: -- 08-Aug-06 azahmed Modified for FXGL ER
8012: ---------------------------------------------------------------------
8013: PROCEDURE Delete_Group_Line_Util(
8014: p_api_version IN NUMBER
8015: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
8016: ,p_commit IN VARCHAR2 := FND_API.g_false
8017: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
8018:
8019: ,x_return_status OUT NOCOPY VARCHAR2
8012: ---------------------------------------------------------------------
8013: PROCEDURE Delete_Group_Line_Util(
8014: p_api_version IN NUMBER
8015: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
8016: ,p_commit IN VARCHAR2 := FND_API.g_false
8017: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
8018:
8019: ,x_return_status OUT NOCOPY VARCHAR2
8020: ,x_msg_count OUT NOCOPY NUMBER
8013: PROCEDURE Delete_Group_Line_Util(
8014: p_api_version IN NUMBER
8015: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
8016: ,p_commit IN VARCHAR2 := FND_API.g_false
8017: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
8018:
8019: ,x_return_status OUT NOCOPY VARCHAR2
8020: ,x_msg_count OUT NOCOPY NUMBER
8021: ,x_msg_data OUT NOCOPY VARCHAR2
8119: IF OZF_DEBUG_HIGH_ON THEN
8120: OZF_Utility_PVT.debug_message(l_full_name||': start');
8121: END IF;
8122:
8123: IF FND_API.to_boolean(p_init_msg_list) THEN
8124: FND_MSG_PUB.initialize;
8125: END IF;
8126:
8127: IF NOT FND_API.compatible_api_call(
8123: IF FND_API.to_boolean(p_init_msg_list) THEN
8124: FND_MSG_PUB.initialize;
8125: END IF;
8126:
8127: IF NOT FND_API.compatible_api_call(
8128: l_api_version,
8129: p_api_version,
8130: l_api_name,
8131: g_pkg_name
8129: p_api_version,
8130: l_api_name,
8131: g_pkg_name
8132: ) THEN
8133: RAISE FND_API.g_exc_unexpected_error;
8134: END IF;
8135:
8136: x_return_status := FND_API.g_ret_sts_success;
8137:
8132: ) THEN
8133: RAISE FND_API.g_exc_unexpected_error;
8134: END IF;
8135:
8136: x_return_status := FND_API.g_ret_sts_success;
8137:
8138: OPEN csr_function_currency;
8139: FETCH csr_function_currency INTO G_FUNCTIONAL_CURRENCY;
8140: CLOSE csr_function_currency;
8240:
8241: IF l_del_total_amount <> 0 THEN -- added for bugfix 4448859
8242: Get_Utiz_Sql_Stmt(
8243: p_api_version => l_api_version
8244: ,p_init_msg_list => FND_API.g_false
8245: ,p_commit => FND_API.g_false
8246: ,p_validation_level => FND_API.g_valid_level_full
8247: ,x_return_status => l_return_status
8248: ,x_msg_count => x_msg_count
8241: IF l_del_total_amount <> 0 THEN -- added for bugfix 4448859
8242: Get_Utiz_Sql_Stmt(
8243: p_api_version => l_api_version
8244: ,p_init_msg_list => FND_API.g_false
8245: ,p_commit => FND_API.g_false
8246: ,p_validation_level => FND_API.g_valid_level_full
8247: ,x_return_status => l_return_status
8248: ,x_msg_count => x_msg_count
8249: ,x_msg_data => x_msg_data
8242: Get_Utiz_Sql_Stmt(
8243: p_api_version => l_api_version
8244: ,p_init_msg_list => FND_API.g_false
8245: ,p_commit => FND_API.g_false
8246: ,p_validation_level => FND_API.g_valid_level_full
8247: ,x_return_status => l_return_status
8248: ,x_msg_count => x_msg_count
8249: ,x_msg_data => x_msg_data
8250: ,p_summary_view => 'DEL_GRP_LINE_UTIL'
8251: ,p_funds_util_flt => l_funds_util_flt
8252: ,p_cust_account_id => l_funds_util_flt.cust_account_id
8253: ,x_utiz_sql_stmt => l_funds_util_sql
8254: );
8255: IF l_return_status = FND_API.g_ret_sts_error THEN
8256: RAISE FND_API.g_exc_error;
8257: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
8258: RAISE FND_API.g_exc_unexpected_error;
8259: END IF;
8252: ,p_cust_account_id => l_funds_util_flt.cust_account_id
8253: ,x_utiz_sql_stmt => l_funds_util_sql
8254: );
8255: IF l_return_status = FND_API.g_ret_sts_error THEN
8256: RAISE FND_API.g_exc_error;
8257: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
8258: RAISE FND_API.g_exc_unexpected_error;
8259: END IF;
8260:
8253: ,x_utiz_sql_stmt => l_funds_util_sql
8254: );
8255: IF l_return_status = FND_API.g_ret_sts_error THEN
8256: RAISE FND_API.g_exc_error;
8257: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
8258: RAISE FND_API.g_exc_unexpected_error;
8259: END IF;
8260:
8261: -- use FND_DSQL package for dynamic sql and bind variables
8254: );
8255: IF l_return_status = FND_API.g_ret_sts_error THEN
8256: RAISE FND_API.g_exc_error;
8257: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
8258: RAISE FND_API.g_exc_unexpected_error;
8259: END IF;
8260:
8261: -- use FND_DSQL package for dynamic sql and bind variables
8262: l_funds_util_csr := DBMS_SQL.open_cursor;
8373: ,x_msg_count => x_msg_count
8374: ,x_msg_data => x_msg_data
8375: ,p_line_util_rec => l_line_util_tbl(i)
8376: );
8377: IF l_return_status = fnd_api.g_ret_sts_error THEN
8378: RAISE FND_API.g_exc_error;
8379: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8380: RAISE FND_API.g_exc_unexpected_error;
8381: END IF;
8374: ,x_msg_data => x_msg_data
8375: ,p_line_util_rec => l_line_util_tbl(i)
8376: );
8377: IF l_return_status = fnd_api.g_ret_sts_error THEN
8378: RAISE FND_API.g_exc_error;
8379: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8380: RAISE FND_API.g_exc_unexpected_error;
8381: END IF;
8382: END IF;
8375: ,p_line_util_rec => l_line_util_tbl(i)
8376: );
8377: IF l_return_status = fnd_api.g_ret_sts_error THEN
8378: RAISE FND_API.g_exc_error;
8379: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8380: RAISE FND_API.g_exc_unexpected_error;
8381: END IF;
8382: END IF;
8383: EXIT WHEN i = l_line_util_tbl.LAST;
8376: );
8377: IF l_return_status = fnd_api.g_ret_sts_error THEN
8378: RAISE FND_API.g_exc_error;
8379: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8380: RAISE FND_API.g_exc_unexpected_error;
8381: END IF;
8382: END IF;
8383: EXIT WHEN i = l_line_util_tbl.LAST;
8384: i := l_line_util_tbl.NEXT(i);
8386: END IF;
8387:
8388: --------------------- 2. update -----------------------
8389: IF (l_upd_line_util_rec.claim_line_util_id is not null
8390: AND l_upd_line_util_rec.claim_line_util_id <> FND_API.G_MISS_NUM) THEN
8391: -- Bugfix 5101106: Recalculate qty
8392: IF p_funds_util_flt.offer_type = 'SCAN_DATA' THEN
8393: OPEN csr_offer_profile(l_funds_util_flt.activity_product_id);
8394: FETCH csr_offer_profile INTO l_offer_uom_code
8412: END IF;
8413:
8414: Update_Line_Util(
8415: p_api_version => l_api_version
8416: ,p_init_msg_list => FND_API.g_false
8417: ,p_commit => FND_API.g_false
8418: ,p_validation_level => FND_API.g_valid_level_full
8419: ,x_return_status => l_return_status
8420: ,x_msg_count => x_msg_count
8413:
8414: Update_Line_Util(
8415: p_api_version => l_api_version
8416: ,p_init_msg_list => FND_API.g_false
8417: ,p_commit => FND_API.g_false
8418: ,p_validation_level => FND_API.g_valid_level_full
8419: ,x_return_status => l_return_status
8420: ,x_msg_count => x_msg_count
8421: ,x_msg_data => x_msg_data
8414: Update_Line_Util(
8415: p_api_version => l_api_version
8416: ,p_init_msg_list => FND_API.g_false
8417: ,p_commit => FND_API.g_false
8418: ,p_validation_level => FND_API.g_valid_level_full
8419: ,x_return_status => l_return_status
8420: ,x_msg_count => x_msg_count
8421: ,x_msg_data => x_msg_data
8422: ,p_line_util_rec => l_upd_line_util_rec
8421: ,x_msg_data => x_msg_data
8422: ,p_line_util_rec => l_upd_line_util_rec
8423: ,x_object_version => l_object_version_number
8424: );
8425: IF l_return_status = fnd_api.g_ret_sts_error THEN
8426: RAISE FND_API.g_exc_error;
8427: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8428: RAISE FND_API.g_exc_unexpected_error;
8429: END IF;
8422: ,p_line_util_rec => l_upd_line_util_rec
8423: ,x_object_version => l_object_version_number
8424: );
8425: IF l_return_status = fnd_api.g_ret_sts_error THEN
8426: RAISE FND_API.g_exc_error;
8427: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8428: RAISE FND_API.g_exc_unexpected_error;
8429: END IF;
8430: l_upd_line_util_rec.object_version_number := l_object_version_number;
8423: ,x_object_version => l_object_version_number
8424: );
8425: IF l_return_status = fnd_api.g_ret_sts_error THEN
8426: RAISE FND_API.g_exc_error;
8427: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8428: RAISE FND_API.g_exc_unexpected_error;
8429: END IF;
8430: l_upd_line_util_rec.object_version_number := l_object_version_number;
8431: END IF;
8424: );
8425: IF l_return_status = fnd_api.g_ret_sts_error THEN
8426: RAISE FND_API.g_exc_error;
8427: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8428: RAISE FND_API.g_exc_unexpected_error;
8429: END IF;
8430: l_upd_line_util_rec.object_version_number := l_object_version_number;
8431: END IF;
8432:
8444: END IF;
8445:
8446: ------------------------- finish -------------------------------
8447: -- Check for commit
8448: IF FND_API.to_boolean(p_commit) THEN
8449: COMMIT;
8450: END IF;
8451:
8452: FND_MSG_PUB.count_and_get(
8449: COMMIT;
8450: END IF;
8451:
8452: FND_MSG_PUB.count_and_get(
8453: p_encoded => FND_API.g_false,
8454: p_count => x_msg_count,
8455: p_data => x_msg_data
8456: );
8457:
8459: OZF_Utility_PVT.debug_message(l_full_name ||': end');
8460: END IF;
8461:
8462: EXCEPTION
8463: WHEN FND_API.g_exc_error THEN
8464: ROLLBACK TO Delete_Group_Line_Util;
8465: x_return_status := FND_API.g_ret_sts_error;
8466: FND_MSG_PUB.count_and_get (
8467: p_encoded => FND_API.g_false
8461:
8462: EXCEPTION
8463: WHEN FND_API.g_exc_error THEN
8464: ROLLBACK TO Delete_Group_Line_Util;
8465: x_return_status := FND_API.g_ret_sts_error;
8466: FND_MSG_PUB.count_and_get (
8467: p_encoded => FND_API.g_false
8468: ,p_count => x_msg_count
8469: ,p_data => x_msg_data
8463: WHEN FND_API.g_exc_error THEN
8464: ROLLBACK TO Delete_Group_Line_Util;
8465: x_return_status := FND_API.g_ret_sts_error;
8466: FND_MSG_PUB.count_and_get (
8467: p_encoded => FND_API.g_false
8468: ,p_count => x_msg_count
8469: ,p_data => x_msg_data
8470: );
8471:
8468: ,p_count => x_msg_count
8469: ,p_data => x_msg_data
8470: );
8471:
8472: WHEN FND_API.g_exc_unexpected_error THEN
8473: ROLLBACK TO Delete_Group_Line_Util;
8474: x_return_status := FND_API.g_ret_sts_unexp_error ;
8475: FND_MSG_PUB.count_and_get (
8476: p_encoded => FND_API.g_false
8470: );
8471:
8472: WHEN FND_API.g_exc_unexpected_error THEN
8473: ROLLBACK TO Delete_Group_Line_Util;
8474: x_return_status := FND_API.g_ret_sts_unexp_error ;
8475: FND_MSG_PUB.count_and_get (
8476: p_encoded => FND_API.g_false
8477: ,p_count => x_msg_count
8478: ,p_data => x_msg_data
8472: WHEN FND_API.g_exc_unexpected_error THEN
8473: ROLLBACK TO Delete_Group_Line_Util;
8474: x_return_status := FND_API.g_ret_sts_unexp_error ;
8475: FND_MSG_PUB.count_and_get (
8476: p_encoded => FND_API.g_false
8477: ,p_count => x_msg_count
8478: ,p_data => x_msg_data
8479: );
8480:
8479: );
8480:
8481: WHEN OTHERS THEN
8482: ROLLBACK TO Delete_Group_Line_Util;
8483: x_return_status := FND_API.g_ret_sts_unexp_error ;
8484: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
8485: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
8486: END IF;
8487: FND_MSG_PUB.count_and_get(
8484: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
8485: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
8486: END IF;
8487: FND_MSG_PUB.count_and_get(
8488: p_encoded => FND_API.g_false
8489: ,p_count => x_msg_count
8490: ,p_data => x_msg_data
8491: );
8492:
8503: --
8504: ---------------------------------------------------------------------
8505: PROCEDURE Update_Dummy_Utilizations(
8506: p_api_version IN NUMBER
8507: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
8508: ,p_commit IN VARCHAR2 := FND_API.g_false
8509: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
8510:
8511: ,x_return_status OUT NOCOPY VARCHAR2
8504: ---------------------------------------------------------------------
8505: PROCEDURE Update_Dummy_Utilizations(
8506: p_api_version IN NUMBER
8507: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
8508: ,p_commit IN VARCHAR2 := FND_API.g_false
8509: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
8510:
8511: ,x_return_status OUT NOCOPY VARCHAR2
8512: ,x_msg_count OUT NOCOPY NUMBER
8505: PROCEDURE Update_Dummy_Utilizations(
8506: p_api_version IN NUMBER
8507: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
8508: ,p_commit IN VARCHAR2 := FND_API.g_false
8509: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
8510:
8511: ,x_return_status OUT NOCOPY VARCHAR2
8512: ,x_msg_count OUT NOCOPY NUMBER
8513: ,x_msg_data OUT NOCOPY VARCHAR2
8574: IF OZF_DEBUG_HIGH_ON THEN
8575: OZF_Utility_PVT.debug_message(l_full_name||': start');
8576: END IF;
8577:
8578: IF FND_API.to_boolean(p_init_msg_list) THEN
8579: FND_MSG_PUB.initialize;
8580: END IF;
8581:
8582: IF NOT FND_API.compatible_api_call(
8578: IF FND_API.to_boolean(p_init_msg_list) THEN
8579: FND_MSG_PUB.initialize;
8580: END IF;
8581:
8582: IF NOT FND_API.compatible_api_call(
8583: l_api_version,
8584: p_api_version,
8585: l_api_name,
8586: g_pkg_name
8584: p_api_version,
8585: l_api_name,
8586: g_pkg_name
8587: ) THEN
8588: RAISE FND_API.g_exc_unexpected_error;
8589: END IF;
8590:
8591: x_return_status := FND_API.g_ret_sts_success;
8592:
8587: ) THEN
8588: RAISE FND_API.g_exc_unexpected_error;
8589: END IF;
8590:
8591: x_return_status := FND_API.g_ret_sts_success;
8592:
8593: -------------------- update -----------------------
8594: OPEN csr_line_util_info(p_claim_line_util_id);
8595: FETCH csr_line_util_info INTO l_claim_line_id
8662: ---------- Create Group Line Utils -------------------
8663: IF l_counter > 1 THEN
8664: Create_Line_Util_Tbl(
8665: p_api_version => l_api_version
8666: ,p_init_msg_list => FND_API.g_false
8667: ,p_commit => FND_API.g_false
8668: ,p_validation_level => p_validation_level
8669: ,x_return_status => l_return_status
8670: ,x_msg_data => x_msg_data
8663: IF l_counter > 1 THEN
8664: Create_Line_Util_Tbl(
8665: p_api_version => l_api_version
8666: ,p_init_msg_list => FND_API.g_false
8667: ,p_commit => FND_API.g_false
8668: ,p_validation_level => p_validation_level
8669: ,x_return_status => l_return_status
8670: ,x_msg_data => x_msg_data
8671: ,x_msg_count => x_msg_count
8672: ,p_line_util_tbl => l_line_util_tbl
8673: ,p_mode => p_mode
8674: ,x_error_index => l_error_index
8675: );
8676: IF l_return_status = fnd_api.g_ret_sts_error THEN
8677: RAISE FND_API.g_exc_error;
8678: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8679: RAISE FND_API.g_exc_unexpected_error;
8680: END IF;
8673: ,p_mode => p_mode
8674: ,x_error_index => l_error_index
8675: );
8676: IF l_return_status = fnd_api.g_ret_sts_error THEN
8677: RAISE FND_API.g_exc_error;
8678: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8679: RAISE FND_API.g_exc_unexpected_error;
8680: END IF;
8681: END IF;
8674: ,x_error_index => l_error_index
8675: );
8676: IF l_return_status = fnd_api.g_ret_sts_error THEN
8677: RAISE FND_API.g_exc_error;
8678: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8679: RAISE FND_API.g_exc_unexpected_error;
8680: END IF;
8681: END IF;
8682:
8675: );
8676: IF l_return_status = fnd_api.g_ret_sts_error THEN
8677: RAISE FND_API.g_exc_error;
8678: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8679: RAISE FND_API.g_exc_unexpected_error;
8680: END IF;
8681: END IF;
8682:
8683: ------------------------- finish -------------------------------
8681: END IF;
8682:
8683: ------------------------- finish -------------------------------
8684: -- Check for commit
8685: IF FND_API.to_boolean(p_commit) THEN
8686: COMMIT;
8687: END IF;
8688:
8689: FND_MSG_PUB.count_and_get(
8686: COMMIT;
8687: END IF;
8688:
8689: FND_MSG_PUB.count_and_get(
8690: p_encoded => FND_API.g_false,
8691: p_count => x_msg_count,
8692: p_data => x_msg_data
8693: );
8694:
8696: OZF_Utility_PVT.debug_message(l_full_name ||': end');
8697: END IF;
8698:
8699: EXCEPTION
8700: WHEN FND_API.g_exc_error THEN
8701: ROLLBACK TO Update_Dummy_Utilizations;
8702: x_return_status := FND_API.g_ret_sts_error;
8703: FND_MSG_PUB.count_and_get (
8704: p_encoded => FND_API.g_false
8698:
8699: EXCEPTION
8700: WHEN FND_API.g_exc_error THEN
8701: ROLLBACK TO Update_Dummy_Utilizations;
8702: x_return_status := FND_API.g_ret_sts_error;
8703: FND_MSG_PUB.count_and_get (
8704: p_encoded => FND_API.g_false
8705: ,p_count => x_msg_count
8706: ,p_data => x_msg_data
8700: WHEN FND_API.g_exc_error THEN
8701: ROLLBACK TO Update_Dummy_Utilizations;
8702: x_return_status := FND_API.g_ret_sts_error;
8703: FND_MSG_PUB.count_and_get (
8704: p_encoded => FND_API.g_false
8705: ,p_count => x_msg_count
8706: ,p_data => x_msg_data
8707: );
8708:
8705: ,p_count => x_msg_count
8706: ,p_data => x_msg_data
8707: );
8708:
8709: WHEN FND_API.g_exc_unexpected_error THEN
8710: ROLLBACK TO Update_Dummy_Utilizations;
8711: x_return_status := FND_API.g_ret_sts_unexp_error ;
8712: FND_MSG_PUB.count_and_get (
8713: p_encoded => FND_API.g_false
8707: );
8708:
8709: WHEN FND_API.g_exc_unexpected_error THEN
8710: ROLLBACK TO Update_Dummy_Utilizations;
8711: x_return_status := FND_API.g_ret_sts_unexp_error ;
8712: FND_MSG_PUB.count_and_get (
8713: p_encoded => FND_API.g_false
8714: ,p_count => x_msg_count
8715: ,p_data => x_msg_data
8709: WHEN FND_API.g_exc_unexpected_error THEN
8710: ROLLBACK TO Update_Dummy_Utilizations;
8711: x_return_status := FND_API.g_ret_sts_unexp_error ;
8712: FND_MSG_PUB.count_and_get (
8713: p_encoded => FND_API.g_false
8714: ,p_count => x_msg_count
8715: ,p_data => x_msg_data
8716: );
8717:
8716: );
8717:
8718: WHEN OTHERS THEN
8719: ROLLBACK TO Update_Dummy_Utilizations;
8720: x_return_status := FND_API.g_ret_sts_unexp_error ;
8721: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
8722: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
8723: END IF;
8724: FND_MSG_PUB.count_and_get(
8721: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
8722: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
8723: END IF;
8724: FND_MSG_PUB.count_and_get(
8725: p_encoded => FND_API.g_false
8726: ,p_count => x_msg_count
8727: ,p_data => x_msg_data
8728: );
8729:
8743: -- 27/03/06 azahmed Bugfix 5119143
8744: ---------------------------------------------------------------------
8745: PROCEDURE Adjust_Fund_Utilization(
8746: p_api_version IN NUMBER
8747: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
8748: ,p_commit IN VARCHAR2 := FND_API.g_false
8749: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
8750:
8751: ,x_return_status OUT NOCOPY VARCHAR2
8744: ---------------------------------------------------------------------
8745: PROCEDURE Adjust_Fund_Utilization(
8746: p_api_version IN NUMBER
8747: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
8748: ,p_commit IN VARCHAR2 := FND_API.g_false
8749: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
8750:
8751: ,x_return_status OUT NOCOPY VARCHAR2
8752: ,x_msg_count OUT NOCOPY NUMBER
8745: PROCEDURE Adjust_Fund_Utilization(
8746: p_api_version IN NUMBER
8747: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
8748: ,p_commit IN VARCHAR2 := FND_API.g_false
8749: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
8750:
8751: ,x_return_status OUT NOCOPY VARCHAR2
8752: ,x_msg_count OUT NOCOPY NUMBER
8753: ,x_msg_data OUT NOCOPY VARCHAR2
8850: IF OZF_DEBUG_HIGH_ON THEN
8851: OZF_Utility_PVT.debug_message(l_full_name||': start');
8852: END IF;
8853:
8854: IF FND_API.to_boolean(p_init_msg_list) THEN
8855: FND_MSG_PUB.initialize;
8856: END IF;
8857:
8858: IF NOT FND_API.compatible_api_call(
8854: IF FND_API.to_boolean(p_init_msg_list) THEN
8855: FND_MSG_PUB.initialize;
8856: END IF;
8857:
8858: IF NOT FND_API.compatible_api_call(
8859: l_api_version,
8860: p_api_version,
8861: l_api_name,
8862: g_pkg_name
8860: p_api_version,
8861: l_api_name,
8862: g_pkg_name
8863: ) THEN
8864: RAISE FND_API.g_exc_unexpected_error;
8865: END IF;
8866:
8867: x_return_status := FND_API.g_ret_sts_success;
8868:
8863: ) THEN
8864: RAISE FND_API.g_exc_unexpected_error;
8865: END IF;
8866:
8867: x_return_status := FND_API.g_ret_sts_success;
8868:
8869: -- initialized x_next_status; Settlement process needs to be contine if there is no
8870: -- associated earnings attached to claim line.
8871: x_next_status := 'CLOSED';
8898: ,p_bill_to_cust_acct_id => l_cust_account_id
8899: ,p_bill_to_site_use_id => l_bill_to_site_id
8900: ,p_ship_to_site_use_id => l_ship_to_site_id
8901: ,p_api_version => l_api_version
8902: ,p_init_msg_list => FND_API.g_false
8903: ,p_commit => FND_API.g_false
8904: ,x_msg_count => x_msg_count
8905: ,x_msg_data => x_msg_data
8906: ,x_return_status => l_return_status
8899: ,p_bill_to_site_use_id => l_bill_to_site_id
8900: ,p_ship_to_site_use_id => l_ship_to_site_id
8901: ,p_api_version => l_api_version
8902: ,p_init_msg_list => FND_API.g_false
8903: ,p_commit => FND_API.g_false
8904: ,x_msg_count => x_msg_count
8905: ,x_msg_data => x_msg_data
8906: ,x_return_status => l_return_status
8907: );
8904: ,x_msg_count => x_msg_count
8905: ,x_msg_data => x_msg_data
8906: ,x_return_status => l_return_status
8907: );
8908: IF l_return_status = fnd_api.g_ret_sts_error THEN
8909: RAISE FND_API.g_exc_error;
8910: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8911: RAISE FND_API.g_exc_unexpected_error;
8912: END IF;
8905: ,x_msg_data => x_msg_data
8906: ,x_return_status => l_return_status
8907: );
8908: IF l_return_status = fnd_api.g_ret_sts_error THEN
8909: RAISE FND_API.g_exc_error;
8910: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8911: RAISE FND_API.g_exc_unexpected_error;
8912: END IF;
8913:
8906: ,x_return_status => l_return_status
8907: );
8908: IF l_return_status = fnd_api.g_ret_sts_error THEN
8909: RAISE FND_API.g_exc_error;
8910: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8911: RAISE FND_API.g_exc_unexpected_error;
8912: END IF;
8913:
8914: Update_Dummy_Utilizations(
8907: );
8908: IF l_return_status = fnd_api.g_ret_sts_error THEN
8909: RAISE FND_API.g_exc_error;
8910: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8911: RAISE FND_API.g_exc_unexpected_error;
8912: END IF;
8913:
8914: Update_Dummy_Utilizations(
8915: p_api_version => l_api_version
8912: END IF;
8913:
8914: Update_Dummy_Utilizations(
8915: p_api_version => l_api_version
8916: ,p_init_msg_list => FND_API.g_false
8917: ,p_commit => FND_API.g_false
8918: ,p_validation_level => p_validation_level
8919: ,x_return_status => l_return_status
8920: ,x_msg_count => x_msg_count
8913:
8914: Update_Dummy_Utilizations(
8915: p_api_version => l_api_version
8916: ,p_init_msg_list => FND_API.g_false
8917: ,p_commit => FND_API.g_false
8918: ,p_validation_level => p_validation_level
8919: ,x_return_status => l_return_status
8920: ,x_msg_count => x_msg_count
8921: ,x_msg_data => x_msg_data
8921: ,x_msg_data => x_msg_data
8922: ,p_claim_line_util_id => l_claim_line_util_id
8923: ,p_mode => p_mode
8924: );
8925: IF l_return_status = fnd_api.g_ret_sts_error THEN
8926: RAISE FND_API.g_exc_error;
8927: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8928: RAISE FND_API.g_exc_unexpected_error;
8929: END IF;
8922: ,p_claim_line_util_id => l_claim_line_util_id
8923: ,p_mode => p_mode
8924: );
8925: IF l_return_status = fnd_api.g_ret_sts_error THEN
8926: RAISE FND_API.g_exc_error;
8927: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8928: RAISE FND_API.g_exc_unexpected_error;
8929: END IF;
8930:
8923: ,p_mode => p_mode
8924: );
8925: IF l_return_status = fnd_api.g_ret_sts_error THEN
8926: RAISE FND_API.g_exc_error;
8927: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8928: RAISE FND_API.g_exc_unexpected_error;
8929: END IF;
8930:
8931: x_next_status := 'CLOSED';
8924: );
8925: IF l_return_status = fnd_api.g_ret_sts_error THEN
8926: RAISE FND_API.g_exc_error;
8927: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8928: RAISE FND_API.g_exc_unexpected_error;
8929: END IF;
8930:
8931: x_next_status := 'CLOSED';
8932: ELSE
8941: FND_MESSAGE.Set_Token('TEXT',l_full_name||' : Manual Adjust Over Utilization is not supported.');
8942: FND_MSG_PUB.Add;
8943: END IF;
8944:
8945: RAISE FND_API.g_exc_unexpected_error;
8946: --Invoke_Adjustment_Workflow();
8947: END IF;
8948:
8949: END LOOP;
9003: p_act_budgets_rec => l_act_budgets_rec,
9004: p_act_util_rec =>l_act_util_rec,
9005: x_act_budget_id => l_act_budget_id
9006: );
9007: IF l_return_status = fnd_api.g_ret_sts_error THEN
9008: RAISE fnd_api.g_exc_error;
9009: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
9010: RAISE fnd_api.g_exc_unexpected_error;
9011: END IF;
9004: p_act_util_rec =>l_act_util_rec,
9005: x_act_budget_id => l_act_budget_id
9006: );
9007: IF l_return_status = fnd_api.g_ret_sts_error THEN
9008: RAISE fnd_api.g_exc_error;
9009: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
9010: RAISE fnd_api.g_exc_unexpected_error;
9011: END IF;
9012:
9005: x_act_budget_id => l_act_budget_id
9006: );
9007: IF l_return_status = fnd_api.g_ret_sts_error THEN
9008: RAISE fnd_api.g_exc_error;
9009: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
9010: RAISE fnd_api.g_exc_unexpected_error;
9011: END IF;
9012:
9013: Update_Dummy_Utilizations(
9006: );
9007: IF l_return_status = fnd_api.g_ret_sts_error THEN
9008: RAISE fnd_api.g_exc_error;
9009: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
9010: RAISE fnd_api.g_exc_unexpected_error;
9011: END IF;
9012:
9013: Update_Dummy_Utilizations(
9014: p_api_version => l_api_version
9011: END IF;
9012:
9013: Update_Dummy_Utilizations(
9014: p_api_version => l_api_version
9015: ,p_init_msg_list => FND_API.g_false
9016: ,p_commit => FND_API.g_false
9017: ,p_validation_level => p_validation_level
9018: ,x_return_status => l_return_status
9019: ,x_msg_count => x_msg_count
9012:
9013: Update_Dummy_Utilizations(
9014: p_api_version => l_api_version
9015: ,p_init_msg_list => FND_API.g_false
9016: ,p_commit => FND_API.g_false
9017: ,p_validation_level => p_validation_level
9018: ,x_return_status => l_return_status
9019: ,x_msg_count => x_msg_count
9020: ,x_msg_data => x_msg_data
9020: ,x_msg_data => x_msg_data
9021: ,p_claim_line_util_id => l_claim_line_util_id
9022: ,p_mode => p_mode
9023: );
9024: IF l_return_status = fnd_api.g_ret_sts_error THEN
9025: RAISE FND_API.g_exc_error;
9026: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
9027: RAISE FND_API.g_exc_unexpected_error;
9028: END IF;
9021: ,p_claim_line_util_id => l_claim_line_util_id
9022: ,p_mode => p_mode
9023: );
9024: IF l_return_status = fnd_api.g_ret_sts_error THEN
9025: RAISE FND_API.g_exc_error;
9026: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
9027: RAISE FND_API.g_exc_unexpected_error;
9028: END IF;
9029:
9022: ,p_mode => p_mode
9023: );
9024: IF l_return_status = fnd_api.g_ret_sts_error THEN
9025: RAISE FND_API.g_exc_error;
9026: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
9027: RAISE FND_API.g_exc_unexpected_error;
9028: END IF;
9029:
9030: x_next_status := 'CLOSED';
9023: );
9024: IF l_return_status = fnd_api.g_ret_sts_error THEN
9025: RAISE FND_API.g_exc_error;
9026: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
9027: RAISE FND_API.g_exc_unexpected_error;
9028: END IF;
9029:
9030: x_next_status := 'CLOSED';
9031: END LOOP;
9054: END IF;
9055:
9056: ------------------------- finish -------------------------------
9057: -- Check for commit
9058: IF FND_API.to_boolean(p_commit) THEN
9059: COMMIT;
9060: END IF;
9061:
9062: FND_MSG_PUB.count_and_get(
9059: COMMIT;
9060: END IF;
9061:
9062: FND_MSG_PUB.count_and_get(
9063: p_encoded => FND_API.g_false,
9064: p_count => x_msg_count,
9065: p_data => x_msg_data
9066: );
9067:
9069: OZF_Utility_PVT.debug_message(l_full_name ||': end');
9070: END IF;
9071:
9072: EXCEPTION
9073: WHEN FND_API.g_exc_error THEN
9074: ROLLBACK TO Adjust_Fund_Utilization;
9075: x_return_status := FND_API.g_ret_sts_error;
9076: FND_MSG_PUB.count_and_get (
9077: p_encoded => FND_API.g_false
9071:
9072: EXCEPTION
9073: WHEN FND_API.g_exc_error THEN
9074: ROLLBACK TO Adjust_Fund_Utilization;
9075: x_return_status := FND_API.g_ret_sts_error;
9076: FND_MSG_PUB.count_and_get (
9077: p_encoded => FND_API.g_false
9078: ,p_count => x_msg_count
9079: ,p_data => x_msg_data
9073: WHEN FND_API.g_exc_error THEN
9074: ROLLBACK TO Adjust_Fund_Utilization;
9075: x_return_status := FND_API.g_ret_sts_error;
9076: FND_MSG_PUB.count_and_get (
9077: p_encoded => FND_API.g_false
9078: ,p_count => x_msg_count
9079: ,p_data => x_msg_data
9080: );
9081:
9078: ,p_count => x_msg_count
9079: ,p_data => x_msg_data
9080: );
9081:
9082: WHEN FND_API.g_exc_unexpected_error THEN
9083: ROLLBACK TO Adjust_Fund_Utilization;
9084: x_return_status := FND_API.g_ret_sts_unexp_error ;
9085: FND_MSG_PUB.count_and_get (
9086: p_encoded => FND_API.g_false
9080: );
9081:
9082: WHEN FND_API.g_exc_unexpected_error THEN
9083: ROLLBACK TO Adjust_Fund_Utilization;
9084: x_return_status := FND_API.g_ret_sts_unexp_error ;
9085: FND_MSG_PUB.count_and_get (
9086: p_encoded => FND_API.g_false
9087: ,p_count => x_msg_count
9088: ,p_data => x_msg_data
9082: WHEN FND_API.g_exc_unexpected_error THEN
9083: ROLLBACK TO Adjust_Fund_Utilization;
9084: x_return_status := FND_API.g_ret_sts_unexp_error ;
9085: FND_MSG_PUB.count_and_get (
9086: p_encoded => FND_API.g_false
9087: ,p_count => x_msg_count
9088: ,p_data => x_msg_data
9089: );
9090:
9089: );
9090:
9091: WHEN OTHERS THEN
9092: ROLLBACK TO Adjust_Fund_Utilization;
9093: x_return_status := FND_API.g_ret_sts_unexp_error ;
9094: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
9095: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
9096: END IF;
9097: FND_MSG_PUB.count_and_get(
9094: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
9095: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
9096: END IF;
9097: FND_MSG_PUB.count_and_get(
9098: p_encoded => FND_API.g_false
9099: ,p_count => x_msg_count
9100: ,p_data => x_msg_data
9101: );
9102:
9176: ,x_return_status => l_return_status
9177: ,x_to_amount => l_utilized_amount
9178: ,x_rate => l_fu_exc_rate
9179: );
9180: IF l_return_status = FND_API.g_ret_sts_error THEN
9181: RAISE FND_API.g_exc_error;
9182: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
9183: RAISE FND_API.g_exc_unexpected_error;
9184: END IF;
9177: ,x_to_amount => l_utilized_amount
9178: ,x_rate => l_fu_exc_rate
9179: );
9180: IF l_return_status = FND_API.g_ret_sts_error THEN
9181: RAISE FND_API.g_exc_error;
9182: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
9183: RAISE FND_API.g_exc_unexpected_error;
9184: END IF;
9185: END IF;
9178: ,x_rate => l_fu_exc_rate
9179: );
9180: IF l_return_status = FND_API.g_ret_sts_error THEN
9181: RAISE FND_API.g_exc_error;
9182: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
9183: RAISE FND_API.g_exc_unexpected_error;
9184: END IF;
9185: END IF;
9186: ELSE
9179: );
9180: IF l_return_status = FND_API.g_ret_sts_error THEN
9181: RAISE FND_API.g_exc_error;
9182: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
9183: RAISE FND_API.g_exc_unexpected_error;
9184: END IF;
9185: END IF;
9186: ELSE
9187: -- Claim is in functional currency and association happening in another currency
9195: ,x_return_status => l_return_status
9196: ,x_to_amount => l_utilized_amount
9197: ,x_rate => l_fu_exc_rate
9198: );
9199: IF l_return_status = FND_API.g_ret_sts_error THEN
9200: RAISE FND_API.g_exc_error;
9201: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
9202: RAISE FND_API.g_exc_unexpected_error;
9203: END IF;
9196: ,x_to_amount => l_utilized_amount
9197: ,x_rate => l_fu_exc_rate
9198: );
9199: IF l_return_status = FND_API.g_ret_sts_error THEN
9200: RAISE FND_API.g_exc_error;
9201: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
9202: RAISE FND_API.g_exc_unexpected_error;
9203: END IF;
9204: END IF;
9197: ,x_rate => l_fu_exc_rate
9198: );
9199: IF l_return_status = FND_API.g_ret_sts_error THEN
9200: RAISE FND_API.g_exc_error;
9201: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
9202: RAISE FND_API.g_exc_unexpected_error;
9203: END IF;
9204: END IF;
9205:
9198: );
9199: IF l_return_status = FND_API.g_ret_sts_error THEN
9200: RAISE FND_API.g_exc_error;
9201: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
9202: RAISE FND_API.g_exc_unexpected_error;
9203: END IF;
9204: END IF;
9205:
9206: IF l_utilized_amount <> 0 THEN
9269:
9270: -- Approval is not required if claim performance approval is false
9271: -- in Claim Custom set up.
9272: IF l_perf_appr_require = 'N' THEN
9273: RETURN FND_API.g_false;
9274: END IF;
9275:
9276: -- Approval is not required if override profile is Yes
9277: IF FND_PROFILE.VALUE('OZF_OFFR_OVERRIDE_PERF_FLAG') = 'Y' THEN
9274: END IF;
9275:
9276: -- Approval is not required if override profile is Yes
9277: IF FND_PROFILE.VALUE('OZF_OFFR_OVERRIDE_PERF_FLAG') = 'Y' THEN
9278: RETURN FND_API.g_false;
9279: END IF;
9280:
9281: OPEN csr_line_util(p_claim_id);
9282: LOOP
9299: ,x_performance_flag => l_performance_flag
9300: ,x_offer_perf_tbl => l_offer_perf_tbl
9301: );
9302:
9303: IF l_performance_flag = FND_API.g_false THEN
9304: -- update ozf_claims.approved_flag
9305: UPDATE ozf_claims_all
9306: SET approved_flag = 'F'
9307: WHERE claim_id = p_claim_id;
9305: UPDATE ozf_claims_all
9306: SET approved_flag = 'F'
9307: WHERE claim_id = p_claim_id;
9308:
9309: RETURN FND_API.g_true;
9310: END IF;
9311: END IF;
9312: END LOOP;
9313: CLOSE csr_line_util;
9316: UPDATE ozf_claims_all
9317: SET approved_flag = 'T'
9318: WHERE claim_id = p_claim_id;
9319:
9320: RETURN FND_API.g_false;
9321: END Perform_Approval_Required;
9322:
9323:
9324: ---------------------------------------------------------------------
9424:
9425: -- Fix for bug 5177341
9426: IF l_un_earned_pay_thold_type = 'UNCONDITIONAL' OR
9427: l_un_earned_pay_thold_flag = 'F' THEN
9428: RETURN FND_API.g_false;
9429: END IF;
9430:
9431: OPEN csr_line_util(p_claim_id);
9432: LOOP
9448: END IF;
9449:
9450: --Fix for bug 7527018
9451: IF ABS(l_amount_remaining) > l_amount_threshold THEN
9452: RETURN FND_API.g_true;
9453: END IF;
9454: END IF;
9455: END LOOP;
9456: CLOSE csr_line_util;
9454: END IF;
9455: END LOOP;
9456: CLOSE csr_line_util;
9457:
9458: RETURN FND_API.g_false;
9459: END Earnings_Approval_Required;
9460:
9461:
9462: ---------------------------------------------------------------------
9518: ,x_performance_flag => l_performance_flag
9519: ,x_offer_perf_tbl => l_offer_perf_tbl
9520: );
9521:
9522: IF l_performance_flag = FND_API.g_false AND
9523: l_offer_perf_tbl.count > 0
9524: THEN
9525: FOR j IN l_offer_perf_tbl.FIRST..l_offer_perf_tbl.LAST LOOP
9526: l_counter := l_counter + 1;
9601: ---------------------------------------------------------------------
9602:
9603: PROCEDURE Initiate_SD_Payment(
9604: p_api_version IN NUMBER
9605: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
9606: ,p_commit IN VARCHAR2 := FND_API.g_false
9607: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
9608: ,x_return_status OUT NOCOPY VARCHAR2
9609: ,x_msg_count OUT NOCOPY NUMBER
9602:
9603: PROCEDURE Initiate_SD_Payment(
9604: p_api_version IN NUMBER
9605: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
9606: ,p_commit IN VARCHAR2 := FND_API.g_false
9607: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
9608: ,x_return_status OUT NOCOPY VARCHAR2
9609: ,x_msg_count OUT NOCOPY NUMBER
9610: ,x_msg_data OUT NOCOPY VARCHAR2
9603: PROCEDURE Initiate_SD_Payment(
9604: p_api_version IN NUMBER
9605: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
9606: ,p_commit IN VARCHAR2 := FND_API.g_false
9607: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
9608: ,x_return_status OUT NOCOPY VARCHAR2
9609: ,x_msg_count OUT NOCOPY NUMBER
9610: ,x_msg_data OUT NOCOPY VARCHAR2
9611: ,p_ship_debit_id IN NUMBER
9868: OZF_Utility_PVT.debug_message('p_ship_debit_id : '||p_ship_debit_id);
9869: OZF_Utility_PVT.debug_message('p_ship_debit_type : '||p_ship_debit_type);
9870: END IF;
9871:
9872: IF FND_API.to_boolean(p_init_msg_list) THEN
9873: FND_MSG_PUB.initialize;
9874: END IF;
9875:
9876: IF NOT FND_API.compatible_api_call(
9872: IF FND_API.to_boolean(p_init_msg_list) THEN
9873: FND_MSG_PUB.initialize;
9874: END IF;
9875:
9876: IF NOT FND_API.compatible_api_call(
9877: l_api_version,
9878: p_api_version,
9879: l_api_name,
9880: g_pkg_name
9878: p_api_version,
9879: l_api_name,
9880: g_pkg_name
9881: ) THEN
9882: RAISE FND_API.g_exc_unexpected_error;
9883: END IF;
9884:
9885: x_return_status := FND_API.g_ret_sts_success;
9886:
9881: ) THEN
9882: RAISE FND_API.g_exc_unexpected_error;
9883: END IF;
9884:
9885: x_return_status := FND_API.g_ret_sts_success;
9886:
9887: ----------------- Process batch ----------------
9888:
9889: IF p_ship_debit_id IS NULL OR p_ship_debit_type IS NULL THEN
10014: FND_MESSAGE.Set_Name('OZF', 'OZF_DUP_CUST_ACCTS');
10015: FND_MESSAGE.Set_Token('CUST_ACCOUNT_ID', l_cust_util_tbl(i).cust_account_id);
10016: FND_MSG_PUB.ADD;
10017: END IF;
10018: RAISE FND_API.g_exc_unexpected_error;
10019: END IF;
10020: END LOOP;
10021: END IF;
10022:
10125: ,p_from_amount => l_amount_offr_curr
10126: ,x_return_status => l_return_status
10127: ,x_to_amount => l_amount
10128: );
10129: IF l_return_status = FND_API.g_ret_sts_error THEN
10130: RAISE FND_API.g_exc_error;
10131: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
10132: RAISE FND_API.g_exc_unexpected_error;
10133: END IF;
10126: ,x_return_status => l_return_status
10127: ,x_to_amount => l_amount
10128: );
10129: IF l_return_status = FND_API.g_ret_sts_error THEN
10130: RAISE FND_API.g_exc_error;
10131: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
10132: RAISE FND_API.g_exc_unexpected_error;
10133: END IF;
10134: END IF;
10127: ,x_to_amount => l_amount
10128: );
10129: IF l_return_status = FND_API.g_ret_sts_error THEN
10130: RAISE FND_API.g_exc_error;
10131: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
10132: RAISE FND_API.g_exc_unexpected_error;
10133: END IF;
10134: END IF;
10135: END IF;
10128: );
10129: IF l_return_status = FND_API.g_ret_sts_error THEN
10130: RAISE FND_API.g_exc_error;
10131: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
10132: RAISE FND_API.g_exc_unexpected_error;
10133: END IF;
10134: END IF;
10135: END IF;
10136:
10165: FND_MESSAGE.Set_Name('OZF', 'OZF_PRODUCT_UOM_MISSING');
10166: FND_MESSAGE.Set_Token('ITEM_ID', l_line_tbl(l_counter).item_id);
10167: FND_MSG_PUB.ADD;
10168: END IF;
10169: RAISE FND_API.g_exc_unexpected_error;
10170: END IF;
10171: CLOSE csr_uom_code;
10172: END IF;
10173: END IF;
10183: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
10184: FND_MESSAGE.Set_Name('OZF', 'OZF_ACCRUAL_NOT_EXISTS');
10185: FND_MSG_PUB.ADD;
10186: END IF;
10187: RAISE FND_API.g_exc_unexpected_error;
10188: END IF;
10189:
10190: IF p_ship_debit_type = 'INTERNAL' THEN
10191: CLOSE csr_request_lines;
10264: ,p_claim => l_claim_rec
10265: ,x_claim_id => l_claim_id
10266: );
10267:
10268: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
10269: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10270: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10271: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10272: END IF;
10265: ,x_claim_id => l_claim_id
10266: );
10267:
10268: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
10269: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10270: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10271: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10272: END IF;
10273:
10266: );
10267:
10268: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
10269: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10270: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10271: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10272: END IF;
10273:
10274: IF l_rec_num = 1 THEN
10267:
10268: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
10269: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10270: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10271: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10272: END IF;
10273:
10274: IF l_rec_num = 1 THEN
10275: x_claim_id := l_claim_id;
10288:
10289: --Claim line creation
10290: OZF_CLAIM_LINE_PVT.Create_Claim_Line_Tbl(
10291: p_api_version => 1.0
10292: ,p_init_msg_list => FND_API.g_false
10293: ,p_commit => FND_API.g_false
10294: ,p_validation_level => FND_API.g_valid_level_full
10295: ,x_return_status => l_return_status
10296: ,x_msg_count => x_msg_count
10289: --Claim line creation
10290: OZF_CLAIM_LINE_PVT.Create_Claim_Line_Tbl(
10291: p_api_version => 1.0
10292: ,p_init_msg_list => FND_API.g_false
10293: ,p_commit => FND_API.g_false
10294: ,p_validation_level => FND_API.g_valid_level_full
10295: ,x_return_status => l_return_status
10296: ,x_msg_count => x_msg_count
10297: ,x_msg_data => x_msg_data
10290: OZF_CLAIM_LINE_PVT.Create_Claim_Line_Tbl(
10291: p_api_version => 1.0
10292: ,p_init_msg_list => FND_API.g_false
10293: ,p_commit => FND_API.g_false
10294: ,p_validation_level => FND_API.g_valid_level_full
10295: ,x_return_status => l_return_status
10296: ,x_msg_count => x_msg_count
10297: ,x_msg_data => x_msg_data
10298: ,p_claim_line_tbl => l_line_tbl
10298: ,p_claim_line_tbl => l_line_tbl
10299: ,x_error_index => l_error_index
10300: );
10301:
10302: IF l_return_status = FND_API.g_ret_sts_error THEN
10303: RAISE FND_API.g_exc_error;
10304: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
10305: RAISE FND_API.g_exc_error;
10306: END IF;
10299: ,x_error_index => l_error_index
10300: );
10301:
10302: IF l_return_status = FND_API.g_ret_sts_error THEN
10303: RAISE FND_API.g_exc_error;
10304: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
10305: RAISE FND_API.g_exc_error;
10306: END IF;
10307:
10300: );
10301:
10302: IF l_return_status = FND_API.g_ret_sts_error THEN
10303: RAISE FND_API.g_exc_error;
10304: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
10305: RAISE FND_API.g_exc_error;
10306: END IF;
10307:
10308: IF OZF_DEBUG_HIGH_ON THEN
10301:
10302: IF l_return_status = FND_API.g_ret_sts_error THEN
10303: RAISE FND_API.g_exc_error;
10304: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
10305: RAISE FND_API.g_exc_error;
10306: END IF;
10307:
10308: IF OZF_DEBUG_HIGH_ON THEN
10309: OZF_Utility_PVT.debug_message('Claim lines created for claim_id=' || l_claim_id);
10322:
10323: --Claim Line/Utilizations association
10324: Update_Group_Line_Util(
10325: p_api_version => l_api_version
10326: ,p_init_msg_list => FND_API.g_false
10327: ,p_commit => FND_API.g_false
10328: ,p_validation_level => p_validation_level
10329: ,x_return_status => l_return_status
10330: ,x_msg_count => x_msg_count
10323: --Claim Line/Utilizations association
10324: Update_Group_Line_Util(
10325: p_api_version => l_api_version
10326: ,p_init_msg_list => FND_API.g_false
10327: ,p_commit => FND_API.g_false
10328: ,p_validation_level => p_validation_level
10329: ,x_return_status => l_return_status
10330: ,x_msg_count => x_msg_count
10331: ,x_msg_data => x_msg_data
10333: ,p_funds_util_flt => l_funds_util_flt
10334: ,p_mode => OZF_CLAIM_UTILITY_PVT.g_auto_mode
10335: );
10336:
10337: IF l_return_status = FND_API.g_ret_sts_error THEN
10338: RAISE FND_API.g_exc_error;
10339: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
10340: RAISE FND_API.g_exc_error;
10341: END IF;
10334: ,p_mode => OZF_CLAIM_UTILITY_PVT.g_auto_mode
10335: );
10336:
10337: IF l_return_status = FND_API.g_ret_sts_error THEN
10338: RAISE FND_API.g_exc_error;
10339: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
10340: RAISE FND_API.g_exc_error;
10341: END IF;
10342:
10335: );
10336:
10337: IF l_return_status = FND_API.g_ret_sts_error THEN
10338: RAISE FND_API.g_exc_error;
10339: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
10340: RAISE FND_API.g_exc_error;
10341: END IF;
10342:
10343: END LOOP;
10336:
10337: IF l_return_status = FND_API.g_ret_sts_error THEN
10338: RAISE FND_API.g_exc_error;
10339: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
10340: RAISE FND_API.g_exc_error;
10341: END IF;
10342:
10343: END LOOP;
10344: CLOSE csr_claim_lines;
10351: ,x_msg_data => x_msg_data
10352: );
10353:
10354:
10355: IF l_return_status = fnd_api.g_ret_sts_error THEN
10356: RAISE FND_API.g_exc_error;
10357: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
10358: RAISE FND_API.g_exc_unexpected_error;
10359: END IF;
10352: );
10353:
10354:
10355: IF l_return_status = fnd_api.g_ret_sts_error THEN
10356: RAISE FND_API.g_exc_error;
10357: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
10358: RAISE FND_API.g_exc_unexpected_error;
10359: END IF;
10360: ELSIF l_claim_rec.amount = 0 THEN
10353:
10354:
10355: IF l_return_status = fnd_api.g_ret_sts_error THEN
10356: RAISE FND_API.g_exc_error;
10357: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
10358: RAISE FND_API.g_exc_unexpected_error;
10359: END IF;
10360: ELSIF l_claim_rec.amount = 0 THEN
10361: --Raise error, if claim amount is zero. Claim header is not allowed with
10354:
10355: IF l_return_status = fnd_api.g_ret_sts_error THEN
10356: RAISE FND_API.g_exc_error;
10357: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
10358: RAISE FND_API.g_exc_unexpected_error;
10359: END IF;
10360: ELSIF l_claim_rec.amount = 0 THEN
10361: --Raise error, if claim amount is zero. Claim header is not allowed with
10362: --zero amount.
10363: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
10364: FND_MESSAGE.Set_Name('OZF', 'OZF_EARN_AVAIL_AMT_ZERO');
10365: FND_MSG_PUB.ADD;
10366: END IF;
10367: RAISE FND_API.g_exc_unexpected_error;
10368: ELSE
10369: --Raise error, if claim amount is negative.
10370: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
10371: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_AMOUNT_NEGATIVE');
10370: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
10371: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_AMOUNT_NEGATIVE');
10372: FND_MSG_PUB.ADD;
10373: END IF;
10374: RAISE FND_API.g_exc_unexpected_error;
10375: END IF;
10376:
10377: --Set Claim Access
10378: OPEN csr_access(l_claim_id);
10392: OZF_Utility_PVT.debug_message('arc_act_access_to_object : '||l_access_rec.arc_act_access_to_object);
10393: END IF;
10394:
10395: ams_access_pvt.create_access ( p_api_version => l_api_version
10396: , p_init_msg_list => fnd_api.g_false
10397: , p_validation_level => fnd_api.g_valid_level_full
10398: , x_return_status => x_return_status
10399: , x_msg_count => x_msg_count
10400: , x_msg_data => x_msg_data
10393: END IF;
10394:
10395: ams_access_pvt.create_access ( p_api_version => l_api_version
10396: , p_init_msg_list => fnd_api.g_false
10397: , p_validation_level => fnd_api.g_valid_level_full
10398: , x_return_status => x_return_status
10399: , x_msg_count => x_msg_count
10400: , x_msg_data => x_msg_data
10401: , p_commit => fnd_api.g_false
10397: , p_validation_level => fnd_api.g_valid_level_full
10398: , x_return_status => x_return_status
10399: , x_msg_count => x_msg_count
10400: , x_msg_data => x_msg_data
10401: , p_commit => fnd_api.g_false
10402: , p_access_rec => l_access_rec
10403: , x_access_id => l_access_id
10404: );
10405: END LOOP;
10413: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
10414: FND_MESSAGE.Set_Name('OZF', 'OZF_ACCRUAL_NOT_EXISTS');
10415: FND_MSG_PUB.ADD;
10416: END IF;
10417: RAISE FND_API.g_exc_unexpected_error;
10418: END IF;
10419:
10420: ------------------------- finish -------------------------------
10421: -- Check for commit
10418: END IF;
10419:
10420: ------------------------- finish -------------------------------
10421: -- Check for commit
10422: IF FND_API.to_boolean(p_commit) THEN
10423: COMMIT;
10424: END IF;
10425:
10426: FND_MSG_PUB.count_and_get(
10423: COMMIT;
10424: END IF;
10425:
10426: FND_MSG_PUB.count_and_get(
10427: p_encoded => FND_API.g_false,
10428: p_count => x_msg_count,
10429: p_data => x_msg_data
10430: );
10431:
10433: OZF_Utility_PVT.debug_message(l_full_name ||': end');
10434: END IF;
10435:
10436: EXCEPTION
10437: WHEN FND_API.g_exc_error THEN
10438: ROLLBACK TO Initiate_SD_Payment;
10439: x_return_status := FND_API.g_ret_sts_error;
10440: FND_MSG_PUB.count_and_get (
10441: p_encoded => FND_API.g_false
10435:
10436: EXCEPTION
10437: WHEN FND_API.g_exc_error THEN
10438: ROLLBACK TO Initiate_SD_Payment;
10439: x_return_status := FND_API.g_ret_sts_error;
10440: FND_MSG_PUB.count_and_get (
10441: p_encoded => FND_API.g_false
10442: ,p_count => x_msg_count
10443: ,p_data => x_msg_data
10437: WHEN FND_API.g_exc_error THEN
10438: ROLLBACK TO Initiate_SD_Payment;
10439: x_return_status := FND_API.g_ret_sts_error;
10440: FND_MSG_PUB.count_and_get (
10441: p_encoded => FND_API.g_false
10442: ,p_count => x_msg_count
10443: ,p_data => x_msg_data
10444: );
10445:
10442: ,p_count => x_msg_count
10443: ,p_data => x_msg_data
10444: );
10445:
10446: WHEN FND_API.g_exc_unexpected_error THEN
10447: ROLLBACK TO Initiate_SD_Payment;
10448: x_return_status := FND_API.g_ret_sts_unexp_error ;
10449: FND_MSG_PUB.count_and_get (
10450: p_encoded => FND_API.g_false
10444: );
10445:
10446: WHEN FND_API.g_exc_unexpected_error THEN
10447: ROLLBACK TO Initiate_SD_Payment;
10448: x_return_status := FND_API.g_ret_sts_unexp_error ;
10449: FND_MSG_PUB.count_and_get (
10450: p_encoded => FND_API.g_false
10451: ,p_count => x_msg_count
10452: ,p_data => x_msg_data
10446: WHEN FND_API.g_exc_unexpected_error THEN
10447: ROLLBACK TO Initiate_SD_Payment;
10448: x_return_status := FND_API.g_ret_sts_unexp_error ;
10449: FND_MSG_PUB.count_and_get (
10450: p_encoded => FND_API.g_false
10451: ,p_count => x_msg_count
10452: ,p_data => x_msg_data
10453: );
10454:
10453: );
10454:
10455: WHEN OTHERS THEN
10456: ROLLBACK TO Initiate_SD_Payment;
10457: x_return_status := FND_API.g_ret_sts_unexp_error ;
10458: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
10459: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
10460: END IF;
10461: FND_MSG_PUB.count_and_get(
10458: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
10459: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
10460: END IF;
10461: FND_MSG_PUB.count_and_get(
10462: p_encoded => FND_API.g_false
10463: ,p_count => x_msg_count
10464: ,p_data => x_msg_data
10465: );
10466: