The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure INSERT_ROW (
X_ROWID in out nocopy VARCHAR2,
X_ACTION_ID in NUMBER,
X_ACTION_ITEM_ID in NUMBER,
X_DEFAULT_WRAP_ID in NUMBER,
X_OBJECT_VERSION_NUMBER in NUMBER,
X_CREATION_DATE in DATE,
X_CREATED_BY in NUMBER,
X_LAST_UPDATE_DATE in DATE,
X_LAST_UPDATED_BY in NUMBER,
X_LAST_UPDATE_LOGIN in NUMBER
) is
cursor C is select ROWID from JTF_IH_ACTION_ACTION_ITEMS
where ACTION_ID = X_ACTION_ID
AND ACTION_ITEM_ID = X_ACTION_ITEM_ID
;
insert into JTF_IH_ACTION_ACTION_ITEMS (
ACTION_ID,
ACTION_ITEM_ID,
DEFAULT_WRAP_ID,
OBJECT_VERSION_NUMBER,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN
) values (
X_ACTION_ID,
X_ACTION_ITEM_ID,
X_DEFAULT_WRAP_ID,
X_OBJECT_VERSION_NUMBER,
X_CREATION_DATE,
X_CREATED_BY,
X_LAST_UPDATE_DATE,
X_LAST_UPDATED_BY,
X_LAST_UPDATE_LOGIN
);
end INSERT_ROW;
cursor c is select
OBJECT_VERSION_NUMBER
from JTF_IH_ACTION_ACTION_ITEMS
where ACTION_ID = X_ACTION_ID AND ACTION_ITEM_ID = X_ACTION_ITEM_ID
for update of ACTION_ID, ACTION_ITEM_ID nowait;
fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
procedure UPDATE_ROW (
X_ACTION_ID in NUMBER,
X_ACTION_ITEM_ID in NUMBER,
X_DEFAULT_WRAP_ID in NUMBER,
X_OBJECT_VERSION_NUMBER in NUMBER,
X_LAST_UPDATE_DATE in DATE,
X_LAST_UPDATED_BY in NUMBER,
X_LAST_UPDATE_LOGIN in NUMBER
) is
-- RDD - Bug 3772863 - Cursoe to get the existing value. If it is not null, then use in place of passed ID
cursor C is select DEFAULT_WRAP_ID,LAST_UPDATED_BY
from JTF_IH_ACTION_ACTION_ITEMS
where ACTION_ID = X_ACTION_ID AND
ACTION_ITEM_ID = X_ACTION_ITEM_ID;
l_last_updated_by NUMBER;
fetch c into l_default_wrap_id, l_last_updated_by;
if (l_last_updated_by = X_LAST_UPDATED_BY) then
l_default_wrap_id := X_DEFAULT_WRAP_ID;
update JTF_IH_ACTION_ACTION_ITEMS set
DEFAULT_WRAP_ID = l_default_wrap_id,
OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
LAST_UPDATED_BY = X_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
where ACTION_ID = X_ACTION_ID
AND ACTION_ITEM_ID = X_ACTION_ITEM_ID;
end UPDATE_ROW;
procedure DELETE_ROW (
X_ACTION_ID in NUMBER,
X_ACTION_ITEM_ID in NUMBER
) is
begin
delete from JTF_IH_ACTION_ACTION_ITEMS
where ACTION_ID = X_ACTION_ID AND ACTION_ITEM_ID = X_ACTION_ITEM_ID;
end DELETE_ROW;
UPDATE_ROW(
X_ACTION_ID => l_action_id,
X_ACTION_ITEM_ID => l_action_item_id,
X_DEFAULT_WRAP_ID => l_default_wrap_id,
X_OBJECT_VERSION_NUMBER => l_object_version_number,
X_LAST_UPDATE_DATE => SYSDATE,
X_LAST_UPDATED_BY => l_user_id,
X_LAST_UPDATE_LOGIN => l_login_id);
INSERT_ROW(
l_row_id,
X_ACTION_ID => l_action_id,
X_ACTION_ITEM_ID => l_action_item_id,
X_DEFAULT_WRAP_ID => l_default_wrap_id,
X_OBJECT_VERSION_NUMBER => l_object_version_number,
X_CREATION_DATE => SYSDATE,
X_CREATED_BY => l_user_id,
X_LAST_UPDATE_DATE => sysdate,
X_LAST_UPDATED_BY => l_user_id,
X_LAST_UPDATE_LOGIN => l_login_id);