90: -- PURPOSE
91: --
92: -- PARAMETERS
93: -- p_object_type IN VARCHAR2
94: -- p_object_status IN VARCHAR2 :=FND_API.G_MISS_CHAR
95: -- p_object_code IN VARCHAR2 :=fnd_api.G_MISS_CHAR
96: -- p_object_end_date IN DATE := FND_API.G_MISS_DATE
97: -- x_errbuf OUT VARCHAR2 STANDARD OUT PARAMETER
98: -- x_retcode OUT NUMBER STANDARD OUT PARAMETER
91: --
92: -- PARAMETERS
93: -- p_object_type IN VARCHAR2
94: -- p_object_status IN VARCHAR2 :=FND_API.G_MISS_CHAR
95: -- p_object_code IN VARCHAR2 :=fnd_api.G_MISS_CHAR
96: -- p_object_end_date IN DATE := FND_API.G_MISS_DATE
97: -- x_errbuf OUT VARCHAR2 STANDARD OUT PARAMETER
98: -- x_retcode OUT NUMBER STANDARD OUT PARAMETER
99: -- NOTES
92: -- PARAMETERS
93: -- p_object_type IN VARCHAR2
94: -- p_object_status IN VARCHAR2 :=FND_API.G_MISS_CHAR
95: -- p_object_code IN VARCHAR2 :=fnd_api.G_MISS_CHAR
96: -- p_object_end_date IN DATE := FND_API.G_MISS_DATE
97: -- x_errbuf OUT VARCHAR2 STANDARD OUT PARAMETER
98: -- x_retcode OUT NUMBER STANDARD OUT PARAMETER
99: -- NOTES
100: -- This API will release the committed amounts for all offers that are closed or inactivated
325: END IF;
326:
327: -- Campaign
328: IF p_object_type = 'CAMP' THEN
329: IF p_object_status = FND_API.G_MISS_CHAR THEN
330: l_object_status := 'CLOSED,COMPLETED,CANCELLED,ARCHIVED';
331: ELSE
332: l_object_status := p_object_status;
333: END IF;
342:
343: CLOSE c_campaign;
344: -- Campaign Schdules
345: ELSIF p_object_type = 'CSCH' THEN
346: IF p_object_status = FND_API.G_MISS_CHAR THEN
347: l_object_status := 'CLOSED,COMPLETED,CANCELLED,ARCHIVED';
348: ELSE
349: l_object_status := p_object_status;
350: END IF;
360:
361: CLOSE c_campaign_schl;
362: -- Event Header/Rollup Event
363: ELSIF p_object_type = 'EVEH' THEN
364: IF p_object_status = FND_API.G_MISS_CHAR THEN
365: l_object_status := 'CLOSED,CANCELLED,ARCHIVED,COMPLETED';
366: ELSE
367: l_object_status := p_object_status;
368: END IF;
378:
379: CLOSE c_eheader;
380: -- Event one Offer
381: ELSIF p_object_type = 'EONE' THEN
382: IF p_object_status = FND_API.G_MISS_CHAR THEN
383: l_object_status := 'CLOSED,CANCELLED,ARCHIVED,COMPLETED';
384: ELSE
385: l_object_status := p_object_status;
386: END IF;
395: END LOOP;
396:
397: CLOSE c_eoffer;
398: ELSIF p_object_type = 'EVEO' THEN --event schedule
399: IF p_object_status = FND_API.G_MISS_CHAR THEN
400: l_object_status := 'CLOSED,CANCELLED,ARCHIVED,COMPLETED';
401: ELSE
402: l_object_status := p_object_status;
403: END IF;
414: CLOSE c_esch;
415:
416: -- Deliverable
417: ELSIF p_object_type = 'DELV' THEN
418: IF p_object_status = FND_API.G_MISS_CHAR THEN
419: l_object_status := 'ARCHIVED';
420: ELSE
421: l_object_status := p_object_status;
422: END IF;
431: END LOOP;
432:
433: CLOSE c_deliverable;
434: ELSIF p_object_type = 'OFFR' THEN
435: IF p_object_status = FND_API.G_MISS_CHAR THEN
436: l_object_status := 'CLOSED,COMPLETED,TERMINATED';
437: ELSE
438: l_object_status := p_object_status;
439: END IF;
449: END LOOP;
450:
451: CLOSE c_offer;
452: ELSIF p_object_type = 'SOFT_FUND' THEN -- for softfund, add by feliu on 01/11/04
453: IF p_object_status = FND_API.G_MISS_CHAR OR p_object_status is NULL THEN
454: l_object_status := 'APPROVED';
455: ELSE
456: l_object_status := p_object_status;
457: END IF;
466: END LOOP;
467:
468: CLOSE c_sf_request;
469: ELSIF p_object_type = 'SPECIAL_PRICE' THEN -- for special pricing, add by feliu on 01/11/04
470: IF p_object_status = FND_API.G_MISS_CHAR THEN
471: l_object_status := 'APPROVED';
472: ELSE
473: l_object_status := p_object_status;
474: END IF;
509: ,x_msg_count=> l_msg_count
510: ,x_msg_data=> l_msg_data
511: );
512:
513: IF NOT (l_return_status = fnd_api.g_ret_sts_success) THEN
514: ROLLBACK TO release_fund_conc;
515: -- x_retcode := 1;
516: --x_errbuf := l_msg_data;
517: ozf_utility_pvt.write_conc_log('ERROR: Could not perform reconcile for Object: '||l_object_type||' : '||l_object_tbl (k).object_id);
516: --x_errbuf := l_msg_data;
517: ozf_utility_pvt.write_conc_log('ERROR: Could not perform reconcile for Object: '||l_object_type||' : '||l_object_tbl (k).object_id);
518:
519: /* fnd_msg_pub.count_and_get (
520: p_encoded=> fnd_api.g_false
521: ,p_count=> x_msg_count
522: ,p_data=> x_msg_data
523: );*/
524:
523: );*/
524:
525: END IF;
526:
527: IF l_return_status = fnd_api.g_ret_sts_success THEN
528: IF p_object_type = 'CAMP' THEN
529: UPDATE ams_campaigns_all_b
530: SET accounts_closed_flag = 'Y'
531: WHERE campaign_id = l_object_tbl (k).object_id;
578: END LOOP;
579:
580: ozf_utility_pvt.write_conc_log (l_msg_data);
581: /* fnd_msg_pub.count_and_get (
582: p_encoded=> fnd_api.g_false
583: ,p_count=> x_msg_count
584: ,p_data=> x_msg_data
585: );
586: EXCEPTION
586: EXCEPTION
587:
588: WHEN OTHERS THEN
589: -ROLLBACK TO release_fund_conc;
590: x_return_status := fnd_api.g_ret_sts_unexp_error;
591:
592: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
593: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
594: END IF;
595:
596: fnd_msg_pub.count_and_get (
597: p_count=> x_msg_count
598: ,p_data=> x_msg_data
599: ,p_encoded=> fnd_api.g_false
600: );
601: */
602: EXCEPTION
603: WHEN OTHERS THEN
625: p_budget_used_by_id IN NUMBER
626: ,p_budget_used_by_type IN VARCHAR2
627: ,p_object_currency IN VARCHAR2
628: ,p_api_version IN NUMBER
629: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
630: ,p_commit IN VARCHAR2 := fnd_api.g_false
631: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
632: ,x_return_status OUT NOCOPY VARCHAR2
633: ,x_msg_count OUT NOCOPY NUMBER
626: ,p_budget_used_by_type IN VARCHAR2
627: ,p_object_currency IN VARCHAR2
628: ,p_api_version IN NUMBER
629: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
630: ,p_commit IN VARCHAR2 := fnd_api.g_false
631: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
632: ,x_return_status OUT NOCOPY VARCHAR2
633: ,x_msg_count OUT NOCOPY NUMBER
634: ,x_msg_data OUT NOCOPY VARCHAR2
627: ,p_object_currency IN VARCHAR2
628: ,p_api_version IN NUMBER
629: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
630: ,p_commit IN VARCHAR2 := fnd_api.g_false
631: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
632: ,x_return_status OUT NOCOPY VARCHAR2
633: ,x_msg_count OUT NOCOPY NUMBER
634: ,x_msg_data OUT NOCOPY VARCHAR2
635: ) IS
709: AND a1.budget_source_id = p_fund_id;
710:
711: l_parent_source_rec c_parent_source_fund%ROWTYPE;
712: l_api_version NUMBER := 1.0;
713: l_return_status VARCHAR2 (1) := fnd_api.g_ret_sts_success;
714: l_api_name VARCHAR2 (60) := 'reconcile_budget_line';
715: l_act_budget_id NUMBER;
716: l_act_budgets_rec ozf_actbudgets_pvt.act_budgets_rec_type;
717: l_source_from_par_flag VARCHAR2 (1);
724: l_currency_code VARCHAR2 (30);
725:
726: BEGIN
727: SAVEPOINT reconcile_budget_line;
728: x_return_status := fnd_api.g_ret_sts_success;
729: IF G_DEBUG THEN
730: ozf_utility_pvt.debug_message (': before parent source cursor ');
731: END IF;
732:
729: IF G_DEBUG THEN
730: ozf_utility_pvt.debug_message (': before parent source cursor ');
731: END IF;
732:
733: IF fnd_api.to_boolean (p_init_msg_list) THEN
734: fnd_msg_pub.initialize;
735: END IF;
736:
737: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
733: IF fnd_api.to_boolean (p_init_msg_list) THEN
734: fnd_msg_pub.initialize;
735: END IF;
736:
737: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
738: RAISE fnd_api.g_exc_unexpected_error;
739: END IF;
740:
741: IF p_budget_used_by_type = 'OFFR' THEN
734: fnd_msg_pub.initialize;
735: END IF;
736:
737: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
738: RAISE fnd_api.g_exc_unexpected_error;
739: END IF;
740:
741: IF p_budget_used_by_type = 'OFFR' THEN
742: OPEN c_offer_data(p_budget_used_by_id);
845: );*/
846:
847: l_act_budgets_rec.approved_original_amount := l_parent_source_rec.plan_curr_total_amount;
848:
849: IF l_return_status = fnd_api.g_ret_sts_error THEN
850: RAISE fnd_api.g_exc_error;
851: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
852: RAISE fnd_api.g_exc_unexpected_error;
853: END IF;
846:
847: l_act_budgets_rec.approved_original_amount := l_parent_source_rec.plan_curr_total_amount;
848:
849: IF l_return_status = fnd_api.g_ret_sts_error THEN
850: RAISE fnd_api.g_exc_error;
851: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
852: RAISE fnd_api.g_exc_unexpected_error;
853: END IF;
854:
847: l_act_budgets_rec.approved_original_amount := l_parent_source_rec.plan_curr_total_amount;
848:
849: IF l_return_status = fnd_api.g_ret_sts_error THEN
850: RAISE fnd_api.g_exc_error;
851: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
852: RAISE fnd_api.g_exc_unexpected_error;
853: END IF;
854:
855:
848:
849: IF l_return_status = fnd_api.g_ret_sts_error THEN
850: RAISE fnd_api.g_exc_error;
851: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
852: RAISE fnd_api.g_exc_unexpected_error;
853: END IF;
854:
855:
856: l_act_budgets_rec.approval_date := SYSDATE;
879: ,p_act_budgets_rec=> l_act_budgets_rec
880: ,x_act_budget_id=> l_act_budget_id
881: );
882:
883: IF l_return_status = fnd_api.g_ret_sts_error THEN
884: RAISE fnd_api.g_exc_error;
885: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
886: RAISE fnd_api.g_exc_unexpected_error;
887: END IF;
880: ,x_act_budget_id=> l_act_budget_id
881: );
882:
883: IF l_return_status = fnd_api.g_ret_sts_error THEN
884: RAISE fnd_api.g_exc_error;
885: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
886: RAISE fnd_api.g_exc_unexpected_error;
887: END IF;
888: END IF;
881: );
882:
883: IF l_return_status = fnd_api.g_ret_sts_error THEN
884: RAISE fnd_api.g_exc_error;
885: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
886: RAISE fnd_api.g_exc_unexpected_error;
887: END IF;
888: END IF;
889: END LOOP;
882:
883: IF l_return_status = fnd_api.g_ret_sts_error THEN
884: RAISE fnd_api.g_exc_error;
885: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
886: RAISE fnd_api.g_exc_unexpected_error;
887: END IF;
888: END IF;
889: END LOOP;
890:
922: ,p_from_amount=> l_parent_amount
923: ,x_to_amount=> l_act_budgets_rec.request_amount
924: );
925:
926: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
927: RAISE fnd_api.g_exc_unexpected_error;
928: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
929: RAISE fnd_api.g_exc_error;
930: END IF;
923: ,x_to_amount=> l_act_budgets_rec.request_amount
924: );
925:
926: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
927: RAISE fnd_api.g_exc_unexpected_error;
928: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
929: RAISE fnd_api.g_exc_error;
930: END IF;
931:
924: );
925:
926: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
927: RAISE fnd_api.g_exc_unexpected_error;
928: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
929: RAISE fnd_api.g_exc_error;
930: END IF;
931:
932: END IF;
925:
926: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
927: RAISE fnd_api.g_exc_unexpected_error;
928: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
929: RAISE fnd_api.g_exc_error;
930: END IF;
931:
932: END IF;
933:
957: ,p_act_budgets_rec=> l_act_budgets_rec
958: ,x_act_budget_id=> l_act_budget_id
959: );
960:
961: IF l_return_status = fnd_api.g_ret_sts_error THEN
962: RAISE fnd_api.g_exc_error;
963: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
964: RAISE fnd_api.g_exc_unexpected_error;
965: END IF;
958: ,x_act_budget_id=> l_act_budget_id
959: );
960:
961: IF l_return_status = fnd_api.g_ret_sts_error THEN
962: RAISE fnd_api.g_exc_error;
963: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
964: RAISE fnd_api.g_exc_unexpected_error;
965: END IF;
966: END IF;
959: );
960:
961: IF l_return_status = fnd_api.g_ret_sts_error THEN
962: RAISE fnd_api.g_exc_error;
963: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
964: RAISE fnd_api.g_exc_unexpected_error;
965: END IF;
966: END IF;
967: --END LOOP;
960:
961: IF l_return_status = fnd_api.g_ret_sts_error THEN
962: RAISE fnd_api.g_exc_error;
963: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
964: RAISE fnd_api.g_exc_unexpected_error;
965: END IF;
966: END IF;
967: --END LOOP;
968:
975:
976: fnd_msg_pub.count_and_get (
977: p_count=> x_msg_count
978: ,p_data=> x_msg_data
979: ,p_encoded=> fnd_api.g_false
980: );
981:
982:
983:
981:
982:
983:
984: EXCEPTION
985: WHEN fnd_api.g_exc_error THEN
986: ROLLBACK TO reconcile_budget_line;
987: x_return_status := fnd_api.g_ret_sts_error;
988: fnd_msg_pub.count_and_get (
989: p_count=> x_msg_count
983:
984: EXCEPTION
985: WHEN fnd_api.g_exc_error THEN
986: ROLLBACK TO reconcile_budget_line;
987: x_return_status := fnd_api.g_ret_sts_error;
988: fnd_msg_pub.count_and_get (
989: p_count=> x_msg_count
990: ,p_data=> x_msg_data
991: ,p_encoded=> fnd_api.g_false
987: x_return_status := fnd_api.g_ret_sts_error;
988: fnd_msg_pub.count_and_get (
989: p_count=> x_msg_count
990: ,p_data=> x_msg_data
991: ,p_encoded=> fnd_api.g_false
992: );
993: WHEN fnd_api.g_exc_unexpected_error THEN
994: ROLLBACK TO reconcile_budget_line;
995: x_return_status := fnd_api.g_ret_sts_unexp_error;
989: p_count=> x_msg_count
990: ,p_data=> x_msg_data
991: ,p_encoded=> fnd_api.g_false
992: );
993: WHEN fnd_api.g_exc_unexpected_error THEN
994: ROLLBACK TO reconcile_budget_line;
995: x_return_status := fnd_api.g_ret_sts_unexp_error;
996: fnd_msg_pub.count_and_get (
997: p_count=> x_msg_count
991: ,p_encoded=> fnd_api.g_false
992: );
993: WHEN fnd_api.g_exc_unexpected_error THEN
994: ROLLBACK TO reconcile_budget_line;
995: x_return_status := fnd_api.g_ret_sts_unexp_error;
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
995: x_return_status := fnd_api.g_ret_sts_unexp_error;
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: WHEN OTHERS THEN
1002: ROLLBACK TO reconcile_budget_line;
1003: x_return_status := fnd_api.g_ret_sts_unexp_error;
999: ,p_encoded=> fnd_api.g_false
1000: );
1001: WHEN OTHERS THEN
1002: ROLLBACK TO reconcile_budget_line;
1003: x_return_status := fnd_api.g_ret_sts_unexp_error;
1004:
1005: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1006: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1007: END IF;
1008:
1009: fnd_msg_pub.count_and_get (
1010: p_count=> x_msg_count
1011: ,p_data=> x_msg_data
1012: ,p_encoded=> fnd_api.g_false
1013: );
1014: END reconcile_budget_line;
1015:
1016: /* ---------------------------------------------------------------------
1353: ,p_from_amount=> l_act_budgets_rec.request_amount
1354: ,x_to_amount=> l_act_budgets_rec.approved_original_amount
1355: );
1356:
1357: IF NOT (l_return_status = fnd_api.g_ret_sts_success) THEN
1358: -- ROLLBACK TO offer_loop_savepoint;
1359: --x_retcode := 1;
1360: --x_errbuf := l_msg_data;
1361: l_commit := FALSE;
1389: ,p_from_amount=> l_act_budgets_rec.approved_original_amount -- in offer curr
1390: ,x_to_amount=> l_act_budgets_rec.request_amount -- in budget curr
1391: );
1392:
1393: IF NOT (l_return_status = fnd_api.g_ret_sts_success) THEN
1394: l_commit := FALSE;
1395: EXIT; -- exit budget loop
1396: END IF;
1397: END IF;
1440: ,x_msg_data=> l_msg_data
1441: ,p_act_budgets_rec=> l_act_budgets_rec
1442: ,p_act_util_rec=> l_util_rec
1443: ,x_act_budget_id=> l_act_budget_id
1444: ,p_approval_flag=> fnd_api.g_true
1445: );
1446:
1447: IF NOT (l_return_status = fnd_api.g_ret_sts_success) THEN
1448: l_commit := FALSE;
1443: ,x_act_budget_id=> l_act_budget_id
1444: ,p_approval_flag=> fnd_api.g_true
1445: );
1446:
1447: IF NOT (l_return_status = fnd_api.g_ret_sts_success) THEN
1448: l_commit := FALSE;
1449: EXIT; -- exit budget loop
1450: END IF;
1451: END IF;
1527: --It will increase both committed and utilized amount.
1528:
1529: -- PARAMETERS
1530: -- ,p_api_version IN NUMBER
1531: -- ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1532: -- ,p_commit IN VARCHAR2 := fnd_api.g_false
1533: -- ,x_msg_count OUT NOCOPY NUMBER
1534: -- ,x_msg_data OUT NOCOPY VARCHAR2
1535: -- ,x_return_status OUT NOCOPY VARCHAR2)
1528:
1529: -- PARAMETERS
1530: -- ,p_api_version IN NUMBER
1531: -- ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1532: -- ,p_commit IN VARCHAR2 := fnd_api.g_false
1533: -- ,x_msg_count OUT NOCOPY NUMBER
1534: -- ,x_msg_data OUT NOCOPY VARCHAR2
1535: -- ,x_return_status OUT NOCOPY VARCHAR2)
1536:
1544: (
1545: x_errbuf OUT NOCOPY VARCHAR2
1546: ,x_retcode OUT NOCOPY NUMBER
1547: /*p_api_version IN NUMBER
1548: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1549: ,p_commit IN VARCHAR2 := fnd_api.g_false
1550: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
1551: ,x_return_status OUT NOCOPY VARCHAR2
1552: ,x_msg_count OUT NOCOPY NUMBER
1545: x_errbuf OUT NOCOPY VARCHAR2
1546: ,x_retcode OUT NOCOPY NUMBER
1547: /*p_api_version IN NUMBER
1548: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1549: ,p_commit IN VARCHAR2 := fnd_api.g_false
1550: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
1551: ,x_return_status OUT NOCOPY VARCHAR2
1552: ,x_msg_count OUT NOCOPY NUMBER
1553: ,x_msg_data OUT NOCOPY VARCHAR2 */
1546: ,x_retcode OUT NOCOPY NUMBER
1547: /*p_api_version IN NUMBER
1548: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1549: ,p_commit IN VARCHAR2 := fnd_api.g_false
1550: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
1551: ,x_return_status OUT NOCOPY VARCHAR2
1552: ,x_msg_count OUT NOCOPY NUMBER
1553: ,x_msg_data OUT NOCOPY VARCHAR2 */
1554: ) IS
1577: SAVEPOINT post_utilized_budget_conc;
1578: IF G_DEBUG THEN
1579: ozf_utility_pvt.debug_message (': begin ' || l_full_name);
1580: END IF;
1581: -- x_return_status := fnd_api.g_ret_sts_success;
1582:
1583: /* IF fnd_api.to_boolean (p_init_msg_list) THEN
1584: fnd_msg_pub.initialize;
1585: END IF;
1579: ozf_utility_pvt.debug_message (': begin ' || l_full_name);
1580: END IF;
1581: -- x_return_status := fnd_api.g_ret_sts_success;
1582:
1583: /* IF fnd_api.to_boolean (p_init_msg_list) THEN
1584: fnd_msg_pub.initialize;
1585: END IF;
1586:
1587: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1583: /* IF fnd_api.to_boolean (p_init_msg_list) THEN
1584: fnd_msg_pub.initialize;
1585: END IF;
1586:
1587: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1588: RAISE fnd_api.g_exc_unexpected_error;
1589: END IF;
1590: */
1591: FOR l_off_budget_rec IN c_offer_rec
1584: fnd_msg_pub.initialize;
1585: END IF;
1586:
1587: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1588: RAISE fnd_api.g_exc_unexpected_error;
1589: END IF;
1590: */
1591: FOR l_off_budget_rec IN c_offer_rec
1592: LOOP
1594: ozf_fund_adjustment_pvt.post_utilized_budget (
1595: p_offer_id=> l_off_budget_rec.offer_id
1596: ,p_offer_type=> l_off_budget_rec.offer_type
1597: ,p_api_version=> 1
1598: ,p_init_msg_list=> fnd_api.g_false
1599: ,p_commit=> fnd_api.g_false
1600: ,p_check_date => fnd_api.g_false -- no date validation
1601: ,x_msg_count=> l_msg_count
1602: ,x_msg_data=> l_msg_data
1595: p_offer_id=> l_off_budget_rec.offer_id
1596: ,p_offer_type=> l_off_budget_rec.offer_type
1597: ,p_api_version=> 1
1598: ,p_init_msg_list=> fnd_api.g_false
1599: ,p_commit=> fnd_api.g_false
1600: ,p_check_date => fnd_api.g_false -- no date validation
1601: ,x_msg_count=> l_msg_count
1602: ,x_msg_data=> l_msg_data
1603: ,x_return_status=> l_return_status
1596: ,p_offer_type=> l_off_budget_rec.offer_type
1597: ,p_api_version=> 1
1598: ,p_init_msg_list=> fnd_api.g_false
1599: ,p_commit=> fnd_api.g_false
1600: ,p_check_date => fnd_api.g_false -- no date validation
1601: ,x_msg_count=> l_msg_count
1602: ,x_msg_data=> l_msg_data
1603: ,x_return_status=> l_return_status
1604: );
1603: ,x_return_status=> l_return_status
1604: );
1605:
1606:
1607: IF l_return_status = fnd_api.g_ret_sts_success THEN
1608: COMMIT;
1609: x_retcode := 0;
1610: ELSE
1611: IF G_DEBUG THEN
1616: END IF;
1617: END LOOP;
1618:
1619: /* fnd_msg_pub.count_and_get (
1620: p_encoded=> fnd_api.g_false
1621: ,p_count=> x_msg_count
1622: ,p_data=> x_msg_data
1623: );
1624: IF G_DEBUG THEN
1624: IF G_DEBUG THEN
1625: ozf_utility_pvt.debug_message ( l_full_name || ': end');
1626: END IF;
1627: EXCEPTION
1628: WHEN fnd_api.g_exc_error THEN
1629: ROLLBACK TO Post_utilized_budget_conc;
1630: x_return_status := fnd_api.g_ret_sts_error;
1631: fnd_msg_pub.count_and_get (
1632: p_count=> x_msg_count
1626: END IF;
1627: EXCEPTION
1628: WHEN fnd_api.g_exc_error THEN
1629: ROLLBACK TO Post_utilized_budget_conc;
1630: x_return_status := fnd_api.g_ret_sts_error;
1631: fnd_msg_pub.count_and_get (
1632: p_count=> x_msg_count
1633: ,p_data=> x_msg_data
1634: ,p_encoded=> fnd_api.g_false
1630: x_return_status := fnd_api.g_ret_sts_error;
1631: fnd_msg_pub.count_and_get (
1632: p_count=> x_msg_count
1633: ,p_data=> x_msg_data
1634: ,p_encoded=> fnd_api.g_false
1635: );
1636: WHEN fnd_api.g_exc_unexpected_error THEN
1637: ROLLBACK TO Post_utilized_budget_conc;
1638: x_return_status := fnd_api.g_ret_sts_unexp_error;
1632: p_count=> x_msg_count
1633: ,p_data=> x_msg_data
1634: ,p_encoded=> fnd_api.g_false
1635: );
1636: WHEN fnd_api.g_exc_unexpected_error THEN
1637: ROLLBACK TO Post_utilized_budget_conc;
1638: x_return_status := fnd_api.g_ret_sts_unexp_error;
1639: fnd_msg_pub.count_and_get (
1640: p_count=> x_msg_count
1634: ,p_encoded=> fnd_api.g_false
1635: );
1636: WHEN fnd_api.g_exc_unexpected_error THEN
1637: ROLLBACK TO Post_utilized_budget_conc;
1638: x_return_status := fnd_api.g_ret_sts_unexp_error;
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
1638: x_return_status := fnd_api.g_ret_sts_unexp_error;
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: WHEN OTHERS THEN
1645: ROLLBACK TO Post_utilized_budget_conc;
1646: x_return_status := fnd_api.g_ret_sts_unexp_error;
1642: ,p_encoded=> fnd_api.g_false
1643: );
1644: WHEN OTHERS THEN
1645: ROLLBACK TO Post_utilized_budget_conc;
1646: x_return_status := fnd_api.g_ret_sts_unexp_error;
1647:
1648: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1649: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1650: END IF;
1651:
1652: fnd_msg_pub.count_and_get (
1653: p_count=> x_msg_count
1654: ,p_data=> x_msg_data
1655: ,p_encoded=> fnd_api.g_false
1656: ); */
1657: -- COMMIT;
1658: -- x_retcode := 0;
1659: ozf_utility_pvt.write_conc_log (l_msg_data);
1688: p_budget_used_by_id IN NUMBER
1689: ,p_budget_used_by_type IN VARCHAR2
1690: ,p_object_currency IN VARCHAR2
1691: ,p_api_version IN NUMBER
1692: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1693: ,p_commit IN VARCHAR2 := fnd_api.g_false
1694: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
1695: ,x_return_status OUT NOCOPY VARCHAR2
1696: ,x_msg_count OUT NOCOPY NUMBER
1689: ,p_budget_used_by_type IN VARCHAR2
1690: ,p_object_currency IN VARCHAR2
1691: ,p_api_version IN NUMBER
1692: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1693: ,p_commit IN VARCHAR2 := fnd_api.g_false
1694: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
1695: ,x_return_status OUT NOCOPY VARCHAR2
1696: ,x_msg_count OUT NOCOPY NUMBER
1697: ,x_msg_data OUT NOCOPY VARCHAR2
1690: ,p_object_currency IN VARCHAR2
1691: ,p_api_version IN NUMBER
1692: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1693: ,p_commit IN VARCHAR2 := fnd_api.g_false
1694: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
1695: ,x_return_status OUT NOCOPY VARCHAR2
1696: ,x_msg_count OUT NOCOPY NUMBER
1697: ,x_msg_data OUT NOCOPY VARCHAR2
1698: ) IS
1727:
1728: l_rate NUMBER;
1729: l_parent_source_rec c_parent_source_fund%ROWTYPE;
1730: l_api_version NUMBER := 1.0;
1731: l_return_status VARCHAR2 (1) := fnd_api.g_ret_sts_success;
1732: l_api_name VARCHAR2 (60) := 'reconcile_budget_utilized';
1733: l_full_name CONSTANT VARCHAR2 (80) := g_pkg_name
1734: || '.'
1735: || l_api_name;
1740: l_object_currency VARCHAR2(15) := p_object_currency;
1741:
1742: BEGIN
1743: SAVEPOINT reconcile_budget_utilized;
1744: x_return_status := fnd_api.g_ret_sts_success;
1745: IF G_DEBUG THEN
1746: ozf_utility_pvt.debug_message (': before parent source cursor ');
1747: END IF;
1748:
1745: IF G_DEBUG THEN
1746: ozf_utility_pvt.debug_message (': before parent source cursor ');
1747: END IF;
1748:
1749: IF fnd_api.to_boolean (p_init_msg_list) THEN
1750: fnd_msg_pub.initialize;
1751: END IF;
1752:
1753: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1749: IF fnd_api.to_boolean (p_init_msg_list) THEN
1750: fnd_msg_pub.initialize;
1751: END IF;
1752:
1753: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1754: RAISE fnd_api.g_exc_unexpected_error;
1755: END IF;
1756:
1757: OPEN c_parent_source_fund;
1750: fnd_msg_pub.initialize;
1751: END IF;
1752:
1753: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1754: RAISE fnd_api.g_exc_unexpected_error;
1755: END IF;
1756:
1757: OPEN c_parent_source_fund;
1758:
1818: IF G_DEBUG THEN
1819: ozf_utility_pvt.debug_message ('l_converted_amt '|| l_converted_amt);
1820: END IF;
1821:
1822: IF l_return_status = fnd_api.g_ret_sts_error THEN
1823: RAISE fnd_api.g_exc_error;
1824: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1825: RAISE fnd_api.g_exc_unexpected_error;
1826: END IF;
1819: ozf_utility_pvt.debug_message ('l_converted_amt '|| l_converted_amt);
1820: END IF;
1821:
1822: IF l_return_status = fnd_api.g_ret_sts_error THEN
1823: RAISE fnd_api.g_exc_error;
1824: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1825: RAISE fnd_api.g_exc_unexpected_error;
1826: END IF;
1827: l_act_budgets_rec.approval_date := SYSDATE;
1820: END IF;
1821:
1822: IF l_return_status = fnd_api.g_ret_sts_error THEN
1823: RAISE fnd_api.g_exc_error;
1824: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1825: RAISE fnd_api.g_exc_unexpected_error;
1826: END IF;
1827: l_act_budgets_rec.approval_date := SYSDATE;
1828: l_act_budgets_rec.approver_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
1821:
1822: IF l_return_status = fnd_api.g_ret_sts_error THEN
1823: RAISE fnd_api.g_exc_error;
1824: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1825: RAISE fnd_api.g_exc_unexpected_error;
1826: END IF;
1827: l_act_budgets_rec.approval_date := SYSDATE;
1828: l_act_budgets_rec.approver_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
1829: l_act_budgets_rec.justification := fnd_message.get_string ('OZF', 'OZF_ACT_BUDG_CST_UTIL');
1859: p_act_util_rec =>l_act_util_rec,
1860: x_act_budget_id => l_act_budget_id
1861: ) ;
1862:
1863: IF l_return_status = fnd_api.g_ret_sts_error THEN
1864: RAISE fnd_api.g_exc_error;
1865: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1866: RAISE fnd_api.g_exc_unexpected_error;
1867: END IF;
1860: x_act_budget_id => l_act_budget_id
1861: ) ;
1862:
1863: IF l_return_status = fnd_api.g_ret_sts_error THEN
1864: RAISE fnd_api.g_exc_error;
1865: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1866: RAISE fnd_api.g_exc_unexpected_error;
1867: END IF;
1868: --END IF;
1861: ) ;
1862:
1863: IF l_return_status = fnd_api.g_ret_sts_error THEN
1864: RAISE fnd_api.g_exc_error;
1865: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1866: RAISE fnd_api.g_exc_unexpected_error;
1867: END IF;
1868: --END IF;
1869: END LOOP;
1862:
1863: IF l_return_status = fnd_api.g_ret_sts_error THEN
1864: RAISE fnd_api.g_exc_error;
1865: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1866: RAISE fnd_api.g_exc_unexpected_error;
1867: END IF;
1868: --END IF;
1869: END LOOP;
1870:
1870:
1871: CLOSE c_parent_source_fund;
1872:
1873: fnd_msg_pub.count_and_get (
1874: p_encoded=> fnd_api.g_false
1875: ,p_count=> x_msg_count
1876: ,p_data=> x_msg_data
1877: );
1878: IF G_DEBUG THEN
1879: ozf_utility_pvt.debug_message ( l_full_name || ': end');
1880: END IF;
1881:
1882: EXCEPTION
1883: WHEN fnd_api.g_exc_error THEN
1884: ROLLBACK TO reconcile_budget_utilized;
1885: x_return_status := fnd_api.g_ret_sts_error;
1886: fnd_msg_pub.count_and_get (
1887: p_count=> x_msg_count
1881:
1882: EXCEPTION
1883: WHEN fnd_api.g_exc_error THEN
1884: ROLLBACK TO reconcile_budget_utilized;
1885: x_return_status := fnd_api.g_ret_sts_error;
1886: fnd_msg_pub.count_and_get (
1887: p_count=> x_msg_count
1888: ,p_data=> x_msg_data
1889: ,p_encoded=> fnd_api.g_false
1885: x_return_status := fnd_api.g_ret_sts_error;
1886: fnd_msg_pub.count_and_get (
1887: p_count=> x_msg_count
1888: ,p_data=> x_msg_data
1889: ,p_encoded=> fnd_api.g_false
1890: );
1891: WHEN fnd_api.g_exc_unexpected_error THEN
1892: ROLLBACK TO reconcile_budget_utilized;
1893: x_return_status := fnd_api.g_ret_sts_unexp_error;
1887: p_count=> x_msg_count
1888: ,p_data=> x_msg_data
1889: ,p_encoded=> fnd_api.g_false
1890: );
1891: WHEN fnd_api.g_exc_unexpected_error THEN
1892: ROLLBACK TO reconcile_budget_utilized;
1893: x_return_status := fnd_api.g_ret_sts_unexp_error;
1894: fnd_msg_pub.count_and_get (
1895: p_count=> x_msg_count
1889: ,p_encoded=> fnd_api.g_false
1890: );
1891: WHEN fnd_api.g_exc_unexpected_error THEN
1892: ROLLBACK TO reconcile_budget_utilized;
1893: x_return_status := fnd_api.g_ret_sts_unexp_error;
1894: fnd_msg_pub.count_and_get (
1895: p_count=> x_msg_count
1896: ,p_data=> x_msg_data
1897: ,p_encoded=> fnd_api.g_false
1893: x_return_status := fnd_api.g_ret_sts_unexp_error;
1894: fnd_msg_pub.count_and_get (
1895: p_count=> x_msg_count
1896: ,p_data=> x_msg_data
1897: ,p_encoded=> fnd_api.g_false
1898: );
1899: WHEN OTHERS THEN
1900: ROLLBACK TO reconcile_budget_utilized;
1901: x_return_status := fnd_api.g_ret_sts_unexp_error;
1897: ,p_encoded=> fnd_api.g_false
1898: );
1899: WHEN OTHERS THEN
1900: ROLLBACK TO reconcile_budget_utilized;
1901: x_return_status := fnd_api.g_ret_sts_unexp_error;
1902:
1903: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1904: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1905: END IF;
1906:
1907: fnd_msg_pub.count_and_get (
1908: p_count=> x_msg_count
1909: ,p_data=> x_msg_data
1910: ,p_encoded=> fnd_api.g_false
1911: );
1912: END reconcile_budget_utilized;
1913:
1914:
1929: ,p_budget_used_by_type IN VARCHAR2
1930: ,p_object_currency IN VARCHAR2
1931: ,p_from_paid IN VARCHAR2
1932: ,p_api_version IN NUMBER
1933: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1934: ,p_commit IN VARCHAR2 := fnd_api.g_false
1935: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
1936: ,x_return_status OUT NOCOPY VARCHAR2
1937: ,x_msg_count OUT NOCOPY NUMBER
1930: ,p_object_currency IN VARCHAR2
1931: ,p_from_paid IN VARCHAR2
1932: ,p_api_version IN NUMBER
1933: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1934: ,p_commit IN VARCHAR2 := fnd_api.g_false
1935: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
1936: ,x_return_status OUT NOCOPY VARCHAR2
1937: ,x_msg_count OUT NOCOPY NUMBER
1938: ,x_msg_data OUT NOCOPY VARCHAR2
1931: ,p_from_paid IN VARCHAR2
1932: ,p_api_version IN NUMBER
1933: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1934: ,p_commit IN VARCHAR2 := fnd_api.g_false
1935: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
1936: ,x_return_status OUT NOCOPY VARCHAR2
1937: ,x_msg_count OUT NOCOPY NUMBER
1938: ,x_msg_data OUT NOCOPY VARCHAR2
1939: ) IS
1950: SAVEPOINT reconcile_line;
1951: IF G_DEBUG THEN
1952: ozf_utility_pvt.debug_message (': begin ' || l_full_name);
1953: END IF;
1954: x_return_status := fnd_api.g_ret_sts_success;
1955:
1956: IF fnd_api.to_boolean (p_init_msg_list) THEN
1957: fnd_msg_pub.initialize;
1958: END IF;
1952: ozf_utility_pvt.debug_message (': begin ' || l_full_name);
1953: END IF;
1954: x_return_status := fnd_api.g_ret_sts_success;
1955:
1956: IF fnd_api.to_boolean (p_init_msg_list) THEN
1957: fnd_msg_pub.initialize;
1958: END IF;
1959:
1960: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1956: IF fnd_api.to_boolean (p_init_msg_list) THEN
1957: fnd_msg_pub.initialize;
1958: END IF;
1959:
1960: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1961: RAISE fnd_api.g_exc_unexpected_error;
1962: END IF;
1963:
1964: IF p_from_paid = 'Y' THEN
1957: fnd_msg_pub.initialize;
1958: END IF;
1959:
1960: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1961: RAISE fnd_api.g_exc_unexpected_error;
1962: END IF;
1963:
1964: IF p_from_paid = 'Y' THEN
1965:
1972: ,x_msg_count=> l_msg_count
1973: ,x_msg_data=> l_msg_data
1974: );
1975:
1976: IF l_return_status = fnd_api.g_ret_sts_error THEN
1977: RAISE fnd_api.g_exc_error;
1978: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1979: RAISE fnd_api.g_exc_unexpected_error;
1980: END IF;
1973: ,x_msg_data=> l_msg_data
1974: );
1975:
1976: IF l_return_status = fnd_api.g_ret_sts_error THEN
1977: RAISE fnd_api.g_exc_error;
1978: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1979: RAISE fnd_api.g_exc_unexpected_error;
1980: END IF;
1981:
1974: );
1975:
1976: IF l_return_status = fnd_api.g_ret_sts_error THEN
1977: RAISE fnd_api.g_exc_error;
1978: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1979: RAISE fnd_api.g_exc_unexpected_error;
1980: END IF;
1981:
1982: END IF;
1975:
1976: IF l_return_status = fnd_api.g_ret_sts_error THEN
1977: RAISE fnd_api.g_exc_error;
1978: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1979: RAISE fnd_api.g_exc_unexpected_error;
1980: END IF;
1981:
1982: END IF;
1983:
1990: ,x_msg_count=> l_msg_count
1991: ,x_msg_data=> l_msg_data
1992: );
1993:
1994: IF l_return_status = fnd_api.g_ret_sts_error THEN
1995: RAISE fnd_api.g_exc_error;
1996: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1997: RAISE fnd_api.g_exc_unexpected_error;
1998: END IF;
1991: ,x_msg_data=> l_msg_data
1992: );
1993:
1994: IF l_return_status = fnd_api.g_ret_sts_error THEN
1995: RAISE fnd_api.g_exc_error;
1996: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1997: RAISE fnd_api.g_exc_unexpected_error;
1998: END IF;
1999:
1992: );
1993:
1994: IF l_return_status = fnd_api.g_ret_sts_error THEN
1995: RAISE fnd_api.g_exc_error;
1996: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1997: RAISE fnd_api.g_exc_unexpected_error;
1998: END IF;
1999:
2000: fnd_msg_pub.count_and_get (
1993:
1994: IF l_return_status = fnd_api.g_ret_sts_error THEN
1995: RAISE fnd_api.g_exc_error;
1996: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1997: RAISE fnd_api.g_exc_unexpected_error;
1998: END IF;
1999:
2000: fnd_msg_pub.count_and_get (
2001: p_encoded=> fnd_api.g_false
1997: RAISE fnd_api.g_exc_unexpected_error;
1998: END IF;
1999:
2000: fnd_msg_pub.count_and_get (
2001: p_encoded=> fnd_api.g_false
2002: ,p_count=> x_msg_count
2003: ,p_data=> x_msg_data
2004: );
2005:
2006: IF G_DEBUG THEN
2007: ozf_utility_pvt.debug_message ( l_full_name || ': end');
2008: END IF;
2009: EXCEPTION
2010: WHEN fnd_api.g_exc_error THEN
2011: ROLLBACK TO reconcile_line;
2012: x_return_status := fnd_api.g_ret_sts_error;
2013: fnd_msg_pub.count_and_get (
2014: p_count=> x_msg_count
2008: END IF;
2009: EXCEPTION
2010: WHEN fnd_api.g_exc_error THEN
2011: ROLLBACK TO reconcile_line;
2012: x_return_status := fnd_api.g_ret_sts_error;
2013: fnd_msg_pub.count_and_get (
2014: p_count=> x_msg_count
2015: ,p_data=> x_msg_data
2016: ,p_encoded=> fnd_api.g_false
2012: x_return_status := fnd_api.g_ret_sts_error;
2013: fnd_msg_pub.count_and_get (
2014: p_count=> x_msg_count
2015: ,p_data=> x_msg_data
2016: ,p_encoded=> fnd_api.g_false
2017: );
2018: WHEN fnd_api.g_exc_unexpected_error THEN
2019: ROLLBACK TO reconcile_line;
2020: x_return_status := fnd_api.g_ret_sts_unexp_error;
2014: p_count=> x_msg_count
2015: ,p_data=> x_msg_data
2016: ,p_encoded=> fnd_api.g_false
2017: );
2018: WHEN fnd_api.g_exc_unexpected_error THEN
2019: ROLLBACK TO reconcile_line;
2020: x_return_status := fnd_api.g_ret_sts_unexp_error;
2021: fnd_msg_pub.count_and_get (
2022: p_count=> x_msg_count
2016: ,p_encoded=> fnd_api.g_false
2017: );
2018: WHEN fnd_api.g_exc_unexpected_error THEN
2019: ROLLBACK TO reconcile_line;
2020: x_return_status := fnd_api.g_ret_sts_unexp_error;
2021: fnd_msg_pub.count_and_get (
2022: p_count=> x_msg_count
2023: ,p_data=> x_msg_data
2024: ,p_encoded=> fnd_api.g_false
2020: x_return_status := fnd_api.g_ret_sts_unexp_error;
2021: fnd_msg_pub.count_and_get (
2022: p_count=> x_msg_count
2023: ,p_data=> x_msg_data
2024: ,p_encoded=> fnd_api.g_false
2025: );
2026: WHEN OTHERS THEN
2027: ROLLBACK TO reconcile_line;
2028: x_return_status := fnd_api.g_ret_sts_unexp_error;
2024: ,p_encoded=> fnd_api.g_false
2025: );
2026: WHEN OTHERS THEN
2027: ROLLBACK TO reconcile_line;
2028: x_return_status := fnd_api.g_ret_sts_unexp_error;
2029:
2030: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2031: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2032: END IF;
2033:
2034: fnd_msg_pub.count_and_get (
2035: p_count=> x_msg_count
2036: ,p_data=> x_msg_data
2037: ,p_encoded=> fnd_api.g_false
2038: );
2039: END reconcile_line;
2040:
2041:
2146: -- 09/09/2003 niprakas CREATED
2147: ---------------------------------------------------------------------
2148: procedure transferring_unutilized_amount(
2149: p_api_version IN NUMBER
2150: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2151: ,p_commit IN VARCHAR2 := fnd_api.g_false
2152: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
2153: , x_return_status OUT NOCOPY VARCHAR2
2154: ,x_msg_count OUT NOCOPY NUMBER
2147: ---------------------------------------------------------------------
2148: procedure transferring_unutilized_amount(
2149: p_api_version IN NUMBER
2150: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2151: ,p_commit IN VARCHAR2 := fnd_api.g_false
2152: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
2153: , x_return_status OUT NOCOPY VARCHAR2
2154: ,x_msg_count OUT NOCOPY NUMBER
2155: ,x_msg_data OUT NOCOPY VARCHAR2
2148: procedure transferring_unutilized_amount(
2149: p_api_version IN NUMBER
2150: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2151: ,p_commit IN VARCHAR2 := fnd_api.g_false
2152: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
2153: , x_return_status OUT NOCOPY VARCHAR2
2154: ,x_msg_count OUT NOCOPY NUMBER
2155: ,x_msg_data OUT NOCOPY VARCHAR2
2156: ,p_fund_id IN NUMBER
2320: ,p_from_amount=> l_old_fund_obj.total_amount
2321: ,x_to_amount=> l_object_curr_amount
2322: );
2323:
2324: IF x_return_status = fnd_api.g_ret_sts_error THEN
2325: RAISE fnd_api.g_exc_error;
2326: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
2327: RAISE fnd_api.g_exc_unexpected_error;
2328: END IF;
2321: ,x_to_amount=> l_object_curr_amount
2322: );
2323:
2324: IF x_return_status = fnd_api.g_ret_sts_error THEN
2325: RAISE fnd_api.g_exc_error;
2326: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
2327: RAISE fnd_api.g_exc_unexpected_error;
2328: END IF;
2329: */
2322: );
2323:
2324: IF x_return_status = fnd_api.g_ret_sts_error THEN
2325: RAISE fnd_api.g_exc_error;
2326: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
2327: RAISE fnd_api.g_exc_unexpected_error;
2328: END IF;
2329: */
2330:
2323:
2324: IF x_return_status = fnd_api.g_ret_sts_error THEN
2325: RAISE fnd_api.g_exc_error;
2326: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
2327: RAISE fnd_api.g_exc_unexpected_error;
2328: END IF;
2329: */
2330:
2331: l_act_budgets_rec.approved_in_currency := l_old_fund_obj.object_currency;
2347: ,p_act_budgets_rec=> l_act_budgets_rec
2348: ,x_act_budget_id=> l_act_budget_id
2349: );
2350:
2351: IF l_return_status = fnd_api.g_ret_sts_error THEN
2352: RAISE fnd_api.g_exc_error;
2353: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2354: RAISE fnd_api.g_exc_unexpected_error;
2355: END IF;
2348: ,x_act_budget_id=> l_act_budget_id
2349: );
2350:
2351: IF l_return_status = fnd_api.g_ret_sts_error THEN
2352: RAISE fnd_api.g_exc_error;
2353: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2354: RAISE fnd_api.g_exc_unexpected_error;
2355: END IF;
2356:
2349: );
2350:
2351: IF l_return_status = fnd_api.g_ret_sts_error THEN
2352: RAISE fnd_api.g_exc_error;
2353: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2354: RAISE fnd_api.g_exc_unexpected_error;
2355: END IF;
2356:
2357: IF G_DEBUG THEN
2350:
2351: IF l_return_status = fnd_api.g_ret_sts_error THEN
2352: RAISE fnd_api.g_exc_error;
2353: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2354: RAISE fnd_api.g_exc_unexpected_error;
2355: END IF;
2356:
2357: IF G_DEBUG THEN
2358: ozf_utility_pvt.write_conc_log(l_full_name || ' New entries created for unutilized committed amount for old budget, fund_id '
2391: ,x_msg_data=> x_msg_data
2392: ,p_act_budgets_rec=> l_act_budgets_rec
2393: ,p_act_util_rec=> l_util_rec
2394: ,x_act_budget_id=> l_act_budget_id
2395: ,p_approval_flag=> fnd_api.g_true
2396: );
2397:
2398: IF G_DEBUG THEN
2399: ozf_utility_pvt.write_conc_log( 'l_return_status for create_act_budgets: ' || l_return_status);
2398: IF G_DEBUG THEN
2399: ozf_utility_pvt.write_conc_log( 'l_return_status for create_act_budgets: ' || l_return_status);
2400: END IF;
2401:
2402: IF l_return_status = fnd_api.g_ret_sts_error THEN
2403: RAISE fnd_api.g_exc_error;
2404: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2405: RAISE fnd_api.g_exc_unexpected_error;
2406: END IF;
2399: ozf_utility_pvt.write_conc_log( 'l_return_status for create_act_budgets: ' || l_return_status);
2400: END IF;
2401:
2402: IF l_return_status = fnd_api.g_ret_sts_error THEN
2403: RAISE fnd_api.g_exc_error;
2404: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2405: RAISE fnd_api.g_exc_unexpected_error;
2406: END IF;
2407:
2400: END IF;
2401:
2402: IF l_return_status = fnd_api.g_ret_sts_error THEN
2403: RAISE fnd_api.g_exc_error;
2404: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2405: RAISE fnd_api.g_exc_unexpected_error;
2406: END IF;
2407:
2408: IF G_DEBUG THEN
2401:
2402: IF l_return_status = fnd_api.g_ret_sts_error THEN
2403: RAISE fnd_api.g_exc_error;
2404: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2405: RAISE fnd_api.g_exc_unexpected_error;
2406: END IF;
2407:
2408: IF G_DEBUG THEN
2409: ozf_utility_pvt.write_conc_log(l_full_name || ' New entries created for new budgets and unutilized committed amount is transferred '
2422: l_message := fnd_message.get_string ('OZF', 'OZF_FUND_NO_MASS_TRANS') || fnd_global.local_chr(10);
2423: ozf_utility_pvt.write_conc_log(l_message || l_fund_id);
2424: END IF; -- The main IF loop
2425:
2426: x_return_status := fnd_api.g_ret_sts_success;
2427:
2428: fnd_msg_pub.count_and_get(
2429: p_encoded => fnd_api.g_false
2430: ,p_count => x_msg_count
2425:
2426: x_return_status := fnd_api.g_ret_sts_success;
2427:
2428: fnd_msg_pub.count_and_get(
2429: p_encoded => fnd_api.g_false
2430: ,p_count => x_msg_count
2431: ,p_data => x_msg_data);
2432: EXCEPTION
2433: WHEN fnd_api.g_exc_error THEN
2429: p_encoded => fnd_api.g_false
2430: ,p_count => x_msg_count
2431: ,p_data => x_msg_data);
2432: EXCEPTION
2433: WHEN fnd_api.g_exc_error THEN
2434: x_return_status := fnd_api.g_ret_sts_error;
2435: fnd_msg_pub.count_and_get(
2436: p_encoded => fnd_api.g_false
2437: ,p_count => x_msg_count
2430: ,p_count => x_msg_count
2431: ,p_data => x_msg_data);
2432: EXCEPTION
2433: WHEN fnd_api.g_exc_error THEN
2434: x_return_status := fnd_api.g_ret_sts_error;
2435: fnd_msg_pub.count_and_get(
2436: p_encoded => fnd_api.g_false
2437: ,p_count => x_msg_count
2438: ,p_data => x_msg_data);
2432: EXCEPTION
2433: WHEN fnd_api.g_exc_error THEN
2434: x_return_status := fnd_api.g_ret_sts_error;
2435: fnd_msg_pub.count_and_get(
2436: p_encoded => fnd_api.g_false
2437: ,p_count => x_msg_count
2438: ,p_data => x_msg_data);
2439: WHEN fnd_api.g_exc_unexpected_error THEN
2440: x_return_status := fnd_api.g_ret_sts_unexp_error;
2435: fnd_msg_pub.count_and_get(
2436: p_encoded => fnd_api.g_false
2437: ,p_count => x_msg_count
2438: ,p_data => x_msg_data);
2439: WHEN fnd_api.g_exc_unexpected_error THEN
2440: x_return_status := fnd_api.g_ret_sts_unexp_error;
2441: fnd_msg_pub.count_and_get(
2442: p_encoded => fnd_api.g_false
2443: ,p_count => x_msg_count
2436: p_encoded => fnd_api.g_false
2437: ,p_count => x_msg_count
2438: ,p_data => x_msg_data);
2439: WHEN fnd_api.g_exc_unexpected_error THEN
2440: x_return_status := fnd_api.g_ret_sts_unexp_error;
2441: fnd_msg_pub.count_and_get(
2442: p_encoded => fnd_api.g_false
2443: ,p_count => x_msg_count
2444: ,p_data => x_msg_data);
2438: ,p_data => x_msg_data);
2439: WHEN fnd_api.g_exc_unexpected_error THEN
2440: x_return_status := fnd_api.g_ret_sts_unexp_error;
2441: fnd_msg_pub.count_and_get(
2442: p_encoded => fnd_api.g_false
2443: ,p_count => x_msg_count
2444: ,p_data => x_msg_data);
2445: WHEN OTHERS THEN
2446: x_return_status := fnd_api.g_ret_sts_unexp_error;
2442: p_encoded => fnd_api.g_false
2443: ,p_count => x_msg_count
2444: ,p_data => x_msg_data);
2445: WHEN OTHERS THEN
2446: x_return_status := fnd_api.g_ret_sts_unexp_error;
2447: fnd_msg_pub.count_and_get(
2448: p_encoded => fnd_api.g_false
2449: ,p_count => x_msg_count
2450: ,p_data => x_msg_data);
2444: ,p_data => x_msg_data);
2445: WHEN OTHERS THEN
2446: x_return_status := fnd_api.g_ret_sts_unexp_error;
2447: fnd_msg_pub.count_and_get(
2448: p_encoded => fnd_api.g_false
2449: ,p_count => x_msg_count
2450: ,p_data => x_msg_data);
2451: END transferring_unutilized_amount;
2452: /*****************************************************************************************/
2461: ---------------------------------------------------------------------
2462:
2463: procedure create_new_funds(
2464: p_api_version IN NUMBER
2465: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2466: ,p_commit IN VARCHAR2 := fnd_api.g_false
2467: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
2468: ,x_return_status OUT NOCOPY VARCHAR2
2469: ,x_msg_count OUT NOCOPY NUMBER
2462:
2463: procedure create_new_funds(
2464: p_api_version IN NUMBER
2465: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2466: ,p_commit IN VARCHAR2 := fnd_api.g_false
2467: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
2468: ,x_return_status OUT NOCOPY VARCHAR2
2469: ,x_msg_count OUT NOCOPY NUMBER
2470: ,x_msg_data OUT NOCOPY VARCHAR2
2463: procedure create_new_funds(
2464: p_api_version IN NUMBER
2465: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2466: ,p_commit IN VARCHAR2 := fnd_api.g_false
2467: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
2468: ,x_return_status OUT NOCOPY VARCHAR2
2469: ,x_msg_count OUT NOCOPY NUMBER
2470: ,x_msg_data OUT NOCOPY VARCHAR2
2471: ,p_fund_rec IN OZF_FUNDS_ALL_VL%ROWTYPE,
2477: l_api_name CONSTANT VARCHAR2(30)
2478: := 'create_new_funds';
2479: l_full_name CONSTANT VARCHAR2(60)
2480: := g_pkg_name || '.' || l_api_name;
2481: l_return_status VARCHAR2(1) := FND_API.g_ret_sts_success;
2482: l_msg_count NUMBER;
2483: l_msg_data VARCHAR2(10000);
2484:
2485: l_fund_rec OZF_FUNDS_ALL_VL%ROWTYPE := p_fund_rec;
2504: IF G_DEBUG THEN
2505: ozf_utility_pvt.write_conc_log(l_full_name || ': start');
2506: END IF;
2507:
2508: IF fnd_api.to_boolean(p_init_msg_list) THEN
2509: fnd_msg_pub.initialize;
2510: END IF;
2511:
2512: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2508: IF fnd_api.to_boolean(p_init_msg_list) THEN
2509: fnd_msg_pub.initialize;
2510: END IF;
2511:
2512: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2513: RAISE fnd_api.g_exc_unexpected_error;
2514: END IF;
2515:
2516: x_return_status := fnd_api.g_ret_sts_success;
2509: fnd_msg_pub.initialize;
2510: END IF;
2511:
2512: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2513: RAISE fnd_api.g_exc_unexpected_error;
2514: END IF;
2515:
2516: x_return_status := fnd_api.g_ret_sts_success;
2517:
2512: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2513: RAISE fnd_api.g_exc_unexpected_error;
2514: END IF;
2515:
2516: x_return_status := fnd_api.g_ret_sts_success;
2517:
2518: l_fund_rec_type.parent_fund_id := l_fund_rec.parent_fund_id;
2519: l_fund_rec_type.status_code := l_fund_rec.status_code;
2520: l_fund_rec_type.original_budget := l_fund_rec.original_budget;
2551: ozf_utility_pvt.write_conc_log('l_fund_rec_type.ledger_id: ' || l_fund_rec_type.ledger_id);
2552: END IF;
2553:
2554: OZF_funds_pvt.create_fund(p_api_version => 1.0
2555: ,p_init_msg_list => fnd_api.g_false
2556: ,p_commit => fnd_api.g_false
2557: ,p_validation_level => fnd_api.g_valid_level_full
2558: ,x_return_status => l_return_status
2559: ,x_msg_count => l_msg_count
2552: END IF;
2553:
2554: OZF_funds_pvt.create_fund(p_api_version => 1.0
2555: ,p_init_msg_list => fnd_api.g_false
2556: ,p_commit => fnd_api.g_false
2557: ,p_validation_level => fnd_api.g_valid_level_full
2558: ,x_return_status => l_return_status
2559: ,x_msg_count => l_msg_count
2560: ,x_msg_data => l_msg_data
2553:
2554: OZF_funds_pvt.create_fund(p_api_version => 1.0
2555: ,p_init_msg_list => fnd_api.g_false
2556: ,p_commit => fnd_api.g_false
2557: ,p_validation_level => fnd_api.g_valid_level_full
2558: ,x_return_status => l_return_status
2559: ,x_msg_count => l_msg_count
2560: ,x_msg_data => l_msg_data
2561: ,p_fund_rec => l_fund_rec_type
2562: ,x_fund_id => l_fund_id);
2563:
2564: x_return_status := l_return_status;
2565:
2566: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2567: ROLLBACK TO create_new_funds;
2568: RETURN;
2569: END IF;
2570:
2584: ,p_errcode =>l_errcode
2585: ,p_errmsg =>l_errmsg
2586: );
2587: IF l_errcode IS NOT NULL THEN
2588: x_return_status := fnd_api.g_ret_sts_error;
2589: ROLLBACK TO create_new_funds;
2590: RAISE fnd_api.g_exc_error;
2591: RETURN;
2592: END IF;
2586: );
2587: IF l_errcode IS NOT NULL THEN
2588: x_return_status := fnd_api.g_ret_sts_error;
2589: ROLLBACK TO create_new_funds;
2590: RAISE fnd_api.g_exc_error;
2591: RETURN;
2592: END IF;
2593:
2594: /* To copy the products of old budget to the new budget */
2600: ,p_errmsg =>l_errmsg
2601: );
2602:
2603: IF l_errcode IS NOT NULL THEN
2604: x_return_status := fnd_api.g_ret_sts_error;
2605: ROLLBACK TO create_new_funds;
2606: RAISE fnd_api.g_exc_error;
2607: RETURN;
2608: END IF;
2602:
2603: IF l_errcode IS NOT NULL THEN
2604: x_return_status := fnd_api.g_ret_sts_error;
2605: ROLLBACK TO create_new_funds;
2606: RAISE fnd_api.g_exc_error;
2607: RETURN;
2608: END IF;
2609:
2610: x_new_fund_id := l_fund_id;
2627: ---------------------------------------------------------------------
2628:
2629: procedure get_new_funds(
2630: p_api_version IN NUMBER
2631: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2632: ,p_commit IN VARCHAR2 := fnd_api.g_false
2633: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
2634: , x_return_status OUT NOCOPY VARCHAR2
2635: ,x_msg_count OUT NOCOPY NUMBER
2628:
2629: procedure get_new_funds(
2630: p_api_version IN NUMBER
2631: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2632: ,p_commit IN VARCHAR2 := fnd_api.g_false
2633: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
2634: , x_return_status OUT NOCOPY VARCHAR2
2635: ,x_msg_count OUT NOCOPY NUMBER
2636: ,x_msg_data OUT NOCOPY VARCHAR2
2629: procedure get_new_funds(
2630: p_api_version IN NUMBER
2631: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2632: ,p_commit IN VARCHAR2 := fnd_api.g_false
2633: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
2634: , x_return_status OUT NOCOPY VARCHAR2
2635: ,x_msg_count OUT NOCOPY NUMBER
2636: ,x_msg_data OUT NOCOPY VARCHAR2
2637: )
2641: l_new_user_status_id NUMBER;
2642: l_new_fund_rec OZF_FUNDS_ALL_VL%ROWTYPE;
2643: l_new_fund_rec_type OZF_Funds_PVT.fund_rec_type;
2644: l_fund_rec OZF_Funds_PVT.fund_rec_type;
2645: l_return_status VARCHAR2(30) := fnd_api.g_ret_sts_success;
2646: l_api_name CONSTANT VARCHAR2(30)
2647: := 'get_new_funds';
2648: l_full_name CONSTANT VARCHAR2(60)
2649: := g_pkg_name || '.' || l_api_name;
2670: WHERE fund_id = p_fund_id;
2671:
2672: BEGIN
2673:
2674: x_return_status := fnd_api.g_ret_sts_success;
2675:
2676: OPEN c_get_new_funds;
2677: LOOP
2678: SAVEPOINT new_budget;
2713: ozf_utility_pvt.write_conc_log(l_full_name || ' update draft budget to active. ' || l_new_fund_rec_type.fund_id);
2714: END IF;
2715:
2716: OZF_funds_pvt.update_fund(p_api_version => 1.0
2717: ,p_init_msg_list => FND_API.G_FALSE
2718: ,p_commit => FND_API.G_FALSE
2719: ,p_validation_level => fnd_api.g_valid_level_full
2720: ,x_return_status => l_return_status
2721: ,x_msg_count => l_msg_count
2714: END IF;
2715:
2716: OZF_funds_pvt.update_fund(p_api_version => 1.0
2717: ,p_init_msg_list => FND_API.G_FALSE
2718: ,p_commit => FND_API.G_FALSE
2719: ,p_validation_level => fnd_api.g_valid_level_full
2720: ,x_return_status => l_return_status
2721: ,x_msg_count => l_msg_count
2722: ,x_msg_data => l_msg_data
2715:
2716: OZF_funds_pvt.update_fund(p_api_version => 1.0
2717: ,p_init_msg_list => FND_API.G_FALSE
2718: ,p_commit => FND_API.G_FALSE
2719: ,p_validation_level => fnd_api.g_valid_level_full
2720: ,x_return_status => l_return_status
2721: ,x_msg_count => l_msg_count
2722: ,x_msg_data => l_msg_data
2723: ,p_fund_rec => l_new_fund_rec_type
2723: ,p_fund_rec => l_new_fund_rec_type
2724: ,p_mode => l_mode
2725: );
2726:
2727: IF NOT (l_return_status = fnd_api.g_ret_sts_success) THEN
2728: GOTO end_loop;
2729: END IF;
2730:
2731: IF G_DEBUG THEN
2743: -- if original_budget = 0, which is the case for activating budget above, no transfer happens. fix for R12.
2744:
2745: IF l_new_fund_rec.original_budget <> 0 THEN
2746: transferring_unutilized_amount(p_api_version => 1.0
2747: ,p_init_msg_list => FND_API.G_FALSE
2748: ,p_commit => FND_API.G_FALSE
2749: ,p_validation_level => fnd_api.g_valid_level_full
2750: ,x_return_status => l_return_status
2751: ,x_msg_count => l_msg_count
2744:
2745: IF l_new_fund_rec.original_budget <> 0 THEN
2746: transferring_unutilized_amount(p_api_version => 1.0
2747: ,p_init_msg_list => FND_API.G_FALSE
2748: ,p_commit => FND_API.G_FALSE
2749: ,p_validation_level => fnd_api.g_valid_level_full
2750: ,x_return_status => l_return_status
2751: ,x_msg_count => l_msg_count
2752: ,x_msg_data => l_msg_data
2745: IF l_new_fund_rec.original_budget <> 0 THEN
2746: transferring_unutilized_amount(p_api_version => 1.0
2747: ,p_init_msg_list => FND_API.G_FALSE
2748: ,p_commit => FND_API.G_FALSE
2749: ,p_validation_level => fnd_api.g_valid_level_full
2750: ,x_return_status => l_return_status
2751: ,x_msg_count => l_msg_count
2752: ,x_msg_data => l_msg_data
2753: ,p_fund_id => l_new_fund_rec.fund_id
2755: ,p_original_budget => l_new_fund_rec.original_budget
2756: ,p_fund_currency =>l_new_fund_rec.currency_code_tc
2757: );
2758:
2759: IF NOT (l_return_status = fnd_api.g_ret_sts_success) THEN
2760: ozf_utility_pvt.write_conc_log(' Transferring failed for the fund : '|| l_new_fund_rec.fund_id);
2761: ozf_utility_pvt.write_conc_log(l_msg_data);
2762: GOTO end_loop;
2763: END IF;
2782: l_fund_rec.object_version_number := l_object_version;
2783: l_fund_rec.TRANSFERED_FLAG := 'Y' ;
2784:
2785: ozf_funds_pvt.update_fund(p_api_version=> 1.0
2786: ,p_init_msg_list=> fnd_api.g_false
2787: ,p_commit=> fnd_api.g_false
2788: ,p_validation_level=> fnd_api.g_valid_level_full
2789: ,x_return_status=> l_return_status
2790: ,x_msg_count=> x_msg_count
2783: l_fund_rec.TRANSFERED_FLAG := 'Y' ;
2784:
2785: ozf_funds_pvt.update_fund(p_api_version=> 1.0
2786: ,p_init_msg_list=> fnd_api.g_false
2787: ,p_commit=> fnd_api.g_false
2788: ,p_validation_level=> fnd_api.g_valid_level_full
2789: ,x_return_status=> l_return_status
2790: ,x_msg_count=> x_msg_count
2791: ,x_msg_data=> x_msg_data
2784:
2785: ozf_funds_pvt.update_fund(p_api_version=> 1.0
2786: ,p_init_msg_list=> fnd_api.g_false
2787: ,p_commit=> fnd_api.g_false
2788: ,p_validation_level=> fnd_api.g_valid_level_full
2789: ,x_return_status=> l_return_status
2790: ,x_msg_count=> x_msg_count
2791: ,x_msg_data=> x_msg_data
2792: ,p_fund_rec=> l_fund_rec
2792: ,p_fund_rec=> l_fund_rec
2793: ,p_mode=> l_mode
2794: );
2795:
2796: IF NOT (l_return_status = fnd_api.g_ret_sts_success) THEN
2797: GOTO end_loop;
2798: END IF;
2799:
2800: IF G_DEBUG THEN
2803:
2804: END IF; -- end of l_end_date.
2805:
2806: <
2807: IF l_return_status = fnd_api.g_ret_sts_success THEN
2808: COMMIT;
2809: ELSE
2810: ROLLBACK TO new_budget;
2811: END IF;
2813: END LOOP;
2814:
2815: CLOSE c_get_new_funds;
2816:
2817: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false
2818: ,p_count => x_msg_count
2819: ,p_data => x_msg_data);
2820:
2821: IF G_DEBUG THEN
2822: ozf_utility_pvt.debug_message(l_full_name || ': end');
2823: END IF;
2824:
2825: EXCEPTION
2826: WHEN fnd_api.g_exc_error THEN
2827: ROLLBACK;
2828: x_return_status := fnd_api.g_ret_sts_error;
2829: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false
2830: ,p_count => x_msg_count
2824:
2825: EXCEPTION
2826: WHEN fnd_api.g_exc_error THEN
2827: ROLLBACK;
2828: x_return_status := fnd_api.g_ret_sts_error;
2829: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false
2830: ,p_count => x_msg_count
2831: ,p_data => x_msg_data);
2832: WHEN fnd_api.g_exc_unexpected_error THEN
2825: EXCEPTION
2826: WHEN fnd_api.g_exc_error THEN
2827: ROLLBACK;
2828: x_return_status := fnd_api.g_ret_sts_error;
2829: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false
2830: ,p_count => x_msg_count
2831: ,p_data => x_msg_data);
2832: WHEN fnd_api.g_exc_unexpected_error THEN
2833: ROLLBACK;
2828: x_return_status := fnd_api.g_ret_sts_error;
2829: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false
2830: ,p_count => x_msg_count
2831: ,p_data => x_msg_data);
2832: WHEN fnd_api.g_exc_unexpected_error THEN
2833: ROLLBACK;
2834: x_return_status := fnd_api.g_ret_sts_unexp_error;
2835: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false
2836: ,p_count => x_msg_count
2830: ,p_count => x_msg_count
2831: ,p_data => x_msg_data);
2832: WHEN fnd_api.g_exc_unexpected_error THEN
2833: ROLLBACK;
2834: x_return_status := fnd_api.g_ret_sts_unexp_error;
2835: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false
2836: ,p_count => x_msg_count
2837: ,p_data => x_msg_data);
2838: WHEN OTHERS THEN
2831: ,p_data => x_msg_data);
2832: WHEN fnd_api.g_exc_unexpected_error THEN
2833: ROLLBACK;
2834: x_return_status := fnd_api.g_ret_sts_unexp_error;
2835: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false
2836: ,p_count => x_msg_count
2837: ,p_data => x_msg_data);
2838: WHEN OTHERS THEN
2839: ROLLBACK;
2836: ,p_count => x_msg_count
2837: ,p_data => x_msg_data);
2838: WHEN OTHERS THEN
2839: ROLLBACK;
2840: x_return_status := fnd_api.g_ret_sts_unexp_error;
2841:
2842: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2843: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
2844: END IF;
2842: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2843: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
2844: END IF;
2845:
2846: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false
2847: ,p_count => x_msg_count
2848: ,p_data => x_msg_data);
2849:
2850: END get_new_funds;
2987: FETCH c_get_fund_id INTO l_root_fund_id;
2988:
2989: fnd_msg_pub.initialize;
2990:
2991: l_return_status := fnd_api.g_ret_sts_success;
2992:
2993: IF c_get_fund_id%NOTFOUND THEN
2994: EXIT;
2995: END IF;
3029: l_fund_rec.parent_fund_id := l_par_fund_id;
3030: ELSE
3031: ozf_utility_pvt.write_conc_log('Error in creating new fund for fund id ' || l_root_fund_id);
3032: ozf_utility_pvt.write_conc_log('----Next period budget doesn''t exist for parent fund id ' || l_fund_rec.parent_fund_id);
3033: l_return_status := fnd_api.g_ret_sts_error;
3034: GOTO end_loop;
3035: END IF;
3036: END IF;
3037:
3036: END IF;
3037:
3038: -- create new Budget
3039: create_new_funds(p_api_version => 1.0
3040: ,p_init_msg_list => FND_API.G_FALSE
3041: ,p_commit => FND_API.G_FALSE
3042: ,p_validation_level => fnd_api.g_valid_level_full
3043: ,x_return_status => l_return_status
3044: ,x_msg_count => x_msg_count
3037:
3038: -- create new Budget
3039: create_new_funds(p_api_version => 1.0
3040: ,p_init_msg_list => FND_API.G_FALSE
3041: ,p_commit => FND_API.G_FALSE
3042: ,p_validation_level => fnd_api.g_valid_level_full
3043: ,x_return_status => l_return_status
3044: ,x_msg_count => x_msg_count
3045: ,x_msg_data => x_msg_data
3038: -- create new Budget
3039: create_new_funds(p_api_version => 1.0
3040: ,p_init_msg_list => FND_API.G_FALSE
3041: ,p_commit => FND_API.G_FALSE
3042: ,p_validation_level => fnd_api.g_valid_level_full
3043: ,x_return_status => l_return_status
3044: ,x_msg_count => x_msg_count
3045: ,x_msg_data => x_msg_data
3046: ,p_fund_rec => l_fund_rec
3046: ,p_fund_rec => l_fund_rec
3047: ,x_new_fund_id => l_new_fund_id
3048: );
3049:
3050: IF NOT (l_return_status = fnd_api.g_ret_sts_success) THEN
3051: ozf_utility_pvt.write_conc_log('Error in creating new fund for fund id ' || l_root_fund_id);
3052: GOTO end_loop;
3053: END IF;
3054:
3084:
3085: IF l_child_fund_rec.parent_fund_id IS NULL THEN
3086: ozf_utility_pvt.write_conc_log('Error in creating new fund for fund id ' || l_child_fund_id);
3087: ozf_utility_pvt.write_conc_log('----Next period budget doesn''t exist for parent fund id ' || l_parent_fund_id);
3088: l_return_status := fnd_api.g_ret_sts_error;
3089: GOTO end_loop;
3090: END IF;
3091:
3092: -- if the amount_flag is not yes then set the original budget to 0 else it would remain default...
3099: END IF;
3100:
3101: -- create fund corresonding to this child budget
3102: create_new_funds(p_api_version => 1.0
3103: ,p_init_msg_list => FND_API.G_FALSE
3104: ,p_commit => FND_API.G_FALSE
3105: ,p_validation_level => fnd_api.g_valid_level_full
3106: ,x_return_status => l_return_status
3107: ,x_msg_count => x_msg_count
3100:
3101: -- create fund corresonding to this child budget
3102: create_new_funds(p_api_version => 1.0
3103: ,p_init_msg_list => FND_API.G_FALSE
3104: ,p_commit => FND_API.G_FALSE
3105: ,p_validation_level => fnd_api.g_valid_level_full
3106: ,x_return_status => l_return_status
3107: ,x_msg_count => x_msg_count
3108: ,x_msg_data => x_msg_data
3101: -- create fund corresonding to this child budget
3102: create_new_funds(p_api_version => 1.0
3103: ,p_init_msg_list => FND_API.G_FALSE
3104: ,p_commit => FND_API.G_FALSE
3105: ,p_validation_level => fnd_api.g_valid_level_full
3106: ,x_return_status => l_return_status
3107: ,x_msg_count => x_msg_count
3108: ,x_msg_data => x_msg_data
3109: ,p_fund_rec => l_child_fund_rec
3109: ,p_fund_rec => l_child_fund_rec
3110: ,x_new_fund_id => l_new_fund_id
3111: );
3112:
3113: IF NOT (l_return_status = fnd_api.g_ret_sts_success) THEN
3114: ozf_utility_pvt.write_conc_log('Error in creating new fund for fund id ' || l_child_fund_id);
3115: GOTO end_loop;
3116: END IF;
3117:
3128: CLOSE c_get_hierarchy_budgets;
3129: END IF; -- hierarchy flag check loop ends here
3130:
3131: <
3132: IF l_return_status = fnd_api.g_ret_sts_success THEN
3133: COMMIT;
3134: x_retcode := 0;
3135: ELSE
3136: ROLLBACK TO open_next_years_budget;
3135: ELSE
3136: ROLLBACK TO open_next_years_budget;
3137: fnd_msg_pub.count_and_get(p_count => x_msg_count
3138: ,p_data => x_msg_data
3139: ,p_encoded => fnd_api.g_false
3140: );
3141: ozf_utility_pvt.write_conc_log (x_msg_data);
3142: END IF;
3143:
3146: END IF; --l_fund_id is NOT NULL OR l_query_id is NOT NULL
3147:
3148: -- activate draft budget from mass transfer and transfer unutilized amount to new budget.
3149: get_new_funds(p_api_version => 1.0
3150: ,p_init_msg_list => FND_API.G_FALSE
3151: ,p_commit => FND_API.G_FALSE
3152: ,p_validation_level => fnd_api.g_valid_level_full
3153: ,x_return_status => l_return_status
3154: ,x_msg_count => x_msg_count
3147:
3148: -- activate draft budget from mass transfer and transfer unutilized amount to new budget.
3149: get_new_funds(p_api_version => 1.0
3150: ,p_init_msg_list => FND_API.G_FALSE
3151: ,p_commit => FND_API.G_FALSE
3152: ,p_validation_level => fnd_api.g_valid_level_full
3153: ,x_return_status => l_return_status
3154: ,x_msg_count => x_msg_count
3155: ,x_msg_data => x_msg_data
3148: -- activate draft budget from mass transfer and transfer unutilized amount to new budget.
3149: get_new_funds(p_api_version => 1.0
3150: ,p_init_msg_list => FND_API.G_FALSE
3151: ,p_commit => FND_API.G_FALSE
3152: ,p_validation_level => fnd_api.g_valid_level_full
3153: ,x_return_status => l_return_status
3154: ,x_msg_count => x_msg_count
3155: ,x_msg_data => x_msg_data
3156: );
3154: ,x_msg_count => x_msg_count
3155: ,x_msg_data => x_msg_data
3156: );
3157:
3158: IF NOT (l_return_status = fnd_api.g_ret_sts_success) THEN
3159: ROLLBACK;
3160: x_retcode := 1;
3161: x_errbuf := x_msg_data;
3162: RAISE fnd_api.g_exc_error;
3158: IF NOT (l_return_status = fnd_api.g_ret_sts_success) THEN
3159: ROLLBACK;
3160: x_retcode := 1;
3161: x_errbuf := x_msg_data;
3162: RAISE fnd_api.g_exc_error;
3163: END IF;
3164:
3165: IF G_DEBUG THEN
3166: ozf_utility_pvt.write_conc_log(l_full_name || ' :ends ');
3166: ozf_utility_pvt.write_conc_log(l_full_name || ' :ends ');
3167: END IF;
3168:
3169: EXCEPTION
3170: WHEN fnd_api.g_exc_error THEN
3171: ROLLBACK;
3172: x_retcode := 1;
3173: x_errbuf := x_msg_data;
3174: fnd_msg_pub.count_and_get(p_count => x_msg_count
3172: x_retcode := 1;
3173: x_errbuf := x_msg_data;
3174: fnd_msg_pub.count_and_get(p_count => x_msg_count
3175: ,p_data => x_msg_data
3176: ,p_encoded => fnd_api.g_false
3177: );
3178: ozf_utility_pvt.write_conc_log (x_errbuf);
3179: WHEN fnd_api.g_exc_unexpected_error THEN
3180: ROLLBACK;
3175: ,p_data => x_msg_data
3176: ,p_encoded => fnd_api.g_false
3177: );
3178: ozf_utility_pvt.write_conc_log (x_errbuf);
3179: WHEN fnd_api.g_exc_unexpected_error THEN
3180: ROLLBACK;
3181: x_retcode := 1;
3182: x_errbuf := x_msg_data;
3183: fnd_msg_pub.count_and_get(p_count => x_msg_count
3181: x_retcode := 1;
3182: x_errbuf := x_msg_data;
3183: fnd_msg_pub.count_and_get(p_count => x_msg_count
3184: ,p_data => x_msg_data
3185: ,p_encoded => fnd_api.g_false
3186: );
3187: ozf_utility_pvt.write_conc_log (x_errbuf);
3188: WHEN OTHERS THEN
3189: ROLLBACK;
3190: x_retcode := 1;
3191: x_errbuf := x_msg_data;
3192: fnd_msg_pub.count_and_get(p_count => x_msg_count
3193: ,p_data => x_msg_data
3194: ,p_encoded => fnd_api.g_false
3195: );
3196: ozf_utility_pvt.write_conc_log (x_errbuf);
3197:
3198: END open_next_years_budget;