[Home] [Help]
309: end if;
310:
311: /* Check for the status control: check whether the action CONTROL_ITEM_ALLOW_UPDATE
312: is allowed on the current status of the issue. */
313: has_access := pa_control_items_utils.CheckCIActionAllowed('CONTROL_ITEM', l_cr_status_code, 'CONTROL_ITEM_ALLOW_UPDATE',p_ci_id);
314: if has_access <> 'Y' then
315: PA_UTILS.add_Message( p_app_short_name => 'PA'
316: ,p_msg_name => 'PA_CI_NO_ALLOW_UPDATE');
317: x_return_status := FND_API.G_RET_STS_ERROR;
1801: l_any_err_occured_flg := 'N';
1802:
1803: --get the user id and the party id for the current logged in user.
1804: l_user_id := fnd_global.user_id;
1805: l_party_id := pa_control_items_utils.getpartyid(l_user_id);
1806: l_resp_id := fnd_global.resp_id;
1807:
1808: if(p_summary is null) then
1809: PA_UTILS.ADD_MESSAGE
1820: l_description := p_description;
1821:
1822: if (p_status_code is null and p_status is null) then
1823: /*get the default starting status*/
1824: l_status_code := PA_CONTROL_ITEMS_UTILS.Get_Initial_Ci_Status(p_ci_type_id);
1825: /*l_status_code would always be CI_WORKING here and below select would always give CI_WORKING
1826: for project_system_status_code. So */
1827: select project_system_status_code
1828: into l_system_status_code
3632: -- If the User has View Access to this Control Item and
3633: -- delete is allowed on this Control Item then call the
3634: -- API to delete it.
3635: l_ViewAccess := PA_CI_SECURITY_PKG.Check_View_Access (p_Ci_Id, l_ProjectId, l_StatusCode, l_CiTypeClassCode);
3636: l_DeleteAllowed := PA_CONTROL_ITEMS_UTILS.CheckCIActionAllowed ('CONTROL_ITEM', l_StatusCode, 'CONTROL_ITEM_ALLOW_DELETE', p_Ci_Id);
3637: IF (l_ViewAccess = 'T' AND l_DeleteAllowed = 'Y') THEN
3638: if (l_debug_mode = 'Y') then
3639: pa_debug.g_err_stage := 'Before Calling PA_CONTROL_ITEMS_PUB.Delete_Control_Item';
3640: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);