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