[Home] [Help]
130: FETCH csr_offr_util_details INTO l_offr_currency_code, l_offr_exc_type , l_offr_exc_date , l_offr_exc_rate ;
131: CLOSE csr_offr_util_details;
132:
133: IF OZF_DEBUG_HIGH_ON THEN
134: OZF_Utility_PVT.debug_message('FXGL l_offr_currency_code : '||l_offr_currency_code);
135: OZF_Utility_PVT.debug_message('G_FUNCTIONAL_CURRENCY : '||G_FUNCTIONAL_CURRENCY);
136: OZF_Utility_PVT.debug_message('l_fu_exc_rate : '||l_offr_exc_rate);
137: OZF_Utility_PVT.debug_message('p_line_util_rec.exchange_rate : '||p_line_util_rec.exchange_rate);
138: OZF_Utility_PVT.debug_message('p_line_util_rec.acctd_amount : '||p_line_util_rec.acctd_amount);
131: CLOSE csr_offr_util_details;
132:
133: IF OZF_DEBUG_HIGH_ON THEN
134: OZF_Utility_PVT.debug_message('FXGL l_offr_currency_code : '||l_offr_currency_code);
135: OZF_Utility_PVT.debug_message('G_FUNCTIONAL_CURRENCY : '||G_FUNCTIONAL_CURRENCY);
136: OZF_Utility_PVT.debug_message('l_fu_exc_rate : '||l_offr_exc_rate);
137: OZF_Utility_PVT.debug_message('p_line_util_rec.exchange_rate : '||p_line_util_rec.exchange_rate);
138: OZF_Utility_PVT.debug_message('p_line_util_rec.acctd_amount : '||p_line_util_rec.acctd_amount);
139: END IF;
132:
133: IF OZF_DEBUG_HIGH_ON THEN
134: OZF_Utility_PVT.debug_message('FXGL l_offr_currency_code : '||l_offr_currency_code);
135: OZF_Utility_PVT.debug_message('G_FUNCTIONAL_CURRENCY : '||G_FUNCTIONAL_CURRENCY);
136: OZF_Utility_PVT.debug_message('l_fu_exc_rate : '||l_offr_exc_rate);
137: OZF_Utility_PVT.debug_message('p_line_util_rec.exchange_rate : '||p_line_util_rec.exchange_rate);
138: OZF_Utility_PVT.debug_message('p_line_util_rec.acctd_amount : '||p_line_util_rec.acctd_amount);
139: END IF;
140:
133: IF OZF_DEBUG_HIGH_ON THEN
134: OZF_Utility_PVT.debug_message('FXGL l_offr_currency_code : '||l_offr_currency_code);
135: OZF_Utility_PVT.debug_message('G_FUNCTIONAL_CURRENCY : '||G_FUNCTIONAL_CURRENCY);
136: OZF_Utility_PVT.debug_message('l_fu_exc_rate : '||l_offr_exc_rate);
137: OZF_Utility_PVT.debug_message('p_line_util_rec.exchange_rate : '||p_line_util_rec.exchange_rate);
138: OZF_Utility_PVT.debug_message('p_line_util_rec.acctd_amount : '||p_line_util_rec.acctd_amount);
139: END IF;
140:
141:
134: OZF_Utility_PVT.debug_message('FXGL l_offr_currency_code : '||l_offr_currency_code);
135: OZF_Utility_PVT.debug_message('G_FUNCTIONAL_CURRENCY : '||G_FUNCTIONAL_CURRENCY);
136: OZF_Utility_PVT.debug_message('l_fu_exc_rate : '||l_offr_exc_rate);
137: OZF_Utility_PVT.debug_message('p_line_util_rec.exchange_rate : '||p_line_util_rec.exchange_rate);
138: OZF_Utility_PVT.debug_message('p_line_util_rec.acctd_amount : '||p_line_util_rec.acctd_amount);
139: END IF;
140:
141:
142: IF p_line_util_rec.currency_code <> G_FUNCTIONAL_CURRENCY THEN
141:
142: IF p_line_util_rec.currency_code <> G_FUNCTIONAL_CURRENCY THEN
143:
144: IF p_line_util_rec.exchange_rate <> l_offr_exc_rate AND l_offr_exc_rate IS NOT NULL THEN
145: OZF_UTILITY_PVT.Convert_Currency(
146: p_from_currency => p_line_util_rec.currency_code
147: ,p_to_currency => G_FUNCTIONAL_CURRENCY
148: ,p_conv_type => l_offr_exc_type
149: ,p_conv_rate => l_offr_exc_rate
261: --------------------- initialize -----------------------
262: SAVEPOINT Update_Fund_Utils;
263:
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:
316: ELSE
317: IF l_fu_new_amt_rem = 0 THEN
318: l_fu_new_acctd_amt_rem := 0;
319: ELSE
320: OZF_UTILITY_PVT.Convert_Currency(
321: p_from_currency => l_fu_utiz_currency
322: ,p_to_currency => G_FUNCTIONAL_CURRENCY
323: ,p_conv_type => l_fu_exc_type
324: ,p_conv_rate => l_fu_exc_rate
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;
339: END IF;
340: END IF;
341: -- plan_amount_remaining must be calculated based on the accrual amount
346: ELSE
347: IF l_fu_new_acctd_amt_rem = 0 THEN
348: l_fu_new_plan_amt_rem := 0;
349: ELSE
350: OZF_UTILITY_PVT.Convert_Currency(
351: p_from_currency => l_fu_utiz_currency
352: ,p_to_currency => G_OFFER_CURRENCY
353: ,p_conv_date => l_fu_exc_date
354: ,p_from_amount => l_fu_new_amt_rem
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;
366: END IF;
367: END IF;
368:
376: ELSE
377: IF l_fu_new_acctd_amt_rem = 0 THEN
378: l_fu_new_univ_amt_rem := 0;
379: ELSE
380: OZF_UTILITY_PVT.Convert_Currency(
381: p_from_currency => l_fu_utiz_currency
382: ,p_to_currency => G_UNIV_CURRENCY
383: ,p_from_amount => l_fu_new_amt_rem
384: ,x_return_status => l_return_status
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;
395: END IF;
396: END IF;
397:
418: l_line_util_rec.utilized_acctd_amount := l_line_util_rec.acctd_amount - l_line_util_rec.fxgl_acctd_amount;
419: END IF;
420:
421: IF OZF_DEBUG_HIGH_ON THEN
422: OZF_Utility_PVT.debug_message('l_line_util_rec.fxgl_acctd_amount : '||l_line_util_rec.fxgl_acctd_amount );
423: OZF_Utility_PVT.debug_message('l_line_util_rec.utilized_acctd_amount : '||l_line_util_rec.utilized_acctd_amount );
424: END IF;
425:
426: -- Convert util_curr_amount based on the amount
419: END IF;
420:
421: IF OZF_DEBUG_HIGH_ON THEN
422: OZF_Utility_PVT.debug_message('l_line_util_rec.fxgl_acctd_amount : '||l_line_util_rec.fxgl_acctd_amount );
423: OZF_Utility_PVT.debug_message('l_line_util_rec.utilized_acctd_amount : '||l_line_util_rec.utilized_acctd_amount );
424: END IF;
425:
426: -- Convert util_curr_amount based on the amount
427: -- Current scenario always this will be true
429: l_line_util_rec.util_curr_amount := l_line_util_rec.amount;
430: -- ELSE it is already set in create_line_util procedure or in update_line_util
431: /*ELSE
432: --
433: OZF_UTILITY_PVT.Convert_Currency(
434: p_from_currency => G_FUNCTIONAL_CURRENCY
435: ,p_to_currency => l_fu_utiz_currency
436: ,p_conv_type => l_fu_exc_type
437: ,p_conv_rate => l_fu_exc_rate
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;*/
452: END IF;
453:
454: IF G_OFFER_CURRENCY = G_FUNCTIONAL_CURRENCY THEN
459: -- the plan_curr_amount is calculated based on accrual amount
460: -- the accrual date is used and if the rate has changed on claim date
461: -- it is not considered
462: -- the plan_curr_amount is equal to amount reduced from plan_curr_amount_remaining in fu
463: OZF_UTILITY_PVT.Convert_Currency(
464: p_from_currency => l_fu_utiz_currency
465: ,p_to_currency => G_OFFER_CURRENCY
466: ,p_conv_date => l_fu_exc_date
467: ,p_from_amount => l_line_util_rec.util_curr_amount
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;
479: END IF;
480:
481: -- convert accrual amount --> amount(univ currency)
485: l_line_util_rec.univ_curr_amount := l_line_util_rec.util_curr_amount;
486: ELSIF G_UNIV_CURRENCY = G_OFFER_CURRENCY THEN
487: l_line_util_rec.univ_curr_amount := l_line_util_rec.plan_curr_amount;
488: ELSE
489: OZF_UTILITY_PVT.Convert_Currency(
490: p_from_currency => l_fu_utiz_currency
491: ,p_to_currency => G_UNIV_CURRENCY
492: ,p_from_amount => l_line_util_rec.util_curr_amount
493: ,x_return_status => l_return_status
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;
504: END IF;
505:
506:
516: p_data => x_msg_data
517: );
518:
519: IF OZF_DEBUG_HIGH_ON THEN
520: OZF_Utility_PVT.debug_message(l_full_name ||': end');
521: END IF;
522:
523: EXCEPTION
524: WHEN FND_API.g_exc_error THEN
1084: l_orgId NUMBER;
1085: BEGIN
1086: --------------------- initialize -----------------------
1087: IF OZF_DEBUG_HIGH_ON THEN
1088: OZF_Utility_PVT.debug_message(l_full_name||': start');
1089: END IF;
1090:
1091: --------------------- start -----------------------
1092: l_funds_util_flt := p_funds_util_flt;
1110: IF l_funds_util_flt.offer_type IS NOT NULL THEN
1111: l_price_list_flag := 'N';
1112: END IF;
1113:
1114: l_resource_id := ozf_utility_pvt.get_resource_id(fnd_global.user_id);
1115: l_is_admin := ams_access_PVT.Check_Admin_Access(l_resource_id);
1116: l_orgId := MO_GLOBAL.GET_CURRENT_ORG_ID();
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;
1126:
1127:
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;
1126:
1127:
1128: FND_DSQL.add_text('SELECT fu.utilization_id, fu.cust_account_id '||
1271:
1272: BEGIN
1273: --------------------- initialize -----------------------
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;
1313: CLOSE csr_request_offer;
1314: END IF;
1315:
1316: IF OZF_DEBUG_HIGH_ON THEN
1317: OZF_Utility_PVT.debug_message('----- p_funds_util_flt -----');
1318: OZF_Utility_PVT.debug_message('cust_account_id : ' || l_funds_util_flt.cust_account_id);
1319: OZF_Utility_PVT.debug_message('activity_type : ' || l_funds_util_flt.activity_type);
1320: OZF_Utility_PVT.debug_message('activity_id : ' || l_funds_util_flt.activity_id);
1321: OZF_Utility_PVT.debug_message('offer_type : ' || l_funds_util_flt.offer_type);
1314: END IF;
1315:
1316: IF OZF_DEBUG_HIGH_ON THEN
1317: OZF_Utility_PVT.debug_message('----- p_funds_util_flt -----');
1318: OZF_Utility_PVT.debug_message('cust_account_id : ' || l_funds_util_flt.cust_account_id);
1319: OZF_Utility_PVT.debug_message('activity_type : ' || l_funds_util_flt.activity_type);
1320: OZF_Utility_PVT.debug_message('activity_id : ' || l_funds_util_flt.activity_id);
1321: OZF_Utility_PVT.debug_message('offer_type : ' || l_funds_util_flt.offer_type);
1322: OZF_Utility_PVT.debug_message('product_level_type : ' || l_funds_util_flt.product_level_type);
1315:
1316: IF OZF_DEBUG_HIGH_ON THEN
1317: OZF_Utility_PVT.debug_message('----- p_funds_util_flt -----');
1318: OZF_Utility_PVT.debug_message('cust_account_id : ' || l_funds_util_flt.cust_account_id);
1319: OZF_Utility_PVT.debug_message('activity_type : ' || l_funds_util_flt.activity_type);
1320: OZF_Utility_PVT.debug_message('activity_id : ' || l_funds_util_flt.activity_id);
1321: OZF_Utility_PVT.debug_message('offer_type : ' || l_funds_util_flt.offer_type);
1322: OZF_Utility_PVT.debug_message('product_level_type : ' || l_funds_util_flt.product_level_type);
1323: OZF_Utility_PVT.debug_message('product_id : ' || l_funds_util_flt.product_id);
1316: IF OZF_DEBUG_HIGH_ON THEN
1317: OZF_Utility_PVT.debug_message('----- p_funds_util_flt -----');
1318: OZF_Utility_PVT.debug_message('cust_account_id : ' || l_funds_util_flt.cust_account_id);
1319: OZF_Utility_PVT.debug_message('activity_type : ' || l_funds_util_flt.activity_type);
1320: OZF_Utility_PVT.debug_message('activity_id : ' || l_funds_util_flt.activity_id);
1321: OZF_Utility_PVT.debug_message('offer_type : ' || l_funds_util_flt.offer_type);
1322: OZF_Utility_PVT.debug_message('product_level_type : ' || l_funds_util_flt.product_level_type);
1323: OZF_Utility_PVT.debug_message('product_id : ' || l_funds_util_flt.product_id);
1324: OZF_Utility_PVT.debug_message('----------------------------');
1317: OZF_Utility_PVT.debug_message('----- p_funds_util_flt -----');
1318: OZF_Utility_PVT.debug_message('cust_account_id : ' || l_funds_util_flt.cust_account_id);
1319: OZF_Utility_PVT.debug_message('activity_type : ' || l_funds_util_flt.activity_type);
1320: OZF_Utility_PVT.debug_message('activity_id : ' || l_funds_util_flt.activity_id);
1321: OZF_Utility_PVT.debug_message('offer_type : ' || l_funds_util_flt.offer_type);
1322: OZF_Utility_PVT.debug_message('product_level_type : ' || l_funds_util_flt.product_level_type);
1323: OZF_Utility_PVT.debug_message('product_id : ' || l_funds_util_flt.product_id);
1324: OZF_Utility_PVT.debug_message('----------------------------');
1325: END IF;
1318: OZF_Utility_PVT.debug_message('cust_account_id : ' || l_funds_util_flt.cust_account_id);
1319: OZF_Utility_PVT.debug_message('activity_type : ' || l_funds_util_flt.activity_type);
1320: OZF_Utility_PVT.debug_message('activity_id : ' || l_funds_util_flt.activity_id);
1321: OZF_Utility_PVT.debug_message('offer_type : ' || l_funds_util_flt.offer_type);
1322: OZF_Utility_PVT.debug_message('product_level_type : ' || l_funds_util_flt.product_level_type);
1323: OZF_Utility_PVT.debug_message('product_id : ' || l_funds_util_flt.product_id);
1324: OZF_Utility_PVT.debug_message('----------------------------');
1325: END IF;
1326:
1319: OZF_Utility_PVT.debug_message('activity_type : ' || l_funds_util_flt.activity_type);
1320: OZF_Utility_PVT.debug_message('activity_id : ' || l_funds_util_flt.activity_id);
1321: OZF_Utility_PVT.debug_message('offer_type : ' || l_funds_util_flt.offer_type);
1322: OZF_Utility_PVT.debug_message('product_level_type : ' || l_funds_util_flt.product_level_type);
1323: OZF_Utility_PVT.debug_message('product_id : ' || l_funds_util_flt.product_id);
1324: OZF_Utility_PVT.debug_message('----------------------------');
1325: END IF;
1326:
1327: -- use FND_DSQL package to handle dynamic sql and bind variables
1320: OZF_Utility_PVT.debug_message('activity_id : ' || l_funds_util_flt.activity_id);
1321: OZF_Utility_PVT.debug_message('offer_type : ' || l_funds_util_flt.offer_type);
1322: OZF_Utility_PVT.debug_message('product_level_type : ' || l_funds_util_flt.product_level_type);
1323: OZF_Utility_PVT.debug_message('product_id : ' || l_funds_util_flt.product_id);
1324: OZF_Utility_PVT.debug_message('----------------------------');
1325: END IF;
1326:
1327: -- use FND_DSQL package to handle dynamic sql and bind variables
1328: FND_DSQL.init;
1415: x_utiz_sql_stmt := FND_DSQL.get_text(FALSE);
1416:
1417: IF OZF_DEBUG_HIGH_ON THEN
1418: l_utiz_sql := FND_DSQL.get_text(TRUE);
1419: OZF_Utility_PVT.debug_message('----- UTIZ SQL -----');
1420: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 1, 250));
1421: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 251, 250));
1422: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 501, 250));
1423: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 751, 250));
1416:
1417: IF OZF_DEBUG_HIGH_ON THEN
1418: l_utiz_sql := FND_DSQL.get_text(TRUE);
1419: OZF_Utility_PVT.debug_message('----- UTIZ SQL -----');
1420: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 1, 250));
1421: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 251, 250));
1422: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 501, 250));
1423: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 751, 250));
1424: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 1001, 250));
1417: IF OZF_DEBUG_HIGH_ON THEN
1418: l_utiz_sql := FND_DSQL.get_text(TRUE);
1419: OZF_Utility_PVT.debug_message('----- UTIZ SQL -----');
1420: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 1, 250));
1421: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 251, 250));
1422: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 501, 250));
1423: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 751, 250));
1424: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 1001, 250));
1425: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 1251, 250));
1418: l_utiz_sql := FND_DSQL.get_text(TRUE);
1419: OZF_Utility_PVT.debug_message('----- UTIZ SQL -----');
1420: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 1, 250));
1421: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 251, 250));
1422: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 501, 250));
1423: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 751, 250));
1424: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 1001, 250));
1425: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 1251, 250));
1426: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 1501, 250));
1419: OZF_Utility_PVT.debug_message('----- UTIZ SQL -----');
1420: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 1, 250));
1421: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 251, 250));
1422: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 501, 250));
1423: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 751, 250));
1424: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 1001, 250));
1425: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 1251, 250));
1426: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 1501, 250));
1427: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 1751, 250));
1420: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 1, 250));
1421: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 251, 250));
1422: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 501, 250));
1423: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 751, 250));
1424: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 1001, 250));
1425: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 1251, 250));
1426: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 1501, 250));
1427: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 1751, 250));
1428: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 2001, 250));
1421: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 251, 250));
1422: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 501, 250));
1423: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 751, 250));
1424: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 1001, 250));
1425: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 1251, 250));
1426: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 1501, 250));
1427: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 1751, 250));
1428: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 2001, 250));
1429: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 2251, 250));
1422: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 501, 250));
1423: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 751, 250));
1424: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 1001, 250));
1425: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 1251, 250));
1426: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 1501, 250));
1427: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 1751, 250));
1428: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 2001, 250));
1429: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 2251, 250));
1430: OZF_Utility_PVT.debug_message('--------------------');
1423: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 751, 250));
1424: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 1001, 250));
1425: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 1251, 250));
1426: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 1501, 250));
1427: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 1751, 250));
1428: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 2001, 250));
1429: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 2251, 250));
1430: OZF_Utility_PVT.debug_message('--------------------');
1431: OZF_Utility_PVT.debug_message(l_full_name||': end');
1424: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 1001, 250));
1425: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 1251, 250));
1426: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 1501, 250));
1427: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 1751, 250));
1428: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 2001, 250));
1429: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 2251, 250));
1430: OZF_Utility_PVT.debug_message('--------------------');
1431: OZF_Utility_PVT.debug_message(l_full_name||': end');
1432: END IF;
1425: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 1251, 250));
1426: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 1501, 250));
1427: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 1751, 250));
1428: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 2001, 250));
1429: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 2251, 250));
1430: OZF_Utility_PVT.debug_message('--------------------');
1431: OZF_Utility_PVT.debug_message(l_full_name||': end');
1432: END IF;
1433:
1426: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 1501, 250));
1427: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 1751, 250));
1428: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 2001, 250));
1429: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 2251, 250));
1430: OZF_Utility_PVT.debug_message('--------------------');
1431: OZF_Utility_PVT.debug_message(l_full_name||': end');
1432: END IF;
1433:
1434:
1427: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 1751, 250));
1428: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 2001, 250));
1429: OZF_Utility_PVT.debug_message(SUBSTR(l_utiz_sql, 2251, 250));
1430: OZF_Utility_PVT.debug_message('--------------------');
1431: OZF_Utility_PVT.debug_message(l_full_name||': end');
1432: END IF;
1433:
1434:
1435:
1469: WHERE cust_account_id = cv_cust_account_id;
1470:
1471: BEGIN
1472: IF OZF_DEBUG_HIGH_ON THEN
1473: OZF_Utility_PVT.debug_message(l_full_name||': start');
1474: END IF;
1475:
1476: -- bug # 7379700 fixed by ateotia (+)
1477: IF p_site_use_id is not null THEN
1507:
1508: x_cust_trade_profile := l_cust_trade_profile;
1509:
1510: IF OZF_DEBUG_HIGH_ON THEN
1511: OZF_Utility_PVT.debug_message(l_full_name||': end');
1512: END IF;
1513: END Get_Cust_Trade_Profile;
1514:
1515: ---------------------------------------------------------------------
1537: l_cust_name_num VARCHAR2(70);
1538:
1539: BEGIN
1540: IF OZF_DEBUG_HIGH_ON THEN
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;
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;
1641: WHERE org_id = MO_GLOBAL.GET_CURRENT_ORG_ID();
1642:
1643: BEGIN
1644: IF OZF_DEBUG_HIGH_ON THEN
1645: OZF_Utility_PVT.debug_message(l_full_name||': start');
1646: END IF;
1647:
1648: IF p_funds_util_flt.prorate_earnings_flag IS NOT NULL THEN
1649: l_prorate_earnings_flag := p_funds_util_flt.prorate_earnings_flag;
1660: END IF;
1661: x_prorate_earnings_flag := l_prorate_earnings_flag;
1662:
1663: IF OZF_DEBUG_HIGH_ON THEN
1664: OZF_Utility_PVT.debug_message(l_full_name||': end');
1665: END IF;
1666: END Get_Prorate_Earnings_Flag;
1667:
1668: ---------------------------------------------------------------------
1747:
1748: BEGIN
1749: ----------------------- initialize --------------------
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:
1777: ,x_return_status => l_return_status
1778: );
1779:
1780: IF OZF_DEBUG_HIGH_ON THEN
1781: OZF_Utility_PVT.debug_message('Offer sourcing budget: '||l_fund_id);
1782: END IF;
1783:
1784:
1785: l_act_budgets_rec.parent_src_apprvd_amt := 0;
1790: l_act_budgets_rec.budget_source_id := p_offer_id;
1791: l_act_budgets_rec.request_currency := l_plan_curr_code;
1792: l_act_budgets_rec.request_date := SYSDATE;
1793: l_act_budgets_rec.status_code := 'APPROVED';
1794: l_act_budgets_rec.user_status_id := ozf_utility_pvt.get_default_user_status (
1795: 'OZF_BUDGETSOURCE_STATUS'
1796: ,l_act_budgets_rec.status_code
1797: );
1798: l_act_budgets_rec.transfer_type := 'UTILIZED';
1796: ,l_act_budgets_rec.status_code
1797: );
1798: l_act_budgets_rec.transfer_type := 'UTILIZED';
1799: l_act_budgets_rec.approval_date := SYSDATE;
1800: l_act_budgets_rec.approver_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
1801: l_act_budgets_rec.parent_source_id := l_fund_id;
1802: -- Modified for FXGL ER
1803: -- adjustments created in the fund currency
1804: l_act_budgets_rec.parent_src_curr := l_accrual_curr_code;
1847:
1848:
1849: ------------------------- finish -------------------------------
1850: IF OZF_DEBUG_HIGH_ON THEN
1851: OZF_Utility_PVT.debug_message(l_full_name ||': end');
1852: END IF;
1853:
1854:
1855:
1946: --------------------- initialize -----------------------
1947: SAVEPOINT Create_Line_Util_Tbl;
1948:
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;
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
1987: , X_Msg_Count => x_msg_count
1988: , X_Msg_Data => x_msg_data
1989: , X_access => l_access);
2041: -- Bug fix 7463302
2042: l_last_record_num := l_line_util_id;
2043:
2044: IF OZF_DEBUG_LOW_ON THEN
2045: OZF_Utility_PVT.debug_message(' Sum of l_line_util_id'||l_line_util_id);
2046: END IF;
2047:
2048: OPEN csr_claim_line_util_amount(l_line_util_id);
2049: FETCH csr_claim_line_util_amount INTO l_line_util_amount;
2049: FETCH csr_claim_line_util_amount INTO l_line_util_amount;
2050: CLOSE csr_claim_line_util_amount;
2051:
2052: IF OZF_DEBUG_LOW_ON THEN
2053: OZF_Utility_PVT.debug_message(' Sum of l_line_util_amount'||l_line_util_amount);
2054: END IF;
2055:
2056: l_sum_amount := NVL(l_sum_amount,0) + l_line_util_amount;
2057:
2055:
2056: l_sum_amount := NVL(l_sum_amount,0) + l_line_util_amount;
2057:
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;
2071: END LOOP;
2072:
2073:
2074: IF OZF_DEBUG_LOW_ON THEN
2075: OZF_Utility_PVT.debug_message('l_original_total_amount'||l_original_total_amount);
2076: OZF_Utility_PVT.debug_message('l_sum_amount'||l_sum_amount);
2077: OZF_Utility_PVT.debug_message('l_entered_amount'||l_entered_amount);
2078: END IF;
2079:
2072:
2073:
2074: IF OZF_DEBUG_LOW_ON THEN
2075: OZF_Utility_PVT.debug_message('l_original_total_amount'||l_original_total_amount);
2076: OZF_Utility_PVT.debug_message('l_sum_amount'||l_sum_amount);
2077: OZF_Utility_PVT.debug_message('l_entered_amount'||l_entered_amount);
2078: END IF;
2079:
2080: -- Bug fix 7463302
2073:
2074: IF OZF_DEBUG_LOW_ON THEN
2075: OZF_Utility_PVT.debug_message('l_original_total_amount'||l_original_total_amount);
2076: OZF_Utility_PVT.debug_message('l_sum_amount'||l_sum_amount);
2077: OZF_Utility_PVT.debug_message('l_entered_amount'||l_entered_amount);
2078: END IF;
2079:
2080: -- Bug fix 7463302
2081:
2081:
2082: l_entered_diff_amount := l_original_total_amount - NVL(l_entered_amount,0);
2083:
2084: IF OZF_DEBUG_LOW_ON THEN
2085: OZF_Utility_PVT.debug_message('l_entered_diff_amount'||l_entered_diff_amount);
2086: END IF;
2087:
2088: IF (l_entered_diff_amount <> l_sum_amount) THEN
2089:
2093:
2094: l_line_util_amount := l_line_util_amount + (l_entered_diff_amount - l_sum_amount);
2095:
2096: IF OZF_DEBUG_LOW_ON THEN
2097: OZF_Utility_PVT.debug_message('l_line_util_amount'||l_line_util_amount);
2098: OZF_Utility_PVT.debug_message('l_original_total_amount'||l_original_total_amount);
2099: OZF_Utility_PVT.debug_message('l_sum_amount'||l_sum_amount);
2100: END IF;
2101:
2094: l_line_util_amount := l_line_util_amount + (l_entered_diff_amount - l_sum_amount);
2095:
2096: IF OZF_DEBUG_LOW_ON THEN
2097: OZF_Utility_PVT.debug_message('l_line_util_amount'||l_line_util_amount);
2098: OZF_Utility_PVT.debug_message('l_original_total_amount'||l_original_total_amount);
2099: OZF_Utility_PVT.debug_message('l_sum_amount'||l_sum_amount);
2100: END IF;
2101:
2102: UPDATE ozf_claim_lines_util_all
2095:
2096: IF OZF_DEBUG_LOW_ON THEN
2097: OZF_Utility_PVT.debug_message('l_line_util_amount'||l_line_util_amount);
2098: OZF_Utility_PVT.debug_message('l_original_total_amount'||l_original_total_amount);
2099: OZF_Utility_PVT.debug_message('l_sum_amount'||l_sum_amount);
2100: END IF;
2101:
2102: UPDATE ozf_claim_lines_util_all
2103: SET amount = l_line_util_amount
2122: p_data => x_msg_data
2123: );
2124:
2125: IF OZF_DEBUG_HIGH_ON THEN
2126: OZF_Utility_PVT.debug_message(l_full_name ||': end');
2127: END IF;
2128:
2129: EXCEPTION
2130: WHEN FND_API.g_exc_error THEN
2261: --------------------- initialize -----------------------
2262: SAVEPOINT Create_Line_Util;
2263:
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;
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
2298: , X_Msg_Count => x_msg_count
2299: , X_Msg_Data => x_msg_data
2300: , X_access => l_access);
2357: -- Need to pass amount in accrual currency to update funds util
2358: l_update_fund_amount := l_line_util_rec.amount;
2359:
2360: IF OZF_DEBUG_LOW_ON THEN
2361: OZF_Utility_PVT.debug_message('l_line_util_rec.currency_code : '||l_line_util_rec.currency_code);
2362: OZF_Utility_PVT.debug_message('l_line_util_rec.amount : '||l_line_util_rec.amount);
2363: OZF_Utility_PVT.debug_message('l_utiz_currency. : '||l_utiz_currency);
2364: OZF_Utility_PVT.debug_message('l_claim_date. : '||l_claim_date);
2365: END IF;
2358: l_update_fund_amount := l_line_util_rec.amount;
2359:
2360: IF OZF_DEBUG_LOW_ON THEN
2361: OZF_Utility_PVT.debug_message('l_line_util_rec.currency_code : '||l_line_util_rec.currency_code);
2362: OZF_Utility_PVT.debug_message('l_line_util_rec.amount : '||l_line_util_rec.amount);
2363: OZF_Utility_PVT.debug_message('l_utiz_currency. : '||l_utiz_currency);
2364: OZF_Utility_PVT.debug_message('l_claim_date. : '||l_claim_date);
2365: END IF;
2366: -- Bugfix 5528210: use claim exchnage rate and not default rate
2359:
2360: IF OZF_DEBUG_LOW_ON THEN
2361: OZF_Utility_PVT.debug_message('l_line_util_rec.currency_code : '||l_line_util_rec.currency_code);
2362: OZF_Utility_PVT.debug_message('l_line_util_rec.amount : '||l_line_util_rec.amount);
2363: OZF_Utility_PVT.debug_message('l_utiz_currency. : '||l_utiz_currency);
2364: OZF_Utility_PVT.debug_message('l_claim_date. : '||l_claim_date);
2365: END IF;
2366: -- Bugfix 5528210: use claim exchnage rate and not default rate
2367: OZF_UTILITY_PVT.Convert_Currency(
2360: IF OZF_DEBUG_LOW_ON THEN
2361: OZF_Utility_PVT.debug_message('l_line_util_rec.currency_code : '||l_line_util_rec.currency_code);
2362: OZF_Utility_PVT.debug_message('l_line_util_rec.amount : '||l_line_util_rec.amount);
2363: OZF_Utility_PVT.debug_message('l_utiz_currency. : '||l_utiz_currency);
2364: OZF_Utility_PVT.debug_message('l_claim_date. : '||l_claim_date);
2365: END IF;
2366: -- Bugfix 5528210: use claim exchnage rate and not default rate
2367: OZF_UTILITY_PVT.Convert_Currency(
2368: p_from_currency => l_utiz_currency
2363: OZF_Utility_PVT.debug_message('l_utiz_currency. : '||l_utiz_currency);
2364: OZF_Utility_PVT.debug_message('l_claim_date. : '||l_claim_date);
2365: END IF;
2366: -- Bugfix 5528210: use claim exchnage rate and not default rate
2367: OZF_UTILITY_PVT.Convert_Currency(
2368: p_from_currency => l_utiz_currency
2369: ,p_to_currency => l_line_util_rec.currency_code
2370: ,p_conv_type => l_exchange_rate_type
2371: ,p_conv_rate => (1/l_exchange_rate)
2387: ELSIF l_line_util_rec.currency_code = G_FUNCTIONAL_CURRENCY THEN
2388: l_line_util_rec.acctd_amount := l_line_util_amount;
2389: END IF;
2390: IF l_line_util_rec.acctd_amount IS NOT NULL THEN
2391: l_line_util_rec.acctd_amount := OZF_UTILITY_PVT.CurrRound(l_line_util_rec.acctd_amount, G_FUNCTIONAL_CURRENCY);
2392: END IF;
2393:
2394: IF l_line_util_rec.amount IS NOT NULL THEN
2395: l_line_util_rec.amount := OZF_UTILITY_PVT.CurrRound(l_line_util_rec.amount, l_line_util_rec.currency_code);
2391: l_line_util_rec.acctd_amount := OZF_UTILITY_PVT.CurrRound(l_line_util_rec.acctd_amount, G_FUNCTIONAL_CURRENCY);
2392: END IF;
2393:
2394: IF l_line_util_rec.amount IS NOT NULL THEN
2395: l_line_util_rec.amount := OZF_UTILITY_PVT.CurrRound(l_line_util_rec.amount, l_line_util_rec.currency_code);
2396: END IF;
2397: ELSE
2398:
2399: l_update_fund_amount := l_line_util_rec.amount;
2402: l_line_util_rec.acctd_amount := l_line_util_rec.amount;
2403: ELSE
2404: -- Bugfix 5528210
2405: -- Only when conv_type = 'User' p_conv_rate is used
2406: OZF_UTILITY_PVT.Convert_Currency(
2407: p_from_currency => l_line_util_rec.currency_code
2408: ,p_to_currency => G_FUNCTIONAL_CURRENCY
2409: ,p_conv_type => l_line_util_rec.exchange_rate_type
2410: ,p_conv_rate => l_line_util_rec.exchange_rate
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;
2425: IF l_line_util_rec.amount IS NOT NULL THEN
2426: l_line_util_rec.amount := OZF_UTILITY_PVT.CurrRound(l_line_util_rec.amount, G_CLAIM_CURRENCY);
2427: 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;
2425: IF l_line_util_rec.amount IS NOT NULL THEN
2426: l_line_util_rec.amount := OZF_UTILITY_PVT.CurrRound(l_line_util_rec.amount, G_CLAIM_CURRENCY);
2427: END IF;
2428: END IF;
2429: END IF;
2430: ELSE
2428: END IF;
2429: END IF;
2430: ELSE
2431: -- when scan data over utils record case(covert amt to acctd_amount)
2432: OZF_UTILITY_PVT.Convert_Currency(
2433: p_from_currency => l_line_util_rec.currency_code
2434: ,p_to_currency => G_FUNCTIONAL_CURRENCY
2435: ,p_conv_type => l_line_util_rec.exchange_rate_type
2436: ,p_conv_rate => l_line_util_rec.exchange_rate
2472: END IF; -- IF l_utilization_id > -1
2473:
2474: -------------------------- insert --------------------------
2475: IF OZF_DEBUG_HIGH_ON THEN
2476: OZF_Utility_PVT.debug_message(l_full_name ||': insert');
2477: OZF_Utility_PVT.debug_message('utilization_id : '||l_line_util_rec.utilization_id);
2478: OZF_Utility_PVT.debug_message('amount : '||l_line_util_rec.amount);
2479: OZF_Utility_PVT.debug_message('acctd amount : '||l_line_util_rec.acctd_amount);
2480: END IF;
2473:
2474: -------------------------- insert --------------------------
2475: IF OZF_DEBUG_HIGH_ON THEN
2476: OZF_Utility_PVT.debug_message(l_full_name ||': insert');
2477: OZF_Utility_PVT.debug_message('utilization_id : '||l_line_util_rec.utilization_id);
2478: OZF_Utility_PVT.debug_message('amount : '||l_line_util_rec.amount);
2479: OZF_Utility_PVT.debug_message('acctd amount : '||l_line_util_rec.acctd_amount);
2480: END IF;
2481:
2474: -------------------------- insert --------------------------
2475: IF OZF_DEBUG_HIGH_ON THEN
2476: OZF_Utility_PVT.debug_message(l_full_name ||': insert');
2477: OZF_Utility_PVT.debug_message('utilization_id : '||l_line_util_rec.utilization_id);
2478: OZF_Utility_PVT.debug_message('amount : '||l_line_util_rec.amount);
2479: OZF_Utility_PVT.debug_message('acctd amount : '||l_line_util_rec.acctd_amount);
2480: END IF;
2481:
2482:
2475: IF OZF_DEBUG_HIGH_ON THEN
2476: OZF_Utility_PVT.debug_message(l_full_name ||': insert');
2477: OZF_Utility_PVT.debug_message('utilization_id : '||l_line_util_rec.utilization_id);
2478: OZF_Utility_PVT.debug_message('amount : '||l_line_util_rec.amount);
2479: OZF_Utility_PVT.debug_message('acctd amount : '||l_line_util_rec.acctd_amount);
2480: END IF;
2481:
2482:
2483: IF l_line_util_rec.claim_line_util_id IS NULL THEN
2572: p_data => x_msg_data
2573: );
2574:
2575: IF OZF_DEBUG_HIGH_ON THEN
2576: OZF_Utility_PVT.debug_message(l_full_name ||': end');
2577: END IF;
2578:
2579: EXCEPTION
2580: WHEN FND_API.g_exc_error THEN
2664: --------------------- initialize -----------------------
2665: SAVEPOINT Update_Line_Util_Tbl;
2666:
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;
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
2704: , X_Msg_Count => x_msg_count
2705: , X_Msg_Data => x_msg_data
2706: , X_access => l_access);
2728:
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
2767: p_data => x_msg_data
2768: );
2769:
2770: IF OZF_DEBUG_HIGH_ON THEN
2771: OZF_Utility_PVT.debug_message(l_full_name ||': end');
2772: END IF;
2773:
2774: EXCEPTION
2775: WHEN FND_API.g_exc_error THEN
2889: -------------------- initialize -------------------------
2890: SAVEPOINT Update_Line_Util;
2891:
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;
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');
2914: END IF;
2915:
2916: -- replace g_miss_char/num/date with current column values
2917: Complete_Line_Util_Rec(
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
2947: , X_Msg_Count => x_msg_count
2948: , X_Msg_Data => x_msg_data
2949: , X_access => l_access);
2978: -- Convert amount --> acctd_amount(functional currency)
2979: IF G_FUNCTIONAL_CURRENCY = l_line_util_rec.currency_code THEN
2980: l_line_util_rec.acctd_amount := l_line_util_rec.amount ;
2981: ELSE
2982: OZF_UTILITY_PVT.Convert_Currency(
2983: p_from_currency => l_line_util_rec.currency_code
2984: ,p_to_currency => G_FUNCTIONAL_CURRENCY
2985: ,p_conv_type => l_line_util_rec.exchange_rate_type
2986: ,p_conv_rate => l_line_util_rec.exchange_rate
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;
3001:
3002: END IF;
3003:
3003:
3004:
3005: --------------------- update utilization ----------------------
3006: IF OZF_DEBUG_HIGH_ON THEN
3007: OZF_Utility_PVT.debug_message(l_full_name ||': update funds utilized');
3008: END IF;
3009:
3010: IF l_line_util_rec.utilization_id > -1 THEN --added for bugfx 5101106
3011:
3017: -- get diference between old utiz_amount and new_utiz_amount and pass that
3018: -- else pass the old value
3019: IF G_CLAIM_CURRENCY <> l_utiz_currency THEN
3020: -- Modifed for Bugfix 5528210: Use claim exchange rate
3021: OZF_UTILITY_PVT.Convert_Currency(
3022: p_from_currency => l_line_util_rec.currency_code
3023: ,p_to_currency => l_utiz_currency
3024: ,p_conv_type => l_line_util_rec.exchange_rate_type
3025: ,p_conv_rate => l_line_util_rec.exchange_rate
3059:
3060:
3061: -------------------------- update -------------------------
3062: IF OZF_DEBUG_HIGH_ON THEN
3063: OZF_Utility_PVT.debug_message(l_full_name ||': update lines utilized');
3064: END IF;
3065:
3066: UPDATE ozf_claim_lines_util_all SET
3067: object_version_number = l_line_util_rec.object_version_number,
3109: p_data => x_msg_data
3110: );
3111:
3112: IF OZF_DEBUG_HIGH_ON THEN
3113: OZF_Utility_PVT.debug_message(l_full_name ||': end');
3114: END IF;
3115:
3116: EXCEPTION
3117: WHEN FND_API.g_exc_error THEN
3205: --------------------- initialize -----------------------
3206: SAVEPOINT Delete_All_Line_Util;
3207:
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;
3310: p_data => x_msg_data
3311: );
3312:
3313: IF OZF_DEBUG_HIGH_ON THEN
3314: OZF_Utility_PVT.debug_message(l_full_name ||': end');
3315: END IF;
3316:
3317: EXCEPTION
3318: WHEN FND_API.g_exc_error THEN
3405: --------------------- initialize -----------------------
3406: SAVEPOINT Delete_Line_Util_Tbl;
3407:
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;
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
3445: , X_Msg_Count => x_msg_count
3446: , X_Msg_Data => x_msg_data
3447: , X_access => l_access);
3519: p_data => x_msg_data
3520: );
3521:
3522: IF OZF_DEBUG_HIGH_ON THEN
3523: OZF_Utility_PVT.debug_message(l_full_name ||': end');
3524: END IF;
3525:
3526: EXCEPTION
3527: WHEN FND_API.g_exc_error THEN
3626: --------------------- initialize -----------------------
3627: SAVEPOINT Delete_Line_Util;
3628:
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;
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
3667: , X_Msg_Count => x_msg_count
3668: , X_Msg_Data => x_msg_data
3669: , X_access => l_access);
3689: ----------------- Update Utilization -----------------
3690: -- skip dummy utils
3691: IF l_utilization_id <> -1 THEN
3692: IF OZF_DEBUG_HIGH_ON THEN
3693: OZF_Utility_PVT.debug_message(l_full_name ||': update funds_utilized');
3694: END IF;
3695:
3696: OPEN csr_utiz_currency(l_utilization_id);
3697: FETCH csr_utiz_currency INTO l_utiz_currency;
3704: IF l_utiz_currency <> l_claim_currency THEN
3705: l_del_line_util_amt := l_utiz_amount;
3706: END IF;
3707: IF OZF_DEBUG_LOW_ON THEN
3708: OZF_Utility_PVT.debug_message('l_del_line_util_amt' || l_del_line_util_amt);
3709: OZF_Utility_PVT.debug_message('l_utiz_currency' || l_del_line_util_amt);
3710: OZF_Utility_PVT.debug_message('l_claim_currency' || l_del_line_util_amt);
3711: OZF_Utility_PVT.debug_message('l_claim_currency' || l_del_line_util_amt);
3712: END IF;
3705: l_del_line_util_amt := l_utiz_amount;
3706: END IF;
3707: IF OZF_DEBUG_LOW_ON THEN
3708: OZF_Utility_PVT.debug_message('l_del_line_util_amt' || l_del_line_util_amt);
3709: OZF_Utility_PVT.debug_message('l_utiz_currency' || l_del_line_util_amt);
3710: OZF_Utility_PVT.debug_message('l_claim_currency' || l_del_line_util_amt);
3711: OZF_Utility_PVT.debug_message('l_claim_currency' || l_del_line_util_amt);
3712: END IF;
3713:
3706: END IF;
3707: IF OZF_DEBUG_LOW_ON THEN
3708: OZF_Utility_PVT.debug_message('l_del_line_util_amt' || l_del_line_util_amt);
3709: OZF_Utility_PVT.debug_message('l_utiz_currency' || l_del_line_util_amt);
3710: OZF_Utility_PVT.debug_message('l_claim_currency' || l_del_line_util_amt);
3711: OZF_Utility_PVT.debug_message('l_claim_currency' || l_del_line_util_amt);
3712: END IF;
3713:
3714: Update_Fund_Utils(
3707: IF OZF_DEBUG_LOW_ON THEN
3708: OZF_Utility_PVT.debug_message('l_del_line_util_amt' || l_del_line_util_amt);
3709: OZF_Utility_PVT.debug_message('l_utiz_currency' || l_del_line_util_amt);
3710: OZF_Utility_PVT.debug_message('l_claim_currency' || l_del_line_util_amt);
3711: OZF_Utility_PVT.debug_message('l_claim_currency' || l_del_line_util_amt);
3712: END IF;
3713:
3714: Update_Fund_Utils(
3715: x_return_status => l_return_status
3728: END IF; -- IF l_utilization_rec.utilization_id <> -1
3729:
3730: ------------------------ delete ------------------------
3731: IF OZF_DEBUG_HIGH_ON THEN
3732: OZF_Utility_PVT.debug_message(l_full_name ||': delete');
3733: END IF;
3734:
3735: DELETE FROM ozf_claim_lines_util_all
3736: WHERE claim_line_util_id = p_line_util_id
3755: p_data => x_msg_data
3756: );
3757:
3758: IF OZF_DEBUG_HIGH_ON THEN
3759: OZF_Utility_PVT.debug_message(l_full_name ||': end');
3760: END IF;
3761:
3762: EXCEPTION
3763: WHEN FND_API.g_exc_error THEN
4083: FND_DSQL.add_text(' GROUP BY common_uom_code, common_currency_code ');
4084:
4085: IF OZF_DEBUG_HIGH_ON THEN
4086: l_temp_sql := FND_DSQL.get_text(TRUE);
4087: OZF_Utility_PVT.debug_message('----- Check_Offer_Performance SQL -----');
4088: OZF_Utility_PVT.debug_message(SUBSTR(l_temp_sql, 1, 254));
4089: OZF_Utility_PVT.debug_message(SUBSTR(l_temp_sql, 255, 254));
4090: OZF_Utility_PVT.debug_message(SUBSTR(l_temp_sql, 509, 254));
4091: OZF_Utility_PVT.debug_message('---------------------------------------');
4084:
4085: IF OZF_DEBUG_HIGH_ON THEN
4086: l_temp_sql := FND_DSQL.get_text(TRUE);
4087: OZF_Utility_PVT.debug_message('----- Check_Offer_Performance SQL -----');
4088: OZF_Utility_PVT.debug_message(SUBSTR(l_temp_sql, 1, 254));
4089: OZF_Utility_PVT.debug_message(SUBSTR(l_temp_sql, 255, 254));
4090: OZF_Utility_PVT.debug_message(SUBSTR(l_temp_sql, 509, 254));
4091: OZF_Utility_PVT.debug_message('---------------------------------------');
4092: END IF;
4085: IF OZF_DEBUG_HIGH_ON THEN
4086: l_temp_sql := FND_DSQL.get_text(TRUE);
4087: OZF_Utility_PVT.debug_message('----- Check_Offer_Performance SQL -----');
4088: OZF_Utility_PVT.debug_message(SUBSTR(l_temp_sql, 1, 254));
4089: OZF_Utility_PVT.debug_message(SUBSTR(l_temp_sql, 255, 254));
4090: OZF_Utility_PVT.debug_message(SUBSTR(l_temp_sql, 509, 254));
4091: OZF_Utility_PVT.debug_message('---------------------------------------');
4092: END IF;
4093:
4086: l_temp_sql := FND_DSQL.get_text(TRUE);
4087: OZF_Utility_PVT.debug_message('----- Check_Offer_Performance SQL -----');
4088: OZF_Utility_PVT.debug_message(SUBSTR(l_temp_sql, 1, 254));
4089: OZF_Utility_PVT.debug_message(SUBSTR(l_temp_sql, 255, 254));
4090: OZF_Utility_PVT.debug_message(SUBSTR(l_temp_sql, 509, 254));
4091: OZF_Utility_PVT.debug_message('---------------------------------------');
4092: END IF;
4093:
4094: l_emp_csr := DBMS_SQL.open_cursor;
4087: OZF_Utility_PVT.debug_message('----- Check_Offer_Performance SQL -----');
4088: OZF_Utility_PVT.debug_message(SUBSTR(l_temp_sql, 1, 254));
4089: OZF_Utility_PVT.debug_message(SUBSTR(l_temp_sql, 255, 254));
4090: OZF_Utility_PVT.debug_message(SUBSTR(l_temp_sql, 509, 254));
4091: OZF_Utility_PVT.debug_message('---------------------------------------');
4092: END IF;
4093:
4094: l_emp_csr := DBMS_SQL.open_cursor;
4095: FND_DSQL.set_cursor(l_emp_csr);
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
4156: ,p_to_currency => l_common_curr_code
4157: ,p_conv_date => SYSDATE
4158: ,p_from_amount => l_requirement_value
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);
4204: FND_DSQL.add_text(' GROUP BY uom_code ');
4205:
4206: IF OZF_DEBUG_HIGH_ON THEN
4207: l_temp_sql := FND_DSQL.get_text(TRUE);
4208: OZF_Utility_PVT.debug_message('----- Check_Offer_Performance SQL -----');
4209: OZF_Utility_PVT.debug_message(SUBSTR(l_temp_sql, 1, 254));
4210: OZF_Utility_PVT.debug_message(SUBSTR(l_temp_sql, 255, 254));
4211: OZF_Utility_PVT.debug_message(SUBSTR(l_temp_sql, 509, 254));
4212: OZF_Utility_PVT.debug_message('---------------------------------------');
4205:
4206: IF OZF_DEBUG_HIGH_ON THEN
4207: l_temp_sql := FND_DSQL.get_text(TRUE);
4208: OZF_Utility_PVT.debug_message('----- Check_Offer_Performance SQL -----');
4209: OZF_Utility_PVT.debug_message(SUBSTR(l_temp_sql, 1, 254));
4210: OZF_Utility_PVT.debug_message(SUBSTR(l_temp_sql, 255, 254));
4211: OZF_Utility_PVT.debug_message(SUBSTR(l_temp_sql, 509, 254));
4212: OZF_Utility_PVT.debug_message('---------------------------------------');
4213: END IF;
4206: IF OZF_DEBUG_HIGH_ON THEN
4207: l_temp_sql := FND_DSQL.get_text(TRUE);
4208: OZF_Utility_PVT.debug_message('----- Check_Offer_Performance SQL -----');
4209: OZF_Utility_PVT.debug_message(SUBSTR(l_temp_sql, 1, 254));
4210: OZF_Utility_PVT.debug_message(SUBSTR(l_temp_sql, 255, 254));
4211: OZF_Utility_PVT.debug_message(SUBSTR(l_temp_sql, 509, 254));
4212: OZF_Utility_PVT.debug_message('---------------------------------------');
4213: END IF;
4214:
4207: l_temp_sql := FND_DSQL.get_text(TRUE);
4208: OZF_Utility_PVT.debug_message('----- Check_Offer_Performance SQL -----');
4209: OZF_Utility_PVT.debug_message(SUBSTR(l_temp_sql, 1, 254));
4210: OZF_Utility_PVT.debug_message(SUBSTR(l_temp_sql, 255, 254));
4211: OZF_Utility_PVT.debug_message(SUBSTR(l_temp_sql, 509, 254));
4212: OZF_Utility_PVT.debug_message('---------------------------------------');
4213: END IF;
4214:
4215: l_emp_csr := DBMS_SQL.open_cursor;
4208: OZF_Utility_PVT.debug_message('----- Check_Offer_Performance SQL -----');
4209: OZF_Utility_PVT.debug_message(SUBSTR(l_temp_sql, 1, 254));
4210: OZF_Utility_PVT.debug_message(SUBSTR(l_temp_sql, 255, 254));
4211: OZF_Utility_PVT.debug_message(SUBSTR(l_temp_sql, 509, 254));
4212: OZF_Utility_PVT.debug_message('---------------------------------------');
4213: END IF;
4214:
4215: l_emp_csr := DBMS_SQL.open_cursor;
4216: FND_DSQL.set_cursor(l_emp_csr);
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
4279: ,p_to_currency => l_common_curr_code
4280: ,p_conv_date => SYSDATE
4281: ,p_from_amount => l_requirement_value
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);
4379: CLOSE csr_claim_info;
4380:
4381: l_claim_rec.claim_id := l_claim_id;
4382: l_claim_rec.object_version_number := l_object_version_number;
4383: l_claim_rec.USER_STATUS_ID := to_number( ozf_utility_pvt.GET_DEFAULT_USER_STATUS(
4384: P_STATUS_TYPE=> 'OZF_CLAIM_STATUS',
4385: P_STATUS_CODE=> 'CLOSED'
4386: ));
4387:
4529: --------------------- initialize -----------------------
4530: SAVEPOINT Create_Claim_For_Accruals;
4531:
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;
4606: FETCH c_get_conversion_type INTO l_exchange_rate_type;
4607: CLOSE c_get_conversion_type;
4608: --end
4609:
4610: OZF_UTILITY_PVT.Convert_Currency(
4611: p_from_currency => l_currency_code
4612: ,p_to_currency => l_claim_rec.currency_code
4613: ,p_conv_type => l_exchange_rate_type
4614: ,p_conv_date => SYSDATE
4625: END IF;
4626:
4627: IF l_amount IS NOT NULL AND l_amount <> 0 THEN
4628: IF OZF_DEBUG_HIGH_ON THEN
4629: OZF_Utility_PVT.debug_message('---------------------------------');
4630: OZF_Utility_PVT.debug_message('Line ' || l_counter || ': Amount='||l_amount);
4631: OZF_Utility_PVT.debug_message('Plan Type : ' || l_plan_type);
4632: OZF_Utility_PVT.debug_message('Plan Id : ' || l_plan_id);
4633: OZF_Utility_PVT.debug_message('Product Level Type: ' || l_product_level_type);
4626:
4627: IF l_amount IS NOT NULL AND l_amount <> 0 THEN
4628: IF OZF_DEBUG_HIGH_ON THEN
4629: OZF_Utility_PVT.debug_message('---------------------------------');
4630: OZF_Utility_PVT.debug_message('Line ' || l_counter || ': Amount='||l_amount);
4631: OZF_Utility_PVT.debug_message('Plan Type : ' || l_plan_type);
4632: OZF_Utility_PVT.debug_message('Plan Id : ' || l_plan_id);
4633: OZF_Utility_PVT.debug_message('Product Level Type: ' || l_product_level_type);
4634: OZF_Utility_PVT.debug_message('Product Id : ' || l_product_id);
4627: IF l_amount IS NOT NULL AND l_amount <> 0 THEN
4628: IF OZF_DEBUG_HIGH_ON THEN
4629: OZF_Utility_PVT.debug_message('---------------------------------');
4630: OZF_Utility_PVT.debug_message('Line ' || l_counter || ': Amount='||l_amount);
4631: OZF_Utility_PVT.debug_message('Plan Type : ' || l_plan_type);
4632: OZF_Utility_PVT.debug_message('Plan Id : ' || l_plan_id);
4633: OZF_Utility_PVT.debug_message('Product Level Type: ' || l_product_level_type);
4634: OZF_Utility_PVT.debug_message('Product Id : ' || l_product_id);
4635: END IF;
4628: IF OZF_DEBUG_HIGH_ON THEN
4629: OZF_Utility_PVT.debug_message('---------------------------------');
4630: OZF_Utility_PVT.debug_message('Line ' || l_counter || ': Amount='||l_amount);
4631: OZF_Utility_PVT.debug_message('Plan Type : ' || l_plan_type);
4632: OZF_Utility_PVT.debug_message('Plan Id : ' || l_plan_id);
4633: OZF_Utility_PVT.debug_message('Product Level Type: ' || l_product_level_type);
4634: OZF_Utility_PVT.debug_message('Product Id : ' || l_product_id);
4635: END IF;
4636: IF p_claim_rec.created_from = 'AUTOPAY' THEN
4629: OZF_Utility_PVT.debug_message('---------------------------------');
4630: OZF_Utility_PVT.debug_message('Line ' || l_counter || ': Amount='||l_amount);
4631: OZF_Utility_PVT.debug_message('Plan Type : ' || l_plan_type);
4632: OZF_Utility_PVT.debug_message('Plan Id : ' || l_plan_id);
4633: OZF_Utility_PVT.debug_message('Product Level Type: ' || l_product_level_type);
4634: OZF_Utility_PVT.debug_message('Product Id : ' || l_product_id);
4635: END IF;
4636: IF p_claim_rec.created_from = 'AUTOPAY' THEN
4637: FND_FILE.PUT_LINE(FND_FILE.LOG, '---------------------------------');
4630: OZF_Utility_PVT.debug_message('Line ' || l_counter || ': Amount='||l_amount);
4631: OZF_Utility_PVT.debug_message('Plan Type : ' || l_plan_type);
4632: OZF_Utility_PVT.debug_message('Plan Id : ' || l_plan_id);
4633: OZF_Utility_PVT.debug_message('Product Level Type: ' || l_product_level_type);
4634: OZF_Utility_PVT.debug_message('Product Id : ' || l_product_id);
4635: END IF;
4636: IF p_claim_rec.created_from = 'AUTOPAY' THEN
4637: FND_FILE.PUT_LINE(FND_FILE.LOG, '---------------------------------');
4638: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Line ' || l_counter || ': Amount='||l_amount);
4746: l_counter := l_counter + 1;
4747: END IF;--nirma
4748: ELSE
4749: IF OZF_DEBUG_HIGH_ON THEN
4750: OZF_Utility_PVT.debug_message('Performance requirements not met.');
4751: END IF;
4752: IF p_claim_rec.created_from = 'AUTOPAY' THEN
4753: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Performance requirements not met.');
4754: END IF;
4764: l_claim_rec.amount := l_total_acctd_amount_rem;
4765:
4766: -- create claim in OPEN status, ignoring the status passed in
4767: l_claim_rec.status_code := 'OPEN';
4768: l_claim_rec.user_status_id := to_number(ozf_utility_pvt.get_default_user_status(
4769: p_status_type => 'OZF_CLAIM_STATUS',
4770: p_status_code => l_claim_rec.status_code));
4771:
4772: OZF_CLAIM_PVT.Create_Claim(
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);
4788: END IF;
4789:
4790: FOR i IN l_line_tbl.FIRST..l_line_tbl.LAST LOOP
4791: IF l_line_tbl.exists(i) IS NOT NULL 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);
4815: END IF;
4816:
4817: OPEN csr_claim_line(l_claim_id);
4818: LOOP
4843: END LOOP;
4844: CLOSE csr_claim_line;
4845: ELSIF l_claim_rec.created_from = 'PROMO_CLAIM' and l_claim_rec.amount <> 0 THEN
4846: IF OZF_DEBUG_HIGH_ON THEN
4847: OZF_Utility_PVT.debug_message('Created Form: ' || l_claim_rec.created_from);
4848: OZF_Utility_PVT.debug_message('Amount: ' || l_claim_rec.amount);
4849: END IF;
4850:
4851: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4844: CLOSE csr_claim_line;
4845: ELSIF l_claim_rec.created_from = 'PROMO_CLAIM' and l_claim_rec.amount <> 0 THEN
4846: IF OZF_DEBUG_HIGH_ON THEN
4847: OZF_Utility_PVT.debug_message('Created Form: ' || l_claim_rec.created_from);
4848: OZF_Utility_PVT.debug_message('Amount: ' || l_claim_rec.amount);
4849: END IF;
4850:
4851: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4852: FND_MESSAGE.Set_Name('OZF', 'OZF_ACCRUAL_SCAN_DATA_ERROR');
4876: p_data => x_msg_data
4877: );
4878:
4879: IF OZF_DEBUG_HIGH_ON THEN
4880: OZF_Utility_PVT.debug_message(l_full_name ||': end');
4881: END IF;
4882:
4883: EXCEPTION
4884: WHEN FND_API.g_exc_error THEN
4966: --------------------- initialize -----------------------
4967: SAVEPOINT Pay_Claim_For_Accruals;
4968:
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;
5047: END IF;
5048: END IF;
5049:
5050: IF OZF_DEBUG_HIGH_ON THEN
5051: OZF_Utility_PVT.debug_message('Payment method is '||l_claim_rec.payment_method);
5052: OZF_Utility_PVT.debug_message('Autopay Flag is '||l_cust_trade_profile.autopay_flag);
5053: OZF_Utility_PVT.debug_message('Close Claim Flag is '||l_close_claim_flag);
5054: END IF;
5055:
5048: END IF;
5049:
5050: IF OZF_DEBUG_HIGH_ON THEN
5051: OZF_Utility_PVT.debug_message('Payment method is '||l_claim_rec.payment_method);
5052: OZF_Utility_PVT.debug_message('Autopay Flag is '||l_cust_trade_profile.autopay_flag);
5053: OZF_Utility_PVT.debug_message('Close Claim Flag is '||l_close_claim_flag);
5054: END IF;
5055:
5056: Create_Claim_For_Accruals(
5049:
5050: IF OZF_DEBUG_HIGH_ON THEN
5051: OZF_Utility_PVT.debug_message('Payment method is '||l_claim_rec.payment_method);
5052: OZF_Utility_PVT.debug_message('Autopay Flag is '||l_cust_trade_profile.autopay_flag);
5053: OZF_Utility_PVT.debug_message('Close Claim Flag is '||l_close_claim_flag);
5054: END IF;
5055:
5056: Create_Claim_For_Accruals(
5057: p_api_version => l_api_version
5100: p_data => x_msg_data
5101: );
5102:
5103: IF OZF_DEBUG_HIGH_ON THEN
5104: OZF_Utility_PVT.debug_message(l_full_name ||': end');
5105: END IF;
5106:
5107: EXCEPTION
5108: WHEN FND_API.g_exc_error THEN
5228: --------------------- initialize -----------------------
5229: SAVEPOINT Asso_Accruals_To_Claim;
5230:
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;
5465: p_data => x_msg_data
5466: );
5467:
5468: IF OZF_DEBUG_HIGH_ON THEN
5469: OZF_Utility_PVT.debug_message(l_full_name ||': end');
5470: END IF;
5471:
5472: EXCEPTION
5473: WHEN FND_API.g_exc_error THEN
5577: --------------------- initialize -----------------------
5578: SAVEPOINT Asso_Accruals_To_Claim_Line;
5579:
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;
5689: p_data => x_msg_data
5690: );
5691:
5692: IF OZF_DEBUG_HIGH_ON THEN
5693: OZF_Utility_PVT.debug_message(l_full_name ||': end');
5694: END IF;
5695:
5696: EXCEPTION
5697: WHEN FND_API.g_exc_error THEN
5896: --------------------- initialize -----------------------
5897: SAVEPOINT Initiate_Batch_Payment;
5898:
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;
5923: , l_partner_claim_num;
5924: CLOSE csr_resale_batch;
5925:
5926: IF OZF_DEBUG_HIGH_ON THEN
5927: OZF_Utility_PVT.debug_message('Process batch for customer id '||l_cust_account_id);
5928: END IF;
5929:
5930: l_close_claim_flag := 'T';
5931:
5976: , l_agreement_number;
5977: EXIT WHEN csr_batch_request%NOTFOUND;
5978:
5979: IF OZF_DEBUG_HIGH_ON THEN
5980: OZF_Utility_PVT.debug_message('request id:'||l_request_header_id);
5981: END IF;
5982: -- create a claim per request(agreement)*/
5983: -- bug # 7453430 fixed by ateotia(-)
5984:
6026: --Added for bug 7030415, get exchange_rate type
6027: OPEN c_get_conversion_type;
6028: FETCH c_get_conversion_type INTO l_exchange_rate_type;
6029: CLOSE c_get_conversion_type;
6030: OZF_UTILITY_PVT.Convert_Currency(
6031: p_from_currency => l_line_curr_code
6032: ,p_to_currency => l_claim_curr_code
6033: ,p_conv_type => l_exchange_rate_type
6034: ,p_conv_date => SYSDATE
6104: l_claim_rec.vendor_id := l_vendor_id;
6105: l_claim_rec.vendor_site_id := l_vendor_site_id;
6106: l_claim_rec.status_code := 'OPEN';
6107: l_claim_rec.user_status_id := to_number(
6108: ozf_utility_pvt.get_default_user_status(
6109: p_status_type => 'OZF_CLAIM_STATUS',
6110: p_status_code => l_claim_rec.status_code));
6111: -- save batch's partner claim number as customer reference
6112: l_claim_rec.customer_ref_number := l_partner_claim_num;
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);
6130: END IF;
6131:
6132: FOR i IN l_line_tbl.FIRST..l_line_tbl.LAST LOOP
6133: IF l_line_tbl.exists(i) IS NOT NULL 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);
6157: END IF;
6158:
6159: OPEN csr_claim_line(l_claim_id);
6160: LOOP
6210: p_data => x_msg_data
6211: );
6212:
6213: IF OZF_DEBUG_HIGH_ON THEN
6214: OZF_Utility_PVT.debug_message(l_full_name ||': end');
6215: END IF;
6216:
6217: EXCEPTION
6218: WHEN FND_API.g_exc_error THEN
6334:
6335: BEGIN
6336: ----------------------- initialize --------------------
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;
6501: END IF;
6502: END IF;
6503:
6504: IF OZF_DEBUG_HIGH_ON THEN
6505: OZF_Utility_PVT.debug_message(l_full_name||': end');
6506: END IF;
6507: END Validate_Over_Utilization;
6508:
6509: ---------------------------------------------------------------------
6546: --------------------- initialize -----------------------
6547: SAVEPOINT Create_Group_Line_Util;
6548:
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;
6577: p_data => x_msg_data
6578: );
6579:
6580: IF OZF_DEBUG_HIGH_ON THEN
6581: OZF_Utility_PVT.debug_message(l_full_name ||': end');
6582: END IF;
6583:
6584: EXCEPTION
6585: WHEN FND_API.g_exc_error THEN
6880: --------------------- initialize -----------------------
6881: SAVEPOINT Update_Group_Line_Util;
6882:
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;
6920: ,l_batch_line_id; --Bugfix 7811671
6921: CLOSE csr_claim_status;
6922:
6923: IF OZF_DEBUG_HIGH_ON THEN
6924: OZF_Utility_PVT.debug_message('Claim status: '||l_claim_status||' '||l_user_status_id);
6925: OZF_Utility_PVT.debug_message(l_full_name||'G_CLAIM_CURRENCY '||G_CLAIM_CURRENCY);
6926: END IF;
6927:
6928: IF l_claim_status <> 'OPEN' THEN
6921: CLOSE csr_claim_status;
6922:
6923: IF OZF_DEBUG_HIGH_ON THEN
6924: OZF_Utility_PVT.debug_message('Claim status: '||l_claim_status||' '||l_user_status_id);
6925: OZF_Utility_PVT.debug_message(l_full_name||'G_CLAIM_CURRENCY '||G_CLAIM_CURRENCY);
6926: END IF;
6927:
6928: IF l_claim_status <> 'OPEN' THEN
6929: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
6975: -- Before inserting record in clu convert back line util amount to claim currency
6976: -- Added for FXGL R12 Enhancement
6977: IF l_funds_util_flt.utiz_currency_code is not null and G_CLAIM_CURRENCY <> l_funds_util_flt.utiz_currency_code THEN
6978: -- Modified for Bugfix 5528210: Use claim rate for cross Utils
6979: OZF_UTILITY_PVT.Convert_Currency(
6980: p_from_currency => G_CLAIM_CURRENCY
6981: ,p_to_currency => l_funds_util_flt.utiz_currency_code
6982: ,p_conv_type => l_claim_exc_type
6983: ,p_conv_rate => l_claim_exc_rate
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(
6998: p_from_currency => G_CLAIM_CURRENCY
6999: ,p_to_currency => l_funds_util_flt.utiz_currency_code
7000: ,p_conv_type => l_claim_exc_type
7001: ,p_conv_rate => l_claim_exc_rate
7124: CLOSE csr_offer_currency;
7125:
7126: -- Amount field needs to be calculated in claim currency
7127: IF G_OFFER_CURRENCY <> G_CLAIM_CURRENCY THEN
7128: OZF_UTILITY_PVT.Convert_Currency(
7129: p_from_currency => G_OFFER_CURRENCY
7130: ,p_to_currency => G_CLAIM_CURRENCY
7131: ,p_conv_type => l_claim_exc_type
7132: ,p_conv_date => SYSDATE
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;
7146: END IF;
7147: l_funds_util_flt.total_amount := l_new_total_amount;
7148: l_funds_util_flt.uom_code := l_util_uom_code;
7152:
7153: --------------------- start -----------------------
7154: -- amounts are rounded to precision of claim currency
7155: l_diff_total_amount := NVL(ABS(l_new_total_amount), 0) - NVL(ABS(l_funds_util_flt.old_total_amount) ,0);
7156: l_diff_total_amount := OZF_UTILITY_PVT.CurrRound(l_diff_total_amount, G_ACCRUAL_CURRENCY);
7157:
7158:
7159: ------ update scan data quantity and uom for old line utils --------
7160: IF l_funds_util_flt.offer_type = 'SCAN_DATA' THEN
7241: END IF;
7242:
7243: -- Recreate utils for the entire amount
7244: l_cre_total_amount := NVL(l_new_total_amount, 0);
7245: l_cre_total_amount := OZF_UTILITY_PVT.CurrRound(l_cre_total_amount, G_ACCRUAL_CURRENCY);
7246:
7247: ELSE
7248: -- Create utils for the difference amount
7249: l_cre_total_amount := NVL(l_new_total_amount, 0) - NVL(l_funds_util_flt.old_total_amount ,0);
7246:
7247: ELSE
7248: -- Create utils for the difference amount
7249: l_cre_total_amount := NVL(l_new_total_amount, 0) - NVL(l_funds_util_flt.old_total_amount ,0);
7250: l_cre_total_amount := OZF_UTILITY_PVT.CurrRound(l_cre_total_amount, G_ACCRUAL_CURRENCY);
7251: -- Bugfix 5101106: Recalculate qty and coupon count
7252: IF l_funds_util_flt.offer_type = 'SCAN_DATA' THEN
7253: l_new_total_units := NVL(l_cre_total_units, 0) - NVL(l_funds_util_flt.old_total_units, 0);
7254: IF l_funds_util_flt.uom_code <> l_offer_uom_code THEN
7271: l_total_amt_rem := 0.0;
7272: l_total_scan_unit_rem := 0.0;
7273:
7274: IF OZF_DEBUG_HIGH_ON THEN
7275: OZF_Utility_PVT.debug_message('l_source_object_class = '||l_source_object_class);
7276: OZF_Utility_PVT.debug_message('l_source_object_id = '||l_source_object_id);
7277: OZF_Utility_PVT.debug_message('l_funds_util_flt.product_id = '||l_funds_util_flt.product_id);
7278: OZF_Utility_PVT.debug_message('l_request_header_id = '||l_request_header_id);
7279: IF l_funds_util_flt.pay_over_all_flag THEN
7272: l_total_scan_unit_rem := 0.0;
7273:
7274: IF OZF_DEBUG_HIGH_ON THEN
7275: OZF_Utility_PVT.debug_message('l_source_object_class = '||l_source_object_class);
7276: OZF_Utility_PVT.debug_message('l_source_object_id = '||l_source_object_id);
7277: OZF_Utility_PVT.debug_message('l_funds_util_flt.product_id = '||l_funds_util_flt.product_id);
7278: OZF_Utility_PVT.debug_message('l_request_header_id = '||l_request_header_id);
7279: IF l_funds_util_flt.pay_over_all_flag THEN
7280: OZF_Utility_PVT.debug_message('l_total_pay_over_flag = TRUE');
7273:
7274: IF OZF_DEBUG_HIGH_ON THEN
7275: OZF_Utility_PVT.debug_message('l_source_object_class = '||l_source_object_class);
7276: OZF_Utility_PVT.debug_message('l_source_object_id = '||l_source_object_id);
7277: OZF_Utility_PVT.debug_message('l_funds_util_flt.product_id = '||l_funds_util_flt.product_id);
7278: OZF_Utility_PVT.debug_message('l_request_header_id = '||l_request_header_id);
7279: IF l_funds_util_flt.pay_over_all_flag THEN
7280: OZF_Utility_PVT.debug_message('l_total_pay_over_flag = TRUE');
7281: ELSE
7274: IF OZF_DEBUG_HIGH_ON THEN
7275: OZF_Utility_PVT.debug_message('l_source_object_class = '||l_source_object_class);
7276: OZF_Utility_PVT.debug_message('l_source_object_id = '||l_source_object_id);
7277: OZF_Utility_PVT.debug_message('l_funds_util_flt.product_id = '||l_funds_util_flt.product_id);
7278: OZF_Utility_PVT.debug_message('l_request_header_id = '||l_request_header_id);
7279: IF l_funds_util_flt.pay_over_all_flag THEN
7280: OZF_Utility_PVT.debug_message('l_total_pay_over_flag = TRUE');
7281: ELSE
7282: OZF_Utility_PVT.debug_message('l_total_pay_over_flag = FALSE');
7276: OZF_Utility_PVT.debug_message('l_source_object_id = '||l_source_object_id);
7277: OZF_Utility_PVT.debug_message('l_funds_util_flt.product_id = '||l_funds_util_flt.product_id);
7278: OZF_Utility_PVT.debug_message('l_request_header_id = '||l_request_header_id);
7279: IF l_funds_util_flt.pay_over_all_flag THEN
7280: OZF_Utility_PVT.debug_message('l_total_pay_over_flag = TRUE');
7281: ELSE
7282: OZF_Utility_PVT.debug_message('l_total_pay_over_flag = FALSE');
7283: END IF;
7284: END IF;
7278: OZF_Utility_PVT.debug_message('l_request_header_id = '||l_request_header_id);
7279: IF l_funds_util_flt.pay_over_all_flag THEN
7280: OZF_Utility_PVT.debug_message('l_total_pay_over_flag = TRUE');
7281: ELSE
7282: OZF_Utility_PVT.debug_message('l_total_pay_over_flag = FALSE');
7283: END IF;
7284: END IF;
7285:
7286: --Associate Earnings for Ship-Debit Suppliers / Pranay
7369: DBMS_SQL.close_cursor(l_funds_util_csr);
7370: END IF ; -- if pay_over_all flag = 'FALSE'
7371:
7372: IF OZF_DEBUG_HIGH_ON THEN
7373: OZF_Utility_PVT.debug_message(l_full_name||': new associated amount '||l_cre_total_amount);
7374: OZF_Utility_PVT.debug_message(l_full_name||': available amount '||l_total_amt_rem);
7375: END IF;
7376:
7377: -- Fix for Bug 7632911
7370: END IF ; -- if pay_over_all flag = 'FALSE'
7371:
7372: IF OZF_DEBUG_HIGH_ON THEN
7373: OZF_Utility_PVT.debug_message(l_full_name||': new associated amount '||l_cre_total_amount);
7374: OZF_Utility_PVT.debug_message(l_full_name||': available amount '||l_total_amt_rem);
7375: END IF;
7376:
7377: -- Fix for Bug 7632911
7378: -- l_cre_total_amount => Budget Currency
7460: AND ABS(l_cre_total_amount) <= ABS(l_total_amt_rem)
7461: THEN
7462: l_counter := l_funds_rem_tbl.FIRST;
7463: IF OZF_DEBUG_LOW_ON THEN
7464: OZF_Utility_PVT.debug_message(' Prorate Among selected utilization Lines ');
7465: END IF;
7466: LOOP
7467: l_line_util_tbl(l_counter).utilization_id := l_funds_rem_tbl(l_counter).utilization_id;
7468: -- Bug Fix 4173273 : Check for the last record and if the l_cre_total_amount is less adjust the last line
7467: l_line_util_tbl(l_counter).utilization_id := l_funds_rem_tbl(l_counter).utilization_id;
7468: -- Bug Fix 4173273 : Check for the last record and if the l_cre_total_amount is less adjust the last line
7469: IF (l_counter = l_funds_rem_tbl.LAST) THEN
7470: l_prorate_amount := l_funds_rem_tbl(l_counter).amount_remaining * (l_cre_total_amount / l_total_amt_rem);
7471: l_prorate_amount := OZF_UTILITY_PVT.CurrRound(l_prorate_amount,G_ACCRUAL_CURRENCY);
7472: -- modified the condition to <> to account for either less or greater condition
7473: IF (l_total_prorate_amount + l_prorate_amount) <> l_cre_total_amount THEN
7474: l_prorate_amount := l_cre_total_amount - l_total_prorate_amount;
7475: END IF;
7475: END IF;
7476: l_line_util_tbl(l_counter).amount := l_prorate_amount;
7477: ELSE
7478: l_prorate_amount := l_funds_rem_tbl(l_counter).amount_remaining * (l_cre_total_amount / l_total_amt_rem);
7479: l_line_util_tbl(l_counter).amount := OZF_UTILITY_PVT.CurrRound(l_prorate_amount, G_ACCRUAL_CURRENCY);
7480: END IF;
7481: l_total_prorate_amount := l_total_prorate_amount + l_line_util_tbl(l_counter).amount;
7482:
7483:
7481: l_total_prorate_amount := l_total_prorate_amount + l_line_util_tbl(l_counter).amount;
7482:
7483:
7484: IF OZF_DEBUG_LOW_ON THEN
7485: OZF_Utility_PVT.debug_message(': amt remaining '||l_funds_rem_tbl(l_counter).amount_remaining);
7486: OZF_Utility_PVT.debug_message(': amount '||l_line_util_tbl(l_counter).amount);
7487: OZF_Utility_PVT.debug_message(l_full_name||'l_prorate_amount '||l_prorate_amount);
7488: OZF_Utility_PVT.debug_message(l_full_name||'l_total_prorate_amount '||l_total_prorate_amount);
7489: END IF;
7482:
7483:
7484: IF OZF_DEBUG_LOW_ON THEN
7485: OZF_Utility_PVT.debug_message(': amt remaining '||l_funds_rem_tbl(l_counter).amount_remaining);
7486: OZF_Utility_PVT.debug_message(': amount '||l_line_util_tbl(l_counter).amount);
7487: OZF_Utility_PVT.debug_message(l_full_name||'l_prorate_amount '||l_prorate_amount);
7488: OZF_Utility_PVT.debug_message(l_full_name||'l_total_prorate_amount '||l_total_prorate_amount);
7489: END IF;
7490: l_line_util_tbl(l_counter).claim_line_id := l_funds_util_flt.claim_line_id;
7483:
7484: IF OZF_DEBUG_LOW_ON THEN
7485: OZF_Utility_PVT.debug_message(': amt remaining '||l_funds_rem_tbl(l_counter).amount_remaining);
7486: OZF_Utility_PVT.debug_message(': amount '||l_line_util_tbl(l_counter).amount);
7487: OZF_Utility_PVT.debug_message(l_full_name||'l_prorate_amount '||l_prorate_amount);
7488: OZF_Utility_PVT.debug_message(l_full_name||'l_total_prorate_amount '||l_total_prorate_amount);
7489: END IF;
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;
7484: IF OZF_DEBUG_LOW_ON THEN
7485: OZF_Utility_PVT.debug_message(': amt remaining '||l_funds_rem_tbl(l_counter).amount_remaining);
7486: OZF_Utility_PVT.debug_message(': amount '||l_line_util_tbl(l_counter).amount);
7487: OZF_Utility_PVT.debug_message(l_full_name||'l_prorate_amount '||l_prorate_amount);
7488: OZF_Utility_PVT.debug_message(l_full_name||'l_total_prorate_amount '||l_total_prorate_amount);
7489: END IF;
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;
7506: -- bug fix 4406491
7507: l_fu_amt_rem := l_funds_rem_tbl(l_counter).amount_remaining;
7508:
7509: IF OZF_DEBUG_LOW_ON THEN
7510: ozf_utility_pvt.debug_message('l_cre_total_amount'||l_cre_total_amount);
7511: ozf_utility_pvt.debug_message('l_fu_amt_rem'||l_fu_amt_rem);
7512: ozf_utility_pvt.debug_message('l_util_quantity ='||l_util_quantity);
7513: ozf_utility_pvt.debug_message('l_new_total_units ='||l_new_total_units);
7514: ozf_utility_pvt.debug_message('fu.util_id ='||l_line_util_tbl(l_counter).utilization_id);
7507: l_fu_amt_rem := l_funds_rem_tbl(l_counter).amount_remaining;
7508:
7509: IF OZF_DEBUG_LOW_ON THEN
7510: ozf_utility_pvt.debug_message('l_cre_total_amount'||l_cre_total_amount);
7511: ozf_utility_pvt.debug_message('l_fu_amt_rem'||l_fu_amt_rem);
7512: ozf_utility_pvt.debug_message('l_util_quantity ='||l_util_quantity);
7513: ozf_utility_pvt.debug_message('l_new_total_units ='||l_new_total_units);
7514: ozf_utility_pvt.debug_message('fu.util_id ='||l_line_util_tbl(l_counter).utilization_id);
7515: END IF;
7508:
7509: IF OZF_DEBUG_LOW_ON THEN
7510: ozf_utility_pvt.debug_message('l_cre_total_amount'||l_cre_total_amount);
7511: ozf_utility_pvt.debug_message('l_fu_amt_rem'||l_fu_amt_rem);
7512: ozf_utility_pvt.debug_message('l_util_quantity ='||l_util_quantity);
7513: ozf_utility_pvt.debug_message('l_new_total_units ='||l_new_total_units);
7514: ozf_utility_pvt.debug_message('fu.util_id ='||l_line_util_tbl(l_counter).utilization_id);
7515: END IF;
7516: -- end of fix
7509: IF OZF_DEBUG_LOW_ON THEN
7510: ozf_utility_pvt.debug_message('l_cre_total_amount'||l_cre_total_amount);
7511: ozf_utility_pvt.debug_message('l_fu_amt_rem'||l_fu_amt_rem);
7512: ozf_utility_pvt.debug_message('l_util_quantity ='||l_util_quantity);
7513: ozf_utility_pvt.debug_message('l_new_total_units ='||l_new_total_units);
7514: ozf_utility_pvt.debug_message('fu.util_id ='||l_line_util_tbl(l_counter).utilization_id);
7515: END IF;
7516: -- end of fix
7517: IF (l_cre_total_amount < 0 AND l_fu_amt_rem < 0
7510: ozf_utility_pvt.debug_message('l_cre_total_amount'||l_cre_total_amount);
7511: ozf_utility_pvt.debug_message('l_fu_amt_rem'||l_fu_amt_rem);
7512: ozf_utility_pvt.debug_message('l_util_quantity ='||l_util_quantity);
7513: ozf_utility_pvt.debug_message('l_new_total_units ='||l_new_total_units);
7514: ozf_utility_pvt.debug_message('fu.util_id ='||l_line_util_tbl(l_counter).utilization_id);
7515: END IF;
7516: -- end of fix
7517: IF (l_cre_total_amount < 0 AND l_fu_amt_rem < 0
7518: AND l_cre_total_amount > l_fu_amt_rem) OR
7585:
7586: ----------------- Over-Utilization -----------------------
7587: IF l_cre_total_amount > 0 THEN
7588: IF OZF_DEBUG_LOW_ON THEN
7589: OZF_Utility_PVT.debug_message(' Over Utilization ');
7590: ozf_utility_pvt.debug_message('l_cre_total_amount ='||l_cre_total_amount);
7591: ozf_utility_pvt.debug_message('l_new_total_units ='||l_new_total_units);
7592: ozf_utility_pvt.debug_message('l_util_quantity ='||l_util_quantity);
7593: END IF;
7586: ----------------- Over-Utilization -----------------------
7587: IF l_cre_total_amount > 0 THEN
7588: IF OZF_DEBUG_LOW_ON THEN
7589: OZF_Utility_PVT.debug_message(' Over Utilization ');
7590: ozf_utility_pvt.debug_message('l_cre_total_amount ='||l_cre_total_amount);
7591: ozf_utility_pvt.debug_message('l_new_total_units ='||l_new_total_units);
7592: ozf_utility_pvt.debug_message('l_util_quantity ='||l_util_quantity);
7593: END IF;
7594: IF l_funds_util_flt.offer_type = 'SCAN_DATA' THEN
7587: IF l_cre_total_amount > 0 THEN
7588: IF OZF_DEBUG_LOW_ON THEN
7589: OZF_Utility_PVT.debug_message(' Over Utilization ');
7590: ozf_utility_pvt.debug_message('l_cre_total_amount ='||l_cre_total_amount);
7591: ozf_utility_pvt.debug_message('l_new_total_units ='||l_new_total_units);
7592: ozf_utility_pvt.debug_message('l_util_quantity ='||l_util_quantity);
7593: END IF;
7594: IF l_funds_util_flt.offer_type = 'SCAN_DATA' THEN
7595: -- create dummy utilization
7588: IF OZF_DEBUG_LOW_ON THEN
7589: OZF_Utility_PVT.debug_message(' Over Utilization ');
7590: ozf_utility_pvt.debug_message('l_cre_total_amount ='||l_cre_total_amount);
7591: ozf_utility_pvt.debug_message('l_new_total_units ='||l_new_total_units);
7592: ozf_utility_pvt.debug_message('l_util_quantity ='||l_util_quantity);
7593: END IF;
7594: IF l_funds_util_flt.offer_type = 'SCAN_DATA' THEN
7595: -- create dummy utilization
7596: -- The actual adjustments in funds util is created post approval
7627: IF l_line_util_tbl.COUNT >= 1 THEN
7628: l_dummy_counter := l_line_util_tbl.FIRST;
7629: l_total_util_counter := l_line_util_tbl.LAST;
7630: IF OZF_DEBUG_LOW_ON THEN
7631: OZF_Utility_PVT.debug_message(' Prorating Adjustment Based on Accrual Information ');
7632: END IF;
7633:
7634: LOOP
7635:
7640:
7641: -- 1. Calculate the prorated amount
7642: l_prorate_adj_amt := l_line_util_tbl(l_dummy_counter).amount
7643: * (l_cre_total_amount / l_tot_accrual_amt);
7644: l_prorate_adj_amt := OZF_UTILITY_PVT.CurrRound(l_prorate_adj_amt, G_ACCRUAL_CURRENCY);
7645:
7646: l_tot_prorate_adj_amt := NVL(l_tot_prorate_adj_amt,0) + l_prorate_adj_amt ;
7647:
7648: --2. Get the product and budget information from the funds util line
7650: FETCH csr_funds_util_info INTO l_util_product_id, l_util_product_level_type, l_util_fund_id;
7651: CLOSE csr_funds_util_info;
7652:
7653: IF OZF_DEBUG_LOW_ON THEN
7654: ozf_utility_pvt.debug_message('l_prorate_adj_amt='||l_prorate_adj_amt);
7655: ozf_utility_pvt.debug_message('l_l_line_util_tbl.amount='||l_line_util_tbl(l_dummy_counter).amount);
7656: ozf_utility_pvt.debug_message('l_tot_prorate_adj_amt='||l_tot_prorate_adj_amt);
7657: END IF;
7658:
7651: CLOSE csr_funds_util_info;
7652:
7653: IF OZF_DEBUG_LOW_ON THEN
7654: ozf_utility_pvt.debug_message('l_prorate_adj_amt='||l_prorate_adj_amt);
7655: ozf_utility_pvt.debug_message('l_l_line_util_tbl.amount='||l_line_util_tbl(l_dummy_counter).amount);
7656: ozf_utility_pvt.debug_message('l_tot_prorate_adj_amt='||l_tot_prorate_adj_amt);
7657: END IF;
7658:
7659: --3. Call function to check if the adjustment line is already created per product and budget (create if required)
7652:
7653: IF OZF_DEBUG_LOW_ON THEN
7654: ozf_utility_pvt.debug_message('l_prorate_adj_amt='||l_prorate_adj_amt);
7655: ozf_utility_pvt.debug_message('l_l_line_util_tbl.amount='||l_line_util_tbl(l_dummy_counter).amount);
7656: ozf_utility_pvt.debug_message('l_tot_prorate_adj_amt='||l_tot_prorate_adj_amt);
7657: END IF;
7658:
7659: --3. Call function to check if the adjustment line is already created per product and budget (create if required)
7660: -- Must create adjustment record in fund currency
7698: -- Condition to resolve Bug4941131 and Bug4927201
7699: -- Entire associated amount is used to pay over earnings
7700: -- Rewritten Again (!!) following Bug5191444
7701: IF OZF_DEBUG_LOW_ON THEN
7702: OZF_Utility_PVT.debug_message(' Prorating Based on Past Accruals. Adjustment Records have Product Info');
7703: END IF;
7704:
7705: -- 1. Get the past accrual details.
7706: OPEN csr_offer_products(l_funds_util_flt.activity_id,
7717: l_tot_prorate_adj_amt := 0;
7718: FOR i IN 1..l_level_type.COUNT LOOP
7719:
7720: l_prorate_adj_amt := l_accrued_amt(i) * (l_cre_total_amount / l_tot_accrual_amt);
7721: l_prorate_adj_amt := OZF_UTILITY_PVT.CurrRound(l_prorate_adj_amt, G_ACCRUAL_CURRENCY);
7722: l_tot_prorate_adj_amt := NVL(l_tot_prorate_adj_amt,0) + l_prorate_adj_amt ;
7723:
7724: --2. Call function to check if the adjustment line is already created per product and budget (create if required)
7725: Create_Fund_Adjustment(
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 );
7753: END IF;
7754:
7755: END LOOP;
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 );
7753: END IF;
7754:
7755: END LOOP;
7756:
7795: l_counter := l_counter + 1;
7796:
7797: --Fix for Division by zero error/ S-D Enhancements: Pranay
7798: IF l_fund_tot_amount = 0 THEN
7799: l_line_util_tbl(l_counter).amount := OZF_UTILITY_PVT.CurrRound(l_cre_total_amount , G_ACCRUAL_CURRENCY);
7800: ELSE
7801: l_line_util_tbl(l_counter).amount := OZF_UTILITY_PVT.CurrRound(l_cre_total_amount * ( l_fund_amount/l_fund_tot_amount)
7802: , G_ACCRUAL_CURRENCY);
7803: END IF;
7797: --Fix for Division by zero error/ S-D Enhancements: Pranay
7798: IF l_fund_tot_amount = 0 THEN
7799: l_line_util_tbl(l_counter).amount := OZF_UTILITY_PVT.CurrRound(l_cre_total_amount , G_ACCRUAL_CURRENCY);
7800: ELSE
7801: l_line_util_tbl(l_counter).amount := OZF_UTILITY_PVT.CurrRound(l_cre_total_amount * ( l_fund_amount/l_fund_tot_amount)
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;
7858: p_data => x_msg_data
7859: );
7860:
7861: IF OZF_DEBUG_HIGH_ON THEN
7862: OZF_Utility_PVT.debug_message(l_full_name ||': end');
7863: END IF;
7864:
7865: EXCEPTION
7866: WHEN FND_API.g_exc_error THEN
8116: --------------------- initialize -----------------------
8117: SAVEPOINT Delete_Group_Line_Util;
8118:
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;
8160: -- deletion also to take place in amount and not acctd_amount
8161:
8162: --------------------- start -----------------------
8163: l_del_total_amount := NVL(l_funds_util_flt.old_total_amount, 0) - NVL(l_funds_util_flt.total_amount ,0);
8164: l_del_total_amount := OZF_UTILITY_PVT.CurrRound(l_del_total_amount, G_CLAIM_CURRENCY);
8165: l_del_total_units := NVL(l_funds_util_flt.old_total_units, 0) - NVL(l_funds_util_flt.total_units, 0);
8166:
8167: ------------ reduce the over-utilization first ---------
8168: IF p_funds_util_flt.offer_type = 'SCAN_DATA' THEN
8297: -- we are reducing this with l_lu_amt
8298: -- but assigning l_line_util_tbl(l_counter).amount := l_utiz_amount;
8299: -- iwhich is in utiz currency
8300: IF OZF_DEBUG_LOW_ON THEN
8301: OZF_Utility_PVT.debug_message('l_lu_line_util_id. : '||l_lu_line_util_id);
8302: OZF_Utility_PVT.debug_message('l_lu_utilization_id. : '||l_lu_utilization_id);
8303: OZF_Utility_PVT.debug_message('l_lu_amt. : '||l_lu_amt);
8304: OZF_Utility_PVT.debug_message('l_utiz_amount. : '||l_utiz_amount);
8305: OZF_Utility_PVT.debug_message('l_del_total_amount. : '||l_del_total_amount);
8298: -- but assigning l_line_util_tbl(l_counter).amount := l_utiz_amount;
8299: -- iwhich is in utiz currency
8300: IF OZF_DEBUG_LOW_ON THEN
8301: OZF_Utility_PVT.debug_message('l_lu_line_util_id. : '||l_lu_line_util_id);
8302: OZF_Utility_PVT.debug_message('l_lu_utilization_id. : '||l_lu_utilization_id);
8303: OZF_Utility_PVT.debug_message('l_lu_amt. : '||l_lu_amt);
8304: OZF_Utility_PVT.debug_message('l_utiz_amount. : '||l_utiz_amount);
8305: OZF_Utility_PVT.debug_message('l_del_total_amount. : '||l_del_total_amount);
8306: END IF;
8299: -- iwhich is in utiz currency
8300: IF OZF_DEBUG_LOW_ON THEN
8301: OZF_Utility_PVT.debug_message('l_lu_line_util_id. : '||l_lu_line_util_id);
8302: OZF_Utility_PVT.debug_message('l_lu_utilization_id. : '||l_lu_utilization_id);
8303: OZF_Utility_PVT.debug_message('l_lu_amt. : '||l_lu_amt);
8304: OZF_Utility_PVT.debug_message('l_utiz_amount. : '||l_utiz_amount);
8305: OZF_Utility_PVT.debug_message('l_del_total_amount. : '||l_del_total_amount);
8306: END IF;
8307:
8300: IF OZF_DEBUG_LOW_ON THEN
8301: OZF_Utility_PVT.debug_message('l_lu_line_util_id. : '||l_lu_line_util_id);
8302: OZF_Utility_PVT.debug_message('l_lu_utilization_id. : '||l_lu_utilization_id);
8303: OZF_Utility_PVT.debug_message('l_lu_amt. : '||l_lu_amt);
8304: OZF_Utility_PVT.debug_message('l_utiz_amount. : '||l_utiz_amount);
8305: OZF_Utility_PVT.debug_message('l_del_total_amount. : '||l_del_total_amount);
8306: END IF;
8307:
8308: IF p_funds_util_flt.total_amount IS NULL THEN
8301: OZF_Utility_PVT.debug_message('l_lu_line_util_id. : '||l_lu_line_util_id);
8302: OZF_Utility_PVT.debug_message('l_lu_utilization_id. : '||l_lu_utilization_id);
8303: OZF_Utility_PVT.debug_message('l_lu_amt. : '||l_lu_amt);
8304: OZF_Utility_PVT.debug_message('l_utiz_amount. : '||l_utiz_amount);
8305: OZF_Utility_PVT.debug_message('l_del_total_amount. : '||l_del_total_amount);
8306: END IF;
8307:
8308: IF p_funds_util_flt.total_amount IS NULL THEN
8309: l_line_util_tbl(l_counter).claim_line_util_id := l_lu_line_util_id;
8455: p_data => x_msg_data
8456: );
8457:
8458: IF OZF_DEBUG_HIGH_ON THEN
8459: OZF_Utility_PVT.debug_message(l_full_name ||': end');
8460: END IF;
8461:
8462: EXCEPTION
8463: WHEN FND_API.g_exc_error THEN
8571: ----------------------- initialize --------------------
8572: SAVEPOINT Update_Dummy_Utilizations;
8573:
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;
8692: p_data => x_msg_data
8693: );
8694:
8695: IF OZF_DEBUG_HIGH_ON THEN
8696: OZF_Utility_PVT.debug_message(l_full_name ||': end');
8697: END IF;
8698:
8699: EXCEPTION
8700: WHEN FND_API.g_exc_error THEN
8847: ----------------------- initialize --------------------
8848: SAVEPOINT Adjust_Fund_Utilization;
8849:
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;
8966: FETCH csr_claim_info INTO l_cust_account_id;
8967: CLOSE csr_claim_info;
8968:
8969: IF OZF_DEBUG_HIGH_ON THEN
8970: OZF_Utility_PVT.debug_message('Offer sourcing budget: '||l_fund_id);
8971: OZF_Utility_PVT.debug_message('Claim cust_account_id: '||l_cust_account_id);
8972: END IF;
8973:
8974: l_act_budgets_rec.parent_src_apprvd_amt := 0;
8967: CLOSE csr_claim_info;
8968:
8969: IF OZF_DEBUG_HIGH_ON THEN
8970: OZF_Utility_PVT.debug_message('Offer sourcing budget: '||l_fund_id);
8971: OZF_Utility_PVT.debug_message('Claim cust_account_id: '||l_cust_account_id);
8972: END IF;
8973:
8974: l_act_budgets_rec.parent_src_apprvd_amt := 0;
8975: l_act_budgets_rec.request_amount := 0;
8979: l_act_budgets_rec.budget_source_id := l_activity_product_id;
8980: l_act_budgets_rec.request_currency := l_plan_curr_code;
8981: l_act_budgets_rec.request_date := SYSDATE;
8982: l_act_budgets_rec.status_code := 'APPROVED';
8983: l_act_budgets_rec.user_status_id := ozf_utility_pvt.get_default_user_status (
8984: 'OZF_BUDGETSOURCE_STATUS'
8985: ,l_act_budgets_rec.status_code
8986: );
8987: l_act_budgets_rec.transfer_type := 'UTILIZED';
8985: ,l_act_budgets_rec.status_code
8986: );
8987: l_act_budgets_rec.transfer_type := 'UTILIZED';
8988: l_act_budgets_rec.approval_date := SYSDATE;
8989: l_act_budgets_rec.approver_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
8990: l_act_budgets_rec.parent_source_id := l_fund_id;
8991: l_act_budgets_rec.parent_src_curr := l_fund_curr_code;
8992:
8993: l_act_util_rec.gl_date := SYSDATE;
9065: p_data => x_msg_data
9066: );
9067:
9068: IF OZF_DEBUG_HIGH_ON THEN
9069: OZF_Utility_PVT.debug_message(l_full_name ||': end');
9070: END IF;
9071:
9072: EXCEPTION
9073: WHEN FND_API.g_exc_error THEN
9150: FETCH csr_funds_util_details INTO l_fu_currency_code, l_fu_exc_type , l_fu_exc_date , l_fu_exc_rate ;
9151: CLOSE csr_funds_util_details;
9152:
9153: IF OZF_DEBUG_HIGH_ON THEN
9154: OZF_Utility_PVT.debug_message('FXGL l_fu_currency_code : '||l_fu_currency_code);
9155: OZF_Utility_PVT.debug_message('G_FUNCTIONAL_CURRENCY : '||G_FUNCTIONAL_CURRENCY);
9156: OZF_Utility_PVT.debug_message('l_fu_exc_rate : '||l_fu_exc_rate);
9157: OZF_Utility_PVT.debug_message('p_line_util_rec.exchange_rate : '||p_line_util_rec.exchange_rate);
9158: OZF_Utility_PVT.debug_message('p_line_util_rec.acctd_amount : '||p_line_util_rec.acctd_amount);
9151: CLOSE csr_funds_util_details;
9152:
9153: IF OZF_DEBUG_HIGH_ON THEN
9154: OZF_Utility_PVT.debug_message('FXGL l_fu_currency_code : '||l_fu_currency_code);
9155: OZF_Utility_PVT.debug_message('G_FUNCTIONAL_CURRENCY : '||G_FUNCTIONAL_CURRENCY);
9156: OZF_Utility_PVT.debug_message('l_fu_exc_rate : '||l_fu_exc_rate);
9157: OZF_Utility_PVT.debug_message('p_line_util_rec.exchange_rate : '||p_line_util_rec.exchange_rate);
9158: OZF_Utility_PVT.debug_message('p_line_util_rec.acctd_amount : '||p_line_util_rec.acctd_amount);
9159: END IF;
9152:
9153: IF OZF_DEBUG_HIGH_ON THEN
9154: OZF_Utility_PVT.debug_message('FXGL l_fu_currency_code : '||l_fu_currency_code);
9155: OZF_Utility_PVT.debug_message('G_FUNCTIONAL_CURRENCY : '||G_FUNCTIONAL_CURRENCY);
9156: OZF_Utility_PVT.debug_message('l_fu_exc_rate : '||l_fu_exc_rate);
9157: OZF_Utility_PVT.debug_message('p_line_util_rec.exchange_rate : '||p_line_util_rec.exchange_rate);
9158: OZF_Utility_PVT.debug_message('p_line_util_rec.acctd_amount : '||p_line_util_rec.acctd_amount);
9159: END IF;
9160:
9153: IF OZF_DEBUG_HIGH_ON THEN
9154: OZF_Utility_PVT.debug_message('FXGL l_fu_currency_code : '||l_fu_currency_code);
9155: OZF_Utility_PVT.debug_message('G_FUNCTIONAL_CURRENCY : '||G_FUNCTIONAL_CURRENCY);
9156: OZF_Utility_PVT.debug_message('l_fu_exc_rate : '||l_fu_exc_rate);
9157: OZF_Utility_PVT.debug_message('p_line_util_rec.exchange_rate : '||p_line_util_rec.exchange_rate);
9158: OZF_Utility_PVT.debug_message('p_line_util_rec.acctd_amount : '||p_line_util_rec.acctd_amount);
9159: END IF;
9160:
9161: -- If accruals are in functional currency then no FXGL
9154: OZF_Utility_PVT.debug_message('FXGL l_fu_currency_code : '||l_fu_currency_code);
9155: OZF_Utility_PVT.debug_message('G_FUNCTIONAL_CURRENCY : '||G_FUNCTIONAL_CURRENCY);
9156: OZF_Utility_PVT.debug_message('l_fu_exc_rate : '||l_fu_exc_rate);
9157: OZF_Utility_PVT.debug_message('p_line_util_rec.exchange_rate : '||p_line_util_rec.exchange_rate);
9158: OZF_Utility_PVT.debug_message('p_line_util_rec.acctd_amount : '||p_line_util_rec.acctd_amount);
9159: END IF;
9160:
9161: -- If accruals are in functional currency then no FXGL
9162: IF l_fu_currency_code = G_FUNCTIONAL_CURRENCY THEN
9165:
9166: IF p_line_util_rec.currency_code = l_fu_currency_code THEN
9167:
9168: IF p_line_util_rec.exchange_rate <> l_fu_exc_rate AND l_fu_exc_rate IS NOT NULL THEN
9169: OZF_UTILITY_PVT.Convert_Currency(
9170: p_from_currency => p_line_util_rec.currency_code
9171: ,p_to_currency => G_FUNCTIONAL_CURRENCY
9172: ,p_conv_type => l_fu_exc_type
9173: ,p_conv_rate => l_fu_exc_rate
9184: END IF;
9185: END IF;
9186: ELSE
9187: -- Claim is in functional currency and association happening in another currency
9188: OZF_UTILITY_PVT.Convert_Currency(
9189: p_from_currency => l_fu_currency_code
9190: ,p_to_currency => G_FUNCTIONAL_CURRENCY
9191: ,p_conv_type => l_fu_exc_type
9192: ,p_conv_rate => l_fu_exc_rate
9863: --------------------- initialize -----------------------
9864: SAVEPOINT Initiate_SD_Payment;
9865:
9866: IF OZF_DEBUG_HIGH_ON THEN
9867: OZF_Utility_PVT.debug_message(l_full_name||': start');
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:
9864: SAVEPOINT Initiate_SD_Payment;
9865:
9866: IF OZF_DEBUG_HIGH_ON THEN
9867: OZF_Utility_PVT.debug_message(l_full_name||': start');
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
9865:
9866: IF OZF_DEBUG_HIGH_ON THEN
9867: OZF_Utility_PVT.debug_message(l_full_name||': start');
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;
9911:
9912: --For supplied request, get customer account/bill to site combinations of
9913: --qualified accruals
9914: IF OZF_DEBUG_HIGH_ON THEN
9915: OZF_Utility_PVT.debug_message('bill_to_site_id duplicate check verification on following cust_account_id/bill_to_site_id');
9916: END IF;
9917:
9918: OPEN csr_request_header(p_ship_debit_id);
9919: LOOP
9922:
9923: EXIT WHEN csr_request_header%NOTFOUND;
9924:
9925: IF OZF_DEBUG_HIGH_ON THEN
9926: OZF_Utility_PVT.debug_message('cust_account_id : '||l_cust_util_tbl(l_counter).cust_account_id);
9927: OZF_Utility_PVT.debug_message('bill_to_site_id : '||l_cust_util_tbl(l_counter).bill_to_site_id);
9928: END IF;
9929:
9930: l_counter := l_counter + 1;
9923: EXIT WHEN csr_request_header%NOTFOUND;
9924:
9925: IF OZF_DEBUG_HIGH_ON THEN
9926: OZF_Utility_PVT.debug_message('cust_account_id : '||l_cust_util_tbl(l_counter).cust_account_id);
9927: OZF_Utility_PVT.debug_message('bill_to_site_id : '||l_cust_util_tbl(l_counter).bill_to_site_id);
9928: END IF;
9929:
9930: l_counter := l_counter + 1;
9931: END LOOP;
9950: --claim number defined in batch header. If claim number doesn't exists, system
9951: --will use default claim number generation mechanism.
9952:
9953: IF OZF_DEBUG_HIGH_ON THEN
9954: OZF_Utility_PVT.debug_message('bill_to_site_id duplicate check verification on following cust_account_id/bill_to_site_id');
9955: END IF;
9956:
9957: OPEN csr_batch_header(p_ship_debit_id);
9958: LOOP
9961: , l_cust_util_tbl(l_counter).claim_number;
9962: EXIT WHEN csr_batch_header%NOTFOUND;
9963:
9964: IF OZF_DEBUG_HIGH_ON THEN
9965: OZF_Utility_PVT.debug_message('cust_account_id : '||l_cust_util_tbl(l_counter).cust_account_id);
9966: OZF_Utility_PVT.debug_message('bill_to_site_id : '||l_cust_util_tbl(l_counter).bill_to_site_id);
9967: OZF_Utility_PVT.debug_message('claim_number : '||l_cust_util_tbl(l_counter).claim_number);
9968: END IF;
9969:
9962: EXIT WHEN csr_batch_header%NOTFOUND;
9963:
9964: IF OZF_DEBUG_HIGH_ON THEN
9965: OZF_Utility_PVT.debug_message('cust_account_id : '||l_cust_util_tbl(l_counter).cust_account_id);
9966: OZF_Utility_PVT.debug_message('bill_to_site_id : '||l_cust_util_tbl(l_counter).bill_to_site_id);
9967: OZF_Utility_PVT.debug_message('claim_number : '||l_cust_util_tbl(l_counter).claim_number);
9968: END IF;
9969:
9970: l_counter := l_counter + 1;
9963:
9964: IF OZF_DEBUG_HIGH_ON THEN
9965: OZF_Utility_PVT.debug_message('cust_account_id : '||l_cust_util_tbl(l_counter).cust_account_id);
9966: OZF_Utility_PVT.debug_message('bill_to_site_id : '||l_cust_util_tbl(l_counter).bill_to_site_id);
9967: OZF_Utility_PVT.debug_message('claim_number : '||l_cust_util_tbl(l_counter).claim_number);
9968: END IF;
9969:
9970: l_counter := l_counter + 1;
9971: END LOOP;
9981: IF Nvl(fnd_global.user_id,-1) IN (0,-1) THEN
9982: FND_GLOBAL.APPS_INITIALIZE(l_user_id, l_resp_id, l_appl_id);
9983: END IF;
9984:
9985: OZF_Utility_PVT.debug_message('Org Id : OZF_CLAIM_ACCRUAL_PVT - '||MO_GLOBAL.GET_CURRENT_ORG_ID());
9986: OZF_Utility_PVT.debug_message('User Id : OZF_CLAIM_ACCRUAL_PVT - '||fnd_global.user_id);
9987:
9988: IF OZF_DEBUG_HIGH_ON THEN
9989: OZF_Utility_PVT.debug_message('l_payment_method : '||l_payment_method);
9982: FND_GLOBAL.APPS_INITIALIZE(l_user_id, l_resp_id, l_appl_id);
9983: END IF;
9984:
9985: OZF_Utility_PVT.debug_message('Org Id : OZF_CLAIM_ACCRUAL_PVT - '||MO_GLOBAL.GET_CURRENT_ORG_ID());
9986: OZF_Utility_PVT.debug_message('User Id : OZF_CLAIM_ACCRUAL_PVT - '||fnd_global.user_id);
9987:
9988: IF OZF_DEBUG_HIGH_ON THEN
9989: OZF_Utility_PVT.debug_message('l_payment_method : '||l_payment_method);
9990: OZF_Utility_PVT.debug_message('l_source_object_class : '||l_source_object_class);
9985: OZF_Utility_PVT.debug_message('Org Id : OZF_CLAIM_ACCRUAL_PVT - '||MO_GLOBAL.GET_CURRENT_ORG_ID());
9986: OZF_Utility_PVT.debug_message('User Id : OZF_CLAIM_ACCRUAL_PVT - '||fnd_global.user_id);
9987:
9988: IF OZF_DEBUG_HIGH_ON THEN
9989: OZF_Utility_PVT.debug_message('l_payment_method : '||l_payment_method);
9990: OZF_Utility_PVT.debug_message('l_source_object_class : '||l_source_object_class);
9991: OZF_Utility_PVT.debug_message('l_batch_id : '||l_batch_id);
9992: OZF_Utility_PVT.debug_message('l_batch_type : '||l_batch_type);
9993: OZF_Utility_PVT.debug_message('l_claim_currency_code : '||l_claim_currency_code);
9986: OZF_Utility_PVT.debug_message('User Id : OZF_CLAIM_ACCRUAL_PVT - '||fnd_global.user_id);
9987:
9988: IF OZF_DEBUG_HIGH_ON THEN
9989: OZF_Utility_PVT.debug_message('l_payment_method : '||l_payment_method);
9990: OZF_Utility_PVT.debug_message('l_source_object_class : '||l_source_object_class);
9991: OZF_Utility_PVT.debug_message('l_batch_id : '||l_batch_id);
9992: OZF_Utility_PVT.debug_message('l_batch_type : '||l_batch_type);
9993: OZF_Utility_PVT.debug_message('l_claim_currency_code : '||l_claim_currency_code);
9994: END IF;
9987:
9988: IF OZF_DEBUG_HIGH_ON THEN
9989: OZF_Utility_PVT.debug_message('l_payment_method : '||l_payment_method);
9990: OZF_Utility_PVT.debug_message('l_source_object_class : '||l_source_object_class);
9991: OZF_Utility_PVT.debug_message('l_batch_id : '||l_batch_id);
9992: OZF_Utility_PVT.debug_message('l_batch_type : '||l_batch_type);
9993: OZF_Utility_PVT.debug_message('l_claim_currency_code : '||l_claim_currency_code);
9994: END IF;
9995:
9988: IF OZF_DEBUG_HIGH_ON THEN
9989: OZF_Utility_PVT.debug_message('l_payment_method : '||l_payment_method);
9990: OZF_Utility_PVT.debug_message('l_source_object_class : '||l_source_object_class);
9991: OZF_Utility_PVT.debug_message('l_batch_id : '||l_batch_id);
9992: OZF_Utility_PVT.debug_message('l_batch_type : '||l_batch_type);
9993: OZF_Utility_PVT.debug_message('l_claim_currency_code : '||l_claim_currency_code);
9994: END IF;
9995:
9996: l_counter := 1;
9989: OZF_Utility_PVT.debug_message('l_payment_method : '||l_payment_method);
9990: OZF_Utility_PVT.debug_message('l_source_object_class : '||l_source_object_class);
9991: OZF_Utility_PVT.debug_message('l_batch_id : '||l_batch_id);
9992: OZF_Utility_PVT.debug_message('l_batch_type : '||l_batch_type);
9993: OZF_Utility_PVT.debug_message('l_claim_currency_code : '||l_claim_currency_code);
9994: END IF;
9995:
9996: l_counter := 1;
9997:
10021: END IF;
10022:
10023: --Create claims for cust_account_id and bill_to_site_id
10024: IF OZF_DEBUG_HIGH_ON THEN
10025: OZF_Utility_PVT.debug_message('bill_to_site_id duplicate check passed: Creating claims for each cust_account_id/bill_to_site_id');
10026: END IF;
10027:
10028: IF l_cust_util_tbl.COUNT > 0 THEN
10029: FOR i IN l_cust_util_tbl.FIRST..l_cust_util_tbl.LAST
10032: l_bill_to_site_id := l_cust_util_tbl(i).bill_to_site_id;
10033: l_claim_number := l_cust_util_tbl(i).claim_number;
10034:
10035: IF OZF_DEBUG_HIGH_ON THEN
10036: OZF_Utility_PVT.debug_message('l_cust_account_id : '||l_cust_account_id);
10037: OZF_Utility_PVT.debug_message('l_bill_to_site_id : '||l_bill_to_site_id);
10038: OZF_Utility_PVT.debug_message('l_claim_number : '||l_claim_number);
10039: END IF;
10040:
10033: l_claim_number := l_cust_util_tbl(i).claim_number;
10034:
10035: IF OZF_DEBUG_HIGH_ON THEN
10036: OZF_Utility_PVT.debug_message('l_cust_account_id : '||l_cust_account_id);
10037: OZF_Utility_PVT.debug_message('l_bill_to_site_id : '||l_bill_to_site_id);
10038: OZF_Utility_PVT.debug_message('l_claim_number : '||l_claim_number);
10039: END IF;
10040:
10041: IF p_ship_debit_type = 'INTERNAL' THEN
10034:
10035: IF OZF_DEBUG_HIGH_ON THEN
10036: OZF_Utility_PVT.debug_message('l_cust_account_id : '||l_cust_account_id);
10037: OZF_Utility_PVT.debug_message('l_bill_to_site_id : '||l_bill_to_site_id);
10038: OZF_Utility_PVT.debug_message('l_claim_number : '||l_claim_number);
10039: END IF;
10040:
10041: IF p_ship_debit_type = 'INTERNAL' THEN
10042: --Get all accurals which are qualifying for supplied request and
10096: END IF;
10097: END IF;
10098:
10099: IF OZF_DEBUG_HIGH_ON THEN
10100: OZF_Utility_PVT.debug_message(' l_cust_account_id : '||l_cust_account_id);
10101: OZF_Utility_PVT.debug_message(' l_activity_type : '||l_activity_type);
10102: OZF_Utility_PVT.debug_message(' l_activity_id : '||l_activity_id);
10103: OZF_Utility_PVT.debug_message(' l_bill_to_site_id : '||l_bill_to_site_id);
10104: OZF_Utility_PVT.debug_message(' l_product_level_type : '||l_product_level_type);
10097: END IF;
10098:
10099: IF OZF_DEBUG_HIGH_ON THEN
10100: OZF_Utility_PVT.debug_message(' l_cust_account_id : '||l_cust_account_id);
10101: OZF_Utility_PVT.debug_message(' l_activity_type : '||l_activity_type);
10102: OZF_Utility_PVT.debug_message(' l_activity_id : '||l_activity_id);
10103: OZF_Utility_PVT.debug_message(' l_bill_to_site_id : '||l_bill_to_site_id);
10104: OZF_Utility_PVT.debug_message(' l_product_level_type : '||l_product_level_type);
10105: OZF_Utility_PVT.debug_message(' l_product_id : '||l_product_id);
10098:
10099: IF OZF_DEBUG_HIGH_ON THEN
10100: OZF_Utility_PVT.debug_message(' l_cust_account_id : '||l_cust_account_id);
10101: OZF_Utility_PVT.debug_message(' l_activity_type : '||l_activity_type);
10102: OZF_Utility_PVT.debug_message(' l_activity_id : '||l_activity_id);
10103: OZF_Utility_PVT.debug_message(' l_bill_to_site_id : '||l_bill_to_site_id);
10104: OZF_Utility_PVT.debug_message(' l_product_level_type : '||l_product_level_type);
10105: OZF_Utility_PVT.debug_message(' l_product_id : '||l_product_id);
10106: OZF_Utility_PVT.debug_message(' l_amount : '||l_amount);
10099: IF OZF_DEBUG_HIGH_ON THEN
10100: OZF_Utility_PVT.debug_message(' l_cust_account_id : '||l_cust_account_id);
10101: OZF_Utility_PVT.debug_message(' l_activity_type : '||l_activity_type);
10102: OZF_Utility_PVT.debug_message(' l_activity_id : '||l_activity_id);
10103: OZF_Utility_PVT.debug_message(' l_bill_to_site_id : '||l_bill_to_site_id);
10104: OZF_Utility_PVT.debug_message(' l_product_level_type : '||l_product_level_type);
10105: OZF_Utility_PVT.debug_message(' l_product_id : '||l_product_id);
10106: OZF_Utility_PVT.debug_message(' l_amount : '||l_amount);
10107: OZF_Utility_PVT.debug_message(' l_batch_line_id : '||l_batch_line_id);
10100: OZF_Utility_PVT.debug_message(' l_cust_account_id : '||l_cust_account_id);
10101: OZF_Utility_PVT.debug_message(' l_activity_type : '||l_activity_type);
10102: OZF_Utility_PVT.debug_message(' l_activity_id : '||l_activity_id);
10103: OZF_Utility_PVT.debug_message(' l_bill_to_site_id : '||l_bill_to_site_id);
10104: OZF_Utility_PVT.debug_message(' l_product_level_type : '||l_product_level_type);
10105: OZF_Utility_PVT.debug_message(' l_product_id : '||l_product_id);
10106: OZF_Utility_PVT.debug_message(' l_amount : '||l_amount);
10107: OZF_Utility_PVT.debug_message(' l_batch_line_id : '||l_batch_line_id);
10108: END IF;
10101: OZF_Utility_PVT.debug_message(' l_activity_type : '||l_activity_type);
10102: OZF_Utility_PVT.debug_message(' l_activity_id : '||l_activity_id);
10103: OZF_Utility_PVT.debug_message(' l_bill_to_site_id : '||l_bill_to_site_id);
10104: OZF_Utility_PVT.debug_message(' l_product_level_type : '||l_product_level_type);
10105: OZF_Utility_PVT.debug_message(' l_product_id : '||l_product_id);
10106: OZF_Utility_PVT.debug_message(' l_amount : '||l_amount);
10107: OZF_Utility_PVT.debug_message(' l_batch_line_id : '||l_batch_line_id);
10108: END IF;
10109:
10102: OZF_Utility_PVT.debug_message(' l_activity_id : '||l_activity_id);
10103: OZF_Utility_PVT.debug_message(' l_bill_to_site_id : '||l_bill_to_site_id);
10104: OZF_Utility_PVT.debug_message(' l_product_level_type : '||l_product_level_type);
10105: OZF_Utility_PVT.debug_message(' l_product_id : '||l_product_id);
10106: OZF_Utility_PVT.debug_message(' l_amount : '||l_amount);
10107: OZF_Utility_PVT.debug_message(' l_batch_line_id : '||l_batch_line_id);
10108: END IF;
10109:
10110: --If claim currency and accrual(offer) currency is not same, then convert
10103: OZF_Utility_PVT.debug_message(' l_bill_to_site_id : '||l_bill_to_site_id);
10104: OZF_Utility_PVT.debug_message(' l_product_level_type : '||l_product_level_type);
10105: OZF_Utility_PVT.debug_message(' l_product_id : '||l_product_id);
10106: OZF_Utility_PVT.debug_message(' l_amount : '||l_amount);
10107: OZF_Utility_PVT.debug_message(' l_batch_line_id : '||l_batch_line_id);
10108: END IF;
10109:
10110: --If claim currency and accrual(offer) currency is not same, then convert
10111: --offer amount from offer currency to claim currency.
10117: CLOSE cur_offer_currency;
10118:
10119: IF l_offr_currency_code <> l_claim_currency_code THEN
10120: l_amount_offr_curr := l_amount;
10121: OZF_UTILITY_PVT.Convert_Currency(
10122: p_from_currency => l_offr_currency_code
10123: ,p_to_currency => l_claim_currency_code
10124: ,p_conv_date => SYSDATE
10125: ,p_from_amount => l_amount_offr_curr
10219: l_claim_rec.vendor_id := l_vendor_id;
10220: l_claim_rec.vendor_site_id := l_vendor_site_id;
10221: l_claim_rec.org_id := l_sd_org_id;
10222: l_claim_rec.user_status_id := to_number(
10223: ozf_utility_pvt.get_default_user_status(
10224: p_status_type => 'OZF_CLAIM_STATUS',
10225: p_status_code => l_claim_rec.status_code));
10226:
10227: IF OZF_DEBUG_HIGH_ON THEN
10224: p_status_type => 'OZF_CLAIM_STATUS',
10225: p_status_code => l_claim_rec.status_code));
10226:
10227: IF OZF_DEBUG_HIGH_ON THEN
10228: OZF_Utility_PVT.debug_message('Claim header information:');
10229: OZF_Utility_PVT.debug_message('l_cust_account_id : '||l_claim_rec.cust_account_id);
10230: OZF_Utility_PVT.debug_message('claim_class : '||l_claim_rec.claim_class);
10231: OZF_Utility_PVT.debug_message('source_object_class : '||l_claim_rec.source_object_class);
10232: OZF_Utility_PVT.debug_message('source_object_number : '||l_claim_rec.source_object_number);
10225: p_status_code => l_claim_rec.status_code));
10226:
10227: IF OZF_DEBUG_HIGH_ON THEN
10228: OZF_Utility_PVT.debug_message('Claim header information:');
10229: OZF_Utility_PVT.debug_message('l_cust_account_id : '||l_claim_rec.cust_account_id);
10230: OZF_Utility_PVT.debug_message('claim_class : '||l_claim_rec.claim_class);
10231: OZF_Utility_PVT.debug_message('source_object_class : '||l_claim_rec.source_object_class);
10232: OZF_Utility_PVT.debug_message('source_object_number : '||l_claim_rec.source_object_number);
10233: OZF_Utility_PVT.debug_message('batch_id : '||l_claim_rec.batch_id);
10226:
10227: IF OZF_DEBUG_HIGH_ON THEN
10228: OZF_Utility_PVT.debug_message('Claim header information:');
10229: OZF_Utility_PVT.debug_message('l_cust_account_id : '||l_claim_rec.cust_account_id);
10230: OZF_Utility_PVT.debug_message('claim_class : '||l_claim_rec.claim_class);
10231: OZF_Utility_PVT.debug_message('source_object_class : '||l_claim_rec.source_object_class);
10232: OZF_Utility_PVT.debug_message('source_object_number : '||l_claim_rec.source_object_number);
10233: OZF_Utility_PVT.debug_message('batch_id : '||l_claim_rec.batch_id);
10234: OZF_Utility_PVT.debug_message('batch_type : '||l_claim_rec.batch_type);
10227: IF OZF_DEBUG_HIGH_ON THEN
10228: OZF_Utility_PVT.debug_message('Claim header information:');
10229: OZF_Utility_PVT.debug_message('l_cust_account_id : '||l_claim_rec.cust_account_id);
10230: OZF_Utility_PVT.debug_message('claim_class : '||l_claim_rec.claim_class);
10231: OZF_Utility_PVT.debug_message('source_object_class : '||l_claim_rec.source_object_class);
10232: OZF_Utility_PVT.debug_message('source_object_number : '||l_claim_rec.source_object_number);
10233: OZF_Utility_PVT.debug_message('batch_id : '||l_claim_rec.batch_id);
10234: OZF_Utility_PVT.debug_message('batch_type : '||l_claim_rec.batch_type);
10235: OZF_Utility_PVT.debug_message('currency_code : '||l_claim_rec.currency_code);
10228: OZF_Utility_PVT.debug_message('Claim header information:');
10229: OZF_Utility_PVT.debug_message('l_cust_account_id : '||l_claim_rec.cust_account_id);
10230: OZF_Utility_PVT.debug_message('claim_class : '||l_claim_rec.claim_class);
10231: OZF_Utility_PVT.debug_message('source_object_class : '||l_claim_rec.source_object_class);
10232: OZF_Utility_PVT.debug_message('source_object_number : '||l_claim_rec.source_object_number);
10233: OZF_Utility_PVT.debug_message('batch_id : '||l_claim_rec.batch_id);
10234: OZF_Utility_PVT.debug_message('batch_type : '||l_claim_rec.batch_type);
10235: OZF_Utility_PVT.debug_message('currency_code : '||l_claim_rec.currency_code);
10236: OZF_Utility_PVT.debug_message('amount : '||l_claim_rec.amount);
10229: OZF_Utility_PVT.debug_message('l_cust_account_id : '||l_claim_rec.cust_account_id);
10230: OZF_Utility_PVT.debug_message('claim_class : '||l_claim_rec.claim_class);
10231: OZF_Utility_PVT.debug_message('source_object_class : '||l_claim_rec.source_object_class);
10232: OZF_Utility_PVT.debug_message('source_object_number : '||l_claim_rec.source_object_number);
10233: OZF_Utility_PVT.debug_message('batch_id : '||l_claim_rec.batch_id);
10234: OZF_Utility_PVT.debug_message('batch_type : '||l_claim_rec.batch_type);
10235: OZF_Utility_PVT.debug_message('currency_code : '||l_claim_rec.currency_code);
10236: OZF_Utility_PVT.debug_message('amount : '||l_claim_rec.amount);
10237: OZF_Utility_PVT.debug_message('payment_method : '||l_claim_rec.payment_method);
10230: OZF_Utility_PVT.debug_message('claim_class : '||l_claim_rec.claim_class);
10231: OZF_Utility_PVT.debug_message('source_object_class : '||l_claim_rec.source_object_class);
10232: OZF_Utility_PVT.debug_message('source_object_number : '||l_claim_rec.source_object_number);
10233: OZF_Utility_PVT.debug_message('batch_id : '||l_claim_rec.batch_id);
10234: OZF_Utility_PVT.debug_message('batch_type : '||l_claim_rec.batch_type);
10235: OZF_Utility_PVT.debug_message('currency_code : '||l_claim_rec.currency_code);
10236: OZF_Utility_PVT.debug_message('amount : '||l_claim_rec.amount);
10237: OZF_Utility_PVT.debug_message('payment_method : '||l_claim_rec.payment_method);
10238: OZF_Utility_PVT.debug_message('cust_billto_acct_site_id : '||l_claim_rec.cust_billto_acct_site_id);
10231: OZF_Utility_PVT.debug_message('source_object_class : '||l_claim_rec.source_object_class);
10232: OZF_Utility_PVT.debug_message('source_object_number : '||l_claim_rec.source_object_number);
10233: OZF_Utility_PVT.debug_message('batch_id : '||l_claim_rec.batch_id);
10234: OZF_Utility_PVT.debug_message('batch_type : '||l_claim_rec.batch_type);
10235: OZF_Utility_PVT.debug_message('currency_code : '||l_claim_rec.currency_code);
10236: OZF_Utility_PVT.debug_message('amount : '||l_claim_rec.amount);
10237: OZF_Utility_PVT.debug_message('payment_method : '||l_claim_rec.payment_method);
10238: OZF_Utility_PVT.debug_message('cust_billto_acct_site_id : '||l_claim_rec.cust_billto_acct_site_id);
10239: OZF_Utility_PVT.debug_message('status_code : '||l_claim_rec.status_code);
10232: OZF_Utility_PVT.debug_message('source_object_number : '||l_claim_rec.source_object_number);
10233: OZF_Utility_PVT.debug_message('batch_id : '||l_claim_rec.batch_id);
10234: OZF_Utility_PVT.debug_message('batch_type : '||l_claim_rec.batch_type);
10235: OZF_Utility_PVT.debug_message('currency_code : '||l_claim_rec.currency_code);
10236: OZF_Utility_PVT.debug_message('amount : '||l_claim_rec.amount);
10237: OZF_Utility_PVT.debug_message('payment_method : '||l_claim_rec.payment_method);
10238: OZF_Utility_PVT.debug_message('cust_billto_acct_site_id : '||l_claim_rec.cust_billto_acct_site_id);
10239: OZF_Utility_PVT.debug_message('status_code : '||l_claim_rec.status_code);
10240: OZF_Utility_PVT.debug_message('claim_number : '||l_claim_rec.claim_number);
10233: OZF_Utility_PVT.debug_message('batch_id : '||l_claim_rec.batch_id);
10234: OZF_Utility_PVT.debug_message('batch_type : '||l_claim_rec.batch_type);
10235: OZF_Utility_PVT.debug_message('currency_code : '||l_claim_rec.currency_code);
10236: OZF_Utility_PVT.debug_message('amount : '||l_claim_rec.amount);
10237: OZF_Utility_PVT.debug_message('payment_method : '||l_claim_rec.payment_method);
10238: OZF_Utility_PVT.debug_message('cust_billto_acct_site_id : '||l_claim_rec.cust_billto_acct_site_id);
10239: OZF_Utility_PVT.debug_message('status_code : '||l_claim_rec.status_code);
10240: OZF_Utility_PVT.debug_message('claim_number : '||l_claim_rec.claim_number);
10241: OZF_Utility_PVT.debug_message('vendor_id : '||l_claim_rec.vendor_id);
10234: OZF_Utility_PVT.debug_message('batch_type : '||l_claim_rec.batch_type);
10235: OZF_Utility_PVT.debug_message('currency_code : '||l_claim_rec.currency_code);
10236: OZF_Utility_PVT.debug_message('amount : '||l_claim_rec.amount);
10237: OZF_Utility_PVT.debug_message('payment_method : '||l_claim_rec.payment_method);
10238: OZF_Utility_PVT.debug_message('cust_billto_acct_site_id : '||l_claim_rec.cust_billto_acct_site_id);
10239: OZF_Utility_PVT.debug_message('status_code : '||l_claim_rec.status_code);
10240: OZF_Utility_PVT.debug_message('claim_number : '||l_claim_rec.claim_number);
10241: OZF_Utility_PVT.debug_message('vendor_id : '||l_claim_rec.vendor_id);
10242: OZF_Utility_PVT.debug_message('vendor_site_id : '||l_claim_rec.vendor_site_id);
10235: OZF_Utility_PVT.debug_message('currency_code : '||l_claim_rec.currency_code);
10236: OZF_Utility_PVT.debug_message('amount : '||l_claim_rec.amount);
10237: OZF_Utility_PVT.debug_message('payment_method : '||l_claim_rec.payment_method);
10238: OZF_Utility_PVT.debug_message('cust_billto_acct_site_id : '||l_claim_rec.cust_billto_acct_site_id);
10239: OZF_Utility_PVT.debug_message('status_code : '||l_claim_rec.status_code);
10240: OZF_Utility_PVT.debug_message('claim_number : '||l_claim_rec.claim_number);
10241: OZF_Utility_PVT.debug_message('vendor_id : '||l_claim_rec.vendor_id);
10242: OZF_Utility_PVT.debug_message('vendor_site_id : '||l_claim_rec.vendor_site_id);
10243: OZF_Utility_PVT.debug_message('org_id : '||l_claim_rec.org_id);
10236: OZF_Utility_PVT.debug_message('amount : '||l_claim_rec.amount);
10237: OZF_Utility_PVT.debug_message('payment_method : '||l_claim_rec.payment_method);
10238: OZF_Utility_PVT.debug_message('cust_billto_acct_site_id : '||l_claim_rec.cust_billto_acct_site_id);
10239: OZF_Utility_PVT.debug_message('status_code : '||l_claim_rec.status_code);
10240: OZF_Utility_PVT.debug_message('claim_number : '||l_claim_rec.claim_number);
10241: OZF_Utility_PVT.debug_message('vendor_id : '||l_claim_rec.vendor_id);
10242: OZF_Utility_PVT.debug_message('vendor_site_id : '||l_claim_rec.vendor_site_id);
10243: OZF_Utility_PVT.debug_message('org_id : '||l_claim_rec.org_id);
10244: OZF_Utility_PVT.debug_message('user_status_id : '||l_claim_rec.user_status_id);
10237: OZF_Utility_PVT.debug_message('payment_method : '||l_claim_rec.payment_method);
10238: OZF_Utility_PVT.debug_message('cust_billto_acct_site_id : '||l_claim_rec.cust_billto_acct_site_id);
10239: OZF_Utility_PVT.debug_message('status_code : '||l_claim_rec.status_code);
10240: OZF_Utility_PVT.debug_message('claim_number : '||l_claim_rec.claim_number);
10241: OZF_Utility_PVT.debug_message('vendor_id : '||l_claim_rec.vendor_id);
10242: OZF_Utility_PVT.debug_message('vendor_site_id : '||l_claim_rec.vendor_site_id);
10243: OZF_Utility_PVT.debug_message('org_id : '||l_claim_rec.org_id);
10244: OZF_Utility_PVT.debug_message('user_status_id : '||l_claim_rec.user_status_id);
10245: END IF;
10238: OZF_Utility_PVT.debug_message('cust_billto_acct_site_id : '||l_claim_rec.cust_billto_acct_site_id);
10239: OZF_Utility_PVT.debug_message('status_code : '||l_claim_rec.status_code);
10240: OZF_Utility_PVT.debug_message('claim_number : '||l_claim_rec.claim_number);
10241: OZF_Utility_PVT.debug_message('vendor_id : '||l_claim_rec.vendor_id);
10242: OZF_Utility_PVT.debug_message('vendor_site_id : '||l_claim_rec.vendor_site_id);
10243: OZF_Utility_PVT.debug_message('org_id : '||l_claim_rec.org_id);
10244: OZF_Utility_PVT.debug_message('user_status_id : '||l_claim_rec.user_status_id);
10245: END IF;
10246:
10239: OZF_Utility_PVT.debug_message('status_code : '||l_claim_rec.status_code);
10240: OZF_Utility_PVT.debug_message('claim_number : '||l_claim_rec.claim_number);
10241: OZF_Utility_PVT.debug_message('vendor_id : '||l_claim_rec.vendor_id);
10242: OZF_Utility_PVT.debug_message('vendor_site_id : '||l_claim_rec.vendor_site_id);
10243: OZF_Utility_PVT.debug_message('org_id : '||l_claim_rec.org_id);
10244: OZF_Utility_PVT.debug_message('user_status_id : '||l_claim_rec.user_status_id);
10245: END IF;
10246:
10247:
10240: OZF_Utility_PVT.debug_message('claim_number : '||l_claim_rec.claim_number);
10241: OZF_Utility_PVT.debug_message('vendor_id : '||l_claim_rec.vendor_id);
10242: OZF_Utility_PVT.debug_message('vendor_site_id : '||l_claim_rec.vendor_site_id);
10243: OZF_Utility_PVT.debug_message('org_id : '||l_claim_rec.org_id);
10244: OZF_Utility_PVT.debug_message('user_status_id : '||l_claim_rec.user_status_id);
10245: END IF;
10246:
10247:
10248: --For INTERNAL negative claims, claim class need to be changed.
10275: x_claim_id := l_claim_id;
10276: END IF;
10277:
10278: IF OZF_DEBUG_HIGH_ON THEN
10279: OZF_Utility_PVT.debug_message('Created claim id:'||l_claim_id);
10280: END IF;
10281:
10282: FOR i IN l_line_tbl.FIRST..l_line_tbl.LAST
10283: LOOP
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);
10310: END IF;
10311:
10312: OPEN csr_claim_lines(l_claim_id);
10313: LOOP
10384: l_access_rec.act_access_to_object_id := l_claim_id;
10385: l_access_rec.arc_act_access_to_object := 'CLAM';
10386:
10387: IF OZF_DEBUG_HIGH_ON THEN
10388: OZF_Utility_PVT.debug_message('Claim access information:');
10389: OZF_Utility_PVT.debug_message('user_or_role_id : '||l_access_rec.user_or_role_id);
10390: OZF_Utility_PVT.debug_message('arc_user_or_role_type : '||l_access_rec.arc_user_or_role_type);
10391: OZF_Utility_PVT.debug_message('act_access_to_object_id : '||l_access_rec.act_access_to_object_id);
10392: OZF_Utility_PVT.debug_message('arc_act_access_to_object : '||l_access_rec.arc_act_access_to_object);
10385: l_access_rec.arc_act_access_to_object := 'CLAM';
10386:
10387: IF OZF_DEBUG_HIGH_ON THEN
10388: OZF_Utility_PVT.debug_message('Claim access information:');
10389: OZF_Utility_PVT.debug_message('user_or_role_id : '||l_access_rec.user_or_role_id);
10390: OZF_Utility_PVT.debug_message('arc_user_or_role_type : '||l_access_rec.arc_user_or_role_type);
10391: OZF_Utility_PVT.debug_message('act_access_to_object_id : '||l_access_rec.act_access_to_object_id);
10392: OZF_Utility_PVT.debug_message('arc_act_access_to_object : '||l_access_rec.arc_act_access_to_object);
10393: END IF;
10386:
10387: IF OZF_DEBUG_HIGH_ON THEN
10388: OZF_Utility_PVT.debug_message('Claim access information:');
10389: OZF_Utility_PVT.debug_message('user_or_role_id : '||l_access_rec.user_or_role_id);
10390: OZF_Utility_PVT.debug_message('arc_user_or_role_type : '||l_access_rec.arc_user_or_role_type);
10391: OZF_Utility_PVT.debug_message('act_access_to_object_id : '||l_access_rec.act_access_to_object_id);
10392: OZF_Utility_PVT.debug_message('arc_act_access_to_object : '||l_access_rec.arc_act_access_to_object);
10393: END IF;
10394:
10387: IF OZF_DEBUG_HIGH_ON THEN
10388: OZF_Utility_PVT.debug_message('Claim access information:');
10389: OZF_Utility_PVT.debug_message('user_or_role_id : '||l_access_rec.user_or_role_id);
10390: OZF_Utility_PVT.debug_message('arc_user_or_role_type : '||l_access_rec.arc_user_or_role_type);
10391: OZF_Utility_PVT.debug_message('act_access_to_object_id : '||l_access_rec.act_access_to_object_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
10388: OZF_Utility_PVT.debug_message('Claim access information:');
10389: OZF_Utility_PVT.debug_message('user_or_role_id : '||l_access_rec.user_or_role_id);
10390: OZF_Utility_PVT.debug_message('arc_user_or_role_type : '||l_access_rec.arc_user_or_role_type);
10391: OZF_Utility_PVT.debug_message('act_access_to_object_id : '||l_access_rec.act_access_to_object_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
10429: p_data => x_msg_data
10430: );
10431:
10432: IF OZF_DEBUG_HIGH_ON THEN
10433: OZF_Utility_PVT.debug_message(l_full_name ||': end');
10434: END IF;
10435:
10436: EXCEPTION
10437: WHEN FND_API.g_exc_error THEN