The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure INSERT_ROW ( X_ROWID IN OUT NOCOPY VARCHAR2,
X_OBJECT_CODE IN VARCHAR2,
X_APPLICATION_ID IN NUMBER,
X_PAGE_TYPE IN VARCHAR2,
X_PG_REGION_PATH IN VARCHAR2,
X_CREATION_DATE IN DATE,
X_CREATED_BY IN NUMBER,
X_LAST_UPDATED_BY IN NUMBER,
X_LAST_UPDATE_DATE IN DATE,
X_LAST_UPDATE_LOGIN IN NUMBER
)is
l_OBJECT_DTLS_ID number;
select ROWID from jtf_object_pg_dtls
where object_dtls_id=l_OBJECT_DTLS_ID;
INSERT INTO JTF_OBJECT_PG_DTLS
(OBJECT_DTLS_ID ,
OBJECT_CODE ,
APPLICATION_ID ,
PAGE_TYPE ,
PG_REGION_PATH,
CREATION_DATE ,
CREATED_BY ,
LAST_UPDATED_BY ,
LAST_UPDATE_DATE ,
LAST_UPDATE_LOGIN,
OBJECT_VERSION_NUMBER)
VALUES (
JTF_OBJECT_PG_DTLS_S.NEXTVAL,
X_OBJECT_CODE ,
X_APPLICATION_ID ,
X_PAGE_TYPE ,
X_PG_REGION_PATH,
X_CREATION_DATE ,
X_CREATED_BY ,
X_LAST_UPDATED_BY ,
X_LAST_UPDATE_DATE ,
X_LAST_UPDATE_LOGIN,
1.0 )
returning OBJECT_DTLS_ID into l_OBJECT_DTLS_ID;
end INSERT_ROW;
cursor c is select
OBJECT_VERSION_NUMBER
from jtf_object_pg_dtls
where object_dtls_id = X_OBJECT_DTLS_ID
for update of OBJECT_DTLS_ID nowait;
procedure UPDATE_ROW ( X_OBJECT_DTLS_ID IN NUMBER,
X_OBJECT_CODE IN VARCHAR2,
X_APPLICATION_ID IN NUMBER,
X_PAGE_TYPE IN VARCHAR2,
X_PG_REGION_PATH IN VARCHAR2,
X_LAST_UPDATED_BY IN NUMBER,
X_LAST_UPDATE_DATE IN DATE,
X_LAST_UPDATE_LOGIN IN NUMBER,
X_OBJECT_VERSION_NUMBER IN OUT NOCOPY NUMBER
) is
begin
update JTF_OBJECT_PG_DTLS set
OBJECT_CODE=X_OBJECT_CODE ,
APPLICATION_ID=X_APPLICATION_ID ,
PAGE_TYPE=X_PAGE_TYPE,
PG_REGION_PATH=X_PG_REGION_PATH,
LAST_UPDATED_BY=X_LAST_UPDATED_BY,
LAST_UPDATE_DATE=X_LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN=X_LAST_UPDATE_LOGIN,
OBJECT_VERSION_NUMBER=(X_OBJECT_VERSION_NUMBER+1.0)
where OBJECT_DTLS_ID=X_OBJECT_DTLS_ID;
end UPDATE_ROW;
procedure DELETE_ROW (
X_OBJECT_DTLS_ID IN NUMBER,
X_OBJECT_VERSION_NUMBER IN NUMBER
) is
begin
delete from JTF_OBJECT_PG_DTLS
where OBJECT_DTLS_ID = X_OBJECT_DTLS_ID
and OBJECT_VERSION_NUMBER=X_OBJECT_VERSION_NUMBER;
end DELETE_ROW;