The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure Insert_Level(
P_CbsHeaderId IN Number,
P_Structure_Level IN Number,
P_Cost_Category IN Varchar2,
P_Meaning IN Varchar2,
P_Description IN Varchar2 Default NULL,
P_Record_Version_Number IN Number,
X_Return_Status OUT NOCOPY Varchar2,
X_Msg_Data OUT NOCOPY Varchar2,
X_Msg_Count OUT NOCOPY Number)
IS
UNABLE_TO_INSERT_LEVEL Exception;
select COST_CATEGORY from PA_CBS_HIERARCHY
where CBS_HEADER_ID = P_CbsHeaderId and
STRUCTURE_LEVEL = P_Structure_Level;
Select PA_CBS_HIERARCHY_S.NextVal
From Dual;
pa_debug.init_err_stack('PA_CBS_LEVEL_HIERARCHY_PVT.Insert_Level');
print_msg('PA_CBS_LEVEL_HIERARCHY_PVT.Insert_Level IN param(Scalar) values');
RAISE UNABLE_TO_INSERT_LEVEL;
INSERT INTO PA_CBS_HIERARCHY (
CBS_STRUCT_LEVEL_ID ,
CBS_HEADER_ID ,
STRUCTURE_LEVEL ,
COST_CATEGORY ,
MEANING ,
LAST_UPDATE_DATE ,
LAST_UPDATED_BY ,
CREATION_DATE ,
CREATED_BY ,
LAST_UPDATE_LOGIN ,
DESCRIPTION ,
RECORD_VERSION_NUMBER )
VALUES (
L_CbsStructLevelId ,
P_CbsHeaderId ,
P_Structure_Level ,
P_Cost_Category ,
P_Meaning ,
SysDate ,
Fnd_Global.User_Id ,
SysDate ,
Fnd_Global.User_Id ,
Fnd_Global.Login_Id ,
P_Description ,
P_Record_Version_Number
);
When UNABLE_TO_INSERT_LEVEL Then
X_Return_Status := 'U';
END Insert_Level;
PROCEDURE Update_Level(
P_CbsStructLevelId IN Number,
P_CbsHeaderId IN Number,
P_Structure_Level IN Number,
P_Cost_Category IN Varchar2,
P_Meaning IN Varchar2,
P_Description IN Varchar2 Default NULL,
P_Record_Version_Number IN Number,
X_Record_Version_Number OUT NOCOPY Number,
X_Return_Status OUT NOCOPY Varchar2,
X_Msg_Data OUT NOCOPY Varchar2,
X_Msg_Count OUT NOCOPY Number)
IS
UNABLE_TO_UPDATE_LEVEL Exception;
select 'N' from dual;
pa_debug.init_err_stack('PA_CBS_LEVEL_HIERARCHY_PVT.Update_Level');
print_msg('PA_CBS_LEVEL_HIERARCHY_PVT.Update_Level IN param(Scalar) values');
RAISE UNABLE_TO_UPDATE_LEVEL;
UPDATE PA_CBS_HIERARCHY
SET
COST_CATEGORY = P_Cost_Category,
MEANING = P_Meaning,
DESCRIPTION = P_Description,
RECORD_VERSION_NUMBER = RECORD_VERSION_NUMBER + 1,
LAST_UPDATE_DATE = Sysdate,
LAST_UPDATED_BY = Fnd_Global.User_Id,
LAST_UPDATE_LOGIN = Fnd_Global.Login_Id
WHERE
CBS_HEADER_ID = P_CbsHeaderId
AND STRUCTURE_LEVEL = P_Structure_Level
AND RECORD_VERSION_NUMBER = P_Record_Version_Number
AND CBS_STRUCT_LEVEL_ID = P_CbsStructLevelId;
When UNABLE_TO_UPDATE_LEVEL Then
X_Return_Status := 'U';
END Update_Level;
PROCEDURE Delete_Level(
P_CbsStructLevelId IN Number,
P_CbsHeaderId IN Number,
P_Structure_Level IN Number,
P_Cost_Category IN Varchar2,
P_Record_Version_Number IN Number,
X_Return_Status OUT NOCOPY Varchar2,
X_Msg_Data OUT NOCOPY Varchar2,
X_Msg_Count OUT NOCOPY Number)
IS
UNABLE_TO_DELETE_LEVEL Exception;
select IS_CBS_USED(P_CbsHeaderId) from dual;
pa_debug.init_err_stack('PA_CBS_LEVEL_HIERARCHY_PVT.Delete_Level');
print_msg('PA_CBS_LEVEL_HIERARCHY_PVT.Delete_Level IN param(Scalar) values');
RAISE UNABLE_TO_DELETE_LEVEL;
delete from PA_RBS_ELEMENTS where
rbs_level = (P_Structure_Level)+1 and
rbs_version_id = (select rbs_version_id from pa_rbs_versions_b where rbs_header_id = P_CbsHeaderId);
DELETE FROM PA_CBS_HIERARCHY
WHERE CBS_HEADER_ID = P_CbsHeaderId
AND STRUCTURE_LEVEL = P_Structure_Level
AND RECORD_VERSION_NUMBER = P_Record_Version_Number
AND CBS_STRUCT_LEVEL_ID = P_CbsStructLevelId;
When UNABLE_TO_DELETE_LEVEL Then
X_Return_Status := 'U';
END Delete_Level;
select 'Y' from dual where
EXISTS
(SELECT *
FROM PA_PROJECTS_ALL
WHERE CBS_VERSION_ID =
(select rbs_version_id from pa_rbs_versions_b where rbs_header_id = P_CBS_HEADER_ID));