eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.OZF_FUND_RECONCILE_PVT dependencies on OZF_UTILITY_PVT

Line 310: ozf_utility_pvt.debug_message ( l_full_name

306: l_object_end_date := FND_DATE.CANONICAL_TO_DATE(p_object_end_date);
307: END IF;
308:
309: IF G_DEBUG THEN
310: ozf_utility_pvt.debug_message ( l_full_name
311: || ': '
312: || l_grace_date);
313: END IF;
314:

Line 317: ozf_utility_pvt.debug_message ( 'object type: ' || p_object_type

313: END IF;
314:
315:
316: IF G_DEBUG THEN
317: ozf_utility_pvt.debug_message ( 'object type: ' || p_object_type
318: || 'object status: ' ||p_object_status
319: || 'object code: ' || p_object_code
320: || 'end date: ' || l_object_end_date
321: || 'recon paid: ' || l_util_paid);

Line 487: ozf_utility_pvt.debug_message ('table count: ' || l_object_tbl.count);

483:
484: END IF;
485:
486: IF G_DEBUG THEN
487: ozf_utility_pvt.debug_message ('table count: ' || l_object_tbl.count);
488: END IF;
489:
490: FOR k IN NVL (l_object_tbl.FIRST, 1) .. NVL (l_object_tbl.LAST, 0)
491: LOOP

Line 494: ozf_utility_pvt.debug_message ( l_full_name

490: FOR k IN NVL (l_object_tbl.FIRST, 1) .. NVL (l_object_tbl.LAST, 0)
491: LOOP
492: SAVEPOINT release_fund_conc;
493: IF G_DEBUG THEN
494: ozf_utility_pvt.debug_message ( l_full_name
495: || ': start loop');
496: END IF;
497:
498: -- call release fund for the respective offers

Line 514: ozf_utility_pvt.write_conc_log('ERROR: Could not perform reconcile for Object: '||l_object_type||' : '||l_object_tbl (k).object_id);

510: IF NOT (l_return_status = fnd_api.g_ret_sts_success) THEN
511: ROLLBACK TO release_fund_conc;
512: -- x_retcode := 1;
513: --x_errbuf := l_msg_data;
514: ozf_utility_pvt.write_conc_log('ERROR: Could not perform reconcile for Object: '||l_object_type||' : '||l_object_tbl (k).object_id);
515:
516: /* fnd_msg_pub.count_and_get (
517: p_encoded=> fnd_api.g_false
518: ,p_count=> x_msg_count

Line 577: ozf_utility_pvt.write_conc_log (l_msg_data);

573:
574:
575: END LOOP;
576:
577: ozf_utility_pvt.write_conc_log (l_msg_data);
578: /* fnd_msg_pub.count_and_get (
579: p_encoded=> fnd_api.g_false
580: ,p_count=> x_msg_count
581: ,p_data=> x_msg_data

Line 604: ozf_utility_pvt.write_conc_log (x_errbuf);

600: WHEN OTHERS THEN
601: ROLLBACK TO release_fund_conc;
602: x_retcode := 1;
603: x_errbuf := l_msg_data;
604: ozf_utility_pvt.write_conc_log (x_errbuf);
605:
606: END release_fund_conc;
607:
608: /*****************************************************************************************/

Line 727: ozf_utility_pvt.debug_message (': before parent source cursor ');

723: BEGIN
724: SAVEPOINT reconcile_budget_line;
725: x_return_status := fnd_api.g_ret_sts_success;
726: IF G_DEBUG THEN
727: ozf_utility_pvt.debug_message (': before parent source cursor ');
728: END IF;
729:
730: IF fnd_api.to_boolean (p_init_msg_list) THEN
731: fnd_msg_pub.initialize;

Line 804: ozf_utility_pvt.debug_message (': in loop of soucing from budgets.');

800: FETCH c_parent_source_fund INTO l_parent_source_rec;
801: EXIT WHEN c_parent_source_fund%NOTFOUND;
802: EXIT WHEN l_parent_source_rec.parent_source_id IS NULL;
803: IF G_DEBUG THEN
804: ozf_utility_pvt.debug_message (': in loop of soucing from budgets.');
805: END IF;
806: l_act_budgets_rec :=NULL;
807:
808: l_act_budgets_rec.act_budget_used_by_id := l_parent_source_rec.parent_source_id;

Line 820: ozf_utility_pvt.get_default_user_status (

816: l_act_budgets_rec.request_currency := l_parent_source_rec.parent_curr;
817: l_act_budgets_rec.request_date := SYSDATE;
818: l_act_budgets_rec.status_code := 'APPROVED';
819: l_act_budgets_rec.user_status_id :=
820: ozf_utility_pvt.get_default_user_status (
821: 'OZF_BUDGETSOURCE_STATUS'
822: ,l_act_budgets_rec.status_code
823: );
824: l_act_budgets_rec.approved_amount := NVL (l_parent_source_rec.total_amount, 0); -- in arc_Act_used_by currency

Line 835: /* ozf_utility_pvt.convert_currency (

831: CLOSE c_exchange_rate_date;
832: --skip the conversion, and use the amounts stored in object currency,
833: --so as to avoid the rounding by gl APi.
834: --For bug 7425189
835: /* ozf_utility_pvt.convert_currency (
836: x_return_status=> l_return_status
837: ,p_from_currency=> l_parent_source_rec.parent_curr
838: ,p_to_currency=> p_object_currency
839: ,p_conv_date=> l_act_budgets_rec.exchange_rate_date --nirma

Line 854: l_act_budgets_rec.approver_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);

850: END IF;
851:
852:
853: l_act_budgets_rec.approval_date := SYSDATE;
854: l_act_budgets_rec.approver_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
855: l_act_budgets_rec.requester_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
856: l_act_budgets_rec.justification :=
857: fnd_message.get_string ('OZF', 'OZF_FUND_RECONCILE');
858:

Line 855: l_act_budgets_rec.requester_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);

851:
852:
853: l_act_budgets_rec.approval_date := SYSDATE;
854: l_act_budgets_rec.approver_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
855: l_act_budgets_rec.requester_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
856: l_act_budgets_rec.justification :=
857: fnd_message.get_string ('OZF', 'OZF_FUND_RECONCILE');
858:
859:

Line 885: ozf_utility_pvt.debug_message (': soucing from parent - l_parent_amount: ' || l_parent_amount);

881:
882: --LOOP
883: FETCH c_parent_source_obj INTO l_parent_amount;
884: IF G_DEBUG THEN
885: ozf_utility_pvt.debug_message (': soucing from parent - l_parent_amount: ' || l_parent_amount);
886: END IF;
887: l_act_budgets_rec.act_budget_used_by_id := l_parent_id;
888: l_act_budgets_rec.arc_act_budget_used_by := l_parent_type;
889: l_act_budgets_rec.budget_source_type := p_budget_used_by_type;

Line 904: ozf_utility_pvt.convert_currency (

900: IF l_currency_code = p_object_currency THEN
901: l_act_budgets_rec.request_amount := l_parent_amount; -- in arc_Act_used_by currency
902: ELSE
903: --nirprasa for bug 7425189, pass exchange_rate_date for conversion
904: ozf_utility_pvt.convert_currency (
905: x_return_status=> l_return_status
906: ,p_from_currency=> p_object_currency
907: ,p_to_currency=> l_currency_code
908: ,p_conv_date=> l_act_budgets_rec.exchange_rate_date --nirma

Line 924: ozf_utility_pvt.get_default_user_status (

920:
921: l_act_budgets_rec.request_date := SYSDATE;
922: l_act_budgets_rec.status_code := 'APPROVED';
923: l_act_budgets_rec.user_status_id :=
924: ozf_utility_pvt.get_default_user_status (
925: 'OZF_BUDGETSOURCE_STATUS'
926: ,l_act_budgets_rec.status_code
927: );
928: l_act_budgets_rec.approved_amount := l_act_budgets_rec.request_amount; -- in arc_Act_used_by currency

Line 932: l_act_budgets_rec.approver_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);

928: l_act_budgets_rec.approved_amount := l_act_budgets_rec.request_amount; -- in arc_Act_used_by currency
929: l_act_budgets_rec.approved_in_currency := p_object_currency;
930: l_act_budgets_rec.approved_original_amount := l_parent_amount;
931: l_act_budgets_rec.approval_date := SYSDATE;
932: l_act_budgets_rec.approver_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
933: l_act_budgets_rec.requester_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
934: l_act_budgets_rec.justification :=
935: fnd_message.get_string ('OZF', 'OZF_FUND_RECONCILE');
936:

Line 933: l_act_budgets_rec.requester_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);

929: l_act_budgets_rec.approved_in_currency := p_object_currency;
930: l_act_budgets_rec.approved_original_amount := l_parent_amount;
931: l_act_budgets_rec.approval_date := SYSDATE;
932: l_act_budgets_rec.approver_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
933: l_act_budgets_rec.requester_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
934: l_act_budgets_rec.justification :=
935: fnd_message.get_string ('OZF', 'OZF_FUND_RECONCILE');
936:
937:

Line 960: ozf_utility_pvt.debug_message ( l_api_name || ': end');

956: CLOSE c_parent_source_obj;
957: END IF;
958:
959: IF G_DEBUG THEN
960: ozf_utility_pvt.debug_message ( l_api_name || ': end');
961: END IF;
962:
963: fnd_msg_pub.count_and_get (
964: p_count=> x_msg_count

Line 1178: ozf_utility_pvt.debug_message ( 'Private API: '

1174: -- Standard Start of API savepoint
1175: SAVEPOINT recal_comm_fund_conc;
1176: -- Debug Message
1177: IF G_DEBUG THEN
1178: ozf_utility_pvt.debug_message ( 'Private API: '
1179: || l_api_name
1180: || 'start');
1181: END IF;
1182:

Line 1187: ozf_utility_pvt.debug_message ( 'Recalculating flag: '|| l_recal_flag || ' l_parent_flag: ' || l_parent_flag ) ;

1183: -- get recalculating flag from profile
1184: l_recal_flag := NVL (fnd_profile.VALUE ('OZF_BUDGET_ADJ_ALLOW_RECAL'), 'N');
1185:
1186: IF G_DEBUG THEN
1187: ozf_utility_pvt.debug_message ( 'Recalculating flag: '|| l_recal_flag || ' l_parent_flag: ' || l_parent_flag ) ;
1188: END IF;
1189:
1190: IF l_recal_flag = 'Y' AND l_parent_flag = 'N' THEN
1191: OPEN l_offer_csr;

Line 1200: ozf_utility_pvt.debug_message ( 'l_listHeaderIdTbl count: '|| l_listHeaderIdTbl.COUNT ) ;

1196: l_endDateTbl,
1197: l_lastRecalDateTbl
1198: LIMIT g_bulk_limit;
1199: IF G_DEBUG THEN
1200: ozf_utility_pvt.debug_message ( 'l_listHeaderIdTbl count: '|| l_listHeaderIdTbl.COUNT ) ;
1201: END IF;
1202:
1203: FOR i IN NVL(l_listHeaderIdTbl.FIRST, 1) .. NVL(l_listHeaderIdTbl.LAST, 0) LOOP
1204:

Line 1252: ozf_utility_pvt.debug_message ( 'forecast count:' || l_count);

1248: END IF;
1249: END IF;
1250:
1251: IF G_DEBUG THEN
1252: ozf_utility_pvt.debug_message ( 'forecast count:' || l_count);
1253: ozf_utility_pvt.debug_message ( 'Start Period: '|| l_period_start_date);
1254: ozf_utility_pvt.debug_message ( 'End Period: ' || l_period_end_date);
1255: ozf_utility_pvt.debug_message ( 'Offer ID: ' || l_listHeaderIdTbl(i));
1256: END IF;

Line 1253: ozf_utility_pvt.debug_message ( 'Start Period: '|| l_period_start_date);

1249: END IF;
1250:
1251: IF G_DEBUG THEN
1252: ozf_utility_pvt.debug_message ( 'forecast count:' || l_count);
1253: ozf_utility_pvt.debug_message ( 'Start Period: '|| l_period_start_date);
1254: ozf_utility_pvt.debug_message ( 'End Period: ' || l_period_end_date);
1255: ozf_utility_pvt.debug_message ( 'Offer ID: ' || l_listHeaderIdTbl(i));
1256: END IF;
1257:

Line 1254: ozf_utility_pvt.debug_message ( 'End Period: ' || l_period_end_date);

1250:
1251: IF G_DEBUG THEN
1252: ozf_utility_pvt.debug_message ( 'forecast count:' || l_count);
1253: ozf_utility_pvt.debug_message ( 'Start Period: '|| l_period_start_date);
1254: ozf_utility_pvt.debug_message ( 'End Period: ' || l_period_end_date);
1255: ozf_utility_pvt.debug_message ( 'Offer ID: ' || l_listHeaderIdTbl(i));
1256: END IF;
1257:
1258: -- check end period is less than sysdate.

Line 1255: ozf_utility_pvt.debug_message ( 'Offer ID: ' || l_listHeaderIdTbl(i));

1251: IF G_DEBUG THEN
1252: ozf_utility_pvt.debug_message ( 'forecast count:' || l_count);
1253: ozf_utility_pvt.debug_message ( 'Start Period: '|| l_period_start_date);
1254: ozf_utility_pvt.debug_message ( 'End Period: ' || l_period_end_date);
1255: ozf_utility_pvt.debug_message ( 'Offer ID: ' || l_listHeaderIdTbl(i));
1256: END IF;
1257:
1258: -- check end period is less than sysdate.
1259: WHILE l_period_end_date >=l_period_start_date AND l_period_end_date < TRUNC(SYSDATE) AND

Line 1269: l_committed_amt :=ozf_utility_pvt.currround(l_committed_amt ,l_transCurrCodeTbl(i));

1265: -- budget amount multipled by forcast percent.
1266: IF l_last_flag = FALSE THEN
1267: IF l_forecast_tbl.COUNT > 0 THEN
1268: l_committed_amt := budget_rec.total_amt * l_forecast_tbl(l_count).forecast_value/100;
1269: l_committed_amt :=ozf_utility_pvt.currround(l_committed_amt ,l_transCurrCodeTbl(i));
1270: ELSE --for offer without forcast. committed amount in this period is equal to
1271: -- daily amount multipled by period days.
1272: l_committed_amt :=budget_rec.total_amt * ( (l_period_end_date - l_period_start_date + 1) / (TRUNC(l_endDateTbl(i)) - TRUNC(l_startDateTbl(i)) + 1) ) ;
1273: l_committed_amt :=ozf_utility_pvt.currround(l_committed_amt ,l_transCurrCodeTbl(i));

Line 1273: l_committed_amt :=ozf_utility_pvt.currround(l_committed_amt ,l_transCurrCodeTbl(i));

1269: l_committed_amt :=ozf_utility_pvt.currround(l_committed_amt ,l_transCurrCodeTbl(i));
1270: ELSE --for offer without forcast. committed amount in this period is equal to
1271: -- daily amount multipled by period days.
1272: l_committed_amt :=budget_rec.total_amt * ( (l_period_end_date - l_period_start_date + 1) / (TRUNC(l_endDateTbl(i)) - TRUNC(l_startDateTbl(i)) + 1) ) ;
1273: l_committed_amt :=ozf_utility_pvt.currround(l_committed_amt ,l_transCurrCodeTbl(i));
1274: END IF; -- end of l_forecast_tbl.COUNT > 0
1275:
1276: OPEN l_utilized_csr (
1277: l_listHeaderIdTbl(i)

Line 1297: l_remaining_amt :=ozf_utility_pvt.currround(l_remaining_amt ,l_transCurrCodeTbl(i));

1293: CLOSE l_last_util_csr;
1294: END IF;
1295:
1296: IF l_remaining_amt > 0 THEN
1297: l_remaining_amt :=ozf_utility_pvt.currround(l_remaining_amt ,l_transCurrCodeTbl(i));
1298: END IF;
1299:
1300: IF G_DEBUG THEN
1301: ozf_utility_pvt.debug_message ( 'budget_rec.total_amt: '|| budget_rec.total_amt);

Line 1301: ozf_utility_pvt.debug_message ( 'budget_rec.total_amt: '|| budget_rec.total_amt);

1297: l_remaining_amt :=ozf_utility_pvt.currround(l_remaining_amt ,l_transCurrCodeTbl(i));
1298: END IF;
1299:
1300: IF G_DEBUG THEN
1301: ozf_utility_pvt.debug_message ( 'budget_rec.total_amt: '|| budget_rec.total_amt);
1302: ozf_utility_pvt.debug_message ( 'offer_rec.transaction_currency_code: '|| l_transCurrCodeTbl(i));
1303: ozf_utility_pvt.debug_message ( 'committed amount: '|| l_committed_amt);
1304: ozf_utility_pvt.debug_message ( 'Utilized amount: '|| l_utilized_amt);
1305: ozf_utility_pvt.debug_message ( 'l_remaining_amt: '|| l_remaining_amt);

Line 1302: ozf_utility_pvt.debug_message ( 'offer_rec.transaction_currency_code: '|| l_transCurrCodeTbl(i));

1298: END IF;
1299:
1300: IF G_DEBUG THEN
1301: ozf_utility_pvt.debug_message ( 'budget_rec.total_amt: '|| budget_rec.total_amt);
1302: ozf_utility_pvt.debug_message ( 'offer_rec.transaction_currency_code: '|| l_transCurrCodeTbl(i));
1303: ozf_utility_pvt.debug_message ( 'committed amount: '|| l_committed_amt);
1304: ozf_utility_pvt.debug_message ( 'Utilized amount: '|| l_utilized_amt);
1305: ozf_utility_pvt.debug_message ( 'l_remaining_amt: '|| l_remaining_amt);
1306: END IF;

Line 1303: ozf_utility_pvt.debug_message ( 'committed amount: '|| l_committed_amt);

1299:
1300: IF G_DEBUG THEN
1301: ozf_utility_pvt.debug_message ( 'budget_rec.total_amt: '|| budget_rec.total_amt);
1302: ozf_utility_pvt.debug_message ( 'offer_rec.transaction_currency_code: '|| l_transCurrCodeTbl(i));
1303: ozf_utility_pvt.debug_message ( 'committed amount: '|| l_committed_amt);
1304: ozf_utility_pvt.debug_message ( 'Utilized amount: '|| l_utilized_amt);
1305: ozf_utility_pvt.debug_message ( 'l_remaining_amt: '|| l_remaining_amt);
1306: END IF;
1307: -- if committed budget is not equal to utilized budget, then go on with recalculating commitment.

Line 1304: ozf_utility_pvt.debug_message ( 'Utilized amount: '|| l_utilized_amt);

1300: IF G_DEBUG THEN
1301: ozf_utility_pvt.debug_message ( 'budget_rec.total_amt: '|| budget_rec.total_amt);
1302: ozf_utility_pvt.debug_message ( 'offer_rec.transaction_currency_code: '|| l_transCurrCodeTbl(i));
1303: ozf_utility_pvt.debug_message ( 'committed amount: '|| l_committed_amt);
1304: ozf_utility_pvt.debug_message ( 'Utilized amount: '|| l_utilized_amt);
1305: ozf_utility_pvt.debug_message ( 'l_remaining_amt: '|| l_remaining_amt);
1306: END IF;
1307: -- if committed budget is not equal to utilized budget, then go on with recalculating commitment.
1308: IF l_remaining_amt <> 0 THEN

Line 1305: ozf_utility_pvt.debug_message ( 'l_remaining_amt: '|| l_remaining_amt);

1301: ozf_utility_pvt.debug_message ( 'budget_rec.total_amt: '|| budget_rec.total_amt);
1302: ozf_utility_pvt.debug_message ( 'offer_rec.transaction_currency_code: '|| l_transCurrCodeTbl(i));
1303: ozf_utility_pvt.debug_message ( 'committed amount: '|| l_committed_amt);
1304: ozf_utility_pvt.debug_message ( 'Utilized amount: '|| l_utilized_amt);
1305: ozf_utility_pvt.debug_message ( 'l_remaining_amt: '|| l_remaining_amt);
1306: END IF;
1307: -- if committed budget is not equal to utilized budget, then go on with recalculating commitment.
1308: IF l_remaining_amt <> 0 THEN
1309: l_act_budgets_rec :=NULL;

Line 1336: ozf_utility_pvt.convert_currency (

1332: IF l_budget_currency_code = l_transCurrCodeTbl(i) THEN
1333: l_act_budgets_rec.approved_original_amount := l_act_budgets_rec.request_amount;
1334: ELSE
1335: -- call the currency conversion since request amount is in object currency.
1336: ozf_utility_pvt.convert_currency (
1337: x_return_status=> l_return_status
1338: ,p_from_currency=> l_transCurrCodeTbl(i)
1339: ,p_to_currency=> l_budget_currency_code
1340: ,p_from_amount=> l_act_budgets_rec.request_amount

Line 1372: ozf_utility_pvt.convert_currency (

1368: IF l_budget_currency_code = l_transCurrCodeTbl(i) THEN
1369: l_act_budgets_rec.request_amount := l_act_budgets_rec.approved_original_amount;
1370: ELSE
1371: -- call the currency conversion wrapper
1372: ozf_utility_pvt.convert_currency (
1373: x_return_status=> l_return_status
1374: ,p_from_currency=> l_transCurrCodeTbl(i) -- source curr
1375: ,p_to_currency=> l_budget_currency_code -- from budget curr
1376: ,p_from_amount=> l_act_budgets_rec.approved_original_amount -- in offer curr

Line 1394: ozf_utility_pvt.get_default_user_status (

1390: l_act_budgets_rec.status_code := 'APPROVED';
1391: l_act_budgets_rec.recal_flag := 'Y';
1392: l_act_budgets_rec.request_date := SYSDATE;
1393: l_act_budgets_rec.user_status_id :=
1394: ozf_utility_pvt.get_default_user_status (
1395: 'OZF_BUDGETSOURCE_STATUS'
1396: ,l_act_budgets_rec.status_code
1397: );
1398: IF G_DEBUG THEN

Line 1399: ozf_utility_pvt.debug_message ('Recalculated amount: '

1395: 'OZF_BUDGETSOURCE_STATUS'
1396: ,l_act_budgets_rec.status_code
1397: );
1398: IF G_DEBUG THEN
1399: ozf_utility_pvt.debug_message ('Recalculated amount: '
1400: || l_act_budgets_rec.request_amount
1401: );
1402: END IF;
1403: l_act_budgets_rec.approval_date := SYSDATE;

Line 1404: l_act_budgets_rec.approver_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);

1400: || l_act_budgets_rec.request_amount
1401: );
1402: END IF;
1403: l_act_budgets_rec.approval_date := SYSDATE;
1404: l_act_budgets_rec.approver_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
1405: l_act_budgets_rec.requester_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
1406: l_act_budgets_rec.justification :=
1407: fnd_message.get_string ('OZF', 'OZF_ACT_BUDGET_RECAL_COMM');
1408: IF G_DEBUG THEN

Line 1405: l_act_budgets_rec.requester_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);

1401: );
1402: END IF;
1403: l_act_budgets_rec.approval_date := SYSDATE;
1404: l_act_budgets_rec.approver_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
1405: l_act_budgets_rec.requester_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
1406: l_act_budgets_rec.justification :=
1407: fnd_message.get_string ('OZF', 'OZF_ACT_BUDGET_RECAL_COMM');
1408: IF G_DEBUG THEN
1409: ozf_utility_pvt.debug_message ('Allow exceed: '|| l_exceed_flag);

Line 1409: ozf_utility_pvt.debug_message ('Allow exceed: '|| l_exceed_flag);

1405: l_act_budgets_rec.requester_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
1406: l_act_budgets_rec.justification :=
1407: fnd_message.get_string ('OZF', 'OZF_ACT_BUDGET_RECAL_COMM');
1408: IF G_DEBUG THEN
1409: ozf_utility_pvt.debug_message ('Allow exceed: '|| l_exceed_flag);
1410: END IF;
1411:
1412: -- check if it allows committed amount exceed total budget in budget currency.
1413: IF ( NVL (l_tot_recal_comm_amt, 0)

Line 1419: ozf_utility_pvt.debug_message ('Create act budget: ');

1415: )
1416: OR l_exceed_flag = 'Y' THEN
1417:
1418: IF G_DEBUG THEN
1419: ozf_utility_pvt.debug_message ('Create act budget: ');
1420: END IF;
1421:
1422: IF l_act_budgets_rec.request_amount > 0 THEN
1423: ozf_actbudgets_pvt.create_act_budgets (

Line 1479: ozf_utility_pvt.write_conc_log('ERROR: Could not perform recalculated committed for Offer: '|| l_listHeaderIdTbl(i));

1475: IF (l_commit) THEN -- commit separately for each offer in the loop.
1476: x_retcode := 0;
1477: COMMIT;
1478: ELSE
1479: ozf_utility_pvt.write_conc_log('ERROR: Could not perform recalculated committed for Offer: '|| l_listHeaderIdTbl(i));
1480: ROLLBACK TO offer_loop_savepoint; --rollback for the current offer if error occured.
1481: END IF;
1482:
1483: END;

Line 1493: ozf_utility_pvt.debug_message ( 'Private API: '

1489:
1490: END IF; -- End of if for allow recalculating profile.
1491:
1492: IF G_DEBUG THEN
1493: ozf_utility_pvt.debug_message ( 'Private API: '
1494: || l_api_name
1495: || ' end');
1496: END IF;
1497:

Line 1498: ozf_utility_pvt.write_conc_log(l_msg_data);

1494: || l_api_name
1495: || ' end');
1496: END IF;
1497:
1498: ozf_utility_pvt.write_conc_log(l_msg_data);
1499:
1500: EXCEPTION
1501: WHEN OTHERS THEN
1502: ROLLBACK TO recal_comm_fund_conc;

Line 1503: ozf_utility_pvt.write_conc_log (l_msg_data);

1499:
1500: EXCEPTION
1501: WHEN OTHERS THEN
1502: ROLLBACK TO recal_comm_fund_conc;
1503: ozf_utility_pvt.write_conc_log (l_msg_data);
1504: x_retcode := 1;
1505: x_errbuf := l_msg_data;
1506: END recal_comm_fund_conc;
1507: ---------------------------------------------------------------------

Line 1566: ozf_utility_pvt.debug_message (': begin ' || l_full_name);

1562:
1563: BEGIN
1564: SAVEPOINT post_utilized_budget_conc;
1565: IF G_DEBUG THEN
1566: ozf_utility_pvt.debug_message (': begin ' || l_full_name);
1567: END IF;
1568: -- x_return_status := fnd_api.g_ret_sts_success;
1569:
1570: /* IF fnd_api.to_boolean (p_init_msg_list) THEN

Line 1599: ozf_utility_pvt.debug_message ('Error out offer: ' || l_off_budget_rec.offer_id);

1595: COMMIT;
1596: x_retcode := 0;
1597: ELSE
1598: IF G_DEBUG THEN
1599: ozf_utility_pvt.debug_message ('Error out offer: ' || l_off_budget_rec.offer_id);
1600: END IF;
1601:
1602: ROLLBACK TO offer_budget;
1603: END IF;

Line 1612: ozf_utility_pvt.debug_message ( l_full_name || ': end');

1608: ,p_count=> x_msg_count
1609: ,p_data=> x_msg_data
1610: );
1611: IF G_DEBUG THEN
1612: ozf_utility_pvt.debug_message ( l_full_name || ': end');
1613: END IF;
1614: EXCEPTION
1615: WHEN fnd_api.g_exc_error THEN
1616: ROLLBACK TO Post_utilized_budget_conc;

Line 1646: ozf_utility_pvt.write_conc_log (l_msg_data);

1642: ,p_encoded=> fnd_api.g_false
1643: ); */
1644: -- COMMIT;
1645: -- x_retcode := 0;
1646: ozf_utility_pvt.write_conc_log (l_msg_data);
1647:
1648: EXCEPTION
1649: WHEN OTHERS THEN
1650: ROLLBACK TO post_utilized_budget_conc;

Line 1653: ozf_utility_pvt.write_conc_log (x_errbuf);

1649: WHEN OTHERS THEN
1650: ROLLBACK TO post_utilized_budget_conc;
1651: x_retcode := 1;
1652: x_errbuf := l_msg_data;
1653: ozf_utility_pvt.write_conc_log (x_errbuf);
1654:
1655: END post_utilized_budget_conc;
1656:
1657: ---------------------------------------------------------------------

Line 1726: ozf_utility_pvt.debug_message (': before parent source cursor ');

1722: BEGIN
1723: SAVEPOINT reconcile_budget_utilized;
1724: x_return_status := fnd_api.g_ret_sts_success;
1725: IF G_DEBUG THEN
1726: ozf_utility_pvt.debug_message (': before parent source cursor ');
1727: END IF;
1728:
1729: IF fnd_api.to_boolean (p_init_msg_list) THEN
1730: fnd_msg_pub.initialize;

Line 1745: ozf_utility_pvt.debug_message (': in loop ');

1741: EXIT WHEN c_parent_source_fund%NOTFOUND;
1742: EXIT WHEN l_parent_source_rec.parent_source_id IS NULL;
1743: l_act_budgets_rec :=NULL;
1744: IF G_DEBUG THEN
1745: ozf_utility_pvt.debug_message (': in loop ');
1746: END IF;
1747: l_act_budgets_rec.act_budget_used_by_id := p_budget_used_by_id;
1748: l_act_budgets_rec.arc_act_budget_used_by := p_budget_used_by_type;
1749: l_act_budgets_rec.budget_source_type := p_budget_used_by_type;

Line 1758: ozf_utility_pvt.get_default_user_status (

1754: l_act_budgets_rec.request_currency := l_parent_source_rec.parent_curr;
1755: l_act_budgets_rec.request_date := SYSDATE;
1756: l_act_budgets_rec.status_code := 'APPROVED';
1757: l_act_budgets_rec.user_status_id :=
1758: ozf_utility_pvt.get_default_user_status (
1759: 'OZF_BUDGETSOURCE_STATUS'
1760: ,l_act_budgets_rec.status_code
1761: );
1762: l_act_budgets_rec.approved_amount := NVL (l_parent_source_rec.amount, 0); -- in arc_Act_used_by currency

Line 1769: ozf_utility_pvt.convert_currency (

1765: l_converted_amt := l_parent_source_rec.amount;
1766: ELSE
1767: --Added for bug 7030415, this is for returning unpaid amount to the budget, so
1768: --we need to pass the conv_type. here transfer_type='UTILIZED'
1769: ozf_utility_pvt.convert_currency (
1770: x_return_status=> l_return_status
1771: ,p_from_currency=> p_object_currency
1772: ,p_to_currency=> l_parent_source_rec.parent_curr
1773: ,p_conv_type=>l_parent_source_rec.exchange_rate_type --Added for bug 7030415

Line 1787: l_act_budgets_rec.approver_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);

1783: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1784: RAISE fnd_api.g_exc_unexpected_error;
1785: END IF;
1786: l_act_budgets_rec.approval_date := SYSDATE;
1787: l_act_budgets_rec.approver_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
1788: l_act_budgets_rec.justification := fnd_message.get_string ('OZF', 'OZF_ACT_BUDG_CST_UTIL');
1789: l_act_budgets_rec.parent_source_id := l_parent_source_rec.parent_source_id;
1790: l_act_budgets_rec.parent_src_curr := l_parent_source_rec.parent_curr;
1791: l_act_budgets_rec.parent_src_apprvd_amt := - l_converted_amt; -- in budget currency.

Line 1831: ozf_utility_pvt.debug_message ( l_full_name || ': end');

1827: ,p_count=> x_msg_count
1828: ,p_data=> x_msg_data
1829: );
1830: IF G_DEBUG THEN
1831: ozf_utility_pvt.debug_message ( l_full_name || ': end');
1832: END IF;
1833:
1834: EXCEPTION
1835: WHEN fnd_api.g_exc_error THEN

Line 1904: ozf_utility_pvt.debug_message (': begin ' || l_full_name);

1900:
1901: BEGIN
1902: SAVEPOINT reconcile_line;
1903: IF G_DEBUG THEN
1904: ozf_utility_pvt.debug_message (': begin ' || l_full_name);
1905: END IF;
1906: x_return_status := fnd_api.g_ret_sts_success;
1907:
1908: IF fnd_api.to_boolean (p_init_msg_list) THEN

Line 1959: ozf_utility_pvt.debug_message ( l_full_name || ': end');

1955: ,p_data=> x_msg_data
1956: );
1957:
1958: IF G_DEBUG THEN
1959: ozf_utility_pvt.debug_message ( l_full_name || ': end');
1960: END IF;
1961: EXCEPTION
1962: WHEN fnd_api.g_exc_error THEN
1963: ROLLBACK TO reconcile_line;

Line 2025: ozf_utility_pvt.write_conc_log(l_full_name || ': start');

2021: 'baseQueryType','baseQueryType','1'), DECODE(PARAMETER_CONDITION,'CONS','LIKE',PARAMETER_CONDITION),PARAMETER_VALUE
2022: FROM JTF_PERZ_QUERY_PARAM WHERE QUERY_ID = l_query_id AND PARAMETER_TYPE = 'condition';
2023: BEGIN
2024: IF G_DEBUG THEN
2025: ozf_utility_pvt.write_conc_log(l_full_name || ': start');
2026: END IF;
2027: l_str_query := 'SELECT fund_id FROM ozf_fund_details_v, ams_act_access_denorm accd WHERE ';
2028:
2029: IF l_query_id IS NOT NULL THEN

Line 2072: l_resource_id := ozf_utility_pvt.get_resource_id(p_user_id => fnd_global.user_id);

2068: END IF;
2069: END LOOP;
2070: CLOSE c_query_parameters;
2071: END IF;
2072: l_resource_id := ozf_utility_pvt.get_resource_id(p_user_id => fnd_global.user_id);
2073: IF G_DEBUG THEN
2074: ozf_utility_pvt.write_conc_log(l_full_name || ': The resource Id ' || l_resource_id);
2075: END IF;
2076: l_str_query := l_str_query || 'fund_id = accd.object_id '|| ' AND ';

Line 2074: ozf_utility_pvt.write_conc_log(l_full_name || ': The resource Id ' || l_resource_id);

2070: CLOSE c_query_parameters;
2071: END IF;
2072: l_resource_id := ozf_utility_pvt.get_resource_id(p_user_id => fnd_global.user_id);
2073: IF G_DEBUG THEN
2074: ozf_utility_pvt.write_conc_log(l_full_name || ': The resource Id ' || l_resource_id);
2075: END IF;
2076: l_str_query := l_str_query || 'fund_id = accd.object_id '|| ' AND ';
2077: l_str_query := l_str_query || 'accd.object_Type= ''FUND'' ' || ' AND ';
2078: l_str_query := l_str_query || 'accd.edit_metrics_yn = ''Y'' ';

Line 2183: ozf_utility_pvt.write_conc_log(l_full_name || ': start');

2179: l_old_fund_obj c_get_old_fund_obj%ROWTYPE;
2180:
2181: BEGIN
2182: IF G_DEBUG THEN
2183: ozf_utility_pvt.write_conc_log(l_full_name || ': start');
2184: END IF;
2185: OPEN c_get_fund_details;
2186: -- LOOP
2187: FETCH c_get_fund_details into

Line 2202: ozf_utility_pvt.write_conc_log('l_profile_value: ' || l_profile_value);

2198: IF NVL(l_original_budget,0) > (NVL(l_committed_amt,0) - NVL(l_earned_amt,0)) OR
2199: l_profile_value = 'Y' THEN
2200:
2201: IF G_DEBUG THEN
2202: ozf_utility_pvt.write_conc_log('l_profile_value: ' || l_profile_value);
2203: END IF;
2204:
2205: OPEN c_get_old_fund_obj(l_prev_year_fund_id);
2206: LOOP

Line 2258: ozf_utility_pvt.get_default_user_status (

2254: l_act_budgets_rec.request_currency := l_old_fund_obj.fund_currency;
2255: l_act_budgets_rec.request_date := SYSDATE;
2256: l_act_budgets_rec.status_code := 'APPROVED';
2257: l_act_budgets_rec.user_status_id :=
2258: ozf_utility_pvt.get_default_user_status (
2259: 'OZF_BUDGETSOURCE_STATUS'
2260: ,l_act_budgets_rec.status_code
2261: );
2262:

Line 2268: ozf_utility_pvt.convert_currency (

2264: /* l_object_currency := ozf_actbudgets_pvt.get_object_currency(
2265: l_old_fund_obj.object_type
2266: ,l_old_fund_obj.object_id
2267: ,x_return_status);
2268: ozf_utility_pvt.convert_currency (
2269: x_return_status=> x_return_status
2270: ,p_from_currency=> p_fund_currency
2271: ,p_to_currency=> l_object_currency
2272: ,p_from_amount=> l_old_fund_obj.total_amount

Line 2286: l_act_budgets_rec.approver_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);

2282:
2283: l_act_budgets_rec.approved_in_currency := l_old_fund_obj.object_currency;
2284: l_act_budgets_rec.approved_original_amount := l_old_fund_obj.plan_curr_amount;
2285: l_act_budgets_rec.approval_date := SYSDATE;
2286: l_act_budgets_rec.approver_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
2287: l_act_budgets_rec.requester_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
2288: l_act_budgets_rec.justification := fnd_message.get_string ('OZF', 'OZF_FUND_RECONCILE');
2289:
2290: IF G_DEBUG THEN

Line 2287: l_act_budgets_rec.requester_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);

2283: l_act_budgets_rec.approved_in_currency := l_old_fund_obj.object_currency;
2284: l_act_budgets_rec.approved_original_amount := l_old_fund_obj.plan_curr_amount;
2285: l_act_budgets_rec.approval_date := SYSDATE;
2286: l_act_budgets_rec.approver_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
2287: l_act_budgets_rec.requester_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
2288: l_act_budgets_rec.justification := fnd_message.get_string ('OZF', 'OZF_FUND_RECONCILE');
2289:
2290: IF G_DEBUG THEN
2291: ozf_utility_pvt.write_conc_log('Create transfer record for original budget: ' || l_old_fund_obj.amount);

Line 2291: ozf_utility_pvt.write_conc_log('Create transfer record for original budget: ' || l_old_fund_obj.amount);

2287: l_act_budgets_rec.requester_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
2288: l_act_budgets_rec.justification := fnd_message.get_string ('OZF', 'OZF_FUND_RECONCILE');
2289:
2290: IF G_DEBUG THEN
2291: ozf_utility_pvt.write_conc_log('Create transfer record for original budget: ' || l_old_fund_obj.amount);
2292: END IF;
2293:
2294: ozf_actbudgets_pvt.create_act_budgets (
2295: p_api_version=> l_api_version

Line 2310: ozf_utility_pvt.write_conc_log(l_full_name || ' New entries created for unutilized committed amount for old budget, fund_id '

2306: RAISE fnd_api.g_exc_unexpected_error;
2307: END IF;
2308:
2309: IF G_DEBUG THEN
2310: ozf_utility_pvt.write_conc_log(l_full_name || ' New entries created for unutilized committed amount for old budget, fund_id '
2311: || l_prev_year_fund_id );
2312: END IF;
2313:
2314: ozf_utility_pvt.write_conc_log(l_full_name || ' l_old_fund_obj.object_id ' || l_old_fund_obj.object_id);

Line 2314: ozf_utility_pvt.write_conc_log(l_full_name || ' l_old_fund_obj.object_id ' || l_old_fund_obj.object_id);

2310: ozf_utility_pvt.write_conc_log(l_full_name || ' New entries created for unutilized committed amount for old budget, fund_id '
2311: || l_prev_year_fund_id );
2312: END IF;
2313:
2314: ozf_utility_pvt.write_conc_log(l_full_name || ' l_old_fund_obj.object_id ' || l_old_fund_obj.object_id);
2315:
2316: -- creation of new budget request for new budgets
2317: l_act_budgets_rec.act_budget_used_by_id := l_old_fund_obj.object_id;
2318: l_act_budgets_rec.arc_act_budget_used_by := l_old_fund_obj.object_type;

Line 2336: ozf_utility_pvt.write_conc_log( 'Create budget request for new budget: ' || l_old_fund_obj.plan_curr_amount);

2332: -- This would create the objects for new budgets also which
2333: -- were associated with the old budget ...
2334:
2335: IF G_DEBUG THEN
2336: ozf_utility_pvt.write_conc_log( 'Create budget request for new budget: ' || l_old_fund_obj.plan_curr_amount);
2337: END IF;
2338:
2339: ozf_actbudgets_pvt.create_act_budgets(
2340: p_api_version=> l_api_version

Line 2351: ozf_utility_pvt.write_conc_log( 'l_return_status for create_act_budgets: ' || l_return_status);

2347: ,p_approval_flag=> fnd_api.g_true
2348: );
2349:
2350: IF G_DEBUG THEN
2351: ozf_utility_pvt.write_conc_log( 'l_return_status for create_act_budgets: ' || l_return_status);
2352: END IF;
2353:
2354: IF l_return_status = fnd_api.g_ret_sts_error THEN
2355: RAISE fnd_api.g_exc_error;

Line 2361: ozf_utility_pvt.write_conc_log(l_full_name || ' New entries created for new budgets and unutilized committed amount is transferred '

2357: RAISE fnd_api.g_exc_unexpected_error;
2358: END IF;
2359:
2360: IF G_DEBUG THEN
2361: ozf_utility_pvt.write_conc_log(l_full_name || ' New entries created for new budgets and unutilized committed amount is transferred '
2362: || ' for the new budget ' || l_fund_id);
2363: ozf_utility_pvt.write_conc_log(l_full_name || ' The new object created with id ' || l_old_fund_obj.object_id
2364: || ' and of type ' || l_old_fund_obj.object_type);
2365: END IF;

Line 2363: ozf_utility_pvt.write_conc_log(l_full_name || ' The new object created with id ' || l_old_fund_obj.object_id

2359:
2360: IF G_DEBUG THEN
2361: ozf_utility_pvt.write_conc_log(l_full_name || ' New entries created for new budgets and unutilized committed amount is transferred '
2362: || ' for the new budget ' || l_fund_id);
2363: ozf_utility_pvt.write_conc_log(l_full_name || ' The new object created with id ' || l_old_fund_obj.object_id
2364: || ' and of type ' || l_old_fund_obj.object_type);
2365: END IF;
2366:
2367: END IF; --- NVL (l_old_fund_obj.total_amount, 0) > 0

Line 2375: ozf_utility_pvt.write_conc_log(l_message || l_fund_id);

2371:
2372: CLOSE c_get_old_fund_obj;
2373: ELSE
2374: l_message := fnd_message.get_string ('OZF', 'OZF_FUND_NO_MASS_TRANS') || fnd_global.local_chr(10);
2375: ozf_utility_pvt.write_conc_log(l_message || l_fund_id);
2376: END IF; -- The main IF loop
2377:
2378: x_return_status := fnd_api.g_ret_sts_success;
2379:

Line 2457: ozf_utility_pvt.write_conc_log(l_full_name || ': start');

2453:
2454: SAVEPOINT create_new_funds;
2455:
2456: IF G_DEBUG THEN
2457: ozf_utility_pvt.write_conc_log(l_full_name || ': start');
2458: END IF;
2459:
2460: IF fnd_api.to_boolean(p_init_msg_list) THEN
2461: fnd_msg_pub.initialize;

Line 2476: l_fund_rec_type.user_status_id := OZF_Utility_PVT.get_default_user_status

2472: l_fund_rec_type.original_budget := l_fund_rec.original_budget;
2473: l_fund_rec_type.prev_fund_id := l_fund_rec.fund_id;
2474: l_fund_rec_type.category_id := l_fund_rec.category_id;
2475: l_fund_rec_type.fund_type := l_fund_rec.fund_type;
2476: l_fund_rec_type.user_status_id := OZF_Utility_PVT.get_default_user_status
2477: (l_user_status_type,l_user_status_code);
2478: l_fund_rec_type.owner := l_fund_rec.owner;
2479: l_fund_rec_type.custom_setup_id := l_fund_rec.custom_setup_id;
2480: l_start_date_active := l_fund_rec.start_date_active;

Line 2499: ozf_utility_pvt.write_conc_log('l_fund_rec_type.parent_fund_id: ' || l_fund_rec_type.parent_fund_id);

2495: l_fund_rec_type.threshold_id := l_fund_rec.threshold_id;
2496:
2497:
2498: IF G_DEBUG THEN
2499: ozf_utility_pvt.write_conc_log('l_fund_rec_type.parent_fund_id: ' || l_fund_rec_type.parent_fund_id);
2500: ozf_utility_pvt.write_conc_log('l_fund_rec_type.prev_fund_id: ' || l_fund_rec_type.prev_fund_id);
2501: ozf_utility_pvt.write_conc_log('l_fund_rec_type.start_date_active: ' || l_fund_rec_type.start_date_active);
2502: ozf_utility_pvt.write_conc_log('l_fund_rec_type.end_date_active: ' || l_fund_rec_type.end_date_active);
2503: ozf_utility_pvt.write_conc_log('l_fund_rec_type.ledger_id: ' || l_fund_rec_type.ledger_id);

Line 2500: ozf_utility_pvt.write_conc_log('l_fund_rec_type.prev_fund_id: ' || l_fund_rec_type.prev_fund_id);

2496:
2497:
2498: IF G_DEBUG THEN
2499: ozf_utility_pvt.write_conc_log('l_fund_rec_type.parent_fund_id: ' || l_fund_rec_type.parent_fund_id);
2500: ozf_utility_pvt.write_conc_log('l_fund_rec_type.prev_fund_id: ' || l_fund_rec_type.prev_fund_id);
2501: ozf_utility_pvt.write_conc_log('l_fund_rec_type.start_date_active: ' || l_fund_rec_type.start_date_active);
2502: ozf_utility_pvt.write_conc_log('l_fund_rec_type.end_date_active: ' || l_fund_rec_type.end_date_active);
2503: ozf_utility_pvt.write_conc_log('l_fund_rec_type.ledger_id: ' || l_fund_rec_type.ledger_id);
2504: END IF;

Line 2501: ozf_utility_pvt.write_conc_log('l_fund_rec_type.start_date_active: ' || l_fund_rec_type.start_date_active);

2497:
2498: IF G_DEBUG THEN
2499: ozf_utility_pvt.write_conc_log('l_fund_rec_type.parent_fund_id: ' || l_fund_rec_type.parent_fund_id);
2500: ozf_utility_pvt.write_conc_log('l_fund_rec_type.prev_fund_id: ' || l_fund_rec_type.prev_fund_id);
2501: ozf_utility_pvt.write_conc_log('l_fund_rec_type.start_date_active: ' || l_fund_rec_type.start_date_active);
2502: ozf_utility_pvt.write_conc_log('l_fund_rec_type.end_date_active: ' || l_fund_rec_type.end_date_active);
2503: ozf_utility_pvt.write_conc_log('l_fund_rec_type.ledger_id: ' || l_fund_rec_type.ledger_id);
2504: END IF;
2505:

Line 2502: ozf_utility_pvt.write_conc_log('l_fund_rec_type.end_date_active: ' || l_fund_rec_type.end_date_active);

2498: IF G_DEBUG THEN
2499: ozf_utility_pvt.write_conc_log('l_fund_rec_type.parent_fund_id: ' || l_fund_rec_type.parent_fund_id);
2500: ozf_utility_pvt.write_conc_log('l_fund_rec_type.prev_fund_id: ' || l_fund_rec_type.prev_fund_id);
2501: ozf_utility_pvt.write_conc_log('l_fund_rec_type.start_date_active: ' || l_fund_rec_type.start_date_active);
2502: ozf_utility_pvt.write_conc_log('l_fund_rec_type.end_date_active: ' || l_fund_rec_type.end_date_active);
2503: ozf_utility_pvt.write_conc_log('l_fund_rec_type.ledger_id: ' || l_fund_rec_type.ledger_id);
2504: END IF;
2505:
2506: OZF_funds_pvt.create_fund(p_api_version => 1.0

Line 2503: ozf_utility_pvt.write_conc_log('l_fund_rec_type.ledger_id: ' || l_fund_rec_type.ledger_id);

2499: ozf_utility_pvt.write_conc_log('l_fund_rec_type.parent_fund_id: ' || l_fund_rec_type.parent_fund_id);
2500: ozf_utility_pvt.write_conc_log('l_fund_rec_type.prev_fund_id: ' || l_fund_rec_type.prev_fund_id);
2501: ozf_utility_pvt.write_conc_log('l_fund_rec_type.start_date_active: ' || l_fund_rec_type.start_date_active);
2502: ozf_utility_pvt.write_conc_log('l_fund_rec_type.end_date_active: ' || l_fund_rec_type.end_date_active);
2503: ozf_utility_pvt.write_conc_log('l_fund_rec_type.ledger_id: ' || l_fund_rec_type.ledger_id);
2504: END IF;
2505:
2506: OZF_funds_pvt.create_fund(p_api_version => 1.0
2507: ,p_init_msg_list => fnd_api.g_false

Line 2524: ozf_utility_pvt.write_conc_log('The new Fund Id created is ' || l_fund_id);

2520: RETURN;
2521: END IF;
2522:
2523: IF G_DEBUG THEN
2524: ozf_utility_pvt.write_conc_log('The new Fund Id created is ' || l_fund_id);
2525: END IF;
2526:
2527: l_errcode := NULL;
2528: l_errnum := 0;

Line 2565: ozf_utility_pvt.debug_message(l_full_name || ': end');

2561:
2562: x_new_fund_id := l_fund_id;
2563:
2564: IF G_DEBUG THEN
2565: ozf_utility_pvt.debug_message(l_full_name || ': end');
2566: END IF;
2567:
2568: END create_new_funds;
2569:

Line 2633: ozf_utility_pvt.write_conc_log(l_full_name || ' Getting the newly Created Budgets ');

2629: LOOP
2630: SAVEPOINT new_budget;
2631:
2632: IF G_DEBUG THEN
2633: ozf_utility_pvt.write_conc_log(l_full_name || ' Getting the newly Created Budgets ');
2634: END IF;
2635:
2636: FETCH c_get_new_funds INTO l_new_fund_rec;
2637:

Line 2647: ozf_utility_pvt.write_conc_log(l_full_name || ' The fund_id of newly created budget is ' || l_new_fund_rec.fund_id);

2643: FETCH c_prec_fund into l_end_date,l_object_version;
2644: CLOSE c_prec_fund;
2645:
2646: IF G_DEBUG THEN
2647: ozf_utility_pvt.write_conc_log(l_full_name || ' The fund_id of newly created budget is ' || l_new_fund_rec.fund_id);
2648: ozf_utility_pvt.write_conc_log(l_full_name || ' status code ' || l_new_fund_rec.status_code);
2649: END IF;
2650:
2651: IF l_end_date < TRUNC(SYSDATE) THEN

Line 2648: ozf_utility_pvt.write_conc_log(l_full_name || ' status code ' || l_new_fund_rec.status_code);

2644: CLOSE c_prec_fund;
2645:
2646: IF G_DEBUG THEN
2647: ozf_utility_pvt.write_conc_log(l_full_name || ' The fund_id of newly created budget is ' || l_new_fund_rec.fund_id);
2648: ozf_utility_pvt.write_conc_log(l_full_name || ' status code ' || l_new_fund_rec.status_code);
2649: END IF;
2650:
2651: IF l_end_date < TRUNC(SYSDATE) THEN
2652:

Line 2656: l_new_fund_rec_type.user_status_id := OZF_Utility_PVT.get_default_user_status

2652:
2653: -- activate budget if status is still in DRAFT and the end date for the previous budget passed sysdate.
2654: IF l_new_fund_rec.status_code = 'DRAFT' THEN
2655: l_new_fund_rec_type.fund_id := l_new_fund_rec.fund_id;
2656: l_new_fund_rec_type.user_status_id := OZF_Utility_PVT.get_default_user_status
2657: (l_new_user_status_type,l_new_user_status_code);
2658: l_new_fund_rec_type.original_budget := 0;
2659: l_new_fund_rec_type.status_code := 'ACTIVE';
2660: l_new_fund_rec_type.fund_usage := 'MTRAN';

Line 2665: ozf_utility_pvt.write_conc_log(l_full_name || ' update draft budget to active. ' || l_new_fund_rec_type.fund_id);

2661: l_new_fund_rec_type.object_version_number := l_new_fund_rec.object_version_number;
2662: l_new_fund_rec_type.prev_fund_id := l_new_fund_rec.prev_fund_id;
2663:
2664: IF G_DEBUG THEN
2665: ozf_utility_pvt.write_conc_log(l_full_name || ' update draft budget to active. ' || l_new_fund_rec_type.fund_id);
2666: END IF;
2667:
2668: OZF_funds_pvt.update_fund(p_api_version => 1.0
2669: ,p_init_msg_list => FND_API.G_FALSE

Line 2684: ozf_utility_pvt.write_conc_log(l_full_name || 'Status Updated for the fund ' || l_new_fund_rec.fund_id || ' without notifying workflow');

2680: GOTO end_loop;
2681: END IF;
2682:
2683: IF G_DEBUG THEN
2684: ozf_utility_pvt.write_conc_log(l_full_name || 'Status Updated for the fund ' || l_new_fund_rec.fund_id || ' without notifying workflow');
2685: END IF;
2686:
2687: END IF; --end of l_new_fund_rec.status_code = 'DRAFT'
2688:

Line 2690: ozf_utility_pvt.write_conc_log(l_full_name || ' Just Before invoking the transfer fund API ');

2686:
2687: END IF; --end of l_new_fund_rec.status_code = 'DRAFT'
2688:
2689: IF G_DEBUG THEN
2690: ozf_utility_pvt.write_conc_log(l_full_name || ' Just Before invoking the transfer fund API ');
2691: END IF;
2692:
2693: -- transfer untilized amount from precious budget to new budget when new budget is ACTIVE
2694: -- and and the end date for the previous budget passed sysdate.

Line 2712: ozf_utility_pvt.write_conc_log(' Transferring failed for the fund : '|| l_new_fund_rec.fund_id);

2708: ,p_fund_currency =>l_new_fund_rec.currency_code_tc
2709: );
2710:
2711: IF NOT (l_return_status = fnd_api.g_ret_sts_success) THEN
2712: ozf_utility_pvt.write_conc_log(' Transferring failed for the fund : '|| l_new_fund_rec.fund_id);
2713: ozf_utility_pvt.write_conc_log(l_msg_data);
2714: GOTO end_loop;
2715: END IF;
2716:

Line 2713: ozf_utility_pvt.write_conc_log(l_msg_data);

2709: );
2710:
2711: IF NOT (l_return_status = fnd_api.g_ret_sts_success) THEN
2712: ozf_utility_pvt.write_conc_log(' Transferring failed for the fund : '|| l_new_fund_rec.fund_id);
2713: ozf_utility_pvt.write_conc_log(l_msg_data);
2714: GOTO end_loop;
2715: END IF;
2716:
2717: IF G_DEBUG THEN

Line 2718: ozf_utility_pvt.write_conc_log(l_full_name || ' Transferring done for the fund ' || l_new_fund_rec.fund_id);

2714: GOTO end_loop;
2715: END IF;
2716:
2717: IF G_DEBUG THEN
2718: ozf_utility_pvt.write_conc_log(l_full_name || ' Transferring done for the fund ' || l_new_fund_rec.fund_id);
2719: END IF;
2720:
2721: END IF; -- l_new_fund_rec.original_budget <> 0.
2722:

Line 2729: ozf_utility_pvt.write_conc_log(l_full_name || ' l_object_version is ' || l_object_version);

2725: FETCH c_prec_fund into l_end_date,l_object_version;
2726: CLOSE c_prec_fund;
2727:
2728: IF G_DEBUG THEN
2729: ozf_utility_pvt.write_conc_log(l_full_name || ' l_object_version is ' || l_object_version);
2730: END IF;
2731:
2732: -- set transfered_flag for new budget to 'Y'.
2733: l_fund_rec.fund_id := l_new_fund_rec.fund_id;

Line 2753: ozf_utility_pvt.write_conc_log(l_full_name || ' The transferred flag set to Yes ');

2749: GOTO end_loop;
2750: END IF;
2751:
2752: IF G_DEBUG THEN
2753: ozf_utility_pvt.write_conc_log(l_full_name || ' The transferred flag set to Yes ');
2754: END IF;
2755:
2756: END IF; -- end of l_end_date.
2757:

Line 2774: ozf_utility_pvt.debug_message(l_full_name || ': end');

2770: ,p_count => x_msg_count
2771: ,p_data => x_msg_data);
2772:
2773: IF G_DEBUG THEN
2774: ozf_utility_pvt.debug_message(l_full_name || ': end');
2775: END IF;
2776:
2777: EXCEPTION
2778: WHEN fnd_api.g_exc_error THEN

Line 2896: ozf_utility_pvt.write_conc_log(l_full_name || ': start');

2892:
2893: BEGIN
2894:
2895: IF G_DEBUG THEN
2896: ozf_utility_pvt.write_conc_log(l_full_name || ': start');
2897: ozf_utility_pvt.write_conc_log(l_full_name || ': fund_id passed ' || l_fund_id);
2898: ozf_utility_pvt.write_conc_log(l_full_name || ': query_id passed ' || p_query_id);
2899: ozf_utility_pvt.write_conc_log(l_full_name || ': hierarchy_flag passed ' || p_hierarchy_flag);
2900: ozf_utility_pvt.write_conc_log(l_full_name || ': amount_flag passed ' || p_amount_flag);

Line 2897: ozf_utility_pvt.write_conc_log(l_full_name || ': fund_id passed ' || l_fund_id);

2893: BEGIN
2894:
2895: IF G_DEBUG THEN
2896: ozf_utility_pvt.write_conc_log(l_full_name || ': start');
2897: ozf_utility_pvt.write_conc_log(l_full_name || ': fund_id passed ' || l_fund_id);
2898: ozf_utility_pvt.write_conc_log(l_full_name || ': query_id passed ' || p_query_id);
2899: ozf_utility_pvt.write_conc_log(l_full_name || ': hierarchy_flag passed ' || p_hierarchy_flag);
2900: ozf_utility_pvt.write_conc_log(l_full_name || ': amount_flag passed ' || p_amount_flag);
2901: END IF;

Line 2898: ozf_utility_pvt.write_conc_log(l_full_name || ': query_id passed ' || p_query_id);

2894:
2895: IF G_DEBUG THEN
2896: ozf_utility_pvt.write_conc_log(l_full_name || ': start');
2897: ozf_utility_pvt.write_conc_log(l_full_name || ': fund_id passed ' || l_fund_id);
2898: ozf_utility_pvt.write_conc_log(l_full_name || ': query_id passed ' || p_query_id);
2899: ozf_utility_pvt.write_conc_log(l_full_name || ': hierarchy_flag passed ' || p_hierarchy_flag);
2900: ozf_utility_pvt.write_conc_log(l_full_name || ': amount_flag passed ' || p_amount_flag);
2901: END IF;
2902:

Line 2899: ozf_utility_pvt.write_conc_log(l_full_name || ': hierarchy_flag passed ' || p_hierarchy_flag);

2895: IF G_DEBUG THEN
2896: ozf_utility_pvt.write_conc_log(l_full_name || ': start');
2897: ozf_utility_pvt.write_conc_log(l_full_name || ': fund_id passed ' || l_fund_id);
2898: ozf_utility_pvt.write_conc_log(l_full_name || ': query_id passed ' || p_query_id);
2899: ozf_utility_pvt.write_conc_log(l_full_name || ': hierarchy_flag passed ' || p_hierarchy_flag);
2900: ozf_utility_pvt.write_conc_log(l_full_name || ': amount_flag passed ' || p_amount_flag);
2901: END IF;
2902:
2903: -- only create new budget in following case, otherwise this concurrent program only update and transfer unutilized for

Line 2900: ozf_utility_pvt.write_conc_log(l_full_name || ': amount_flag passed ' || p_amount_flag);

2896: ozf_utility_pvt.write_conc_log(l_full_name || ': start');
2897: ozf_utility_pvt.write_conc_log(l_full_name || ': fund_id passed ' || l_fund_id);
2898: ozf_utility_pvt.write_conc_log(l_full_name || ': query_id passed ' || p_query_id);
2899: ozf_utility_pvt.write_conc_log(l_full_name || ': hierarchy_flag passed ' || p_hierarchy_flag);
2900: ozf_utility_pvt.write_conc_log(l_full_name || ': amount_flag passed ' || p_amount_flag);
2901: END IF;
2902:
2903: -- only create new budget in following case, otherwise this concurrent program only update and transfer unutilized for
2904: -- budgets created through mass transfer.

Line 2933: ozf_utility_pvt.write_conc_log(l_full_name || ' The Final SQL Formed: ' || l_sql);

2929: OPEN c_get_fund_id FOR l_sql;
2930: END IF;
2931:
2932: IF G_DEBUG THEN
2933: ozf_utility_pvt.write_conc_log(l_full_name || ' The Final SQL Formed: ' || l_sql);
2934: END IF;
2935:
2936: -- Here getting the fund_id returned by the personalized Query
2937: LOOP

Line 2956: ozf_utility_pvt.write_conc_log(l_full_name || ' fund id: ' || l_root_fund_id);

2952: FETCH c_get_fund_details into l_fund_rec;
2953: CLOSE c_get_fund_details;
2954:
2955: IF G_DEBUG THEN
2956: ozf_utility_pvt.write_conc_log(l_full_name || ' fund id: ' || l_root_fund_id);
2957: END IF;
2958:
2959: IF l_fund_rec.fund_id is NOT NULL THEN
2960:

Line 2962: ozf_utility_pvt.write_conc_log(l_full_name || ' inside loop for creating new fund for fund id: ' || l_fund_rec.fund_id);

2958:
2959: IF l_fund_rec.fund_id is NOT NULL THEN
2960:
2961: IF G_DEBUG THEN
2962: ozf_utility_pvt.write_conc_log(l_full_name || ' inside loop for creating new fund for fund id: ' || l_fund_rec.fund_id);
2963: END IF;
2964:
2965: l_fund_rec.status_code := 'DRAFT';
2966: -- If the flag is false set amount to 0 else take the default one ....

Line 2983: ozf_utility_pvt.write_conc_log('Error in creating new fund for fund id ' || l_root_fund_id);

2979:
2980: IF l_par_fund_id IS NOT NULL THEN
2981: l_fund_rec.parent_fund_id := l_par_fund_id;
2982: ELSE
2983: ozf_utility_pvt.write_conc_log('Error in creating new fund for fund id ' || l_root_fund_id);
2984: ozf_utility_pvt.write_conc_log('----Next period budget doesn''t exist for parent fund id ' || l_fund_rec.parent_fund_id);
2985: l_return_status := fnd_api.g_ret_sts_error;
2986: GOTO end_loop;
2987: END IF;

Line 2984: ozf_utility_pvt.write_conc_log('----Next period budget doesn''t exist for parent fund id ' || l_fund_rec.parent_fund_id);

2980: IF l_par_fund_id IS NOT NULL THEN
2981: l_fund_rec.parent_fund_id := l_par_fund_id;
2982: ELSE
2983: ozf_utility_pvt.write_conc_log('Error in creating new fund for fund id ' || l_root_fund_id);
2984: ozf_utility_pvt.write_conc_log('----Next period budget doesn''t exist for parent fund id ' || l_fund_rec.parent_fund_id);
2985: l_return_status := fnd_api.g_ret_sts_error;
2986: GOTO end_loop;
2987: END IF;
2988: END IF;

Line 3003: ozf_utility_pvt.write_conc_log('Error in creating new fund for fund id ' || l_root_fund_id);

2999: ,x_new_fund_id => l_new_fund_id
3000: );
3001:
3002: IF NOT (l_return_status = fnd_api.g_ret_sts_success) THEN
3003: ozf_utility_pvt.write_conc_log('Error in creating new fund for fund id ' || l_root_fund_id);
3004: GOTO end_loop;
3005: END IF;
3006:
3007: ozf_utility_pvt.write_conc_log('New fund created for budget ' || l_root_fund_id || ' with fund_id ' || l_new_fund_id);

Line 3007: ozf_utility_pvt.write_conc_log('New fund created for budget ' || l_root_fund_id || ' with fund_id ' || l_new_fund_id);

3003: ozf_utility_pvt.write_conc_log('Error in creating new fund for fund id ' || l_root_fund_id);
3004: GOTO end_loop;
3005: END IF;
3006:
3007: ozf_utility_pvt.write_conc_log('New fund created for budget ' || l_root_fund_id || ' with fund_id ' || l_new_fund_id);
3008:
3009: END IF; -- end of l_fund_rec.fund_id is NOT NULL.
3010:
3011: IF l_hierarchy_flag = 'Y' THEN

Line 3019: ozf_utility_pvt.write_conc_log(l_full_name || ' child budget fund id: ' || l_child_fund_id);

3015: FETCH c_get_hierarchy_budgets INTO l_child_fund_id, l_parent_fund_id;
3016: EXIT WHEN c_get_hierarchy_budgets%NOTFOUND;
3017:
3018: IF G_DEBUG THEN
3019: ozf_utility_pvt.write_conc_log(l_full_name || ' child budget fund id: ' || l_child_fund_id);
3020: END IF;
3021:
3022: l_child_fund_rec := NULL;
3023:

Line 3038: ozf_utility_pvt.write_conc_log('Error in creating new fund for fund id ' || l_child_fund_id);

3034: FETCH c_get_parent_budget into l_child_fund_rec.parent_fund_id;
3035: CLOSE c_get_parent_budget;
3036:
3037: IF l_child_fund_rec.parent_fund_id IS NULL THEN
3038: ozf_utility_pvt.write_conc_log('Error in creating new fund for fund id ' || l_child_fund_id);
3039: ozf_utility_pvt.write_conc_log('----Next period budget doesn''t exist for parent fund id ' || l_parent_fund_id);
3040: l_return_status := fnd_api.g_ret_sts_error;
3041: GOTO end_loop;
3042: END IF;

Line 3039: ozf_utility_pvt.write_conc_log('----Next period budget doesn''t exist for parent fund id ' || l_parent_fund_id);

3035: CLOSE c_get_parent_budget;
3036:
3037: IF l_child_fund_rec.parent_fund_id IS NULL THEN
3038: ozf_utility_pvt.write_conc_log('Error in creating new fund for fund id ' || l_child_fund_id);
3039: ozf_utility_pvt.write_conc_log('----Next period budget doesn''t exist for parent fund id ' || l_parent_fund_id);
3040: l_return_status := fnd_api.g_ret_sts_error;
3041: GOTO end_loop;
3042: END IF;
3043:

Line 3050: ozf_utility_pvt.write_conc_log(l_full_name || ' parent_fund_id: ' || l_child_fund_rec.parent_fund_id);

3046: l_child_fund_rec.original_budget := 0;
3047: END IF;
3048:
3049: IF G_DEBUG THEN
3050: ozf_utility_pvt.write_conc_log(l_full_name || ' parent_fund_id: ' || l_child_fund_rec.parent_fund_id);
3051: END IF;
3052:
3053: -- create fund corresonding to this child budget
3054: create_new_funds(p_api_version => 1.0

Line 3066: ozf_utility_pvt.write_conc_log('Error in creating new fund for fund id ' || l_child_fund_id);

3062: ,x_new_fund_id => l_new_fund_id
3063: );
3064:
3065: IF NOT (l_return_status = fnd_api.g_ret_sts_success) THEN
3066: ozf_utility_pvt.write_conc_log('Error in creating new fund for fund id ' || l_child_fund_id);
3067: GOTO end_loop;
3068: END IF;
3069:
3070: ozf_utility_pvt.write_conc_log('New fund created for child budget ' || l_child_fund_id ||' with fund id ' || l_new_fund_id);

Line 3070: ozf_utility_pvt.write_conc_log('New fund created for child budget ' || l_child_fund_id ||' with fund id ' || l_new_fund_id);

3066: ozf_utility_pvt.write_conc_log('Error in creating new fund for fund id ' || l_child_fund_id);
3067: GOTO end_loop;
3068: END IF;
3069:
3070: ozf_utility_pvt.write_conc_log('New fund created for child budget ' || l_child_fund_id ||' with fund id ' || l_new_fund_id);
3071:
3072: ELSE
3073: IF G_DEBUG THEN
3074: ozf_utility_pvt.write_conc_log(l_full_name || ' this budget already has a next period budget');

Line 3074: ozf_utility_pvt.write_conc_log(l_full_name || ' this budget already has a next period budget');

3070: ozf_utility_pvt.write_conc_log('New fund created for child budget ' || l_child_fund_id ||' with fund id ' || l_new_fund_id);
3071:
3072: ELSE
3073: IF G_DEBUG THEN
3074: ozf_utility_pvt.write_conc_log(l_full_name || ' this budget already has a next period budget');
3075: END IF;
3076: END IF; -- end of l_child_fund_rec.fund_id is NOT NULL.
3077:
3078: END LOOP; -- end of loop for c_get_hierarchy_budgets.

Line 3093: ozf_utility_pvt.write_conc_log (x_msg_data);

3089: fnd_msg_pub.count_and_get(p_count => x_msg_count
3090: ,p_data => x_msg_data
3091: ,p_encoded => fnd_api.g_false
3092: );
3093: ozf_utility_pvt.write_conc_log (x_msg_data);
3094: END IF;
3095:
3096: END LOOP; -- end of c_get_fund_id.
3097: CLOSE c_get_fund_id;

Line 3118: ozf_utility_pvt.write_conc_log(l_full_name || ' :ends ');

3114: RAISE fnd_api.g_exc_error;
3115: END IF;
3116:
3117: IF G_DEBUG THEN
3118: ozf_utility_pvt.write_conc_log(l_full_name || ' :ends ');
3119: END IF;
3120:
3121: EXCEPTION
3122: WHEN fnd_api.g_exc_error THEN

Line 3130: ozf_utility_pvt.write_conc_log (x_errbuf);

3126: fnd_msg_pub.count_and_get(p_count => x_msg_count
3127: ,p_data => x_msg_data
3128: ,p_encoded => fnd_api.g_false
3129: );
3130: ozf_utility_pvt.write_conc_log (x_errbuf);
3131: WHEN fnd_api.g_exc_unexpected_error THEN
3132: ROLLBACK;
3133: x_retcode := 1;
3134: x_errbuf := x_msg_data;

Line 3139: ozf_utility_pvt.write_conc_log (x_errbuf);

3135: fnd_msg_pub.count_and_get(p_count => x_msg_count
3136: ,p_data => x_msg_data
3137: ,p_encoded => fnd_api.g_false
3138: );
3139: ozf_utility_pvt.write_conc_log (x_errbuf);
3140: WHEN OTHERS THEN
3141: ROLLBACK;
3142: x_retcode := 1;
3143: x_errbuf := x_msg_data;

Line 3148: ozf_utility_pvt.write_conc_log (x_errbuf);

3144: fnd_msg_pub.count_and_get(p_count => x_msg_count
3145: ,p_data => x_msg_data
3146: ,p_encoded => fnd_api.g_false
3147: );
3148: ozf_utility_pvt.write_conc_log (x_errbuf);
3149:
3150: END open_next_years_budget;
3151:
3152: END ozf_fund_reconcile_pvt;