The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE INSERT_ROW (
X_ROWID IN OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
X_ROLE_CONTROL_CODE IN VARCHAR2,
X_PROJECT_ROLE_ID IN NUMBER,
X_LAST_UPDATE_DATE IN DATE,
X_LAST_UPDATED_BY IN NUMBER,
X_CREATION_DATE IN DATE,
X_CREATED_BY IN NUMBER,
X_LAST_UPDATE_LOGIN IN NUMBER
) IS
CURSOR c
IS
SELECT rowid
FROM pa_role_controls
WHERE role_control_code = x_role_control_code
AND project_role_id = x_project_role_id;
INSERT INTO pa_role_controls (
ROLE_CONTROL_CODE,
PROJECT_ROLE_ID,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_LOGIN,
RECORD_VERSION_NUMBER
) VALUES (
X_ROLE_CONTROL_CODE,
X_PROJECT_ROLE_ID,
X_LAST_UPDATE_DATE,
X_LAST_UPDATED_BY,
X_CREATION_DATE,
X_CREATED_BY,
X_LAST_UPDATE_LOGIN,
1
);
END INSERT_ROW;
SELECT *
FROM pa_role_controls
WHERE rowid = X_Rowid
FOR UPDATE OF role_control_code, project_role_id NOWAIT;
FND_MESSAGE.Set_Name('FND','FORM_RECORD_DELETED');
PROCEDURE UPDATE_ROW (
X_ROWID IN OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
X_ROLE_CONTROL_CODE IN VARCHAR2,
X_PROJECT_ROLE_ID IN NUMBER,
X_LAST_UPDATE_DATE IN DATE,
X_LAST_UPDATED_BY IN NUMBER,
X_CREATION_DATE IN DATE,
X_CREATED_BY IN NUMBER,
X_LAST_UPDATE_LOGIN IN NUMBER
) IS
BEGIN
UPDATE pa_role_controls
SET ROLE_CONTROL_CODE =X_ROLE_CONTROL_CODE,
PROJECT_ROLE_ID =X_PROJECT_ROLE_ID,
LAST_UPDATE_DATE =X_LAST_UPDATE_DATE,
LAST_UPDATED_BY =X_LAST_UPDATED_BY,
CREATION_DATE =X_CREATION_DATE,
CREATED_BY =X_CREATED_BY,
LAST_UPDATE_LOGIN =X_LAST_UPDATE_LOGIN,
RECORD_VERSION_NUMBER = (RECORD_VERSION_NUMBER +1)
WHERE rowid = X_Rowid;
END UPDATE_ROW;
PROCEDURE DELETE_ROW (X_Rowid VARCHAR2)
IS
BEGIN
DELETE FROM pa_role_controls
WHERE rowid = X_Rowid;
END Delete_Row;