The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE INSERT_ROW (
X_LIFECYCLE_USAGE_ID in NUMBER,
X_RECORD_VERSION_NUMBER in NUMBER :=1,
X_LIFECYCLE_ID in NUMBER,
X_USAGE_TYPE in VARCHAR2
) IS
BEGIN
insert into PA_LIFECYCLE_USAGES (
LAST_UPDATE_LOGIN,
RECORD_VERSION_NUMBER,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
CREATED_BY,
LIFECYCLE_USAGE_ID,
LIFECYCLE_ID,
USAGE_TYPE,
CREATION_DATE
) values
(
FND_GLOBAL.LOGIN_ID,
1,
SYSDATE,
FND_GLOBAL.USER_ID,
FND_GLOBAL.USER_ID,
X_LIFECYCLE_USAGE_ID,
X_LIFECYCLE_ID,
X_USAGE_TYPE,
SYSDATE
);
END INSERT_ROW;
cursor c1 is select
RECORD_VERSION_NUMBER,
LIFECYCLE_ID,
USAGE_TYPE,
LIFECYCLE_USAGE_ID
from PA_LIFECYCLE_USAGES
where LIFECYCLE_USAGE_ID = X_LIFECYCLE_USAGE_ID
for update of LIFECYCLE_USAGE_ID nowait;
PROCEDURE UPDATE_ROW (
X_LIFECYCLE_USAGE_ID in NUMBER,
X_RECORD_VERSION_NUMBER in NUMBER,
X_LIFECYCLE_ID in NUMBER,
X_USAGE_TYPE in VARCHAR2
) IS
BEGIN
update PA_LIFECYCLE_USAGES set
RECORD_VERSION_NUMBER = nvl(X_RECORD_VERSION_NUMBER,0)+1,
LIFECYCLE_ID = X_LIFECYCLE_ID,
USAGE_TYPE = X_USAGE_TYPE,
LIFECYCLE_USAGE_ID = X_LIFECYCLE_USAGE_ID,
LAST_UPDATE_DATE = SYSDATE,
LAST_UPDATED_BY = FND_GLOBAL.USER_ID,
LAST_UPDATE_LOGIN = FND_GLOBAL.LOGIN_ID
where LIFECYCLE_USAGE_ID = X_LIFECYCLE_USAGE_ID;
END UPDATE_ROW;
PROCEDURE DELETE_ROW (
X_LIFECYCLE_USAGE_ID in NUMBER
) IS
BEGIN
delete from PA_LIFECYCLE_USAGES
where LIFECYCLE_USAGE_ID = X_LIFECYCLE_USAGE_ID;
END DELETE_ROW;