PACKAGE BODY: APPS.OE_BLANKET_UTIL_MISC

Source

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)
6 IS
7 l_sales_document_name   varchar2(240);
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 
17 
18                SELECT sales_document_name
19                INTO  l_sales_document_name
20                FROM oe_blanket_headers
21                WHERE order_number = p_blanket_number
22                AND ROWNUM =1;
23                x_blanket_agr_name := l_sales_document_name;
24 
25         else
26                l_sales_document_name := null;
27                x_blanket_agr_name := null;
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 
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,
52                                        'get_blanketagrname');
53            END IF;
54 
55 end Get_BlanketAgrName;
56 
57 
58 end oe_blanket_util_misc;