PACKAGE BODY: APPS.DPP_EXECUTIONPROCESS_PUB

Source

1 PACKAGE BODY DPP_EXECUTIONPROCESS_PUB AS
2 /* $Header: dpppexcb.pls 120.19.12010000.7 2010/04/21 11:31:59 anbbalas ship $ */
3 
4 -- Package name     : DPP_EXECUTIONPROCESS_PUB
5 -- Purpose          :
6 -- History          :
7 -- NOTE             :
8 -- End of Comments
9 
10   G_PKG_NAME CONSTANT VARCHAR2(30) := 'DPP_EXECUTIONPROCESS_PUB';
11   G_DEBUG BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
12   G_FILE_NAME     CONSTANT VARCHAR2(14) := 'dpppexcb.pls';
13 
14 ---------------------------------------------------------------------
15 -- PROCEDURE
16 --    Initiate_ExecutionProcess
17 --
18 -- PURPOSE
19 --    Initiate Execution Process
20 --
21 -- PARAMETERS
22 --
23 -- NOTES
24 --    1.
25 --    2.
26 ----------------------------------------------------------------------
27 PROCEDURE Initiate_ExecutionProcess(errbuff        OUT NOCOPY VARCHAR2,
28                                     retcode        OUT NOCOPY VARCHAR2,
29                                     p_in_org_id          IN   NUMBER,
30                                     p_in_txn_number  IN VARCHAR2
31                                    )
32 IS
33 L_API_NAME          CONSTANT VARCHAR2(30) := 'Initiate_ExecutionProcess';
34 l_module            CONSTANT VARCHAR2(100) := 'dpp.plsql.DPP_EXECUTIONPROCESS_PUB.Initiate_ExecutionProcess';
35   BEGIN
36 
37   -- Debug Message
38   dpp_utility_pvt.debug_message(FND_LOG.LEVEL_PROCEDURE, l_module, 'Public API: ' || l_api_name || 'start');
39 
40  DPP_EXECUTIONPROCESS_PVT.Initiate_ExecutionProcess(
41                                        errbuff,
42                                        retcode,
43                                        p_in_org_id,
44                                        p_in_txn_number
45                                        );
46   -- Debug Message
47   dpp_utility_pvt.debug_message(FND_LOG.LEVEL_PROCEDURE, l_module, 'Public API: ' || l_api_name || 'end');
48 
49 EXCEPTION
50     WHEN NO_DATA_FOUND THEN
51        ROLLBACK;
52        retcode := '1';
53        errbuff := 'No Data Found.....';
54          FND_FILE.PUT_LINE(FND_FILE.LOG,'No Data Found.....');
55          FND_FILE.NEW_LINE(FND_FILE.LOG);
56 
57     WHEN OTHERS THEN
58        ROLLBACK;
59        retcode := '1';
60        errbuff := 'When Others Exception'||SQLERRM;
61          FND_FILE.PUT_LINE(FND_FILE.LOG,'When Others Exception'||SQLERRM);
62          FND_FILE.NEW_LINE(FND_FILE.LOG);
63   END Initiate_ExecutionProcess;
64 
65 END DPP_EXECUTIONPROCESS_PUB;