PACKAGE BODY: APPS.OE_INVOICE_UTIL

Source

1 PACKAGE BODY OE_Invoice_Util AS
2 /*  $Header: OEXUINVB.pls 120.0 2005/06/01 01:23:25 appldev noship $ */
3 
4 --  Global constant holding the package name
5 
6 G_PKG_NAME     CONSTANT VARCHAR2(30) := 'OE_Invoice_Util';
7 
8 PROCEDURE Update_Interco_Invoiced_Flag
9 (   p_price_adjustment_id  IN  NUMBER
10 , x_return_status OUT NOCOPY VARCHAR2
11 
12 ) IS
13 l_Header_Adj_tbl              OE_Order_PUB.Header_Adj_Tbl_Type;
14 l_Old_Header_Adj_tbl          OE_Order_PUB.Header_Adj_Tbl_Type;
15 l_return_status               VARCHAR2(30);
16 --
17 l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
18 --
19 BEGIN
20     IF l_debug_level  > 0 THEN
21         oe_debug_pub.add(  'ENTERING UPDATE_INTERCO_INVOICED_FLAG' , 1 ) ;
22     END IF;
23     OE_Header_Adj_Util.Lock_Rows
24     	(P_PRICE_ADJUSTMENT_ID=>p_price_adjustment_id,
25          X_HEADER_ADJ_TBL=>l_old_header_adj_tbl,
26 	     X_RETURN_STATUS => l_return_status);
27     IF    l_return_status = FND_API.G_RET_STS_ERROR THEN
28 	      RAISE FND_API.G_EXC_ERROR;
29     ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
30 	      RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31     END IF;
32     l_Header_Adj_tbl := l_old_Header_Adj_Tbl;
33     UPDATE OE_PRICE_ADJUSTMENTS
34     SET    INTERCO_INVOICED_FLAG = 'Y'
35 	     , LOCK_CONTROL = LOCK_CONTROL + 1
36     WHERE  PRICE_ADJUSTMENT_ID = p_price_adjustment_id;
37     x_return_status := FND_API.G_RET_STS_SUCCESS;
38 
39     --l_Header_Adj_tbl(1).Invoiced_Flag := 'Y';
40     l_Header_Adj_tbl(1).lock_control := l_Header_Adj_tbl(1).lock_control + 1;
41     OE_Order_PVT.PROCESS_REQUESTS_AND_NOTIFY(P_HEADER_ADJ_TBL =>l_Header_Adj_tbl,
42                                 P_OLD_HEADER_ADJ_TBL =>l_Old_Header_Adj_tbl,
43                                 P_PROCESS_REQUESTS => TRUE,
44                                 P_NOTIFY => TRUE,
45                                 X_RETURN_STATUS => l_return_status);
46     IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
47          RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
48     END IF;
49     IF l_debug_level  > 0 THEN
50         oe_debug_pub.add(  'EXIT UPDATE_INTERCO_INVOICED_FLAG ( ) PROCEDURE' , 1 ) ;
51     END IF;
52 EXCEPTION
53     WHEN OTHERS THEN
54         x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
55         IF      FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
56         THEN
57                 OE_MSG_PUB.Add_Exc_Msg
58                         (   G_PKG_NAME
59                         ,   'Update_Interco_Invoiced_flag'
60                         );
61         END IF;
62 END Update_Interco_Invoiced_Flag;
63 
64 END OE_Invoice_Util;