43:
44: END LOG_HISTORY;
45:
46: /*----------------------------------------------------------------------------
47: This procedure will Populate BIM_R_SOURCE_CODES and BIM_R_LOCATIONS tables
48: ----------------------------------------------------------------------------*/
49:
50: PROCEDURE LOAD_DATA
51: (p_api_version_number IN NUMBER
114: /* Begin of the code for checking whether first-time or subsequent run */
115: IF ((l_creation_date) = trunc(sysdate)) THEN
116: /* Return control back to the caller before the normal end of procedure is reached */
117: /* No messages in the LOG file */
118: --ams_utility_pvt.write_conc_log('TABLES BIM_R_SOURCE_CODES and BIM_R_LOCATIONS are already POPULATED Today');
119: return;
120: END IF;
121:
122: l_table_name := 'BIM_R_LOCATIONS';
155: degree => 8, granularity => 'GLOBAL', cascade =>TRUE);
156:
157:
158: /* Dropping INdexes */
159: BIM_UTL_PKG.DROP_INDEX('BIM_R_SOURCE_CODES');
160:
161:
162: l_table_name := 'BIM_R_SOURCE_CODES';
163: fnd_message.set_name('BIM','BIM_R_TRUNCATE_TABLE');
158: /* Dropping INdexes */
159: BIM_UTL_PKG.DROP_INDEX('BIM_R_SOURCE_CODES');
160:
161:
162: l_table_name := 'BIM_R_SOURCE_CODES';
163: fnd_message.set_name('BIM','BIM_R_TRUNCATE_TABLE');
164: fnd_message.set_token('TABLE_NAME',l_table_name,FALSE);
165: fnd_file.put_line(fnd_file.log,fnd_message.get);
166:
163: fnd_message.set_name('BIM','BIM_R_TRUNCATE_TABLE');
164: fnd_message.set_token('TABLE_NAME',l_table_name,FALSE);
165: fnd_file.put_line(fnd_file.log,fnd_message.get);
166:
167: EXECUTE IMMEDIATE 'TRUNCATE TABLE ' ||l_schema||'.BIM_R_SOURCE_CODES';
168:
169:
170: l_table_name := 'BIM_R_SOURCE_CODES';
171: fnd_message.set_name('BIM','BIM_R_POPULATE_TABLE');
166:
167: EXECUTE IMMEDIATE 'TRUNCATE TABLE ' ||l_schema||'.BIM_R_SOURCE_CODES';
168:
169:
170: l_table_name := 'BIM_R_SOURCE_CODES';
171: fnd_message.set_name('BIM','BIM_R_POPULATE_TABLE');
172: fnd_message.set_token('TABLE_NAME',l_table_name,FALSE);
173: fnd_file.put_line(fnd_file.log,fnd_message.get);
174:
171: fnd_message.set_name('BIM','BIM_R_POPULATE_TABLE');
172: fnd_message.set_token('TABLE_NAME',l_table_name,FALSE);
173: fnd_file.put_line(fnd_file.log,fnd_message.get);
174:
175: /* The INSERT statement to populate BIM_R_SOURCE_CODES table begins here */
176:
177: INSERT /*+ append parallel(SRC,1) */
178: INTO BIM_R_SOURCE_CODES SRC
179: (
174:
175: /* The INSERT statement to populate BIM_R_SOURCE_CODES table begins here */
176:
177: INSERT /*+ append parallel(SRC,1) */
178: INTO BIM_R_SOURCE_CODES SRC
179: (
180: source_code_id,
181: source_code,
182: parent_object_type,
307: END IF;
308:
309: COMMIT;
310:
311: --dbms_output.put_Line('JUST A F T E R THE MAIN INSERT STATMENT for bim_r_source_codes');
312:
313: l_table_name := 'BIM_R_SOURCE_CODES';
314: fnd_message.set_name('BIM','BIM_R_ANALYZE_TABLE');
315: fnd_message.set_token('TABLE_NAME',l_table_name,FALSE);
309: COMMIT;
310:
311: --dbms_output.put_Line('JUST A F T E R THE MAIN INSERT STATMENT for bim_r_source_codes');
312:
313: l_table_name := 'BIM_R_SOURCE_CODES';
314: fnd_message.set_name('BIM','BIM_R_ANALYZE_TABLE');
315: fnd_message.set_token('TABLE_NAME',l_table_name,FALSE);
316: fnd_file.put_line(fnd_file.log,fnd_message.get);
317:
314: fnd_message.set_name('BIM','BIM_R_ANALYZE_TABLE');
315: fnd_message.set_token('TABLE_NAME',l_table_name,FALSE);
316: fnd_file.put_line(fnd_file.log,fnd_message.get);
317:
318: /* Analyze the bim_r_source_codes table */
319: DBMS_STATS.gather_table_stats('BIM','BIM_R_SOURCE_CODES', estimate_percent => 5,
320: degree => 8, granularity => 'GLOBAL', cascade =>TRUE);
321:
322: /* Recreating Indexes */
315: fnd_message.set_token('TABLE_NAME',l_table_name,FALSE);
316: fnd_file.put_line(fnd_file.log,fnd_message.get);
317:
318: /* Analyze the bim_r_source_codes table */
319: DBMS_STATS.gather_table_stats('BIM','BIM_R_SOURCE_CODES', estimate_percent => 5,
320: degree => 8, granularity => 'GLOBAL', cascade =>TRUE);
321:
322: /* Recreating Indexes */
323: BIM_UTL_PKG.CREATE_INDEX('BIM_R_SOURCE_CODES');
319: DBMS_STATS.gather_table_stats('BIM','BIM_R_SOURCE_CODES', estimate_percent => 5,
320: degree => 8, granularity => 'GLOBAL', cascade =>TRUE);
321:
322: /* Recreating Indexes */
323: BIM_UTL_PKG.CREATE_INDEX('BIM_R_SOURCE_CODES');
324:
325: fnd_message.set_name('BIM','BIM_R_PROG_COMPLETION');
326: fnd_message.set_token('PROGRAM_NAME','Populating Source Codes',FALSE);
327: fnd_file.put_line(fnd_file.log,fnd_message.get);
343: FND_MSG_PUB.Count_And_Get
344: ( p_count => x_msg_count,
345: p_data => x_msg_data
346: );
347: ams_utility_pvt.write_conc_log('BIM_R_SOURCE_CODES:IN EXPECTED EXCEPTION '||sqlerrm(sqlcode));
348:
349: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
350: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
351: /* Standard call to get message count and if count=1, get the message */
352: FND_MSG_PUB.Count_And_Get
353: ( p_count => x_msg_count,
354: p_data => x_msg_data
355: );
356: ams_utility_pvt.write_conc_log('BIM_R_SOURCE_CODES:IN UNEXPECTED EXCEPTION '||sqlerrm(sqlcode));
357:
358: WHEN OTHERS THEN
359: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
360: IF FND_MSG_PUB.Check_msg_Level ( FND_msg_PUB.G_msg_LVL_UNEXP_ERROR) THEN
364: FND_MSG_PUB.Count_And_Get
365: ( p_count => x_msg_count,
366: p_data => x_msg_data
367: );
368: ams_utility_pvt.write_conc_log('BIM_R_SOURCE_CODES:IN OTHERS EXCEPTION '||sqlerrm(sqlcode));
369:
370: --dbms_output.put_Line('EXCEPTIONS: OTHERS in bim_r_source_codes -- '||SQLERRM(SQLCODE));
371:
372: /* End of Procedure */
366: p_data => x_msg_data
367: );
368: ams_utility_pvt.write_conc_log('BIM_R_SOURCE_CODES:IN OTHERS EXCEPTION '||sqlerrm(sqlcode));
369:
370: --dbms_output.put_Line('EXCEPTIONS: OTHERS in bim_r_source_codes -- '||SQLERRM(SQLCODE));
371:
372: /* End of Procedure */
373: END LOAD_DATA;
374: