[Home] [Help]
94: ,p_budget_used_by_type IN VARCHAR2
95: ,p_currency IN VARCHAR2
96: ,p_cost_tbl IN cost_tbl_type
97: ,p_api_version IN NUMBER
98: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
99: ,p_commit IN VARCHAR2 := fnd_api.g_false
100: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
101: ,x_return_status OUT NOCOPY VARCHAR2
102: ,x_msg_count OUT NOCOPY NUMBER
95: ,p_currency IN VARCHAR2
96: ,p_cost_tbl IN cost_tbl_type
97: ,p_api_version IN NUMBER
98: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
99: ,p_commit IN VARCHAR2 := fnd_api.g_false
100: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
101: ,x_return_status OUT NOCOPY VARCHAR2
102: ,x_msg_count OUT NOCOPY NUMBER
103: ,x_msg_data OUT NOCOPY VARCHAR2
96: ,p_cost_tbl IN cost_tbl_type
97: ,p_api_version IN NUMBER
98: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
99: ,p_commit IN VARCHAR2 := fnd_api.g_false
100: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
101: ,x_return_status OUT NOCOPY VARCHAR2
102: ,x_msg_count OUT NOCOPY NUMBER
103: ,x_msg_data OUT NOCOPY VARCHAR2
104: ) IS
172: AND transfer_type = 'UTILIZED';
173: */
174: -- l_parent_source_rec c_parent_source%ROWTYPE;
175: l_api_version NUMBER := 1.0;
176: l_return_status VARCHAR2 (1) := fnd_api.g_ret_sts_success;
177: l_api_name VARCHAR2 (60) := 'create_budget_amount_utilized';
178: l_act_budget_id NUMBER;
179: l_act_budgets_rec ozf_actbudgets_pvt.act_budgets_rec_type;
180: l_util_amount NUMBER := 0;
191: l_utilized_amount NUMBER;
192:
193: BEGIN
194: SAVEPOINT create_budget_amt_utilized;
195: x_return_status := fnd_api.g_ret_sts_success;
196: IF G_DEBUG THEN
197: ozf_utility_pvt.debug_message (': begin ');
198: END IF;
199:
196: IF G_DEBUG THEN
197: ozf_utility_pvt.debug_message (': begin ');
198: END IF;
199:
200: IF fnd_api.to_boolean (p_init_msg_list) THEN
201: fnd_msg_pub.initialize;
202: END IF;
203:
204: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
200: IF fnd_api.to_boolean (p_init_msg_list) THEN
201: fnd_msg_pub.initialize;
202: END IF;
203:
204: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
205: RAISE fnd_api.g_exc_unexpected_error;
206: END IF;
207:
208: <
201: fnd_msg_pub.initialize;
202: END IF;
203:
204: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
205: RAISE fnd_api.g_exc_unexpected_error;
206: END IF;
207:
208: <
209: FOR k IN NVL (p_cost_tbl.FIRST, 1) .. NVL (p_cost_tbl.LAST, 0)
233: ,p_from_amount=> p_cost_tbl (k).cost_amount
234: ,x_to_amount=> l_amount
235: );
236:
237: IF x_return_status <> fnd_api.g_ret_sts_success THEN
238: x_return_status := fnd_api.g_ret_sts_error;
239: RAISE fnd_api.g_exc_error;
240: END IF;
241: END IF;
234: ,x_to_amount=> l_amount
235: );
236:
237: IF x_return_status <> fnd_api.g_ret_sts_success THEN
238: x_return_status := fnd_api.g_ret_sts_error;
239: RAISE fnd_api.g_exc_error;
240: END IF;
241: END IF;
242:
235: );
236:
237: IF x_return_status <> fnd_api.g_ret_sts_success THEN
238: x_return_status := fnd_api.g_ret_sts_error;
239: RAISE fnd_api.g_exc_error;
240: END IF;
241: END IF;
242:
243: /*
253: ,p_from_amount=> l_amount
254: ,x_to_amount=> l_converted_amt
255: );
256:
257: IF x_return_status <> fnd_api.g_ret_sts_success THEN
258: x_return_status := fnd_api.g_ret_sts_error;
259: RAISE fnd_api.g_exc_error;
260: END IF;
261: END IF;
254: ,x_to_amount=> l_converted_amt
255: );
256:
257: IF x_return_status <> fnd_api.g_ret_sts_success THEN
258: x_return_status := fnd_api.g_ret_sts_error;
259: RAISE fnd_api.g_exc_error;
260: END IF;
261: END IF;
262:
255: );
256:
257: IF x_return_status <> fnd_api.g_ret_sts_success THEN
258: x_return_status := fnd_api.g_ret_sts_error;
259: RAISE fnd_api.g_exc_error;
260: END IF;
261: END IF;
262:
263: -- check against the converted amount but update the amount in parent currency
327: ,p_act_budgets_rec=> l_act_budgets_rec
328: ,x_act_budget_id=> l_act_budget_id
329: );
330:
331: IF l_return_status = fnd_api.g_ret_sts_error THEN
332: RAISE fnd_api.g_exc_error;
333: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
334: RAISE fnd_api.g_exc_unexpected_error;
335: END IF;
328: ,x_act_budget_id=> l_act_budget_id
329: );
330:
331: IF l_return_status = fnd_api.g_ret_sts_error THEN
332: RAISE fnd_api.g_exc_error;
333: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
334: RAISE fnd_api.g_exc_unexpected_error;
335: END IF;
336: ELSE
329: );
330:
331: IF l_return_status = fnd_api.g_ret_sts_error THEN
332: RAISE fnd_api.g_exc_error;
333: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
334: RAISE fnd_api.g_exc_unexpected_error;
335: END IF;
336: ELSE
337: l_act_budgets_rec.request_amount := l_old_approved_amount
330:
331: IF l_return_status = fnd_api.g_ret_sts_error THEN
332: RAISE fnd_api.g_exc_error;
333: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
334: RAISE fnd_api.g_exc_unexpected_error;
335: END IF;
336: ELSE
337: l_act_budgets_rec.request_amount := l_old_approved_amount
338: + l_util_amount;
356: x_act_budget_id => l_act_budget_id,
357: x_utilized_amount => l_utilized_amount
358: ) ;
359:
360: IF l_return_status = fnd_api.g_ret_sts_error THEN
361: RAISE fnd_api.g_exc_error;
362: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
363: RAISE fnd_api.g_exc_unexpected_error;
364: END IF;
357: x_utilized_amount => l_utilized_amount
358: ) ;
359:
360: IF l_return_status = fnd_api.g_ret_sts_error THEN
361: RAISE fnd_api.g_exc_error;
362: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
363: RAISE fnd_api.g_exc_unexpected_error;
364: END IF;
365: --Raise error message if committed amount is less then
358: ) ;
359:
360: IF l_return_status = fnd_api.g_ret_sts_error THEN
361: RAISE fnd_api.g_exc_error;
362: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
363: RAISE fnd_api.g_exc_unexpected_error;
364: END IF;
365: --Raise error message if committed amount is less then
366: IF l_util_amount > l_utilized_amount AND l_utilized_amount = 0 THEN
359:
360: IF l_return_status = fnd_api.g_ret_sts_error THEN
361: RAISE fnd_api.g_exc_error;
362: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
363: RAISE fnd_api.g_exc_unexpected_error;
364: END IF;
365: --Raise error message if committed amount is less then
366: IF l_util_amount > l_utilized_amount AND l_utilized_amount = 0 THEN
367: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
391:
392: -- CLOSE c_parent_source;
393: END LOOP cost_line_tbl_loop;
394: EXCEPTION
395: WHEN fnd_api.g_exc_error THEN
396: ROLLBACK TO create_budget_amt_utilized;
397: x_return_status := fnd_api.g_ret_sts_error;
398: fnd_msg_pub.count_and_get (
399: p_count=> x_msg_count
393: END LOOP cost_line_tbl_loop;
394: EXCEPTION
395: WHEN fnd_api.g_exc_error THEN
396: ROLLBACK TO create_budget_amt_utilized;
397: x_return_status := fnd_api.g_ret_sts_error;
398: fnd_msg_pub.count_and_get (
399: p_count=> x_msg_count
400: ,p_data=> x_msg_data
401: ,p_encoded=> fnd_api.g_false
397: x_return_status := fnd_api.g_ret_sts_error;
398: fnd_msg_pub.count_and_get (
399: p_count=> x_msg_count
400: ,p_data=> x_msg_data
401: ,p_encoded=> fnd_api.g_false
402: );
403: WHEN fnd_api.g_exc_unexpected_error THEN
404: ROLLBACK TO create_budget_amt_utilized;
405: x_return_status := fnd_api.g_ret_sts_unexp_error;
399: p_count=> x_msg_count
400: ,p_data=> x_msg_data
401: ,p_encoded=> fnd_api.g_false
402: );
403: WHEN fnd_api.g_exc_unexpected_error THEN
404: ROLLBACK TO create_budget_amt_utilized;
405: x_return_status := fnd_api.g_ret_sts_unexp_error;
406: fnd_msg_pub.count_and_get (
407: p_count=> x_msg_count
401: ,p_encoded=> fnd_api.g_false
402: );
403: WHEN fnd_api.g_exc_unexpected_error THEN
404: ROLLBACK TO create_budget_amt_utilized;
405: x_return_status := fnd_api.g_ret_sts_unexp_error;
406: fnd_msg_pub.count_and_get (
407: p_count=> x_msg_count
408: ,p_data=> x_msg_data
409: ,p_encoded=> fnd_api.g_false
405: x_return_status := fnd_api.g_ret_sts_unexp_error;
406: fnd_msg_pub.count_and_get (
407: p_count=> x_msg_count
408: ,p_data=> x_msg_data
409: ,p_encoded=> fnd_api.g_false
410: );
411: WHEN OTHERS THEN
412: ROLLBACK TO create_budget_amt_utilized;
413: x_return_status := fnd_api.g_ret_sts_unexp_error;
409: ,p_encoded=> fnd_api.g_false
410: );
411: WHEN OTHERS THEN
412: ROLLBACK TO create_budget_amt_utilized;
413: x_return_status := fnd_api.g_ret_sts_unexp_error;
414:
415: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
416: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
417: END IF;
418:
419: fnd_msg_pub.count_and_get (
420: p_count=> x_msg_count
421: ,p_data=> x_msg_data
422: ,p_encoded=> fnd_api.g_false
423: );
424: END create_budget_amt_utilized;
425:
426:
516:
517: l_rate NUMBER; --Added for bug 7030415
518:
519: BEGIN
520: x_return_status := fnd_api.g_ret_sts_success;
521: l_total_amount := p_amount; -- amount in object currency
522: l_counter := 1;
523: l_old_currency := p_req_curr; -- object currency.
524: l_amount_remaining := p_amount;
575:
576: CLOSE c_parent_source;
577:
578: EXCEPTION
579: WHEN fnd_api.g_exc_error THEN
580: x_return_status := fnd_api.g_ret_sts_error;
581: WHEN fnd_api.g_exc_unexpected_error THEN
582: x_return_status := fnd_api.g_ret_sts_unexp_error;
583: WHEN OTHERS THEN
576: CLOSE c_parent_source;
577:
578: EXCEPTION
579: WHEN fnd_api.g_exc_error THEN
580: x_return_status := fnd_api.g_ret_sts_error;
581: WHEN fnd_api.g_exc_unexpected_error THEN
582: x_return_status := fnd_api.g_ret_sts_unexp_error;
583: WHEN OTHERS THEN
584: x_return_status := fnd_api.g_ret_sts_unexp_error;
577:
578: EXCEPTION
579: WHEN fnd_api.g_exc_error THEN
580: x_return_status := fnd_api.g_ret_sts_error;
581: WHEN fnd_api.g_exc_unexpected_error THEN
582: x_return_status := fnd_api.g_ret_sts_unexp_error;
583: WHEN OTHERS THEN
584: x_return_status := fnd_api.g_ret_sts_unexp_error;
585:
578: EXCEPTION
579: WHEN fnd_api.g_exc_error THEN
580: x_return_status := fnd_api.g_ret_sts_error;
581: WHEN fnd_api.g_exc_unexpected_error THEN
582: x_return_status := fnd_api.g_ret_sts_unexp_error;
583: WHEN OTHERS THEN
584: x_return_status := fnd_api.g_ret_sts_unexp_error;
585:
586: END get_parent_src;
580: x_return_status := fnd_api.g_ret_sts_error;
581: WHEN fnd_api.g_exc_unexpected_error THEN
582: x_return_status := fnd_api.g_ret_sts_unexp_error;
583: WHEN OTHERS THEN
584: x_return_status := fnd_api.g_ret_sts_unexp_error;
585:
586: END get_parent_src;
587:
588:
646: || l_api_name;
647: l_util_rec ozf_fund_utilized_pvt.utilization_rec_type;
648: l_util_id NUMBER;
649: l_util_amount NUMBER;
650: l_return_status VARCHAR2 (1) := fnd_api.g_ret_sts_success;
651: l_obj_number NUMBER;
652: l_parent_src_tbl parent_src_tbl_type;
653: l_fund_transfer_flag VARCHAR2 (1) := 'N';
654: l_offer_type VARCHAR2 (30);
733: FROM ozf_sys_parameters_all
734: WHERE org_id = p_org_id;
735:
736:
737: l_exchange_rate_type VARCHAR2(30) := FND_API.G_MISS_CHAR;
738: l_rate NUMBER;
739: l_fund_reconc_msg VARCHAR2(4000);
740: l_act_bud_cst_msg VARCHAR2(4000);
741:
805: /* IF l_accrual_basis ='CUSTOMER' THEN
806: IF p_act_budget_rec.parent_source_id <> l_fund_id THEN
807: fnd_message.set_name ('OZF', 'OZF_FUND_OFFR_ADJ');
808: fnd_msg_pub.ADD;
809: RAISE fnd_api.g_exc_error;
810: END IF;
811: */
812: --Added for bug 7030415, In case of accrual budget.
813: --Need to use the org_id since the converted amount is used to populate
866: -- end of accrual budget.
867:
868:
869: ELSIF p_act_budget_rec.parent_source_id IS NULL
870: OR p_act_budget_rec.parent_source_id = fnd_api.g_miss_num THEN
871: --Added for bug 7030415 , For fixed budget
872: ozf_utility_pvt.debug_message('here>>>>');
873: get_parent_src (
874: p_budget_source_type=> p_act_budget_rec.budget_source_type
879: ,x_return_status=> l_return_status
880: ,x_parent_src_tbl=> l_parent_src_tbl
881: );
882: /*
883: IF l_return_status = fnd_api.g_ret_sts_error THEN
884: RAISE fnd_api.g_exc_error;
885: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
886: RAISE fnd_api.g_exc_unexpected_error;
887: END IF;
880: ,x_parent_src_tbl=> l_parent_src_tbl
881: );
882: /*
883: IF l_return_status = fnd_api.g_ret_sts_error THEN
884: RAISE fnd_api.g_exc_error;
885: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
886: RAISE fnd_api.g_exc_unexpected_error;
887: END IF;
888: */ ELSE
881: );
882: /*
883: IF l_return_status = fnd_api.g_ret_sts_error THEN
884: RAISE fnd_api.g_exc_error;
885: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
886: RAISE fnd_api.g_exc_unexpected_error;
887: END IF;
888: */ ELSE
889: l_parent_src_tbl (1).fund_id := p_act_budget_rec.parent_source_id;
882: /*
883: IF l_return_status = fnd_api.g_ret_sts_error THEN
884: RAISE fnd_api.g_exc_error;
885: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
886: RAISE fnd_api.g_exc_unexpected_error;
887: END IF;
888: */ ELSE
889: l_parent_src_tbl (1).fund_id := p_act_budget_rec.parent_source_id;
890: l_parent_src_tbl (1).fund_curr := p_act_budget_rec.parent_src_curr;
902: ,p_exchange_rate_type=>l_exchange_rate_type
903: ,x_return_status=> l_return_status
904: ,x_parent_src_tbl=> l_parent_src_tbl
905: );
906: /* IF l_return_status = fnd_api.g_ret_sts_error THEN
907: RAISE fnd_api.g_exc_error;
908: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
909: RAISE fnd_api.g_exc_unexpected_error;
910: END IF;
903: ,x_return_status=> l_return_status
904: ,x_parent_src_tbl=> l_parent_src_tbl
905: );
906: /* IF l_return_status = fnd_api.g_ret_sts_error THEN
907: RAISE fnd_api.g_exc_error;
908: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
909: RAISE fnd_api.g_exc_unexpected_error;
910: END IF;
911: */ END IF;
904: ,x_parent_src_tbl=> l_parent_src_tbl
905: );
906: /* IF l_return_status = fnd_api.g_ret_sts_error THEN
907: RAISE fnd_api.g_exc_error;
908: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
909: RAISE fnd_api.g_exc_unexpected_error;
910: END IF;
911: */ END IF;
912: END IF;
905: );
906: /* IF l_return_status = fnd_api.g_ret_sts_error THEN
907: RAISE fnd_api.g_exc_error;
908: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
909: RAISE fnd_api.g_exc_unexpected_error;
910: END IF;
911: */ END IF;
912: END IF;
913: END IF;
921: l_util_rec := null; -- fixed bug 5124036.
922: l_total_amount := l_total_amount + NVL (l_parent_src_tbl (i).plan_amount, 0);
923: -- Added condition by feliu on 02/25/02
924: IF p_act_util_rec.utilization_type is NULL OR
925: p_act_util_rec.utilization_type = fnd_api.g_miss_char THEN
926: l_util_rec.utilization_type := p_act_budget_rec.transfer_type;
927: ELSE
928: l_util_rec.utilization_type := p_act_util_rec.utilization_type;
929: END IF;
1018: OPEN c_funds (l_util_rec.fund_id);
1019: FETCH c_funds INTO l_src_fund_type, l_src_fund_accrual_basis,l_plan_id;
1020: CLOSE c_funds;
1021: --for budget source from sales accrual budget.
1022: IF l_plan_id IS NOT NULL AND l_plan_id <> FND_API.g_miss_num THEN
1023: IF l_plan_id <> l_util_rec.component_id THEN
1024: l_src_fund_type := 'FIXED' ;
1025: END IF;
1026: END IF;
1172: OPEN c_check_budget_request(l_util_rec.plan_id, l_util_rec.fund_id);
1173: FETCH c_check_budget_request INTO l_check_request;
1174: IF c_check_budget_request%ROWCOUNT = 0 THEN
1175: ozf_utility_pvt.error_message('OZF_NO_FUND_REQUEST');
1176: RAISE fnd_api.g_exc_unexpected_error;
1177: END IF;
1178: CLOSE c_check_budget_request;
1179: END IF;
1180:
1185: END IF;
1186:
1187: ozf_fund_utilized_pvt.create_utilization (
1188: p_api_version=> l_api_version
1189: ,p_init_msg_list=> fnd_api.g_false
1190: ,p_commit=> fnd_api.g_false
1191: ,p_validation_level=> fnd_api.g_valid_level_full
1192: ,x_return_status=> l_return_status
1193: ,x_msg_count=> x_msg_count
1186:
1187: ozf_fund_utilized_pvt.create_utilization (
1188: p_api_version=> l_api_version
1189: ,p_init_msg_list=> fnd_api.g_false
1190: ,p_commit=> fnd_api.g_false
1191: ,p_validation_level=> fnd_api.g_valid_level_full
1192: ,x_return_status=> l_return_status
1193: ,x_msg_count=> x_msg_count
1194: ,x_msg_data=> x_msg_data
1187: ozf_fund_utilized_pvt.create_utilization (
1188: p_api_version=> l_api_version
1189: ,p_init_msg_list=> fnd_api.g_false
1190: ,p_commit=> fnd_api.g_false
1191: ,p_validation_level=> fnd_api.g_valid_level_full
1192: ,x_return_status=> l_return_status
1193: ,x_msg_count=> x_msg_count
1194: ,x_msg_data=> x_msg_data
1195: ,p_utilization_rec=> l_util_rec
1195: ,p_utilization_rec=> l_util_rec
1196: ,x_utilization_id=> l_util_id
1197: );
1198:
1199: IF l_return_status = fnd_api.g_ret_sts_error THEN
1200: RAISE fnd_api.g_exc_error;
1201: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1202: RAISE fnd_api.g_exc_unexpected_error;
1203: END IF;
1196: ,x_utilization_id=> l_util_id
1197: );
1198:
1199: IF l_return_status = fnd_api.g_ret_sts_error THEN
1200: RAISE fnd_api.g_exc_error;
1201: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1202: RAISE fnd_api.g_exc_unexpected_error;
1203: END IF;
1204: END LOOP;
1197: );
1198:
1199: IF l_return_status = fnd_api.g_ret_sts_error THEN
1200: RAISE fnd_api.g_exc_error;
1201: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1202: RAISE fnd_api.g_exc_unexpected_error;
1203: END IF;
1204: END LOOP;
1205:
1198:
1199: IF l_return_status = fnd_api.g_ret_sts_error THEN
1200: RAISE fnd_api.g_exc_error;
1201: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1202: RAISE fnd_api.g_exc_unexpected_error;
1203: END IF;
1204: END LOOP;
1205:
1206: x_utilized_amount := l_total_amount;
1209: ozf_utility_pvt.debug_message(l_full_name||' : '||'x_utilized_amount: '|| x_utilized_amount);
1210: END IF;
1211:
1212: fnd_msg_pub.count_and_get (
1213: p_encoded=> fnd_api.g_false
1214: ,p_count=> x_msg_count
1215: ,p_data=> x_msg_data
1216: );
1217: IF G_DEBUG THEN
1219: || ': end');
1220: END IF;
1221:
1222: EXCEPTION
1223: WHEN fnd_api.g_exc_error THEN
1224: ROLLBACK TO create_utilization;
1225: x_return_status := fnd_api.g_ret_sts_error;
1226: fnd_msg_pub.count_and_get (
1227: p_encoded=> fnd_api.g_false
1221:
1222: EXCEPTION
1223: WHEN fnd_api.g_exc_error THEN
1224: ROLLBACK TO create_utilization;
1225: x_return_status := fnd_api.g_ret_sts_error;
1226: fnd_msg_pub.count_and_get (
1227: p_encoded=> fnd_api.g_false
1228: ,p_count=> x_msg_count
1229: ,p_data=> x_msg_data
1223: WHEN fnd_api.g_exc_error THEN
1224: ROLLBACK TO create_utilization;
1225: x_return_status := fnd_api.g_ret_sts_error;
1226: fnd_msg_pub.count_and_get (
1227: p_encoded=> fnd_api.g_false
1228: ,p_count=> x_msg_count
1229: ,p_data=> x_msg_data
1230: );
1231: WHEN fnd_api.g_exc_unexpected_error THEN
1227: p_encoded=> fnd_api.g_false
1228: ,p_count=> x_msg_count
1229: ,p_data=> x_msg_data
1230: );
1231: WHEN fnd_api.g_exc_unexpected_error THEN
1232: ROLLBACK TO create_utilization;
1233: x_return_status := fnd_api.g_ret_sts_unexp_error;
1234: fnd_msg_pub.count_and_get (
1235: p_encoded=> fnd_api.g_false
1229: ,p_data=> x_msg_data
1230: );
1231: WHEN fnd_api.g_exc_unexpected_error THEN
1232: ROLLBACK TO create_utilization;
1233: x_return_status := fnd_api.g_ret_sts_unexp_error;
1234: fnd_msg_pub.count_and_get (
1235: p_encoded=> fnd_api.g_false
1236: ,p_count=> x_msg_count
1237: ,p_data=> x_msg_data
1231: WHEN fnd_api.g_exc_unexpected_error THEN
1232: ROLLBACK TO create_utilization;
1233: x_return_status := fnd_api.g_ret_sts_unexp_error;
1234: fnd_msg_pub.count_and_get (
1235: p_encoded=> fnd_api.g_false
1236: ,p_count=> x_msg_count
1237: ,p_data=> x_msg_data
1238: );
1239: WHEN OTHERS THEN
1237: ,p_data=> x_msg_data
1238: );
1239: WHEN OTHERS THEN
1240: ROLLBACK TO create_utilization;
1241: x_return_status := fnd_api.g_ret_sts_unexp_error;
1242:
1243: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1244: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1245: END IF;
1244: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1245: END IF;
1246:
1247: fnd_msg_pub.count_and_get (
1248: p_encoded=> fnd_api.g_false
1249: ,p_count=> x_msg_count
1250: ,p_data=> x_msg_data
1251: );
1252:
1272: FUNCTION convert_currency (
1273: p_from_currency IN VARCHAR2
1274: ,p_to_currency IN VARCHAR2
1275: ,p_from_amount IN NUMBER
1276: ,p_conv_type IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR --Added for bug 7030415
1277: )
1278: RETURN NUMBER IS
1279: l_conversion_type_profile CONSTANT VARCHAR2 (30) := 'OZF_CURR_CONVERSION_TYPE';
1280: l_user_rate CONSTANT NUMBER := 1; -- Currenty not used.
1286: l_returned_amount NUMBER := 1000;
1287: BEGIN
1288: -- Get the currency conversion type from profile option
1289: --Added for bug 7030415
1290: IF p_conv_type = FND_API.G_MISS_CHAR OR p_conv_type IS NULL THEN
1291: l_conversion_type := fnd_profile.VALUE (l_conversion_type_profile);
1292: ELSE
1293: l_conversion_type := p_conv_type;
1294: END IF;
1391: */
1392:
1393: l_approved_amount NUMBER;
1394: BEGIN
1395: x_return_status := fnd_api.g_ret_sts_success;
1396: OPEN cur_get_lumpsum_details;
1397: FETCH cur_get_lumpsum_details INTO l_lumpsum_offer;
1398: CLOSE cur_get_lumpsum_details;
1399: OPEN cur_get_lumpsum_line_details;
1405:
1406: IF l_lumpsum_offer.lumpsum_amount > l_approved_amount
1407: OR l_lumpsum_offer.lumpsum_amount < l_approved_amount THEN
1408: ozf_utility_pvt.error_message (p_message_name => 'OZF_OFFER_AMNT_GT_APPR_AMNT');
1409: RAISE fnd_api.g_exc_error;
1410: END IF;
1411:
1412: IF l_lumpsum_offer.distribution_type = 'AMT' THEN
1413: IF l_total_distribution <> l_lumpsum_offer.lumpsum_amount THEN
1412: IF l_lumpsum_offer.distribution_type = 'AMT' THEN
1413: IF l_total_distribution <> l_lumpsum_offer.lumpsum_amount THEN
1414: fnd_message.set_name ('OZF', 'OZF_INVALID_DISTR_ACTIVE');
1415: fnd_msg_pub.ADD;
1416: RAISE fnd_api.g_exc_error;
1417: ELSIF l_total_distribution > l_lumpsum_offer.lumpsum_amount THEN
1418: fnd_message.set_name ('OZF', 'OZF_INVALID_DISTRIBUTION');
1419: fnd_msg_pub.ADD;
1420: RAISE fnd_api.g_exc_error;
1416: RAISE fnd_api.g_exc_error;
1417: ELSIF l_total_distribution > l_lumpsum_offer.lumpsum_amount THEN
1418: fnd_message.set_name ('OZF', 'OZF_INVALID_DISTRIBUTION');
1419: fnd_msg_pub.ADD;
1420: RAISE fnd_api.g_exc_error;
1421: END IF;
1422: ELSIF l_lumpsum_offer.distribution_type = '%' THEN
1423: IF l_total_distribution <> 100 THEN
1424: fnd_message.set_name ('OZF', 'OZF_INVALID_DISTR_ACTIVE');
1422: ELSIF l_lumpsum_offer.distribution_type = '%' THEN
1423: IF l_total_distribution <> 100 THEN
1424: fnd_message.set_name ('OZF', 'OZF_INVALID_DISTR_ACTIVE');
1425: fnd_msg_pub.ADD;
1426: RAISE fnd_api.g_exc_error;
1427: ELSIF l_total_distribution > 100 THEN
1428: fnd_message.set_name ('OZF', 'OZF_INVALID_DISTRIBUTION');
1429: fnd_msg_pub.ADD;
1430: RAISE fnd_api.g_exc_error;
1426: RAISE fnd_api.g_exc_error;
1427: ELSIF l_total_distribution > 100 THEN
1428: fnd_message.set_name ('OZF', 'OZF_INVALID_DISTRIBUTION');
1429: fnd_msg_pub.ADD;
1430: RAISE fnd_api.g_exc_error;
1431: END IF;
1432: END IF;
1433: EXCEPTION
1434: WHEN fnd_api.g_exc_error THEN
1430: RAISE fnd_api.g_exc_error;
1431: END IF;
1432: END IF;
1433: EXCEPTION
1434: WHEN fnd_api.g_exc_error THEN
1435: x_return_status := fnd_api.g_ret_sts_error;
1436: WHEN OTHERS THEN
1437: x_return_status := fnd_api.g_ret_sts_unexp_error;
1438:
1431: END IF;
1432: END IF;
1433: EXCEPTION
1434: WHEN fnd_api.g_exc_error THEN
1435: x_return_status := fnd_api.g_ret_sts_error;
1436: WHEN OTHERS THEN
1437: x_return_status := fnd_api.g_ret_sts_unexp_error;
1438:
1439: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1433: EXCEPTION
1434: WHEN fnd_api.g_exc_error THEN
1435: x_return_status := fnd_api.g_ret_sts_error;
1436: WHEN OTHERS THEN
1437: x_return_status := fnd_api.g_ret_sts_unexp_error;
1438:
1439: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1440: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1441: END IF;
1482: x_denominator => x_denominator,
1483: x_numerator => x_numerator,
1484: x_rate => x_rate );
1485:
1486: x_return_status := fnd_api.g_ret_sts_success;
1487:
1488: EXCEPTION
1489: WHEN OTHERS THEN
1490: IF SQLCODE=1 THEN
1490: IF SQLCODE=1 THEN
1491: x_denominator := 1.0;
1492: x_numerator := 0.0;
1493: x_rate := 1.0;
1494: x_return_status := FND_API.g_ret_sts_success;
1495: END IF;
1496: END get_exchange_rate;
1497:
1498:
1542: l_api_version NUMBER := 1;
1543: l_budget_request_rec ozf_actbudgets_pvt.act_budgets_rec_type := NULL;
1544:
1545: BEGIN
1546: x_return_status := fnd_api.g_ret_sts_success;
1547: IF G_DEBUG THEN
1548: ozf_utility_pvt.debug_message(l_full_name||' : '||'begin' || ' p_act_budgets_rec.transfer_type: ' || p_act_budgets_rec.transfer_type);
1549: END IF;
1550: --dbms_output.put_line(l_full_name||' : '||'begin');
1583:
1584:
1585: ozf_actbudgets_pvt.create_Act_Budgets (
1586: p_api_version => 1.0,
1587: p_init_msg_list => Fnd_Api.G_FALSE,
1588: p_commit => Fnd_Api.G_FALSE,
1589: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
1590: x_return_status => x_return_status,
1591: x_msg_count => x_msg_count,
1584:
1585: ozf_actbudgets_pvt.create_Act_Budgets (
1586: p_api_version => 1.0,
1587: p_init_msg_list => Fnd_Api.G_FALSE,
1588: p_commit => Fnd_Api.G_FALSE,
1589: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
1590: x_return_status => x_return_status,
1591: x_msg_count => x_msg_count,
1592: x_msg_data => x_msg_data,
1585: ozf_actbudgets_pvt.create_Act_Budgets (
1586: p_api_version => 1.0,
1587: p_init_msg_list => Fnd_Api.G_FALSE,
1588: p_commit => Fnd_Api.G_FALSE,
1589: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
1590: x_return_status => x_return_status,
1591: x_msg_count => x_msg_count,
1592: x_msg_data => x_msg_data,
1593: p_act_Budgets_rec => l_budget_request_rec,
1591: x_msg_count => x_msg_count,
1592: x_msg_data => x_msg_data,
1593: p_act_Budgets_rec => l_budget_request_rec,
1594: p_act_util_rec => ozf_actbudgets_pvt.G_MISS_ACT_UTIL_REC,
1595: p_approval_flag => fnd_api.g_true, -- auto approved
1596: x_act_budget_id => l_act_budget_id);
1597: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1598: RAISE fnd_api.g_exc_unexpected_error;
1599: END IF;
1593: p_act_Budgets_rec => l_budget_request_rec,
1594: p_act_util_rec => ozf_actbudgets_pvt.G_MISS_ACT_UTIL_REC,
1595: p_approval_flag => fnd_api.g_true, -- auto approved
1596: x_act_budget_id => l_act_budget_id);
1597: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1598: RAISE fnd_api.g_exc_unexpected_error;
1599: END IF;
1600:
1601: END IF; -- price list
1594: p_act_util_rec => ozf_actbudgets_pvt.G_MISS_ACT_UTIL_REC,
1595: p_approval_flag => fnd_api.g_true, -- auto approved
1596: x_act_budget_id => l_act_budget_id);
1597: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1598: RAISE fnd_api.g_exc_unexpected_error;
1599: END IF;
1600:
1601: END IF; -- price list
1602: -- yzhao: 10/21/2003 ENDS for third party accrual price list, create an approved budget request when accrual happens
1635: ozf_utility_pvt.debug_message(l_full_name||' : '||'create act budget retrun status'||x_return_status);
1636: END IF;
1637: --dbms_output.put_line(l_full_name||' : '||'create act budget retrun status'||l_return_status);
1638:
1639: IF x_return_status = fnd_api.g_ret_sts_error THEN
1640: RAISE fnd_api.g_exc_error;
1641: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
1642: RAISE fnd_api.g_exc_unexpected_error;
1643: END IF;
1636: END IF;
1637: --dbms_output.put_line(l_full_name||' : '||'create act budget retrun status'||l_return_status);
1638:
1639: IF x_return_status = fnd_api.g_ret_sts_error THEN
1640: RAISE fnd_api.g_exc_error;
1641: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
1642: RAISE fnd_api.g_exc_unexpected_error;
1643: END IF;
1644: ELSE
1637: --dbms_output.put_line(l_full_name||' : '||'create act budget retrun status'||l_return_status);
1638:
1639: IF x_return_status = fnd_api.g_ret_sts_error THEN
1640: RAISE fnd_api.g_exc_error;
1641: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
1642: RAISE fnd_api.g_exc_unexpected_error;
1643: END IF;
1644: ELSE
1645: --dbms_output.put_line(l_full_name||' : '||'l_Activity_budget_id in update'||l_Activity_id);
1638:
1639: IF x_return_status = fnd_api.g_ret_sts_error THEN
1640: RAISE fnd_api.g_exc_error;
1641: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
1642: RAISE fnd_api.g_exc_unexpected_error;
1643: END IF;
1644: ELSE
1645: --dbms_output.put_line(l_full_name||' : '||'l_Activity_budget_id in update'||l_Activity_id);
1646: --dbms_output.put_line(l_full_name||' : '||'l_old_approved_amount'||l_old_approved_amount);
1680:
1681: fnd_msg_pub.count_and_get (
1682: p_count=> x_msg_count,
1683: p_data=> x_msg_data,
1684: p_encoded=> fnd_api.g_false
1685: );
1686:
1687: IF x_return_status = fnd_api.g_ret_sts_error THEN
1688: RAISE fnd_api.g_exc_error;
1683: p_data=> x_msg_data,
1684: p_encoded=> fnd_api.g_false
1685: );
1686:
1687: IF x_return_status = fnd_api.g_ret_sts_error THEN
1688: RAISE fnd_api.g_exc_error;
1689: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
1690: RAISE fnd_api.g_exc_unexpected_error;
1691: END IF;
1684: p_encoded=> fnd_api.g_false
1685: );
1686:
1687: IF x_return_status = fnd_api.g_ret_sts_error THEN
1688: RAISE fnd_api.g_exc_error;
1689: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
1690: RAISE fnd_api.g_exc_unexpected_error;
1691: END IF;
1692:
1685: );
1686:
1687: IF x_return_status = fnd_api.g_ret_sts_error THEN
1688: RAISE fnd_api.g_exc_error;
1689: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
1690: RAISE fnd_api.g_exc_unexpected_error;
1691: END IF;
1692:
1693: EXCEPTION
1686:
1687: IF x_return_status = fnd_api.g_ret_sts_error THEN
1688: RAISE fnd_api.g_exc_error;
1689: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
1690: RAISE fnd_api.g_exc_unexpected_error;
1691: END IF;
1692:
1693: EXCEPTION
1694: WHEN fnd_api.g_exc_error THEN
1690: RAISE fnd_api.g_exc_unexpected_error;
1691: END IF;
1692:
1693: EXCEPTION
1694: WHEN fnd_api.g_exc_error THEN
1695: x_return_status := fnd_api.g_ret_sts_error;
1696: fnd_msg_pub.count_and_get (
1697: p_count=> x_msg_count,
1698: p_data=> x_msg_data,
1691: END IF;
1692:
1693: EXCEPTION
1694: WHEN fnd_api.g_exc_error THEN
1695: x_return_status := fnd_api.g_ret_sts_error;
1696: fnd_msg_pub.count_and_get (
1697: p_count=> x_msg_count,
1698: p_data=> x_msg_data,
1699: p_encoded=> fnd_api.g_false
1695: x_return_status := fnd_api.g_ret_sts_error;
1696: fnd_msg_pub.count_and_get (
1697: p_count=> x_msg_count,
1698: p_data=> x_msg_data,
1699: p_encoded=> fnd_api.g_false
1700: );
1701: WHEN fnd_api.g_exc_unexpected_error THEN
1702: x_return_status := fnd_api.g_ret_sts_unexp_error;
1703: fnd_msg_pub.count_and_get (
1697: p_count=> x_msg_count,
1698: p_data=> x_msg_data,
1699: p_encoded=> fnd_api.g_false
1700: );
1701: WHEN fnd_api.g_exc_unexpected_error THEN
1702: x_return_status := fnd_api.g_ret_sts_unexp_error;
1703: fnd_msg_pub.count_and_get (
1704: p_count=> x_msg_count,
1705: p_data=> x_msg_data,
1698: p_data=> x_msg_data,
1699: p_encoded=> fnd_api.g_false
1700: );
1701: WHEN fnd_api.g_exc_unexpected_error THEN
1702: x_return_status := fnd_api.g_ret_sts_unexp_error;
1703: fnd_msg_pub.count_and_get (
1704: p_count=> x_msg_count,
1705: p_data=> x_msg_data,
1706: p_encoded=> fnd_api.g_false
1702: x_return_status := fnd_api.g_ret_sts_unexp_error;
1703: fnd_msg_pub.count_and_get (
1704: p_count=> x_msg_count,
1705: p_data=> x_msg_data,
1706: p_encoded=> fnd_api.g_false
1707: );
1708: WHEN OTHERS THEN
1709: x_return_status := fnd_api.g_ret_sts_unexp_error;
1710:
1705: p_data=> x_msg_data,
1706: p_encoded=> fnd_api.g_false
1707: );
1708: WHEN OTHERS THEN
1709: x_return_status := fnd_api.g_ret_sts_unexp_error;
1710:
1711: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1712: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1713: END IF;
1714:
1715: fnd_msg_pub.count_and_get (
1716: p_count=> x_msg_count,
1717: p_data=> x_msg_data,
1718: p_encoded=> fnd_api.g_false
1719: );
1720: END process_act_budgets;
1721:
1722:
1770:
1771: -- PARAMETERS
1772: -- p_offer_id
1773: -- ,p_api_version IN NUMBER
1774: -- ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1775: -- ,p_commit IN VARCHAR2 := fnd_api.g_false
1776: -- ,x_msg_count OUT NUMBER
1777: -- ,x_msg_data OUT VARCHAR2
1778: -- ,x_return_status OUT VARCHAR2)
1771: -- PARAMETERS
1772: -- p_offer_id
1773: -- ,p_api_version IN NUMBER
1774: -- ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1775: -- ,p_commit IN VARCHAR2 := fnd_api.g_false
1776: -- ,x_msg_count OUT NUMBER
1777: -- ,x_msg_data OUT VARCHAR2
1778: -- ,x_return_status OUT VARCHAR2)
1779:
1784:
1785: PROCEDURE post_scan_data_amount (
1786: p_offer_id IN NUMBER
1787: ,p_api_version IN NUMBER
1788: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1789: ,p_commit IN VARCHAR2 := fnd_api.g_false
1790: ,p_check_date IN VARCHAR2 := fnd_api.g_true -- do date validation
1791: ,x_msg_count OUT NOCOPY NUMBER
1792: ,x_msg_data OUT NOCOPY VARCHAR2
1785: PROCEDURE post_scan_data_amount (
1786: p_offer_id IN NUMBER
1787: ,p_api_version IN NUMBER
1788: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1789: ,p_commit IN VARCHAR2 := fnd_api.g_false
1790: ,p_check_date IN VARCHAR2 := fnd_api.g_true -- do date validation
1791: ,x_msg_count OUT NOCOPY NUMBER
1792: ,x_msg_data OUT NOCOPY VARCHAR2
1793: ,x_return_status OUT NOCOPY VARCHAR2
1786: p_offer_id IN NUMBER
1787: ,p_api_version IN NUMBER
1788: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1789: ,p_commit IN VARCHAR2 := fnd_api.g_false
1790: ,p_check_date IN VARCHAR2 := fnd_api.g_true -- do date validation
1791: ,x_msg_count OUT NOCOPY NUMBER
1792: ,x_msg_data OUT NOCOPY VARCHAR2
1793: ,x_return_status OUT NOCOPY VARCHAR2
1794: ) IS
1792: ,x_msg_data OUT NOCOPY VARCHAR2
1793: ,x_return_status OUT NOCOPY VARCHAR2
1794: ) IS
1795: l_api_version NUMBER := 1.0;
1796: l_return_status VARCHAR2 (1) := fnd_api.g_ret_sts_success;
1797: l_msg_data VARCHAR2 (2000);
1798: l_msg_count NUMBER;
1799: l_api_name VARCHAR2 (60) := 'post_scan_data_amount';
1800: l_full_name CONSTANT VARCHAR2 (90) := g_pkg_name
1932: SELECT exchange_rate_type
1933: FROM ozf_sys_parameters_all
1934: WHERE org_id = p_org_id;
1935:
1936: l_exchange_rate_type VARCHAR2(30) := FND_API.G_MISS_CHAR;
1937: l_rate NUMBER;
1938: l_offer_org_id NUMBER;
1939:
1940: BEGIN
1941: SAVEPOINT post_scan_data_amount;
1942: IF G_DEBUG THEN
1943: ozf_utility_pvt.debug_message ( l_full_name || ': start');
1944: END IF;
1945: x_return_status := fnd_api.g_ret_sts_success;
1946:
1947: IF fnd_api.to_boolean (p_init_msg_list) THEN
1948: fnd_msg_pub.initialize;
1949: END IF;
1943: ozf_utility_pvt.debug_message ( l_full_name || ': start');
1944: END IF;
1945: x_return_status := fnd_api.g_ret_sts_success;
1946:
1947: IF fnd_api.to_boolean (p_init_msg_list) THEN
1948: fnd_msg_pub.initialize;
1949: END IF;
1950:
1951: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1947: IF fnd_api.to_boolean (p_init_msg_list) THEN
1948: fnd_msg_pub.initialize;
1949: END IF;
1950:
1951: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1952: RAISE fnd_api.g_exc_unexpected_error;
1953: END IF;
1954:
1955: -- get total committed and utilized amount.
1948: fnd_msg_pub.initialize;
1949: END IF;
1950:
1951: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1952: RAISE fnd_api.g_exc_unexpected_error;
1953: END IF;
1954:
1955: -- get total committed and utilized amount.
1956: OPEN c_committed_budgets(p_offer_id);
1975: END IF;
1976:
1977:
1978: -- check wether date validation is reqd
1979: IF p_check_date = fnd_api.g_true THEN
1980: -- if the offer start date is today or has passed then only adjust
1981: IF TRUNC(l_offer_start_date) <= TRUNC(SYSDATE) THEN
1982: l_perform_util := 'T';
1983: ELSE
2039: ,x_to_amount=> l_converted_amt
2040: ,x_rate=> l_rate
2041: );
2042:
2043: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2044: x_return_status := fnd_api.g_ret_sts_error;
2045: RAISE fnd_api.g_exc_error;
2046: END IF;
2047: END IF;
2040: ,x_rate=> l_rate
2041: );
2042:
2043: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2044: x_return_status := fnd_api.g_ret_sts_error;
2045: RAISE fnd_api.g_exc_error;
2046: END IF;
2047: END IF;
2048:
2041: );
2042:
2043: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2044: x_return_status := fnd_api.g_ret_sts_error;
2045: RAISE fnd_api.g_exc_error;
2046: END IF;
2047: END IF;
2048:
2049: l_act_budgets_rec.request_amount := l_amount; -- in object currency.
2108: p_act_util_rec =>l_act_util_rec,
2109: x_act_budget_id => l_act_budget_id
2110: ) ;
2111:
2112: IF l_return_status = fnd_api.g_ret_sts_error THEN
2113: RAISE fnd_api.g_exc_error;
2114: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2115: RAISE fnd_api.g_exc_unexpected_error;
2116: END IF;
2109: x_act_budget_id => l_act_budget_id
2110: ) ;
2111:
2112: IF l_return_status = fnd_api.g_ret_sts_error THEN
2113: RAISE fnd_api.g_exc_error;
2114: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2115: RAISE fnd_api.g_exc_unexpected_error;
2116: END IF;
2117: END IF; -- for amount
2110: ) ;
2111:
2112: IF l_return_status = fnd_api.g_ret_sts_error THEN
2113: RAISE fnd_api.g_exc_error;
2114: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2115: RAISE fnd_api.g_exc_unexpected_error;
2116: END IF;
2117: END IF; -- for amount
2118:
2111:
2112: IF l_return_status = fnd_api.g_ret_sts_error THEN
2113: RAISE fnd_api.g_exc_error;
2114: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2115: RAISE fnd_api.g_exc_unexpected_error;
2116: END IF;
2117: END IF; -- for amount
2118:
2119: IF G_DEBUG THEN
2129: CLOSE c_off_products;
2130: END IF;
2131:
2132:
2133: IF fnd_api.to_boolean (p_commit)
2134: AND l_return_status = fnd_api.g_ret_sts_success THEN
2135: COMMIT;
2136: END IF;
2137:
2130: END IF;
2131:
2132:
2133: IF fnd_api.to_boolean (p_commit)
2134: AND l_return_status = fnd_api.g_ret_sts_success THEN
2135: COMMIT;
2136: END IF;
2137:
2138:
2136: END IF;
2137:
2138:
2139: fnd_msg_pub.count_and_get (
2140: p_encoded=> fnd_api.g_false
2141: ,p_count=> x_msg_count
2142: ,p_data=> x_msg_data
2143: );
2144: IF G_DEBUG THEN
2145: ozf_utility_pvt.debug_message ( l_full_name || ': end');
2146: END IF;
2147:
2148: EXCEPTION
2149: WHEN fnd_api.g_exc_error THEN
2150: ROLLBACK TO post_scan_data_amount;
2151: x_return_status := fnd_api.g_ret_sts_error;
2152: fnd_msg_pub.count_and_get (
2153: p_count=> x_msg_count
2147:
2148: EXCEPTION
2149: WHEN fnd_api.g_exc_error THEN
2150: ROLLBACK TO post_scan_data_amount;
2151: x_return_status := fnd_api.g_ret_sts_error;
2152: fnd_msg_pub.count_and_get (
2153: p_count=> x_msg_count
2154: ,p_data=> x_msg_data
2155: ,p_encoded=> fnd_api.g_false
2151: x_return_status := fnd_api.g_ret_sts_error;
2152: fnd_msg_pub.count_and_get (
2153: p_count=> x_msg_count
2154: ,p_data=> x_msg_data
2155: ,p_encoded=> fnd_api.g_false
2156: );
2157: WHEN fnd_api.g_exc_unexpected_error THEN
2158: ROLLBACK TO post_scan_data_amount;
2159: x_return_status := fnd_api.g_ret_sts_unexp_error;
2153: p_count=> x_msg_count
2154: ,p_data=> x_msg_data
2155: ,p_encoded=> fnd_api.g_false
2156: );
2157: WHEN fnd_api.g_exc_unexpected_error THEN
2158: ROLLBACK TO post_scan_data_amount;
2159: x_return_status := fnd_api.g_ret_sts_unexp_error;
2160: fnd_msg_pub.count_and_get (
2161: p_count=> x_msg_count
2155: ,p_encoded=> fnd_api.g_false
2156: );
2157: WHEN fnd_api.g_exc_unexpected_error THEN
2158: ROLLBACK TO post_scan_data_amount;
2159: x_return_status := fnd_api.g_ret_sts_unexp_error;
2160: fnd_msg_pub.count_and_get (
2161: p_count=> x_msg_count
2162: ,p_data=> x_msg_data
2163: ,p_encoded=> fnd_api.g_false
2159: x_return_status := fnd_api.g_ret_sts_unexp_error;
2160: fnd_msg_pub.count_and_get (
2161: p_count=> x_msg_count
2162: ,p_data=> x_msg_data
2163: ,p_encoded=> fnd_api.g_false
2164: );
2165: WHEN OTHERS THEN
2166: ROLLBACK TO post_scan_data_amount;
2167: x_return_status := fnd_api.g_ret_sts_unexp_error;
2163: ,p_encoded=> fnd_api.g_false
2164: );
2165: WHEN OTHERS THEN
2166: ROLLBACK TO post_scan_data_amount;
2167: x_return_status := fnd_api.g_ret_sts_unexp_error;
2168:
2169: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2170: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2171: END IF;
2172:
2173: fnd_msg_pub.count_and_get (
2174: p_count=> x_msg_count
2175: ,p_data=> x_msg_data
2176: ,p_encoded=> fnd_api.g_false
2177: );
2178: END Post_scan_data_amount;
2179:
2180:
2188:
2189: -- PARAMETERS
2190: -- p_offer_id
2191: -- ,p_api_version IN NUMBER
2192: -- ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2193: -- ,p_commit IN VARCHAR2 := fnd_api.g_false
2194: -- ,x_msg_count OUT NUMBER
2195: -- ,x_msg_data OUT VARCHAR2
2196: -- ,x_return_status OUT VARCHAR2)
2189: -- PARAMETERS
2190: -- p_offer_id
2191: -- ,p_api_version IN NUMBER
2192: -- ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2193: -- ,p_commit IN VARCHAR2 := fnd_api.g_false
2194: -- ,x_msg_count OUT NUMBER
2195: -- ,x_msg_data OUT VARCHAR2
2196: -- ,x_return_status OUT VARCHAR2)
2197:
2203:
2204: PROCEDURE post_lumpsum_amount (
2205: p_offer_id IN NUMBER
2206: ,p_api_version IN NUMBER
2207: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2208: ,p_commit IN VARCHAR2 := fnd_api.g_false
2209: ,p_check_date IN VARCHAR2 := fnd_api.g_true -- do date validation
2210: ,x_msg_count OUT NOCOPY NUMBER
2211: ,x_msg_data OUT NOCOPY VARCHAR2
2204: PROCEDURE post_lumpsum_amount (
2205: p_offer_id IN NUMBER
2206: ,p_api_version IN NUMBER
2207: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2208: ,p_commit IN VARCHAR2 := fnd_api.g_false
2209: ,p_check_date IN VARCHAR2 := fnd_api.g_true -- do date validation
2210: ,x_msg_count OUT NOCOPY NUMBER
2211: ,x_msg_data OUT NOCOPY VARCHAR2
2212: ,x_return_status OUT NOCOPY VARCHAR2
2205: p_offer_id IN NUMBER
2206: ,p_api_version IN NUMBER
2207: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2208: ,p_commit IN VARCHAR2 := fnd_api.g_false
2209: ,p_check_date IN VARCHAR2 := fnd_api.g_true -- do date validation
2210: ,x_msg_count OUT NOCOPY NUMBER
2211: ,x_msg_data OUT NOCOPY VARCHAR2
2212: ,x_return_status OUT NOCOPY VARCHAR2
2213: ) IS
2210: ,x_msg_count OUT NOCOPY NUMBER
2211: ,x_msg_data OUT NOCOPY VARCHAR2
2212: ,x_return_status OUT NOCOPY VARCHAR2
2213: ) IS
2214: l_return_status VARCHAR2 (10) := fnd_api.g_ret_sts_success;
2215: l_api_name CONSTANT VARCHAR2 (30) := 'Posting_lumpsum_amount';
2216: l_api_version CONSTANT NUMBER := 1.0;
2217: l_full_name CONSTANT VARCHAR2 (90) := g_pkg_name
2218: || '.'
2372: SELECT exchange_rate_type
2373: FROM ozf_sys_parameters_all
2374: WHERE org_id = p_org_id;
2375:
2376: l_exchange_rate_type VARCHAR2(30) := FND_API.G_MISS_CHAR;
2377: l_rate NUMBER;
2378:
2379: l_count NUMBER;
2380: l_limit_row NUMBER := 100;
2392: SAVEPOINT Posting_lumpsum_amount;
2393: IF G_DEBUG THEN
2394: ozf_utility_pvt.debug_message ( l_full_name || ': start');
2395: END IF;
2396: x_return_status := fnd_api.g_ret_sts_success;
2397:
2398: IF fnd_api.to_boolean (p_init_msg_list) THEN
2399: fnd_msg_pub.initialize;
2400: END IF;
2394: ozf_utility_pvt.debug_message ( l_full_name || ': start');
2395: END IF;
2396: x_return_status := fnd_api.g_ret_sts_success;
2397:
2398: IF fnd_api.to_boolean (p_init_msg_list) THEN
2399: fnd_msg_pub.initialize;
2400: END IF;
2401:
2402: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2398: IF fnd_api.to_boolean (p_init_msg_list) THEN
2399: fnd_msg_pub.initialize;
2400: END IF;
2401:
2402: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2403: RAISE fnd_api.g_exc_unexpected_error;
2404: END IF;
2405:
2406: -- get total committed amount.
2399: fnd_msg_pub.initialize;
2400: END IF;
2401:
2402: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2403: RAISE fnd_api.g_exc_unexpected_error;
2404: END IF;
2405:
2406: -- get total committed amount.
2407: OPEN c_committed_budgets(p_offer_id);
2423: FETCH l_scatter_posting INTO l_spread_flag;
2424: CLOSE l_scatter_posting;
2425:
2426: -- check wether date validation is reqd
2427: IF p_check_date = fnd_api.g_true THEN
2428: -- if the offer start date is today or has passed then only adjust
2429: IF TRUNC(l_offer_start_date) <= TRUNC(SYSDATE) THEN
2430: l_perform_util := 'T';
2431: ELSE
2443: --IF l_spread_flag = 'N' THEN 08/11/03 commented by feliu to fix bug 3091395
2444: validate_lumpsum_offer (p_qp_list_header_id => p_offer_id, x_return_status => x_return_status);
2445: --END IF;
2446:
2447: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2448: x_return_status := fnd_api.g_ret_sts_error;
2449: RAISE fnd_api.g_exc_error;
2450: END IF;
2451:
2444: validate_lumpsum_offer (p_qp_list_header_id => p_offer_id, x_return_status => x_return_status);
2445: --END IF;
2446:
2447: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2448: x_return_status := fnd_api.g_ret_sts_error;
2449: RAISE fnd_api.g_exc_error;
2450: END IF;
2451:
2452: --nirprasa, bug 7505085, remove rounding for amounts in plan currency.
2445: --END IF;
2446:
2447: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2448: x_return_status := fnd_api.g_ret_sts_error;
2449: RAISE fnd_api.g_exc_error;
2450: END IF;
2451:
2452: --nirprasa, bug 7505085, remove rounding for amounts in plan currency.
2453: --check if start date reaches, if account closed, and if already posted.
2541: ,x_to_amount=> l_converted_amt
2542: ,x_rate=> l_rate
2543: );
2544:
2545: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2546: x_return_status := fnd_api.g_ret_sts_error;
2547: RAISE fnd_api.g_exc_error;
2548: END IF;
2549: END IF;
2542: ,x_rate=> l_rate
2543: );
2544:
2545: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2546: x_return_status := fnd_api.g_ret_sts_error;
2547: RAISE fnd_api.g_exc_error;
2548: END IF;
2549: END IF;
2550:
2543: );
2544:
2545: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2546: x_return_status := fnd_api.g_ret_sts_error;
2547: RAISE fnd_api.g_exc_error;
2548: END IF;
2549: END IF;
2550:
2551: IF l_converted_amt <> 0 THEN
2593: ozf_utility_pvt.debug_message ( l_full_name
2594: || ': end create act budgets ');
2595: END IF;
2596:
2597: IF l_return_status = fnd_api.g_ret_sts_error THEN
2598: RAISE fnd_api.g_exc_error;
2599: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2600: RAISE fnd_api.g_exc_unexpected_error;
2601: END IF;
2594: || ': end create act budgets ');
2595: END IF;
2596:
2597: IF l_return_status = fnd_api.g_ret_sts_error THEN
2598: RAISE fnd_api.g_exc_error;
2599: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2600: RAISE fnd_api.g_exc_unexpected_error;
2601: END IF;
2602: END IF; -- for util amount
2595: END IF;
2596:
2597: IF l_return_status = fnd_api.g_ret_sts_error THEN
2598: RAISE fnd_api.g_exc_error;
2599: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2600: RAISE fnd_api.g_exc_unexpected_error;
2601: END IF;
2602: END IF; -- for util amount
2603:
2596:
2597: IF l_return_status = fnd_api.g_ret_sts_error THEN
2598: RAISE fnd_api.g_exc_error;
2599: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2600: RAISE fnd_api.g_exc_unexpected_error;
2601: END IF;
2602: END IF; -- for util amount
2603:
2604: l_act_util_rec := NULL;
2611: CLOSE c_off_products;
2612: END IF;
2613:
2614: fnd_msg_pub.count_and_get (
2615: p_encoded=> fnd_api.g_false
2616: ,p_count=> x_msg_count
2617: ,p_data=> x_msg_data
2618: );
2619: IF G_DEBUG THEN
2619: IF G_DEBUG THEN
2620: ozf_utility_pvt.debug_message ( l_full_name || ': end');
2621: END IF;
2622: EXCEPTION
2623: WHEN fnd_api.g_exc_error THEN
2624: ROLLBACK TO Posting_lumpsum_amount;
2625: x_return_status := fnd_api.g_ret_sts_error;
2626: fnd_msg_pub.count_and_get (
2627: p_count=> x_msg_count
2621: END IF;
2622: EXCEPTION
2623: WHEN fnd_api.g_exc_error THEN
2624: ROLLBACK TO Posting_lumpsum_amount;
2625: x_return_status := fnd_api.g_ret_sts_error;
2626: fnd_msg_pub.count_and_get (
2627: p_count=> x_msg_count
2628: ,p_data=> x_msg_data
2629: ,p_encoded=> fnd_api.g_false
2625: x_return_status := fnd_api.g_ret_sts_error;
2626: fnd_msg_pub.count_and_get (
2627: p_count=> x_msg_count
2628: ,p_data=> x_msg_data
2629: ,p_encoded=> fnd_api.g_false
2630: );
2631: WHEN fnd_api.g_exc_unexpected_error THEN
2632: ROLLBACK TO Posting_lumpsum_amount;
2633: x_return_status := fnd_api.g_ret_sts_unexp_error;
2627: p_count=> x_msg_count
2628: ,p_data=> x_msg_data
2629: ,p_encoded=> fnd_api.g_false
2630: );
2631: WHEN fnd_api.g_exc_unexpected_error THEN
2632: ROLLBACK TO Posting_lumpsum_amount;
2633: x_return_status := fnd_api.g_ret_sts_unexp_error;
2634: fnd_msg_pub.count_and_get (
2635: p_count=> x_msg_count
2629: ,p_encoded=> fnd_api.g_false
2630: );
2631: WHEN fnd_api.g_exc_unexpected_error THEN
2632: ROLLBACK TO Posting_lumpsum_amount;
2633: x_return_status := fnd_api.g_ret_sts_unexp_error;
2634: fnd_msg_pub.count_and_get (
2635: p_count=> x_msg_count
2636: ,p_data=> x_msg_data
2637: ,p_encoded=> fnd_api.g_false
2633: x_return_status := fnd_api.g_ret_sts_unexp_error;
2634: fnd_msg_pub.count_and_get (
2635: p_count=> x_msg_count
2636: ,p_data=> x_msg_data
2637: ,p_encoded=> fnd_api.g_false
2638: );
2639: WHEN OTHERS THEN
2640: ROLLBACK TO Posting_lumpsum_amount;
2641: x_return_status := fnd_api.g_ret_sts_unexp_error;
2637: ,p_encoded=> fnd_api.g_false
2638: );
2639: WHEN OTHERS THEN
2640: ROLLBACK TO Posting_lumpsum_amount;
2641: x_return_status := fnd_api.g_ret_sts_unexp_error;
2642:
2643: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2644: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2645: END IF;
2646:
2647: fnd_msg_pub.count_and_get (
2648: p_count=> x_msg_count
2649: ,p_data=> x_msg_data
2650: ,p_encoded=> fnd_api.g_false
2651: );
2652: END post_lumpsum_amount;
2653: ---------------------------------------------------------------------
2654: -- PROCEDURE
2662: -- PARAMETERS
2663: -- p_offer_id
2664: -- p_offer_type
2665: -- ,p_api_version IN NUMBER
2666: -- ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2667: -- ,p_commit IN VARCHAR2 := fnd_api.g_false
2668: -- ,x_msg_count OUT NUMBER
2669: -- ,x_msg_data OUT VARCHAR2
2670: -- ,x_return_status OUT VARCHAR2)
2663: -- p_offer_id
2664: -- p_offer_type
2665: -- ,p_api_version IN NUMBER
2666: -- ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2667: -- ,p_commit IN VARCHAR2 := fnd_api.g_false
2668: -- ,x_msg_count OUT NUMBER
2669: -- ,x_msg_data OUT VARCHAR2
2670: -- ,x_return_status OUT VARCHAR2)
2671:
2676: PROCEDURE post_utilized_budget (
2677: p_offer_id IN NUMBER
2678: ,p_offer_type IN VARCHAR2
2679: ,p_api_version IN NUMBER
2680: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2681: ,p_commit IN VARCHAR2 := fnd_api.g_false
2682: ,p_check_date IN VARCHAR2 := fnd_api.g_true -- do date validation
2683: ,x_msg_count OUT NOCOPY NUMBER
2684: ,x_msg_data OUT NOCOPY VARCHAR2
2677: p_offer_id IN NUMBER
2678: ,p_offer_type IN VARCHAR2
2679: ,p_api_version IN NUMBER
2680: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2681: ,p_commit IN VARCHAR2 := fnd_api.g_false
2682: ,p_check_date IN VARCHAR2 := fnd_api.g_true -- do date validation
2683: ,x_msg_count OUT NOCOPY NUMBER
2684: ,x_msg_data OUT NOCOPY VARCHAR2
2685: ,x_return_status OUT NOCOPY VARCHAR2
2678: ,p_offer_type IN VARCHAR2
2679: ,p_api_version IN NUMBER
2680: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2681: ,p_commit IN VARCHAR2 := fnd_api.g_false
2682: ,p_check_date IN VARCHAR2 := fnd_api.g_true -- do date validation
2683: ,x_msg_count OUT NOCOPY NUMBER
2684: ,x_msg_data OUT NOCOPY VARCHAR2
2685: ,x_return_status OUT NOCOPY VARCHAR2
2686: ) IS
2684: ,x_msg_data OUT NOCOPY VARCHAR2
2685: ,x_return_status OUT NOCOPY VARCHAR2
2686: ) IS
2687: l_api_version NUMBER := 1.0;
2688: l_return_status VARCHAR2 (1) := fnd_api.g_ret_sts_success;
2689: l_msg_data VARCHAR2 (2000);
2690: l_msg_count NUMBER;
2691: l_api_name VARCHAR2 (60) := 'post_utilized_budget';
2692: l_full_name CONSTANT VARCHAR2 (90) := g_pkg_name
2703: SAVEPOINT post_utilized_budget;
2704: IF G_DEBUG THEN
2705: ozf_utility_pvt.debug_message (': begin ' || l_full_name);
2706: END IF;
2707: x_return_status := fnd_api.g_ret_sts_success;
2708:
2709: IF fnd_api.to_boolean (p_init_msg_list) THEN
2710: fnd_msg_pub.initialize;
2711: END IF;
2705: ozf_utility_pvt.debug_message (': begin ' || l_full_name);
2706: END IF;
2707: x_return_status := fnd_api.g_ret_sts_success;
2708:
2709: IF fnd_api.to_boolean (p_init_msg_list) THEN
2710: fnd_msg_pub.initialize;
2711: END IF;
2712:
2713: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2709: IF fnd_api.to_boolean (p_init_msg_list) THEN
2710: fnd_msg_pub.initialize;
2711: END IF;
2712:
2713: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2714: RAISE fnd_api.g_exc_unexpected_error;
2715: END IF;
2716:
2717: IF p_offer_type = 'SCAN_DATA' THEN
2710: fnd_msg_pub.initialize;
2711: END IF;
2712:
2713: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2714: RAISE fnd_api.g_exc_unexpected_error;
2715: END IF;
2716:
2717: IF p_offer_type = 'SCAN_DATA' THEN
2718: Post_scan_data_amount
2718: Post_scan_data_amount
2719: (
2720: p_offer_id => p_offer_id
2721: ,p_api_version => l_api_version
2722: ,p_init_msg_list => fnd_api.g_false
2723: ,p_commit => fnd_api.g_false
2724: ,p_check_date => p_check_date
2725: ,x_msg_count => l_msg_count
2726: ,x_msg_data => l_msg_data
2719: (
2720: p_offer_id => p_offer_id
2721: ,p_api_version => l_api_version
2722: ,p_init_msg_list => fnd_api.g_false
2723: ,p_commit => fnd_api.g_false
2724: ,p_check_date => p_check_date
2725: ,x_msg_count => l_msg_count
2726: ,x_msg_data => l_msg_data
2727: ,x_return_status => l_return_status
2735: post_sf_lumpsum_amount
2736: (
2737: p_offer_id => p_offer_id
2738: ,p_api_version => l_api_version
2739: ,p_init_msg_list => fnd_api.g_false
2740: ,p_commit => fnd_api.g_false
2741: ,p_validation_level => fnd_api.g_valid_level_full
2742: ,x_msg_count => l_msg_count
2743: ,x_msg_data => l_msg_data
2736: (
2737: p_offer_id => p_offer_id
2738: ,p_api_version => l_api_version
2739: ,p_init_msg_list => fnd_api.g_false
2740: ,p_commit => fnd_api.g_false
2741: ,p_validation_level => fnd_api.g_valid_level_full
2742: ,x_msg_count => l_msg_count
2743: ,x_msg_data => l_msg_data
2744: ,x_return_status => l_return_status
2737: p_offer_id => p_offer_id
2738: ,p_api_version => l_api_version
2739: ,p_init_msg_list => fnd_api.g_false
2740: ,p_commit => fnd_api.g_false
2741: ,p_validation_level => fnd_api.g_valid_level_full
2742: ,x_msg_count => l_msg_count
2743: ,x_msg_data => l_msg_data
2744: ,x_return_status => l_return_status
2745: );
2747: post_lumpsum_amount
2748: (
2749: p_offer_id => p_offer_id
2750: ,p_api_version => l_api_version
2751: ,p_init_msg_list => fnd_api.g_false
2752: ,p_commit => fnd_api.g_false
2753: ,p_check_date => p_check_date
2754: ,x_msg_count => l_msg_count
2755: ,x_msg_data => l_msg_data
2748: (
2749: p_offer_id => p_offer_id
2750: ,p_api_version => l_api_version
2751: ,p_init_msg_list => fnd_api.g_false
2752: ,p_commit => fnd_api.g_false
2753: ,p_check_date => p_check_date
2754: ,x_msg_count => l_msg_count
2755: ,x_msg_data => l_msg_data
2756: ,x_return_status => l_return_status
2758: END IF;
2759:
2760: END IF;
2761:
2762: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2763: x_return_status := fnd_api.g_ret_sts_error;
2764: RAISE fnd_api.g_exc_error;
2765: END IF;
2766:
2759:
2760: END IF;
2761:
2762: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2763: x_return_status := fnd_api.g_ret_sts_error;
2764: RAISE fnd_api.g_exc_error;
2765: END IF;
2766:
2767: fnd_msg_pub.count_and_get (
2760: END IF;
2761:
2762: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2763: x_return_status := fnd_api.g_ret_sts_error;
2764: RAISE fnd_api.g_exc_error;
2765: END IF;
2766:
2767: fnd_msg_pub.count_and_get (
2768: p_encoded=> fnd_api.g_false
2764: RAISE fnd_api.g_exc_error;
2765: END IF;
2766:
2767: fnd_msg_pub.count_and_get (
2768: p_encoded=> fnd_api.g_false
2769: ,p_count=> x_msg_count
2770: ,p_data=> x_msg_data
2771: );
2772:
2773: IF G_DEBUG THEN
2774: ozf_utility_pvt.debug_message ( l_full_name || ': end');
2775: END IF;
2776: EXCEPTION
2777: WHEN fnd_api.g_exc_error THEN
2778: ROLLBACK TO post_utilized_budget;
2779: x_return_status := fnd_api.g_ret_sts_error;
2780: fnd_msg_pub.count_and_get (
2781: p_count=> x_msg_count
2775: END IF;
2776: EXCEPTION
2777: WHEN fnd_api.g_exc_error THEN
2778: ROLLBACK TO post_utilized_budget;
2779: x_return_status := fnd_api.g_ret_sts_error;
2780: fnd_msg_pub.count_and_get (
2781: p_count=> x_msg_count
2782: ,p_data=> x_msg_data
2783: ,p_encoded=> fnd_api.g_false
2779: x_return_status := fnd_api.g_ret_sts_error;
2780: fnd_msg_pub.count_and_get (
2781: p_count=> x_msg_count
2782: ,p_data=> x_msg_data
2783: ,p_encoded=> fnd_api.g_false
2784: );
2785: WHEN fnd_api.g_exc_unexpected_error THEN
2786: ROLLBACK TO post_utilized_budget;
2787: x_return_status := fnd_api.g_ret_sts_unexp_error;
2781: p_count=> x_msg_count
2782: ,p_data=> x_msg_data
2783: ,p_encoded=> fnd_api.g_false
2784: );
2785: WHEN fnd_api.g_exc_unexpected_error THEN
2786: ROLLBACK TO post_utilized_budget;
2787: x_return_status := fnd_api.g_ret_sts_unexp_error;
2788: fnd_msg_pub.count_and_get (
2789: p_count=> x_msg_count
2783: ,p_encoded=> fnd_api.g_false
2784: );
2785: WHEN fnd_api.g_exc_unexpected_error THEN
2786: ROLLBACK TO post_utilized_budget;
2787: x_return_status := fnd_api.g_ret_sts_unexp_error;
2788: fnd_msg_pub.count_and_get (
2789: p_count=> x_msg_count
2790: ,p_data=> x_msg_data
2791: ,p_encoded=> fnd_api.g_false
2787: x_return_status := fnd_api.g_ret_sts_unexp_error;
2788: fnd_msg_pub.count_and_get (
2789: p_count=> x_msg_count
2790: ,p_data=> x_msg_data
2791: ,p_encoded=> fnd_api.g_false
2792: );
2793: WHEN OTHERS THEN
2794: ROLLBACK TO post_utilized_budget;
2795: x_return_status := fnd_api.g_ret_sts_unexp_error;
2791: ,p_encoded=> fnd_api.g_false
2792: );
2793: WHEN OTHERS THEN
2794: ROLLBACK TO post_utilized_budget;
2795: x_return_status := fnd_api.g_ret_sts_unexp_error;
2796:
2797: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2798: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2799: END IF;
2800:
2801: fnd_msg_pub.count_and_get (
2802: p_count=> x_msg_count
2803: ,p_data=> x_msg_data
2804: ,p_encoded=> fnd_api.g_false
2805: );
2806:
2807: END post_utilized_budget;
2808:
2823: -- ,p_bill_to_cust_acct_id IN NUMBER
2824: -- ,p_bill_to_site_use_id IN NUMBER
2825: -- ,p_ship_to_site_use_id IN NUMBER
2826: -- ,p_api_version IN NUMBER
2827: -- ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2828: -- ,p_commit IN VARCHAR2 := fnd_api.g_false
2829: -- ,x_msg_count OUT NUMBER
2830: -- ,x_msg_data OUT VARCHAR2
2831: -- ,x_return_status OUT VARCHAR2)
2824: -- ,p_bill_to_site_use_id IN NUMBER
2825: -- ,p_ship_to_site_use_id IN NUMBER
2826: -- ,p_api_version IN NUMBER
2827: -- ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2828: -- ,p_commit IN VARCHAR2 := fnd_api.g_false
2829: -- ,x_msg_count OUT NUMBER
2830: -- ,x_msg_data OUT VARCHAR2
2831: -- ,x_return_status OUT VARCHAR2)
2832:
2846: ,p_bill_to_cust_acct_id IN NUMBER
2847: ,p_bill_to_site_use_id IN NUMBER
2848: ,p_ship_to_site_use_id IN NUMBER
2849: ,p_api_version IN NUMBER
2850: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2851: ,p_commit IN VARCHAR2 := fnd_api.g_false
2852: ,x_msg_count OUT NOCOPY NUMBER
2853: ,x_msg_data OUT NOCOPY VARCHAR2
2854: ,x_return_status OUT NOCOPY VARCHAR2
2847: ,p_bill_to_site_use_id IN NUMBER
2848: ,p_ship_to_site_use_id IN NUMBER
2849: ,p_api_version IN NUMBER
2850: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2851: ,p_commit IN VARCHAR2 := fnd_api.g_false
2852: ,x_msg_count OUT NOCOPY NUMBER
2853: ,x_msg_data OUT NOCOPY VARCHAR2
2854: ,x_return_status OUT NOCOPY VARCHAR2
2855: ) IS
2853: ,x_msg_data OUT NOCOPY VARCHAR2
2854: ,x_return_status OUT NOCOPY VARCHAR2
2855: ) IS
2856:
2857: l_return_status VARCHAR2 (10) := fnd_api.g_ret_sts_success;
2858: l_api_name CONSTANT VARCHAR2 (30) := 'adjust_utilized_budget';
2859: l_api_version CONSTANT NUMBER := 1.0;
2860: l_msg_data VARCHAR2 (2000);
2861: l_msg_count NUMBER;
2970: SAVEPOINT adjust_utilized_budget;
2971: IF G_DEBUG THEN
2972: ozf_utility_pvt.debug_message ( l_full_name || ': start');
2973: END IF;
2974: x_return_status := fnd_api.g_ret_sts_success;
2975:
2976: IF fnd_api.to_boolean (p_init_msg_list) THEN
2977: fnd_msg_pub.initialize;
2978: END IF;
2972: ozf_utility_pvt.debug_message ( l_full_name || ': start');
2973: END IF;
2974: x_return_status := fnd_api.g_ret_sts_success;
2975:
2976: IF fnd_api.to_boolean (p_init_msg_list) THEN
2977: fnd_msg_pub.initialize;
2978: END IF;
2979:
2980: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2976: IF fnd_api.to_boolean (p_init_msg_list) THEN
2977: fnd_msg_pub.initialize;
2978: END IF;
2979:
2980: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2981: RAISE fnd_api.g_exc_unexpected_error;
2982: END IF;
2983:
2984: -- get product information.
2977: fnd_msg_pub.initialize;
2978: END IF;
2979:
2980: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2981: RAISE fnd_api.g_exc_unexpected_error;
2982: END IF;
2983:
2984: -- get product information.
2985: OPEN c_off_products(p_product_activity_id);
3047: ,p_from_amount=> l_amount - l_committed_remaining
3048: ,x_to_amount=> l_converted_amt
3049: );
3050:
3051: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3052: x_return_status := fnd_api.g_ret_sts_error;
3053: RAISE fnd_api.g_exc_error;
3054: END IF;
3055: END IF; -- end for currency test.
3048: ,x_to_amount=> l_converted_amt
3049: );
3050:
3051: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3052: x_return_status := fnd_api.g_ret_sts_error;
3053: RAISE fnd_api.g_exc_error;
3054: END IF;
3055: END IF; -- end for currency test.
3056:
3049: );
3050:
3051: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3052: x_return_status := fnd_api.g_ret_sts_error;
3053: RAISE fnd_api.g_exc_error;
3054: END IF;
3055: END IF; -- end for currency test.
3056:
3057: --if budget has enough available, then select this budget as source.
3097: ,x_msg_data=> l_msg_data
3098: ,p_act_budgets_rec=> l_act_budgets_rec
3099: ,p_act_util_rec=> l_act_util_rec
3100: ,x_act_budget_id=> l_act_budget_id
3101: ,p_approval_flag=> fnd_api.g_true
3102: );
3103:
3104: IF NOT (l_return_status = fnd_api.g_ret_sts_success) THEN
3105: ROLLBACK TO recal_comm_fund_conc;
3100: ,x_act_budget_id=> l_act_budget_id
3101: ,p_approval_flag=> fnd_api.g_true
3102: );
3103:
3104: IF NOT (l_return_status = fnd_api.g_ret_sts_success) THEN
3105: ROLLBACK TO recal_comm_fund_conc;
3106: fnd_msg_pub.count_and_get (
3107: p_count=> x_msg_count
3108: ,p_data=> x_msg_data
3105: ROLLBACK TO recal_comm_fund_conc;
3106: fnd_msg_pub.count_and_get (
3107: p_count=> x_msg_count
3108: ,p_data=> x_msg_data
3109: ,p_encoded=> fnd_api.g_false
3110: );
3111: END IF;
3112:
3113: END IF ; -- end of committed remaining is less than required.
3132: ,p_from_amount=> l_amount
3133: ,x_to_amount=> l_converted_amt
3134: );
3135:
3136: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3137: x_return_status := fnd_api.g_ret_sts_error;
3138: RAISE fnd_api.g_exc_error;
3139: END IF;
3140: END IF;
3133: ,x_to_amount=> l_converted_amt
3134: );
3135:
3136: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3137: x_return_status := fnd_api.g_ret_sts_error;
3138: RAISE fnd_api.g_exc_error;
3139: END IF;
3140: END IF;
3141:
3134: );
3135:
3136: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3137: x_return_status := fnd_api.g_ret_sts_error;
3138: RAISE fnd_api.g_exc_error;
3139: END IF;
3140: END IF;
3141:
3142: --check against the converted amount but update the amount in parent currency
3209: p_act_util_rec =>l_act_util_rec,
3210: x_act_budget_id => l_act_budget_id
3211: ) ;
3212:
3213: IF l_return_status = fnd_api.g_ret_sts_error THEN
3214: RAISE fnd_api.g_exc_error;
3215: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3216: RAISE fnd_api.g_exc_unexpected_error;
3217: END IF;
3210: x_act_budget_id => l_act_budget_id
3211: ) ;
3212:
3213: IF l_return_status = fnd_api.g_ret_sts_error THEN
3214: RAISE fnd_api.g_exc_error;
3215: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3216: RAISE fnd_api.g_exc_unexpected_error;
3217: END IF;
3218: EXIT WHEN l_amount_remaining = 0;
3211: ) ;
3212:
3213: IF l_return_status = fnd_api.g_ret_sts_error THEN
3214: RAISE fnd_api.g_exc_error;
3215: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3216: RAISE fnd_api.g_exc_unexpected_error;
3217: END IF;
3218: EXIT WHEN l_amount_remaining = 0;
3219: END IF;
3212:
3213: IF l_return_status = fnd_api.g_ret_sts_error THEN
3214: RAISE fnd_api.g_exc_error;
3215: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3216: RAISE fnd_api.g_exc_unexpected_error;
3217: END IF;
3218: EXIT WHEN l_amount_remaining = 0;
3219: END IF;
3220: END LOOP;
3219: END IF;
3220: END LOOP;
3221:
3222: fnd_msg_pub.count_and_get (
3223: p_encoded=> fnd_api.g_false
3224: ,p_count=> x_msg_count
3225: ,p_data=> x_msg_data
3226: );
3227: IF G_DEBUG THEN
3228: ozf_utility_pvt.debug_message ( l_full_name
3229: || ': end');
3230: END IF;
3231: EXCEPTION
3232: WHEN fnd_api.g_exc_error THEN
3233: ROLLBACK TO adjust_utilized_budget;
3234: x_return_status := fnd_api.g_ret_sts_error;
3235: fnd_msg_pub.count_and_get (
3236: p_count=> x_msg_count
3230: END IF;
3231: EXCEPTION
3232: WHEN fnd_api.g_exc_error THEN
3233: ROLLBACK TO adjust_utilized_budget;
3234: x_return_status := fnd_api.g_ret_sts_error;
3235: fnd_msg_pub.count_and_get (
3236: p_count=> x_msg_count
3237: ,p_data=> x_msg_data
3238: ,p_encoded=> fnd_api.g_false
3234: x_return_status := fnd_api.g_ret_sts_error;
3235: fnd_msg_pub.count_and_get (
3236: p_count=> x_msg_count
3237: ,p_data=> x_msg_data
3238: ,p_encoded=> fnd_api.g_false
3239: );
3240: WHEN fnd_api.g_exc_unexpected_error THEN
3241: ROLLBACK TO adjust_utilized_budget;
3242: x_return_status := fnd_api.g_ret_sts_unexp_error;
3236: p_count=> x_msg_count
3237: ,p_data=> x_msg_data
3238: ,p_encoded=> fnd_api.g_false
3239: );
3240: WHEN fnd_api.g_exc_unexpected_error THEN
3241: ROLLBACK TO adjust_utilized_budget;
3242: x_return_status := fnd_api.g_ret_sts_unexp_error;
3243: fnd_msg_pub.count_and_get (
3244: p_count=> x_msg_count
3238: ,p_encoded=> fnd_api.g_false
3239: );
3240: WHEN fnd_api.g_exc_unexpected_error THEN
3241: ROLLBACK TO adjust_utilized_budget;
3242: x_return_status := fnd_api.g_ret_sts_unexp_error;
3243: fnd_msg_pub.count_and_get (
3244: p_count=> x_msg_count
3245: ,p_data=> x_msg_data
3246: ,p_encoded=> fnd_api.g_false
3242: x_return_status := fnd_api.g_ret_sts_unexp_error;
3243: fnd_msg_pub.count_and_get (
3244: p_count=> x_msg_count
3245: ,p_data=> x_msg_data
3246: ,p_encoded=> fnd_api.g_false
3247: );
3248: WHEN OTHERS THEN
3249: ROLLBACK TO adjust_utilized_budget;
3250: x_return_status := fnd_api.g_ret_sts_unexp_error;
3246: ,p_encoded=> fnd_api.g_false
3247: );
3248: WHEN OTHERS THEN
3249: ROLLBACK TO adjust_utilized_budget;
3250: x_return_status := fnd_api.g_ret_sts_unexp_error;
3251:
3252: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3253: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3254: END IF;
3255:
3256: fnd_msg_pub.count_and_get (
3257: p_count=> x_msg_count
3258: ,p_data=> x_msg_data
3259: ,p_encoded=> fnd_api.g_false
3260: );
3261:
3262: END adjust_utilized_budget;
3263:
3277: ,p_budget_used_by_id IN NUMBER
3278: ,p_budget_used_by_type IN VARCHAR2
3279: ,p_from_parent IN VARCHAR2
3280: ,p_api_version IN NUMBER
3281: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
3282: ,p_commit IN VARCHAR2 := fnd_api.g_false
3283: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
3284: ,x_return_status OUT NOCOPY VARCHAR2
3285: ,x_msg_count OUT NOCOPY NUMBER
3278: ,p_budget_used_by_type IN VARCHAR2
3279: ,p_from_parent IN VARCHAR2
3280: ,p_api_version IN NUMBER
3281: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
3282: ,p_commit IN VARCHAR2 := fnd_api.g_false
3283: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
3284: ,x_return_status OUT NOCOPY VARCHAR2
3285: ,x_msg_count OUT NOCOPY NUMBER
3286: ,x_msg_data OUT NOCOPY VARCHAR2
3279: ,p_from_parent IN VARCHAR2
3280: ,p_api_version IN NUMBER
3281: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
3282: ,p_commit IN VARCHAR2 := fnd_api.g_false
3283: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
3284: ,x_return_status OUT NOCOPY VARCHAR2
3285: ,x_msg_count OUT NOCOPY NUMBER
3286: ,x_msg_data OUT NOCOPY VARCHAR2
3287: ) IS
3298: SAVEPOINT update_budget_source;
3299: IF G_DEBUG THEN
3300: ozf_utility_pvt.debug_message (': begin ' || l_full_name);
3301: END IF;
3302: x_return_status := fnd_api.g_ret_sts_success;
3303:
3304: IF fnd_api.to_boolean (p_init_msg_list) THEN
3305: fnd_msg_pub.initialize;
3306: END IF;
3300: ozf_utility_pvt.debug_message (': begin ' || l_full_name);
3301: END IF;
3302: x_return_status := fnd_api.g_ret_sts_success;
3303:
3304: IF fnd_api.to_boolean (p_init_msg_list) THEN
3305: fnd_msg_pub.initialize;
3306: END IF;
3307:
3308: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
3304: IF fnd_api.to_boolean (p_init_msg_list) THEN
3305: fnd_msg_pub.initialize;
3306: END IF;
3307:
3308: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
3309: RAISE fnd_api.g_exc_unexpected_error;
3310: END IF;
3311:
3312: IF p_budget_used_by_type = 'CSCH' THEN
3305: fnd_msg_pub.initialize;
3306: END IF;
3307:
3308: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
3309: RAISE fnd_api.g_exc_unexpected_error;
3310: END IF;
3311:
3312: IF p_budget_used_by_type = 'CSCH' THEN
3313:
3323: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
3324: fnd_message.set_name ('OZF', 'OZF_API_RECORD_NOT_FOUND');
3325: fnd_msg_pub.ADD;
3326: END IF;
3327: RAISE fnd_api.g_exc_unexpected_error;
3328: END IF;
3329: ELSE
3330: UPDATE ams_event_offers_all_b
3331: SET source_from_parent = p_from_parent
3337: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
3338: fnd_message.set_name ('OZF', 'OZF_API_RECORD_NOT_FOUND');
3339: fnd_msg_pub.ADD;
3340: END IF;
3341: RAISE fnd_api.g_exc_unexpected_error;
3342: END IF;
3343: END IF;
3344:
3345: -- Standard check of p_commit.
3342: END IF;
3343: END IF;
3344:
3345: -- Standard check of p_commit.
3346: IF fnd_api.to_boolean (p_commit) THEN
3347: COMMIT WORK;
3348: END IF;
3349:
3350: fnd_msg_pub.count_and_get (
3347: COMMIT WORK;
3348: END IF;
3349:
3350: fnd_msg_pub.count_and_get (
3351: p_encoded=> fnd_api.g_false
3352: ,p_count=> x_msg_count
3353: ,p_data=> x_msg_data
3354: );
3355:
3356: IF G_DEBUG THEN
3357: ozf_utility_pvt.debug_message ( l_full_name || ': end');
3358: END IF;
3359: EXCEPTION
3360: WHEN fnd_api.g_exc_error THEN
3361: ROLLBACK TO update_budget_source;
3362: x_return_status := fnd_api.g_ret_sts_error;
3363: fnd_msg_pub.count_and_get (
3364: p_count=> x_msg_count
3358: END IF;
3359: EXCEPTION
3360: WHEN fnd_api.g_exc_error THEN
3361: ROLLBACK TO update_budget_source;
3362: x_return_status := fnd_api.g_ret_sts_error;
3363: fnd_msg_pub.count_and_get (
3364: p_count=> x_msg_count
3365: ,p_data=> x_msg_data
3366: ,p_encoded=> fnd_api.g_false
3362: x_return_status := fnd_api.g_ret_sts_error;
3363: fnd_msg_pub.count_and_get (
3364: p_count=> x_msg_count
3365: ,p_data=> x_msg_data
3366: ,p_encoded=> fnd_api.g_false
3367: );
3368: WHEN fnd_api.g_exc_unexpected_error THEN
3369: ROLLBACK TO update_budget_source;
3370: x_return_status := fnd_api.g_ret_sts_unexp_error;
3364: p_count=> x_msg_count
3365: ,p_data=> x_msg_data
3366: ,p_encoded=> fnd_api.g_false
3367: );
3368: WHEN fnd_api.g_exc_unexpected_error THEN
3369: ROLLBACK TO update_budget_source;
3370: x_return_status := fnd_api.g_ret_sts_unexp_error;
3371: fnd_msg_pub.count_and_get (
3372: p_count=> x_msg_count
3366: ,p_encoded=> fnd_api.g_false
3367: );
3368: WHEN fnd_api.g_exc_unexpected_error THEN
3369: ROLLBACK TO update_budget_source;
3370: x_return_status := fnd_api.g_ret_sts_unexp_error;
3371: fnd_msg_pub.count_and_get (
3372: p_count=> x_msg_count
3373: ,p_data=> x_msg_data
3374: ,p_encoded=> fnd_api.g_false
3370: x_return_status := fnd_api.g_ret_sts_unexp_error;
3371: fnd_msg_pub.count_and_get (
3372: p_count=> x_msg_count
3373: ,p_data=> x_msg_data
3374: ,p_encoded=> fnd_api.g_false
3375: );
3376: WHEN OTHERS THEN
3377: ROLLBACK TO update_budget_source;
3378: x_return_status := fnd_api.g_ret_sts_unexp_error;
3374: ,p_encoded=> fnd_api.g_false
3375: );
3376: WHEN OTHERS THEN
3377: ROLLBACK TO update_budget_source;
3378: x_return_status := fnd_api.g_ret_sts_unexp_error;
3379:
3380: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3381: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3382: END IF;
3383:
3384: fnd_msg_pub.count_and_get (
3385: p_count=> x_msg_count
3386: ,p_data=> x_msg_data
3387: ,p_encoded=> fnd_api.g_false
3388: );
3389: END update_budget_source;
3390:
3391:
3401:
3402: PROCEDURE post_sf_lumpsum_amount (
3403: p_offer_id IN NUMBER
3404: ,p_api_version IN NUMBER
3405: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
3406: ,p_commit IN VARCHAR2 := fnd_api.g_false
3407: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
3408: ,x_msg_count OUT NOCOPY NUMBER
3409: ,x_msg_data OUT NOCOPY VARCHAR2
3402: PROCEDURE post_sf_lumpsum_amount (
3403: p_offer_id IN NUMBER
3404: ,p_api_version IN NUMBER
3405: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
3406: ,p_commit IN VARCHAR2 := fnd_api.g_false
3407: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
3408: ,x_msg_count OUT NOCOPY NUMBER
3409: ,x_msg_data OUT NOCOPY VARCHAR2
3410: ,x_return_status OUT NOCOPY VARCHAR2
3403: p_offer_id IN NUMBER
3404: ,p_api_version IN NUMBER
3405: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
3406: ,p_commit IN VARCHAR2 := fnd_api.g_false
3407: ,p_validation_level IN NUMBER := fnd_api.g_valid_level_full
3408: ,x_msg_count OUT NOCOPY NUMBER
3409: ,x_msg_data OUT NOCOPY VARCHAR2
3410: ,x_return_status OUT NOCOPY VARCHAR2
3411: ) IS
3408: ,x_msg_count OUT NOCOPY NUMBER
3409: ,x_msg_data OUT NOCOPY VARCHAR2
3410: ,x_return_status OUT NOCOPY VARCHAR2
3411: ) IS
3412: l_return_status VARCHAR2 (10) := fnd_api.g_ret_sts_success;
3413: l_api_name CONSTANT VARCHAR2 (30) := 'post_sf_lumpsum_amount';
3414: l_api_version CONSTANT NUMBER := 1.0;
3415: l_full_name CONSTANT VARCHAR2 (90) := g_pkg_name
3416: || '.'
3517: SELECT exchange_rate_type
3518: FROM ozf_sys_parameters_all
3519: WHERE org_id = p_org_id;
3520:
3521: l_exchange_rate_type VARCHAR2(30) := FND_API.G_MISS_CHAR;
3522: l_rate NUMBER;
3523:
3524: BEGIN
3525: SAVEPOINT Posting_lumpsum_amount;
3525: SAVEPOINT Posting_lumpsum_amount;
3526: IF G_DEBUG THEN
3527: ozf_utility_pvt.debug_message ( l_full_name || ': start');
3528: END IF;
3529: x_return_status := fnd_api.g_ret_sts_success;
3530:
3531: IF fnd_api.to_boolean (p_init_msg_list) THEN
3532: fnd_msg_pub.initialize;
3533: END IF;
3527: ozf_utility_pvt.debug_message ( l_full_name || ': start');
3528: END IF;
3529: x_return_status := fnd_api.g_ret_sts_success;
3530:
3531: IF fnd_api.to_boolean (p_init_msg_list) THEN
3532: fnd_msg_pub.initialize;
3533: END IF;
3534:
3535: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
3531: IF fnd_api.to_boolean (p_init_msg_list) THEN
3532: fnd_msg_pub.initialize;
3533: END IF;
3534:
3535: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
3536: RAISE fnd_api.g_exc_unexpected_error;
3537: END IF;
3538:
3539: OPEN c_request_date(l_offer_id);
3532: fnd_msg_pub.initialize;
3533: END IF;
3534:
3535: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
3536: RAISE fnd_api.g_exc_unexpected_error;
3537: END IF;
3538:
3539: OPEN c_request_date(l_offer_id);
3540: FETCH c_request_date INTO l_req_header_id,l_currency_code,l_cust_acct_id,l_req_owner,l_offer_org_id;
3588: ,x_to_amount=> l_converted_amt
3589: ,x_rate=> l_rate
3590: );
3591:
3592: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3593: x_return_status := fnd_api.g_ret_sts_error;
3594: RAISE fnd_api.g_exc_error;
3595: END IF;
3596: END IF;
3589: ,x_rate=> l_rate
3590: );
3591:
3592: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3593: x_return_status := fnd_api.g_ret_sts_error;
3594: RAISE fnd_api.g_exc_error;
3595: END IF;
3596: END IF;
3597: IF G_DEBUG THEN
3590: );
3591:
3592: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3593: x_return_status := fnd_api.g_ret_sts_error;
3594: RAISE fnd_api.g_exc_error;
3595: END IF;
3596: END IF;
3597: IF G_DEBUG THEN
3598: ozf_utility_pvt.debug_message ( ': l_converted_amt ' || l_converted_amt);
3644: p_act_util_rec =>l_act_util_rec,
3645: x_act_budget_id => l_act_budget_id
3646: ) ;
3647:
3648: IF l_return_status = fnd_api.g_ret_sts_error THEN
3649: RAISE fnd_api.g_exc_error;
3650: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3651: RAISE fnd_api.g_exc_unexpected_error;
3652: END IF;
3645: x_act_budget_id => l_act_budget_id
3646: ) ;
3647:
3648: IF l_return_status = fnd_api.g_ret_sts_error THEN
3649: RAISE fnd_api.g_exc_error;
3650: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3651: RAISE fnd_api.g_exc_unexpected_error;
3652: END IF;
3653: END IF; -- for util amount
3646: ) ;
3647:
3648: IF l_return_status = fnd_api.g_ret_sts_error THEN
3649: RAISE fnd_api.g_exc_error;
3650: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3651: RAISE fnd_api.g_exc_unexpected_error;
3652: END IF;
3653: END IF; -- for util amount
3654:
3647:
3648: IF l_return_status = fnd_api.g_ret_sts_error THEN
3649: RAISE fnd_api.g_exc_error;
3650: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3651: RAISE fnd_api.g_exc_unexpected_error;
3652: END IF;
3653: END IF; -- for util amount
3654:
3655: IF G_DEBUG THEN
3665: CLOSE c_req_expense;
3666:
3667:
3668: fnd_msg_pub.count_and_get (
3669: p_encoded=> fnd_api.g_false
3670: ,p_count=> x_msg_count
3671: ,p_data=> x_msg_data
3672: );
3673: IF G_DEBUG THEN
3673: IF G_DEBUG THEN
3674: ozf_utility_pvt.debug_message ( l_full_name || ': end');
3675: END IF;
3676: EXCEPTION
3677: WHEN fnd_api.g_exc_error THEN
3678: ROLLBACK TO Posting_lumpsum_amount;
3679: x_return_status := fnd_api.g_ret_sts_error;
3680: fnd_msg_pub.count_and_get (
3681: p_count=> x_msg_count
3675: END IF;
3676: EXCEPTION
3677: WHEN fnd_api.g_exc_error THEN
3678: ROLLBACK TO Posting_lumpsum_amount;
3679: x_return_status := fnd_api.g_ret_sts_error;
3680: fnd_msg_pub.count_and_get (
3681: p_count=> x_msg_count
3682: ,p_data=> x_msg_data
3683: ,p_encoded=> fnd_api.g_false
3679: x_return_status := fnd_api.g_ret_sts_error;
3680: fnd_msg_pub.count_and_get (
3681: p_count=> x_msg_count
3682: ,p_data=> x_msg_data
3683: ,p_encoded=> fnd_api.g_false
3684: );
3685: WHEN fnd_api.g_exc_unexpected_error THEN
3686: ROLLBACK TO Posting_lumpsum_amount;
3687: x_return_status := fnd_api.g_ret_sts_unexp_error;
3681: p_count=> x_msg_count
3682: ,p_data=> x_msg_data
3683: ,p_encoded=> fnd_api.g_false
3684: );
3685: WHEN fnd_api.g_exc_unexpected_error THEN
3686: ROLLBACK TO Posting_lumpsum_amount;
3687: x_return_status := fnd_api.g_ret_sts_unexp_error;
3688: fnd_msg_pub.count_and_get (
3689: p_count=> x_msg_count
3683: ,p_encoded=> fnd_api.g_false
3684: );
3685: WHEN fnd_api.g_exc_unexpected_error THEN
3686: ROLLBACK TO Posting_lumpsum_amount;
3687: x_return_status := fnd_api.g_ret_sts_unexp_error;
3688: fnd_msg_pub.count_and_get (
3689: p_count=> x_msg_count
3690: ,p_data=> x_msg_data
3691: ,p_encoded=> fnd_api.g_false
3687: x_return_status := fnd_api.g_ret_sts_unexp_error;
3688: fnd_msg_pub.count_and_get (
3689: p_count=> x_msg_count
3690: ,p_data=> x_msg_data
3691: ,p_encoded=> fnd_api.g_false
3692: );
3693: WHEN OTHERS THEN
3694: ROLLBACK TO Posting_lumpsum_amount;
3695: x_return_status := fnd_api.g_ret_sts_unexp_error;
3691: ,p_encoded=> fnd_api.g_false
3692: );
3693: WHEN OTHERS THEN
3694: ROLLBACK TO Posting_lumpsum_amount;
3695: x_return_status := fnd_api.g_ret_sts_unexp_error;
3696:
3697: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3698: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3699: END IF;
3700:
3701: fnd_msg_pub.count_and_get (
3702: p_count=> x_msg_count
3703: ,p_data=> x_msg_data
3704: ,p_encoded=> fnd_api.g_false
3705: );
3706:
3707: END post_sf_lumpsum_amount;
3708:
3722:
3723: l_req_header_id NUMBER;
3724: l_obj_ver_num NUMBER;
3725: l_status_code VARCHAR2 (30);
3726: l_return_status VARCHAR2 (10) := fnd_api.g_ret_sts_success;
3727: l_api_name VARCHAR2 (60) := 'update_request_status';
3728: l_full_name VARCHAR2 (100) := g_pkg_name||'.'||l_api_name;
3729: l_api_version NUMBER := 1;
3730: BEGIN
3748:
3749: fnd_msg_pub.count_and_get (
3750: p_count=> x_msg_count,
3751: p_data=> x_msg_data,
3752: p_encoded=> fnd_api.g_false
3753: );
3754:
3755: EXCEPTION
3756: WHEN fnd_api.g_exc_error THEN
3752: p_encoded=> fnd_api.g_false
3753: );
3754:
3755: EXCEPTION
3756: WHEN fnd_api.g_exc_error THEN
3757: x_return_status := fnd_api.g_ret_sts_error;
3758: fnd_msg_pub.count_and_get (
3759: p_count=> x_msg_count,
3760: p_data=> x_msg_data,
3753: );
3754:
3755: EXCEPTION
3756: WHEN fnd_api.g_exc_error THEN
3757: x_return_status := fnd_api.g_ret_sts_error;
3758: fnd_msg_pub.count_and_get (
3759: p_count=> x_msg_count,
3760: p_data=> x_msg_data,
3761: p_encoded=> fnd_api.g_false
3757: x_return_status := fnd_api.g_ret_sts_error;
3758: fnd_msg_pub.count_and_get (
3759: p_count=> x_msg_count,
3760: p_data=> x_msg_data,
3761: p_encoded=> fnd_api.g_false
3762: );
3763: WHEN fnd_api.g_exc_unexpected_error THEN
3764: x_return_status := fnd_api.g_ret_sts_unexp_error;
3765: fnd_msg_pub.count_and_get (
3759: p_count=> x_msg_count,
3760: p_data=> x_msg_data,
3761: p_encoded=> fnd_api.g_false
3762: );
3763: WHEN fnd_api.g_exc_unexpected_error THEN
3764: x_return_status := fnd_api.g_ret_sts_unexp_error;
3765: fnd_msg_pub.count_and_get (
3766: p_count=> x_msg_count,
3767: p_data=> x_msg_data,
3760: p_data=> x_msg_data,
3761: p_encoded=> fnd_api.g_false
3762: );
3763: WHEN fnd_api.g_exc_unexpected_error THEN
3764: x_return_status := fnd_api.g_ret_sts_unexp_error;
3765: fnd_msg_pub.count_and_get (
3766: p_count=> x_msg_count,
3767: p_data=> x_msg_data,
3768: p_encoded=> fnd_api.g_false
3764: x_return_status := fnd_api.g_ret_sts_unexp_error;
3765: fnd_msg_pub.count_and_get (
3766: p_count=> x_msg_count,
3767: p_data=> x_msg_data,
3768: p_encoded=> fnd_api.g_false
3769: );
3770: WHEN OTHERS THEN
3771: x_return_status := fnd_api.g_ret_sts_unexp_error;
3772:
3767: p_data=> x_msg_data,
3768: p_encoded=> fnd_api.g_false
3769: );
3770: WHEN OTHERS THEN
3771: x_return_status := fnd_api.g_ret_sts_unexp_error;
3772:
3773: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3774: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3775: END IF;
3776:
3777: fnd_msg_pub.count_and_get (
3778: p_count=> x_msg_count,
3779: p_data=> x_msg_data,
3780: p_encoded=> fnd_api.g_false
3781: );
3782: END update_request_status;
3783:
3784: END ozf_fund_adjustment_pvt;