1 PACKAGE BODY MTL_RELATED_ITEMS_PUB AS
2 /* $Header: INVPRITB.pls 120.0 2011/03/08 20:07:15 mshirkol noship $ */
3
4 Procedure Process_Rel_Item(
5 p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
6 ,P_Init_Msg_List In Varchar2 Default Fnd_Api.G_False
7 ,p_Rel_Item_Rec IN OUT NOCOPY MTL_RELATED_ITEMS_PUB.Rel_Item_Rec_Type
8 ,p_Pln_Info_Tbl IN OUT NOCOPY MTL_RELATED_ITEMS_PUB.Pln_Info_Tbl_Type
9 ,p_Cust_Ref_Tbl IN OUT NOCOPY MTL_RELATED_ITEMS_PUB.Cust_Ref_Tbl_Type
10 ,x_return_status OUT NOCOPY VARCHAR2
11 ,x_msg_count OUT NOCOPY NUMBER
12 ,x_msg_list OUT NOCOPY Error_Handler.Error_Tbl_Type) IS
13
14 BEGIN
15
16 -- Savepoint for MTL_RELATED_ITEMS_PUB
17 SAVEPOINT MTL_RELATED_ITEMS_PUB;
18
19 -- Initialize message list
20 IF FND_API.To_Boolean (p_init_msg_list) THEN
21 Error_Handler.Initialize;
22 END IF;
23
24 -- Set business object indentifier in the System Information record ???
25 Error_Handler.Set_BO_Identifier ( p_bo_identifier => G_BO_Identifier );
26
27 -- Calling Private API to process Related Items record and its
28 -- corresponding Planning Information and Customer Reference tables
29 MTL_RELATED_ITEMS_PVT.Process_Rel_Item
30 (
31 p_commit => p_commit
32 ,p_init_msg_list => p_init_msg_list
33 ,p_Rel_Item_Rec => p_Rel_Item_Rec
34 ,p_Pln_Info_Tbl => p_Pln_Info_Tbl
35 ,p_Cust_Ref_Tbl => p_Cust_Ref_Tbl
36 ,x_return_status => x_return_status
37 ,x_msg_count => x_msg_count
38 ,x_msg_list => x_msg_list
39 );
40
41 -- Printing error messages
42 IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
43 Error_Handler.GET_MESSAGE_LIST(x_message_list=>x_msg_list);
44 END IF;
45
46 EXCEPTION
47 WHEN OTHERS THEN
48 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
49 ROLLBACK TO MTL_RELATED_ITEMS_PUB; -- rolling back to savepoint
50
51 END Process_Rel_Item;
52
53 END MTL_RELATED_ITEMS_PUB;