13: --
14: PROCEDURE Change_Msite_Info
15: (
16: p_api_version IN NUMBER,
17: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
18: p_commit IN VARCHAR2 := FND_API.G_FALSE,
19: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
20: p_operation_flags IN JTF_VARCHAR2_TABLE_100,
21: p_msite_information_ids IN JTF_NUMBER_TABLE,
14: PROCEDURE Change_Msite_Info
15: (
16: p_api_version IN NUMBER,
17: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
18: p_commit IN VARCHAR2 := FND_API.G_FALSE,
19: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
20: p_operation_flags IN JTF_VARCHAR2_TABLE_100,
21: p_msite_information_ids IN JTF_NUMBER_TABLE,
22: p_object_version_numbers IN JTF_NUMBER_TABLE,
15: (
16: p_api_version IN NUMBER,
17: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
18: p_commit IN VARCHAR2 := FND_API.G_FALSE,
19: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
20: p_operation_flags IN JTF_VARCHAR2_TABLE_100,
21: p_msite_information_ids IN JTF_NUMBER_TABLE,
22: p_object_version_numbers IN JTF_NUMBER_TABLE,
23: p_msite_ids IN JTF_NUMBER_TABLE,
75: -- Standard Start of API savepoint
76: SAVEPOINT Change_Msite_Info_Pvt;
77:
78: -- Standard call to check for call compatibility.
79: IF NOT FND_API.Compatible_API_Call(l_api_version,
80: p_api_version,
81: l_api_name,
82: G_PKG_NAME)
83: THEN
80: p_api_version,
81: l_api_name,
82: G_PKG_NAME)
83: THEN
84: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
85: END IF;
86:
87: -- Initialize message list if p_init_msg_list is set to TRUE.
88: IF FND_API.to_Boolean(p_init_msg_list) THEN
84: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
85: END IF;
86:
87: -- Initialize message list if p_init_msg_list is set to TRUE.
88: IF FND_API.to_Boolean(p_init_msg_list) THEN
89: FND_MSG_PUB.initialize;
90: END IF;
91:
92: -- Initialize API return status to success
89: FND_MSG_PUB.initialize;
90: END IF;
91:
92: -- Initialize API return status to success
93: x_return_status := FND_API.G_RET_STS_SUCCESS;
94:
95: x_msite_info_return_statuses := JTF_VARCHAR2_TABLE_100();
96: x_msite_information_ids := JTF_NUMBER_TABLE();
97:
99:
100: x_msite_info_return_statuses.EXTEND();
101: x_msite_information_ids.EXTEND();
102:
103: x_msite_info_return_statuses(i) := FND_API.G_RET_STS_SUCCESS;
104:
105: IF (p_operation_flags(i) = 'C') THEN
106:
107: Ibe_Msite_Information_Pvt.Create_Msite_Information
106:
107: Ibe_Msite_Information_Pvt.Create_Msite_Information
108: (
109: p_api_version => p_api_version,
110: p_init_msg_list => FND_API.G_FALSE,
111: p_commit => FND_API.G_FALSE,
112: p_validation_level => p_validation_level,
113: p_msite_id => p_msite_ids(i),
114: p_msite_information_context => p_msite_information_contexts(i),
107: Ibe_Msite_Information_Pvt.Create_Msite_Information
108: (
109: p_api_version => p_api_version,
110: p_init_msg_list => FND_API.G_FALSE,
111: p_commit => FND_API.G_FALSE,
112: p_validation_level => p_validation_level,
113: p_msite_id => p_msite_ids(i),
114: p_msite_information_context => p_msite_information_contexts(i),
115: p_msite_information1 => p_msite_informations1(i),
153: x_msg_count => x_msg_count,
154: x_msg_data => x_msg_data
155: );
156:
157: IF (x_msite_info_return_statuses(i) = FND_API.G_RET_STS_UNEXP_ERROR) THEN
158: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_CREATE_MSITE_INFO_FL');
159: FND_MSG_PUB.Add;
160: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
161: ELSIF (x_msite_info_return_statuses(i) = FND_API.G_RET_STS_ERROR) THEN
156:
157: IF (x_msite_info_return_statuses(i) = FND_API.G_RET_STS_UNEXP_ERROR) THEN
158: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_CREATE_MSITE_INFO_FL');
159: FND_MSG_PUB.Add;
160: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
161: ELSIF (x_msite_info_return_statuses(i) = FND_API.G_RET_STS_ERROR) THEN
162: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_CREATE_MSITE_INFO_FL');
163: FND_MSG_PUB.Add;
164: RAISE FND_API.G_EXC_ERROR;
157: IF (x_msite_info_return_statuses(i) = FND_API.G_RET_STS_UNEXP_ERROR) THEN
158: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_CREATE_MSITE_INFO_FL');
159: FND_MSG_PUB.Add;
160: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
161: ELSIF (x_msite_info_return_statuses(i) = FND_API.G_RET_STS_ERROR) THEN
162: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_CREATE_MSITE_INFO_FL');
163: FND_MSG_PUB.Add;
164: RAISE FND_API.G_EXC_ERROR;
165: END IF;
160: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
161: ELSIF (x_msite_info_return_statuses(i) = FND_API.G_RET_STS_ERROR) THEN
162: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_CREATE_MSITE_INFO_FL');
163: FND_MSG_PUB.Add;
164: RAISE FND_API.G_EXC_ERROR;
165: END IF;
166:
167: ELSIF (p_operation_flags(i) = 'U') THEN
168:
168:
169: Ibe_Msite_Information_Pvt.Update_Msite_Information
170: (
171: p_api_version => p_api_version,
172: p_init_msg_list => FND_API.G_FALSE,
173: p_commit => FND_API.G_FALSE,
174: p_validation_level => p_validation_level,
175: p_msite_information_id => p_msite_information_ids(i),
176: p_object_version_number => p_object_version_numbers(i),
169: Ibe_Msite_Information_Pvt.Update_Msite_Information
170: (
171: p_api_version => p_api_version,
172: p_init_msg_list => FND_API.G_FALSE,
173: p_commit => FND_API.G_FALSE,
174: p_validation_level => p_validation_level,
175: p_msite_information_id => p_msite_information_ids(i),
176: p_object_version_number => p_object_version_numbers(i),
177: p_msite_information1 => p_msite_informations1(i),
214: x_msg_count => x_msg_count,
215: x_msg_data => x_msg_data
216: );
217:
218: IF (x_msite_info_return_statuses(i) = FND_API.G_RET_STS_UNEXP_ERROR) THEN
219: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_UPDATE_MSITE_INFO_FL');
220: FND_MSG_PUB.Add;
221: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
222: ELSIF (x_msite_info_return_statuses(i) = FND_API.G_RET_STS_ERROR) THEN
217:
218: IF (x_msite_info_return_statuses(i) = FND_API.G_RET_STS_UNEXP_ERROR) THEN
219: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_UPDATE_MSITE_INFO_FL');
220: FND_MSG_PUB.Add;
221: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
222: ELSIF (x_msite_info_return_statuses(i) = FND_API.G_RET_STS_ERROR) THEN
223: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_UPDATE_MSITE_INFO_FL');
224: FND_MSG_PUB.Add;
225: RAISE FND_API.G_EXC_ERROR;
218: IF (x_msite_info_return_statuses(i) = FND_API.G_RET_STS_UNEXP_ERROR) THEN
219: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_UPDATE_MSITE_INFO_FL');
220: FND_MSG_PUB.Add;
221: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
222: ELSIF (x_msite_info_return_statuses(i) = FND_API.G_RET_STS_ERROR) THEN
223: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_UPDATE_MSITE_INFO_FL');
224: FND_MSG_PUB.Add;
225: RAISE FND_API.G_EXC_ERROR;
226: END IF;
221: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
222: ELSIF (x_msite_info_return_statuses(i) = FND_API.G_RET_STS_ERROR) THEN
223: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_UPDATE_MSITE_INFO_FL');
224: FND_MSG_PUB.Add;
225: RAISE FND_API.G_EXC_ERROR;
226: END IF;
227:
228: x_msite_information_ids(i) := p_msite_information_ids(i);
229:
231:
232: Ibe_Msite_Information_Pvt.Delete_Msite_Information
233: (
234: p_api_version => p_api_version,
235: p_init_msg_list => FND_API.G_FALSE,
236: p_commit => FND_API.G_FALSE,
237: p_validation_level => p_validation_level,
238: p_msite_information_id => p_msite_information_ids(i),
239: x_return_status => x_return_status,
232: Ibe_Msite_Information_Pvt.Delete_Msite_Information
233: (
234: p_api_version => p_api_version,
235: p_init_msg_list => FND_API.G_FALSE,
236: p_commit => FND_API.G_FALSE,
237: p_validation_level => p_validation_level,
238: p_msite_information_id => p_msite_information_ids(i),
239: x_return_status => x_return_status,
240: x_msg_count => x_msg_count,
240: x_msg_count => x_msg_count,
241: x_msg_data => x_msg_data
242: );
243:
244: IF (x_msite_info_return_statuses(i) = FND_API.G_RET_STS_UNEXP_ERROR) THEN
245: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_DELETE_MSITE_INFO_FL');
246: FND_MSG_PUB.Add;
247: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
248: ELSIF (x_msite_info_return_statuses(i) = FND_API.G_RET_STS_ERROR) THEN
243:
244: IF (x_msite_info_return_statuses(i) = FND_API.G_RET_STS_UNEXP_ERROR) THEN
245: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_DELETE_MSITE_INFO_FL');
246: FND_MSG_PUB.Add;
247: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
248: ELSIF (x_msite_info_return_statuses(i) = FND_API.G_RET_STS_ERROR) THEN
249: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_DELETE_MSITE_INFO_FL');
250: FND_MSG_PUB.Add;
251: RAISE FND_API.G_EXC_ERROR;
244: IF (x_msite_info_return_statuses(i) = FND_API.G_RET_STS_UNEXP_ERROR) THEN
245: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_DELETE_MSITE_INFO_FL');
246: FND_MSG_PUB.Add;
247: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
248: ELSIF (x_msite_info_return_statuses(i) = FND_API.G_RET_STS_ERROR) THEN
249: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_DELETE_MSITE_INFO_FL');
250: FND_MSG_PUB.Add;
251: RAISE FND_API.G_EXC_ERROR;
252: END IF;
247: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
248: ELSIF (x_msite_info_return_statuses(i) = FND_API.G_RET_STS_ERROR) THEN
249: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_DELETE_MSITE_INFO_FL');
250: FND_MSG_PUB.Add;
251: RAISE FND_API.G_EXC_ERROR;
252: END IF;
253:
254: x_msite_information_ids(i) := p_msite_information_ids(i);
255:
259: ELSE
260: FND_MESSAGE.Set_Name('IBE', 'IBE_MSITE_INFO_INVALID_OP_FLAG');
261: FND_MESSAGE.Set_Token('FLAG', p_operation_flags(i));
262: FND_MSG_PUB.Add;
263: RAISE FND_API.G_EXC_ERROR;
264: END IF;
265:
266: END LOOP; -- end for i
267:
268: --
269: -- End of main API body.
270:
271: -- Standard check of p_commit.
272: IF (FND_API.To_Boolean(p_commit)) THEN
273: COMMIT WORK;
274: END IF;
275:
276: -- Standard call to get message count and if count is 1, get message info.
279: p_encoded => 'F');
280:
281: EXCEPTION
282:
283: WHEN FND_API.G_EXC_ERROR THEN
284: ROLLBACK TO Change_Msite_Info_Pvt;
285: x_return_status := FND_API.G_RET_STS_ERROR;
286: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
287: p_data => x_msg_data,
281: EXCEPTION
282:
283: WHEN FND_API.G_EXC_ERROR THEN
284: ROLLBACK TO Change_Msite_Info_Pvt;
285: x_return_status := FND_API.G_RET_STS_ERROR;
286: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
287: p_data => x_msg_data,
288: p_encoded => 'F');
289:
286: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
287: p_data => x_msg_data,
288: p_encoded => 'F');
289:
290: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
291: ROLLBACK TO Change_Msite_Info_Pvt;
292: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
293: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
294: p_data => x_msg_data,
288: p_encoded => 'F');
289:
290: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
291: ROLLBACK TO Change_Msite_Info_Pvt;
292: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
293: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
294: p_data => x_msg_data,
295: p_encoded => 'F');
296:
300: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
301: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
302: FND_MESSAGE.Set_Token('REASON', SQLERRM);
303: FND_MSG_PUB.Add;
304: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
305:
306: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
307: THEN
308: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
320: --
321: PROCEDURE Load_MsiteInformation
322: (
323: p_api_version IN NUMBER,
324: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
325: p_commit IN VARCHAR2 := FND_API.G_FALSE,
326: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
327: p_msite_id IN NUMBER,
328: p_msite_information_context IN VARCHAR2,
321: PROCEDURE Load_MsiteInformation
322: (
323: p_api_version IN NUMBER,
324: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
325: p_commit IN VARCHAR2 := FND_API.G_FALSE,
326: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
327: p_msite_id IN NUMBER,
328: p_msite_information_context IN VARCHAR2,
329: x_msite_csr OUT NOCOPY MSITE_CSR,
322: (
323: p_api_version IN NUMBER,
324: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
325: p_commit IN VARCHAR2 := FND_API.G_FALSE,
326: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
327: p_msite_id IN NUMBER,
328: p_msite_information_context IN VARCHAR2,
329: x_msite_csr OUT NOCOPY MSITE_CSR,
330: x_msite_information_csr OUT NOCOPY MSITE_INFO_CSR,
338: l_api_version CONSTANT NUMBER := 1.0;
339: BEGIN
340:
341: -- Initialize message list if p_init_msg_list is set to TRUE.
342: IF FND_API.to_Boolean(p_init_msg_list) THEN
343: FND_MSG_PUB.initialize;
344: END IF;
345:
346: -- Initialize API return status to success
343: FND_MSG_PUB.initialize;
344: END IF;
345:
346: -- Initialize API return status to success
347: x_return_status := FND_API.G_RET_STS_SUCCESS;
348:
349: -- Get the mini-site data
350: OPEN x_msite_csr FOR SELECT msite_id, msite_name
351: FROM ibe_msites_vl
369: AND msite_information_context = p_msite_information_context;
370:
371: EXCEPTION
372:
373: WHEN FND_API.G_EXC_ERROR THEN
374: x_return_status := FND_API.G_RET_STS_ERROR;
375: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
376: p_data => x_msg_data,
377: p_encoded => 'F');
370:
371: EXCEPTION
372:
373: WHEN FND_API.G_EXC_ERROR THEN
374: x_return_status := FND_API.G_RET_STS_ERROR;
375: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
376: p_data => x_msg_data,
377: p_encoded => 'F');
378:
375: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
376: p_data => x_msg_data,
377: p_encoded => 'F');
378:
379: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
380: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
381: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
382: p_data => x_msg_data,
383: p_encoded => 'F');
376: p_data => x_msg_data,
377: p_encoded => 'F');
378:
379: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
380: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
381: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
382: p_data => x_msg_data,
383: p_encoded => 'F');
384:
382: p_data => x_msg_data,
383: p_encoded => 'F');
384:
385: WHEN OTHERS THEN
386: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
387:
388: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
389: THEN
390: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
397: END Load_MsiteInformation;
398:
399: PROCEDURE duplicate_msite_info(
400: p_api_version IN NUMBER,
401: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
402: p_commit IN VARCHAR2 := FND_API.G_FALSE,
403: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
404: p_source_msite_id IN NUMBER,
405: p_target_msite_id IN NUMBER,
398:
399: PROCEDURE duplicate_msite_info(
400: p_api_version IN NUMBER,
401: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
402: p_commit IN VARCHAR2 := FND_API.G_FALSE,
403: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
404: p_source_msite_id IN NUMBER,
405: p_target_msite_id IN NUMBER,
406: x_return_status OUT NOCOPY VARCHAR2,
399: PROCEDURE duplicate_msite_info(
400: p_api_version IN NUMBER,
401: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
402: p_commit IN VARCHAR2 := FND_API.G_FALSE,
403: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
404: p_source_msite_id IN NUMBER,
405: p_target_msite_id IN NUMBER,
406: x_return_status OUT NOCOPY VARCHAR2,
407: x_msg_count OUT NOCOPY NUMBER,
521: IBE_UTIL.debug('p_commit = '||p_commit);
522: IBE_UTIL.debug('p_source_msite_id = '||p_source_msite_id);
523: IBE_UTIL.debug('p_target_msite_id = '||p_target_msite_id);
524: END IF;
525: IF NOT FND_API.Compatible_API_Call(l_api_version,
526: p_api_version,
527: l_api_name,
528: G_PKG_NAME) THEN
529: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
525: IF NOT FND_API.Compatible_API_Call(l_api_version,
526: p_api_version,
527: l_api_name,
528: G_PKG_NAME) THEN
529: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
530: END IF;
531: IF FND_API.to_Boolean(p_init_msg_list) THEN
532: FND_MSG_PUB.initialize;
533: END IF;
527: l_api_name,
528: G_PKG_NAME) THEN
529: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
530: END IF;
531: IF FND_API.to_Boolean(p_init_msg_list) THEN
532: FND_MSG_PUB.initialize;
533: END IF;
534: -- Initialize API return status to SUCCESS
535: x_return_status := FND_API.G_RET_STS_SUCCESS;
531: IF FND_API.to_Boolean(p_init_msg_list) THEN
532: FND_MSG_PUB.initialize;
533: END IF;
534: -- Initialize API return status to SUCCESS
535: x_return_status := FND_API.G_RET_STS_SUCCESS;
536:
537: -- For Payment Types, Shipping Methods, and Credit Card
538: l_operation_flags := JTF_VARCHAR2_TABLE_100();
539: l_msite_ids := JTF_NUMBER_TABLE();
678: CLOSE c_get_msite_info_csr;
679: IF (l_i > 1) THEN
680: IBE_MSITE_INFORMATION_MGR_PVT.Change_Msite_Info (
681: p_api_version => 1.0,
682: p_init_msg_list => FND_API.G_FALSE,
683: p_commit => p_commit,
684: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
685: p_operation_flags => l_operation_flags,
686: p_msite_information_ids => l_msite_information_ids,
680: IBE_MSITE_INFORMATION_MGR_PVT.Change_Msite_Info (
681: p_api_version => 1.0,
682: p_init_msg_list => FND_API.G_FALSE,
683: p_commit => p_commit,
684: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
685: p_operation_flags => l_operation_flags,
686: p_msite_information_ids => l_msite_information_ids,
687: p_object_version_numbers => l_object_version_numbers,
688: p_msite_ids => l_msite_ids,
728: x_return_status => l_return_status,
729: x_msg_count => l_msg_count,
730: x_msg_data => l_msg_data
731: );
732: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
733: IF (l_debug = 'Y') THEN
734: IBE_UTIL.debug('Error in IBE_MSITE_INFORMATION_MGR_PVT.'||
735: 'Change_Msite_Info');
736: for i in 1..l_msg_count loop
733: IF (l_debug = 'Y') THEN
734: IBE_UTIL.debug('Error in IBE_MSITE_INFORMATION_MGR_PVT.'||
735: 'Change_Msite_Info');
736: for i in 1..l_msg_count loop
737: l_msg_data := FND_MSG_PUB.get(i,FND_API.G_FALSE);
738: IBE_UTIL.debug(l_msg_data);
739: end loop;
740: END IF;
741: RAISE FND_API.G_EXC_ERROR;
737: l_msg_data := FND_MSG_PUB.get(i,FND_API.G_FALSE);
738: IBE_UTIL.debug(l_msg_data);
739: end loop;
740: END IF;
741: RAISE FND_API.G_EXC_ERROR;
742: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
743: IF (l_debug = 'Y') THEN
744: IBE_UTIL.debug('Error in IBE_MSITE_INFORMATION_MGR_PVT.'||
745: 'Change_Msite_Info');
738: IBE_UTIL.debug(l_msg_data);
739: end loop;
740: END IF;
741: RAISE FND_API.G_EXC_ERROR;
742: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
743: IF (l_debug = 'Y') THEN
744: IBE_UTIL.debug('Error in IBE_MSITE_INFORMATION_MGR_PVT.'||
745: 'Change_Msite_Info');
746: for i in 1..l_msg_count loop
743: IF (l_debug = 'Y') THEN
744: IBE_UTIL.debug('Error in IBE_MSITE_INFORMATION_MGR_PVT.'||
745: 'Change_Msite_Info');
746: for i in 1..l_msg_count loop
747: l_msg_data := FND_MSG_PUB.get(i,FND_API.G_FALSE);
748: IBE_UTIL.debug(l_msg_data);
749: end loop;
750: END IF;
751: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
747: l_msg_data := FND_MSG_PUB.get(i,FND_API.G_FALSE);
748: IBE_UTIL.debug(l_msg_data);
749: end loop;
750: END IF;
751: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
752: END IF;
753: END IF;
754: IF (l_debug = 'Y') THEN
755: IBE_UTIL.debug('Before committing the work:'||p_commit);
753: END IF;
754: IF (l_debug = 'Y') THEN
755: IBE_UTIL.debug('Before committing the work:'||p_commit);
756: END IF;
757: IF (FND_API.To_Boolean(p_commit)) THEN
758: COMMIT WORK;
759: END IF;
760: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
761: p_data => x_msg_data,
763: IF (l_debug = 'Y') THEN
764: IBE_UTIL.debug('duplicate_msite Ends +');
765: END IF;
766: EXCEPTION
767: WHEN FND_API.G_EXC_ERROR THEN
768: ROLLBACK TO DUPLICATE_MSITE_INFO_SAVE;
769: x_return_status := FND_API.G_RET_STS_ERROR;
770: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
771: p_data => x_msg_data,
765: END IF;
766: EXCEPTION
767: WHEN FND_API.G_EXC_ERROR THEN
768: ROLLBACK TO DUPLICATE_MSITE_INFO_SAVE;
769: x_return_status := FND_API.G_RET_STS_ERROR;
770: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
771: p_data => x_msg_data,
772: p_encoded => 'F');
773: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
769: x_return_status := FND_API.G_RET_STS_ERROR;
770: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
771: p_data => x_msg_data,
772: p_encoded => 'F');
773: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
774: ROLLBACK TO DUPLICATE_MSITE_INFO_SAVE;
775: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
776: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
777: p_data => x_msg_data,
771: p_data => x_msg_data,
772: p_encoded => 'F');
773: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
774: ROLLBACK TO DUPLICATE_MSITE_INFO_SAVE;
775: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
776: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
777: p_data => x_msg_data,
778: p_encoded => 'F');
779: WHEN OTHERS THEN
786: IF (l_debug = 'Y') THEN
787: IBE_UTIL.debug('SQLCODE:'||SQLCODE);
788: IBE_UTIL.debug('SQLERRM:'||SQLERRM);
789: END IF;
790: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
791: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
792: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
793: END IF;
794: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,