[Home] [Help]
156: l_deliverable_license VARCHAR2(1) := 'N';
157:
158: BEGIN
159: IF (p_debug_mode = 'Y') THEN
160: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.CREATE_STRUCTURE BEGIN');
161: END IF;
162:
163: IF (p_commit = FND_API.G_TRUE) THEN
164: savepoint CREATE_STRUC_PRIVATE;
164: savepoint CREATE_STRUC_PRIVATE;
165: END IF;
166:
167: IF (p_debug_mode = 'Y') THEN
168: pa_debug.debug('Performing validations');
169: END IF;
170:
171: --Check if the structure name is unique within the project
172: If (pa_project_structure_utils.check_structure_name_unique(p_structure_name,
392: --dbms_output.put_line('done inserting to pa_proj_element');
393:
394: Open get_licensed(l_workplan_license, l_financial_license, l_deliverable_license);
395: IF (p_debug_mode = 'Y') THEN
396: pa_debug.debug('workplan license = '||l_workplan_license);
397: pa_debug.debug('financial license = '||l_financial_license);
398: END IF;
399:
400: LOOP
393:
394: Open get_licensed(l_workplan_license, l_financial_license, l_deliverable_license);
395: IF (p_debug_mode = 'Y') THEN
396: pa_debug.debug('workplan license = '||l_workplan_license);
397: pa_debug.debug('financial license = '||l_financial_license);
398: END IF;
399:
400: LOOP
401: FETCH get_licensed into l_structure_type_id, l_structure_type;
401: FETCH get_licensed into l_structure_type_id, l_structure_type;
402: EXIT WHEN get_licensed%NOTFOUND;
403: --dbms_output.put_line('begin inserting to struture type tbl');
404: IF (p_debug_mode = 'Y') THEN
405: pa_debug.debug('structure_type = '||l_structure_type);
406: END IF;
407: --check if structure type exists
408:
409: pa_project_structure_utils.Check_structure_Type_Exists(p_project_id,
533:
534: x_return_status := FND_API.G_RET_STS_SUCCESS;
535:
536: IF (p_debug_mode = 'Y') THEN
537: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.CREATE_STRUCTURE end');
538: END IF;
539:
540: EXCEPTION
541: WHEN FND_API.G_EXC_ERROR THEN
669: FROM sys.dual;
670:
671: BEGIN
672: IF (p_debug_mode = 'Y') THEN
673: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.CREATE_STRUCTURE_VERSION begin');
674: END IF;
675:
676: IF (p_commit = FND_API.G_TRUE) THEN
677: savepoint CREATE_STRUC_VER_PVT;
677: savepoint CREATE_STRUC_VER_PVT;
678: END IF;
679:
680: IF (p_debug_mode = 'Y') THEN
681: pa_debug.debug('Performing validations');
682: END IF;
683:
684: --Get project id
685: OPEN getid;
836:
837: x_return_status := FND_API.G_RET_STS_SUCCESS;
838:
839: IF (p_debug_mode = 'Y') THEN
840: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.CREATE_STRUCTURE_VERSION end');
841: END IF;
842:
843: EXCEPTION
844: WHEN FND_API.G_EXC_ERROR THEN
995: l_current_working_ver_flag VARCHAR2(1); --FPM bug 3301192
996:
997: BEGIN
998: IF (p_debug_mode = 'Y') THEN
999: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.CREATE_STRUCTURE_VERSION_ATTR begin');
1000: END IF;
1001:
1002: IF (p_commit = FND_API.G_TRUE) THEN
1003: savepoint CREATE_STRUC_VER_ATTR_PVT;
1003: savepoint CREATE_STRUC_VER_ATTR_PVT;
1004: END IF;
1005:
1006: IF (p_debug_mode = 'Y') THEN
1007: pa_debug.debug('Performing validations');
1008: END IF;
1009:
1010: OPEN getids;
1011: FETCH getids into l_project_id, l_proj_element_id;
1311:
1312: x_return_status := FND_API.G_RET_STS_SUCCESS;
1313:
1314: IF (p_debug_mode = 'Y') THEN
1315: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.CREATE_STRUCTURE_VERSION_ATTR end');
1316: END IF;
1317:
1318: EXCEPTION
1319: WHEN FND_API.G_EXC_ERROR THEN
1474: from pa_proj_elements
1475: where proj_element_id = p_structure_id;
1476: BEGIN
1477: IF (p_debug_mode = 'Y') THEN
1478: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.UPDATE_STRUCTURE begin');
1479: END IF;
1480:
1481: IF (p_commit = FND_API.G_TRUE) then
1482: savepoint update_structure_pvt;
1523: RAISE FND_API.G_EXC_ERROR;
1524: END IF;
1525:
1526: IF (p_debug_mode = 'Y') THEN
1527: pa_debug.debug('l_name = '||l_name);
1528: pa_debug.debug('p_structure_name = '||p_structure_name);
1529: END IF;
1530:
1531: --Check if structure name is unique, if changed.
1524: END IF;
1525:
1526: IF (p_debug_mode = 'Y') THEN
1527: pa_debug.debug('l_name = '||l_name);
1528: pa_debug.debug('p_structure_name = '||p_structure_name);
1529: END IF;
1530:
1531: --Check if structure name is unique, if changed.
1532: IF (l_name <> p_structure_name) then
1530:
1531: --Check if structure name is unique, if changed.
1532: IF (l_name <> p_structure_name) then
1533: IF (p_debug_mode = 'Y') THEN
1534: pa_debug.debug('different!!');
1535: END IF;
1536: IF ('Y' <> pa_project_structure_utils.Check_Structure_Name_Unique(p_structure_name,
1537: p_structure_id,
1538: l_project_id)) THEN
1660:
1661: x_return_status := FND_API.G_RET_STS_SUCCESS;
1662:
1663: IF (p_debug_mode = 'Y') THEN
1664: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.UPDATE_STRUCTURE end');
1665: END IF;
1666:
1667: EXCEPTION
1668: when FND_API.G_EXC_ERROR then
1848:
1849: BEGIN
1850: l_msg_count_int := FND_MSG_PUB.count_msg; /*Bug#6414944*/
1851: IF (p_debug_mode = 'Y') THEN
1852: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.UPDATE_STRUCTURE_VERSION_ATTR begin');
1853: END IF;
1854:
1855: IF (p_commit = FND_API.G_TRUE) THEN
1856: savepoint UPDATE_STRUC_VER_ATTR_PVT;
1856: savepoint UPDATE_STRUC_VER_ATTR_PVT;
1857: END IF;
1858:
1859: IF (p_debug_mode = 'Y') THEN
1860: pa_debug.debug('Performing validations');
1861: END IF;
1862:
1863: OPEN getids;
1864: FETCH getids into l_rowid,
1948: IF ('N' = PA_PROJECT_STRUCTURE_UTILS.check_edit_wp_ok(l_project_id,
1949: l_structure_version_id)) THEN
1950: --If published
1951: IF (p_debug_mode = 'Y') THEN
1952: pa_debug.debug('Published');
1953: END IF;
1954:
1955: --if set current baseline flag
1956: IF (p_baseline_current_flag = 'Y') THEN
2015: IF ('Y' = PA_PROJECT_STRUCTURE_UTILS.check_edit_wp_ok(l_project_id,
2016: l_structure_version_id)) THEN
2017: --If not published
2018: IF (p_debug_mode = 'Y') THEN
2019: pa_debug.debug('Not Published');
2020: END IF;
2021:
2022: --Check lock
2023: l_get_lock := PA_PROJECT_STRUCTURE_UTILS.IS_STRUC_VER_LOCKED_BY_USER(FND_GLOBAL.USER_ID,
2023: l_get_lock := PA_PROJECT_STRUCTURE_UTILS.IS_STRUC_VER_LOCKED_BY_USER(FND_GLOBAL.USER_ID,
2024: l_structure_version_id);
2025:
2026: IF (p_debug_mode = 'Y') THEN
2027: pa_debug.debug('l_get_lock value = '||l_get_lock);
2028: END IF;
2029:
2030: --bug 3071008
2031: IF (l_get_lock <> 'Y') THEN
2213:
2214: x_return_status := FND_API.G_RET_STS_SUCCESS;
2215:
2216: IF (p_debug_mode = 'Y') THEN
2217: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.UPDATE_STRUCTURE_VERSION_ATTR end');
2218: END IF;
2219:
2220: EXCEPTION
2221: WHEN NO_DATA_FOUND THEN
2313: -- End fix for Bug # 4506308.
2314:
2315: BEGIN
2316: IF (p_debug_mode = 'Y') THEN
2317: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.DELETE_STRUCTURE begin');
2318: END IF;
2319:
2320: if p_commit = FND_API.G_TRUE then
2321: savepoint delete_structure_pvt;
2418:
2419: x_return_status := FND_API.G_RET_STS_SUCCESS;
2420:
2421: IF (p_debug_mode = 'Y') THEN
2422: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.DELETE_STRUCTURE end');
2423: END IF;
2424:
2425: EXCEPTION
2426: when FND_API.G_EXC_ERROR then
2504: -- End fix for Bug # 4483222.
2505:
2506: BEGIN
2507: IF (p_debug_mode = 'Y') THEN
2508: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.DELETE_STRUCTURE_VERSION begin');
2509: END IF;
2510:
2511: if p_commit = FND_API.G_TRUE then
2512: savepoint delete_structure_version_pvt;
2513: end if;
2514:
2515: --Lock record
2516: IF (p_debug_mode = 'Y') THEN
2517: pa_debug.debug('locking record '||p_structure_version_id||', '||p_record_Version_number);
2518: END IF;
2519: IF (p_validate_only <> FND_API.G_TRUE) THEN
2520: BEGIN
2521: --lock
2568: raise FND_API.G_EXC_ERROR;
2569: end if;
2570:
2571: IF (p_debug_mode = 'Y') THEN
2572: pa_debug.debug('deleting structure versionn');
2573: END IF;
2574:
2575:
2576: -- Added by skannoji
2681:
2682: x_return_status := FND_API.G_RET_STS_SUCCESS;
2683:
2684: IF (p_debug_mode = 'Y') THEN
2685: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.DELETE_STRUCTURE_VERSION end');
2686: END IF;
2687:
2688: EXCEPTION
2689: when FND_API.G_EXC_ERROR then
2780: -- 3804437
2781:
2782: BEGIN
2783: IF (p_debug_mode = 'Y') THEN
2784: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.DELETE_STRUCTURE_VERSION_ATTR begin');
2785: END IF;
2786:
2787: if p_commit = FND_API.G_TRUE then
2788: savepoint delete_structure_ver_attr_pvt;
2870: X_ROWID => l_rowid
2871: );
2872:
2873: IF (p_debug_mode = 'Y') THEN
2874: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.DELETE_STRUCTURE_VERSION_ATTR end');
2875: END IF;
2876:
2877: x_return_status := FND_API.G_RET_STS_SUCCESS;
2878:
3257:
3258: l_debug_mode VARCHAR2(1);
3259: BEGIN
3260:
3261: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
3262:
3263: IF (p_debug_mode = 'Y') THEN
3264: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.PUBLISH_STRUCTURE begin');
3265: END IF;
3260:
3261: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
3262:
3263: IF (p_debug_mode = 'Y') THEN
3264: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.PUBLISH_STRUCTURE begin');
3265: END IF;
3266:
3267: IF (p_commit = FND_API.G_TRUE) THEN
3268: savepoint publish_structure_pvt;
3601: --dbms_output.put_line('new struct version id = '||l_new_struct_ver_id);
3602: */
3603:
3604: IF (p_debug_mode = 'Y') THEN
3605: pa_debug.debug('create structure version =>'||l_new_struct_ver_id);
3606: END IF;
3607:
3608: l_msg_count := FND_MSG_PUB.count_msg;
3609: if l_msg_count > 0 then
3647: --dbms_output.put_line('open p_structure_version_id');
3648: -- OPEN get_from_id(p_structure_version_id);
3649: -- LOOP
3650: -- IF (p_debug_mode = 'Y') THEN
3651: -- pa_debug.debug('check incoming links for struct');
3652: -- END IF;
3653: -- FETCH get_from_id INTO l_from_object_info;
3654: -- EXIT WHEN get_from_id%NOTFOUND;
3655: --
3715: -- --dbms_output.put_line('5b');
3716: --
3717: -- END IF;
3718: -- If (p_debug_mode = 'Y') THEN
3719: -- pa_debug.debug('update incoming links for struct =>'||l_return_status);
3720: -- END IF;
3721: --
3722: -- --Check error
3723: -- l_msg_count := FND_MSG_PUB.count_msg;
3743: --dbms_output.put_line('open get_to_id');
3744: -- OPEN get_to_id(p_structure_version_id);
3745: -- LOOP
3746: -- IF (p_debug_mode = 'Y') THEN
3747: -- pa_debug.debug('check outgoing links for struct');
3748: -- END IF;
3749: -- FETCH get_to_id INTO l_to_object_info;
3750: -- EXIT WHEN get_to_id%NOTFOUND;
3751: -- If (l_to_object_info.object_type_to = 'PA_STRUCTURES') THEN
3820: -- CLOSE get_task_version_info;
3821: -- --dbms_output.put_line('8b');
3822: --
3823: -- If (p_debug_mode = 'Y') THEN
3824: -- pa_debug.debug('update outgoing links for struct =>'||l_return_status);
3825: -- END IF;
3826: -- END IF;
3827: -- --Check error
3828: -- l_msg_count := FND_MSG_PUB.count_msg;
3854: OPEN get_task_versions_csr(p_structure_version_id);
3855: l_last_wbs_level := NULL;
3856: LOOP
3857: IF (p_debug_mode = 'Y') THEN
3858: pa_debug.debug('create task version for published structure');
3859: END IF;
3860:
3861: FETCH get_task_versions_csr INTO l_task_versions_rec;
3862: EXIT WHEN get_task_versions_csr%NOTFOUND;
4126:
4127: -- error_msg('before update published links');
4128: --update links linking from working version to current published version
4129: -- IF (p_debug_mode = 'Y') THEN
4130: -- pa_debug.debug('updating links');
4131: -- END IF;
4132: -- PA_PROJECT_STRUCTURE_PVT1.UPDATE_LATEST_PUB_LINKS
4133: -- (
4134: -- p_init_msg_list => FND_API.G_FALSE
4524: CLOSE get_ver_schedule_attr_csr;
4525: --dbms_output.put_line('10b');
4526:
4527: IF (p_debug_mode = 'Y') THEN
4528: pa_debug.debug('create schedule version for struct');
4529: END IF;
4530: --Call Create_Schedule_Version if workplan type
4531: /* hsiu: bug 2800553: commented for performance improvement
4532: PA_TASK_PUB1.CREATE_SCHEDULE_VERSION
5290: );
5291: */
5292: /* removed
5293: IF (p_debug_mode = 'Y') THEN
5294: pa_debug.debug('progress report api');
5295: END IF;
5296:
5297:
5298: --Check if there is any error.
5562:
5563: -- End
5564:
5565: IF l_debug_mode = 'Y' THEN
5566: pa_debug.write('PA_PROJECT_STRUCTURE_PVT1.PUBLISH_STRUCTURE', 'Before opening sel_other_structure_ver p_structure_version_id='||p_structure_version_id, 3);
5567: END IF;
5568:
5569: --hsiu
5570: --changes for advanced structure
5574: FETCH sel_other_structure_ver into l_del_struc_ver_id, l_del_struc_ver_rvn;
5575: EXIT WHEN sel_other_structure_ver%NOTFOUND;
5576:
5577: IF l_debug_mode = 'Y' THEN
5578: pa_debug.write('PA_PROJECT_STRUCTURE_PVT1.PUBLISH_STRUCTURE', 'Before calling PROJECT_STRUCTURE_PVT1.Delete_Struc_Ver_wo_val', 3);
5579: pa_debug.write('PA_PROJECT_STRUCTURE_PVT1.PUBLISH_STRUCTURE', 'l_del_struc_ver_id='||l_del_struc_ver_id||' l_del_struc_ver_rvn='||l_del_struc_ver_rvn, 3);
5580: END IF;
5581:
5582: PA_PROJECT_STRUCTURE_PVT1.Delete_Struc_Ver_wo_val(
5575: EXIT WHEN sel_other_structure_ver%NOTFOUND;
5576:
5577: IF l_debug_mode = 'Y' THEN
5578: pa_debug.write('PA_PROJECT_STRUCTURE_PVT1.PUBLISH_STRUCTURE', 'Before calling PROJECT_STRUCTURE_PVT1.Delete_Struc_Ver_wo_val', 3);
5579: pa_debug.write('PA_PROJECT_STRUCTURE_PVT1.PUBLISH_STRUCTURE', 'l_del_struc_ver_id='||l_del_struc_ver_id||' l_del_struc_ver_rvn='||l_del_struc_ver_rvn, 3);
5580: END IF;
5581:
5582: PA_PROJECT_STRUCTURE_PVT1.Delete_Struc_Ver_wo_val(
5583: p_structure_version_id => l_del_struc_ver_id
5590: --Check if there is any error.
5591: l_msg_count := FND_MSG_PUB.count_msg;
5592:
5593: IF l_debug_mode = 'Y' THEN
5594: pa_debug.write('PA_PROJECT_STRUCTURE_PVT1.PUBLISH_STRUCTURE', 'After calling PROJECT_STRUCTURE_PVT1.Delete_Struc_Ver_wo_val l_return_status='||l_return_status||' l_msg_count='||l_msg_count, 3);
5595: END IF;
5596:
5597: IF l_msg_count > 0 OR l_return_status ='E' THEN
5598: x_msg_count := l_msg_count;
5813: raise FND_API.G_EXC_ERROR;
5814: end if;
5815:
5816: IF (p_debug_mode = 'Y') THEN
5817: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.PUBLISH_STRUCTURE end');
5818: END IF;
5819:
5820: EXCEPTION
5821: when FND_API.G_EXC_ERROR then
5993: l_latest_parent_struc_ver NUMBER;
5994:
5995: BEGIN
5996: IF (p_debug_mode = 'Y') THEN
5997: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.UPDATE_LATEST_PUB_LINKS begin');
5998: END IF;
5999:
6000: IF (p_commit = FND_API.G_TRUE) THEN
6001: savepoint update_latest_pub_links_pvt;
6020: FETCH get_latest_struc_ver INTO l_latest_elem_ver;
6021: IF get_latest_struc_ver%NOTFOUND THEN
6022: --no publish version. exit;
6023: IF (p_debug_mode = 'Y') THEN
6024: pa_debug.debug('No latest published version found');
6025: END IF;
6026: --dbms_output.put_line('b, Close get_latest_struc_ver');
6027: CLOSE get_latest_struc_ver;
6028: x_return_status := FND_API.G_RET_STS_SUCCESS;
6038: l_latest_parent_struc_ver;
6039: IF get_latest_task_ver%NOTFOUND THEN
6040: --no publish version. exit;
6041: IF (p_debug_mode = 'Y') THEN
6042: pa_debug.debug('No latest published version found');
6043: END IF;
6044: --dbms_output.put_line('b, Close get_latest_task_ver');
6045: CLOSE get_latest_task_ver;
6046: x_return_status := FND_API.G_RET_STS_SUCCESS;
6057: --dbms_output.put_line('b, Open get_from_id');
6058: OPEN get_from_id(l_latest_elem_ver);
6059: LOOP
6060: IF (p_debug_mode = 'Y') THEN
6061: pa_debug.debug('getting incoming links');
6062: END IF;
6063: FETCH get_from_id INTO l_from_object_info;
6064: EXIT WHEN get_from_id%NOTFOUND;
6065:
6326:
6327: X_Row_id VARCHAR2(255);
6328: BEGIN
6329:
6330: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PVT1.COPY_STRUCTURE_VERSION');
6331:
6332: IF (p_debug_mode = 'Y') THEN
6333: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.COPY_STRUCTURE_VERSION begin');
6334: END IF;
6329:
6330: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PVT1.COPY_STRUCTURE_VERSION');
6331:
6332: IF (p_debug_mode = 'Y') THEN
6333: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.COPY_STRUCTURE_VERSION begin');
6334: END IF;
6335:
6336: IF (p_commit = FND_API.G_TRUE) THEN
6337: savepoint copy_structure_version_pvt;
6366: ,x_msg_count => l_msg_count
6367: ,x_msg_data => l_msg_data );
6368:
6369: If (p_debug_mode = 'Y') THEN
6370: pa_debug.debug('Create Structure Version return status: ' || l_return_status);
6371: pa_debug.debug('l_new_struct_ver_id: ' || l_new_struct_ver_id);
6372: END IF;
6373:
6374:
6367: ,x_msg_data => l_msg_data );
6368:
6369: If (p_debug_mode = 'Y') THEN
6370: pa_debug.debug('Create Structure Version return status: ' || l_return_status);
6371: pa_debug.debug('l_new_struct_ver_id: ' || l_new_struct_ver_id);
6372: END IF;
6373:
6374:
6375: --Check if there is any error.
6408: ,x_msg_count => l_msg_count
6409: ,x_msg_data => l_msg_data );
6410:
6411: IF (p_debug_mode = 'Y') THEN
6412: pa_debug.debug('Create Structure Version Attr return status: ' || l_return_status);
6413: pa_debug.debug('l_pev_structure_id: ' || l_pev_structure_id);
6414: END IF;
6415:
6416: --Check if there is any error.
6409: ,x_msg_data => l_msg_data );
6410:
6411: IF (p_debug_mode = 'Y') THEN
6412: pa_debug.debug('Create Structure Version Attr return status: ' || l_return_status);
6413: pa_debug.debug('l_pev_structure_id: ' || l_pev_structure_id);
6414: END IF;
6415:
6416: --Check if there is any error.
6417: l_msg_count := FND_MSG_PUB.count_msg;
6464: );
6465: CLOSE l_get_structure_ver_csr;
6466:
6467: IF (p_debug_mode = 'Y') THEN
6468: pa_debug.debug('Create Relationship return status: ' || l_return_status);
6469: pa_debug.debug('l_new_obj_rel_id: ' || l_new_obj_rel_id);
6470: END IF;
6471: ELSIF(l_to_object_info.object_type_to = 'PA_TASKS') THEN
6472: OPEN get_task_version_info(l_to_object_info.object_id_to);
6465: CLOSE l_get_structure_ver_csr;
6466:
6467: IF (p_debug_mode = 'Y') THEN
6468: pa_debug.debug('Create Relationship return status: ' || l_return_status);
6469: pa_debug.debug('l_new_obj_rel_id: ' || l_new_obj_rel_id);
6470: END IF;
6471: ELSIF(l_to_object_info.object_type_to = 'PA_TASKS') THEN
6472: OPEN get_task_version_info(l_to_object_info.object_id_to);
6473: FETCH get_task_version_info INTO l_info_task_ver_rec;
6502: ,x_msg_data => l_msg_data
6503: );
6504: CLOSE get_task_version_info;
6505: IF (p_debug_mode = 'Y') THEN
6506: pa_debug.debug('Create Relationship return status: ' || l_return_status);
6507: pa_debug.debug('l_new_obj_rel_id: ' || l_new_obj_rel_id);
6508: END IF;
6509: END IF;
6510: --Check error
6503: );
6504: CLOSE get_task_version_info;
6505: IF (p_debug_mode = 'Y') THEN
6506: pa_debug.debug('Create Relationship return status: ' || l_return_status);
6507: pa_debug.debug('l_new_obj_rel_id: ' || l_new_obj_rel_id);
6508: END IF;
6509: END IF;
6510: --Check error
6511: l_msg_count := FND_MSG_PUB.count_msg;
6609: );
6610:
6611:
6612: IF (p_debug_mode = 'Y') THEN
6613: pa_debug.debug('Create Schedule Version return status: ' || l_return_status);
6614: pa_debug.debug('l_pev_schedule_id: ' || l_pev_schedule_id);
6615: END IF;
6616:
6617: --Check if there is any error.
6610:
6611:
6612: IF (p_debug_mode = 'Y') THEN
6613: pa_debug.debug('Create Schedule Version return status: ' || l_return_status);
6614: pa_debug.debug('l_pev_schedule_id: ' || l_pev_schedule_id);
6615: END IF;
6616:
6617: --Check if there is any error.
6618: l_msg_count := FND_MSG_PUB.count_msg;
6704:
6705: t_equiv_elem_ver_id(l_task_versions_rec.element_version_id) := l_task_version_id;
6706:
6707: IF (p_debug_mode = 'Y') THEN
6708: pa_debug.debug('Create Task Version return status: ' || l_return_status);
6709: pa_debug.debug('l_task_version_id: ' || l_task_version_id);
6710: pa_debug.debug('l_msg_count: ' || l_msg_count);
6711: END IF;
6712:
6705: t_equiv_elem_ver_id(l_task_versions_rec.element_version_id) := l_task_version_id;
6706:
6707: IF (p_debug_mode = 'Y') THEN
6708: pa_debug.debug('Create Task Version return status: ' || l_return_status);
6709: pa_debug.debug('l_task_version_id: ' || l_task_version_id);
6710: pa_debug.debug('l_msg_count: ' || l_msg_count);
6711: END IF;
6712:
6713: --Check if there is any error.
6706:
6707: IF (p_debug_mode = 'Y') THEN
6708: pa_debug.debug('Create Task Version return status: ' || l_return_status);
6709: pa_debug.debug('l_task_version_id: ' || l_task_version_id);
6710: pa_debug.debug('l_msg_count: ' || l_msg_count);
6711: END IF;
6712:
6713: --Check if there is any error.
6714: l_msg_count := FND_MSG_PUB.count_msg;
6726: FETCH l_get_ver_schedule_attr_csr INTO l_ver_schedule_attr_rec;
6727: CLOSE l_get_ver_schedule_attr_csr;
6728:
6729: IF (p_debug_mode = 'Y') THEN
6730: pa_debug.debug('Before Create Schedule Version');
6731: END IF;
6732: -- xxlu added DFF attributes
6733: /* PA_TASK_PUB1.CREATE_SCHEDULE_VERSION
6734: ( p_validate_only => FND_API.G_FALSE
6820: ,X_SOURCE_OBJECT_TYPE => 'PA_PROJECTS'
6821: );
6822:
6823: IF (p_debug_mode = 'Y') THEN
6824: pa_debug.debug('Create Schedule Version return status: ' || l_return_status);
6825: pa_debug.debug('l_pev_schedule_id: ' || l_pev_schedule_id);
6826: END IF;
6827:
6828: --Check if there is any error.
6821: );
6822:
6823: IF (p_debug_mode = 'Y') THEN
6824: pa_debug.debug('Create Schedule Version return status: ' || l_return_status);
6825: pa_debug.debug('l_pev_schedule_id: ' || l_pev_schedule_id);
6826: END IF;
6827:
6828: --Check if there is any error.
6829: l_msg_count := FND_MSG_PUB.count_msg;
6989: COMMIT;
6990: END IF;
6991:
6992: IF (p_debug_mode = 'Y') THEN
6993: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.COPY_STRUCTURE_VERSION END');
6994: END IF;
6995:
6996: EXCEPTION
6997: when FND_API.G_EXC_ERROR then
7361: where task_type_id = c_task_type_id;
7362: l_init_status_code PA_TASK_TYPES.INITIAL_STATUS_CODE%TYPE;
7363: --end bug 2667527
7364: BEGIN
7365: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PVT1.COPY_STRUCTURE');
7366:
7367: IF (p_debug_mode = 'Y') THEN
7368: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.COPY_STRUCTURE begin');
7369: END IF;
7364: BEGIN
7365: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PVT1.COPY_STRUCTURE');
7366:
7367: IF (p_debug_mode = 'Y') THEN
7368: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.COPY_STRUCTURE begin');
7369: END IF;
7370:
7371: IF (p_commit = FND_API.G_TRUE) THEN
7372: savepoint copy_structure_pvt;
7595: l_name := substr(l_project_name, 1, 240);
7596: END IF;
7597: */
7598: IF (p_debug_mode = 'Y') THEN
7599: pa_debug.debug('create structure');
7600: END IF;
7601:
7602: --Commented by hsiu
7603: -- IF (l_dest_template_flag = 'Y' AND l_structure_type = 'WORKPLAN') THEN
7623: -- RAISE FND_API.G_EXC_ERROR;
7624: -- END IF;
7625:
7626: -- IF (p_debug_mode = 'Y') THEN
7627: -- pa_debug.debug('create structure version');
7628: -- END IF;
7629: -- PA_PROJECT_STRUCTURE_PVT1.Create_Structure_Version
7630: -- ( p_validate_only => FND_API.G_FALSE
7631: -- ,p_structure_id => l_structure_id
7644: -- RAISE FND_API.G_EXC_ERROR;
7645: -- END IF;
7646:
7647: -- IF (p_debug_mode = 'Y') THEN
7648: -- pa_debug.debug('create structure version attr');
7649: -- END IF;
7650: -- PA_PROJECT_STRUCTURE_PVT1.Create_Structure_Version_Attr
7651: -- ( p_validate_only => FND_API.G_FALSE
7652: -- ,p_structure_version_id => l_new_structure_version_id
7673: -- RAISE FND_API.G_EXC_ERROR;
7674: -- END IF;
7675:
7676: -- IF (p_debug_mode = 'Y') THEN
7677: -- pa_debug.debug('create schedule version');
7678: -- END IF;
7679: -- PA_TASK_PUB1.CREATE_SCHEDULE_VERSION
7680: -- ( p_validate_only => FND_API.G_FALSE
7681: -- ,p_element_version_id => l_new_structure_version_id
7746: ,x_msg_count => l_msg_count
7747: ,x_msg_data => l_msg_data );
7748:
7749: IF (p_debug_mode = 'Y') THEN
7750: pa_debug.debug('done: '||l_return_status);
7751: END IF;
7752:
7753: --Check if there is any error.
7754: l_msg_count := FND_MSG_PUB.count_msg;
7834: CLOSE l_get_structure_ver_csr;
7835:
7836:
7837: IF (p_debug_mode = 'Y') THEN
7838: pa_debug.debug('create structure version');
7839: END IF;
7840: PA_PROJECT_STRUCTURE_PVT1.Create_Structure_Version
7841: ( p_validate_only => p_validate_only
7842: ,p_structure_id => l_structure_id
7903: -- end calculate scheduled start and finish dates
7904:
7905:
7906: IF (p_debug_mode = 'Y') THEN
7907: pa_debug.debug('create schedule version for structure');
7908: END IF;
7909:
7910: l_struc_scheduled_start_date := l_scheduled_start_date;
7911: l_struc_scheduled_finish_date := l_scheduled_finish_date;
7976:
7977: --check if task already exist; if it does, then skip
7978: -- CREATE_TASK
7979: IF (p_debug_mode = 'Y') THEN
7980: pa_debug.debug('l_task_versions_rec.proj_elemnet_id = '||l_task_versions_rec.proj_element_id);
7981: END IF;
7982:
7983: If (NOT (l_task_match_tbl.exists(l_task_versions_rec.proj_element_id))) THEN
7984:
7999: CLOSE l_get_pa_tasks_csr;
8000: END IF;
8001:
8002: IF (p_debug_mode = 'Y') THEN
8003: pa_debug.debug('inserting into task with id'||l_task_id);
8004: END IF;
8005:
8006: OPEN get_init_task_stat(l_tasks_rec.TYPE_ID);
8007: FETCH get_init_task_stat into l_init_status_code;
8067: l_task_id := l_task_match_tbl(l_task_versions_rec.proj_element_id);
8068: END IF;
8069:
8070: IF (p_debug_mode = 'Y') THEN
8071: pa_debug.debug('l_task_id = '||l_task_id);
8072: END IF;
8073:
8074:
8075: IF (p_debug_mode = 'Y') THEN
8072: END IF;
8073:
8074:
8075: IF (p_debug_mode = 'Y') THEN
8076: pa_debug.debug('before creating version:'||l_ref_task_ver_id||','||l_peer_or_sub);
8077: END IF;
8078:
8079: OPEN get_task_ver_weighting(l_task_versions_rec.element_version_id);
8080: FETCH get_task_ver_weighting into l_weighting_percentage;
8261: FETCH l_get_structure_ver_attr_csr INTO l_structure_ver_attr_rec;
8262: CLOSE l_get_structure_ver_attr_csr;
8263:
8264: IF (p_debug_mode = 'Y') THEN
8265: pa_debug.debug('create structure version attribute');
8266: END IF;
8267:
8268: IF (l_copy = 1) THEN
8269: l_status_code := 'STRUCTURE_WORKING';
8361: COMMIT;
8362: END IF;
8363:
8364: IF (p_debug_mode = 'Y') THEN
8365: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.COPY_STRUCTURE END');
8366: END IF;
8367:
8368: EXCEPTION
8369: when FND_API.G_EXC_ERROR then
8439: where a.project_id = b.project_id
8440: and b.element_version_id = p_structure_version_id;
8441: BEGIN
8442: IF (p_debug_mode = 'Y') THEN
8443: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.BASELINE_STRUCTURE_VERSION BEGIN');
8444: END IF;
8445:
8446: IF (p_commit = FND_API.G_TRUE) THEN
8447: savepoint baseline_structure_pvt;
8529: END LOOP;
8530: CLOSE c1;
8531:
8532: IF (p_debug_mode = 'Y') THEN
8533: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.BASELINE_STRUCTURE_VERSION end');
8534: END IF;
8535:
8536: x_return_status := FND_API.G_RET_STS_SUCCESS;
8537:
8611: l_pev_schedule_id NUMBER;
8612:
8613: BEGIN
8614: IF (p_debug_mode = 'Y') THEN
8615: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.SPLIT_WORKPLAN BEGIN');
8616: END IF;
8617:
8618: IF (p_commit = FND_API.G_TRUE) THEN
8619: savepoint split_workplan;
8619: savepoint split_workplan;
8620: END IF;
8621:
8622: IF (p_debug_mode = 'Y') THEN
8623: pa_debug.debug('Find existing structure');
8624: END IF;
8625:
8626: --get current costing/billing structure id
8627: OPEN c1;
8640: OPEN sel_struct_type(l_structure_id);
8641: FETCH sel_struct_type INTO l_rowid;
8642: IF sel_struct_type%FOUND THEN
8643: IF (p_debug_mode = 'Y') THEN
8644: pa_debug.debug('Deleting type structure type');
8645: END IF;
8646: PA_PROJ_STRUCTURE_TYPES_PKG.delete_row(l_rowid);
8647: END IF;
8648: CLOSE sel_struct_type;
8741:
8742: x_return_status := FND_API.G_RET_STS_SUCCESS;
8743:
8744: IF (p_debug_mode = 'Y') THEN
8745: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.SPLIT_WORKPLAN end');
8746: END IF;
8747:
8748: EXCEPTION
8749: when FND_API.G_EXC_ERROR then
8851: and b.object_type = 'PA_STRUCTURES';
8852: l_del_struc_ver_id NUMBER;
8853:
8854: BEGIN
8855: PA_DEBUG.INIT_ERR_STACK('PA_PROJECT_STRUCTURE_PVT1.SUBMIT_WORKPLAN');
8856:
8857: x_return_status := FND_API.G_RET_STS_SUCCESS;
8858:
8859: IF (p_commit = FND_API.G_TRUE) THEN
9147: where project_status_code = c_status_code
9148: and status_type = 'STRUCTURE';
9149:
9150: BEGIN
9151: PA_DEBUG.init_err_stack('PA_PROJECT_STRUCTURE_PVT1.CHANGE_WORKPLAN_STATUS');
9152:
9153: -- Initialize the return status to success
9154: x_return_status := FND_API.G_RET_STS_SUCCESS;
9155:
9324: and pps.status_type = 'STRUCTURE'
9325: and pps.project_status_code = 'STRUCTURE_SUBMITTED';
9326:
9327: BEGIN
9328: PA_DEBUG.init_err_stack('PA_PROJECT_STRUCTURE_PVT1.REWORK_WORKPLAN');
9329: x_return_status := FND_API.G_RET_STS_SUCCESS;
9330:
9331: IF (p_commit = FND_API.G_TRUE) THEN
9332: savepoint rework_workplan_pvt;
9681:
9682: l_wp_name VARCHAR2(240);
9683: BEGIN
9684: IF (p_debug_mode = 'Y') THEN
9685: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.update_structures_setup_attr');
9686: END IF;
9687:
9688: IF (p_commit = FND_API.G_TRUE) THEN
9689: savepoint update_struc_setup_attr_pvt;
9689: savepoint update_struc_setup_attr_pvt;
9690: END IF;
9691:
9692: IF (p_debug_mode = 'Y') THEN
9693: pa_debug.debug('Performing validations');
9694: END IF;
9695:
9696: /*
9697: --For enabling workplan
10901:
10902: x_return_status := FND_API.G_RET_STS_SUCCESS;
10903:
10904: IF (p_debug_mode = 'Y') THEN
10905: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.update_structures_setup_attr end');
10906: END IF;
10907:
10908: EXCEPTION
10909: WHEN FND_API.G_EXC_ERROR THEN
11036: --end bug 4546607
11037:
11038: BEGIN
11039: IF (p_debug_mode = 'Y') THEN
11040: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.update_workplan_versioning');
11041: END IF;
11042:
11043: IF (p_commit = FND_API.G_TRUE) THEN
11044: savepoint update_wp_versioning_pvt;
11044: savepoint update_wp_versioning_pvt;
11045: END IF;
11046:
11047: IF (p_debug_mode = 'Y') THEN
11048: pa_debug.debug('Performing validations');
11049: END IF;
11050:
11051: IF (p_enable_wp_version_flag = 'Y') THEN
11052: --enable versioning
11246:
11247: x_return_status := FND_API.G_RET_STS_SUCCESS;
11248:
11249: IF (p_debug_mode = 'Y') THEN
11250: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.update_workplan_versioning end');
11251: END IF;
11252:
11253: EXCEPTION
11254: WHEN FND_API.G_EXC_ERROR THEN
11357: l_bsl_dur NUMBER; -- Bug 3657808
11358: --
11359: BEGIN
11360: IF (p_debug_mode = 'Y') THEN
11361: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.UPDATE_WP_CALENDAR BEGIN');
11362: END IF;
11363:
11364: IF (p_commit = FND_API.G_TRUE) THEN
11365: savepoint update_wp_calendar;
11584:
11585: x_return_status := FND_API.G_RET_STS_SUCCESS;
11586:
11587: IF (p_debug_mode = 'Y') THEN
11588: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.UPDATE_WP_CALENDAR end');
11589: END IF;
11590:
11591: EXCEPTION
11592: WHEN FND_API.G_EXC_ERROR THEN
11630: from pa_projects_all
11631: where calendar_id = p_calendar_id;
11632: BEGIN
11633: IF (p_debug_mode = 'Y') THEN
11634: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.UPDATE_ALL_WP_CALENDAR BEGIN');
11635: END IF;
11636:
11637: IF (p_commit = FND_API.G_TRUE) THEN
11638: savepoint update_all_wp_calendar;
11659: END LOOP;
11660: x_return_status := FND_API.G_RET_STS_SUCCESS;
11661:
11662: IF (p_debug_mode = 'Y') THEN
11663: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.UPDATE_ALL_WP_CALENDAR END');
11664: END IF;
11665:
11666: EXCEPTION
11667: WHEN OTHERS THEN
11724: l_est_days NUMBER; -- Bug 3657808
11725: BEGIN
11726:
11727: IF (p_debug_mode = 'Y') THEN
11728: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.RECALC_STRUC_VER_DURATION BEGIN');
11729: END IF;
11730:
11731: IF (p_commit = FND_API.G_TRUE) THEN
11732: savepoint RECALC_STRUC_VER_DURATION;
11845: END LOOP;
11846: CLOSE get_dates;
11847:
11848: IF (p_debug_mode = 'Y') THEN
11849: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.RECALC_STRUC_VER_DURATION end');
11850: END IF;
11851:
11852: EXCEPTION
11853: WHEN FND_API.G_EXC_ERROR THEN
11952: l_parent_struc_ver_id PA_PROJ_ELEMENT_VERSIONS.PARENT_STRUCTURE_VERSION_ID%TYPE;
11953:
11954: BEGIN
11955: IF (p_debug_mode = 'Y') THEN
11956: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.DELETE_STRUC_VER_WO_VAL begin');
11957: END IF;
11958:
11959: IF (p_commit = FND_API.G_TRUE) THEN
11960: savepoint delete_struc_ver_wo_val;
11960: savepoint delete_struc_ver_wo_val;
11961: END IF;
11962:
11963: IF (p_debug_mode = 'Y') THEN
11964: pa_debug.debug('get structure version_info');
11965: END IF;
11966:
11967: --Delete logic
11968: --Get structure version information
11989: LOOP
11990: FETCH get_top_tasks into l_task_version_id;
11991: EXIT WHEN get_top_tasks%NOTFOUND;
11992: IF (p_debug_mode = 'Y') THEN
11993: pa_debug.debug('deleting task version '||to_char(l_task_version_id));
11994: END IF;
11995:
11996: --Get record version number for task, as it will change everytime
11997: --a task is deleted.
12028: END LOOP;
12029: CLOSE get_top_tasks;
12030:
12031: IF (p_debug_mode = 'Y') THEN
12032: pa_debug.debug('done deleting tasks');
12033: END IF;
12034: --If all tasks are deleted, delete schedule if workplan
12035: --Check if this is workplan
12036: If ('Y' = PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(p_structure_version_id, 'WORKPLAN')) THEN
12035: --Check if this is workplan
12036: If ('Y' = PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Version(p_structure_version_id, 'WORKPLAN')) THEN
12037: --Structure type exists. Delete from schedule table
12038: IF (p_debug_mode = 'Y') THEN
12039: pa_debug.debug('WORKPLAN type');
12040: END IF;
12041: PA_PROJ_ELEMENT_SCH_PKG.Delete_Row(l_pevsh_rowid);
12042:
12043: --bug 4172646
12063: raise FND_API.G_EXC_ERROR;
12064: END IF;
12065:
12066: IF (p_debug_mode = 'Y') THEN
12067: pa_debug.debug('del structure version attr');
12068: END IF;
12069: --Delete structure version attribute
12070: PA_PROJECT_STRUCTURE_PVT1.Delete_Structure_Version_Attr(
12071: p_commit => p_commit,
12091: END IF;
12092:
12093:
12094: IF (p_debug_mode = 'Y') THEN
12095: pa_debug.debug('del structure version');
12096: END IF;
12097:
12098: --Delete structure version
12099: PA_PROJECT_STRUCTURE_PVT1.Delete_Structure_Version(
12126: FETCH is_last_version into l_dummy;
12127: IF is_last_version%NOTFOUND THEN
12128: --We are deleting the last version. Delete structure
12129: IF (p_debug_mode = 'Y') THEN
12130: pa_debug.debug('delete non-versioned structure');
12131: END IF;
12132:
12133:
12134: IF (PA_PROJECT_STRUCTURE_UTILS.Get_Struc_Type_For_Structure(l_proj_element_id, 'WORKPLAN') = 'Y') THEN
12218:
12219: x_return_status := FND_API.G_RET_STS_SUCCESS;
12220:
12221: IF (p_debug_mode = 'Y') THEN
12222: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.DELETE_STRUC_VER_WO_VAL end');
12223: END IF;
12224:
12225: EXCEPTION
12226: when FND_API.G_EXC_ERROR then
13000: l_fin_struc VARCHAR2(1);
13001:
13002: BEGIN
13003:
13004: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PVT1.COPY_STRUCTURE_VERSION_BULK');
13005:
13006: IF (p_debug_mode = 'Y') THEN
13007: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.COPY_STRUCTURE_VERSION_BULK begin');
13008: END IF;
13003:
13004: pa_debug.init_err_stack ('PA_PROJECT_STRUCTURE_PVT1.COPY_STRUCTURE_VERSION_BULK');
13005:
13006: IF (p_debug_mode = 'Y') THEN
13007: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.COPY_STRUCTURE_VERSION_BULK begin');
13008: END IF;
13009:
13010: IF (p_commit = FND_API.G_TRUE) THEN
13011: savepoint copy_structure_version_pvt_blk;
13091: ,x_msg_data => l_msg_data );
13092: */
13093:
13094: If (p_debug_mode = 'Y') THEN
13095: pa_debug.debug('Create Structure Version Bulk return status: ' || l_return_status);
13096: pa_debug.debug('l_new_struct_ver_id: ' || l_new_struct_ver_id);
13097: END IF;
13098:
13099:
13092: */
13093:
13094: If (p_debug_mode = 'Y') THEN
13095: pa_debug.debug('Create Structure Version Bulk return status: ' || l_return_status);
13096: pa_debug.debug('l_new_struct_ver_id: ' || l_new_struct_ver_id);
13097: END IF;
13098:
13099:
13100: --Check if there is any error.
13133: ,x_msg_count => l_msg_count
13134: ,x_msg_data => l_msg_data );
13135:
13136: IF (p_debug_mode = 'Y') THEN
13137: pa_debug.debug('Create Structure Version Bulk Attr return status: ' || l_return_status);
13138: pa_debug.debug('l_pev_structure_id: ' || l_pev_structure_id);
13139: END IF;
13140:
13141: --Check if there is any error.
13134: ,x_msg_data => l_msg_data );
13135:
13136: IF (p_debug_mode = 'Y') THEN
13137: pa_debug.debug('Create Structure Version Bulk Attr return status: ' || l_return_status);
13138: pa_debug.debug('l_pev_structure_id: ' || l_pev_structure_id);
13139: END IF;
13140:
13141: --Check if there is any error.
13142: l_msg_count := FND_MSG_PUB.count_msg;
13218: );
13219:
13220:
13221: IF (p_debug_mode = 'Y') THEN
13222: pa_debug.debug('Create Schedule Version Bulk return status: ' || l_return_status);
13223: pa_debug.debug('l_pev_schedule_id: ' || l_pev_schedule_id);
13224: END IF;
13225:
13226: --Check if there is any error.
13219:
13220:
13221: IF (p_debug_mode = 'Y') THEN
13222: pa_debug.debug('Create Schedule Version Bulk return status: ' || l_return_status);
13223: pa_debug.debug('l_pev_schedule_id: ' || l_pev_schedule_id);
13224: END IF;
13225:
13226: --Check if there is any error.
13227: l_msg_count := FND_MSG_PUB.count_msg;
13691: COMMIT;
13692: END IF;
13693:
13694: IF (p_debug_mode = 'Y') THEN
13695: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.COPY_STRUCTURE_VERSION_BULK END');
13696: END IF;
13697:
13698: EXCEPTION
13699: when FND_API.G_EXC_ERROR then
14143: -- End fix for Bug # 4426392.
14144:
14145: BEGIN
14146: IF (p_debug_mode = 'Y') THEN
14147: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.update_structures_setup_attr');
14148: END IF;
14149:
14150: IF (p_commit = FND_API.G_TRUE) THEN
14151: savepoint update_struc_setup_attr_pvt;
14151: savepoint update_struc_setup_attr_pvt;
14152: END IF;
14153:
14154: IF (p_debug_mode = 'Y') THEN
14155: pa_debug.debug('Performing validations');
14156: END IF;
14157:
14158: l_wp_enabled := PA_PROJECT_STRUCTURE_UTILS.Check_workplan_enabled(p_project_id);
14159: l_fin_enabled := PA_PROJECT_STRUCTURE_UTILS.Check_financial_enabled(p_project_id);
17778:
17779: x_return_status := FND_API.G_RET_STS_SUCCESS;
17780:
17781: IF (p_debug_mode = 'Y') THEN
17782: pa_debug.debug('PA_PROJECT_STRUCTURE_PVT1.update_structures_setup_attr end');
17783: END IF;
17784:
17785: EXCEPTION
17786: WHEN FND_API.G_EXC_ERROR THEN