[Home] [Help]
1: PACKAGE BODY Pa_Planning_Resource_Pvt AS
2: /* $Header: PAPRESVB.pls 120.6 2006/03/13 04:39:55 avaithia noship $*/
3:
4: /*************************************************************
5: * Function : Check_pl_alias_unique
373: IF g_amg_flow = 'N' OR g_amg_flow IS NULL THEN
374: g_token := g_token || p_resource_alias || ':';
375: END IF;
376:
377: IF pa_planning_resource_pvt.Check_pl_alias_unique(p_resource_list_id,
378: p_resource_alias,l_res_list_member_id,l_object_type,l_object_id) = 'N'
379: THEN
380: x_return_status := FND_API.G_RET_STS_ERROR;
381: x_msg_count := x_msg_count + 1;
1031: IF l_length > 77 THEN
1032: l_length := 77;
1033: END IF;
1034:
1035: IF pa_planning_resource_pvt.Check_pl_alias_unique(p_resource_list_id,
1036: l_resource_alias,l_res_list_member_id,l_object_type,l_object_id) = 'N'
1037: THEN
1038: l_num := 1;
1039: l_done := 'N';
1040: LOOP
1041: EXIT when l_done = 'Y';
1042: l_resource_alias :=
1043: substr(l_resource_alias, 1, l_length)|| l_num;
1044: IF pa_planning_resource_pvt.Check_pl_alias_unique(p_resource_list_id,
1045: l_resource_alias,l_res_list_member_id,l_object_type,l_object_id)= 'Y'
1046: THEN
1047: l_done := 'Y';
1048: END IF;
1168: END;
1169:
1170: /***************************************************
1171: * Check if Resource List member is Unique. Done by
1172: * Call to pa_planning_resource_pvt.Check_pl_alias_unique
1173: * If it returns a value that means it is not unique
1174: * Display an error and return.
1175: **************************************************/
1176:
1204: l_length := length(l_resource_alias);
1205: IF l_length > 77 THEN
1206: l_length := 77;
1207: END IF;
1208: IF pa_planning_resource_pvt.Check_pl_alias_unique(p_resource_list_id,
1209: l_resource_alias,p_resource_list_member_id,
1210: l_object_type,l_object_id) = 'N' THEN
1211: l_num := 1;
1212: l_done := 'N';
1213: LOOP
1214: EXIT when l_done = 'Y';
1215: l_resource_alias :=
1216: substr(l_resource_alias, 1, l_length)|| l_num;
1217: IF pa_planning_resource_pvt.Check_pl_alias_unique(
1218: p_resource_list_id, l_resource_alias,
1219: p_resource_list_member_id,l_object_type,l_object_id)= 'Y' THEN
1220: l_done := 'Y';
1221: END IF;
1227:
1228: ELSE
1229: l_resource_alias := p_resource_alias;
1230: ----hr_utility.trace('l_resource_alias is : ' || l_resource_alias);
1231: IF pa_planning_resource_pvt.Check_pl_alias_unique(
1232: p_resource_list_id => p_resource_list_id,
1233: p_resource_alias => l_resource_alias,
1234: p_resource_list_member_id => p_resource_list_member_id,
1235: p_object_type => l_object_type,
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;
1399: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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;
1987:
1986: END Copy_Planning_Resources;
1987:
1988: /******************************/
1989:
1990: END Pa_Planning_Resource_Pvt;
1991: /**************************/