[Home] [Help]
462: IF g_debug_flag = 'Y' THEN
463: ozf_utility_pvt.write_conc_log( l_full_name
464: || ': start');
465: END IF;
466: -- Standard Start of API savepoint
467: SAVEPOINT create_actbudgets_rec;
468:
469: -- Initialize API return status to success
470: x_return_status := fnd_api.g_ret_sts_success;
632: ozf_utility_pvt.write_conc_log( l_api_name
633: || ': insert complete' || l_act_budgets_rec.activity_budget_id);
634: END IF;
635:
636: -- Standard call to get message count AND IF count is 1, get message info.
637: fnd_msg_pub.count_and_get (
638: p_count=> x_msg_count,
639: p_data=> x_msg_data,
640: p_encoded=> fnd_api.g_false
2427: WHERE org_id = p_org_id;
2428:
2429: BEGIN
2430: SAVEPOINT adjust_accrual;
2431: -- Standard call to check for call compatibility.
2432: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2433: RAISE fnd_api.g_exc_unexpected_error;
2434: END IF;
2435: -- Initialize message list IF p_init_msg_list is set to TRUE.
3219:
3220:
3221: BEGIN
3222: SAVEPOINT adjust_changed_order;
3223: -- Standard call to check for call compatibility.
3224: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
3225: RAISE fnd_api.g_exc_unexpected_error;
3226: END IF;
3227: -- Initialize message list IF p_init_msg_list is set to TRUE.
3613: l_util_rec.price_adjustment_id := l_new_adj_id;
3614:
3615: IF l_util_rec.utilization_type = 'ADJUSTMENT' THEN
3616: l_util_rec.adjustment_type_id :=-5;
3617: l_util_rec.adjustment_type := 'STANDARD';
3618: END IF;
3619:
3620: create_fund_utilization (
3621: p_act_util_rec=> l_util_rec,
3853: END IF;
3854:
3855: END LOOP new_line_tbl_loop;
3856:
3857: -- Standard call to get message count and IF count is 1, get message info.
3858: fnd_msg_pub.count_and_get (
3859: p_count=> x_msg_count,
3860: p_data=> x_msg_data,
3861: p_encoded=> fnd_api.g_false
3944: l_old_lot_serial_tbl oe_order_pub.lot_serial_tbl_type;
3945: l_action_request_tbl oe_order_pub.request_tbl_type;
3946: l_que_msg_count NUMBER := 0 ;
3947: BEGIN
3948: -- Standard Start of process savepoint
3949: -- Start looping to check for messages in the queue
3950: fnd_msg_pub.initialize;
3951: g_debug_flag := p_debug ;
3952:
3954:
3955: <
3956:
3957: LOOP
3958: -- Queue savepoint for standard advanced queue error handling
3959: BEGIN
3960: SAVEPOINT get_message_loop_savepoint;
3961:
3962: ozf_utility_pvt.write_conc_log ('STARTING MESSAGE QUEUE');
4238: l_mode VARCHAR2(30):= DBMS_AQ.BROWSE;
4239: l_navigation VARCHAR2 (30) := DBMS_AQ.FIRST_MESSAGE;
4240:
4241: BEGIN
4242: -- Standard Start of process savepoint
4243: -- Start looping to check for messages in the queue
4244: fnd_msg_pub.initialize;
4245: SAVEPOINT get_message_savepoint;
4246: -- dequeue the exception queue
4247: <
4248: LOOP
4249: ozf_utility_pvt.write_conc_log ('In Queue Exception ');
4250:
4251: -- Queue savepoint for standard advanced queue error handling
4252: BEGIN
4253: SAVEPOINT get_excep_loop_savepoint;
4254: --
4255: -- Invoke Get_Mesage to dequeue queue payload and return Order data