[Home] [Help]
42:
43:
44: EXCEPTION
45: WHEN OTHERS THEN
46: RAISE Fnd_Api.g_exc_error;
47: ozf_utility_pvt.debug_message('Exception in raising business event');
48: END;
49:
50:
53: -- Create_Utilization
54: --
55: -- HISTORY
56: -- 04/25/2001 Mumu Pande Create.
57: -- p_create_gl_entry IN VARCHAR2 := FND_API.g_false this flag indicates wether to
58: -- create gl entry or not . Right now the entry is only for utilization type 'adjustment'
59: -- Requirements for 11.5.5- hornet
60: -- 02/08/2001 Mumu Pande Updated for 11.5.5 requirements
61: -- 02/23/2001 Mumu Pande Updated for Hornet requirements
83: ---------------------------------------------------------------------
84:
85: PROCEDURE create_utilization (
86: p_api_version IN NUMBER
87: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
88: ,p_commit IN VARCHAR2 := fnd_api.g_false
89: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
90: ,x_return_status OUT NOCOPY VARCHAR2
91: ,x_msg_count OUT NOCOPY NUMBER
84:
85: PROCEDURE create_utilization (
86: p_api_version IN NUMBER
87: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
88: ,p_commit IN VARCHAR2 := fnd_api.g_false
89: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
90: ,x_return_status OUT NOCOPY VARCHAR2
91: ,x_msg_count OUT NOCOPY NUMBER
92: ,x_msg_data OUT NOCOPY VARCHAR2
85: PROCEDURE create_utilization (
86: p_api_version IN NUMBER
87: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
88: ,p_commit IN VARCHAR2 := fnd_api.g_false
89: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
90: ,x_return_status OUT NOCOPY VARCHAR2
91: ,x_msg_count OUT NOCOPY NUMBER
92: ,x_msg_data OUT NOCOPY VARCHAR2
93: ,p_create_gl_entry IN VARCHAR2 := fnd_api.g_false
89: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
90: ,x_return_status OUT NOCOPY VARCHAR2
91: ,x_msg_count OUT NOCOPY NUMBER
92: ,x_msg_data OUT NOCOPY VARCHAR2
93: ,p_create_gl_entry IN VARCHAR2 := fnd_api.g_false
94: ,p_utilization_rec IN utilization_rec_type
95: ,x_utilization_id OUT NOCOPY NUMBER
96: ) IS
97: lx_ozf_act_budgets_tbl OZF_UTILITY_PVT.ozf_act_budgets_table;
124: -- Create_Utilization
125: --
126: -- HISTORY
127: -- 04/25/2001 Mumu Pande Create.
128: -- p_create_gl_entry IN VARCHAR2 := FND_API.g_false this flag indicates wether to
129: -- create gl entry or not . Right now the entry is only for utilization type 'adjustment'
130: -- Requirements for 11.5.5- hornet
131: -- 02/08/2001 Mumu Pande Updated for 11.5.5 requirements
132: -- 02/23/2001 Mumu Pande Updated for Hornet requirements
154: ---------------------------------------------------------------------
155:
156: PROCEDURE create_utilization (
157: p_api_version IN NUMBER
158: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
159: ,p_commit IN VARCHAR2 := fnd_api.g_false
160: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
161: ,x_return_status OUT NOCOPY VARCHAR2
162: ,x_msg_count OUT NOCOPY NUMBER
155:
156: PROCEDURE create_utilization (
157: p_api_version IN NUMBER
158: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
159: ,p_commit IN VARCHAR2 := fnd_api.g_false
160: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
161: ,x_return_status OUT NOCOPY VARCHAR2
162: ,x_msg_count OUT NOCOPY NUMBER
163: ,x_msg_data OUT NOCOPY VARCHAR2
156: PROCEDURE create_utilization (
157: p_api_version IN NUMBER
158: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
159: ,p_commit IN VARCHAR2 := fnd_api.g_false
160: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
161: ,x_return_status OUT NOCOPY VARCHAR2
162: ,x_msg_count OUT NOCOPY NUMBER
163: ,x_msg_data OUT NOCOPY VARCHAR2
164: ,p_create_gl_entry IN VARCHAR2 := fnd_api.g_false
160: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
161: ,x_return_status OUT NOCOPY VARCHAR2
162: ,x_msg_count OUT NOCOPY NUMBER
163: ,x_msg_data OUT NOCOPY VARCHAR2
164: ,p_create_gl_entry IN VARCHAR2 := fnd_api.g_false
165: ,p_utilization_rec IN utilization_rec_type
166: ,x_utilization_id OUT NOCOPY NUMBER
167: ,p_batch_type IN VARCHAR2
168: ,p_use_fund_staging_tables IN VARCHAR2
506: ozf_utility_pvt.debug_message ( l_full_name
507: || ': start' || p_utilization_rec.utilization_type);
508: END IF;
509:
510: IF fnd_api.to_boolean (p_init_msg_list) THEN
511: fnd_msg_pub.initialize;
512: END IF;
513:
514: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
510: IF fnd_api.to_boolean (p_init_msg_list) THEN
511: fnd_msg_pub.initialize;
512: END IF;
513:
514: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
515: RAISE fnd_api.g_exc_unexpected_error;
516: END IF;
517:
518: x_return_status := fnd_api.g_ret_sts_success;
511: fnd_msg_pub.initialize;
512: END IF;
513:
514: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
515: RAISE fnd_api.g_exc_unexpected_error;
516: END IF;
517:
518: x_return_status := fnd_api.g_ret_sts_success;
519:
514: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
515: RAISE fnd_api.g_exc_unexpected_error;
516: END IF;
517:
518: x_return_status := fnd_api.g_ret_sts_success;
519:
520: ----------------------- validate -----------------------
521: IF G_DEBUG THEN
522: ozf_utility_pvt.debug_message (
545: );
546: END IF;
547: validate_utilization (
548: p_api_version=> l_api_version
549: ,p_init_msg_list=> fnd_api.g_false
550: ,p_validation_level=> p_validation_level
551: ,x_return_status=> l_return_status
552: ,x_msg_count=> x_msg_count
553: ,x_msg_data=> x_msg_data
553: ,x_msg_data=> x_msg_data
554: ,p_utilization_rec=> l_utilization_rec
555: );
556:
557: IF l_return_status = fnd_api.g_ret_sts_error THEN
558: RAISE fnd_api.g_exc_error;
559: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
560: RAISE fnd_api.g_exc_unexpected_error;
561: END IF;
554: ,p_utilization_rec=> l_utilization_rec
555: );
556:
557: IF l_return_status = fnd_api.g_ret_sts_error THEN
558: RAISE fnd_api.g_exc_error;
559: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
560: RAISE fnd_api.g_exc_unexpected_error;
561: END IF;
562:
555: );
556:
557: IF l_return_status = fnd_api.g_ret_sts_error THEN
558: RAISE fnd_api.g_exc_error;
559: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
560: RAISE fnd_api.g_exc_unexpected_error;
561: END IF;
562:
563:
556:
557: IF l_return_status = fnd_api.g_ret_sts_error THEN
558: RAISE fnd_api.g_exc_error;
559: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
560: RAISE fnd_api.g_exc_unexpected_error;
561: END IF;
562:
563:
564: -- Here we should check for adjustment_type , if the adjustment_type is DECREASE_COMMITTMENT or DECREASE_EARNED_COMMITTED
686: ,x_org_id => l_utilization_rec.org_id
687: ,x_ledger_id => l_ledger_id
688: ,x_return_status => l_return_status);
689:
690: IF l_return_status = fnd_api.g_ret_sts_error THEN
691: RAISE fnd_api.g_exc_error;
692: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
693: RAISE fnd_api.g_exc_unexpected_error;
694: END IF;
687: ,x_ledger_id => l_ledger_id
688: ,x_return_status => l_return_status);
689:
690: IF l_return_status = fnd_api.g_ret_sts_error THEN
691: RAISE fnd_api.g_exc_error;
692: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
693: RAISE fnd_api.g_exc_unexpected_error;
694: END IF;
695:
688: ,x_return_status => l_return_status);
689:
690: IF l_return_status = fnd_api.g_ret_sts_error THEN
691: RAISE fnd_api.g_exc_error;
692: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
693: RAISE fnd_api.g_exc_unexpected_error;
694: END IF;
695:
696: ELSE
689:
690: IF l_return_status = fnd_api.g_ret_sts_error THEN
691: RAISE fnd_api.g_exc_error;
692: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
693: RAISE fnd_api.g_exc_unexpected_error;
694: END IF;
695:
696: ELSE
697: --kdass R12 bug 4635529
712: --Added for bug 7030415, get the conversion type based on utilizations org_id
713:
714: --nirprasa,ER 8399134
715: IF l_utilization_rec.exchange_rate_type IS NULL
716: OR l_utilization_rec.exchange_rate_type = FND_API.G_MISS_CHAR THEN
717:
718: OPEN c_get_conversion_type(l_utilization_rec.org_id);
719: FETCH c_get_conversion_type INTO l_utilization_rec.exchange_rate_type;
720: CLOSE c_get_conversion_type;
739: fnd_message.set_token('OBJECT_TYPE', l_utilization_rec.plan_type);
740: fnd_message.set_token('OBJECT_ID', l_utilization_rec.plan_id);
741: fnd_msg_pub.ADD;
742: END IF;
743: x_return_status := fnd_api.g_ret_sts_error;
744: RAISE fnd_api.g_exc_error;
745: END IF;
746: ELSE
747:
740: fnd_message.set_token('OBJECT_ID', l_utilization_rec.plan_id);
741: fnd_msg_pub.ADD;
742: END IF;
743: x_return_status := fnd_api.g_ret_sts_error;
744: RAISE fnd_api.g_exc_error;
745: END IF;
746: ELSE
747:
748: IF G_DEBUG THEN
784: );
785: END IF;
786:
787:
788: IF l_return_status = fnd_api.g_ret_sts_error THEN
789: RAISE fnd_api.g_exc_error;
790: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
791: RAISE fnd_api.g_exc_unexpected_error;
792: END IF;
785: END IF;
786:
787:
788: IF l_return_status = fnd_api.g_ret_sts_error THEN
789: RAISE fnd_api.g_exc_error;
790: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
791: RAISE fnd_api.g_exc_unexpected_error;
792: END IF;
793: END IF;
786:
787:
788: IF l_return_status = fnd_api.g_ret_sts_error THEN
789: RAISE fnd_api.g_exc_error;
790: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
791: RAISE fnd_api.g_exc_unexpected_error;
792: END IF;
793: END IF;
794:
787:
788: IF l_return_status = fnd_api.g_ret_sts_error THEN
789: RAISE fnd_api.g_exc_error;
790: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
791: RAISE fnd_api.g_exc_unexpected_error;
792: END IF;
793: END IF;
794:
795: l_plan_currency :=
837: ELSE
838: -- nirprasa, ER 8399134 Skip conversion, plan_curr_amount is
839: -- already populated by calling API
840: IF p_utilization_rec.plan_curr_amount IS NULL
841: OR p_utilization_rec.plan_curr_amount = fnd_api.g_miss_num THEN
842:
843: IF G_DEBUG THEN
844: ozf_utility_pvt.debug_message(' plan_curr_amount '|| p_utilization_rec.plan_curr_amount);
845: ozf_utility_pvt.debug_message(' plan_currency_code '|| l_utilization_rec.plan_currency_code);
862: END IF;
863: l_plan_curr_amount := l_utilization_rec.plan_curr_amount;
864: END IF;
865:
866: IF l_return_status = fnd_api.g_ret_sts_error THEN
867: RAISE fnd_api.g_exc_error;
868: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
869: RAISE fnd_api.g_exc_unexpected_error;
870: END IF;
863: l_plan_curr_amount := l_utilization_rec.plan_curr_amount;
864: END IF;
865:
866: IF l_return_status = fnd_api.g_ret_sts_error THEN
867: RAISE fnd_api.g_exc_error;
868: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
869: RAISE fnd_api.g_exc_unexpected_error;
870: END IF;
871:
864: END IF;
865:
866: IF l_return_status = fnd_api.g_ret_sts_error THEN
867: RAISE fnd_api.g_exc_error;
868: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
869: RAISE fnd_api.g_exc_unexpected_error;
870: END IF;
871:
872: -- R12 yzhao: convert universal currency
865:
866: IF l_return_status = fnd_api.g_ret_sts_error THEN
867: RAISE fnd_api.g_exc_error;
868: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
869: RAISE fnd_api.g_exc_unexpected_error;
870: END IF;
871:
872: -- R12 yzhao: convert universal currency
873: IF g_universal_currency = l_utilization_rec.currency_code THEN
907: ,x_rate => l_rate
908: );
909: END IF;
910:
911: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
912: RAISE fnd_api.g_exc_unexpected_error;
913: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
914: RAISE fnd_api.g_exc_error;
915: END IF;
908: );
909: END IF;
910:
911: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
912: RAISE fnd_api.g_exc_unexpected_error;
913: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
914: RAISE fnd_api.g_exc_error;
915: END IF;
916: END IF;
909: END IF;
910:
911: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
912: RAISE fnd_api.g_exc_unexpected_error;
913: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
914: RAISE fnd_api.g_exc_error;
915: END IF;
916: END IF;
917: END IF;
910:
911: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
912: RAISE fnd_api.g_exc_unexpected_error;
913: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
914: RAISE fnd_api.g_exc_error;
915: END IF;
916: END IF;
917: END IF;
918:
977: fnd_message.set_token('PERIOD', l_periods);
978: fnd_message.set_token('SOB_NAME', l_ledger_name);
979: fnd_msg_pub.ADD;
980: END IF;
981: RAISE fnd_api.g_exc_error;
982: END LOOP;
983: CLOSE c_getClosedPeriods;
984: END IF;
985: --nirprasa, end of fix for bug 8940036.
1025: fnd_message.set_name ('OZF', 'OZF_API_RECORD_NOT_FOUND');
1026: fnd_msg_pub.ADD;
1027: END IF;
1028:
1029: RAISE fnd_api.g_exc_error;
1030: END IF;
1031: CLOSE c_fund_b;
1032:
1033: IF l_fund_type = 'FULLY_ACCRUED' AND
1030: END IF;
1031: CLOSE c_fund_b;
1032:
1033: IF l_fund_type = 'FULLY_ACCRUED' AND
1034: l_plan_id IS NOT NULL AND l_plan_id <> FND_API.g_miss_num THEN
1035: -- Bug # 7337263 fixed by ateotia (+)
1036: -- Added a condition for Chargeback Batch using Fully Accrued budget.
1037: --IF l_utilization_rec.component_type = 'OFFR' AND
1038: IF l_utilization_rec.component_type IN ('OFFR','PRIC') AND
1162: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
1163: fnd_message.set_name ('OZF', 'OZF_API_RECORD_NOT_FOUND');
1164: fnd_msg_pub.ADD;
1165: END IF;
1166: RAISE fnd_api.g_exc_error;
1167: END IF;
1168: CLOSE c_accrual_budget_reqeust;
1169:
1170: -- For BUG#8867381(+)
1256: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
1257: fnd_message.set_name ('OZF', 'OZF_API_RECORD_NOT_FOUND');
1258: fnd_msg_pub.ADD;
1259: END IF;
1260: RAISE fnd_api.g_exc_error;
1261: END IF;
1262: CLOSE c_budget_request_utilrec;
1263:
1264: -- populate request amount in ozf_funds_utilized_all_b record
1598:
1599: ELSE
1600:
1601: IF p_utilization_rec.plan_curr_amount_remaining IS NULL
1602: OR p_utilization_rec.plan_curr_amount_remaining = fnd_api.g_miss_num THEN
1603: ozf_utility_pvt.convert_currency (
1604: p_from_currency => l_utilization_rec.currency_code
1605: ,p_to_currency => l_plan_currency
1606: --nirprasa, ER 8399134 pass exchange date also. This has value for
1618: END IF;
1619:
1620: l_plan_curr_amount_remaining := ozf_utility_pvt.currround(l_plan_curr_amount_remaining
1621: , l_utilization_rec.plan_currency_code);
1622: IF l_return_status = fnd_api.g_ret_sts_error THEN
1623: RAISE fnd_api.g_exc_error;
1624: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1625: RAISE fnd_api.g_exc_unexpected_error;
1626: END IF;
1619:
1620: l_plan_curr_amount_remaining := ozf_utility_pvt.currround(l_plan_curr_amount_remaining
1621: , l_utilization_rec.plan_currency_code);
1622: IF l_return_status = fnd_api.g_ret_sts_error THEN
1623: RAISE fnd_api.g_exc_error;
1624: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1625: RAISE fnd_api.g_exc_unexpected_error;
1626: END IF;
1627:
1620: l_plan_curr_amount_remaining := ozf_utility_pvt.currround(l_plan_curr_amount_remaining
1621: , l_utilization_rec.plan_currency_code);
1622: IF l_return_status = fnd_api.g_ret_sts_error THEN
1623: RAISE fnd_api.g_exc_error;
1624: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1625: RAISE fnd_api.g_exc_unexpected_error;
1626: END IF;
1627:
1628: --nepanda : 9662148 : moved the calculation of acctd_amt_rem here from above
1621: , l_utilization_rec.plan_currency_code);
1622: IF l_return_status = fnd_api.g_ret_sts_error THEN
1623: RAISE fnd_api.g_exc_error;
1624: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1625: RAISE fnd_api.g_exc_unexpected_error;
1626: END IF;
1627:
1628: --nepanda : 9662148 : moved the calculation of acctd_amt_rem here from above
1629: --calculating with l_plan_curr_amount_remaining instead of l_utilization_rec.plan_curr_amount_remaining
1634:
1635: --nirprasa,ER 8399134
1636: --fix for bug 8586014 added AND
1637: IF (p_utilization_rec.fund_request_amount_remaining IS NULL
1638: OR p_utilization_rec.fund_request_amount_remaining = fnd_api.g_miss_num) THEN
1639: IF l_utilization_rec.fund_request_currency_code = l_utilization_rec.plan_currency_code THEN
1640: l_utilization_rec.fund_request_amount_remaining := l_plan_curr_amount_remaining;
1641: ELSIF l_utilization_rec.fund_request_currency_code = l_utilization_rec.currency_code THEN
1642: l_utilization_rec.fund_request_amount_remaining := l_utilization_rec.amount_remaining;
1689: ,x_rate => l_rate
1690: );
1691: END IF;
1692:
1693: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1694: RAISE fnd_api.g_exc_unexpected_error;
1695: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1696: RAISE fnd_api.g_exc_error;
1697: END IF;
1690: );
1691: END IF;
1692:
1693: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1694: RAISE fnd_api.g_exc_unexpected_error;
1695: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1696: RAISE fnd_api.g_exc_error;
1697: END IF;
1698: END IF;
1691: END IF;
1692:
1693: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1694: RAISE fnd_api.g_exc_unexpected_error;
1695: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1696: RAISE fnd_api.g_exc_error;
1697: END IF;
1698: END IF;
1699:
1692:
1693: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1694: RAISE fnd_api.g_exc_unexpected_error;
1695: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1696: RAISE fnd_api.g_exc_error;
1697: END IF;
1698: END IF;
1699:
1700: END IF;
2022: END IF;
2023:
2024: -- Fix For Bug 8466615
2025: ozf_gl_interface_pvt.Post_Accrual_To_GL(p_api_version => 1.0
2026: ,p_init_msg_list => fnd_api.g_false
2027: ,p_commit => fnd_api.g_false
2028: ,p_validation_level => fnd_api.g_valid_level_full
2029: ,x_return_status => l_return_status
2030: ,x_msg_data => x_msg_data
2023:
2024: -- Fix For Bug 8466615
2025: ozf_gl_interface_pvt.Post_Accrual_To_GL(p_api_version => 1.0
2026: ,p_init_msg_list => fnd_api.g_false
2027: ,p_commit => fnd_api.g_false
2028: ,p_validation_level => fnd_api.g_valid_level_full
2029: ,x_return_status => l_return_status
2030: ,x_msg_data => x_msg_data
2031: ,x_msg_count => x_msg_count
2024: -- Fix For Bug 8466615
2025: ozf_gl_interface_pvt.Post_Accrual_To_GL(p_api_version => 1.0
2026: ,p_init_msg_list => fnd_api.g_false
2027: ,p_commit => fnd_api.g_false
2028: ,p_validation_level => fnd_api.g_valid_level_full
2029: ,x_return_status => l_return_status
2030: ,x_msg_data => x_msg_data
2031: ,x_msg_count => x_msg_count
2032: ,p_utilization_id => x_utilization_id
2042: ozf_utility_pvt.debug_message ( l_full_name || ': posted GL: ' || l_return_status);
2043: END IF;
2044:
2045: -- yzhao: 03/27/2003 when gl posting succeeds, set the flag 'Y', otherwise 'F', ignore error and reprocess later
2046: IF l_return_status = fnd_api.g_ret_sts_success THEN
2047: l_gl_posted_flag := ozf_accrual_engine.G_GL_FLAG_YES; -- 'Y';
2048: --kdass 27-JUL-2005 - R12 change for paid adjustments
2049: IF l_utilization_rec.utilization_type = 'ADJUSTMENT' AND
2050: l_utilization_rec.adjustment_type IN ('INCREASE_PAID', 'DECREASE_PAID') THEN
2091: IF l_utilization_rec.utilization_type IN ('ADJUSTMENT', 'CHARGEBACK', 'LEAD_ADJUSTMENT') AND
2092: l_utilization_rec.adjustment_type IN ('STANDARD', 'DECREASE_EARNED', 'DECREASE_COMM_EARNED') THEN
2093: fnd_message.set_name ('OZF', 'OZF_GL_POST_FAILURE');
2094: fnd_msg_pub.ADD;
2095: RAISE fnd_api.g_exc_error;
2096: ELSE
2097: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
2098: fnd_message.set_name ('OZF', 'OZF_API_DEBUG_MESSAGE');
2099: fnd_message.set_token ('TEXT', 'Failed to post to GL for utilization id ' || l_utilization_rec.utilization_id);
2142: -- and changed px_ozf_funds_new_rectype to px_ozf_funds_new_tbl.
2143:
2144: ozf_funds_pvt.update_fund (
2145: p_api_version=> l_api_version
2146: ,p_init_msg_list=> fnd_api.g_false
2147: ,p_commit=> fnd_api.g_false
2148: ,p_validation_level=> p_validation_level
2149: ,x_return_status=> l_return_status
2150: ,x_msg_count=> x_msg_count
2143:
2144: ozf_funds_pvt.update_fund (
2145: p_api_version=> l_api_version
2146: ,p_init_msg_list=> fnd_api.g_false
2147: ,p_commit=> fnd_api.g_false
2148: ,p_validation_level=> p_validation_level
2149: ,x_return_status=> l_return_status
2150: ,x_msg_count=> x_msg_count
2151: ,x_msg_data=> x_msg_data
2157: ,px_ozf_funds_old_rectype => lx_ozf_funds_old_rectype
2158: ,px_ozf_funds_new_tbl => px_ozf_funds_new_tbl -- For TPA Parallel Execution ER Bug#9614703
2159: );
2160:
2161: IF l_return_status = fnd_api.g_ret_sts_error THEN
2162: RAISE fnd_api.g_exc_error;
2163: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2164: RAISE fnd_api.g_exc_unexpected_error;
2165: END IF;
2158: ,px_ozf_funds_new_tbl => px_ozf_funds_new_tbl -- For TPA Parallel Execution ER Bug#9614703
2159: );
2160:
2161: IF l_return_status = fnd_api.g_ret_sts_error THEN
2162: RAISE fnd_api.g_exc_error;
2163: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2164: RAISE fnd_api.g_exc_unexpected_error;
2165: END IF;
2166:
2159: );
2160:
2161: IF l_return_status = fnd_api.g_ret_sts_error THEN
2162: RAISE fnd_api.g_exc_error;
2163: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2164: RAISE fnd_api.g_exc_unexpected_error;
2165: END IF;
2166:
2167: -- R12: yzhao ozf_object_fund_summary update amount
2160:
2161: IF l_return_status = fnd_api.g_ret_sts_error THEN
2162: RAISE fnd_api.g_exc_error;
2163: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2164: RAISE fnd_api.g_exc_unexpected_error;
2165: END IF;
2166:
2167: -- R12: yzhao ozf_object_fund_summary update amount
2168: IF l_objfundsum_rec.objfundsum_id IS NULL THEN
2171: l_objfundsum_rec.object_type := l_utilization_rec.component_type;
2172: l_objfundsum_rec.object_id := l_utilization_rec.component_id;
2173: ozf_objfundsum_pvt.create_objfundsum(
2174: p_api_version => 1.0,
2175: p_init_msg_list => Fnd_Api.G_FALSE,
2176: p_validation_level => Fnd_Api.G_VALID_LEVEL_NONE,
2177: p_objfundsum_rec => l_objfundsum_rec,
2178: p_conv_date => l_utilization_rec.exchange_rate_date, --bug 8532055
2179: x_return_status => l_return_status,
2172: l_objfundsum_rec.object_id := l_utilization_rec.component_id;
2173: ozf_objfundsum_pvt.create_objfundsum(
2174: p_api_version => 1.0,
2175: p_init_msg_list => Fnd_Api.G_FALSE,
2176: p_validation_level => Fnd_Api.G_VALID_LEVEL_NONE,
2177: p_objfundsum_rec => l_objfundsum_rec,
2178: p_conv_date => l_utilization_rec.exchange_rate_date, --bug 8532055
2179: x_return_status => l_return_status,
2180: x_msg_count => x_msg_count,
2180: x_msg_count => x_msg_count,
2181: x_msg_data => x_msg_data,
2182: x_objfundsum_id => l_objfundsum_id
2183: );
2184: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2185: RAISE fnd_api.g_exc_unexpected_error;
2186: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
2187: RAISE fnd_api.g_exc_error;
2188: END IF;
2181: x_msg_data => x_msg_data,
2182: x_objfundsum_id => l_objfundsum_id
2183: );
2184: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2185: RAISE fnd_api.g_exc_unexpected_error;
2186: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
2187: RAISE fnd_api.g_exc_error;
2188: END IF;
2189: ELSE
2182: x_objfundsum_id => l_objfundsum_id
2183: );
2184: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2185: RAISE fnd_api.g_exc_unexpected_error;
2186: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
2187: RAISE fnd_api.g_exc_error;
2188: END IF;
2189: ELSE
2190: /*
2183: );
2184: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2185: RAISE fnd_api.g_exc_unexpected_error;
2186: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
2187: RAISE fnd_api.g_exc_error;
2188: END IF;
2189: ELSE
2190: /*
2191: --Added for bug 7425189, Call update_reconcile_objfundsum for reconcile flow.
2192: IF l_utilization_rec.adjustment_desc IN (l_fund_reconc_msg,l_act_bud_cst_msg)
2193: AND l_utilization_rec.exchange_rate_date IS NOT NULL THEN
2194: OZF_ACTBUDGETS_PVT.update_reconcile_objfundsum(
2195: p_api_version => 1.0,
2196: p_init_msg_list => Fnd_Api.G_FALSE,
2197: p_validation_level => Fnd_Api.G_VALID_LEVEL_NONE,
2198: p_objfundsum_rec => l_objfundsum_rec,
2199: p_conv_date => l_utilization_rec.exchange_rate_date,
2200: x_return_status => l_return_status,
2193: AND l_utilization_rec.exchange_rate_date IS NOT NULL THEN
2194: OZF_ACTBUDGETS_PVT.update_reconcile_objfundsum(
2195: p_api_version => 1.0,
2196: p_init_msg_list => Fnd_Api.G_FALSE,
2197: p_validation_level => Fnd_Api.G_VALID_LEVEL_NONE,
2198: p_objfundsum_rec => l_objfundsum_rec,
2199: p_conv_date => l_utilization_rec.exchange_rate_date,
2200: x_return_status => l_return_status,
2201: x_msg_count => x_msg_count,
2207: IF p_use_fund_staging_tables <> 'T' THEN
2208:
2209: ozf_objfundsum_pvt.update_objfundsum(
2210: p_api_version => 1.0,
2211: p_init_msg_list => Fnd_Api.G_FALSE,
2212: p_validation_level => Fnd_Api.G_VALID_LEVEL_NONE,
2213: p_objfundsum_rec => l_objfundsum_rec,
2214: p_conv_date => l_utilization_rec.exchange_rate_date, --bug 7425189, 8532055
2215: x_return_status => l_return_status,
2208:
2209: ozf_objfundsum_pvt.update_objfundsum(
2210: p_api_version => 1.0,
2211: p_init_msg_list => Fnd_Api.G_FALSE,
2212: p_validation_level => Fnd_Api.G_VALID_LEVEL_NONE,
2213: p_objfundsum_rec => l_objfundsum_rec,
2214: p_conv_date => l_utilization_rec.exchange_rate_date, --bug 7425189, 8532055
2215: x_return_status => l_return_status,
2216: x_msg_count => x_msg_count,
2217: x_msg_data => x_msg_data
2218: );
2219: --END IF;
2220:
2221: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2222: RAISE fnd_api.g_exc_unexpected_error;
2223: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
2224: RAISE fnd_api.g_exc_error;
2225: END IF;
2218: );
2219: --END IF;
2220:
2221: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2222: RAISE fnd_api.g_exc_unexpected_error;
2223: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
2224: RAISE fnd_api.g_exc_error;
2225: END IF;
2226: END IF;
2219: --END IF;
2220:
2221: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2222: RAISE fnd_api.g_exc_unexpected_error;
2223: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
2224: RAISE fnd_api.g_exc_error;
2225: END IF;
2226: END IF;
2227:
2220:
2221: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2222: RAISE fnd_api.g_exc_unexpected_error;
2223: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
2224: RAISE fnd_api.g_exc_error;
2225: END IF;
2226: END IF;
2227:
2228: END IF;
2238: END IF;
2239:
2240:
2241: -- Check for commit
2242: IF fnd_api.to_boolean (p_commit) THEN
2243: COMMIT;
2244: END IF;
2245:
2246: fnd_msg_pub.count_and_get (
2243: COMMIT;
2244: END IF;
2245:
2246: fnd_msg_pub.count_and_get (
2247: p_encoded=> fnd_api.g_false
2248: ,p_count=> x_msg_count
2249: ,p_data=> x_msg_data
2250: );
2251: IF G_DEBUG THEN
2252: ozf_utility_pvt.debug_message ( l_full_name
2253: || ': end');
2254: END IF;
2255: EXCEPTION
2256: WHEN fnd_api.g_exc_error THEN
2257: ROLLBACK TO create_utilization;
2258: x_return_status := fnd_api.g_ret_sts_error;
2259: fnd_msg_pub.count_and_get (
2260: p_encoded=> fnd_api.g_false
2254: END IF;
2255: EXCEPTION
2256: WHEN fnd_api.g_exc_error THEN
2257: ROLLBACK TO create_utilization;
2258: x_return_status := fnd_api.g_ret_sts_error;
2259: fnd_msg_pub.count_and_get (
2260: p_encoded=> fnd_api.g_false
2261: ,p_count=> x_msg_count
2262: ,p_data=> x_msg_data
2256: WHEN fnd_api.g_exc_error THEN
2257: ROLLBACK TO create_utilization;
2258: x_return_status := fnd_api.g_ret_sts_error;
2259: fnd_msg_pub.count_and_get (
2260: p_encoded=> fnd_api.g_false
2261: ,p_count=> x_msg_count
2262: ,p_data=> x_msg_data
2263: );
2264: WHEN fnd_api.g_exc_unexpected_error THEN
2260: p_encoded=> fnd_api.g_false
2261: ,p_count=> x_msg_count
2262: ,p_data=> x_msg_data
2263: );
2264: WHEN fnd_api.g_exc_unexpected_error THEN
2265: ROLLBACK TO create_utilization;
2266: x_return_status := fnd_api.g_ret_sts_unexp_error;
2267: fnd_msg_pub.count_and_get (
2268: p_encoded=> fnd_api.g_false
2262: ,p_data=> x_msg_data
2263: );
2264: WHEN fnd_api.g_exc_unexpected_error THEN
2265: ROLLBACK TO create_utilization;
2266: x_return_status := fnd_api.g_ret_sts_unexp_error;
2267: fnd_msg_pub.count_and_get (
2268: p_encoded=> fnd_api.g_false
2269: ,p_count=> x_msg_count
2270: ,p_data=> x_msg_data
2264: WHEN fnd_api.g_exc_unexpected_error THEN
2265: ROLLBACK TO create_utilization;
2266: x_return_status := fnd_api.g_ret_sts_unexp_error;
2267: fnd_msg_pub.count_and_get (
2268: p_encoded=> fnd_api.g_false
2269: ,p_count=> x_msg_count
2270: ,p_data=> x_msg_data
2271: );
2272: WHEN OTHERS THEN
2270: ,p_data=> x_msg_data
2271: );
2272: WHEN OTHERS THEN
2273: ROLLBACK TO create_utilization;
2274: x_return_status := fnd_api.g_ret_sts_unexp_error;
2275:
2276: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2277: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2278: END IF;
2277: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2278: END IF;
2279:
2280: fnd_msg_pub.count_and_get (
2281: p_encoded=> fnd_api.g_false
2282: ,p_count=> x_msg_count
2283: ,p_data=> x_msg_data
2284: );
2285: END create_utilization;
2293: -- 04/25/2000 Mumu Pande Create.
2294: ---------------------------------------------------------------
2295: PROCEDURE delete_utilization (
2296: p_api_version IN NUMBER
2297: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2298: ,p_commit IN VARCHAR2 := fnd_api.g_false
2299: ,x_return_status OUT NOCOPY VARCHAR2
2300: ,x_msg_count OUT NOCOPY NUMBER
2301: ,x_msg_data OUT NOCOPY VARCHAR2
2294: ---------------------------------------------------------------
2295: PROCEDURE delete_utilization (
2296: p_api_version IN NUMBER
2297: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2298: ,p_commit IN VARCHAR2 := fnd_api.g_false
2299: ,x_return_status OUT NOCOPY VARCHAR2
2300: ,x_msg_count OUT NOCOPY NUMBER
2301: ,x_msg_data OUT NOCOPY VARCHAR2
2302: ,p_utilization_id IN NUMBER
2314: ozf_utility_pvt.debug_message ( l_full_name
2315: || ': start');
2316: END IF;
2317:
2318: IF fnd_api.to_boolean (p_init_msg_list) THEN
2319: fnd_msg_pub.initialize;
2320: END IF;
2321:
2322: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2318: IF fnd_api.to_boolean (p_init_msg_list) THEN
2319: fnd_msg_pub.initialize;
2320: END IF;
2321:
2322: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2323: RAISE fnd_api.g_exc_unexpected_error;
2324: END IF;
2325:
2326: x_return_status := fnd_api.g_ret_sts_success;
2319: fnd_msg_pub.initialize;
2320: END IF;
2321:
2322: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2323: RAISE fnd_api.g_exc_unexpected_error;
2324: END IF;
2325:
2326: x_return_status := fnd_api.g_ret_sts_success;
2327:
2322: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2323: RAISE fnd_api.g_exc_unexpected_error;
2324: END IF;
2325:
2326: x_return_status := fnd_api.g_ret_sts_success;
2327:
2328: ------------------------ delete ------------------------
2329: IF G_DEBUG THEN
2330: ozf_utility_pvt.debug_message ( l_full_name
2340: fnd_message.set_name ('OZF', 'OZF_API_RECORD_NOT_FOUND');
2341: fnd_msg_pub.ADD;
2342: END IF;
2343:
2344: RAISE fnd_api.g_exc_error;
2345: END IF;
2346:
2347: DELETE FROM ozf_funds_utilized_all_tl
2348: WHERE utilization_id = p_utilization_id;
2352: fnd_message.set_name ('OZF', 'OZF_API_RECORD_NOT_FOUND');
2353: fnd_msg_pub.ADD;
2354: END IF;
2355:
2356: RAISE fnd_api.g_exc_error;
2357: END IF;
2358:
2359:
2360: -------------------- finish --------------------------
2357: END IF;
2358:
2359:
2360: -------------------- finish --------------------------
2361: IF fnd_api.to_boolean (p_commit) THEN
2362: COMMIT;
2363: END IF;
2364:
2365: fnd_msg_pub.count_and_get (
2362: COMMIT;
2363: END IF;
2364:
2365: fnd_msg_pub.count_and_get (
2366: p_encoded=> fnd_api.g_false
2367: ,p_count=> x_msg_count
2368: ,p_data=> x_msg_data
2369: );
2370: IF G_DEBUG THEN
2371: ozf_utility_pvt.debug_message ( l_full_name
2372: || ': end');
2373: END IF;
2374: EXCEPTION
2375: WHEN fnd_api.g_exc_error THEN
2376: ROLLBACK TO delete_utilization;
2377: x_return_status := fnd_api.g_ret_sts_error;
2378: fnd_msg_pub.count_and_get (
2379: p_encoded=> fnd_api.g_false
2373: END IF;
2374: EXCEPTION
2375: WHEN fnd_api.g_exc_error THEN
2376: ROLLBACK TO delete_utilization;
2377: x_return_status := fnd_api.g_ret_sts_error;
2378: fnd_msg_pub.count_and_get (
2379: p_encoded=> fnd_api.g_false
2380: ,p_count=> x_msg_count
2381: ,p_data=> x_msg_data
2375: WHEN fnd_api.g_exc_error THEN
2376: ROLLBACK TO delete_utilization;
2377: x_return_status := fnd_api.g_ret_sts_error;
2378: fnd_msg_pub.count_and_get (
2379: p_encoded=> fnd_api.g_false
2380: ,p_count=> x_msg_count
2381: ,p_data=> x_msg_data
2382: );
2383: WHEN fnd_api.g_exc_unexpected_error THEN
2379: p_encoded=> fnd_api.g_false
2380: ,p_count=> x_msg_count
2381: ,p_data=> x_msg_data
2382: );
2383: WHEN fnd_api.g_exc_unexpected_error THEN
2384: ROLLBACK TO delete_utilization;
2385: x_return_status := fnd_api.g_ret_sts_unexp_error;
2386: fnd_msg_pub.count_and_get (
2387: p_encoded=> fnd_api.g_false
2381: ,p_data=> x_msg_data
2382: );
2383: WHEN fnd_api.g_exc_unexpected_error THEN
2384: ROLLBACK TO delete_utilization;
2385: x_return_status := fnd_api.g_ret_sts_unexp_error;
2386: fnd_msg_pub.count_and_get (
2387: p_encoded=> fnd_api.g_false
2388: ,p_count=> x_msg_count
2389: ,p_data=> x_msg_data
2383: WHEN fnd_api.g_exc_unexpected_error THEN
2384: ROLLBACK TO delete_utilization;
2385: x_return_status := fnd_api.g_ret_sts_unexp_error;
2386: fnd_msg_pub.count_and_get (
2387: p_encoded=> fnd_api.g_false
2388: ,p_count=> x_msg_count
2389: ,p_data=> x_msg_data
2390: );
2391: WHEN OTHERS THEN
2389: ,p_data=> x_msg_data
2390: );
2391: WHEN OTHERS THEN
2392: ROLLBACK TO delete_utilization;
2393: x_return_status := fnd_api.g_ret_sts_unexp_error;
2394:
2395: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2396: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2397: END IF;
2396: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2397: END IF;
2398:
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: );
2404: END delete_utilization;
2414: -- 02/23/2001 Mumu PAnde Updated for Hornet requirements
2415: --------------------------------------------------------------------
2416: PROCEDURE lock_utilization (
2417: p_api_version IN NUMBER
2418: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2419: ,x_return_status OUT NOCOPY VARCHAR2
2420: ,x_msg_count OUT NOCOPY NUMBER
2421: ,x_msg_data OUT NOCOPY VARCHAR2
2422: ,p_utilization_id IN NUMBER
2448: ozf_utility_pvt.debug_message ( l_full_name
2449: || ': start');
2450: END IF;
2451:
2452: IF fnd_api.to_boolean (p_init_msg_list) THEN
2453: fnd_msg_pub.initialize;
2454: END IF;
2455:
2456: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2452: IF fnd_api.to_boolean (p_init_msg_list) THEN
2453: fnd_msg_pub.initialize;
2454: END IF;
2455:
2456: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2457: RAISE fnd_api.g_exc_unexpected_error;
2458: END IF;
2459:
2460: x_return_status := fnd_api.g_ret_sts_success;
2453: fnd_msg_pub.initialize;
2454: END IF;
2455:
2456: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2457: RAISE fnd_api.g_exc_unexpected_error;
2458: END IF;
2459:
2460: x_return_status := fnd_api.g_ret_sts_success;
2461:
2456: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2457: RAISE fnd_api.g_exc_unexpected_error;
2458: END IF;
2459:
2460: x_return_status := fnd_api.g_ret_sts_success;
2461:
2462: ------------------------ lock -------------------------
2463: IF G_DEBUG THEN
2464: ozf_utility_pvt.debug_message ( l_full_name
2474: fnd_message.set_name ('OZF', 'OZF_API_RECORD_NOT_FOUND');
2475: fnd_msg_pub.ADD;
2476: END IF;
2477:
2478: RAISE fnd_api.g_exc_error;
2479: END IF;
2480:
2481: CLOSE c_utilization_b;
2482: OPEN c_utilization_tl;
2483: CLOSE c_utilization_tl;
2484:
2485: -------------------- finish --------------------------
2486: fnd_msg_pub.count_and_get (
2487: p_encoded=> fnd_api.g_false
2488: ,p_count=> x_msg_count
2489: ,p_data=> x_msg_data
2490: );
2491: IF G_DEBUG THEN
2493: || ': end');
2494: END IF;
2495: EXCEPTION
2496: WHEN ozf_utility_pvt.resource_locked THEN
2497: x_return_status := fnd_api.g_ret_sts_error;
2498:
2499: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
2500: fnd_message.set_name ('OZF', 'OZF_API_RESOURCE_LOCKED');
2501: fnd_msg_pub.ADD;
2501: fnd_msg_pub.ADD;
2502: END IF;
2503:
2504: fnd_msg_pub.count_and_get (
2505: p_encoded=> fnd_api.g_false
2506: ,p_count=> x_msg_count
2507: ,p_data=> x_msg_data
2508: );
2509: WHEN fnd_api.g_exc_error THEN
2505: p_encoded=> fnd_api.g_false
2506: ,p_count=> x_msg_count
2507: ,p_data=> x_msg_data
2508: );
2509: WHEN fnd_api.g_exc_error THEN
2510: x_return_status := fnd_api.g_ret_sts_error;
2511: fnd_msg_pub.count_and_get (
2512: p_encoded=> fnd_api.g_false
2513: ,p_count=> x_msg_count
2506: ,p_count=> x_msg_count
2507: ,p_data=> x_msg_data
2508: );
2509: WHEN fnd_api.g_exc_error THEN
2510: x_return_status := fnd_api.g_ret_sts_error;
2511: fnd_msg_pub.count_and_get (
2512: p_encoded=> fnd_api.g_false
2513: ,p_count=> x_msg_count
2514: ,p_data=> x_msg_data
2508: );
2509: WHEN fnd_api.g_exc_error THEN
2510: x_return_status := fnd_api.g_ret_sts_error;
2511: fnd_msg_pub.count_and_get (
2512: p_encoded=> fnd_api.g_false
2513: ,p_count=> x_msg_count
2514: ,p_data=> x_msg_data
2515: );
2516: WHEN fnd_api.g_exc_unexpected_error THEN
2512: p_encoded=> fnd_api.g_false
2513: ,p_count=> x_msg_count
2514: ,p_data=> x_msg_data
2515: );
2516: WHEN fnd_api.g_exc_unexpected_error THEN
2517: x_return_status := fnd_api.g_ret_sts_unexp_error;
2518: fnd_msg_pub.count_and_get (
2519: p_encoded=> fnd_api.g_false
2520: ,p_count=> x_msg_count
2513: ,p_count=> x_msg_count
2514: ,p_data=> x_msg_data
2515: );
2516: WHEN fnd_api.g_exc_unexpected_error THEN
2517: x_return_status := fnd_api.g_ret_sts_unexp_error;
2518: fnd_msg_pub.count_and_get (
2519: p_encoded=> fnd_api.g_false
2520: ,p_count=> x_msg_count
2521: ,p_data=> x_msg_data
2515: );
2516: WHEN fnd_api.g_exc_unexpected_error THEN
2517: x_return_status := fnd_api.g_ret_sts_unexp_error;
2518: fnd_msg_pub.count_and_get (
2519: p_encoded=> fnd_api.g_false
2520: ,p_count=> x_msg_count
2521: ,p_data=> x_msg_data
2522: );
2523: WHEN OTHERS THEN
2520: ,p_count=> x_msg_count
2521: ,p_data=> x_msg_data
2522: );
2523: WHEN OTHERS THEN
2524: x_return_status := fnd_api.g_ret_sts_unexp_error;
2525:
2526: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2527: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2528: END IF;
2527: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2528: END IF;
2529:
2530: fnd_msg_pub.count_and_get (
2531: p_encoded=> fnd_api.g_false
2532: ,p_count=> x_msg_count
2533: ,p_data=> x_msg_data
2534: );
2535: END lock_utilization;
2545: -- 02/23/2001 Mumu PAnde Updated for Hornet requirements
2546: ----------------------------------------------------------------------
2547: PROCEDURE update_utilization (
2548: p_api_version IN NUMBER
2549: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2550: ,p_commit IN VARCHAR2 := fnd_api.g_false
2551: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
2552: ,x_return_status OUT NOCOPY VARCHAR2
2553: ,x_msg_count OUT NOCOPY NUMBER
2546: ----------------------------------------------------------------------
2547: PROCEDURE update_utilization (
2548: p_api_version IN NUMBER
2549: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2550: ,p_commit IN VARCHAR2 := fnd_api.g_false
2551: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
2552: ,x_return_status OUT NOCOPY VARCHAR2
2553: ,x_msg_count OUT NOCOPY NUMBER
2554: ,x_msg_data OUT NOCOPY VARCHAR2
2547: PROCEDURE update_utilization (
2548: p_api_version IN NUMBER
2549: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2550: ,p_commit IN VARCHAR2 := fnd_api.g_false
2551: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
2552: ,x_return_status OUT NOCOPY VARCHAR2
2553: ,x_msg_count OUT NOCOPY NUMBER
2554: ,x_msg_data OUT NOCOPY VARCHAR2
2555: ,p_utilization_rec IN utilization_rec_type
2561: || '.'
2562: || l_api_name;
2563: l_utilization_rec utilization_rec_type;
2564: l_mode VARCHAR2 (30);
2565: l_return_status VARCHAR2 (1) := fnd_api.g_ret_sts_success;
2566: l_obj_num NUMBER := 1;
2567: l_fund_rec ozf_funds_pvt.fund_rec_type;
2568: l_utilized_amt NUMBER;
2569: l_committed_amt NUMBER;
2593: ozf_utility_pvt.debug_message ( l_full_name
2594: || ': start');
2595: END IF;
2596:
2597: IF fnd_api.to_boolean (p_init_msg_list) THEN
2598: fnd_msg_pub.initialize;
2599: END IF;
2600:
2601: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2597: IF fnd_api.to_boolean (p_init_msg_list) THEN
2598: fnd_msg_pub.initialize;
2599: END IF;
2600:
2601: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2602: RAISE fnd_api.g_exc_unexpected_error;
2603: END IF;
2604:
2605: x_return_status := fnd_api.g_ret_sts_success;
2598: fnd_msg_pub.initialize;
2599: END IF;
2600:
2601: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2602: RAISE fnd_api.g_exc_unexpected_error;
2603: END IF;
2604:
2605: x_return_status := fnd_api.g_ret_sts_success;
2606:
2601: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2602: RAISE fnd_api.g_exc_unexpected_error;
2603: END IF;
2604:
2605: x_return_status := fnd_api.g_ret_sts_success;
2606:
2607: ----------------------- validate ----------------------
2608: IF G_DEBUG THEN
2609: ozf_utility_pvt.debug_message ( l_full_name
2618: ,p_validation_mode=> jtf_plsql_api.g_update
2619: ,x_return_status=> l_return_status
2620: );
2621:
2622: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2623: RAISE fnd_api.g_exc_unexpected_error;
2624: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
2625: RAISE fnd_api.g_exc_error;
2626: END IF;
2619: ,x_return_status=> l_return_status
2620: );
2621:
2622: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2623: RAISE fnd_api.g_exc_unexpected_error;
2624: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
2625: RAISE fnd_api.g_exc_error;
2626: END IF;
2627: END IF;
2620: );
2621:
2622: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2623: RAISE fnd_api.g_exc_unexpected_error;
2624: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
2625: RAISE fnd_api.g_exc_error;
2626: END IF;
2627: END IF;
2628:
2621:
2622: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2623: RAISE fnd_api.g_exc_unexpected_error;
2624: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
2625: RAISE fnd_api.g_exc_error;
2626: END IF;
2627: END IF;
2628:
2629:
2634: ,p_mode=> p_mode
2635: ,x_return_status=> l_return_status
2636: );
2637:
2638: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2639: RAISE fnd_api.g_exc_unexpected_error;
2640: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
2641: RAISE fnd_api.g_exc_error;
2642: END IF;
2635: ,x_return_status=> l_return_status
2636: );
2637:
2638: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2639: RAISE fnd_api.g_exc_unexpected_error;
2640: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
2641: RAISE fnd_api.g_exc_error;
2642: END IF;
2643: END IF;
2636: );
2637:
2638: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2639: RAISE fnd_api.g_exc_unexpected_error;
2640: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
2641: RAISE fnd_api.g_exc_error;
2642: END IF;
2643: END IF;
2644:
2637:
2638: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2639: RAISE fnd_api.g_exc_unexpected_error;
2640: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
2641: RAISE fnd_api.g_exc_error;
2642: END IF;
2643: END IF;
2644:
2645:
2664: ,x_to_amount=> l_plan_curr_amount
2665: ,x_rate=> l_rate
2666: );
2667:
2668: IF l_return_status = fnd_api.g_ret_sts_error THEN
2669: RAISE fnd_api.g_exc_error;
2670: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2671: RAISE fnd_api.g_exc_unexpected_error;
2672: END IF;
2665: ,x_rate=> l_rate
2666: );
2667:
2668: IF l_return_status = fnd_api.g_ret_sts_error THEN
2669: RAISE fnd_api.g_exc_error;
2670: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2671: RAISE fnd_api.g_exc_unexpected_error;
2672: END IF;
2673: END IF;
2666: );
2667:
2668: IF l_return_status = fnd_api.g_ret_sts_error THEN
2669: RAISE fnd_api.g_exc_error;
2670: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2671: RAISE fnd_api.g_exc_unexpected_error;
2672: END IF;
2673: END IF;
2674:
2667:
2668: IF l_return_status = fnd_api.g_ret_sts_error THEN
2669: RAISE fnd_api.g_exc_error;
2670: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2671: RAISE fnd_api.g_exc_unexpected_error;
2672: END IF;
2673: END IF;
2674:
2675: IF NVL (l_utilization_rec.amount_remaining, 0) <> 0 THEN
2681: ,x_to_amount=> l_plan_curr_amount_remaining
2682: ,x_rate=> l_rate
2683: );
2684:
2685: IF l_return_status = fnd_api.g_ret_sts_error THEN
2686: RAISE fnd_api.g_exc_error;
2687: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2688: RAISE fnd_api.g_exc_unexpected_error;
2689: END IF;
2682: ,x_rate=> l_rate
2683: );
2684:
2685: IF l_return_status = fnd_api.g_ret_sts_error THEN
2686: RAISE fnd_api.g_exc_error;
2687: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2688: RAISE fnd_api.g_exc_unexpected_error;
2689: END IF;
2690: END IF;
2683: );
2684:
2685: IF l_return_status = fnd_api.g_ret_sts_error THEN
2686: RAISE fnd_api.g_exc_error;
2687: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2688: RAISE fnd_api.g_exc_unexpected_error;
2689: END IF;
2690: END IF;
2691:
2684:
2685: IF l_return_status = fnd_api.g_ret_sts_error THEN
2686: RAISE fnd_api.g_exc_error;
2687: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2688: RAISE fnd_api.g_exc_unexpected_error;
2689: END IF;
2690: END IF;
2691:
2692:
2708: ,x_return_status=> l_return_status
2709: ,x_to_amount=> l_univ_curr_amount
2710: ,x_rate=> l_rate
2711: );
2712: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2713: RAISE fnd_api.g_exc_unexpected_error;
2714: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
2715: RAISE fnd_api.g_exc_error;
2716: END IF;
2709: ,x_to_amount=> l_univ_curr_amount
2710: ,x_rate=> l_rate
2711: );
2712: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2713: RAISE fnd_api.g_exc_unexpected_error;
2714: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
2715: RAISE fnd_api.g_exc_error;
2716: END IF;
2717: END IF;
2710: ,x_rate=> l_rate
2711: );
2712: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2713: RAISE fnd_api.g_exc_unexpected_error;
2714: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
2715: RAISE fnd_api.g_exc_error;
2716: END IF;
2717: END IF;
2718:
2711: );
2712: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2713: RAISE fnd_api.g_exc_unexpected_error;
2714: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
2715: RAISE fnd_api.g_exc_error;
2716: END IF;
2717: END IF;
2718:
2719: IF NVL (l_utilization_rec.amount_remaining, 0) = 0 THEN
2727: ,x_to_amount=> l_univ_curr_amount_remaining
2728: ,x_rate=> l_rate
2729: );
2730:
2731: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2732: RAISE fnd_api.g_exc_unexpected_error;
2733: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
2734: RAISE fnd_api.g_exc_error;
2735: END IF;
2728: ,x_rate=> l_rate
2729: );
2730:
2731: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2732: RAISE fnd_api.g_exc_unexpected_error;
2733: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
2734: RAISE fnd_api.g_exc_error;
2735: END IF;
2736: END IF;
2729: );
2730:
2731: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2732: RAISE fnd_api.g_exc_unexpected_error;
2733: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
2734: RAISE fnd_api.g_exc_error;
2735: END IF;
2736: END IF;
2737: END IF;
2730:
2731: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2732: RAISE fnd_api.g_exc_unexpected_error;
2733: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
2734: RAISE fnd_api.g_exc_error;
2735: END IF;
2736: END IF;
2737: END IF;
2738:
2827: fnd_message.set_name ('OZF', 'OZF_API_RECORD_NOT_FOUND');
2828: fnd_msg_pub.ADD;
2829: END IF;
2830:
2831: RAISE fnd_api.g_exc_error;
2832: END IF;
2833:
2834: UPDATE ozf_funds_utilized_all_tl
2835: SET last_update_date = SYSDATE
2850: fnd_message.set_name ('OZF', 'OZF_API_RECORD_NOT_FOUND');
2851: fnd_msg_pub.ADD;
2852: END IF;
2853:
2854: RAISE fnd_api.g_exc_error;
2855: END IF;
2856:
2857: OPEN c_fund_b (l_utilization_rec.fund_id);
2858: FETCH c_fund_b INTO l_utilized_amt, l_obj_num;
2864: fnd_message.set_name ('OZF', 'OZF_API_RECORD_NOT_FOUND');
2865: fnd_msg_pub.ADD;
2866: END IF;
2867:
2868: RAISE fnd_api.g_exc_error;
2869: END IF;
2870:
2871: CLOSE c_fund_b;
2872: OPEN c_old_util_amt (l_utilization_rec.utilization_id);
2882: l_fund_rec.fund_id := l_utilization_rec.fund_id;
2883: l_fund_rec.object_version_number := l_obj_num;
2884: ozf_funds_pvt.update_fund (
2885: p_api_version=> l_api_version
2886: ,p_init_msg_list=> fnd_api.g_false
2887: ,p_commit=> fnd_api.g_false
2888: ,p_validation_level=> p_validation_level
2889: ,x_return_status=> l_return_status
2890: ,x_msg_count=> x_msg_count
2883: l_fund_rec.object_version_number := l_obj_num;
2884: ozf_funds_pvt.update_fund (
2885: p_api_version=> l_api_version
2886: ,p_init_msg_list=> fnd_api.g_false
2887: ,p_commit=> fnd_api.g_false
2888: ,p_validation_level=> p_validation_level
2889: ,x_return_status=> l_return_status
2890: ,x_msg_count=> x_msg_count
2891: ,x_msg_data=> x_msg_data
2892: ,p_fund_rec=> l_fund_rec
2893: ,p_mode=> g_cons_fund_mode
2894: );
2895:
2896: IF l_return_status = fnd_api.g_ret_sts_error THEN
2897: RAISE fnd_api.g_exc_error;
2898: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2899: RAISE fnd_api.g_exc_unexpected_error;
2900: END IF;
2893: ,p_mode=> g_cons_fund_mode
2894: );
2895:
2896: IF l_return_status = fnd_api.g_ret_sts_error THEN
2897: RAISE fnd_api.g_exc_error;
2898: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2899: RAISE fnd_api.g_exc_unexpected_error;
2900: END IF;
2901:
2894: );
2895:
2896: IF l_return_status = fnd_api.g_ret_sts_error THEN
2897: RAISE fnd_api.g_exc_error;
2898: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2899: RAISE fnd_api.g_exc_unexpected_error;
2900: END IF;
2901:
2902:
2895:
2896: IF l_return_status = fnd_api.g_ret_sts_error THEN
2897: RAISE fnd_api.g_exc_error;
2898: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2899: RAISE fnd_api.g_exc_unexpected_error;
2900: END IF;
2901:
2902:
2903: -------------------- finish --------------------------
2901:
2902:
2903: -------------------- finish --------------------------
2904:
2905: IF fnd_api.to_boolean (p_commit) THEN
2906: COMMIT;
2907: END IF;
2908:
2909: fnd_msg_pub.count_and_get (
2906: COMMIT;
2907: END IF;
2908:
2909: fnd_msg_pub.count_and_get (
2910: p_encoded=> fnd_api.g_false
2911: ,p_count=> x_msg_count
2912: ,p_data=> x_msg_data
2913: );
2914: IF G_DEBUG THEN
2915: ozf_utility_pvt.debug_message ( l_full_name
2916: || ': end');
2917: END IF;
2918: EXCEPTION
2919: WHEN fnd_api.g_exc_error THEN
2920: ROLLBACK TO update_utilization;
2921: x_return_status := fnd_api.g_ret_sts_error;
2922: fnd_msg_pub.count_and_get (
2923: p_encoded=> fnd_api.g_false
2917: END IF;
2918: EXCEPTION
2919: WHEN fnd_api.g_exc_error THEN
2920: ROLLBACK TO update_utilization;
2921: x_return_status := fnd_api.g_ret_sts_error;
2922: fnd_msg_pub.count_and_get (
2923: p_encoded=> fnd_api.g_false
2924: ,p_count=> x_msg_count
2925: ,p_data=> x_msg_data
2919: WHEN fnd_api.g_exc_error THEN
2920: ROLLBACK TO update_utilization;
2921: x_return_status := fnd_api.g_ret_sts_error;
2922: fnd_msg_pub.count_and_get (
2923: p_encoded=> fnd_api.g_false
2924: ,p_count=> x_msg_count
2925: ,p_data=> x_msg_data
2926: );
2927: WHEN fnd_api.g_exc_unexpected_error THEN
2923: p_encoded=> fnd_api.g_false
2924: ,p_count=> x_msg_count
2925: ,p_data=> x_msg_data
2926: );
2927: WHEN fnd_api.g_exc_unexpected_error THEN
2928: ROLLBACK TO update_utilization;
2929: x_return_status := fnd_api.g_ret_sts_unexp_error;
2930: fnd_msg_pub.count_and_get (
2931: p_encoded=> fnd_api.g_false
2925: ,p_data=> x_msg_data
2926: );
2927: WHEN fnd_api.g_exc_unexpected_error THEN
2928: ROLLBACK TO update_utilization;
2929: x_return_status := fnd_api.g_ret_sts_unexp_error;
2930: fnd_msg_pub.count_and_get (
2931: p_encoded=> fnd_api.g_false
2932: ,p_count=> x_msg_count
2933: ,p_data=> x_msg_data
2927: WHEN fnd_api.g_exc_unexpected_error THEN
2928: ROLLBACK TO update_utilization;
2929: x_return_status := fnd_api.g_ret_sts_unexp_error;
2930: fnd_msg_pub.count_and_get (
2931: p_encoded=> fnd_api.g_false
2932: ,p_count=> x_msg_count
2933: ,p_data=> x_msg_data
2934: );
2935: WHEN OTHERS THEN
2933: ,p_data=> x_msg_data
2934: );
2935: WHEN OTHERS THEN
2936: ROLLBACK TO update_utilization;
2937: x_return_status := fnd_api.g_ret_sts_unexp_error;
2938:
2939: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2940: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2941: END IF;
2940: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2941: END IF;
2942:
2943: fnd_msg_pub.count_and_get (
2944: p_encoded=> fnd_api.g_false
2945: ,p_count=> x_msg_count
2946: ,p_data=> x_msg_data
2947: );
2948: END update_utilization;
2958: -- 02/23/2001 Mumu PAnde Updated for Hornet requirements
2959: --------------------------------------------------------------------
2960: PROCEDURE validate_utilization (
2961: p_api_version IN NUMBER
2962: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2963: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
2964: ,x_return_status OUT NOCOPY VARCHAR2
2965: ,x_msg_count OUT NOCOPY NUMBER
2966: ,x_msg_data OUT NOCOPY VARCHAR2
2959: --------------------------------------------------------------------
2960: PROCEDURE validate_utilization (
2961: p_api_version IN NUMBER
2962: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2963: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
2964: ,x_return_status OUT NOCOPY VARCHAR2
2965: ,x_msg_count OUT NOCOPY NUMBER
2966: ,x_msg_data OUT NOCOPY VARCHAR2
2967: ,p_utilization_rec IN utilization_rec_type
2978: ozf_utility_pvt.debug_message ( l_full_name
2979: || ': start');
2980: END IF;
2981:
2982: IF fnd_api.to_boolean (p_init_msg_list) THEN
2983: fnd_msg_pub.initialize;
2984: END IF;
2985:
2986: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2982: IF fnd_api.to_boolean (p_init_msg_list) THEN
2983: fnd_msg_pub.initialize;
2984: END IF;
2985:
2986: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2987: RAISE fnd_api.g_exc_unexpected_error;
2988: END IF;
2989:
2990: x_return_status := fnd_api.g_ret_sts_success;
2983: fnd_msg_pub.initialize;
2984: END IF;
2985:
2986: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2987: RAISE fnd_api.g_exc_unexpected_error;
2988: END IF;
2989:
2990: x_return_status := fnd_api.g_ret_sts_success;
2991:
2986: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2987: RAISE fnd_api.g_exc_unexpected_error;
2988: END IF;
2989:
2990: x_return_status := fnd_api.g_ret_sts_success;
2991:
2992: ---------------------- validate ------------------------
2993: IF G_DEBUG THEN
2994: ozf_utility_pvt.debug_message ( l_full_name
3001: ,p_validation_mode=> jtf_plsql_api.g_create
3002: ,x_return_status=> l_return_status
3003: );
3004:
3005: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3006: RAISE fnd_api.g_exc_unexpected_error;
3007: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
3008: RAISE fnd_api.g_exc_error;
3009: END IF;
3002: ,x_return_status=> l_return_status
3003: );
3004:
3005: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3006: RAISE fnd_api.g_exc_unexpected_error;
3007: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
3008: RAISE fnd_api.g_exc_error;
3009: END IF;
3010: END IF;
3003: );
3004:
3005: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3006: RAISE fnd_api.g_exc_unexpected_error;
3007: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
3008: RAISE fnd_api.g_exc_error;
3009: END IF;
3010: END IF;
3011:
3004:
3005: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3006: RAISE fnd_api.g_exc_unexpected_error;
3007: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
3008: RAISE fnd_api.g_exc_error;
3009: END IF;
3010: END IF;
3011:
3012: IF G_DEBUG THEN
3020: ,p_complete_rec=> p_utilization_rec
3021: ,x_return_status=> l_return_status
3022: );
3023:
3024: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3025: RAISE fnd_api.g_exc_unexpected_error;
3026: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
3027: RAISE fnd_api.g_exc_error;
3028: END IF;
3021: ,x_return_status=> l_return_status
3022: );
3023:
3024: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3025: RAISE fnd_api.g_exc_unexpected_error;
3026: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
3027: RAISE fnd_api.g_exc_error;
3028: END IF;
3029: END IF;
3022: );
3023:
3024: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3025: RAISE fnd_api.g_exc_unexpected_error;
3026: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
3027: RAISE fnd_api.g_exc_error;
3028: END IF;
3029: END IF;
3030:
3023:
3024: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3025: RAISE fnd_api.g_exc_unexpected_error;
3026: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
3027: RAISE fnd_api.g_exc_error;
3028: END IF;
3029: END IF;
3030:
3031:
3030:
3031:
3032: -------------------- finish --------------------------
3033: fnd_msg_pub.count_and_get (
3034: p_encoded=> fnd_api.g_false
3035: ,p_count=> x_msg_count
3036: ,p_data=> x_msg_data
3037: );
3038: IF G_DEBUG THEN
3039: ozf_utility_pvt.debug_message ( l_full_name
3040: || ': end');
3041: END IF;
3042: EXCEPTION
3043: WHEN fnd_api.g_exc_error THEN
3044: x_return_status := fnd_api.g_ret_sts_error;
3045: fnd_msg_pub.count_and_get (
3046: p_encoded=> fnd_api.g_false
3047: ,p_count=> x_msg_count
3040: || ': end');
3041: END IF;
3042: EXCEPTION
3043: WHEN fnd_api.g_exc_error THEN
3044: x_return_status := fnd_api.g_ret_sts_error;
3045: fnd_msg_pub.count_and_get (
3046: p_encoded=> fnd_api.g_false
3047: ,p_count=> x_msg_count
3048: ,p_data=> x_msg_data
3042: EXCEPTION
3043: WHEN fnd_api.g_exc_error THEN
3044: x_return_status := fnd_api.g_ret_sts_error;
3045: fnd_msg_pub.count_and_get (
3046: p_encoded=> fnd_api.g_false
3047: ,p_count=> x_msg_count
3048: ,p_data=> x_msg_data
3049: );
3050: WHEN fnd_api.g_exc_unexpected_error THEN
3046: p_encoded=> fnd_api.g_false
3047: ,p_count=> x_msg_count
3048: ,p_data=> x_msg_data
3049: );
3050: WHEN fnd_api.g_exc_unexpected_error THEN
3051: x_return_status := fnd_api.g_ret_sts_unexp_error;
3052: fnd_msg_pub.count_and_get (
3053: p_encoded=> fnd_api.g_false
3054: ,p_count=> x_msg_count
3047: ,p_count=> x_msg_count
3048: ,p_data=> x_msg_data
3049: );
3050: WHEN fnd_api.g_exc_unexpected_error THEN
3051: x_return_status := fnd_api.g_ret_sts_unexp_error;
3052: fnd_msg_pub.count_and_get (
3053: p_encoded=> fnd_api.g_false
3054: ,p_count=> x_msg_count
3055: ,p_data=> x_msg_data
3049: );
3050: WHEN fnd_api.g_exc_unexpected_error THEN
3051: x_return_status := fnd_api.g_ret_sts_unexp_error;
3052: fnd_msg_pub.count_and_get (
3053: p_encoded=> fnd_api.g_false
3054: ,p_count=> x_msg_count
3055: ,p_data=> x_msg_data
3056: );
3057: WHEN OTHERS THEN
3054: ,p_count=> x_msg_count
3055: ,p_data=> x_msg_data
3056: );
3057: WHEN OTHERS THEN
3058: x_return_status := fnd_api.g_ret_sts_unexp_error;
3059:
3060: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3061: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3062: END IF;
3061: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3062: END IF;
3063:
3064: fnd_msg_pub.count_and_get (
3065: p_encoded=> fnd_api.g_false
3066: ,p_count=> x_msg_count
3067: ,p_data=> x_msg_data
3068: );
3069: END validate_utilization;
3082: p_utilization_rec IN utilization_rec_type
3083: ,x_return_status OUT NOCOPY VARCHAR2
3084: ) IS
3085: BEGIN
3086: x_return_status := fnd_api.g_ret_sts_success;
3087:
3088:
3089: ------------------------ fund_id --------------------------
3090: IF p_utilization_rec.fund_id IS NULL THEN -- check for fund id
3092: fnd_message.set_name ('OZF', 'OZF_NO_FUND_ID');
3093: fnd_msg_pub.ADD;
3094: END IF;
3095:
3096: x_return_status := fnd_api.g_ret_sts_error;
3097: RETURN;
3098:
3099: ------------------------ AMOUNT -------------------------------
3100: ELSIF p_utilization_rec.amount IS NULL THEN -- check for amount
3102: fnd_message.set_name ('OZF', 'OZF_NO_UTILIZED_AMOUNT');
3103: fnd_msg_pub.ADD;
3104: END IF;
3105:
3106: x_return_status := fnd_api.g_ret_sts_error;
3107: RETURN;
3108: ELSIF p_utilization_rec.utilization_type IN ('ADJUSTMENT', 'CHARGEBACK', 'LEAD_ADJUSTMENT') THEN
3109: IF p_utilization_rec.adjustment_type IS NULL THEN -- check for utilization
3110: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
3111: fnd_message.set_name ('OZF', 'OZF_FUND_NO_ADJUSTMENT_TYPE');
3112: fnd_msg_pub.ADD;
3113: END IF;
3114:
3115: x_return_status := fnd_api.g_ret_sts_error;
3116: RETURN;
3117: END IF;
3118: -- added for customer id for offers 8/14/2002 mpande
3119: IF p_utilization_rec.adjustment_type IN ('DECREASE_EARNED' ,'DECREASE_COMM_EARNED','STANDARD')
3121: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
3122: fnd_message.set_name ('OZF', 'OZF_FUND_NO_CUST_ID');
3123: fnd_msg_pub.ADD;
3124: END IF;
3125: x_return_status := fnd_api.g_ret_sts_error;
3126: RETURN;
3127: END IF;
3128: ELSIF p_utilization_rec.utilization_type IS NULL THEN -- check for utilization type
3129: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
3130: fnd_message.set_name ('OZF', 'OZF_FUND_NO_UTILIZATION_TYPE');
3131: fnd_msg_pub.ADD;
3132: END IF;
3133:
3134: x_return_status := fnd_api.g_ret_sts_error;
3135: RETURN;
3136: END IF;
3137:
3138: END check_utilized_req_items;
3153: ,x_return_status OUT NOCOPY VARCHAR2
3154: ) IS
3155: l_valid_flag VARCHAR2 (1);
3156: BEGIN
3157: x_return_status := fnd_api.g_ret_sts_success;
3158:
3159: -- For Create_Utilization, when utilization_id is passed in, we need to
3160: -- check if this utilization_id is unique.
3161: IF p_validation_mode = jtf_plsql_api.g_create
3163: IF ozf_utility_pvt.check_uniqueness (
3164: 'ozf_funds_UTILIZED_all_b'
3165: , 'utilization_id = '
3166: || p_utilization_rec.utilization_id
3167: ) = fnd_api.g_false THEN
3168: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
3169: fnd_message.set_name ('OZF', 'OZF_UTILIZED_DUPLICATE_ID');
3170: fnd_msg_pub.ADD;
3171: END IF;
3169: fnd_message.set_name ('OZF', 'OZF_UTILIZED_DUPLICATE_ID');
3170: fnd_msg_pub.ADD;
3171: END IF;
3172:
3173: x_return_status := fnd_api.g_ret_sts_error;
3174: RETURN;
3175: END IF;
3176: END IF;
3177:
3193: p_utilization_rec IN utilization_rec_type
3194: ,x_return_status OUT NOCOPY VARCHAR2
3195: ) IS
3196: BEGIN
3197: x_return_status := fnd_api.g_ret_sts_success;
3198:
3199:
3200: ----------------------- fund_id ------------------------
3201: IF p_utilization_rec.fund_id <> fnd_api.g_miss_num THEN
3197: x_return_status := fnd_api.g_ret_sts_success;
3198:
3199:
3200: ----------------------- fund_id ------------------------
3201: IF p_utilization_rec.fund_id <> fnd_api.g_miss_num THEN
3202: IF ozf_utility_pvt.check_fk_exists (
3203: 'ozf_funds_all_b'
3204: , -- Parent schema object having the primary key
3205: 'fund_id'
3204: , -- Parent schema object having the primary key
3205: 'fund_id'
3206: , -- Column name in the parent object that maps to the fk value
3207: p_utilization_rec.fund_id -- Value of fk to be validated against the parent object's pk column
3208: ) = fnd_api.g_false THEN
3209: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
3210: fnd_message.set_name ('OZF', 'OZF_BAD_FUND_ID');
3211: fnd_msg_pub.ADD;
3212: END IF;
3210: fnd_message.set_name ('OZF', 'OZF_BAD_FUND_ID');
3211: fnd_msg_pub.ADD;
3212: END IF;
3213:
3214: x_return_status := fnd_api.g_ret_sts_error;
3215: RETURN;
3216: END IF;
3217: END IF;
3218:
3216: END IF;
3217: END IF;
3218:
3219: ----------------------- adjustment_id ------------------------
3220: IF p_utilization_rec.adjustment_type_id <> fnd_api.g_miss_num THEN
3221: IF ozf_utility_pvt.check_fk_exists (
3222: 'ozf_claim_types_all_b'
3223: , -- Parent schema object having the primary key
3224: 'claim_type_id'
3223: , -- Parent schema object having the primary key
3224: 'claim_type_id'
3225: , -- Column name in the parent object that maps to the fk value
3226: p_utilization_rec.adjustment_type_id -- Value of fk to be validated against the parent object's pk column
3227: ) = fnd_api.g_false THEN
3228: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
3229: fnd_message.set_name ('OZF', 'OZFBAD_ADJUSTMENT_ID');
3230: fnd_msg_pub.ADD;
3231: END IF;
3229: fnd_message.set_name ('OZF', 'OZFBAD_ADJUSTMENT_ID');
3230: fnd_msg_pub.ADD;
3231: END IF;
3232:
3233: x_return_status := fnd_api.g_ret_sts_error;
3234: RETURN;
3235: END IF;
3236: END IF;
3237:
3253: p_utilization_rec IN utilization_rec_type
3254: ,x_return_status OUT NOCOPY VARCHAR2
3255: ) IS
3256: BEGIN
3257: x_return_status := fnd_api.g_ret_sts_success;
3258:
3259: ----------------------- utilization_type ------------------------
3260: IF p_utilization_rec.utilization_type <> fnd_api.g_miss_char THEN
3261: /* yzhao: 09/29/2005 R12 no TRANSFER/REQUEST in utilization table
3256: BEGIN
3257: x_return_status := fnd_api.g_ret_sts_success;
3258:
3259: ----------------------- utilization_type ------------------------
3260: IF p_utilization_rec.utilization_type <> fnd_api.g_miss_char THEN
3261: /* yzhao: 09/29/2005 R12 no TRANSFER/REQUEST in utilization table
3262: AND p_utilization_rec.utilization_type NOT IN ('TRANSFER', 'REQUEST') THEN
3263: */
3264: IF ozf_utility_pvt.check_lookup_exists (
3264: IF ozf_utility_pvt.check_lookup_exists (
3265: p_lookup_table_name=> 'OZF_LOOKUPS'
3266: ,p_lookup_type=> 'OZF_UTILIZATION_TYPE'
3267: ,p_lookup_code=> p_utilization_rec.utilization_type
3268: ) = fnd_api.g_false THEN
3269: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
3270: fnd_message.set_name ('OZF', 'OZF_BAD_UTILIZED_CODE');
3271: fnd_msg_pub.ADD;
3272: END IF;
3270: fnd_message.set_name ('OZF', 'OZF_BAD_UTILIZED_CODE');
3271: fnd_msg_pub.ADD;
3272: END IF;
3273:
3274: x_return_status := fnd_api.g_ret_sts_error;
3275: RETURN;
3276: END IF;
3277: END IF;
3278:
3276: END IF;
3277: END IF;
3278:
3279: --------------------02/08/2001 mpande added----------------
3280: IF p_utilization_rec.adjustment_type <> fnd_api.g_miss_char THEN
3281: IF ozf_utility_pvt.check_lookup_exists (
3282: p_lookup_table_name=> 'OZF_LOOKUPS'
3283: ,p_lookup_type=> 'OZF_ADJUSTMENT_TYPE'
3284: ,p_lookup_code=> p_utilization_rec.adjustment_type
3281: IF ozf_utility_pvt.check_lookup_exists (
3282: p_lookup_table_name=> 'OZF_LOOKUPS'
3283: ,p_lookup_type=> 'OZF_ADJUSTMENT_TYPE'
3284: ,p_lookup_code=> p_utilization_rec.adjustment_type
3285: ) = fnd_api.g_false THEN
3286: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
3287: fnd_message.set_name ('OZF', 'OZF_BAD_ADJUSTMENT_CODE');
3288: fnd_msg_pub.ADD;
3289: END IF;
3287: fnd_message.set_name ('OZF', 'OZF_BAD_ADJUSTMENT_CODE');
3288: fnd_msg_pub.ADD;
3289: END IF;
3290:
3291: x_return_status := fnd_api.g_ret_sts_error;
3292: RETURN;
3293: END IF;
3294: END IF;
3295:
3311: p_utilization_rec IN utilization_rec_type
3312: ,x_return_status OUT NOCOPY VARCHAR2
3313: ) IS
3314: BEGIN
3315: x_return_status := fnd_api.g_ret_sts_success;
3316:
3317: -- check other flags
3318:
3319: END check_utilized_flag_items;
3338: p_utilization_rec=> p_utilization_rec
3339: ,x_return_status=> x_return_status
3340: );
3341:
3342: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3343: RETURN;
3344: END IF;
3345:
3346: check_utilized_uk_items (
3348: ,p_validation_mode=> p_validation_mode
3349: ,x_return_status=> x_return_status
3350: );
3351:
3352: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3353: RETURN;
3354: END IF;
3355:
3356: check_utilized_fk_items (
3357: p_utilization_rec=> p_utilization_rec
3358: ,x_return_status=> x_return_status
3359: );
3360:
3361: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3362: RETURN;
3363: END IF;
3364:
3365: check_utilized_lookup_items (
3366: p_utilization_rec=> p_utilization_rec
3367: ,x_return_status=> x_return_status
3368: );
3369:
3370: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3371: RETURN;
3372: END IF;
3373:
3374: check_utilized_flag_items (
3375: p_utilization_rec=> p_utilization_rec
3376: ,x_return_status=> x_return_status
3377: );
3378:
3379: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3380: RETURN;
3381: END IF;
3382: END check_utilization_items;
3383:
3465: OPEN c_transfer_allowed (p_activity_id, p_activity_type, p_fund_id);
3466: FETCH c_transfer_allowed INTO l_amount;
3467:
3468: IF c_transfer_allowed%NOTFOUND THEN
3469: RETURN fnd_api.g_false;
3470: END IF;
3471:
3472: CLOSE c_transfer_allowed;
3473: IF G_DEBUG THEN
3486: ozf_utility_pvt.debug_message ( ': check record'
3487: || l_amount
3488: || p_amount);
3489: END IF;
3490: RETURN fnd_api.g_false;
3491: END IF;
3492: ELSE
3493: RETURN fnd_api.g_true;
3494: END IF ;
3489: END IF;
3490: RETURN fnd_api.g_false;
3491: END IF;
3492: ELSE
3493: RETURN fnd_api.g_true;
3494: END IF ;
3495:
3496: RETURN fnd_api.g_true;
3497: EXCEPTION
3492: ELSE
3493: RETURN fnd_api.g_true;
3494: END IF ;
3495:
3496: RETURN fnd_api.g_true;
3497: EXCEPTION
3498: WHEN OTHERS THEN
3499: IF c_transfer_allowed%ISOPEN THEN
3500: CLOSE c_transfer_allowed;
3497: EXCEPTION
3498: WHEN OTHERS THEN
3499: IF c_transfer_allowed%ISOPEN THEN
3500: CLOSE c_transfer_allowed;
3501: RETURN fnd_api.g_false;
3502: END IF;
3503:
3504: RAISE;
3505: END check_committed_amount_exists;
3557: FETCH c_budget_earn_rec INTO l_amount;
3558:
3559: IF c_budget_earn_rec%NOTFOUND THEN
3560: CLOSE c_budget_earn_rec;
3561: RETURN fnd_api.g_false;
3562: END IF;
3563:
3564: CLOSE c_budget_earn_rec;
3565: /* ELSE
3567: FETCH c_budget_off_earn_rec INTO l_amount;
3568:
3569: IF c_budget_off_earn_rec%NOTFOUND THEN
3570: CLOSE c_budget_off_earn_rec;
3571: RETURN fnd_api.g_false;
3572: END IF;
3573:
3574: CLOSE c_budget_off_earn_rec;
3575: END IF;
3580: ozf_utility_pvt.debug_message ( ': check record'
3581: || l_amount
3582: || p_amount);
3583: END IF;
3584: RETURN fnd_api.g_false;
3585: END IF;
3586:
3587: RETURN fnd_api.g_true;
3588: END check_earned_amount_positive;
3583: END IF;
3584: RETURN fnd_api.g_false;
3585: END IF;
3586:
3587: RETURN fnd_api.g_true;
3588: END check_earned_amount_positive;
3589:
3590:
3591: ---------------------------------------------------------------------
3610: FETCH c_budget_rec INTO l_status;
3611:
3612: IF c_budget_rec%NOTFOUND THEN
3613: CLOSE c_budget_rec;
3614: RETURN fnd_api.g_false;
3615: END IF;
3616:
3617: -- check against the amount
3618: IF l_status <> 'ACTIVE' THEN
3619: IF G_DEBUG THEN
3620: ozf_utility_pvt.debug_message ( ': check record'
3621: || l_status);
3622: END IF;
3623: RETURN fnd_api.g_false;
3624: END IF;
3625:
3626: RETURN fnd_api.g_true;
3627: END check_fund_active;
3622: END IF;
3623: RETURN fnd_api.g_false;
3624: END IF;
3625:
3626: RETURN fnd_api.g_true;
3627: END check_fund_active;
3628:
3629:
3630: ---------------------------------------------------------------------
3657: FETCH c_fund_type INTO l_dummy;
3658: CLOSE c_fund_type;
3659: -- END IF;
3660:
3661: x_return_status := fnd_api.g_ret_sts_success;
3662:
3663: IF p_mode <> 'UPDATE' THEN
3664: -- Check for committed amount exists all offers except FULLY ACCRUED budget offer
3665: /* yzhao: 09/29/2005 R12 no TRANSFER/REQUEST in utilization table
3673: ,p_complete_rec.plan_id
3674: ,p_complete_rec.plan_type
3675: ,p_complete_rec.fund_id
3676: ,p_complete_rec.component_id
3677: ) = fnd_api.g_false THEN
3678: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
3679: fnd_message.set_name ('OZF', 'OZF_FUND_NO_COMMITTMENT');
3680: fnd_msg_pub.ADD;
3681: END IF;
3679: fnd_message.set_name ('OZF', 'OZF_FUND_NO_COMMITTMENT');
3680: fnd_msg_pub.ADD;
3681: END IF;
3682:
3683: x_return_status := fnd_api.g_ret_sts_error;
3684: RETURN;
3685: END IF;
3686: END IF;
3687:
3685: END IF;
3686: END IF;
3687:
3688:
3689: IF check_fund_active (p_complete_rec.fund_id) = fnd_api.g_false THEN
3690: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
3691: fnd_message.set_name ('OZF', 'OZF_FUND_NO_ADJUST');
3692: fnd_msg_pub.ADD;
3693: END IF;
3690: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
3691: fnd_message.set_name ('OZF', 'OZF_FUND_NO_ADJUST');
3692: fnd_msg_pub.ADD;
3693: END IF;
3694: x_return_status := fnd_api.g_ret_sts_error;
3695: RETURN;
3696: END IF;
3697:
3698: END IF; -- end if for p_mode
3705: fnd_message.set_name ('OZF', 'OZF_UTIL_NO_AMOUNT');
3706: fnd_msg_pub.ADD;
3707: END IF;
3708:
3709: x_return_status := fnd_api.g_ret_sts_error;
3710: RETURN;
3711: END IF;
3712: ELSE
3713: IF NVL (p_complete_rec.amount, 0) = 0 THEN
3715: fnd_message.set_name ('OZF', 'OZF_UTIL_NO_AMOUNT');
3716: fnd_msg_pub.ADD;
3717: END IF;
3718:
3719: x_return_status := fnd_api.g_ret_sts_error;
3720: RETURN;
3721: END IF;
3722: END IF;
3723: END IF;
3771: fnd_message.set_name ('OZF', 'OZF_API_RECORD_NOT_FOUND');
3772: fnd_msg_pub.ADD;
3773: END IF;
3774:
3775: RAISE fnd_api.g_exc_error;
3776: END IF;
3777:
3778: CLOSE c_utilization;
3779:
3776: END IF;
3777:
3778: CLOSE c_utilization;
3779:
3780: IF p_utilization_rec.utilization_type = fnd_api.g_miss_char THEN
3781: x_complete_rec.utilization_type := NULL;
3782: END IF;
3783: IF p_utilization_rec.utilization_type IS NULL THEN
3784: x_complete_rec.utilization_type := l_utilization_rec.utilization_type;
3783: IF p_utilization_rec.utilization_type IS NULL THEN
3784: x_complete_rec.utilization_type := l_utilization_rec.utilization_type;
3785: END IF;
3786:
3787: IF p_utilization_rec.fund_id = fnd_api.g_miss_num THEN
3788: x_complete_rec.fund_id := NULL;
3789: END IF;
3790: IF p_utilization_rec.fund_id IS NULL THEN
3791: x_complete_rec.fund_id := l_utilization_rec.fund_id;
3790: IF p_utilization_rec.fund_id IS NULL THEN
3791: x_complete_rec.fund_id := l_utilization_rec.fund_id;
3792: END IF;
3793:
3794: IF p_utilization_rec.plan_type = fnd_api.g_miss_char THEN
3795: x_complete_rec.plan_type := NULL;
3796: END IF;
3797: IF p_utilization_rec.plan_type IS NULL THEN
3798: x_complete_rec.plan_type := l_utilization_rec.plan_type;
3797: IF p_utilization_rec.plan_type IS NULL THEN
3798: x_complete_rec.plan_type := l_utilization_rec.plan_type;
3799: END IF;
3800:
3801: IF p_utilization_rec.plan_id = fnd_api.g_miss_num THEN
3802: x_complete_rec.plan_id := NULL;
3803: END IF;
3804: IF p_utilization_rec.plan_id IS NULL THEN
3805: x_complete_rec.plan_id := l_utilization_rec.plan_id;
3804: IF p_utilization_rec.plan_id IS NULL THEN
3805: x_complete_rec.plan_id := l_utilization_rec.plan_id;
3806: END IF;
3807:
3808: IF p_utilization_rec.component_type = fnd_api.g_miss_char THEN
3809: x_complete_rec.component_type := NULL;
3810: END IF;
3811: IF p_utilization_rec.component_type IS NULL THEN
3812: x_complete_rec.component_type := l_utilization_rec.component_type;
3811: IF p_utilization_rec.component_type IS NULL THEN
3812: x_complete_rec.component_type := l_utilization_rec.component_type;
3813: END IF;
3814:
3815: IF p_utilization_rec.component_id = fnd_api.g_miss_num THEN
3816: x_complete_rec.component_id := NULL;
3817: END IF;
3818: IF p_utilization_rec.component_id IS NULL THEN
3819: x_complete_rec.component_id := l_utilization_rec.component_id;
3818: IF p_utilization_rec.component_id IS NULL THEN
3819: x_complete_rec.component_id := l_utilization_rec.component_id;
3820: END IF;
3821:
3822: IF p_utilization_rec.object_type = fnd_api.g_miss_char THEN
3823: x_complete_rec.object_type := NULL;
3824: END IF;
3825: IF p_utilization_rec.object_type IS NULL THEN
3826: x_complete_rec.object_type := l_utilization_rec.object_type;
3825: IF p_utilization_rec.object_type IS NULL THEN
3826: x_complete_rec.object_type := l_utilization_rec.object_type;
3827: END IF;
3828:
3829: IF p_utilization_rec.object_id = fnd_api.g_miss_num THEN
3830: x_complete_rec.object_id := NULL;
3831: END IF;
3832: IF p_utilization_rec.object_id IS NULL THEN
3833: x_complete_rec.object_id := l_utilization_rec.object_id;
3832: IF p_utilization_rec.object_id IS NULL THEN
3833: x_complete_rec.object_id := l_utilization_rec.object_id;
3834: END IF;
3835:
3836: IF p_utilization_rec.order_id = fnd_api.g_miss_num THEN
3837: x_complete_rec.order_id := NULL;
3838: END IF;
3839: IF p_utilization_rec.order_id IS NULL THEN
3840: x_complete_rec.order_id := l_utilization_rec.order_id;
3839: IF p_utilization_rec.order_id IS NULL THEN
3840: x_complete_rec.order_id := l_utilization_rec.order_id;
3841: END IF;
3842:
3843: IF p_utilization_rec.invoice_id = fnd_api.g_miss_num THEN
3844: x_complete_rec.invoice_id := NULL;
3845: END IF;
3846: IF p_utilization_rec.invoice_id IS NULL THEN
3847: x_complete_rec.invoice_id := l_utilization_rec.invoice_id;
3846: IF p_utilization_rec.invoice_id IS NULL THEN
3847: x_complete_rec.invoice_id := l_utilization_rec.invoice_id;
3848: END IF;
3849:
3850: IF p_utilization_rec.amount = fnd_api.g_miss_num THEN
3851: x_complete_rec.amount := NULL;
3852: END IF;
3853: IF p_utilization_rec.amount IS NULL THEN
3854: x_complete_rec.amount := l_utilization_rec.amount;
3853: IF p_utilization_rec.amount IS NULL THEN
3854: x_complete_rec.amount := l_utilization_rec.amount;
3855: END IF;
3856:
3857: IF p_utilization_rec.acctd_amount = fnd_api.g_miss_num THEN
3858: x_complete_rec.acctd_amount := NULL;
3859: END IF;
3860: IF p_utilization_rec.acctd_amount IS NULL THEN
3861: x_complete_rec.acctd_amount := l_utilization_rec.acctd_amount;
3860: IF p_utilization_rec.acctd_amount IS NULL THEN
3861: x_complete_rec.acctd_amount := l_utilization_rec.acctd_amount;
3862: END IF;
3863:
3864: IF p_utilization_rec.currency_code = fnd_api.g_miss_char THEN
3865: x_complete_rec.currency_code := NULL;
3866: END IF;
3867: IF p_utilization_rec.currency_code IS NULL THEN
3868: x_complete_rec.currency_code := l_utilization_rec.currency_code;
3870:
3871:
3872: ----------------------------------------------------------------------------
3873: --02/09/2001 ADDEd by mpande for 11.5.5 reqmnts.--
3874: IF p_utilization_rec.adjustment_type_id = fnd_api.g_miss_num THEN
3875: x_complete_rec.adjustment_type_id := NULL;
3876: END IF;
3877: IF p_utilization_rec.adjustment_type_id IS NULL THEN
3878: x_complete_rec.adjustment_type_id := l_utilization_rec.adjustment_type_id;
3877: IF p_utilization_rec.adjustment_type_id IS NULL THEN
3878: x_complete_rec.adjustment_type_id := l_utilization_rec.adjustment_type_id;
3879: END IF;
3880:
3881: IF p_utilization_rec.camp_schedule_id = fnd_api.g_miss_num THEN
3882: x_complete_rec.camp_schedule_id := NULL;
3883: END IF;
3884: IF p_utilization_rec.camp_schedule_id IS NULL THEN
3885: x_complete_rec.camp_schedule_id := l_utilization_rec.camp_schedule_id;
3884: IF p_utilization_rec.camp_schedule_id IS NULL THEN
3885: x_complete_rec.camp_schedule_id := l_utilization_rec.camp_schedule_id;
3886: END IF;
3887:
3888: IF p_utilization_rec.gl_date = fnd_api.g_miss_date THEN
3889: x_complete_rec.gl_date := NULL;
3890: END IF;
3891: IF p_utilization_rec.gl_date IS NULL THEN
3892: x_complete_rec.gl_date := l_utilization_rec.gl_date;
3891: IF p_utilization_rec.gl_date IS NULL THEN
3892: x_complete_rec.gl_date := l_utilization_rec.gl_date;
3893: END IF;
3894:
3895: IF p_utilization_rec.product_level_type = fnd_api.g_miss_char THEN
3896: x_complete_rec.product_level_type := NULL;
3897: END IF;
3898: IF p_utilization_rec.product_level_type IS NULL THEN
3899: x_complete_rec.product_level_type := l_utilization_rec.product_level_type;
3898: IF p_utilization_rec.product_level_type IS NULL THEN
3899: x_complete_rec.product_level_type := l_utilization_rec.product_level_type;
3900: END IF;
3901:
3902: IF p_utilization_rec.product_id = fnd_api.g_miss_num THEN
3903: x_complete_rec.product_id := NULL;
3904: END IF;
3905: IF p_utilization_rec.product_id IS NULL THEN
3906: x_complete_rec.product_id := l_utilization_rec.product_id;
3905: IF p_utilization_rec.product_id IS NULL THEN
3906: x_complete_rec.product_id := l_utilization_rec.product_id;
3907: END IF;
3908:
3909: IF p_utilization_rec.ams_activity_budget_id = fnd_api.g_miss_num THEN
3910: x_complete_rec.ams_activity_budget_id := NULL;
3911: END IF;
3912: IF p_utilization_rec.ams_activity_budget_id IS NULL THEN
3913: x_complete_rec.ams_activity_budget_id := l_utilization_rec.ams_activity_budget_id;
3912: IF p_utilization_rec.ams_activity_budget_id IS NULL THEN
3913: x_complete_rec.ams_activity_budget_id := l_utilization_rec.ams_activity_budget_id;
3914: END IF;
3915:
3916: IF p_utilization_rec.amount_remaining = fnd_api.g_miss_num THEN
3917: x_complete_rec.amount_remaining := NULL;
3918: END IF;
3919: IF p_utilization_rec.amount_remaining IS NULL THEN
3920: x_complete_rec.amount_remaining := l_utilization_rec.amount_remaining;
3919: IF p_utilization_rec.amount_remaining IS NULL THEN
3920: x_complete_rec.amount_remaining := l_utilization_rec.amount_remaining;
3921: END IF;
3922:
3923: IF p_utilization_rec.acctd_amount_remaining = fnd_api.g_miss_num THEN
3924: x_complete_rec.acctd_amount_remaining := NULL;
3925: END IF;
3926: IF p_utilization_rec.acctd_amount_remaining IS NULL THEN
3927: x_complete_rec.acctd_amount_remaining := l_utilization_rec.acctd_amount_remaining;
3926: IF p_utilization_rec.acctd_amount_remaining IS NULL THEN
3927: x_complete_rec.acctd_amount_remaining := l_utilization_rec.acctd_amount_remaining;
3928: END IF;
3929:
3930: IF p_utilization_rec.cust_account_id = fnd_api.g_miss_num THEN
3931: x_complete_rec.cust_account_id := NULL;
3932: END IF;
3933: IF p_utilization_rec.cust_account_id IS NULL THEN
3934: x_complete_rec.cust_account_id := l_utilization_rec.cust_account_id;
3933: IF p_utilization_rec.cust_account_id IS NULL THEN
3934: x_complete_rec.cust_account_id := l_utilization_rec.cust_account_id;
3935: END IF;
3936:
3937: IF p_utilization_rec.price_adjustment_id = fnd_api.g_miss_num THEN
3938: x_complete_rec.price_adjustment_id := NULL;
3939: END IF;
3940: IF p_utilization_rec.price_adjustment_id IS NULL THEN
3941: x_complete_rec.price_adjustment_id := l_utilization_rec.price_adjustment_id;
3942: END IF;
3943:
3944:
3945: --------------------------------------------------------------------------------
3946: IF p_utilization_rec.exchange_rate_type = fnd_api.g_miss_char THEN
3947: x_complete_rec.exchange_rate_type := NULL;
3948: END IF;
3949: IF p_utilization_rec.exchange_rate_type IS NULL THEN
3950: x_complete_rec.exchange_rate_type := l_utilization_rec.exchange_rate_type;
3949: IF p_utilization_rec.exchange_rate_type IS NULL THEN
3950: x_complete_rec.exchange_rate_type := l_utilization_rec.exchange_rate_type;
3951: END IF;
3952:
3953: IF p_utilization_rec.exchange_rate_date = fnd_api.g_miss_date THEN
3954: x_complete_rec.exchange_rate_date := NULL;
3955: END IF;
3956: IF p_utilization_rec.exchange_rate_date IS NULL THEN
3957: x_complete_rec.exchange_rate_date := l_utilization_rec.exchange_rate_date;
3956: IF p_utilization_rec.exchange_rate_date IS NULL THEN
3957: x_complete_rec.exchange_rate_date := l_utilization_rec.exchange_rate_date;
3958: END IF;
3959:
3960: IF p_utilization_rec.exchange_rate = fnd_api.g_miss_num THEN
3961: x_complete_rec.exchange_rate := NULL;
3962: END IF;
3963: IF p_utilization_rec.exchange_rate IS NULL THEN
3964: x_complete_rec.exchange_rate := l_utilization_rec.exchange_rate;
3963: IF p_utilization_rec.exchange_rate IS NULL THEN
3964: x_complete_rec.exchange_rate := l_utilization_rec.exchange_rate;
3965: END IF;
3966:
3967: IF p_utilization_rec.adjustment_type = fnd_api.g_miss_char THEN
3968: x_complete_rec.adjustment_type := NULL;
3969: END IF;
3970: IF p_utilization_rec.adjustment_type IS NULL THEN
3971: x_complete_rec.adjustment_type := l_utilization_rec.adjustment_type;
3970: IF p_utilization_rec.adjustment_type IS NULL THEN
3971: x_complete_rec.adjustment_type := l_utilization_rec.adjustment_type;
3972: END IF;
3973:
3974: IF p_utilization_rec.adjustment_date = fnd_api.g_miss_date THEN
3975: x_complete_rec.adjustment_date := NULL;
3976: END IF;
3977: IF p_utilization_rec.adjustment_date IS NULL THEN
3978: x_complete_rec.adjustment_date := l_utilization_rec.adjustment_date;
3977: IF p_utilization_rec.adjustment_date IS NULL THEN
3978: x_complete_rec.adjustment_date := l_utilization_rec.adjustment_date;
3979: END IF;
3980:
3981: IF p_utilization_rec.object_version_number = fnd_api.g_miss_num THEN
3982: x_complete_rec.object_version_number := NULL;
3983: END IF;
3984: IF p_utilization_rec.object_version_number IS NULL THEN
3985: x_complete_rec.object_version_number := l_utilization_rec.object_version_number;
3984: IF p_utilization_rec.object_version_number IS NULL THEN
3985: x_complete_rec.object_version_number := l_utilization_rec.object_version_number;
3986: END IF;
3987:
3988: IF p_utilization_rec.attribute_category = fnd_api.g_miss_char THEN
3989: x_complete_rec.attribute_category := NULL;
3990: END IF;
3991: IF p_utilization_rec.attribute_category IS NULL THEN
3992: x_complete_rec.attribute_category := l_utilization_rec.attribute_category;
3991: IF p_utilization_rec.attribute_category IS NULL THEN
3992: x_complete_rec.attribute_category := l_utilization_rec.attribute_category;
3993: END IF;
3994:
3995: IF p_utilization_rec.attribute1 = fnd_api.g_miss_char THEN
3996: x_complete_rec.attribute1 := NULL;
3997: END IF;
3998: IF p_utilization_rec.attribute1 IS NULL THEN
3999: x_complete_rec.attribute1 := l_utilization_rec.attribute1;
3998: IF p_utilization_rec.attribute1 IS NULL THEN
3999: x_complete_rec.attribute1 := l_utilization_rec.attribute1;
4000: END IF;
4001:
4002: IF p_utilization_rec.attribute2 = fnd_api.g_miss_char THEN
4003: x_complete_rec.attribute2 := NULL;
4004: END IF;
4005: IF p_utilization_rec.attribute2 IS NULL THEN
4006: x_complete_rec.attribute2 := l_utilization_rec.attribute2;
4005: IF p_utilization_rec.attribute2 IS NULL THEN
4006: x_complete_rec.attribute2 := l_utilization_rec.attribute2;
4007: END IF;
4008:
4009: IF p_utilization_rec.attribute3 = fnd_api.g_miss_char THEN
4010: x_complete_rec.attribute3 := NULL;
4011: END IF;
4012: IF p_utilization_rec.attribute3 IS NULL THEN
4013: x_complete_rec.attribute3 := l_utilization_rec.attribute3;
4012: IF p_utilization_rec.attribute3 IS NULL THEN
4013: x_complete_rec.attribute3 := l_utilization_rec.attribute3;
4014: END IF;
4015:
4016: IF p_utilization_rec.attribute4 = fnd_api.g_miss_char THEN
4017: x_complete_rec.attribute4 := NULL;
4018: END IF;
4019: IF p_utilization_rec.attribute4 IS NULL THEN
4020: x_complete_rec.attribute4 := l_utilization_rec.attribute4;
4019: IF p_utilization_rec.attribute4 IS NULL THEN
4020: x_complete_rec.attribute4 := l_utilization_rec.attribute4;
4021: END IF;
4022:
4023: IF p_utilization_rec.attribute5 = fnd_api.g_miss_char THEN
4024: x_complete_rec.attribute5 := NULL;
4025: END IF;
4026: IF p_utilization_rec.attribute5 IS NULL THEN
4027: x_complete_rec.attribute5 := l_utilization_rec.attribute5;
4026: IF p_utilization_rec.attribute5 IS NULL THEN
4027: x_complete_rec.attribute5 := l_utilization_rec.attribute5;
4028: END IF;
4029:
4030: IF p_utilization_rec.attribute6 = fnd_api.g_miss_char THEN
4031: x_complete_rec.attribute6 := NULL;
4032: END IF;
4033: IF p_utilization_rec.attribute6 IS NULL THEN
4034: x_complete_rec.attribute6 := l_utilization_rec.attribute6;
4033: IF p_utilization_rec.attribute6 IS NULL THEN
4034: x_complete_rec.attribute6 := l_utilization_rec.attribute6;
4035: END IF;
4036:
4037: IF p_utilization_rec.attribute7 = fnd_api.g_miss_char THEN
4038: x_complete_rec.attribute7 := NULL;
4039: END IF;
4040: IF p_utilization_rec.attribute7 IS NULL THEN
4041: x_complete_rec.attribute7 := l_utilization_rec.attribute7;
4040: IF p_utilization_rec.attribute7 IS NULL THEN
4041: x_complete_rec.attribute7 := l_utilization_rec.attribute7;
4042: END IF;
4043:
4044: IF p_utilization_rec.attribute8 = fnd_api.g_miss_char THEN
4045: x_complete_rec.attribute8 := NULL;
4046: END IF;
4047: IF p_utilization_rec.attribute8 IS NULL THEN
4048: x_complete_rec.attribute8 := l_utilization_rec.attribute8;
4047: IF p_utilization_rec.attribute8 IS NULL THEN
4048: x_complete_rec.attribute8 := l_utilization_rec.attribute8;
4049: END IF;
4050:
4051: IF p_utilization_rec.attribute9 = fnd_api.g_miss_char THEN
4052: x_complete_rec.attribute9 := NULL;
4053: END IF;
4054: IF p_utilization_rec.attribute9 IS NULL THEN
4055: x_complete_rec.attribute9 := l_utilization_rec.attribute9;
4054: IF p_utilization_rec.attribute9 IS NULL THEN
4055: x_complete_rec.attribute9 := l_utilization_rec.attribute9;
4056: END IF;
4057:
4058: IF p_utilization_rec.attribute10 = fnd_api.g_miss_char THEN
4059: x_complete_rec.attribute10 := NULL;
4060: END IF;
4061: IF p_utilization_rec.attribute10 IS NULL THEN
4062: x_complete_rec.attribute10 := l_utilization_rec.attribute10;
4061: IF p_utilization_rec.attribute10 IS NULL THEN
4062: x_complete_rec.attribute10 := l_utilization_rec.attribute10;
4063: END IF;
4064:
4065: IF p_utilization_rec.attribute11 = fnd_api.g_miss_char THEN
4066: x_complete_rec.attribute11 := NULL;
4067: END IF;
4068: IF p_utilization_rec.attribute11 IS NULL THEN
4069: x_complete_rec.attribute11 := l_utilization_rec.attribute11;
4068: IF p_utilization_rec.attribute11 IS NULL THEN
4069: x_complete_rec.attribute11 := l_utilization_rec.attribute11;
4070: END IF;
4071:
4072: IF p_utilization_rec.attribute12 = fnd_api.g_miss_char THEN
4073: x_complete_rec.attribute12 := NULL;
4074: END IF;
4075: IF p_utilization_rec.attribute12 IS NULL THEN
4076: x_complete_rec.attribute12 := l_utilization_rec.attribute12;
4075: IF p_utilization_rec.attribute12 IS NULL THEN
4076: x_complete_rec.attribute12 := l_utilization_rec.attribute12;
4077: END IF;
4078:
4079: IF p_utilization_rec.attribute13 = fnd_api.g_miss_char THEN
4080: x_complete_rec.attribute13 := NULL;
4081: END IF;
4082: IF p_utilization_rec.attribute13 IS NULL THEN
4083: x_complete_rec.attribute13 := l_utilization_rec.attribute13;
4082: IF p_utilization_rec.attribute13 IS NULL THEN
4083: x_complete_rec.attribute13 := l_utilization_rec.attribute13;
4084: END IF;
4085:
4086: IF p_utilization_rec.attribute14 = fnd_api.g_miss_char THEN
4087: x_complete_rec.attribute14 := NULL;
4088: END IF;
4089: IF p_utilization_rec.attribute14 IS NULL THEN
4090: x_complete_rec.attribute14 := l_utilization_rec.attribute14;
4089: IF p_utilization_rec.attribute14 IS NULL THEN
4090: x_complete_rec.attribute14 := l_utilization_rec.attribute14;
4091: END IF;
4092:
4093: IF p_utilization_rec.attribute15 = fnd_api.g_miss_char THEN
4094: x_complete_rec.attribute15 := NULL;
4095: END IF;
4096: IF p_utilization_rec.attribute15 IS NULL THEN
4097: x_complete_rec.attribute15 := l_utilization_rec.attribute15;
4096: IF p_utilization_rec.attribute15 IS NULL THEN
4097: x_complete_rec.attribute15 := l_utilization_rec.attribute15;
4098: END IF;
4099:
4100: IF p_utilization_rec.adjustment_desc = fnd_api.g_miss_char THEN
4101: x_complete_rec.adjustment_desc := NULL;
4102: END IF;
4103: IF p_utilization_rec.adjustment_desc IS NULL THEN
4104: x_complete_rec.adjustment_desc := l_utilization_rec.adjustment_desc;
4103: IF p_utilization_rec.adjustment_desc IS NULL THEN
4104: x_complete_rec.adjustment_desc := l_utilization_rec.adjustment_desc;
4105: END IF;
4106:
4107: IF p_utilization_rec.plan_curr_amount = fnd_api.g_miss_num THEN
4108: x_complete_rec.plan_curr_amount := NULL;
4109: END IF;
4110: IF p_utilization_rec.plan_curr_amount IS NULL THEN
4111: x_complete_rec.plan_curr_amount := l_utilization_rec.plan_curr_amount;
4110: IF p_utilization_rec.plan_curr_amount IS NULL THEN
4111: x_complete_rec.plan_curr_amount := l_utilization_rec.plan_curr_amount;
4112: END IF;
4113:
4114: IF p_utilization_rec.plan_curr_amount_remaining = fnd_api.g_miss_num THEN
4115: x_complete_rec.plan_curr_amount_remaining := NULL;
4116: END IF;
4117: IF p_utilization_rec.plan_curr_amount_remaining IS NULL THEN
4118: x_complete_rec.plan_curr_amount_remaining := l_utilization_rec.plan_curr_amount_remaining;
4118: x_complete_rec.plan_curr_amount_remaining := l_utilization_rec.plan_curr_amount_remaining;
4119: END IF;
4120:
4121: -- added for 11.5.9
4122: IF p_utilization_rec.scan_unit = fnd_api.g_miss_num THEN
4123: x_complete_rec.scan_unit := NULL;
4124: END IF;
4125: IF p_utilization_rec.scan_unit IS NULL THEN
4126: x_complete_rec.scan_unit := l_utilization_rec.scan_unit;
4125: IF p_utilization_rec.scan_unit IS NULL THEN
4126: x_complete_rec.scan_unit := l_utilization_rec.scan_unit;
4127: END IF;
4128:
4129: IF p_utilization_rec.scan_unit_remaining = fnd_api.g_miss_num THEN
4130: x_complete_rec.scan_unit_remaining := NULL;
4131: END IF;
4132: IF p_utilization_rec.scan_unit_remaining IS NULL THEN
4133: x_complete_rec.scan_unit_remaining := l_utilization_rec.scan_unit_remaining;
4132: IF p_utilization_rec.scan_unit_remaining IS NULL THEN
4133: x_complete_rec.scan_unit_remaining := l_utilization_rec.scan_unit_remaining;
4134: END IF;
4135:
4136: IF p_utilization_rec.activity_product_id = fnd_api.g_miss_num THEN
4137: x_complete_rec.activity_product_id := NULL;
4138: END IF;
4139: IF p_utilization_rec.activity_product_id IS NULL THEN
4140: x_complete_rec.activity_product_id := l_utilization_rec.activity_product_id;
4139: IF p_utilization_rec.activity_product_id IS NULL THEN
4140: x_complete_rec.activity_product_id := l_utilization_rec.activity_product_id;
4141: END IF;
4142:
4143: IF p_utilization_rec.volume_offer_tiers_id = fnd_api.g_miss_num THEN
4144: x_complete_rec.volume_offer_tiers_id := NULL;
4145: END IF;
4146: IF p_utilization_rec.volume_offer_tiers_id IS NULL THEN
4147: x_complete_rec.volume_offer_tiers_id := l_utilization_rec.volume_offer_tiers_id;
4147: x_complete_rec.volume_offer_tiers_id := l_utilization_rec.volume_offer_tiers_id;
4148: END IF;
4149:
4150: -- yzhao: 03/20/2003 added gl_posted_flag
4151: IF p_utilization_rec.gl_posted_flag = fnd_api.g_miss_char THEN
4152: x_complete_rec.gl_posted_flag := NULL;
4153: END IF;
4154: IF p_utilization_rec.gl_posted_flag IS NULL THEN
4155: x_complete_rec.gl_posted_flag := l_utilization_rec.gl_posted_flag;
4155: x_complete_rec.gl_posted_flag := l_utilization_rec.gl_posted_flag;
4156: END IF;
4157:
4158: -- 11/04/2003 yzhao 11.5.10: added
4159: IF p_utilization_rec.billto_cust_account_id = fnd_api.g_miss_num THEN
4160: x_complete_rec.billto_cust_account_id := NULL;
4161: END IF;
4162: IF p_utilization_rec.billto_cust_account_id IS NULL THEN
4163: x_complete_rec.billto_cust_account_id := l_utilization_rec.billto_cust_account_id;
4162: IF p_utilization_rec.billto_cust_account_id IS NULL THEN
4163: x_complete_rec.billto_cust_account_id := l_utilization_rec.billto_cust_account_id;
4164: END IF;
4165:
4166: IF p_utilization_rec.reference_type = fnd_api.g_miss_char THEN
4167: x_complete_rec.reference_type := NULL;
4168: END IF;
4169: IF p_utilization_rec.reference_type IS NULL THEN
4170: x_complete_rec.reference_type := l_utilization_rec.reference_type;
4169: IF p_utilization_rec.reference_type IS NULL THEN
4170: x_complete_rec.reference_type := l_utilization_rec.reference_type;
4171: END IF;
4172:
4173: IF p_utilization_rec.reference_id = fnd_api.g_miss_num THEN
4174: x_complete_rec.reference_id := NULL;
4175: END IF;
4176: IF p_utilization_rec.reference_id IS NULL THEN
4177: x_complete_rec.reference_id := l_utilization_rec.reference_id;
4177: x_complete_rec.reference_id := l_utilization_rec.reference_id;
4178: END IF;
4179:
4180: /*fix for bug 4778995
4181: IF p_utilization_rec.month_id = fnd_api.g_miss_num THEN
4182: x_complete_rec.month_id := NULL;
4183: END IF;
4184: IF p_utilization_rec.month_id IS NULL THEN
4185: x_complete_rec.month_id := l_utilization_rec.month_id;
4184: IF p_utilization_rec.month_id IS NULL THEN
4185: x_complete_rec.month_id := l_utilization_rec.month_id;
4186: END IF;
4187:
4188: IF p_utilization_rec.quarter_id = fnd_api.g_miss_num THEN
4189: x_complete_rec.quarter_id := NULL;
4190: END IF;
4191: IF p_utilization_rec.quarter_id IS NULL THEN
4192: x_complete_rec.quarter_id := l_utilization_rec.quarter_id;
4191: IF p_utilization_rec.quarter_id IS NULL THEN
4192: x_complete_rec.quarter_id := l_utilization_rec.quarter_id;
4193: END IF;
4194:
4195: IF p_utilization_rec.year_id = fnd_api.g_miss_num THEN
4196: x_complete_rec.year_id := NULL;
4197: END IF;
4198: IF p_utilization_rec.year_id IS NULL THEN
4199: x_complete_rec.year_id := l_utilization_rec.year_id;
4199: x_complete_rec.year_id := l_utilization_rec.year_id;
4200: END IF;
4201: */
4202:
4203: IF p_utilization_rec.order_line_id = fnd_api.g_miss_num THEN
4204: x_complete_rec.order_line_id := NULL;
4205: END IF;
4206: IF p_utilization_rec.order_line_id IS NULL THEN
4207: x_complete_rec.order_line_id := l_utilization_rec.order_line_id;
4206: IF p_utilization_rec.order_line_id IS NULL THEN
4207: x_complete_rec.order_line_id := l_utilization_rec.order_line_id;
4208: END IF;
4209:
4210: IF p_utilization_rec.orig_utilization_id = fnd_api.g_miss_num THEN
4211: x_complete_rec.orig_utilization_id := NULL;
4212: END IF;
4213: IF p_utilization_rec.orig_utilization_id IS NULL THEN
4214: x_complete_rec.orig_utilization_id := l_utilization_rec.orig_utilization_id;
4214: x_complete_rec.orig_utilization_id := l_utilization_rec.orig_utilization_id;
4215: END IF;
4216:
4217: -- R12: yzhao add
4218: IF p_utilization_rec.univ_curr_amount = fnd_api.g_miss_num THEN
4219: x_complete_rec.univ_curr_amount := NULL;
4220: END IF;
4221: IF p_utilization_rec.univ_curr_amount IS NULL THEN
4222: x_complete_rec.univ_curr_amount := l_utilization_rec.univ_curr_amount;
4221: IF p_utilization_rec.univ_curr_amount IS NULL THEN
4222: x_complete_rec.univ_curr_amount := l_utilization_rec.univ_curr_amount;
4223: END IF;
4224:
4225: IF p_utilization_rec.univ_curr_amount_remaining = fnd_api.g_miss_num THEN
4226: x_complete_rec.univ_curr_amount_remaining := NULL;
4227: END IF;
4228: IF p_utilization_rec.univ_curr_amount_remaining IS NULL THEN
4229: x_complete_rec.univ_curr_amount_remaining := l_utilization_rec.univ_curr_amount_remaining;
4228: IF p_utilization_rec.univ_curr_amount_remaining IS NULL THEN
4229: x_complete_rec.univ_curr_amount_remaining := l_utilization_rec.univ_curr_amount_remaining;
4230: END IF;
4231:
4232: IF p_utilization_rec.bill_to_site_use_id = fnd_api.g_miss_num THEN
4233: x_complete_rec.bill_to_site_use_id := NULL;
4234: END IF;
4235: IF p_utilization_rec.bill_to_site_use_id IS NULL THEN
4236: x_complete_rec.bill_to_site_use_id := l_utilization_rec.bill_to_site_use_id;
4235: IF p_utilization_rec.bill_to_site_use_id IS NULL THEN
4236: x_complete_rec.bill_to_site_use_id := l_utilization_rec.bill_to_site_use_id;
4237: END IF;
4238:
4239: IF p_utilization_rec.ship_to_site_use_id = fnd_api.g_miss_num THEN
4240: x_complete_rec.ship_to_site_use_id := NULL;
4241: END IF;
4242: IF p_utilization_rec.ship_to_site_use_id IS NULL THEN
4243: x_complete_rec.ship_to_site_use_id := l_utilization_rec.ship_to_site_use_id;
4262: ---------------------------------------------------------------------
4263:
4264: PROCEDURE create_act_utilization(
4265: p_api_version IN NUMBER
4266: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
4267: ,p_commit IN VARCHAR2 := fnd_api.g_false
4268: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
4269: ,x_return_status OUT NOCOPY VARCHAR2
4270: ,x_msg_count OUT NOCOPY NUMBER
4263:
4264: PROCEDURE create_act_utilization(
4265: p_api_version IN NUMBER
4266: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
4267: ,p_commit IN VARCHAR2 := fnd_api.g_false
4268: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
4269: ,x_return_status OUT NOCOPY VARCHAR2
4270: ,x_msg_count OUT NOCOPY NUMBER
4271: ,x_msg_data OUT NOCOPY VARCHAR2
4264: PROCEDURE create_act_utilization(
4265: p_api_version IN NUMBER
4266: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
4267: ,p_commit IN VARCHAR2 := fnd_api.g_false
4268: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
4269: ,x_return_status OUT NOCOPY VARCHAR2
4270: ,x_msg_count OUT NOCOPY NUMBER
4271: ,x_msg_data OUT NOCOPY VARCHAR2
4272: ,p_act_budgets_rec IN ozf_actbudgets_pvt.act_budgets_rec_type
4295:
4296:
4297: PROCEDURE create_act_utilization(
4298: p_api_version IN NUMBER
4299: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
4300: ,p_commit IN VARCHAR2 := fnd_api.g_false
4301: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
4302: ,x_return_status OUT NOCOPY VARCHAR2
4303: ,x_msg_count OUT NOCOPY NUMBER
4296:
4297: PROCEDURE create_act_utilization(
4298: p_api_version IN NUMBER
4299: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
4300: ,p_commit IN VARCHAR2 := fnd_api.g_false
4301: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
4302: ,x_return_status OUT NOCOPY VARCHAR2
4303: ,x_msg_count OUT NOCOPY NUMBER
4304: ,x_msg_data OUT NOCOPY VARCHAR2
4297: PROCEDURE create_act_utilization(
4298: p_api_version IN NUMBER
4299: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
4300: ,p_commit IN VARCHAR2 := fnd_api.g_false
4301: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
4302: ,x_return_status OUT NOCOPY VARCHAR2
4303: ,x_msg_count OUT NOCOPY NUMBER
4304: ,x_msg_data OUT NOCOPY VARCHAR2
4305: ,p_act_budgets_rec IN ozf_actbudgets_pvt.act_budgets_rec_type
4369: SELECT NVL(transaction_currency_code,fund_request_curr_code) fund_request_curr_code,
4370: transaction_currency_code
4371: FROM ozf_offers
4372: WHERE qp_list_header_id = p_activity_id;
4373: l_exchange_rate_type VARCHAR2(30) := FND_API.G_MISS_CHAR;
4374: l_rate NUMBER;
4375: l_offer_currency c_offer_currency%ROWTYPE;
4376: l_conv_plan_amount NUMBER;
4377:
4383: ozf_utility_pvt.debug_message ( l_full_name
4384: || ': start');
4385: END IF;
4386:
4387: IF fnd_api.to_boolean (p_init_msg_list) THEN
4388: fnd_msg_pub.initialize;
4389: END IF;
4390:
4391: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
4387: IF fnd_api.to_boolean (p_init_msg_list) THEN
4388: fnd_msg_pub.initialize;
4389: END IF;
4390:
4391: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
4392: RAISE fnd_api.g_exc_unexpected_error;
4393: END IF;
4394:
4395: x_return_status := fnd_api.g_ret_sts_success;
4388: fnd_msg_pub.initialize;
4389: END IF;
4390:
4391: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
4392: RAISE fnd_api.g_exc_unexpected_error;
4393: END IF;
4394:
4395: x_return_status := fnd_api.g_ret_sts_success;
4396:
4391: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
4392: RAISE fnd_api.g_exc_unexpected_error;
4393: END IF;
4394:
4395: x_return_status := fnd_api.g_ret_sts_success;
4396:
4397: IF l_act_budgets_rec.transfer_type = 'UTILIZED' THEN
4398:
4399:
4415: CLOSE c_get_conversion_type;
4416:
4417: IF l_act_budgets_rec.request_amount IS NOT NULL THEN
4418: IF ((l_act_budgets_rec.parent_src_apprvd_amt IS NULL
4419: OR l_act_budgets_rec.parent_src_apprvd_amt = fnd_api.g_miss_num)
4420: AND l_act_budgets_rec.request_currency <> l_act_budgets_rec.parent_src_curr) THEN
4421: --nirprasa,ER 8399134
4422: -- convert the src_curr_request amount to the act_used_by currency request amount.
4423:
4431: ,x_to_amount=> l_act_budgets_rec.parent_src_apprvd_amt
4432: ,x_rate=> l_rate
4433: );
4434:
4435: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4436: RAISE fnd_api.g_exc_unexpected_error;
4437: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
4438: RAISE fnd_api.g_exc_error;
4439: END IF;
4432: ,x_rate=> l_rate
4433: );
4434:
4435: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4436: RAISE fnd_api.g_exc_unexpected_error;
4437: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
4438: RAISE fnd_api.g_exc_error;
4439: END IF;
4440: ELSE
4433: );
4434:
4435: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4436: RAISE fnd_api.g_exc_unexpected_error;
4437: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
4438: RAISE fnd_api.g_exc_error;
4439: END IF;
4440: ELSE
4441: l_act_budgets_rec.parent_src_apprvd_amt := l_act_budgets_rec.request_amount;
4434:
4435: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4436: RAISE fnd_api.g_exc_unexpected_error;
4437: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
4438: RAISE fnd_api.g_exc_error;
4439: END IF;
4440: ELSE
4441: l_act_budgets_rec.parent_src_apprvd_amt := l_act_budgets_rec.request_amount;
4442: END IF;
4442: END IF;
4443: ELSIF l_act_budgets_rec.parent_src_apprvd_amt IS NOT NULL THEN
4444: IF l_act_budgets_rec.request_currency <> l_act_budgets_rec.parent_src_curr
4445: AND (l_act_budgets_rec.request_amount IS NULL
4446: OR l_act_budgets_rec.request_amount = fnd_api.g_miss_num) THEN
4447: --nirprasa,ER 8399134
4448: ozf_utility_pvt.convert_currency (
4449: x_return_status=> l_return_status
4450: ,p_from_currency=> l_act_budgets_rec.parent_src_curr
4454: ,p_from_amount=> l_act_budgets_rec.parent_src_apprvd_amt
4455: ,x_to_amount=> l_act_budgets_rec.request_amount
4456: ,x_rate=> l_rate
4457: );
4458: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4459: RAISE fnd_api.g_exc_unexpected_error;
4460: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
4461: RAISE fnd_api.g_exc_error;
4462: END IF;
4455: ,x_to_amount=> l_act_budgets_rec.request_amount
4456: ,x_rate=> l_rate
4457: );
4458: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4459: RAISE fnd_api.g_exc_unexpected_error;
4460: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
4461: RAISE fnd_api.g_exc_error;
4462: END IF;
4463: ELSE
4456: ,x_rate=> l_rate
4457: );
4458: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4459: RAISE fnd_api.g_exc_unexpected_error;
4460: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
4461: RAISE fnd_api.g_exc_error;
4462: END IF;
4463: ELSE
4464: l_act_budgets_rec.request_amount := l_act_budgets_rec.parent_src_apprvd_amt;
4457: );
4458: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4459: RAISE fnd_api.g_exc_unexpected_error;
4460: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
4461: RAISE fnd_api.g_exc_error;
4462: END IF;
4463: ELSE
4464: l_act_budgets_rec.request_amount := l_act_budgets_rec.parent_src_apprvd_amt;
4465: END IF;
4482: -- The condition given below differentiates b/w the UI and Public API flow.
4483: -- l_act_budgets_rec.request_amount from UI for API its populated in src_curr_req_amt.
4484: -- So make the UI call simialr to Public API.
4485: IF l_act_budgets_rec.request_amount IS NOT NULL
4486: OR l_act_budgets_rec.request_amount <> FND_API.G_MISS_NUM THEN
4487: l_act_util_rec.plan_currency_code := l_act_budgets_rec.request_currency;
4488: l_act_budgets_rec.request_currency := l_act_budgets_rec.parent_src_curr;
4489: l_act_budgets_rec.src_curr_req_amt := l_act_budgets_rec.request_amount;
4490: l_act_budgets_rec.request_amount := null;
4547: l_act_budgets_rec.src_curr_req_amt := - l_act_budgets_rec.src_curr_req_amt;
4548: END IF;
4549:
4550: IF l_act_util_rec.plan_currency_code IS NULL
4551: OR l_act_util_rec.plan_currency_code = FND_API.G_MISS_CHAR THEN
4552: l_act_util_rec.plan_currency_code := l_act_budgets_rec.request_currency;
4553: END IF;
4554: l_act_util_rec.fund_request_currency_code := OZF_ACTBUDGETS_PVT.get_object_currency (
4555: l_act_budgets_rec.arc_act_budget_used_by
4571: x_utilized_amount => l_utilized_amount,
4572: x_utilization_id => x_utilization_id --kdass - added for Bug 8726683
4573: );
4574:
4575: IF l_return_status = fnd_api.g_ret_sts_error THEN
4576: RAISE fnd_api.g_exc_error;
4577: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4578: RAISE fnd_api.g_exc_unexpected_error;
4579: END IF;
4572: x_utilization_id => x_utilization_id --kdass - added for Bug 8726683
4573: );
4574:
4575: IF l_return_status = fnd_api.g_ret_sts_error THEN
4576: RAISE fnd_api.g_exc_error;
4577: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4578: RAISE fnd_api.g_exc_unexpected_error;
4579: END IF;
4580:
4573: );
4574:
4575: IF l_return_status = fnd_api.g_ret_sts_error THEN
4576: RAISE fnd_api.g_exc_error;
4577: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4578: RAISE fnd_api.g_exc_unexpected_error;
4579: END IF;
4580:
4581: -- Check for commit
4574:
4575: IF l_return_status = fnd_api.g_ret_sts_error THEN
4576: RAISE fnd_api.g_exc_error;
4577: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4578: RAISE fnd_api.g_exc_unexpected_error;
4579: END IF;
4580:
4581: -- Check for commit
4582: IF fnd_api.to_boolean (p_commit) THEN
4578: RAISE fnd_api.g_exc_unexpected_error;
4579: END IF;
4580:
4581: -- Check for commit
4582: IF fnd_api.to_boolean (p_commit) THEN
4583: COMMIT;
4584: END IF;
4585:
4586: fnd_msg_pub.count_and_get (
4583: COMMIT;
4584: END IF;
4585:
4586: fnd_msg_pub.count_and_get (
4587: p_encoded=> fnd_api.g_false
4588: ,p_count=> x_msg_count
4589: ,p_data=> x_msg_data
4590: );
4591: IF G_DEBUG THEN
4593: || ': end');
4594: END IF;
4595:
4596: EXCEPTION
4597: WHEN fnd_api.g_exc_error THEN
4598: ROLLBACK TO create_act_utilization;
4599: x_return_status := fnd_api.g_ret_sts_error;
4600: fnd_msg_pub.count_and_get (
4601: p_encoded=> fnd_api.g_false
4595:
4596: EXCEPTION
4597: WHEN fnd_api.g_exc_error THEN
4598: ROLLBACK TO create_act_utilization;
4599: x_return_status := fnd_api.g_ret_sts_error;
4600: fnd_msg_pub.count_and_get (
4601: p_encoded=> fnd_api.g_false
4602: ,p_count=> x_msg_count
4603: ,p_data=> x_msg_data
4597: WHEN fnd_api.g_exc_error THEN
4598: ROLLBACK TO create_act_utilization;
4599: x_return_status := fnd_api.g_ret_sts_error;
4600: fnd_msg_pub.count_and_get (
4601: p_encoded=> fnd_api.g_false
4602: ,p_count=> x_msg_count
4603: ,p_data=> x_msg_data
4604: );
4605: WHEN fnd_api.g_exc_unexpected_error THEN
4601: p_encoded=> fnd_api.g_false
4602: ,p_count=> x_msg_count
4603: ,p_data=> x_msg_data
4604: );
4605: WHEN fnd_api.g_exc_unexpected_error THEN
4606: ROLLBACK TO create_act_utilization;
4607: x_return_status := fnd_api.g_ret_sts_unexp_error;
4608: fnd_msg_pub.count_and_get (
4609: p_encoded=> fnd_api.g_false
4603: ,p_data=> x_msg_data
4604: );
4605: WHEN fnd_api.g_exc_unexpected_error THEN
4606: ROLLBACK TO create_act_utilization;
4607: x_return_status := fnd_api.g_ret_sts_unexp_error;
4608: fnd_msg_pub.count_and_get (
4609: p_encoded=> fnd_api.g_false
4610: ,p_count=> x_msg_count
4611: ,p_data=> x_msg_data
4605: WHEN fnd_api.g_exc_unexpected_error THEN
4606: ROLLBACK TO create_act_utilization;
4607: x_return_status := fnd_api.g_ret_sts_unexp_error;
4608: fnd_msg_pub.count_and_get (
4609: p_encoded=> fnd_api.g_false
4610: ,p_count=> x_msg_count
4611: ,p_data=> x_msg_data
4612: );
4613: WHEN OTHERS THEN
4611: ,p_data=> x_msg_data
4612: );
4613: WHEN OTHERS THEN
4614: ROLLBACK TO create_act_utilization;
4615: x_return_status := fnd_api.g_ret_sts_unexp_error;
4616:
4617: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
4618: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
4619: END IF;
4618: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
4619: END IF;
4620:
4621: fnd_msg_pub.count_and_get (
4622: p_encoded=> fnd_api.g_false
4623: ,p_count=> x_msg_count
4624: ,p_data=> x_msg_data
4625: );
4626: