DBA Data[Home] [Help]

APPS.PA_PLANNING_RESOURCE_PVT dependencies on FND_API

Line 221: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE, -- Added for bug#4350589

217: p_incur_by_res_code IN VARCHAR2 DEFAULT NULL,
218: p_incur_by_res_type IN VARCHAR2 DEFAULT NULL,
219: --Added this new parameter for project specific res.
220: p_project_id IN NUMBER DEFAULT NULL,
221: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE, -- Added for bug#4350589
222: x_resource_list_member_id OUT NOCOPY NUMBER ,
223: x_record_version_number OUT NOCOPY NUMBER ,
224: x_return_status OUT NOCOPY VARCHAR2,
225: x_msg_count OUT NOCOPY NUMBER ,

Line 346: x_return_status := FND_API.G_RET_STS_SUCCESS;

342: * and return, else continue with the validation.
343: * This If condn is only exec if the resource alias is not null.
344: *****************************************************/
345: x_msg_count := 0;
346: x_return_status := FND_API.G_RET_STS_SUCCESS;
347:
348: -- Added for bug#4350589, this procedure is directly getting called from AddSingleResourceVORowImpl
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

Line 352: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN

348: -- Added for bug#4350589, this procedure is directly getting called from AddSingleResourceVORowImpl
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

Line 380: x_return_status := FND_API.G_RET_STS_ERROR;

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;
382: x_error_msg_data := 'PA_RES_ALIAS_NOT_UNIQUE';
383: PA_UTILS.Add_Message ('PA', x_error_msg_data,
384: 'PLAN_RES', g_token);

Line 399: x_return_status := FND_API.G_RET_STS_ERROR;

395: THEN
396: OPEN get_class_details;
397: FETCH get_class_details INTO l_res_class_code;
398: IF get_class_details%NOTFOUND THEN
399: x_return_status := FND_API.G_RET_STS_ERROR;
400: x_msg_count := x_msg_count + 1;
401: x_error_msg_data := 'PA_RES_NO_CLASS_PROVIDED';
402: PA_UTILS.Add_Message ('PA', x_error_msg_data,
403: 'PLAN_RES', g_token);

Line 420: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

416: FROM pa_resource_classes_b
417: WHERE resource_class_code = l_res_class_code;
418: EXCEPTION
419: WHEN OTHERS THEN
420: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
421: x_msg_count := x_msg_count + 1;
422: Return;
423: END;
424: ELSE

Line 443: x_return_status := FND_API.G_RET_STS_ERROR;

439: AND resource_class_id = p_resource_class_id;
440:
441: EXCEPTION
442: WHEN OTHERS THEN
443: x_return_status := FND_API.G_RET_STS_ERROR;
444: x_msg_count := x_msg_count + 1;
445: x_error_msg_data := 'PA_RES_CLASS_INVALID';
446: PA_UTILS.Add_Message ('PA', x_error_msg_data,
447: 'PLAN_RES', g_token);

Line 464: x_return_status := FND_API.G_RET_STS_ERROR;

460: IF p_res_format_id IS NOT NULL THEN
461: OPEN get_fmt_details;
462: FETCH get_fmt_details into l_fmt_details;
463: IF get_fmt_details%NOTFOUND THEN
464: x_return_status := FND_API.G_RET_STS_ERROR;
465: x_error_msg_data := 'PA_PLN_RL_FORMAT_BAD_FMT_ID';
466: PA_UTILS.Add_Message ('PA', x_error_msg_data,
467: 'PLAN_RES', g_token);
468: x_record_version_number := null;

Line 484: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

480: IF l_fmt_details.res_type_enabled_flag = 'Y' THEN
481: OPEN get_res_type(l_fmt_details.res_type_id);
482: FETCH get_res_type INTO l_res_type;
483: IF get_res_type%NOTFOUND THEN
484: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
485: x_msg_count := x_msg_count + 1;
486: CLOSE get_res_type;
487: Return;
488: END IF;

Line 660: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN

656: /********************************************************
657: * If the Validate package errors out then throw an error and
658: * Return.
659: ********************************************************/
660: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
661: RETURN;
662: END IF;
663:
664: /******************************************************

Line 706: x_return_status := FND_API.G_RET_STS_ERROR;

702: p_err_stage => l_err_stage,
703: p_err_stack => l_err_stack );
704:
705: IF l_err_code <> 0 THEN
706: x_return_status := FND_API.G_RET_STS_ERROR;
707: x_msg_count := x_msg_count + 1;
708: x_error_msg_data := l_err_stage;
709: pa_utils.add_message('PA', l_err_stage);
710: RETURN;

Line 746: x_return_status := FND_API.G_RET_STS_ERROR;

742: p_err_stage => l_err_stage,
743: p_err_stack => l_err_stack);
744:
745: IF l_err_code <> 0 THEN
746: x_return_status := FND_API.G_RET_STS_ERROR;
747: x_msg_count := x_msg_count + 1;
748: x_error_msg_data := l_err_stage;
749: pa_utils.add_message('PA', l_err_stage);
750: RETURN;

Line 819: x_return_status := FND_API.G_RET_STS_ERROR;

815: END;
816:
817: IF l_unique_res_list = 'Y' THEN
818: x_msg_count := x_msg_count + 1;
819: x_return_status := FND_API.G_RET_STS_ERROR;
820: x_error_msg_data := 'PA_NOT_UNIQUE_RES_LIST_MEMBER';
821: -- FND_MESSAGE.SET_TOKEN('PLAN_RES', g_token);
822: PA_UTILS.Add_Message ('PA', x_error_msg_data, 'PLAN_RES', g_token);
823: -- PA_UTILS.Add_Message ('PA', x_error_msg_data);

Line 936: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN

932: x_msg_count => x_msg_count,
933: x_return_status => x_return_status ,
934: x_error_msg_data => x_error_msg_data );
935:
936: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
937: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
938: x_msg_count := x_msg_count + 1;
939: RETURN;
940: END IF;

Line 937: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

933: x_return_status => x_return_status ,
934: x_error_msg_data => x_error_msg_data );
935:
936: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
937: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
938: x_msg_count := x_msg_count + 1;
939: RETURN;
940: END IF;
941:

Line 1022: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

1018: X_Return_Status => l_return_status,
1019: X_Msg_Count => l_msg_count,
1020: X_Msg_Data => l_error_msg_data);
1021:
1022: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1023: -- PA_UTILS.Add_Message ('PA', l_error_msg_data);
1024: Return;
1025: END IF;
1026: /*****************************************************

Line 1051: -- x_return_status := FND_API.G_RET_STS_ERROR;

1047: l_done := 'Y';
1048: END IF;
1049: l_num := l_num + 1;
1050: END LOOP;
1051: -- x_return_status := FND_API.G_RET_STS_ERROR;
1052: -- x_msg_count := x_msg_count + 1;
1053: -- x_error_msg_data := 'PA_RES_ALIAS_NOT_UNIQUE';
1054: -- PA_UTILS.Add_Message ('PA', x_error_msg_data);
1055: -- Return;

Line 1064: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1060: SET alias = l_resource_alias
1061: WHERE resource_list_member_id = l_res_list_member_id;
1062: EXCEPTION
1063: WHEN OTHERS THEN
1064: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1065: x_msg_count := x_msg_count + 1;
1066: Return;
1067: END;
1068:

Line 1157: x_return_status := FND_API.G_RET_STS_SUCCESS;

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
1160: INTO l_object_type,l_object_id
1161: FROM pa_resource_list_members

Line 1165: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1161: FROM pa_resource_list_members
1162: WHERE resource_list_member_id = p_resource_list_member_id;
1163: EXCEPTION
1164: WHEN OTHERS THEN
1165: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1166: x_msg_count := x_msg_count + 1;
1167: RETURN;
1168: END;
1169:

Line 1183: --IF (p_resource_alias IS NULL OR p_resource_alias = FND_API.G_MISS_CHAR) THEN

1179: --
1180: ----hr_utility.trace_on(NULL, 'RMALIAS');
1181: ----hr_utility.trace('start - before alias check');
1182: ----hr_utility.trace('p_resource_alias is : ' || p_resource_alias);
1183: --IF (p_resource_alias IS NULL OR p_resource_alias = FND_API.G_MISS_CHAR) THEN
1184:
1185: IF p_resource_alias IS NULL THEN
1186: ----hr_utility.trace('p_resource_alias is NULL - derive');
1187: -- Derive the default alias and use that.

Line 1199: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN

1195: X_Return_Status => x_return_status,
1196: X_Msg_Count => x_msg_count,
1197: X_Msg_Data => x_error_msg_data);
1198:
1199: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1200: -- PA_UTILS.Add_Message ('PA', x_error_msg_data);
1201: Return;
1202: END IF;
1203:

Line 1238: x_return_status := FND_API.G_RET_STS_ERROR;

1234: p_resource_list_member_id => p_resource_list_member_id,
1235: p_object_type => l_object_type,
1236: p_object_id => l_object_id) = 'N'
1237: THEN
1238: x_return_status := FND_API.G_RET_STS_ERROR;
1239: x_error_msg_data := 'PA_RES_ALIAS_NOT_UNIQUE';
1240: PA_UTILS.Add_Message ('PA', x_error_msg_data, 'PLAN_RES', g_token);
1241: Return;
1242: END IF;

Line 1256: x_return_status := FND_API.G_RET_STS_ERROR;

1252: p_resource_list_member_id => p_resource_list_member_id);
1253:
1254: -- --hr_utility.trace('l_allowed is : ' || l_allowed);
1255: IF l_allowed = 'N' THEN
1256: x_return_status := FND_API.G_RET_STS_ERROR;
1257: x_error_msg_data := 'PA_ENABLE_NOT_ALLOWED';
1258: PA_UTILS.Add_Message ('PA', x_error_msg_data, 'PLAN_RES', g_token);
1259: -- --hr_utility.trace('x_error_msg_data is : ' || x_error_msg_data);
1260: Return;

Line 1316: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN

1312:
1313:
1314: x_record_version_number := p_record_version_number;
1315:
1316: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1317: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1318: x_msg_count := x_msg_count + 1;
1319: RETURN;
1320: END IF;

Line 1317: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1313:
1314: x_record_version_number := p_record_version_number;
1315:
1316: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1317: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1318: x_msg_count := x_msg_count + 1;
1319: RETURN;
1320: END IF;
1321:

Line 1353: x_return_status := FND_API.G_RET_STS_SUCCESS;

1349: g_token := g_token || PA_PLANNING_RESOURCE_UTILS.Get_Plan_Res_Combination(
1350: P_Resource_List_Member_Id => P_Resource_List_Member_Id);
1351: END IF;
1352:
1353: x_return_status := FND_API.G_RET_STS_SUCCESS;
1354: x_msg_count := 0;
1355:
1356: BEGIN
1357: SELECT resource_list_id, migration_code

Line 1399: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

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;
1400: END;
1401:
1402: IF l_exist_res_list = 'N' THEN
1403:

Line 1985: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

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:
1988: /******************************/
1989: