The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE INSERT_ROW(
P_API_VERSION IN NUMBER,
P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
P_VALIDATION_LEVEL IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
P_ROWID IN OUT NOCOPY VARCHAR2,
P_DEPT_ID NUMBER,
P_ORGANIZATION_ID NUMBER,
P_LAST_UPDATE_DATE DATE,
P_LAST_UPDATED_BY NUMBER,
P_CREATION_DATE DATE,
P_CREATED_BY NUMBER,
P_LAST_UPDATE_LOGIN NUMBER,
P_RESPONSIBILITY_ID NUMBER,
P_RESPONSIBILITY_APPLICATN_ID NUMBER,
P_PRIMARY_APPROVER NUMBER,
X_RETURN_STATUS OUT NOCOPY VARCHAR2,
X_MSG_COUNT OUT NOCOPY NUMBER,
X_MSG_DATA OUT NOCOPY VARCHAR2)
IS
l_api_name CONSTANT VARCHAR2(30) := 'insert_row';
CURSOR C IS SELECT rowid FROM BOM_EAM_DEPT_APPROVERS
WHERE DEPT_ID = P_DEPT_ID AND RESPONSIBILITY_ID=P_RESPONSIBILITY_ID;
INSERT INTO BOM_EAM_DEPT_APPROVERS(
DEPT_ID,
ORGANIZATION_ID,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_LOGIN,
RESPONSIBILITY_ID,
RESPONSIBILITY_APPLICATION_ID,
PRIMARY_APPROVER_ID
) SELECT
P_DEPT_ID,
P_ORGANIZATION_ID,
P_LAST_UPDATE_DATE,
P_LAST_UPDATED_BY,
P_CREATION_DATE,
P_CREATED_BY,
P_LAST_UPDATE_LOGIN,
P_RESPONSIBILITY_ID,
P_RESPONSIBILITY_APPLICATN_ID,
P_PRIMARY_APPROVER
FROM DUAL
WHERE P_DEPT_ID = P_DEPT_ID
AND
NOT EXISTS (
SELECT null
FROM BOM_EAM_DEPT_APPROVERS BDA
WHERE BDA.DEPT_ID = P_DEPT_ID And
BDA.RESPONSIBILITY_ID = P_RESPONSIBILITY_ID
);
END Insert_Row;
P_LAST_UPDATE_DATE DATE,
P_LAST_UPDATED_BY NUMBER,
P_CREATION_DATE DATE,
P_CREATED_BY NUMBER,
P_LAST_UPDATE_LOGIN NUMBER,
P_RESPONSIBILITY_ID NUMBER,
P_RESPONSIBILITY_APPLICATN_ID NUMBER,
X_RETURN_STATUS OUT NOCOPY VARCHAR2,
X_MSG_COUNT OUT NOCOPY NUMBER,
X_MSG_DATA OUT NOCOPY VARCHAR2)
IS
l_api_name CONSTANT VARCHAR2(30) := 'lock_row';
SELECT * FROM BOM_EAM_DEPT_APPROVERS
WHERE rowid = P_ROWID
FOR UPDATE Of RESPONSIBILITY_ID NOWAIT;
FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
PROCEDURE UPDATE_ROW
(
P_API_VERSION IN NUMBER,
P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
P_VALIDATION_LEVEL IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
P_ROWID IN OUT NOCOPY VARCHAR2,
P_DEPT_ID NUMBER,
P_ORGANIZATION_ID NUMBER,
P_LAST_UPDATE_DATE DATE,
P_LAST_UPDATED_BY NUMBER,
P_CREATION_DATE DATE,
P_CREATED_BY NUMBER,
P_LAST_UPDATE_LOGIN NUMBER,
P_RESPONSIBILITY_ID NUMBER,
P_RESPONSIBILITY_APPLICATN_ID NUMBER,
P_PRIMARY_APPROVER NUMBER,
X_RETURN_STATUS OUT NOCOPY VARCHAR2,
X_MSG_COUNT OUT NOCOPY NUMBER,
X_MSG_DATA OUT NOCOPY VARCHAR2)
IS
l_api_name CONSTANT VARCHAR2(30) := 'update_row';
UPDATE BOM_EAM_DEPT_APPROVERS
SET
DEPT_ID = P_DEPT_ID,
ORGANIZATION_ID = P_ORGANIZATION_ID,
LAST_UPDATE_DATE = P_LAST_UPDATE_DATE,
LAST_UPDATED_BY = P_LAST_UPDATED_BY,
CREATION_DATE = P_CREATION_DATE,
CREATED_BY = P_CREATED_BY,
LAST_UPDATE_LOGIN = P_LAST_UPDATE_LOGIN,
RESPONSIBILITY_ID = P_RESPONSIBILITY_ID,
RESPONSIBILITY_APPLICATION_ID = P_RESPONSIBILITY_APPLICATN_ID,
PRIMARY_APPROVER_ID = P_PRIMARY_APPROVER
WHERE ROWID = P_ROWID;
END Update_Row;
PROCEDURE DELETE_ROW (
P_DEPT_ID NUMBER,
P_ORGANIZATION_ID NUMBER,
P_RESPONSIBILITY_ID NUMBER,
P_RESPONSIBILITY_APPLICATN_ID NUMBER)
is
begin
delete from BOM_EAM_DEPT_APPROVERS
where DEPT_ID = P_DEPT_ID
and ORGANIZATION_ID = P_ORGANIZATION_ID
and RESPONSIBILITY_ID = P_RESPONSIBILITY_ID
and RESPONSIBILITY_APPLICATION_ID = P_RESPONSIBILITY_APPLICATN_ID;
end DELETE_ROW;