PACKAGE BODY: APPS.INV_ITEM_STATUS_PUB

Source

1 PACKAGE BODY INV_ITEM_STATUS_PUB AS
2 /* $Header: INVPISTB.pls 120.1 2006/05/26 07:24:58 lparihar noship $ */
3 
4 G_PKG_NAME     CONSTANT  VARCHAR2(30)  :=  'INV_ITEM_STATUS_PUB';
5 G_FILE_NAME    CONSTANT  VARCHAR2(12)  :=  'INVPISTB.pls';
6 
7 PROCEDURE Update_Pending_Status (p_api_version   IN   NUMBER
8 				,p_Org_Id        IN   NUMBER  := NULL
9 				,p_Item_Id       IN   NUMBER  := NULL
10                                 ,p_init_msg_list IN   VARCHAR2:=  FND_API.G_FALSE
11                                 ,p_commit        IN   VARCHAR2:=  FND_API.g_FALSE
12 				,x_return_status OUT  NOCOPY VARCHAR2
13                                 ,x_msg_count     OUT  NOCOPY NUMBER
14                                 ,x_msg_data      OUT  NOCOPY VARCHAR2)
15 IS
16    l_api_name        CONSTANT  VARCHAR2(30)  :=  'Update_Pending_Status';
17    l_api_version     CONSTANT  NUMBER        :=  1.0;
18    l_errbuf          VARCHAR2(1000);
19    l_ret_code        NUMBER(10);
20 
21 BEGIN
22 
23    IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,
24                                        l_api_name, G_PKG_NAME)
25    THEN
26       RAISE FND_API.g_EXC_UNEXPECTED_ERROR;
27    END IF;
28 
29    -- Initialize API return status to success
30    x_return_status := FND_API.g_RET_STS_SUCCESS;
31 
32    INV_ITEM_STATUS_CP.Process_Pending_Status
33                          (ERRBUF          => l_errbuf
34  		         ,RETCODE         => l_ret_code
35 			 ,p_Org_Id        => p_Org_Id
36 			 ,p_Item_Id       => p_Item_Id
37                          ,p_commit        => p_commit
38                          ,p_init_msg_list => p_init_msg_list
39 			 ,p_msg_logname   => 'PLM_LOG');
40 
41    INV_ITEM_MSG.Count_And_Get(p_count  =>  x_msg_count
42                              ,p_data   =>  x_msg_data);
43 
44    --5230594 Commenting this delete call the messages will be accessed in UI
45    --INV_ITEM_MSG.Write_List(p_delete => TRUE);
46 
47    IF l_ret_code IN(1,2) THEN
48       x_return_status := FND_API.g_RET_STS_ERROR;
49    END IF;
50 
51 EXCEPTION
52    WHEN FND_API.g_EXC_UNEXPECTED_ERROR THEN
53       x_return_status := FND_API.g_RET_STS_UNEXP_ERROR;
54       INV_ITEM_MSG.Count_And_Get(p_count  =>  x_msg_count
55                                 ,p_data   =>  x_msg_data);
56       INV_ITEM_MSG.Write_List(p_delete => TRUE);
57 
58    WHEN OTHERS THEN
59       x_return_status := FND_API.g_RET_STS_UNEXP_ERROR;
60       INV_ITEM_MSG.Count_And_Get(p_count  =>  x_msg_count
61                                 ,p_data   =>  x_msg_data);
62       INV_ITEM_MSG.Write_List(p_delete => TRUE);
63 
64 END Update_Pending_Status;
65 
66 end INV_ITEM_STATUS_PUB;