[Home] [Help]
PACKAGE BODY: APPS.MSC_LAUNCH_LISTENER
Source
1 PACKAGE BODY MSC_LAUNCH_LISTENER AS -- body
2 /* $Header: MSCLSTNB.pls 120.1 2005/06/21 01:59:29 appldev ship $ */
3
4 PROCEDURE LAUNCH_LISTENER( ERRBUF OUT NOCOPY VARCHAR2,
5 RETCODE OUT NOCOPY NUMBER,
6 p_agent_name IN VARCHAR2)
7 IS
8
9 BEGIN
10
11 wf_log_pkg.wf_debug_flag := TRUE;
12
13 wf_event.listen(p_agent_name);
14
15 RETCODE := G_SUCCESS;
16
17 EXCEPTION
18 when others then
19 ERRBUF := SQLERRM;
20 RETCODE := G_ERROR;
21 END LAUNCH_LISTENER;
22
23 END MSC_LAUNCH_LISTENER;
24