[Home] [Help]
139: l_temp_p_end_date DATE;
140:
141: BEGIN
142:
143: -- Standard call to check for call compatibility.
144: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
145: p_api_version_number,
146: l_api_name,
147: g_pkg_name)
257: ams_utility_pvt.write_conc_log(l_currency_error);
258:
259: END IF;
260:
261: --Standard check of commit
262:
263: IF FND_API.To_Boolean ( p_commit ) THEN
264: COMMIT WORK;
265: END IF;
266:
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: );
276: EXCEPTION
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
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
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
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,
313: p_count => x_msg_count,
314: p_data => x_msg_data
341:
342: -- Debug Message
343: --AMS_UTILITY_PVT.debug_message('Private API: ' || 'Running the LOG_HISTORY procedure ');
344:
345: /* -- Standard call to check for call compatibility.
346: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
347: p_api_version_number,
348: l_api_name,
349: g_pkg_name)
379: sysdate,
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
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,
417: p_count => x_msg_count,
418: p_data => x_msg_data
525: l_return BOOLEAN;
526: BEGIN
527: l_return := fnd_installation.get_app_info('BIM', l_status1, l_industry1, l_schema);
528: ams_utility_pvt.write_conc_log(p_start_date || ' '|| p_end_date);
529: -- Standard call to check for call compatibility.
530: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
531: p_api_version_number,
532: l_api_name,
533: g_pkg_name)
2575: EXCEPTION
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
2588: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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
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 (
2612: -- p_encoded => FND_API.G_FALSE,
2613: p_count => x_msg_count,
2614: p_data => x_msg_data
2729: l_return := fnd_installation.get_app_info('BIM', l_status1, l_industry1, l_schema);
2730: ams_utility_pvt.write_conc_log(p_start_date || ' '|| p_end_date);
2731: l_camp := 0;
2732:
2733: -- Standard call to check for call compatibility.
2734: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2735: p_api_version_number,
2736: l_api_name,
2737: g_pkg_name)
4790: EXCEPTION
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
4803: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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
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 (
4827: -- p_encoded => FND_API.G_FALSE,
4828: p_count => x_msg_count,
4829: p_data => x_msg_data