[Home] [Help]
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';
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 */