10: ,x_msg_data OUT Varchar2)
11: is
12: l_rtn_val Varchar2(80);
13: Begin
14: x_return_status := FND_API.G_RET_STS_SUCCESS;
15: select short_name
16: into x_level_name
17: from BIS_levels
18: where level_id = p_level_id;
19: EXCEPTION
20:
21: WHEN OTHERS THEN
22:
23: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
24:
25: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
26: THEN
27: FND_MSG_PUB.Add_Exc_Msg
39: end Get_Level_name;
40:
41: Procedure Create_Ind_Level_View
42: (p_ind_level_name IN Varchar2
43: ,p_msg_init IN Varchar2 default FND_API.G_TRUE
44: ,x_return_status OUT Varchar2
45: ,x_msg_count OUT Number
46: ,x_msg_data OUT Varchar2)
47: is
87: l_file Varchar2(20);
88: Begin
89: BIS_debug_pub.Debug_OFF;
90:
91: l_return_status := FND_API.G_RET_STS_SUCCESS;
92:
93: -- Initialize message list.
94: if p_msg_init = FND_API.G_TRUE then
95: FND_MSG_PUB.initialize;
90:
91: l_return_status := FND_API.G_RET_STS_SUCCESS;
92:
93: -- Initialize message list.
94: if p_msg_init = FND_API.G_TRUE then
95: FND_MSG_PUB.initialize;
96: end if;
97:
98: BIS_debug_pub.add('Selecting row from BIS_target_levels for : '
115:
116: BIS_debug_pub.add('The return status is ' || l_return_status || ': and'
117: || ' time level name is :' || l_level_name);
118:
119: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
120: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
121: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
122: RAISE FND_API.G_EXC_ERROR;
123: END IF;
116: BIS_debug_pub.add('The return status is ' || l_return_status || ': and'
117: || ' time level name is :' || l_level_name);
118:
119: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
120: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
121: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
122: RAISE FND_API.G_EXC_ERROR;
123: END IF;
124:
117: || ' time level name is :' || l_level_name);
118:
119: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
120: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
121: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
122: RAISE FND_API.G_EXC_ERROR;
123: END IF;
124:
125: if UPPER(substr(l_level_name,1,5)) <> 'TOTAL' then
118:
119: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
120: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
121: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
122: RAISE FND_API.G_EXC_ERROR;
123: END IF;
124:
125: if UPPER(substr(l_level_name,1,5)) <> 'TOTAL' then
126: l_level_col_list1 := l_level_col_list1 || ',' || 'Calendar_' ||replace(l_level_name,' ','_');
167: ,x_msg_count => x_msg_count
168: ,x_msg_data => x_msg_data);
169: BIS_debug_pub.add('The return status is ' || l_return_status || ': and'
170: || ' org level name is:' || l_level_name);
171: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
172: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
173: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
174: RAISE FND_API.G_EXC_ERROR;
175: END IF;
168: ,x_msg_data => x_msg_data);
169: BIS_debug_pub.add('The return status is ' || l_return_status || ': and'
170: || ' org level name is:' || l_level_name);
171: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
172: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
173: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
174: RAISE FND_API.G_EXC_ERROR;
175: END IF;
176: if substr(upper(l_level_name),1,5) <> 'TOTAL' then
169: BIS_debug_pub.add('The return status is ' || l_return_status || ': and'
170: || ' org level name is:' || l_level_name);
171: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
172: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
173: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
174: RAISE FND_API.G_EXC_ERROR;
175: END IF;
176: if substr(upper(l_level_name),1,5) <> 'TOTAL' then
177: l_level_col_list1 := l_level_col_list1
170: || ' org level name is:' || l_level_name);
171: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
172: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
173: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
174: RAISE FND_API.G_EXC_ERROR;
175: END IF;
176: if substr(upper(l_level_name),1,5) <> 'TOTAL' then
177: l_level_col_list1 := l_level_col_list1
178: || ',' || replace(l_level_name,' ','_');
190: ,x_msg_count => x_msg_count
191: ,x_msg_data => x_msg_data);
192: BIS_debug_pub.add('The return status is ' || l_return_status || ': and'
193: || ' Dimension1 level name is:' || l_level_name);
194: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
195: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
196: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
197: RAISE FND_API.G_EXC_ERROR;
198: END IF;
191: ,x_msg_data => x_msg_data);
192: BIS_debug_pub.add('The return status is ' || l_return_status || ': and'
193: || ' Dimension1 level name is:' || l_level_name);
194: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
195: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
196: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
197: RAISE FND_API.G_EXC_ERROR;
198: END IF;
199: if substr(upper(l_level_name),1,5) <> 'TOTAL' then
192: BIS_debug_pub.add('The return status is ' || l_return_status || ': and'
193: || ' Dimension1 level name is:' || l_level_name);
194: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
195: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
196: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
197: RAISE FND_API.G_EXC_ERROR;
198: END IF;
199: if substr(upper(l_level_name),1,5) <> 'TOTAL' then
200: l_level_col_list1 := l_level_col_list1 || ','
193: || ' Dimension1 level name is:' || l_level_name);
194: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
195: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
196: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
197: RAISE FND_API.G_EXC_ERROR;
198: END IF;
199: if substr(upper(l_level_name),1,5) <> 'TOTAL' then
200: l_level_col_list1 := l_level_col_list1 || ','
201: || replace(l_level_name,' ','_');
213: ,x_msg_count => x_msg_count
214: ,x_msg_data => x_msg_data);
215: BIS_debug_pub.add('The return status is ' || l_return_status || ': and'
216: || ' Dimension2 level name is:' || l_level_name);
217: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
218: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
219: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
220: RAISE FND_API.G_EXC_ERROR;
221: END IF;
214: ,x_msg_data => x_msg_data);
215: BIS_debug_pub.add('The return status is ' || l_return_status || ': and'
216: || ' Dimension2 level name is:' || l_level_name);
217: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
218: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
219: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
220: RAISE FND_API.G_EXC_ERROR;
221: END IF;
222: if substr(upper(l_level_name),1,5) <> 'TOTAL' then
215: BIS_debug_pub.add('The return status is ' || l_return_status || ': and'
216: || ' Dimension2 level name is:' || l_level_name);
217: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
218: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
219: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
220: RAISE FND_API.G_EXC_ERROR;
221: END IF;
222: if substr(upper(l_level_name),1,5) <> 'TOTAL' then
223: l_level_col_list1 := l_level_col_list1 || ','
216: || ' Dimension2 level name is:' || l_level_name);
217: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
218: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
219: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
220: RAISE FND_API.G_EXC_ERROR;
221: END IF;
222: if substr(upper(l_level_name),1,5) <> 'TOTAL' then
223: l_level_col_list1 := l_level_col_list1 || ','
224: || replace(l_level_name,' ','_');
236: ,x_msg_count => x_msg_count
237: ,x_msg_data => x_msg_data);
238: BIS_debug_pub.add('The return status is ' || l_return_status || ': and'
239: || ' Dimension3 level name is:' || l_level_name);
240: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
241: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
242: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
243: RAISE FND_API.G_EXC_ERROR;
244: END IF;
237: ,x_msg_data => x_msg_data);
238: BIS_debug_pub.add('The return status is ' || l_return_status || ': and'
239: || ' Dimension3 level name is:' || l_level_name);
240: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
241: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
242: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
243: RAISE FND_API.G_EXC_ERROR;
244: END IF;
245: if substr(upper(l_level_name),1,5) <> 'TOTAL' then
238: BIS_debug_pub.add('The return status is ' || l_return_status || ': and'
239: || ' Dimension3 level name is:' || l_level_name);
240: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
241: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
242: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
243: RAISE FND_API.G_EXC_ERROR;
244: END IF;
245: if substr(upper(l_level_name),1,5) <> 'TOTAL' then
246: l_level_col_list1 := l_level_col_list1 || ','
239: || ' Dimension3 level name is:' || l_level_name);
240: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
241: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
242: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
243: RAISE FND_API.G_EXC_ERROR;
244: END IF;
245: if substr(upper(l_level_name),1,5) <> 'TOTAL' then
246: l_level_col_list1 := l_level_col_list1 || ','
247: || replace(l_level_name,' ','_');
259: ,x_msg_count => x_msg_count
260: ,x_msg_data => x_msg_data);
261: BIS_debug_pub.add('The return status is ' || l_return_status || ': and'
262: || ' Dimension4 level name is:' || l_level_name);
263: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
264: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
265: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
266: RAISE FND_API.G_EXC_ERROR;
267: END IF;
260: ,x_msg_data => x_msg_data);
261: BIS_debug_pub.add('The return status is ' || l_return_status || ': and'
262: || ' Dimension4 level name is:' || l_level_name);
263: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
264: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
265: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
266: RAISE FND_API.G_EXC_ERROR;
267: END IF;
268: if substr(upper(l_level_name),1,5) <> 'TOTAL' then
261: BIS_debug_pub.add('The return status is ' || l_return_status || ': and'
262: || ' Dimension4 level name is:' || l_level_name);
263: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
264: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
265: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
266: RAISE FND_API.G_EXC_ERROR;
267: END IF;
268: if substr(upper(l_level_name),1,5) <> 'TOTAL' then
269: l_level_col_list1 := l_level_col_list1 || ','
262: || ' Dimension4 level name is:' || l_level_name);
263: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
264: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
265: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
266: RAISE FND_API.G_EXC_ERROR;
267: END IF;
268: if substr(upper(l_level_name),1,5) <> 'TOTAL' then
269: l_level_col_list1 := l_level_col_list1 || ','
270: || replace(l_level_name,' ','_');
282: ,x_msg_count => x_msg_count
283: ,x_msg_data => x_msg_data);
284: BIS_debug_pub.add('The return status is ' || l_return_status || ': and'
285: || ' Dimension5 level name is:' || l_level_name);
286: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
287: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
288: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
289: RAISE FND_API.G_EXC_ERROR;
290: END IF;
283: ,x_msg_data => x_msg_data);
284: BIS_debug_pub.add('The return status is ' || l_return_status || ': and'
285: || ' Dimension5 level name is:' || l_level_name);
286: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
287: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
288: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
289: RAISE FND_API.G_EXC_ERROR;
290: END IF;
291: if substr(upper(l_level_name),1,5) <> 'TOTAL' then
284: BIS_debug_pub.add('The return status is ' || l_return_status || ': and'
285: || ' Dimension5 level name is:' || l_level_name);
286: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
287: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
288: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
289: RAISE FND_API.G_EXC_ERROR;
290: END IF;
291: if substr(upper(l_level_name),1,5) <> 'TOTAL' then
292: l_level_col_list1 := l_level_col_list1 || ','
285: || ' Dimension5 level name is:' || l_level_name);
286: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
287: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
288: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
289: RAISE FND_API.G_EXC_ERROR;
290: END IF;
291: if substr(upper(l_level_name),1,5) <> 'TOTAL' then
292: l_level_col_list1 := l_level_col_list1 || ','
293: || replace(l_level_name,' ','_');
337: ( G_PKG_NAME
338: , 'Create_Ind_Level_View'
339: );
340: END IF;
341: raise FND_API.G_EXC_UNEXPECTED_ERROR;
342: else
343:
344: /* fnd_message.set_name('_','IND_LEVEL_VIEW_CREATED');
345: fnd_message.set_token('VIEW_NAME','BIS_'
356: x_return_status := l_return_status;
357:
358: EXCEPTION
359:
360: WHEN FND_API.G_EXC_ERROR THEN
361:
362: x_return_status := FND_API.G_RET_STS_ERROR;
363:
364: -- Get message count and data
358: EXCEPTION
359:
360: WHEN FND_API.G_EXC_ERROR THEN
361:
362: x_return_status := FND_API.G_RET_STS_ERROR;
363:
364: -- Get message count and data
365:
366: FND_MSG_PUB.Count_And_Get
367: ( p_count => x_msg_count
368: , p_data => x_msg_data
369: );
370:
371: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
372:
373: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
374:
375: -- Get message count and data
369: );
370:
371: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
372:
373: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
374:
375: -- Get message count and data
376:
377: FND_MSG_PUB.Count_And_Get
380: );
381:
382: WHEN OTHERS THEN
383:
384: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
385:
386: FND_MSG_PUB.Add_Exc_Msg
387: ( G_PKG_NAME
388: , 'Create_Ind_Level_View'
398: END Create_Ind_Level_View;
399:
400: Procedure Create_Indicator_views
401: (p_indicator_name IN Varchar2
402: ,p_msg_init IN Varchar2 default FND_API.G_TRUE
403: ,x_return_status OUT Varchar2
404: ,x_msg_count OUT Number
405: ,x_msg_data OUT Varchar2)
406: is
413: l_return_status varchar2(10);
414: Begin
415: BIS_debug_pub.add('In Create Indicator Views');
416: BIS_debug_pub.add('Select Levels for Indicator:' || p_indicator_name);
417: l_return_status := FND_API.G_RET_STS_SUCCESS;
418:
419: -- Initialize message list.
420: if p_msg_init = FND_API.G_TRUE then
421: FND_MSG_PUB.initialize;
416: BIS_debug_pub.add('Select Levels for Indicator:' || p_indicator_name);
417: l_return_status := FND_API.G_RET_STS_SUCCESS;
418:
419: -- Initialize message list.
420: if p_msg_init = FND_API.G_TRUE then
421: FND_MSG_PUB.initialize;
422: end if;
423:
424: for r1 in c_levels(p_indicator_name) loop
425: BIS_debug_pub.add('Calling Create Level force View for Level:'
426: || r1.short_name);
427: Create_Ind_Level_View
428: (p_ind_level_name => r1.short_name
429: ,p_msg_init => fnd_api.g_false
430: ,x_return_status=> l_return_status
431: ,x_msg_count => x_msg_count
432: ,x_msg_data => x_msg_data
433: );
431: ,x_msg_count => x_msg_count
432: ,x_msg_data => x_msg_data
433: );
434: end loop;
435: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
436: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
437: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
438: RAISE FND_API.G_EXC_ERROR;
439: END IF;
432: ,x_msg_data => x_msg_data
433: );
434: end loop;
435: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
436: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
437: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
438: RAISE FND_API.G_EXC_ERROR;
439: END IF;
440: x_return_status := l_return_status;
433: );
434: end loop;
435: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
436: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
437: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
438: RAISE FND_API.G_EXC_ERROR;
439: END IF;
440: x_return_status := l_return_status;
441: EXCEPTION
434: end loop;
435: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
436: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
437: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
438: RAISE FND_API.G_EXC_ERROR;
439: END IF;
440: x_return_status := l_return_status;
441: EXCEPTION
442:
439: END IF;
440: x_return_status := l_return_status;
441: EXCEPTION
442:
443: WHEN FND_API.G_EXC_ERROR THEN
444:
445: x_return_status := FND_API.G_RET_STS_ERROR;
446:
447: -- Get message count and data
441: EXCEPTION
442:
443: WHEN FND_API.G_EXC_ERROR THEN
444:
445: x_return_status := FND_API.G_RET_STS_ERROR;
446:
447: -- Get message count and data
448:
449: FND_MSG_PUB.Count_And_Get
450: ( p_count => x_msg_count
451: , p_data => x_msg_data
452: );
453:
454: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
455:
456: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
457:
458: -- Get message count and data
452: );
453:
454: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
455:
456: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
457:
458: -- Get message count and data
459:
460: FND_MSG_PUB.Count_And_Get
463: );
464:
465: WHEN OTHERS THEN
466:
467: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
468:
469: FND_MSG_PUB.Add_Exc_Msg
470: ( G_PKG_NAME
471: , 'Create_Indicator_views'
480:
481: END Create_Indicator_views;
482:
483: Procedure Create_BIS_views
484: (p_msg_init IN Varchar2 default FND_API.G_TRUE
485: ,x_return_status OUT Varchar2
486: ,x_msg_count OUT Number
487: ,x_msg_data OUT Varchar2)
488: is
491: from BIS_indicators ;
492: l_return_status varchar2(10);
493: Begin
494: BIS_debug_pub.add('In Create BIS Views');
495: l_return_status := FND_API.G_RET_STS_SUCCESS;
496:
497: -- Initialize message list.
498: if p_msg_init = FND_API.G_TRUE then
499: FND_MSG_PUB.initialize;
494: BIS_debug_pub.add('In Create BIS Views');
495: l_return_status := FND_API.G_RET_STS_SUCCESS;
496:
497: -- Initialize message list.
498: if p_msg_init = FND_API.G_TRUE then
499: FND_MSG_PUB.initialize;
500: end if;
501:
502: for r1 in c_indicator loop
503: BIS_debug_pub.add('Calling Create BIS force View for Indicator:'
504: || r1.short_name);
505: Create_Indicator_views
506: (p_indicator_name => r1.short_name
507: ,p_msg_init => fnd_api.g_false
508: ,x_return_status=> l_return_status
509: ,x_msg_count => x_msg_count
510: ,x_msg_data => x_msg_data
511: );
509: ,x_msg_count => x_msg_count
510: ,x_msg_data => x_msg_data
511: );
512: end loop;
513: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
514: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
515: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
516: RAISE FND_API.G_EXC_ERROR;
517: END IF;
510: ,x_msg_data => x_msg_data
511: );
512: end loop;
513: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
514: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
515: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
516: RAISE FND_API.G_EXC_ERROR;
517: END IF;
518: x_return_status := l_return_status;
511: );
512: end loop;
513: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
514: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
515: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
516: RAISE FND_API.G_EXC_ERROR;
517: END IF;
518: x_return_status := l_return_status;
519: EXCEPTION
512: end loop;
513: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
514: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
515: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
516: RAISE FND_API.G_EXC_ERROR;
517: END IF;
518: x_return_status := l_return_status;
519: EXCEPTION
520:
517: END IF;
518: x_return_status := l_return_status;
519: EXCEPTION
520:
521: WHEN FND_API.G_EXC_ERROR THEN
522:
523: x_return_status := FND_API.G_RET_STS_ERROR;
524:
525: -- Get message count and data
519: EXCEPTION
520:
521: WHEN FND_API.G_EXC_ERROR THEN
522:
523: x_return_status := FND_API.G_RET_STS_ERROR;
524:
525: -- Get message count and data
526:
527: FND_MSG_PUB.Count_And_Get
528: ( p_count => x_msg_count
529: , p_data => x_msg_data
530: );
531:
532: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
533:
534: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
535:
536: -- Get message count and data
530: );
531:
532: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
533:
534: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
535:
536: -- Get message count and data
537:
538: FND_MSG_PUB.Count_And_Get
541: );
542:
543: WHEN OTHERS THEN
544:
545: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
546:
547: FND_MSG_PUB.Add_Exc_Msg
548: ( G_PKG_NAME
549: , 'Create_BIS_views'
568: l_cursor Integer;
569: l_sql_result number;
570: l_rtn_val Varchar2(80);
571: begin
572: x_return_status := FND_API.G_RET_STS_SUCCESS;
573:
574: select short_name into l_view_name from bis_target_levels
575: where target_level_id = p_target_level_id;
576: -- open cursor
596: EXCEPTION
597:
598: WHEN OTHERS THEN
599:
600: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
601:
602: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
603: THEN
604: FND_MSG_PUB.Add_Exc_Msg
629: l_value_id Varchar2(40);
630: l_select_stmt Varchar2(2000);
631: l_sql_result Integer := 0;
632: begin
633: x_return_status := FND_API.G_RET_STS_SUCCESS;
634:
635: select level_values_view_name into l_view_name
636: from bis_levels where level_id = p_dim_level_id;
637:
656: EXCEPTION
657:
658: WHEN OTHERS THEN
659:
660: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
661:
662: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
663: THEN
664: FND_MSG_PUB.Add_Exc_Msg
691: l_select_stmt Varchar2(2000);
692: l_sql_result Integer := 0;
693: begin
694:
695: x_return_status := FND_API.G_RET_STS_SUCCESS;
696:
697: select level_values_view_name into l_view_name
698: from bis_levels where level_id = p_dim_level_id;
699: --dbms_output.put_line('view name: '||l_view_name);
726: DBMS_SQL.COLUMN_VALUE(l_cursor, 2, l_org_id);
727: DBMS_SQL.COLUMN_VALUE(l_cursor, 3, l_user_id);
728:
729: if DBMS_SQL.FETCH_ROWS(l_cursor) = 0 then
730: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
731: else
732: --dbms_output.put_line('resp id : '||to_char(l_resp_id));
733: --dbms_output.put_line('org id : '||to_char(l_org_id));
734: --dbms_output.put_line('user id : '||to_char(l_user_id));
741: EXCEPTION
742:
743: WHEN OTHERS THEN
744:
745: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
746:
747: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
748: THEN
749: FND_MSG_PUB.Add_Exc_Msg