The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT 1
FROM pa_obj_status_lists
WHERE object_type= 'PA_CI_TYPES'
AND STATUS_TYPE = 'CONTROL_ITEM'
AND STATUS_LIST_ID =P_STATUS_LIST_ID;
P_LAST_UPDATE_DATE IN DATE ,
P_LAST_UPDATED_BY IN NUMBER ,
P_CREATION_DATE IN DATE ,
P_CREATED_BY IN NUMBER ,
P_LAST_UPDATE_LOGIN IN NUMBER,
X_RETURN_STATUS OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
X_MSG_COUNT OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
X_MSG_DATA OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
) IS
BEGIN
-- Initialize the Error Stack
PA_DEBUG.init_err_stack('PA_STATUS_LISTS_PVT.Insert_Row');
PA_STATUS_LISTS_PKG.INSERT_ROW
(
X_RECORD_VERSION_NUMBER => P_RECORD_VERSION_NUMBER,
X_STATUS_LIST_ID => P_STATUS_LIST_ID,
X_STATUS_TYPE => P_STATUS_TYPE,
X_NAME => P_NAME,
X_START_DATE_ACTIVE => P_START_DATE_ACTIVE,
X_END_DATE_ACTIVE => P_END_DATE_ACTIVE,
X_DESCRIPTION => P_DESCRIPTION,
X_CREATION_DATE => P_CREATION_DATE,
X_CREATED_BY => P_CREATED_BY,
X_LAST_UPDATE_DATE => P_LAST_UPDATE_DATE,
X_LAST_UPDATED_BY => P_LAST_UPDATED_BY,
X_LAST_UPDATE_LOGIN => P_LAST_UPDATE_LOGIN
);
PROCEDURE UpdateStatusList (
P_RECORD_VERSION_NUMBER IN NUMBER,
P_STATUS_LIST_ID IN NUMBER,
P_STATUS_TYPE IN VARCHAR2,
P_NAME IN VARCHAR2,
P_START_DATE_ACTIVE IN DATE,
P_END_DATE_ACTIVE IN DATE,
P_DESCRIPTION IN VARCHAR2,
P_LAST_UPDATE_DATE IN DATE ,
P_LAST_UPDATED_BY IN NUMBER ,
P_LAST_UPDATE_LOGIN IN NUMBER ,
X_RETURN_STATUS OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
X_MSG_COUNT OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
X_MSG_DATA OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
) IS
Invalid_Ret_Status EXCEPTION;
savepoint UpdateSL;
PA_DEBUG.init_err_stack('PA_STATUS_LISTS_PVT.Update_Row');
pa_debug.g_err_stage:= 'about to call PA_STATUS_LISTS_PKG.UPDATE_ROW';
PA_STATUS_LISTS_PKG.UPDATE_ROW
(X_STATUS_LIST_ID => P_STATUS_LIST_ID,
X_RECORD_VERSION_NUMBER => P_RECORD_VERSION_NUMBER,
X_STATUS_TYPE => P_STATUS_TYPE,
X_NAME => P_NAME,
X_START_DATE_ACTIVE => P_START_DATE_ACTIVE,
X_END_DATE_ACTIVE => P_END_DATE_ACTIVE,
X_DESCRIPTION => P_DESCRIPTION,
X_LAST_UPDATE_DATE => P_LAST_UPDATE_DATE,
X_LAST_UPDATED_BY => P_LAST_UPDATED_BY,
X_LAST_UPDATE_LOGIN => P_LAST_UPDATE_LOGIN
);
rollback to UpdateSL;
rollback to UpdateSL;
END UpdateStatusList;
PROCEDURE DeleteStatusList (
P_STATUS_LIST_ID IN NUMBER,
P_RECORD_VERSION_NUMBER IN NUMBER,
X_RETURN_STATUS OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
X_MSG_COUNT OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
X_MSG_DATA OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
)
IS
Invalid_Ret_Status EXCEPTION;
savepoint DeleteSL;
PA_DEBUG.init_err_stack('PA_STATUS_LISTS_PVT.Delete_Row');
PA_STATUS_LISTS_PKG.DELETE_ROW
( X_STATUS_LIST_ID => P_STATUS_LIST_ID,
X_RECORD_VERSION_NUMBER => P_RECORD_VERSION_NUMBER
);
rollback to DeleteSL;
rollback to DeleteSL;
END DeleteStatusList;