[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
1319:
1320:
1321: -- Set API return status to success
1322:
1323: p_return_status := FND_API.G_RET_STS_SUCCESS;
1324:
1325: -- copy the incoming parameters to local variables
1326: l_task_in_rec := p_task_rec;
1327: l_project_id := p_project_rec.project_id;
1356: ,p_attribute4 => ''
1357: ,p_attribute5 => '');
1358: END IF;
1359:
1360: RAISE FND_API.G_EXC_ERROR;
1361:
1362: END IF;
1363:
1364: IF l_task_in_rec.task_name IS NULL
1363:
1364: IF l_task_in_rec.task_name IS NULL
1365: OR l_task_in_rec.task_name = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
1366: THEN
1367: p_return_status := FND_API.G_RET_STS_ERROR;
1368:
1369: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1370: THEN
1371: pa_interface_utils_pub.map_new_amg_msg
1379: ,p_attribute4 => ''
1380: ,p_attribute5 => '');
1381: END IF;
1382:
1383: RAISE FND_API.G_EXC_ERROR;
1384:
1385: END IF;
1386: IF l_task_in_rec.pa_task_number IS NULL OR
1387: l_task_in_rec.pa_task_number = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
1404: /* Added for bug#2666913 */
1405:
1406: If l_task_in_rec.billable_flag = 'Y' and p_project_type_class_code = 'INDIRECT'
1407: THEN
1408: p_return_status := FND_API.G_RET_STS_ERROR;
1409:
1410: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1411: THEN
1412: pa_interface_utils_pub.map_new_amg_msg
1420: ,p_attribute4 => ''
1421: ,p_attribute5 => '');
1422: END IF;
1423:
1424: RAISE FND_API.G_EXC_ERROR;
1425:
1426: END IF;
1427:
1428: /* end of code added for bug #2666913 */
1499: ,p_attribute3 => ''
1500: ,p_attribute4 => ''
1501: ,p_attribute5 => '');
1502: END IF;
1503: RAISE FND_API.G_EXC_ERROR;
1504: ELSE
1505:
1506: l_address_id := l_task_in_rec.address_id;
1507: END IF;
1538: ,p_attribute3 => ''
1539: ,p_attribute4 => ''
1540: ,p_attribute5 => '');
1541: END IF;
1542: RAISE FND_API.G_EXC_ERROR;
1543:
1544: END IF;
1545:
1546: CLOSE l_service_type_csr;
1571: ,p_attribute3 => ''
1572: ,p_attribute4 => ''
1573: ,p_attribute5 => '');
1574: END IF;
1575: RAISE FND_API.G_EXC_ERROR;
1576: END IF;
1577: CLOSE l_ind_rate_schedule_type_csr;
1578: END IF;
1579:
1721: ,p_attribute3 => ''
1722: ,p_attribute4 => ''
1723: ,p_attribute5 => '');
1724: END IF;
1725: RAISE FND_API.G_EXC_ERROR;
1726: END IF;
1727: l_task_in_rec.task_start_date := l_out_start_date;
1728: l_task_in_rec.task_completion_date := l_out_completion_date;
1729:
1743: ,p_attribute3 => ''
1744: ,p_attribute4 => ''
1745: ,p_attribute5 => '');
1746: END IF;
1747: RAISE FND_API.G_EXC_ERROR;
1748: END IF;
1749: --bug 2732788
1750:
1751: IF ( l_task_in_rec.task_start_date <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE
1768: ,p_attribute3 => ''
1769: ,p_attribute4 => ''
1770: ,p_attribute5 => '');
1771: END IF;
1772: RAISE FND_API.G_EXC_ERROR;
1773: END IF;
1774: END IF;
1775:
1776: /* Bug#2530525-Commenting the condition which checks for date being null as project
1804: ,p_attribute3 => ''
1805: ,p_attribute4 => ''
1806: ,p_attribute5 => '');
1807: END IF;
1808: RAISE FND_API.G_EXC_ERROR;
1809: END IF;
1810:
1811:
1812: IF l_task_in_rec.task_completion_date < p_project_rec.start_date OR
1824: ,p_attribute3 => ''
1825: ,p_attribute4 => ''
1826: ,p_attribute5 => '');
1827: END IF;
1828: RAISE FND_API.G_EXC_ERROR;
1829: END IF;
1830:
1831: IF l_task_in_rec.cost_ind_rate_sch_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1832: THEN
2013: ,p_attribute3 => ''
2014: ,p_attribute4 => ''
2015: ,p_attribute5 => '');
2016: END IF;
2017: RAISE FND_API.G_EXC_ERROR;
2018: END IF;
2019: END IF;
2020:
2021: -- Multi National Currency changes Starts ...
2227: , p_pa_task_id => l_task_in_rec.pa_parent_task_id
2228: , p_pm_task_reference => l_task_in_rec.pm_parent_task_reference
2229: , p_out_task_id => l_ref_task_id
2230: , p_return_status => l_return_status );
2231: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
2232: THEN
2233: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2234: END IF;
2235: end if;
2229: , p_out_task_id => l_ref_task_id
2230: , p_return_status => l_return_status );
2231: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
2232: THEN
2233: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2234: END IF;
2235: end if;
2236: OPEN get_gen_etc_source_code(l_ref_task_id,l_project_id );
2237: FETCH get_gen_etc_source_code into l_gen_etc_source_code;
2342: ,p_attribute3 => ''
2343: ,p_attribute4 => ''
2344: ,p_attribute5 => '');
2345: END IF;
2346: RAISE FND_API.G_EXC_ERROR;
2347: END IF;
2348: CLOSE l_task_csr;
2349: ELSE
2350: IF (l_task_in_rec.pa_parent_task_id IS NOT NULL AND
2367: ,p_attribute3 => ''
2368: ,p_attribute4 => ''
2369: ,p_attribute5 => '');
2370: END IF;
2371: RAISE FND_API.G_EXC_ERROR;
2372: END IF;
2373: CLOSE l_task_id_csr;
2374: Else
2375: l_parent_TOP_TASK_ID := l_task_id;
2582: );
2583: p_task_id := l_task_id;
2584:
2585: EXCEPTION
2586: WHEN FND_API.G_EXC_ERROR
2587: THEN
2588: /* dbms_output.put_line('handling an G_EXC_ERROR exception'); */
2589: ROLLBACK TO add_task_round_one_pvt;
2590: p_return_status := FND_API.G_RET_STS_ERROR;
2586: WHEN FND_API.G_EXC_ERROR
2587: THEN
2588: /* dbms_output.put_line('handling an G_EXC_ERROR exception'); */
2589: ROLLBACK TO add_task_round_one_pvt;
2590: p_return_status := FND_API.G_RET_STS_ERROR;
2591: -- 4537865 RESET OUT PARAMS
2592: p_task_id := NULL ;
2593: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
2594: THEN
2589: ROLLBACK TO add_task_round_one_pvt;
2590: p_return_status := FND_API.G_RET_STS_ERROR;
2591: -- 4537865 RESET OUT PARAMS
2592: p_task_id := NULL ;
2593: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
2594: THEN
2595: /* dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception'); */
2596: ROLLBACK TO add_task_round_one_pvt;
2597:
2594: THEN
2595: /* dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception'); */
2596: ROLLBACK TO add_task_round_one_pvt;
2597:
2598: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2599:
2600: -- 4537865 RESET OUT PARAMS
2601: p_task_id := NULL ;
2602:
2603: WHEN OTHERS THEN
2604: /* dbms_output.put_line('handling an OTHERS exception'); */
2605: ROLLBACK TO add_task_round_one_pvt;
2606:
2607: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2608:
2609: -- 4537865 RESET OUT PARAMS
2610: p_task_id := NULL ;
2611:
2733:
2734:
2735: -- Set API return status to success
2736:
2737: p_return_status := FND_API.G_RET_STS_SUCCESS;
2738:
2739: --copy the incoming parameters to local variables
2740: l_task_in_rec := p_task_rec;
2741: l_task_id := p_task_id;
2784: ,p_attribute3 => ''
2785: ,p_attribute4 => ''
2786: ,p_attribute5 => '');
2787: END IF;
2788: RAISE FND_API.G_EXC_ERROR;
2789: END IF;
2790: CLOSE l_task_csr;
2791: ELSE
2792: IF (l_task_in_rec.pa_parent_task_id IS NOT NULL AND
2810: ,p_attribute3 => ''
2811: ,p_attribute4 => ''
2812: ,p_attribute5 => '');
2813: END IF;
2814: RAISE FND_API.G_EXC_ERROR;
2815: END IF;
2816: CLOSE l_task_id_csr;
2817: --l_parent_task_rec := l_parent_task_id_rec; -- assign to this rec, because rest of code uses this
2818: END IF;
3021: ,p_attribute3 => ''
3022: ,p_attribute4 => ''
3023: ,p_attribute5 => '');
3024: END IF;
3025: RAISE FND_API.G_EXC_ERROR;
3026: END IF;
3027:
3028: IF l_task_in_rec.task_completion_date < l_parent_task_rec.start_date OR
3029: l_task_in_rec.task_completion_date > l_parent_task_rec.completion_date
3041: ,p_attribute3 => ''
3042: ,p_attribute4 => ''
3043: ,p_attribute5 => '');
3044: END IF;
3045: RAISE FND_API.G_EXC_ERROR;
3046: END IF;
3047:
3048: /* Patch ends for the bug # 878682 */
3049:
3308: ,x_return_status => l_return_status
3309: );
3310:
3311: l_task_id := l_new_task_id ; -- 4537865
3312: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3313: THEN
3314: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3315: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
3316: THEN
3310:
3311: l_task_id := l_new_task_id ; -- 4537865
3312: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3313: THEN
3314: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3315: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
3316: THEN
3317: RAISE FND_API.G_EXC_ERROR;
3318: END IF;
3311: l_task_id := l_new_task_id ; -- 4537865
3312: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3313: THEN
3314: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3315: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
3316: THEN
3317: RAISE FND_API.G_EXC_ERROR;
3318: END IF;
3319: p_task_version_id := l_task_version_id;
3313: THEN
3314: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3315: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
3316: THEN
3317: RAISE FND_API.G_EXC_ERROR;
3318: END IF;
3319: p_task_version_id := l_task_version_id;
3320:
3321: END IF;
3325:
3326:
3327: EXCEPTION
3328:
3329: WHEN FND_API.G_EXC_ERROR
3330: THEN
3331: /* dbms_output.put_line('handling an G_EXC_ERROR exception'); */
3332: ROLLBACK TO add_task_round_two_pvt;
3333:
3330: THEN
3331: /* dbms_output.put_line('handling an G_EXC_ERROR exception'); */
3332: ROLLBACK TO add_task_round_two_pvt;
3333:
3334: p_return_status := FND_API.G_RET_STS_ERROR;
3335:
3336: -- 4537865 RESET OUT PARAMS
3337: p_task_version_id := NULL ;
3338:
3335:
3336: -- 4537865 RESET OUT PARAMS
3337: p_task_version_id := NULL ;
3338:
3339: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3340: THEN
3341: /* dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception'); */
3342: ROLLBACK TO add_task_round_two_pvt;
3343:
3340: THEN
3341: /* dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception'); */
3342: ROLLBACK TO add_task_round_two_pvt;
3343:
3344: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3345:
3346: -- 4537865 RESET OUT PARAMS
3347: p_task_version_id := NULL ;
3348:
3349: WHEN OTHERS THEN
3350: /* dbms_output.put_line('handling an OTHERS exception'); */
3351: ROLLBACK TO add_task_round_two_pvt;
3352:
3353: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3354:
3355: -- 4537865 RESET OUT PARAMS
3356: p_task_version_id := NULL ;
3357:
3487: l_dummy VARCHAR2(1);
3488:
3489: BEGIN
3490:
3491: p_return_status := FND_API.G_RET_STS_SUCCESS;
3492:
3493: IF p_pa_project_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3494: AND p_pa_project_id IS NOT NULL
3495: THEN
3514: ,p_attribute5 => '');
3515: END IF;
3516:
3517: CLOSE l_project_id_csr;
3518: RAISE FND_API.G_EXC_ERROR;
3519: END IF;
3520:
3521: CLOSE l_project_id_csr;
3522: p_out_project_id := p_pa_project_id;
3536: FND_MESSAGE.SET_TOKEN('ATTR_VALUE',p_pm_project_reference);
3537: FND_MSG_PUB.add;
3538: END IF;
3539:
3540: RAISE FND_API.G_EXC_ERROR;
3541: ELSE
3542: p_out_project_id := l_project_id;
3543:
3544: END IF;
3557: ,p_attribute4 => ''
3558: ,p_attribute5 => '');
3559: END IF;
3560:
3561: RAISE FND_API.G_EXC_ERROR;
3562:
3563: END IF; -- If p_pa_project_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3564:
3565: EXCEPTION
3563: END IF; -- If p_pa_project_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3564:
3565: EXCEPTION
3566:
3567: WHEN FND_API.G_EXC_ERROR
3568: THEN
3569: /* dbms_output.put_line('handling an G_EXC_ERROR exception'); */
3570:
3571: p_return_status := FND_API.G_RET_STS_ERROR;
3567: WHEN FND_API.G_EXC_ERROR
3568: THEN
3569: /* dbms_output.put_line('handling an G_EXC_ERROR exception'); */
3570:
3571: p_return_status := FND_API.G_RET_STS_ERROR;
3572:
3573: -- 4537865
3574: p_out_project_id := NULL ;
3575:
3572:
3573: -- 4537865
3574: p_out_project_id := NULL ;
3575:
3576: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3577: THEN
3578: /* dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception'); */
3579:
3580: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3576: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3577: THEN
3578: /* dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception'); */
3579:
3580: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3581:
3582: -- 4537865
3583: p_out_project_id := NULL ;
3584:
3584:
3585: WHEN OTHERS THEN
3586: /* dbms_output.put_line('handling an OTHERS exception'); */
3587:
3588: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3589:
3590: -- 4537865
3591: p_out_project_id := NULL ;
3592:
3655: l_amg_segment1 VARCHAR2(25);
3656:
3657: BEGIN
3658:
3659: p_return_status := FND_API.G_RET_STS_SUCCESS;
3660:
3661: IF p_pa_project_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3662: AND p_pa_project_id IS NOT NULL
3663: THEN
3681: ,p_attribute5 => '');
3682: END IF;
3683:
3684: CLOSE l_project_id_csr;
3685: RAISE FND_API.G_EXC_ERROR;
3686: END IF;
3687:
3688: CLOSE l_project_id_csr;
3689: ELSE
3701: ,p_attribute4 => ''
3702: ,p_attribute5 => '');
3703: END IF;
3704:
3705: RAISE FND_API.G_EXC_ERROR;
3706:
3707: END IF;
3708:
3709: IF p_pa_task_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3735: ,p_attribute5 => '');
3736: END IF;
3737:
3738: CLOSE l_task_id_csr;
3739: RAISE FND_API.G_EXC_ERROR;
3740: END IF;
3741:
3742: CLOSE l_task_id_csr;
3743:
3757: FND_MESSAGE.SET_TOKEN('ATTR_NAME','Pm Task Reference');
3758: FND_MESSAGE.SET_TOKEN('ATTR_VALUE',p_pm_task_reference);
3759: FND_MSG_PUB.add;
3760:
3761: RAISE FND_API.G_EXC_ERROR;
3762:
3763: END IF;
3764: ELSE
3765: p_out_task_id := l_task_id;
3779: ,p_attribute4 => ''
3780: ,p_attribute5 => '');
3781: END IF;
3782:
3783: RAISE FND_API.G_EXC_ERROR;
3784:
3785: END IF; -- If p_pa_task_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3786:
3787: EXCEPTION
3785: END IF; -- If p_pa_task_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3786:
3787: EXCEPTION
3788:
3789: WHEN FND_API.G_EXC_ERROR
3790: THEN
3791: /* dbms_output.put_line('handling an G_EXC_ERROR exception'); */
3792:
3793: p_return_status := FND_API.G_RET_STS_ERROR;
3789: WHEN FND_API.G_EXC_ERROR
3790: THEN
3791: /* dbms_output.put_line('handling an G_EXC_ERROR exception'); */
3792:
3793: p_return_status := FND_API.G_RET_STS_ERROR;
3794:
3795: -- 4537865 RESET OUT PARAMS
3796: p_out_task_id := NULL ;
3797:
3794:
3795: -- 4537865 RESET OUT PARAMS
3796: p_out_task_id := NULL ;
3797:
3798: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3799: THEN
3800: /* dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception'); */
3801:
3802: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3798: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3799: THEN
3800: /* dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception'); */
3801:
3802: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3803:
3804: -- 4537865 RESET OUT PARAMS
3805: p_out_task_id := NULL ;
3806:
3806:
3807: WHEN OTHERS THEN
3808: /* dbms_output.put_line('handling an OTHERS exception'); */
3809:
3810: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3811:
3812: -- 4537865 RESET OUT PARAMS
3813: p_out_task_id := NULL ;
3814:
3902: l_project_sharing_type VARCHAR2(250);
3903:
3904: BEGIN
3905:
3906: p_return_status := FND_API.G_RET_STS_SUCCESS;
3907:
3908: IF p_pa_project_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3909: AND p_pa_project_id IS NOT NULL
3910: THEN
3928: ,p_attribute5 => '');
3929: END IF;
3930:
3931: CLOSE l_project_id_csr;
3932: RAISE FND_API.G_EXC_ERROR;
3933: END IF;
3934:
3935: CLOSE l_project_id_csr;
3936: ELSE
3948: ,p_attribute4 => ''
3949: ,p_attribute5 => '');
3950: END IF;
3951:
3952: RAISE FND_API.G_EXC_ERROR;
3953:
3954: END IF;
3955:
3956: IF (p_structure_type = 'FINANCIAL') THEN
3998: ,p_attribute4 => ''
3999: ,p_attribute5 => '');
4000: END IF;
4001: CLOSE l_proj_element_id_csr;
4002: RAISE FND_API.G_EXC_ERROR;
4003: END IF;
4004: CLOSE l_proj_element_id_csr;
4005: p_out_task_id := p_pa_task_id;
4006: ELSE
4019: ,p_attribute5 => '');
4020: END IF;
4021:
4022: CLOSE l_task_id_csr;
4023: RAISE FND_API.G_EXC_ERROR;
4024: --Added by rtarway, for BUG 3919800
4025: END IF;
4026: --End Added by rtarway, for BUG 3919800
4027: END IF;
4052: FND_MESSAGE.SET_TOKEN('ATTR_NAME','Pm Task Reference');
4053: FND_MESSAGE.SET_TOKEN('ATTR_VALUE',p_pm_task_reference);
4054: FND_MSG_PUB.add;
4055: CLOSE cur_pa_proj_elems;
4056: RAISE FND_API.G_EXC_ERROR;
4057: END IF;
4058: END IF;
4059: CLOSE cur_pa_proj_elems;
4060: ELSE
4066: FND_MESSAGE.SET_TOKEN('ATTR_NAME','Pm Task Reference');
4067: FND_MESSAGE.SET_TOKEN('ATTR_VALUE',p_pm_task_reference);
4068: FND_MSG_PUB.add;
4069:
4070: RAISE FND_API.G_EXC_ERROR;
4071:
4072: END IF;
4073: END IF;--Added by rtarway for BUG 3919800
4074: ELSE
4088: ,p_attribute4 => ''
4089: ,p_attribute5 => '');
4090: END IF;
4091:
4092: RAISE FND_API.G_EXC_ERROR;
4093:
4094: END IF; -- If p_pa_task_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
4095: ELSIF (p_structure_type = 'WORKPLAN') THEN
4096: IF p_pa_task_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
4121: ,p_attribute5 => '');
4122: END IF;
4123:
4124: CLOSE l_proj_element_id_csr;
4125: RAISE FND_API.G_EXC_ERROR;
4126: END IF;
4127:
4128: CLOSE l_proj_element_id_csr;
4129:
4136: FETCH cur_pa_proj_elems INTO p_out_task_id;
4137:
4138: IF cur_pa_proj_elems%NOTFOUND
4139: THEN
4140: p_return_status := FND_API.G_RET_STS_ERROR;
4141: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR)
4142: THEN
4143: FND_MESSAGE.SET_NAME('PA','PA_API_CONV_ERROR_AMG'); -- Bug 2257612
4144: FND_MESSAGE.SET_TOKEN('ATTR_NAME','Pm Task Reference');
4143: FND_MESSAGE.SET_NAME('PA','PA_API_CONV_ERROR_AMG'); -- Bug 2257612
4144: FND_MESSAGE.SET_TOKEN('ATTR_NAME','Pm Task Reference');
4145: FND_MESSAGE.SET_TOKEN('ATTR_VALUE',p_pm_task_reference);
4146: FND_MSG_PUB.add;
4147: RAISE FND_API.G_EXC_ERROR;
4148: END IF;
4149: END IF;
4150: CLOSE cur_pa_proj_elems;
4151:
4163: ,p_attribute4 => ''
4164: ,p_attribute5 => '');
4165: END IF;
4166:
4167: RAISE FND_API.G_EXC_ERROR;
4168:
4169: END IF; -- If p_pa_task_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
4170: END IF;
4171:
4170: END IF;
4171:
4172: EXCEPTION
4173:
4174: WHEN FND_API.G_EXC_ERROR
4175: THEN
4176: /* dbms_output.put_line('handling an G_EXC_ERROR exception'); */
4177:
4178: p_return_status := FND_API.G_RET_STS_ERROR;
4174: WHEN FND_API.G_EXC_ERROR
4175: THEN
4176: /* dbms_output.put_line('handling an G_EXC_ERROR exception'); */
4177:
4178: p_return_status := FND_API.G_RET_STS_ERROR;
4179:
4180: -- 4537865 RESET OUT PARAMS
4181: p_out_task_id := NULL ;
4182:
4179:
4180: -- 4537865 RESET OUT PARAMS
4181: p_out_task_id := NULL ;
4182:
4183: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
4184: THEN
4185: /* dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception'); */
4186:
4187: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4183: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
4184: THEN
4185: /* dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception'); */
4186:
4187: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4188:
4189: -- 4537865 RESET OUT PARAMS
4190: p_out_task_id := NULL ;
4191:
4191:
4192: WHEN OTHERS THEN
4193: /* dbms_output.put_line('handling an OTHERS exception'); */
4194:
4195: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4196:
4197: -- 4537865 RESET OUT PARAMS
4198: p_out_task_id := NULL ;
4199:
4605: ,p_attribute3 => ''
4606: ,p_attribute4 => ''
4607: ,p_attribute5 => '');
4608: END IF;
4609: RAISE FND_API.G_EXC_ERROR;
4610: END IF;
4611:
4612: CLOSE l_get_lower_task_det_csr;
4613:
4685: DELETE FROM pa_percent_completes WHERE task_id = p_task_id;
4686:
4687: DELETE FROM pa_tasks WHERE task_id = p_task_id;
4688:
4689: p_return_status := FND_API.G_RET_STS_SUCCESS;
4690:
4691: EXCEPTION
4692:
4693: WHEN FND_API.G_EXC_ERROR
4689: p_return_status := FND_API.G_RET_STS_SUCCESS;
4690:
4691: EXCEPTION
4692:
4693: WHEN FND_API.G_EXC_ERROR
4694: THEN
4695: p_return_status := FND_API.G_RET_STS_ERROR;
4696: p_msg_count := Fnd_Msg_Pub.count_msg; -- 4537865
4697:
4691: EXCEPTION
4692:
4693: WHEN FND_API.G_EXC_ERROR
4694: THEN
4695: p_return_status := FND_API.G_RET_STS_ERROR;
4696: p_msg_count := Fnd_Msg_Pub.count_msg; -- 4537865
4697:
4698: IF p_msg_count = 1 AND p_msg_data IS NULL
4699: THEN
4697:
4698: IF p_msg_count = 1 AND p_msg_data IS NULL
4699: THEN
4700: Pa_Interface_Utils_Pub.get_messages
4701: ( p_encoded => Fnd_Api.G_TRUE
4702: , p_msg_index => 1
4703: , p_msg_count => p_msg_count
4704: , p_msg_data => l_msg_data
4705: , p_data => l_data
4710: ROLLBACK TO delete_one_task;
4711:
4712: WHEN OTHERS
4713: THEN
4714: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4715:
4716: -- 4537865
4717: p_msg_count := 1;
4718: p_msg_data := SQLERRM;
4763:
4764: -- 4537865
4765: EXCEPTION
4766: WHEN OTHERS THEN
4767: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4768:
4769: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4770: THEN
4771: FND_MSG_PUB.add_exc_msg
4821: -- 4537865
4822: EXCEPTION
4823: WHEN OTHERS THEN
4824:
4825: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4826: p_update_end_date_flag := NULL ;
4827: p_update_start_date_flag := NULL ;
4828:
4829: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4884: -- 4537865
4885: EXCEPTION
4886: WHEN OTHERS THEN
4887:
4888: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4889:
4890: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4891: THEN
4892: FND_MSG_PUB.add_exc_msg
4922: -- 4537865
4923: EXCEPTION
4924: WHEN OTHERS THEN
4925:
4926: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4927: p_proceed_with_update_flag := NULL ;
4928:
4929: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4930: THEN
4951: -- 4537865
4952: EXCEPTION
4953: WHEN OTHERS THEN
4954:
4955: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4956:
4957: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4958: THEN
4959: FND_MSG_PUB.add_exc_msg
4967: END check_parent_child_task_dates;
4968:
4969: Procedure Update_One_Task
4970: ( p_api_version_number IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
4971: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4972: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4973: p_msg_count OUT NOCOPY NUMBER, -- 4537865
4974: p_msg_data OUT NOCOPY VARCHAR2, -- 4537865
4975: p_return_status OUT NOCOPY VARCHAR2, -- 4537865
4968:
4969: Procedure Update_One_Task
4970: ( p_api_version_number IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
4971: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4972: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4973: p_msg_count OUT NOCOPY NUMBER, -- 4537865
4974: p_msg_data OUT NOCOPY VARCHAR2, -- 4537865
4975: p_return_status OUT NOCOPY VARCHAR2, -- 4537865
4976: p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
5432: SAVEPOINT update_task_pub;
5433:
5434: -- Standard call to check for call compatibility.
5435:
5436: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
5437: p_api_version_number ,
5438: l_api_name ,
5439: G_PKG_NAME )
5440: THEN
5438: l_api_name ,
5439: G_PKG_NAME )
5440: THEN
5441:
5442: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5443:
5444: END IF;
5445:
5446: -- Initialize the message table if requested.
5444: END IF;
5445:
5446: -- Initialize the message table if requested.
5447:
5448: IF FND_API.TO_BOOLEAN( p_init_msg_list )
5449: THEN
5450:
5451: FND_MSG_PUB.initialize;
5452:
5453: END IF;
5454:
5455: -- Set API return status to success
5456:
5457: p_return_status := FND_API.G_RET_STS_SUCCESS;
5458:
5459: --pm_product_code is mandatory
5460:
5461: l_tasks_restructured_flag := 'N';
5485: p_msg_data => l_msg_data,
5486: p_return_status => l_return_status,
5487: p_function_allowed => l_function_allowed );
5488:
5489: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5490: THEN
5491:
5492: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5493:
5488:
5489: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5490: THEN
5491:
5492: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5493:
5494: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5495: THEN
5496:
5490: THEN
5491:
5492: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5493:
5494: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5495: THEN
5496:
5497: RAISE FND_API.G_EXC_ERROR;
5498: END IF;
5493:
5494: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5495: THEN
5496:
5497: RAISE FND_API.G_EXC_ERROR;
5498: END IF;
5499: IF l_function_allowed = 'N' THEN
5500: pa_interface_utils_pub.map_new_amg_msg
5501: ( p_old_message_code => 'PA_FUNCTION_SECURITY_ENFORCED'
5506: ,p_attribute2 => ''
5507: ,p_attribute3 => ''
5508: ,p_attribute4 => ''
5509: ,p_attribute5 => '');
5510: p_return_status := FND_API.G_RET_STS_ERROR;
5511: RAISE FND_API.G_EXC_ERROR;
5512: END IF;
5513:
5514: --bug 2841158
5507: ,p_attribute3 => ''
5508: ,p_attribute4 => ''
5509: ,p_attribute5 => '');
5510: p_return_status := FND_API.G_RET_STS_ERROR;
5511: RAISE FND_API.G_EXC_ERROR;
5512: END IF;
5513:
5514: --bug 2841158
5515: -- IF p_pm_product_code IS NULL
5532: ,p_attribute3 => ''
5533: ,p_attribute4 => ''
5534: ,p_attribute5 => '');
5535: END IF;
5536: RAISE FND_API.G_EXC_ERROR;
5537: END IF;
5538:
5539: --bug 2841158
5540: IF p_pm_product_code <> 'WORKPLAN'
5564: ,p_attribute3 => ''
5565: ,p_attribute4 => ''
5566: ,p_attribute5 => '');
5567: END IF;
5568: p_return_status := FND_API.G_RET_STS_ERROR;
5569: RAISE FND_API.G_EXC_ERROR;
5570: END IF;
5571: END IF; --bug 2841158
5572:
5565: ,p_attribute4 => ''
5566: ,p_attribute5 => '');
5567: END IF;
5568: p_return_status := FND_API.G_RET_STS_ERROR;
5569: RAISE FND_API.G_EXC_ERROR;
5570: END IF;
5571: END IF; --bug 2841158
5572:
5573: -- convert pm_project_reference to id
5577: p_pa_project_id => p_pa_project_id,
5578: p_out_project_id => l_project_id,
5579: p_return_status => l_return_status );
5580:
5581: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5582: THEN
5583:
5584: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5585:
5580:
5581: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5582: THEN
5583:
5584: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5585:
5586: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5587: THEN
5588:
5582: THEN
5583:
5584: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5585:
5586: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5587: THEN
5588:
5589: RAISE FND_API.G_EXC_ERROR;
5590: END IF;
5585:
5586: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5587: THEN
5588:
5589: RAISE FND_API.G_EXC_ERROR;
5590: END IF;
5591:
5592: -- Now verify whether project security allows the user to update
5593: -- the task
5607: ,p_attribute2 => ''
5608: ,p_attribute3 => ''
5609: ,p_attribute4 => ''
5610: ,p_attribute5 => '');
5611: p_return_status := FND_API.G_RET_STS_ERROR;
5612: RAISE FND_API.G_EXC_ERROR;
5613: ELSE
5614: -- If the user has query privileges, then check whether
5615: -- update privileges are also available
5608: ,p_attribute3 => ''
5609: ,p_attribute4 => ''
5610: ,p_attribute5 => '');
5611: p_return_status := FND_API.G_RET_STS_ERROR;
5612: RAISE FND_API.G_EXC_ERROR;
5613: ELSE
5614: -- If the user has query privileges, then check whether
5615: -- update privileges are also available
5616: IF pa_security.allow_update (x_project_id => l_project_id ) = 'N' THEN
5627: ,p_attribute2 => ''
5628: ,p_attribute3 => ''
5629: ,p_attribute4 => ''
5630: ,p_attribute5 => '');
5631: p_return_status := FND_API.G_RET_STS_ERROR;
5632: RAISE FND_API.G_EXC_ERROR;
5633: END IF;
5634: END IF;
5635: --5262740 Changed PA_PROJECT_PVT.Convert_pm_taskref_to_id to PA_PROJECT_PVT.Convert_pm_taskref_to_id_all
5628: ,p_attribute3 => ''
5629: ,p_attribute4 => ''
5630: ,p_attribute5 => '');
5631: p_return_status := FND_API.G_RET_STS_ERROR;
5632: RAISE FND_API.G_EXC_ERROR;
5633: END IF;
5634: END IF;
5635: --5262740 Changed PA_PROJECT_PVT.Convert_pm_taskref_to_id to PA_PROJECT_PVT.Convert_pm_taskref_to_id_all
5636: Pa_project_pvt.Convert_pm_taskref_to_id_all (
5639: p_pm_task_reference => p_pm_task_reference,
5640: p_out_task_id => l_task_id,
5641: p_return_status => l_return_status );
5642:
5643: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5644: THEN
5645:
5646: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5647:
5642:
5643: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
5644: THEN
5645:
5646: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5647:
5648: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5649: THEN
5650:
5644: THEN
5645:
5646: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5647:
5648: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5649: THEN
5650:
5651: RAISE FND_API.G_EXC_ERROR;
5652: END IF;
5647:
5648: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
5649: THEN
5650:
5651: RAISE FND_API.G_EXC_ERROR;
5652: END IF;
5653:
5654: -- Get segment1 for AMG messages
5655:
5942: ,p_attribute4 => ''
5943: ,p_attribute5 => '');
5944: END IF;
5945: END IF;
5946: RAISE FND_API.G_EXC_ERROR;
5947:
5948: ELSIF l_err_code < 0
5949: THEN
5950: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5946: RAISE FND_API.G_EXC_ERROR;
5947:
5948: ELSIF l_err_code < 0
5949: THEN
5950: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5951: END IF;
5952:
5953: --bug 2955326
5954: /*
5986: ,p_attribute3 => ''
5987: ,p_attribute4 => ''
5988: ,p_attribute5 => '');
5989: END IF;
5990: RAISE FND_API.G_EXC_ERROR;
5991: END IF;
5992: --bug 2955326
5993: /*
5994: l_statement := l_statement ||
6010: CLOSE l_get_project_type_info_csr;
6011:
6012: If p_billable_flag = 'Y' and l_project_type_class_code = 'INDIRECT'
6013: THEN
6014: p_return_status := FND_API.G_RET_STS_ERROR;
6015:
6016: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
6017: THEN
6018: pa_interface_utils_pub.map_new_amg_msg
6026: ,p_attribute4 => ''
6027: ,p_attribute5 => '');
6028: END IF;
6029:
6030: RAISE FND_API.G_EXC_ERROR;
6031:
6032: END IF;
6033:
6034: /* end of code added for bug #2666913 */
6078: ,p_attribute3 => ''
6079: ,p_attribute4 => ''
6080: ,p_attribute5 => '');
6081: END IF;
6082: RAISE FND_API.G_EXC_ERROR;
6083:
6084: END IF;
6085:
6086: CLOSE l_service_type_csr;
6136: ,p_attribute3 => ''
6137: ,p_attribute4 => ''
6138: ,p_attribute5 => '');
6139: END IF;
6140: RAISE FND_API.G_EXC_ERROR;
6141: /* bug #5243018: Reverting the fix in bug 4120380.
6142: END IF; -- END OF IF task_number_change_Ok_flag = 'N' */
6143: END IF;
6144: IF l_children_exist = 'N'
6177: ,p_attribute4 => ''
6178: ,p_attribute5 => '');
6179: END IF;
6180: END IF;
6181: RAISE FND_API.G_EXC_ERROR;
6182:
6183: ELSIF l_err_code < 0
6184: THEN
6185:
6182:
6183: ELSIF l_err_code < 0
6184: THEN
6185:
6186: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6187: END IF;
6188: END IF;
6189: --bug 2955326
6190: /*
6228: ,p_update_start_date_flag => l_update_start_date_flag
6229: ,p_update_end_date_flag => l_update_end_date_flag
6230: ,p_return_status => l_return_status );
6231:
6232: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6233: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6234: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6235: RAISE FND_API.G_EXC_ERROR;
6236: END IF;
6229: ,p_update_end_date_flag => l_update_end_date_flag
6230: ,p_return_status => l_return_status );
6231:
6232: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6233: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6234: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6235: RAISE FND_API.G_EXC_ERROR;
6236: END IF;
6237:
6230: ,p_return_status => l_return_status );
6231:
6232: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6233: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6234: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6235: RAISE FND_API.G_EXC_ERROR;
6236: END IF;
6237:
6238: IF pa_project_pub.G_ParChildTsk_chks_deferred = 'N' THEN
6231:
6232: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6233: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6234: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6235: RAISE FND_API.G_EXC_ERROR;
6236: END IF;
6237:
6238: IF pa_project_pub.G_ParChildTsk_chks_deferred = 'N' THEN
6239: IF l_children_exist = 'Y' THEN
6269: ,p_attribute3 => ''
6270: ,p_attribute4 => ''
6271: ,p_attribute5 => '');
6272: END IF;
6273: RAISE FND_API.G_EXC_ERROR;
6274: END IF;
6275:
6276: -- Do the comparison between parent and child task dates only if
6277: -- the global variable is set to 'N'
6290: ,p_attribute3 => ''
6291: ,p_attribute4 => ''
6292: ,p_attribute5 => '');
6293: END IF;
6294: RAISE FND_API.G_EXC_ERROR;
6295: END IF;
6296: END IF;
6297:
6298: IF l_task_rec.parent_task_id IS NOT NULL THEN
6308: ,p_attribute3 => ''
6309: ,p_attribute4 => ''
6310: ,p_attribute5 => '');
6311: END IF;
6312: RAISE FND_API.G_EXC_ERROR;
6313: END IF;
6314: END IF;
6315: END IF; -- End if pa_project_pub.G_ParChildTsk_chks_deferred
6316:
6321: p_start_date => p_task_start_date,
6322: x_return_status => l_return_status,
6323: x_msg_count => l_msg_count,
6324: x_msg_data => l_msg_data);
6325: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6326: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6327: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6328: RAISE FND_API.G_EXC_ERROR;
6329: END IF;
6322: x_return_status => l_return_status,
6323: x_msg_count => l_msg_count,
6324: x_msg_data => l_msg_data);
6325: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6326: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6327: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6328: RAISE FND_API.G_EXC_ERROR;
6329: END IF;
6330: --bug 2955326
6323: x_msg_count => l_msg_count,
6324: x_msg_data => l_msg_data);
6325: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6326: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6327: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6328: RAISE FND_API.G_EXC_ERROR;
6329: END IF;
6330: --bug 2955326
6331: /*
6324: x_msg_data => l_msg_data);
6325: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6326: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6327: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6328: RAISE FND_API.G_EXC_ERROR;
6329: END IF;
6330: --bug 2955326
6331: /*
6332: l_statement := l_statement ||
6359: ,p_attribute3 => ''
6360: ,p_attribute4 => ''
6361: ,p_attribute5 => '');
6362: END IF;
6363: RAISE FND_API.G_EXC_ERROR;
6364: END IF;
6365:
6366: -- Do the comparison between parent and child task dates only if
6367: -- the global variable is set to 'N'
6381: ,p_attribute3 => ''
6382: ,p_attribute4 => ''
6383: ,p_attribute5 => '');
6384: END IF;
6385: RAISE FND_API.G_EXC_ERROR;
6386: END IF;
6387: END IF;
6388:
6389: IF l_task_rec.parent_task_id IS NOT NULL
6402: ,p_attribute3 => ''
6403: ,p_attribute4 => ''
6404: ,p_attribute5 => '');
6405: END IF;
6406: RAISE FND_API.G_EXC_ERROR;
6407: END IF;
6408: END IF;
6409: END IF; -- End if pa_project_pub.G_ParChildTsk_chks_deferred;
6410:
6417: p_end_date => p_task_completion_date,
6418: x_return_status => l_return_status,
6419: x_msg_count => l_msg_count,
6420: x_msg_data => l_msg_data);
6421: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6422: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6423: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6424: RAISE FND_API.G_EXC_ERROR;
6425: END IF;
6418: x_return_status => l_return_status,
6419: x_msg_count => l_msg_count,
6420: x_msg_data => l_msg_data);
6421: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6422: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6423: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6424: RAISE FND_API.G_EXC_ERROR;
6425: END IF;
6426: --bug 2955326
6419: x_msg_count => l_msg_count,
6420: x_msg_data => l_msg_data);
6421: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6422: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6423: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6424: RAISE FND_API.G_EXC_ERROR;
6425: END IF;
6426: --bug 2955326
6427: /*
6420: x_msg_data => l_msg_data);
6421: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6422: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6423: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6424: RAISE FND_API.G_EXC_ERROR;
6425: END IF;
6426: --bug 2955326
6427: /*
6428: l_statement := l_statement ||
6473: ,p_attribute3 => ''
6474: ,p_attribute4 => ''
6475: ,p_attribute5 => '');
6476: END IF;
6477: RAISE FND_API.G_EXC_ERROR;
6478: ELSE
6479: CLOSE l_validate_parent_id_csr;
6480: l_new_parent_task_id := p_pa_parent_task_id;
6481: END IF;
6500: ,p_attribute3 => ''
6501: ,p_attribute4 => ''
6502: ,p_attribute5 => '');
6503: END IF;
6504: RAISE FND_API.G_EXC_ERROR;
6505: END IF;
6506: CLOSE l_convert_pm_parent_to_id_csr;
6507: END IF;
6508: END IF;
6534: ,p_attribute3 => ''
6535: ,p_attribute4 => ''
6536: ,p_attribute5 => '');
6537: END IF;
6538: RAISE FND_API.G_EXC_ERROR;
6539: END IF;
6540:
6541:
6542: IF l_new_parent_task_id IS NOT NULL
6546: --rtarway, for DHI ER, BUG 4413568
6547: IF ( PA_PROJECT_PUB.G_TASK_STR_UPDATE_MODE = 'PA_UPD_TASK_ATTR' ) THEN
6548: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
6549: p_msg_name => 'PA_WBS_CANT_CHANGE');
6550: RAISE FND_API.G_EXC_ERROR;
6551: END IF;
6552:
6553: -- get the wbs_level for the new parent task
6554: OPEN l_parent_wbs_csr ( l_project_id, l_new_parent_task_id );
6565: ,x_msg_count => l_msg_count
6566: ,x_msg_data => l_msg_data
6567: );
6568:
6569: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6570: THEN
6571: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6572:
6573: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
6567: );
6568:
6569: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6570: THEN
6571: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6572:
6573: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
6574: THEN
6575: RAISE FND_API.G_EXC_ERROR;
6569: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
6570: THEN
6571: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6572:
6573: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
6574: THEN
6575: RAISE FND_API.G_EXC_ERROR;
6576: END IF;
6577: --End bug 2947492
6571: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6572:
6573: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
6574: THEN
6575: RAISE FND_API.G_EXC_ERROR;
6576: END IF;
6577: --End bug 2947492
6578: */ --commented out as per mail from venkatesh dated 22 jan 2004 -- maansari
6579: --bug 3010538
6594: ,x_return_status => l_return_status
6595: ,x_msg_count => l_msg_count
6596: ,x_msg_data => l_msg_data );
6597:
6598: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6599: RAISE FND_API.G_EXC_ERROR;
6600: end if;
6601: END IF;
6602: --bug 3010538
6595: ,x_msg_count => l_msg_count
6596: ,x_msg_data => l_msg_data );
6597:
6598: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6599: RAISE FND_API.G_EXC_ERROR;
6600: end if;
6601: END IF;
6602: --bug 3010538
6603:
6626: ,p_attribute3 => ''
6627: ,p_attribute4 => ''
6628: ,p_attribute5 => '');
6629: END IF;
6630: RAISE FND_API.G_EXC_ERROR;
6631: END IF;
6632: CLOSE l_chk_chlds_parent_id_csr;
6633:
6634:
6669: END IF; -- IF Pa_project_pvt.check_valid_message
6670:
6671: END IF; -- IF Check_msg_Level
6672:
6673: RAISE FND_API.G_EXC_ERROR;
6674:
6675: END IF;
6676: -- *O
6677:
6690: ,p_attribute3 => ''
6691: ,p_attribute4 => ''
6692: ,p_attribute5 => '');
6693: END IF;
6694: RAISE FND_API.G_EXC_ERROR;
6695:
6696: ELSIF l_new_parent_task_id IS NULL
6697: THEN
6698: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
6707: ,p_attribute3 => ''
6708: ,p_attribute4 => ''
6709: ,p_attribute5 => '');
6710: END IF;
6711: RAISE FND_API.G_EXC_ERROR;
6712: ELSE
6713:
6714: OPEN l_top_task_csr (l_new_parent_task_id);
6715: FETCH l_top_task_csr INTO l_top_task_id;
6732: ,p_attribute3 => ''
6733: ,p_attribute4 => ''
6734: ,p_attribute5 => '');
6735: END IF;
6736: RAISE FND_API.G_EXC_ERROR;
6737: END IF;
6738:
6739: END IF;
6740:
6824: ,p_attribute3 => ''
6825: ,p_attribute4 => ''
6826: ,p_attribute5 => '');
6827: END IF;
6828: RAISE FND_API.G_EXC_ERROR;
6829:
6830: END IF;
6831: END IF;
6832:
6949: WHERE TASK_ID = p_pa_task_id);
6950: END IF;
6951: EXCEPTION
6952: WHEN OTHERS THEN
6953: RAISE FND_API.G_EXC_ERROR; /* Raise error unknown if the query fails! */
6954: END;
6955: /* Bug 7403227 end */
6956:
6957: /*
6992: ,p_attribute3 => ''
6993: ,p_attribute4 => ''
6994: ,p_attribute5 => '');
6995: END IF;
6996: RAISE FND_API.G_EXC_ERROR;
6997: END IF;
6998: END IF; /* Bug 7403227 */
6999: -- Update the dff fields - 04/11/97
7000: --bug 6153503 start
7464: ,p_attribute3 => ''
7465: ,p_attribute4 => ''
7466: ,p_attribute5 => '');
7467: END IF;
7468: RAISE FND_API.G_EXC_ERROR;
7469: ELSE
7470: 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
7471: --bug 2955326
7472: /*
7682: p_out_nl_labor_sch_type => l_out_nl_labor_sch_type,
7683: p_return_status => l_return_status
7684: );
7685:
7686: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
7687: THEN
7688: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7689:
7690: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
7684: );
7685:
7686: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
7687: THEN
7688: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7689:
7690: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
7691: THEN
7692: RAISE FND_API.G_EXC_ERROR;
7686: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
7687: THEN
7688: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7689:
7690: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
7691: THEN
7692: RAISE FND_API.G_EXC_ERROR;
7693: END IF;
7694:
7688: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7689:
7690: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
7691: THEN
7692: RAISE FND_API.G_EXC_ERROR;
7693: END IF;
7694:
7695: validate_schedule_values
7696: (p_pa_project_id => l_project_id,
7717: p_inv_ind_sch_fixed_date => p_inv_ind_sch_fixed_date,
7718: p_return_status => l_return_status
7719: );
7720:
7721: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
7722: THEN
7723:
7724: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7725:
7720:
7721: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
7722: THEN
7723:
7724: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7725:
7726: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
7727: THEN
7728:
7722: THEN
7723:
7724: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7725:
7726: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
7727: THEN
7728:
7729: RAISE FND_API.G_EXC_ERROR;
7730: END IF;
7725:
7726: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
7727: THEN
7728:
7729: RAISE FND_API.G_EXC_ERROR;
7730: END IF;
7731:
7732:
7733: IF p_labor_sch_type <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
7985: ,p_attribute3 => ''
7986: ,p_attribute4 => ''
7987: ,p_attribute5 => '');
7988: END IF;
7989: RAISE FND_API.G_EXC_ERROR;
7990: END;
7991:
7992: -- start of bug 3795253
7993: else
8049: ,p_attribute3 => ''
8050: ,p_attribute4 => ''
8051: ,p_attribute5 => '');
8052: END IF;
8053: RAISE FND_API.G_EXC_ERROR;
8054: END;
8055: -- start of bug 3795253
8056: else
8057: l_inv_rate_sch_type := g_inv_rate_sch_type;
8216: ,p_attribute3 => ''
8217: ,p_attribute4 => ''
8218: ,p_attribute5 => '');
8219: END IF;
8220: RAISE FND_API.G_EXC_ERROR;
8221: END;
8222: END IF;
8223: END IF;
8224:
8533: ,p_attribute3 => ''
8534: ,p_attribute4 => ''
8535: ,p_attribute5 => '');
8536: END IF;
8537: RAISE FND_API.G_EXC_ERROR;
8538: END IF;
8539: CLOSE l_cost_ind_rate_sch_id_csr;
8540:
8541: -- Add the Schedule ID to the update statement.
8577: ,p_attribute3 => ''
8578: ,p_attribute4 => ''
8579: ,p_attribute5 => '');
8580: END IF;
8581: RAISE FND_API.G_EXC_ERROR;
8582: END IF;
8583: CLOSE l_ind_rate_schedule_type_csr;
8584:
8585: -- End fix for bug # 1335417
9124: AND resource_list_member_id = 0;
9125: END IF;
9126:
9127:
9128: IF FND_API.to_boolean( p_commit )
9129: THEN
9130: COMMIT;
9131: END IF;
9132:
9132:
9133:
9134: EXCEPTION
9135:
9136: WHEN FND_API.G_EXC_ERROR THEN
9137:
9138: p_return_status := FND_API.G_RET_STS_ERROR ;
9139:
9140: -- 4537865 RESET OUT PARAMS
9134: EXCEPTION
9135:
9136: WHEN FND_API.G_EXC_ERROR THEN
9137:
9138: p_return_status := FND_API.G_RET_STS_ERROR ;
9139:
9140: -- 4537865 RESET OUT PARAMS
9141: p_out_pa_task_id := NULL ;
9142: p_out_pm_task_reference := NULL ;
9146: FND_MSG_PUB.Count_And_Get
9147: ( p_count => p_msg_count ,
9148: p_data => p_msg_data );
9149:
9150: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9151:
9152: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9153: -- 4537865 RESET OUT PARAMS
9154: p_out_pa_task_id := NULL ;
9148: p_data => p_msg_data );
9149:
9150: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9151:
9152: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9153: -- 4537865 RESET OUT PARAMS
9154: p_out_pa_task_id := NULL ;
9155: p_out_pm_task_reference := NULL ;
9156:
9164: WHEN ROW_ALREADY_LOCKED THEN
9165:
9166: ROLLBACK TO update_task_pub;
9167:
9168: p_return_status := FND_API.G_RET_STS_ERROR;
9169: -- 4537865 RESET OUT PARAMS
9170: p_out_pa_task_id := NULL ;
9171: p_out_pm_task_reference := NULL ;
9172:
9186:
9187: WHEN OTHERS THEN
9188:
9189: ROLLBACK TO Update_Task_pub;
9190: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9191:
9192: -- 4537865 RESET OUT PARAMS
9193: p_out_pa_task_id := NULL ;
9194: p_out_pm_task_reference := NULL ;
9209: END update_one_task;
9210:
9211: PROCEDURE delete_task1
9212: ( p_api_version_number IN NUMBER
9213: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
9214: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
9215: ,p_msg_count OUT NOCOPY NUMBER -- 4537865 Added nocopy hint
9216: ,p_msg_data OUT NOCOPY VARCHAR2 -- 4537865 Added nocopy hint
9217: ,p_return_status OUT NOCOPY VARCHAR2 -- 4537865 Added nocopy hint
9210:
9211: PROCEDURE delete_task1
9212: ( p_api_version_number IN NUMBER
9213: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
9214: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
9215: ,p_msg_count OUT NOCOPY NUMBER -- 4537865 Added nocopy hint
9216: ,p_msg_data OUT NOCOPY VARCHAR2 -- 4537865 Added nocopy hint
9217: ,p_return_status OUT NOCOPY VARCHAR2 -- 4537865 Added nocopy hint
9218: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
9286: SAVEPOINT delete_task_pub;
9287:
9288: -- Standard call to check for call compatibility.
9289:
9290: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
9291: p_api_version_number ,
9292: l_api_name ,
9293: G_PKG_NAME )
9294: THEN
9292: l_api_name ,
9293: G_PKG_NAME )
9294: THEN
9295:
9296: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9297:
9298: END IF;
9299:
9300: -- pm_product_code is mandatory
9319: ,p_attribute3 => ''
9320: ,p_attribute4 => ''
9321: ,p_attribute5 => '');
9322: END IF;
9323: RAISE FND_API.G_EXC_ERROR;
9324: END IF;
9325:
9326: --bug 2841158
9327: IF p_pm_product_code <> 'WORKPLAN'
9348: ,p_attribute3 => ''
9349: ,p_attribute4 => ''
9350: ,p_attribute5 => '');
9351: END IF;
9352: p_return_status := FND_API.G_RET_STS_ERROR;
9353: RAISE FND_API.G_EXC_ERROR;
9354: END IF;
9355: END IF; --bug 2841158
9356:
9349: ,p_attribute4 => ''
9350: ,p_attribute5 => '');
9351: END IF;
9352: p_return_status := FND_API.G_RET_STS_ERROR;
9353: RAISE FND_API.G_EXC_ERROR;
9354: END IF;
9355: END IF; --bug 2841158
9356:
9357:
9371: p_msg_data => l_msg_data,
9372: p_return_status => l_return_status,
9373: p_function_allowed => l_function_allowed );
9374:
9375: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
9376: THEN
9377: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9378:
9379: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
9373: p_function_allowed => l_function_allowed );
9374:
9375: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
9376: THEN
9377: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9378:
9379: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
9380: THEN
9381: RAISE FND_API.G_EXC_ERROR;
9375: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
9376: THEN
9377: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9378:
9379: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
9380: THEN
9381: RAISE FND_API.G_EXC_ERROR;
9382: END IF;
9383: IF l_function_allowed = 'N' THEN
9377: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9378:
9379: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
9380: THEN
9381: RAISE FND_API.G_EXC_ERROR;
9382: END IF;
9383: IF l_function_allowed = 'N' THEN
9384: pa_interface_utils_pub.map_new_amg_msg
9385: ( p_old_message_code => 'PA_FUNCTION_SECURITY_ENFORCED'
9390: ,p_attribute2 => ''
9391: ,p_attribute3 => ''
9392: ,p_attribute4 => ''
9393: ,p_attribute5 => '');
9394: p_return_status := FND_API.G_RET_STS_ERROR;
9395: RAISE FND_API.G_EXC_ERROR;
9396: END IF;
9397:
9398: -- Initialize the message table if requested.
9391: ,p_attribute3 => ''
9392: ,p_attribute4 => ''
9393: ,p_attribute5 => '');
9394: p_return_status := FND_API.G_RET_STS_ERROR;
9395: RAISE FND_API.G_EXC_ERROR;
9396: END IF;
9397:
9398: -- Initialize the message table if requested.
9399:
9396: END IF;
9397:
9398: -- Initialize the message table if requested.
9399:
9400: IF FND_API.TO_BOOLEAN( p_init_msg_list )
9401: THEN
9402:
9403: FND_MSG_PUB.initialize;
9404:
9406:
9407:
9408: -- Set API return status to success
9409:
9410: p_return_status := FND_API.G_RET_STS_SUCCESS;
9411:
9412:
9413: -- Assumption: the convert API's will do validity checks for project_id and task_id
9414:
9418: ,p_pa_project_id => p_pa_project_id
9419: ,p_out_project_id => l_project_id
9420: ,p_return_status => l_return_status );
9421:
9422: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
9423: THEN
9424: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9425:
9426: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
9420: ,p_return_status => l_return_status );
9421:
9422: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
9423: THEN
9424: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9425:
9426: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
9427: THEN
9428: RAISE FND_API.G_EXC_ERROR;
9422: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
9423: THEN
9424: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9425:
9426: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
9427: THEN
9428: RAISE FND_API.G_EXC_ERROR;
9429: END IF;
9430:
9424: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9425:
9426: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
9427: THEN
9428: RAISE FND_API.G_EXC_ERROR;
9429: END IF;
9430:
9431: IF p_structure_type = 'FINANCIAL'
9432: THEN
9437: ,p_pm_task_reference => p_pm_task_reference
9438: ,p_out_task_id => l_task_id
9439: ,p_return_status => l_return_status );
9440:
9441: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
9442: THEN
9443: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9444:
9445: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
9439: ,p_return_status => l_return_status );
9440:
9441: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
9442: THEN
9443: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9444:
9445: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
9446: THEN
9447: RAISE FND_API.G_EXC_ERROR;
9441: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
9442: THEN
9443: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9444:
9445: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
9446: THEN
9447: RAISE FND_API.G_EXC_ERROR;
9448: END IF;
9449:
9443: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9444:
9445: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
9446: THEN
9447: RAISE FND_API.G_EXC_ERROR;
9448: END IF;
9449:
9450: -- Get segment1 for AMG messages
9451:
9499: END IF;
9500:
9501: END IF;
9502:
9503: RAISE FND_API.G_EXC_ERROR;
9504:
9505: ELSIF l_err_code < 0
9506: then
9507:
9518: ,p_attribute4 => ''
9519: ,p_attribute5 => '');
9520: END IF;
9521:
9522: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9523:
9524: end IF;
9525:
9526: --Call plannable task api here bug 2947492
9532: ,x_msg_count => l_msg_count
9533: ,x_msg_data => l_msg_data
9534: ,x_return_status => l_return_status);
9535:
9536: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9537: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9538: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9539: RAISE FND_API.G_EXC_ERROR;
9540: END IF;
9533: ,x_msg_data => l_msg_data
9534: ,x_return_status => l_return_status);
9535:
9536: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9537: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9538: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9539: RAISE FND_API.G_EXC_ERROR;
9540: END IF;
9541: --End bug 2947492
9534: ,x_return_status => l_return_status);
9535:
9536: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9537: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9538: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9539: RAISE FND_API.G_EXC_ERROR;
9540: END IF;
9541: --End bug 2947492
9542:
9535:
9536: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9537: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9538: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9539: RAISE FND_API.G_EXC_ERROR;
9540: END IF;
9541: --End bug 2947492
9542:
9543: --lock the task row and all it's children before it is going to be deleted / updated
9568: ,p_attribute4 => ''
9569: ,p_attribute5 => '');
9570: END IF;
9571:
9572: RAISE FND_API.G_EXC_ERROR;
9573:
9574: ELSE
9575: l_cascaded_delete_flag := p_cascaded_delete_flag;
9576:
9617: END IF;
9618:
9619: END IF;
9620:
9621: RAISE FND_API.G_EXC_ERROR;
9622:
9623: ELSIF l_err_code < 0
9624: THEN
9625:
9636: ,p_attribute4 => ''
9637: ,p_attribute5 => '');
9638: END IF;
9639:
9640: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9641:
9642: END IF;
9643:
9644: ELSE
9648: p_return_status => l_return_status,
9649: p_msg_count => p_msg_count,
9650: p_msg_data => p_msg_data );
9651:
9652: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
9653: THEN
9654: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9655:
9656: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
9650: p_msg_data => p_msg_data );
9651:
9652: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
9653: THEN
9654: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9655:
9656: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
9657: THEN
9658: RAISE FND_API.G_EXC_ERROR;
9652: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
9653: THEN
9654: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9655:
9656: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
9657: THEN
9658: RAISE FND_API.G_EXC_ERROR;
9659: END IF;
9660:
9654: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9655:
9656: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
9657: THEN
9658: RAISE FND_API.G_EXC_ERROR;
9659: END IF;
9660:
9661:
9662: END IF;
9675: ,x_msg_count => l_msg_count
9676: ,x_msg_data => l_msg_data
9677: ,x_return_status => l_return_status);
9678:
9679: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9680: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9681: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9682: RAISE FND_API.G_EXC_ERROR;
9683: END IF;
9676: ,x_msg_data => l_msg_data
9677: ,x_return_status => l_return_status);
9678:
9679: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9680: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9681: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9682: RAISE FND_API.G_EXC_ERROR;
9683: END IF;
9684:
9677: ,x_return_status => l_return_status);
9678:
9679: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9680: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9681: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9682: RAISE FND_API.G_EXC_ERROR;
9683: END IF;
9684:
9685: --bug 2765115
9678:
9679: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9680: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9681: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9682: RAISE FND_API.G_EXC_ERROR;
9683: END IF;
9684:
9685: --bug 2765115
9686:
9740:
9741: l_task_id:= l_task_id_out;
9742: -- End of Bug Fix 5263429
9743:
9744: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9745: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9746: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9747: RAISE FND_API.G_EXC_ERROR;
9748: END IF;
9741: l_task_id:= l_task_id_out;
9742: -- End of Bug Fix 5263429
9743:
9744: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9745: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9746: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9747: RAISE FND_API.G_EXC_ERROR;
9748: END IF;
9749: END IF;
9742: -- End of Bug Fix 5263429
9743:
9744: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9745: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9746: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9747: RAISE FND_API.G_EXC_ERROR;
9748: END IF;
9749: END IF;
9750:
9743:
9744: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9745: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9746: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9747: RAISE FND_API.G_EXC_ERROR;
9748: END IF;
9749: END IF;
9750:
9751: -- end for bug# 3801426
9762: ,x_msg_count => l_msg_count
9763: ,x_msg_data => l_msg_data
9764: ,x_return_status => l_return_status);
9765:
9766: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9767: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9768: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9769: RAISE FND_API.G_EXC_ERROR;
9770: END IF;
9763: ,x_msg_data => l_msg_data
9764: ,x_return_status => l_return_status);
9765:
9766: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9767: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9768: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9769: RAISE FND_API.G_EXC_ERROR;
9770: END IF;
9771:
9764: ,x_return_status => l_return_status);
9765:
9766: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9767: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9768: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9769: RAISE FND_API.G_EXC_ERROR;
9770: END IF;
9771:
9772: p_project_id := l_project_id;
9765:
9766: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9767: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9768: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9769: RAISE FND_API.G_EXC_ERROR;
9770: END IF;
9771:
9772: p_project_id := l_project_id;
9773: p_task_id := p_task_id;
9774:
9775: --Project Structures Integration
9776: END IF; --<< p_structrue_type >>
9777:
9778: IF FND_API.to_boolean( p_commit )
9779: THEN
9780: COMMIT;
9781: END IF;
9782:
9782:
9783:
9784: EXCEPTION
9785:
9786: WHEN FND_API.G_EXC_ERROR
9787: THEN
9788: ROLLBACK TO delete_task_pub;
9789:
9790: p_return_status := FND_API.G_RET_STS_ERROR;
9786: WHEN FND_API.G_EXC_ERROR
9787: THEN
9788: ROLLBACK TO delete_task_pub;
9789:
9790: p_return_status := FND_API.G_RET_STS_ERROR;
9791:
9792: -- 4537865 RESET OUT PARAMS
9793: p_project_id := NULL ;
9794: p_task_id := NULL ;
9796: FND_MSG_PUB.Count_And_Get
9797: ( p_count => p_msg_count ,
9798: p_data => p_msg_data );
9799:
9800: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
9801: THEN
9802: ROLLBACK TO delete_task_pub;
9803:
9804: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9800: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
9801: THEN
9802: ROLLBACK TO delete_task_pub;
9803:
9804: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9805:
9806: -- 4537865 RESET OUT PARAMS
9807: p_project_id := NULL ;
9808: p_task_id := NULL ;
9814: WHEN ROW_ALREADY_LOCKED
9815: THEN
9816: ROLLBACK TO delete_task_pub;
9817:
9818: p_return_status := FND_API.G_RET_STS_ERROR;
9819:
9820: -- 4537865 RESET OUT PARAMS
9821: p_project_id := NULL ;
9822: p_task_id := NULL ;
9836:
9837: WHEN OTHERS THEN
9838: ROLLBACK TO delete_task_pub;
9839:
9840: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9841:
9842: -- 4537865 RESET OUT PARAMS
9843: p_project_id := NULL ;
9844: p_task_id := NULL ;
9868: --
9869: --
9870: PROCEDURE approve_project1
9871: ( p_api_version_number IN NUMBER
9872: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
9873: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
9874: ,p_msg_count OUT NOCOPY NUMBER -- 4537865 Added nocopy hint
9875: ,p_msg_data OUT NOCOPY VARCHAR2 -- 4537865 Added nocopy hint
9876: ,p_return_status OUT NOCOPY VARCHAR2 -- 4537865 Added nocopy hint
9869: --
9870: PROCEDURE approve_project1
9871: ( p_api_version_number IN NUMBER
9872: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
9873: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
9874: ,p_msg_count OUT NOCOPY NUMBER -- 4537865 Added nocopy hint
9875: ,p_msg_data OUT NOCOPY VARCHAR2 -- 4537865 Added nocopy hint
9876: ,p_return_status OUT NOCOPY VARCHAR2 -- 4537865 Added nocopy hint
9877: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
9902: --
9903:
9904: PROCEDURE delete_project1
9905: ( p_api_version_number IN NUMBER
9906: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
9907: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
9908: ,p_msg_count OUT NOCOPY NUMBER -- 4537865 Added nocopy hint
9909: ,p_msg_data OUT NOCOPY VARCHAR2 -- 4537865 Added nocopy hint
9910: ,p_return_status OUT NOCOPY VARCHAR2 -- 4537865 Added nocopy hint
9903:
9904: PROCEDURE delete_project1
9905: ( p_api_version_number IN NUMBER
9906: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
9907: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
9908: ,p_msg_count OUT NOCOPY NUMBER -- 4537865 Added nocopy hint
9909: ,p_msg_data OUT NOCOPY VARCHAR2 -- 4537865 Added nocopy hint
9910: ,p_return_status OUT NOCOPY VARCHAR2 -- 4537865 Added nocopy hint
9911: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
9954: SAVEPOINT delete_project_pub;
9955:
9956: -- Standard call to check for call compatibility.
9957:
9958: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
9959: p_api_version_number ,
9960: l_api_name ,
9961: G_PKG_NAME )
9962: THEN
9960: l_api_name ,
9961: G_PKG_NAME )
9962: THEN
9963:
9964: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9965:
9966:
9967: END IF;
9968:
9967: END IF;
9968:
9969: -- Initialize the message table if requested.
9970:
9971: IF FND_API.TO_BOOLEAN( p_init_msg_list )
9972: THEN
9973:
9974: FND_MSG_PUB.initialize;
9975:
9997: ,p_attribute3 => ''
9998: ,p_attribute4 => ''
9999: ,p_attribute5 => '');
10000: END IF;
10001: RAISE FND_API.G_EXC_ERROR;
10002: END IF;
10003:
10004: --bug 2841158
10005: IF p_pm_product_code <> 'WORKPLAN'
10026: ,p_attribute3 => ''
10027: ,p_attribute4 => ''
10028: ,p_attribute5 => '');
10029: END IF;
10030: p_return_status := FND_API.G_RET_STS_ERROR;
10031: RAISE FND_API.G_EXC_ERROR;
10032: END IF;
10033: END IF; --bug 2841158
10034:
10027: ,p_attribute4 => ''
10028: ,p_attribute5 => '');
10029: END IF;
10030: p_return_status := FND_API.G_RET_STS_ERROR;
10031: RAISE FND_API.G_EXC_ERROR;
10032: END IF;
10033: END IF; --bug 2841158
10034:
10035: -- Set API return status to success
10033: END IF; --bug 2841158
10034:
10035: -- Set API return status to success
10036:
10037: p_return_status := FND_API.G_RET_STS_SUCCESS;
10038: l_resp_id := FND_GLOBAL.Resp_id;
10039: l_user_id := FND_GLOBAL.User_id;
10040: --l_module_name := p_pm_product_code||'.'||'PA_PM_DELETE_PROJECT';
10041: l_module_name := 'PA_PM_DELETE_PROJECT';
10062: p_msg_data => l_msg_data,
10063: p_return_status => l_return_status,
10064: p_function_allowed => l_function_allowed );
10065:
10066: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
10067: THEN
10068: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10069:
10070: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
10064: p_function_allowed => l_function_allowed );
10065:
10066: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
10067: THEN
10068: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10069:
10070: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
10071: THEN
10072: RAISE FND_API.G_EXC_ERROR;
10066: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
10067: THEN
10068: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10069:
10070: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
10071: THEN
10072: RAISE FND_API.G_EXC_ERROR;
10073: END IF;
10074: IF l_function_allowed = 'N' THEN
10068: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10069:
10070: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
10071: THEN
10072: RAISE FND_API.G_EXC_ERROR;
10073: END IF;
10074: IF l_function_allowed = 'N' THEN
10075: pa_interface_utils_pub.map_new_amg_msg
10076: ( p_old_message_code => 'PA_FUNCTION_SECURITY_ENFORCED'
10081: ,p_attribute2 => ''
10082: ,p_attribute3 => ''
10083: ,p_attribute4 => ''
10084: ,p_attribute5 => '');
10085: p_return_status := FND_API.G_RET_STS_ERROR;
10086: RAISE FND_API.G_EXC_ERROR;
10087: END IF;
10088:
10089:
10082: ,p_attribute3 => ''
10083: ,p_attribute4 => ''
10084: ,p_attribute5 => '');
10085: p_return_status := FND_API.G_RET_STS_ERROR;
10086: RAISE FND_API.G_EXC_ERROR;
10087: END IF;
10088:
10089:
10090: --Assumption: convert API will do validity check for project_id
10095: ,p_pa_project_id => p_pa_project_id
10096: ,p_out_project_id => l_project_id
10097: ,p_return_status => l_return_status );
10098:
10099: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
10100: THEN
10101: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10102:
10103: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
10097: ,p_return_status => l_return_status );
10098:
10099: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
10100: THEN
10101: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10102:
10103: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
10104: THEN
10105: RAISE FND_API.G_EXC_ERROR;
10099: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
10100: THEN
10101: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10102:
10103: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
10104: THEN
10105: RAISE FND_API.G_EXC_ERROR;
10106: END IF;
10107:
10101: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10102:
10103: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
10104: THEN
10105: RAISE FND_API.G_EXC_ERROR;
10106: END IF;
10107:
10108: -- Now verify whether project security allows the user to delete
10109: -- the project
10122: ,p_attribute2 => ''
10123: ,p_attribute3 => ''
10124: ,p_attribute4 => ''
10125: ,p_attribute5 => '');
10126: p_return_status := FND_API.G_RET_STS_ERROR;
10127: RAISE FND_API.G_EXC_ERROR;
10128: ELSE
10129: -- If the user has query privileges, then check whether
10130: -- update privileges are also available
10123: ,p_attribute3 => ''
10124: ,p_attribute4 => ''
10125: ,p_attribute5 => '');
10126: p_return_status := FND_API.G_RET_STS_ERROR;
10127: RAISE FND_API.G_EXC_ERROR;
10128: ELSE
10129: -- If the user has query privileges, then check whether
10130: -- update privileges are also available
10131: IF pa_security.allow_update (x_project_id => l_project_id ) = 'N' THEN
10142: ,p_attribute2 => ''
10143: ,p_attribute3 => ''
10144: ,p_attribute4 => ''
10145: ,p_attribute5 => '');
10146: p_return_status := FND_API.G_RET_STS_ERROR;
10147: RAISE FND_API.G_EXC_ERROR;
10148: END IF;
10149: END IF;
10150:
10143: ,p_attribute3 => ''
10144: ,p_attribute4 => ''
10145: ,p_attribute5 => '');
10146: p_return_status := FND_API.G_RET_STS_ERROR;
10147: RAISE FND_API.G_EXC_ERROR;
10148: END IF;
10149: END IF;
10150:
10151: -- Get segment1 for AMG messages
10198: END IF;
10199:
10200: IF l_err_code > 0 THEN
10201:
10202: RAISE FND_API.G_EXC_ERROR;
10203:
10204: ELSIF l_err_code < 0 THEN
10205:
10206: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10202: RAISE FND_API.G_EXC_ERROR;
10203:
10204: ELSIF l_err_code < 0 THEN
10205:
10206: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10207:
10208: END IF;
10209:
10210: END IF;
10241: ,p_attribute5 => '');
10242:
10243: END IF;
10244: END IF;
10245: RAISE FND_API.G_EXC_ERROR;
10246: ELSIF l_err_code < 0 THEN
10247: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
10248: THEN
10249:
10257: ,p_attribute3 => ''
10258: ,p_attribute4 => ''
10259: ,p_attribute5 => '');
10260: END IF;
10261: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10262: END IF;
10263:
10264: IF FND_API.to_boolean( p_commit )
10265: THEN
10260: END IF;
10261: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10262: END IF;
10263:
10264: IF FND_API.to_boolean( p_commit )
10265: THEN
10266: COMMIT;
10267: END IF;
10268:
10267: END IF;
10268:
10269: EXCEPTION
10270:
10271: WHEN FND_API.G_EXC_ERROR
10272: THEN
10273: ROLLBACK TO delete_project_pub;
10274:
10275: p_return_status := FND_API.G_RET_STS_ERROR;
10271: WHEN FND_API.G_EXC_ERROR
10272: THEN
10273: ROLLBACK TO delete_project_pub;
10274:
10275: p_return_status := FND_API.G_RET_STS_ERROR;
10276:
10277: FND_MSG_PUB.Count_And_Get
10278: ( p_count => p_msg_count ,
10279: p_data => p_msg_data );
10277: FND_MSG_PUB.Count_And_Get
10278: ( p_count => p_msg_count ,
10279: p_data => p_msg_data );
10280:
10281: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
10282: THEN
10283: ROLLBACK TO delete_project_pub;
10284:
10285: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10281: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
10282: THEN
10283: ROLLBACK TO delete_project_pub;
10284:
10285: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10286:
10287: FND_MSG_PUB.Count_And_Get
10288: ( p_count => p_msg_count ,
10289: p_data => p_msg_data );
10291: WHEN ROW_ALREADY_LOCKED THEN
10292:
10293: ROLLBACK TO delete_project_pub;
10294:
10295: p_return_status := FND_API.G_RET_STS_ERROR;
10296:
10297: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
10298: THEN
10299: FND_MESSAGE.SET_NAME('PA','PA_ROW_ALREADY_LOCKED_P_AMG');
10308: WHEN OTHERS THEN
10309:
10310: ROLLBACK TO delete_project_pub;
10311:
10312: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10313:
10314: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
10315: THEN
10316: FND_MSG_PUB.add_exc_msg
10400:
10401:
10402: -- Set API return status to success
10403:
10404: p_return_status := FND_API.G_RET_STS_SUCCESS;
10405:
10406: -- Get segment1 for AMG messages
10407:
10408: OPEN l_amg_project_csr( p_project_id );
10431: ,p_attribute3 => ''
10432: ,p_attribute4 => ''
10433: ,p_attribute5 => '');
10434: END IF;
10435: RAISE FND_API.G_EXC_ERROR;
10436: END IF;
10437:
10438: -- validate the role type
10439: OPEN l_project_role_types_csr (p_org_roles(i).project_role_type);
10452: ,p_attribute4 => ''
10453: ,p_attribute5 => '');
10454: END IF;
10455: CLOSE l_project_role_types_csr;
10456: RAISE FND_API.G_EXC_ERROR;
10457: ELSE
10458: CLOSE l_project_role_types_csr;
10459: END IF;
10460:
10478: ,p_attribute4 => ''
10479: ,p_attribute5 => '');
10480: END IF;
10481:
10482: RAISE FND_API.G_EXC_ERROR;
10483: END IF;
10484: END IF;
10485:
10486:
10506: v_null_number := to_number(NULL);
10507:
10508: /* PA_PROJECT_PARTIES_PUB.CREATE_PROJECT_PARTY(
10509: p_api_version => 1.0 -- p_api_version
10510: , p_init_msg_list => FND_API.G_TRUE -- p_init_msg_list
10511: , p_commit => FND_API.G_FALSE -- p_commit
10512: , p_validate_only => FND_API.G_FALSE -- p_validate_only
10513: , p_validation_level => FND_API.G_VALID_LEVEL_FULL -- p_validation_level
10514: , p_debug_mode => 'N' -- p_debug_mode
10507:
10508: /* PA_PROJECT_PARTIES_PUB.CREATE_PROJECT_PARTY(
10509: p_api_version => 1.0 -- p_api_version
10510: , p_init_msg_list => FND_API.G_TRUE -- p_init_msg_list
10511: , p_commit => FND_API.G_FALSE -- p_commit
10512: , p_validate_only => FND_API.G_FALSE -- p_validate_only
10513: , p_validation_level => FND_API.G_VALID_LEVEL_FULL -- p_validation_level
10514: , p_debug_mode => 'N' -- p_debug_mode
10515: , p_object_id => p_project_id -- p_object_id
10508: /* PA_PROJECT_PARTIES_PUB.CREATE_PROJECT_PARTY(
10509: p_api_version => 1.0 -- p_api_version
10510: , p_init_msg_list => FND_API.G_TRUE -- p_init_msg_list
10511: , p_commit => FND_API.G_FALSE -- p_commit
10512: , p_validate_only => FND_API.G_FALSE -- p_validate_only
10513: , p_validation_level => FND_API.G_VALID_LEVEL_FULL -- p_validation_level
10514: , p_debug_mode => 'N' -- p_debug_mode
10515: , p_object_id => p_project_id -- p_object_id
10516: , p_OBJECT_TYPE => 'PA_PROJECTS' -- p_OBJECT_TYPE
10509: p_api_version => 1.0 -- p_api_version
10510: , p_init_msg_list => FND_API.G_TRUE -- p_init_msg_list
10511: , p_commit => FND_API.G_FALSE -- p_commit
10512: , p_validate_only => FND_API.G_FALSE -- p_validate_only
10513: , p_validation_level => FND_API.G_VALID_LEVEL_FULL -- p_validation_level
10514: , p_debug_mode => 'N' -- p_debug_mode
10515: , p_object_id => p_project_id -- p_object_id
10516: , p_OBJECT_TYPE => 'PA_PROJECTS' -- p_OBJECT_TYPE
10517: , p_project_role_id => v_project_role_id -- p_project_role_id
10538: );
10539: */
10540: PA_PROJECTS_MAINT_PUB.CREATE_ORG_ROLE(
10541: p_api_version => 1.0 -- p_api_version
10542: , p_init_msg_list => FND_API.G_TRUE -- p_init_msg_list
10543: , p_commit => FND_API.G_FALSE -- p_commit
10544: , p_validate_only => FND_API.G_FALSE -- p_validate_only
10545: , p_validation_level => FND_API.G_VALID_LEVEL_FULL -- p_validation_level
10546: , p_debug_mode => 'N' -- p_debug_mode
10539: */
10540: PA_PROJECTS_MAINT_PUB.CREATE_ORG_ROLE(
10541: p_api_version => 1.0 -- p_api_version
10542: , p_init_msg_list => FND_API.G_TRUE -- p_init_msg_list
10543: , p_commit => FND_API.G_FALSE -- p_commit
10544: , p_validate_only => FND_API.G_FALSE -- p_validate_only
10545: , p_validation_level => FND_API.G_VALID_LEVEL_FULL -- p_validation_level
10546: , p_debug_mode => 'N' -- p_debug_mode
10547: , p_object_id => p_project_id -- p_object_id
10540: PA_PROJECTS_MAINT_PUB.CREATE_ORG_ROLE(
10541: p_api_version => 1.0 -- p_api_version
10542: , p_init_msg_list => FND_API.G_TRUE -- p_init_msg_list
10543: , p_commit => FND_API.G_FALSE -- p_commit
10544: , p_validate_only => FND_API.G_FALSE -- p_validate_only
10545: , p_validation_level => FND_API.G_VALID_LEVEL_FULL -- p_validation_level
10546: , p_debug_mode => 'N' -- p_debug_mode
10547: , p_object_id => p_project_id -- p_object_id
10548: , p_OBJECT_TYPE => 'PA_PROJECTS' -- p_OBJECT_TYPE
10541: p_api_version => 1.0 -- p_api_version
10542: , p_init_msg_list => FND_API.G_TRUE -- p_init_msg_list
10543: , p_commit => FND_API.G_FALSE -- p_commit
10544: , p_validate_only => FND_API.G_FALSE -- p_validate_only
10545: , p_validation_level => FND_API.G_VALID_LEVEL_FULL -- p_validation_level
10546: , p_debug_mode => 'N' -- p_debug_mode
10547: , p_object_id => p_project_id -- p_object_id
10548: , p_OBJECT_TYPE => 'PA_PROJECTS' -- p_OBJECT_TYPE
10549: , p_project_role_id => v_project_role_id -- p_project_role_id
10561: , x_msg_count => x_msg_count -- x_msg_count
10562: , x_msg_data => x_msg_data -- x_msg_data
10563: );
10564:
10565: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) Then
10566: p_return_status := x_return_status;
10567: -- p_msg_count := x_msg_count;
10568: -- p_msg_data := SUBSTR(p_msg_data||x_msg_data,1,2000);
10569: if (x_return_status = FND_API.G_RET_STS_ERROR) then
10565: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) Then
10566: p_return_status := x_return_status;
10567: -- p_msg_count := x_msg_count;
10568: -- p_msg_data := SUBSTR(p_msg_data||x_msg_data,1,2000);
10569: if (x_return_status = FND_API.G_RET_STS_ERROR) then
10570: raise FND_API.G_EXC_UNEXPECTED_ERROR;
10571: else -- (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
10572: raise FND_API.G_EXC_ERROR;
10573: end if;
10566: p_return_status := x_return_status;
10567: -- p_msg_count := x_msg_count;
10568: -- p_msg_data := SUBSTR(p_msg_data||x_msg_data,1,2000);
10569: if (x_return_status = FND_API.G_RET_STS_ERROR) then
10570: raise FND_API.G_EXC_UNEXPECTED_ERROR;
10571: else -- (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
10572: raise FND_API.G_EXC_ERROR;
10573: end if;
10574: END IF;
10567: -- p_msg_count := x_msg_count;
10568: -- p_msg_data := SUBSTR(p_msg_data||x_msg_data,1,2000);
10569: if (x_return_status = FND_API.G_RET_STS_ERROR) then
10570: raise FND_API.G_EXC_UNEXPECTED_ERROR;
10571: else -- (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
10572: raise FND_API.G_EXC_ERROR;
10573: end if;
10574: END IF;
10575:
10568: -- p_msg_data := SUBSTR(p_msg_data||x_msg_data,1,2000);
10569: if (x_return_status = FND_API.G_RET_STS_ERROR) then
10570: raise FND_API.G_EXC_UNEXPECTED_ERROR;
10571: else -- (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
10572: raise FND_API.G_EXC_ERROR;
10573: end if;
10574: END IF;
10575:
10576: END IF; -- IF(p_org_roles(i).person_id <>
10581:
10582:
10583: EXCEPTION
10584:
10585: WHEN FND_API.G_EXC_ERROR
10586: THEN
10587: /* dbms_output.put_line('handling an G_EXC_ERROR exception'); */
10588: ROLLBACK TO add_org_roles_pvt;
10589:
10586: THEN
10587: /* dbms_output.put_line('handling an G_EXC_ERROR exception'); */
10588: ROLLBACK TO add_org_roles_pvt;
10589:
10590: p_return_status := FND_API.G_RET_STS_ERROR;
10591:
10592: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
10593: THEN
10594: /* dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception'); */
10588: ROLLBACK TO add_org_roles_pvt;
10589:
10590: p_return_status := FND_API.G_RET_STS_ERROR;
10591:
10592: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
10593: THEN
10594: /* dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception'); */
10595: ROLLBACK TO add_org_roles_pvt;
10596:
10593: THEN
10594: /* dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception'); */
10595: ROLLBACK TO add_org_roles_pvt;
10596:
10597: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10598:
10599: WHEN OTHERS THEN
10600: /* dbms_output.put_line('handling an OTHERS exception'); */
10601: ROLLBACK TO add_org_roles_pvt;
10599: WHEN OTHERS THEN
10600: /* dbms_output.put_line('handling an OTHERS exception'); */
10601: ROLLBACK TO add_org_roles_pvt;
10602:
10603: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10604:
10605: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
10606: THEN
10607: FND_MSG_PUB.add_exc_msg
10796: l_amg_task_number VARCHAR2(50);
10797:
10798: BEGIN
10799:
10800: p_return_status := FND_API.G_RET_STS_SUCCESS;
10801:
10802: OPEN l_amg_project_csr( p_pa_project_id );
10803: FETCH l_amg_project_csr INTO l_amg_segment1;
10804: CLOSE l_amg_project_csr;
10841: ,p_attribute3 => ''
10842: ,p_attribute4 => ''
10843: ,p_attribute5 => '');
10844: END IF;
10845: RAISE FND_API.G_EXC_ERROR;
10846:
10847: ELSE
10848:
10849: p_out_labor_sch_type := p_in_labor_sch_type;
10882: ,p_attribute3 => ''
10883: ,p_attribute4 => ''
10884: ,p_attribute5 => '');
10885: END IF;
10886: RAISE FND_API.G_EXC_ERROR;
10887: ELSE
10888:
10889: p_out_nl_labor_sch_type := p_in_nl_sch_type;
10890: END IF;
10890: END IF;
10891:
10892: EXCEPTION
10893:
10894: WHEN FND_API.G_EXC_ERROR
10895: THEN
10896: /* dbms_output.put_line('handling an G_EXC_ERROR exception'); */
10897:
10898: p_return_status := FND_API.G_RET_STS_ERROR;
10894: WHEN FND_API.G_EXC_ERROR
10895: THEN
10896: /* dbms_output.put_line('handling an G_EXC_ERROR exception'); */
10897:
10898: p_return_status := FND_API.G_RET_STS_ERROR;
10899:
10900: -- 4537865 RESET OUT PARAMS
10901: p_out_nl_labor_sch_type := NULL ;
10902: p_out_labor_sch_type := NULL ;
10900: -- 4537865 RESET OUT PARAMS
10901: p_out_nl_labor_sch_type := NULL ;
10902: p_out_labor_sch_type := NULL ;
10903:
10904: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
10905: THEN
10906: /* dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception'); */
10907:
10908: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10904: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
10905: THEN
10906: /* dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception'); */
10907:
10908: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10909: -- 4537865 RESET OUT PARAMS
10910: p_out_nl_labor_sch_type := NULL ;
10911: p_out_labor_sch_type := NULL ;
10912:
10912:
10913: WHEN OTHERS THEN
10914: /* dbms_output.put_line('handling an OTHERS exception'); */
10915:
10916: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10917:
10918: -- 4537865 RESET OUT PARAMS
10919: p_out_nl_labor_sch_type := NULL ;
10920: p_out_labor_sch_type := NULL ;
11072: l_amg_task_number VARCHAR2(50);
11073:
11074: BEGIN
11075:
11076: p_return_status := FND_API.G_RET_STS_SUCCESS;
11077:
11078: OPEN l_amg_project_csr( p_pa_project_id );
11079: FETCH l_amg_project_csr INTO l_amg_segment1;
11080: CLOSE l_amg_project_csr;
11105: ,p_attribute3 => ''
11106: ,p_attribute4 => ''
11107: ,p_attribute5 => '');
11108: END IF;
11109: RAISE FND_API.G_EXC_ERROR;
11110: ELSIF p_non_lab_std_bill_rt_sch_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
11111: IF p_nl_db_sch_type = 'I' THEN /* Schedule is being changed from 'I' (burden) to 'B' (bill) */
11112: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
11113: THEN
11121: ,p_attribute3 => ''
11122: ,p_attribute4 => ''
11123: ,p_attribute5 => '');
11124: END IF;
11125: RAISE FND_API.G_EXC_ERROR;
11126: END IF;
11127: END IF;
11128:
11129: /*Give an error when non_lab_bill_rt_org_id is null and give an error
11144: ,p_attribute3 => ''
11145: ,p_attribute4 => ''
11146: ,p_attribute5 => '');
11147: END IF;
11148: RAISE FND_API.G_EXC_ERROR;
11149: ELSIF p_nl_bill_rate_org_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
11150: IF p_nl_db_sch_type = 'I' THEN
11151: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
11152: THEN
11160: ,p_attribute3 => ''
11161: ,p_attribute4 => ''
11162: ,p_attribute5 => '');
11163: END IF;
11164: RAISE FND_API.G_EXC_ERROR;
11165: END IF;
11166: END IF;
11167:
11168: /*Give an error if the combination of non_labor_bill_rt_sch_id and nl_bill_rate_org_id is invalid*/
11188: ,p_attribute3 => ''
11189: ,p_attribute4 => ''
11190: ,p_attribute5 => '');
11191: END IF;
11192: RAISE FND_API.G_EXC_ERROR;
11193: END IF;
11194: CLOSE l_nl_org_sch_id_csr;
11195: END IF;
11196:
11222: ,p_attribute3 => ''
11223: ,p_attribute4 => ''
11224: ,p_attribute5 => '');
11225: END IF;
11226: RAISE FND_API.G_EXC_ERROR;
11227: END IF;
11228: elsif (p_nl_schedule_discount IS NOT NULL
11229: AND p_nl_schedule_discount <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
11230: THEN
11243: ,p_attribute3 => ''
11244: ,p_attribute4 => ''
11245: ,p_attribute5 => '');
11246: END IF;
11247: RAISE FND_API.G_EXC_ERROR;
11248: ELSE
11249: OPEN get_nl_disc_reason_code_csr(p_non_labor_disc_reason_code);
11250: FETCH get_nl_disc_reason_code_csr INTO l_temp_dummy;
11251: IF get_nl_disc_reason_code_csr%NOTFOUND THEN
11262: ,p_attribute3 => ''
11263: ,p_attribute4 => ''
11264: ,p_attribute5 => '');
11265: END IF;
11266: RAISE FND_API.G_EXC_ERROR;
11267: END IF;
11268: CLOSE get_nl_disc_reason_code_csr;
11269: END IF;
11270: END IF;
11290: ,p_attribute3 => ''
11291: ,p_attribute4 => ''
11292: ,p_attribute5 => '');
11293: END IF;
11294: RAISE FND_API.G_EXC_ERROR;
11295: ELSIF p_rev_ind_rate_sch_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
11296: IF p_nl_db_sch_type = 'B' THEN
11297: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
11298: THEN
11306: ,p_attribute3 => ''
11307: ,p_attribute4 => ''
11308: ,p_attribute5 => '');
11309: END IF;
11310: RAISE FND_API.G_EXC_ERROR;
11311: END IF;
11312: END IF;
11313:
11314:
11337: ,p_attribute3 => ''
11338: ,p_attribute4 => ''
11339: ,p_attribute5 => '');
11340: END IF;
11341: RAISE FND_API.G_EXC_ERROR;
11342: END IF;
11343: CLOSE l_rev_rate_schedule_type_csr;
11344: IF l_rev_rate_schedule_type = 'P'
11345: THEN
11358: ,p_attribute3 => ''
11359: ,p_attribute4 => ''
11360: ,p_attribute5 => '');
11361: END IF;
11362: RAISE FND_API.G_EXC_ERROR;
11363: END IF;
11364: END IF;
11365: END IF;
11366:
11386: ,p_attribute3 => ''
11387: ,p_attribute4 => ''
11388: ,p_attribute5 => '');
11389: END IF;
11390: RAISE FND_API.G_EXC_ERROR;
11391: ELSIF p_inv_ind_rate_sch_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
11392: IF p_nl_db_sch_type = 'B' THEN
11393: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
11394: THEN
11402: ,p_attribute3 => ''
11403: ,p_attribute4 => ''
11404: ,p_attribute5 => '');
11405: END IF;
11406: RAISE FND_API.G_EXC_ERROR;
11407: END IF;
11408: END IF;
11409:
11410:
11434: ,p_attribute3 => ''
11435: ,p_attribute4 => ''
11436: ,p_attribute5 => '');
11437: END IF;
11438: RAISE FND_API.G_EXC_ERROR;
11439: END IF;
11440: CLOSE l_inv_rate_schedule_type_csr;
11441: IF l_inv_rate_schedule_type = 'P'
11442: THEN
11455: ,p_attribute3 => ''
11456: ,p_attribute4 => ''
11457: ,p_attribute5 => '');
11458: END IF;
11459: RAISE FND_API.G_EXC_ERROR;
11460: END IF;
11461: END IF;
11462: END IF;
11463:
11492: ,p_attribute3 => ''
11493: ,p_attribute4 => ''
11494: ,p_attribute5 => '');
11495: END IF;
11496: RAISE FND_API.G_EXC_ERROR;
11497: END IF;
11498: CLOSE l_emp_rate_sch_id_csr;
11499: END IF;
11500:
11521: ,p_attribute3 => ''
11522: ,p_attribute4 => ''
11523: ,p_attribute5 => '');
11524: END IF;
11525: RAISE FND_API.G_EXC_ERROR;
11526: ELSIF p_job_bill_rate_schedule_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
11527: THEN
11528: IF p_lab_db_sch_type = 'I' THEN
11529: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
11538: ,p_attribute3 => ''
11539: ,p_attribute4 => ''
11540: ,p_attribute5 => '');
11541: END IF;
11542: RAISE FND_API.G_EXC_ERROR;
11543: END IF;
11544: END IF;
11545: END IF;
11546:
11569: ,p_attribute3 => ''
11570: ,p_attribute4 => ''
11571: ,p_attribute5 => '');
11572: END IF;
11573: RAISE FND_API.G_EXC_ERROR;
11574: END IF;
11575: CLOSE l_job_rate_sch_id_csr;
11576: END IF;
11577:
11606: ,p_attribute3 => ''
11607: ,p_attribute4 => ''
11608: ,p_attribute5 => '');
11609: END IF;
11610: RAISE FND_API.G_EXC_ERROR;
11611: END IF;
11612: elsif (p_labor_schedule_discount IS NOT NULL
11613: AND p_labor_schedule_discount <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
11614: THEN
11627: ,p_attribute3 => ''
11628: ,p_attribute4 => ''
11629: ,p_attribute5 => '');
11630: END IF;
11631: RAISE FND_API.G_EXC_ERROR;
11632: ELSE
11633: OPEN get_lab_disc_reason_code_csr(p_labor_disc_reason_code);
11634: FETCH get_lab_disc_reason_code_csr INTO l_temp_dummy;
11635: IF get_lab_disc_reason_code_csr%NOTFOUND THEN
11646: ,p_attribute3 => ''
11647: ,p_attribute4 => ''
11648: ,p_attribute5 => '');
11649: END IF;
11650: RAISE FND_API.G_EXC_ERROR;
11651: END IF;
11652: CLOSE get_lab_disc_reason_code_csr;
11653: END IF;
11654: END IF;
11677: ,p_attribute3 => ''
11678: ,p_attribute4 => ''
11679: ,p_attribute5 => '');
11680: END IF;
11681: RAISE FND_API.G_EXC_ERROR;
11682: ELSIF p_rev_ind_rate_sch_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
11683: IF p_lab_db_sch_type = 'B' THEN
11684: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
11685: THEN
11693: ,p_attribute3 => ''
11694: ,p_attribute4 => ''
11695: ,p_attribute5 => '');
11696: END IF;
11697: RAISE FND_API.G_EXC_ERROR;
11698: END IF;
11699: END IF;
11700:
11701:
11745: ,p_attribute3 => ''
11746: ,p_attribute4 => ''
11747: ,p_attribute5 => '');
11748: END IF;
11749: RAISE FND_API.G_EXC_ERROR;
11750: END IF;
11751: END IF;
11752: END IF;
11753:
11773: ,p_attribute3 => ''
11774: ,p_attribute4 => ''
11775: ,p_attribute5 => '');
11776: END IF;
11777: RAISE FND_API.G_EXC_ERROR;
11778: ELSIF p_inv_ind_rate_sch_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
11779: IF p_lab_db_sch_type = 'B' THEN
11780: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
11781: THEN
11789: ,p_attribute3 => ''
11790: ,p_attribute4 => ''
11791: ,p_attribute5 => '');
11792: END IF;
11793: RAISE FND_API.G_EXC_ERROR;
11794: END IF;
11795: END IF;
11796:
11797:
11841: ,p_attribute3 => ''
11842: ,p_attribute4 => ''
11843: ,p_attribute5 => '');
11844: END IF;
11845: RAISE FND_API.G_EXC_ERROR;
11846: END IF;
11847: END IF;
11848: END IF;
11849:
11856:
11857:
11858: EXCEPTION
11859:
11860: WHEN FND_API.G_EXC_ERROR
11861: THEN
11862: /* dbms_output.put_line('handling an G_EXC_ERROR exception'); */
11863:
11864: p_return_status := FND_API.G_RET_STS_ERROR;
11860: WHEN FND_API.G_EXC_ERROR
11861: THEN
11862: /* dbms_output.put_line('handling an G_EXC_ERROR exception'); */
11863:
11864: p_return_status := FND_API.G_RET_STS_ERROR;
11865:
11866:
11867: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
11868: THEN
11863:
11864: p_return_status := FND_API.G_RET_STS_ERROR;
11865:
11866:
11867: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
11868: THEN
11869: /* dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception'); */
11870:
11871: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11867: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
11868: THEN
11869: /* dbms_output.put_line('handling an G_EXC_UNEXPECTED_ERROR exception'); */
11870:
11871: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11872:
11873:
11874: WHEN OTHERS THEN
11875: /* dbms_output.put_line('handling an OTHERS exception'); */
11873:
11874: WHEN OTHERS THEN
11875: /* dbms_output.put_line('handling an OTHERS exception'); */
11876:
11877: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11878:
11879:
11880: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
11881: THEN
11939: l_msg_index_out NUMBER;
11940: l_debug_mode VARCHAR2(1);
11941: BEGIN
11942:
11943: x_return_status := FND_API.G_RET_STS_SUCCESS;
11944: x_msg_count :=0;
11945: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
11946:
11947: IF l_debug_mode = 'Y' THEN
11967: from pa_project_customers
11968: where project_id=p_project_id;
11969:
11970: if l_cust_count > 0 then
11971: x_return_status := FND_API.G_RET_STS_ERROR;
11972: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
11973: ,p_msg_name => 'PA_INVALID_TASK_CUSTOMER');
11974: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11975: end if;
11995: from pa_project_customers
11996: where project_id=p_project_id;
11997:
11998: if l_cust_count > 0 then
11999: x_return_status := FND_API.G_RET_STS_ERROR;
12000: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
12001: ,p_msg_name => 'PA_INC_NUM_DEF_TT_CUST');
12002: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12003: end if;
12001: ,p_msg_name => 'PA_INC_NUM_DEF_TT_CUST');
12002: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12003: end if;
12004: when TOO_MANY_ROWS then
12005: x_return_status := FND_API.G_RET_STS_ERROR;
12006: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
12007: ,p_msg_name => 'PA_INC_NUM_DEF_TT_CUST');
12008: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12009: end;
12020:
12021: EXCEPTION
12022: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
12023: IF x_return_status IS NULL OR
12024: x_return_status = FND_API.G_RET_STS_SUCCESS THEN
12025: x_return_status := FND_API.G_RET_STS_ERROR;
12026: END IF;
12027:
12028: l_msg_count := FND_MSG_PUB.count_msg;
12021: EXCEPTION
12022: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
12023: IF x_return_status IS NULL OR
12024: x_return_status = FND_API.G_RET_STS_SUCCESS THEN
12025: x_return_status := FND_API.G_RET_STS_ERROR;
12026: END IF;
12027:
12028: l_msg_count := FND_MSG_PUB.count_msg;
12029:
12028: l_msg_count := FND_MSG_PUB.count_msg;
12029:
12030: IF l_msg_count = 1 AND x_msg_data IS NULL THEN
12031: PA_INTERFACE_UTILS_PUB.get_messages
12032: (p_encoded => FND_API.G_TRUE,
12033: p_msg_index => 1,
12034: p_msg_count => l_msg_count,
12035: p_msg_data => l_msg_data,
12036: p_data => l_data,
12046: pa_debug.reset_curr_function;
12047: END IF;
12048: RETURN;
12049: WHEN OTHERS THEN
12050: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12051: x_msg_count := 1;
12052: x_msg_data := SQLERRM;
12053: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_PROJECT_PVT'
12054: ,p_procedure_name => 'VALIDATE_DATA'