PACKAGE BODY: APPS.OE_SERVICE_CREDIT_GRP

Source

1 Package body OE_SERVICE_CREDIT_GRP As
2 /* $Header: OEXGSVCB.pls 120.0 2005/06/01 00:23:40 appldev noship $ */
3 
4 
5 PROCEDURE Get_Service_Credit_Eligible(
6 	p_line_id in number,
7 	p_service_credit_eligible out NOCOPY /* file.sql.39 change */ varchar2)
8 IS
9 l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
10 BEGIN
11 
12   IF l_debug_level  > 0 THEN
13     oe_debug_pub.add('Entering OE_SERVICE_CREDIT_PVT.GET_SERVICE_CREDIT_ELIGIBLE');
14   END IF;
15 
16   if p_line_id is null then
17 
18     IF l_debug_level  > 0 THEN
19       oe_debug_pub.add('line id is null');
20     END IF;
21 
22    raise FND_API.G_EXC_UNEXPECTED_ERROR;
23 
24   END IF;
25 
26   SELECT Service_Credit_Eligible_Code
27   INTO p_service_credit_eligible
28   FROM OE_ORDER_LINES_ALL
29   WHERE line_id = p_line_id;
30 
31   IF l_debug_level  > 0 THEN
32     oe_debug_pub.add('service_credit_eligible_code is: '|| p_service_credit_eligible);
33     oe_debug_pub.add('Exiting OE_SERVICE_CREDIT_PVT.GET_SERVICE_CREDIT_ELIGIBLE');
34   END IF;
35 
36 EXCEPTION
37   WHEN OTHERS THEN
38     IF 	OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
39 	OE_MSG_PUB.Add_Exc_Msg
40 	(   G_PKG_NAME
41 	,   'Get_Service_Credit_Eligible'
42 	);
43     END IF;
44 
45     oe_debug_pub.add('Unexpected Error');
46     RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
47 
48 END Get_Service_Credit_Eligible;
49 
50 END OE_SERVICE_CREDIT_GRP;