4: G_PKG_NAME CONSTANT VARCHAR2(30):='MRP_VendorMerge_GRP';
5:
6: Procedure Merge_Vendor( p_api_version IN NUMBER,
7: p_init_msg_list IN VARCHAR2 default
8: FND_API.G_FALSE,
9: p_commit IN VARCHAR2 default
10: FND_API.G_FALSE,
11: p_validation_level IN NUMBER :=
12: FND_API.G_VALID_LEVEL_FULL,
6: Procedure Merge_Vendor( p_api_version IN NUMBER,
7: p_init_msg_list IN VARCHAR2 default
8: FND_API.G_FALSE,
9: p_commit IN VARCHAR2 default
10: FND_API.G_FALSE,
11: p_validation_level IN NUMBER :=
12: FND_API.G_VALID_LEVEL_FULL,
13: x_return_status OUT NOCOPY VARCHAR2,
14: x_msg_count OUT NOCOPY NUMBER,
8: FND_API.G_FALSE,
9: p_commit IN VARCHAR2 default
10: FND_API.G_FALSE,
11: p_validation_level IN NUMBER :=
12: FND_API.G_VALID_LEVEL_FULL,
13: x_return_status OUT NOCOPY VARCHAR2,
14: x_msg_count OUT NOCOPY NUMBER,
15: x_msg_data OUT NOCOPY VARCHAR2,
16: p_vendor_id IN NUMBER,
35: HAVING sum(allocation_percent) <> 100;
36: BEGIN
37:
38: -- Initialize API return status to success
39: x_return_status := FND_API.G_RET_STS_SUCCESS;
40:
41:
42: -- Check for call compatibility.
43: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
39: x_return_status := FND_API.G_RET_STS_SUCCESS;
40:
41:
42: -- Check for call compatibility.
43: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
44: p_api_version ,
45: l_api_name ,
46: G_PKG_NAME )
47: THEN
44: p_api_version ,
45: l_api_name ,
46: G_PKG_NAME )
47: THEN
48: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
49: END IF;
50:
51: -- Initialize API message list if necessary.
52: -- Initialize message list if p_init_msg_list is set to TRUE.
49: END IF;
50:
51: -- Initialize API message list if necessary.
52: -- Initialize message list if p_init_msg_list is set to TRUE.
53: IF FND_API.to_Boolean( p_init_msg_list) THEN
54: FND_MSG_PUB.initialize;
55: END IF;
56:
57: UPDATE mrp_sr_source_org mrp1
150:
151: WHEN OTHERS THEN
152: dbms_output.put_line(sqlerrm);
153: ROLLBACK ;
154: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
155: FND_MSG_PUB.Count_And_Get
156: ( p_count => x_msg_count,
157: p_data => x_msg_data
158: );