[Home] [Help]
232: END IF;
233: END IF;
234:
235:
236: x_return_status := FND_API.G_RET_STS_SUCCESS;
237: EXCEPTION
238: WHEN API_ERROR THEN
239: x_return_status := FND_API.G_RET_STS_ERROR;
240: rollback to create_dflt_structure;
235:
236: x_return_status := FND_API.G_RET_STS_SUCCESS;
237: EXCEPTION
238: WHEN API_ERROR THEN
239: x_return_status := FND_API.G_RET_STS_ERROR;
240: rollback to create_dflt_structure;
241: WHEN OTHERS THEN
242: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
243: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
238: WHEN API_ERROR THEN
239: x_return_status := FND_API.G_RET_STS_ERROR;
240: rollback to create_dflt_structure;
241: WHEN OTHERS THEN
242: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
243: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
244: p_procedure_name => 'CREATE_DEFAULT_STRUCTURE',
245: p_error_text => SUBSTRB(SQLERRM,1,240));
246: rollback to create_dflt_structure;
580: CLOSE cur_pa_proj_elem_vers2;
581: END LOOP; --task loop end.
582: END LOOP;
583:
584: x_return_status := FND_API.G_RET_STS_SUCCESS;
585: EXCEPTION
586: WHEN API_ERROR THEN
587: x_return_status := FND_API.G_RET_STS_ERROR;
588: rollback to create_dflt_task_struc;
583:
584: x_return_status := FND_API.G_RET_STS_SUCCESS;
585: EXCEPTION
586: WHEN API_ERROR THEN
587: x_return_status := FND_API.G_RET_STS_ERROR;
588: rollback to create_dflt_task_struc;
589: WHEN OTHERS THEN
590: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
591: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
586: WHEN API_ERROR THEN
587: x_return_status := FND_API.G_RET_STS_ERROR;
588: rollback to create_dflt_task_struc;
589: WHEN OTHERS THEN
590: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
591: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
592: p_procedure_name => 'CREATE_DEFAULT_TASK_STRUCTURE',
593: p_error_text => SUBSTRB(SQLERRM,1,240));
594: rollback to create_dflt_task_struc;
1625: ,x_return_status => l_return_status
1626: ,x_msg_count => l_msg_count
1627: ,x_msg_data => l_msg_data);
1628:
1629: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1630: x_msg_count := l_msg_count;
1631: x_msg_data := l_msg_data;
1632: RAISE API_ERROR;
1633: end if;
1650: ,x_return_status => l_return_status
1651: ,x_msg_count => l_msg_count
1652: ,x_msg_data => l_msg_data );
1653:
1654: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1655: x_msg_count := l_msg_count;
1656: x_msg_data := l_msg_data;
1657: RAISE API_ERROR;
1658: end if;
1701: ,x_msg_count => l_msg_count
1702: ,x_msg_data => l_msg_data
1703: );
1704:
1705: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1706: raise api_error;
1707: END IF;
1708: END IF;
1709: --end inherit task type
1929: ,p_attribute3 => ''
1930: ,p_attribute4 => ''
1931: ,p_attribute5 => '');
1932: END IF;
1933: RAISE FND_API.G_EXC_ERROR;
1934: END IF;
1935: END IF;
1936: --Bug 6153503 end
1937: --End add rtarway, 3908013
2089: when others then
2090: fnd_msg_pub.add_exc_msg(p_pkg_name => 'pa_project_pub',
2091: p_procedure_name => 'CREATE_PROJECT',
2092: p_error_text => substrb('PA_TASK_PUB1.CALL_ADD_PLANNING_TXNS:'||sqlerrm,1,240));
2093: raise fnd_api.g_exc_error;
2094: end;
2095:
2096: -- Calling pa_fp_planning_transaction_pub.delete_planning_transactions for higher level tasks.
2097:
2109: when others then
2110: fnd_msg_pub.add_exc_msg(p_pkg_name => 'pa_project_pub',
2111: p_procedure_name => 'CREATE_PROJECT',
2112: p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.DELETE_PLANNING_TRANSACTIONS:'||SQLERRM,1,240));
2113: raise fnd_api.g_exc_error;
2114: end;
2115:
2116: /* Bug # 3420093 - Adding Progress Management modifications to create_task flow. */
2117:
2115:
2116: /* Bug # 3420093 - Adding Progress Management modifications to create_task flow. */
2117:
2118:
2119: x_return_status := FND_API.G_RET_STS_SUCCESS;
2120: EXCEPTION
2121: WHEN API_ERROR THEN
2122: x_return_status := FND_API.G_RET_STS_ERROR;
2123: rollback to create_task_struc;
2118:
2119: x_return_status := FND_API.G_RET_STS_SUCCESS;
2120: EXCEPTION
2121: WHEN API_ERROR THEN
2122: x_return_status := FND_API.G_RET_STS_ERROR;
2123: rollback to create_task_struc;
2124: WHEN OTHERS THEN
2125: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2126: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
2121: WHEN API_ERROR THEN
2122: x_return_status := FND_API.G_RET_STS_ERROR;
2123: rollback to create_task_struc;
2124: WHEN OTHERS THEN
2125: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2126: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
2127: p_procedure_name => 'create_task_structure',
2128: p_error_text => SUBSTRB(SQLERRM,1,240));
2129: rollback to create_task_struc;
2605: ,p_structure_type => p_structure_type
2606: ,p_out_task_id => l_task_id
2607: ,p_return_status => l_return_status);
2608:
2609: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2610: THEN
2611: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2612: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
2613: THEN
2607: ,p_return_status => l_return_status);
2608:
2609: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2610: THEN
2611: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2612: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
2613: THEN
2614: RAISE FND_API.G_EXC_ERROR;
2615: END IF;
2608:
2609: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
2610: THEN
2611: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2612: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
2613: THEN
2614: RAISE FND_API.G_EXC_ERROR;
2615: END IF;
2616: END IF;
2610: THEN
2611: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2612: ELSIF l_return_status = FND_API.G_RET_STS_ERROR
2613: THEN
2614: RAISE FND_API.G_EXC_ERROR;
2615: END IF;
2616: END IF;
2617: --End add by rtarway for BUG 3666023
2618:
2922: , p_msg_name => l_message_name
2923: , p_token1 => 'REQUESTID'
2924: , p_value1 => l_conc_request_id);
2925:
2926: RAISE FND_API.G_EXC_ERROR;
2927: end if;
2928:
2929: -- End fix for Bug # 4373055.
2930:
3191: ,p_attribute3 => ''
3192: ,p_attribute4 => ''
3193: ,p_attribute5 => '');
3194: END IF;
3195: RAISE FND_API.G_EXC_ERROR;
3196: END IF;
3197:
3198: --Bug 6153503 end
3199: --End add rtarway, 3908013
3365: when others then
3366: fnd_msg_pub.add_exc_msg(p_pkg_name => 'pa_project_pub',
3367: p_procedure_name => 'CREATE_PROJECT',
3368: p_error_text => substrb('PA_TASK_PUB1.CALL_ADD_PLANNING_TXNS:'||sqlerrm,1,240));
3369: raise fnd_api.g_exc_error;
3370: end;
3371:
3372: l_add_task_ver_ids_prm := PA_NUM_1000_NUM();
3373: l_add_planned_effort_prm := PA_NUM_1000_NUM();
3424: when others then
3425: fnd_msg_pub.add_exc_msg(p_pkg_name => 'pa_project_pub',
3426: p_procedure_name => 'CREATE_PROJECT',
3427: p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.DELETE_PLANNING_TRANSACTIONS:'||SQLERRM,1,240));
3428: raise fnd_api.g_exc_error;
3429: end;
3430: END IF ; --bug 7358214
3431: /* Bug # 3420093 - Adding Progress Management modifications to update_task flow. */
3432:
3460: /* end if; */
3461:
3462: -- Progress Management Changes. Bug # 3420093.
3463:
3464: x_return_status := FND_API.G_RET_STS_SUCCESS;
3465: EXCEPTION
3466: WHEN API_ERROR THEN
3467: x_return_status := FND_API.G_RET_STS_ERROR;
3468: rollback to update_task_struc;
3463:
3464: x_return_status := FND_API.G_RET_STS_SUCCESS;
3465: EXCEPTION
3466: WHEN API_ERROR THEN
3467: x_return_status := FND_API.G_RET_STS_ERROR;
3468: rollback to update_task_struc;
3469: WHEN OTHERS THEN
3470: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3471: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
3466: WHEN API_ERROR THEN
3467: x_return_status := FND_API.G_RET_STS_ERROR;
3468: rollback to update_task_struc;
3469: WHEN OTHERS THEN
3470: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3471: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
3472: p_procedure_name => 'update_task_structure',
3473: p_error_text => SUBSTRB(SQLERRM,1,240));
3474: rollback to update_task_struc;
3604: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
3605: ,p_msg_name => 'PA_PS_TASK_NOT_DELETED');
3606: raise api_error;
3607: END IF;
3608: x_return_status := FND_API.G_RET_STS_SUCCESS;
3609:
3610: EXCEPTION
3611: WHEN API_ERROR THEN
3612: x_return_status := FND_API.G_RET_STS_ERROR;
3608: x_return_status := FND_API.G_RET_STS_SUCCESS;
3609:
3610: EXCEPTION
3611: WHEN API_ERROR THEN
3612: x_return_status := FND_API.G_RET_STS_ERROR;
3613: rollback to delete_task_struc;
3614: WHEN OTHERS THEN
3615: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3616: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
3611: WHEN API_ERROR THEN
3612: x_return_status := FND_API.G_RET_STS_ERROR;
3613: rollback to delete_task_struc;
3614: WHEN OTHERS THEN
3615: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3616: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
3617: p_procedure_name => 'delete_task_structure',
3618: p_error_text => SUBSTRB(SQLERRM,1,240));
3619: rollback to delete_task_struc;
3769: p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
3770: p_procedure_name => 'delete_project_structure',
3771: p_error_text => SUBSTR('PA_PROGRESS_PUB.delete_working_wp_progress:'||SQLERRM,1,240));
3772:
3773: RAISE FND_API.G_EXC_ERROR;
3774:
3775: END;
3776:
3777:
3774:
3775: END;
3776:
3777:
3778: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3779:
3780: RAISE FND_API.G_EXC_ERROR;
3781:
3782: END IF;
3776:
3777:
3778: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3779:
3780: RAISE FND_API.G_EXC_ERROR;
3781:
3782: END IF;
3783:
3784: x_return_status := FND_API.G_RET_STS_SUCCESS;
3780: RAISE FND_API.G_EXC_ERROR;
3781:
3782: END IF;
3783:
3784: x_return_status := FND_API.G_RET_STS_SUCCESS;
3785:
3786: EXCEPTION
3787: WHEN API_ERROR THEN
3788: x_return_status := FND_API.G_RET_STS_ERROR;
3784: x_return_status := FND_API.G_RET_STS_SUCCESS;
3785:
3786: EXCEPTION
3787: WHEN API_ERROR THEN
3788: x_return_status := FND_API.G_RET_STS_ERROR;
3789: rollback to delete_project_struc;
3790: WHEN OTHERS THEN
3791: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3792: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
3787: WHEN API_ERROR THEN
3788: x_return_status := FND_API.G_RET_STS_ERROR;
3789: rollback to delete_project_struc;
3790: WHEN OTHERS THEN
3791: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3792: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
3793: p_procedure_name => 'delete_project_structure',
3794: p_error_text => SUBSTRB(SQLERRM,1,240));
3795: rollback to delete_project_struc;
4101: if l_msg_count > 0 then
4102: x_msg_count := l_msg_count;
4103: if x_msg_count = 1 then
4104: pa_interface_utils_pub.get_messages
4105: (p_encoded => FND_API.G_TRUE,
4106: p_msg_index => 1,
4107: p_msg_count => l_msg_count,
4108: p_msg_data => l_msg_data,
4109: p_data => l_data,
4131: if l_msg_count > 0 then
4132: x_msg_count := l_msg_count;
4133: if x_msg_count = 1 then
4134: pa_interface_utils_pub.get_messages
4135: (p_encoded => FND_API.G_TRUE,
4136: p_msg_index => 1,
4137: p_msg_count => l_msg_count,
4138: p_msg_data => l_msg_data,
4139: p_data => l_data,
4215: END IF;
4216: END LOOP;
4217: END LOOP;
4218: END IF;
4219: x_return_status := FND_API.G_RET_STS_SUCCESS;
4220: EXCEPTION
4221: WHEN API_ERROR THEN
4222: x_return_status := FND_API.G_RET_STS_ERROR;
4223: rollback to create_delete_wp_struc;
4218: END IF;
4219: x_return_status := FND_API.G_RET_STS_SUCCESS;
4220: EXCEPTION
4221: WHEN API_ERROR THEN
4222: x_return_status := FND_API.G_RET_STS_ERROR;
4223: rollback to create_delete_wp_struc;
4224: WHEN OTHERS THEN
4225: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4226: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
4221: WHEN API_ERROR THEN
4222: x_return_status := FND_API.G_RET_STS_ERROR;
4223: rollback to create_delete_wp_struc;
4224: WHEN OTHERS THEN
4225: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4226: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
4227: p_procedure_name => 'create_delete_workplan_struc',
4228: p_error_text => SUBSTRB(SQLERRM,1,240));
4229: rollback to create_delete_wp_struc;
4296:
4297: --copying structrues and tasks
4298: PA_PROJ_TASK_STRUC_PUB.copy_structures_tasks_bulk
4299: (
4300: p_init_msg_list => FND_API.G_FALSE
4301: ,p_src_project_id => p_src_project_id
4302: ,p_dest_project_id => p_dest_project_id
4303: ,p_delta => p_delta
4304: ,p_copy_task_flag => p_copy_task_flag
4344: if l_msg_count > 0 then
4345: x_msg_count := l_msg_count;
4346: if x_msg_count = 1 then
4347: pa_interface_utils_pub.get_messages
4348: (p_encoded => FND_API.G_TRUE,
4349: p_msg_index => 1,
4350: p_msg_count => l_msg_count,
4351: p_msg_data => l_msg_data,
4352: p_data => l_data,
4355: end if;
4356: raise API_ERROR;
4357: end if;
4358:
4359: x_return_status := FND_API.G_RET_STS_SUCCESS;
4360: EXCEPTION
4361: WHEN API_ERROR THEN
4362: x_return_status := FND_API.G_RET_STS_ERROR;
4363: rollback to cp_struc;
4358:
4359: x_return_status := FND_API.G_RET_STS_SUCCESS;
4360: EXCEPTION
4361: WHEN API_ERROR THEN
4362: x_return_status := FND_API.G_RET_STS_ERROR;
4363: rollback to cp_struc;
4364: WHEN OTHERS THEN
4365: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4366: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
4361: WHEN API_ERROR THEN
4362: x_return_status := FND_API.G_RET_STS_ERROR;
4363: rollback to cp_struc;
4364: WHEN OTHERS THEN
4365: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4366: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
4367: p_procedure_name => 'Copy_Structure',
4368: p_error_text => SUBSTRB(SQLERRM,1,240));
4369: rollback to cp_struc;
4449:
4450: END LOOP;
4451: END IF;
4452: CLOSE cur_pa_proj_elem_vers;
4453: x_return_status := FND_API.G_RET_STS_SUCCESS;
4454: EXCEPTION
4455: WHEN API_ERROR THEN
4456: x_return_status := FND_API.G_RET_STS_ERROR;
4457: rollback to clean_struc;
4452: CLOSE cur_pa_proj_elem_vers;
4453: x_return_status := FND_API.G_RET_STS_SUCCESS;
4454: EXCEPTION
4455: WHEN API_ERROR THEN
4456: x_return_status := FND_API.G_RET_STS_ERROR;
4457: rollback to clean_struc;
4458: WHEN OTHERS THEN
4459: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4460: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
4455: WHEN API_ERROR THEN
4456: x_return_status := FND_API.G_RET_STS_ERROR;
4457: rollback to clean_struc;
4458: WHEN OTHERS THEN
4459: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4460: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
4461: p_procedure_name => 'Clean_unwanted_tasks',
4462: p_error_text => SUBSTRB(SQLERRM,1,240));
4463: rollback to clean_struc;
4561: WHERE PM_SOURCE_REFERENCE = p_pm_parent_task_reference
4562: AND project_id = p_project_id
4563: AND OBJECT_TYPE = 'PA_TASKS';
4564: BEGIN
4565: x_return_status := FND_API.G_RET_STS_SUCCESS;
4566:
4567: OPEN cur_pa_proj_elems;
4568: FETCH cur_pa_proj_elems INTO x_parent_task_id;
4569: IF cur_pa_proj_elems%NOTFOUND
4567: OPEN cur_pa_proj_elems;
4568: FETCH cur_pa_proj_elems INTO x_parent_task_id;
4569: IF cur_pa_proj_elems%NOTFOUND
4570: THEN
4571: x_return_status := FND_API.G_RET_STS_ERROR;
4572: END IF;
4573:
4574: CLOSE cur_pa_proj_elems;
4575: EXCEPTION WHEN OTHERS THEN
4572: END IF;
4573:
4574: CLOSE cur_pa_proj_elems;
4575: EXCEPTION WHEN OTHERS THEN
4576: x_return_status := FND_API.G_RET_STS_ERROR;
4577: END convert_pm_parent_task_ref;
4578:
4579: -- API name : publish_structure
4580: -- Type : PL/sql Public procedure
4589: -- Notes: This api is a wrapper called from AMG
4590:
4591: PROCEDURE publish_structure(
4592: p_api_version IN NUMBER := 1.0
4593: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
4594: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
4595: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
4596: ,p_validation_level IN VARCHAR2 := 100
4597: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
4590:
4591: PROCEDURE publish_structure(
4592: p_api_version IN NUMBER := 1.0
4593: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
4594: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
4595: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
4596: ,p_validation_level IN VARCHAR2 := 100
4597: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
4598: ,p_debug_mode IN VARCHAR2 := 'N'
4591: PROCEDURE publish_structure(
4592: p_api_version IN NUMBER := 1.0
4593: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
4594: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
4595: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
4596: ,p_validation_level IN VARCHAR2 := 100
4597: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
4598: ,p_debug_mode IN VARCHAR2 := 'N'
4599: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
4648: -- Notes: This api is a wrapper called from AMG
4649:
4650: PROCEDURE delete_structure_version(
4651: p_api_version IN NUMBER := 1.0
4652: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
4653: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
4654: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
4655: ,p_validation_level IN VARCHAR2 := 100
4656: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
4649:
4650: PROCEDURE delete_structure_version(
4651: p_api_version IN NUMBER := 1.0
4652: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
4653: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
4654: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
4655: ,p_validation_level IN VARCHAR2 := 100
4656: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
4657: ,p_debug_mode IN VARCHAR2 := 'N'
4650: PROCEDURE delete_structure_version(
4651: p_api_version IN NUMBER := 1.0
4652: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
4653: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
4654: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
4655: ,p_validation_level IN VARCHAR2 := 100
4656: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
4657: ,p_debug_mode IN VARCHAR2 := 'N'
4658: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
4756: p_project_id,
4757: p_structure_type,
4758: l_return_status,
4759: l_error_message_code);
4760: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4761: --PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
4762: --,p_msg_name => l_error_message_code);
4763: --raise FND_API.G_EXC_ERROR;
4764:
4759: l_error_message_code);
4760: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4761: --PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
4762: --,p_msg_name => l_error_message_code);
4763: --raise FND_API.G_EXC_ERROR;
4764:
4765: -- Bug 3075609. When the structure type exists we need to ignore the error.
4766: -- This check has been used just to return with out doing any further
4767: -- processing.
4765: -- Bug 3075609. When the structure type exists we need to ignore the error.
4766: -- This check has been used just to return with out doing any further
4767: -- processing.
4768: IF l_error_message_code <> 'PA_PS_STRUC_TYPE_EXISTS' THEN
4769: x_return_status := FND_API.G_RET_STS_ERROR; -- Bug3044915
4770: x_msg_data := l_error_message_code ; -- Bug3044915
4771: x_msg_count := FND_MSG_PUB.count_msg; -- Bug3044915
4772: ELSE
4773: x_return_status := FND_API.G_RET_STS_SUCCESS;
4769: x_return_status := FND_API.G_RET_STS_ERROR; -- Bug3044915
4770: x_msg_data := l_error_message_code ; -- Bug3044915
4771: x_msg_count := FND_MSG_PUB.count_msg; -- Bug3044915
4772: ELSE
4773: x_return_status := FND_API.G_RET_STS_SUCCESS;
4774: x_msg_data := NULL;
4775: x_msg_count := NULL;
4776: END IF;
4777: Return;
4802: );
4803: IF x_structure_id IS NULL OR l_return_status <> 'S' THEN
4804: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
4805: ,p_msg_name => 'PA_PS_NO_STRUC_CREATED');
4806: raise FND_API.G_EXC_ERROR;
4807: END IF;
4808: --Create structure version
4809: OPEN cur_elem_ver_seq;
4810: FETCH cur_elem_ver_seq INTO x_structure_version_id;
4856: IF x_structure_version_id IS NULL THEN
4857: PA_UTILS.ADD_MESSAGE(
4858: p_app_short_name => 'PA'
4859: ,p_msg_name => 'PA_PS_NO_STRUC_VER_CREATED');
4860: raise FND_API.G_EXC_ERROR;
4861: END IF;
4862: --Get structure version number
4863: OPEN get_working_ver_num(p_project_id, x_structure_id);
4864: FETCH get_working_ver_num INTO l_struc_ver_number;
4921: IF l_return_status <> 'S' THEN
4922: PA_UTILS.ADD_MESSAGE(
4923: p_app_short_name => 'PA'
4924: ,p_msg_name => 'PA_PS_NO_STRUC_SCH_VER_CREATED');
4925: raise FND_API.G_EXC_ERROR;
4926: END IF;
4927: x_return_status := FND_API.G_RET_STS_SUCCESS;
4928: EXCEPTION
4929: WHEN FND_API.G_EXC_ERROR THEN
4923: p_app_short_name => 'PA'
4924: ,p_msg_name => 'PA_PS_NO_STRUC_SCH_VER_CREATED');
4925: raise FND_API.G_EXC_ERROR;
4926: END IF;
4927: x_return_status := FND_API.G_RET_STS_SUCCESS;
4928: EXCEPTION
4929: WHEN FND_API.G_EXC_ERROR THEN
4930: x_msg_count := FND_MSG_PUB.count_msg;
4931: x_return_status := FND_API.G_RET_STS_ERROR;
4925: raise FND_API.G_EXC_ERROR;
4926: END IF;
4927: x_return_status := FND_API.G_RET_STS_SUCCESS;
4928: EXCEPTION
4929: WHEN FND_API.G_EXC_ERROR THEN
4930: x_msg_count := FND_MSG_PUB.count_msg;
4931: x_return_status := FND_API.G_RET_STS_ERROR;
4932: WHEN OTHERS THEN
4933: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4927: x_return_status := FND_API.G_RET_STS_SUCCESS;
4928: EXCEPTION
4929: WHEN FND_API.G_EXC_ERROR THEN
4930: x_msg_count := FND_MSG_PUB.count_msg;
4931: x_return_status := FND_API.G_RET_STS_ERROR;
4932: WHEN OTHERS THEN
4933: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4934: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
4935: p_procedure_name => 'CREATE_STRUCTURE',
4929: WHEN FND_API.G_EXC_ERROR THEN
4930: x_msg_count := FND_MSG_PUB.count_msg;
4931: x_return_status := FND_API.G_RET_STS_ERROR;
4932: WHEN OTHERS THEN
4933: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4934: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
4935: p_procedure_name => 'CREATE_STRUCTURE',
4936: p_error_text => SUBSTRB(SQLERRM,1,240));
4937: raise;
5034: PA_UTILS.ADD_MESSAGE(
5035: p_app_short_name => 'PA'
5036: ,p_msg_name => 'PA_PS_NO_STRUC_VER_CREATED');
5037: CLOSE c2;
5038: RAISE FND_API.G_EXC_ERROR;
5039: END IF;
5040: CLOSE c2;
5041:
5042: IF l_proj_element_id IS NOT NULL
5050: THEN
5051: PA_UTILS.ADD_MESSAGE(
5052: p_app_short_name => 'PA'
5053: ,p_msg_name => 'PA_PS_STRUC_VER_NAM_UNIQUE');
5054: RAISE FND_API.G_EXC_ERROR;
5055: END IF;
5056: END IF;
5057:
5058: IF (p_structure_type = 'FINANCIAL') THEN
5071: PA_UTILS.ADD_MESSAGE(
5072: p_app_short_name => 'PA'
5073: --,p_msg_name => 'PA_PS_NO_STRUC_VER_CREATED');
5074: ,p_msg_name => 'PA_PS_WORKING_STRUC_VER_EXIST'); --bug # 3713107
5075: RAISE FND_API.G_EXC_ERROR;
5076: END IF;
5077: CLOSE c4;
5078: --create a new financial structure version
5079:
5128: IF x_structure_version_id IS NULL THEN
5129: PA_UTILS.ADD_MESSAGE(
5130: p_app_short_name => 'PA'
5131: ,p_msg_name => 'PA_PS_NO_STRUC_VER_CREATED');
5132: raise FND_API.G_EXC_ERROR;
5133: END IF;
5134:
5135: --Get structure version number
5136: OPEN get_working_ver_num(p_project_id, l_proj_element_id);
5181: IF l_return_status <> 'S' THEN
5182: PA_UTILS.ADD_MESSAGE(
5183: p_app_short_name => 'PA'
5184: ,p_msg_name => 'PA_PS_NO_STRUC_SCH_VER_CREATED');
5185: raise FND_API.G_EXC_ERROR;
5186: END IF;
5187:
5188: ELSE
5189: --a version exists. Cannot create.
5189: --a version exists. Cannot create.
5190: PA_UTILS.ADD_MESSAGE(
5191: p_app_short_name => 'PA'
5192: ,p_msg_name => 'PA_PS_NO_STRUC_VER_CREATED');
5193: RAISE FND_API.G_EXC_ERROR;
5194: END IF;
5195: ELSE
5196: /*
5197: --check if this is workplan type structure only
5200: --cannot create because this structure contains financial information also
5201: PA_UTILS.ADD_MESSAGE(
5202: p_app_short_name => 'PA'
5203: ,p_msg_name => 'PA_PS_NO_STRUC_VER_CREATED');
5204: RAISE FND_API.G_EXC_ERROR;
5205: END IF;
5206: */
5207: IF NVL( IS_WP_VERSIONING_ENABLED( p_project_id ), 'N' ) = 'N'
5208: THEN
5209: --cannot create because versioning is not enabled.
5210: PA_UTILS.ADD_MESSAGE(
5211: p_app_short_name => 'PA'
5212: ,p_msg_name => 'PA_PS_NO_STRUC_VER_CREATED');
5213: RAISE FND_API.G_EXC_ERROR;
5214: END IF;
5215: --create a new workplan structure version
5216: OPEN cur_elem_ver_seq;
5217: FETCH cur_elem_ver_seq INTO x_structure_version_id;
5263: IF x_structure_version_id IS NULL THEN
5264: PA_UTILS.ADD_MESSAGE(
5265: p_app_short_name => 'PA'
5266: ,p_msg_name => 'PA_PS_NO_STRUC_VER_CREATED');
5267: raise FND_API.G_EXC_ERROR;
5268: END IF;
5269:
5270: --Get structure version number
5271: OPEN get_working_ver_num(p_project_id, l_proj_element_id);
5325: IF l_return_status <> 'S' THEN
5326: PA_UTILS.ADD_MESSAGE(
5327: p_app_short_name => 'PA'
5328: ,p_msg_name => 'PA_PS_NO_STRUC_SCH_VER_CREATED');
5329: raise FND_API.G_EXC_ERROR;
5330: END IF;
5331: -- Bug 4574032 Begin
5332: BEGIN
5333: PA_FP_PLANNING_TRANSACTION_PUB.add_planning_transactions
5343: WHEN OTHERS THEN
5344: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
5345: p_procedure_name => 'CREATE_UPDATE_STRUCT_VER',
5346: p_error_text => SUBSTRB('call of pa_fp_planning_transaction_pub.add_planning_transactions failed. sqlerrm= :'||SQLERRM,1,240));
5347: raise fnd_api.g_exc_error;
5348: END;
5349: IF l_return_status <> 'S' THEN
5350: raise FND_API.G_EXC_ERROR;
5351: END IF;
5346: p_error_text => SUBSTRB('call of pa_fp_planning_transaction_pub.add_planning_transactions failed. sqlerrm= :'||SQLERRM,1,240));
5347: raise fnd_api.g_exc_error;
5348: END;
5349: IF l_return_status <> 'S' THEN
5350: raise FND_API.G_EXC_ERROR;
5351: END IF;
5352: -- Bug 4574032 End
5353: END IF;
5354: ELSE
5376: );
5377: END IF;
5378: END IF;
5379: EXCEPTION
5380: WHEN FND_API.G_EXC_ERROR THEN
5381: x_msg_count := FND_MSG_PUB.count_msg;
5382: x_return_status := FND_API.G_RET_STS_ERROR;
5383: WHEN OTHERS THEN
5384: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5378: END IF;
5379: EXCEPTION
5380: WHEN FND_API.G_EXC_ERROR THEN
5381: x_msg_count := FND_MSG_PUB.count_msg;
5382: x_return_status := FND_API.G_RET_STS_ERROR;
5383: WHEN OTHERS THEN
5384: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5385: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
5386: p_procedure_name => 'CREATE_UPDATE_STRUCT_VER',
5380: WHEN FND_API.G_EXC_ERROR THEN
5381: x_msg_count := FND_MSG_PUB.count_msg;
5382: x_return_status := FND_API.G_RET_STS_ERROR;
5383: WHEN OTHERS THEN
5384: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5385: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
5386: p_procedure_name => 'CREATE_UPDATE_STRUCT_VER',
5387: p_error_text => SUBSTRB(SQLERRM,1,240));
5388: END create_update_struct_ver;
5936: , p_pm_task_reference => p_tasks_in(i).pm_parent_task_reference
5937: , p_out_task_id => v_parent_task_id
5938: , p_return_status => l_return_status );
5939:
5940: /*IF l_return_status <> FND_API.G_RET_STS_SUCCESS
5941: THEN
5942: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5943: THEN
5944: pa_interface_utils_pub.map_new_amg_msg
5951: ,p_attribute3 => ''
5952: ,p_attribute4 => ''
5953: ,p_attribute5 => '');
5954: END IF;
5955: RAISE FND_API.G_EXC_ERROR;
5956: END IF;
5957: */
5958: ELSE
5959: v_parent_task_id := null;
6116: l_outline_level(l_outline_level.count) := null;
6117:
6118: /*--bug 2856033
6119: PA_STRUCT_TASK_ROLLUP_PUB.Tasks_Rollup(
6120: p_commit => FND_API.G_FALSE,
6121: p_element_versions => l_tasks_ver_ids,
6122: x_return_status => l_return_status,
6123: x_msg_count => l_msg_count,
6124: x_msg_data => l_msg_data);
6122: x_return_status => l_return_status,
6123: x_msg_count => l_msg_count,
6124: x_msg_data => l_msg_data);
6125:
6126: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6127: x_msg_count := FND_MSG_PUB.count_msg;
6128: if x_msg_count = 1 then
6129: pa_interface_utils_pub.get_messages
6130: (p_encoded => FND_API.G_TRUE,
6126: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6127: x_msg_count := FND_MSG_PUB.count_msg;
6128: if x_msg_count = 1 then
6129: pa_interface_utils_pub.get_messages
6130: (p_encoded => FND_API.G_TRUE,
6131: p_msg_index => 1,
6132: p_msg_count => l_msg_count,
6133: p_msg_data => l_msg_data,
6134: p_data => l_data,
6147: ,x_return_status => l_return_status
6148: ,x_msg_count => l_msg_count
6149: ,x_msg_data => l_msg_data );
6150:
6151: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6152: x_msg_count := FND_MSG_PUB.count_msg;
6153: x_return_status := l_return_status ; --bug 3044915
6154: if x_msg_count = 1 then
6155: pa_interface_utils_pub.get_messages
6152: x_msg_count := FND_MSG_PUB.count_msg;
6153: x_return_status := l_return_status ; --bug 3044915
6154: if x_msg_count = 1 then
6155: pa_interface_utils_pub.get_messages
6156: (p_encoded => FND_API.G_TRUE,
6157: p_msg_index => 1,
6158: p_msg_count => l_msg_count,
6159: p_msg_data => l_msg_data,
6160: p_data => l_data,
6200: l_outline_level(l_outline_level.count) := null;
6201:
6202: /*--bug 2856033
6203: PA_STRUCT_TASK_ROLLUP_PUB.Tasks_Rollup(
6204: p_commit => FND_API.G_FALSE,
6205: p_element_versions => l_tasks_ver_ids,
6206: x_return_status => l_return_status,
6207: x_msg_count => l_msg_count,
6208: x_msg_data => l_msg_data);
6206: x_return_status => l_return_status,
6207: x_msg_count => l_msg_count,
6208: x_msg_data => l_msg_data);
6209:
6210: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6211: x_msg_count := FND_MSG_PUB.count_msg;
6212: if x_msg_count = 1 then
6213: pa_interface_utils_pub.get_messages
6214: (p_encoded => FND_API.G_TRUE,
6210: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6211: x_msg_count := FND_MSG_PUB.count_msg;
6212: if x_msg_count = 1 then
6213: pa_interface_utils_pub.get_messages
6214: (p_encoded => FND_API.G_TRUE,
6215: p_msg_index => 1,
6216: p_msg_count => l_msg_count,
6217: p_msg_data => l_msg_data,
6218: p_data => l_data,
6232: ,x_return_status => l_return_status
6233: ,x_msg_count => l_msg_count
6234: ,x_msg_data => l_msg_data );
6235:
6236: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6237: x_msg_count := FND_MSG_PUB.count_msg;
6238: x_return_status := l_return_status ; --bug 3044915
6239: if x_msg_count = 1 then
6240: pa_interface_utils_pub.get_messages
6237: x_msg_count := FND_MSG_PUB.count_msg;
6238: x_return_status := l_return_status ; --bug 3044915
6239: if x_msg_count = 1 then
6240: pa_interface_utils_pub.get_messages
6241: (p_encoded => FND_API.G_TRUE,
6242: p_msg_index => 1,
6243: p_msg_count => l_msg_count,
6244: p_msg_data => l_msg_data,
6245: p_data => l_data,
6248: end if;
6249: raise API_ERROR;
6250: end if;
6251: END IF;
6252: x_return_status := FND_API.G_RET_STS_SUCCESS; -- Bug 3044915
6253: END recalc_task_weightings;
6254:
6255: FUNCTION GET_MAX_LAST_UPD_DT_WRKNG_VER
6256: ( p_structure_version_id IN NUMBER
6320: -- p_shared VARCHAR2 Y Whether source/destination project is shared or not
6321: -- p_publish_person_id NUMBER Y The person id required for publishing a version
6322: -- p_dest_template_flag VARCHAR2 Y Creating a template or a project
6323: PROCEDURE copy_src_financial_version( p_api_version IN NUMBER := 1.0
6324: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
6325: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
6326: ,p_validate_only IN VARCHAR2 := FND_API.G_FALSE
6327: ,p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL
6328: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
6321: -- p_publish_person_id NUMBER Y The person id required for publishing a version
6322: -- p_dest_template_flag VARCHAR2 Y Creating a template or a project
6323: PROCEDURE copy_src_financial_version( p_api_version IN NUMBER := 1.0
6324: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
6325: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
6326: ,p_validate_only IN VARCHAR2 := FND_API.G_FALSE
6327: ,p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL
6328: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
6329: ,p_debug_mode IN VARCHAR2 := 'N'
6322: -- p_dest_template_flag VARCHAR2 Y Creating a template or a project
6323: PROCEDURE copy_src_financial_version( p_api_version IN NUMBER := 1.0
6324: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
6325: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
6326: ,p_validate_only IN VARCHAR2 := FND_API.G_FALSE
6327: ,p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL
6328: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
6329: ,p_debug_mode IN VARCHAR2 := 'N'
6330: ,p_src_project_id IN NUMBER
6323: PROCEDURE copy_src_financial_version( p_api_version IN NUMBER := 1.0
6324: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
6325: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
6326: ,p_validate_only IN VARCHAR2 := FND_API.G_FALSE
6327: ,p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL
6328: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
6329: ,p_debug_mode IN VARCHAR2 := 'N'
6330: ,p_src_project_id IN NUMBER
6331: ,p_dest_project_id IN NUMBER
6403: l_login_id NUMBER := FND_GLOBAL.LOGIN_ID;
6404: BEGIN
6405:
6406: x_msg_count := 0;
6407: x_return_status := FND_API.G_RET_STS_SUCCESS;
6408: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
6409:
6410: IF (p_commit = FND_API.G_TRUE) THEN
6411: SAVEPOINT copy_src_fin_ver;
6406: x_msg_count := 0;
6407: x_return_status := FND_API.G_RET_STS_SUCCESS;
6408: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
6409:
6410: IF (p_commit = FND_API.G_TRUE) THEN
6411: SAVEPOINT copy_src_fin_ver;
6412: END IF;
6413:
6414: IF p_init_msg_list = FND_API.G_TRUE THEN
6410: IF (p_commit = FND_API.G_TRUE) THEN
6411: SAVEPOINT copy_src_fin_ver;
6412: END IF;
6413:
6414: IF p_init_msg_list = FND_API.G_TRUE THEN
6415: FND_MSG_PUB.initialize;
6416: END IF;
6417:
6418: IF l_debug_mode = 'Y' THEN
6446: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
6447: l_debug_level3);
6448: END IF;
6449:
6450: IF ( ( p_src_project_id IS NULL OR p_src_project_id = FND_API.G_MISS_NUM ) AND
6451: ( p_dest_project_id IS NULL OR p_dest_project_id = FND_API.G_MISS_NUM ) AND
6452: ( p_dest_fn_structure_id IS NULL OR p_dest_fn_structure_id = FND_API.G_MISS_NUM ) AND
6453: ( p_shared IS NULL OR p_shared = FND_API.G_MISS_CHAR ) AND
6454: ( p_publish_person_id IS NULL OR p_publish_person_id = FND_API.G_MISS_NUM )
6447: l_debug_level3);
6448: END IF;
6449:
6450: IF ( ( p_src_project_id IS NULL OR p_src_project_id = FND_API.G_MISS_NUM ) AND
6451: ( p_dest_project_id IS NULL OR p_dest_project_id = FND_API.G_MISS_NUM ) AND
6452: ( p_dest_fn_structure_id IS NULL OR p_dest_fn_structure_id = FND_API.G_MISS_NUM ) AND
6453: ( p_shared IS NULL OR p_shared = FND_API.G_MISS_CHAR ) AND
6454: ( p_publish_person_id IS NULL OR p_publish_person_id = FND_API.G_MISS_NUM )
6455: )
6448: END IF;
6449:
6450: IF ( ( p_src_project_id IS NULL OR p_src_project_id = FND_API.G_MISS_NUM ) AND
6451: ( p_dest_project_id IS NULL OR p_dest_project_id = FND_API.G_MISS_NUM ) AND
6452: ( p_dest_fn_structure_id IS NULL OR p_dest_fn_structure_id = FND_API.G_MISS_NUM ) AND
6453: ( p_shared IS NULL OR p_shared = FND_API.G_MISS_CHAR ) AND
6454: ( p_publish_person_id IS NULL OR p_publish_person_id = FND_API.G_MISS_NUM )
6455: )
6456: THEN
6449:
6450: IF ( ( p_src_project_id IS NULL OR p_src_project_id = FND_API.G_MISS_NUM ) AND
6451: ( p_dest_project_id IS NULL OR p_dest_project_id = FND_API.G_MISS_NUM ) AND
6452: ( p_dest_fn_structure_id IS NULL OR p_dest_fn_structure_id = FND_API.G_MISS_NUM ) AND
6453: ( p_shared IS NULL OR p_shared = FND_API.G_MISS_CHAR ) AND
6454: ( p_publish_person_id IS NULL OR p_publish_person_id = FND_API.G_MISS_NUM )
6455: )
6456: THEN
6457: IF l_debug_mode = 'Y' THEN
6450: IF ( ( p_src_project_id IS NULL OR p_src_project_id = FND_API.G_MISS_NUM ) AND
6451: ( p_dest_project_id IS NULL OR p_dest_project_id = FND_API.G_MISS_NUM ) AND
6452: ( p_dest_fn_structure_id IS NULL OR p_dest_fn_structure_id = FND_API.G_MISS_NUM ) AND
6453: ( p_shared IS NULL OR p_shared = FND_API.G_MISS_CHAR ) AND
6454: ( p_publish_person_id IS NULL OR p_publish_person_id = FND_API.G_MISS_NUM )
6455: )
6456: THEN
6457: IF l_debug_mode = 'Y' THEN
6458: Pa_Debug.g_err_stage:= 'PA_PROJ_TASK_STRUC_PUB : copy_src_financial_version :
6671: AND ppevs.element_version_id = l_src_fin_version_id
6672: AND ppev.attribute15 = ppevs.element_version_id
6673: AND ppev.project_id = p_dest_project_id ;
6674:
6675: IF (p_commit = FND_API.G_TRUE) THEN
6676: COMMIT;
6677: END IF;
6678:
6679: EXCEPTION
6678:
6679: EXCEPTION
6680:
6681: WHEN Invalid_Arg_Exc_WP THEN
6682: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6683: x_msg_count := 1;
6684: x_msg_data := ' PA_PROJ_TASK_STRUC_PUB : copy_src_financial_version : NULL parameters passed';
6685:
6686: IF p_commit = FND_API.G_TRUE THEN
6682: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6683: x_msg_count := 1;
6684: x_msg_data := ' PA_PROJ_TASK_STRUC_PUB : copy_src_financial_version : NULL parameters passed';
6685:
6686: IF p_commit = FND_API.G_TRUE THEN
6687: ROLLBACK TO copy_src_fin_ver;
6688: END IF;
6689:
6690: Fnd_Msg_Pub.add_exc_msg
6700: END IF;
6701: RAISE;
6702:
6703: WHEN OTHERS THEN
6704: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6705: x_msg_count := 1;
6706: x_msg_data := SQLERRM;
6707:
6708: IF p_commit = FND_API.G_TRUE THEN
6704: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6705: x_msg_count := 1;
6706: x_msg_data := SQLERRM;
6707:
6708: IF p_commit = FND_API.G_TRUE THEN
6709: ROLLBACK TO copy_src_fin_ver;
6710: END IF;
6711:
6712: Fnd_Msg_Pub.add_exc_msg
6745: -- p_target_start_date DATE Y The start date of the destination project
6746: -- p_target_finish_date DATE Y The finish date of the destination project
6747: -- p_calendar_id NUMBER Y The calendar id
6748: PROCEDURE copy_src_financial_ver_tasks( p_api_version IN NUMBER := 1.0
6749: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
6750: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
6751: ,p_validate_only IN VARCHAR2 := FND_API.G_FALSE
6752: ,p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL
6753: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
6746: -- p_target_finish_date DATE Y The finish date of the destination project
6747: -- p_calendar_id NUMBER Y The calendar id
6748: PROCEDURE copy_src_financial_ver_tasks( p_api_version IN NUMBER := 1.0
6749: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
6750: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
6751: ,p_validate_only IN VARCHAR2 := FND_API.G_FALSE
6752: ,p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL
6753: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
6754: ,p_debug_mode IN VARCHAR2 := 'N'
6747: -- p_calendar_id NUMBER Y The calendar id
6748: PROCEDURE copy_src_financial_ver_tasks( p_api_version IN NUMBER := 1.0
6749: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
6750: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
6751: ,p_validate_only IN VARCHAR2 := FND_API.G_FALSE
6752: ,p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL
6753: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
6754: ,p_debug_mode IN VARCHAR2 := 'N'
6755: ,p_src_project_id IN NUMBER
6748: PROCEDURE copy_src_financial_ver_tasks( p_api_version IN NUMBER := 1.0
6749: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
6750: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
6751: ,p_validate_only IN VARCHAR2 := FND_API.G_FALSE
6752: ,p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL
6753: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
6754: ,p_debug_mode IN VARCHAR2 := 'N'
6755: ,p_src_project_id IN NUMBER
6756: ,p_dest_project_id IN NUMBER
6907: BEGIN
6908:
6909:
6910: x_msg_count := 0;
6911: x_return_status := FND_API.G_RET_STS_SUCCESS;
6912: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
6913:
6914: IF (p_commit = FND_API.G_TRUE) THEN
6915: SAVEPOINT copy_src_fin_ver_tasks;
6910: x_msg_count := 0;
6911: x_return_status := FND_API.G_RET_STS_SUCCESS;
6912: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
6913:
6914: IF (p_commit = FND_API.G_TRUE) THEN
6915: SAVEPOINT copy_src_fin_ver_tasks;
6916: END IF;
6917:
6918: IF p_init_msg_list = FND_API.G_TRUE THEN
6914: IF (p_commit = FND_API.G_TRUE) THEN
6915: SAVEPOINT copy_src_fin_ver_tasks;
6916: END IF;
6917:
6918: IF p_init_msg_list = FND_API.G_TRUE THEN
6919: FND_MSG_PUB.initialize;
6920: END IF;
6921:
6922: IF l_debug_mode = 'Y' THEN
6959: Pa_Debug.WRITE(G_PKG_NAME,Pa_Debug.g_err_stage,
6960: l_debug_level3);
6961: END IF;
6962:
6963: IF ( ( p_src_project_id IS NULL OR p_src_project_id = FND_API.G_MISS_NUM ) AND
6964: ( p_dest_project_id IS NULL OR p_dest_project_id = FND_API.G_MISS_NUM ) AND
6965: ( p_dest_fn_structure_id IS NULL OR p_dest_fn_structure_id = FND_API.G_MISS_NUM ) AND
6966: ( p_shared IS NULL OR p_shared = FND_API.G_MISS_CHAR ) AND
6967: ( p_copy_ppevSchedules_flag IS NULL OR p_copy_ppevSchedules_flag = FND_API.G_MISS_NUM ) AND
6960: l_debug_level3);
6961: END IF;
6962:
6963: IF ( ( p_src_project_id IS NULL OR p_src_project_id = FND_API.G_MISS_NUM ) AND
6964: ( p_dest_project_id IS NULL OR p_dest_project_id = FND_API.G_MISS_NUM ) AND
6965: ( p_dest_fn_structure_id IS NULL OR p_dest_fn_structure_id = FND_API.G_MISS_NUM ) AND
6966: ( p_shared IS NULL OR p_shared = FND_API.G_MISS_CHAR ) AND
6967: ( p_copy_ppevSchedules_flag IS NULL OR p_copy_ppevSchedules_flag = FND_API.G_MISS_NUM ) AND
6968: ( p_calendar_id IS NULL OR p_calendar_id = FND_API.G_MISS_NUM )
6961: END IF;
6962:
6963: IF ( ( p_src_project_id IS NULL OR p_src_project_id = FND_API.G_MISS_NUM ) AND
6964: ( p_dest_project_id IS NULL OR p_dest_project_id = FND_API.G_MISS_NUM ) AND
6965: ( p_dest_fn_structure_id IS NULL OR p_dest_fn_structure_id = FND_API.G_MISS_NUM ) AND
6966: ( p_shared IS NULL OR p_shared = FND_API.G_MISS_CHAR ) AND
6967: ( p_copy_ppevSchedules_flag IS NULL OR p_copy_ppevSchedules_flag = FND_API.G_MISS_NUM ) AND
6968: ( p_calendar_id IS NULL OR p_calendar_id = FND_API.G_MISS_NUM )
6969: )
6962:
6963: IF ( ( p_src_project_id IS NULL OR p_src_project_id = FND_API.G_MISS_NUM ) AND
6964: ( p_dest_project_id IS NULL OR p_dest_project_id = FND_API.G_MISS_NUM ) AND
6965: ( p_dest_fn_structure_id IS NULL OR p_dest_fn_structure_id = FND_API.G_MISS_NUM ) AND
6966: ( p_shared IS NULL OR p_shared = FND_API.G_MISS_CHAR ) AND
6967: ( p_copy_ppevSchedules_flag IS NULL OR p_copy_ppevSchedules_flag = FND_API.G_MISS_NUM ) AND
6968: ( p_calendar_id IS NULL OR p_calendar_id = FND_API.G_MISS_NUM )
6969: )
6970: THEN
6963: IF ( ( p_src_project_id IS NULL OR p_src_project_id = FND_API.G_MISS_NUM ) AND
6964: ( p_dest_project_id IS NULL OR p_dest_project_id = FND_API.G_MISS_NUM ) AND
6965: ( p_dest_fn_structure_id IS NULL OR p_dest_fn_structure_id = FND_API.G_MISS_NUM ) AND
6966: ( p_shared IS NULL OR p_shared = FND_API.G_MISS_CHAR ) AND
6967: ( p_copy_ppevSchedules_flag IS NULL OR p_copy_ppevSchedules_flag = FND_API.G_MISS_NUM ) AND
6968: ( p_calendar_id IS NULL OR p_calendar_id = FND_API.G_MISS_NUM )
6969: )
6970: THEN
6971: IF l_debug_mode = 'Y' THEN
6964: ( p_dest_project_id IS NULL OR p_dest_project_id = FND_API.G_MISS_NUM ) AND
6965: ( p_dest_fn_structure_id IS NULL OR p_dest_fn_structure_id = FND_API.G_MISS_NUM ) AND
6966: ( p_shared IS NULL OR p_shared = FND_API.G_MISS_CHAR ) AND
6967: ( p_copy_ppevSchedules_flag IS NULL OR p_copy_ppevSchedules_flag = FND_API.G_MISS_NUM ) AND
6968: ( p_calendar_id IS NULL OR p_calendar_id = FND_API.G_MISS_NUM )
6969: )
6970: THEN
6971: IF l_debug_mode = 'Y' THEN
6972: Pa_Debug.g_err_stage:= 'PA_PROJ_TASK_STRUC_PUB : copy_src_financial_ver_tasks : p_src_project_id,
7501: AND ppev2.project_id = p_src_project_id
7502: AND ppev2.parent_structure_version_id = l_src_fin_version_id ;
7503: END IF; --If p_copy_ppevSchedules_flag = 'Y'
7504:
7505: IF (p_commit = FND_API.G_TRUE) THEN
7506: COMMIT;
7507: END IF;
7508:
7509: IF l_debug_mode = 'Y' THEN
7511: END IF;
7512: EXCEPTION
7513:
7514: WHEN Invalid_Arg_Exc_WP THEN
7515: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
7516: x_msg_count := 1;
7517: x_msg_data := ' PA_PROJ_TASK_STRUC_PUB : copy_src_financial_ver_tasks : NULL parameters passed';
7518:
7519: IF p_commit = FND_API.G_TRUE THEN
7515: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
7516: x_msg_count := 1;
7517: x_msg_data := ' PA_PROJ_TASK_STRUC_PUB : copy_src_financial_ver_tasks : NULL parameters passed';
7518:
7519: IF p_commit = FND_API.G_TRUE THEN
7520: ROLLBACK TO copy_src_fin_ver_tasks;
7521: END IF;
7522:
7523: Fnd_Msg_Pub.add_exc_msg
7533: END IF;
7534: RAISE;
7535:
7536: WHEN OTHERS THEN
7537: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
7538: x_msg_count := 1;
7539: x_msg_data := SQLERRM;
7540:
7541: IF p_commit = FND_API.G_TRUE THEN
7537: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
7538: x_msg_count := 1;
7539: x_msg_data := SQLERRM;
7540:
7541: IF p_commit = FND_API.G_TRUE THEN
7542: ROLLBACK TO copy_src_fin_ver_tasks;
7543: END IF;
7544:
7545: Fnd_Msg_Pub.add_exc_msg
7579: -- p_target_finish_date DATE Y The finish date of the destination project
7580: -- p_calendar_id NUMBER Y The calendar id
7581: PROCEDURE copy_structures_tasks_bulk
7582: ( p_api_version IN NUMBER := 1.0
7583: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
7584: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
7585: ,p_validate_only IN VARCHAR2 := FND_API.G_FALSE
7586: ,p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL
7587: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
7580: -- p_calendar_id NUMBER Y The calendar id
7581: PROCEDURE copy_structures_tasks_bulk
7582: ( p_api_version IN NUMBER := 1.0
7583: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
7584: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
7585: ,p_validate_only IN VARCHAR2 := FND_API.G_FALSE
7586: ,p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL
7587: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
7588: ,p_debug_mode IN VARCHAR2 := 'N'
7581: PROCEDURE copy_structures_tasks_bulk
7582: ( p_api_version IN NUMBER := 1.0
7583: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
7584: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
7585: ,p_validate_only IN VARCHAR2 := FND_API.G_FALSE
7586: ,p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL
7587: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
7588: ,p_debug_mode IN VARCHAR2 := 'N'
7589: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
7582: ( p_api_version IN NUMBER := 1.0
7583: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
7584: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
7585: ,p_validate_only IN VARCHAR2 := FND_API.G_FALSE
7586: ,p_validation_level IN VARCHAR2 := FND_API.G_VALID_LEVEL_FULL
7587: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
7588: ,p_debug_mode IN VARCHAR2 := 'N'
7589: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
7590: ,p_src_project_id IN NUMBER
7905:
7906: BEGIN
7907:
7908: x_msg_count := 0;
7909: x_return_status := FND_API.G_RET_STS_SUCCESS;
7910: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
7911:
7912: IF (p_commit = FND_API.G_TRUE) THEN
7913: SAVEPOINT copy_struc_tasks_bulk;
7908: x_msg_count := 0;
7909: x_return_status := FND_API.G_RET_STS_SUCCESS;
7910: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
7911:
7912: IF (p_commit = FND_API.G_TRUE) THEN
7913: SAVEPOINT copy_struc_tasks_bulk;
7914: END IF;
7915:
7916: IF p_init_msg_list = FND_API.G_TRUE THEN
7912: IF (p_commit = FND_API.G_TRUE) THEN
7913: SAVEPOINT copy_struc_tasks_bulk;
7914: END IF;
7915:
7916: IF p_init_msg_list = FND_API.G_TRUE THEN
7917: FND_MSG_PUB.initialize;
7918: END IF;
7919:
7920: IF l_debug_mode = 'Y' THEN
7959: END IF;
7960:
7961: --If source and destination project are the same
7962: IF p_src_project_id = p_dest_project_id THEN
7963: x_return_status := FND_API.G_RET_STS_SUCCESS;
7964: RETURN;
7965: END IF;
7966:
7967: --Check whether WP structure is enabled for the source project
8018: ,x_msg_count => x_msg_count
8019: ,x_Msg_data => x_msg_data
8020: );
8021:
8022: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8023: RAISE FND_API.G_EXC_ERROR;
8024: END IF;
8025:
8026: --Update back the attributes column in pa_proj_elements and pa_proj_element_versions with actual data from source project
8019: ,x_Msg_data => x_msg_data
8020: );
8021:
8022: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8023: RAISE FND_API.G_EXC_ERROR;
8024: END IF;
8025:
8026: --Update back the attributes column in pa_proj_elements and pa_proj_element_versions with actual data from source project
8027: UPDATE pa_proj_elements ppe1
8037: WHERE project_id = p_dest_project_id ;
8038:
8039: END IF;
8040:
8041: x_return_status := FND_API.G_RET_STS_SUCCESS ;
8042:
8043: IF (p_commit = FND_API.G_TRUE) THEN
8044: COMMIT;
8045: END IF;
8039: END IF;
8040:
8041: x_return_status := FND_API.G_RET_STS_SUCCESS ;
8042:
8043: IF (p_commit = FND_API.G_TRUE) THEN
8044: COMMIT;
8045: END IF;
8046:
8047: RETURN;
9710: , x_return_status => l_return_status
9711: , x_msg_count => l_msg_count
9712: , x_msg_data => l_msg_data );
9713:
9714: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
9715: x_msg_count := FND_MSG_PUB.count_msg;
9716: IF x_msg_count = 1 THEN
9717: x_msg_data := l_msg_data;
9718: END IF;
9715: x_msg_count := FND_MSG_PUB.count_msg;
9716: IF x_msg_count = 1 THEN
9717: x_msg_data := l_msg_data;
9718: END IF;
9719: RAISE FND_API.G_EXC_ERROR;
9720: END IF;
9721: END IF; --3916763
9722: END IF;
9723: ELSE --IF THERE IS NO WP VERSION SELECTED FOR COPYING
9737: ,x_msg_count => l_msg_count
9738: ,x_msg_data => l_msg_data
9739: );
9740:
9741: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
9742: x_msg_count := FND_MSG_PUB.count_msg;
9743: IF x_msg_count = 1 THEN
9744: x_msg_data := l_msg_data;
9745: END IF;
9742: x_msg_count := FND_MSG_PUB.count_msg;
9743: IF x_msg_count = 1 THEN
9744: x_msg_data := l_msg_data;
9745: END IF;
9746: RAISE FND_API.G_EXC_ERROR;
9747: END IF;
9748:
9749: --The following API call will copy the tasks belonging to the financial version in the source project into
9750: --the destination project
9760: ,x_return_status => l_return_status
9761: ,x_msg_count => l_msg_count
9762: ,x_msg_data => l_msg_data
9763: );
9764: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
9765: x_msg_count := FND_MSG_PUB.count_msg;
9766: IF x_msg_count = 1 THEN
9767: x_msg_data := l_msg_data;
9768: END IF;
9765: x_msg_count := FND_MSG_PUB.count_msg;
9766: IF x_msg_count = 1 THEN
9767: x_msg_data := l_msg_data;
9768: END IF;
9769: RAISE FND_API.G_EXC_ERROR;
9770: END IF;
9771:
9772: END IF;--If shared and copy financial tasks flag is checked
9773:
9896: ,x_return_status => l_return_status
9897: ,x_msg_count => l_msg_count
9898: ,x_msg_data => l_msg_data
9899: );
9900: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
9901: x_msg_count := FND_MSG_PUB.count_msg;
9902: IF x_msg_count = 1 THEN
9903: x_msg_data := l_msg_data;
9904: END IF;
9901: x_msg_count := FND_MSG_PUB.count_msg;
9902: IF x_msg_count = 1 THEN
9903: x_msg_data := l_msg_data;
9904: END IF;
9905: RAISE FND_API.G_EXC_ERROR;
9906: END IF;
9907: --bug 3912603, insert records into pa_proj_elem_ver_Schedule, Satish, end
9908:
9909: END IF;
9931: ,x_msg_count => l_msg_count
9932: ,x_msg_data => l_msg_data
9933: );
9934:
9935: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
9936: x_msg_count := FND_MSG_PUB.count_msg;
9937: IF x_msg_count = 1 THEN
9938: x_msg_data := l_msg_data;
9939: END IF;
9936: x_msg_count := FND_MSG_PUB.count_msg;
9937: IF x_msg_count = 1 THEN
9938: x_msg_data := l_msg_data;
9939: END IF;
9940: RAISE FND_API.G_EXC_ERROR;
9941: END IF;
9942:
9943: --If copy financial tasks flag is checked
9944: IF 'Y' = l_fin_tasks_flag THEN
9961: ,x_return_status => l_return_status
9962: ,x_msg_count => l_msg_count
9963: ,x_msg_data => l_msg_data
9964: );
9965: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
9966: x_msg_count := FND_MSG_PUB.count_msg;
9967: IF x_msg_count = 1 THEN
9968: x_msg_data := l_msg_data;
9969: END IF;
9966: x_msg_count := FND_MSG_PUB.count_msg;
9967: IF x_msg_count = 1 THEN
9968: x_msg_data := l_msg_data;
9969: END IF;
9970: RAISE FND_API.G_EXC_ERROR;
9971: END IF;
9972: END IF;
9973:
9974: END IF;--If split and financial is enabled
10167: x_msg_count => l_msg_count,
10168: x_msg_data => l_msg_data
10169: );
10170:
10171: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10172: x_msg_count := FND_MSG_PUB.count_msg;
10173: IF x_msg_count = 1 THEN
10174: x_msg_data := l_msg_data;
10175: END IF;
10172: x_msg_count := FND_MSG_PUB.count_msg;
10173: IF x_msg_count = 1 THEN
10174: x_msg_data := l_msg_data;
10175: END IF;
10176: RAISE FND_API.G_EXC_ERROR;
10177: END IF;
10178: END IF;
10179: END IF;
10180:
10195: X_Return_Status => X_Return_Status,
10196: X_Msg_Count => X_Msg_Count,
10197: X_Msg_Data => X_Msg_Data
10198: );
10199: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10200: RAISE FND_API.G_EXC_ERROR;
10201: END IF;
10202:
10203: OPEN cur_get_flag('WP_INTER_PROJ_DEPEND_FLAG');
10196: X_Msg_Count => X_Msg_Count,
10197: X_Msg_Data => X_Msg_Data
10198: );
10199: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10200: RAISE FND_API.G_EXC_ERROR;
10201: END IF;
10202:
10203: OPEN cur_get_flag('WP_INTER_PROJ_DEPEND_FLAG');
10204: FETCH cur_get_flag INTO l_wp_inter_proj_depend_flag;
10211: X_Return_Status => X_Return_Status,
10212: X_Msg_Count => X_Msg_Count,
10213: X_Msg_Data => X_Msg_Data
10214: );
10215: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10216: RAISE FND_API.G_EXC_ERROR;
10217: END IF;
10218: END IF;
10219: END ;--Finished copying Intra and Inter Project Dependencies
10212: X_Msg_Count => X_Msg_Count,
10213: X_Msg_Data => X_Msg_Data
10214: );
10215: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10216: RAISE FND_API.G_EXC_ERROR;
10217: END IF;
10218: END IF;
10219: END ;--Finished copying Intra and Inter Project Dependencies
10220:
10256: ,x_return_status => x_return_status
10257: ,x_msg_count => x_msg_count
10258: ,x_Msg_data => x_msg_data
10259: );
10260: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10261: RAISE FND_API.G_EXC_ERROR;
10262: END IF;
10263: END IF;
10264:
10257: ,x_msg_count => x_msg_count
10258: ,x_Msg_data => x_msg_data
10259: );
10260: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10261: RAISE FND_API.G_EXC_ERROR;
10262: END IF;
10263: END IF;
10264:
10265: OPEN cur_get_flag('WP_RES_ASSIGN_FLAG');
10304: ,x_return_status => x_return_status
10305: ,x_msg_count => x_msg_count
10306: ,x_Msg_data => x_msg_data
10307: );
10308: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10309: RAISE FND_API.G_EXC_ERROR;
10310: END IF;
10311: ELSE
10312: IF l_debug_mode = 'Y' THEN
10305: ,x_msg_count => x_msg_count
10306: ,x_Msg_data => x_msg_data
10307: );
10308: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10309: RAISE FND_API.G_EXC_ERROR;
10310: END IF;
10311: ELSE
10312: IF l_debug_mode = 'Y' THEN
10313: Pa_Debug.WRITE(G_PKG_NAME, 'Calling copy_wp_budget_versions ', l_debug_level3);
10324: ,x_return_status => x_return_status
10325: ,x_msg_count => x_msg_count
10326: ,x_Msg_data => x_msg_data
10327: );
10328: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10329: RAISE FND_API.G_EXC_ERROR;
10330: END IF;
10331: END IF;
10332:
10325: ,x_msg_count => x_msg_count
10326: ,x_Msg_data => x_msg_data
10327: );
10328: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10329: RAISE FND_API.G_EXC_ERROR;
10330: END IF;
10331: END IF;
10332:
10333: IF ( 'Y' = l_dlv_enabled AND 'Y' = l_wp_deliverables_flag ) THEN
10346: ,x_msg_count => x_msg_count
10347: ,x_Msg_data => x_msg_data
10348: );
10349:
10350: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10351: RAISE FND_API.G_EXC_ERROR;
10352: END IF;
10353: END IF;
10354: END;
10347: ,x_Msg_data => x_msg_data
10348: );
10349:
10350: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10351: RAISE FND_API.G_EXC_ERROR;
10352: END IF;
10353: END IF;
10354: END;
10355:
10395: );
10396: IF l_debug_mode = 'Y' THEN
10397: Pa_Debug.WRITE(G_PKG_NAME, 'After Call SUBMIT_WORKPLAN x_return_status='||x_return_status, l_debug_level3);
10398: END IF;
10399: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10400: RAISE FND_API.G_EXC_ERROR;
10401: END IF;
10402: END IF;
10403: --3916763 End
10396: IF l_debug_mode = 'Y' THEN
10397: Pa_Debug.WRITE(G_PKG_NAME, 'After Call SUBMIT_WORKPLAN x_return_status='||x_return_status, l_debug_level3);
10398: END IF;
10399: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10400: RAISE FND_API.G_EXC_ERROR;
10401: END IF;
10402: END IF;
10403: --3916763 End
10404:
10401: END IF;
10402: END IF;
10403: --3916763 End
10404:
10405: x_return_status := FND_API.G_RET_STS_SUCCESS ;
10406:
10407: IF (p_commit = FND_API.G_TRUE) THEN
10408: COMMIT;
10409: END IF;
10403: --3916763 End
10404:
10405: x_return_status := FND_API.G_RET_STS_SUCCESS ;
10406:
10407: IF (p_commit = FND_API.G_TRUE) THEN
10408: COMMIT;
10409: END IF;
10410:
10411: IF (p_debug_mode = 'Y') THEN
10414: END IF;
10415:
10416: EXCEPTION
10417:
10418: WHEN FND_API.G_EXC_ERROR THEN
10419:
10420: x_return_status := Fnd_Api.G_RET_STS_ERROR;
10421:
10422: IF p_commit = FND_API.G_TRUE THEN
10416: EXCEPTION
10417:
10418: WHEN FND_API.G_EXC_ERROR THEN
10419:
10420: x_return_status := Fnd_Api.G_RET_STS_ERROR;
10421:
10422: IF p_commit = FND_API.G_TRUE THEN
10423: ROLLBACK TO copy_struc_tasks_bulk;
10424: END IF;
10418: WHEN FND_API.G_EXC_ERROR THEN
10419:
10420: x_return_status := Fnd_Api.G_RET_STS_ERROR;
10421:
10422: IF p_commit = FND_API.G_TRUE THEN
10423: ROLLBACK TO copy_struc_tasks_bulk;
10424: END IF;
10425:
10426: l_msg_count := Fnd_Msg_Pub.count_msg;
10426: l_msg_count := Fnd_Msg_Pub.count_msg;
10427: IF l_msg_count = 1 AND x_msg_data IS NULL
10428: THEN
10429: Pa_Interface_Utils_Pub.get_messages
10430: ( p_encoded => Fnd_Api.G_FALSE
10431: , p_msg_index => 1
10432: , p_msg_count => l_msg_count
10433: , p_msg_data => l_msg_data
10434: , p_data => l_data
10443: Pa_Debug.reset_curr_function;
10444: END IF;
10445:
10446: WHEN Invalid_Arg_Exc_WP THEN
10447: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
10448: x_msg_count := 1;
10449: x_msg_data := ' PA_PROJ_TASK_STRUC_PUB : copy_structures_tasks_bulk : NULL parameters passed';
10450:
10451: IF p_commit = FND_API.G_TRUE THEN
10447: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
10448: x_msg_count := 1;
10449: x_msg_data := ' PA_PROJ_TASK_STRUC_PUB : copy_structures_tasks_bulk : NULL parameters passed';
10450:
10451: IF p_commit = FND_API.G_TRUE THEN
10452: ROLLBACK TO copy_struc_tasks_bulk;
10453: END IF;
10454:
10455: Fnd_Msg_Pub.add_exc_msg
10465: END IF;
10466: RAISE;
10467:
10468: WHEN OTHERS THEN
10469: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
10470: x_msg_count := 1;
10471: x_msg_data := SQLERRM;
10472:
10473: IF p_commit = FND_API.G_TRUE THEN
10469: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
10470: x_msg_count := 1;
10471: x_msg_data := SQLERRM;
10472:
10473: IF p_commit = FND_API.G_TRUE THEN
10474: ROLLBACK TO copy_struc_tasks_bulk;
10475: END IF;
10476:
10477: Fnd_Msg_Pub.add_exc_msg
10532:
10533: END get_adjusted_dates;
10534:
10535: PROCEDURE copy_structures_bulk
10536: ( p_commit IN VARCHAR2 := FND_API.G_FALSE
10537: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
10538: ,p_validation_level IN VARCHAR2 := 100
10539: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
10540: ,p_debug_mode IN VARCHAR2 := 'N'
10533: END get_adjusted_dates;
10534:
10535: PROCEDURE copy_structures_bulk
10536: ( p_commit IN VARCHAR2 := FND_API.G_FALSE
10537: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
10538: ,p_validation_level IN VARCHAR2 := 100
10539: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
10540: ,p_debug_mode IN VARCHAR2 := 'N'
10541: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
10825: pa_debug.init_err_stack ('PA_PROJ_TASK_STRUC_PUB.copy_structures_bulk'); --For bug 4252182
10826: pa_debug.debug('PA_PROJ_TASK_STRUC_PUB.copy_structures_bulk begin');
10827: END IF;
10828:
10829: IF (p_commit = FND_API.G_TRUE) THEN
10830: savepoint copy_structure_bulk_pvt;
10831: END IF;
10832:
10833: -- Check if source and destination project are the same
10831: END IF;
10832:
10833: -- Check if source and destination project are the same
10834: if p_src_project_id = p_dest_project_id then
10835: x_return_status := FND_API.G_RET_STS_SUCCESS;
10836: return;
10837: end if;
10838: l_dest_template_flag := p_dest_template_flag; --bug 2805602
10839: l_src_template_flag := p_src_template_flag; --bug 2805602
11093: x_err_stack => x_err_stack);
11094:
11095: if ( x_err_code > 0 or x_err_code < 0 ) then
11096: x_msg_data := x_err_stage;
11097: raise FND_API.G_EXC_ERROR;
11098: end if;
11099:
11100: --Split; Creating Financial tasks
11101: INSERT INTO pa_proj_elements(
12156: ,x_msg_count => x_msg_count
12157: ,x_msg_data => x_msg_data
12158: ,x_return_status => x_return_status
12159: );
12160: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
12161: THEN
12162: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12163: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
12164: THEN
12158: ,x_return_status => x_return_status
12159: );
12160: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
12161: THEN
12162: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12163: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
12164: THEN
12165: RAISE FND_API.G_EXC_ERROR;
12166: END IF;
12159: );
12160: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
12161: THEN
12162: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12163: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
12164: THEN
12165: RAISE FND_API.G_EXC_ERROR;
12166: END IF;
12167: ELSIF nvl(l_create_wk_version,'N') = 'Y' THEN
12161: THEN
12162: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12163: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
12164: THEN
12165: RAISE FND_API.G_EXC_ERROR;
12166: END IF;
12167: ELSIF nvl(l_create_wk_version,'N') = 'Y' THEN
12168: l_structure_ver_name := substr(l_project_name||l_append||l_suffix, 1, 240);
12169:
12176: ,x_msg_count => x_msg_count
12177: ,x_msg_data => x_msg_data
12178: ,x_return_status => x_return_status
12179: );
12180: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
12181: THEN
12182: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12183: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
12184: THEN
12178: ,x_return_status => x_return_status
12179: );
12180: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
12181: THEN
12182: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12183: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
12184: THEN
12185: RAISE FND_API.G_EXC_ERROR;
12186: END IF;
12179: );
12180: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
12181: THEN
12182: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12183: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
12184: THEN
12185: RAISE FND_API.G_EXC_ERROR;
12186: END IF;
12187: END IF;
12181: THEN
12182: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12183: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
12184: THEN
12185: RAISE FND_API.G_EXC_ERROR;
12186: END IF;
12187: END IF;
12188:
12189: FOR k in 1..l_dest_str_versions_tbl.count LOOP
12845: x_msg_count => l_msg_count,
12846: x_msg_data => l_msg_data
12847: );
12848:
12849: if (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
12850: x_msg_count := FND_MSG_PUB.count_msg;
12851: if x_msg_count = 1 then
12852: x_msg_data := l_msg_data;
12853: end if;
12850: x_msg_count := FND_MSG_PUB.count_msg;
12851: if x_msg_count = 1 then
12852: x_msg_data := l_msg_data;
12853: end if;
12854: raise FND_API.G_EXC_ERROR;
12855: end if;
12856:
12857: END IF;
12858: END IF;
12894: WHEN OTHERS THEN
12895: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
12896: p_procedure_name => 'copy_structures_bulk',
12897: p_error_text => SUBSTRB('PA_FP_COPY_FROM_PKG.copy_wp_budget_versions:'||SQLERRM,1,240));
12898: RAISE FND_API.G_EXC_ERROR;
12899: END;
12900: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12901: RAISE FND_API.G_EXC_ERROR;
12902: END IF;
12896: p_procedure_name => 'copy_structures_bulk',
12897: p_error_text => SUBSTRB('PA_FP_COPY_FROM_PKG.copy_wp_budget_versions:'||SQLERRM,1,240));
12898: RAISE FND_API.G_EXC_ERROR;
12899: END;
12900: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12901: RAISE FND_API.G_EXC_ERROR;
12902: END IF;
12903: End;
12904: -- till here by skannoji
12897: p_error_text => SUBSTRB('PA_FP_COPY_FROM_PKG.copy_wp_budget_versions:'||SQLERRM,1,240));
12898: RAISE FND_API.G_EXC_ERROR;
12899: END;
12900: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12901: RAISE FND_API.G_EXC_ERROR;
12902: END IF;
12903: End;
12904: -- till here by skannoji
12905: ------------------------------------------------------------------------------
12981: ,x_return_status => l_return_status
12982: ,x_msg_count => l_msg_count
12983: ,x_msg_data => l_msg_data);
12984:
12985: if (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
12986: x_msg_count := FND_MSG_PUB.count_msg;
12987: if x_msg_count = 1 then
12988: x_msg_data := l_msg_data;
12989: end if;
12986: x_msg_count := FND_MSG_PUB.count_msg;
12987: if x_msg_count = 1 then
12988: x_msg_data := l_msg_data;
12989: end if;
12990: raise FND_API.G_EXC_ERROR;
12991: end if;
12992:
12993: ELSIF l_shared = 'N' AND NVL( l_task_weight_basis, 'X' ) = 'DURATION' --Split then call the api twice.
12994: THEN
13004: ,x_return_status => l_return_status
13005: ,x_msg_count => l_msg_count
13006: ,x_msg_data => l_msg_data);
13007:
13008: if (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
13009: x_msg_count := FND_MSG_PUB.count_msg;
13010: if x_msg_count = 1 then
13011: x_msg_data := l_msg_data;
13012: end if;
13009: x_msg_count := FND_MSG_PUB.count_msg;
13010: if x_msg_count = 1 then
13011: x_msg_data := l_msg_data;
13012: end if;
13013: raise FND_API.G_EXC_ERROR;
13014: end if;
13015:
13016:
13017: OPEN cur_str_vers( l_fn_str_id );
13026: ,x_return_status => l_return_status
13027: ,x_msg_count => l_msg_count
13028: ,x_msg_data => l_msg_data);
13029:
13030: if (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
13031: x_msg_count := FND_MSG_PUB.count_msg;
13032: if x_msg_count = 1 then
13033: x_msg_data := l_msg_data;
13034: end if;
13031: x_msg_count := FND_MSG_PUB.count_msg;
13032: if x_msg_count = 1 then
13033: x_msg_data := l_msg_data;
13034: end if;
13035: raise FND_API.G_EXC_ERROR;
13036: end if;
13037:
13038: END IF;
13039: END;
13040: --End 3035902 maansari
13041: */
13042:
13043:
13044: x_return_status := FND_API.G_RET_STS_SUCCESS;
13045:
13046:
13047: IF (p_debug_mode = 'Y') THEN
13048: pa_debug.debug('PA_PROJ_TASK_STRUC_PUB.copy_structures_bulk END');
13048: pa_debug.debug('PA_PROJ_TASK_STRUC_PUB.copy_structures_bulk END');
13049: END IF;
13050:
13051: EXCEPTION
13052: when FND_API.G_EXC_ERROR then
13053: if p_commit = FND_API.G_TRUE then
13054: rollback to copy_structure_bulk_pvt;
13055: end if;
13056: x_return_status := FND_API.G_RET_STS_ERROR;
13049: END IF;
13050:
13051: EXCEPTION
13052: when FND_API.G_EXC_ERROR then
13053: if p_commit = FND_API.G_TRUE then
13054: rollback to copy_structure_bulk_pvt;
13055: end if;
13056: x_return_status := FND_API.G_RET_STS_ERROR;
13057: when FND_API.G_EXC_UNEXPECTED_ERROR then
13052: when FND_API.G_EXC_ERROR then
13053: if p_commit = FND_API.G_TRUE then
13054: rollback to copy_structure_bulk_pvt;
13055: end if;
13056: x_return_status := FND_API.G_RET_STS_ERROR;
13057: when FND_API.G_EXC_UNEXPECTED_ERROR then
13058: if p_commit = FND_API.G_TRUE then
13059: rollback to copy_structure_bulk_pvt;
13060: end if;
13053: if p_commit = FND_API.G_TRUE then
13054: rollback to copy_structure_bulk_pvt;
13055: end if;
13056: x_return_status := FND_API.G_RET_STS_ERROR;
13057: when FND_API.G_EXC_UNEXPECTED_ERROR then
13058: if p_commit = FND_API.G_TRUE then
13059: rollback to copy_structure_bulk_pvt;
13060: end if;
13061: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13054: rollback to copy_structure_bulk_pvt;
13055: end if;
13056: x_return_status := FND_API.G_RET_STS_ERROR;
13057: when FND_API.G_EXC_UNEXPECTED_ERROR then
13058: if p_commit = FND_API.G_TRUE then
13059: rollback to copy_structure_bulk_pvt;
13060: end if;
13061: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13062: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
13057: when FND_API.G_EXC_UNEXPECTED_ERROR then
13058: if p_commit = FND_API.G_TRUE then
13059: rollback to copy_structure_bulk_pvt;
13060: end if;
13061: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13062: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
13063: p_procedure_name => 'copy_structures_bulk',
13064: p_error_text => SUBSTRB(SQLERRM,1,240));
13065: when OTHERS then
13062: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
13063: p_procedure_name => 'copy_structures_bulk',
13064: p_error_text => SUBSTRB(SQLERRM,1,240));
13065: when OTHERS then
13066: if p_commit = FND_API.G_TRUE then
13067: rollback to copy_structure_bulk_pvt;
13068: end if;
13069: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13070: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
13065: when OTHERS then
13066: if p_commit = FND_API.G_TRUE then
13067: rollback to copy_structure_bulk_pvt;
13068: end if;
13069: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13070: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
13071: p_procedure_name => 'copy_structures_bulk',
13072: p_error_text => SUBSTRB(SQLERRM,1,240));
13073: raise;
13230: ,x_return_status => l_return_status
13231: ,x_msg_count => l_msg_count
13232: ,x_msg_data => l_msg_data);
13233:
13234: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
13235: x_msg_count := FND_MSG_PUB.count_msg;
13236: x_return_status := l_return_status ; -- Bug 3044915
13237: if x_msg_count = 1 then
13238: pa_interface_utils_pub.get_messages
13235: x_msg_count := FND_MSG_PUB.count_msg;
13236: x_return_status := l_return_status ; -- Bug 3044915
13237: if x_msg_count = 1 then
13238: pa_interface_utils_pub.get_messages
13239: (p_encoded => FND_API.G_TRUE,
13240: p_msg_index => 1,
13241: p_msg_count => l_msg_count,
13242: p_msg_data => l_msg_data,
13243: p_data => l_data,
13245: x_msg_data := l_data;
13246: end if;
13247: raise API_ERROR;
13248: end if;
13249: x_return_status := FND_API.G_RET_STS_SUCCESS; -- Bug3044915
13250: END rollup_dates;
13251:
13252: /*==================================================================
13253: This API is called from pa_project_pub.create_project and does the
13670: -- Bug 6717386
13671:
13672: BEGIN
13673:
13674: IF p_commit = FND_API.G_TRUE THEN
13675: SAVEPOINT process_task_struc;
13676: END IF;
13677:
13678: IF p_init_msg_list = FND_API.G_TRUE THEN
13674: IF p_commit = FND_API.G_TRUE THEN
13675: SAVEPOINT process_task_struc;
13676: END IF;
13677:
13678: IF p_init_msg_list = FND_API.G_TRUE THEN
13679: FND_MSG_PUB.initialize;
13680: END IF;
13681:
13682: x_msg_count := 0;
13679: FND_MSG_PUB.initialize;
13680: END IF;
13681:
13682: x_msg_count := 0;
13683: x_return_status := FND_API.G_RET_STS_SUCCESS;
13684: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
13685:
13686: -- Moved down this code during UT.
13687: IF l_debug_mode = 'Y' THEN
13993: p_msg_data => x_msg_data,
13994: p_return_status => x_return_status,
13995: p_function_allowed => l_add_task_security);
13996:
13997: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13998: IF l_debug_mode = 'Y' THEN
13999: pa_debug.g_err_stage := 'Error obtaining the value of add task function allowed' ;
14000: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
14001: END IF;
14010: p_msg_data => x_msg_data,
14011: p_return_status => x_return_status,
14012: p_function_allowed => l_update_task_security);
14013:
14014: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14015: IF l_debug_mode = 'Y' THEN
14016: pa_debug.g_err_stage := 'Error obtaining the value of update task function allowed' ;
14017: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
14018: END IF;
14103: ,x_msg_count => x_msg_count
14104: ,x_msg_data => x_msg_data
14105: );
14106:
14107: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14108: IF l_debug_mode = 'Y' THEN
14109: pa_debug.g_err_stage := 'Error obtaining the structure version id' ;
14110: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
14111: END IF;
14249: ,p_attribute3 => ''
14250: ,p_attribute4 => ''
14251: ,p_attribute5 => '');
14252: END IF;
14253: px_tasks_out_tbl(i).return_status := FND_API.G_RET_STS_ERROR ;
14254: RAISE Invalid_Arg_Exc_WP;
14255: ELSE
14256: -- We need the differenciator only in the update project context.
14257: -- This is not done in create context to avoid cursor opening for each task.
14273: l_proj_elem_ver_rowid := null;
14274: l_obj_rel_rvn := null;
14275:
14276: -- Initialize the return status for the task record to success.
14277: px_tasks_out_tbl(i).return_status := FND_API.G_RET_STS_SUCCESS;
14278:
14279:
14280: -- Validation block
14281: -- validate security, task_reference and task names in appropriate contexts.
14324: ,p_attribute3 => ''
14325: ,p_attribute4 => ''
14326: ,p_attribute5 => '');
14327: END IF;
14328: px_tasks_out_tbl(i).return_status := FND_API.G_RET_STS_ERROR;
14329: RAISE Invalid_Arg_Exc_WP;
14330: END IF;
14331:
14332: --ADUT. The task name cannot be null. For financial tasks this is
14348: ,p_attribute4 => ''
14349: ,p_attribute5 => '');
14350: END IF;
14351:
14352: px_tasks_out_tbl(i).return_status := FND_API.G_RET_STS_ERROR;
14353: RAISE Invalid_Arg_Exc_WP;
14354: END IF;
14355: END IF; -- IF p_structure_type = 'WORKPLAN' THEN
14356:
14444: , p_out_task_id => l_cur_pa_tasks_rec.parent_task_id
14445: , p_return_status => x_return_status );
14446:
14447: px_tasks_out_tbl(i).return_status := x_return_status;
14448: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
14449: THEN
14450: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
14451: THEN
14452: pa_interface_utils_pub.map_new_amg_msg
14582: , p_out_task_id => l_cur_pa_tasks_rec.parent_task_id
14583: , p_return_status => x_return_status );
14584:
14585: px_tasks_out_tbl(i).return_status := x_return_status;
14586: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
14587: THEN
14588: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
14589: THEN
14590: pa_interface_utils_pub.map_new_amg_msg
14753:
14754: PA_TASK_PUB1.create_task(
14755: p_api_version => p_api_version_number
14756: ,p_commit => p_commit
14757: ,p_validate_only => FND_API.G_FALSE
14758: ,p_calling_module => p_calling_module
14759: ,p_debug_mode => l_debug_mode
14760: ,p_init_msg_list => FND_API.G_FALSE
14761: ,p_object_type => 'PA_TASKS'
14756: ,p_commit => p_commit
14757: ,p_validate_only => FND_API.G_FALSE
14758: ,p_calling_module => p_calling_module
14759: ,p_debug_mode => l_debug_mode
14760: ,p_init_msg_list => FND_API.G_FALSE
14761: ,p_object_type => 'PA_TASKS'
14762: ,p_project_id => p_project_id
14763: ,p_structure_id => l_structure_id
14764: ,p_task_number => l_task_in_rec.pa_task_number -- l_cur_pa_tasks_rec.task_number bug 6193314
14791: l_err_task_number := l_cur_pa_tasks_rec.task_number;
14792:
14793: px_tasks_out_tbl(i).return_status := x_return_status;
14794:
14795: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14796: IF l_debug_mode = 'Y' THEN
14797: pa_debug.g_err_stage := 'Error calling create task : ' || l_task_id ;
14798: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
14799: END IF;
14832: -- Bug 6717386
14833:
14834: PA_TASK_PUB1.Update_Task(
14835: p_calling_module => 'AMG'
14836: ,p_init_msg_list => FND_API.G_FALSE
14837: ,p_task_id => l_task_in_rec.pa_task_id
14838: ,p_task_number => l_task_in_rec.pa_task_number
14839: ,p_task_name => l_task_in_rec.long_task_name
14840: ,p_task_description => l_task_in_rec.task_description
14865: l_err_task_number := l_task_in_rec.pa_task_number;
14866:
14867: px_tasks_out_tbl(i).return_status := x_return_status;
14868:
14869: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14870: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
14871: ,p_msg_name => 'PA_PS_TASK_NOT_UPDATED'
14872: /* ADDED PROJECT_ID AND TASK_ID TOKENS FOR BUG 4219451 */
14873: ,p_token1 => 'PROJECT'
14895: --Call Update_One_Task to update financial attributes
14896: PA_PROJECT_PVT.Update_One_Task
14897: (
14898: p_api_version_number => p_api_version_number,
14899: p_commit => FND_API.G_FALSE,
14900: p_msg_count => x_msg_count,
14901: p_msg_data => x_msg_data,
14902: p_return_status => x_return_status,
14903: p_pm_product_code => p_pm_product_code,
14970: p_out_pm_task_reference => l_fin_task_reference
14971: );
14972: px_tasks_out_tbl(i).return_status := x_return_status;
14973:
14974: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14975: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
14976: ,p_msg_name => 'PA_PS_TASK_NOT_UPDATED'
14977: /* ADDED PROJECT_ID AND TASK_ID TOKENS FOR BUG 4219451 */
14978: ,p_token1 => 'PROJECT'
15376: ,p_attribute3 => ''
15377: ,p_attribute4 => ''
15378: ,p_attribute5 => '');
15379: END IF;
15380: RAISE FND_API.G_EXC_ERROR;
15381: END IF;
15382: END IF;
15383: --Bug 6153503
15384: ELSE -- update task case
15546: ,p_attribute3 => ''
15547: ,p_attribute4 => ''
15548: ,p_attribute5 => '');
15549: END IF;
15550: RAISE FND_API.G_EXC_ERROR;
15551: END IF;
15552: --Bug 6153503 end
15553:
15554:
15587: pa_debug.write(l_module_name,pa_debug.g_err_stage,
15588: l_debug_level6);
15589: END IF;
15590:
15591: x_return_status := FND_API.G_RET_STS_ERROR;
15592: px_tasks_out_tbl(i).return_status := x_return_status;
15593: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
15594: p_msg_name => l_error_msg_code);
15595: Raise Invalid_Arg_Exc_WP;
15798: ,x_return_status => x_return_status
15799: ,x_msg_count => x_msg_count
15800: ,x_msg_data => x_msg_data
15801: );
15802: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
15803: raise Invalid_Arg_Exc_WP;
15804: END IF;
15805: END IF;--for p_create_task_version_only = 'N'
15806: END IF;-- for p_structure_version_id IS NOT NULL
15927:
15928: PA_RELATIONSHIP_PUB.Create_Relationship
15929: (
15930: p_api_version => p_api_version_number
15931: ,p_init_msg_list => FND_API.G_FALSE
15932: ,p_commit => p_commit
15933: ,p_validate_only => FND_API.G_FALSE
15934: ,p_calling_module => p_calling_module
15935: ,p_debug_mode => l_debug_mode
15929: (
15930: p_api_version => p_api_version_number
15931: ,p_init_msg_list => FND_API.G_FALSE
15932: ,p_commit => p_commit
15933: ,p_validate_only => FND_API.G_FALSE
15934: ,p_calling_module => p_calling_module
15935: ,p_debug_mode => l_debug_mode
15936: ,p_project_id_from => p_project_id
15937: ,p_structure_id_from => l_structure_id
15951: ,x_msg_data => x_msg_data
15952: );
15953:
15954: px_tasks_out_tbl(i).return_status := x_return_status;
15955: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15956: IF l_debug_mode = 'Y' THEN
15957: pa_debug.g_err_stage := 'Error calling create relationship : ' || l_task_version_id ;
15958: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
15959: END IF;
15979:
15980: PA_RELATIONSHIP_PVT.Update_Relationship
15981: (
15982: p_api_version => p_api_version_number
15983: ,p_init_msg_list => FND_API.G_FALSE
15984: ,p_commit => p_commit
15985: ,p_validate_only => FND_API.G_FALSE
15986: ,p_calling_module => p_calling_module
15987: ,p_debug_mode => l_debug_mode
15981: (
15982: p_api_version => p_api_version_number
15983: ,p_init_msg_list => FND_API.G_FALSE
15984: ,p_commit => p_commit
15985: ,p_validate_only => FND_API.G_FALSE
15986: ,p_calling_module => p_calling_module
15987: ,p_debug_mode => l_debug_mode
15988: ,p_object_relationship_id => l_relationship_id
15989: ,p_project_id_from => null
16004: );
16005:
16006: px_tasks_out_tbl(i).return_status := x_return_status;
16007:
16008: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16009: IF l_debug_mode = 'Y' THEN
16010: pa_debug.g_err_stage := 'Error calling create relationship : ' || l_task_version_id ;
16011: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
16012: END IF;
16165: END IF;
16166:
16167: PA_TASK_PUB1.Create_Schedule_Version(
16168: p_element_version_id => l_task_version_id
16169: ,p_init_msg_list => FND_API.G_FALSE
16170: ,p_scheduled_start_date => l_scheduled_start_date
16171: ,p_scheduled_end_date => l_scheduled_finish_date
16172: ,p_calendar_id => l_task_in_rec.calendar_id
16173: ,p_obligation_start_date => l_task_in_rec.obligation_start_date
16222: -- end Bug 3654243 -------------------------------------------------------------------------
16223: );
16224:
16225: px_tasks_out_tbl(i).return_status := x_return_status;
16226: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16227: IF l_debug_mode = 'Y' THEN
16228: pa_debug.g_err_stage := 'Error calling create schedule version : ' || l_task_version_id ;
16229: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
16230: END IF;
16264: WHEN OTHERS THEN
16265: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
16266: p_procedure_name => 'PROCESS_TASK_STRUCTURE_BULK',
16267: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.add_planning_transactions:'||SQLERRM,1,240));
16268: raise fnd_api.g_exc_error;
16269: END;
16270:
16271: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16272: x_msg_count := FND_MSG_PUB.count_msg;
16267: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.add_planning_transactions:'||SQLERRM,1,240));
16268: raise fnd_api.g_exc_error;
16269: END;
16270:
16271: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16272: x_msg_count := FND_MSG_PUB.count_msg;
16273: raise fnd_api.g_exc_error;
16274: END IF;
16275: END IF; -- if l_add_task_ver_ids.exists(1) ends here
16269: END;
16270:
16271: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16272: x_msg_count := FND_MSG_PUB.count_msg;
16273: raise fnd_api.g_exc_error;
16274: END IF;
16275: END IF; -- if l_add_task_ver_ids.exists(1) ends here
16276: l_add_task_ver_ids.delete;
16277: l_add_planned_effort.delete;
16305: --if tasks are updated in bulk.
16306: --This should set for every single task.
16307: PA_TASK_PUB1.Update_Schedule_Version(
16308: p_calling_module => p_calling_module
16309: ,p_init_msg_list => FND_API.G_FALSE
16310: ,p_pev_schedule_id => l_ver_sch_attr_rec.pev_schedule_id
16311: ,p_calendar_id => l_task_in_rec.calendar_id
16312: ,p_scheduled_start_date => l_task_in_rec.scheduled_start_date
16313: ,p_scheduled_end_date => l_task_in_rec.scheduled_finish_date
16370: --end bug 4149392
16371:
16372: px_tasks_out_tbl(i).return_status := x_return_status;
16373:
16374: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16375: IF l_debug_mode = 'Y' THEN
16376: pa_debug.g_err_stage := 'Error calling update schedule version : ' || l_task_version_id ;
16377: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
16378: END IF;
16617: ,x_return_status => l_return_status
16618: ,x_msg_count => l_msg_count
16619: ,x_msg_data => l_msg_data);
16620:
16621: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
16622: Raise Invalid_Arg_Exc_WP;
16623: end if;
16624: --END IF;
16625:
16639: ,x_return_status => l_return_status
16640: ,x_msg_count => l_msg_count
16641: ,x_msg_data => l_msg_data );
16642:
16643: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
16644: Raise Invalid_Arg_Exc_WP;
16645: end if;
16646: END IF;
16647: END IF;
16670: ,x_msg_count => x_msg_count
16671: ,x_msg_data => x_msg_data
16672: );
16673:
16674: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16675: IF l_debug_mode = 'Y' THEN
16676: pa_debug.g_err_stage := 'Error in task status rollup : ' || l_structure_version_id ;
16677: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
16678: END IF;
16701: ,x_msg_count => x_msg_count
16702: ,x_msg_data => x_msg_data
16703: ,x_return_status => x_return_status
16704: );
16705: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16706: IF l_debug_mode = 'Y' THEN
16707: pa_debug.g_err_stage := 'Error in rollup dates : ' || l_structure_version_id ;
16708: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
16709: END IF;
16732: ,x_msg_count => x_msg_count
16733: ,x_msg_data => x_msg_data
16734: ,x_return_status => x_return_status
16735: );
16736: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16737: IF l_debug_mode = 'Y' THEN
16738: pa_debug.g_err_stage := 'Error in recalculate task weightings : ' || l_structure_version_id ;
16739: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
16740: END IF;
16775: ,x_msg_count => x_msg_count
16776: ,x_msg_data => x_msg_data ) ;
16777:
16778: -- Changed the way in which the error is handled.
16779: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16780: IF l_debug_mode = 'Y' THEN
16781: pa_debug.g_err_stage := 'Error in process_wbs_updates : ';
16782: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
16783: END IF;
16799: ,x_return_status => x_return_status
16800: ,x_msg_count => x_msg_count
16801: ,x_msg_data => x_msg_data ) ;
16802: -- Changed the way in which the error is handled.
16803: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16804: IF l_debug_mode = 'Y' THEN
16805: pa_debug.g_err_stage := 'Error in process_wbs_updates_conc_wrp : ';
16806: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level4);
16807: END IF;
16845: WHEN OTHERS THEN
16846: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
16847: p_procedure_name => 'PROCESS_TASK_STRUCTURE_BULK',
16848: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.add_planning_transactions:'||SQLERRM,1,240));
16849: raise fnd_api.g_exc_error;
16850: END;
16851:
16852: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16853: x_msg_count := FND_MSG_PUB.count_msg;
16848: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.add_planning_transactions:'||SQLERRM,1,240));
16849: raise fnd_api.g_exc_error;
16850: END;
16851:
16852: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16853: x_msg_count := FND_MSG_PUB.count_msg;
16854: raise fnd_api.g_exc_error;
16855: END IF;
16856: END IF; -- l_add_task_ver_ids.exists(1) THEN
16850: END;
16851:
16852: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16853: x_msg_count := FND_MSG_PUB.count_msg;
16854: raise fnd_api.g_exc_error;
16855: END IF;
16856: END IF; -- l_add_task_ver_ids.exists(1) THEN
16857:
16858: IF nvl(p_tasks_in_tbl.LAST,0) > 0 THEN
16983: WHEN OTHERS THEN
16984: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
16985: p_procedure_name => 'PROCESS_TASK_STRUCTURE_BULK',
16986: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.delete_planning_transactions:'||SQLERRM,1,240));
16987: raise fnd_api.g_exc_error;
16988: END;
16989:
16990: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16991: x_msg_count := FND_MSG_PUB.count_msg;
16986: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.delete_planning_transactions:'||SQLERRM,1,240));
16987: raise fnd_api.g_exc_error;
16988: END;
16989:
16990: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16991: x_msg_count := FND_MSG_PUB.count_msg;
16992: raise fnd_api.g_exc_error;
16993: END IF;
16994: END IF; -- l_del_task_ver_ids.exists(1) THEN
16988: END;
16989:
16990: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16991: x_msg_count := FND_MSG_PUB.count_msg;
16992: raise fnd_api.g_exc_error;
16993: END IF;
16994: END IF; -- l_del_task_ver_ids.exists(1) THEN
16995: l_del_task_ver_ids.delete;
16996: end if;
17016: WHEN OTHERS THEN
17017: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJECT_PUB',
17018: p_procedure_name => 'PROCESS_TASK_STRUCTURE_BULK',
17019: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.delete_planning_transactions:'||SQLERRM,1,240));
17020: raise fnd_api.g_exc_error;
17021: END;
17022:
17023: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17024: x_msg_count := FND_MSG_PUB.count_msg;
17019: p_error_text => SUBSTRB('pa_fp_planning_transaction_pub.delete_planning_transactions:'||SQLERRM,1,240));
17020: raise fnd_api.g_exc_error;
17021: END;
17022:
17023: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17024: x_msg_count := FND_MSG_PUB.count_msg;
17025: raise fnd_api.g_exc_error;
17026: END IF;
17027: END IF; -- l_del_task_ver_ids.exists(1) THEN
17021: END;
17022:
17023: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17024: x_msg_count := FND_MSG_PUB.count_msg;
17025: raise fnd_api.g_exc_error;
17026: END IF;
17027: END IF; -- l_del_task_ver_ids.exists(1) THEN
17028: END IF; --((p_structure_type = 'WORKPLAN' AND p_is_wp_separate_from_fn = 'Y') OR p_is_wp_separate_from_fn = 'N' )
17029: --Amit : Bug 3964548 End
17090: -- when others then
17091: -- fnd_msg_pub.add_exc_msg(p_pkg_name => 'pa_project_pub',
17092: -- p_procedure_name => 'CREATE_PROJECT',
17093: -- p_error_text => substrb('PA_TASK_PUB1.CALL_ADD_PLANNING_TXNS:'||sqlerrm,1,240));
17094: -- raise fnd_api.g_exc_error;
17095: -- end;
17096: --
17097: -- -- Calling pa_fp_planning_transaction_pub.delete_planning_transactions for higher level tasks.
17098: --
17117: -- when others then
17118: -- fnd_msg_pub.add_exc_msg(p_pkg_name => 'pa_project_pub',
17119: -- p_procedure_name => 'CREATE_PROJECT',
17120: -- p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.DELETE_PLANNING_TRANSACTIONS:'||SQLERRM,1,240));
17121: -- raise fnd_api.g_exc_error;
17122: -- end;
17123: --
17124: --/* Bug # 3420093 - Adding Progress Management modifications to create_project flow. */
17125: --
17178: -- when others then
17179: -- fnd_msg_pub.add_exc_msg(p_pkg_name => 'pa_project_pub',
17180: -- p_procedure_name => 'CREATE_PROJECT',
17181: -- p_error_text => substrb('PA_TASK_PUB1.CALL_ADD_PLANNING_TXNS:'||sqlerrm,1,240));
17182: -- raise fnd_api.g_exc_error;
17183: -- end;
17184: --
17185: -- -- Calling pa_fp_planning_transaction_pub.delete_planning_transactions for higher level tasks.
17186: --
17204: -- when others then
17205: -- fnd_msg_pub.add_exc_msg(p_pkg_name => 'pa_project_pub',
17206: -- p_procedure_name => 'CREATE_PROJECT',
17207: -- p_error_text => SUBSTRB('PA_FP_PLANNING_TRANSACTION_PUB.DELETE_PLANNING_TRANSACTIONS:'||SQLERRM,1,240));
17208: -- raise fnd_api.g_exc_error;
17209: -- end;
17210:
17211: --/* Bug # 3420093 - Adding Progress Management modifications to update_project flow. */
17212:
17229: pa_debug.write(l_module_name,pa_debug.g_err_stage,
17230: l_debug_level4);
17231: END IF;
17232:
17233: x_return_status := FND_API.G_RET_STS_ERROR;
17234: l_msg_count := FND_MSG_PUB.count_msg;
17235:
17236: -- IF cur_auto_pub_flag%ISOPEN THEN
17237: -- CLOSE cur_auto_pub_flag;
17283: END IF;
17284:
17285: IF l_msg_count = 1 and x_msg_data IS NULL THEN
17286: PA_INTERFACE_UTILS_PUB.get_messages
17287: (p_encoded => FND_API.G_TRUE
17288: ,p_msg_index => 1
17289: ,p_msg_count => l_msg_count
17290: ,p_msg_data => l_msg_data
17291: ,p_data => l_data
17299: IF l_debug_mode = 'Y' THEN
17300: pa_debug.reset_curr_function;
17301: END IF;
17302:
17303: IF p_commit = FND_API.G_TRUE THEN
17304: rollback to process_task_struc;
17305: END IF;
17306:
17307: RETURN;
17307: RETURN;
17308:
17309: WHEN others THEN
17310:
17311: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
17312: x_msg_count := 1;
17313: x_msg_data := SQLERRM;
17314:
17315: -- IF cur_auto_pub_flag%ISOPEN THEN
17374: pa_debug.reset_curr_function;
17375:
17376: END IF;
17377:
17378: IF p_commit = FND_API.G_TRUE THEN
17379: rollback to process_task_struc;
17380: END IF;
17381:
17382: -- rollback to process_task_struc; Commented during UT.
17439: if l_msg_count > 0 then
17440: x_msg_count := l_msg_count;
17441: if x_msg_count = 1 then
17442: pa_interface_utils_pub.get_messages
17443: (p_encoded => FND_API.G_TRUE,
17444: p_msg_index => 1,
17445: p_msg_count => l_msg_count,
17446: p_msg_data => l_msg_data,
17447: p_data => l_data,
17451: raise API_ERROR;
17452: end if;
17453: */
17454:
17455: x_return_status := FND_API.G_RET_STS_SUCCESS;
17456: EXCEPTION
17457: WHEN API_ERROR THEN
17458: x_return_status := FND_API.G_RET_STS_ERROR;
17459: rollback to plan_tasks;
17454:
17455: x_return_status := FND_API.G_RET_STS_SUCCESS;
17456: EXCEPTION
17457: WHEN API_ERROR THEN
17458: x_return_status := FND_API.G_RET_STS_ERROR;
17459: rollback to plan_tasks;
17460: WHEN OTHERS THEN
17461: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
17462: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
17457: WHEN API_ERROR THEN
17458: x_return_status := FND_API.G_RET_STS_ERROR;
17459: rollback to plan_tasks;
17460: WHEN OTHERS THEN
17461: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
17462: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
17463: p_procedure_name => 'delete_fin_plan_from_task',
17464: p_error_text => SUBSTRB(SQLERRM,1,240));
17465: rollback to plan_tasks;
17479: ==================================================================*/
17480:
17481: PROCEDURE PROCESS_WBS_UPDATES_WRP
17482: ( p_api_version_number IN NUMBER := 1.0
17483: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
17484: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
17485: ,p_calling_context IN VARCHAR2 := 'UPDATE'
17486: ,p_project_id IN pa_projects_all.project_id%TYPE
17487: ,p_structure_version_id IN pa_proj_element_versions.element_version_id%TYPE
17480:
17481: PROCEDURE PROCESS_WBS_UPDATES_WRP
17482: ( p_api_version_number IN NUMBER := 1.0
17483: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
17484: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
17485: ,p_calling_context IN VARCHAR2 := 'UPDATE'
17486: ,p_project_id IN pa_projects_all.project_id%TYPE
17487: ,p_structure_version_id IN pa_proj_element_versions.element_version_id%TYPE
17488: ,p_pub_struc_ver_id IN NUMBER := NULL
17539: RAISE Invalid_Arg_Exc_WP;
17540: END IF;
17541: --Bug# 5973460
17542:
17543: IF p_init_msg_list = FND_API.G_TRUE THEN
17544: FND_MSG_PUB.initialize;
17545: END IF;
17546:
17547: x_msg_count := 0;
17544: FND_MSG_PUB.initialize;
17545: END IF;
17546:
17547: x_msg_count := 0;
17548: x_return_status := FND_API.G_RET_STS_SUCCESS;
17549: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
17550:
17551: IF l_debug_mode = 'Y' THEN
17552: pa_debug.g_err_stage:= 'Entering PROCESS_WBS_UPDATES_WRP';
17641: ,x_return_status => x_return_status
17642: ,x_msg_count => x_msg_count
17643: ,x_msg_data => x_msg_data
17644: );
17645: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17646: IF l_debug_mode = 'Y' THEN
17647: pa_debug.g_err_stage := 'Error calling online wbs update process ';
17648: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level4);
17649: END IF;
17660: ,x_return_status => x_return_status
17661: ,x_msg_count => x_msg_count
17662: ,x_msg_data => x_msg_data
17663: );
17664: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17665: IF l_debug_mode = 'Y' THEN
17666: pa_debug.g_err_stage := 'Error calling concurrent wbs update process ';
17667: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level4);
17668: END IF;
17680: EXCEPTION
17681:
17682: WHEN Invalid_Arg_Exc_WP THEN
17683:
17684: x_return_status := FND_API.G_RET_STS_ERROR;
17685: l_msg_count := FND_MSG_PUB.count_msg;
17686:
17687: IF cur_task_count%ISOPEN THEN
17688: CLOSE cur_task_count;
17689: END IF;
17690:
17691: IF l_msg_count = 1 and x_msg_data IS NULL THEN
17692: PA_INTERFACE_UTILS_PUB.get_messages
17693: (p_encoded => FND_API.G_TRUE
17694: ,p_msg_index => 1
17695: ,p_msg_count => l_msg_count
17696: ,p_msg_data => l_msg_data
17697: ,p_data => l_data
17708: RETURN;
17709:
17710: WHEN others THEN
17711:
17712: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
17713: x_msg_count := 1;
17714: x_msg_data := SQLERRM;
17715:
17716: IF cur_task_count%ISOPEN THEN
17739: ==================================================================*/
17740:
17741: PROCEDURE PROCESS_WBS_UPDATES_CONC_WRP
17742: ( p_api_version_number IN NUMBER := 1.0
17743: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
17744: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
17745: ,p_calling_context IN VARCHAR2 := 'UPDATE'
17746: ,p_project_id IN pa_projects_all.project_id%TYPE
17747: ,p_structure_version_id IN pa_proj_element_versions.element_version_id%TYPE
17740:
17741: PROCEDURE PROCESS_WBS_UPDATES_CONC_WRP
17742: ( p_api_version_number IN NUMBER := 1.0
17743: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
17744: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
17745: ,p_calling_context IN VARCHAR2 := 'UPDATE'
17746: ,p_project_id IN pa_projects_all.project_id%TYPE
17747: ,p_structure_version_id IN pa_proj_element_versions.element_version_id%TYPE
17748: ,p_pub_struc_ver_id IN NUMBER := NULL
17820:
17821: -- 4683461 Done
17822:
17823: BEGIN
17824: IF p_init_msg_list = FND_API.G_TRUE THEN
17825: FND_MSG_PUB.initialize;
17826: END IF;
17827:
17828: x_msg_count := 0;
17825: FND_MSG_PUB.initialize;
17826: END IF;
17827:
17828: x_msg_count := 0;
17829: x_return_status := FND_API.G_RET_STS_SUCCESS;
17830: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
17831:
17832: IF l_debug_mode = 'Y' THEN
17833: pa_debug.g_err_stage:= 'Entering PROCESS_WBS_UPDATES_CONC_WRP';
18035: ,x_return_status => x_return_status
18036: ,x_msg_count => x_msg_count
18037: ,x_msg_data => x_msg_data
18038: );
18039: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
18040: IF l_debug_mode = 'Y' THEN
18041: pa_debug.g_err_stage := 'Error calling the financial planning API after submitting the concurrent request';
18042: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level4);
18043: END IF;
18059: EXCEPTION
18060:
18061: WHEN Invalid_Arg_Exc_WP THEN
18062:
18063: x_return_status := FND_API.G_RET_STS_ERROR;
18064: l_msg_count := FND_MSG_PUB.count_msg;
18065:
18066: IF l_msg_count = 1 and x_msg_data IS NULL THEN
18067: PA_INTERFACE_UTILS_PUB.get_messages
18064: l_msg_count := FND_MSG_PUB.count_msg;
18065:
18066: IF l_msg_count = 1 and x_msg_data IS NULL THEN
18067: PA_INTERFACE_UTILS_PUB.get_messages
18068: (p_encoded => FND_API.G_TRUE
18069: ,p_msg_index => 1
18070: ,p_msg_count => l_msg_count
18071: ,p_msg_data => l_msg_data
18072: ,p_data => l_data
18083: RETURN;
18084:
18085: WHEN others THEN
18086:
18087: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
18088: x_msg_count := 1;
18089: x_msg_data := SQLERRM;
18090:
18091: FND_MSG_PUB.add_exc_msg
18193: ,x_return_status => l_return_status
18194: ,x_msg_count => l_msg_count
18195: ,x_msg_data => l_msg_data
18196: );
18197: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
18198: IF l_debug_mode = 'Y' THEN
18199: pa_debug.g_err_stage := 'Error calling process wbs updates API ';
18200: pa_debug.log_message(p_message => pa_debug.g_err_stage);
18201: END IF;
18247: retcode := '2';
18248:
18249: IF l_msg_count >= 1 THEN
18250: PA_INTERFACE_UTILS_PUB.get_messages
18251: (p_encoded => FND_API.G_FALSE -- Bug 4348814 : Made false from true FND_API.G_TRUE
18252: ,p_msg_index => 1
18253: ,p_msg_count => l_msg_count
18254: ,p_msg_data => l_msg_data
18255: ,p_data => l_data
18316: ,x_return_status => l_return_status
18317: ,x_msg_count => l_msg_count
18318: ,x_msg_data => l_msg_data);
18319:
18320: if (l_return_status = FND_API.G_RET_STS_SUCCESS) then
18321:
18322: commit;
18323:
18324: end if;
18401: ,x_return_status => l_return_status
18402: ,x_msg_count => l_msg_count
18403: ,x_msg_data => l_msg_data);
18404:
18405: if (l_return_status = FND_API.G_RET_STS_SUCCESS) then
18406:
18407: commit;
18408:
18409: end if;
18433: ==================================================================*/
18434:
18435: PROCEDURE PROCESS_WBS_UPDATES
18436: ( p_api_version_number IN NUMBER := 1.0
18437: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
18438: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
18439: ,p_calling_context IN VARCHAR2 := 'UPDATE'
18440: ,p_project_id IN pa_projects_all.project_id%TYPE
18441: ,p_structure_version_id IN pa_proj_element_versions.element_version_id%TYPE
18434:
18435: PROCEDURE PROCESS_WBS_UPDATES
18436: ( p_api_version_number IN NUMBER := 1.0
18437: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
18438: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
18439: ,p_calling_context IN VARCHAR2 := 'UPDATE'
18440: ,p_project_id IN pa_projects_all.project_id%TYPE
18441: ,p_structure_version_id IN pa_proj_element_versions.element_version_id%TYPE
18442: ,p_pub_struc_ver_id IN NUMBER := NULL
18568: l_plan_version_id NUMBER; --bug 4587145
18569: l_pub_wp_ok VARCHAR2(1) := 'N'; --bug 5029112
18570:
18571: BEGIN
18572: IF p_commit = FND_API.G_TRUE THEN
18573: savepoint process_wbs_updates;
18574: END IF;
18575:
18576: IF p_init_msg_list = FND_API.G_TRUE THEN
18572: IF p_commit = FND_API.G_TRUE THEN
18573: savepoint process_wbs_updates;
18574: END IF;
18575:
18576: IF p_init_msg_list = FND_API.G_TRUE THEN
18577: FND_MSG_PUB.initialize;
18578: END IF;
18579:
18580: x_msg_count := 0;
18577: FND_MSG_PUB.initialize;
18578: END IF;
18579:
18580: x_msg_count := 0;
18581: x_return_status := FND_API.G_RET_STS_SUCCESS;
18582: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
18583:
18584: IF l_debug_mode = 'Y' THEN
18585: pa_debug.write(G_PKG_NAME, 'Entering PROCESS_WBS_UPDATES', 3);
18645: pa_debug.write(G_PKG_NAME, 'Calling populate_pji_tab_for_plan' , 3);
18646: END IF;
18647:
18648: pa_progress_pub.populate_pji_tab_for_plan(
18649: p_init_msg_list => FND_API.G_FALSE
18650: ,p_commit => FND_API.G_FALSE
18651: ,p_project_id => p_Project_ID
18652: ,p_structure_version_id => p_structure_version_id
18653: ,p_baselined_str_ver_id => p_structure_version_id
18646: END IF;
18647:
18648: pa_progress_pub.populate_pji_tab_for_plan(
18649: p_init_msg_list => FND_API.G_FALSE
18650: ,p_commit => FND_API.G_FALSE
18651: ,p_project_id => p_Project_ID
18652: ,p_structure_version_id => p_structure_version_id
18653: ,p_baselined_str_ver_id => p_structure_version_id
18654: ,p_structure_type => 'WORKPLAN'
18660: IF l_debug_mode = 'Y' THEN
18661: pa_debug.write(G_PKG_NAME, 'After populate_pji_tab_for_plan x_return_status='|| x_return_status, 3);
18662: END IF;
18663:
18664: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
18665: raise Invalid_Arg_Exc_WP;
18666: END IF;
18667: IF l_debug_mode = 'Y' THEN
18668: pa_debug.write(G_PKG_NAME, 'Calling ROLLUP_PROGRESS_PVT', 3);
18668: pa_debug.write(G_PKG_NAME, 'Calling ROLLUP_PROGRESS_PVT', 3);
18669: END IF;
18670:
18671: PA_PROGRESS_PVT.ROLLUP_PROGRESS_PVT(
18672: p_init_msg_list => FND_API.G_FALSE
18673: ,p_commit => FND_API.G_FALSE
18674: ,p_project_id => p_Project_ID
18675: ,p_structure_version_id => p_structure_version_id
18676: ,p_as_of_date => l_as_of_date
18669: END IF;
18670:
18671: PA_PROGRESS_PVT.ROLLUP_PROGRESS_PVT(
18672: p_init_msg_list => FND_API.G_FALSE
18673: ,p_commit => FND_API.G_FALSE
18674: ,p_project_id => p_Project_ID
18675: ,p_structure_version_id => p_structure_version_id
18676: ,p_as_of_date => l_as_of_date
18677: ,p_wp_rollup_method => l_task_weight_basis_code
18684: IF l_debug_mode = 'Y' THEN
18685: pa_debug.write(G_PKG_NAME, 'After ROLLUP_PROGRESS_PVT x_return_status='|| x_return_status, 3);
18686: END IF;
18687:
18688: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
18689: raise Invalid_Arg_Exc_WP;
18690: END IF;
18691: IF l_debug_mode = 'Y' THEN
18692: pa_debug.write(G_PKG_NAME, 'Calling PROGRAM_ROLLUP_PVT', 3);
18692: pa_debug.write(G_PKG_NAME, 'Calling PROGRAM_ROLLUP_PVT', 3);
18693: END IF;
18694:
18695: PA_PROGRESS_PVT.PROGRAM_ROLLUP_PVT(
18696: p_init_msg_list => FND_API.G_FALSE
18697: ,p_commit => FND_API.G_FALSE
18698: ,p_validate_only => FND_API.G_FALSE
18699: ,p_calling_module => p_calling_context
18700: ,p_project_id => p_Project_ID
18693: END IF;
18694:
18695: PA_PROGRESS_PVT.PROGRAM_ROLLUP_PVT(
18696: p_init_msg_list => FND_API.G_FALSE
18697: ,p_commit => FND_API.G_FALSE
18698: ,p_validate_only => FND_API.G_FALSE
18699: ,p_calling_module => p_calling_context
18700: ,p_project_id => p_Project_ID
18701: ,p_as_of_date => l_as_of_date
18694:
18695: PA_PROGRESS_PVT.PROGRAM_ROLLUP_PVT(
18696: p_init_msg_list => FND_API.G_FALSE
18697: ,p_commit => FND_API.G_FALSE
18698: ,p_validate_only => FND_API.G_FALSE
18699: ,p_calling_module => p_calling_context
18700: ,p_project_id => p_Project_ID
18701: ,p_as_of_date => l_as_of_date
18702: ,p_structure_type => 'WORKPLAN'
18708: IF l_debug_mode = 'Y' THEN
18709: pa_debug.write(G_PKG_NAME, 'After PROGRAM_ROLLUP_PVT x_return_status='|| x_return_status, 3);
18710: END IF;
18711:
18712: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
18713: raise Invalid_Arg_Exc_WP;
18714: END IF; --- bug 4492493
18715:
18716: -- Begin code to fix Bug # 4262985.
18755: p_error_text => SUBSTRB('Call of PJI_FM_XBS_ACCUM_MAINT.WBS_MAINT Failed in Apply Progress Mode: SQLERRM='||SQLERRM,1,240));
18756: RAISE Invalid_Arg_Exc_WP;
18757: END;
18758:
18759: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
18760: raise Invalid_Arg_Exc_WP;
18761: END IF;
18762: END IF; -- l_update_wbs_flag = 'Y'
18763:
18779: END IF;
18780:
18781: END IF;
18782:
18783: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
18784: raise Invalid_Arg_Exc_WP;
18785: END IF;
18786:
18787: ELSE -- IF (p_calling_context = 'ONLINE_APPLY_PROGRESS' OR p_calling_context = 'CONC_APPLY_PROGRESS') THEN
18823: END IF;
18824:
18825: /*
18826: IF nvl(l_structure_type_flag,'N') = 'Y' THEN
18827: x_return_status := FND_API.G_RET_STS_SUCCESS;
18828: -- Call the financial planning API.
18829: pa_fp_refresh_elements_pub.refresh_planning_elements(
18830: p_project_id => p_project_id
18831: ,p_request_id => l_request_id
18832: ,x_return_status => x_return_status
18833: ,x_msg_count => x_msg_count
18834: ,x_msg_data => x_msg_data
18835: );
18836: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
18837: IF l_debug_mode = 'Y' THEN
18838: pa_debug.g_err_stage := 'Error calling the financial planning API';
18839: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,l_debug_level4);
18840: END IF;
18849: AND p_calling_context IN ( 'ONLINE_UPDATE', 'CONC_UPDATE' ) --bug 4472071
18850: AND ( l_share_flag = 'N' OR l_workplan_type = 'N' ) --call WBS maint only if the project is either split financial or financial only.
18851: then
18852:
18853: x_return_status := FND_API.G_RET_STS_SUCCESS;
18854:
18855: -- Call the PJI API.
18856:
18857: PJI_FM_XBS_ACCUM_MAINT.WBS_MAINT(
18867: ,x_return_status => x_return_status
18868: ,x_online_flag => l_out_online_flag
18869: );
18870:
18871: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
18872:
18873: if l_debug_mode = 'Y' then
18874:
18875: pa_debug.g_err_stage := 'Error calling the financial planning API';
19051: ' working verison:SQLERRM='||SQLERRM,1,120));
19052: RAISE Invalid_Arg_Exc_WP;
19053: END;
19054:
19055: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
19056: Raise Invalid_Arg_Exc_WP;
19057: END IF;
19058:
19059: --end bug 4587145
19086: IF l_debug_mode = 'Y' THEN
19087: pa_debug.write(G_PKG_NAME, 'After Copy_Intra_Dependency X_Return_Status='||X_Return_Status, 3);
19088: END IF;
19089:
19090: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19091: RAISE Invalid_Arg_Exc_WP;
19092: END IF;
19093:
19094: IF l_debug_mode = 'Y' THEN
19107: IF l_debug_mode = 'Y' THEN
19108: pa_debug.write(G_PKG_NAME, 'After Publish_Inter_Proj_Dep X_Return_Status='||X_Return_Status, 3);
19109: END IF;
19110:
19111: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19112: RAISE Invalid_Arg_Exc_WP;
19113: END IF;
19114:
19115: IF l_debug_mode = 'Y' THEN
19129: IF l_debug_mode = 'Y' THEN
19130: pa_debug.write(G_PKG_NAME, 'After Copy_OG_Lnk_For_Subproj_Ass X_Return_Status='||X_Return_Status, 3);
19131: END IF;
19132:
19133: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19134: RAISE Invalid_Arg_Exc_WP;
19135: END IF;
19136:
19137:
19150: IF l_debug_mode = 'Y' THEN
19151: pa_debug.write(G_PKG_NAME, 'After Move_CI_Lnk_For_subproj_step1 X_Return_Status='||X_Return_Status, 3);
19152: END IF;
19153:
19154: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19155: RAISE Invalid_Arg_Exc_WP;
19156: END IF;
19157:
19158: IF l_debug_mode = 'Y' THEN
19174: IF l_debug_mode = 'Y' THEN
19175: pa_debug.write(G_PKG_NAME, 'After copy_mapping X_Return_Status='||X_Return_Status, 3);
19176: END IF;
19177:
19178: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19179: RAISE Invalid_Arg_Exc_WP;
19180: END IF;
19181:
19182: DECLARE
19229: p_error_text => SUBSTRB('Call of PA_FP_COPY_FROM_PKG.copy_wp_budget_versions failed: SQLERRM='||SQLERRM,1,240));
19230: RAISE Invalid_Arg_Exc_WP;
19231: END;
19232:
19233: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19234: RAISE Invalid_Arg_Exc_WP;
19235: END IF;
19236: END;
19237:
19390: IF l_debug_mode = 'Y' THEN
19391: pa_debug.write(G_PKG_NAME, 'After calling PA_STRUCT_TASK_ROLLUP_PUB.Program_Schedule_dates_rollup for entire grid in PUBLISH mode x_return_status='||x_return_status, 3);
19392: END IF;
19393:
19394: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19395: RAISE Invalid_Arg_Exc_WP;
19396: END IF;
19397: END IF;
19398:
19417: IF l_debug_mode = 'Y' THEN
19418: pa_debug.write(G_PKG_NAME, 'After calling PA_STRUCT_TASK_ROLLUP_PUB.Program_Schedule_dates_rollup for published structure version in PUBLISH mode x_return_status='||x_return_status, 3);
19419: END IF;
19420:
19421: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19422: RAISE Invalid_Arg_Exc_WP;
19423: END IF;
19424:
19425: END IF;
19443: IF l_debug_mode = 'Y' THEN
19444: pa_debug.write(G_PKG_NAME, 'After Task_Stat_Pushdown_Rollup x_return_status='|| x_return_status, 3);
19445: END IF;
19446:
19447: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19448: RAISE Invalid_Arg_Exc_WP;
19449: END IF;
19450: --End bug 4555289
19451:
19485: RAISE Invalid_Arg_Exc_WP;
19486: END;
19487: --endbug 3762882
19488:
19489: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
19490: Raise Invalid_Arg_Exc_WP;
19491: END IF;
19492:
19493: -- Added this for FP_M changes -- Bhumesh
19507: IF l_debug_mode = 'Y' THEN
19508: pa_debug.write(G_PKG_NAME, 'After Pull_Summarized_Actuals x_return_status='|| x_return_status, 3);
19509: END IF;
19510:
19511: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19512: RAISE Invalid_Arg_Exc_WP;
19513: END IF;
19514:
19515: --bug 4232150 Moved from above to be called after summarization.
19528: pa_debug.write(G_PKG_NAME, 'Calling UPDATE_PROJECT_DATES', 3);
19529: END IF;
19530:
19531: PA_PROJECT_DATES_PUB.UPDATE_PROJECT_DATES (
19532: p_validate_only => FND_API.G_FALSE
19533: ,p_project_id => l_project_id
19534: ,p_date_type => 'SCHEDULED'
19535: ,p_start_date => l_scheduled_start_date
19536: ,p_finish_date => l_scheduled_finish_date
19577: IF l_debug_mode = 'Y' THEN
19578: pa_debug.write(G_PKG_NAME, 'After COPY_PROJECT_DATES x_return_status='|| x_return_status, 3);
19579: END IF;
19580:
19581: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19582: raise Invalid_Arg_Exc_WP;
19583: END IF;
19584:
19585: END IF;
19610: IF l_debug_mode = 'Y' THEN
19611: pa_debug.write(G_PKG_NAME, 'After Publish_Progress x_return_status='|| x_return_status, 3);
19612: END IF;
19613:
19614: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19615: raise Invalid_Arg_Exc_WP;
19616: END IF;
19617: END IF; -- p_pub_prog_flag = 'Y' THEN
19618:
19647: IF l_debug_mode = 'Y' THEN
19648: pa_debug.write(G_PKG_NAME, 'After COPY_PROGRESS_ACT_ETC x_return_status='|| x_return_status, 3);
19649: END IF;
19650:
19651: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19652: raise Invalid_Arg_Exc_WP;
19653: END IF;
19654:
19655: --bug 4149392
19703: RAISE Invalid_Arg_Exc_WP;
19704: END;
19705: -- Bug 4284444
19706:
19707: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
19708: Raise Invalid_Arg_Exc_WP;
19709: END IF;
19710:
19711: --end bug 4149392
19717: pa_debug.write(G_PKG_NAME, 'Calling populate_pji_tab_for_plan' , 3);
19718: END IF;
19719:
19720: pa_progress_pub.populate_pji_tab_for_plan(
19721: p_init_msg_list => FND_API.G_FALSE
19722: ,p_commit => FND_API.G_FALSE
19723: ,p_project_id => l_Project_ID
19724: ,p_structure_version_id => l_pub_ver_id
19725: ,p_baselined_str_ver_id => PA_PROJECT_STRUCTURE_UTILS.Get_Baseline_Struct_Ver(l_Project_ID)
19718: END IF;
19719:
19720: pa_progress_pub.populate_pji_tab_for_plan(
19721: p_init_msg_list => FND_API.G_FALSE
19722: ,p_commit => FND_API.G_FALSE
19723: ,p_project_id => l_Project_ID
19724: ,p_structure_version_id => l_pub_ver_id
19725: ,p_baselined_str_ver_id => PA_PROJECT_STRUCTURE_UTILS.Get_Baseline_Struct_Ver(l_Project_ID)
19726: ,p_structure_type => 'WORKPLAN'
19734: IF l_debug_mode = 'Y' THEN
19735: pa_debug.write(G_PKG_NAME, 'After populate_pji_tab_for_plan x_return_status='|| x_return_status, 3);
19736: END IF;
19737:
19738: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19739: raise Invalid_Arg_Exc_WP;
19740: END IF;
19741:
19742: IF l_debug_mode = 'Y' THEN
19743: pa_debug.write(G_PKG_NAME, 'Calling ROLLUP_PROGRESS_PVT', 3);
19744: END IF;
19745:
19746: PA_PROGRESS_PVT.ROLLUP_PROGRESS_PVT(
19747: p_init_msg_list => FND_API.G_FALSE
19748: ,p_commit => FND_API.G_FALSE
19749: ,p_project_id => l_Project_ID
19750: ,p_structure_version_id => l_pub_ver_id
19751: ,p_as_of_date => l_as_of_date
19744: END IF;
19745:
19746: PA_PROGRESS_PVT.ROLLUP_PROGRESS_PVT(
19747: p_init_msg_list => FND_API.G_FALSE
19748: ,p_commit => FND_API.G_FALSE
19749: ,p_project_id => l_Project_ID
19750: ,p_structure_version_id => l_pub_ver_id
19751: ,p_as_of_date => l_as_of_date
19752: ,p_wp_rollup_method => l_task_weight_basis_code
19760: IF l_debug_mode = 'Y' THEN
19761: pa_debug.write(G_PKG_NAME, 'After ROLLUP_PROGRESS_PVT x_return_status='|| x_return_status, 3);
19762: END IF;
19763:
19764: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19765: raise Invalid_Arg_Exc_WP;
19766: END IF;
19767: -- 4575855 : Do not call PROGRAM_ROLLUP_PVT
19768: -- instead we are calling now ROLLUP_PROG_FROM_SUBPROJS
19773: pa_debug.write(G_PKG_NAME, 'Calling PROGRAM_ROLLUP_PVT', 3);
19774: END IF;
19775:
19776: PA_PROGRESS_PVT.PROGRAM_ROLLUP_PVT(
19777: p_init_msg_list => FND_API.G_FALSE
19778: ,p_commit => FND_API.G_FALSE
19779: ,p_validate_only => FND_API.G_FALSE
19780: ,p_project_id => l_Project_ID
19781: ,p_as_of_date => l_as_of_date
19774: END IF;
19775:
19776: PA_PROGRESS_PVT.PROGRAM_ROLLUP_PVT(
19777: p_init_msg_list => FND_API.G_FALSE
19778: ,p_commit => FND_API.G_FALSE
19779: ,p_validate_only => FND_API.G_FALSE
19780: ,p_project_id => l_Project_ID
19781: ,p_as_of_date => l_as_of_date
19782: ,p_structure_type => 'WORKPLAN'
19775:
19776: PA_PROGRESS_PVT.PROGRAM_ROLLUP_PVT(
19777: p_init_msg_list => FND_API.G_FALSE
19778: ,p_commit => FND_API.G_FALSE
19779: ,p_validate_only => FND_API.G_FALSE
19780: ,p_project_id => l_Project_ID
19781: ,p_as_of_date => l_as_of_date
19782: ,p_structure_type => 'WORKPLAN'
19783: ,p_structure_ver_id => l_pub_ver_id
19788: IF l_debug_mode = 'Y' THEN
19789: pa_debug.write(G_PKG_NAME, 'After PROGRAM_ROLLUP_PVT x_return_status='|| x_return_status, 3);
19790: END IF;
19791:
19792: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19793: raise Invalid_Arg_Exc_WP;
19794: END IF;
19795: */
19796: END IF; -- p_pub_prog_flag = 'Y' AND l_as_of_date IS NOT NULL THEN
19801: pa_debug.write(G_PKG_NAME, 'Calling ROLLUP_PROG_FROM_SUBPROJS', 3);
19802: END IF;
19803:
19804: PA_PROGRESS_PVT.ROLLUP_PROG_FROM_SUBPROJS(
19805: p_init_msg_list => FND_API.G_FALSE
19806: ,p_commit => FND_API.G_FALSE
19807: ,p_validate_only => FND_API.G_FALSE
19808: ,p_project_id => l_Project_ID
19809: ,p_structure_version_id => l_pub_ver_id
19802: END IF;
19803:
19804: PA_PROGRESS_PVT.ROLLUP_PROG_FROM_SUBPROJS(
19805: p_init_msg_list => FND_API.G_FALSE
19806: ,p_commit => FND_API.G_FALSE
19807: ,p_validate_only => FND_API.G_FALSE
19808: ,p_project_id => l_Project_ID
19809: ,p_structure_version_id => l_pub_ver_id
19810: ,x_return_status => x_return_status
19803:
19804: PA_PROGRESS_PVT.ROLLUP_PROG_FROM_SUBPROJS(
19805: p_init_msg_list => FND_API.G_FALSE
19806: ,p_commit => FND_API.G_FALSE
19807: ,p_validate_only => FND_API.G_FALSE
19808: ,p_project_id => l_Project_ID
19809: ,p_structure_version_id => l_pub_ver_id
19810: ,x_return_status => x_return_status
19811: ,x_msg_count => x_msg_count
19814: IF l_debug_mode = 'Y' THEN
19815: pa_debug.write(G_PKG_NAME, 'After ROLLUP_PROG_FROM_SUBPROJS x_return_status='|| x_return_status, 3);
19816: END IF;
19817:
19818: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19819: raise Invalid_Arg_Exc_WP;
19820: END IF;
19821:
19822: --bug 3851528
19836: IF l_debug_mode = 'Y' THEN
19837: pa_debug.write(G_PKG_NAME, 'After clear_prog_outdated_flag x_return_status='|| x_return_status, 3);
19838: END IF;
19839:
19840: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19841: raise Invalid_Arg_Exc_WP;
19842: END IF;
19843: END IF; -- p_pub_prog_flag = 'Y' THEN
19844: --end bug 4019845, publishing changes
19871: IF l_debug_mode = 'Y' THEN
19872: pa_debug.write(G_PKG_NAME, 'After UPDATE_PARENT_WBS_FLAG_DIRTY x_return_status='|| x_return_status, 3);
19873: END IF;
19874:
19875: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19876: raise Invalid_Arg_Exc_WP;
19877: END IF;
19878: */
19879:
19895: IF l_debug_mode = 'Y' THEN
19896: pa_debug.write(G_PKG_NAME, 'After pa_proj_task_struc_pub.set_update_wbs_flag for published version x_return_status='|| x_return_status, 3);
19897: END IF;
19898:
19899: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19900: raise Invalid_Arg_Exc_WP;
19901: END IF;
19902: --bug 4479392
19903:
19943: p_error_text => SUBSTRB('Call of PJI_FM_XBS_ACCUM_MAINT.WBS_MAINT Failed in Update Mode: SQLERRM='||SQLERRM,1,240));
19944: RAISE Invalid_Arg_Exc_WP;
19945: END;
19946:
19947: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
19948: Raise Invalid_Arg_Exc_WP;
19949: END IF;
19950:
19951: --copy task bug 4186512
20000:
20001: --end copy task bug 4186512
20002:
20003: -- Bug 4284444
20004: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
20005: Raise Invalid_Arg_Exc_WP;
20006: END IF;
20007:
20008: -- Bug 4284444 : Commented the below code
20033: IF l_debug_mode = 'Y' THEN
20034: pa_debug.write(G_PKG_NAME, 'After PROCESS_TASK_WEIGHTAGE x_return_status='|| x_return_status, 3);
20035: END IF;
20036:
20037: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
20038: Raise Invalid_Arg_Exc_WP;
20039: END IF;
20040: END IF;
20041: --bug 3035902 maansari
20044: -- Bug 3764224 : Moved populate_pji_tab_for_plan in RE_ROLLUP_PROGRESS
20045: -- Bug 3693757 : 13-Jul-04 PJI tmp1 table shd be populated so that rollup API can access actuals values in RE_ROLLUP_PROGRESS
20046: /* BEGIN
20047: pa_progress_pub.populate_pji_tab_for_plan(
20048: p_init_msg_list => FND_API.G_FALSE,
20049: p_project_id => p_project_id,
20050: p_structure_version_id => p_structure_version_id,
20051: -- p_baselined_str_ver_id => l_baselined_str_ver_id,
20052: p_structure_type => 'WORKPLAN',
20054: x_msg_count => x_msg_count,
20055: x_msg_data => x_msg_data
20056: );
20057:
20058: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
20059: Raise Invalid_Arg_Exc_WP;
20060: END IF;
20061: EXCEPTION
20062: WHEN OTHERS THEN
20062: WHEN OTHERS THEN
20063: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
20064: p_procedure_name => 'PROCESS_WBS_UPDATES',
20065: p_error_text => SUBSTRB('PA_PROGRESS_PUB.populate_pji_tab_for_plan:'||SQLERRM,1,240));
20066: RAISE FND_API.G_EXC_ERROR;
20067: END;
20068: */
20069:
20070: IF nvl(l_structure_type_flag,'N') = 'Y' THEN --fpm progress management changes
20090: pa_debug.write(G_PKG_NAME, 'Calling ROLLUP_PROG_FROM_SUBPROJS', 3);
20091: END IF;
20092:
20093: PA_PROGRESS_PVT.ROLLUP_PROG_FROM_SUBPROJS(
20094: p_init_msg_list => FND_API.G_FALSE
20095: ,p_commit => FND_API.G_FALSE
20096: ,p_validate_only => FND_API.G_FALSE
20097: ,p_project_id => p_project_id
20098: ,p_structure_version_id => l_pub_ver_id
20091: END IF;
20092:
20093: PA_PROGRESS_PVT.ROLLUP_PROG_FROM_SUBPROJS(
20094: p_init_msg_list => FND_API.G_FALSE
20095: ,p_commit => FND_API.G_FALSE
20096: ,p_validate_only => FND_API.G_FALSE
20097: ,p_project_id => p_project_id
20098: ,p_structure_version_id => l_pub_ver_id
20099: ,x_return_status => x_return_status
20092:
20093: PA_PROGRESS_PVT.ROLLUP_PROG_FROM_SUBPROJS(
20094: p_init_msg_list => FND_API.G_FALSE
20095: ,p_commit => FND_API.G_FALSE
20096: ,p_validate_only => FND_API.G_FALSE
20097: ,p_project_id => p_project_id
20098: ,p_structure_version_id => l_pub_ver_id
20099: ,x_return_status => x_return_status
20100: ,x_msg_count => x_msg_count
20103: IF l_debug_mode = 'Y' THEN
20104: pa_debug.write(G_PKG_NAME, 'After ROLLUP_PROG_FROM_SUBPROJS x_return_status='|| x_return_status, 3);
20105: END IF;
20106:
20107: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
20108: raise Invalid_Arg_Exc_WP;
20109: END IF;
20110: END IF;
20111:
20110: END IF;
20111:
20112: END IF;
20113:
20114: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
20115: Raise Invalid_Arg_Exc_WP;
20116: END IF;
20117:
20118: --bug 4541039
20133: IF l_debug_mode = 'Y' THEN
20134: pa_debug.write(G_PKG_NAME, 'After calling PA_STRUCT_TASK_ROLLUP_PUB.Program_Schedule_dates_rollup for entire grid in UPDATE mode x_return_status='||x_return_status, 3);
20135: END IF;
20136:
20137: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
20138: RAISE Invalid_Arg_Exc_WP;
20139: END IF;
20140: END IF;
20141: --end bug 4541039
20179: IF l_debug_mode = 'Y' THEN
20180: pa_debug.write(G_PKG_NAME, 'After PROCESS_TASK_WEIGHTAGE in Copy Project Mode x_return_status='|| x_return_status, 3);
20181: END IF;
20182:
20183: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
20184: Raise Invalid_Arg_Exc_WP;
20185: END IF;
20186: END IF;
20187: END IF;
20225: Failed in Update Mode: SQLERRM='||SQLERRM,1,240));
20226: RAISE Invalid_Arg_Exc_WP;
20227: END;
20228:
20229: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
20230: Raise Invalid_Arg_Exc_WP;
20231: END IF;
20232: -- End Bug # 4611373.
20233:
20248: IF l_debug_mode = 'Y' THEN
20249: pa_debug.write(G_PKG_NAME, 'After set_update_wbs_flag x_return_status='|| x_return_status, 3);
20250: END IF;
20251:
20252: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
20253: Raise Invalid_Arg_Exc_WP;
20254: END IF;
20255:
20256: IF p_commit = FND_API.G_TRUE THEN
20252: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
20253: Raise Invalid_Arg_Exc_WP;
20254: END IF;
20255:
20256: IF p_commit = FND_API.G_TRUE THEN
20257: commit;
20258: END IF;
20259:
20260: IF l_debug_mode = 'Y' THEN
20264: EXCEPTION
20265:
20266: WHEN Invalid_Arg_Exc_WP THEN
20267:
20268: x_return_status := FND_API.G_RET_STS_ERROR;
20269: l_msg_count := FND_MSG_PUB.count_msg;
20270:
20271: IF cur_structure_type%ISOPEN THEN
20272: CLOSE cur_structure_type;
20273: END IF;
20274:
20275: IF l_msg_count = 1 and x_msg_data IS NULL THEN
20276: PA_INTERFACE_UTILS_PUB.get_messages
20277: (p_encoded => FND_API.G_TRUE
20278: ,p_msg_index => 1
20279: ,p_msg_count => l_msg_count
20280: ,p_msg_data => l_msg_data
20281: ,p_data => l_data
20288: IF l_debug_mode = 'Y' THEN
20289: pa_debug.reset_curr_function;
20290: END IF;
20291:
20292: IF p_commit = FND_API.G_TRUE THEN
20293: rollback to process_wbs_updates;
20294: END IF;
20295:
20296: RETURN;
20296: RETURN;
20297:
20298: WHEN others THEN
20299:
20300: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
20301: x_msg_count := 1;
20302: x_msg_data := SQLERRM;
20303:
20304: IF cur_structure_type%ISOPEN THEN
20316: l_debug_level5);
20317: pa_debug.reset_curr_function;
20318: END IF;
20319:
20320: IF p_commit = FND_API.G_TRUE THEN
20321: rollback to process_wbs_updates;
20322: END IF;
20323:
20324: RAISE;
20479:
20480: l_plan_version_id NUMBER; --bug 4726889
20481:
20482: BEGIN
20483: IF p_commit = FND_API.G_TRUE THEN
20484: savepoint process_task_weightage;
20485: END IF;
20486:
20487: IF p_init_msg_list = FND_API.G_TRUE THEN
20483: IF p_commit = FND_API.G_TRUE THEN
20484: savepoint process_task_weightage;
20485: END IF;
20486:
20487: IF p_init_msg_list = FND_API.G_TRUE THEN
20488: FND_MSG_PUB.initialize;
20489: END IF;
20490:
20491: x_msg_count := 0;
20488: FND_MSG_PUB.initialize;
20489: END IF;
20490:
20491: x_msg_count := 0;
20492: x_return_status := FND_API.G_RET_STS_SUCCESS;
20493: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
20494:
20495: IF l_debug_mode = 'Y' THEN
20496: pa_debug.g_err_stage:= 'Entering PROCESS_TASK_WEIGHTAGE';
20799: END IF;
20800: END IF;
20801: END;
20802:
20803: IF p_commit = FND_API.G_TRUE THEN
20804: commit;
20805: END IF;
20806:
20807: IF l_debug_mode = 'Y' THEN
20813: EXCEPTION
20814:
20815: WHEN Invalid_Arg_Exc_WP THEN
20816:
20817: x_return_status := FND_API.G_RET_STS_ERROR;
20818: l_msg_count := FND_MSG_PUB.count_msg;
20819:
20820: IF cur_task_info%ISOPEN THEN
20821: CLOSE cur_task_info;
20822: END IF;
20823:
20824: IF l_msg_count = 1 and x_msg_data IS NULL THEN
20825: PA_INTERFACE_UTILS_PUB.get_messages
20826: (p_encoded => FND_API.G_TRUE
20827: ,p_msg_index => 1
20828: ,p_msg_count => l_msg_count
20829: ,p_msg_data => l_msg_data
20830: ,p_data => l_data
20837: IF l_debug_mode = 'Y' THEN
20838: pa_debug.reset_curr_function;
20839: END IF;
20840:
20841: IF p_commit = FND_API.G_TRUE THEN
20842: rollback to process_task_weightage;
20843: END IF;
20844:
20845: RETURN;
20845: RETURN;
20846:
20847: WHEN others THEN
20848:
20849: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
20850: x_msg_count := 1;
20851: x_msg_data := SQLERRM;
20852:
20853: IF cur_task_info%ISOPEN THEN
20865: l_debug_level5);
20866: pa_debug.reset_curr_function;
20867: END IF;
20868:
20869: IF p_commit = FND_API.G_TRUE THEN
20870: rollback to process_task_weightage;
20871: END IF;
20872:
20873: RAISE;
20906: l_debug_level5 CONSTANT NUMBER := 5;
20907:
20908: BEGIN
20909:
20910: IF p_commit = FND_API.G_TRUE THEN
20911: savepoint set_update_wbs_flag;
20912: END IF;
20913:
20914: IF p_init_msg_list = FND_API.G_TRUE THEN
20910: IF p_commit = FND_API.G_TRUE THEN
20911: savepoint set_update_wbs_flag;
20912: END IF;
20913:
20914: IF p_init_msg_list = FND_API.G_TRUE THEN
20915: FND_MSG_PUB.initialize;
20916: END IF;
20917:
20918: x_msg_count := 0;
20915: FND_MSG_PUB.initialize;
20916: END IF;
20917:
20918: x_msg_count := 0;
20919: x_return_status := FND_API.G_RET_STS_SUCCESS;
20920: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
20921:
20922: IF l_debug_mode = 'Y' THEN
20923: pa_debug.g_err_stage:= 'Entering SET_UPDATE_WBS_FLAG';
20957: Set process_update_wbs_flag = p_update_wbs_flag
20958: Where project_id = p_project_id
20959: And element_version_id = p_structure_version_id;
20960:
20961: IF p_commit = FND_API.G_TRUE THEN
20962: commit;
20963: END IF;
20964:
20965: IF l_debug_mode = 'Y' THEN
20971: EXCEPTION
20972:
20973: WHEN Invalid_Arg_Exc_WP THEN
20974:
20975: x_return_status := FND_API.G_RET_STS_ERROR;
20976: l_msg_count := FND_MSG_PUB.count_msg;
20977:
20978: IF l_msg_count = 1 and x_msg_data IS NULL THEN
20979: PA_INTERFACE_UTILS_PUB.get_messages
20976: l_msg_count := FND_MSG_PUB.count_msg;
20977:
20978: IF l_msg_count = 1 and x_msg_data IS NULL THEN
20979: PA_INTERFACE_UTILS_PUB.get_messages
20980: (p_encoded => FND_API.G_TRUE
20981: ,p_msg_index => 1
20982: ,p_msg_count => l_msg_count
20983: ,p_msg_data => l_msg_data
20984: ,p_data => l_data
20991: IF l_debug_mode = 'Y' THEN
20992: pa_debug.reset_curr_function;
20993: END IF;
20994:
20995: IF p_commit = FND_API.G_TRUE THEN
20996: rollback to set_update_wbs_flag;
20997: END IF;
20998:
20999: RETURN;
20999: RETURN;
21000:
21001: WHEN others THEN
21002:
21003: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
21004: x_msg_count := 1;
21005: x_msg_data := SQLERRM;
21006:
21007: FND_MSG_PUB.add_exc_msg
21015: l_debug_level5);
21016: pa_debug.reset_curr_function;
21017: END IF;
21018:
21019: IF p_commit = FND_API.G_TRUE THEN
21020: rollback to set_update_wbs_flag;
21021: END IF;
21022:
21023: RAISE;
21024: END SET_UPDATE_WBS_FLAG;
21025:
21026: -- This API is a wrapper API called for FORMS which in turn
21027: -- calls PROCESS_WBS_UPDATES_WRP, as from FORM the remote
21028: -- package level constants FND_API.G_TRUE , FND_API.G_FLASE
21029: -- can not be reffered .
21030:
21031: PROCEDURE PROCESS_WBS_UPDATES_WRP_FORM
21032: ( p_project_id IN pa_projects_all.project_id%TYPE
21048: -- Not doing the validation of input parameter
21049: -- as it is done in the the called API.
21050:
21051: PA_PROJ_TASK_STRUC_PUB.PROCESS_WBS_UPDATES_WRP
21052: ( p_commit => FND_API.G_TRUE
21053: ,p_calling_context => 'UPDATE'
21054: ,p_project_id => p_project_id
21055: ,p_structure_version_id => p_structure_version_id
21056: ,x_return_status => x_return_status
21056: ,x_return_status => x_return_status
21057: ,x_msg_count => x_msg_count
21058: ,x_msg_data => x_msg_data) ;
21059:
21060: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
21061: IF l_debug_mode = 'Y' THEN
21062: pa_debug.g_err_stage := 'Error calling concurrent wbs update process ';
21063: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,4);
21064: END IF;
21067:
21068: EXCEPTION
21069: WHEN Invalid_Arg_Exc_WP THEN
21070:
21071: x_return_status := FND_API.G_RET_STS_ERROR;
21072: l_msg_count := FND_MSG_PUB.count_msg;
21073: IF l_msg_count = 1 and x_msg_data IS NULL THEN
21074: PA_INTERFACE_UTILS_PUB.get_messages
21075: (p_encoded => FND_API.G_TRUE
21071: x_return_status := FND_API.G_RET_STS_ERROR;
21072: l_msg_count := FND_MSG_PUB.count_msg;
21073: IF l_msg_count = 1 and x_msg_data IS NULL THEN
21074: PA_INTERFACE_UTILS_PUB.get_messages
21075: (p_encoded => FND_API.G_TRUE
21076: ,p_msg_index => 1
21077: ,p_msg_count => l_msg_count
21078: ,p_msg_data => l_msg_data
21079: ,p_data => l_data
21088: END IF;
21089: RETURN;
21090: WHEN others THEN
21091:
21092: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
21093: x_msg_count := 1;
21094: x_msg_data := SQLERRM;
21095:
21096: FND_MSG_PUB.add_exc_msg
21148: l_debug_mode VARCHAR2(1);
21149: BEGIN
21150:
21151: x_msg_count := 0;
21152: x_return_status := FND_API.G_RET_STS_SUCCESS;
21153: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
21154: l_shared := PA_PROJECT_STRUCTURE_UTILS.check_sharing_enabled(p_dest_project_id);
21155:
21156: /* The following is the simple solution for this.
21197: ,x_return_status => x_return_status
21198: ,x_msg_count => x_msg_count
21199: ,x_msg_data => x_msg_data);
21200:
21201: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
21202: IF l_debug_mode = 'Y' THEN
21203: pa_debug.g_err_stage := 'Error calling concurrent wbs update process ';
21204: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,4);
21205: END IF;
21225: ,x_return_status => x_return_status
21226: ,x_msg_count => x_msg_count
21227: ,x_msg_data => x_msg_data);
21228:
21229: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
21230: IF l_debug_mode = 'Y' THEN
21231: pa_debug.g_err_stage := 'Error calling concurrent wbs update process ';
21232: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,4);
21233: END IF;
21255: ,x_return_status => x_return_status
21256: ,x_msg_count => x_msg_count
21257: ,x_msg_data => x_msg_data);
21258:
21259: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
21260: IF l_debug_mode = 'Y' THEN
21261: pa_debug.g_err_stage := 'Error calling update WBS WRP ';
21262: pa_debug.write(G_PKG_NAME,pa_debug.g_err_stage,4);
21263: END IF;
21268: END IF;
21269: EXCEPTION
21270: WHEN Invalid_Arg_Exc_WP THEN
21271:
21272: x_return_status := FND_API.G_RET_STS_ERROR;
21273: l_msg_count := FND_MSG_PUB.count_msg;
21274: IF l_msg_count = 1 and x_msg_data IS NULL THEN
21275: PA_INTERFACE_UTILS_PUB.get_messages
21276: (p_encoded => FND_API.G_TRUE
21272: x_return_status := FND_API.G_RET_STS_ERROR;
21273: l_msg_count := FND_MSG_PUB.count_msg;
21274: IF l_msg_count = 1 and x_msg_data IS NULL THEN
21275: PA_INTERFACE_UTILS_PUB.get_messages
21276: (p_encoded => FND_API.G_TRUE
21277: ,p_msg_index => 1
21278: ,p_msg_count => l_msg_count
21279: ,p_msg_data => l_msg_data
21280: ,p_data => l_data
21289: END IF;
21290: RETURN;
21291: WHEN others THEN
21292:
21293: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
21294: x_msg_count := 1;
21295: x_msg_data := SQLERRM;
21296:
21297: FND_MSG_PUB.add_exc_msg
21310:
21311: --hsiu: bug 3254091
21312: PROCEDURE Update_Current_Phase
21313: ( p_api_version_number IN NUMBER := 1.0
21314: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
21315: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
21316: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
21317: ,p_validation_level IN VARCHAR2 := 100
21318: ,p_debug_mode IN VARCHAR2 := 'N'
21311: --hsiu: bug 3254091
21312: PROCEDURE Update_Current_Phase
21313: ( p_api_version_number IN NUMBER := 1.0
21314: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
21315: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
21316: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
21317: ,p_validation_level IN VARCHAR2 := 100
21318: ,p_debug_mode IN VARCHAR2 := 'N'
21319: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
21312: PROCEDURE Update_Current_Phase
21313: ( p_api_version_number IN NUMBER := 1.0
21314: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
21315: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
21316: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
21317: ,p_validation_level IN VARCHAR2 := 100
21318: ,p_debug_mode IN VARCHAR2 := 'N'
21319: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
21320: ,p_user_id IN NUMBER := FND_GLOBAL.USER_ID
21319: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
21320: ,p_user_id IN NUMBER := FND_GLOBAL.USER_ID
21321: ,p_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
21322: ,p_project_name IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
21323: ,p_current_lifecycle_phase_id IN NUMBER := FND_API.G_MISS_NUM
21324: ,p_current_lifecycle_phase IN VARCHAR2 := FND_API.G_MISS_CHAR
21325: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
21326: ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
21327: ,x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
21320: ,p_user_id IN NUMBER := FND_GLOBAL.USER_ID
21321: ,p_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
21322: ,p_project_name IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
21323: ,p_current_lifecycle_phase_id IN NUMBER := FND_API.G_MISS_NUM
21324: ,p_current_lifecycle_phase IN VARCHAR2 := FND_API.G_MISS_CHAR
21325: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
21326: ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
21327: ,x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
21328: )
21374: l_msg_index_out NUMBER;
21375:
21376: BEGIN
21377: --Clear Error Messages.
21378: IF p_init_msg_list = FND_API.G_TRUE THEN
21379: FND_MSG_PUB.initialize;
21380: END IF;
21381:
21382: --set savepoint
21379: FND_MSG_PUB.initialize;
21380: END IF;
21381:
21382: --set savepoint
21383: IF p_commit = FND_API.G_TRUE THEN
21384: SAVEPOINT update_current_phase;
21385: END IF;
21386:
21387: x_msg_count := 0;
21384: SAVEPOINT update_current_phase;
21385: END IF;
21386:
21387: x_msg_count := 0;
21388: x_return_status := FND_API.G_RET_STS_SUCCESS;
21389:
21390: --Project name to id Conversion
21391: IF ((p_project_name <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) AND (p_project_name IS NOT NULL)) OR
21392: ((p_project_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) AND (p_project_id IS NOT NULL)) THEN
21395: p_project_id => p_project_id,
21396: x_project_id => l_project_id,
21397: x_return_status => l_return_status,
21398: x_error_msg_code => l_error_msg_code);
21399: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
21400: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
21401: p_msg_name => l_error_msg_code);
21402: RAISE API_ERROR;
21403: END IF;
21419: l_life_cycle_version_id;
21420: CLOSE cur_get_wp_attr;
21421:
21422: --Current Phase name to id conversion
21423: IF ((p_current_lifecycle_phase_id <> FND_API.G_MISS_NUM) AND (p_current_lifecycle_phase_id is not NULL)) OR
21424: ((p_current_lifecycle_phase <> FND_API.G_MISS_CHAR) AND (p_current_lifecycle_phase is not NULL)) then
21425: PA_WORKPLAN_ATTR_UTILS.CHECK_LIFECYCLE_PHASE_NAME_ID
21426: ( p_lifecycle_id => l_life_cycle_version_id
21427: ,p_current_lifecycle_phase_id => p_current_lifecycle_phase_id
21420: CLOSE cur_get_wp_attr;
21421:
21422: --Current Phase name to id conversion
21423: IF ((p_current_lifecycle_phase_id <> FND_API.G_MISS_NUM) AND (p_current_lifecycle_phase_id is not NULL)) OR
21424: ((p_current_lifecycle_phase <> FND_API.G_MISS_CHAR) AND (p_current_lifecycle_phase is not NULL)) then
21425: PA_WORKPLAN_ATTR_UTILS.CHECK_LIFECYCLE_PHASE_NAME_ID
21426: ( p_lifecycle_id => l_life_cycle_version_id
21427: ,p_current_lifecycle_phase_id => p_current_lifecycle_phase_id
21428: ,p_current_lifecycle_phase => p_current_lifecycle_phase
21430: ,x_current_lifecycle_phase_id => l_current_phase_version_id
21431: ,x_return_status => l_return_status
21432: ,x_error_msg_code => l_error_msg_code);
21433:
21434: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
21435: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA', p_msg_name => l_error_msg_code);
21436: RAISE API_ERROR;
21437: END IF;
21438: END IF;
21478: ,x_msg_count => l_msg_count
21479: ,x_msg_data => l_msg_data
21480: );
21481:
21482: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
21483: x_msg_count := FND_MSG_PUB.count_msg;
21484: if x_msg_count = 1 then
21485: pa_interface_utils_pub.get_messages
21486: (p_encoded => FND_API.G_TRUE,
21482: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
21483: x_msg_count := FND_MSG_PUB.count_msg;
21484: if x_msg_count = 1 then
21485: pa_interface_utils_pub.get_messages
21486: (p_encoded => FND_API.G_TRUE,
21487: p_msg_index => 1,
21488: p_msg_count => l_msg_count,
21489: p_msg_data => l_msg_data,
21490: p_data => l_data,
21493: end if;
21494: raise API_ERROR;
21495: END IF;
21496:
21497: x_return_status := FND_API.G_RET_STS_SUCCESS;
21498:
21499: if p_commit = FND_API.G_TRUE then
21500: commit work;
21501: end if;
21495: END IF;
21496:
21497: x_return_status := FND_API.G_RET_STS_SUCCESS;
21498:
21499: if p_commit = FND_API.G_TRUE then
21500: commit work;
21501: end if;
21502:
21503: EXCEPTION
21501: end if;
21502:
21503: EXCEPTION
21504: WHEN API_ERROR THEN
21505: x_return_status := FND_API.G_RET_STS_ERROR;
21506: IF p_commit = FND_API.G_TRUE THEN
21507: rollback to update_current_phase;
21508: END IF;
21509: WHEN OTHERS THEN
21502:
21503: EXCEPTION
21504: WHEN API_ERROR THEN
21505: x_return_status := FND_API.G_RET_STS_ERROR;
21506: IF p_commit = FND_API.G_TRUE THEN
21507: rollback to update_current_phase;
21508: END IF;
21509: WHEN OTHERS THEN
21510: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
21506: IF p_commit = FND_API.G_TRUE THEN
21507: rollback to update_current_phase;
21508: END IF;
21509: WHEN OTHERS THEN
21510: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
21511: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
21512: p_procedure_name => 'update_current_phase',
21513: p_error_text => SUBSTRB(SQLERRM,1,240));
21514: IF p_commit = FND_API.G_TRUE THEN
21510: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
21511: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
21512: p_procedure_name => 'update_current_phase',
21513: p_error_text => SUBSTRB(SQLERRM,1,240));
21514: IF p_commit = FND_API.G_TRUE THEN
21515: rollback to update_current_phase;
21516: END IF;
21517: raise;
21518: END Update_Current_Phase;
21691: ,x_msg_data => x_msg_data);
21692: END IF;
21693: CLOSE get_pred_id;
21694:
21695: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
21696: return;
21697: END IF;
21698:
21699: End Loop;
21785: End GET_SHARE_TYPE;
21786: --Added by rtarway for FP.M Development
21787:
21788: procedure delete_intra_dependency (p_element_version_id IN NUMBER,
21789: p_commit IN VARCHAR2 := FND_API.G_FALSE,
21790: p_debug_mode IN VARCHAR2 := 'N',
21791: x_return_status OUT NOCOPY VARCHAR2) --File.Sql.39 bug 4440895
21792: IS
21793: l_object_type VARCHAR2(80);
21797: pa_debug.init_err_stack('PA_PROJ_TASK_STRUC_PUB.DELETE_INTRA_DEPENDENCY');
21798: pa_debug.debug('PA_PROJ_TASK_STRUC_PUB.DELETE_INTRA_DEPENDENCY Begin');
21799: END IF;
21800: --
21801: IF (p_commit = FND_API.G_TRUE) THEN
21802: savepoint delete_intra_dependency;
21803: END IF;
21804: BEGIN
21805: SELECT object_type
21808: WHERE ELEMENT_VERSION_ID = p_element_version_id;
21809: EXCEPTION
21810: WHEN NO_DATA_FOUND THEN
21811: fnd_message.set_name('PA','PA_RECORD_NOT_FOUND');
21812: x_return_status := FND_API.G_RET_STS_ERROR;
21813: WHEN OTHERS THEN
21814: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
21815: raise;
21816: END;
21810: WHEN NO_DATA_FOUND THEN
21811: fnd_message.set_name('PA','PA_RECORD_NOT_FOUND');
21812: x_return_status := FND_API.G_RET_STS_ERROR;
21813: WHEN OTHERS THEN
21814: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
21815: raise;
21816: END;
21817: IF l_object_type='PA_TASKS' THEN
21818: BEGIN
21826: AND por.object_type_from = 'PA_TASKS'
21827: AND por.object_type_to = 'PA_TASKS');
21828: IF SQL%NOTFOUND THEN
21829: fnd_message.set_name('PA','PA_RECORD_NOT_FOUND');
21830: x_return_status := FND_API.G_RET_STS_ERROR;
21831: END IF;
21832: EXCEPTION
21833: WHEN OTHERS THEN
21834: x_return_status := FND_API.G_RET_STS_ERROR;
21830: x_return_status := FND_API.G_RET_STS_ERROR;
21831: END IF;
21832: EXCEPTION
21833: WHEN OTHERS THEN
21834: x_return_status := FND_API.G_RET_STS_ERROR;
21835: raise;
21836: END;
21837: ELSIF l_object_type='PA_STRUCTURES' THEN
21838: BEGIN
21849: AND por.object_type_to = 'PA_TASKS'
21850: AND por.object_id_from1 = ppev.ELEMENT_VERSION_ID);
21851: IF SQL%NOTFOUND THEN
21852: fnd_message.set_name('PA','PA_RECORD_NOT_FOUND');
21853: x_return_status := FND_API.G_RET_STS_ERROR;
21854: END IF;
21855: EXCEPTION
21856: WHEN OTHERS THEN
21857: x_return_status := FND_API.G_RET_STS_ERROR;
21853: x_return_status := FND_API.G_RET_STS_ERROR;
21854: END IF;
21855: EXCEPTION
21856: WHEN OTHERS THEN
21857: x_return_status := FND_API.G_RET_STS_ERROR;
21858: raise;
21859: END;
21860: END IF;
21861: --
21858: raise;
21859: END;
21860: END IF;
21861: --
21862: x_return_status := FND_API.G_RET_STS_SUCCESS;
21863: --
21864: IF (p_commit = FND_API.G_TRUE) THEN
21865: COMMIT;
21866: END IF;
21860: END IF;
21861: --
21862: x_return_status := FND_API.G_RET_STS_SUCCESS;
21863: --
21864: IF (p_commit = FND_API.G_TRUE) THEN
21865: COMMIT;
21866: END IF;
21867: --
21868: IF (p_debug_mode = 'Y') THEN
21869: pa_debug.debug('PA_PROJ_TASK_STRUC_PUB.DELETE_INTRA_DEPENDENCY END');
21870: END IF;
21871: EXCEPTION
21872: WHEN API_ERROR THEN
21873: x_return_status := FND_API.G_RET_STS_ERROR;
21874: rollback to delete_intra_dependency;
21875: WHEN OTHERS THEN
21876: IF (p_commit = FND_API.G_TRUE) THEN
21877: ROLLBACK TO delete_intra_dependency;
21872: WHEN API_ERROR THEN
21873: x_return_status := FND_API.G_RET_STS_ERROR;
21874: rollback to delete_intra_dependency;
21875: WHEN OTHERS THEN
21876: IF (p_commit = FND_API.G_TRUE) THEN
21877: ROLLBACK TO delete_intra_dependency;
21878: END IF;
21879: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
21880: FND_MSG_PUB.add_exc_msg(
21875: WHEN OTHERS THEN
21876: IF (p_commit = FND_API.G_TRUE) THEN
21877: ROLLBACK TO delete_intra_dependency;
21878: END IF;
21879: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
21880: FND_MSG_PUB.add_exc_msg(
21881: p_pkg_name => 'PA_PROJ_TASK_STRUC_PUB',
21882: p_procedure_name => 'delete_intra_dependency',
21883: p_error_text => SUBSTRB(SQLERRM,1,240));