1: PACKAGE BODY OE_Blanket_util_misc AS
2: /* $Header: OEXUBMSB.pls 115.2 2003/11/12 21:59:36 spagadal ship $ */
3:
4: Procedure Get_BlanketAgrName (p_blanket_number IN varchar2,
5: x_blanket_agr_name OUT NOCOPY VARCHAR2)
8: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
9: Begin
10:
11: IF l_debug_level > 0 THEN
12: oe_debug_pub.add('ENTER IN OE_Blanket_Util_Misc.Get_BlanketAgrName '||p_blanket_number);
13: END IF;
14:
15: if p_blanket_number is not null then
16:
28:
29: end if;
30:
31: IF l_debug_level > 0 THEN
32: oe_debug_pub.add('EXIT IN OE_Blanket_Util_Misc.Get_BlanketAgrName '||l_sales_document_name);
33: END IF;
34:
35:
36: EXCEPTION
37:
38: WHEN NO_DATA_FOUND THEN
39:
40: IF l_debug_level > 0 THEN
41: oe_debug_pub.add('IN EXCEPTION OE_Blanket_Util_Misc.Get_BlanketAgrName WHEN no_data_found');
42: end if;
43: l_sales_document_name := '';
44: WHEN OTHERS THEN
45:
43: l_sales_document_name := '';
44: WHEN OTHERS THEN
45:
46: IF l_debug_level > 0 THEN
47: oe_debug_pub.add('IN EXCEPTION OE_Blanket_Util_Misc.Get_BlanketAgrName WHEN OTEHRS');
48: end if;
49: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
50: THEN
51: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
54:
55: end Get_BlanketAgrName;
56:
57:
58: end oe_blanket_util_misc;