The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure INSERT_ROW (
X_ROWID IN OUT NOCOPY VARCHAR2,
X_USAGE_ID IN NUMBER,
X_ACTION_ID IN NUMBER,
X_APPLICABLE_FOR IN VARCHAR2,
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,
X_OBJECT_VERSION_NUMBER in NUMBER
) is
cursor c is select ROWID from AMS_CLIK_THRU_USAGES
where USAGE_ID = X_USAGE_ID
;
insert into AMS_CLIK_THRU_USAGES (
USAGE_ID,
ACTION_ID,
APPLICABLE_FOR,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_LOGIN,
OBJECT_VERSION_NUMBER
) values (
X_USAGE_ID,
X_ACTION_ID,
X_APPLICABLE_FOR,
DECODE(X_LAST_UPDATE_DATE,FND_API.G_MISS_DATE,SYSDATE,NULL,SYSDATE,X_LAST_UPDATE_DATE),
DECODE(X_LAST_UPDATED_BY,FND_API.G_MISS_NUM,FND_GLOBAL.user_id,NULL,FND_GLOBAL.user_id,X_LAST_UPDATED_BY),
DECODE(X_CREATION_DATE,FND_API.G_MISS_DATE,SYSDATE,NULL,SYSDATE,X_CREATION_DATE),
DECODE(X_CREATED_BY,FND_API.G_MISS_NUM,FND_GLOBAL.user_id,NULL,FND_GLOBAL.user_id,X_CREATED_BY),
DECODE(X_LAST_UPDATE_LOGIN,FND_API.G_MISS_NUM,FND_GLOBAL.login_id,NULL,FND_GLOBAL.user_id,X_LAST_UPDATE_LOGIN),
X_OBJECT_VERSION_NUMBER
);
end INSERT_ROW;
cursor c is select
OBJECT_VERSION_NUMBER,
ACTION_ID,
APPLICABLE_FOR,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_LOGIN
from AMS_CLIK_THRU_USAGES
where USAGE_ID = X_USAGE_ID
for update of USAGE_ID nowait;
fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
procedure UPDATE_ROW (
X_USAGE_ID IN NUMBER,
X_OBJECT_VERSION_NUMBER in NUMBER,
X_ACTION_ID IN NUMBER,
X_APPLICABLE_FOR IN VARCHAR2,
X_LAST_UPDATE_DATE in DATE,
X_LAST_UPDATED_BY in NUMBER,
X_LAST_UPDATE_LOGIN in NUMBER
) is
begin
update AMS_CLIK_THRU_USAGES set
OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER
,ACTION_ID = X_ACTION_ID
,APPLICABLE_FOR = X_APPLICABLE_FOR
,LAST_UPDATE_DATE = X_LAST_UPDATE_DATE
,LAST_UPDATED_BY = X_LAST_UPDATED_BY
,LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
where USAGE_ID = X_USAGE_ID;
end UPDATE_ROW;
procedure DELETE_ROW (
X_USAGE_ID IN NUMBER
) is
begin
delete from AMS_CLIK_THRU_USAGES
where USAGE_ID = X_USAGE_ID;
end DELETE_ROW;
l_last_updated_by number;
select OBJECT_VERSION_NUMBER,
last_updated_by
from AMS_CLIK_THRU_USAGES
where USAGE_ID = X_USAGE_ID;
select 'x'
from AMS_CLIK_THRU_USAGES
where USAGE_ID = X_USAGE_ID;
AMS_CTD_USAGES_PKG.INSERT_ROW (
X_ROWID => l_row_id,
X_USAGE_ID => X_USAGE_ID,
X_ACTION_ID => X_ACTION_ID,
X_APPLICABLE_FOR => X_APPLICABLE_FOR,
X_LAST_UPDATE_DATE => sysdate,
X_LAST_UPDATED_BY => l_user_id,
X_CREATION_DATE => sysdate,
X_CREATED_BY => l_user_id,
X_LAST_UPDATE_LOGIN => 0,
X_OBJECT_VERSION_NUMBER => l_obj_verno
);
fetch c_obj_verno into l_obj_verno,l_last_updated_by;
if (l_last_updated_by in (1,2,0) OR
NVL(x_custom_mode,'PRESERVE')='FORCE') THEN
AMS_CTD_USAGES_PKG.UPDATE_ROW(
X_USAGE_ID => X_USAGE_ID,
X_ACTION_ID => X_ACTION_ID,
X_APPLICABLE_FOR => X_APPLICABLE_FOR,
X_LAST_UPDATE_DATE => SYSDATE,
X_LAST_UPDATED_BY => l_user_id,
X_LAST_UPDATE_LOGIN => 0,
X_OBJECT_VERSION_NUMBER => l_obj_verno + 1
);
select sysdate into l_date from dual;