The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure INSERT_ROW (
PX_EVENT_CODE in out NOCOPY VARCHAR2,
PX_ACTION_CODE in out NOCOPY VARCHAR2,
P_SEEDED_FLAG in VARCHAR2,
P_APPLICATION_ID in NUMBER,
P_START_DATE_ACTIVE in DATE,
P_END_DATE_ACTIVE in DATE,
P_CREATION_DATE in DATE,
P_CREATED_BY in NUMBER,
P_LAST_UPDATE_DATE in DATE,
P_LAST_UPDATED_BY in NUMBER,
P_LAST_UPDATE_LOGIN in NUMBER,
X_OBJECT_VERSION_NUMBER out NOCOPY NUMBER
) is
l_object_Version_number number := 1;
insert into CS_SR_EVENT_ACTIONS (
EVENT_CODE,
ACTION_CODE,
SEEDED_FLAG,
APPLICATION_ID,
START_DATE_ACTIVE,
END_DATE_ACTIVE,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN,
OBJECT_VERSION_NUMBER
) values (
PX_EVENT_CODE,
PX_ACTION_CODE,
P_SEEDED_FLAG,
P_APPLICATION_ID,
P_START_DATE_ACTIVE,
P_END_DATE_ACTIVE,
P_CREATED_BY,
P_CREATION_DATE,
P_LAST_UPDATED_BY,
P_LAST_UPDATE_DATE,
P_LAST_UPDATE_LOGIN,
L_OBJECT_VERSION_NUMBER);
end INSERT_ROW;
cursor c is select
OBJECT_VERSION_NUMBER
from CS_SR_EVENT_ACTIONS
where EVENT_CODE = P_EVENT_CODE
and ACTION_CODE = P_ACTION_CODE
for update of EVENT_CODE nowait;
fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
procedure UPDATE_ROW (
P_EVENT_CODE in VARCHAR2,
P_ACTION_CODE in VARCHAR2,
P_SEEDED_FLAG in VARCHAR2,
P_APPLICATION_ID in NUMBER,
P_START_DATE_ACTIVE in DATE,
P_END_DATE_ACTIVE in DATE,
P_LAST_UPDATE_DATE in DATE,
P_LAST_UPDATED_BY in NUMBER,
P_LAST_UPDATE_LOGIN in NUMBER,
X_OBJECT_VERSION_NUMBER out NOCOPY NUMBER
) is
begin
update CS_SR_EVENT_ACTIONS set
SEEDED_FLAG = P_SEEDED_FLAG,
APPLICATION_ID = P_APPLICATION_ID,
OBJECT_VERSION_NUMBER = OBJECT_VERSION_NUMBER + 1,
START_DATE_ACTIVE = P_START_DATE_ACTIVE,
END_DATE_ACTIVE = P_END_DATE_ACTIVE,
EVENT_CODE = P_EVENT_CODE,
LAST_UPDATE_DATE = P_LAST_UPDATE_DATE,
LAST_UPDATED_BY = P_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = P_LAST_UPDATE_LOGIN
where EVENT_CODE = P_EVENT_CODE
and ACTION_CODE = P_ACTION_CODE
RETURNING OBJECT_VERSION_NUMBER INTO X_OBJECT_VERSION_NUMBER;
end UPDATE_ROW;
procedure DELETE_ROW (
P_EVENT_CODE in VARCHAR2,
P_ACTION_CODE in VARCHAR2
) is
begin
delete from CS_SR_EVENT_ACTIONS
where EVENT_CODE = P_EVENT_CODE
and ACTION_CODE = P_ACTION_CODE;
end DELETE_ROW;
P_LAST_UPDATE_DATE IN VARCHAR2,
P_LAST_UPDATED_BY IN NUMBER,
P_LAST_UPDATE_LOGIN IN NUMBER,
P_OBJECT_VERSION_NUMBER IN NUMBER
)
IS
-- Out local variables for the update / insert row procedures.
lx_object_version_number NUMBER := 0;
UPDATE_ROW (
P_EVENT_CODE =>l_event_code,
P_ACTION_CODE =>l_action_code,
P_SEEDED_FLAG =>p_seeded_flag,
P_APPLICATION_ID =>p_application_id,
P_START_DATE_ACTIVE =>to_date(p_start_date_active,'DD-MM-YYYY'),
P_END_DATE_ACTIVE =>to_date(p_end_date_active,'DD-MM-YYYY'),
P_LAST_UPDATE_DATE =>nvl(to_date(p_last_update_date,
'DD-MM-YYYY'),sysdate),
P_LAST_UPDATED_BY =>l_user_id,
P_LAST_UPDATE_LOGIN =>0,
X_OBJECT_VERSION_NUMBER =>lx_object_version_number
);
INSERT_ROW (
PX_EVENT_CODE =>l_event_code,
PX_ACTION_CODE =>l_action_code,
P_SEEDED_FLAG =>p_seeded_flag,
P_APPLICATION_ID =>p_application_id,
P_START_DATE_ACTIVE =>to_date(p_start_date_active,'DD-MM-YYYY'),
P_END_DATE_ACTIVE =>to_date(p_end_date_active,'DD-MM-YYYY'),
P_CREATION_DATE =>nvl(to_date( p_creation_date,
'DD-MM-YYYY'),sysdate),
P_CREATED_BY =>l_user_id,
P_LAST_UPDATE_DATE =>nvl(to_date( p_last_update_date,
'DD-MM-YYYY'),sysdate),
P_LAST_UPDATED_BY =>l_user_id,
P_LAST_UPDATE_LOGIN =>0,
X_OBJECT_VERSION_NUMBER =>lx_object_version_number
);