The following lines contain the word 'select', 'insert', 'update' or 'delete':
G_AMEND_CODE_DELETED CONSTANT VARCHAR2(30) := 'DELETED';
G_AMEND_CODE_UPDATED CONSTANT VARCHAR2(30) := 'UPDATED';
PROCEDURE insert_row ( p_entity_name IN VARCHAR2,
p_entity_pk1 IN VARCHAR2,
p_entity_pk2 IN VARCHAR2,
p_entity_pk3 IN VARCHAR2,
p_entity_pk4 IN VARCHAR2,
p_entity_pk5 IN VARCHAR2,
P_LOCK_BY_ENTITY_ID IN NUMBER,
P_LOCK_by_document_type IN VARCHAR2,
p_LOCK_by_document_id IN NUMBER,
P_OBJECT_VERSION_NUMBER IN NUMBER,
P_CREATED_BY IN NUMBER,
P_CREATION_DATE IN DATE,
P_LAST_UPDATED_BY IN NUMBER,
P_LAST_UPDATE_DATE IN DATE,
P_LAST_UPDATE_LOGIN IN NUMBER,
x_k_entity_lock_id OUT NOCOPY NUMBER,
X_RETURN_STATUS OUT NOCOPY VARCHAR2,
X_MSG_COUNT OUT NOCOPY NUMBER,
X_MSG_DATA OUT NOCOPY VARCHAR2
)
IS
BEGIN
IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
FND_LOG.STRING(G_STMT_LEVEL,
G_PKG_NAME, '1000: Entered Insert_Row Procedure' );
INSERT INTO okc_k_entity_locks(
k_entity_lock_id,
entity_name,
entity_pk1,
entity_pk2,
entity_pk3,
entity_pk4,
entity_pk5,
LOCK_BY_ENTITY_ID,
LOCK_BY_DOCUMENT_TYPE,
LOCK_BY_DOCUMENT_ID,
OBJECT_VERSION_NUMBER,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN
)
VALUES(
okc_k_entity_locks_s.NEXTVAL,
P_ENTITY_NAME,
p_entity_pk1,
p_entity_pk2,
p_entity_pk3,
p_entity_pk4,
p_entity_pk5,
P_LOCK_BY_ENTITY_ID,
P_LOCK_BY_DOCUMENT_TYPE,
P_LOCK_BY_DOCUMENT_ID,
P_OBJECT_VERSION_NUMBER,
P_CREATED_BY,
P_CREATION_DATE,
P_LAST_UPDATED_BY,
P_LAST_UPDATE_DATE,
P_LAST_UPDATE_LOGIN
)
returning k_entity_lock_id INTO x_k_entity_lock_id;
G_PKG_NAME, '9999: Completed Insert_Row Procedure' );
G_PKG_NAME, '0000: Leaving Insert_Row because of EXCEPTION: '||sqlerrm);
END insert_row;
PROCEDURE delete_row (P_ENTITY_NAME IN VARCHAR2,
p_entity_pk1 IN VARCHAR2,
p_entity_pk2 IN VARCHAR2,
p_entity_pk3 IN VARCHAR2,
p_entity_pk4 IN VARCHAR2,
p_entity_pk5 IN VARCHAR2,
P_LOCK_BY_ENTITY_ID IN NUMBER,
P_LOCK_by_document_type IN VARCHAR2,
p_LOCK_by_document_id IN NUMBER,
X_RETURN_STATUS OUT NOCOPY VARCHAR2,
X_MSG_COUNT OUT NOCOPY NUMBER,
X_MSG_DATA OUT NOCOPY VARCHAR2
)
IS
l_del_Sql VARCHAR2(2000);
FND_LOG.STRING(G_STMT_LEVEL, G_PKG_NAME, '0100: Entered delete_row ');
l_del_Sql := 'DELETE FROM OKC_K_ENTITY_LOCKS WHERE ENTITY_NAME = P_ENTITY_NAME AND ENTITY_PK1 = '|| ''''||p_entity_pk1 ||'''';
G_PKG_NAME, '0500: sql to delete the lock: '||l_del_Sql);
G_PKG_NAME, '0000: Leaving DELETE_row because of EXCEPTION: '||sqlerrm);
END DELETE_row;