[Home] [Help]
561: IF g_debug_flag = 'Y' THEN
562: ozf_utility_pvt.write_conc_log( l_full_name
563: || ': start');
564: END IF;
565: -- Standard Start of API savepoint
566: SAVEPOINT create_actbudgets_rec;
567:
568: -- Initialize API return status to success
569: x_return_status := fnd_api.g_ret_sts_success;
783: ozf_utility_pvt.write_conc_log( l_api_name
784: || ': insert complete' || l_act_budgets_rec.activity_budget_id);
785: END IF;
786:
787: -- Standard call to get message count AND IF count is 1, get message info.
788: fnd_msg_pub.count_and_get (
789: p_count=> x_msg_count,
790: p_data=> x_msg_data,
791: p_encoded=> fnd_api.g_false
2965: l_stmt VARCHAR2(3000);
2966:
2967: BEGIN
2968: SAVEPOINT adjust_accrual;
2969: -- Standard call to check for call compatibility.
2970: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2971: RAISE fnd_api.g_exc_unexpected_error;
2972: END IF;
2973: -- Initialize message list IF p_init_msg_list is set to TRUE.
4137: l_fulfillment_base VARCHAR2(1); -- Fix for Bug 16434010
4138:
4139: BEGIN
4140: SAVEPOINT adjust_changed_order;
4141: -- Standard call to check for call compatibility.
4142: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
4143: RAISE fnd_api.g_exc_unexpected_error;
4144: END IF;
4145: -- Initialize message list IF p_init_msg_list is set to TRUE.
4607: l_util_rec.price_adjustment_id := l_new_adj_id;
4608:
4609: IF l_util_rec.utilization_type = 'ADJUSTMENT' THEN
4610: l_util_rec.adjustment_type_id :=-5;
4611: l_util_rec.adjustment_type := 'STANDARD';
4612: END IF;
4613:
4614: create_fund_utilization (
4615: p_act_util_rec=> l_util_rec,
4955: END IF;
4956:
4957: END LOOP new_line_tbl_loop;
4958:
4959: -- Standard call to get message count and IF count is 1, get message info.
4960: fnd_msg_pub.count_and_get (
4961: p_count=> x_msg_count,
4962: p_data=> x_msg_data,
4963: p_encoded=> fnd_api.g_false
5071: l_old_lot_serial_tbl oe_order_pub.lot_serial_tbl_type;
5072: l_action_request_tbl oe_order_pub.request_tbl_type;
5073: l_que_msg_count NUMBER := 0 ;
5074: BEGIN
5075: -- Standard Start of process savepoint
5076: -- Start looping to check for messages in the queue
5077: fnd_msg_pub.initialize;
5078: g_debug_flag := p_debug ;
5079:
5081:
5082: <
5083:
5084: LOOP
5085: -- Queue savepoint for standard advanced queue error handling
5086: BEGIN
5087: SAVEPOINT get_message_loop_savepoint;
5088:
5089: ozf_utility_pvt.write_conc_log ('STARTING MESSAGE QUEUE');
5366: l_mode VARCHAR2(30):= DBMS_AQ.BROWSE;
5367: l_navigation VARCHAR2 (30) := DBMS_AQ.FIRST_MESSAGE;
5368:
5369: BEGIN
5370: -- Standard Start of process savepoint
5371: -- Start looping to check for messages in the queue
5372: fnd_msg_pub.initialize;
5373: SAVEPOINT get_message_savepoint;
5374: -- dequeue the exception queue
5375: <
5376: LOOP
5377: ozf_utility_pvt.write_conc_log ('In Queue Exception ');
5378:
5379: -- Queue savepoint for standard advanced queue error handling
5380: BEGIN
5381: SAVEPOINT get_excep_loop_savepoint;
5382: --
5383: -- Invoke Get_Mesage to dequeue queue payload and return Order data