102:
103: PROCEDURE POPULATE
104: (
105: p_api_version_number IN NUMBER
106: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
107: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
108: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
109: ,x_msg_count OUT NOCOPY NUMBER
110: ,x_msg_data OUT NOCOPY VARCHAR2
103: PROCEDURE POPULATE
104: (
105: p_api_version_number IN NUMBER
106: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
107: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
108: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
109: ,x_msg_count OUT NOCOPY NUMBER
110: ,x_msg_data OUT NOCOPY VARCHAR2
111: ,x_return_status OUT NOCOPY VARCHAR2
104: (
105: p_api_version_number IN NUMBER
106: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
107: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
108: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
109: ,x_msg_count OUT NOCOPY NUMBER
110: ,x_msg_data OUT NOCOPY VARCHAR2
111: ,x_return_status OUT NOCOPY VARCHAR2
112: ,p_object IN VARCHAR2
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)
148: THEN
145: p_api_version_number,
146: l_api_name,
147: g_pkg_name)
148: THEN
149: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
150: END IF;
151:
152: -- Initialize message list if p_init_msg_list is set to TRUE.
153: IF FND_API.to_Boolean( p_init_msg_list )
149: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
150: END IF;
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:
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;
160:
161: -- Debug Message
162: -- AMS_UTILITY_PVT.debug_message('Private API: ' || 'Running the populate procedure');
163:
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: );
182: END;
192: IF (l_end_date IS NOT NULL AND p_start_date IS NOT NULL)
193: THEN
194: ams_utility_pvt.write_conc_log('First Time Load is already run. Subsequent Load should be run .');
195: ams_utility_pvt.write_conc_log('Concurrent Program Exits Now');
196: RAISE FND_API.G_EXC_ERROR;
197: END IF;
198:
199:
200: IF p_start_date IS NOT NULL THEN
201:
202: IF (p_start_date >= l_temp_p_end_date) THEN
203: ams_utility_pvt.write_conc_log('The start date cannot be greater than or equal to the current end date');
204: ams_utility_pvt.write_conc_log('Concurrent Program Exits Now ');
205: RAISE FND_API.G_EXC_ERROR;
206: END IF;
207:
208: l_temp_start_date := trunc(p_start_date);
209: l_temp_end_date := trunc(l_temp_p_end_date);
214:
215: IF (l_temp_p_end_date <= l_end_date) THEN
216: ams_utility_pvt.write_conc_log('This program is already run upto: ' || trunc(l_end_date));
217: ams_utility_pvt.write_conc_log('Concurrent Program Exits Now ');
218: RAISE FND_API.g_exc_error;
219: END IF;
220:
221: l_temp_start_date := trunc(l_end_date) + 1;
222: l_temp_end_date := trunc(l_temp_p_end_date);
236:
237: CAMPAIGN_SUBSEQUENT_LOAD(p_start_date => l_temp_start_date
238: ,p_end_date => l_temp_end_date
239: ,p_api_version_number => l_api_version_number
240: ,p_init_msg_list => FND_API.G_FALSE
241: ,p_load_type => l_load_type
242: ,x_msg_count => x_msg_count
243: ,x_msg_data => x_msg_data
244: ,x_return_status => x_return_status
243: ,x_msg_data => x_msg_data
244: ,x_return_status => x_return_status
245: );
246:
247: IF x_return_status = FND_API.g_ret_sts_error
248: THEN
249: RAISE FND_API.g_exc_error;
250: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
251: RAISE FND_API.g_exc_unexpected_error;
245: );
246:
247: IF x_return_status = FND_API.g_ret_sts_error
248: THEN
249: RAISE FND_API.g_exc_error;
250: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
251: RAISE FND_API.g_exc_unexpected_error;
252: END IF;
253: ELSE
246:
247: IF x_return_status = FND_API.g_ret_sts_error
248: THEN
249: RAISE FND_API.g_exc_error;
250: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
251: RAISE FND_API.g_exc_unexpected_error;
252: END IF;
253: ELSE
254: ams_utility_pvt.write_conc_log('----Period Validation----');
247: IF x_return_status = FND_API.g_ret_sts_error
248: THEN
249: RAISE FND_API.g_exc_error;
250: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
251: RAISE FND_API.g_exc_unexpected_error;
252: END IF;
253: ELSE
254: ams_utility_pvt.write_conc_log('----Period Validation----');
255: ams_utility_pvt.write_conc_log(l_period_error);
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;
274: );
275:
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,
275:
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,
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: );
286:
284: p_data => x_msg_data
285: );
286:
287:
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);
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;
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
298: FND_msg_PUB.Count_And_Get (
299: --p_encoded => FND_API.G_FALSE,
300: p_count => x_msg_count,
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: );
303:
301: p_data => x_msg_data
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;
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: );
316:
321: --------------------------------------------------------------------------------------------------
322:
323: PROCEDURE LOG_HISTORY
324: (--p_api_version_number IN NUMBER
325: --,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
326: --,x_msg_count OUT NOCOPY NUMBER
327: --,x_msg_data OUT NOCOPY VARCHAR2
328: --,x_return_status OUT NOCOPY VARCHAR2
329: p_object IN VARCHAR2,
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)
350: THEN
347: p_api_version_number,
348: l_api_name,
349: g_pkg_name)
350: THEN
351: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
352: END IF;
353:
354: -- Initialize message list if p_init_msg_list is set to TRUE.
355: IF FND_API.to_Boolean( p_init_msg_list )
351: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
352: END IF;
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:
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;
362: */
363:
364: INSERT INTO bim_rep_history
365: (CREATION_DATE,
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,
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,
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:
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,
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,
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: );
407:
405: p_data => x_msg_data
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;
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: );
420: */
431: PROCEDURE CAMPAIGN_FIRST_LOAD
432: ( p_start_date IN DATE
433: ,p_end_date IN DATE
434: ,p_api_version_number IN NUMBER
435: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
436: ,p_load_type IN VARCHAR2
437: ,x_msg_count OUT NOCOPY NUMBER
438: ,x_msg_data OUT NOCOPY VARCHAR2
439: ,x_return_status OUT NOCOPY VARCHAR2
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)
534: THEN
531: p_api_version_number,
532: l_api_name,
533: g_pkg_name)
534: THEN
535: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
536: END IF;
537:
538: -- Initialize message list if p_init_msg_list is set to TRUE.
539: IF FND_API.to_Boolean( p_init_msg_list )
535: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
536: END IF;
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:
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;
546:
547: ams_utility_pvt.write_conc_log('BIM_CAMPAIGN_FACTS: Running the First Load '||sqlerrm(sqlcode));
548:
549: -- The below four commands are necessary for the purpose of the parallel insertion */
2573:
2574:
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,
2574:
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,
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: );
2585:
2584: );
2585:
2586: ams_utility_pvt.write_conc_log('BIM_CAMPAIGN_FACTS:FIRST_LOAD:IN EXPECTED EXCEPTION '||sqlerrm(sqlcode));
2587:
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
2586: ams_utility_pvt.write_conc_log('BIM_CAMPAIGN_FACTS:FIRST_LOAD:IN EXPECTED EXCEPTION '||sqlerrm(sqlcode));
2587:
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,
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: );
2598:
2599: ams_utility_pvt.write_conc_log('BIM_CAMPAIGN_FACTS:FIRST_LOAD:IN UNEXPECTED EXCEPTION '||sqlerrm(sqlcode));
2600:
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:
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: );
2616:
2628: PROCEDURE CAMPAIGN_SUBSEQUENT_LOAD
2629: ( p_start_date IN DATE
2630: ,p_end_date IN DATE
2631: ,p_api_version_number IN NUMBER
2632: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2633: ,p_load_type IN VARCHAR2
2634: ,x_msg_count OUT NOCOPY NUMBER
2635: ,x_msg_data OUT NOCOPY VARCHAR2
2636: ,x_return_status OUT NOCOPY VARCHAR2
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)
2738: THEN
2735: p_api_version_number,
2736: l_api_name,
2737: g_pkg_name)
2738: THEN
2739: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2740: END IF;
2741:
2742: -- Initialize message list if p_init_msg_list is set to TRUE.
2743: IF FND_API.to_Boolean( p_init_msg_list )
2739: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2740: END IF;
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:
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;
2750:
2751:
2752: -- The below four commands are necessary for the purpose of the parallel insertion */
2753:
4788:
4789:
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,
4789:
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,
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: );
4800:
4799: );
4800:
4801: ams_utility_pvt.write_conc_log('BIM_CAMPAIGN_FACTS:LOAD:IN EXPECTED EXCEPTION '||sqlerrm(sqlcode));
4802:
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
4801: ams_utility_pvt.write_conc_log('BIM_CAMPAIGN_FACTS:LOAD:IN EXPECTED EXCEPTION '||sqlerrm(sqlcode));
4802:
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,
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: );
4813:
4814: ams_utility_pvt.write_conc_log('BIM_CAMPAIGN_FACTS:LOAD:IN UNEXPECTED EXCEPTION '||sqlerrm(sqlcode));
4815:
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:
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: );
4831:
4844:
4845:
4846: PROCEDURE CAMPAIGN_DAILY_LOAD
4847: ( p_api_version_number IN NUMBER
4848: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4849: ,x_msg_count OUT NOCOPY NUMBER
4850: ,x_msg_data OUT NOCOPY VARCHAR2
4851: ,x_return_status OUT NOCOPY VARCHAR2
4852: ,p_date IN DATE