26: l_conversion_type := fnd_profile.VALUE(l_conversion_type_profile);
27:
28: -- Conversion type cannot be null in profile
29: IF l_conversion_type IS NULL THEN
30: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
31: fnd_message.set_name('OZF', 'OZF_NO_EXCHANGE_TYPE');
32: fnd_msg_pub.add;
33: END IF;
34: RETURN 0;
28: -- Conversion type cannot be null in profile
29: IF l_conversion_type IS NULL THEN
30: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
31: fnd_message.set_name('OZF', 'OZF_NO_EXCHANGE_TYPE');
32: fnd_msg_pub.add;
33: END IF;
34: RETURN 0;
35: END IF;
36:
60: RETURN (l_to_amount);
61:
62: EXCEPTION
63: WHEN gl_currency_api.no_rate THEN
64: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
65: fnd_message.set_name('OZF', 'OZF_NO_RATE');
66: fnd_msg_pub.add;
67: END IF;
68: WHEN gl_currency_api.invalid_currency THEN
62: EXCEPTION
63: WHEN gl_currency_api.no_rate THEN
64: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
65: fnd_message.set_name('OZF', 'OZF_NO_RATE');
66: fnd_msg_pub.add;
67: END IF;
68: WHEN gl_currency_api.invalid_currency THEN
69: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
70: fnd_message.set_name('OZF', 'OZF_INVALID_CURR');
65: fnd_message.set_name('OZF', 'OZF_NO_RATE');
66: fnd_msg_pub.add;
67: END IF;
68: WHEN gl_currency_api.invalid_currency THEN
69: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
70: fnd_message.set_name('OZF', 'OZF_INVALID_CURR');
71: fnd_msg_pub.add;
72: END IF;
73: WHEN OTHERS THEN
67: END IF;
68: WHEN gl_currency_api.invalid_currency THEN
69: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
70: fnd_message.set_name('OZF', 'OZF_INVALID_CURR');
71: fnd_msg_pub.add;
72: END IF;
73: WHEN OTHERS THEN
74: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
75: fnd_msg_pub.add_exc_msg('OZF_UTLITY_PVT', 'Convert_curency');
70: fnd_message.set_name('OZF', 'OZF_INVALID_CURR');
71: fnd_msg_pub.add;
72: END IF;
73: WHEN OTHERS THEN
74: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
75: fnd_msg_pub.add_exc_msg('OZF_UTLITY_PVT', 'Convert_curency');
76: END IF;
77: END convert_currency;
78:
71: fnd_msg_pub.add;
72: END IF;
73: WHEN OTHERS THEN
74: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
75: fnd_msg_pub.add_exc_msg('OZF_UTLITY_PVT', 'Convert_curency');
76: END IF;
77: END convert_currency;
78:
79: -------------------------------------------------------------------------------
151:
152: -- Initialize message list if p_init_msg_list is set to TRUE.
153: IF FND_API.to_Boolean( p_init_msg_list )
154: THEN
155: FND_MSG_PUB.initialize;
156: END IF;
157:
158: -- Initialize API return status to SUCCESS
159: x_return_status := FND_API.G_RET_STS_SUCCESS;
173: FETCH chk_history_data INTO l_end_date;
174: CLOSE chk_history_data;
175: EXCEPTION
176: WHEN OTHERS THEN
177: FND_MSG_PUB.Count_And_Get (
178: -- p_encoded => FND_API.G_FALSE,
179: p_count => x_msg_count,
180: p_data => x_msg_data
181: );
267: COMMIT;
268: ams_utility_pvt.write_conc_log('Campaigns Concurrent Program Succesfully Completed ');
269:
270: -- Standard call to get message count and if count is 1, get message info.
271: FND_MSG_PUB.Count_And_Get
272: (p_count => x_msg_count,
273: p_data => x_msg_data
274: );
275:
277:
278: WHEN FND_API.G_EXC_ERROR THEN
279: x_return_status := FND_API.G_RET_STS_ERROR;
280: -- Standard call to get message count and if count=1, get the message
281: FND_msg_PUB.Count_And_Get (
282: -- p_encoded => FND_API.G_FALSE,
283: p_count => x_msg_count,
284: p_data => x_msg_data
285: );
288: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
289:
290: /* FOR l_counter IN 1 .. x_msg_count
291: LOOP
292: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
293: fnd_msg_pub.dump_msg(l_counter);
294: end loop; */
295:
296: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
289:
290: /* FOR l_counter IN 1 .. x_msg_count
291: LOOP
292: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
293: fnd_msg_pub.dump_msg(l_counter);
294: end loop; */
295:
296: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
297: -- Standard call to get message count and if count=1, get the message
294: end loop; */
295:
296: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
297: -- Standard call to get message count and if count=1, get the message
298: FND_msg_PUB.Count_And_Get (
299: --p_encoded => FND_API.G_FALSE,
300: p_count => x_msg_count,
301: p_data => x_msg_data
302: );
302: );
303:
304: WHEN OTHERS THEN
305: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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);
309: END IF;
310: -- Standard call to get message count and if count=1, get the message
304: WHEN OTHERS THEN
305: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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);
309: END IF;
310: -- Standard call to get message count and if count=1, get the message
311: FND_msg_PUB.Count_And_Get (
312: -- p_encoded => FND_API.G_FALSE,
307: THEN
308: FND_msg_PUB.Add_Exc_msg( g_pkg_name,l_api_name);
309: END IF;
310: -- Standard call to get message count and if count=1, get the message
311: FND_msg_PUB.Count_And_Get (
312: -- p_encoded => FND_API.G_FALSE,
313: p_count => x_msg_count,
314: p_data => x_msg_data
315: );
353:
354: -- Initialize message list if p_init_msg_list is set to TRUE.
355: IF FND_API.to_Boolean( p_init_msg_list )
356: THEN
357: FND_msg_PUB.initialize;
358: END IF;
359:
360: -- Initialize API return status to SUCCESS
361: x_return_status := FND_API.G_RET_STS_SUCCESS;
380: p_start_date,
381: p_end_date);
382:
383: /* -- Standard call to get message count and if count is 1, get message info.
384: FND_msg_PUB.Count_And_Get
385: (p_count => x_msg_count,
386: p_data => x_msg_data
387: );
388: EXCEPTION
389:
390: WHEN FND_API.G_EXC_ERROR THEN
391: x_return_status := FND_API.G_RET_STS_ERROR;
392: -- Standard call to get message count and if count=1, get the message
393: FND_msg_PUB.Count_And_Get (
394: -- p_encoded => FND_API.G_FALSE,
395: p_count => x_msg_count,
396: p_data => x_msg_data
397: );
398:
399: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
400: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
401: -- Standard call to get message count and if count=1, get the message
402: FND_msg_PUB.Count_And_Get (
403: --p_encoded => FND_API.G_FALSE,
404: p_count => x_msg_count,
405: p_data => x_msg_data
406: );
406: );
407:
408: WHEN OTHERS THEN
409: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
410: IF FND_msg_PUB.Check_msg_Level ( FND_msg_PUB.G_msg_LVL_UNEXP_ERROR)
411: THEN
412: FND_msg_PUB.Add_Exc_msg( g_pkg_name,l_api_name);
413: END IF;
414: -- Standard call to get message count and if count=1, get the message
408: WHEN OTHERS THEN
409: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
410: IF FND_msg_PUB.Check_msg_Level ( FND_msg_PUB.G_msg_LVL_UNEXP_ERROR)
411: THEN
412: FND_msg_PUB.Add_Exc_msg( g_pkg_name,l_api_name);
413: END IF;
414: -- Standard call to get message count and if count=1, get the message
415: FND_msg_PUB.Count_And_Get (
416: -- p_encoded => FND_API.G_FALSE,
411: THEN
412: FND_msg_PUB.Add_Exc_msg( g_pkg_name,l_api_name);
413: END IF;
414: -- Standard call to get message count and if count=1, get the message
415: FND_msg_PUB.Count_And_Get (
416: -- p_encoded => FND_API.G_FALSE,
417: p_count => x_msg_count,
418: p_data => x_msg_data
419: );
537:
538: -- Initialize message list if p_init_msg_list is set to TRUE.
539: IF FND_API.to_Boolean( p_init_msg_list )
540: THEN
541: FND_msg_PUB.initialize;
542: END IF;
543:
544: -- Initialize API return status to SUCCESS
545: x_return_status := FND_API.G_RET_STS_SUCCESS;
2576:
2577: WHEN FND_API.G_EXC_ERROR THEN
2578: x_return_status := FND_API.G_RET_STS_ERROR;
2579: -- Standard call to get message count and if count=1, get the message
2580: FND_msg_PUB.Count_And_Get (
2581: -- p_encoded => FND_API.G_FALSE,
2582: p_count => x_msg_count,
2583: p_data => x_msg_data
2584: );
2589:
2590: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2591:
2592: -- Standard call to get message count and if count=1, get the message
2593: FND_msg_PUB.Count_And_Get (
2594: --p_encoded => FND_API.G_FALSE,
2595: p_count => x_msg_count,
2596: p_data => x_msg_data
2597: );
2601: WHEN OTHERS THEN
2602:
2603: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2604:
2605: IF FND_msg_PUB.Check_msg_Level (FND_msg_PUB.G_msg_LVL_UNEXP_ERROR)
2606: THEN
2607: FND_msg_PUB.Add_Exc_msg( g_pkg_name,l_api_name);
2608: END IF;
2609:
2603: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2604:
2605: IF FND_msg_PUB.Check_msg_Level (FND_msg_PUB.G_msg_LVL_UNEXP_ERROR)
2606: THEN
2607: FND_msg_PUB.Add_Exc_msg( g_pkg_name,l_api_name);
2608: END IF;
2609:
2610: -- Standard call to get message count and if count=1, get the message
2611: FND_msg_PUB.Count_And_Get (
2607: FND_msg_PUB.Add_Exc_msg( g_pkg_name,l_api_name);
2608: END IF;
2609:
2610: -- Standard call to get message count and if count=1, get the message
2611: FND_msg_PUB.Count_And_Get (
2612: -- p_encoded => FND_API.G_FALSE,
2613: p_count => x_msg_count,
2614: p_data => x_msg_data
2615: );
2741:
2742: -- Initialize message list if p_init_msg_list is set to TRUE.
2743: IF FND_API.to_Boolean( p_init_msg_list )
2744: THEN
2745: FND_msg_PUB.initialize;
2746: END IF;
2747:
2748: -- Initialize API return status to SUCCESS
2749: x_return_status := FND_API.G_RET_STS_SUCCESS;
4791:
4792: WHEN FND_API.G_EXC_ERROR THEN
4793: x_return_status := FND_API.G_RET_STS_ERROR;
4794: -- Standard call to get message count and if count=1, get the message
4795: FND_msg_PUB.Count_And_Get (
4796: -- p_encoded => FND_API.G_FALSE,
4797: p_count => x_msg_count,
4798: p_data => x_msg_data
4799: );
4804:
4805: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4806:
4807: -- Standard call to get message count and if count=1, get the message
4808: FND_msg_PUB.Count_And_Get (
4809: --p_encoded => FND_API.G_FALSE,
4810: p_count => x_msg_count,
4811: p_data => x_msg_data
4812: );
4816: WHEN OTHERS THEN
4817:
4818: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4819:
4820: IF FND_msg_PUB.Check_msg_Level (FND_msg_PUB.G_msg_LVL_UNEXP_ERROR)
4821: THEN
4822: FND_msg_PUB.Add_Exc_msg( g_pkg_name,l_api_name);
4823: END IF;
4824:
4818: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4819:
4820: IF FND_msg_PUB.Check_msg_Level (FND_msg_PUB.G_msg_LVL_UNEXP_ERROR)
4821: THEN
4822: FND_msg_PUB.Add_Exc_msg( g_pkg_name,l_api_name);
4823: END IF;
4824:
4825: -- Standard call to get message count and if count=1, get the message
4826: FND_msg_PUB.Count_And_Get (
4822: FND_msg_PUB.Add_Exc_msg( g_pkg_name,l_api_name);
4823: END IF;
4824:
4825: -- Standard call to get message count and if count=1, get the message
4826: FND_msg_PUB.Count_And_Get (
4827: -- p_encoded => FND_API.G_FALSE,
4828: p_count => x_msg_count,
4829: p_data => x_msg_data
4830: );