[Home] [Help]
96: ,p_budget_used_by_type IN VARCHAR2
97: ,p_currency IN VARCHAR2
98: ,p_cost_tbl IN cost_tbl_type
99: ,p_api_version IN NUMBER
100: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
101: ,p_commit IN VARCHAR2 := fnd_api.g_false
102: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
103: ,x_return_status OUT NOCOPY VARCHAR2
104: ,x_msg_count OUT NOCOPY NUMBER
97: ,p_currency IN VARCHAR2
98: ,p_cost_tbl IN cost_tbl_type
99: ,p_api_version IN NUMBER
100: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
101: ,p_commit IN VARCHAR2 := fnd_api.g_false
102: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
103: ,x_return_status OUT NOCOPY VARCHAR2
104: ,x_msg_count OUT NOCOPY NUMBER
105: ,x_msg_data OUT NOCOPY VARCHAR2
98: ,p_cost_tbl IN cost_tbl_type
99: ,p_api_version IN NUMBER
100: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
101: ,p_commit IN VARCHAR2 := fnd_api.g_false
102: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
103: ,x_return_status OUT NOCOPY VARCHAR2
104: ,x_msg_count OUT NOCOPY NUMBER
105: ,x_msg_data OUT NOCOPY VARCHAR2
106: ) IS
174: AND transfer_type = 'UTILIZED';
175: */
176: -- l_parent_source_rec c_parent_source%ROWTYPE;
177: l_api_version NUMBER := 1.0;
178: l_return_status VARCHAR2 (1) := fnd_api.g_ret_sts_success;
179: l_api_name VARCHAR2 (60) := 'create_budget_amount_utilized';
180: l_act_budget_id NUMBER;
181: l_act_budgets_rec ozf_actbudgets_pvt.act_budgets_rec_type;
182: l_util_amount NUMBER := 0;
193: l_utilized_amount NUMBER;
194:
195: BEGIN
196: SAVEPOINT create_budget_amt_utilized;
197: x_return_status := fnd_api.g_ret_sts_success;
198: IF G_DEBUG THEN
199: ozf_utility_pvt.debug_message (': begin ');
200: END IF;
201:
198: IF G_DEBUG THEN
199: ozf_utility_pvt.debug_message (': begin ');
200: END IF;
201:
202: IF fnd_api.to_boolean (p_init_msg_list) THEN
203: fnd_msg_pub.initialize;
204: END IF;
205:
206: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
202: IF fnd_api.to_boolean (p_init_msg_list) THEN
203: fnd_msg_pub.initialize;
204: END IF;
205:
206: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
207: RAISE fnd_api.g_exc_unexpected_error;
208: END IF;
209:
210: <
203: fnd_msg_pub.initialize;
204: END IF;
205:
206: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
207: RAISE fnd_api.g_exc_unexpected_error;
208: END IF;
209:
210: <
211: FOR k IN NVL (p_cost_tbl.FIRST, 1) .. NVL (p_cost_tbl.LAST, 0)
235: ,p_from_amount=> p_cost_tbl (k).cost_amount
236: ,x_to_amount=> l_amount
237: );
238:
239: IF x_return_status <> fnd_api.g_ret_sts_success THEN
240: x_return_status := fnd_api.g_ret_sts_error;
241: RAISE fnd_api.g_exc_error;
242: END IF;
243: END IF;
236: ,x_to_amount=> l_amount
237: );
238:
239: IF x_return_status <> fnd_api.g_ret_sts_success THEN
240: x_return_status := fnd_api.g_ret_sts_error;
241: RAISE fnd_api.g_exc_error;
242: END IF;
243: END IF;
244:
237: );
238:
239: IF x_return_status <> fnd_api.g_ret_sts_success THEN
240: x_return_status := fnd_api.g_ret_sts_error;
241: RAISE fnd_api.g_exc_error;
242: END IF;
243: END IF;
244:
245: /*
255: ,p_from_amount=> l_amount
256: ,x_to_amount=> l_converted_amt
257: );
258:
259: IF x_return_status <> fnd_api.g_ret_sts_success THEN
260: x_return_status := fnd_api.g_ret_sts_error;
261: RAISE fnd_api.g_exc_error;
262: END IF;
263: END IF;
256: ,x_to_amount=> l_converted_amt
257: );
258:
259: IF x_return_status <> fnd_api.g_ret_sts_success THEN
260: x_return_status := fnd_api.g_ret_sts_error;
261: RAISE fnd_api.g_exc_error;
262: END IF;
263: END IF;
264:
257: );
258:
259: IF x_return_status <> fnd_api.g_ret_sts_success THEN
260: x_return_status := fnd_api.g_ret_sts_error;
261: RAISE fnd_api.g_exc_error;
262: END IF;
263: END IF;
264:
265: -- check against the converted amount but update the amount in parent currency
329: ,p_act_budgets_rec=> l_act_budgets_rec
330: ,x_act_budget_id=> l_act_budget_id
331: );
332:
333: IF l_return_status = fnd_api.g_ret_sts_error THEN
334: RAISE fnd_api.g_exc_error;
335: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
336: RAISE fnd_api.g_exc_unexpected_error;
337: END IF;
330: ,x_act_budget_id=> l_act_budget_id
331: );
332:
333: IF l_return_status = fnd_api.g_ret_sts_error THEN
334: RAISE fnd_api.g_exc_error;
335: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
336: RAISE fnd_api.g_exc_unexpected_error;
337: END IF;
338: ELSE
331: );
332:
333: IF l_return_status = fnd_api.g_ret_sts_error THEN
334: RAISE fnd_api.g_exc_error;
335: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
336: RAISE fnd_api.g_exc_unexpected_error;
337: END IF;
338: ELSE
339: l_act_budgets_rec.request_amount := l_old_approved_amount
332:
333: IF l_return_status = fnd_api.g_ret_sts_error THEN
334: RAISE fnd_api.g_exc_error;
335: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
336: RAISE fnd_api.g_exc_unexpected_error;
337: END IF;
338: ELSE
339: l_act_budgets_rec.request_amount := l_old_approved_amount
340: + l_util_amount;
358: x_act_budget_id => l_act_budget_id,
359: x_utilized_amount => l_utilized_amount
360: ) ;
361:
362: IF l_return_status = fnd_api.g_ret_sts_error THEN
363: RAISE fnd_api.g_exc_error;
364: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
365: RAISE fnd_api.g_exc_unexpected_error;
366: END IF;
359: x_utilized_amount => l_utilized_amount
360: ) ;
361:
362: IF l_return_status = fnd_api.g_ret_sts_error THEN
363: RAISE fnd_api.g_exc_error;
364: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
365: RAISE fnd_api.g_exc_unexpected_error;
366: END IF;
367: --Raise error message if committed amount is less then
360: ) ;
361:
362: IF l_return_status = fnd_api.g_ret_sts_error THEN
363: RAISE fnd_api.g_exc_error;
364: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
365: RAISE fnd_api.g_exc_unexpected_error;
366: END IF;
367: --Raise error message if committed amount is less then
368: IF l_util_amount > l_utilized_amount AND l_utilized_amount = 0 THEN
361:
362: IF l_return_status = fnd_api.g_ret_sts_error THEN
363: RAISE fnd_api.g_exc_error;
364: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
365: RAISE fnd_api.g_exc_unexpected_error;
366: END IF;
367: --Raise error message if committed amount is less then
368: IF l_util_amount > l_utilized_amount AND l_utilized_amount = 0 THEN
369: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
393:
394: -- CLOSE c_parent_source;
395: END LOOP cost_line_tbl_loop;
396: EXCEPTION
397: WHEN fnd_api.g_exc_error THEN
398: ROLLBACK TO create_budget_amt_utilized;
399: x_return_status := fnd_api.g_ret_sts_error;
400: fnd_msg_pub.count_and_get (
401: p_count=> x_msg_count
395: END LOOP cost_line_tbl_loop;
396: EXCEPTION
397: WHEN fnd_api.g_exc_error THEN
398: ROLLBACK TO create_budget_amt_utilized;
399: x_return_status := fnd_api.g_ret_sts_error;
400: fnd_msg_pub.count_and_get (
401: p_count=> x_msg_count
402: ,p_data=> x_msg_data
403: ,p_encoded=> fnd_api.g_false
399: x_return_status := fnd_api.g_ret_sts_error;
400: fnd_msg_pub.count_and_get (
401: p_count=> x_msg_count
402: ,p_data=> x_msg_data
403: ,p_encoded=> fnd_api.g_false
404: );
405: WHEN fnd_api.g_exc_unexpected_error THEN
406: ROLLBACK TO create_budget_amt_utilized;
407: x_return_status := fnd_api.g_ret_sts_unexp_error;
401: p_count=> x_msg_count
402: ,p_data=> x_msg_data
403: ,p_encoded=> fnd_api.g_false
404: );
405: WHEN fnd_api.g_exc_unexpected_error THEN
406: ROLLBACK TO create_budget_amt_utilized;
407: x_return_status := fnd_api.g_ret_sts_unexp_error;
408: fnd_msg_pub.count_and_get (
409: p_count=> x_msg_count
403: ,p_encoded=> fnd_api.g_false
404: );
405: WHEN fnd_api.g_exc_unexpected_error THEN
406: ROLLBACK TO create_budget_amt_utilized;
407: x_return_status := fnd_api.g_ret_sts_unexp_error;
408: fnd_msg_pub.count_and_get (
409: p_count=> x_msg_count
410: ,p_data=> x_msg_data
411: ,p_encoded=> fnd_api.g_false
407: x_return_status := fnd_api.g_ret_sts_unexp_error;
408: fnd_msg_pub.count_and_get (
409: p_count=> x_msg_count
410: ,p_data=> x_msg_data
411: ,p_encoded=> fnd_api.g_false
412: );
413: WHEN OTHERS THEN
414: ROLLBACK TO create_budget_amt_utilized;
415: x_return_status := fnd_api.g_ret_sts_unexp_error;
411: ,p_encoded=> fnd_api.g_false
412: );
413: WHEN OTHERS THEN
414: ROLLBACK TO create_budget_amt_utilized;
415: x_return_status := fnd_api.g_ret_sts_unexp_error;
416:
417: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
418: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
419: END IF;
420:
421: fnd_msg_pub.count_and_get (
422: p_count=> x_msg_count
423: ,p_data=> x_msg_data
424: ,p_encoded=> fnd_api.g_false
425: );
426: END create_budget_amt_utilized;
427:
428:
518:
519: l_rate NUMBER; --Added for bug 7030415
520:
521: BEGIN
522: x_return_status := fnd_api.g_ret_sts_success;
523: l_total_amount := p_amount; -- amount in object currency
524: l_counter := 1;
525: l_old_currency := p_req_curr; -- object currency.
526: l_amount_remaining := p_amount;
584:
585: CLOSE c_parent_source;
586:
587: EXCEPTION
588: WHEN fnd_api.g_exc_error THEN
589: x_return_status := fnd_api.g_ret_sts_error;
590: WHEN fnd_api.g_exc_unexpected_error THEN
591: x_return_status := fnd_api.g_ret_sts_unexp_error;
592: WHEN OTHERS THEN
585: CLOSE c_parent_source;
586:
587: EXCEPTION
588: WHEN fnd_api.g_exc_error THEN
589: x_return_status := fnd_api.g_ret_sts_error;
590: WHEN fnd_api.g_exc_unexpected_error THEN
591: x_return_status := fnd_api.g_ret_sts_unexp_error;
592: WHEN OTHERS THEN
593: x_return_status := fnd_api.g_ret_sts_unexp_error;
586:
587: EXCEPTION
588: WHEN fnd_api.g_exc_error THEN
589: x_return_status := fnd_api.g_ret_sts_error;
590: WHEN fnd_api.g_exc_unexpected_error THEN
591: x_return_status := fnd_api.g_ret_sts_unexp_error;
592: WHEN OTHERS THEN
593: x_return_status := fnd_api.g_ret_sts_unexp_error;
594:
587: EXCEPTION
588: WHEN fnd_api.g_exc_error THEN
589: x_return_status := fnd_api.g_ret_sts_error;
590: WHEN fnd_api.g_exc_unexpected_error THEN
591: x_return_status := fnd_api.g_ret_sts_unexp_error;
592: WHEN OTHERS THEN
593: x_return_status := fnd_api.g_ret_sts_unexp_error;
594:
595: END get_parent_src;
589: x_return_status := fnd_api.g_ret_sts_error;
590: WHEN fnd_api.g_exc_unexpected_error THEN
591: x_return_status := fnd_api.g_ret_sts_unexp_error;
592: WHEN OTHERS THEN
593: x_return_status := fnd_api.g_ret_sts_unexp_error;
594:
595: END get_parent_src;
596:
597:
777: || l_api_name;
778: l_util_rec ozf_fund_utilized_pvt.utilization_rec_type;
779: --l_util_id NUMBER;
780: l_util_amount NUMBER;
781: l_return_status VARCHAR2 (1) := fnd_api.g_ret_sts_success;
782: l_obj_number NUMBER;
783: l_parent_src_tbl parent_src_tbl_type;
784: l_fund_transfer_flag VARCHAR2 (1) := 'N';
785: l_offer_type VARCHAR2 (30);
864: FROM ozf_sys_parameters_all
865: WHERE org_id = p_org_id;
866:
867:
868: l_exchange_rate_type VARCHAR2(30) := FND_API.G_MISS_CHAR;
869: l_rate NUMBER;
870: l_fund_reconc_msg VARCHAR2(4000);
871: l_act_bud_cst_msg VARCHAR2(4000);
872:
917: END IF;
918:
919: --Added for bug 7030415
920: IF p_act_util_rec.exchange_rate_type IS NULL
921: OR p_act_util_rec.exchange_rate_type = fnd_api.g_miss_char THEN
922: OPEN c_get_conversion_type(p_act_util_rec.org_id);
923: FETCH c_get_conversion_type INTO l_exchange_rate_type;
924: CLOSE c_get_conversion_type;
925:
937: /* IF l_accrual_basis ='CUSTOMER' THEN
938: IF p_act_budget_rec.parent_source_id <> l_fund_id THEN
939: fnd_message.set_name ('OZF', 'OZF_FUND_OFFR_ADJ');
940: fnd_msg_pub.ADD;
941: RAISE fnd_api.g_exc_error;
942: END IF;
943: */
944: --Added for bug 7030415, In case of accrual budget.
945: --Need to use the org_id since the converted amount is used to populate
1003: -- end of accrual budget.
1004:
1005:
1006: ELSIF p_act_budget_rec.parent_source_id IS NULL
1007: OR p_act_budget_rec.parent_source_id = fnd_api.g_miss_num THEN
1008: --Added for bug 7030415 , For fixed budget
1009: --nirprasa,12.2 adjustment_net_accrual flow comes to this else condition.
1010: --While updating ozf_act_budgets 'UTILIZED' recs, p_act_util_rec.plan_curr_amount
1011: --holds the amount in plan currency. SO send this amount for conversion to budget's curr.
1016: ozf_utility_pvt.debug_message('p_act_util_rec.plan_curr_amount '|| p_act_util_rec.plan_curr_amount);
1017: ozf_utility_pvt.debug_message('p_act_util_rec.plan_currency_code '|| p_act_util_rec.plan_currency_code);
1018: END IF;
1019: IF p_act_util_rec.plan_curr_amount IS NULL
1020: OR p_act_util_rec.plan_curr_amount = FND_API.G_MISS_NUM THEN
1021: get_parent_src (
1022: p_budget_source_type=> p_act_budget_rec.budget_source_type
1023: ,p_budget_source_id=> p_act_budget_rec.budget_source_id
1024: ,p_amount=> p_act_budget_rec.approved_amount
1038: ,x_parent_src_tbl=> l_parent_src_tbl
1039: );
1040: END IF;
1041: /*
1042: IF l_return_status = fnd_api.g_ret_sts_error THEN
1043: RAISE fnd_api.g_exc_error;
1044: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1045: RAISE fnd_api.g_exc_unexpected_error;
1046: END IF;
1039: );
1040: END IF;
1041: /*
1042: IF l_return_status = fnd_api.g_ret_sts_error THEN
1043: RAISE fnd_api.g_exc_error;
1044: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1045: RAISE fnd_api.g_exc_unexpected_error;
1046: END IF;
1047: */ ELSE
1040: END IF;
1041: /*
1042: IF l_return_status = fnd_api.g_ret_sts_error THEN
1043: RAISE fnd_api.g_exc_error;
1044: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1045: RAISE fnd_api.g_exc_unexpected_error;
1046: END IF;
1047: */ ELSE
1048: l_parent_src_tbl (1).fund_id := p_act_budget_rec.parent_source_id;
1041: /*
1042: IF l_return_status = fnd_api.g_ret_sts_error THEN
1043: RAISE fnd_api.g_exc_error;
1044: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1045: RAISE fnd_api.g_exc_unexpected_error;
1046: END IF;
1047: */ ELSE
1048: l_parent_src_tbl (1).fund_id := p_act_budget_rec.parent_source_id;
1049: l_parent_src_tbl (1).fund_curr := p_act_budget_rec.parent_src_curr;
1061: ,p_exchange_rate_type=>l_exchange_rate_type
1062: ,x_return_status=> l_return_status
1063: ,x_parent_src_tbl=> l_parent_src_tbl
1064: );
1065: /* IF l_return_status = fnd_api.g_ret_sts_error THEN
1066: RAISE fnd_api.g_exc_error;
1067: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1068: RAISE fnd_api.g_exc_unexpected_error;
1069: END IF;
1062: ,x_return_status=> l_return_status
1063: ,x_parent_src_tbl=> l_parent_src_tbl
1064: );
1065: /* IF l_return_status = fnd_api.g_ret_sts_error THEN
1066: RAISE fnd_api.g_exc_error;
1067: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1068: RAISE fnd_api.g_exc_unexpected_error;
1069: END IF;
1070: */ END IF;
1063: ,x_parent_src_tbl=> l_parent_src_tbl
1064: );
1065: /* IF l_return_status = fnd_api.g_ret_sts_error THEN
1066: RAISE fnd_api.g_exc_error;
1067: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1068: RAISE fnd_api.g_exc_unexpected_error;
1069: END IF;
1070: */ END IF;
1071: END IF;
1064: );
1065: /* IF l_return_status = fnd_api.g_ret_sts_error THEN
1066: RAISE fnd_api.g_exc_error;
1067: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1068: RAISE fnd_api.g_exc_unexpected_error;
1069: END IF;
1070: */ END IF;
1071: END IF;
1072: END IF;
1080: l_util_rec := null; -- fixed bug 5124036.
1081: l_total_amount := l_total_amount + NVL (l_parent_src_tbl (i).plan_amount, 0);
1082: -- Added condition by feliu on 02/25/02
1083: IF p_act_util_rec.utilization_type is NULL OR
1084: p_act_util_rec.utilization_type = fnd_api.g_miss_char THEN
1085: l_util_rec.utilization_type := p_act_budget_rec.transfer_type;
1086: ELSE
1087: l_util_rec.utilization_type := p_act_util_rec.utilization_type;
1088: END IF;
1145: IF G_DEBUG THEN
1146: ozf_utility_pvt.debug_message ('ozfvadjb p_act_budget_rec.request_amount '||p_act_budget_rec.request_amount);
1147: END IF;
1148: IF p_act_util_rec.plan_curr_amount IS NULL
1149: OR p_act_util_rec.plan_curr_amount = FND_API.G_MISS_NUM THEN
1150: l_util_rec.plan_curr_amount := p_act_budget_rec.request_amount;
1151: l_util_rec.plan_curr_amount_remaining := p_act_budget_rec.request_amount;
1152: ELSE
1153: l_util_rec.plan_curr_amount := p_act_util_rec.plan_curr_amount;
1201: OPEN c_funds (l_util_rec.fund_id);
1202: FETCH c_funds INTO l_src_fund_type, l_src_fund_accrual_basis,l_plan_id;
1203: CLOSE c_funds;
1204: --for budget source from sales accrual budget.
1205: IF l_plan_id IS NOT NULL AND l_plan_id <> FND_API.g_miss_num THEN
1206: IF l_plan_id <> l_util_rec.component_id THEN
1207: l_src_fund_type := 'FIXED' ;
1208: END IF;
1209: END IF;
1361: OPEN c_check_budget_request(l_util_rec.plan_id, l_util_rec.fund_id);
1362: FETCH c_check_budget_request INTO l_check_request;
1363: IF c_check_budget_request%ROWCOUNT = 0 THEN
1364: ozf_utility_pvt.error_message('OZF_NO_FUND_REQUEST');
1365: RAISE fnd_api.g_exc_unexpected_error;
1366: END IF;
1367: CLOSE c_check_budget_request;
1368: END IF;
1369:
1397: -- and changed px_ozf_funds_new_rectype to px_ozf_funds_new_tbl.
1398:
1399: ozf_fund_utilized_pvt.create_utilization (
1400: p_api_version=> l_api_version
1401: ,p_init_msg_list=> fnd_api.g_false
1402: ,p_commit=> fnd_api.g_false
1403: ,p_validation_level=> fnd_api.g_valid_level_full
1404: ,x_return_status=> l_return_status
1405: ,x_msg_count=> x_msg_count
1398:
1399: ozf_fund_utilized_pvt.create_utilization (
1400: p_api_version=> l_api_version
1401: ,p_init_msg_list=> fnd_api.g_false
1402: ,p_commit=> fnd_api.g_false
1403: ,p_validation_level=> fnd_api.g_valid_level_full
1404: ,x_return_status=> l_return_status
1405: ,x_msg_count=> x_msg_count
1406: ,x_msg_data=> x_msg_data
1399: ozf_fund_utilized_pvt.create_utilization (
1400: p_api_version=> l_api_version
1401: ,p_init_msg_list=> fnd_api.g_false
1402: ,p_commit=> fnd_api.g_false
1403: ,p_validation_level=> fnd_api.g_valid_level_full
1404: ,x_return_status=> l_return_status
1405: ,x_msg_count=> x_msg_count
1406: ,x_msg_data=> x_msg_data
1407: ,p_utilization_rec=> l_util_rec
1412: ,px_ozf_funds_old_rectype => px_ozf_funds_old_rectype
1413: ,px_ozf_funds_new_tbl => px_ozf_funds_new_tbl -- For TPA Parallel Execution ER - 9614703
1414: );
1415:
1416: IF l_return_status = fnd_api.g_ret_sts_error THEN
1417: RAISE fnd_api.g_exc_error;
1418: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1419: RAISE fnd_api.g_exc_unexpected_error;
1420: END IF;
1413: ,px_ozf_funds_new_tbl => px_ozf_funds_new_tbl -- For TPA Parallel Execution ER - 9614703
1414: );
1415:
1416: IF l_return_status = fnd_api.g_ret_sts_error THEN
1417: RAISE fnd_api.g_exc_error;
1418: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1419: RAISE fnd_api.g_exc_unexpected_error;
1420: END IF;
1421: END LOOP;
1414: );
1415:
1416: IF l_return_status = fnd_api.g_ret_sts_error THEN
1417: RAISE fnd_api.g_exc_error;
1418: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1419: RAISE fnd_api.g_exc_unexpected_error;
1420: END IF;
1421: END LOOP;
1422:
1415:
1416: IF l_return_status = fnd_api.g_ret_sts_error THEN
1417: RAISE fnd_api.g_exc_error;
1418: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1419: RAISE fnd_api.g_exc_unexpected_error;
1420: END IF;
1421: END LOOP;
1422:
1423: x_utilized_amount := l_total_amount;
1426: ozf_utility_pvt.debug_message(l_full_name||' : '||'x_utilized_amount: '|| x_utilized_amount);
1427: END IF;
1428:
1429: fnd_msg_pub.count_and_get (
1430: p_encoded=> fnd_api.g_false
1431: ,p_count=> x_msg_count
1432: ,p_data=> x_msg_data
1433: );
1434: IF G_DEBUG THEN
1436: || ': end');
1437: END IF;
1438:
1439: EXCEPTION
1440: WHEN fnd_api.g_exc_error THEN
1441: ROLLBACK TO create_utilization;
1442: x_return_status := fnd_api.g_ret_sts_error;
1443: fnd_msg_pub.count_and_get (
1444: p_encoded=> fnd_api.g_false
1438:
1439: EXCEPTION
1440: WHEN fnd_api.g_exc_error THEN
1441: ROLLBACK TO create_utilization;
1442: x_return_status := fnd_api.g_ret_sts_error;
1443: fnd_msg_pub.count_and_get (
1444: p_encoded=> fnd_api.g_false
1445: ,p_count=> x_msg_count
1446: ,p_data=> x_msg_data
1440: WHEN fnd_api.g_exc_error THEN
1441: ROLLBACK TO create_utilization;
1442: x_return_status := fnd_api.g_ret_sts_error;
1443: fnd_msg_pub.count_and_get (
1444: p_encoded=> fnd_api.g_false
1445: ,p_count=> x_msg_count
1446: ,p_data=> x_msg_data
1447: );
1448: WHEN fnd_api.g_exc_unexpected_error THEN
1444: p_encoded=> fnd_api.g_false
1445: ,p_count=> x_msg_count
1446: ,p_data=> x_msg_data
1447: );
1448: WHEN fnd_api.g_exc_unexpected_error THEN
1449: ROLLBACK TO create_utilization;
1450: x_return_status := fnd_api.g_ret_sts_unexp_error;
1451: fnd_msg_pub.count_and_get (
1452: p_encoded=> fnd_api.g_false
1446: ,p_data=> x_msg_data
1447: );
1448: WHEN fnd_api.g_exc_unexpected_error THEN
1449: ROLLBACK TO create_utilization;
1450: x_return_status := fnd_api.g_ret_sts_unexp_error;
1451: fnd_msg_pub.count_and_get (
1452: p_encoded=> fnd_api.g_false
1453: ,p_count=> x_msg_count
1454: ,p_data=> x_msg_data
1448: WHEN fnd_api.g_exc_unexpected_error THEN
1449: ROLLBACK TO create_utilization;
1450: x_return_status := fnd_api.g_ret_sts_unexp_error;
1451: fnd_msg_pub.count_and_get (
1452: p_encoded=> fnd_api.g_false
1453: ,p_count=> x_msg_count
1454: ,p_data=> x_msg_data
1455: );
1456: WHEN OTHERS THEN
1454: ,p_data=> x_msg_data
1455: );
1456: WHEN OTHERS THEN
1457: ROLLBACK TO create_utilization;
1458: x_return_status := fnd_api.g_ret_sts_unexp_error;
1459:
1460: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1461: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1462: END IF;
1461: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1462: END IF;
1463:
1464: fnd_msg_pub.count_and_get (
1465: p_encoded=> fnd_api.g_false
1466: ,p_count=> x_msg_count
1467: ,p_data=> x_msg_data
1468: );
1469:
1489: FUNCTION convert_currency (
1490: p_from_currency IN VARCHAR2
1491: ,p_to_currency IN VARCHAR2
1492: ,p_from_amount IN NUMBER
1493: ,p_conv_type IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR --Added for bug 7030415
1494: )
1495: RETURN NUMBER IS
1496: l_conversion_type_profile CONSTANT VARCHAR2 (30) := 'OZF_CURR_CONVERSION_TYPE';
1497: l_user_rate CONSTANT NUMBER := 1; -- Currenty not used.
1503: l_returned_amount NUMBER := 1000;
1504: BEGIN
1505: -- Get the currency conversion type from profile option
1506: --Added for bug 7030415
1507: IF p_conv_type = FND_API.G_MISS_CHAR OR p_conv_type IS NULL THEN
1508: l_conversion_type := fnd_profile.VALUE (l_conversion_type_profile);
1509: ELSE
1510: l_conversion_type := p_conv_type;
1511: END IF;
1608: */
1609:
1610: l_approved_amount NUMBER;
1611: BEGIN
1612: x_return_status := fnd_api.g_ret_sts_success;
1613: OPEN cur_get_lumpsum_details;
1614: FETCH cur_get_lumpsum_details INTO l_lumpsum_offer;
1615: CLOSE cur_get_lumpsum_details;
1616: OPEN cur_get_lumpsum_line_details;
1623: --nirprasa, comment out for bug 8625525
1624: /* IF l_lumpsum_offer.lumpsum_amount > l_approved_amount
1625: OR l_lumpsum_offer.lumpsum_amount < l_approved_amount THEN
1626: ozf_utility_pvt.error_message (p_message_name => 'OZF_OFFER_AMNT_GT_APPR_AMNT');
1627: RAISE fnd_api.g_exc_error;
1628: END IF;*/
1629:
1630: IF l_lumpsum_offer.distribution_type = 'AMT' THEN
1631: IF l_total_distribution <> l_lumpsum_offer.lumpsum_amount THEN
1630: IF l_lumpsum_offer.distribution_type = 'AMT' THEN
1631: IF l_total_distribution <> l_lumpsum_offer.lumpsum_amount THEN
1632: fnd_message.set_name ('OZF', 'OZF_INVALID_DISTR_ACTIVE');
1633: fnd_msg_pub.ADD;
1634: RAISE fnd_api.g_exc_error;
1635: ELSIF l_total_distribution > l_lumpsum_offer.lumpsum_amount THEN
1636: fnd_message.set_name ('OZF', 'OZF_INVALID_DISTRIBUTION');
1637: fnd_msg_pub.ADD;
1638: RAISE fnd_api.g_exc_error;
1634: RAISE fnd_api.g_exc_error;
1635: ELSIF l_total_distribution > l_lumpsum_offer.lumpsum_amount THEN
1636: fnd_message.set_name ('OZF', 'OZF_INVALID_DISTRIBUTION');
1637: fnd_msg_pub.ADD;
1638: RAISE fnd_api.g_exc_error;
1639: END IF;
1640: ELSIF l_lumpsum_offer.distribution_type = '%' THEN
1641: IF l_total_distribution <> 100 THEN
1642: fnd_message.set_name ('OZF', 'OZF_INVALID_DISTR_ACTIVE');
1640: ELSIF l_lumpsum_offer.distribution_type = '%' THEN
1641: IF l_total_distribution <> 100 THEN
1642: fnd_message.set_name ('OZF', 'OZF_INVALID_DISTR_ACTIVE');
1643: fnd_msg_pub.ADD;
1644: RAISE fnd_api.g_exc_error;
1645: ELSIF l_total_distribution > 100 THEN
1646: fnd_message.set_name ('OZF', 'OZF_INVALID_DISTRIBUTION');
1647: fnd_msg_pub.ADD;
1648: RAISE fnd_api.g_exc_error;
1644: RAISE fnd_api.g_exc_error;
1645: ELSIF l_total_distribution > 100 THEN
1646: fnd_message.set_name ('OZF', 'OZF_INVALID_DISTRIBUTION');
1647: fnd_msg_pub.ADD;
1648: RAISE fnd_api.g_exc_error;
1649: END IF;
1650: END IF;
1651: EXCEPTION
1652: WHEN fnd_api.g_exc_error THEN
1648: RAISE fnd_api.g_exc_error;
1649: END IF;
1650: END IF;
1651: EXCEPTION
1652: WHEN fnd_api.g_exc_error THEN
1653: x_return_status := fnd_api.g_ret_sts_error;
1654: WHEN OTHERS THEN
1655: x_return_status := fnd_api.g_ret_sts_unexp_error;
1656:
1649: END IF;
1650: END IF;
1651: EXCEPTION
1652: WHEN fnd_api.g_exc_error THEN
1653: x_return_status := fnd_api.g_ret_sts_error;
1654: WHEN OTHERS THEN
1655: x_return_status := fnd_api.g_ret_sts_unexp_error;
1656:
1657: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1651: EXCEPTION
1652: WHEN fnd_api.g_exc_error THEN
1653: x_return_status := fnd_api.g_ret_sts_error;
1654: WHEN OTHERS THEN
1655: x_return_status := fnd_api.g_ret_sts_unexp_error;
1656:
1657: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1658: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1659: END IF;
1700: x_denominator => x_denominator,
1701: x_numerator => x_numerator,
1702: x_rate => x_rate );
1703:
1704: x_return_status := fnd_api.g_ret_sts_success;
1705:
1706: EXCEPTION
1707: WHEN OTHERS THEN
1708: IF SQLCODE=1 THEN
1708: IF SQLCODE=1 THEN
1709: x_denominator := 1.0;
1710: x_numerator := 0.0;
1711: x_rate := 1.0;
1712: x_return_status := FND_API.g_ret_sts_success;
1713: END IF;
1714: END get_exchange_rate;
1715:
1716:
1815: l_act_util_rec ozf_actbudgets_pvt.act_util_rec_type := p_act_util_rec;
1816: l_api_version NUMBER := 1;
1817: l_budget_request_rec ozf_actbudgets_pvt.act_budgets_rec_type := NULL;
1818: l_plan_currency VARCHAR2(150);
1819: l_exchange_rate_type VARCHAR2(30) := FND_API.G_MISS_CHAR ;
1820: l_rate NUMBER;
1821: --l_utilized_amount NUMBER;
1822: -- For Bug#8867381
1823: l_activity_budget_id NUMBER;
1835: PARENT_SRC_APPRVD_AMT, SRC_CURR_REQUEST_AMT FROM OZF_ACT_BUDGETS
1836: WHERE ACTIVITY_BUDGET_ID = p_act_budget_id;
1837:
1838: BEGIN
1839: x_return_status := fnd_api.g_ret_sts_success;
1840: IF G_DEBUG THEN
1841: ozf_utility_pvt.debug_message(l_full_name||' : '||'begin' || ' p_act_budgets_rec.transfer_type: ' || p_act_budgets_rec.transfer_type);
1842: END IF;
1843:
1883: -- and changed px_ozf_funds_new_rectype to px_ozf_funds_new_tbl.
1884:
1885: ozf_actbudgets_pvt.create_Act_Budgets (
1886: p_api_version => 1.0,
1887: p_init_msg_list => Fnd_Api.G_FALSE,
1888: p_commit => Fnd_Api.G_FALSE,
1889: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
1890: x_return_status => x_return_status,
1891: x_msg_count => x_msg_count,
1884:
1885: ozf_actbudgets_pvt.create_Act_Budgets (
1886: p_api_version => 1.0,
1887: p_init_msg_list => Fnd_Api.G_FALSE,
1888: p_commit => Fnd_Api.G_FALSE,
1889: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
1890: x_return_status => x_return_status,
1891: x_msg_count => x_msg_count,
1892: x_msg_data => x_msg_data,
1885: ozf_actbudgets_pvt.create_Act_Budgets (
1886: p_api_version => 1.0,
1887: p_init_msg_list => Fnd_Api.G_FALSE,
1888: p_commit => Fnd_Api.G_FALSE,
1889: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
1890: x_return_status => x_return_status,
1891: x_msg_count => x_msg_count,
1892: x_msg_data => x_msg_data,
1893: p_act_Budgets_rec => l_budget_request_rec,
1891: x_msg_count => x_msg_count,
1892: x_msg_data => x_msg_data,
1893: p_act_Budgets_rec => l_budget_request_rec,
1894: p_act_util_rec => ozf_actbudgets_pvt.G_MISS_ACT_UTIL_REC,
1895: p_approval_flag => fnd_api.g_true, -- auto approved
1896: x_act_budget_id => l_act_budget_id,
1897: x_utilized_amount => l_utilized_amount,
1898: p_resale_batch_id => l_act_util_rec.reference_id,
1899: p_batch_type => p_batch_type,
1903: px_ozf_funds_new_tbl => px_ozf_funds_new_tbl, -- For TPA Parallel Execution ERBug#9614703
1904: x_utilization_id => x_utilization_id); --nirprasa - added for Bug 9383565
1905:
1906:
1907: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1908: RAISE fnd_api.g_exc_unexpected_error;
1909: END IF;
1910:
1911: END IF; -- price list
1904: x_utilization_id => x_utilization_id); --nirprasa - added for Bug 9383565
1905:
1906:
1907: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1908: RAISE fnd_api.g_exc_unexpected_error;
1909: END IF;
1910:
1911: END IF; -- price list
1912: -- yzhao: 10/21/2003 ENDS for third party accrual price list, create an approved budget request when accrual happens
1955: in this flow as well. Hence used the overloaded procedure.
1956: */
1957: ozf_actbudgets_pvt.create_act_budgets (
1958: p_api_version=> l_api_version,
1959: p_init_msg_list => Fnd_Api.G_FALSE,
1960: p_commit => Fnd_Api.G_FALSE,
1961: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
1962: x_return_status=> x_return_status,
1963: x_msg_count=> x_msg_count,
1956: */
1957: ozf_actbudgets_pvt.create_act_budgets (
1958: p_api_version=> l_api_version,
1959: p_init_msg_list => Fnd_Api.G_FALSE,
1960: p_commit => Fnd_Api.G_FALSE,
1961: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
1962: x_return_status=> x_return_status,
1963: x_msg_count=> x_msg_count,
1964: x_msg_data=> x_msg_data,
1957: ozf_actbudgets_pvt.create_act_budgets (
1958: p_api_version=> l_api_version,
1959: p_init_msg_list => Fnd_Api.G_FALSE,
1960: p_commit => Fnd_Api.G_FALSE,
1961: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
1962: x_return_status=> x_return_status,
1963: x_msg_count=> x_msg_count,
1964: x_msg_data=> x_msg_data,
1965: p_act_budgets_rec=> l_act_budgets_rec,
1963: x_msg_count=> x_msg_count,
1964: x_msg_data=> x_msg_data,
1965: p_act_budgets_rec=> l_act_budgets_rec,
1966: p_act_util_rec => l_act_util_rec,
1967: p_approval_flag => fnd_api.g_true, -- auto approved
1968: x_act_budget_id=> l_act_budget_id,
1969: x_utilized_amount => x_utilized_amount, -- yzhao: 06/21/2004 added for chargeback
1970: p_resale_batch_id => l_act_util_rec.reference_id,
1971: p_batch_type => p_batch_type,
1984: ozf_utility_pvt.write_conc_log(l_full_name||' : '||'create act budget retrun status'||x_return_status);
1985: END IF;
1986: --dbms_output.put_line(l_full_name||' : '||'create act budget retrun status'||l_return_status);
1987:
1988: IF x_return_status = fnd_api.g_ret_sts_error THEN
1989: RAISE fnd_api.g_exc_error;
1990: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
1991: RAISE fnd_api.g_exc_unexpected_error;
1992: END IF;
1985: END IF;
1986: --dbms_output.put_line(l_full_name||' : '||'create act budget retrun status'||l_return_status);
1987:
1988: IF x_return_status = fnd_api.g_ret_sts_error THEN
1989: RAISE fnd_api.g_exc_error;
1990: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
1991: RAISE fnd_api.g_exc_unexpected_error;
1992: END IF;
1993: ELSE
1986: --dbms_output.put_line(l_full_name||' : '||'create act budget retrun status'||l_return_status);
1987:
1988: IF x_return_status = fnd_api.g_ret_sts_error THEN
1989: RAISE fnd_api.g_exc_error;
1990: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
1991: RAISE fnd_api.g_exc_unexpected_error;
1992: END IF;
1993: ELSE
1994: --dbms_output.put_line(l_full_name||' : '||'l_Activity_budget_id in update'||l_Activity_id);
1987:
1988: IF x_return_status = fnd_api.g_ret_sts_error THEN
1989: RAISE fnd_api.g_exc_error;
1990: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
1991: RAISE fnd_api.g_exc_unexpected_error;
1992: END IF;
1993: ELSE
1994: --dbms_output.put_line(l_full_name||' : '||'l_Activity_budget_id in update'||l_Activity_id);
1995: --dbms_output.put_line(l_full_name||' : '||'l_old_approved_amount'||l_old_approved_amount);
2094: x_msg_count=> x_msg_count,
2095: x_msg_data=> x_msg_data,
2096: p_old_act_budgets_rec => l_old_act_budgets_rec,
2097: p_act_budgets_rec=> l_act_budgets_rec,
2098: p_parent_process_flag=> fnd_api.g_false,
2099: p_parent_process_key=> fnd_api.g_miss_char,
2100: p_parent_context=> fnd_api.g_miss_char,
2101: p_parent_approval_flag=> fnd_api.g_false,
2102: p_continue_flow=> fnd_api.g_false,
2095: x_msg_data=> x_msg_data,
2096: p_old_act_budgets_rec => l_old_act_budgets_rec,
2097: p_act_budgets_rec=> l_act_budgets_rec,
2098: p_parent_process_flag=> fnd_api.g_false,
2099: p_parent_process_key=> fnd_api.g_miss_char,
2100: p_parent_context=> fnd_api.g_miss_char,
2101: p_parent_approval_flag=> fnd_api.g_false,
2102: p_continue_flow=> fnd_api.g_false,
2103: p_child_approval_flag => 'N',
2096: p_old_act_budgets_rec => l_old_act_budgets_rec,
2097: p_act_budgets_rec=> l_act_budgets_rec,
2098: p_parent_process_flag=> fnd_api.g_false,
2099: p_parent_process_key=> fnd_api.g_miss_char,
2100: p_parent_context=> fnd_api.g_miss_char,
2101: p_parent_approval_flag=> fnd_api.g_false,
2102: p_continue_flow=> fnd_api.g_false,
2103: p_child_approval_flag => 'N',
2104: p_requestor_owner_flag => 'N',
2097: p_act_budgets_rec=> l_act_budgets_rec,
2098: p_parent_process_flag=> fnd_api.g_false,
2099: p_parent_process_key=> fnd_api.g_miss_char,
2100: p_parent_context=> fnd_api.g_miss_char,
2101: p_parent_approval_flag=> fnd_api.g_false,
2102: p_continue_flow=> fnd_api.g_false,
2103: p_child_approval_flag => 'N',
2104: p_requestor_owner_flag => 'N',
2105: p_act_util_rec => l_act_util_rec,
2098: p_parent_process_flag=> fnd_api.g_false,
2099: p_parent_process_key=> fnd_api.g_miss_char,
2100: p_parent_context=> fnd_api.g_miss_char,
2101: p_parent_approval_flag=> fnd_api.g_false,
2102: p_continue_flow=> fnd_api.g_false,
2103: p_child_approval_flag => 'N',
2104: p_requestor_owner_flag => 'N',
2105: p_act_util_rec => l_act_util_rec,
2106: x_utilized_amount => x_utilized_amount,
2122:
2123: fnd_msg_pub.count_and_get (
2124: p_count=> x_msg_count,
2125: p_data=> x_msg_data,
2126: p_encoded=> fnd_api.g_false
2127: );
2128:
2129: IF x_return_status = fnd_api.g_ret_sts_error THEN
2130: RAISE fnd_api.g_exc_error;
2125: p_data=> x_msg_data,
2126: p_encoded=> fnd_api.g_false
2127: );
2128:
2129: IF x_return_status = fnd_api.g_ret_sts_error THEN
2130: RAISE fnd_api.g_exc_error;
2131: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
2132: RAISE fnd_api.g_exc_unexpected_error;
2133: END IF;
2126: p_encoded=> fnd_api.g_false
2127: );
2128:
2129: IF x_return_status = fnd_api.g_ret_sts_error THEN
2130: RAISE fnd_api.g_exc_error;
2131: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
2132: RAISE fnd_api.g_exc_unexpected_error;
2133: END IF;
2134:
2127: );
2128:
2129: IF x_return_status = fnd_api.g_ret_sts_error THEN
2130: RAISE fnd_api.g_exc_error;
2131: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
2132: RAISE fnd_api.g_exc_unexpected_error;
2133: END IF;
2134:
2135: EXCEPTION
2128:
2129: IF x_return_status = fnd_api.g_ret_sts_error THEN
2130: RAISE fnd_api.g_exc_error;
2131: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
2132: RAISE fnd_api.g_exc_unexpected_error;
2133: END IF;
2134:
2135: EXCEPTION
2136: WHEN fnd_api.g_exc_error THEN
2132: RAISE fnd_api.g_exc_unexpected_error;
2133: END IF;
2134:
2135: EXCEPTION
2136: WHEN fnd_api.g_exc_error THEN
2137: x_return_status := fnd_api.g_ret_sts_error;
2138: fnd_msg_pub.count_and_get (
2139: p_count=> x_msg_count,
2140: p_data=> x_msg_data,
2133: END IF;
2134:
2135: EXCEPTION
2136: WHEN fnd_api.g_exc_error THEN
2137: x_return_status := fnd_api.g_ret_sts_error;
2138: fnd_msg_pub.count_and_get (
2139: p_count=> x_msg_count,
2140: p_data=> x_msg_data,
2141: p_encoded=> fnd_api.g_false
2137: x_return_status := fnd_api.g_ret_sts_error;
2138: fnd_msg_pub.count_and_get (
2139: p_count=> x_msg_count,
2140: p_data=> x_msg_data,
2141: p_encoded=> fnd_api.g_false
2142: );
2143: WHEN fnd_api.g_exc_unexpected_error THEN
2144: x_return_status := fnd_api.g_ret_sts_unexp_error;
2145: fnd_msg_pub.count_and_get (
2139: p_count=> x_msg_count,
2140: p_data=> x_msg_data,
2141: p_encoded=> fnd_api.g_false
2142: );
2143: WHEN fnd_api.g_exc_unexpected_error THEN
2144: x_return_status := fnd_api.g_ret_sts_unexp_error;
2145: fnd_msg_pub.count_and_get (
2146: p_count=> x_msg_count,
2147: p_data=> x_msg_data,
2140: p_data=> x_msg_data,
2141: p_encoded=> fnd_api.g_false
2142: );
2143: WHEN fnd_api.g_exc_unexpected_error THEN
2144: x_return_status := fnd_api.g_ret_sts_unexp_error;
2145: fnd_msg_pub.count_and_get (
2146: p_count=> x_msg_count,
2147: p_data=> x_msg_data,
2148: p_encoded=> fnd_api.g_false
2144: x_return_status := fnd_api.g_ret_sts_unexp_error;
2145: fnd_msg_pub.count_and_get (
2146: p_count=> x_msg_count,
2147: p_data=> x_msg_data,
2148: p_encoded=> fnd_api.g_false
2149: );
2150: WHEN OTHERS THEN
2151: x_return_status := fnd_api.g_ret_sts_unexp_error;
2152:
2147: p_data=> x_msg_data,
2148: p_encoded=> fnd_api.g_false
2149: );
2150: WHEN OTHERS THEN
2151: x_return_status := fnd_api.g_ret_sts_unexp_error;
2152:
2153: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2154: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2155: END IF;
2156:
2157: fnd_msg_pub.count_and_get (
2158: p_count=> x_msg_count,
2159: p_data=> x_msg_data,
2160: p_encoded=> fnd_api.g_false
2161: );
2162: END process_act_budgets;
2163:
2164:
2292:
2293: -- PARAMETERS
2294: -- p_offer_id
2295: -- ,p_api_version IN NUMBER
2296: -- ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2297: -- ,p_commit IN VARCHAR2 := fnd_api.g_false
2298: -- ,x_msg_count OUT NUMBER
2299: -- ,x_msg_data OUT VARCHAR2
2300: -- ,x_return_status OUT VARCHAR2)
2293: -- PARAMETERS
2294: -- p_offer_id
2295: -- ,p_api_version IN NUMBER
2296: -- ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2297: -- ,p_commit IN VARCHAR2 := fnd_api.g_false
2298: -- ,x_msg_count OUT NUMBER
2299: -- ,x_msg_data OUT VARCHAR2
2300: -- ,x_return_status OUT VARCHAR2)
2301:
2306:
2307: PROCEDURE post_scan_data_amount (
2308: p_offer_id IN NUMBER
2309: ,p_api_version IN NUMBER
2310: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2311: ,p_commit IN VARCHAR2 := fnd_api.g_false
2312: ,p_check_date IN VARCHAR2 := fnd_api.g_true -- do date validation
2313: ,x_msg_count OUT NOCOPY NUMBER
2314: ,x_msg_data OUT NOCOPY VARCHAR2
2307: PROCEDURE post_scan_data_amount (
2308: p_offer_id IN NUMBER
2309: ,p_api_version IN NUMBER
2310: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2311: ,p_commit IN VARCHAR2 := fnd_api.g_false
2312: ,p_check_date IN VARCHAR2 := fnd_api.g_true -- do date validation
2313: ,x_msg_count OUT NOCOPY NUMBER
2314: ,x_msg_data OUT NOCOPY VARCHAR2
2315: ,x_return_status OUT NOCOPY VARCHAR2
2308: p_offer_id IN NUMBER
2309: ,p_api_version IN NUMBER
2310: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2311: ,p_commit IN VARCHAR2 := fnd_api.g_false
2312: ,p_check_date IN VARCHAR2 := fnd_api.g_true -- do date validation
2313: ,x_msg_count OUT NOCOPY NUMBER
2314: ,x_msg_data OUT NOCOPY VARCHAR2
2315: ,x_return_status OUT NOCOPY VARCHAR2
2316: ) IS
2314: ,x_msg_data OUT NOCOPY VARCHAR2
2315: ,x_return_status OUT NOCOPY VARCHAR2
2316: ) IS
2317: l_api_version NUMBER := 1.0;
2318: l_return_status VARCHAR2 (1) := fnd_api.g_ret_sts_success;
2319: l_msg_data VARCHAR2 (2000);
2320: l_msg_count NUMBER;
2321: l_api_name VARCHAR2 (60) := 'post_scan_data_amount';
2322: l_full_name CONSTANT VARCHAR2 (90) := g_pkg_name
2454: SELECT exchange_rate_type
2455: FROM ozf_sys_parameters_all
2456: WHERE org_id = p_org_id;
2457:
2458: l_exchange_rate_type VARCHAR2(30) := FND_API.G_MISS_CHAR;
2459: l_rate NUMBER;
2460: l_offer_org_id NUMBER;
2461:
2462: BEGIN
2463: SAVEPOINT post_scan_data_amount;
2464: IF G_DEBUG THEN
2465: ozf_utility_pvt.debug_message ( l_full_name || ': start');
2466: END IF;
2467: x_return_status := fnd_api.g_ret_sts_success;
2468:
2469: IF fnd_api.to_boolean (p_init_msg_list) THEN
2470: fnd_msg_pub.initialize;
2471: END IF;
2465: ozf_utility_pvt.debug_message ( l_full_name || ': start');
2466: END IF;
2467: x_return_status := fnd_api.g_ret_sts_success;
2468:
2469: IF fnd_api.to_boolean (p_init_msg_list) THEN
2470: fnd_msg_pub.initialize;
2471: END IF;
2472:
2473: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2469: IF fnd_api.to_boolean (p_init_msg_list) THEN
2470: fnd_msg_pub.initialize;
2471: END IF;
2472:
2473: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2474: RAISE fnd_api.g_exc_unexpected_error;
2475: END IF;
2476:
2477: -- get total committed and utilized amount.
2470: fnd_msg_pub.initialize;
2471: END IF;
2472:
2473: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2474: RAISE fnd_api.g_exc_unexpected_error;
2475: END IF;
2476:
2477: -- get total committed and utilized amount.
2478: OPEN c_committed_budgets(p_offer_id);
2497: END IF;
2498:
2499:
2500: -- check wether date validation is reqd
2501: IF p_check_date = fnd_api.g_true THEN
2502: -- if the offer start date is today or has passed then only adjust
2503: IF TRUNC(l_offer_start_date) <= TRUNC(SYSDATE) THEN
2504: l_perform_util := 'T';
2505: ELSE
2562: ,x_to_amount=> l_converted_amt
2563: ,x_rate=> l_rate
2564: );
2565:
2566: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2567: x_return_status := fnd_api.g_ret_sts_error;
2568: RAISE fnd_api.g_exc_error;
2569: END IF;
2570: END IF;
2563: ,x_rate=> l_rate
2564: );
2565:
2566: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2567: x_return_status := fnd_api.g_ret_sts_error;
2568: RAISE fnd_api.g_exc_error;
2569: END IF;
2570: END IF;
2571:
2564: );
2565:
2566: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2567: x_return_status := fnd_api.g_ret_sts_error;
2568: RAISE fnd_api.g_exc_error;
2569: END IF;
2570: END IF;
2571:
2572: l_act_budgets_rec.request_amount := l_amount; -- in object currency.
2635: p_act_util_rec =>l_act_util_rec,
2636: x_act_budget_id => l_act_budget_id
2637: ) ;
2638:
2639: IF l_return_status = fnd_api.g_ret_sts_error THEN
2640: RAISE fnd_api.g_exc_error;
2641: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2642: RAISE fnd_api.g_exc_unexpected_error;
2643: END IF;
2636: x_act_budget_id => l_act_budget_id
2637: ) ;
2638:
2639: IF l_return_status = fnd_api.g_ret_sts_error THEN
2640: RAISE fnd_api.g_exc_error;
2641: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2642: RAISE fnd_api.g_exc_unexpected_error;
2643: END IF;
2644: END IF; -- for amount
2637: ) ;
2638:
2639: IF l_return_status = fnd_api.g_ret_sts_error THEN
2640: RAISE fnd_api.g_exc_error;
2641: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2642: RAISE fnd_api.g_exc_unexpected_error;
2643: END IF;
2644: END IF; -- for amount
2645:
2638:
2639: IF l_return_status = fnd_api.g_ret_sts_error THEN
2640: RAISE fnd_api.g_exc_error;
2641: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2642: RAISE fnd_api.g_exc_unexpected_error;
2643: END IF;
2644: END IF; -- for amount
2645:
2646: IF G_DEBUG THEN
2656: CLOSE c_off_products;
2657: END IF;
2658:
2659:
2660: IF fnd_api.to_boolean (p_commit)
2661: AND l_return_status = fnd_api.g_ret_sts_success THEN
2662: COMMIT;
2663: END IF;
2664:
2657: END IF;
2658:
2659:
2660: IF fnd_api.to_boolean (p_commit)
2661: AND l_return_status = fnd_api.g_ret_sts_success THEN
2662: COMMIT;
2663: END IF;
2664:
2665:
2663: END IF;
2664:
2665:
2666: fnd_msg_pub.count_and_get (
2667: p_encoded=> fnd_api.g_false
2668: ,p_count=> x_msg_count
2669: ,p_data=> x_msg_data
2670: );
2671: IF G_DEBUG THEN
2672: ozf_utility_pvt.debug_message ( l_full_name || ': end');
2673: END IF;
2674:
2675: EXCEPTION
2676: WHEN fnd_api.g_exc_error THEN
2677: ROLLBACK TO post_scan_data_amount;
2678: x_return_status := fnd_api.g_ret_sts_error;
2679: fnd_msg_pub.count_and_get (
2680: p_count=> x_msg_count
2674:
2675: EXCEPTION
2676: WHEN fnd_api.g_exc_error THEN
2677: ROLLBACK TO post_scan_data_amount;
2678: x_return_status := fnd_api.g_ret_sts_error;
2679: fnd_msg_pub.count_and_get (
2680: p_count=> x_msg_count
2681: ,p_data=> x_msg_data
2682: ,p_encoded=> fnd_api.g_false
2678: x_return_status := fnd_api.g_ret_sts_error;
2679: fnd_msg_pub.count_and_get (
2680: p_count=> x_msg_count
2681: ,p_data=> x_msg_data
2682: ,p_encoded=> fnd_api.g_false
2683: );
2684: WHEN fnd_api.g_exc_unexpected_error THEN
2685: ROLLBACK TO post_scan_data_amount;
2686: x_return_status := fnd_api.g_ret_sts_unexp_error;
2680: p_count=> x_msg_count
2681: ,p_data=> x_msg_data
2682: ,p_encoded=> fnd_api.g_false
2683: );
2684: WHEN fnd_api.g_exc_unexpected_error THEN
2685: ROLLBACK TO post_scan_data_amount;
2686: x_return_status := fnd_api.g_ret_sts_unexp_error;
2687: fnd_msg_pub.count_and_get (
2688: p_count=> x_msg_count
2682: ,p_encoded=> fnd_api.g_false
2683: );
2684: WHEN fnd_api.g_exc_unexpected_error THEN
2685: ROLLBACK TO post_scan_data_amount;
2686: x_return_status := fnd_api.g_ret_sts_unexp_error;
2687: fnd_msg_pub.count_and_get (
2688: p_count=> x_msg_count
2689: ,p_data=> x_msg_data
2690: ,p_encoded=> fnd_api.g_false
2686: x_return_status := fnd_api.g_ret_sts_unexp_error;
2687: fnd_msg_pub.count_and_get (
2688: p_count=> x_msg_count
2689: ,p_data=> x_msg_data
2690: ,p_encoded=> fnd_api.g_false
2691: );
2692: WHEN OTHERS THEN
2693: ROLLBACK TO post_scan_data_amount;
2694: x_return_status := fnd_api.g_ret_sts_unexp_error;
2690: ,p_encoded=> fnd_api.g_false
2691: );
2692: WHEN OTHERS THEN
2693: ROLLBACK TO post_scan_data_amount;
2694: x_return_status := fnd_api.g_ret_sts_unexp_error;
2695:
2696: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2697: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2698: END IF;
2699:
2700: fnd_msg_pub.count_and_get (
2701: p_count=> x_msg_count
2702: ,p_data=> x_msg_data
2703: ,p_encoded=> fnd_api.g_false
2704: );
2705: END Post_scan_data_amount;
2706:
2707:
2715:
2716: -- PARAMETERS
2717: -- p_offer_id
2718: -- ,p_api_version IN NUMBER
2719: -- ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2720: -- ,p_commit IN VARCHAR2 := fnd_api.g_false
2721: -- ,x_msg_count OUT NUMBER
2722: -- ,x_msg_data OUT VARCHAR2
2723: -- ,x_return_status OUT VARCHAR2)
2716: -- PARAMETERS
2717: -- p_offer_id
2718: -- ,p_api_version IN NUMBER
2719: -- ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2720: -- ,p_commit IN VARCHAR2 := fnd_api.g_false
2721: -- ,x_msg_count OUT NUMBER
2722: -- ,x_msg_data OUT VARCHAR2
2723: -- ,x_return_status OUT VARCHAR2)
2724:
2730:
2731: PROCEDURE post_lumpsum_amount (
2732: p_offer_id IN NUMBER
2733: ,p_api_version IN NUMBER
2734: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2735: ,p_commit IN VARCHAR2 := fnd_api.g_false
2736: ,p_check_date IN VARCHAR2 := fnd_api.g_true -- do date validation
2737: ,x_msg_count OUT NOCOPY NUMBER
2738: ,x_msg_data OUT NOCOPY VARCHAR2
2731: PROCEDURE post_lumpsum_amount (
2732: p_offer_id IN NUMBER
2733: ,p_api_version IN NUMBER
2734: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2735: ,p_commit IN VARCHAR2 := fnd_api.g_false
2736: ,p_check_date IN VARCHAR2 := fnd_api.g_true -- do date validation
2737: ,x_msg_count OUT NOCOPY NUMBER
2738: ,x_msg_data OUT NOCOPY VARCHAR2
2739: ,x_return_status OUT NOCOPY VARCHAR2
2732: p_offer_id IN NUMBER
2733: ,p_api_version IN NUMBER
2734: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2735: ,p_commit IN VARCHAR2 := fnd_api.g_false
2736: ,p_check_date IN VARCHAR2 := fnd_api.g_true -- do date validation
2737: ,x_msg_count OUT NOCOPY NUMBER
2738: ,x_msg_data OUT NOCOPY VARCHAR2
2739: ,x_return_status OUT NOCOPY VARCHAR2
2740: ) IS
2737: ,x_msg_count OUT NOCOPY NUMBER
2738: ,x_msg_data OUT NOCOPY VARCHAR2
2739: ,x_return_status OUT NOCOPY VARCHAR2
2740: ) IS
2741: l_return_status VARCHAR2 (10) := fnd_api.g_ret_sts_success;
2742: l_api_name CONSTANT VARCHAR2 (30) := 'Posting_lumpsum_amount';
2743: l_api_version CONSTANT NUMBER := 1.0;
2744: l_full_name CONSTANT VARCHAR2 (90) := g_pkg_name
2745: || '.'
2900: SELECT exchange_rate_type
2901: FROM ozf_sys_parameters_all
2902: WHERE org_id = p_org_id;
2903:
2904: l_exchange_rate_type VARCHAR2(30) := FND_API.G_MISS_CHAR;
2905: l_rate NUMBER;
2906:
2907: l_count NUMBER;
2908: l_limit_row NUMBER := 100;
2930:
2931: IF G_DEBUG THEN
2932: ozf_utility_pvt.debug_message ( l_full_name || ': start');
2933: END IF;
2934: x_return_status := fnd_api.g_ret_sts_success;
2935:
2936: IF fnd_api.to_boolean (p_init_msg_list) THEN
2937: fnd_msg_pub.initialize;
2938: END IF;
2932: ozf_utility_pvt.debug_message ( l_full_name || ': start');
2933: END IF;
2934: x_return_status := fnd_api.g_ret_sts_success;
2935:
2936: IF fnd_api.to_boolean (p_init_msg_list) THEN
2937: fnd_msg_pub.initialize;
2938: END IF;
2939:
2940: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2936: IF fnd_api.to_boolean (p_init_msg_list) THEN
2937: fnd_msg_pub.initialize;
2938: END IF;
2939:
2940: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2941: RAISE fnd_api.g_exc_unexpected_error;
2942: END IF;
2943:
2944: -- get total committed amount.
2937: fnd_msg_pub.initialize;
2938: END IF;
2939:
2940: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2941: RAISE fnd_api.g_exc_unexpected_error;
2942: END IF;
2943:
2944: -- get total committed amount.
2945: OPEN c_committed_budgets(p_offer_id);
2961: FETCH l_scatter_posting INTO l_spread_flag;
2962: CLOSE l_scatter_posting;
2963:
2964: -- check wether date validation is reqd
2965: IF p_check_date = fnd_api.g_true THEN
2966: -- if the offer start date is today or has passed then only adjust
2967: IF TRUNC(l_offer_start_date) <= TRUNC(SYSDATE) THEN
2968: l_perform_util := 'T';
2969: ELSE
2981: --IF l_spread_flag = 'N' THEN 08/11/03 commented by feliu to fix bug 3091395
2982: validate_lumpsum_offer (p_qp_list_header_id => p_offer_id, x_return_status => x_return_status);
2983: --END IF;
2984:
2985: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2986: x_return_status := fnd_api.g_ret_sts_error;
2987: RAISE fnd_api.g_exc_error;
2988: END IF;
2989:
2982: validate_lumpsum_offer (p_qp_list_header_id => p_offer_id, x_return_status => x_return_status);
2983: --END IF;
2984:
2985: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2986: x_return_status := fnd_api.g_ret_sts_error;
2987: RAISE fnd_api.g_exc_error;
2988: END IF;
2989:
2990: IF G_DEBUG THEN
2983: --END IF;
2984:
2985: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2986: x_return_status := fnd_api.g_ret_sts_error;
2987: RAISE fnd_api.g_exc_error;
2988: END IF;
2989:
2990: IF G_DEBUG THEN
2991: ozf_utility_pvt.debug_message ( 'l_perform_util ' || l_perform_util);
3169: ,x_to_amount=> l_converted_amt
3170: ,x_rate=> l_rate
3171: );
3172:
3173: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3174: x_return_status := fnd_api.g_ret_sts_error;
3175: RAISE fnd_api.g_exc_error;
3176: END IF;
3177: END IF;
3170: ,x_rate=> l_rate
3171: );
3172:
3173: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3174: x_return_status := fnd_api.g_ret_sts_error;
3175: RAISE fnd_api.g_exc_error;
3176: END IF;
3177: END IF;
3178:
3171: );
3172:
3173: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3174: x_return_status := fnd_api.g_ret_sts_error;
3175: RAISE fnd_api.g_exc_error;
3176: END IF;
3177: END IF;
3178:
3179: IF G_DEBUG THEN
3229: ozf_utility_pvt.debug_message ( l_full_name
3230: || ': end create act budgets ');
3231: END IF;
3232:
3233: IF l_return_status = fnd_api.g_ret_sts_error THEN
3234: RAISE fnd_api.g_exc_error;
3235: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3236: RAISE fnd_api.g_exc_unexpected_error;
3237: END IF;
3230: || ': end create act budgets ');
3231: END IF;
3232:
3233: IF l_return_status = fnd_api.g_ret_sts_error THEN
3234: RAISE fnd_api.g_exc_error;
3235: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3236: RAISE fnd_api.g_exc_unexpected_error;
3237: END IF;
3238: END IF; -- for util amount
3231: END IF;
3232:
3233: IF l_return_status = fnd_api.g_ret_sts_error THEN
3234: RAISE fnd_api.g_exc_error;
3235: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3236: RAISE fnd_api.g_exc_unexpected_error;
3237: END IF;
3238: END IF; -- for util amount
3239:
3232:
3233: IF l_return_status = fnd_api.g_ret_sts_error THEN
3234: RAISE fnd_api.g_exc_error;
3235: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3236: RAISE fnd_api.g_exc_unexpected_error;
3237: END IF;
3238: END IF; -- for util amount
3239:
3240: l_act_util_rec := NULL;
3286:
3287: END IF;
3288:
3289: fnd_msg_pub.count_and_get (
3290: p_encoded=> fnd_api.g_false
3291: ,p_count=> x_msg_count
3292: ,p_data=> x_msg_data
3293: );
3294: IF G_DEBUG THEN
3294: IF G_DEBUG THEN
3295: ozf_utility_pvt.debug_message ( l_full_name || ': end');
3296: END IF;
3297: EXCEPTION
3298: WHEN fnd_api.g_exc_error THEN
3299: ROLLBACK TO Posting_lumpsum_amount;
3300: x_return_status := fnd_api.g_ret_sts_error;
3301: fnd_msg_pub.count_and_get (
3302: p_count=> x_msg_count
3296: END IF;
3297: EXCEPTION
3298: WHEN fnd_api.g_exc_error THEN
3299: ROLLBACK TO Posting_lumpsum_amount;
3300: x_return_status := fnd_api.g_ret_sts_error;
3301: fnd_msg_pub.count_and_get (
3302: p_count=> x_msg_count
3303: ,p_data=> x_msg_data
3304: ,p_encoded=> fnd_api.g_false
3300: x_return_status := fnd_api.g_ret_sts_error;
3301: fnd_msg_pub.count_and_get (
3302: p_count=> x_msg_count
3303: ,p_data=> x_msg_data
3304: ,p_encoded=> fnd_api.g_false
3305: );
3306: WHEN fnd_api.g_exc_unexpected_error THEN
3307: ROLLBACK TO Posting_lumpsum_amount;
3308: x_return_status := fnd_api.g_ret_sts_unexp_error;
3302: p_count=> x_msg_count
3303: ,p_data=> x_msg_data
3304: ,p_encoded=> fnd_api.g_false
3305: );
3306: WHEN fnd_api.g_exc_unexpected_error THEN
3307: ROLLBACK TO Posting_lumpsum_amount;
3308: x_return_status := fnd_api.g_ret_sts_unexp_error;
3309: fnd_msg_pub.count_and_get (
3310: p_count=> x_msg_count
3304: ,p_encoded=> fnd_api.g_false
3305: );
3306: WHEN fnd_api.g_exc_unexpected_error THEN
3307: ROLLBACK TO Posting_lumpsum_amount;
3308: x_return_status := fnd_api.g_ret_sts_unexp_error;
3309: fnd_msg_pub.count_and_get (
3310: p_count=> x_msg_count
3311: ,p_data=> x_msg_data
3312: ,p_encoded=> fnd_api.g_false
3308: x_return_status := fnd_api.g_ret_sts_unexp_error;
3309: fnd_msg_pub.count_and_get (
3310: p_count=> x_msg_count
3311: ,p_data=> x_msg_data
3312: ,p_encoded=> fnd_api.g_false
3313: );
3314: WHEN OTHERS THEN
3315: ROLLBACK TO Posting_lumpsum_amount;
3316: x_return_status := fnd_api.g_ret_sts_unexp_error;
3312: ,p_encoded=> fnd_api.g_false
3313: );
3314: WHEN OTHERS THEN
3315: ROLLBACK TO Posting_lumpsum_amount;
3316: x_return_status := fnd_api.g_ret_sts_unexp_error;
3317:
3318: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3319: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3320: END IF;
3321:
3322: fnd_msg_pub.count_and_get (
3323: p_count=> x_msg_count
3324: ,p_data=> x_msg_data
3325: ,p_encoded=> fnd_api.g_false
3326: );
3327: END post_lumpsum_amount;
3328: ---------------------------------------------------------------------
3329: -- PROCEDURE
3337: -- PARAMETERS
3338: -- p_offer_id
3339: -- p_offer_type
3340: -- ,p_api_version IN NUMBER
3341: -- ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
3342: -- ,p_commit IN VARCHAR2 := fnd_api.g_false
3343: -- ,x_msg_count OUT NUMBER
3344: -- ,x_msg_data OUT VARCHAR2
3345: -- ,x_return_status OUT VARCHAR2)
3338: -- p_offer_id
3339: -- p_offer_type
3340: -- ,p_api_version IN NUMBER
3341: -- ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
3342: -- ,p_commit IN VARCHAR2 := fnd_api.g_false
3343: -- ,x_msg_count OUT NUMBER
3344: -- ,x_msg_data OUT VARCHAR2
3345: -- ,x_return_status OUT VARCHAR2)
3346:
3351: PROCEDURE post_utilized_budget (
3352: p_offer_id IN NUMBER
3353: ,p_offer_type IN VARCHAR2
3354: ,p_api_version IN NUMBER
3355: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
3356: ,p_commit IN VARCHAR2 := fnd_api.g_false
3357: ,p_check_date IN VARCHAR2 := fnd_api.g_true -- do date validation
3358: ,x_msg_count OUT NOCOPY NUMBER
3359: ,x_msg_data OUT NOCOPY VARCHAR2
3352: p_offer_id IN NUMBER
3353: ,p_offer_type IN VARCHAR2
3354: ,p_api_version IN NUMBER
3355: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
3356: ,p_commit IN VARCHAR2 := fnd_api.g_false
3357: ,p_check_date IN VARCHAR2 := fnd_api.g_true -- do date validation
3358: ,x_msg_count OUT NOCOPY NUMBER
3359: ,x_msg_data OUT NOCOPY VARCHAR2
3360: ,x_return_status OUT NOCOPY VARCHAR2
3353: ,p_offer_type IN VARCHAR2
3354: ,p_api_version IN NUMBER
3355: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
3356: ,p_commit IN VARCHAR2 := fnd_api.g_false
3357: ,p_check_date IN VARCHAR2 := fnd_api.g_true -- do date validation
3358: ,x_msg_count OUT NOCOPY NUMBER
3359: ,x_msg_data OUT NOCOPY VARCHAR2
3360: ,x_return_status OUT NOCOPY VARCHAR2
3361: ) IS
3359: ,x_msg_data OUT NOCOPY VARCHAR2
3360: ,x_return_status OUT NOCOPY VARCHAR2
3361: ) IS
3362: l_api_version NUMBER := 1.0;
3363: l_return_status VARCHAR2 (1) := fnd_api.g_ret_sts_success;
3364: l_msg_data VARCHAR2 (2000);
3365: l_msg_count NUMBER;
3366: l_api_name VARCHAR2 (60) := 'post_utilized_budget';
3367: l_full_name CONSTANT VARCHAR2 (90) := g_pkg_name
3378: SAVEPOINT post_utilized_budget;
3379: IF G_DEBUG THEN
3380: ozf_utility_pvt.debug_message (': begin ' || l_full_name);
3381: END IF;
3382: x_return_status := fnd_api.g_ret_sts_success;
3383:
3384: IF fnd_api.to_boolean (p_init_msg_list) THEN
3385: fnd_msg_pub.initialize;
3386: END IF;
3380: ozf_utility_pvt.debug_message (': begin ' || l_full_name);
3381: END IF;
3382: x_return_status := fnd_api.g_ret_sts_success;
3383:
3384: IF fnd_api.to_boolean (p_init_msg_list) THEN
3385: fnd_msg_pub.initialize;
3386: END IF;
3387:
3388: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
3384: IF fnd_api.to_boolean (p_init_msg_list) THEN
3385: fnd_msg_pub.initialize;
3386: END IF;
3387:
3388: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
3389: RAISE fnd_api.g_exc_unexpected_error;
3390: END IF;
3391:
3392: IF p_offer_type = 'SCAN_DATA' THEN
3385: fnd_msg_pub.initialize;
3386: END IF;
3387:
3388: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
3389: RAISE fnd_api.g_exc_unexpected_error;
3390: END IF;
3391:
3392: IF p_offer_type = 'SCAN_DATA' THEN
3393: Post_scan_data_amount
3393: Post_scan_data_amount
3394: (
3395: p_offer_id => p_offer_id
3396: ,p_api_version => l_api_version
3397: ,p_init_msg_list => fnd_api.g_false
3398: ,p_commit => fnd_api.g_false
3399: ,p_check_date => p_check_date
3400: ,x_msg_count => l_msg_count
3401: ,x_msg_data => l_msg_data
3394: (
3395: p_offer_id => p_offer_id
3396: ,p_api_version => l_api_version
3397: ,p_init_msg_list => fnd_api.g_false
3398: ,p_commit => fnd_api.g_false
3399: ,p_check_date => p_check_date
3400: ,x_msg_count => l_msg_count
3401: ,x_msg_data => l_msg_data
3402: ,x_return_status => l_return_status
3410: post_sf_lumpsum_amount
3411: (
3412: p_offer_id => p_offer_id
3413: ,p_api_version => l_api_version
3414: ,p_init_msg_list => fnd_api.g_false
3415: ,p_commit => fnd_api.g_false
3416: ,p_validation_level => fnd_api.g_valid_level_full
3417: ,x_msg_count => l_msg_count
3418: ,x_msg_data => l_msg_data
3411: (
3412: p_offer_id => p_offer_id
3413: ,p_api_version => l_api_version
3414: ,p_init_msg_list => fnd_api.g_false
3415: ,p_commit => fnd_api.g_false
3416: ,p_validation_level => fnd_api.g_valid_level_full
3417: ,x_msg_count => l_msg_count
3418: ,x_msg_data => l_msg_data
3419: ,x_return_status => l_return_status
3412: p_offer_id => p_offer_id
3413: ,p_api_version => l_api_version
3414: ,p_init_msg_list => fnd_api.g_false
3415: ,p_commit => fnd_api.g_false
3416: ,p_validation_level => fnd_api.g_valid_level_full
3417: ,x_msg_count => l_msg_count
3418: ,x_msg_data => l_msg_data
3419: ,x_return_status => l_return_status
3420: );
3422: post_lumpsum_amount
3423: (
3424: p_offer_id => p_offer_id
3425: ,p_api_version => l_api_version
3426: ,p_init_msg_list => fnd_api.g_false
3427: ,p_commit => fnd_api.g_false
3428: ,p_check_date => p_check_date
3429: ,x_msg_count => l_msg_count
3430: ,x_msg_data => l_msg_data
3423: (
3424: p_offer_id => p_offer_id
3425: ,p_api_version => l_api_version
3426: ,p_init_msg_list => fnd_api.g_false
3427: ,p_commit => fnd_api.g_false
3428: ,p_check_date => p_check_date
3429: ,x_msg_count => l_msg_count
3430: ,x_msg_data => l_msg_data
3431: ,x_return_status => l_return_status
3433: END IF;
3434:
3435: END IF;
3436:
3437: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3438: x_return_status := fnd_api.g_ret_sts_error;
3439: RAISE fnd_api.g_exc_error;
3440: END IF;
3441:
3434:
3435: END IF;
3436:
3437: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3438: x_return_status := fnd_api.g_ret_sts_error;
3439: RAISE fnd_api.g_exc_error;
3440: END IF;
3441:
3442: fnd_msg_pub.count_and_get (
3435: END IF;
3436:
3437: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3438: x_return_status := fnd_api.g_ret_sts_error;
3439: RAISE fnd_api.g_exc_error;
3440: END IF;
3441:
3442: fnd_msg_pub.count_and_get (
3443: p_encoded=> fnd_api.g_false
3439: RAISE fnd_api.g_exc_error;
3440: END IF;
3441:
3442: fnd_msg_pub.count_and_get (
3443: p_encoded=> fnd_api.g_false
3444: ,p_count=> x_msg_count
3445: ,p_data=> x_msg_data
3446: );
3447:
3448: IF G_DEBUG THEN
3449: ozf_utility_pvt.debug_message ( l_full_name || ': end');
3450: END IF;
3451: EXCEPTION
3452: WHEN fnd_api.g_exc_error THEN
3453: ROLLBACK TO post_utilized_budget;
3454: x_return_status := fnd_api.g_ret_sts_error;
3455: fnd_msg_pub.count_and_get (
3456: p_count=> x_msg_count
3450: END IF;
3451: EXCEPTION
3452: WHEN fnd_api.g_exc_error THEN
3453: ROLLBACK TO post_utilized_budget;
3454: x_return_status := fnd_api.g_ret_sts_error;
3455: fnd_msg_pub.count_and_get (
3456: p_count=> x_msg_count
3457: ,p_data=> x_msg_data
3458: ,p_encoded=> fnd_api.g_false
3454: x_return_status := fnd_api.g_ret_sts_error;
3455: fnd_msg_pub.count_and_get (
3456: p_count=> x_msg_count
3457: ,p_data=> x_msg_data
3458: ,p_encoded=> fnd_api.g_false
3459: );
3460: WHEN fnd_api.g_exc_unexpected_error THEN
3461: ROLLBACK TO post_utilized_budget;
3462: x_return_status := fnd_api.g_ret_sts_unexp_error;
3456: p_count=> x_msg_count
3457: ,p_data=> x_msg_data
3458: ,p_encoded=> fnd_api.g_false
3459: );
3460: WHEN fnd_api.g_exc_unexpected_error THEN
3461: ROLLBACK TO post_utilized_budget;
3462: x_return_status := fnd_api.g_ret_sts_unexp_error;
3463: fnd_msg_pub.count_and_get (
3464: p_count=> x_msg_count
3458: ,p_encoded=> fnd_api.g_false
3459: );
3460: WHEN fnd_api.g_exc_unexpected_error THEN
3461: ROLLBACK TO post_utilized_budget;
3462: x_return_status := fnd_api.g_ret_sts_unexp_error;
3463: fnd_msg_pub.count_and_get (
3464: p_count=> x_msg_count
3465: ,p_data=> x_msg_data
3466: ,p_encoded=> fnd_api.g_false
3462: x_return_status := fnd_api.g_ret_sts_unexp_error;
3463: fnd_msg_pub.count_and_get (
3464: p_count=> x_msg_count
3465: ,p_data=> x_msg_data
3466: ,p_encoded=> fnd_api.g_false
3467: );
3468: WHEN OTHERS THEN
3469: ROLLBACK TO post_utilized_budget;
3470: x_return_status := fnd_api.g_ret_sts_unexp_error;
3466: ,p_encoded=> fnd_api.g_false
3467: );
3468: WHEN OTHERS THEN
3469: ROLLBACK TO post_utilized_budget;
3470: x_return_status := fnd_api.g_ret_sts_unexp_error;
3471:
3472: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3473: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3474: END IF;
3475:
3476: fnd_msg_pub.count_and_get (
3477: p_count=> x_msg_count
3478: ,p_data=> x_msg_data
3479: ,p_encoded=> fnd_api.g_false
3480: );
3481:
3482: END post_utilized_budget;
3483:
3498: -- ,p_bill_to_cust_acct_id IN NUMBER
3499: -- ,p_bill_to_site_use_id IN NUMBER
3500: -- ,p_ship_to_site_use_id IN NUMBER
3501: -- ,p_api_version IN NUMBER
3502: -- ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
3503: -- ,p_commit IN VARCHAR2 := fnd_api.g_false
3504: -- ,x_msg_count OUT NUMBER
3505: -- ,x_msg_data OUT VARCHAR2
3506: -- ,x_return_status OUT VARCHAR2)
3499: -- ,p_bill_to_site_use_id IN NUMBER
3500: -- ,p_ship_to_site_use_id IN NUMBER
3501: -- ,p_api_version IN NUMBER
3502: -- ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
3503: -- ,p_commit IN VARCHAR2 := fnd_api.g_false
3504: -- ,x_msg_count OUT NUMBER
3505: -- ,x_msg_data OUT VARCHAR2
3506: -- ,x_return_status OUT VARCHAR2)
3507:
3521: ,p_bill_to_cust_acct_id IN NUMBER
3522: ,p_bill_to_site_use_id IN NUMBER
3523: ,p_ship_to_site_use_id IN NUMBER
3524: ,p_api_version IN NUMBER
3525: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
3526: ,p_commit IN VARCHAR2 := fnd_api.g_false
3527: ,x_msg_count OUT NOCOPY NUMBER
3528: ,x_msg_data OUT NOCOPY VARCHAR2
3529: ,x_return_status OUT NOCOPY VARCHAR2
3522: ,p_bill_to_site_use_id IN NUMBER
3523: ,p_ship_to_site_use_id IN NUMBER
3524: ,p_api_version IN NUMBER
3525: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
3526: ,p_commit IN VARCHAR2 := fnd_api.g_false
3527: ,x_msg_count OUT NOCOPY NUMBER
3528: ,x_msg_data OUT NOCOPY VARCHAR2
3529: ,x_return_status OUT NOCOPY VARCHAR2
3530: ) IS
3528: ,x_msg_data OUT NOCOPY VARCHAR2
3529: ,x_return_status OUT NOCOPY VARCHAR2
3530: ) IS
3531:
3532: l_return_status VARCHAR2 (10) := fnd_api.g_ret_sts_success;
3533: l_api_name CONSTANT VARCHAR2 (30) := 'adjust_utilized_budget';
3534: l_api_version CONSTANT NUMBER := 1.0;
3535: l_msg_data VARCHAR2 (2000);
3536: l_msg_count NUMBER;
3645: SAVEPOINT adjust_utilized_budget;
3646: IF G_DEBUG THEN
3647: ozf_utility_pvt.debug_message ( l_full_name || ': start');
3648: END IF;
3649: x_return_status := fnd_api.g_ret_sts_success;
3650:
3651: IF fnd_api.to_boolean (p_init_msg_list) THEN
3652: fnd_msg_pub.initialize;
3653: END IF;
3647: ozf_utility_pvt.debug_message ( l_full_name || ': start');
3648: END IF;
3649: x_return_status := fnd_api.g_ret_sts_success;
3650:
3651: IF fnd_api.to_boolean (p_init_msg_list) THEN
3652: fnd_msg_pub.initialize;
3653: END IF;
3654:
3655: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
3651: IF fnd_api.to_boolean (p_init_msg_list) THEN
3652: fnd_msg_pub.initialize;
3653: END IF;
3654:
3655: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
3656: RAISE fnd_api.g_exc_unexpected_error;
3657: END IF;
3658:
3659: -- get product information.
3652: fnd_msg_pub.initialize;
3653: END IF;
3654:
3655: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
3656: RAISE fnd_api.g_exc_unexpected_error;
3657: END IF;
3658:
3659: -- get product information.
3660: OPEN c_off_products(p_product_activity_id);
3722: ,p_from_amount=> l_amount - l_committed_remaining
3723: ,x_to_amount=> l_converted_amt
3724: );
3725:
3726: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3727: x_return_status := fnd_api.g_ret_sts_error;
3728: RAISE fnd_api.g_exc_error;
3729: END IF;
3730: END IF; -- end for currency test.
3723: ,x_to_amount=> l_converted_amt
3724: );
3725:
3726: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3727: x_return_status := fnd_api.g_ret_sts_error;
3728: RAISE fnd_api.g_exc_error;
3729: END IF;
3730: END IF; -- end for currency test.
3731:
3724: );
3725:
3726: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3727: x_return_status := fnd_api.g_ret_sts_error;
3728: RAISE fnd_api.g_exc_error;
3729: END IF;
3730: END IF; -- end for currency test.
3731:
3732: --if budget has enough available, then select this budget as source.
3773: ,x_msg_data=> l_msg_data
3774: ,p_act_budgets_rec=> l_act_budgets_rec
3775: ,p_act_util_rec=> l_act_util_rec
3776: ,x_act_budget_id=> l_act_budget_id
3777: ,p_approval_flag=> fnd_api.g_true
3778: );
3779:
3780: IF NOT (l_return_status = fnd_api.g_ret_sts_success) THEN
3781: ROLLBACK TO recal_comm_fund_conc;
3776: ,x_act_budget_id=> l_act_budget_id
3777: ,p_approval_flag=> fnd_api.g_true
3778: );
3779:
3780: IF NOT (l_return_status = fnd_api.g_ret_sts_success) THEN
3781: ROLLBACK TO recal_comm_fund_conc;
3782: fnd_msg_pub.count_and_get (
3783: p_count=> x_msg_count
3784: ,p_data=> x_msg_data
3781: ROLLBACK TO recal_comm_fund_conc;
3782: fnd_msg_pub.count_and_get (
3783: p_count=> x_msg_count
3784: ,p_data=> x_msg_data
3785: ,p_encoded=> fnd_api.g_false
3786: );
3787: END IF;
3788:
3789: END IF ; -- end of committed remaining is less than required.
3808: ,p_from_amount=> l_amount
3809: ,x_to_amount=> l_converted_amt
3810: );
3811:
3812: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3813: x_return_status := fnd_api.g_ret_sts_error;
3814: RAISE fnd_api.g_exc_error;
3815: END IF;
3816: END IF;
3809: ,x_to_amount=> l_converted_amt
3810: );
3811:
3812: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3813: x_return_status := fnd_api.g_ret_sts_error;
3814: RAISE fnd_api.g_exc_error;
3815: END IF;
3816: END IF;
3817:
3810: );
3811:
3812: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3813: x_return_status := fnd_api.g_ret_sts_error;
3814: RAISE fnd_api.g_exc_error;
3815: END IF;
3816: END IF;
3817:
3818: --check against the converted amount but update the amount in parent currency
3887: p_act_util_rec =>l_act_util_rec,
3888: x_act_budget_id => l_act_budget_id
3889: ) ;
3890:
3891: IF l_return_status = fnd_api.g_ret_sts_error THEN
3892: RAISE fnd_api.g_exc_error;
3893: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3894: RAISE fnd_api.g_exc_unexpected_error;
3895: END IF;
3888: x_act_budget_id => l_act_budget_id
3889: ) ;
3890:
3891: IF l_return_status = fnd_api.g_ret_sts_error THEN
3892: RAISE fnd_api.g_exc_error;
3893: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3894: RAISE fnd_api.g_exc_unexpected_error;
3895: END IF;
3896: EXIT WHEN l_amount_remaining = 0;
3889: ) ;
3890:
3891: IF l_return_status = fnd_api.g_ret_sts_error THEN
3892: RAISE fnd_api.g_exc_error;
3893: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3894: RAISE fnd_api.g_exc_unexpected_error;
3895: END IF;
3896: EXIT WHEN l_amount_remaining = 0;
3897: END IF;
3890:
3891: IF l_return_status = fnd_api.g_ret_sts_error THEN
3892: RAISE fnd_api.g_exc_error;
3893: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3894: RAISE fnd_api.g_exc_unexpected_error;
3895: END IF;
3896: EXIT WHEN l_amount_remaining = 0;
3897: END IF;
3898: END LOOP;
3897: END IF;
3898: END LOOP;
3899:
3900: fnd_msg_pub.count_and_get (
3901: p_encoded=> fnd_api.g_false
3902: ,p_count=> x_msg_count
3903: ,p_data=> x_msg_data
3904: );
3905: IF G_DEBUG THEN
3906: ozf_utility_pvt.debug_message ( l_full_name
3907: || ': end');
3908: END IF;
3909: EXCEPTION
3910: WHEN fnd_api.g_exc_error THEN
3911: ROLLBACK TO adjust_utilized_budget;
3912: x_return_status := fnd_api.g_ret_sts_error;
3913: fnd_msg_pub.count_and_get (
3914: p_count=> x_msg_count
3908: END IF;
3909: EXCEPTION
3910: WHEN fnd_api.g_exc_error THEN
3911: ROLLBACK TO adjust_utilized_budget;
3912: x_return_status := fnd_api.g_ret_sts_error;
3913: fnd_msg_pub.count_and_get (
3914: p_count=> x_msg_count
3915: ,p_data=> x_msg_data
3916: ,p_encoded=> fnd_api.g_false
3912: x_return_status := fnd_api.g_ret_sts_error;
3913: fnd_msg_pub.count_and_get (
3914: p_count=> x_msg_count
3915: ,p_data=> x_msg_data
3916: ,p_encoded=> fnd_api.g_false
3917: );
3918: WHEN fnd_api.g_exc_unexpected_error THEN
3919: ROLLBACK TO adjust_utilized_budget;
3920: x_return_status := fnd_api.g_ret_sts_unexp_error;
3914: p_count=> x_msg_count
3915: ,p_data=> x_msg_data
3916: ,p_encoded=> fnd_api.g_false
3917: );
3918: WHEN fnd_api.g_exc_unexpected_error THEN
3919: ROLLBACK TO adjust_utilized_budget;
3920: x_return_status := fnd_api.g_ret_sts_unexp_error;
3921: fnd_msg_pub.count_and_get (
3922: p_count=> x_msg_count
3916: ,p_encoded=> fnd_api.g_false
3917: );
3918: WHEN fnd_api.g_exc_unexpected_error THEN
3919: ROLLBACK TO adjust_utilized_budget;
3920: x_return_status := fnd_api.g_ret_sts_unexp_error;
3921: fnd_msg_pub.count_and_get (
3922: p_count=> x_msg_count
3923: ,p_data=> x_msg_data
3924: ,p_encoded=> fnd_api.g_false
3920: x_return_status := fnd_api.g_ret_sts_unexp_error;
3921: fnd_msg_pub.count_and_get (
3922: p_count=> x_msg_count
3923: ,p_data=> x_msg_data
3924: ,p_encoded=> fnd_api.g_false
3925: );
3926: WHEN OTHERS THEN
3927: ROLLBACK TO adjust_utilized_budget;
3928: x_return_status := fnd_api.g_ret_sts_unexp_error;
3924: ,p_encoded=> fnd_api.g_false
3925: );
3926: WHEN OTHERS THEN
3927: ROLLBACK TO adjust_utilized_budget;
3928: x_return_status := fnd_api.g_ret_sts_unexp_error;
3929:
3930: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3931: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3932: END IF;
3933:
3934: fnd_msg_pub.count_and_get (
3935: p_count=> x_msg_count
3936: ,p_data=> x_msg_data
3937: ,p_encoded=> fnd_api.g_false
3938: );
3939:
3940: END adjust_utilized_budget;
3941:
3955: ,p_budget_used_by_id IN NUMBER
3956: ,p_budget_used_by_type IN VARCHAR2
3957: ,p_from_parent IN VARCHAR2
3958: ,p_api_version IN NUMBER
3959: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
3960: ,p_commit IN VARCHAR2 := fnd_api.g_false
3961: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
3962: ,x_return_status OUT NOCOPY VARCHAR2
3963: ,x_msg_count OUT NOCOPY NUMBER
3956: ,p_budget_used_by_type IN VARCHAR2
3957: ,p_from_parent IN VARCHAR2
3958: ,p_api_version IN NUMBER
3959: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
3960: ,p_commit IN VARCHAR2 := fnd_api.g_false
3961: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
3962: ,x_return_status OUT NOCOPY VARCHAR2
3963: ,x_msg_count OUT NOCOPY NUMBER
3964: ,x_msg_data OUT NOCOPY VARCHAR2
3957: ,p_from_parent IN VARCHAR2
3958: ,p_api_version IN NUMBER
3959: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
3960: ,p_commit IN VARCHAR2 := fnd_api.g_false
3961: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
3962: ,x_return_status OUT NOCOPY VARCHAR2
3963: ,x_msg_count OUT NOCOPY NUMBER
3964: ,x_msg_data OUT NOCOPY VARCHAR2
3965: ) IS
3976: SAVEPOINT update_budget_source;
3977: IF G_DEBUG THEN
3978: ozf_utility_pvt.debug_message (': begin ' || l_full_name);
3979: END IF;
3980: x_return_status := fnd_api.g_ret_sts_success;
3981:
3982: IF fnd_api.to_boolean (p_init_msg_list) THEN
3983: fnd_msg_pub.initialize;
3984: END IF;
3978: ozf_utility_pvt.debug_message (': begin ' || l_full_name);
3979: END IF;
3980: x_return_status := fnd_api.g_ret_sts_success;
3981:
3982: IF fnd_api.to_boolean (p_init_msg_list) THEN
3983: fnd_msg_pub.initialize;
3984: END IF;
3985:
3986: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
3982: IF fnd_api.to_boolean (p_init_msg_list) THEN
3983: fnd_msg_pub.initialize;
3984: END IF;
3985:
3986: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
3987: RAISE fnd_api.g_exc_unexpected_error;
3988: END IF;
3989:
3990: IF p_budget_used_by_type = 'CSCH' THEN
3983: fnd_msg_pub.initialize;
3984: END IF;
3985:
3986: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
3987: RAISE fnd_api.g_exc_unexpected_error;
3988: END IF;
3989:
3990: IF p_budget_used_by_type = 'CSCH' THEN
3991:
4001: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
4002: fnd_message.set_name ('OZF', 'OZF_API_RECORD_NOT_FOUND');
4003: fnd_msg_pub.ADD;
4004: END IF;
4005: RAISE fnd_api.g_exc_unexpected_error;
4006: END IF;
4007: ELSE
4008: UPDATE ams_event_offers_all_b
4009: SET source_from_parent = p_from_parent
4015: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
4016: fnd_message.set_name ('OZF', 'OZF_API_RECORD_NOT_FOUND');
4017: fnd_msg_pub.ADD;
4018: END IF;
4019: RAISE fnd_api.g_exc_unexpected_error;
4020: END IF;
4021: END IF;
4022:
4023: -- Standard check of p_commit.
4020: END IF;
4021: END IF;
4022:
4023: -- Standard check of p_commit.
4024: IF fnd_api.to_boolean (p_commit) THEN
4025: COMMIT WORK;
4026: END IF;
4027:
4028: fnd_msg_pub.count_and_get (
4025: COMMIT WORK;
4026: END IF;
4027:
4028: fnd_msg_pub.count_and_get (
4029: p_encoded=> fnd_api.g_false
4030: ,p_count=> x_msg_count
4031: ,p_data=> x_msg_data
4032: );
4033:
4034: IF G_DEBUG THEN
4035: ozf_utility_pvt.debug_message ( l_full_name || ': end');
4036: END IF;
4037: EXCEPTION
4038: WHEN fnd_api.g_exc_error THEN
4039: ROLLBACK TO update_budget_source;
4040: x_return_status := fnd_api.g_ret_sts_error;
4041: fnd_msg_pub.count_and_get (
4042: p_count=> x_msg_count
4036: END IF;
4037: EXCEPTION
4038: WHEN fnd_api.g_exc_error THEN
4039: ROLLBACK TO update_budget_source;
4040: x_return_status := fnd_api.g_ret_sts_error;
4041: fnd_msg_pub.count_and_get (
4042: p_count=> x_msg_count
4043: ,p_data=> x_msg_data
4044: ,p_encoded=> fnd_api.g_false
4040: x_return_status := fnd_api.g_ret_sts_error;
4041: fnd_msg_pub.count_and_get (
4042: p_count=> x_msg_count
4043: ,p_data=> x_msg_data
4044: ,p_encoded=> fnd_api.g_false
4045: );
4046: WHEN fnd_api.g_exc_unexpected_error THEN
4047: ROLLBACK TO update_budget_source;
4048: x_return_status := fnd_api.g_ret_sts_unexp_error;
4042: p_count=> x_msg_count
4043: ,p_data=> x_msg_data
4044: ,p_encoded=> fnd_api.g_false
4045: );
4046: WHEN fnd_api.g_exc_unexpected_error THEN
4047: ROLLBACK TO update_budget_source;
4048: x_return_status := fnd_api.g_ret_sts_unexp_error;
4049: fnd_msg_pub.count_and_get (
4050: p_count=> x_msg_count
4044: ,p_encoded=> fnd_api.g_false
4045: );
4046: WHEN fnd_api.g_exc_unexpected_error THEN
4047: ROLLBACK TO update_budget_source;
4048: x_return_status := fnd_api.g_ret_sts_unexp_error;
4049: fnd_msg_pub.count_and_get (
4050: p_count=> x_msg_count
4051: ,p_data=> x_msg_data
4052: ,p_encoded=> fnd_api.g_false
4048: x_return_status := fnd_api.g_ret_sts_unexp_error;
4049: fnd_msg_pub.count_and_get (
4050: p_count=> x_msg_count
4051: ,p_data=> x_msg_data
4052: ,p_encoded=> fnd_api.g_false
4053: );
4054: WHEN OTHERS THEN
4055: ROLLBACK TO update_budget_source;
4056: x_return_status := fnd_api.g_ret_sts_unexp_error;
4052: ,p_encoded=> fnd_api.g_false
4053: );
4054: WHEN OTHERS THEN
4055: ROLLBACK TO update_budget_source;
4056: x_return_status := fnd_api.g_ret_sts_unexp_error;
4057:
4058: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
4059: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
4060: END IF;
4061:
4062: fnd_msg_pub.count_and_get (
4063: p_count=> x_msg_count
4064: ,p_data=> x_msg_data
4065: ,p_encoded=> fnd_api.g_false
4066: );
4067: END update_budget_source;
4068:
4069:
4079:
4080: PROCEDURE post_sf_lumpsum_amount (
4081: p_offer_id IN NUMBER
4082: ,p_api_version IN NUMBER
4083: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
4084: ,p_commit IN VARCHAR2 := fnd_api.g_false
4085: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
4086: ,x_msg_count OUT NOCOPY NUMBER
4087: ,x_msg_data OUT NOCOPY VARCHAR2
4080: PROCEDURE post_sf_lumpsum_amount (
4081: p_offer_id IN NUMBER
4082: ,p_api_version IN NUMBER
4083: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
4084: ,p_commit IN VARCHAR2 := fnd_api.g_false
4085: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
4086: ,x_msg_count OUT NOCOPY NUMBER
4087: ,x_msg_data OUT NOCOPY VARCHAR2
4088: ,x_return_status OUT NOCOPY VARCHAR2
4081: p_offer_id IN NUMBER
4082: ,p_api_version IN NUMBER
4083: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
4084: ,p_commit IN VARCHAR2 := fnd_api.g_false
4085: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
4086: ,x_msg_count OUT NOCOPY NUMBER
4087: ,x_msg_data OUT NOCOPY VARCHAR2
4088: ,x_return_status OUT NOCOPY VARCHAR2
4089: ) IS
4086: ,x_msg_count OUT NOCOPY NUMBER
4087: ,x_msg_data OUT NOCOPY VARCHAR2
4088: ,x_return_status OUT NOCOPY VARCHAR2
4089: ) IS
4090: l_return_status VARCHAR2 (10) := fnd_api.g_ret_sts_success;
4091: l_api_name CONSTANT VARCHAR2 (30) := 'post_sf_lumpsum_amount';
4092: l_api_version CONSTANT NUMBER := 1.0;
4093: l_full_name CONSTANT VARCHAR2 (90) := g_pkg_name
4094: || '.'
4195: SELECT exchange_rate_type
4196: FROM ozf_sys_parameters_all
4197: WHERE org_id = p_org_id;
4198:
4199: l_exchange_rate_type VARCHAR2(30) := FND_API.G_MISS_CHAR;
4200: l_rate NUMBER;
4201:
4202: BEGIN
4203: SAVEPOINT Posting_lumpsum_amount;
4203: SAVEPOINT Posting_lumpsum_amount;
4204: IF G_DEBUG THEN
4205: ozf_utility_pvt.debug_message ( l_full_name || ': start');
4206: END IF;
4207: x_return_status := fnd_api.g_ret_sts_success;
4208:
4209: IF fnd_api.to_boolean (p_init_msg_list) THEN
4210: fnd_msg_pub.initialize;
4211: END IF;
4205: ozf_utility_pvt.debug_message ( l_full_name || ': start');
4206: END IF;
4207: x_return_status := fnd_api.g_ret_sts_success;
4208:
4209: IF fnd_api.to_boolean (p_init_msg_list) THEN
4210: fnd_msg_pub.initialize;
4211: END IF;
4212:
4213: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
4209: IF fnd_api.to_boolean (p_init_msg_list) THEN
4210: fnd_msg_pub.initialize;
4211: END IF;
4212:
4213: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
4214: RAISE fnd_api.g_exc_unexpected_error;
4215: END IF;
4216:
4217: OPEN c_request_date(l_offer_id);
4210: fnd_msg_pub.initialize;
4211: END IF;
4212:
4213: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
4214: RAISE fnd_api.g_exc_unexpected_error;
4215: END IF;
4216:
4217: OPEN c_request_date(l_offer_id);
4218: FETCH c_request_date INTO l_req_header_id,l_currency_code,l_cust_acct_id,l_req_owner,l_offer_org_id;
4266: ,x_to_amount=> l_converted_amt
4267: ,x_rate=> l_rate
4268: );
4269:
4270: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4271: x_return_status := fnd_api.g_ret_sts_error;
4272: RAISE fnd_api.g_exc_error;
4273: END IF;
4274: END IF;
4267: ,x_rate=> l_rate
4268: );
4269:
4270: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4271: x_return_status := fnd_api.g_ret_sts_error;
4272: RAISE fnd_api.g_exc_error;
4273: END IF;
4274: END IF;
4275: IF G_DEBUG THEN
4268: );
4269:
4270: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4271: x_return_status := fnd_api.g_ret_sts_error;
4272: RAISE fnd_api.g_exc_error;
4273: END IF;
4274: END IF;
4275: IF G_DEBUG THEN
4276: ozf_utility_pvt.debug_message ( ': l_converted_amt ' || l_converted_amt);
4326: p_act_util_rec =>l_act_util_rec,
4327: x_act_budget_id => l_act_budget_id
4328: ) ;
4329:
4330: IF l_return_status = fnd_api.g_ret_sts_error THEN
4331: RAISE fnd_api.g_exc_error;
4332: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4333: RAISE fnd_api.g_exc_unexpected_error;
4334: END IF;
4327: x_act_budget_id => l_act_budget_id
4328: ) ;
4329:
4330: IF l_return_status = fnd_api.g_ret_sts_error THEN
4331: RAISE fnd_api.g_exc_error;
4332: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4333: RAISE fnd_api.g_exc_unexpected_error;
4334: END IF;
4335: END IF; -- for util amount
4328: ) ;
4329:
4330: IF l_return_status = fnd_api.g_ret_sts_error THEN
4331: RAISE fnd_api.g_exc_error;
4332: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4333: RAISE fnd_api.g_exc_unexpected_error;
4334: END IF;
4335: END IF; -- for util amount
4336:
4329:
4330: IF l_return_status = fnd_api.g_ret_sts_error THEN
4331: RAISE fnd_api.g_exc_error;
4332: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4333: RAISE fnd_api.g_exc_unexpected_error;
4334: END IF;
4335: END IF; -- for util amount
4336:
4337: IF G_DEBUG THEN
4347: CLOSE c_req_expense;
4348:
4349:
4350: fnd_msg_pub.count_and_get (
4351: p_encoded=> fnd_api.g_false
4352: ,p_count=> x_msg_count
4353: ,p_data=> x_msg_data
4354: );
4355: IF G_DEBUG THEN
4355: IF G_DEBUG THEN
4356: ozf_utility_pvt.debug_message ( l_full_name || ': end');
4357: END IF;
4358: EXCEPTION
4359: WHEN fnd_api.g_exc_error THEN
4360: ROLLBACK TO Posting_lumpsum_amount;
4361: x_return_status := fnd_api.g_ret_sts_error;
4362: fnd_msg_pub.count_and_get (
4363: p_count=> x_msg_count
4357: END IF;
4358: EXCEPTION
4359: WHEN fnd_api.g_exc_error THEN
4360: ROLLBACK TO Posting_lumpsum_amount;
4361: x_return_status := fnd_api.g_ret_sts_error;
4362: fnd_msg_pub.count_and_get (
4363: p_count=> x_msg_count
4364: ,p_data=> x_msg_data
4365: ,p_encoded=> fnd_api.g_false
4361: x_return_status := fnd_api.g_ret_sts_error;
4362: fnd_msg_pub.count_and_get (
4363: p_count=> x_msg_count
4364: ,p_data=> x_msg_data
4365: ,p_encoded=> fnd_api.g_false
4366: );
4367: WHEN fnd_api.g_exc_unexpected_error THEN
4368: ROLLBACK TO Posting_lumpsum_amount;
4369: x_return_status := fnd_api.g_ret_sts_unexp_error;
4363: p_count=> x_msg_count
4364: ,p_data=> x_msg_data
4365: ,p_encoded=> fnd_api.g_false
4366: );
4367: WHEN fnd_api.g_exc_unexpected_error THEN
4368: ROLLBACK TO Posting_lumpsum_amount;
4369: x_return_status := fnd_api.g_ret_sts_unexp_error;
4370: fnd_msg_pub.count_and_get (
4371: p_count=> x_msg_count
4365: ,p_encoded=> fnd_api.g_false
4366: );
4367: WHEN fnd_api.g_exc_unexpected_error THEN
4368: ROLLBACK TO Posting_lumpsum_amount;
4369: x_return_status := fnd_api.g_ret_sts_unexp_error;
4370: fnd_msg_pub.count_and_get (
4371: p_count=> x_msg_count
4372: ,p_data=> x_msg_data
4373: ,p_encoded=> fnd_api.g_false
4369: x_return_status := fnd_api.g_ret_sts_unexp_error;
4370: fnd_msg_pub.count_and_get (
4371: p_count=> x_msg_count
4372: ,p_data=> x_msg_data
4373: ,p_encoded=> fnd_api.g_false
4374: );
4375: WHEN OTHERS THEN
4376: ROLLBACK TO Posting_lumpsum_amount;
4377: x_return_status := fnd_api.g_ret_sts_unexp_error;
4373: ,p_encoded=> fnd_api.g_false
4374: );
4375: WHEN OTHERS THEN
4376: ROLLBACK TO Posting_lumpsum_amount;
4377: x_return_status := fnd_api.g_ret_sts_unexp_error;
4378:
4379: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
4380: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
4381: END IF;
4382:
4383: fnd_msg_pub.count_and_get (
4384: p_count=> x_msg_count
4385: ,p_data=> x_msg_data
4386: ,p_encoded=> fnd_api.g_false
4387: );
4388:
4389: END post_sf_lumpsum_amount;
4390:
4404:
4405: l_req_header_id NUMBER;
4406: l_obj_ver_num NUMBER;
4407: l_status_code VARCHAR2 (30);
4408: l_return_status VARCHAR2 (10) := fnd_api.g_ret_sts_success;
4409: l_api_name VARCHAR2 (60) := 'update_request_status';
4410: l_full_name VARCHAR2 (100) := g_pkg_name||'.'||l_api_name;
4411: l_api_version NUMBER := 1;
4412: BEGIN
4430:
4431: fnd_msg_pub.count_and_get (
4432: p_count=> x_msg_count,
4433: p_data=> x_msg_data,
4434: p_encoded=> fnd_api.g_false
4435: );
4436:
4437: EXCEPTION
4438: WHEN fnd_api.g_exc_error THEN
4434: p_encoded=> fnd_api.g_false
4435: );
4436:
4437: EXCEPTION
4438: WHEN fnd_api.g_exc_error THEN
4439: x_return_status := fnd_api.g_ret_sts_error;
4440: fnd_msg_pub.count_and_get (
4441: p_count=> x_msg_count,
4442: p_data=> x_msg_data,
4435: );
4436:
4437: EXCEPTION
4438: WHEN fnd_api.g_exc_error THEN
4439: x_return_status := fnd_api.g_ret_sts_error;
4440: fnd_msg_pub.count_and_get (
4441: p_count=> x_msg_count,
4442: p_data=> x_msg_data,
4443: p_encoded=> fnd_api.g_false
4439: x_return_status := fnd_api.g_ret_sts_error;
4440: fnd_msg_pub.count_and_get (
4441: p_count=> x_msg_count,
4442: p_data=> x_msg_data,
4443: p_encoded=> fnd_api.g_false
4444: );
4445: WHEN fnd_api.g_exc_unexpected_error THEN
4446: x_return_status := fnd_api.g_ret_sts_unexp_error;
4447: fnd_msg_pub.count_and_get (
4441: p_count=> x_msg_count,
4442: p_data=> x_msg_data,
4443: p_encoded=> fnd_api.g_false
4444: );
4445: WHEN fnd_api.g_exc_unexpected_error THEN
4446: x_return_status := fnd_api.g_ret_sts_unexp_error;
4447: fnd_msg_pub.count_and_get (
4448: p_count=> x_msg_count,
4449: p_data=> x_msg_data,
4442: p_data=> x_msg_data,
4443: p_encoded=> fnd_api.g_false
4444: );
4445: WHEN fnd_api.g_exc_unexpected_error THEN
4446: x_return_status := fnd_api.g_ret_sts_unexp_error;
4447: fnd_msg_pub.count_and_get (
4448: p_count=> x_msg_count,
4449: p_data=> x_msg_data,
4450: p_encoded=> fnd_api.g_false
4446: x_return_status := fnd_api.g_ret_sts_unexp_error;
4447: fnd_msg_pub.count_and_get (
4448: p_count=> x_msg_count,
4449: p_data=> x_msg_data,
4450: p_encoded=> fnd_api.g_false
4451: );
4452: WHEN OTHERS THEN
4453: x_return_status := fnd_api.g_ret_sts_unexp_error;
4454:
4449: p_data=> x_msg_data,
4450: p_encoded=> fnd_api.g_false
4451: );
4452: WHEN OTHERS THEN
4453: x_return_status := fnd_api.g_ret_sts_unexp_error;
4454:
4455: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
4456: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
4457: END IF;
4458:
4459: fnd_msg_pub.count_and_get (
4460: p_count=> x_msg_count,
4461: p_data=> x_msg_data,
4462: p_encoded=> fnd_api.g_false
4463: );
4464: END update_request_status;
4465:
4466: END ozf_fund_adjustment_pvt;