[Home] [Help]
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'
15: and wfa.direction = 'IN'
25: procedure ValidateOutAgent(pAgentName in out nocopy varchar2) is
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
49: -- agent should exist, be enabled, be an OUT agent, and its queue handler be
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'
95: l_clob clob;
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:
214: ) return varchar2 is
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