111: l_control_rec.clear_api_requests:= TRUE;
112:
113: ELSE
114:
115: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
116: THEN
117: FND_MSG_PUB.Add_Exc_Msg
118: ( G_PKG_NAME
119: , 'Init_Control_Rec'
113: ELSE
114:
115: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
116: THEN
117: FND_MSG_PUB.Add_Exc_Msg
118: ( G_PKG_NAME
119: , 'Init_Control_Rec'
120: , 'Invalid operation'
121: );
283:
284: exception
285: when l_invalid_loc_control_exc then
286: fnd_message.set_name('INV','INV_INVALID_LOC_CONTROL');
287: fnd_msg_pub.add;
288:
289: x_return_status := fnd_api.g_ret_sts_error ;
290: l_locator_control := -1 ;
291: return l_locator_control ;
302:
303: when others then
304: x_return_status := fnd_api.g_ret_sts_unexp_error ;
305:
306: if (fnd_msg_pub.check_msg_level(
307: fnd_msg_pub.g_msg_lvl_unexp_error)) then
308: fnd_msg_pub.add_exc_msg(g_pkg_name, 'Locator_Control');
309: end if;
310:
303: when others then
304: x_return_status := fnd_api.g_ret_sts_unexp_error ;
305:
306: if (fnd_msg_pub.check_msg_level(
307: fnd_msg_pub.g_msg_lvl_unexp_error)) then
308: fnd_msg_pub.add_exc_msg(g_pkg_name, 'Locator_Control');
309: end if;
310:
311: l_locator_control := -1 ;
304: x_return_status := fnd_api.g_ret_sts_unexp_error ;
305:
306: if (fnd_msg_pub.check_msg_level(
307: fnd_msg_pub.g_msg_lvl_unexp_error)) then
308: fnd_msg_pub.add_exc_msg(g_pkg_name, 'Locator_Control');
309: end if;
310:
311: l_locator_control := -1 ;
312: return l_locator_control ;