[Home] [Help]
318: l_uom Varchar2(30);
319: l_res_type_code Varchar2(30);
320: l_dummy_variable Varchar2(30);
321: BEGIN
322: -- FND_MSG_PUB.initialize; -- done in public pacakge
323: -- hr_utility.trace_on(NULL, 'RMDE');
324: -- hr_utility.trace('**** START ****');
325: -- hr_utility.trace('**** g_amg_flow IS ****' || g_amg_flow);
326: IF g_amg_flow = 'N' OR g_amg_flow IS NULL THEN
349: -- passing p_init_msg_list value explicitly 'T' and message stack will be intialized
350: -- for other flows the default value is 'F' and message stack wont be intialized
351:
352: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
353: FND_MSG_PUB.initialize;
354: END IF;
355:
356: -- bug#4350589 end
357:
1151: PA_PLANNING_RESOURCE_UTILS.Get_Plan_Res_Combination(
1152: P_Resource_List_Member_Id => P_Resource_List_Member_Id));
1153: END IF;
1154:
1155: FND_MSG_PUB.initialize;
1156: x_msg_count := 0;
1157: x_return_status := FND_API.G_RET_STS_SUCCESS;
1158: BEGIN
1159: SELECT object_type,object_id
1390: EXCEPTION
1391: WHEN NO_DATA_FOUND THEN
1392: l_exist_res_list := 'N';
1393: WHEN OTHERS THEN
1394: FND_MSG_PUB.add_exc_msg( p_pkg_name =>
1395: 'pa_planning_resource_pvt.delete_planning_resource'
1396: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
1397: l_msg_count := l_msg_count + 1;
1398: x_msg_count := l_msg_count;
1978:
1979:
1980: EXCEPTION
1981: WHEN l_exception THEN
1982: FND_MSG_PUB.add_exc_msg
1983: ( p_pkg_name => 'Pa_Planning_Resource_Pvt'
1984: ,p_procedure_name => 'Copy_Planning_Resources');
1985: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1986: END Copy_Planning_Resources;