[Home] [Help]
6: -- needs to be customized
7: CURSOR c_external_in_agents(p_agent in varchar2, p_system in varchar2) IS
8: SELECT wfa.name AGENT,
9: wfs.name SYSTEM
10: FROM wf_systems wfs,
11: wf_agents wfa
12: WHERE wfa.name not in ('WF_ERROR', 'WF_DEFERRED')
13: and wfa.name = nvl(p_agent, wfa.name)
14: and wfa.status = 'ENABLED'
26: errorMsg varchar2(300);
27: queName varchar2(100);
28: l_atsign number;
29: l_agent_name wf_agents.name%type;
30: l_sys_name wf_systems.name%type;
31: begin
32:
33: -- OUTAGENT should not be null, will default to WF_OUT if so
34: if (pAgentName is not null) then
50: -- 'WF_EVENT_QH'
51: begin
52: SELECT a.name into queName
53: FROM wf_agents a,
54: wf_systems s
55: WHERE a.direction = 'OUT'
56: AND a.status = 'ENABLED'
57: AND a.queue_handler = 'WF_EVENT_QH'
58: AND a.system_guid = s.guid
96: l_outAgent varchar2(100);
97: l_toAgent varchar2(100);
98: l_atsign number;
99: l_to_agent_name wf_agents.name%type;
100: l_to_sys_name wf_systems.name%type;
101: errorMsg varchar2(300);
102: begin
103:
104: if (funcmode = 'RUN') then
215: ------------------------------------------------------------------------------
216: l_fromagent wf_agent_t;
217: l_result varchar2(100);
218: l_returnagent wf_agents.name%type;
219: l_returnsys wf_systems.name%type;
220: begin
221:
222: if (wf_log_pkg.level_procedure >= fnd_log.g_current_runtime_level) then
223: wf_log_pkg.string(wf_log_pkg.level_procedure,