[Home] [Help]
170:
171:
172: -- Set API return status to success
173:
174: p_return_status := FND_API.G_RET_STS_SUCCESS;
175:
176: --get all the overridable fields for this project template source
177: /* commented the code for the Bug#1891621, starts here */
178: /* OPEN l_override_fields_csr(p_pa_source_template_id);
231: ,p_attribute3 => ''
232: ,p_attribute4 => ''
233: ,p_attribute5 => '');
234: END IF;
235: RAISE FND_API.G_EXC_ERROR;
236: END IF;
237:
238: -- validate the role type
239: OPEN l_project_role_types_csr (p_key_members(i).project_role_type,p_project_id); --New parameter for bug 5196996
252: ,p_attribute4 => ''
253: ,p_attribute5 => '');
254: END IF;
255: CLOSE l_project_role_types_csr;
256: RAISE FND_API.G_EXC_ERROR;
257: ELSE
258: CLOSE l_project_role_types_csr;
259: END IF;
260:
278: ,p_attribute4 => ''
279: ,p_attribute5 => '');
280: END IF;
281:
282: RAISE FND_API.G_EXC_ERROR;
283: END IF;
284: END IF;
285: /* commented the code for the Bug#1891621, starts here */
286: /* j := l_override_fields_tab.first;
320: ,p_attribute4 => ''
321: ,p_attribute5 => '');
322: END IF;
323:
324: RAISE FND_API.G_EXC_ERROR;
325:
326: ELSE
327: */
328: /* commented the code for the Bug#1891621, ends here */
342: ,p_attribute3 => ''
343: ,p_attribute4 => ''
344: ,p_attribute5 => '');
345: END IF;
346: RAISE FND_API.G_EXC_ERROR;
347: ELSE
348:
349: /*
350: -- begin OLD code before changes for ROLE BASED SECURITY
427: v_null_number := to_number(NULL);
428:
429: PA_PROJECT_PARTIES_PUB.CREATE_PROJECT_PARTY(
430: p_api_version => 1.0 -- p_api_version
431: , p_init_msg_list => FND_API.G_TRUE -- p_init_msg_list
432: , p_commit => FND_API.G_FALSE -- p_commit
433: , p_validate_only => FND_API.G_FALSE -- p_validate_only
434: , p_validation_level => FND_API.G_VALID_LEVEL_FULL -- p_validation_level
435: , p_debug_mode => 'N' -- p_debug_mode
428:
429: PA_PROJECT_PARTIES_PUB.CREATE_PROJECT_PARTY(
430: p_api_version => 1.0 -- p_api_version
431: , p_init_msg_list => FND_API.G_TRUE -- p_init_msg_list
432: , p_commit => FND_API.G_FALSE -- p_commit
433: , p_validate_only => FND_API.G_FALSE -- p_validate_only
434: , p_validation_level => FND_API.G_VALID_LEVEL_FULL -- p_validation_level
435: , p_debug_mode => 'N' -- p_debug_mode
436: , p_object_id => p_project_id -- p_object_id
429: PA_PROJECT_PARTIES_PUB.CREATE_PROJECT_PARTY(
430: p_api_version => 1.0 -- p_api_version
431: , p_init_msg_list => FND_API.G_TRUE -- p_init_msg_list
432: , p_commit => FND_API.G_FALSE -- p_commit
433: , p_validate_only => FND_API.G_FALSE -- p_validate_only
434: , p_validation_level => FND_API.G_VALID_LEVEL_FULL -- p_validation_level
435: , p_debug_mode => 'N' -- p_debug_mode
436: , p_object_id => p_project_id -- p_object_id
437: , p_OBJECT_TYPE => 'PA_PROJECTS' -- p_OBJECT_TYPE
430: p_api_version => 1.0 -- p_api_version
431: , p_init_msg_list => FND_API.G_TRUE -- p_init_msg_list
432: , p_commit => FND_API.G_FALSE -- p_commit
433: , p_validate_only => FND_API.G_FALSE -- p_validate_only
434: , p_validation_level => FND_API.G_VALID_LEVEL_FULL -- p_validation_level
435: , p_debug_mode => 'N' -- p_debug_mode
436: , p_object_id => p_project_id -- p_object_id
437: , p_OBJECT_TYPE => 'PA_PROJECTS' -- p_OBJECT_TYPE
438: , p_project_role_id => v_project_role_id -- p_project_role_id
456: , x_return_status => x_return_status -- x_return_status
457: , x_msg_count => x_msg_count -- x_msg_count
458: , x_msg_data => x_msg_data -- x_msg_data
459: );
460: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) Then
461: p_return_status := x_return_status;
462: -- p_msg_count := x_msg_count;
463: -- p_msg_data := SUBSTR(p_msg_data||x_msg_data,1,2000);
464: if (x_return_status = FND_API.G_RET_STS_ERROR) then
460: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) Then
461: p_return_status := x_return_status;
462: -- p_msg_count := x_msg_count;
463: -- p_msg_data := SUBSTR(p_msg_data||x_msg_data,1,2000);
464: if (x_return_status = FND_API.G_RET_STS_ERROR) then
465: raise FND_API.G_EXC_UNEXPECTED_ERROR;
466: else -- (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
467: raise FND_API.G_EXC_ERROR;
468: end if;
461: p_return_status := x_return_status;
462: -- p_msg_count := x_msg_count;
463: -- p_msg_data := SUBSTR(p_msg_data||x_msg_data,1,2000);
464: if (x_return_status = FND_API.G_RET_STS_ERROR) then
465: raise FND_API.G_EXC_UNEXPECTED_ERROR;
466: else -- (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
467: raise FND_API.G_EXC_ERROR;
468: end if;
469: END IF;
462: -- p_msg_count := x_msg_count;
463: -- p_msg_data := SUBSTR(p_msg_data||x_msg_data,1,2000);
464: if (x_return_status = FND_API.G_RET_STS_ERROR) then
465: raise FND_API.G_EXC_UNEXPECTED_ERROR;
466: else -- (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
467: raise FND_API.G_EXC_ERROR;
468: end if;
469: END IF;
470: -- end NEW code for ROLE BASED SECURITY
463: -- p_msg_data := SUBSTR(p_msg_data||x_msg_data,1,2000);
464: if (x_return_status = FND_API.G_RET_STS_ERROR) then
465: raise FND_API.G_EXC_UNEXPECTED_ERROR;
466: else -- (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
467: raise FND_API.G_EXC_ERROR;
468: end if;
469: END IF;
470: -- end NEW code for ROLE BASED SECURITY
471: END IF;
480:
481:
482: EXCEPTION
483:
484: WHEN FND_API.G_EXC_ERROR
485: THEN
486: /* dbms_output.put_line('handling an G_EXC_ERROR exception'); */
487: ROLLBACK TO add_key_members_pvt;
488:
485: THEN
486: /* dbms_output.put_line('handling an G_EXC_ERROR exception'); */
487: ROLLBACK TO add_key_members_pvt;
488:
489: p_return_status := FND_API.G_RET_STS_ERROR;
490:
491: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
492: THEN
493: /* dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception'); */
487: ROLLBACK TO add_key_members_pvt;
488:
489: p_return_status := FND_API.G_RET_STS_ERROR;
490:
491: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
492: THEN
493: /* dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception'); */
494: ROLLBACK TO add_key_members_pvt;
495:
492: THEN
493: /* dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception'); */
494: ROLLBACK TO add_key_members_pvt;
495:
496: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
497:
498: WHEN OTHERS THEN
499: /* dbms_output.put_line('handling an OTHERS exception'); */
500: ROLLBACK TO add_key_members_pvt;
498: WHEN OTHERS THEN
499: /* dbms_output.put_line('handling an OTHERS exception'); */
500: ROLLBACK TO add_key_members_pvt;
501:
502: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
503:
504: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
505: THEN
506: FND_MSG_PUB.add_exc_msg
675:
676:
677: -- Set API return status to success
678:
679: p_return_status := FND_API.G_RET_STS_SUCCESS;
680:
681: -- get all the overridable fields for this project template source
682: /* code commented for the Bug#1891621, starts here */
683: /* OPEN l_override_fields_csr(p_pa_source_template_id);
746: ,p_attribute5 => '');
747: END IF;
748:
749: p_multiple_task_msg := 'F';
750: -- RAISE FND_API.G_EXC_ERROR;
751:
752: ELSE
753: */
754: /* code commented for the bug#1891621, ends here */
828: ,p_attribute5 => '');
829: END IF;
830:
831: p_multiple_task_msg := 'F';
832: -- RAISE FND_API.G_EXC_ERROR;
833:
834: END IF;
835:
836: /* Modified the following code for bug #3629840. */
953: /* code addition for bug 2448159 ends */
954:
955: IF p_multiple_task_msg = 'F'
956: THEN
957: RAISE FND_API.G_EXC_ERROR;
958: END IF;
959:
960: EXCEPTION
961:
958: END IF;
959:
960: EXCEPTION
961:
962: WHEN FND_API.G_EXC_ERROR
963: THEN
964: /* dbms_output.put_line('handling an G_EXC_ERROR exception'); */
965: ROLLBACK TO add_class_categories_pvt;
966:
963: THEN
964: /* dbms_output.put_line('handling an G_EXC_ERROR exception'); */
965: ROLLBACK TO add_class_categories_pvt;
966:
967: p_return_status := FND_API.G_RET_STS_ERROR;
968:
969: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
970: THEN
971: /* dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception'); */
965: ROLLBACK TO add_class_categories_pvt;
966:
967: p_return_status := FND_API.G_RET_STS_ERROR;
968:
969: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
970: THEN
971: /* dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception'); */
972: ROLLBACK TO add_class_categories_pvt;
973:
970: THEN
971: /* dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception'); */
972: ROLLBACK TO add_class_categories_pvt;
973:
974: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
975:
976: WHEN OTHERS THEN
977: /* dbms_output.put_line('handling an OTHERS exception'); */
978: ROLLBACK TO add_class_categories_pvt;
976: WHEN OTHERS THEN
977: /* dbms_output.put_line('handling an OTHERS exception'); */
978: ROLLBACK TO add_class_categories_pvt;
979:
980: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
981:
982: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
983: THEN
984: FND_MSG_PUB.add_exc_msg
1321:
1322:
1323: -- Set API return status to success
1324:
1325: p_return_status := FND_API.G_RET_STS_SUCCESS;
1326:
1327: -- copy the incoming parameters to local variables
1328: l_task_in_rec := p_task_rec;
1329: l_project_id := p_project_rec.project_id;
1358: ,p_attribute4 => ''
1359: ,p_attribute5 => '');
1360: END IF;
1361:
1362: RAISE FND_API.G_EXC_ERROR;
1363:
1364: END IF;
1365:
1366: IF l_task_in_rec.task_name IS NULL
1365:
1366: IF l_task_in_rec.task_name IS NULL
1367: OR l_task_in_rec.task_name = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
1368: THEN
1369: p_return_status := FND_API.G_RET_STS_ERROR;
1370:
1371: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1372: THEN
1373: pa_interface_utils_pub.map_new_amg_msg
1381: ,p_attribute4 => ''
1382: ,p_attribute5 => '');
1383: END IF;
1384:
1385: RAISE FND_API.G_EXC_ERROR;
1386:
1387: END IF;
1388: IF l_task_in_rec.pa_task_number IS NULL OR
1389: l_task_in_rec.pa_task_number = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
1406: /* Added for bug#2666913 */
1407:
1408: If l_task_in_rec.billable_flag = 'Y' and p_project_type_class_code = 'INDIRECT'
1409: THEN
1410: p_return_status := FND_API.G_RET_STS_ERROR;
1411:
1412: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1413: THEN
1414: pa_interface_utils_pub.map_new_amg_msg
1422: ,p_attribute4 => ''
1423: ,p_attribute5 => '');
1424: END IF;
1425:
1426: RAISE FND_API.G_EXC_ERROR;
1427:
1428: END IF;
1429:
1430: /* end of code added for bug #2666913 */
1501: ,p_attribute3 => ''
1502: ,p_attribute4 => ''
1503: ,p_attribute5 => '');
1504: END IF;
1505: RAISE FND_API.G_EXC_ERROR;
1506: ELSE
1507:
1508: l_address_id := l_task_in_rec.address_id;
1509: END IF;
1540: ,p_attribute3 => ''
1541: ,p_attribute4 => ''
1542: ,p_attribute5 => '');
1543: END IF;
1544: RAISE FND_API.G_EXC_ERROR;
1545:
1546: END IF;
1547:
1548: CLOSE l_service_type_csr;
1573: ,p_attribute3 => ''
1574: ,p_attribute4 => ''
1575: ,p_attribute5 => '');
1576: END IF;
1577: RAISE FND_API.G_EXC_ERROR;
1578: END IF;
1579: CLOSE l_ind_rate_schedule_type_csr;
1580: END IF;
1581:
1768: ,p_attribute3 => ''
1769: ,p_attribute4 => ''
1770: ,p_attribute5 => '');
1771: END IF;
1772: RAISE FND_API.G_EXC_ERROR;
1773: END IF;
1774: l_task_in_rec.task_start_date := l_out_start_date;
1775: l_task_in_rec.task_completion_date := l_out_completion_date;
1776:
1790: ,p_attribute3 => ''
1791: ,p_attribute4 => ''
1792: ,p_attribute5 => '');
1793: END IF;
1794: RAISE FND_API.G_EXC_ERROR;
1795: END IF;
1796: --bug 2732788
1797:
1798: IF ( l_task_in_rec.task_start_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE
1815: ,p_attribute3 => ''
1816: ,p_attribute4 => ''
1817: ,p_attribute5 => '');
1818: END IF;
1819: RAISE FND_API.G_EXC_ERROR;
1820: END IF;
1821: END IF;
1822:
1823: /* Bug#2530525-Commenting the condition which checks for date being null as project
1851: ,p_attribute3 => ''
1852: ,p_attribute4 => ''
1853: ,p_attribute5 => '');
1854: END IF;
1855: RAISE FND_API.G_EXC_ERROR;
1856: END IF;
1857:
1858:
1859: IF l_task_in_rec.task_completion_date < p_project_rec.start_date OR
1871: ,p_attribute3 => ''
1872: ,p_attribute4 => ''
1873: ,p_attribute5 => '');
1874: END IF;
1875: RAISE FND_API.G_EXC_ERROR;
1876: END IF;
1877:
1878: IF l_task_in_rec.cost_ind_rate_sch_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1879: THEN
2060: ,p_attribute3 => ''
2061: ,p_attribute4 => ''
2062: ,p_attribute5 => '');
2063: END IF;
2064: RAISE FND_API.G_EXC_ERROR;
2065: END IF;
2066: -- Added ELSE condition for Huawei enhancement to update both Workplan and financial tasks DFFs Bug 13923366
2067: ELSIF (l_task_in_rec.tasks_dff = 'N' AND
2068: (PA_PROJECT_PUB.G_MASS_ADD_TASKS = 'Y' OR PA_PROJECT_PUB.G_MASS_UPDATE_TASKS = 'Y') AND
2181: ,p_attribute3 => ''
2182: ,p_attribute4 => ''
2183: ,p_attribute5 => '');
2184: END IF;
2185: RAISE FND_API.G_EXC_ERROR;
2186: END IF; -- End of changes for bug 13923366 : Huawei enhancement
2187:
2188: END IF;
2189:
2396: , p_pa_task_id => l_task_in_rec.pa_parent_task_id
2397: , p_pm_task_reference => l_task_in_rec.pm_parent_task_reference
2398: , p_out_task_id => l_ref_task_id
2399: , p_return_status => l_return_status );
2400: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
2401: THEN
2402: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2403: END IF;
2404: end if;
2398: , p_out_task_id => l_ref_task_id
2399: , p_return_status => l_return_status );
2400: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
2401: THEN
2402: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2403: END IF;
2404: end if;
2405: OPEN get_gen_etc_source_code(l_ref_task_id,l_project_id );
2406: FETCH get_gen_etc_source_code into l_gen_etc_source_code;
2511: ,p_attribute3 => ''
2512: ,p_attribute4 => ''
2513: ,p_attribute5 => '');
2514: END IF;
2515: RAISE FND_API.G_EXC_ERROR;
2516: END IF;
2517: CLOSE l_task_csr;
2518: ELSE
2519: IF (l_task_in_rec.pa_parent_task_id IS NOT NULL AND
2536: ,p_attribute3 => ''
2537: ,p_attribute4 => ''
2538: ,p_attribute5 => '');
2539: END IF;
2540: RAISE FND_API.G_EXC_ERROR;
2541: END IF;
2542: CLOSE l_task_id_csr;
2543: Else
2544: l_parent_TOP_TASK_ID := l_task_id;
2765: p_value1 => l_task_in_rec.task_name,
2766: p_token2 => 'TASK_NUMBER',
2767: p_value2 => l_task_in_rec.pa_task_number
2768: );
2769: raise FND_API.G_EXC_ERROR;
2770: ELSE
2771: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2772: p_msg_name => 'PA_PS_TASK_NOT_NUM_UNIQ_AMG',
2773: p_token1 => 'TASK_ID',
2772: p_msg_name => 'PA_PS_TASK_NOT_NUM_UNIQ_AMG',
2773: p_token1 => 'TASK_ID',
2774: p_value1 => l_task_id
2775: );
2776: raise FND_API.G_EXC_ERROR;
2777: END IF;
2778: END IF;
2779: WHEN FND_API.G_EXC_ERROR
2780: THEN
2775: );
2776: raise FND_API.G_EXC_ERROR;
2777: END IF;
2778: END IF;
2779: WHEN FND_API.G_EXC_ERROR
2780: THEN
2781: /* dbms_output.put_line('handling an G_EXC_ERROR exception'); */
2782: ROLLBACK TO add_task_round_one_pvt;
2783: p_return_status := FND_API.G_RET_STS_ERROR;
2779: WHEN FND_API.G_EXC_ERROR
2780: THEN
2781: /* dbms_output.put_line('handling an G_EXC_ERROR exception'); */
2782: ROLLBACK TO add_task_round_one_pvt;
2783: p_return_status := FND_API.G_RET_STS_ERROR;
2784: -- 4537865 RESET OUT PARAMS
2785: p_task_id := NULL ;
2786: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
2787: THEN
2782: ROLLBACK TO add_task_round_one_pvt;
2783: p_return_status := FND_API.G_RET_STS_ERROR;
2784: -- 4537865 RESET OUT PARAMS
2785: p_task_id := NULL ;
2786: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
2787: THEN
2788: /* dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception'); */
2789: ROLLBACK TO add_task_round_one_pvt;
2790:
2787: THEN
2788: /* dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception'); */
2789: ROLLBACK TO add_task_round_one_pvt;
2790:
2791: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2792:
2793: -- 4537865 RESET OUT PARAMS
2794: p_task_id := NULL ;
2795:
2796: WHEN OTHERS THEN
2797: /* dbms_output.put_line('handling an OTHERS exception'); */
2798: ROLLBACK TO add_task_round_one_pvt;
2799:
2800: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2801:
2802: -- 4537865 RESET OUT PARAMS
2803: p_task_id := NULL ;
2804:
2926:
2927:
2928: -- Set API return status to success
2929:
2930: p_return_status := FND_API.G_RET_STS_SUCCESS;
2931:
2932: --copy the incoming parameters to local variables
2933: l_task_in_rec := p_task_rec;
2934: l_task_id := p_task_id;
2977: ,p_attribute3 => ''
2978: ,p_attribute4 => ''
2979: ,p_attribute5 => '');
2980: END IF;
2981: RAISE FND_API.G_EXC_ERROR;
2982: END IF;
2983: CLOSE l_task_csr;
2984: ELSE
2985: IF (l_task_in_rec.pa_parent_task_id IS NOT NULL AND
3003: ,p_attribute3 => ''
3004: ,p_attribute4 => ''
3005: ,p_attribute5 => '');
3006: END IF;
3007: RAISE FND_API.G_EXC_ERROR;
3008: END IF;
3009: CLOSE l_task_id_csr;
3010: --l_parent_task_rec := l_parent_task_id_rec; -- assign to this rec, because rest of code uses this
3011: END IF;
3214: ,p_attribute3 => ''
3215: ,p_attribute4 => ''
3216: ,p_attribute5 => '');
3217: END IF;
3218: RAISE FND_API.G_EXC_ERROR;
3219: END IF;
3220:
3221: IF l_task_in_rec.task_completion_date < l_parent_task_rec.start_date OR
3222: l_task_in_rec.task_completion_date > l_parent_task_rec.completion_date
3234: ,p_attribute3 => ''
3235: ,p_attribute4 => ''
3236: ,p_attribute5 => '');
3237: END IF;
3238: RAISE FND_API.G_EXC_ERROR;
3239: END IF;
3240:
3241: /* Patch ends for the bug # 878682 */
3242:
3501: ,x_return_status => l_return_status
3502: );
3503:
3504: l_task_id := l_new_task_id ; -- 4537865
3505: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3506: THEN
3507: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3508: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
3509: THEN
3503:
3504: l_task_id := l_new_task_id ; -- 4537865
3505: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3506: THEN
3507: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3508: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
3509: THEN
3510: RAISE FND_API.G_EXC_ERROR;
3511: END IF;
3504: l_task_id := l_new_task_id ; -- 4537865
3505: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3506: THEN
3507: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3508: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
3509: THEN
3510: RAISE FND_API.G_EXC_ERROR;
3511: END IF;
3512: p_task_version_id := l_task_version_id;
3506: THEN
3507: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3508: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
3509: THEN
3510: RAISE FND_API.G_EXC_ERROR;
3511: END IF;
3512: p_task_version_id := l_task_version_id;
3513:
3514: END IF;
3518:
3519:
3520: EXCEPTION
3521:
3522: WHEN FND_API.G_EXC_ERROR
3523: THEN
3524: /* dbms_output.put_line('handling an G_EXC_ERROR exception'); */
3525: ROLLBACK TO add_task_round_two_pvt;
3526:
3523: THEN
3524: /* dbms_output.put_line('handling an G_EXC_ERROR exception'); */
3525: ROLLBACK TO add_task_round_two_pvt;
3526:
3527: p_return_status := FND_API.G_RET_STS_ERROR;
3528:
3529: -- 4537865 RESET OUT PARAMS
3530: p_task_version_id := NULL ;
3531:
3528:
3529: -- 4537865 RESET OUT PARAMS
3530: p_task_version_id := NULL ;
3531:
3532: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3533: THEN
3534: /* dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception'); */
3535: ROLLBACK TO add_task_round_two_pvt;
3536:
3533: THEN
3534: /* dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception'); */
3535: ROLLBACK TO add_task_round_two_pvt;
3536:
3537: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3538:
3539: -- 4537865 RESET OUT PARAMS
3540: p_task_version_id := NULL ;
3541:
3542: WHEN OTHERS THEN
3543: /* dbms_output.put_line('handling an OTHERS exception'); */
3544: ROLLBACK TO add_task_round_two_pvt;
3545:
3546: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3547:
3548: -- 4537865 RESET OUT PARAMS
3549: p_task_version_id := NULL ;
3550:
3680: l_dummy VARCHAR2(1);
3681:
3682: BEGIN
3683:
3684: p_return_status := FND_API.G_RET_STS_SUCCESS;
3685:
3686: IF p_pa_project_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3687: AND p_pa_project_id IS NOT NULL
3688: THEN
3707: ,p_attribute5 => '');
3708: END IF;
3709:
3710: CLOSE l_project_id_csr;
3711: RAISE FND_API.G_EXC_ERROR;
3712: END IF;
3713:
3714: CLOSE l_project_id_csr;
3715: p_out_project_id := p_pa_project_id;
3729: FND_MESSAGE.SET_TOKEN('ATTR_VALUE',p_pm_project_reference);
3730: FND_MSG_PUB.add;
3731: END IF;
3732:
3733: RAISE FND_API.G_EXC_ERROR;
3734: ELSE
3735: p_out_project_id := l_project_id;
3736:
3737: END IF;
3750: ,p_attribute4 => ''
3751: ,p_attribute5 => '');
3752: END IF;
3753:
3754: RAISE FND_API.G_EXC_ERROR;
3755:
3756: END IF; -- If p_pa_project_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3757:
3758: EXCEPTION
3756: END IF; -- If p_pa_project_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3757:
3758: EXCEPTION
3759:
3760: WHEN FND_API.G_EXC_ERROR
3761: THEN
3762: /* dbms_output.put_line('handling an G_EXC_ERROR exception'); */
3763:
3764: p_return_status := FND_API.G_RET_STS_ERROR;
3760: WHEN FND_API.G_EXC_ERROR
3761: THEN
3762: /* dbms_output.put_line('handling an G_EXC_ERROR exception'); */
3763:
3764: p_return_status := FND_API.G_RET_STS_ERROR;
3765:
3766: -- 4537865
3767: p_out_project_id := NULL ;
3768:
3765:
3766: -- 4537865
3767: p_out_project_id := NULL ;
3768:
3769: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3770: THEN
3771: /* dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception'); */
3772:
3773: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3769: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3770: THEN
3771: /* dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception'); */
3772:
3773: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3774:
3775: -- 4537865
3776: p_out_project_id := NULL ;
3777:
3777:
3778: WHEN OTHERS THEN
3779: /* dbms_output.put_line('handling an OTHERS exception'); */
3780:
3781: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3782:
3783: -- 4537865
3784: p_out_project_id := NULL ;
3785:
3848: l_amg_segment1 VARCHAR2(25);
3849:
3850: BEGIN
3851:
3852: p_return_status := FND_API.G_RET_STS_SUCCESS;
3853:
3854: IF p_pa_project_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3855: AND p_pa_project_id IS NOT NULL
3856: THEN
3874: ,p_attribute5 => '');
3875: END IF;
3876:
3877: CLOSE l_project_id_csr;
3878: RAISE FND_API.G_EXC_ERROR;
3879: END IF;
3880:
3881: CLOSE l_project_id_csr;
3882: ELSE
3894: ,p_attribute4 => ''
3895: ,p_attribute5 => '');
3896: END IF;
3897:
3898: RAISE FND_API.G_EXC_ERROR;
3899:
3900: END IF;
3901:
3902: IF p_pa_task_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3928: ,p_attribute5 => '');
3929: END IF;
3930:
3931: CLOSE l_task_id_csr;
3932: RAISE FND_API.G_EXC_ERROR;
3933: END IF;
3934:
3935: CLOSE l_task_id_csr;
3936:
3950: FND_MESSAGE.SET_TOKEN('ATTR_NAME','Pm Task Reference');
3951: FND_MESSAGE.SET_TOKEN('ATTR_VALUE',p_pm_task_reference);
3952: FND_MSG_PUB.add;
3953:
3954: RAISE FND_API.G_EXC_ERROR;
3955:
3956: END IF;
3957: ELSE
3958: p_out_task_id := l_task_id;
3972: ,p_attribute4 => ''
3973: ,p_attribute5 => '');
3974: END IF;
3975:
3976: RAISE FND_API.G_EXC_ERROR;
3977:
3978: END IF; -- If p_pa_task_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3979:
3980: EXCEPTION
3978: END IF; -- If p_pa_task_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3979:
3980: EXCEPTION
3981:
3982: WHEN FND_API.G_EXC_ERROR
3983: THEN
3984: /* dbms_output.put_line('handling an G_EXC_ERROR exception'); */
3985:
3986: p_return_status := FND_API.G_RET_STS_ERROR;
3982: WHEN FND_API.G_EXC_ERROR
3983: THEN
3984: /* dbms_output.put_line('handling an G_EXC_ERROR exception'); */
3985:
3986: p_return_status := FND_API.G_RET_STS_ERROR;
3987:
3988: -- 4537865 RESET OUT PARAMS
3989: p_out_task_id := NULL ;
3990:
3987:
3988: -- 4537865 RESET OUT PARAMS
3989: p_out_task_id := NULL ;
3990:
3991: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3992: THEN
3993: /* dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception'); */
3994:
3995: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3991: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3992: THEN
3993: /* dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception'); */
3994:
3995: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3996:
3997: -- 4537865 RESET OUT PARAMS
3998: p_out_task_id := NULL ;
3999:
3999:
4000: WHEN OTHERS THEN
4001: /* dbms_output.put_line('handling an OTHERS exception'); */
4002:
4003: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4004:
4005: -- 4537865 RESET OUT PARAMS
4006: p_out_task_id := NULL ;
4007:
4095: l_project_sharing_type VARCHAR2(250);
4096:
4097: BEGIN
4098:
4099: p_return_status := FND_API.G_RET_STS_SUCCESS;
4100:
4101: IF p_pa_project_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
4102: AND p_pa_project_id IS NOT NULL
4103: THEN
4121: ,p_attribute5 => '');
4122: END IF;
4123:
4124: CLOSE l_project_id_csr;
4125: RAISE FND_API.G_EXC_ERROR;
4126: END IF;
4127:
4128: CLOSE l_project_id_csr;
4129: ELSE
4141: ,p_attribute4 => ''
4142: ,p_attribute5 => '');
4143: END IF;
4144:
4145: RAISE FND_API.G_EXC_ERROR;
4146:
4147: END IF;
4148:
4149: IF (p_structure_type = 'FINANCIAL') THEN
4195: ,p_attribute4 => ''
4196: ,p_attribute5 => '');
4197: END IF;
4198: CLOSE l_proj_element_id_csr;
4199: RAISE FND_API.G_EXC_ERROR;
4200: END IF;
4201: CLOSE l_proj_element_id_csr;
4202: p_out_task_id := p_pa_task_id;
4203: ELSE
4216: ,p_attribute5 => '');
4217: END IF;
4218:
4219: CLOSE l_task_id_csr;
4220: RAISE FND_API.G_EXC_ERROR;
4221: --Added by rtarway, for BUG 3919800
4222: END IF;
4223: --End Added by rtarway, for BUG 3919800
4224: END IF;
4249: FND_MESSAGE.SET_TOKEN('ATTR_NAME','Pm Task Reference');
4250: FND_MESSAGE.SET_TOKEN('ATTR_VALUE',p_pm_task_reference);
4251: FND_MSG_PUB.add;
4252: CLOSE cur_pa_proj_elems;
4253: RAISE FND_API.G_EXC_ERROR;
4254: END IF;
4255: END IF;
4256: CLOSE cur_pa_proj_elems;
4257: ELSE
4263: FND_MESSAGE.SET_TOKEN('ATTR_NAME','Pm Task Reference');
4264: FND_MESSAGE.SET_TOKEN('ATTR_VALUE',p_pm_task_reference);
4265: FND_MSG_PUB.add;
4266:
4267: RAISE FND_API.G_EXC_ERROR;
4268:
4269: END IF;
4270: END IF;--Added by rtarway for BUG 3919800
4271: ELSE
4285: ,p_attribute4 => ''
4286: ,p_attribute5 => '');
4287: END IF;
4288:
4289: RAISE FND_API.G_EXC_ERROR;
4290:
4291: END IF; -- If p_pa_task_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
4292: ELSIF (p_structure_type = 'WORKPLAN') THEN
4293: IF p_pa_task_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
4318: ,p_attribute5 => '');
4319: END IF;
4320:
4321: CLOSE l_proj_element_id_csr;
4322: RAISE FND_API.G_EXC_ERROR;
4323: END IF;
4324:
4325: CLOSE l_proj_element_id_csr;
4326:
4333: FETCH cur_pa_proj_elems INTO p_out_task_id;
4334:
4335: IF cur_pa_proj_elems%NOTFOUND
4336: THEN
4337: p_return_status := FND_API.G_RET_STS_ERROR;
4338: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR)
4339: THEN
4340: FND_MESSAGE.SET_NAME('PA','PA_API_CONV_ERROR_AMG'); -- Bug 2257612
4341: FND_MESSAGE.SET_TOKEN('ATTR_NAME','Pm Task Reference');
4340: FND_MESSAGE.SET_NAME('PA','PA_API_CONV_ERROR_AMG'); -- Bug 2257612
4341: FND_MESSAGE.SET_TOKEN('ATTR_NAME','Pm Task Reference');
4342: FND_MESSAGE.SET_TOKEN('ATTR_VALUE',p_pm_task_reference);
4343: FND_MSG_PUB.add;
4344: RAISE FND_API.G_EXC_ERROR;
4345: END IF;
4346: END IF;
4347: CLOSE cur_pa_proj_elems;
4348:
4360: ,p_attribute4 => ''
4361: ,p_attribute5 => '');
4362: END IF;
4363:
4364: RAISE FND_API.G_EXC_ERROR;
4365:
4366: END IF; -- If p_pa_task_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
4367: END IF;
4368:
4367: END IF;
4368:
4369: EXCEPTION
4370:
4371: WHEN FND_API.G_EXC_ERROR
4372: THEN
4373: /* dbms_output.put_line('handling an G_EXC_ERROR exception'); */
4374:
4375: p_return_status := FND_API.G_RET_STS_ERROR;
4371: WHEN FND_API.G_EXC_ERROR
4372: THEN
4373: /* dbms_output.put_line('handling an G_EXC_ERROR exception'); */
4374:
4375: p_return_status := FND_API.G_RET_STS_ERROR;
4376:
4377: -- 4537865 RESET OUT PARAMS
4378: p_out_task_id := NULL ;
4379:
4376:
4377: -- 4537865 RESET OUT PARAMS
4378: p_out_task_id := NULL ;
4379:
4380: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
4381: THEN
4382: /* dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception'); */
4383:
4384: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4380: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
4381: THEN
4382: /* dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception'); */
4383:
4384: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4385:
4386: -- 4537865 RESET OUT PARAMS
4387: p_out_task_id := NULL ;
4388:
4388:
4389: WHEN OTHERS THEN
4390: /* dbms_output.put_line('handling an OTHERS exception'); */
4391:
4392: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4393:
4394: -- 4537865 RESET OUT PARAMS
4395: p_out_task_id := NULL ;
4396:
4802: ,p_attribute3 => ''
4803: ,p_attribute4 => ''
4804: ,p_attribute5 => '');
4805: END IF;
4806: RAISE FND_API.G_EXC_ERROR;
4807: END IF;
4808:
4809: CLOSE l_get_lower_task_det_csr;
4810:
4882: DELETE FROM pa_percent_completes WHERE task_id = p_task_id;
4883:
4884: DELETE FROM pa_tasks WHERE task_id = p_task_id;
4885:
4886: p_return_status := FND_API.G_RET_STS_SUCCESS;
4887:
4888: EXCEPTION
4889:
4890: WHEN FND_API.G_EXC_ERROR
4886: p_return_status := FND_API.G_RET_STS_SUCCESS;
4887:
4888: EXCEPTION
4889:
4890: WHEN FND_API.G_EXC_ERROR
4891: THEN
4892: p_return_status := FND_API.G_RET_STS_ERROR;
4893: p_msg_count := Fnd_Msg_Pub.count_msg; -- 4537865
4894:
4888: EXCEPTION
4889:
4890: WHEN FND_API.G_EXC_ERROR
4891: THEN
4892: p_return_status := FND_API.G_RET_STS_ERROR;
4893: p_msg_count := Fnd_Msg_Pub.count_msg; -- 4537865
4894:
4895: IF p_msg_count = 1 AND p_msg_data IS NULL
4896: THEN
4894:
4895: IF p_msg_count = 1 AND p_msg_data IS NULL
4896: THEN
4897: Pa_Interface_Utils_Pub.get_messages
4898: ( p_encoded => Fnd_Api.G_TRUE
4899: , p_msg_index => 1
4900: , p_msg_count => p_msg_count
4901: , p_msg_data => l_msg_data
4902: , p_data => l_data
4907: ROLLBACK TO delete_one_task;
4908:
4909: WHEN OTHERS
4910: THEN
4911: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4912:
4913: -- 4537865
4914: p_msg_count := 1;
4915: p_msg_data := SQLERRM;
4960:
4961: -- 4537865
4962: EXCEPTION
4963: WHEN OTHERS THEN
4964: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4965:
4966: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4967: THEN
4968: FND_MSG_PUB.add_exc_msg
5018: -- 4537865
5019: EXCEPTION
5020: WHEN OTHERS THEN
5021:
5022: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5023: p_update_end_date_flag := NULL ;
5024: p_update_start_date_flag := NULL ;
5025:
5026: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5081: -- 4537865
5082: EXCEPTION
5083: WHEN OTHERS THEN
5084:
5085: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5086:
5087: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5088: THEN
5089: FND_MSG_PUB.add_exc_msg
5119: -- 4537865
5120: EXCEPTION
5121: WHEN OTHERS THEN
5122:
5123: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5124: p_proceed_with_update_flag := NULL ;
5125:
5126: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5127: THEN
5148: -- 4537865
5149: EXCEPTION
5150: WHEN OTHERS THEN
5151:
5152: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5153:
5154: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5155: THEN
5156: FND_MSG_PUB.add_exc_msg
5164: END check_parent_child_task_dates;
5165:
5166: Procedure Update_One_Task
5167: ( p_api_version_number IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
5168: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5169: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5170: p_msg_count OUT NOCOPY NUMBER, -- 4537865
5171: p_msg_data OUT NOCOPY VARCHAR2, -- 4537865
5172: p_return_status OUT NOCOPY VARCHAR2, -- 4537865
5165:
5166: Procedure Update_One_Task
5167: ( p_api_version_number IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
5168: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5169: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5170: p_msg_count OUT NOCOPY NUMBER, -- 4537865
5171: p_msg_data OUT NOCOPY VARCHAR2, -- 4537865
5172: p_return_status OUT NOCOPY VARCHAR2, -- 4537865
5173: p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
5634: SAVEPOINT update_task_pub;
5635:
5636: -- Standard call to check for call compatibility.
5637:
5638: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
5639: p_api_version_number ,
5640: l_api_name ,
5641: G_PKG_NAME )
5642: THEN
5640: l_api_name ,
5641: G_PKG_NAME )
5642: THEN
5643:
5644: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5645:
5646: END IF;
5647:
5648: -- Initialize the message table if requested.
5646: END IF;
5647:
5648: -- Initialize the message table if requested.
5649:
5650: IF FND_API.TO_BOOLEAN( p_init_msg_list )
5651: THEN
5652:
5653: FND_MSG_PUB.initialize;
5654:
5655: END IF;
5656:
5657: -- Set API return status to success
5658:
5659: p_return_status := FND_API.G_RET_STS_SUCCESS;
5660:
5661: --pm_product_code is mandatory
5662:
5663: l_tasks_restructured_flag := 'N';
5692: p_msg_data => l_msg_data,
5693: p_return_status => l_return_status,
5694: p_function_allowed => l_function_allowed );
5695:
5696: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5697: THEN
5698:
5699: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5700:
5695:
5696: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5697: THEN
5698:
5699: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5700:
5701: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5702: THEN
5703:
5697: THEN
5698:
5699: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5700:
5701: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5702: THEN
5703:
5704: RAISE FND_API.G_EXC_ERROR;
5705: END IF;
5700:
5701: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5702: THEN
5703:
5704: RAISE FND_API.G_EXC_ERROR;
5705: END IF;
5706: PA_PROJECT_PUB.G_UPDATE_TASK_ALLOWED := l_function_allowed;
5707: ELSE
5708: l_function_allowed := PA_PROJECT_PUB.G_UPDATE_TASK_ALLOWED;
5716: p_msg_data => l_msg_data,
5717: p_return_status => l_return_status,
5718: p_function_allowed => l_function_allowed );
5719:
5720: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5721: THEN
5722:
5723: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5724:
5719:
5720: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5721: THEN
5722:
5723: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5724:
5725: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5726: THEN
5727:
5721: THEN
5722:
5723: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5724:
5725: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5726: THEN
5727:
5728: RAISE FND_API.G_EXC_ERROR;
5729: END IF;
5724:
5725: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5726: THEN
5727:
5728: RAISE FND_API.G_EXC_ERROR;
5729: END IF;
5730: END IF; -- bug 13923366 changes end
5731:
5732: IF l_function_allowed = 'N' THEN
5739: ,p_attribute2 => ''
5740: ,p_attribute3 => ''
5741: ,p_attribute4 => ''
5742: ,p_attribute5 => '');
5743: p_return_status := FND_API.G_RET_STS_ERROR;
5744: RAISE FND_API.G_EXC_ERROR;
5745: END IF;
5746:
5747: --bug 2841158
5740: ,p_attribute3 => ''
5741: ,p_attribute4 => ''
5742: ,p_attribute5 => '');
5743: p_return_status := FND_API.G_RET_STS_ERROR;
5744: RAISE FND_API.G_EXC_ERROR;
5745: END IF;
5746:
5747: --bug 2841158
5748: -- IF p_pm_product_code IS NULL
5765: ,p_attribute3 => ''
5766: ,p_attribute4 => ''
5767: ,p_attribute5 => '');
5768: END IF;
5769: RAISE FND_API.G_EXC_ERROR;
5770: END IF;
5771:
5772: --bug 2841158
5773: IF p_pm_product_code <> 'WORKPLAN'
5815: ,p_attribute3 => ''
5816: ,p_attribute4 => ''
5817: ,p_attribute5 => '');
5818: END IF;
5819: p_return_status := FND_API.G_RET_STS_ERROR;
5820: RAISE FND_API.G_EXC_ERROR;
5821: END IF;
5822: END IF; --bug 2841158
5823:
5816: ,p_attribute4 => ''
5817: ,p_attribute5 => '');
5818: END IF;
5819: p_return_status := FND_API.G_RET_STS_ERROR;
5820: RAISE FND_API.G_EXC_ERROR;
5821: END IF;
5822: END IF; --bug 2841158
5823:
5824: -- convert pm_project_reference to id
5828: p_pa_project_id => p_pa_project_id,
5829: p_out_project_id => l_project_id,
5830: p_return_status => l_return_status );
5831:
5832: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5833: THEN
5834:
5835: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5836:
5831:
5832: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5833: THEN
5834:
5835: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5836:
5837: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5838: THEN
5839:
5833: THEN
5834:
5835: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5836:
5837: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5838: THEN
5839:
5840: RAISE FND_API.G_EXC_ERROR;
5841: END IF;
5836:
5837: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5838: THEN
5839:
5840: RAISE FND_API.G_EXC_ERROR;
5841: END IF;
5842:
5843: -- Now verify whether project security allows the user to update
5844: -- the task
5858: ,p_attribute2 => ''
5859: ,p_attribute3 => ''
5860: ,p_attribute4 => ''
5861: ,p_attribute5 => '');
5862: p_return_status := FND_API.G_RET_STS_ERROR;
5863: RAISE FND_API.G_EXC_ERROR;
5864: ELSE
5865: -- Caching for Huawei enhancement bug 13923366 by skkoppul
5866: IF PA_PROJECT_PUB.G_MASS_UPDATE_TASKS = 'Y' THEN
5859: ,p_attribute3 => ''
5860: ,p_attribute4 => ''
5861: ,p_attribute5 => '');
5862: p_return_status := FND_API.G_RET_STS_ERROR;
5863: RAISE FND_API.G_EXC_ERROR;
5864: ELSE
5865: -- Caching for Huawei enhancement bug 13923366 by skkoppul
5866: IF PA_PROJECT_PUB.G_MASS_UPDATE_TASKS = 'Y' THEN
5867: IF PA_PROJECT_PUB.G_UPDATE_PRJ_ALLOWED IS NULL THEN
5876: ,p_attribute2 => ''
5877: ,p_attribute3 => ''
5878: ,p_attribute4 => ''
5879: ,p_attribute5 => '');
5880: p_return_status := FND_API.G_RET_STS_ERROR;
5881: RAISE FND_API.G_EXC_ERROR;
5882: END IF;
5883: END IF;
5884: ELSE
5877: ,p_attribute3 => ''
5878: ,p_attribute4 => ''
5879: ,p_attribute5 => '');
5880: p_return_status := FND_API.G_RET_STS_ERROR;
5881: RAISE FND_API.G_EXC_ERROR;
5882: END IF;
5883: END IF;
5884: ELSE
5885: IF pa_security.allow_update (x_project_id => l_project_id ) = 'N' THEN
5896: ,p_attribute2 => ''
5897: ,p_attribute3 => ''
5898: ,p_attribute4 => ''
5899: ,p_attribute5 => '');
5900: p_return_status := FND_API.G_RET_STS_ERROR;
5901: RAISE FND_API.G_EXC_ERROR;
5902: END IF;
5903: END IF;
5904: END IF; -- End caching - bug 13923366
5897: ,p_attribute3 => ''
5898: ,p_attribute4 => ''
5899: ,p_attribute5 => '');
5900: p_return_status := FND_API.G_RET_STS_ERROR;
5901: RAISE FND_API.G_EXC_ERROR;
5902: END IF;
5903: END IF;
5904: END IF; -- End caching - bug 13923366
5905:
5910: p_pm_task_reference => p_pm_task_reference,
5911: p_out_task_id => l_task_id,
5912: p_return_status => l_return_status );
5913:
5914: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5915: THEN
5916:
5917: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5918:
5913:
5914: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5915: THEN
5916:
5917: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5918:
5919: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5920: THEN
5921:
5915: THEN
5916:
5917: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5918:
5919: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5920: THEN
5921:
5922: RAISE FND_API.G_EXC_ERROR;
5923: END IF;
5918:
5919: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5920: THEN
5921:
5922: RAISE FND_API.G_EXC_ERROR;
5923: END IF;
5924:
5925: -- Get segment1 for AMG messages
5926: -- Caching for Huawei enhancement bug 13923366 by skkoppul
6234: ,p_attribute4 => ''
6235: ,p_attribute5 => '');
6236: END IF;
6237: END IF;
6238: RAISE FND_API.G_EXC_ERROR;
6239:
6240: ELSIF l_err_code < 0
6241: THEN
6242: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6238: RAISE FND_API.G_EXC_ERROR;
6239:
6240: ELSIF l_err_code < 0
6241: THEN
6242: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6243: END IF;
6244:
6245: --bug 2955326
6246: /*
6278: ,p_attribute3 => ''
6279: ,p_attribute4 => ''
6280: ,p_attribute5 => '');
6281: END IF;
6282: RAISE FND_API.G_EXC_ERROR;
6283: END IF;
6284: --bug 2955326
6285: /*
6286: l_statement := l_statement ||
6306: CLOSE l_get_project_type_info_csr;
6307:
6308: If p_billable_flag = 'Y' and l_project_type_class_code = 'INDIRECT'
6309: THEN
6310: p_return_status := FND_API.G_RET_STS_ERROR;
6311:
6312: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
6313: THEN
6314: pa_interface_utils_pub.map_new_amg_msg
6322: ,p_attribute4 => ''
6323: ,p_attribute5 => '');
6324: END IF;
6325:
6326: RAISE FND_API.G_EXC_ERROR;
6327:
6328: END IF;
6329: END IF; -- end changes for bug 13923366
6330: /* end of code added for bug #2666913 */
6374: ,p_attribute3 => ''
6375: ,p_attribute4 => ''
6376: ,p_attribute5 => '');
6377: END IF;
6378: RAISE FND_API.G_EXC_ERROR;
6379:
6380: END IF;
6381:
6382: CLOSE l_service_type_csr;
6432: ,p_attribute3 => ''
6433: ,p_attribute4 => ''
6434: ,p_attribute5 => '');
6435: END IF;
6436: RAISE FND_API.G_EXC_ERROR;
6437: /* bug #5243018: Reverting the fix in bug 4120380.
6438: END IF; -- END OF IF task_number_change_Ok_flag = 'N' */
6439: END IF;
6440: IF l_children_exist = 'N'
6473: ,p_attribute4 => ''
6474: ,p_attribute5 => '');
6475: END IF;
6476: END IF;
6477: RAISE FND_API.G_EXC_ERROR;
6478:
6479: ELSIF l_err_code < 0
6480: THEN
6481:
6478:
6479: ELSIF l_err_code < 0
6480: THEN
6481:
6482: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6483: END IF;
6484: END IF;
6485: --bug 2955326
6486: /*
6532: ,p_update_start_date_flag => l_update_start_date_flag
6533: ,p_update_end_date_flag => l_update_end_date_flag
6534: ,p_return_status => l_return_status );
6535:
6536: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6537: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6538: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6539: RAISE FND_API.G_EXC_ERROR;
6540: END IF;
6533: ,p_update_end_date_flag => l_update_end_date_flag
6534: ,p_return_status => l_return_status );
6535:
6536: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6537: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6538: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6539: RAISE FND_API.G_EXC_ERROR;
6540: END IF;
6541:
6534: ,p_return_status => l_return_status );
6535:
6536: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6537: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6538: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6539: RAISE FND_API.G_EXC_ERROR;
6540: END IF;
6541:
6542: IF pa_project_pub.G_ParChildTsk_chks_deferred = 'N' THEN
6535:
6536: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6537: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6538: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6539: RAISE FND_API.G_EXC_ERROR;
6540: END IF;
6541:
6542: IF pa_project_pub.G_ParChildTsk_chks_deferred = 'N' THEN
6543: IF l_children_exist = 'Y' THEN
6573: ,p_attribute3 => ''
6574: ,p_attribute4 => ''
6575: ,p_attribute5 => '');
6576: END IF;
6577: RAISE FND_API.G_EXC_ERROR;
6578: END IF;
6579:
6580: -- Do the comparison between parent and child task dates only if
6581: -- the global variable is set to 'N'
6594: ,p_attribute3 => ''
6595: ,p_attribute4 => ''
6596: ,p_attribute5 => '');
6597: END IF;
6598: RAISE FND_API.G_EXC_ERROR;
6599: END IF;
6600: END IF;
6601:
6602: IF l_task_rec.parent_task_id IS NOT NULL THEN
6612: ,p_attribute3 => ''
6613: ,p_attribute4 => ''
6614: ,p_attribute5 => '');
6615: END IF;
6616: RAISE FND_API.G_EXC_ERROR;
6617: END IF;
6618: END IF;
6619: END IF; -- End if pa_project_pub.G_ParChildTsk_chks_deferred
6620:
6630: p_start_date => p_task_start_date,
6631: x_return_status => l_return_status,
6632: x_msg_count => l_msg_count,
6633: x_msg_data => l_msg_data);
6634: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6635: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6636: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6637: RAISE FND_API.G_EXC_ERROR;
6638: END IF;
6631: x_return_status => l_return_status,
6632: x_msg_count => l_msg_count,
6633: x_msg_data => l_msg_data);
6634: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6635: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6636: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6637: RAISE FND_API.G_EXC_ERROR;
6638: END IF;
6639: END IF;
6632: x_msg_count => l_msg_count,
6633: x_msg_data => l_msg_data);
6634: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6635: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6636: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6637: RAISE FND_API.G_EXC_ERROR;
6638: END IF;
6639: END IF;
6640: --bug 13011347 end
6633: x_msg_data => l_msg_data);
6634: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6635: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6636: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6637: RAISE FND_API.G_EXC_ERROR;
6638: END IF;
6639: END IF;
6640: --bug 13011347 end
6641: --bug 2955326
6670: ,p_attribute3 => ''
6671: ,p_attribute4 => ''
6672: ,p_attribute5 => '');
6673: END IF;
6674: RAISE FND_API.G_EXC_ERROR;
6675: END IF;
6676:
6677: -- Do the comparison between parent and child task dates only if
6678: -- the global variable is set to 'N'
6692: ,p_attribute3 => ''
6693: ,p_attribute4 => ''
6694: ,p_attribute5 => '');
6695: END IF;
6696: RAISE FND_API.G_EXC_ERROR;
6697: END IF;
6698: END IF; */ -- commented for bug#8301015
6699:
6700: IF l_task_rec.parent_task_id IS NOT NULL
6713: ,p_attribute3 => ''
6714: ,p_attribute4 => ''
6715: ,p_attribute5 => '');
6716: END IF;
6717: RAISE FND_API.G_EXC_ERROR;
6718: END IF;
6719: END IF;
6720: END IF; -- End if pa_project_pub.G_ParChildTsk_chks_deferred;
6721:
6732: p_end_date => p_task_completion_date,
6733: x_return_status => l_return_status,
6734: x_msg_count => l_msg_count,
6735: x_msg_data => l_msg_data);
6736: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6737: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6738: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6739: RAISE FND_API.G_EXC_ERROR;
6740: END IF;
6733: x_return_status => l_return_status,
6734: x_msg_count => l_msg_count,
6735: x_msg_data => l_msg_data);
6736: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6737: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6738: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6739: RAISE FND_API.G_EXC_ERROR;
6740: END IF;
6741: END IF;
6734: x_msg_count => l_msg_count,
6735: x_msg_data => l_msg_data);
6736: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6737: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6738: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6739: RAISE FND_API.G_EXC_ERROR;
6740: END IF;
6741: END IF;
6742: --bug 13011347 end
6735: x_msg_data => l_msg_data);
6736: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6737: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6738: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6739: RAISE FND_API.G_EXC_ERROR;
6740: END IF;
6741: END IF;
6742: --bug 13011347 end
6743: --bug 2955326
6790: ,p_attribute3 => ''
6791: ,p_attribute4 => ''
6792: ,p_attribute5 => '');
6793: END IF;
6794: RAISE FND_API.G_EXC_ERROR;
6795: ELSE
6796: CLOSE l_validate_parent_id_csr;
6797: l_new_parent_task_id := p_pa_parent_task_id;
6798: END IF;
6817: ,p_attribute3 => ''
6818: ,p_attribute4 => ''
6819: ,p_attribute5 => '');
6820: END IF;
6821: RAISE FND_API.G_EXC_ERROR;
6822: END IF;
6823: CLOSE l_convert_pm_parent_to_id_csr;
6824: END IF;
6825: END IF;
6856: ,p_attribute3 => ''
6857: ,p_attribute4 => ''
6858: ,p_attribute5 => '');
6859: END IF;
6860: RAISE FND_API.G_EXC_ERROR;
6861: END IF;
6862:
6863:
6864: IF l_new_parent_task_id IS NOT NULL
6868: --rtarway, for DHI ER, BUG 4413568
6869: IF ( PA_PROJECT_PUB.G_TASK_STR_UPDATE_MODE = 'PA_UPD_TASK_ATTR' ) THEN
6870: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
6871: p_msg_name => 'PA_WBS_CANT_CHANGE');
6872: RAISE FND_API.G_EXC_ERROR;
6873: END IF;
6874:
6875: -- get the wbs_level for the new parent task
6876: OPEN l_parent_wbs_csr ( l_project_id, l_new_parent_task_id );
6887: ,x_msg_count => l_msg_count
6888: ,x_msg_data => l_msg_data
6889: );
6890:
6891: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6892: THEN
6893: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6894:
6895: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
6889: );
6890:
6891: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6892: THEN
6893: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6894:
6895: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
6896: THEN
6897: RAISE FND_API.G_EXC_ERROR;
6891: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6892: THEN
6893: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6894:
6895: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
6896: THEN
6897: RAISE FND_API.G_EXC_ERROR;
6898: END IF;
6899: --End bug 2947492
6893: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6894:
6895: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
6896: THEN
6897: RAISE FND_API.G_EXC_ERROR;
6898: END IF;
6899: --End bug 2947492
6900: */ --commented out as per mail from venkatesh dated 22 jan 2004 -- maansari
6901: --bug 3010538
6916: ,x_return_status => l_return_status
6917: ,x_msg_count => l_msg_count
6918: ,x_msg_data => l_msg_data );
6919:
6920: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6921: RAISE FND_API.G_EXC_ERROR;
6922: end if;
6923: END IF;
6924: --bug 3010538
6917: ,x_msg_count => l_msg_count
6918: ,x_msg_data => l_msg_data );
6919:
6920: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6921: RAISE FND_API.G_EXC_ERROR;
6922: end if;
6923: END IF;
6924: --bug 3010538
6925:
6948: ,p_attribute3 => ''
6949: ,p_attribute4 => ''
6950: ,p_attribute5 => '');
6951: END IF;
6952: RAISE FND_API.G_EXC_ERROR;
6953: END IF;
6954: CLOSE l_chk_chlds_parent_id_csr;
6955:
6956:
6991: END IF; -- IF Pa_project_pvt.check_valid_message
6992:
6993: END IF; -- IF Check_msg_Level
6994:
6995: RAISE FND_API.G_EXC_ERROR;
6996:
6997: END IF;
6998: -- *O
6999:
7012: ,p_attribute3 => ''
7013: ,p_attribute4 => ''
7014: ,p_attribute5 => '');
7015: END IF;
7016: RAISE FND_API.G_EXC_ERROR;
7017:
7018: ELSIF l_new_parent_task_id IS NULL
7019: THEN
7020: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
7029: ,p_attribute3 => ''
7030: ,p_attribute4 => ''
7031: ,p_attribute5 => '');
7032: END IF;
7033: RAISE FND_API.G_EXC_ERROR;
7034: ELSE
7035:
7036: OPEN l_top_task_csr (l_new_parent_task_id);
7037: FETCH l_top_task_csr INTO l_top_task_id;
7054: ,p_attribute3 => ''
7055: ,p_attribute4 => ''
7056: ,p_attribute5 => '');
7057: END IF;
7058: RAISE FND_API.G_EXC_ERROR;
7059: END IF;
7060:
7061: END IF;
7062:
7146: ,p_attribute3 => ''
7147: ,p_attribute4 => ''
7148: ,p_attribute5 => '');
7149: END IF;
7150: RAISE FND_API.G_EXC_ERROR;
7151:
7152: END IF;
7153: END IF;
7154:
7277: WHERE TASK_ID = p_pa_task_id);
7278: END IF;
7279: EXCEPTION
7280: WHEN OTHERS THEN
7281: RAISE FND_API.G_EXC_ERROR; /* Raise error unknown if the query fails! */
7282: END;
7283: END IF; -- end changes for bug 13923366
7284: /* Bug 7403227 end */
7285:
7321: ,p_attribute3 => ''
7322: ,p_attribute4 => ''
7323: ,p_attribute5 => '');
7324: END IF;
7325: RAISE FND_API.G_EXC_ERROR;
7326: END IF;
7327: END IF; /* Bug 7403227 */
7328: -- Update the dff fields - 04/11/97
7329: --bug 6153503 start
7784: ,p_attribute3 => ''
7785: ,p_attribute4 => ''
7786: ,p_attribute5 => '');
7787: END IF;
7788: RAISE FND_API.G_EXC_ERROR;
7789: ELSE
7790: IF nvl(p_work_type_id,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) <> nvl(l_task_rec.work_type_id,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) THEN
7791: --bug 2955326
7792: /*
7801: if lv_count < 1 then
7802: FND_MESSAGE.SET_NAME('PA','PA_INVALID_WORK_TYPE_TASK');
7803: FND_MESSAGE.SET_TOKEN('TASK_NAME',l_amg_task_number);
7804: FND_MSG_PUB.add;
7805: RAISE FND_API.G_EXC_ERROR;
7806: END IF;
7807: END;
7808: ---Bug 14777618 ends here-----
7809: l_statement := l_statement || ' WORK_TYPE_ID = :wk_tp_id ,';
8021: p_out_nl_labor_sch_type => l_out_nl_labor_sch_type,
8022: p_return_status => l_return_status
8023: );
8024:
8025: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
8026: THEN
8027: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8028:
8029: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
8023: );
8024:
8025: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
8026: THEN
8027: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8028:
8029: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
8030: THEN
8031: RAISE FND_API.G_EXC_ERROR;
8025: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
8026: THEN
8027: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8028:
8029: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
8030: THEN
8031: RAISE FND_API.G_EXC_ERROR;
8032: END IF;
8033:
8027: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8028:
8029: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
8030: THEN
8031: RAISE FND_API.G_EXC_ERROR;
8032: END IF;
8033:
8034: validate_schedule_values
8035: (p_pa_project_id => l_project_id,
8056: p_inv_ind_sch_fixed_date => p_inv_ind_sch_fixed_date,
8057: p_return_status => l_return_status
8058: );
8059:
8060: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
8061: THEN
8062:
8063: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8064:
8059:
8060: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
8061: THEN
8062:
8063: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8064:
8065: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
8066: THEN
8067:
8061: THEN
8062:
8063: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8064:
8065: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
8066: THEN
8067:
8068: RAISE FND_API.G_EXC_ERROR;
8069: END IF;
8064:
8065: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
8066: THEN
8067:
8068: RAISE FND_API.G_EXC_ERROR;
8069: END IF;
8070: END IF; -- end changes for bug 13923366
8071:
8072: IF p_labor_sch_type <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
8324: ,p_attribute3 => ''
8325: ,p_attribute4 => ''
8326: ,p_attribute5 => '');
8327: END IF;
8328: RAISE FND_API.G_EXC_ERROR;
8329: END;
8330:
8331: -- start of bug 3795253
8332: else
8388: ,p_attribute3 => ''
8389: ,p_attribute4 => ''
8390: ,p_attribute5 => '');
8391: END IF;
8392: RAISE FND_API.G_EXC_ERROR;
8393: END;
8394: -- start of bug 3795253
8395: else
8396: l_inv_rate_sch_type := g_inv_rate_sch_type;
8555: ,p_attribute3 => ''
8556: ,p_attribute4 => ''
8557: ,p_attribute5 => '');
8558: END IF;
8559: RAISE FND_API.G_EXC_ERROR;
8560: END;
8561: END IF;
8562: END IF;
8563:
8873: ,p_attribute3 => ''
8874: ,p_attribute4 => ''
8875: ,p_attribute5 => '');
8876: END IF;
8877: RAISE FND_API.G_EXC_ERROR;
8878: END IF;
8879: CLOSE l_cost_ind_rate_sch_id_csr;
8880:
8881: -- Add the Schedule ID to the update statement.
8917: ,p_attribute3 => ''
8918: ,p_attribute4 => ''
8919: ,p_attribute5 => '');
8920: END IF;
8921: RAISE FND_API.G_EXC_ERROR;
8922: END IF;
8923: CLOSE l_ind_rate_schedule_type_csr;
8924:
8925: -- End fix for bug # 1335417
9464: AND resource_list_member_id = 0;
9465: END IF;
9466:
9467:
9468: IF FND_API.to_boolean( p_commit )
9469: THEN
9470: COMMIT;
9471: END IF;
9472:
9472:
9473:
9474: EXCEPTION
9475:
9476: WHEN FND_API.G_EXC_ERROR THEN
9477:
9478: p_return_status := FND_API.G_RET_STS_ERROR ;
9479:
9480: -- 4537865 RESET OUT PARAMS
9474: EXCEPTION
9475:
9476: WHEN FND_API.G_EXC_ERROR THEN
9477:
9478: p_return_status := FND_API.G_RET_STS_ERROR ;
9479:
9480: -- 4537865 RESET OUT PARAMS
9481: p_out_pa_task_id := NULL ;
9482: p_out_pm_task_reference := NULL ;
9486: FND_MSG_PUB.Count_And_Get
9487: ( p_count => p_msg_count ,
9488: p_data => p_msg_data );
9489:
9490: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9491:
9492: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9493: -- 4537865 RESET OUT PARAMS
9494: p_out_pa_task_id := NULL ;
9488: p_data => p_msg_data );
9489:
9490: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9491:
9492: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9493: -- 4537865 RESET OUT PARAMS
9494: p_out_pa_task_id := NULL ;
9495: p_out_pm_task_reference := NULL ;
9496:
9504: WHEN ROW_ALREADY_LOCKED THEN
9505:
9506: ROLLBACK TO update_task_pub;
9507:
9508: p_return_status := FND_API.G_RET_STS_ERROR;
9509: -- 4537865 RESET OUT PARAMS
9510: p_out_pa_task_id := NULL ;
9511: p_out_pm_task_reference := NULL ;
9512:
9526:
9527: WHEN OTHERS THEN
9528:
9529: ROLLBACK TO Update_Task_pub;
9530: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9531:
9532: -- 4537865 RESET OUT PARAMS
9533: p_out_pa_task_id := NULL ;
9534: p_out_pm_task_reference := NULL ;
9549: END update_one_task;
9550:
9551: PROCEDURE delete_task1
9552: ( p_api_version_number IN NUMBER
9553: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
9554: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
9555: ,p_msg_count OUT NOCOPY NUMBER -- 4537865 Added nocopy hint
9556: ,p_msg_data OUT NOCOPY VARCHAR2 -- 4537865 Added nocopy hint
9557: ,p_return_status OUT NOCOPY VARCHAR2 -- 4537865 Added nocopy hint
9550:
9551: PROCEDURE delete_task1
9552: ( p_api_version_number IN NUMBER
9553: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
9554: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
9555: ,p_msg_count OUT NOCOPY NUMBER -- 4537865 Added nocopy hint
9556: ,p_msg_data OUT NOCOPY VARCHAR2 -- 4537865 Added nocopy hint
9557: ,p_return_status OUT NOCOPY VARCHAR2 -- 4537865 Added nocopy hint
9558: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
9626: SAVEPOINT delete_task_pub;
9627:
9628: -- Standard call to check for call compatibility.
9629:
9630: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
9631: p_api_version_number ,
9632: l_api_name ,
9633: G_PKG_NAME )
9634: THEN
9632: l_api_name ,
9633: G_PKG_NAME )
9634: THEN
9635:
9636: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9637:
9638: END IF;
9639:
9640: -- pm_product_code is mandatory
9659: ,p_attribute3 => ''
9660: ,p_attribute4 => ''
9661: ,p_attribute5 => '');
9662: END IF;
9663: RAISE FND_API.G_EXC_ERROR;
9664: END IF;
9665:
9666: --bug 2841158
9667: IF p_pm_product_code <> 'WORKPLAN'
9688: ,p_attribute3 => ''
9689: ,p_attribute4 => ''
9690: ,p_attribute5 => '');
9691: END IF;
9692: p_return_status := FND_API.G_RET_STS_ERROR;
9693: RAISE FND_API.G_EXC_ERROR;
9694: END IF;
9695: END IF; --bug 2841158
9696:
9689: ,p_attribute4 => ''
9690: ,p_attribute5 => '');
9691: END IF;
9692: p_return_status := FND_API.G_RET_STS_ERROR;
9693: RAISE FND_API.G_EXC_ERROR;
9694: END IF;
9695: END IF; --bug 2841158
9696:
9697:
9711: p_msg_data => l_msg_data,
9712: p_return_status => l_return_status,
9713: p_function_allowed => l_function_allowed );
9714:
9715: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
9716: THEN
9717: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9718:
9719: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
9713: p_function_allowed => l_function_allowed );
9714:
9715: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
9716: THEN
9717: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9718:
9719: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
9720: THEN
9721: RAISE FND_API.G_EXC_ERROR;
9715: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
9716: THEN
9717: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9718:
9719: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
9720: THEN
9721: RAISE FND_API.G_EXC_ERROR;
9722: END IF;
9723: IF l_function_allowed = 'N' THEN
9717: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9718:
9719: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
9720: THEN
9721: RAISE FND_API.G_EXC_ERROR;
9722: END IF;
9723: IF l_function_allowed = 'N' THEN
9724: pa_interface_utils_pub.map_new_amg_msg
9725: ( p_old_message_code => 'PA_FUNCTION_SECURITY_ENFORCED'
9730: ,p_attribute2 => ''
9731: ,p_attribute3 => ''
9732: ,p_attribute4 => ''
9733: ,p_attribute5 => '');
9734: p_return_status := FND_API.G_RET_STS_ERROR;
9735: RAISE FND_API.G_EXC_ERROR;
9736: END IF;
9737:
9738: -- Initialize the message table if requested.
9731: ,p_attribute3 => ''
9732: ,p_attribute4 => ''
9733: ,p_attribute5 => '');
9734: p_return_status := FND_API.G_RET_STS_ERROR;
9735: RAISE FND_API.G_EXC_ERROR;
9736: END IF;
9737:
9738: -- Initialize the message table if requested.
9739:
9736: END IF;
9737:
9738: -- Initialize the message table if requested.
9739:
9740: IF FND_API.TO_BOOLEAN( p_init_msg_list )
9741: THEN
9742:
9743: FND_MSG_PUB.initialize;
9744:
9746:
9747:
9748: -- Set API return status to success
9749:
9750: p_return_status := FND_API.G_RET_STS_SUCCESS;
9751:
9752:
9753: -- Assumption: the convert API's will do validity checks for project_id and task_id
9754:
9758: ,p_pa_project_id => p_pa_project_id
9759: ,p_out_project_id => l_project_id
9760: ,p_return_status => l_return_status );
9761:
9762: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
9763: THEN
9764: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9765:
9766: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
9760: ,p_return_status => l_return_status );
9761:
9762: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
9763: THEN
9764: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9765:
9766: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
9767: THEN
9768: RAISE FND_API.G_EXC_ERROR;
9762: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
9763: THEN
9764: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9765:
9766: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
9767: THEN
9768: RAISE FND_API.G_EXC_ERROR;
9769: END IF;
9770:
9764: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9765:
9766: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
9767: THEN
9768: RAISE FND_API.G_EXC_ERROR;
9769: END IF;
9770:
9771: IF p_structure_type = 'FINANCIAL'
9772: THEN
9777: ,p_pm_task_reference => p_pm_task_reference
9778: ,p_out_task_id => l_task_id
9779: ,p_return_status => l_return_status );
9780:
9781: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
9782: THEN
9783: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9784:
9785: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
9779: ,p_return_status => l_return_status );
9780:
9781: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
9782: THEN
9783: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9784:
9785: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
9786: THEN
9787: RAISE FND_API.G_EXC_ERROR;
9781: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
9782: THEN
9783: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9784:
9785: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
9786: THEN
9787: RAISE FND_API.G_EXC_ERROR;
9788: END IF;
9789:
9783: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9784:
9785: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
9786: THEN
9787: RAISE FND_API.G_EXC_ERROR;
9788: END IF;
9789:
9790: -- Get segment1 for AMG messages
9791:
9839: END IF;
9840:
9841: END IF;
9842:
9843: RAISE FND_API.G_EXC_ERROR;
9844:
9845: ELSIF l_err_code < 0
9846: then
9847:
9858: ,p_attribute4 => ''
9859: ,p_attribute5 => '');
9860: END IF;
9861:
9862: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9863:
9864: end IF;
9865:
9866: --Call plannable task api here bug 2947492
9872: ,x_msg_count => l_msg_count
9873: ,x_msg_data => l_msg_data
9874: ,x_return_status => l_return_status);
9875:
9876: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9877: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9878: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9879: RAISE FND_API.G_EXC_ERROR;
9880: END IF;
9873: ,x_msg_data => l_msg_data
9874: ,x_return_status => l_return_status);
9875:
9876: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9877: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9878: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9879: RAISE FND_API.G_EXC_ERROR;
9880: END IF;
9881: --End bug 2947492
9874: ,x_return_status => l_return_status);
9875:
9876: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9877: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9878: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9879: RAISE FND_API.G_EXC_ERROR;
9880: END IF;
9881: --End bug 2947492
9882:
9875:
9876: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9877: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9878: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9879: RAISE FND_API.G_EXC_ERROR;
9880: END IF;
9881: --End bug 2947492
9882:
9883: --lock the task row and all it's children before it is going to be deleted / updated
9908: ,p_attribute4 => ''
9909: ,p_attribute5 => '');
9910: END IF;
9911:
9912: RAISE FND_API.G_EXC_ERROR;
9913:
9914: ELSE
9915: l_cascaded_delete_flag := p_cascaded_delete_flag;
9916:
9957: END IF;
9958:
9959: END IF;
9960:
9961: RAISE FND_API.G_EXC_ERROR;
9962:
9963: ELSIF l_err_code < 0
9964: THEN
9965:
9976: ,p_attribute4 => ''
9977: ,p_attribute5 => '');
9978: END IF;
9979:
9980: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9981:
9982: END IF;
9983:
9984: ELSE
9988: p_return_status => l_return_status,
9989: p_msg_count => p_msg_count,
9990: p_msg_data => p_msg_data );
9991:
9992: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
9993: THEN
9994: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9995:
9996: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
9990: p_msg_data => p_msg_data );
9991:
9992: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
9993: THEN
9994: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9995:
9996: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
9997: THEN
9998: RAISE FND_API.G_EXC_ERROR;
9992: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
9993: THEN
9994: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9995:
9996: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
9997: THEN
9998: RAISE FND_API.G_EXC_ERROR;
9999: END IF;
10000:
9994: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9995:
9996: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
9997: THEN
9998: RAISE FND_API.G_EXC_ERROR;
9999: END IF;
10000:
10001:
10002: END IF;
10015: ,x_msg_count => l_msg_count
10016: ,x_msg_data => l_msg_data
10017: ,x_return_status => l_return_status);
10018:
10019: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10020: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10021: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10022: RAISE FND_API.G_EXC_ERROR;
10023: END IF;
10016: ,x_msg_data => l_msg_data
10017: ,x_return_status => l_return_status);
10018:
10019: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10020: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10021: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10022: RAISE FND_API.G_EXC_ERROR;
10023: END IF;
10024:
10017: ,x_return_status => l_return_status);
10018:
10019: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10020: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10021: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10022: RAISE FND_API.G_EXC_ERROR;
10023: END IF;
10024:
10025: --bug 2765115
10018:
10019: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10020: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10021: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10022: RAISE FND_API.G_EXC_ERROR;
10023: END IF;
10024:
10025: --bug 2765115
10026:
10080:
10081: l_task_id:= l_task_id_out;
10082: -- End of Bug Fix 5263429
10083:
10084: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10085: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10086: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10087: RAISE FND_API.G_EXC_ERROR;
10088: END IF;
10081: l_task_id:= l_task_id_out;
10082: -- End of Bug Fix 5263429
10083:
10084: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10085: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10086: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10087: RAISE FND_API.G_EXC_ERROR;
10088: END IF;
10089: END IF;
10082: -- End of Bug Fix 5263429
10083:
10084: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10085: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10086: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10087: RAISE FND_API.G_EXC_ERROR;
10088: END IF;
10089: END IF;
10090:
10083:
10084: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10085: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10086: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10087: RAISE FND_API.G_EXC_ERROR;
10088: END IF;
10089: END IF;
10090:
10091: -- end for bug# 3801426
10102: ,x_msg_count => l_msg_count
10103: ,x_msg_data => l_msg_data
10104: ,x_return_status => l_return_status);
10105:
10106: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10107: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10108: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10109: RAISE FND_API.G_EXC_ERROR;
10110: END IF;
10103: ,x_msg_data => l_msg_data
10104: ,x_return_status => l_return_status);
10105:
10106: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10107: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10108: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10109: RAISE FND_API.G_EXC_ERROR;
10110: END IF;
10111:
10104: ,x_return_status => l_return_status);
10105:
10106: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10107: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10108: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10109: RAISE FND_API.G_EXC_ERROR;
10110: END IF;
10111:
10112: p_project_id := l_project_id;
10105:
10106: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10107: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10108: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10109: RAISE FND_API.G_EXC_ERROR;
10110: END IF;
10111:
10112: p_project_id := l_project_id;
10113: p_task_id := p_task_id;
10114:
10115: --Project Structures Integration
10116: END IF; --<< p_structrue_type >>
10117:
10118: IF FND_API.to_boolean( p_commit )
10119: THEN
10120: COMMIT;
10121: END IF;
10122:
10122:
10123:
10124: EXCEPTION
10125:
10126: WHEN FND_API.G_EXC_ERROR
10127: THEN
10128: ROLLBACK TO delete_task_pub;
10129:
10130: p_return_status := FND_API.G_RET_STS_ERROR;
10126: WHEN FND_API.G_EXC_ERROR
10127: THEN
10128: ROLLBACK TO delete_task_pub;
10129:
10130: p_return_status := FND_API.G_RET_STS_ERROR;
10131:
10132: -- 4537865 RESET OUT PARAMS
10133: p_project_id := NULL ;
10134: p_task_id := NULL ;
10136: FND_MSG_PUB.Count_And_Get
10137: ( p_count => p_msg_count ,
10138: p_data => p_msg_data );
10139:
10140: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
10141: THEN
10142: ROLLBACK TO delete_task_pub;
10143:
10144: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10140: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
10141: THEN
10142: ROLLBACK TO delete_task_pub;
10143:
10144: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10145:
10146: -- 4537865 RESET OUT PARAMS
10147: p_project_id := NULL ;
10148: p_task_id := NULL ;
10154: WHEN ROW_ALREADY_LOCKED
10155: THEN
10156: ROLLBACK TO delete_task_pub;
10157:
10158: p_return_status := FND_API.G_RET_STS_ERROR;
10159:
10160: -- 4537865 RESET OUT PARAMS
10161: p_project_id := NULL ;
10162: p_task_id := NULL ;
10176:
10177: WHEN OTHERS THEN
10178: ROLLBACK TO delete_task_pub;
10179:
10180: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10181:
10182: -- 4537865 RESET OUT PARAMS
10183: p_project_id := NULL ;
10184: p_task_id := NULL ;
10208: --
10209: --
10210: PROCEDURE approve_project1
10211: ( p_api_version_number IN NUMBER
10212: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
10213: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
10214: ,p_msg_count OUT NOCOPY NUMBER -- 4537865 Added nocopy hint
10215: ,p_msg_data OUT NOCOPY VARCHAR2 -- 4537865 Added nocopy hint
10216: ,p_return_status OUT NOCOPY VARCHAR2 -- 4537865 Added nocopy hint
10209: --
10210: PROCEDURE approve_project1
10211: ( p_api_version_number IN NUMBER
10212: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
10213: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
10214: ,p_msg_count OUT NOCOPY NUMBER -- 4537865 Added nocopy hint
10215: ,p_msg_data OUT NOCOPY VARCHAR2 -- 4537865 Added nocopy hint
10216: ,p_return_status OUT NOCOPY VARCHAR2 -- 4537865 Added nocopy hint
10217: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
10242: --
10243:
10244: PROCEDURE delete_project1
10245: ( p_api_version_number IN NUMBER
10246: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
10247: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
10248: ,p_msg_count OUT NOCOPY NUMBER -- 4537865 Added nocopy hint
10249: ,p_msg_data OUT NOCOPY VARCHAR2 -- 4537865 Added nocopy hint
10250: ,p_return_status OUT NOCOPY VARCHAR2 -- 4537865 Added nocopy hint
10243:
10244: PROCEDURE delete_project1
10245: ( p_api_version_number IN NUMBER
10246: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
10247: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
10248: ,p_msg_count OUT NOCOPY NUMBER -- 4537865 Added nocopy hint
10249: ,p_msg_data OUT NOCOPY VARCHAR2 -- 4537865 Added nocopy hint
10250: ,p_return_status OUT NOCOPY VARCHAR2 -- 4537865 Added nocopy hint
10251: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
10294: SAVEPOINT delete_project_pub;
10295:
10296: -- Standard call to check for call compatibility.
10297:
10298: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
10299: p_api_version_number ,
10300: l_api_name ,
10301: G_PKG_NAME )
10302: THEN
10300: l_api_name ,
10301: G_PKG_NAME )
10302: THEN
10303:
10304: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10305:
10306:
10307: END IF;
10308:
10307: END IF;
10308:
10309: -- Initialize the message table if requested.
10310:
10311: IF FND_API.TO_BOOLEAN( p_init_msg_list )
10312: THEN
10313:
10314: FND_MSG_PUB.initialize;
10315:
10337: ,p_attribute3 => ''
10338: ,p_attribute4 => ''
10339: ,p_attribute5 => '');
10340: END IF;
10341: RAISE FND_API.G_EXC_ERROR;
10342: END IF;
10343:
10344: --bug 2841158
10345: IF p_pm_product_code <> 'WORKPLAN'
10366: ,p_attribute3 => ''
10367: ,p_attribute4 => ''
10368: ,p_attribute5 => '');
10369: END IF;
10370: p_return_status := FND_API.G_RET_STS_ERROR;
10371: RAISE FND_API.G_EXC_ERROR;
10372: END IF;
10373: END IF; --bug 2841158
10374:
10367: ,p_attribute4 => ''
10368: ,p_attribute5 => '');
10369: END IF;
10370: p_return_status := FND_API.G_RET_STS_ERROR;
10371: RAISE FND_API.G_EXC_ERROR;
10372: END IF;
10373: END IF; --bug 2841158
10374:
10375: -- Set API return status to success
10373: END IF; --bug 2841158
10374:
10375: -- Set API return status to success
10376:
10377: p_return_status := FND_API.G_RET_STS_SUCCESS;
10378: l_resp_id := FND_GLOBAL.Resp_id;
10379: l_user_id := FND_GLOBAL.User_id;
10380: --l_module_name := p_pm_product_code||'.'||'PA_PM_DELETE_PROJECT';
10381: l_module_name := 'PA_PM_DELETE_PROJECT';
10402: p_msg_data => l_msg_data,
10403: p_return_status => l_return_status,
10404: p_function_allowed => l_function_allowed );
10405:
10406: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
10407: THEN
10408: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10409:
10410: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
10404: p_function_allowed => l_function_allowed );
10405:
10406: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
10407: THEN
10408: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10409:
10410: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
10411: THEN
10412: RAISE FND_API.G_EXC_ERROR;
10406: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
10407: THEN
10408: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10409:
10410: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
10411: THEN
10412: RAISE FND_API.G_EXC_ERROR;
10413: END IF;
10414: IF l_function_allowed = 'N' THEN
10408: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10409:
10410: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
10411: THEN
10412: RAISE FND_API.G_EXC_ERROR;
10413: END IF;
10414: IF l_function_allowed = 'N' THEN
10415: pa_interface_utils_pub.map_new_amg_msg
10416: ( p_old_message_code => 'PA_FUNCTION_SECURITY_ENFORCED'
10421: ,p_attribute2 => ''
10422: ,p_attribute3 => ''
10423: ,p_attribute4 => ''
10424: ,p_attribute5 => '');
10425: p_return_status := FND_API.G_RET_STS_ERROR;
10426: RAISE FND_API.G_EXC_ERROR;
10427: END IF;
10428:
10429:
10422: ,p_attribute3 => ''
10423: ,p_attribute4 => ''
10424: ,p_attribute5 => '');
10425: p_return_status := FND_API.G_RET_STS_ERROR;
10426: RAISE FND_API.G_EXC_ERROR;
10427: END IF;
10428:
10429:
10430: --Assumption: convert API will do validity check for project_id
10435: ,p_pa_project_id => p_pa_project_id
10436: ,p_out_project_id => l_project_id
10437: ,p_return_status => l_return_status );
10438:
10439: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
10440: THEN
10441: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10442:
10443: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
10437: ,p_return_status => l_return_status );
10438:
10439: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
10440: THEN
10441: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10442:
10443: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
10444: THEN
10445: RAISE FND_API.G_EXC_ERROR;
10439: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
10440: THEN
10441: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10442:
10443: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
10444: THEN
10445: RAISE FND_API.G_EXC_ERROR;
10446: END IF;
10447:
10441: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10442:
10443: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
10444: THEN
10445: RAISE FND_API.G_EXC_ERROR;
10446: END IF;
10447:
10448: -- Now verify whether project security allows the user to delete
10449: -- the project
10462: ,p_attribute2 => ''
10463: ,p_attribute3 => ''
10464: ,p_attribute4 => ''
10465: ,p_attribute5 => '');
10466: p_return_status := FND_API.G_RET_STS_ERROR;
10467: RAISE FND_API.G_EXC_ERROR;
10468: ELSE
10469: -- If the user has query privileges, then check whether
10470: -- update privileges are also available
10463: ,p_attribute3 => ''
10464: ,p_attribute4 => ''
10465: ,p_attribute5 => '');
10466: p_return_status := FND_API.G_RET_STS_ERROR;
10467: RAISE FND_API.G_EXC_ERROR;
10468: ELSE
10469: -- If the user has query privileges, then check whether
10470: -- update privileges are also available
10471: IF pa_security.allow_update (x_project_id => l_project_id ) = 'N' THEN
10482: ,p_attribute2 => ''
10483: ,p_attribute3 => ''
10484: ,p_attribute4 => ''
10485: ,p_attribute5 => '');
10486: p_return_status := FND_API.G_RET_STS_ERROR;
10487: RAISE FND_API.G_EXC_ERROR;
10488: END IF;
10489: END IF;
10490:
10483: ,p_attribute3 => ''
10484: ,p_attribute4 => ''
10485: ,p_attribute5 => '');
10486: p_return_status := FND_API.G_RET_STS_ERROR;
10487: RAISE FND_API.G_EXC_ERROR;
10488: END IF;
10489: END IF;
10490:
10491: -- Get segment1 for AMG messages
10538: END IF;
10539:
10540: IF l_err_code > 0 THEN
10541:
10542: RAISE FND_API.G_EXC_ERROR;
10543:
10544: ELSIF l_err_code < 0 THEN
10545:
10546: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10542: RAISE FND_API.G_EXC_ERROR;
10543:
10544: ELSIF l_err_code < 0 THEN
10545:
10546: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10547:
10548: END IF;
10549:
10550: END IF;
10582: ,p_attribute5 => '');
10583:
10584: END IF;
10585: END IF;
10586: RAISE FND_API.G_EXC_ERROR;
10587: ELSIF l_err_code < 0 THEN
10588: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
10589: THEN
10590:
10598: ,p_attribute3 => ''
10599: ,p_attribute4 => ''
10600: ,p_attribute5 => '');
10601: END IF;
10602: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10603: END IF;
10604:
10605: IF FND_API.to_boolean( p_commit )
10606: THEN
10601: END IF;
10602: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10603: END IF;
10604:
10605: IF FND_API.to_boolean( p_commit )
10606: THEN
10607: COMMIT;
10608: END IF;
10609:
10608: END IF;
10609:
10610: EXCEPTION
10611:
10612: WHEN FND_API.G_EXC_ERROR
10613: THEN
10614: ROLLBACK TO delete_project_pub;
10615:
10616: p_return_status := FND_API.G_RET_STS_ERROR;
10612: WHEN FND_API.G_EXC_ERROR
10613: THEN
10614: ROLLBACK TO delete_project_pub;
10615:
10616: p_return_status := FND_API.G_RET_STS_ERROR;
10617:
10618: FND_MSG_PUB.Count_And_Get
10619: ( p_count => p_msg_count ,
10620: p_data => p_msg_data );
10618: FND_MSG_PUB.Count_And_Get
10619: ( p_count => p_msg_count ,
10620: p_data => p_msg_data );
10621:
10622: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
10623: THEN
10624: ROLLBACK TO delete_project_pub;
10625:
10626: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10622: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
10623: THEN
10624: ROLLBACK TO delete_project_pub;
10625:
10626: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10627:
10628: FND_MSG_PUB.Count_And_Get
10629: ( p_count => p_msg_count ,
10630: p_data => p_msg_data );
10632: WHEN ROW_ALREADY_LOCKED THEN
10633:
10634: ROLLBACK TO delete_project_pub;
10635:
10636: p_return_status := FND_API.G_RET_STS_ERROR;
10637:
10638: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
10639: THEN
10640: FND_MESSAGE.SET_NAME('PA','PA_ROW_ALREADY_LOCKED_P_AMG');
10649: WHEN OTHERS THEN
10650:
10651: ROLLBACK TO delete_project_pub;
10652:
10653: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10654:
10655: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
10656: THEN
10657: FND_MSG_PUB.add_exc_msg
10744:
10745:
10746: -- Set API return status to success
10747:
10748: p_return_status := FND_API.G_RET_STS_SUCCESS;
10749:
10750: -- Get segment1 for AMG messages
10751:
10752: OPEN l_amg_project_csr( p_project_id );
10775: ,p_attribute3 => ''
10776: ,p_attribute4 => ''
10777: ,p_attribute5 => '');
10778: END IF;
10779: RAISE FND_API.G_EXC_ERROR;
10780: END IF;
10781:
10782: -- validate the role type
10783: OPEN l_project_role_types_csr (p_org_roles(i).project_role_type);
10796: ,p_attribute4 => ''
10797: ,p_attribute5 => '');
10798: END IF;
10799: CLOSE l_project_role_types_csr;
10800: RAISE FND_API.G_EXC_ERROR;
10801: ELSE
10802: CLOSE l_project_role_types_csr;
10803: END IF;
10804:
10822: ,p_attribute4 => ''
10823: ,p_attribute5 => '');
10824: END IF;
10825:
10826: RAISE FND_API.G_EXC_ERROR;
10827: END IF;
10828: END IF;
10829:
10830:
10856: v_null_number := to_number(NULL);
10857:
10858: /* PA_PROJECT_PARTIES_PUB.CREATE_PROJECT_PARTY(
10859: p_api_version => 1.0 -- p_api_version
10860: , p_init_msg_list => FND_API.G_TRUE -- p_init_msg_list
10861: , p_commit => FND_API.G_FALSE -- p_commit
10862: , p_validate_only => FND_API.G_FALSE -- p_validate_only
10863: , p_validation_level => FND_API.G_VALID_LEVEL_FULL -- p_validation_level
10864: , p_debug_mode => 'N' -- p_debug_mode
10857:
10858: /* PA_PROJECT_PARTIES_PUB.CREATE_PROJECT_PARTY(
10859: p_api_version => 1.0 -- p_api_version
10860: , p_init_msg_list => FND_API.G_TRUE -- p_init_msg_list
10861: , p_commit => FND_API.G_FALSE -- p_commit
10862: , p_validate_only => FND_API.G_FALSE -- p_validate_only
10863: , p_validation_level => FND_API.G_VALID_LEVEL_FULL -- p_validation_level
10864: , p_debug_mode => 'N' -- p_debug_mode
10865: , p_object_id => p_project_id -- p_object_id
10858: /* PA_PROJECT_PARTIES_PUB.CREATE_PROJECT_PARTY(
10859: p_api_version => 1.0 -- p_api_version
10860: , p_init_msg_list => FND_API.G_TRUE -- p_init_msg_list
10861: , p_commit => FND_API.G_FALSE -- p_commit
10862: , p_validate_only => FND_API.G_FALSE -- p_validate_only
10863: , p_validation_level => FND_API.G_VALID_LEVEL_FULL -- p_validation_level
10864: , p_debug_mode => 'N' -- p_debug_mode
10865: , p_object_id => p_project_id -- p_object_id
10866: , p_OBJECT_TYPE => 'PA_PROJECTS' -- p_OBJECT_TYPE
10859: p_api_version => 1.0 -- p_api_version
10860: , p_init_msg_list => FND_API.G_TRUE -- p_init_msg_list
10861: , p_commit => FND_API.G_FALSE -- p_commit
10862: , p_validate_only => FND_API.G_FALSE -- p_validate_only
10863: , p_validation_level => FND_API.G_VALID_LEVEL_FULL -- p_validation_level
10864: , p_debug_mode => 'N' -- p_debug_mode
10865: , p_object_id => p_project_id -- p_object_id
10866: , p_OBJECT_TYPE => 'PA_PROJECTS' -- p_OBJECT_TYPE
10867: , p_project_role_id => v_project_role_id -- p_project_role_id
10888: );
10889: */
10890: PA_PROJECTS_MAINT_PUB.CREATE_ORG_ROLE(
10891: p_api_version => 1.0 -- p_api_version
10892: , p_init_msg_list => FND_API.G_TRUE -- p_init_msg_list
10893: , p_commit => FND_API.G_FALSE -- p_commit
10894: , p_validate_only => FND_API.G_FALSE -- p_validate_only
10895: , p_validation_level => FND_API.G_VALID_LEVEL_FULL -- p_validation_level
10896: , p_debug_mode => 'N' -- p_debug_mode
10889: */
10890: PA_PROJECTS_MAINT_PUB.CREATE_ORG_ROLE(
10891: p_api_version => 1.0 -- p_api_version
10892: , p_init_msg_list => FND_API.G_TRUE -- p_init_msg_list
10893: , p_commit => FND_API.G_FALSE -- p_commit
10894: , p_validate_only => FND_API.G_FALSE -- p_validate_only
10895: , p_validation_level => FND_API.G_VALID_LEVEL_FULL -- p_validation_level
10896: , p_debug_mode => 'N' -- p_debug_mode
10897: , p_object_id => p_project_id -- p_object_id
10890: PA_PROJECTS_MAINT_PUB.CREATE_ORG_ROLE(
10891: p_api_version => 1.0 -- p_api_version
10892: , p_init_msg_list => FND_API.G_TRUE -- p_init_msg_list
10893: , p_commit => FND_API.G_FALSE -- p_commit
10894: , p_validate_only => FND_API.G_FALSE -- p_validate_only
10895: , p_validation_level => FND_API.G_VALID_LEVEL_FULL -- p_validation_level
10896: , p_debug_mode => 'N' -- p_debug_mode
10897: , p_object_id => p_project_id -- p_object_id
10898: , p_OBJECT_TYPE => 'PA_PROJECTS' -- p_OBJECT_TYPE
10891: p_api_version => 1.0 -- p_api_version
10892: , p_init_msg_list => FND_API.G_TRUE -- p_init_msg_list
10893: , p_commit => FND_API.G_FALSE -- p_commit
10894: , p_validate_only => FND_API.G_FALSE -- p_validate_only
10895: , p_validation_level => FND_API.G_VALID_LEVEL_FULL -- p_validation_level
10896: , p_debug_mode => 'N' -- p_debug_mode
10897: , p_object_id => p_project_id -- p_object_id
10898: , p_OBJECT_TYPE => 'PA_PROJECTS' -- p_OBJECT_TYPE
10899: , p_project_role_id => v_project_role_id -- p_project_role_id
10911: , x_msg_count => x_msg_count -- x_msg_count
10912: , x_msg_data => x_msg_data -- x_msg_data
10913: );
10914:
10915: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) Then
10916: p_return_status := x_return_status;
10917: -- p_msg_count := x_msg_count;
10918: -- p_msg_data := SUBSTR(p_msg_data||x_msg_data,1,2000);
10919: if (x_return_status = FND_API.G_RET_STS_ERROR) then
10915: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) Then
10916: p_return_status := x_return_status;
10917: -- p_msg_count := x_msg_count;
10918: -- p_msg_data := SUBSTR(p_msg_data||x_msg_data,1,2000);
10919: if (x_return_status = FND_API.G_RET_STS_ERROR) then
10920: raise FND_API.G_EXC_UNEXPECTED_ERROR;
10921: else -- (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
10922: raise FND_API.G_EXC_ERROR;
10923: end if;
10916: p_return_status := x_return_status;
10917: -- p_msg_count := x_msg_count;
10918: -- p_msg_data := SUBSTR(p_msg_data||x_msg_data,1,2000);
10919: if (x_return_status = FND_API.G_RET_STS_ERROR) then
10920: raise FND_API.G_EXC_UNEXPECTED_ERROR;
10921: else -- (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
10922: raise FND_API.G_EXC_ERROR;
10923: end if;
10924: END IF;
10917: -- p_msg_count := x_msg_count;
10918: -- p_msg_data := SUBSTR(p_msg_data||x_msg_data,1,2000);
10919: if (x_return_status = FND_API.G_RET_STS_ERROR) then
10920: raise FND_API.G_EXC_UNEXPECTED_ERROR;
10921: else -- (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
10922: raise FND_API.G_EXC_ERROR;
10923: end if;
10924: END IF;
10925:
10918: -- p_msg_data := SUBSTR(p_msg_data||x_msg_data,1,2000);
10919: if (x_return_status = FND_API.G_RET_STS_ERROR) then
10920: raise FND_API.G_EXC_UNEXPECTED_ERROR;
10921: else -- (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
10922: raise FND_API.G_EXC_ERROR;
10923: end if;
10924: END IF;
10925:
10926: END IF; -- IF(p_org_roles(i).person_id <>
10931:
10932:
10933: EXCEPTION
10934:
10935: WHEN FND_API.G_EXC_ERROR
10936: THEN
10937: /* dbms_output.put_line('handling an G_EXC_ERROR exception'); */
10938: ROLLBACK TO add_org_roles_pvt;
10939:
10936: THEN
10937: /* dbms_output.put_line('handling an G_EXC_ERROR exception'); */
10938: ROLLBACK TO add_org_roles_pvt;
10939:
10940: p_return_status := FND_API.G_RET_STS_ERROR;
10941:
10942: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
10943: THEN
10944: /* dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception'); */
10938: ROLLBACK TO add_org_roles_pvt;
10939:
10940: p_return_status := FND_API.G_RET_STS_ERROR;
10941:
10942: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
10943: THEN
10944: /* dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception'); */
10945: ROLLBACK TO add_org_roles_pvt;
10946:
10943: THEN
10944: /* dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception'); */
10945: ROLLBACK TO add_org_roles_pvt;
10946:
10947: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10948:
10949: WHEN OTHERS THEN
10950: /* dbms_output.put_line('handling an OTHERS exception'); */
10951: ROLLBACK TO add_org_roles_pvt;
10949: WHEN OTHERS THEN
10950: /* dbms_output.put_line('handling an OTHERS exception'); */
10951: ROLLBACK TO add_org_roles_pvt;
10952:
10953: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10954:
10955: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
10956: THEN
10957: FND_MSG_PUB.add_exc_msg
11146: l_amg_task_number VARCHAR2(50);
11147:
11148: BEGIN
11149:
11150: p_return_status := FND_API.G_RET_STS_SUCCESS;
11151:
11152: OPEN l_amg_project_csr( p_pa_project_id );
11153: FETCH l_amg_project_csr INTO l_amg_segment1;
11154: CLOSE l_amg_project_csr;
11191: ,p_attribute3 => ''
11192: ,p_attribute4 => ''
11193: ,p_attribute5 => '');
11194: END IF;
11195: RAISE FND_API.G_EXC_ERROR;
11196:
11197: ELSE
11198:
11199: p_out_labor_sch_type := p_in_labor_sch_type;
11232: ,p_attribute3 => ''
11233: ,p_attribute4 => ''
11234: ,p_attribute5 => '');
11235: END IF;
11236: RAISE FND_API.G_EXC_ERROR;
11237: ELSE
11238:
11239: p_out_nl_labor_sch_type := p_in_nl_sch_type;
11240: END IF;
11240: END IF;
11241:
11242: EXCEPTION
11243:
11244: WHEN FND_API.G_EXC_ERROR
11245: THEN
11246: /* dbms_output.put_line('handling an G_EXC_ERROR exception'); */
11247:
11248: p_return_status := FND_API.G_RET_STS_ERROR;
11244: WHEN FND_API.G_EXC_ERROR
11245: THEN
11246: /* dbms_output.put_line('handling an G_EXC_ERROR exception'); */
11247:
11248: p_return_status := FND_API.G_RET_STS_ERROR;
11249:
11250: -- 4537865 RESET OUT PARAMS
11251: p_out_nl_labor_sch_type := NULL ;
11252: p_out_labor_sch_type := NULL ;
11250: -- 4537865 RESET OUT PARAMS
11251: p_out_nl_labor_sch_type := NULL ;
11252: p_out_labor_sch_type := NULL ;
11253:
11254: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
11255: THEN
11256: /* dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception'); */
11257:
11258: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11254: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
11255: THEN
11256: /* dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception'); */
11257:
11258: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11259: -- 4537865 RESET OUT PARAMS
11260: p_out_nl_labor_sch_type := NULL ;
11261: p_out_labor_sch_type := NULL ;
11262:
11262:
11263: WHEN OTHERS THEN
11264: /* dbms_output.put_line('handling an OTHERS exception'); */
11265:
11266: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11267:
11268: -- 4537865 RESET OUT PARAMS
11269: p_out_nl_labor_sch_type := NULL ;
11270: p_out_labor_sch_type := NULL ;
11428: l_rate_discount_reason_flag pa_implementations.rate_discount_reason_flag%TYPE := 'N'; -- BUG_9873652
11429:
11430: BEGIN
11431:
11432: p_return_status := FND_API.G_RET_STS_SUCCESS;
11433:
11434: OPEN l_amg_project_csr( p_pa_project_id );
11435: FETCH l_amg_project_csr INTO l_amg_segment1;
11436: CLOSE l_amg_project_csr;
11461: ,p_attribute3 => ''
11462: ,p_attribute4 => ''
11463: ,p_attribute5 => '');
11464: END IF;
11465: RAISE FND_API.G_EXC_ERROR;
11466: ELSIF p_non_lab_std_bill_rt_sch_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
11467: IF p_nl_db_sch_type = 'I' THEN /* Schedule is being changed from 'I' (burden) to 'B' (bill) */
11468: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
11469: THEN
11477: ,p_attribute3 => ''
11478: ,p_attribute4 => ''
11479: ,p_attribute5 => '');
11480: END IF;
11481: RAISE FND_API.G_EXC_ERROR;
11482: END IF;
11483: END IF;
11484:
11485: /*Give an error when non_lab_bill_rt_org_id is null and give an error
11500: ,p_attribute3 => ''
11501: ,p_attribute4 => ''
11502: ,p_attribute5 => '');
11503: END IF;
11504: RAISE FND_API.G_EXC_ERROR;
11505: ELSIF p_nl_bill_rate_org_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
11506: IF p_nl_db_sch_type = 'I' THEN
11507: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
11508: THEN
11516: ,p_attribute3 => ''
11517: ,p_attribute4 => ''
11518: ,p_attribute5 => '');
11519: END IF;
11520: RAISE FND_API.G_EXC_ERROR;
11521: END IF;
11522: END IF;
11523:
11524: /*Give an error if the combination of non_labor_bill_rt_sch_id and nl_bill_rate_org_id is invalid*/
11544: ,p_attribute3 => ''
11545: ,p_attribute4 => ''
11546: ,p_attribute5 => '');
11547: END IF;
11548: RAISE FND_API.G_EXC_ERROR;
11549: END IF;
11550: CLOSE l_nl_org_sch_id_csr;
11551: END IF;
11552:
11578: ,p_attribute3 => ''
11579: ,p_attribute4 => ''
11580: ,p_attribute5 => '');
11581: END IF;
11582: RAISE FND_API.G_EXC_ERROR;
11583: END IF;
11584: elsif (p_nl_schedule_discount IS NOT NULL
11585: AND p_nl_schedule_discount <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
11586: THEN
11599: ,p_attribute3 => ''
11600: ,p_attribute4 => ''
11601: ,p_attribute5 => '');
11602: END IF;
11603: RAISE FND_API.G_EXC_ERROR;
11604: ELSE
11605: OPEN get_nl_disc_reason_code_csr(p_non_labor_disc_reason_code);
11606: FETCH get_nl_disc_reason_code_csr INTO l_temp_dummy;
11607: IF get_nl_disc_reason_code_csr%NOTFOUND THEN
11618: ,p_attribute3 => ''
11619: ,p_attribute4 => ''
11620: ,p_attribute5 => '');
11621: END IF;
11622: RAISE FND_API.G_EXC_ERROR;
11623: END IF;
11624: CLOSE get_nl_disc_reason_code_csr;
11625: END IF;
11626: END IF;
11646: ,p_attribute3 => ''
11647: ,p_attribute4 => ''
11648: ,p_attribute5 => '');
11649: END IF;
11650: RAISE FND_API.G_EXC_ERROR;
11651: ELSIF p_rev_ind_rate_sch_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
11652: IF p_nl_db_sch_type = 'B' THEN
11653: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
11654: THEN
11662: ,p_attribute3 => ''
11663: ,p_attribute4 => ''
11664: ,p_attribute5 => '');
11665: END IF;
11666: RAISE FND_API.G_EXC_ERROR;
11667: END IF;
11668: END IF;
11669:
11670:
11693: ,p_attribute3 => ''
11694: ,p_attribute4 => ''
11695: ,p_attribute5 => '');
11696: END IF;
11697: RAISE FND_API.G_EXC_ERROR;
11698: END IF;
11699: CLOSE l_rev_rate_schedule_type_csr;
11700: IF l_rev_rate_schedule_type = 'P'
11701: THEN
11714: ,p_attribute3 => ''
11715: ,p_attribute4 => ''
11716: ,p_attribute5 => '');
11717: END IF;
11718: RAISE FND_API.G_EXC_ERROR;
11719: END IF;
11720: END IF;
11721: END IF;
11722:
11742: ,p_attribute3 => ''
11743: ,p_attribute4 => ''
11744: ,p_attribute5 => '');
11745: END IF;
11746: RAISE FND_API.G_EXC_ERROR;
11747: ELSIF p_inv_ind_rate_sch_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
11748: IF p_nl_db_sch_type = 'B' THEN
11749: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
11750: THEN
11758: ,p_attribute3 => ''
11759: ,p_attribute4 => ''
11760: ,p_attribute5 => '');
11761: END IF;
11762: RAISE FND_API.G_EXC_ERROR;
11763: END IF;
11764: END IF;
11765:
11766:
11790: ,p_attribute3 => ''
11791: ,p_attribute4 => ''
11792: ,p_attribute5 => '');
11793: END IF;
11794: RAISE FND_API.G_EXC_ERROR;
11795: END IF;
11796: CLOSE l_inv_rate_schedule_type_csr;
11797: IF l_inv_rate_schedule_type = 'P'
11798: THEN
11811: ,p_attribute3 => ''
11812: ,p_attribute4 => ''
11813: ,p_attribute5 => '');
11814: END IF;
11815: RAISE FND_API.G_EXC_ERROR;
11816: END IF;
11817: END IF;
11818: END IF;
11819:
11848: ,p_attribute3 => ''
11849: ,p_attribute4 => ''
11850: ,p_attribute5 => '');
11851: END IF;
11852: RAISE FND_API.G_EXC_ERROR;
11853: END IF;
11854: CLOSE l_emp_rate_sch_id_csr;
11855: END IF;
11856:
11877: ,p_attribute3 => ''
11878: ,p_attribute4 => ''
11879: ,p_attribute5 => '');
11880: END IF;
11881: RAISE FND_API.G_EXC_ERROR;
11882: ELSIF p_job_bill_rate_schedule_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
11883: THEN
11884: IF p_lab_db_sch_type = 'I' THEN
11885: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
11894: ,p_attribute3 => ''
11895: ,p_attribute4 => ''
11896: ,p_attribute5 => '');
11897: END IF;
11898: RAISE FND_API.G_EXC_ERROR;
11899: END IF;
11900: END IF;
11901: END IF;
11902:
11925: ,p_attribute3 => ''
11926: ,p_attribute4 => ''
11927: ,p_attribute5 => '');
11928: END IF;
11929: RAISE FND_API.G_EXC_ERROR;
11930: END IF;
11931: CLOSE l_job_rate_sch_id_csr;
11932: END IF;
11933:
11968: ,p_attribute3 => ''
11969: ,p_attribute4 => ''
11970: ,p_attribute5 => '');
11971: END IF;
11972: RAISE FND_API.G_EXC_ERROR;
11973: END IF;
11974: elsif (p_labor_schedule_discount IS NOT NULL
11975: AND p_labor_schedule_discount <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
11976: AND l_rate_discount_reason_flag = 'Y') --BUG_9873652
11990: ,p_attribute3 => ''
11991: ,p_attribute4 => ''
11992: ,p_attribute5 => '');
11993: END IF;
11994: RAISE FND_API.G_EXC_ERROR;
11995: ELSE
11996: OPEN get_lab_disc_reason_code_csr(p_labor_disc_reason_code);
11997: FETCH get_lab_disc_reason_code_csr INTO l_temp_dummy;
11998: IF get_lab_disc_reason_code_csr%NOTFOUND THEN
12009: ,p_attribute3 => ''
12010: ,p_attribute4 => ''
12011: ,p_attribute5 => '');
12012: END IF;
12013: RAISE FND_API.G_EXC_ERROR;
12014: END IF;
12015: CLOSE get_lab_disc_reason_code_csr;
12016: END IF;
12017: END IF;
12040: ,p_attribute3 => ''
12041: ,p_attribute4 => ''
12042: ,p_attribute5 => '');
12043: END IF;
12044: RAISE FND_API.G_EXC_ERROR;
12045: ELSIF p_rev_ind_rate_sch_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
12046: IF p_lab_db_sch_type = 'B' THEN
12047: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
12048: THEN
12056: ,p_attribute3 => ''
12057: ,p_attribute4 => ''
12058: ,p_attribute5 => '');
12059: END IF;
12060: RAISE FND_API.G_EXC_ERROR;
12061: END IF;
12062: END IF;
12063:
12064:
12108: ,p_attribute3 => ''
12109: ,p_attribute4 => ''
12110: ,p_attribute5 => '');
12111: END IF;
12112: RAISE FND_API.G_EXC_ERROR;
12113: END IF;
12114: END IF;
12115: END IF;
12116:
12136: ,p_attribute3 => ''
12137: ,p_attribute4 => ''
12138: ,p_attribute5 => '');
12139: END IF;
12140: RAISE FND_API.G_EXC_ERROR;
12141: ELSIF p_inv_ind_rate_sch_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
12142: IF p_lab_db_sch_type = 'B' THEN
12143: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
12144: THEN
12152: ,p_attribute3 => ''
12153: ,p_attribute4 => ''
12154: ,p_attribute5 => '');
12155: END IF;
12156: RAISE FND_API.G_EXC_ERROR;
12157: END IF;
12158: END IF;
12159:
12160:
12204: ,p_attribute3 => ''
12205: ,p_attribute4 => ''
12206: ,p_attribute5 => '');
12207: END IF;
12208: RAISE FND_API.G_EXC_ERROR;
12209: END IF;
12210: END IF;
12211: END IF;
12212:
12219:
12220:
12221: EXCEPTION
12222:
12223: WHEN FND_API.G_EXC_ERROR
12224: THEN
12225: /* dbms_output.put_line('handling an G_EXC_ERROR exception'); */
12226:
12227: p_return_status := FND_API.G_RET_STS_ERROR;
12223: WHEN FND_API.G_EXC_ERROR
12224: THEN
12225: /* dbms_output.put_line('handling an G_EXC_ERROR exception'); */
12226:
12227: p_return_status := FND_API.G_RET_STS_ERROR;
12228:
12229:
12230: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
12231: THEN
12226:
12227: p_return_status := FND_API.G_RET_STS_ERROR;
12228:
12229:
12230: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
12231: THEN
12232: /* dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception'); */
12233:
12234: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12230: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
12231: THEN
12232: /* dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception'); */
12233:
12234: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12235:
12236:
12237: WHEN OTHERS THEN
12238: /* dbms_output.put_line('handling an OTHERS exception'); */
12236:
12237: WHEN OTHERS THEN
12238: /* dbms_output.put_line('handling an OTHERS exception'); */
12239:
12240: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12241:
12242:
12243: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
12244: THEN
12302: l_msg_index_out NUMBER;
12303: l_debug_mode VARCHAR2(1);
12304: BEGIN
12305:
12306: x_return_status := FND_API.G_RET_STS_SUCCESS;
12307: x_msg_count :=0;
12308: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
12309:
12310: IF l_debug_mode = 'Y' THEN
12330: from pa_project_customers
12331: where project_id=p_project_id;
12332:
12333: if l_cust_count > 0 then
12334: x_return_status := FND_API.G_RET_STS_ERROR;
12335: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
12336: ,p_msg_name => 'PA_INVALID_TASK_CUSTOMER');
12337: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12338: end if;
12358: from pa_project_customers
12359: where project_id=p_project_id;
12360:
12361: if l_cust_count > 0 then
12362: x_return_status := FND_API.G_RET_STS_ERROR;
12363: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
12364: ,p_msg_name => 'PA_INC_NUM_DEF_TT_CUST');
12365: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12366: end if;
12364: ,p_msg_name => 'PA_INC_NUM_DEF_TT_CUST');
12365: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12366: end if;
12367: when TOO_MANY_ROWS then
12368: x_return_status := FND_API.G_RET_STS_ERROR;
12369: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
12370: ,p_msg_name => 'PA_INC_NUM_DEF_TT_CUST');
12371: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12372: end;
12383:
12384: EXCEPTION
12385: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
12386: IF x_return_status IS NULL OR
12387: x_return_status = FND_API.G_RET_STS_SUCCESS THEN
12388: x_return_status := FND_API.G_RET_STS_ERROR;
12389: END IF;
12390:
12391: l_msg_count := FND_MSG_PUB.count_msg;
12384: EXCEPTION
12385: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
12386: IF x_return_status IS NULL OR
12387: x_return_status = FND_API.G_RET_STS_SUCCESS THEN
12388: x_return_status := FND_API.G_RET_STS_ERROR;
12389: END IF;
12390:
12391: l_msg_count := FND_MSG_PUB.count_msg;
12392:
12391: l_msg_count := FND_MSG_PUB.count_msg;
12392:
12393: IF l_msg_count = 1 AND x_msg_data IS NULL THEN
12394: PA_INTERFACE_UTILS_PUB.get_messages
12395: (p_encoded => FND_API.G_TRUE,
12396: p_msg_index => 1,
12397: p_msg_count => l_msg_count,
12398: p_msg_data => l_msg_data,
12399: p_data => l_data,
12409: pa_debug.reset_curr_function;
12410: END IF;
12411: RETURN;
12412: WHEN OTHERS THEN
12413: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12414: x_msg_count := 1;
12415: x_msg_data := SQLERRM;
12416: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_PROJECT_PVT'
12417: ,p_procedure_name => 'VALIDATE_DATA'
12605: UPDATE PA_PROJ_ELEMENT_VERSIONS SET DEFER_CODE='P'
12606: WHERE project_id=p_project_id and NVL(DEFER_CODE,'X') not in ('S','P')
12607: AND proj_element_id=p_task_id AND parent_structure_version_id=p_structure_version_id;
12608: ELSE
12609: RAISE FND_API.G_EXC_ERROR;
12610: END IF;
12611: END LOG_TASK_LEVEL_EVENT;
12612:
12613: end PA_PROJECT_PVT;