212: EXECUTE IMMEDIATE l_sql_string ;
213: EXCEPTION
214: WHEN OTHERS THEN
215: IF (SQLCODE= -904) THEN
216: FND_MESSAGE.SET_NAME('BIS','BIS_INVALID_EDW_PK_KEY');
217: FND_MESSAGE.SET_TOKEN('DIMLEVEL_SHORT_NAME',l_lvlshortname);
218: l_status := FND_API.G_RET_STS_ERROR;
219: l_error_text := l_lvlshortname || ' : ';
220: l_error_text := l_error_text || FND_MESSAGE.GET;
213: EXCEPTION
214: WHEN OTHERS THEN
215: IF (SQLCODE= -904) THEN
216: FND_MESSAGE.SET_NAME('BIS','BIS_INVALID_EDW_PK_KEY');
217: FND_MESSAGE.SET_TOKEN('DIMLEVEL_SHORT_NAME',l_lvlshortname);
218: l_status := FND_API.G_RET_STS_ERROR;
219: l_error_text := l_lvlshortname || ' : ';
220: l_error_text := l_error_text || FND_MESSAGE.GET;
221: WRITE_TO_FILE(l_error_text, l_err_file_handle);
216: FND_MESSAGE.SET_NAME('BIS','BIS_INVALID_EDW_PK_KEY');
217: FND_MESSAGE.SET_TOKEN('DIMLEVEL_SHORT_NAME',l_lvlshortname);
218: l_status := FND_API.G_RET_STS_ERROR;
219: l_error_text := l_lvlshortname || ' : ';
220: l_error_text := l_error_text || FND_MESSAGE.GET;
221: WRITE_TO_FILE(l_error_text, l_err_file_handle);
222: END IF;
223: END;
224: ELSE
224: ELSE
225: /*OPEN c_pkkey;
226: FETCH c_pkkey INTO l_pkkey;
227: IF c_pkkey%NOTFOUND THEN
228: FND_MESSAGE.SET_NAME('BIS','BIS_INVALID_EDW_PK_KEY');
229: FND_MESSAGE.SET_TOKEN('DIMLEVEL_SHORT_NAME',l_lvlshortname);
230: l_status := FND_API.G_RET_STS_ERROR;
231: l_error_text := l_lvlshortname || ' : ';
232: l_error_text := l_error_text || FND_MESSAGE.GET;
225: /*OPEN c_pkkey;
226: FETCH c_pkkey INTO l_pkkey;
227: IF c_pkkey%NOTFOUND THEN
228: FND_MESSAGE.SET_NAME('BIS','BIS_INVALID_EDW_PK_KEY');
229: FND_MESSAGE.SET_TOKEN('DIMLEVEL_SHORT_NAME',l_lvlshortname);
230: l_status := FND_API.G_RET_STS_ERROR;
231: l_error_text := l_lvlshortname || ' : ';
232: l_error_text := l_error_text || FND_MESSAGE.GET;
233: WRITE_TO_FILE(l_error_text, l_err_file_handle);
228: FND_MESSAGE.SET_NAME('BIS','BIS_INVALID_EDW_PK_KEY');
229: FND_MESSAGE.SET_TOKEN('DIMLEVEL_SHORT_NAME',l_lvlshortname);
230: l_status := FND_API.G_RET_STS_ERROR;
231: l_error_text := l_lvlshortname || ' : ';
232: l_error_text := l_error_text || FND_MESSAGE.GET;
233: WRITE_TO_FILE(l_error_text, l_err_file_handle);
234: END IF;
235: CLOSE c_pkkey;
236: */
238: BEGIN
239: EXECUTE IMMEDIATE l_pkkey_sql INTO l_pkkey USING l_lvlshortname_ltc;
240: EXCEPTION
241: WHEN NO_DATA_FOUND THEN
242: FND_MESSAGE.SET_NAME('BIS','BIS_INVALID_EDW_PK_KEY');
243: FND_MESSAGE.SET_TOKEN('DIMLEVEL_SHORT_NAME',l_lvlshortname);
244: l_status := FND_API.G_RET_STS_ERROR;
245: l_error_text := l_lvlshortname || ' : ';
246: l_error_text := l_error_text || FND_MESSAGE.GET;
239: EXECUTE IMMEDIATE l_pkkey_sql INTO l_pkkey USING l_lvlshortname_ltc;
240: EXCEPTION
241: WHEN NO_DATA_FOUND THEN
242: FND_MESSAGE.SET_NAME('BIS','BIS_INVALID_EDW_PK_KEY');
243: FND_MESSAGE.SET_TOKEN('DIMLEVEL_SHORT_NAME',l_lvlshortname);
244: l_status := FND_API.G_RET_STS_ERROR;
245: l_error_text := l_lvlshortname || ' : ';
246: l_error_text := l_error_text || FND_MESSAGE.GET;
247: WRITE_TO_FILE(l_error_text, l_err_file_handle);
242: FND_MESSAGE.SET_NAME('BIS','BIS_INVALID_EDW_PK_KEY');
243: FND_MESSAGE.SET_TOKEN('DIMLEVEL_SHORT_NAME',l_lvlshortname);
244: l_status := FND_API.G_RET_STS_ERROR;
245: l_error_text := l_lvlshortname || ' : ';
246: l_error_text := l_error_text || FND_MESSAGE.GET;
247: WRITE_TO_FILE(l_error_text, l_err_file_handle);
248: END;
249: l_tablename := l_lvlshortname || EDW_LVL_TBL_SUFFIX ;
250: l_sql_string := 'SELECT '||l_pkkey||' from '||l_tablename|| ' where rownum < 2';
252: EXECUTE IMMEDIATE l_sql_string ;
253: EXCEPTION
254: WHEN OTHERS THEN
255: IF (SQLCODE = -942) THEN
256: FND_MESSAGE.SET_NAME ('BIS', 'BIS_NO_LTC_TABLE');
257: FND_MESSAGE.SET_TOKEN('DIMLEVEL_SHORT_NAME', p_dim_level_name);
258: l_status := FND_API.G_RET_STS_ERROR;
259: l_error_text := l_lvlshortname || ' : ';
260: l_error_text := l_error_text || FND_MESSAGE.GET;
253: EXCEPTION
254: WHEN OTHERS THEN
255: IF (SQLCODE = -942) THEN
256: FND_MESSAGE.SET_NAME ('BIS', 'BIS_NO_LTC_TABLE');
257: FND_MESSAGE.SET_TOKEN('DIMLEVEL_SHORT_NAME', p_dim_level_name);
258: l_status := FND_API.G_RET_STS_ERROR;
259: l_error_text := l_lvlshortname || ' : ';
260: l_error_text := l_error_text || FND_MESSAGE.GET;
261: WRITE_TO_FILE(l_error_text, l_err_file_handle);
256: FND_MESSAGE.SET_NAME ('BIS', 'BIS_NO_LTC_TABLE');
257: FND_MESSAGE.SET_TOKEN('DIMLEVEL_SHORT_NAME', p_dim_level_name);
258: l_status := FND_API.G_RET_STS_ERROR;
259: l_error_text := l_lvlshortname || ' : ';
260: l_error_text := l_error_text || FND_MESSAGE.GET;
261: WRITE_TO_FILE(l_error_text, l_err_file_handle);
262: END IF;
263: IF (SQLCODE= -904) THEN
264: FND_MESSAGE.SET_NAME ('BIS', 'BIS_INVALID_EDW_PK_KEY');
260: l_error_text := l_error_text || FND_MESSAGE.GET;
261: WRITE_TO_FILE(l_error_text, l_err_file_handle);
262: END IF;
263: IF (SQLCODE= -904) THEN
264: FND_MESSAGE.SET_NAME ('BIS', 'BIS_INVALID_EDW_PK_KEY');
265: FND_MESSAGE.SET_TOKEN('DIMLEVEL_SHORT_NAME', p_dim_level_name);
266: l_status := FND_API.G_RET_STS_ERROR;
267: l_error_text := l_lvlshortname || ' : ';
268: l_error_text := l_error_text || FND_MESSAGE.GET;
261: WRITE_TO_FILE(l_error_text, l_err_file_handle);
262: END IF;
263: IF (SQLCODE= -904) THEN
264: FND_MESSAGE.SET_NAME ('BIS', 'BIS_INVALID_EDW_PK_KEY');
265: FND_MESSAGE.SET_TOKEN('DIMLEVEL_SHORT_NAME', p_dim_level_name);
266: l_status := FND_API.G_RET_STS_ERROR;
267: l_error_text := l_lvlshortname || ' : ';
268: l_error_text := l_error_text || FND_MESSAGE.GET;
269: WRITE_TO_FILE(l_error_text, l_err_file_handle);
264: FND_MESSAGE.SET_NAME ('BIS', 'BIS_INVALID_EDW_PK_KEY');
265: FND_MESSAGE.SET_TOKEN('DIMLEVEL_SHORT_NAME', p_dim_level_name);
266: l_status := FND_API.G_RET_STS_ERROR;
267: l_error_text := l_lvlshortname || ' : ';
268: l_error_text := l_error_text || FND_MESSAGE.GET;
269: WRITE_TO_FILE(l_error_text, l_err_file_handle);
270: END IF;
271: END;
272: l_valuename := ' NAME ';
283: EXECUTE IMMEDIATE l_sql_string ;
284: EXCEPTION
285: WHEN OTHERS THEN
286: IF (SQLCODE= -904) THEN
287: FND_MESSAGE.SET_NAME('BIS','BIS_INVALID_START_DATE');
288: FND_MESSAGE.SET_TOKEN('DIMLEVEL_SHORT_NAME',l_lvlshortname);
289: l_status := FND_API.G_RET_STS_ERROR;
290: l_error_text := l_lvlshortname || ' : ';
291: l_error_text := l_error_text || FND_MESSAGE.GET;
284: EXCEPTION
285: WHEN OTHERS THEN
286: IF (SQLCODE= -904) THEN
287: FND_MESSAGE.SET_NAME('BIS','BIS_INVALID_START_DATE');
288: FND_MESSAGE.SET_TOKEN('DIMLEVEL_SHORT_NAME',l_lvlshortname);
289: l_status := FND_API.G_RET_STS_ERROR;
290: l_error_text := l_lvlshortname || ' : ';
291: l_error_text := l_error_text || FND_MESSAGE.GET;
292: WRITE_TO_FILE(l_error_text, l_err_file_handle);
287: FND_MESSAGE.SET_NAME('BIS','BIS_INVALID_START_DATE');
288: FND_MESSAGE.SET_TOKEN('DIMLEVEL_SHORT_NAME',l_lvlshortname);
289: l_status := FND_API.G_RET_STS_ERROR;
290: l_error_text := l_lvlshortname || ' : ';
291: l_error_text := l_error_text || FND_MESSAGE.GET;
292: WRITE_TO_FILE(l_error_text, l_err_file_handle);
293: END IF;
294: END;
295: l_sql_string := 'SELECT end_date from '||l_tablename||' where rownum < 2';
297: EXECUTE IMMEDIATE l_sql_string ;
298: EXCEPTION
299: WHEN OTHERS THEN
300: IF (SQLCODE= -904) THEN
301: FND_MESSAGE.SET_NAME('BIS','BIS_INVALID_EDW_END_DATE');
302: FND_MESSAGE.SET_TOKEN('DIMLEVEL_SHORT_NAME',l_lvlshortname);
303: l_status := FND_API.G_RET_STS_ERROR;
304: l_error_text := l_lvlshortname || ' : ';
305: l_error_text := l_error_text || FND_MESSAGE.GET;
298: EXCEPTION
299: WHEN OTHERS THEN
300: IF (SQLCODE= -904) THEN
301: FND_MESSAGE.SET_NAME('BIS','BIS_INVALID_EDW_END_DATE');
302: FND_MESSAGE.SET_TOKEN('DIMLEVEL_SHORT_NAME',l_lvlshortname);
303: l_status := FND_API.G_RET_STS_ERROR;
304: l_error_text := l_lvlshortname || ' : ';
305: l_error_text := l_error_text || FND_MESSAGE.GET;
306: WRITE_TO_FILE(l_error_text, l_err_file_handle);
301: FND_MESSAGE.SET_NAME('BIS','BIS_INVALID_EDW_END_DATE');
302: FND_MESSAGE.SET_TOKEN('DIMLEVEL_SHORT_NAME',l_lvlshortname);
303: l_status := FND_API.G_RET_STS_ERROR;
304: l_error_text := l_lvlshortname || ' : ';
305: l_error_text := l_error_text || FND_MESSAGE.GET;
306: WRITE_TO_FILE(l_error_text, l_err_file_handle);
307: END IF;
308: END;
309: ELSE
315: EXECUTE IMMEDIATE l_sql_string ;
316: EXCEPTION
317: WHEN OTHERS THEN
318: IF (SQLCODE = -942) THEN
319: FND_MESSAGE.SET_NAME ('BIS', 'BIS_NO_LTC_TABLE');
320: FND_MESSAGE.SET_TOKEN('DIMLEVEL_SHORT_NAME', l_lvlshortname);
321: l_status := FND_API.G_RET_STS_ERROR;
322: l_error_text := l_lvlshortname || ' : ';
323: l_error_text := l_error_text || FND_MESSAGE.GET;
316: EXCEPTION
317: WHEN OTHERS THEN
318: IF (SQLCODE = -942) THEN
319: FND_MESSAGE.SET_NAME ('BIS', 'BIS_NO_LTC_TABLE');
320: FND_MESSAGE.SET_TOKEN('DIMLEVEL_SHORT_NAME', l_lvlshortname);
321: l_status := FND_API.G_RET_STS_ERROR;
322: l_error_text := l_lvlshortname || ' : ';
323: l_error_text := l_error_text || FND_MESSAGE.GET;
324: WRITE_TO_FILE(l_error_text, l_err_file_handle);
319: FND_MESSAGE.SET_NAME ('BIS', 'BIS_NO_LTC_TABLE');
320: FND_MESSAGE.SET_TOKEN('DIMLEVEL_SHORT_NAME', l_lvlshortname);
321: l_status := FND_API.G_RET_STS_ERROR;
322: l_error_text := l_lvlshortname || ' : ';
323: l_error_text := l_error_text || FND_MESSAGE.GET;
324: WRITE_TO_FILE(l_error_text, l_err_file_handle);
325: END IF;
326: IF (SQLCODE= -904) THEN
327: FND_MESSAGE.SET_NAME ('BIS', 'BIS_INVALID_VALUE');
323: l_error_text := l_error_text || FND_MESSAGE.GET;
324: WRITE_TO_FILE(l_error_text, l_err_file_handle);
325: END IF;
326: IF (SQLCODE= -904) THEN
327: FND_MESSAGE.SET_NAME ('BIS', 'BIS_INVALID_VALUE');
328: FND_MESSAGE.SET_TOKEN('DIMLEVEL_SHORT_NAME', l_lvlshortname);
329: l_status := FND_API.G_RET_STS_ERROR;
330: l_error_text := l_lvlshortname || ' : ';
331: l_error_text := l_error_text || FND_MESSAGE.GET;
324: WRITE_TO_FILE(l_error_text, l_err_file_handle);
325: END IF;
326: IF (SQLCODE= -904) THEN
327: FND_MESSAGE.SET_NAME ('BIS', 'BIS_INVALID_VALUE');
328: FND_MESSAGE.SET_TOKEN('DIMLEVEL_SHORT_NAME', l_lvlshortname);
329: l_status := FND_API.G_RET_STS_ERROR;
330: l_error_text := l_lvlshortname || ' : ';
331: l_error_text := l_error_text || FND_MESSAGE.GET;
332: WRITE_TO_FILE(l_error_text, l_err_file_handle);
327: FND_MESSAGE.SET_NAME ('BIS', 'BIS_INVALID_VALUE');
328: FND_MESSAGE.SET_TOKEN('DIMLEVEL_SHORT_NAME', l_lvlshortname);
329: l_status := FND_API.G_RET_STS_ERROR;
330: l_error_text := l_lvlshortname || ' : ';
331: l_error_text := l_error_text || FND_MESSAGE.GET;
332: WRITE_TO_FILE(l_error_text, l_err_file_handle);
333: END IF;
334: END;
335: --END IF;
333: END IF;
334: END;
335: --END IF;
336: IF (l_status = FND_API.G_RET_STS_SUCCESS) THEN
337: FND_MESSAGE.SET_NAME ('BIS', 'BIS_NO_ERRORS');
338: l_success_text := l_lvlshortname || ' ' || FND_MESSAGE.GET;
339: WRITE_TO_FILE(l_success_text , l_success_file_handle);
340: END IF;
341: END LOOP;
334: END;
335: --END IF;
336: IF (l_status = FND_API.G_RET_STS_SUCCESS) THEN
337: FND_MESSAGE.SET_NAME ('BIS', 'BIS_NO_ERRORS');
338: l_success_text := l_lvlshortname || ' ' || FND_MESSAGE.GET;
339: WRITE_TO_FILE(l_success_text , l_success_file_handle);
340: END IF;
341: END LOOP;
342: utl_file.fclose(l_success_file_handle);