190: --FOR c_rec IN c_dimlvls LOOP
191: LOOP
192: FETCH l_dimlvls_cursor INTO l_lvlshortname, l_longname, l_description, l_prefix;
193: EXIT WHEN l_dimlvls_cursor%NOTFOUND;
194: l_status := FND_API.G_RET_STS_SUCCESS;
195: --l_error_text := c_rec.lvlshortname || ' : ';
196: --l_lvlshortname := c_Rec.lvlshortname;
197: l_error_text := l_lvlshortname || ' : ';
198: /*OPEN c_dims(l_lvlshortname);
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);
222: END IF;
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);
234: END IF;
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);
248: END;
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);
262: END IF;
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);
270: END IF;
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);
293: END IF;
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);
307: END IF;
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);
325: END IF;
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);
333: END IF;
332: WRITE_TO_FILE(l_error_text, l_err_file_handle);
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;