DBA Data[Home] [Help]

PACKAGE BODY: APPS.OE_COGS_EXTENSION

Source


1 PACKAGE BODY oe_cogs_extension AS
2 /* $Header: OEXECGSB.pls 120.0 2010/09/30 06:08:00 cpati noship $ */
3 
4 
5 PROCEDURE get_revenue_event_line
6             (
7              p_shippable_line_id      IN  NUMBER,
8              x_revenue_event_line_id  OUT NOCOPY NUMBER,
9              x_return_status          OUT NOCOPY VARCHAR2,
10              x_msg_count              OUT NOCOPY NUMBER,
11              x_msg_data               OUT NOCOPY VARCHAR2
12            )	IS
13 
14 l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
15 
16 
17    BEGIN
18 	   x_return_status := FND_API.G_RET_STS_SUCCESS;
19 
20       IF l_debug_level  > 0
21       THEN
22  	  OE_DEBUG_PUB.ADD('Entering oe_cogs_extension.get_revenue_event_line ');
23       END IF;
24 
25            x_revenue_event_line_id := -1;
26 
27 /*
28      This API by default returns -1.Customer can customize this API to derive
29      Revenue OM Line Id for ATO model.When this API would return -1 the seeded
30      logic of deriving revenue OM line ID would be executed else customer can
31      customize this to return a non -1 line id which would be honoured with
32      some validation.Please use customize debug messages so that in case of any
33      issue it can be easily identified.
34 
35 */
36 
37       IF l_debug_level  > 0
38       THEN
39  	  OE_DEBUG_PUB.ADD('Exiting oe_cogs_extension.get_revenue_event_line ');
40       END IF;
41 
42    EXCEPTION
43 
44      WHEN OTHERS THEN
45         x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
46         IF l_debug_level  > 0
47         THEN
48  	    OE_DEBUG_PUB.ADD('Error oe_cogs_extension.get_revenue_event_line :'||substr(SQLCODE,1,250));
49         END IF;
50 
51    END get_revenue_event_line;
52 
53 
54 END oe_cogs_extension;