DBA Data[Home] [Help]

APPS.PA_PROJ_ELEMENTS_UTILS dependencies on FND_API

Line 164: <> FND_API.G_TRUE) THEN

160:
161: --check if user can edit
162: IF (PA_SECURITY_PVT.check_user_privilege('PA_PAXPREPR_OPT_WORKPLAN_STR', 'PA_PROJECTS', p_project_id
163: , 'N') -- Fix for Bug # 4319137.
164: <> FND_API.G_TRUE) THEN
165: IF p_element_id is NOT NULL THEN
166: IF (l_is_task_manager_flag = 'Y') THEN --bug 4239490 replaced the is_task_manager api call with the variable.
167: IF (PA_SECURITY_PVT.check_user_privilege('PA_TASKS_UPDATE_DETAILS', 'PA_PROJECTS', p_project_id
168: , 'N') -- Fix for Bug # 4319137.

Line 169: <> FND_API.G_TRUE) THEN

165: IF p_element_id is NOT NULL THEN
166: IF (l_is_task_manager_flag = 'Y') THEN --bug 4239490 replaced the is_task_manager api call with the variable.
167: IF (PA_SECURITY_PVT.check_user_privilege('PA_TASKS_UPDATE_DETAILS', 'PA_PROJECTS', p_project_id
168: , 'N') -- Fix for Bug # 4319137.
169: <> FND_API.G_TRUE) THEN
170: -- Bug 4533152
171: IF p_add_error_flag = 'Y' THEN
172: PA_UTILS.ADD_MESSAGE
173: (p_app_short_name => 'PA',

Line 449: x_return_status := FND_API.G_RET_STS_SUCCESS;

445: AND ppevs.element_version_id = c_struc_ver_id;*/
446: BEGIN
447:
448: x_msg_count := 0;
449: x_return_status := FND_API.G_RET_STS_SUCCESS;
450: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
451:
452:
453: IF l_debug_mode = 'Y' THEN

Line 551: x_return_status := FND_API.G_RET_STS_ERROR;

547: EXCEPTION
548:
549: WHEN Invalid_Arg_Exc_WP THEN
550:
551: x_return_status := FND_API.G_RET_STS_ERROR;
552: x_msg_count := FND_MSG_PUB.count_msg;
553:
554: -- 4537865 RESET OUT PARAMS
555: x_pev_structure_id := NULL ;

Line 562: (p_encoded => FND_API.G_TRUE

558: x_record_version_number := NULL ;
559:
560: IF x_msg_count = 1 and x_msg_data IS NULL THEN
561: PA_INTERFACE_UTILS_PUB.get_messages
562: (p_encoded => FND_API.G_TRUE
563: ,p_msg_index => 1
564: ,p_msg_count => x_msg_count
565: ,p_msg_data => x_msg_data
566: ,p_data => l_data, -- 4537865

Line 580: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

576:
577: RETURN;
578:
579: WHEN others THEN
580: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
581: x_msg_count := 1;
582: x_msg_data := SQLERRM;
583:
584: -- 4537865 RESET OUT PARAMS

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

891: -- fetch get_lock_user into l_dummy;
892: -- if get_lock_user%NOTFOUND then
893: -- --the structure version is locked by another user.
894: -- close get_lock_user;
895: -- x_return_status := FND_API.G_RET_STS_ERROR;
896: -- x_error_message_code := 'PA_PS_STRUC_VER_LOCKED';
897: -- --return;
898: -- raise FND_API.G_EXC_ERROR;
899: --

Line 898: -- raise FND_API.G_EXC_ERROR;

894: -- close get_lock_user;
895: -- x_return_status := FND_API.G_RET_STS_ERROR;
896: -- x_error_message_code := 'PA_PS_STRUC_VER_LOCKED';
897: -- --return;
898: -- raise FND_API.G_EXC_ERROR;
899: --
900: -- end if;
901: -- close get_lock_user;
902:

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

907: --versioning changes
908: --
909: -- If (PA_PROJECT_STRUCTURE_UTILS.Check_Struc_Ver_Published(p_project_id, p_parent_structure_ver_id) = 'Y') THEN
910: --version is published. Error.
911: -- x_return_status := FND_API.G_RET_STS_ERROR;
912: -- x_error_message_code := 'PA_PS_STRUC_VER_LOCKED';
913: -- return;
914: -- END IF;
915:

Line 933: x_return_status := FND_API.G_RET_STS_ERROR;

929: CLOSE cur_wp_proj_elem_ver;
930:
931:
932: IF (1 = PA_CONTROL_ITEMS_UTILS.CHECK_CONTROL_ITEM_EXISTS(p_project_id, l_proj_element_id) ) THEN
933: x_return_status := FND_API.G_RET_STS_ERROR;
934: --use this error message according to mthai: PA_CI_ITEMS_EXIST
935: --changed to PA_CI_PROJ_TASK_IN_USE, according to Margaret
936: x_error_message_code := 'PA_CI_PROJ_TASK_IN_USE';
937: return;

Line 954: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

950: x_errorcode => l_err_code ,
951: x_msg_count => l_msg_count ,
952: x_msg_data => l_msg_data );
953:
954: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
955: x_return_status := l_return_status;
956: return;
957: END IF;
958: -- anlee end of changes

Line 976: x_return_status := FND_API.G_RET_STS_ERROR;

972: -- 4201927 commented below code as check_task_progress_exist is deriving project id and then
973: -- calling check_object_has_prog api
974: /*
975: IF pa_project_structure_utils.check_task_progress_exist(l_proj_element_id) = 'Y' THEN
976: x_return_status := FND_API.G_RET_STS_ERROR;
977: x_error_message_code := 'PA_PS_TASK_HAS_PROG';
978: raise FND_API.G_EXC_ERROR;
979: END IF;
980: */

Line 978: raise FND_API.G_EXC_ERROR;

974: /*
975: IF pa_project_structure_utils.check_task_progress_exist(l_proj_element_id) = 'Y' THEN
976: x_return_status := FND_API.G_RET_STS_ERROR;
977: x_error_message_code := 'PA_PS_TASK_HAS_PROG';
978: raise FND_API.G_EXC_ERROR;
979: END IF;
980: */
981:
982: -- using the direct api check_object_has_prog

Line 985: x_return_status := FND_API.G_RET_STS_ERROR;

981:
982: -- using the direct api check_object_has_prog
983:
984: IF pa_progress_utils.check_object_has_prog(p_project_id => p_project_id, p_object_id => l_proj_element_id) = 'Y' THEN
985: x_return_status := FND_API.G_RET_STS_ERROR;
986: x_error_message_code := 'PA_PS_TASK_HAS_PROG';
987: raise FND_API.G_EXC_ERROR;
988: END IF;
989: -- 4201927 end

Line 987: raise FND_API.G_EXC_ERROR;

983:
984: IF pa_progress_utils.check_object_has_prog(p_project_id => p_project_id, p_object_id => l_proj_element_id) = 'Y' THEN
985: x_return_status := FND_API.G_RET_STS_ERROR;
986: x_error_message_code := 'PA_PS_TASK_HAS_PROG';
987: raise FND_API.G_EXC_ERROR;
988: END IF;
989: -- 4201927 end
990:
991: -- 4201927 , delete dlvr to task association api should get called for

Line 1006: IF l_return_status = FND_API.G_RET_STS_ERROR then

1002: ,x_msg_data => l_msg_data
1003: );
1004:
1005: -- 4537865 Changed from x_return_status to l_return_status
1006: IF l_return_status = FND_API.G_RET_STS_ERROR then
1007: RAISE FND_API.G_EXC_ERROR;
1008: End If;
1009:
1010: -- 4201927 end

Line 1007: RAISE FND_API.G_EXC_ERROR;

1003: );
1004:
1005: -- 4537865 Changed from x_return_status to l_return_status
1006: IF l_return_status = FND_API.G_RET_STS_ERROR then
1007: RAISE FND_API.G_EXC_ERROR;
1008: End If;
1009:
1010: -- 4201927 end
1011:

Line 1014: x_return_status := FND_API.G_RET_STS_ERROR;

1010: -- 4201927 end
1011:
1012: /*
1013: IF pa_progress_utils.PROJ_TASK_PROG_EXISTS(p_project_id, l_proj_element_id) = 'Y' THEN
1014: x_return_status := FND_API.G_RET_STS_ERROR;
1015: x_error_message_code := 'PA_PS_TASK_HAS_PROG';
1016: raise FND_API.G_EXC_ERROR;
1017: END IF;
1018:

Line 1016: raise FND_API.G_EXC_ERROR;

1012: /*
1013: IF pa_progress_utils.PROJ_TASK_PROG_EXISTS(p_project_id, l_proj_element_id) = 'Y' THEN
1014: x_return_status := FND_API.G_RET_STS_ERROR;
1015: x_error_message_code := 'PA_PS_TASK_HAS_PROG';
1016: raise FND_API.G_EXC_ERROR;
1017: END IF;
1018:
1019: IF pa_progress_utils.progress_record_exists( p_task_version_id, 'PA_TASKS'
1020: ,p_project_id) = 'Y' -- Fixed bug # 3688901.

Line 1022: x_return_status := FND_API.G_RET_STS_ERROR;

1018:
1019: IF pa_progress_utils.progress_record_exists( p_task_version_id, 'PA_TASKS'
1020: ,p_project_id) = 'Y' -- Fixed bug # 3688901.
1021: THEN
1022: x_return_status := FND_API.G_RET_STS_ERROR;
1023: x_error_message_code := 'PA_PS_CANT_DELETE_TASK_VER';
1024: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_CANT_DELETE_TASK_VER');
1025: raise FND_API.G_EXC_ERROR;
1026: END IF;

Line 1025: raise FND_API.G_EXC_ERROR;

1021: THEN
1022: x_return_status := FND_API.G_RET_STS_ERROR;
1023: x_error_message_code := 'PA_PS_CANT_DELETE_TASK_VER';
1024: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_CANT_DELETE_TASK_VER');
1025: raise FND_API.G_EXC_ERROR;
1026: END IF;
1027: */
1028: END IF;
1029:

Line 1057: x_return_status := FND_API.G_RET_STS_ERROR;

1053: x_err_stage => l_err_stage,
1054: x_err_stack => l_err_stack);
1055:
1056: IF (l_err_code <> 0) THEN
1057: x_return_status := FND_API.G_RET_STS_ERROR;
1058: x_error_message_code := l_err_stage;
1059: raise FND_API.G_EXC_ERROR;
1060: END IF;
1061: END IF;

Line 1059: raise FND_API.G_EXC_ERROR;

1055:
1056: IF (l_err_code <> 0) THEN
1057: x_return_status := FND_API.G_RET_STS_ERROR;
1058: x_error_message_code := l_err_stage;
1059: raise FND_API.G_EXC_ERROR;
1060: END IF;
1061: END IF;
1062:
1063: -- END IF;

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

1070: -- fetch get_link into l_dummy;
1071: -- if get_link%FOUND then
1072: -- --a link exists
1073: -- close get_link;
1074: -- x_return_status := FND_API.G_RET_STS_ERROR;
1075: -- x_error_message_code := 'PA_PS_LINK_EXISTS';
1076: -- return;
1077: -- end if;
1078: -- close get_link;

Line 1080: x_return_status := FND_API.G_RET_STS_SUCCESS;

1076: -- return;
1077: -- end if;
1078: -- close get_link;
1079:
1080: x_return_status := FND_API.G_RET_STS_SUCCESS;
1081:
1082: EXCEPTION
1083: WHEN FND_API.G_EXC_ERROR THEN
1084: x_return_status := FND_API.G_RET_STS_ERROR;

Line 1083: WHEN FND_API.G_EXC_ERROR THEN

1079:
1080: x_return_status := FND_API.G_RET_STS_SUCCESS;
1081:
1082: EXCEPTION
1083: WHEN FND_API.G_EXC_ERROR THEN
1084: x_return_status := FND_API.G_RET_STS_ERROR;
1085:
1086: -- 4537865
1087: -- Not Resetting x_error_message_code unconditionally as after its population only

Line 1084: x_return_status := FND_API.G_RET_STS_ERROR;

1080: x_return_status := FND_API.G_RET_STS_SUCCESS;
1081:
1082: EXCEPTION
1083: WHEN FND_API.G_EXC_ERROR THEN
1084: x_return_status := FND_API.G_RET_STS_ERROR;
1085:
1086: -- 4537865
1087: -- Not Resetting x_error_message_code unconditionally as after its population only
1088: -- it will reach here. In case if its not populated then,populate the generic msg

Line 1095: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1091: x_error_message_code := 'PA_CHECK_DELETE_TASK_FAILED';
1092: END IF;
1093:
1094: WHEN OTHERS THEN
1095: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1096:
1097: -- 4537865
1098: x_error_message_code := SQLCODE;
1099: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_ELEMENTS_UTILS',

Line 1270: x_return_status := FND_API.G_RET_STS_SUCCESS;

1266: ,x_error_message_code OUT NOCOPY VARCHAR2 -- 4537865
1267: ) IS
1268:
1269: begin
1270: x_return_status := FND_API.G_RET_STS_SUCCESS;
1271:
1272: IF p_scheduled_start_date IS NOT NULL AND p_scheduled_end_date IS NOT NULL
1273: THEN
1274: IF p_scheduled_start_date > p_scheduled_end_date

Line 1276: x_return_status := FND_API.G_RET_STS_ERROR;

1272: IF p_scheduled_start_date IS NOT NULL AND p_scheduled_end_date IS NOT NULL
1273: THEN
1274: IF p_scheduled_start_date > p_scheduled_end_date
1275: THEN
1276: x_return_status := FND_API.G_RET_STS_ERROR;
1277: x_error_message_code := 'PA_PS_SCH_ST_DT_GT_EN_DT';
1278: return;
1279: END IF;
1280: END IF;

Line 1286: x_return_status := FND_API.G_RET_STS_ERROR;

1282: IF p_obligation_start_date IS NOT NULL AND p_obligation_end_date IS NOT NULL
1283: THEN
1284: IF p_obligation_start_date > p_obligation_end_date
1285: THEN
1286: x_return_status := FND_API.G_RET_STS_ERROR;
1287: x_error_message_code := 'PA_PS_OBL_ST_DT_GT_EN_DT';
1288: return;
1289: END IF;
1290: END IF;

Line 1296: x_return_status := FND_API.G_RET_STS_ERROR;

1292: IF p_actual_start_date IS NOT NULL AND p_actual_finish_date IS NOT NULL
1293: THEN
1294: IF p_actual_start_date > p_actual_finish_date
1295: THEN
1296: x_return_status := FND_API.G_RET_STS_ERROR;
1297: x_error_message_code := 'PA_PS_ACT_ST_DT_GT_EN_DT';
1298: return;
1299: END IF;
1300: END IF;

Line 1306: x_return_status := FND_API.G_RET_STS_ERROR;

1302: IF p_estimate_start_date IS NOT NULL AND p_estimate_finish_date IS NOT NULL
1303: THEN
1304: IF p_estimate_start_date > p_estimate_finish_date
1305: THEN
1306: x_return_status := FND_API.G_RET_STS_ERROR;
1307: x_error_message_code := 'PA_PS_EST_ST_DT_GT_EN_DT';
1308: return;
1309: END IF;
1310: END IF;

Line 1316: x_return_status := FND_API.G_RET_STS_ERROR;

1312: IF p_early_start_date IS NOT NULL AND p_early_end_date IS NOT NULL
1313: THEN
1314: IF p_early_start_date > p_early_end_date
1315: THEN
1316: x_return_status := FND_API.G_RET_STS_ERROR;
1317: x_error_message_code := 'PA_PS_ERL_ST_DT_GT_EN_DT';
1318: return;
1319: END IF;
1320: END IF;

Line 1326: x_return_status := FND_API.G_RET_STS_ERROR;

1322: IF p_late_start_date IS NOT NULL AND p_late_end_date IS NOT NULL
1323: THEN
1324: IF p_late_start_date > p_late_end_date
1325: THEN
1326: x_return_status := FND_API.G_RET_STS_ERROR;
1327: x_error_message_code := 'PA_PS_LAT_ST_DT_GT_EN_DT';
1328: return;
1329: END IF;
1330: END IF;

Line 1334: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1330: END IF;
1331: -- 4537865
1332: EXCEPTION
1333: WHEN OTHERS THEN
1334: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1335: x_error_message_code := SQLCODE ;
1336: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_ELEMENTS_UTILS',
1337: p_procedure_name => 'Check_Date_range',
1338: p_error_text => SUBSTRB(SQLERRM,1,240));

Line 1368: x_return_status := FND_API.G_RET_STS_SUCCESS;

1364: into x_project_id
1365: from pa_projects_all
1366: where segment1 = p_project_name;
1367: END IF;
1368: x_return_status := FND_API.G_RET_STS_SUCCESS;
1369: EXCEPTION
1370: WHEN no_data_found THEN
1371: x_return_status:= FND_API.G_RET_STS_ERROR;
1372: x_error_msg_code:= 'PA_PS_INVALID_PRJ_NAME';

Line 1371: x_return_status:= FND_API.G_RET_STS_ERROR;

1367: END IF;
1368: x_return_status := FND_API.G_RET_STS_SUCCESS;
1369: EXCEPTION
1370: WHEN no_data_found THEN
1371: x_return_status:= FND_API.G_RET_STS_ERROR;
1372: x_error_msg_code:= 'PA_PS_INVALID_PRJ_NAME';
1373: x_project_id := NULL ; -- 4537865
1374:
1375: WHEN too_many_rows THEN

Line 1376: x_return_status:= FND_API.G_RET_STS_ERROR;

1372: x_error_msg_code:= 'PA_PS_INVALID_PRJ_NAME';
1373: x_project_id := NULL ; -- 4537865
1374:
1375: WHEN too_many_rows THEN
1376: x_return_status:= FND_API.G_RET_STS_ERROR;
1377: x_error_msg_code:= 'PA_PS_PRJ_NAME_NOT_UNIQUE';
1378: x_project_id := NULL ; -- 4537865
1379: WHEN OTHERS THEN
1380: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;

Line 1380: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;

1376: x_return_status:= FND_API.G_RET_STS_ERROR;
1377: x_error_msg_code:= 'PA_PS_PRJ_NAME_NOT_UNIQUE';
1378: x_project_id := NULL ; -- 4537865
1379: WHEN OTHERS THEN
1380: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
1381: x_project_id := NULL ; -- 4537865
1382: RAISE;
1383: END Project_Name_Or_Id;
1384:

Line 1415: x_return_status := FND_API.G_RET_STS_SUCCESS;

1411: AND ppe.name = p_task_name
1412: AND ppev.parent_structure_version_id = p_structure_version_id;
1413: null;
1414: END IF;
1415: x_return_status := FND_API.G_RET_STS_SUCCESS;
1416: EXCEPTION
1417: WHEN no_data_found THEN
1418: x_return_status:= FND_API.G_RET_STS_ERROR;
1419: x_error_msg_code:= 'PA_PS_INVALID_TSK_NAME';

Line 1418: x_return_status:= FND_API.G_RET_STS_ERROR;

1414: END IF;
1415: x_return_status := FND_API.G_RET_STS_SUCCESS;
1416: EXCEPTION
1417: WHEN no_data_found THEN
1418: x_return_status:= FND_API.G_RET_STS_ERROR;
1419: x_error_msg_code:= 'PA_PS_INVALID_TSK_NAME';
1420: -- 4537865
1421: x_task_version_id := NULL ;
1422:

Line 1424: x_return_status:= FND_API.G_RET_STS_ERROR;

1420: -- 4537865
1421: x_task_version_id := NULL ;
1422:
1423: WHEN too_many_rows THEN
1424: x_return_status:= FND_API.G_RET_STS_ERROR;
1425: x_error_msg_code:= 'PA_PS_TSK_NAME_NOT_UNIQUE';
1426: -- 4537865
1427: x_task_version_id := NULL ;
1428:

Line 1430: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;

1426: -- 4537865
1427: x_task_version_id := NULL ;
1428:
1429: WHEN OTHERS THEN
1430: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
1431: -- 4537865
1432: x_task_version_id := NULL ;
1433: x_error_msg_code:= SQLCODE ;
1434:

Line 2835: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

2831: ,p_parent_structure_ver_id => p_parent_structure_ver_id
2832: ,x_return_status => x_return_status
2833: ,x_error_message_code => x_error_message_code
2834: );
2835: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2836: raise FND_API.G_EXC_ERROR;
2837: END IF;
2838:
2839:

Line 2836: raise FND_API.G_EXC_ERROR;

2832: ,x_return_status => x_return_status
2833: ,x_error_message_code => x_error_message_code
2834: );
2835: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2836: raise FND_API.G_EXC_ERROR;
2837: END IF;
2838:
2839:
2840: -- 4201927 commented below code for performance issue

Line 2853: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

2849: ,p_parent_structure_ver_id => p_parent_structure_ver_id
2850: ,x_return_status => x_return_status
2851: ,x_error_message_code => x_error_message_code
2852: );
2853: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2854: raise FND_API.G_EXC_ERROR;
2855: END IF;
2856: END LOOP;
2857: CLOSE c1;

Line 2854: raise FND_API.G_EXC_ERROR;

2850: ,x_return_status => x_return_status
2851: ,x_error_message_code => x_error_message_code
2852: );
2853: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2854: raise FND_API.G_EXC_ERROR;
2855: END IF;
2856: END LOOP;
2857: CLOSE c1;
2858: */

Line 2876: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

2872: ,p_parent_structure_ver_id => p_parent_structure_ver_id
2873: ,x_return_status => x_return_status
2874: ,x_error_message_code => x_error_message_code
2875: );
2876: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2877: raise FND_API.G_EXC_ERROR;
2878: END IF;
2879:
2880: END LOOP;

Line 2877: raise FND_API.G_EXC_ERROR;

2873: ,x_return_status => x_return_status
2874: ,x_error_message_code => x_error_message_code
2875: );
2876: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2877: raise FND_API.G_EXC_ERROR;
2878: END IF;
2879:
2880: END LOOP;
2881: END IF;

Line 2885: x_return_status := FND_API.G_RET_STS_SUCCESS;

2881: END IF;
2882:
2883: -- 4201927 end
2884:
2885: x_return_status := FND_API.G_RET_STS_SUCCESS;
2886:
2887: EXCEPTION
2888: WHEN FND_API.G_EXC_ERROR THEN
2889: x_return_status := FND_API.G_RET_STS_ERROR;

Line 2888: WHEN FND_API.G_EXC_ERROR THEN

2884:
2885: x_return_status := FND_API.G_RET_STS_SUCCESS;
2886:
2887: EXCEPTION
2888: WHEN FND_API.G_EXC_ERROR THEN
2889: x_return_status := FND_API.G_RET_STS_ERROR;
2890: -- 4537865 NOT RESETTING x_error_message_code AS IT WILL reach this point only after x_error_message_code is set
2891: WHEN OTHERS THEN
2892: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 2889: x_return_status := FND_API.G_RET_STS_ERROR;

2885: x_return_status := FND_API.G_RET_STS_SUCCESS;
2886:
2887: EXCEPTION
2888: WHEN FND_API.G_EXC_ERROR THEN
2889: x_return_status := FND_API.G_RET_STS_ERROR;
2890: -- 4537865 NOT RESETTING x_error_message_code AS IT WILL reach this point only after x_error_message_code is set
2891: WHEN OTHERS THEN
2892: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2893: -- 4537865

Line 2892: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2888: WHEN FND_API.G_EXC_ERROR THEN
2889: x_return_status := FND_API.G_RET_STS_ERROR;
2890: -- 4537865 NOT RESETTING x_error_message_code AS IT WILL reach this point only after x_error_message_code is set
2891: WHEN OTHERS THEN
2892: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2893: -- 4537865
2894: x_error_message_code := SQLCODE ;
2895: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_ELEMENTS_UTILS',
2896: p_procedure_name => 'Check_Del_all_task_Ver_Ok

Line 3443: raise FND_API.G_EXC_ERROR;

3439: FETCH c3 INTO l_xtra_task_ver_id, l_task_ver_status;
3440: EXIT WHEN c3%NOTFOUND;
3441: IF (l_task_ver_status = 'PUBLISHED') THEN
3442: x_error_message_code:= 'PA_PS_TK_STAT_CNL_ERR';
3443: raise FND_API.G_EXC_ERROR;
3444: END IF;
3445: END LOOP;
3446: CLOSE c3;
3447: END LOOP;

Line 3451: x_return_status := FND_API.G_RET_STS_SUCCESS;

3447: END LOOP;
3448: CLOSE c2;
3449: END IF;
3450:
3451: x_return_status := FND_API.G_RET_STS_SUCCESS;
3452: EXCEPTION
3453: WHEN FND_API.G_EXC_ERROR THEN
3454: x_return_status := FND_API.G_RET_STS_ERROR;
3455: -- 4537865

Line 3453: WHEN FND_API.G_EXC_ERROR THEN

3449: END IF;
3450:
3451: x_return_status := FND_API.G_RET_STS_SUCCESS;
3452: EXCEPTION
3453: WHEN FND_API.G_EXC_ERROR THEN
3454: x_return_status := FND_API.G_RET_STS_ERROR;
3455: -- 4537865
3456: -- Not resetting x_error_message_code as at this point it would have been already populated.
3457: WHEN OTHERS THEN

Line 3454: x_return_status := FND_API.G_RET_STS_ERROR;

3450:
3451: x_return_status := FND_API.G_RET_STS_SUCCESS;
3452: EXCEPTION
3453: WHEN FND_API.G_EXC_ERROR THEN
3454: x_return_status := FND_API.G_RET_STS_ERROR;
3455: -- 4537865
3456: -- Not resetting x_error_message_code as at this point it would have been already populated.
3457: WHEN OTHERS THEN
3458: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 3458: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

3454: x_return_status := FND_API.G_RET_STS_ERROR;
3455: -- 4537865
3456: -- Not resetting x_error_message_code as at this point it would have been already populated.
3457: WHEN OTHERS THEN
3458: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3459: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_ELEMENTS_UTILS',
3460: p_procedure_name => 'Check_chg_stat_cancel_ok');
3461:
3462: -- 4537865

Line 3716: x_return_status := FND_API.G_RET_STS_SUCCESS;

3712: l_debug_level2);
3713: END IF;
3714:
3715: x_msg_count := 0;
3716: x_return_status := FND_API.G_RET_STS_SUCCESS;
3717: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
3718:
3719: IF l_debug_mode = 'Y' THEN --For bug 4252182
3720:

Line 3820: x_return_status := FND_API.G_RET_STS_ERROR;

3816: EXCEPTION
3817:
3818: WHEN Invalid_Arg_Exc_WP THEN
3819:
3820: x_return_status := FND_API.G_RET_STS_ERROR;
3821: l_msg_count := FND_MSG_PUB.count_msg;
3822:
3823: IF cur_struc_ver_wp%ISOPEN THEN
3824: CLOSE cur_struc_ver_wp;

Line 3838: (p_encoded => FND_API.G_TRUE

3834: END IF;
3835:
3836: IF l_msg_count = 1 and x_msg_data IS NULL THEN
3837: PA_INTERFACE_UTILS_PUB.get_messages
3838: (p_encoded => FND_API.G_TRUE
3839: ,p_msg_index => 1
3840: ,p_msg_count => l_msg_count
3841: ,p_msg_data => l_msg_data
3842: ,p_data => l_data

Line 3857: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

3853: RETURN;
3854:
3855: WHEN others THEN
3856:
3857: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3858: x_msg_count := 1;
3859: x_msg_data := SQLERRM;
3860:
3861: IF cur_struc_ver_wp%ISOPEN THEN

Line 3950: x_return_status := FND_API.G_RET_STS_SUCCESS;

3946: l_login_id NUMBER;
3947:
3948: BEGIN
3949: x_msg_count := 0;
3950: x_return_status := FND_API.G_RET_STS_SUCCESS;
3951: --Bug 3735089 - instead of fnd_profile.value use fnd_profile.value_specific
3952: --l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
3953: l_user_id := fnd_global.user_id;
3954: l_login_id := fnd_global.login_id;

Line 4226: FND_API.G_RET_STS_SUCCESS) THEN

4222: l_debug_level3);
4223: END IF;
4224:
4225: IF (PA_PROJ_STRUCTURE_PUB.CHECK_TASK_CONTRACT_ASSO(p_task_id) <>
4226: FND_API.G_RET_STS_SUCCESS) THEN
4227: x_error_code := 190;
4228: x_error_msg_code := 'PA_STRUCT_TK_HAS_CONTRACT';
4229: return;
4230: END IF;

Line 4307: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;

4303: EXCEPTION
4304:
4305: WHEN OTHERS THEN
4306:
4307: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4308: x_msg_count := 1;
4309: x_msg_data := substrb(SQLERRM,1,120);-- Bug 3735089 Added substr -- 4537865 Changed substr to substrb
4310:
4311: -- 4537865