[Home] [Help]
1: PACKAGE BODY Pa_Planning_Resource_Pvt AS
2: /* $Header: PAPRESVB.pls 120.10.12020000.2 2012/08/27 15:01:28 pstawar ship $*/
3:
4: /*************************************************************
5: * Function : Check_pl_alias_unique
8: * While inserting when we call this function then if 'N'
9: * is returned then proceed else throw an error.
10: *************************************************************/
11: P_PA_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
12: g_module_name VARCHAR2(100) := 'pa.plsql.Pa_Planning_Resource_Pvt';
13: FUNCTION Check_pl_alias_unique(
14: p_resource_list_id IN VARCHAR2,
15: p_resource_alias IN VARCHAR2,
16: p_resource_list_member_id IN VARCHAR2,
389: IF g_amg_flow = 'N' OR g_amg_flow IS NULL THEN
390: g_token := g_token || p_resource_alias || ':';
391: END IF;
392:
393: IF pa_planning_resource_pvt.Check_pl_alias_unique(p_resource_list_id,
394: p_resource_alias,l_res_list_member_id,l_object_type,l_object_id) = 'N'
395: THEN
396: x_return_status := FND_API.G_RET_STS_ERROR;
397: x_msg_count := x_msg_count + 1;
1134: IF l_length > 77 THEN
1135: l_length := 77;
1136: END IF;
1137:
1138: IF pa_planning_resource_pvt.Check_pl_alias_unique(p_resource_list_id,
1139: l_resource_alias,l_res_list_member_id,l_object_type,l_object_id) = 'N'
1140: THEN
1141: l_num := 1;
1142: l_done := 'N';
1143: LOOP
1144: EXIT when l_done = 'Y';
1145: l_resource_alias :=
1146: substr(l_resource_alias, 1, l_length)|| l_num;
1147: IF pa_planning_resource_pvt.Check_pl_alias_unique(p_resource_list_id,
1148: l_resource_alias,l_res_list_member_id,l_object_type,l_object_id)= 'Y'
1149: THEN
1150: l_done := 'Y';
1151: END IF;
1275: END;
1276:
1277: /***************************************************
1278: * Check if Resource List member is Unique. Done by
1279: * Call to pa_planning_resource_pvt.Check_pl_alias_unique
1280: * If it returns a value that means it is not unique
1281: * Display an error and return.
1282: **************************************************/
1283:
1311: l_length := length(l_resource_alias);
1312: IF l_length > 77 THEN
1313: l_length := 77;
1314: END IF;
1315: IF pa_planning_resource_pvt.Check_pl_alias_unique(p_resource_list_id,
1316: l_resource_alias,p_resource_list_member_id,
1317: l_object_type,l_object_id) = 'N' THEN
1318: l_num := 1;
1319: l_done := 'N';
1320: LOOP
1321: EXIT when l_done = 'Y';
1322: l_resource_alias :=
1323: substr(l_resource_alias, 1, l_length)|| l_num;
1324: IF pa_planning_resource_pvt.Check_pl_alias_unique(
1325: p_resource_list_id, l_resource_alias,
1326: p_resource_list_member_id,l_object_type,l_object_id)= 'Y' THEN
1327: l_done := 'Y';
1328: END IF;
1334:
1335: ELSE
1336: l_resource_alias := p_resource_alias;
1337: ----hr_utility.trace('l_resource_alias is : ' || l_resource_alias);
1338: IF pa_planning_resource_pvt.Check_pl_alias_unique(
1339: p_resource_list_id => p_resource_list_id,
1340: p_resource_alias => l_resource_alias,
1341: p_resource_list_member_id => p_resource_list_member_id,
1342: p_object_type => l_object_type,
1499: WHEN NO_DATA_FOUND THEN
1500: l_exist_res_list := 'N';
1501: WHEN OTHERS THEN
1502: FND_MSG_PUB.add_exc_msg( p_pkg_name =>
1503: 'pa_planning_resource_pvt.delete_planning_resource'
1504: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
1505: l_msg_count := l_msg_count + 1;
1506: x_msg_count := l_msg_count;
1507: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2087:
2088: EXCEPTION
2089: WHEN l_exception THEN
2090: FND_MSG_PUB.add_exc_msg
2091: ( p_pkg_name => 'Pa_Planning_Resource_Pvt'
2092: ,p_procedure_name => 'Copy_Planning_Resources');
2093: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2094: END Copy_Planning_Resources;
2095:
2094: END Copy_Planning_Resources;
2095:
2096: /******************************/
2097:
2098: END Pa_Planning_Resource_Pvt;
2099: /**************************/