DBA Data[Home] [Help]

APPS.FUN_VENDORMERGE_GRP dependencies on FND_API

Line 24: p_init_msg_list IN VARCHAR2 default FND_API.G_FALSE,

20:
21: PROCEDURE Merge_Vendor(
22: -- ***** Standard API Parameters *****
23: p_api_version IN NUMBER,
24: p_init_msg_list IN VARCHAR2 default FND_API.G_FALSE,
25: p_commit IN VARCHAR2 default FND_API.G_FALSE,
26: p_validation_level IN NUMBER default FND_API.G_VALID_LEVEL_FULL,
27: p_return_status OUT NOCOPY VARCHAR2,
28: p_msg_count OUT NOCOPY NUMBER ,

Line 25: p_commit IN VARCHAR2 default FND_API.G_FALSE,

21: PROCEDURE Merge_Vendor(
22: -- ***** Standard API Parameters *****
23: p_api_version IN NUMBER,
24: p_init_msg_list IN VARCHAR2 default FND_API.G_FALSE,
25: p_commit IN VARCHAR2 default FND_API.G_FALSE,
26: p_validation_level IN NUMBER default FND_API.G_VALID_LEVEL_FULL,
27: p_return_status OUT NOCOPY VARCHAR2,
28: p_msg_count OUT NOCOPY NUMBER ,
29: p_msg_data OUT NOCOPY VARCHAR2,

Line 26: p_validation_level IN NUMBER default FND_API.G_VALID_LEVEL_FULL,

22: -- ***** Standard API Parameters *****
23: p_api_version IN NUMBER,
24: p_init_msg_list IN VARCHAR2 default FND_API.G_FALSE,
25: p_commit IN VARCHAR2 default FND_API.G_FALSE,
26: p_validation_level IN NUMBER default FND_API.G_VALID_LEVEL_FULL,
27: p_return_status OUT NOCOPY VARCHAR2,
28: p_msg_count OUT NOCOPY NUMBER ,
29: p_msg_data OUT NOCOPY VARCHAR2,
30: -- ****** Merge Input Parameters ******

Line 47: x_return_status := FND_API.G_TRUE;

43: PROCEDURE Check_Mandatory_Parameters (
44: x_return_status OUT NOCOPY VARCHAR2)
45: IS
46: BEGIN
47: x_return_status := FND_API.G_TRUE;
48: IF p_vendor_id IS NULL or p_dup_vendor_id IS NULL
49: or p_vendor_site_id IS NULL or p_dup_vendor_site_id IS NULL
50: THEN
51: x_return_status := FND_API.G_FALSE;

Line 51: x_return_status := FND_API.G_FALSE;

47: x_return_status := FND_API.G_TRUE;
48: IF p_vendor_id IS NULL or p_dup_vendor_id IS NULL
49: or p_vendor_site_id IS NULL or p_dup_vendor_site_id IS NULL
50: THEN
51: x_return_status := FND_API.G_FALSE;
52: RETURN;
53: END IF;
54:
55: EXCEPTION

Line 57: x_return_status := FND_API.G_FALSE;

53: END IF;
54:
55: EXCEPTION
56: WHEN OTHERS THEN
57: x_return_status := FND_API.G_FALSE;
58:
59: END Check_Mandatory_Parameters;
60:
61: BEGIN

Line 76: IF FND_API.to_Boolean( p_init_msg_list ) THEN

72: SAVEPOINT Merge_Vendor_SP;
73:
74: -- **** Initialize message list if p_init_msg_list is set to TRUE. ****
75:
76: IF FND_API.to_Boolean( p_init_msg_list ) THEN
77: FND_MSG_PUB.initialize;
78: END IF;
79:
80: -- **** Initialize return status to SUCCESS *****

Line 81: p_return_status := FND_API.G_RET_STS_SUCCESS;

77: FND_MSG_PUB.initialize;
78: END IF;
79:
80: -- **** Initialize return status to SUCCESS *****
81: p_return_status := FND_API.G_RET_STS_SUCCESS;
82:
83: /*-----------------------------------------------+
84: | ======== START OF API BODY ============ |
85: +-----------------------------------------------*/

Line 104: IF l_return_status = FND_API.G_FALSE THEN

100: fun_net_util.Log_String(g_event_level,
101: l_path,
102: 'Check Mandatory Params(-)');
103:
104: IF l_return_status = FND_API.G_FALSE THEN
105: RAISE FND_API.G_EXC_ERROR;
106: END IF;
107: */
108: -- Update Vendor Id and Vendor Site id with the Merged Vendor Id

Line 105: RAISE FND_API.G_EXC_ERROR;

101: l_path,
102: 'Check Mandatory Params(-)');
103:
104: IF l_return_status = FND_API.G_FALSE THEN
105: RAISE FND_API.G_EXC_ERROR;
106: END IF;
107: */
108: -- Update Vendor Id and Vendor Site id with the Merged Vendor Id
109: -- and Vendor Site Id

Line 157: RAISE FND_API.G_EXC_ERROR;

153:
154: fun_net_util.Log_String(g_event_level,
155: l_path
156: ,'sqlcode '||sqlcode||' sqlerrm ' || sqlerrm);
157: RAISE FND_API.G_EXC_ERROR;
158: END;
159:
160: /* Delete the record that has the same agreement id, supplier priority , vendor and vendor site */
161:

Line 202: IF FND_API.To_Boolean( p_commit ) THEN

198:
199: END;
200:
201: -- Standard check of p_commit.
202: IF FND_API.To_Boolean( p_commit ) THEN
203: COMMIT WORK;
204: END IF;
205:
206: EXCEPTION

Line 207: WHEN FND_API.G_EXC_ERROR THEN

203: COMMIT WORK;
204: END IF;
205:
206: EXCEPTION
207: WHEN FND_API.G_EXC_ERROR THEN
208: ROLLBACK TO Merge_Vendor_SP;
209: p_return_status := FND_API.G_RET_STS_ERROR;
210: FND_MSG_PUB.Count_And_Get (
211: p_count => p_msg_count,

Line 209: p_return_status := FND_API.G_RET_STS_ERROR;

205:
206: EXCEPTION
207: WHEN FND_API.G_EXC_ERROR THEN
208: ROLLBACK TO Merge_Vendor_SP;
209: p_return_status := FND_API.G_RET_STS_ERROR;
210: FND_MSG_PUB.Count_And_Get (
211: p_count => p_msg_count,
212: p_data => p_msg_data );
213:

Line 214: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

210: FND_MSG_PUB.Count_And_Get (
211: p_count => p_msg_count,
212: p_data => p_msg_data );
213:
214: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
215: ROLLBACK TO Merge_Vendor_SP;
216: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
217: FND_MSG_PUB.Count_And_Get (
218: p_count => p_msg_count,

Line 216: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

212: p_data => p_msg_data );
213:
214: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
215: ROLLBACK TO Merge_Vendor_SP;
216: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
217: FND_MSG_PUB.Count_And_Get (
218: p_count => p_msg_count,
219: p_data => p_msg_data );
220:

Line 223: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

219: p_data => p_msg_data );
220:
221: WHEN OTHERS THEN
222: ROLLBACK TO Merge_Vendor_SP;
223: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
224: IF FND_MSG_PUB.Check_Msg_Level(
225: FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
226: FND_MSG_PUB.Add_Exc_Msg( 'FUN_VendorMerge_PKG', 'Merge_Vendor');
227: END IF;