The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure INSERT_ROW (
X_ROWID in out nocopy varchar2,
X_GUID in raw,
X_NAME in varchar2,
X_SYSTEM_GUID in raw,
X_PROTOCOL in varchar2,
X_ADDRESS in varchar2,
X_QUEUE_HANDLER in varchar2,
X_QUEUE_NAME in varchar2,
X_DIRECTION in varchar2,
X_STATUS in varchar2,
X_DISPLAY_NAME in varchar2,
X_DESCRIPTION in varchar2,
X_TYPE in varchar2,
X_JAVA_QUEUE_HANDLER in varchar2
) is
cursor C is select rowid from wf_agents where guid = X_GUID;
insert into wf_agents (
guid,
name,
system_guid,
protocol,
address,
queue_handler,
queue_name,
direction,
status,
display_name,
description,
type,
java_queue_handler
) values (
X_GUID,
X_NAME,
X_SYSTEM_GUID,
X_PROTOCOL,
X_ADDRESS,
X_QUEUE_HANDLER,
X_QUEUE_NAME,
X_DIRECTION,
X_STATUS,
X_DISPLAY_NAME,
X_DESCRIPTION,
X_TYPE,
X_JAVA_QUEUE_HANDLER
);
wf_core.context('Wf_Agents_Pkg', 'Insert_Row', x_guid,
x_protocol );
end INSERT_ROW;
procedure UPDATE_ROW (
X_GUID in raw,
X_NAME in varchar2,
X_SYSTEM_GUID in raw,
X_PROTOCOL in varchar2,
X_ADDRESS in varchar2,
X_QUEUE_HANDLER in varchar2,
X_QUEUE_NAME in varchar2,
X_DIRECTION in varchar2,
X_STATUS in varchar2,
X_DISPLAY_NAME in varchar2,
X_DESCRIPTION in varchar2,
X_TYPE in varchar2,
X_JAVA_QUEUE_HANDLER in varchar2
) is
begin
if (x_type is null) then
update wf_agents set
name = X_NAME,
system_guid = X_SYSTEM_GUID,
protocol = X_PROTOCOL,
address = X_ADDRESS,
queue_handler = X_QUEUE_HANDLER,
queue_name = X_QUEUE_NAME,
direction = X_DIRECTION,
status = X_STATUS,
display_name = X_DISPLAY_NAME,
description = X_DESCRIPTION,
java_queue_handler = X_JAVA_QUEUE_HANDLER
where guid = X_GUID;
update wf_agents set
name = X_NAME,
system_guid = X_SYSTEM_GUID,
protocol = X_PROTOCOL,
address = X_ADDRESS,
queue_handler = X_QUEUE_HANDLER,
queue_name = X_QUEUE_NAME,
direction = X_DIRECTION,
status = X_STATUS,
display_name = X_DISPLAY_NAME,
description = X_DESCRIPTION,
type = X_TYPE,
java_queue_handler = X_JAVA_QUEUE_HANDLER
where guid = X_GUID;
wf_event.raise('oracle.apps.wf.event.agent.update',x_guid);
wf_core.context('Wf_Agents_Pkg', 'Update_Row', x_guid,
x_protocol );
end UPDATE_ROW;
WF_AGENTS_PKG.UPDATE_ROW (
X_GUID => X_GUID,
X_NAME => X_NAME,
X_SYSTEM_GUID => X_SYSTEM_GUID,
X_PROTOCOL => X_PROTOCOL,
X_ADDRESS => X_ADDRESS,
X_QUEUE_HANDLER => X_QUEUE_HANDLER,
X_QUEUE_NAME => X_QUEUE_NAME,
X_DIRECTION => X_DIRECTION,
X_STATUS => X_STATUS,
X_DISPLAY_NAME => X_DISPLAY_NAME,
X_DESCRIPTION => X_DESCRIPTION,
X_JAVA_QUEUE_HANDLER => X_JAVA_QUEUE_HANDLER
);
WF_AGENTS_PKG.UPDATE_ROW (
X_GUID => X_GUID,
X_NAME => X_NAME,
X_SYSTEM_GUID => X_SYSTEM_GUID,
X_PROTOCOL => X_PROTOCOL,
X_ADDRESS => X_ADDRESS,
X_QUEUE_HANDLER => X_QUEUE_HANDLER,
X_QUEUE_NAME => X_QUEUE_NAME,
X_DIRECTION => X_DIRECTION,
X_STATUS => X_STATUS,
X_DISPLAY_NAME => X_DISPLAY_NAME,
X_DESCRIPTION => X_DESCRIPTION,
X_TYPE => X_TYPE,
X_JAVA_QUEUE_HANDLER => X_JAVA_QUEUE_HANDLER
);
WF_AGENTS_PKG.INSERT_ROW(
X_ROWID => row_id,
X_GUID => X_GUID,
X_NAME => X_NAME,
X_SYSTEM_GUID => X_SYSTEM_GUID,
X_PROTOCOL => X_PROTOCOL,
X_ADDRESS => X_ADDRESS,
X_QUEUE_HANDLER => X_QUEUE_HANDLER,
X_QUEUE_NAME => X_QUEUE_NAME,
X_DIRECTION => X_DIRECTION,
X_STATUS => X_STATUS,
X_DISPLAY_NAME => X_DISPLAY_NAME,
X_DESCRIPTION => X_DESCRIPTION,
X_JAVA_QUEUE_HANDLER => X_JAVA_QUEUE_HANDLER
);
WF_AGENTS_PKG.INSERT_ROW(
X_ROWID => row_id,
X_GUID => X_GUID,
X_NAME => X_NAME,
X_SYSTEM_GUID => X_SYSTEM_GUID,
X_PROTOCOL => X_PROTOCOL,
X_ADDRESS => X_ADDRESS,
X_QUEUE_HANDLER => X_QUEUE_HANDLER,
X_QUEUE_NAME => X_QUEUE_NAME,
X_DIRECTION => X_DIRECTION,
X_STATUS => X_STATUS,
X_DISPLAY_NAME => X_DISPLAY_NAME,
X_DESCRIPTION => X_DESCRIPTION,
X_TYPE => X_TYPE,
X_JAVA_QUEUE_HANDLER => X_JAVA_QUEUE_HANDLER
);
procedure DELETE_ROW (
X_GUID in raw
) is
begin
wf_event.raise('oracle.apps.wf.event.agent.delete',x_guid);
delete from wf_agents where guid = X_GUID;
wf_core.context('Wf_Agents_Pkg', 'Delete_Row', x_guid);
end DELETE_ROW;
select name, system_guid, protocol, address, queue_handler,
queue_name, direction, status, display_name, description,
type,java_queue_handler
into l_name, l_system_guid, l_protocol, l_address, l_queue_handler,
l_queue_name, l_direction, l_status, l_display_name, l_description,
l_type,l_javaqhandler
from wf_agents
where guid = x_guid;
select GUID
from WF_AGENTS
where NAME = l_name;
l_message := WF_EVENT_SYNCHRONIZE_PKG.SetSYSTEMGUID(l_message); -- update #LOCAL
l_message := WF_EVENT_SYNCHRONIZE_PKG.SetSID(l_message); -- update #SID