87: -- PURPOSE
88: --
89: -- PARAMETERS
90: -- p_object_type IN VARCHAR2
91: -- p_object_status IN VARCHAR2 :=FND_API.G_MISS_CHAR
92: -- p_object_code IN VARCHAR2 :=fnd_api.G_MISS_CHAR
93: -- p_object_end_date IN DATE := FND_API.G_MISS_DATE
94: -- x_errbuf OUT VARCHAR2 STANDARD OUT PARAMETER
95: -- x_retcode OUT NUMBER STANDARD OUT PARAMETER
88: --
89: -- PARAMETERS
90: -- p_object_type IN VARCHAR2
91: -- p_object_status IN VARCHAR2 :=FND_API.G_MISS_CHAR
92: -- p_object_code IN VARCHAR2 :=fnd_api.G_MISS_CHAR
93: -- p_object_end_date IN DATE := FND_API.G_MISS_DATE
94: -- x_errbuf OUT VARCHAR2 STANDARD OUT PARAMETER
95: -- x_retcode OUT NUMBER STANDARD OUT PARAMETER
96: -- NOTES
89: -- PARAMETERS
90: -- p_object_type IN VARCHAR2
91: -- p_object_status IN VARCHAR2 :=FND_API.G_MISS_CHAR
92: -- p_object_code IN VARCHAR2 :=fnd_api.G_MISS_CHAR
93: -- p_object_end_date IN DATE := FND_API.G_MISS_DATE
94: -- x_errbuf OUT VARCHAR2 STANDARD OUT PARAMETER
95: -- x_retcode OUT NUMBER STANDARD OUT PARAMETER
96: -- NOTES
97: -- This API will release the committed amounts for all offers that are closed or inactivated
322: END IF;
323:
324: -- Campaign
325: IF p_object_type = 'CAMP' THEN
326: IF p_object_status = FND_API.G_MISS_CHAR THEN
327: l_object_status := 'CLOSED,COMPLETED,CANCELLED,ARCHIVED';
328: ELSE
329: l_object_status := p_object_status;
330: END IF;
339:
340: CLOSE c_campaign;
341: -- Campaign Schdules
342: ELSIF p_object_type = 'CSCH' THEN
343: IF p_object_status = FND_API.G_MISS_CHAR THEN
344: l_object_status := 'CLOSED,COMPLETED,CANCELLED,ARCHIVED';
345: ELSE
346: l_object_status := p_object_status;
347: END IF;
357:
358: CLOSE c_campaign_schl;
359: -- Event Header/Rollup Event
360: ELSIF p_object_type = 'EVEH' THEN
361: IF p_object_status = FND_API.G_MISS_CHAR THEN
362: l_object_status := 'CLOSED,CANCELLED,ARCHIVED,COMPLETED';
363: ELSE
364: l_object_status := p_object_status;
365: END IF;
375:
376: CLOSE c_eheader;
377: -- Event one Offer
378: ELSIF p_object_type = 'EONE' THEN
379: IF p_object_status = FND_API.G_MISS_CHAR THEN
380: l_object_status := 'CLOSED,CANCELLED,ARCHIVED,COMPLETED';
381: ELSE
382: l_object_status := p_object_status;
383: END IF;
392: END LOOP;
393:
394: CLOSE c_eoffer;
395: ELSIF p_object_type = 'EVEO' THEN --event schedule
396: IF p_object_status = FND_API.G_MISS_CHAR THEN
397: l_object_status := 'CLOSED,CANCELLED,ARCHIVED,COMPLETED';
398: ELSE
399: l_object_status := p_object_status;
400: END IF;
411: CLOSE c_esch;
412:
413: -- Deliverable
414: ELSIF p_object_type = 'DELV' THEN
415: IF p_object_status = FND_API.G_MISS_CHAR THEN
416: l_object_status := 'ARCHIVED';
417: ELSE
418: l_object_status := p_object_status;
419: END IF;
428: END LOOP;
429:
430: CLOSE c_deliverable;
431: ELSIF p_object_type = 'OFFR' THEN
432: IF p_object_status = FND_API.G_MISS_CHAR THEN
433: l_object_status := 'CLOSED,COMPLETED,TERMINATED';
434: ELSE
435: l_object_status := p_object_status;
436: END IF;
446: END LOOP;
447:
448: CLOSE c_offer;
449: ELSIF p_object_type = 'SOFT_FUND' THEN -- for softfund, add by feliu on 01/11/04
450: IF p_object_status = FND_API.G_MISS_CHAR OR p_object_status is NULL THEN
451: l_object_status := 'APPROVED';
452: ELSE
453: l_object_status := p_object_status;
454: END IF;
463: END LOOP;
464:
465: CLOSE c_sf_request;
466: ELSIF p_object_type = 'SPECIAL_PRICE' THEN -- for special pricing, add by feliu on 01/11/04
467: IF p_object_status = FND_API.G_MISS_CHAR THEN
468: l_object_status := 'APPROVED';
469: ELSE
470: l_object_status := p_object_status;
471: END IF;
506: ,x_msg_count=> l_msg_count
507: ,x_msg_data=> l_msg_data
508: );
509:
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);
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
519: ,p_data=> x_msg_data
520: );*/
521:
520: );*/
521:
522: END IF;
523:
524: IF l_return_status = fnd_api.g_ret_sts_success THEN
525: IF p_object_type = 'CAMP' THEN
526: UPDATE ams_campaigns_all_b
527: SET accounts_closed_flag = 'Y'
528: WHERE campaign_id = l_object_tbl (k).object_id;
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
582: );
583: EXCEPTION
583: EXCEPTION
584:
585: WHEN OTHERS THEN
586: -ROLLBACK TO release_fund_conc;
587: x_return_status := fnd_api.g_ret_sts_unexp_error;
588:
589: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
590: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
591: END IF;
592:
593: fnd_msg_pub.count_and_get (
594: p_count=> x_msg_count
595: ,p_data=> x_msg_data
596: ,p_encoded=> fnd_api.g_false
597: );
598: */
599: EXCEPTION
600: WHEN OTHERS THEN
622: p_budget_used_by_id IN NUMBER
623: ,p_budget_used_by_type IN VARCHAR2
624: ,p_object_currency IN VARCHAR2
625: ,p_api_version IN NUMBER
626: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
627: ,p_commit IN VARCHAR2 := fnd_api.g_false
628: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
629: ,x_return_status OUT NOCOPY VARCHAR2
630: ,x_msg_count OUT NOCOPY NUMBER
623: ,p_budget_used_by_type IN VARCHAR2
624: ,p_object_currency IN VARCHAR2
625: ,p_api_version IN NUMBER
626: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
627: ,p_commit IN VARCHAR2 := fnd_api.g_false
628: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
629: ,x_return_status OUT NOCOPY VARCHAR2
630: ,x_msg_count OUT NOCOPY NUMBER
631: ,x_msg_data OUT NOCOPY VARCHAR2
624: ,p_object_currency IN VARCHAR2
625: ,p_api_version IN NUMBER
626: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
627: ,p_commit IN VARCHAR2 := fnd_api.g_false
628: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
629: ,x_return_status OUT NOCOPY VARCHAR2
630: ,x_msg_count OUT NOCOPY NUMBER
631: ,x_msg_data OUT NOCOPY VARCHAR2
632: ) IS
706: AND a1.budget_source_id = p_fund_id;
707:
708: l_parent_source_rec c_parent_source_fund%ROWTYPE;
709: l_api_version NUMBER := 1.0;
710: l_return_status VARCHAR2 (1) := fnd_api.g_ret_sts_success;
711: l_api_name VARCHAR2 (60) := 'reconcile_budget_line';
712: l_act_budget_id NUMBER;
713: l_act_budgets_rec ozf_actbudgets_pvt.act_budgets_rec_type;
714: l_source_from_par_flag VARCHAR2 (1);
721: l_currency_code VARCHAR2 (30);
722:
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:
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;
732: END IF;
733:
734: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
730: IF fnd_api.to_boolean (p_init_msg_list) THEN
731: fnd_msg_pub.initialize;
732: END IF;
733:
734: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
735: RAISE fnd_api.g_exc_unexpected_error;
736: END IF;
737:
738: IF p_budget_used_by_type = 'OFFR' THEN
731: fnd_msg_pub.initialize;
732: END IF;
733:
734: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
735: RAISE fnd_api.g_exc_unexpected_error;
736: END IF;
737:
738: IF p_budget_used_by_type = 'OFFR' THEN
739: OPEN c_offer_data(p_budget_used_by_id);
842: );*/
843:
844: l_act_budgets_rec.approved_original_amount := l_parent_source_rec.plan_curr_total_amount;
845:
846: IF l_return_status = fnd_api.g_ret_sts_error THEN
847: RAISE fnd_api.g_exc_error;
848: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
849: RAISE fnd_api.g_exc_unexpected_error;
850: END IF;
843:
844: l_act_budgets_rec.approved_original_amount := l_parent_source_rec.plan_curr_total_amount;
845:
846: IF l_return_status = fnd_api.g_ret_sts_error THEN
847: RAISE fnd_api.g_exc_error;
848: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
849: RAISE fnd_api.g_exc_unexpected_error;
850: END IF;
851:
844: l_act_budgets_rec.approved_original_amount := l_parent_source_rec.plan_curr_total_amount;
845:
846: IF l_return_status = fnd_api.g_ret_sts_error THEN
847: RAISE fnd_api.g_exc_error;
848: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
849: RAISE fnd_api.g_exc_unexpected_error;
850: END IF;
851:
852:
845:
846: IF l_return_status = fnd_api.g_ret_sts_error THEN
847: RAISE fnd_api.g_exc_error;
848: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
849: RAISE fnd_api.g_exc_unexpected_error;
850: END IF;
851:
852:
853: l_act_budgets_rec.approval_date := SYSDATE;
866: ,p_act_budgets_rec=> l_act_budgets_rec
867: ,x_act_budget_id=> l_act_budget_id
868: );
869:
870: IF l_return_status = fnd_api.g_ret_sts_error THEN
871: RAISE fnd_api.g_exc_error;
872: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
873: RAISE fnd_api.g_exc_unexpected_error;
874: END IF;
867: ,x_act_budget_id=> l_act_budget_id
868: );
869:
870: IF l_return_status = fnd_api.g_ret_sts_error THEN
871: RAISE fnd_api.g_exc_error;
872: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
873: RAISE fnd_api.g_exc_unexpected_error;
874: END IF;
875: END IF;
868: );
869:
870: IF l_return_status = fnd_api.g_ret_sts_error THEN
871: RAISE fnd_api.g_exc_error;
872: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
873: RAISE fnd_api.g_exc_unexpected_error;
874: END IF;
875: END IF;
876: END LOOP;
869:
870: IF l_return_status = fnd_api.g_ret_sts_error THEN
871: RAISE fnd_api.g_exc_error;
872: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
873: RAISE fnd_api.g_exc_unexpected_error;
874: END IF;
875: END IF;
876: END LOOP;
877:
909: ,p_from_amount=> l_parent_amount
910: ,x_to_amount=> l_act_budgets_rec.request_amount
911: );
912:
913: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
914: RAISE fnd_api.g_exc_unexpected_error;
915: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
916: RAISE fnd_api.g_exc_error;
917: END IF;
910: ,x_to_amount=> l_act_budgets_rec.request_amount
911: );
912:
913: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
914: RAISE fnd_api.g_exc_unexpected_error;
915: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
916: RAISE fnd_api.g_exc_error;
917: END IF;
918:
911: );
912:
913: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
914: RAISE fnd_api.g_exc_unexpected_error;
915: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
916: RAISE fnd_api.g_exc_error;
917: END IF;
918:
919: END IF;
912:
913: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
914: RAISE fnd_api.g_exc_unexpected_error;
915: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
916: RAISE fnd_api.g_exc_error;
917: END IF;
918:
919: END IF;
920:
944: ,p_act_budgets_rec=> l_act_budgets_rec
945: ,x_act_budget_id=> l_act_budget_id
946: );
947:
948: IF l_return_status = fnd_api.g_ret_sts_error THEN
949: RAISE fnd_api.g_exc_error;
950: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
951: RAISE fnd_api.g_exc_unexpected_error;
952: END IF;
945: ,x_act_budget_id=> l_act_budget_id
946: );
947:
948: IF l_return_status = fnd_api.g_ret_sts_error THEN
949: RAISE fnd_api.g_exc_error;
950: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
951: RAISE fnd_api.g_exc_unexpected_error;
952: END IF;
953: END IF;
946: );
947:
948: IF l_return_status = fnd_api.g_ret_sts_error THEN
949: RAISE fnd_api.g_exc_error;
950: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
951: RAISE fnd_api.g_exc_unexpected_error;
952: END IF;
953: END IF;
954: --END LOOP;
947:
948: IF l_return_status = fnd_api.g_ret_sts_error THEN
949: RAISE fnd_api.g_exc_error;
950: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
951: RAISE fnd_api.g_exc_unexpected_error;
952: END IF;
953: END IF;
954: --END LOOP;
955:
962:
963: fnd_msg_pub.count_and_get (
964: p_count=> x_msg_count
965: ,p_data=> x_msg_data
966: ,p_encoded=> fnd_api.g_false
967: );
968:
969:
970:
968:
969:
970:
971: EXCEPTION
972: WHEN fnd_api.g_exc_error THEN
973: ROLLBACK TO reconcile_budget_line;
974: x_return_status := fnd_api.g_ret_sts_error;
975: fnd_msg_pub.count_and_get (
976: p_count=> x_msg_count
970:
971: EXCEPTION
972: WHEN fnd_api.g_exc_error THEN
973: ROLLBACK TO reconcile_budget_line;
974: x_return_status := fnd_api.g_ret_sts_error;
975: fnd_msg_pub.count_and_get (
976: p_count=> x_msg_count
977: ,p_data=> x_msg_data
978: ,p_encoded=> fnd_api.g_false
974: x_return_status := fnd_api.g_ret_sts_error;
975: fnd_msg_pub.count_and_get (
976: p_count=> x_msg_count
977: ,p_data=> x_msg_data
978: ,p_encoded=> fnd_api.g_false
979: );
980: WHEN fnd_api.g_exc_unexpected_error THEN
981: ROLLBACK TO reconcile_budget_line;
982: x_return_status := fnd_api.g_ret_sts_unexp_error;
976: p_count=> x_msg_count
977: ,p_data=> x_msg_data
978: ,p_encoded=> fnd_api.g_false
979: );
980: WHEN fnd_api.g_exc_unexpected_error THEN
981: ROLLBACK TO reconcile_budget_line;
982: x_return_status := fnd_api.g_ret_sts_unexp_error;
983: fnd_msg_pub.count_and_get (
984: p_count=> x_msg_count
978: ,p_encoded=> fnd_api.g_false
979: );
980: WHEN fnd_api.g_exc_unexpected_error THEN
981: ROLLBACK TO reconcile_budget_line;
982: x_return_status := fnd_api.g_ret_sts_unexp_error;
983: fnd_msg_pub.count_and_get (
984: p_count=> x_msg_count
985: ,p_data=> x_msg_data
986: ,p_encoded=> fnd_api.g_false
982: x_return_status := fnd_api.g_ret_sts_unexp_error;
983: fnd_msg_pub.count_and_get (
984: p_count=> x_msg_count
985: ,p_data=> x_msg_data
986: ,p_encoded=> fnd_api.g_false
987: );
988: WHEN OTHERS THEN
989: ROLLBACK TO reconcile_budget_line;
990: x_return_status := fnd_api.g_ret_sts_unexp_error;
986: ,p_encoded=> fnd_api.g_false
987: );
988: WHEN OTHERS THEN
989: ROLLBACK TO reconcile_budget_line;
990: x_return_status := fnd_api.g_ret_sts_unexp_error;
991:
992: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
993: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
994: END IF;
995:
996: fnd_msg_pub.count_and_get (
997: p_count=> x_msg_count
998: ,p_data=> x_msg_data
999: ,p_encoded=> fnd_api.g_false
1000: );
1001: END reconcile_budget_line;
1002:
1003: /* ---------------------------------------------------------------------
1340: ,p_from_amount=> l_act_budgets_rec.request_amount
1341: ,x_to_amount=> l_act_budgets_rec.approved_original_amount
1342: );
1343:
1344: IF NOT (l_return_status = fnd_api.g_ret_sts_success) THEN
1345: -- ROLLBACK TO offer_loop_savepoint;
1346: --x_retcode := 1;
1347: --x_errbuf := l_msg_data;
1348: l_commit := FALSE;
1376: ,p_from_amount=> l_act_budgets_rec.approved_original_amount -- in offer curr
1377: ,x_to_amount=> l_act_budgets_rec.request_amount -- in budget curr
1378: );
1379:
1380: IF NOT (l_return_status = fnd_api.g_ret_sts_success) THEN
1381: l_commit := FALSE;
1382: EXIT; -- exit budget loop
1383: END IF;
1384: END IF;
1427: ,x_msg_data=> l_msg_data
1428: ,p_act_budgets_rec=> l_act_budgets_rec
1429: ,p_act_util_rec=> l_util_rec
1430: ,x_act_budget_id=> l_act_budget_id
1431: ,p_approval_flag=> fnd_api.g_true
1432: );
1433:
1434: IF NOT (l_return_status = fnd_api.g_ret_sts_success) THEN
1435: l_commit := FALSE;
1430: ,x_act_budget_id=> l_act_budget_id
1431: ,p_approval_flag=> fnd_api.g_true
1432: );
1433:
1434: IF NOT (l_return_status = fnd_api.g_ret_sts_success) THEN
1435: l_commit := FALSE;
1436: EXIT; -- exit budget loop
1437: END IF;
1438: END IF;
1514: --It will increase both committed and utilized amount.
1515:
1516: -- PARAMETERS
1517: -- ,p_api_version IN NUMBER
1518: -- ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1519: -- ,p_commit IN VARCHAR2 := fnd_api.g_false
1520: -- ,x_msg_count OUT NOCOPY NUMBER
1521: -- ,x_msg_data OUT NOCOPY VARCHAR2
1522: -- ,x_return_status OUT NOCOPY VARCHAR2)
1515:
1516: -- PARAMETERS
1517: -- ,p_api_version IN NUMBER
1518: -- ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1519: -- ,p_commit IN VARCHAR2 := fnd_api.g_false
1520: -- ,x_msg_count OUT NOCOPY NUMBER
1521: -- ,x_msg_data OUT NOCOPY VARCHAR2
1522: -- ,x_return_status OUT NOCOPY VARCHAR2)
1523:
1531: (
1532: x_errbuf OUT NOCOPY VARCHAR2
1533: ,x_retcode OUT NOCOPY NUMBER
1534: /*p_api_version IN NUMBER
1535: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1536: ,p_commit IN VARCHAR2 := fnd_api.g_false
1537: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
1538: ,x_return_status OUT NOCOPY VARCHAR2
1539: ,x_msg_count OUT NOCOPY NUMBER
1532: x_errbuf OUT NOCOPY VARCHAR2
1533: ,x_retcode OUT NOCOPY NUMBER
1534: /*p_api_version IN NUMBER
1535: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1536: ,p_commit IN VARCHAR2 := fnd_api.g_false
1537: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
1538: ,x_return_status OUT NOCOPY VARCHAR2
1539: ,x_msg_count OUT NOCOPY NUMBER
1540: ,x_msg_data OUT NOCOPY VARCHAR2 */
1533: ,x_retcode OUT NOCOPY NUMBER
1534: /*p_api_version IN NUMBER
1535: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1536: ,p_commit IN VARCHAR2 := fnd_api.g_false
1537: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
1538: ,x_return_status OUT NOCOPY VARCHAR2
1539: ,x_msg_count OUT NOCOPY NUMBER
1540: ,x_msg_data OUT NOCOPY VARCHAR2 */
1541: ) IS
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
1571: fnd_msg_pub.initialize;
1572: END IF;
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
1571: fnd_msg_pub.initialize;
1572: END IF;
1573:
1574: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1570: /* IF fnd_api.to_boolean (p_init_msg_list) THEN
1571: fnd_msg_pub.initialize;
1572: END IF;
1573:
1574: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1575: RAISE fnd_api.g_exc_unexpected_error;
1576: END IF;
1577: */
1578: FOR l_off_budget_rec IN c_offer_rec
1571: fnd_msg_pub.initialize;
1572: END IF;
1573:
1574: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1575: RAISE fnd_api.g_exc_unexpected_error;
1576: END IF;
1577: */
1578: FOR l_off_budget_rec IN c_offer_rec
1579: LOOP
1581: ozf_fund_adjustment_pvt.post_utilized_budget (
1582: p_offer_id=> l_off_budget_rec.offer_id
1583: ,p_offer_type=> l_off_budget_rec.offer_type
1584: ,p_api_version=> 1
1585: ,p_init_msg_list=> fnd_api.g_false
1586: ,p_commit=> fnd_api.g_false
1587: ,p_check_date => fnd_api.g_false -- no date validation
1588: ,x_msg_count=> l_msg_count
1589: ,x_msg_data=> l_msg_data
1582: p_offer_id=> l_off_budget_rec.offer_id
1583: ,p_offer_type=> l_off_budget_rec.offer_type
1584: ,p_api_version=> 1
1585: ,p_init_msg_list=> fnd_api.g_false
1586: ,p_commit=> fnd_api.g_false
1587: ,p_check_date => fnd_api.g_false -- no date validation
1588: ,x_msg_count=> l_msg_count
1589: ,x_msg_data=> l_msg_data
1590: ,x_return_status=> l_return_status
1583: ,p_offer_type=> l_off_budget_rec.offer_type
1584: ,p_api_version=> 1
1585: ,p_init_msg_list=> fnd_api.g_false
1586: ,p_commit=> fnd_api.g_false
1587: ,p_check_date => fnd_api.g_false -- no date validation
1588: ,x_msg_count=> l_msg_count
1589: ,x_msg_data=> l_msg_data
1590: ,x_return_status=> l_return_status
1591: );
1590: ,x_return_status=> l_return_status
1591: );
1592:
1593:
1594: IF l_return_status = fnd_api.g_ret_sts_success THEN
1595: COMMIT;
1596: x_retcode := 0;
1597: ELSE
1598: IF G_DEBUG THEN
1603: END IF;
1604: END LOOP;
1605:
1606: /* fnd_msg_pub.count_and_get (
1607: p_encoded=> fnd_api.g_false
1608: ,p_count=> x_msg_count
1609: ,p_data=> x_msg_data
1610: );
1611: IF G_DEBUG THEN
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;
1617: x_return_status := fnd_api.g_ret_sts_error;
1618: fnd_msg_pub.count_and_get (
1619: p_count=> x_msg_count
1613: END IF;
1614: EXCEPTION
1615: WHEN fnd_api.g_exc_error THEN
1616: ROLLBACK TO Post_utilized_budget_conc;
1617: x_return_status := fnd_api.g_ret_sts_error;
1618: fnd_msg_pub.count_and_get (
1619: p_count=> x_msg_count
1620: ,p_data=> x_msg_data
1621: ,p_encoded=> fnd_api.g_false
1617: x_return_status := fnd_api.g_ret_sts_error;
1618: fnd_msg_pub.count_and_get (
1619: p_count=> x_msg_count
1620: ,p_data=> x_msg_data
1621: ,p_encoded=> fnd_api.g_false
1622: );
1623: WHEN fnd_api.g_exc_unexpected_error THEN
1624: ROLLBACK TO Post_utilized_budget_conc;
1625: x_return_status := fnd_api.g_ret_sts_unexp_error;
1619: p_count=> x_msg_count
1620: ,p_data=> x_msg_data
1621: ,p_encoded=> fnd_api.g_false
1622: );
1623: WHEN fnd_api.g_exc_unexpected_error THEN
1624: ROLLBACK TO Post_utilized_budget_conc;
1625: x_return_status := fnd_api.g_ret_sts_unexp_error;
1626: fnd_msg_pub.count_and_get (
1627: p_count=> x_msg_count
1621: ,p_encoded=> fnd_api.g_false
1622: );
1623: WHEN fnd_api.g_exc_unexpected_error THEN
1624: ROLLBACK TO Post_utilized_budget_conc;
1625: x_return_status := fnd_api.g_ret_sts_unexp_error;
1626: fnd_msg_pub.count_and_get (
1627: p_count=> x_msg_count
1628: ,p_data=> x_msg_data
1629: ,p_encoded=> fnd_api.g_false
1625: x_return_status := fnd_api.g_ret_sts_unexp_error;
1626: fnd_msg_pub.count_and_get (
1627: p_count=> x_msg_count
1628: ,p_data=> x_msg_data
1629: ,p_encoded=> fnd_api.g_false
1630: );
1631: WHEN OTHERS THEN
1632: ROLLBACK TO Post_utilized_budget_conc;
1633: x_return_status := fnd_api.g_ret_sts_unexp_error;
1629: ,p_encoded=> fnd_api.g_false
1630: );
1631: WHEN OTHERS THEN
1632: ROLLBACK TO Post_utilized_budget_conc;
1633: x_return_status := fnd_api.g_ret_sts_unexp_error;
1634:
1635: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1636: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1637: END IF;
1638:
1639: fnd_msg_pub.count_and_get (
1640: p_count=> x_msg_count
1641: ,p_data=> x_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);
1675: p_budget_used_by_id IN NUMBER
1676: ,p_budget_used_by_type IN VARCHAR2
1677: ,p_object_currency IN VARCHAR2
1678: ,p_api_version IN NUMBER
1679: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1680: ,p_commit IN VARCHAR2 := fnd_api.g_false
1681: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
1682: ,x_return_status OUT NOCOPY VARCHAR2
1683: ,x_msg_count OUT NOCOPY NUMBER
1676: ,p_budget_used_by_type IN VARCHAR2
1677: ,p_object_currency IN VARCHAR2
1678: ,p_api_version IN NUMBER
1679: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1680: ,p_commit IN VARCHAR2 := fnd_api.g_false
1681: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
1682: ,x_return_status OUT NOCOPY VARCHAR2
1683: ,x_msg_count OUT NOCOPY NUMBER
1684: ,x_msg_data OUT NOCOPY VARCHAR2
1677: ,p_object_currency IN VARCHAR2
1678: ,p_api_version IN NUMBER
1679: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1680: ,p_commit IN VARCHAR2 := fnd_api.g_false
1681: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
1682: ,x_return_status OUT NOCOPY VARCHAR2
1683: ,x_msg_count OUT NOCOPY NUMBER
1684: ,x_msg_data OUT NOCOPY VARCHAR2
1685: ) IS
1708:
1709: l_rate NUMBER;
1710: l_parent_source_rec c_parent_source_fund%ROWTYPE;
1711: l_api_version NUMBER := 1.0;
1712: l_return_status VARCHAR2 (1) := fnd_api.g_ret_sts_success;
1713: l_api_name VARCHAR2 (60) := 'reconcile_budget_utilized';
1714: l_full_name CONSTANT VARCHAR2 (80) := g_pkg_name
1715: || '.'
1716: || l_api_name;
1720: l_converted_amt NUMBER;
1721:
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:
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;
1731: END IF;
1732:
1733: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1729: IF fnd_api.to_boolean (p_init_msg_list) THEN
1730: fnd_msg_pub.initialize;
1731: END IF;
1732:
1733: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1734: RAISE fnd_api.g_exc_unexpected_error;
1735: END IF;
1736:
1737: OPEN c_parent_source_fund;
1730: fnd_msg_pub.initialize;
1731: END IF;
1732:
1733: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1734: RAISE fnd_api.g_exc_unexpected_error;
1735: END IF;
1736:
1737: OPEN c_parent_source_fund;
1738:
1777: ,x_rate=> l_rate
1778: );
1779: END IF;
1780:
1781: IF l_return_status = fnd_api.g_ret_sts_error THEN
1782: RAISE fnd_api.g_exc_error;
1783: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1784: RAISE fnd_api.g_exc_unexpected_error;
1785: END IF;
1778: );
1779: END IF;
1780:
1781: IF l_return_status = fnd_api.g_ret_sts_error THEN
1782: RAISE fnd_api.g_exc_error;
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;
1779: END IF;
1780:
1781: IF l_return_status = fnd_api.g_ret_sts_error THEN
1782: RAISE fnd_api.g_exc_error;
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);
1780:
1781: IF l_return_status = fnd_api.g_ret_sts_error THEN
1782: RAISE fnd_api.g_exc_error;
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');
1811: p_act_util_rec =>l_act_util_rec,
1812: x_act_budget_id => l_act_budget_id
1813: ) ;
1814:
1815: IF l_return_status = fnd_api.g_ret_sts_error THEN
1816: RAISE fnd_api.g_exc_error;
1817: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1818: RAISE fnd_api.g_exc_unexpected_error;
1819: END IF;
1812: x_act_budget_id => l_act_budget_id
1813: ) ;
1814:
1815: IF l_return_status = fnd_api.g_ret_sts_error THEN
1816: RAISE fnd_api.g_exc_error;
1817: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1818: RAISE fnd_api.g_exc_unexpected_error;
1819: END IF;
1820: --END IF;
1813: ) ;
1814:
1815: IF l_return_status = fnd_api.g_ret_sts_error THEN
1816: RAISE fnd_api.g_exc_error;
1817: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1818: RAISE fnd_api.g_exc_unexpected_error;
1819: END IF;
1820: --END IF;
1821: END LOOP;
1814:
1815: IF l_return_status = fnd_api.g_ret_sts_error THEN
1816: RAISE fnd_api.g_exc_error;
1817: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1818: RAISE fnd_api.g_exc_unexpected_error;
1819: END IF;
1820: --END IF;
1821: END LOOP;
1822:
1822:
1823: CLOSE c_parent_source_fund;
1824:
1825: fnd_msg_pub.count_and_get (
1826: p_encoded=> fnd_api.g_false
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
1836: ROLLBACK TO reconcile_budget_utilized;
1837: x_return_status := fnd_api.g_ret_sts_error;
1838: fnd_msg_pub.count_and_get (
1839: p_count=> x_msg_count
1833:
1834: EXCEPTION
1835: WHEN fnd_api.g_exc_error THEN
1836: ROLLBACK TO reconcile_budget_utilized;
1837: x_return_status := fnd_api.g_ret_sts_error;
1838: fnd_msg_pub.count_and_get (
1839: p_count=> x_msg_count
1840: ,p_data=> x_msg_data
1841: ,p_encoded=> fnd_api.g_false
1837: x_return_status := fnd_api.g_ret_sts_error;
1838: fnd_msg_pub.count_and_get (
1839: p_count=> x_msg_count
1840: ,p_data=> x_msg_data
1841: ,p_encoded=> fnd_api.g_false
1842: );
1843: WHEN fnd_api.g_exc_unexpected_error THEN
1844: ROLLBACK TO reconcile_budget_utilized;
1845: x_return_status := fnd_api.g_ret_sts_unexp_error;
1839: p_count=> x_msg_count
1840: ,p_data=> x_msg_data
1841: ,p_encoded=> fnd_api.g_false
1842: );
1843: WHEN fnd_api.g_exc_unexpected_error THEN
1844: ROLLBACK TO reconcile_budget_utilized;
1845: x_return_status := fnd_api.g_ret_sts_unexp_error;
1846: fnd_msg_pub.count_and_get (
1847: p_count=> x_msg_count
1841: ,p_encoded=> fnd_api.g_false
1842: );
1843: WHEN fnd_api.g_exc_unexpected_error THEN
1844: ROLLBACK TO reconcile_budget_utilized;
1845: x_return_status := fnd_api.g_ret_sts_unexp_error;
1846: fnd_msg_pub.count_and_get (
1847: p_count=> x_msg_count
1848: ,p_data=> x_msg_data
1849: ,p_encoded=> fnd_api.g_false
1845: x_return_status := fnd_api.g_ret_sts_unexp_error;
1846: fnd_msg_pub.count_and_get (
1847: p_count=> x_msg_count
1848: ,p_data=> x_msg_data
1849: ,p_encoded=> fnd_api.g_false
1850: );
1851: WHEN OTHERS THEN
1852: ROLLBACK TO reconcile_budget_utilized;
1853: x_return_status := fnd_api.g_ret_sts_unexp_error;
1849: ,p_encoded=> fnd_api.g_false
1850: );
1851: WHEN OTHERS THEN
1852: ROLLBACK TO reconcile_budget_utilized;
1853: x_return_status := fnd_api.g_ret_sts_unexp_error;
1854:
1855: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1856: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1857: END IF;
1858:
1859: fnd_msg_pub.count_and_get (
1860: p_count=> x_msg_count
1861: ,p_data=> x_msg_data
1862: ,p_encoded=> fnd_api.g_false
1863: );
1864: END reconcile_budget_utilized;
1865:
1866:
1881: ,p_budget_used_by_type IN VARCHAR2
1882: ,p_object_currency IN VARCHAR2
1883: ,p_from_paid IN VARCHAR2
1884: ,p_api_version IN NUMBER
1885: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1886: ,p_commit IN VARCHAR2 := fnd_api.g_false
1887: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
1888: ,x_return_status OUT NOCOPY VARCHAR2
1889: ,x_msg_count OUT NOCOPY NUMBER
1882: ,p_object_currency IN VARCHAR2
1883: ,p_from_paid IN VARCHAR2
1884: ,p_api_version IN NUMBER
1885: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1886: ,p_commit IN VARCHAR2 := fnd_api.g_false
1887: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
1888: ,x_return_status OUT NOCOPY VARCHAR2
1889: ,x_msg_count OUT NOCOPY NUMBER
1890: ,x_msg_data OUT NOCOPY VARCHAR2
1883: ,p_from_paid IN VARCHAR2
1884: ,p_api_version IN NUMBER
1885: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1886: ,p_commit IN VARCHAR2 := fnd_api.g_false
1887: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
1888: ,x_return_status OUT NOCOPY VARCHAR2
1889: ,x_msg_count OUT NOCOPY NUMBER
1890: ,x_msg_data OUT NOCOPY VARCHAR2
1891: ) IS
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
1909: fnd_msg_pub.initialize;
1910: END IF;
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
1909: fnd_msg_pub.initialize;
1910: END IF;
1911:
1912: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1908: IF fnd_api.to_boolean (p_init_msg_list) THEN
1909: fnd_msg_pub.initialize;
1910: END IF;
1911:
1912: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1913: RAISE fnd_api.g_exc_unexpected_error;
1914: END IF;
1915:
1916: IF p_from_paid = 'Y' THEN
1909: fnd_msg_pub.initialize;
1910: END IF;
1911:
1912: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1913: RAISE fnd_api.g_exc_unexpected_error;
1914: END IF;
1915:
1916: IF p_from_paid = 'Y' THEN
1917:
1924: ,x_msg_count=> l_msg_count
1925: ,x_msg_data=> l_msg_data
1926: );
1927:
1928: IF l_return_status = fnd_api.g_ret_sts_error THEN
1929: RAISE fnd_api.g_exc_error;
1930: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1931: RAISE fnd_api.g_exc_unexpected_error;
1932: END IF;
1925: ,x_msg_data=> l_msg_data
1926: );
1927:
1928: IF l_return_status = fnd_api.g_ret_sts_error THEN
1929: RAISE fnd_api.g_exc_error;
1930: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1931: RAISE fnd_api.g_exc_unexpected_error;
1932: END IF;
1933:
1926: );
1927:
1928: IF l_return_status = fnd_api.g_ret_sts_error THEN
1929: RAISE fnd_api.g_exc_error;
1930: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1931: RAISE fnd_api.g_exc_unexpected_error;
1932: END IF;
1933:
1934: END IF;
1927:
1928: IF l_return_status = fnd_api.g_ret_sts_error THEN
1929: RAISE fnd_api.g_exc_error;
1930: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1931: RAISE fnd_api.g_exc_unexpected_error;
1932: END IF;
1933:
1934: END IF;
1935:
1942: ,x_msg_count=> l_msg_count
1943: ,x_msg_data=> l_msg_data
1944: );
1945:
1946: IF l_return_status = fnd_api.g_ret_sts_error THEN
1947: RAISE fnd_api.g_exc_error;
1948: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1949: RAISE fnd_api.g_exc_unexpected_error;
1950: END IF;
1943: ,x_msg_data=> l_msg_data
1944: );
1945:
1946: IF l_return_status = fnd_api.g_ret_sts_error THEN
1947: RAISE fnd_api.g_exc_error;
1948: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1949: RAISE fnd_api.g_exc_unexpected_error;
1950: END IF;
1951:
1944: );
1945:
1946: IF l_return_status = fnd_api.g_ret_sts_error THEN
1947: RAISE fnd_api.g_exc_error;
1948: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1949: RAISE fnd_api.g_exc_unexpected_error;
1950: END IF;
1951:
1952: fnd_msg_pub.count_and_get (
1945:
1946: IF l_return_status = fnd_api.g_ret_sts_error THEN
1947: RAISE fnd_api.g_exc_error;
1948: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1949: RAISE fnd_api.g_exc_unexpected_error;
1950: END IF;
1951:
1952: fnd_msg_pub.count_and_get (
1953: p_encoded=> fnd_api.g_false
1949: RAISE fnd_api.g_exc_unexpected_error;
1950: END IF;
1951:
1952: fnd_msg_pub.count_and_get (
1953: p_encoded=> fnd_api.g_false
1954: ,p_count=> x_msg_count
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;
1964: x_return_status := fnd_api.g_ret_sts_error;
1965: fnd_msg_pub.count_and_get (
1966: p_count=> x_msg_count
1960: END IF;
1961: EXCEPTION
1962: WHEN fnd_api.g_exc_error THEN
1963: ROLLBACK TO reconcile_line;
1964: x_return_status := fnd_api.g_ret_sts_error;
1965: fnd_msg_pub.count_and_get (
1966: p_count=> x_msg_count
1967: ,p_data=> x_msg_data
1968: ,p_encoded=> fnd_api.g_false
1964: x_return_status := fnd_api.g_ret_sts_error;
1965: fnd_msg_pub.count_and_get (
1966: p_count=> x_msg_count
1967: ,p_data=> x_msg_data
1968: ,p_encoded=> fnd_api.g_false
1969: );
1970: WHEN fnd_api.g_exc_unexpected_error THEN
1971: ROLLBACK TO reconcile_line;
1972: x_return_status := fnd_api.g_ret_sts_unexp_error;
1966: p_count=> x_msg_count
1967: ,p_data=> x_msg_data
1968: ,p_encoded=> fnd_api.g_false
1969: );
1970: WHEN fnd_api.g_exc_unexpected_error THEN
1971: ROLLBACK TO reconcile_line;
1972: x_return_status := fnd_api.g_ret_sts_unexp_error;
1973: fnd_msg_pub.count_and_get (
1974: p_count=> x_msg_count
1968: ,p_encoded=> fnd_api.g_false
1969: );
1970: WHEN fnd_api.g_exc_unexpected_error THEN
1971: ROLLBACK TO reconcile_line;
1972: x_return_status := fnd_api.g_ret_sts_unexp_error;
1973: fnd_msg_pub.count_and_get (
1974: p_count=> x_msg_count
1975: ,p_data=> x_msg_data
1976: ,p_encoded=> fnd_api.g_false
1972: x_return_status := fnd_api.g_ret_sts_unexp_error;
1973: fnd_msg_pub.count_and_get (
1974: p_count=> x_msg_count
1975: ,p_data=> x_msg_data
1976: ,p_encoded=> fnd_api.g_false
1977: );
1978: WHEN OTHERS THEN
1979: ROLLBACK TO reconcile_line;
1980: x_return_status := fnd_api.g_ret_sts_unexp_error;
1976: ,p_encoded=> fnd_api.g_false
1977: );
1978: WHEN OTHERS THEN
1979: ROLLBACK TO reconcile_line;
1980: x_return_status := fnd_api.g_ret_sts_unexp_error;
1981:
1982: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1983: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1984: END IF;
1985:
1986: fnd_msg_pub.count_and_get (
1987: p_count=> x_msg_count
1988: ,p_data=> x_msg_data
1989: ,p_encoded=> fnd_api.g_false
1990: );
1991: END reconcile_line;
1992:
1993:
2098: -- 09/09/2003 niprakas CREATED
2099: ---------------------------------------------------------------------
2100: procedure transferring_unutilized_amount(
2101: p_api_version IN NUMBER
2102: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2103: ,p_commit IN VARCHAR2 := fnd_api.g_false
2104: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
2105: , x_return_status OUT NOCOPY VARCHAR2
2106: ,x_msg_count OUT NOCOPY NUMBER
2099: ---------------------------------------------------------------------
2100: procedure transferring_unutilized_amount(
2101: p_api_version IN NUMBER
2102: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2103: ,p_commit IN VARCHAR2 := fnd_api.g_false
2104: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
2105: , x_return_status OUT NOCOPY VARCHAR2
2106: ,x_msg_count OUT NOCOPY NUMBER
2107: ,x_msg_data OUT NOCOPY VARCHAR2
2100: procedure transferring_unutilized_amount(
2101: p_api_version IN NUMBER
2102: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2103: ,p_commit IN VARCHAR2 := fnd_api.g_false
2104: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
2105: , x_return_status OUT NOCOPY VARCHAR2
2106: ,x_msg_count OUT NOCOPY NUMBER
2107: ,x_msg_data OUT NOCOPY VARCHAR2
2108: ,p_fund_id IN NUMBER
2272: ,p_from_amount=> l_old_fund_obj.total_amount
2273: ,x_to_amount=> l_object_curr_amount
2274: );
2275:
2276: IF x_return_status = fnd_api.g_ret_sts_error THEN
2277: RAISE fnd_api.g_exc_error;
2278: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
2279: RAISE fnd_api.g_exc_unexpected_error;
2280: END IF;
2273: ,x_to_amount=> l_object_curr_amount
2274: );
2275:
2276: IF x_return_status = fnd_api.g_ret_sts_error THEN
2277: RAISE fnd_api.g_exc_error;
2278: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
2279: RAISE fnd_api.g_exc_unexpected_error;
2280: END IF;
2281: */
2274: );
2275:
2276: IF x_return_status = fnd_api.g_ret_sts_error THEN
2277: RAISE fnd_api.g_exc_error;
2278: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
2279: RAISE fnd_api.g_exc_unexpected_error;
2280: END IF;
2281: */
2282:
2275:
2276: IF x_return_status = fnd_api.g_ret_sts_error THEN
2277: RAISE fnd_api.g_exc_error;
2278: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
2279: RAISE fnd_api.g_exc_unexpected_error;
2280: END IF;
2281: */
2282:
2283: l_act_budgets_rec.approved_in_currency := l_old_fund_obj.object_currency;
2299: ,p_act_budgets_rec=> l_act_budgets_rec
2300: ,x_act_budget_id=> l_act_budget_id
2301: );
2302:
2303: IF l_return_status = fnd_api.g_ret_sts_error THEN
2304: RAISE fnd_api.g_exc_error;
2305: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2306: RAISE fnd_api.g_exc_unexpected_error;
2307: END IF;
2300: ,x_act_budget_id=> l_act_budget_id
2301: );
2302:
2303: IF l_return_status = fnd_api.g_ret_sts_error THEN
2304: RAISE fnd_api.g_exc_error;
2305: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2306: RAISE fnd_api.g_exc_unexpected_error;
2307: END IF;
2308:
2301: );
2302:
2303: IF l_return_status = fnd_api.g_ret_sts_error THEN
2304: RAISE fnd_api.g_exc_error;
2305: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2306: RAISE fnd_api.g_exc_unexpected_error;
2307: END IF;
2308:
2309: IF G_DEBUG THEN
2302:
2303: IF l_return_status = fnd_api.g_ret_sts_error THEN
2304: RAISE fnd_api.g_exc_error;
2305: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
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 '
2343: ,x_msg_data=> x_msg_data
2344: ,p_act_budgets_rec=> l_act_budgets_rec
2345: ,p_act_util_rec=> l_util_rec
2346: ,x_act_budget_id=> l_act_budget_id
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);
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;
2356: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2357: RAISE fnd_api.g_exc_unexpected_error;
2358: END IF;
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;
2356: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2357: RAISE fnd_api.g_exc_unexpected_error;
2358: END IF;
2359:
2352: END IF;
2353:
2354: IF l_return_status = fnd_api.g_ret_sts_error THEN
2355: RAISE fnd_api.g_exc_error;
2356: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2357: RAISE fnd_api.g_exc_unexpected_error;
2358: END IF;
2359:
2360: IF G_DEBUG THEN
2353:
2354: IF l_return_status = fnd_api.g_ret_sts_error THEN
2355: RAISE fnd_api.g_exc_error;
2356: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
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 '
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:
2380: fnd_msg_pub.count_and_get(
2381: p_encoded => fnd_api.g_false
2382: ,p_count => x_msg_count
2377:
2378: x_return_status := fnd_api.g_ret_sts_success;
2379:
2380: fnd_msg_pub.count_and_get(
2381: p_encoded => fnd_api.g_false
2382: ,p_count => x_msg_count
2383: ,p_data => x_msg_data);
2384: EXCEPTION
2385: WHEN fnd_api.g_exc_error THEN
2381: p_encoded => fnd_api.g_false
2382: ,p_count => x_msg_count
2383: ,p_data => x_msg_data);
2384: EXCEPTION
2385: WHEN fnd_api.g_exc_error THEN
2386: x_return_status := fnd_api.g_ret_sts_error;
2387: fnd_msg_pub.count_and_get(
2388: p_encoded => fnd_api.g_false
2389: ,p_count => x_msg_count
2382: ,p_count => x_msg_count
2383: ,p_data => x_msg_data);
2384: EXCEPTION
2385: WHEN fnd_api.g_exc_error THEN
2386: x_return_status := fnd_api.g_ret_sts_error;
2387: fnd_msg_pub.count_and_get(
2388: p_encoded => fnd_api.g_false
2389: ,p_count => x_msg_count
2390: ,p_data => x_msg_data);
2384: EXCEPTION
2385: WHEN fnd_api.g_exc_error THEN
2386: x_return_status := fnd_api.g_ret_sts_error;
2387: fnd_msg_pub.count_and_get(
2388: p_encoded => fnd_api.g_false
2389: ,p_count => x_msg_count
2390: ,p_data => x_msg_data);
2391: WHEN fnd_api.g_exc_unexpected_error THEN
2392: x_return_status := fnd_api.g_ret_sts_unexp_error;
2387: fnd_msg_pub.count_and_get(
2388: p_encoded => fnd_api.g_false
2389: ,p_count => x_msg_count
2390: ,p_data => x_msg_data);
2391: WHEN fnd_api.g_exc_unexpected_error THEN
2392: x_return_status := fnd_api.g_ret_sts_unexp_error;
2393: fnd_msg_pub.count_and_get(
2394: p_encoded => fnd_api.g_false
2395: ,p_count => x_msg_count
2388: p_encoded => fnd_api.g_false
2389: ,p_count => x_msg_count
2390: ,p_data => x_msg_data);
2391: WHEN fnd_api.g_exc_unexpected_error THEN
2392: x_return_status := fnd_api.g_ret_sts_unexp_error;
2393: fnd_msg_pub.count_and_get(
2394: p_encoded => fnd_api.g_false
2395: ,p_count => x_msg_count
2396: ,p_data => x_msg_data);
2390: ,p_data => x_msg_data);
2391: WHEN fnd_api.g_exc_unexpected_error THEN
2392: x_return_status := fnd_api.g_ret_sts_unexp_error;
2393: fnd_msg_pub.count_and_get(
2394: p_encoded => fnd_api.g_false
2395: ,p_count => x_msg_count
2396: ,p_data => x_msg_data);
2397: WHEN OTHERS THEN
2398: x_return_status := fnd_api.g_ret_sts_unexp_error;
2394: p_encoded => fnd_api.g_false
2395: ,p_count => x_msg_count
2396: ,p_data => x_msg_data);
2397: WHEN OTHERS THEN
2398: x_return_status := fnd_api.g_ret_sts_unexp_error;
2399: fnd_msg_pub.count_and_get(
2400: p_encoded => fnd_api.g_false
2401: ,p_count => x_msg_count
2402: ,p_data => x_msg_data);
2396: ,p_data => x_msg_data);
2397: WHEN OTHERS THEN
2398: x_return_status := fnd_api.g_ret_sts_unexp_error;
2399: fnd_msg_pub.count_and_get(
2400: p_encoded => fnd_api.g_false
2401: ,p_count => x_msg_count
2402: ,p_data => x_msg_data);
2403: END transferring_unutilized_amount;
2404: /*****************************************************************************************/
2413: ---------------------------------------------------------------------
2414:
2415: procedure create_new_funds(
2416: p_api_version IN NUMBER
2417: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2418: ,p_commit IN VARCHAR2 := fnd_api.g_false
2419: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
2420: ,x_return_status OUT NOCOPY VARCHAR2
2421: ,x_msg_count OUT NOCOPY NUMBER
2414:
2415: procedure create_new_funds(
2416: p_api_version IN NUMBER
2417: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2418: ,p_commit IN VARCHAR2 := fnd_api.g_false
2419: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
2420: ,x_return_status OUT NOCOPY VARCHAR2
2421: ,x_msg_count OUT NOCOPY NUMBER
2422: ,x_msg_data OUT NOCOPY VARCHAR2
2415: procedure create_new_funds(
2416: p_api_version IN NUMBER
2417: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2418: ,p_commit IN VARCHAR2 := fnd_api.g_false
2419: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
2420: ,x_return_status OUT NOCOPY VARCHAR2
2421: ,x_msg_count OUT NOCOPY NUMBER
2422: ,x_msg_data OUT NOCOPY VARCHAR2
2423: ,p_fund_rec IN OZF_FUNDS_ALL_VL%ROWTYPE,
2429: l_api_name CONSTANT VARCHAR2(30)
2430: := 'create_new_funds';
2431: l_full_name CONSTANT VARCHAR2(60)
2432: := g_pkg_name || '.' || l_api_name;
2433: l_return_status VARCHAR2(1) := FND_API.g_ret_sts_success;
2434: l_msg_count NUMBER;
2435: l_msg_data VARCHAR2(10000);
2436:
2437: l_fund_rec OZF_FUNDS_ALL_VL%ROWTYPE := p_fund_rec;
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;
2462: END IF;
2463:
2464: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2460: IF fnd_api.to_boolean(p_init_msg_list) THEN
2461: fnd_msg_pub.initialize;
2462: END IF;
2463:
2464: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2465: RAISE fnd_api.g_exc_unexpected_error;
2466: END IF;
2467:
2468: x_return_status := fnd_api.g_ret_sts_success;
2461: fnd_msg_pub.initialize;
2462: END IF;
2463:
2464: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2465: RAISE fnd_api.g_exc_unexpected_error;
2466: END IF;
2467:
2468: x_return_status := fnd_api.g_ret_sts_success;
2469:
2464: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2465: RAISE fnd_api.g_exc_unexpected_error;
2466: END IF;
2467:
2468: x_return_status := fnd_api.g_ret_sts_success;
2469:
2470: l_fund_rec_type.parent_fund_id := l_fund_rec.parent_fund_id;
2471: l_fund_rec_type.status_code := l_fund_rec.status_code;
2472: l_fund_rec_type.original_budget := l_fund_rec.original_budget;
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
2508: ,p_commit => fnd_api.g_false
2509: ,p_validation_level => fnd_api.g_valid_level_full
2510: ,x_return_status => l_return_status
2511: ,x_msg_count => l_msg_count
2504: END IF;
2505:
2506: OZF_funds_pvt.create_fund(p_api_version => 1.0
2507: ,p_init_msg_list => fnd_api.g_false
2508: ,p_commit => fnd_api.g_false
2509: ,p_validation_level => fnd_api.g_valid_level_full
2510: ,x_return_status => l_return_status
2511: ,x_msg_count => l_msg_count
2512: ,x_msg_data => l_msg_data
2505:
2506: OZF_funds_pvt.create_fund(p_api_version => 1.0
2507: ,p_init_msg_list => fnd_api.g_false
2508: ,p_commit => fnd_api.g_false
2509: ,p_validation_level => fnd_api.g_valid_level_full
2510: ,x_return_status => l_return_status
2511: ,x_msg_count => l_msg_count
2512: ,x_msg_data => l_msg_data
2513: ,p_fund_rec => l_fund_rec_type
2514: ,x_fund_id => l_fund_id);
2515:
2516: x_return_status := l_return_status;
2517:
2518: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2519: ROLLBACK TO create_new_funds;
2520: RETURN;
2521: END IF;
2522:
2536: ,p_errcode =>l_errcode
2537: ,p_errmsg =>l_errmsg
2538: );
2539: IF l_errcode IS NOT NULL THEN
2540: x_return_status := fnd_api.g_ret_sts_error;
2541: ROLLBACK TO create_new_funds;
2542: RAISE fnd_api.g_exc_error;
2543: RETURN;
2544: END IF;
2538: );
2539: IF l_errcode IS NOT NULL THEN
2540: x_return_status := fnd_api.g_ret_sts_error;
2541: ROLLBACK TO create_new_funds;
2542: RAISE fnd_api.g_exc_error;
2543: RETURN;
2544: END IF;
2545:
2546: /* To copy the products of old budget to the new budget */
2552: ,p_errmsg =>l_errmsg
2553: );
2554:
2555: IF l_errcode IS NOT NULL THEN
2556: x_return_status := fnd_api.g_ret_sts_error;
2557: ROLLBACK TO create_new_funds;
2558: RAISE fnd_api.g_exc_error;
2559: RETURN;
2560: END IF;
2554:
2555: IF l_errcode IS NOT NULL THEN
2556: x_return_status := fnd_api.g_ret_sts_error;
2557: ROLLBACK TO create_new_funds;
2558: RAISE fnd_api.g_exc_error;
2559: RETURN;
2560: END IF;
2561:
2562: x_new_fund_id := l_fund_id;
2579: ---------------------------------------------------------------------
2580:
2581: procedure get_new_funds(
2582: p_api_version IN NUMBER
2583: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2584: ,p_commit IN VARCHAR2 := fnd_api.g_false
2585: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
2586: , x_return_status OUT NOCOPY VARCHAR2
2587: ,x_msg_count OUT NOCOPY NUMBER
2580:
2581: procedure get_new_funds(
2582: p_api_version IN NUMBER
2583: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2584: ,p_commit IN VARCHAR2 := fnd_api.g_false
2585: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
2586: , x_return_status OUT NOCOPY VARCHAR2
2587: ,x_msg_count OUT NOCOPY NUMBER
2588: ,x_msg_data OUT NOCOPY VARCHAR2
2581: procedure get_new_funds(
2582: p_api_version IN NUMBER
2583: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2584: ,p_commit IN VARCHAR2 := fnd_api.g_false
2585: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
2586: , x_return_status OUT NOCOPY VARCHAR2
2587: ,x_msg_count OUT NOCOPY NUMBER
2588: ,x_msg_data OUT NOCOPY VARCHAR2
2589: )
2593: l_new_user_status_id NUMBER;
2594: l_new_fund_rec OZF_FUNDS_ALL_VL%ROWTYPE;
2595: l_new_fund_rec_type OZF_Funds_PVT.fund_rec_type;
2596: l_fund_rec OZF_Funds_PVT.fund_rec_type;
2597: l_return_status VARCHAR2(30) := fnd_api.g_ret_sts_success;
2598: l_api_name CONSTANT VARCHAR2(30)
2599: := 'get_new_funds';
2600: l_full_name CONSTANT VARCHAR2(60)
2601: := g_pkg_name || '.' || l_api_name;
2622: WHERE fund_id = p_fund_id;
2623:
2624: BEGIN
2625:
2626: x_return_status := fnd_api.g_ret_sts_success;
2627:
2628: OPEN c_get_new_funds;
2629: LOOP
2630: SAVEPOINT new_budget;
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
2670: ,p_commit => FND_API.G_FALSE
2671: ,p_validation_level => fnd_api.g_valid_level_full
2672: ,x_return_status => l_return_status
2673: ,x_msg_count => l_msg_count
2666: END IF;
2667:
2668: OZF_funds_pvt.update_fund(p_api_version => 1.0
2669: ,p_init_msg_list => FND_API.G_FALSE
2670: ,p_commit => FND_API.G_FALSE
2671: ,p_validation_level => fnd_api.g_valid_level_full
2672: ,x_return_status => l_return_status
2673: ,x_msg_count => l_msg_count
2674: ,x_msg_data => l_msg_data
2667:
2668: OZF_funds_pvt.update_fund(p_api_version => 1.0
2669: ,p_init_msg_list => FND_API.G_FALSE
2670: ,p_commit => FND_API.G_FALSE
2671: ,p_validation_level => fnd_api.g_valid_level_full
2672: ,x_return_status => l_return_status
2673: ,x_msg_count => l_msg_count
2674: ,x_msg_data => l_msg_data
2675: ,p_fund_rec => l_new_fund_rec_type
2675: ,p_fund_rec => l_new_fund_rec_type
2676: ,p_mode => l_mode
2677: );
2678:
2679: IF NOT (l_return_status = fnd_api.g_ret_sts_success) THEN
2680: GOTO end_loop;
2681: END IF;
2682:
2683: IF G_DEBUG THEN
2695: -- if original_budget = 0, which is the case for activating budget above, no transfer happens. fix for R12.
2696:
2697: IF l_new_fund_rec.original_budget <> 0 THEN
2698: transferring_unutilized_amount(p_api_version => 1.0
2699: ,p_init_msg_list => FND_API.G_FALSE
2700: ,p_commit => FND_API.G_FALSE
2701: ,p_validation_level => fnd_api.g_valid_level_full
2702: ,x_return_status => l_return_status
2703: ,x_msg_count => l_msg_count
2696:
2697: IF l_new_fund_rec.original_budget <> 0 THEN
2698: transferring_unutilized_amount(p_api_version => 1.0
2699: ,p_init_msg_list => FND_API.G_FALSE
2700: ,p_commit => FND_API.G_FALSE
2701: ,p_validation_level => fnd_api.g_valid_level_full
2702: ,x_return_status => l_return_status
2703: ,x_msg_count => l_msg_count
2704: ,x_msg_data => l_msg_data
2697: IF l_new_fund_rec.original_budget <> 0 THEN
2698: transferring_unutilized_amount(p_api_version => 1.0
2699: ,p_init_msg_list => FND_API.G_FALSE
2700: ,p_commit => FND_API.G_FALSE
2701: ,p_validation_level => fnd_api.g_valid_level_full
2702: ,x_return_status => l_return_status
2703: ,x_msg_count => l_msg_count
2704: ,x_msg_data => l_msg_data
2705: ,p_fund_id => l_new_fund_rec.fund_id
2707: ,p_original_budget => l_new_fund_rec.original_budget
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;
2734: l_fund_rec.object_version_number := l_object_version;
2735: l_fund_rec.TRANSFERED_FLAG := 'Y' ;
2736:
2737: ozf_funds_pvt.update_fund(p_api_version=> 1.0
2738: ,p_init_msg_list=> fnd_api.g_false
2739: ,p_commit=> fnd_api.g_false
2740: ,p_validation_level=> fnd_api.g_valid_level_full
2741: ,x_return_status=> l_return_status
2742: ,x_msg_count=> x_msg_count
2735: l_fund_rec.TRANSFERED_FLAG := 'Y' ;
2736:
2737: ozf_funds_pvt.update_fund(p_api_version=> 1.0
2738: ,p_init_msg_list=> fnd_api.g_false
2739: ,p_commit=> fnd_api.g_false
2740: ,p_validation_level=> fnd_api.g_valid_level_full
2741: ,x_return_status=> l_return_status
2742: ,x_msg_count=> x_msg_count
2743: ,x_msg_data=> x_msg_data
2736:
2737: ozf_funds_pvt.update_fund(p_api_version=> 1.0
2738: ,p_init_msg_list=> fnd_api.g_false
2739: ,p_commit=> fnd_api.g_false
2740: ,p_validation_level=> fnd_api.g_valid_level_full
2741: ,x_return_status=> l_return_status
2742: ,x_msg_count=> x_msg_count
2743: ,x_msg_data=> x_msg_data
2744: ,p_fund_rec=> l_fund_rec
2744: ,p_fund_rec=> l_fund_rec
2745: ,p_mode=> l_mode
2746: );
2747:
2748: IF NOT (l_return_status = fnd_api.g_ret_sts_success) THEN
2749: GOTO end_loop;
2750: END IF;
2751:
2752: IF G_DEBUG THEN
2755:
2756: END IF; -- end of l_end_date.
2757:
2758: <
2759: IF l_return_status = fnd_api.g_ret_sts_success THEN
2760: COMMIT;
2761: ELSE
2762: ROLLBACK TO new_budget;
2763: END IF;
2765: END LOOP;
2766:
2767: CLOSE c_get_new_funds;
2768:
2769: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false
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
2779: ROLLBACK;
2780: x_return_status := fnd_api.g_ret_sts_error;
2781: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false
2782: ,p_count => x_msg_count
2776:
2777: EXCEPTION
2778: WHEN fnd_api.g_exc_error THEN
2779: ROLLBACK;
2780: x_return_status := fnd_api.g_ret_sts_error;
2781: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false
2782: ,p_count => x_msg_count
2783: ,p_data => x_msg_data);
2784: WHEN fnd_api.g_exc_unexpected_error THEN
2777: EXCEPTION
2778: WHEN fnd_api.g_exc_error THEN
2779: ROLLBACK;
2780: x_return_status := fnd_api.g_ret_sts_error;
2781: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false
2782: ,p_count => x_msg_count
2783: ,p_data => x_msg_data);
2784: WHEN fnd_api.g_exc_unexpected_error THEN
2785: ROLLBACK;
2780: x_return_status := fnd_api.g_ret_sts_error;
2781: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false
2782: ,p_count => x_msg_count
2783: ,p_data => x_msg_data);
2784: WHEN fnd_api.g_exc_unexpected_error THEN
2785: ROLLBACK;
2786: x_return_status := fnd_api.g_ret_sts_unexp_error;
2787: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false
2788: ,p_count => x_msg_count
2782: ,p_count => x_msg_count
2783: ,p_data => x_msg_data);
2784: WHEN fnd_api.g_exc_unexpected_error THEN
2785: ROLLBACK;
2786: x_return_status := fnd_api.g_ret_sts_unexp_error;
2787: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false
2788: ,p_count => x_msg_count
2789: ,p_data => x_msg_data);
2790: WHEN OTHERS THEN
2783: ,p_data => x_msg_data);
2784: WHEN fnd_api.g_exc_unexpected_error THEN
2785: ROLLBACK;
2786: x_return_status := fnd_api.g_ret_sts_unexp_error;
2787: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false
2788: ,p_count => x_msg_count
2789: ,p_data => x_msg_data);
2790: WHEN OTHERS THEN
2791: ROLLBACK;
2788: ,p_count => x_msg_count
2789: ,p_data => x_msg_data);
2790: WHEN OTHERS THEN
2791: ROLLBACK;
2792: x_return_status := fnd_api.g_ret_sts_unexp_error;
2793:
2794: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2795: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
2796: END IF;
2794: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2795: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
2796: END IF;
2797:
2798: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false
2799: ,p_count => x_msg_count
2800: ,p_data => x_msg_data);
2801:
2802: END get_new_funds;
2939: FETCH c_get_fund_id INTO l_root_fund_id;
2940:
2941: fnd_msg_pub.initialize;
2942:
2943: l_return_status := fnd_api.g_ret_sts_success;
2944:
2945: IF c_get_fund_id%NOTFOUND THEN
2946: EXIT;
2947: END IF;
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;
2989:
2988: END IF;
2989:
2990: -- create new Budget
2991: create_new_funds(p_api_version => 1.0
2992: ,p_init_msg_list => FND_API.G_FALSE
2993: ,p_commit => FND_API.G_FALSE
2994: ,p_validation_level => fnd_api.g_valid_level_full
2995: ,x_return_status => l_return_status
2996: ,x_msg_count => x_msg_count
2989:
2990: -- create new Budget
2991: create_new_funds(p_api_version => 1.0
2992: ,p_init_msg_list => FND_API.G_FALSE
2993: ,p_commit => FND_API.G_FALSE
2994: ,p_validation_level => fnd_api.g_valid_level_full
2995: ,x_return_status => l_return_status
2996: ,x_msg_count => x_msg_count
2997: ,x_msg_data => x_msg_data
2990: -- create new Budget
2991: create_new_funds(p_api_version => 1.0
2992: ,p_init_msg_list => FND_API.G_FALSE
2993: ,p_commit => FND_API.G_FALSE
2994: ,p_validation_level => fnd_api.g_valid_level_full
2995: ,x_return_status => l_return_status
2996: ,x_msg_count => x_msg_count
2997: ,x_msg_data => x_msg_data
2998: ,p_fund_rec => l_fund_rec
2998: ,p_fund_rec => l_fund_rec
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:
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:
3044: -- if the amount_flag is not yes then set the original budget to 0 else it would remain default...
3051: END IF;
3052:
3053: -- create fund corresonding to this child budget
3054: create_new_funds(p_api_version => 1.0
3055: ,p_init_msg_list => FND_API.G_FALSE
3056: ,p_commit => FND_API.G_FALSE
3057: ,p_validation_level => fnd_api.g_valid_level_full
3058: ,x_return_status => l_return_status
3059: ,x_msg_count => x_msg_count
3052:
3053: -- create fund corresonding to this child budget
3054: create_new_funds(p_api_version => 1.0
3055: ,p_init_msg_list => FND_API.G_FALSE
3056: ,p_commit => FND_API.G_FALSE
3057: ,p_validation_level => fnd_api.g_valid_level_full
3058: ,x_return_status => l_return_status
3059: ,x_msg_count => x_msg_count
3060: ,x_msg_data => x_msg_data
3053: -- create fund corresonding to this child budget
3054: create_new_funds(p_api_version => 1.0
3055: ,p_init_msg_list => FND_API.G_FALSE
3056: ,p_commit => FND_API.G_FALSE
3057: ,p_validation_level => fnd_api.g_valid_level_full
3058: ,x_return_status => l_return_status
3059: ,x_msg_count => x_msg_count
3060: ,x_msg_data => x_msg_data
3061: ,p_fund_rec => l_child_fund_rec
3061: ,p_fund_rec => l_child_fund_rec
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:
3080: CLOSE c_get_hierarchy_budgets;
3081: END IF; -- hierarchy flag check loop ends here
3082:
3083: <
3084: IF l_return_status = fnd_api.g_ret_sts_success THEN
3085: COMMIT;
3086: x_retcode := 0;
3087: ELSE
3088: ROLLBACK TO open_next_years_budget;
3087: ELSE
3088: ROLLBACK TO open_next_years_budget;
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:
3098: END IF; --l_fund_id is NOT NULL OR l_query_id is NOT NULL
3099:
3100: -- activate draft budget from mass transfer and transfer unutilized amount to new budget.
3101: get_new_funds(p_api_version => 1.0
3102: ,p_init_msg_list => FND_API.G_FALSE
3103: ,p_commit => FND_API.G_FALSE
3104: ,p_validation_level => fnd_api.g_valid_level_full
3105: ,x_return_status => l_return_status
3106: ,x_msg_count => x_msg_count
3099:
3100: -- activate draft budget from mass transfer and transfer unutilized amount to new budget.
3101: get_new_funds(p_api_version => 1.0
3102: ,p_init_msg_list => FND_API.G_FALSE
3103: ,p_commit => FND_API.G_FALSE
3104: ,p_validation_level => fnd_api.g_valid_level_full
3105: ,x_return_status => l_return_status
3106: ,x_msg_count => x_msg_count
3107: ,x_msg_data => x_msg_data
3100: -- activate draft budget from mass transfer and transfer unutilized amount to new budget.
3101: get_new_funds(p_api_version => 1.0
3102: ,p_init_msg_list => FND_API.G_FALSE
3103: ,p_commit => FND_API.G_FALSE
3104: ,p_validation_level => fnd_api.g_valid_level_full
3105: ,x_return_status => l_return_status
3106: ,x_msg_count => x_msg_count
3107: ,x_msg_data => x_msg_data
3108: );
3106: ,x_msg_count => x_msg_count
3107: ,x_msg_data => x_msg_data
3108: );
3109:
3110: IF NOT (l_return_status = fnd_api.g_ret_sts_success) THEN
3111: ROLLBACK;
3112: x_retcode := 1;
3113: x_errbuf := x_msg_data;
3114: RAISE fnd_api.g_exc_error;
3110: IF NOT (l_return_status = fnd_api.g_ret_sts_success) THEN
3111: ROLLBACK;
3112: x_retcode := 1;
3113: x_errbuf := x_msg_data;
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 ');
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
3123: ROLLBACK;
3124: x_retcode := 1;
3125: x_errbuf := x_msg_data;
3126: fnd_msg_pub.count_and_get(p_count => x_msg_count
3124: x_retcode := 1;
3125: x_errbuf := x_msg_data;
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;
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;
3135: fnd_msg_pub.count_and_get(p_count => x_msg_count
3133: x_retcode := 1;
3134: x_errbuf := x_msg_data;
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;
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;