[Home] [Help]
84: l_schema VARCHAR2(30);
85: l_return BOOLEAN;
86:
87:
88: BEGIN /* Standard API call to check for call compatibility */
89: l_return := fnd_installation.get_app_info('BIM', l_status, l_industry, l_schema);
90:
91:
92: IF NOT FND_API.Compatible_API_Call (l_api_version_number, p_api_version_number, l_api_name, g_pkg_name)
327: fnd_file.put_line(fnd_file.log,fnd_message.get);
328:
329:
330:
331: /* Standard call to get message count and if count is 1, get message info */
332: FND_MSG_PUB.Count_And_Get
333: ( p_count => x_msg_count,
334: p_data => x_msg_data
335: );
338: --dbms_output.put_line('S u c c e s s f u l l y e x i t i n g ......');
339: EXCEPTION
340: WHEN FND_API.G_EXC_ERROR THEN
341: x_return_status := FND_API.G_RET_STS_ERROR;
342: /* Standard call to get message count and if count=1, get the message */
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: );
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
361: FND_msg_PUB.Add_Exc_msg( g_pkg_name,l_api_name);
362: END IF;
363: /* Standard call to get message count and if count=1, get the message */
364: FND_MSG_PUB.Count_And_Get
365: ( p_count => x_msg_count,
366: p_data => x_msg_data
367: );