4: G_PKG_NAME CONSTANT VARCHAR2(30):='CHV_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,
26:
27: BEGIN
28:
29: -- Initialize API return status to success
30: x_return_status := FND_API.G_RET_STS_SUCCESS;
31:
32:
33:
34: -- Check for call compatibility.
31:
32:
33:
34: -- Check for call compatibility.
35: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
36: p_api_version ,
37: l_api_name ,
38: G_PKG_NAME )
39: THEN
36: p_api_version ,
37: l_api_name ,
38: G_PKG_NAME )
39: THEN
40: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
41: END IF;
42:
43: -- Initialize API message list if necessary.
44: -- Initialize message list if p_init_msg_list is set to TRUE.
41: END IF;
42:
43: -- Initialize API message list if necessary.
44: -- Initialize message list if p_init_msg_list is set to TRUE.
45: IF FND_API.to_Boolean( p_init_msg_list) THEN
46: FND_MSG_PUB.initialize;
47: END IF;
48:
49: -- modify CHV_SCHEDULE_HEADERS
55:
56: -- Prepare message name
57: FND_MESSAGE.SET_NAME('CHV', 'CHV_SCHEDULE_HEADERS');
58: IF SQL%FOUND THEN
59: x_return_status := FND_API.G_RET_STS_SUCCESS;
60: l_row_count := SQL%ROWCOUNT;
61: ELSE
62:
63: l_row_count := 0;
77:
78: -- Prepare message name
79: FND_MESSAGE.SET_NAME('CHV','CHV_CUM_ADJUSTMENTS');
80: IF SQL%FOUND THEN
81: x_return_status := FND_API.G_RET_STS_SUCCESS;
82: l_row_count := SQL%ROWCOUNT;
83: ELSE
84:
85: l_row_count := 0;
101:
102: WHEN OTHERS THEN
103: ROLLBACK;
104:
105: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
106: FND_MSG_PUB.Count_And_Get
107: ( p_count => x_msg_count,
108: p_data => x_msg_data
109: );