85: --l_err_code := BIM_VALIDITY_CHECK.validate_events(p_start_date,
86: -- l_end_date, l_period_error, l_currency_error);
87: IF (l_max_end_date IS NOT NULL AND p_start_date IS NOT NULL)
88: THEN
89: fnd_message.set_name('BIM','BIM_R_FIRST_LOAD');
90: fnd_message.set_token('END_DATE', l_max_end_date, FALSE);
91: ams_utility_pvt.write_conc_log(fnd_message.get);
92: RAISE FND_API.G_EXC_ERROR;
93: elsif (l_max_end_date IS NULL AND p_start_date IS NULL) THEN
86: -- l_end_date, l_period_error, l_currency_error);
87: IF (l_max_end_date IS NOT NULL AND p_start_date IS NOT NULL)
88: THEN
89: fnd_message.set_name('BIM','BIM_R_FIRST_LOAD');
90: fnd_message.set_token('END_DATE', l_max_end_date, FALSE);
91: ams_utility_pvt.write_conc_log(fnd_message.get);
92: RAISE FND_API.G_EXC_ERROR;
93: elsif (l_max_end_date IS NULL AND p_start_date IS NULL) THEN
94: fnd_message.set_name('BIM','BIM_R_FIRST_SUBSEQUENT');
87: IF (l_max_end_date IS NOT NULL AND p_start_date IS NOT NULL)
88: THEN
89: fnd_message.set_name('BIM','BIM_R_FIRST_LOAD');
90: fnd_message.set_token('END_DATE', l_max_end_date, FALSE);
91: ams_utility_pvt.write_conc_log(fnd_message.get);
92: RAISE FND_API.G_EXC_ERROR;
93: elsif (l_max_end_date IS NULL AND p_start_date IS NULL) THEN
94: fnd_message.set_name('BIM','BIM_R_FIRST_SUBSEQUENT');
95: ams_utility_pvt.write_conc_log(fnd_message.get);
90: fnd_message.set_token('END_DATE', l_max_end_date, FALSE);
91: ams_utility_pvt.write_conc_log(fnd_message.get);
92: RAISE FND_API.G_EXC_ERROR;
93: elsif (l_max_end_date IS NULL AND p_start_date IS NULL) THEN
94: fnd_message.set_name('BIM','BIM_R_FIRST_SUBSEQUENT');
95: ams_utility_pvt.write_conc_log(fnd_message.get);
96: RAISE FND_API.G_EXC_ERROR;
97: END IF;
98:
91: ams_utility_pvt.write_conc_log(fnd_message.get);
92: RAISE FND_API.G_EXC_ERROR;
93: elsif (l_max_end_date IS NULL AND p_start_date IS NULL) THEN
94: fnd_message.set_name('BIM','BIM_R_FIRST_SUBSEQUENT');
95: ams_utility_pvt.write_conc_log(fnd_message.get);
96: RAISE FND_API.G_EXC_ERROR;
97: END IF;
98:
99:
99:
100: IF p_start_date IS NOT NULL THEN
101:
102: IF (p_start_date > p_end_date) THEN
103: fnd_message.set_name('BIM','BIM_R_DATE_VALIDATION');
104: ams_utility_pvt.write_conc_log(fnd_message.get);
105: RAISE FND_API.G_EXC_ERROR;
106: END IF;
107: LOAD_DATA(p_start_datel => p_start_date
100: IF p_start_date IS NOT NULL THEN
101:
102: IF (p_start_date > p_end_date) THEN
103: fnd_message.set_name('BIM','BIM_R_DATE_VALIDATION');
104: ams_utility_pvt.write_conc_log(fnd_message.get);
105: RAISE FND_API.G_EXC_ERROR;
106: END IF;
107: LOAD_DATA(p_start_datel => p_start_date
108: ,p_end_datel => l_end_date
122:
123: IF l_max_end_date IS NOT NULL THEN
124:
125: IF (p_end_date <= l_max_end_date) THEN
126: fnd_message.set_name('BIM','BIM_R_SUBSEQUENT_LOAD');
127: fnd_message.set_token('END_DATE', l_max_end_date, FALSE);
128: ams_utility_pvt.write_conc_log(fnd_message.get);
129: RAISE FND_API.g_exc_error;
130: END IF;
123: IF l_max_end_date IS NOT NULL THEN
124:
125: IF (p_end_date <= l_max_end_date) THEN
126: fnd_message.set_name('BIM','BIM_R_SUBSEQUENT_LOAD');
127: fnd_message.set_token('END_DATE', l_max_end_date, FALSE);
128: ams_utility_pvt.write_conc_log(fnd_message.get);
129: RAISE FND_API.g_exc_error;
130: END IF;
131:
124:
125: IF (p_end_date <= l_max_end_date) THEN
126: fnd_message.set_name('BIM','BIM_R_SUBSEQUENT_LOAD');
127: fnd_message.set_token('END_DATE', l_max_end_date, FALSE);
128: ams_utility_pvt.write_conc_log(fnd_message.get);
129: RAISE FND_API.g_exc_error;
130: END IF;
131:
132: LOAD_DATA(p_start_datel => l_max_end_date + 1
150: COMMIT WORK;
151: END IF;
152: commit;
153:
154: fnd_message.set_name('BIM','BIM_R_END_FACTS');
155: fnd_message.set_token('OBJECT_NAME', 'LEAD IMPORT', FALSE);
156: fnd_file.put_line(fnd_file.log,fnd_message.get);
157:
158: -- Standard call to get message count and IF count IS 1, get message info.
151: END IF;
152: commit;
153:
154: fnd_message.set_name('BIM','BIM_R_END_FACTS');
155: fnd_message.set_token('OBJECT_NAME', 'LEAD IMPORT', FALSE);
156: fnd_file.put_line(fnd_file.log,fnd_message.get);
157:
158: -- Standard call to get message count and IF count IS 1, get message info.
159: FND_msg_PUB.Count_And_Get
152: commit;
153:
154: fnd_message.set_name('BIM','BIM_R_END_FACTS');
155: fnd_message.set_token('OBJECT_NAME', 'LEAD IMPORT', FALSE);
156: fnd_file.put_line(fnd_file.log,fnd_message.get);
157:
158: -- Standard call to get message count and IF count IS 1, get message info.
159: FND_msg_PUB.Count_And_Get
160: (p_count => x_msg_count,
294: BEGIN
295: l_return := fnd_installation.get_app_info('BIM', l_status, l_industry, l_schema);
296:
297: l_object := 'LEAD IMPORT';
298: fnd_message.set_name('BIM','BIM_R_START_FACTS');
299: fnd_message.set_token('P_OBJECT', l_object, FALSE);
300: ams_utility_pvt.write_conc_log(fnd_message.get);
301:
302: -- Standard call to check for call compatibility.
295: l_return := fnd_installation.get_app_info('BIM', l_status, l_industry, l_schema);
296:
297: l_object := 'LEAD IMPORT';
298: fnd_message.set_name('BIM','BIM_R_START_FACTS');
299: fnd_message.set_token('P_OBJECT', l_object, FALSE);
300: ams_utility_pvt.write_conc_log(fnd_message.get);
301:
302: -- Standard call to check for call compatibility.
303: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
296:
297: l_object := 'LEAD IMPORT';
298: fnd_message.set_name('BIM','BIM_R_START_FACTS');
299: fnd_message.set_token('P_OBJECT', l_object, FALSE);
300: ams_utility_pvt.write_conc_log(fnd_message.get);
301:
302: -- Standard call to check for call compatibility.
303: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
304: l_api_version_number,
318: EXECUTE IMMEDIATE 'ALTER sequence '||l_schema||'. bim_r_limp_daily_facts_s CACHE 1000';
319:
320: p_table_name := 'BIM_R_LIMP_DAILY_FACTS';
321:
322: fnd_message.set_name('BIM','BIM_R_DROP_INDEXES');
323: ams_utility_pvt.write_conc_log(fnd_message.get);
324:
325: BIM_UTL_PKG.DROP_INDEX(p_table_name);
326: BIM_UTL_PKG.DROP_INDEX('BIM_R_LIMP_WEEKLY_FACTS');
319:
320: p_table_name := 'BIM_R_LIMP_DAILY_FACTS';
321:
322: fnd_message.set_name('BIM','BIM_R_DROP_INDEXES');
323: ams_utility_pvt.write_conc_log(fnd_message.get);
324:
325: BIM_UTL_PKG.DROP_INDEX(p_table_name);
326: BIM_UTL_PKG.DROP_INDEX('BIM_R_LIMP_WEEKLY_FACTS');
327:
325: BIM_UTL_PKG.DROP_INDEX(p_table_name);
326: BIM_UTL_PKG.DROP_INDEX('BIM_R_LIMP_WEEKLY_FACTS');
327:
328:
329: fnd_message.set_name('BIM','BIM_R_POPULATE_TABLE');
330: fnd_message.set_token('TABLE_NAME', 'BIM_R_LIMP_DAILY_FACTS', FALSE);
331: ams_utility_pvt.write_conc_log(fnd_message.get);
332:
333: BEGIN
326: BIM_UTL_PKG.DROP_INDEX('BIM_R_LIMP_WEEKLY_FACTS');
327:
328:
329: fnd_message.set_name('BIM','BIM_R_POPULATE_TABLE');
330: fnd_message.set_token('TABLE_NAME', 'BIM_R_LIMP_DAILY_FACTS', FALSE);
331: ams_utility_pvt.write_conc_log(fnd_message.get);
332:
333: BEGIN
334: INSERT INTO /*+ append parallel(EDF,1) */
327:
328:
329: fnd_message.set_name('BIM','BIM_R_POPULATE_TABLE');
330: fnd_message.set_token('TABLE_NAME', 'BIM_R_LIMP_DAILY_FACTS', FALSE);
331: ams_utility_pvt.write_conc_log(fnd_message.get);
332:
333: BEGIN
334: INSERT INTO /*+ append parallel(EDF,1) */
335: BIM_R_LIMP_DAILY_FACTS EDF(
469: commit;
470: -- dbms_output.put_line('after daily insert ');
471:
472: -- analyze the bim_r_limp_daily_facts with dbms_stats
473: fnd_message.set_name('BIM','BIM_R_ANALYZE_TABLE');
474: fnd_message.set_token('table_name', p_table_name, FALSE);
475: ams_utility_pvt.write_conc_log(fnd_message.get);
476:
477:
470: -- dbms_output.put_line('after daily insert ');
471:
472: -- analyze the bim_r_limp_daily_facts with dbms_stats
473: fnd_message.set_name('BIM','BIM_R_ANALYZE_TABLE');
474: fnd_message.set_token('table_name', p_table_name, FALSE);
475: ams_utility_pvt.write_conc_log(fnd_message.get);
476:
477:
478: BEGIN
471:
472: -- analyze the bim_r_limp_daily_facts with dbms_stats
473: fnd_message.set_name('BIM','BIM_R_ANALYZE_TABLE');
474: fnd_message.set_token('table_name', p_table_name, FALSE);
475: ams_utility_pvt.write_conc_log(fnd_message.get);
476:
477:
478: BEGIN
479: DBMS_STATS.gather_table_stats('BIM','bim_r_limp_daily_facts', estimate_percent => 5,
484: EXCEPTION
485: WHEN OTHERS THEN
486: EXECUTE IMMEDIATE 'ALTER sequence '||l_schema||'. bim_r_limp_daily_facts_s CACHE 20';
487: x_return_status := FND_API.G_RET_STS_ERROR;
488: FND_MESSAGE.Set_Name ('AMS', 'AMS_REP_INSERT_ERROR');
489: FND_MESSAGE.Set_token('table_name', p_table_name, FALSE);
490: FND_MSG_PUB.Add;
491: ams_utility_pvt.write_conc_log('LEAD IMPORT: EXCEPTION FOR FIRST INSERT. '||sqlerrm(sqlcode));
492: RAISE FND_API.G_EXC_ERROR;
485: WHEN OTHERS THEN
486: EXECUTE IMMEDIATE 'ALTER sequence '||l_schema||'. bim_r_limp_daily_facts_s CACHE 20';
487: x_return_status := FND_API.G_RET_STS_ERROR;
488: FND_MESSAGE.Set_Name ('AMS', 'AMS_REP_INSERT_ERROR');
489: FND_MESSAGE.Set_token('table_name', p_table_name, FALSE);
490: FND_MSG_PUB.Add;
491: ams_utility_pvt.write_conc_log('LEAD IMPORT: EXCEPTION FOR FIRST INSERT. '||sqlerrm(sqlcode));
492: RAISE FND_API.G_EXC_ERROR;
493: end;
493: end;
494:
495: p_table_name :='BIM_R_LIMP_WEEKLY_FACTS';
496:
497: fnd_message.set_name('BIM','BIM_R_TRUNCATE_TABLE');
498: fnd_message.set_token('table_name', p_table_name, FALSE);
499: ams_utility_pvt.write_conc_log(fnd_message.get);
500:
501: EXECUTE IMMEDIATE 'truncate table '||l_schema||'. bim_r_limp_weekly_facts';
494:
495: p_table_name :='BIM_R_LIMP_WEEKLY_FACTS';
496:
497: fnd_message.set_name('BIM','BIM_R_TRUNCATE_TABLE');
498: fnd_message.set_token('table_name', p_table_name, FALSE);
499: ams_utility_pvt.write_conc_log(fnd_message.get);
500:
501: EXECUTE IMMEDIATE 'truncate table '||l_schema||'. bim_r_limp_weekly_facts';
502: --insert into BIM_R_LIMP_WEEKLY_FACTS table
495: p_table_name :='BIM_R_LIMP_WEEKLY_FACTS';
496:
497: fnd_message.set_name('BIM','BIM_R_TRUNCATE_TABLE');
498: fnd_message.set_token('table_name', p_table_name, FALSE);
499: ams_utility_pvt.write_conc_log(fnd_message.get);
500:
501: EXECUTE IMMEDIATE 'truncate table '||l_schema||'. bim_r_limp_weekly_facts';
502: --insert into BIM_R_LIMP_WEEKLY_FACTS table
503: BEGIN
501: EXECUTE IMMEDIATE 'truncate table '||l_schema||'. bim_r_limp_weekly_facts';
502: --insert into BIM_R_LIMP_WEEKLY_FACTS table
503: BEGIN
504:
505: fnd_message.set_name('BIM','BIM_R_POPULATE_TABLE');
506: fnd_message.set_token('TABLE_NAME', 'BIM_R_LIMP_WEEKLY_FACTS', FALSE);
507: ams_utility_pvt.write_conc_log(fnd_message.get);
508:
509: INSERT INTO
502: --insert into BIM_R_LIMP_WEEKLY_FACTS table
503: BEGIN
504:
505: fnd_message.set_name('BIM','BIM_R_POPULATE_TABLE');
506: fnd_message.set_token('TABLE_NAME', 'BIM_R_LIMP_WEEKLY_FACTS', FALSE);
507: ams_utility_pvt.write_conc_log(fnd_message.get);
508:
509: INSERT INTO
510: BIM_R_LIMP_WEEKLY_FACTS EDF(
503: BEGIN
504:
505: fnd_message.set_name('BIM','BIM_R_POPULATE_TABLE');
506: fnd_message.set_token('TABLE_NAME', 'BIM_R_LIMP_WEEKLY_FACTS', FALSE);
507: ams_utility_pvt.write_conc_log(fnd_message.get);
508:
509: INSERT INTO
510: BIM_R_LIMP_WEEKLY_FACTS EDF(
511: weekly_transaction_id,
595:
596: COMMIT;
597:
598: -- analyze the bim_r_limp_daily_facts with dbms_stats
599: fnd_message.set_name('BIM','BIM_R_ANALYZE_TABLE');
600: fnd_message.set_token('table_name', p_table_name, FALSE);
601: ams_utility_pvt.write_conc_log(fnd_message.get);
602:
603: BEGIN
596: COMMIT;
597:
598: -- analyze the bim_r_limp_daily_facts with dbms_stats
599: fnd_message.set_name('BIM','BIM_R_ANALYZE_TABLE');
600: fnd_message.set_token('table_name', p_table_name, FALSE);
601: ams_utility_pvt.write_conc_log(fnd_message.get);
602:
603: BEGIN
604: DBMS_STATS.gather_table_stats('BIM','bim_r_limp_weekly_facts', estimate_percent => 5,
597:
598: -- analyze the bim_r_limp_daily_facts with dbms_stats
599: fnd_message.set_name('BIM','BIM_R_ANALYZE_TABLE');
600: fnd_message.set_token('table_name', p_table_name, FALSE);
601: ams_utility_pvt.write_conc_log(fnd_message.get);
602:
603: BEGIN
604: DBMS_STATS.gather_table_stats('BIM','bim_r_limp_weekly_facts', estimate_percent => 5,
605: degree => 8, granularity => 'GLOBAL', cascade =>TRUE);
604: DBMS_STATS.gather_table_stats('BIM','bim_r_limp_weekly_facts', estimate_percent => 5,
605: degree => 8, granularity => 'GLOBAL', cascade =>TRUE);
606: END;
607:
608: fnd_message.set_name('BIM','BIM_R_RECREATE_INDEXES');
609: ams_utility_pvt.write_conc_log(fnd_message.get);
610:
611: BIM_UTL_PKG.CREATE_INDEX('BIM_R_LIMP_DAILY_FACTS');
612: BIM_UTL_PKG.CREATE_INDEX('BIM_R_LIMP_WEEKLY_FACTS');
605: degree => 8, granularity => 'GLOBAL', cascade =>TRUE);
606: END;
607:
608: fnd_message.set_name('BIM','BIM_R_RECREATE_INDEXES');
609: ams_utility_pvt.write_conc_log(fnd_message.get);
610:
611: BIM_UTL_PKG.CREATE_INDEX('BIM_R_LIMP_DAILY_FACTS');
612: BIM_UTL_PKG.CREATE_INDEX('BIM_R_LIMP_WEEKLY_FACTS');
613: