[Home] [Help]
52: --: for the Analysis Option API.
53: --: This procedure is part of the Analysis Option API.
54:
55: PROCEDURE Create_Analysis_Options
56: ( p_commit IN varchar2 -- := FND_API.G_FALSE
57: , p_Anal_Opt_Rec IN BSC_ANALYSIS_OPTION_PUB.Bsc_Option_Rec_Type
58: , x_return_status OUT NOCOPY VARCHAR2
59: , x_msg_count OUT NOCOPY NUMBER
60: , x_msg_data OUT NOCOPY VARCHAR2
70: WHERE Source_Indicator = l_Anal_Opt_Rec.Bsc_Kpi_Id
71: AND Prototype_Flag <> 2;
72: begin
73: FND_MSG_PUB.Initialize;
74: x_return_status := FND_API.G_RET_STS_SUCCESS;
75: -- Assign all values in the passed "Record" parameter to the locally defined
76: -- "Record" variable.
77: l_Anal_Opt_Rec := p_Anal_Opt_Rec;
78:
141: if l_share_flag = 2 then
142: FND_MESSAGE.SET_NAME('BSC','BSC_SHARED_KPI');
143: FND_MESSAGE.SET_TOKEN('BSC_KPI', l_Anal_Opt_Rec.Bsc_Kpi_Id);
144: FND_MSG_PUB.ADD;
145: RAISE FND_API.G_EXC_ERROR;
146: end if;
147:
148: -- Select the number of the last analysis option plus 1 more for the given KPI
149: -- and give Analysis Group.
190: ,x_return_status
191: ,x_msg_count
192: ,x_msg_data);
193:
194: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
195: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
196: END IF;
197: -- repeat the steps for shared indicators also
198: FOR cd IN c_kpi_ids LOOP
191: ,x_msg_count
192: ,x_msg_data);
193:
194: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
195: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
196: END IF;
197: -- repeat the steps for shared indicators also
198: FOR cd IN c_kpi_ids LOOP
199: l_Anal_Opt_Rec.Bsc_Kpi_Id := cd.Indicator;
207: ,l_Anal_Opt_Rec
208: ,x_return_status
209: ,x_msg_count
210: ,x_msg_data);
211: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
212: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
213: END IF;
214: END LOOP;
215: EXCEPTION
208: ,x_return_status
209: ,x_msg_count
210: ,x_msg_data);
211: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
212: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
213: END IF;
214: END LOOP;
215: EXCEPTION
216: WHEN FND_API.G_EXC_ERROR THEN
212: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
213: END IF;
214: END LOOP;
215: EXCEPTION
216: WHEN FND_API.G_EXC_ERROR THEN
217: IF (x_msg_data IS NULL) THEN
218: FND_MSG_PUB.Count_And_Get
219: ( p_encoded => FND_API.G_FALSE
220: , p_count => x_msg_count
215: EXCEPTION
216: WHEN FND_API.G_EXC_ERROR THEN
217: IF (x_msg_data IS NULL) THEN
218: FND_MSG_PUB.Count_And_Get
219: ( p_encoded => FND_API.G_FALSE
220: , p_count => x_msg_count
221: , p_data => x_msg_data
222: );
223: END IF;
220: , p_count => x_msg_count
221: , p_data => x_msg_data
222: );
223: END IF;
224: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
225: x_return_status := FND_API.G_RET_STS_ERROR;
226: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
227: IF (x_msg_data IS NULL) THEN
228: FND_MSG_PUB.Count_And_Get
221: , p_data => x_msg_data
222: );
223: END IF;
224: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
225: x_return_status := FND_API.G_RET_STS_ERROR;
226: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
227: IF (x_msg_data IS NULL) THEN
228: FND_MSG_PUB.Count_And_Get
229: ( p_encoded => FND_API.G_FALSE
222: );
223: END IF;
224: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
225: x_return_status := FND_API.G_RET_STS_ERROR;
226: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
227: IF (x_msg_data IS NULL) THEN
228: FND_MSG_PUB.Count_And_Get
229: ( p_encoded => FND_API.G_FALSE
230: , p_count => x_msg_count
225: x_return_status := FND_API.G_RET_STS_ERROR;
226: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
227: IF (x_msg_data IS NULL) THEN
228: FND_MSG_PUB.Count_And_Get
229: ( p_encoded => FND_API.G_FALSE
230: , p_count => x_msg_count
231: , p_data => x_msg_data
232: );
233: END IF;
230: , p_count => x_msg_count
231: , p_data => x_msg_data
232: );
233: END IF;
234: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
235: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
236: WHEN NO_DATA_FOUND THEN
237: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
238: IF (x_msg_data IS NOT NULL) THEN
231: , p_data => x_msg_data
232: );
233: END IF;
234: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
235: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
236: WHEN NO_DATA_FOUND THEN
237: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
238: IF (x_msg_data IS NOT NULL) THEN
239: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PUB.Create_Analysis_Options ';
233: END IF;
234: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
235: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
236: WHEN NO_DATA_FOUND THEN
237: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
238: IF (x_msg_data IS NOT NULL) THEN
239: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PUB.Create_Analysis_Options ';
240: ELSE
241: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PUB.Create_Analysis_Options ';
241: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PUB.Create_Analysis_Options ';
242: END IF;
243: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
244: WHEN OTHERS THEN
245: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
246: IF (x_msg_data IS NOT NULL) THEN
247: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PUB.Create_Analysis_Options ';
248: ELSE
249: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PUB.Create_Analysis_Options ';
254:
255: /************************************************************************************
256: ************************************************************************************/
257: procedure Retrieve_Analysis_Options(
258: p_commit IN varchar2 -- := FND_API.G_FALSE
259: ,p_Anal_Opt_Rec IN BSC_ANALYSIS_OPTION_PUB.Bsc_Option_Rec_Type
260: ,x_Anal_Opt_Rec IN OUT NOCOPY BSC_ANALYSIS_OPTION_PUB.Bsc_Option_Rec_Type
261: ,x_return_status OUT NOCOPY varchar2
262: ,x_msg_count OUT NOCOPY number
263: ,x_msg_data OUT NOCOPY varchar2
264: ) is
265:
266: begin
267: x_return_status := FND_API.G_RET_STS_SUCCESS;
268: Retrieve_Analysis_Options
269: (
270: p_commit => p_commit
271: , p_Anal_Opt_Rec => p_Anal_Opt_Rec
274: , x_return_status => x_return_status
275: , x_msg_count => x_msg_count
276: , x_msg_data => x_msg_data
277: );
278: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
279: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
280: END IF;
281: EXCEPTION
282: WHEN FND_API.G_EXC_ERROR THEN
275: , x_msg_count => x_msg_count
276: , x_msg_data => x_msg_data
277: );
278: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
279: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
280: END IF;
281: EXCEPTION
282: WHEN FND_API.G_EXC_ERROR THEN
283: IF (x_msg_data IS NULL) THEN
278: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
279: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
280: END IF;
281: EXCEPTION
282: WHEN FND_API.G_EXC_ERROR THEN
283: IF (x_msg_data IS NULL) THEN
284: FND_MSG_PUB.Count_And_Get
285: ( p_encoded => FND_API.G_FALSE
286: , p_count => x_msg_count
281: EXCEPTION
282: WHEN FND_API.G_EXC_ERROR THEN
283: IF (x_msg_data IS NULL) THEN
284: FND_MSG_PUB.Count_And_Get
285: ( p_encoded => FND_API.G_FALSE
286: , p_count => x_msg_count
287: , p_data => x_msg_data
288: );
289: END IF;
286: , p_count => x_msg_count
287: , p_data => x_msg_data
288: );
289: END IF;
290: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
291: x_return_status := FND_API.G_RET_STS_ERROR;
292: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
293: IF (x_msg_data IS NULL) THEN
294: FND_MSG_PUB.Count_And_Get
287: , p_data => x_msg_data
288: );
289: END IF;
290: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
291: x_return_status := FND_API.G_RET_STS_ERROR;
292: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
293: IF (x_msg_data IS NULL) THEN
294: FND_MSG_PUB.Count_And_Get
295: ( p_encoded => FND_API.G_FALSE
288: );
289: END IF;
290: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
291: x_return_status := FND_API.G_RET_STS_ERROR;
292: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
293: IF (x_msg_data IS NULL) THEN
294: FND_MSG_PUB.Count_And_Get
295: ( p_encoded => FND_API.G_FALSE
296: , p_count => x_msg_count
291: x_return_status := FND_API.G_RET_STS_ERROR;
292: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
293: IF (x_msg_data IS NULL) THEN
294: FND_MSG_PUB.Count_And_Get
295: ( p_encoded => FND_API.G_FALSE
296: , p_count => x_msg_count
297: , p_data => x_msg_data
298: );
299: END IF;
296: , p_count => x_msg_count
297: , p_data => x_msg_data
298: );
299: END IF;
300: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
301: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
302: WHEN NO_DATA_FOUND THEN
303: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
304: IF (x_msg_data IS NOT NULL) THEN
297: , p_data => x_msg_data
298: );
299: END IF;
300: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
301: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
302: WHEN NO_DATA_FOUND THEN
303: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
304: IF (x_msg_data IS NOT NULL) THEN
305: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PUB.Retrieve_Analysis_Options ';
299: END IF;
300: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
301: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
302: WHEN NO_DATA_FOUND THEN
303: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
304: IF (x_msg_data IS NOT NULL) THEN
305: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PUB.Retrieve_Analysis_Options ';
306: ELSE
307: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PUB.Retrieve_Analysis_Options ';
307: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PUB.Retrieve_Analysis_Options ';
308: END IF;
309: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
310: WHEN OTHERS THEN
311: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
312: IF (x_msg_data IS NOT NULL) THEN
313: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PUB.Retrieve_Analysis_Options ';
314: ELSE
315: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PUB.Retrieve_Analysis_Options ';
321: /************************************************************************************
322: ************************************************************************************/
323:
324: procedure Retrieve_Analysis_Options(
325: p_commit IN varchar2 -- := FND_API.G_FALSE
326: ,p_Anal_Opt_Rec IN BSC_ANALYSIS_OPTION_PUB.Bsc_Option_Rec_Type
327: ,x_Anal_Opt_Rec IN OUT NOCOPY BSC_ANALYSIS_OPTION_PUB.Bsc_Option_Rec_Type
328: ,p_data_source IN VARCHAR2
329: ,x_return_status OUT NOCOPY varchar2
330: ,x_msg_count OUT NOCOPY number
331: ,x_msg_data OUT NOCOPY varchar2
332: ) is
333: begin
334: x_return_status := FND_API.G_RET_STS_SUCCESS;
335: BSC_ANALYSIS_OPTION_PVT.Retrieve_Analysis_Options( p_commit
336: ,p_Anal_Opt_Rec
337: ,x_Anal_Opt_Rec
338: ,p_data_source
344: ,x_Anal_Opt_Rec
345: ,x_return_status
346: ,x_msg_count
347: ,x_msg_data);
348: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
349: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
350: END IF;
351: EXCEPTION
352: WHEN FND_API.G_EXC_ERROR THEN
345: ,x_return_status
346: ,x_msg_count
347: ,x_msg_data);
348: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
349: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
350: END IF;
351: EXCEPTION
352: WHEN FND_API.G_EXC_ERROR THEN
353: IF (x_msg_data IS NULL) THEN
348: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
349: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
350: END IF;
351: EXCEPTION
352: WHEN FND_API.G_EXC_ERROR THEN
353: IF (x_msg_data IS NULL) THEN
354: FND_MSG_PUB.Count_And_Get
355: ( p_encoded => FND_API.G_FALSE
356: , p_count => x_msg_count
351: EXCEPTION
352: WHEN FND_API.G_EXC_ERROR THEN
353: IF (x_msg_data IS NULL) THEN
354: FND_MSG_PUB.Count_And_Get
355: ( p_encoded => FND_API.G_FALSE
356: , p_count => x_msg_count
357: , p_data => x_msg_data
358: );
359: END IF;
356: , p_count => x_msg_count
357: , p_data => x_msg_data
358: );
359: END IF;
360: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
361: x_return_status := FND_API.G_RET_STS_ERROR;
362: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
363: IF (x_msg_data IS NULL) THEN
364: FND_MSG_PUB.Count_And_Get
357: , p_data => x_msg_data
358: );
359: END IF;
360: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
361: x_return_status := FND_API.G_RET_STS_ERROR;
362: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
363: IF (x_msg_data IS NULL) THEN
364: FND_MSG_PUB.Count_And_Get
365: ( p_encoded => FND_API.G_FALSE
358: );
359: END IF;
360: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
361: x_return_status := FND_API.G_RET_STS_ERROR;
362: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
363: IF (x_msg_data IS NULL) THEN
364: FND_MSG_PUB.Count_And_Get
365: ( p_encoded => FND_API.G_FALSE
366: , p_count => x_msg_count
361: x_return_status := FND_API.G_RET_STS_ERROR;
362: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
363: IF (x_msg_data IS NULL) THEN
364: FND_MSG_PUB.Count_And_Get
365: ( p_encoded => FND_API.G_FALSE
366: , p_count => x_msg_count
367: , p_data => x_msg_data
368: );
369: END IF;
366: , p_count => x_msg_count
367: , p_data => x_msg_data
368: );
369: END IF;
370: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
371: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
372: WHEN NO_DATA_FOUND THEN
373: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
374: IF (x_msg_data IS NOT NULL) THEN
367: , p_data => x_msg_data
368: );
369: END IF;
370: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
371: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
372: WHEN NO_DATA_FOUND THEN
373: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
374: IF (x_msg_data IS NOT NULL) THEN
375: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PUB.Retrieve_Analysis_Options ';
369: END IF;
370: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
371: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
372: WHEN NO_DATA_FOUND THEN
373: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
374: IF (x_msg_data IS NOT NULL) THEN
375: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PUB.Retrieve_Analysis_Options ';
376: ELSE
377: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PUB.Retrieve_Analysis_Options ';
377: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PUB.Retrieve_Analysis_Options ';
378: END IF;
379: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
380: WHEN OTHERS THEN
381: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
382: IF (x_msg_data IS NOT NULL) THEN
383: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PUB.Retrieve_Analysis_Options ';
384: ELSE
385: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PUB.Retrieve_Analysis_Options ';
389: /************************************************************************************
390: ************************************************************************************/
391:
392: procedure Update_Analysis_Options
393: ( p_commit IN varchar2 -- := FND_API.G_FALSE
394: , p_Anal_Opt_Rec IN BSC_ANALYSIS_OPTION_PUB.Bsc_Option_Rec_Type
395: , p_data_Source IN VARCHAR2
396: , x_return_status OUT NOCOPY VARCHAR2
397: , x_msg_count OUT NOCOPY NUMBER
406: FROM BSC_KPIS_B
407: WHERE Source_Indicator = p_Anal_Opt_Rec.Bsc_Kpi_Id
408: AND Prototype_Flag <> 2;
409: BEGIN
410: x_return_status := FND_API.G_RET_STS_SUCCESS;
411:
412: l_Anal_Opt_Rec := p_Anal_Opt_Rec;
413:
414: BSC_ANALYSIS_OPTION_PVT.Update_Analysis_Options( p_commit
422: ,p_Anal_Opt_Rec
423: ,x_return_status
424: ,x_msg_count
425: ,x_msg_data);
426: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
427: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
428: END IF;
429: -- if there are any shared KPIs update those also.
430: FOR cd IN c_kpi_ids LOOP
423: ,x_return_status
424: ,x_msg_count
425: ,x_msg_data);
426: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
427: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
428: END IF;
429: -- if there are any shared KPIs update those also.
430: FOR cd IN c_kpi_ids LOOP
431: l_Anal_Opt_Rec.Bsc_Kpi_Id := cd.Indicator;
440: ,l_Anal_Opt_Rec
441: ,x_return_status
442: ,x_msg_count
443: ,x_msg_data);
444: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
445: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
446: END IF;
447: END LOOP;
448: EXCEPTION
441: ,x_return_status
442: ,x_msg_count
443: ,x_msg_data);
444: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
445: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
446: END IF;
447: END LOOP;
448: EXCEPTION
449: WHEN FND_API.G_EXC_ERROR THEN
445: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
446: END IF;
447: END LOOP;
448: EXCEPTION
449: WHEN FND_API.G_EXC_ERROR THEN
450: IF (x_msg_data IS NULL) THEN
451: FND_MSG_PUB.Count_And_Get
452: ( p_encoded => FND_API.G_FALSE
453: , p_count => x_msg_count
448: EXCEPTION
449: WHEN FND_API.G_EXC_ERROR THEN
450: IF (x_msg_data IS NULL) THEN
451: FND_MSG_PUB.Count_And_Get
452: ( p_encoded => FND_API.G_FALSE
453: , p_count => x_msg_count
454: , p_data => x_msg_data
455: );
456: END IF;
453: , p_count => x_msg_count
454: , p_data => x_msg_data
455: );
456: END IF;
457: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
458: x_return_status := FND_API.G_RET_STS_ERROR;
459: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
460: IF (x_msg_data IS NULL) THEN
461: FND_MSG_PUB.Count_And_Get
454: , p_data => x_msg_data
455: );
456: END IF;
457: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
458: x_return_status := FND_API.G_RET_STS_ERROR;
459: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
460: IF (x_msg_data IS NULL) THEN
461: FND_MSG_PUB.Count_And_Get
462: ( p_encoded => FND_API.G_FALSE
455: );
456: END IF;
457: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
458: x_return_status := FND_API.G_RET_STS_ERROR;
459: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
460: IF (x_msg_data IS NULL) THEN
461: FND_MSG_PUB.Count_And_Get
462: ( p_encoded => FND_API.G_FALSE
463: , p_count => x_msg_count
458: x_return_status := FND_API.G_RET_STS_ERROR;
459: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
460: IF (x_msg_data IS NULL) THEN
461: FND_MSG_PUB.Count_And_Get
462: ( p_encoded => FND_API.G_FALSE
463: , p_count => x_msg_count
464: , p_data => x_msg_data
465: );
466: END IF;
463: , p_count => x_msg_count
464: , p_data => x_msg_data
465: );
466: END IF;
467: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
468: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
469: WHEN NO_DATA_FOUND THEN
470: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
471: IF (x_msg_data IS NOT NULL) THEN
464: , p_data => x_msg_data
465: );
466: END IF;
467: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
468: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
469: WHEN NO_DATA_FOUND THEN
470: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
471: IF (x_msg_data IS NOT NULL) THEN
472: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PUB.Update_Analysis_Options ';
466: END IF;
467: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
468: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
469: WHEN NO_DATA_FOUND THEN
470: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
471: IF (x_msg_data IS NOT NULL) THEN
472: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PUB.Update_Analysis_Options ';
473: ELSE
474: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PUB.Update_Analysis_Options ';
474: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PUB.Update_Analysis_Options ';
475: END IF;
476: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
477: WHEN OTHERS THEN
478: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
479: IF (x_msg_data IS NOT NULL) THEN
480: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PUB.Update_Analysis_Options ';
481: ELSE
482: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PUB.Update_Analysis_Options ';
487: /************************************************************************************
488: ************************************************************************************/
489:
490: procedure Update_Analysis_Options(
491: p_commit IN varchar2 -- := FND_API.G_FALSE
492: ,p_Anal_Opt_Rec IN BSC_ANALYSIS_OPTION_PUB.Bsc_Option_Rec_Type
493: ,x_return_status OUT NOCOPY varchar2
494: ,x_msg_count OUT NOCOPY number
495: ,x_msg_data OUT NOCOPY varchar2
494: ,x_msg_count OUT NOCOPY number
495: ,x_msg_data OUT NOCOPY varchar2
496: ) is
497: begin
498: x_return_status := FND_API.G_RET_STS_SUCCESS;
499: Update_Analysis_Options(
500: p_commit => p_commit
501: ,p_Anal_Opt_Rec => p_Anal_Opt_Rec
502: ,p_data_Source => NULL
503: ,x_return_status => x_return_status
504: ,x_msg_count => x_msg_count
505: ,x_msg_data => x_msg_data
506: );
507: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
508: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
509: END IF;
510: IF (p_commit = FND_API.G_TRUE) THEN
511: COMMIT;
504: ,x_msg_count => x_msg_count
505: ,x_msg_data => x_msg_data
506: );
507: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
508: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
509: END IF;
510: IF (p_commit = FND_API.G_TRUE) THEN
511: COMMIT;
512: END IF;
506: );
507: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
508: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
509: END IF;
510: IF (p_commit = FND_API.G_TRUE) THEN
511: COMMIT;
512: END IF;
513: EXCEPTION
514: WHEN FND_API.G_EXC_ERROR THEN
510: IF (p_commit = FND_API.G_TRUE) THEN
511: COMMIT;
512: END IF;
513: EXCEPTION
514: WHEN FND_API.G_EXC_ERROR THEN
515: IF (x_msg_data IS NULL) THEN
516: FND_MSG_PUB.Count_And_Get
517: ( p_encoded => FND_API.G_FALSE
518: , p_count => x_msg_count
513: EXCEPTION
514: WHEN FND_API.G_EXC_ERROR THEN
515: IF (x_msg_data IS NULL) THEN
516: FND_MSG_PUB.Count_And_Get
517: ( p_encoded => FND_API.G_FALSE
518: , p_count => x_msg_count
519: , p_data => x_msg_data
520: );
521: END IF;
518: , p_count => x_msg_count
519: , p_data => x_msg_data
520: );
521: END IF;
522: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
523: x_return_status := FND_API.G_RET_STS_ERROR;
524: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
525: IF (x_msg_data IS NULL) THEN
526: FND_MSG_PUB.Count_And_Get
519: , p_data => x_msg_data
520: );
521: END IF;
522: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
523: x_return_status := FND_API.G_RET_STS_ERROR;
524: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
525: IF (x_msg_data IS NULL) THEN
526: FND_MSG_PUB.Count_And_Get
527: ( p_encoded => FND_API.G_FALSE
520: );
521: END IF;
522: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
523: x_return_status := FND_API.G_RET_STS_ERROR;
524: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
525: IF (x_msg_data IS NULL) THEN
526: FND_MSG_PUB.Count_And_Get
527: ( p_encoded => FND_API.G_FALSE
528: , p_count => x_msg_count
523: x_return_status := FND_API.G_RET_STS_ERROR;
524: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
525: IF (x_msg_data IS NULL) THEN
526: FND_MSG_PUB.Count_And_Get
527: ( p_encoded => FND_API.G_FALSE
528: , p_count => x_msg_count
529: , p_data => x_msg_data
530: );
531: END IF;
528: , p_count => x_msg_count
529: , p_data => x_msg_data
530: );
531: END IF;
532: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
533: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
534: WHEN NO_DATA_FOUND THEN
535: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
536: IF (x_msg_data IS NOT NULL) THEN
529: , p_data => x_msg_data
530: );
531: END IF;
532: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
533: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
534: WHEN NO_DATA_FOUND THEN
535: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
536: IF (x_msg_data IS NOT NULL) THEN
537: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PUB.Update_Analysis_Options ';
531: END IF;
532: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
533: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
534: WHEN NO_DATA_FOUND THEN
535: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
536: IF (x_msg_data IS NOT NULL) THEN
537: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PUB.Update_Analysis_Options ';
538: ELSE
539: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PUB.Update_Analysis_Options ';
539: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PUB.Update_Analysis_Options ';
540: END IF;
541: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
542: WHEN OTHERS THEN
543: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
544: IF (x_msg_data IS NOT NULL) THEN
545: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PUB.Update_Analysis_Options ';
546: ELSE
547: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PUB.Update_Analysis_Options ';
553: ************************************************************************************/
554:
555:
556: procedure Delete_Analysis_Options(
557: p_commit IN varchar2 -- := FND_API.G_FALSE
558: ,p_Anal_Opt_Rec IN BSC_ANALYSIS_OPTION_PUB.Bsc_Option_Rec_Type
559: ,x_return_status OUT NOCOPY varchar2
560: ,x_msg_count OUT NOCOPY number
561: ,x_msg_data OUT NOCOPY varchar2
561: ,x_msg_data OUT NOCOPY varchar2
562: ) is
563:
564: begin
565: x_return_status := FND_API.G_RET_STS_SUCCESS;
566: BSC_ANALYSIS_OPTION_PVT.Delete_Analysis_Options( p_commit
567: ,p_Anal_Opt_Rec
568: ,x_return_status
569: ,x_msg_count
569: ,x_msg_count
570: ,x_msg_data);
571:
572: EXCEPTION
573: WHEN FND_API.G_EXC_ERROR THEN
574: IF (x_msg_data IS NULL) THEN
575: FND_MSG_PUB.Count_And_Get
576: ( p_encoded => FND_API.G_FALSE
577: , p_count => x_msg_count
572: EXCEPTION
573: WHEN FND_API.G_EXC_ERROR THEN
574: IF (x_msg_data IS NULL) THEN
575: FND_MSG_PUB.Count_And_Get
576: ( p_encoded => FND_API.G_FALSE
577: , p_count => x_msg_count
578: , p_data => x_msg_data
579: );
580: END IF;
577: , p_count => x_msg_count
578: , p_data => x_msg_data
579: );
580: END IF;
581: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
582: x_return_status := FND_API.G_RET_STS_ERROR;
583: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
584: IF (x_msg_data IS NULL) THEN
585: FND_MSG_PUB.Count_And_Get
578: , p_data => x_msg_data
579: );
580: END IF;
581: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
582: x_return_status := FND_API.G_RET_STS_ERROR;
583: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
584: IF (x_msg_data IS NULL) THEN
585: FND_MSG_PUB.Count_And_Get
586: ( p_encoded => FND_API.G_FALSE
579: );
580: END IF;
581: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
582: x_return_status := FND_API.G_RET_STS_ERROR;
583: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
584: IF (x_msg_data IS NULL) THEN
585: FND_MSG_PUB.Count_And_Get
586: ( p_encoded => FND_API.G_FALSE
587: , p_count => x_msg_count
582: x_return_status := FND_API.G_RET_STS_ERROR;
583: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
584: IF (x_msg_data IS NULL) THEN
585: FND_MSG_PUB.Count_And_Get
586: ( p_encoded => FND_API.G_FALSE
587: , p_count => x_msg_count
588: , p_data => x_msg_data
589: );
590: END IF;
587: , p_count => x_msg_count
588: , p_data => x_msg_data
589: );
590: END IF;
591: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
592: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
593: WHEN NO_DATA_FOUND THEN
594: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
595: IF (x_msg_data IS NOT NULL) THEN
588: , p_data => x_msg_data
589: );
590: END IF;
591: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
592: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
593: WHEN NO_DATA_FOUND THEN
594: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
595: IF (x_msg_data IS NOT NULL) THEN
596: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PUB.Delete_Analysis_Options ';
590: END IF;
591: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
592: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
593: WHEN NO_DATA_FOUND THEN
594: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
595: IF (x_msg_data IS NOT NULL) THEN
596: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PUB.Delete_Analysis_Options ';
597: ELSE
598: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PUB.Delete_Analysis_Options ';
598: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PUB.Delete_Analysis_Options ';
599: END IF;
600: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
601: WHEN OTHERS THEN
602: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
603: IF (x_msg_data IS NOT NULL) THEN
604: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PUB.Delete_Analysis_Options ';
605: ELSE
606: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PUB.Delete_Analysis_Options ';
614: --: This procedure assigns the given measure to the given analysis option.
615: --: This procedure is part of the Analysis Option API.
616:
617: procedure Create_Analysis_Measures(
618: p_commit IN VARCHAR2 -- := FND_API.G_FALSE
619: ,p_Anal_Opt_Rec IN BSC_ANALYSIS_OPTION_PUB.Bsc_Option_Rec_Type
620: ,x_return_status OUT NOCOPY varchar2
621: ,x_msg_count OUT NOCOPY number
622: ,x_msg_data OUT NOCOPY varchar2
624:
625: l_Anal_Opt_Rec BSC_ANALYSIS_OPTION_PUB.Bsc_Option_Rec_Type;
626: l_Kpi_Measure_Id bsc_kpi_analysis_measures_b.Kpi_Measure_Id%TYPE;
627: l_Default_Value NUMBER;
628: l_commit VARCHAR2(2) := FND_API.G_FALSE;
629: begin
630: x_return_status := FND_API.G_RET_STS_SUCCESS;
631: SAVEPOINT Create_Analysis_Measures_PUB;
632: -- set all values of local record equal to the ones passed.
626: l_Kpi_Measure_Id bsc_kpi_analysis_measures_b.Kpi_Measure_Id%TYPE;
627: l_Default_Value NUMBER;
628: l_commit VARCHAR2(2) := FND_API.G_FALSE;
629: begin
630: x_return_status := FND_API.G_RET_STS_SUCCESS;
631: SAVEPOINT Create_Analysis_Measures_PUB;
632: -- set all values of local record equal to the ones passed.
633: l_Anal_Opt_Rec := p_Anal_Opt_Rec;
634:
680: ,x_msg_count => x_msg_count
681: ,x_msg_data => x_Msg_Data
682: );
683:
684: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
685: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
686: END IF;
687:
688: BSC_COLOR_RANGES_PUB.Create_Def_Color_Prop_Ranges(
681: ,x_msg_data => x_Msg_Data
682: );
683:
684: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
685: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
686: END IF;
687:
688: BSC_COLOR_RANGES_PUB.Create_Def_Color_Prop_Ranges(
689: p_commit => l_commit
694: ,x_msg_count => x_msg_count
695: ,x_msg_data => x_Msg_Data
696: );
697:
698: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
699: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
700: END IF;
701:
702: IF(l_commit = FND_API.G_TRUE) THEN
695: ,x_msg_data => x_Msg_Data
696: );
697:
698: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
699: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
700: END IF;
701:
702: IF(l_commit = FND_API.G_TRUE) THEN
703: COMMIT;
698: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
699: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
700: END IF;
701:
702: IF(l_commit = FND_API.G_TRUE) THEN
703: COMMIT;
704: END IF;
705:
706: EXCEPTION
703: COMMIT;
704: END IF;
705:
706: EXCEPTION
707: WHEN FND_API.G_EXC_ERROR THEN
708: ROLLBACK TO Create_Analysis_Measures_PUB;
709: IF (x_msg_data IS NULL) THEN
710: FND_MSG_PUB.Count_And_Get
711: ( p_encoded => FND_API.G_FALSE
707: WHEN FND_API.G_EXC_ERROR THEN
708: ROLLBACK TO Create_Analysis_Measures_PUB;
709: IF (x_msg_data IS NULL) THEN
710: FND_MSG_PUB.Count_And_Get
711: ( p_encoded => FND_API.G_FALSE
712: , p_count => x_msg_count
713: , p_data => x_msg_data
714: );
715: END IF;
712: , p_count => x_msg_count
713: , p_data => x_msg_data
714: );
715: END IF;
716: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
717: x_return_status := FND_API.G_RET_STS_ERROR;
718: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
719: ROLLBACK TO Create_Analysis_Measures_PUB;
720: IF (x_msg_data IS NULL) THEN
713: , p_data => x_msg_data
714: );
715: END IF;
716: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
717: x_return_status := FND_API.G_RET_STS_ERROR;
718: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
719: ROLLBACK TO Create_Analysis_Measures_PUB;
720: IF (x_msg_data IS NULL) THEN
721: FND_MSG_PUB.Count_And_Get
714: );
715: END IF;
716: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
717: x_return_status := FND_API.G_RET_STS_ERROR;
718: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
719: ROLLBACK TO Create_Analysis_Measures_PUB;
720: IF (x_msg_data IS NULL) THEN
721: FND_MSG_PUB.Count_And_Get
722: ( p_encoded => FND_API.G_FALSE
718: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
719: ROLLBACK TO Create_Analysis_Measures_PUB;
720: IF (x_msg_data IS NULL) THEN
721: FND_MSG_PUB.Count_And_Get
722: ( p_encoded => FND_API.G_FALSE
723: , p_count => x_msg_count
724: , p_data => x_msg_data
725: );
726: END IF;
723: , p_count => x_msg_count
724: , p_data => x_msg_data
725: );
726: END IF;
727: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
728: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
729: WHEN NO_DATA_FOUND THEN
730: ROLLBACK TO Create_Analysis_Measures_PUB;
731: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
724: , p_data => x_msg_data
725: );
726: END IF;
727: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
728: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
729: WHEN NO_DATA_FOUND THEN
730: ROLLBACK TO Create_Analysis_Measures_PUB;
731: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
732: IF (x_msg_data IS NOT NULL) THEN
727: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
728: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
729: WHEN NO_DATA_FOUND THEN
730: ROLLBACK TO Create_Analysis_Measures_PUB;
731: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
732: IF (x_msg_data IS NOT NULL) THEN
733: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PUB.Create_Analysis_Measures ';
734: ELSE
735: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PUB.Create_Analysis_Measures ';
736: END IF;
737: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
738: WHEN OTHERS THEN
739: ROLLBACK TO Create_Analysis_Measures_PUB;
740: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
741: IF (x_msg_data IS NOT NULL) THEN
742: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PUB.Create_Analysis_Measures ';
743: ELSE
744: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PUB.Create_Analysis_Measures ';
749: /************************************************************************************
750: ************************************************************************************/
751:
752: procedure Retrieve_Analysis_Measures(
753: p_commit IN varchar2 -- := FND_API.G_FALSE
754: ,p_Anal_Opt_Rec IN BSC_ANALYSIS_OPTION_PUB.Bsc_Option_Rec_Type
755: ,x_Anal_Opt_Rec IN OUT NOCOPY BSC_ANALYSIS_OPTION_PUB.Bsc_Option_Rec_Type
756: ,x_return_status OUT NOCOPY varchar2
757: ,x_msg_count OUT NOCOPY number
758: ,x_msg_data OUT NOCOPY varchar2
759: ) is
760:
761: begin
762: x_return_status := FND_API.G_RET_STS_SUCCESS;
763: BSC_ANALYSIS_OPTION_PVT.Retrieve_Analysis_Measures( p_commit
764: ,p_Anal_Opt_Rec
765: ,x_Anal_Opt_Rec
766: ,x_return_status
767: ,x_msg_count
768: ,x_msg_data);
769:
770: EXCEPTION
771: WHEN FND_API.G_EXC_ERROR THEN
772: IF (x_msg_data IS NULL) THEN
773: FND_MSG_PUB.Count_And_Get
774: ( p_encoded => FND_API.G_FALSE
775: , p_count => x_msg_count
770: EXCEPTION
771: WHEN FND_API.G_EXC_ERROR THEN
772: IF (x_msg_data IS NULL) THEN
773: FND_MSG_PUB.Count_And_Get
774: ( p_encoded => FND_API.G_FALSE
775: , p_count => x_msg_count
776: , p_data => x_msg_data
777: );
778: END IF;
775: , p_count => x_msg_count
776: , p_data => x_msg_data
777: );
778: END IF;
779: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
780: x_return_status := FND_API.G_RET_STS_ERROR;
781: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
782: IF (x_msg_data IS NULL) THEN
783: FND_MSG_PUB.Count_And_Get
776: , p_data => x_msg_data
777: );
778: END IF;
779: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
780: x_return_status := FND_API.G_RET_STS_ERROR;
781: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
782: IF (x_msg_data IS NULL) THEN
783: FND_MSG_PUB.Count_And_Get
784: ( p_encoded => FND_API.G_FALSE
777: );
778: END IF;
779: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
780: x_return_status := FND_API.G_RET_STS_ERROR;
781: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
782: IF (x_msg_data IS NULL) THEN
783: FND_MSG_PUB.Count_And_Get
784: ( p_encoded => FND_API.G_FALSE
785: , p_count => x_msg_count
780: x_return_status := FND_API.G_RET_STS_ERROR;
781: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
782: IF (x_msg_data IS NULL) THEN
783: FND_MSG_PUB.Count_And_Get
784: ( p_encoded => FND_API.G_FALSE
785: , p_count => x_msg_count
786: , p_data => x_msg_data
787: );
788: END IF;
785: , p_count => x_msg_count
786: , p_data => x_msg_data
787: );
788: END IF;
789: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
790: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
791: WHEN NO_DATA_FOUND THEN
792: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
793: IF (x_msg_data IS NOT NULL) THEN
786: , p_data => x_msg_data
787: );
788: END IF;
789: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
790: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
791: WHEN NO_DATA_FOUND THEN
792: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
793: IF (x_msg_data IS NOT NULL) THEN
794: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PUB.Retrieve_Analysis_Measures ';
788: END IF;
789: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
790: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
791: WHEN NO_DATA_FOUND THEN
792: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
793: IF (x_msg_data IS NOT NULL) THEN
794: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PUB.Retrieve_Analysis_Measures ';
795: ELSE
796: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PUB.Retrieve_Analysis_Measures ';
796: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PUB.Retrieve_Analysis_Measures ';
797: END IF;
798: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
799: WHEN OTHERS THEN
800: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
801: IF (x_msg_data IS NOT NULL) THEN
802: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PUB.Retrieve_Analysis_Measures ';
803: ELSE
804: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PUB.Retrieve_Analysis_Measures ';
809: /************************************************************************************
810: ************************************************************************************/
811:
812: procedure Update_Analysis_Measures(
813: p_commit IN varchar2 -- := FND_API.G_FALSE
814: ,p_Anal_Opt_Rec IN BSC_ANALYSIS_OPTION_PUB.Bsc_Option_Rec_Type
815: ,x_return_status OUT NOCOPY varchar2
816: ,x_msg_count OUT NOCOPY number
817: ,x_msg_data OUT NOCOPY varchar2
820: l_Anal_Opt_Rec BSC_ANALYSIS_OPTION_PUB.Bsc_Option_Rec_Type;
821: l_Default_Value NUMBER;
822:
823: begin
824: x_return_status := FND_API.G_RET_STS_SUCCESS;
825:
826: l_Anal_Opt_Rec := p_Anal_Opt_Rec;
827:
828: BSC_ANALYSIS_OPTION_PVT.Cascade_Series_Default_Value (
848: ,x_return_status
849: ,x_msg_count
850: ,x_msg_data);
851: EXCEPTION
852: WHEN FND_API.G_EXC_ERROR THEN
853: IF (x_msg_data IS NULL) THEN
854: FND_MSG_PUB.Count_And_Get
855: ( p_encoded => FND_API.G_FALSE
856: , p_count => x_msg_count
851: EXCEPTION
852: WHEN FND_API.G_EXC_ERROR THEN
853: IF (x_msg_data IS NULL) THEN
854: FND_MSG_PUB.Count_And_Get
855: ( p_encoded => FND_API.G_FALSE
856: , p_count => x_msg_count
857: , p_data => x_msg_data
858: );
859: END IF;
856: , p_count => x_msg_count
857: , p_data => x_msg_data
858: );
859: END IF;
860: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
861: x_return_status := FND_API.G_RET_STS_ERROR;
862: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
863: IF (x_msg_data IS NULL) THEN
864: FND_MSG_PUB.Count_And_Get
857: , p_data => x_msg_data
858: );
859: END IF;
860: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
861: x_return_status := FND_API.G_RET_STS_ERROR;
862: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
863: IF (x_msg_data IS NULL) THEN
864: FND_MSG_PUB.Count_And_Get
865: ( p_encoded => FND_API.G_FALSE
858: );
859: END IF;
860: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
861: x_return_status := FND_API.G_RET_STS_ERROR;
862: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
863: IF (x_msg_data IS NULL) THEN
864: FND_MSG_PUB.Count_And_Get
865: ( p_encoded => FND_API.G_FALSE
866: , p_count => x_msg_count
861: x_return_status := FND_API.G_RET_STS_ERROR;
862: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
863: IF (x_msg_data IS NULL) THEN
864: FND_MSG_PUB.Count_And_Get
865: ( p_encoded => FND_API.G_FALSE
866: , p_count => x_msg_count
867: , p_data => x_msg_data
868: );
869: END IF;
866: , p_count => x_msg_count
867: , p_data => x_msg_data
868: );
869: END IF;
870: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
871: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
872: WHEN NO_DATA_FOUND THEN
873: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
874: IF (x_msg_data IS NOT NULL) THEN
867: , p_data => x_msg_data
868: );
869: END IF;
870: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
871: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
872: WHEN NO_DATA_FOUND THEN
873: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
874: IF (x_msg_data IS NOT NULL) THEN
875: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PUB.Update_Analysis_Measures ';
869: END IF;
870: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
871: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
872: WHEN NO_DATA_FOUND THEN
873: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
874: IF (x_msg_data IS NOT NULL) THEN
875: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PUB.Update_Analysis_Measures ';
876: ELSE
877: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PUB.Update_Analysis_Measures ';
877: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PUB.Update_Analysis_Measures ';
878: END IF;
879: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
880: WHEN OTHERS THEN
881: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
882: IF (x_msg_data IS NOT NULL) THEN
883: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PUB.Update_Analysis_Measures ';
884: ELSE
885: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PUB.Update_Analysis_Measures ';
893: -- Function :
894: ************************************************************************************/
895:
896: PROCEDURE Cascade_Deletion_Color_Props (
897: p_commit IN VARCHAR2 := FND_API.G_FALSE
898: ,p_Anal_Opt_Rec IN BSC_ANALYSIS_OPTION_PUB.Bsc_Option_Rec_Type
899: ,x_return_status OUT NOCOPY varchar2
900: ,x_msg_count OUT NOCOPY number
901: ,x_msg_data OUT NOCOPY varchar2
918: BEGIN
919:
920: FOR cd in c_Removed_Kpis LOOP
921: BSC_KPI_MEASURE_PROPS_PUB.Delete_Kpi_Measure_Props (
922: p_commit => FND_API.G_FALSE
923: ,p_objective_id => p_Anal_Opt_Rec.Bsc_Kpi_Id
924: ,p_kpi_measure_id => cd.kpi_measure_id
925: ,p_cascade_shared => FALSE
926: ,x_return_status => x_return_status
926: ,x_return_status => x_return_status
927: ,x_msg_count => x_msg_count
928: ,x_msg_data => x_Msg_Data
929: );
930: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
931: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
932: END IF;
933:
934: BSC_COLOR_RANGES_PUB.Delete_Color_Prop_Ranges (
927: ,x_msg_count => x_msg_count
928: ,x_msg_data => x_Msg_Data
929: );
930: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
931: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
932: END IF;
933:
934: BSC_COLOR_RANGES_PUB.Delete_Color_Prop_Ranges (
935: p_commit => FND_API.G_FALSE
931: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
932: END IF;
933:
934: BSC_COLOR_RANGES_PUB.Delete_Color_Prop_Ranges (
935: p_commit => FND_API.G_FALSE
936: ,p_objective_id => p_Anal_Opt_Rec.Bsc_Kpi_Id
937: ,p_kpi_measure_id => cd.kpi_measure_id
938: ,p_cascade_shared => FALSE
939: ,x_return_status => x_return_status
939: ,x_return_status => x_return_status
940: ,x_msg_count => x_msg_count
941: ,x_msg_data => x_Msg_Data
942: );
943: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
944: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
945: END IF;
946:
947: BSC_KPI_MEASURE_WEIGHTS_PUB.Del_Kpi_Measure_Weights (
940: ,x_msg_count => x_msg_count
941: ,x_msg_data => x_Msg_Data
942: );
943: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
944: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
945: END IF;
946:
947: BSC_KPI_MEASURE_WEIGHTS_PUB.Del_Kpi_Measure_Weights (
948: p_commit => FND_API.G_FALSE
944: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
945: END IF;
946:
947: BSC_KPI_MEASURE_WEIGHTS_PUB.Del_Kpi_Measure_Weights (
948: p_commit => FND_API.G_FALSE
949: ,p_objective_id => p_Anal_Opt_Rec.Bsc_Kpi_Id
950: ,p_kpi_measure_id => cd.kpi_measure_id
951: ,p_cascade_shared => FALSE
952: ,x_return_status => x_return_status
952: ,x_return_status => x_return_status
953: ,x_msg_count => x_msg_count
954: ,x_msg_data => x_Msg_Data
955: );
956: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
957: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
958: END IF;
959:
960: DELETE FROM bsc_sys_kpi_colors
953: ,x_msg_count => x_msg_count
954: ,x_msg_data => x_Msg_Data
955: );
956: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
957: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
958: END IF;
959:
960: DELETE FROM bsc_sys_kpi_colors
961: WHERE indicator = p_Anal_Opt_Rec.Bsc_Kpi_Id AND
962: kpi_measure_id = cd.kpi_measure_id;
963:
964: END LOOP;
965:
966: IF FND_API.To_Boolean( p_commit ) THEN
967: COMMIT;
968: END IF;
969:
970: EXCEPTION
969:
970: EXCEPTION
971: WHEN OTHERS THEN
972: ROLLBACK TO Create_Analayis_OptionObjPUB;
973: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
974: IF (x_msg_data IS NOT NULL) THEN
975: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PVT.Cascade_Deletion_Color_Props ';
976: ELSE
977: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PVT.Cascade_Deletion_Color_Props ';
981: /************************************************************************************
982: ************************************************************************************/
983:
984: procedure Delete_Analysis_Measures(
985: p_commit IN varchar2 -- := FND_API.G_FALSE
986: ,p_Anal_Opt_Rec IN BSC_ANALYSIS_OPTION_PUB.Bsc_Option_Rec_Type
987: ,x_return_status OUT NOCOPY varchar2
988: ,x_msg_count OUT NOCOPY number
989: ,x_msg_data OUT NOCOPY varchar2
989: ,x_msg_data OUT NOCOPY varchar2
990: ) is
991: begin
992:
993: x_return_status := FND_API.G_RET_STS_SUCCESS;
994:
995:
996: BSC_ANALYSIS_OPTION_PVT.Delete_Analysis_Measures( p_commit
997: ,p_Anal_Opt_Rec
1006: ,x_msg_count => x_msg_count
1007: ,x_msg_data => x_msg_data
1008: ) ;
1009:
1010: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1011: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1012: END IF;
1013:
1014: IF FND_API.To_Boolean( p_commit ) THEN
1007: ,x_msg_data => x_msg_data
1008: ) ;
1009:
1010: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1011: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1012: END IF;
1013:
1014: IF FND_API.To_Boolean( p_commit ) THEN
1015: COMMIT;
1010: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1011: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1012: END IF;
1013:
1014: IF FND_API.To_Boolean( p_commit ) THEN
1015: COMMIT;
1016: END IF;
1017:
1018: EXCEPTION
1015: COMMIT;
1016: END IF;
1017:
1018: EXCEPTION
1019: WHEN FND_API.G_EXC_ERROR THEN
1020: IF (x_msg_data IS NULL) THEN
1021: FND_MSG_PUB.Count_And_Get
1022: ( p_encoded => FND_API.G_FALSE
1023: , p_count => x_msg_count
1018: EXCEPTION
1019: WHEN FND_API.G_EXC_ERROR THEN
1020: IF (x_msg_data IS NULL) THEN
1021: FND_MSG_PUB.Count_And_Get
1022: ( p_encoded => FND_API.G_FALSE
1023: , p_count => x_msg_count
1024: , p_data => x_msg_data
1025: );
1026: END IF;
1023: , p_count => x_msg_count
1024: , p_data => x_msg_data
1025: );
1026: END IF;
1027: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1028: x_return_status := FND_API.G_RET_STS_ERROR;
1029: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1030: IF (x_msg_data IS NULL) THEN
1031: FND_MSG_PUB.Count_And_Get
1024: , p_data => x_msg_data
1025: );
1026: END IF;
1027: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1028: x_return_status := FND_API.G_RET_STS_ERROR;
1029: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1030: IF (x_msg_data IS NULL) THEN
1031: FND_MSG_PUB.Count_And_Get
1032: ( p_encoded => FND_API.G_FALSE
1025: );
1026: END IF;
1027: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1028: x_return_status := FND_API.G_RET_STS_ERROR;
1029: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1030: IF (x_msg_data IS NULL) THEN
1031: FND_MSG_PUB.Count_And_Get
1032: ( p_encoded => FND_API.G_FALSE
1033: , p_count => x_msg_count
1028: x_return_status := FND_API.G_RET_STS_ERROR;
1029: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1030: IF (x_msg_data IS NULL) THEN
1031: FND_MSG_PUB.Count_And_Get
1032: ( p_encoded => FND_API.G_FALSE
1033: , p_count => x_msg_count
1034: , p_data => x_msg_data
1035: );
1036: END IF;
1033: , p_count => x_msg_count
1034: , p_data => x_msg_data
1035: );
1036: END IF;
1037: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1038: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1039: WHEN NO_DATA_FOUND THEN
1040: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1041: IF (x_msg_data IS NOT NULL) THEN
1034: , p_data => x_msg_data
1035: );
1036: END IF;
1037: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1038: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1039: WHEN NO_DATA_FOUND THEN
1040: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1041: IF (x_msg_data IS NOT NULL) THEN
1042: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PUB.Delete_Analysis_Measures ';
1036: END IF;
1037: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1038: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1039: WHEN NO_DATA_FOUND THEN
1040: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1041: IF (x_msg_data IS NOT NULL) THEN
1042: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PUB.Delete_Analysis_Measures ';
1043: ELSE
1044: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PUB.Delete_Analysis_Measures ';
1044: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PUB.Delete_Analysis_Measures ';
1045: END IF;
1046: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1047: WHEN OTHERS THEN
1048: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1049: IF (x_msg_data IS NOT NULL) THEN
1050: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PUB.Delete_Analysis_Measures ';
1051: ELSE
1052: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PUB.Delete_Analysis_Measures ';
1056:
1057: /************************************************************************************
1058: ************************************************************************************/
1059: PROCEDURE Delete_Ana_Opt_Mult_Groups
1060: ( p_commit IN VARCHAR2:=FND_API.G_FALSE
1061: , p_Kpi_id IN BSC_KPIS_B.indicator%TYPE
1062: , p_Anal_Opt_Tbl IN BSC_ANALYSIS_OPTION_PUB.Bsc_Anal_Opt_Tbl_Type
1063: , p_max_group_count IN NUMBER
1064: , p_Anal_Opt_Comb_Tbl IN BSC_ANALYSIS_OPTION_PUB.Anal_Opt_Comb_Num_Tbl_Type
1067: , x_msg_count OUT NOCOPY NUMBER
1068: , x_msg_data OUT NOCOPY VARCHAR2
1069: )IS
1070: BEGIN
1071: x_return_status := FND_API.G_RET_STS_SUCCESS;
1072: BSC_ANALYSIS_OPTION_PVT.Delete_Ana_Opt_Mult_Groups
1073: ( p_commit => FND_API.G_FALSE
1074: , p_Kpi_id => p_Kpi_id
1075: , p_Anal_Opt_Tbl => p_Anal_Opt_Tbl
1069: )IS
1070: BEGIN
1071: x_return_status := FND_API.G_RET_STS_SUCCESS;
1072: BSC_ANALYSIS_OPTION_PVT.Delete_Ana_Opt_Mult_Groups
1073: ( p_commit => FND_API.G_FALSE
1074: , p_Kpi_id => p_Kpi_id
1075: , p_Anal_Opt_Tbl => p_Anal_Opt_Tbl
1076: , p_max_group_count => p_max_group_count
1077: , p_Anal_Opt_Comb_Tbl => p_Anal_Opt_Comb_Tbl
1080: , x_msg_count => x_msg_count
1081: , x_msg_data => x_msg_data
1082: );
1083: EXCEPTION
1084: WHEN FND_API.G_EXC_ERROR THEN
1085: IF (x_msg_data IS NULL) THEN
1086: FND_MSG_PUB.Count_And_Get
1087: ( p_encoded => FND_API.G_FALSE
1088: , p_count => x_msg_count
1083: EXCEPTION
1084: WHEN FND_API.G_EXC_ERROR THEN
1085: IF (x_msg_data IS NULL) THEN
1086: FND_MSG_PUB.Count_And_Get
1087: ( p_encoded => FND_API.G_FALSE
1088: , p_count => x_msg_count
1089: , p_data => x_msg_data
1090: );
1091: END IF;
1088: , p_count => x_msg_count
1089: , p_data => x_msg_data
1090: );
1091: END IF;
1092: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1093: x_return_status := FND_API.G_RET_STS_ERROR;
1094: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1095: IF (x_msg_data IS NULL) THEN
1096: FND_MSG_PUB.Count_And_Get
1089: , p_data => x_msg_data
1090: );
1091: END IF;
1092: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1093: x_return_status := FND_API.G_RET_STS_ERROR;
1094: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1095: IF (x_msg_data IS NULL) THEN
1096: FND_MSG_PUB.Count_And_Get
1097: ( p_encoded => FND_API.G_FALSE
1090: );
1091: END IF;
1092: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1093: x_return_status := FND_API.G_RET_STS_ERROR;
1094: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1095: IF (x_msg_data IS NULL) THEN
1096: FND_MSG_PUB.Count_And_Get
1097: ( p_encoded => FND_API.G_FALSE
1098: , p_count => x_msg_count
1093: x_return_status := FND_API.G_RET_STS_ERROR;
1094: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1095: IF (x_msg_data IS NULL) THEN
1096: FND_MSG_PUB.Count_And_Get
1097: ( p_encoded => FND_API.G_FALSE
1098: , p_count => x_msg_count
1099: , p_data => x_msg_data
1100: );
1101: END IF;
1098: , p_count => x_msg_count
1099: , p_data => x_msg_data
1100: );
1101: END IF;
1102: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1103: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1104: WHEN NO_DATA_FOUND THEN
1105: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1106: IF (x_msg_data IS NOT NULL) THEN
1099: , p_data => x_msg_data
1100: );
1101: END IF;
1102: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1103: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1104: WHEN NO_DATA_FOUND THEN
1105: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1106: IF (x_msg_data IS NOT NULL) THEN
1107: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PUB.Delete_Ana_Opt_Mult_Groups ';
1101: END IF;
1102: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1103: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1104: WHEN NO_DATA_FOUND THEN
1105: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1106: IF (x_msg_data IS NOT NULL) THEN
1107: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PUB.Delete_Ana_Opt_Mult_Groups ';
1108: ELSE
1109: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PUB.Delete_Ana_Opt_Mult_Groups ';
1109: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PUB.Delete_Ana_Opt_Mult_Groups ';
1110: END IF;
1111: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1112: WHEN OTHERS THEN
1113: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1114: IF (x_msg_data IS NOT NULL) THEN
1115: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PUB.Delete_Ana_Opt_Mult_Groups ';
1116: ELSE
1117: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PUB.Delete_Ana_Opt_Mult_Groups ';
1122: ************************************************************************************/
1123:
1124: PROCEDURE Synch_Kpi_Anal_Group
1125: (
1126: p_commit IN VARCHAR2:=FND_API.G_FALSE
1127: , p_Kpi_Id IN BSC_KPIS_B.indicator%TYPE
1128: , p_Anal_Opt_Tbl IN BSC_ANALYSIS_OPTION_PUB.Bsc_Anal_Opt_Tbl_Type
1129: , x_return_status OUT NOCOPY VARCHAR2
1130: , x_msg_count OUT NOCOPY NUMBER
1131: , x_msg_data OUT NOCOPY VARCHAR2
1132: )IS
1133: BEGIN
1134:
1135: x_return_status := FND_API.G_RET_STS_SUCCESS;
1136: BSC_ANALYSIS_OPTION_PVT.Synch_Kpi_Anal_Group
1137: ( p_commit => FND_API.G_FALSE
1138: , p_Kpi_Id => p_Kpi_Id
1139: , p_Anal_Opt_Tbl => p_Anal_Opt_Tbl
1133: BEGIN
1134:
1135: x_return_status := FND_API.G_RET_STS_SUCCESS;
1136: BSC_ANALYSIS_OPTION_PVT.Synch_Kpi_Anal_Group
1137: ( p_commit => FND_API.G_FALSE
1138: , p_Kpi_Id => p_Kpi_Id
1139: , p_Anal_Opt_Tbl => p_Anal_Opt_Tbl
1140: , x_return_status => x_return_status
1141: , x_msg_count => x_msg_count
1142: , x_msg_data => x_msg_data
1143: );
1144:
1145: EXCEPTION
1146: WHEN FND_API.G_EXC_ERROR THEN
1147: IF (x_msg_data IS NULL) THEN
1148: FND_MSG_PUB.Count_And_Get
1149: ( p_encoded => FND_API.G_FALSE
1150: , p_count => x_msg_count
1145: EXCEPTION
1146: WHEN FND_API.G_EXC_ERROR THEN
1147: IF (x_msg_data IS NULL) THEN
1148: FND_MSG_PUB.Count_And_Get
1149: ( p_encoded => FND_API.G_FALSE
1150: , p_count => x_msg_count
1151: , p_data => x_msg_data
1152: );
1153: END IF;
1150: , p_count => x_msg_count
1151: , p_data => x_msg_data
1152: );
1153: END IF;
1154: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1155: x_return_status := FND_API.G_RET_STS_ERROR;
1156: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1157: IF (x_msg_data IS NULL) THEN
1158: FND_MSG_PUB.Count_And_Get
1151: , p_data => x_msg_data
1152: );
1153: END IF;
1154: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1155: x_return_status := FND_API.G_RET_STS_ERROR;
1156: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1157: IF (x_msg_data IS NULL) THEN
1158: FND_MSG_PUB.Count_And_Get
1159: ( p_encoded => FND_API.G_FALSE
1152: );
1153: END IF;
1154: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1155: x_return_status := FND_API.G_RET_STS_ERROR;
1156: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1157: IF (x_msg_data IS NULL) THEN
1158: FND_MSG_PUB.Count_And_Get
1159: ( p_encoded => FND_API.G_FALSE
1160: , p_count => x_msg_count
1155: x_return_status := FND_API.G_RET_STS_ERROR;
1156: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1157: IF (x_msg_data IS NULL) THEN
1158: FND_MSG_PUB.Count_And_Get
1159: ( p_encoded => FND_API.G_FALSE
1160: , p_count => x_msg_count
1161: , p_data => x_msg_data
1162: );
1163: END IF;
1160: , p_count => x_msg_count
1161: , p_data => x_msg_data
1162: );
1163: END IF;
1164: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1165: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1166: WHEN NO_DATA_FOUND THEN
1167: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1168: IF (x_msg_data IS NOT NULL) THEN
1161: , p_data => x_msg_data
1162: );
1163: END IF;
1164: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1165: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1166: WHEN NO_DATA_FOUND THEN
1167: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1168: IF (x_msg_data IS NOT NULL) THEN
1169: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PUB.Synch_Kpi_Anal_Group ';
1163: END IF;
1164: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1165: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1166: WHEN NO_DATA_FOUND THEN
1167: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1168: IF (x_msg_data IS NOT NULL) THEN
1169: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PUB.Synch_Kpi_Anal_Group ';
1170: ELSE
1171: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PUB.Synch_Kpi_Anal_Group ';
1171: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PUB.Synch_Kpi_Anal_Group ';
1172: END IF;
1173: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1174: WHEN OTHERS THEN
1175: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1176: IF (x_msg_data IS NOT NULL) THEN
1177: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PUB.Synch_Kpi_Anal_Group ';
1178: ELSE
1179: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PUB.Synch_Kpi_Anal_Group ';
1228: AND DS.SERIES_ID = p_series_id
1229: AND OBJ.INDICATOR = DS.INDICATOR;
1230: BEGIN
1231: FND_MSG_PUB.Initialize;
1232: x_return_status := FND_API.G_RET_STS_SUCCESS;
1233:
1234: -- adrao modified cursor and introduced new call to is_Objective_Report_Type, which is appropriate.
1235: -- Bug#4357962
1236: FOR cSN IN c_Objective_Name_Details LOOP
1239: l_Dataseries_Name := cSN.KPI_NAME;
1240:
1241: -- Changed message for Bug#4590994
1242: IF (l_Kpi_Short_Name IS NOT NULL) THEN
1243: IF (BSC_BIS_CUSTOM_KPI_UTIL_PUB.is_Objective_Report_Type(l_Kpi_Short_Name) = FND_API.G_TRUE) THEN
1244: FND_MESSAGE.SET_NAME('BSC','BSC_D_DELETE_RPT_KPI_OBJ');
1245: FND_MESSAGE.SET_TOKEN('OBJECTIVE', l_Kpi_Name);
1246: FND_MSG_PUB.ADD;
1247: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1243: IF (BSC_BIS_CUSTOM_KPI_UTIL_PUB.is_Objective_Report_Type(l_Kpi_Short_Name) = FND_API.G_TRUE) THEN
1244: FND_MESSAGE.SET_NAME('BSC','BSC_D_DELETE_RPT_KPI_OBJ');
1245: FND_MESSAGE.SET_TOKEN('OBJECTIVE', l_Kpi_Name);
1246: FND_MSG_PUB.ADD;
1247: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1248: END IF;
1249: END IF;
1250: END LOOP;
1251:
1259: , x_msg_count => x_msg_count
1260: , x_msg_data => x_msg_data
1261: );
1262: EXCEPTION
1263: WHEN FND_API.G_EXC_ERROR THEN
1264: IF (x_msg_data IS NULL) THEN
1265: FND_MSG_PUB.Count_And_Get
1266: ( p_encoded => FND_API.G_FALSE
1267: , p_count => x_msg_count
1262: EXCEPTION
1263: WHEN FND_API.G_EXC_ERROR THEN
1264: IF (x_msg_data IS NULL) THEN
1265: FND_MSG_PUB.Count_And_Get
1266: ( p_encoded => FND_API.G_FALSE
1267: , p_count => x_msg_count
1268: , p_data => x_msg_data
1269: );
1270: END IF;
1267: , p_count => x_msg_count
1268: , p_data => x_msg_data
1269: );
1270: END IF;
1271: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1272: x_return_status := FND_API.G_RET_STS_ERROR;
1273: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1274: IF (x_msg_data IS NULL) THEN
1275: FND_MSG_PUB.Count_And_Get
1268: , p_data => x_msg_data
1269: );
1270: END IF;
1271: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1272: x_return_status := FND_API.G_RET_STS_ERROR;
1273: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1274: IF (x_msg_data IS NULL) THEN
1275: FND_MSG_PUB.Count_And_Get
1276: ( p_encoded => FND_API.G_FALSE
1269: );
1270: END IF;
1271: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1272: x_return_status := FND_API.G_RET_STS_ERROR;
1273: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1274: IF (x_msg_data IS NULL) THEN
1275: FND_MSG_PUB.Count_And_Get
1276: ( p_encoded => FND_API.G_FALSE
1277: , p_count => x_msg_count
1272: x_return_status := FND_API.G_RET_STS_ERROR;
1273: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1274: IF (x_msg_data IS NULL) THEN
1275: FND_MSG_PUB.Count_And_Get
1276: ( p_encoded => FND_API.G_FALSE
1277: , p_count => x_msg_count
1278: , p_data => x_msg_data
1279: );
1280: END IF;
1277: , p_count => x_msg_count
1278: , p_data => x_msg_data
1279: );
1280: END IF;
1281: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1282: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1283: WHEN NO_DATA_FOUND THEN
1284: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1285: IF (x_msg_data IS NOT NULL) THEN
1278: , p_data => x_msg_data
1279: );
1280: END IF;
1281: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1282: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1283: WHEN NO_DATA_FOUND THEN
1284: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1285: IF (x_msg_data IS NOT NULL) THEN
1286: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PUB.Delete_Ana_Opt_Mult_Groups ';
1280: END IF;
1281: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1282: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1283: WHEN NO_DATA_FOUND THEN
1284: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1285: IF (x_msg_data IS NOT NULL) THEN
1286: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PUB.Delete_Ana_Opt_Mult_Groups ';
1287: ELSE
1288: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PUB.Delete_Ana_Opt_Mult_Groups ';
1288: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PUB.Delete_Ana_Opt_Mult_Groups ';
1289: END IF;
1290: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1291: WHEN OTHERS THEN
1292: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1293: IF (x_msg_data IS NOT NULL) THEN
1294: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PUB.Delete_Ana_Opt_Mult_Groups ';
1295: ELSE
1296: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PUB.Delete_Ana_Opt_Mult_Groups ';
1306: , x_msg_count OUT NOCOPY NUMBER
1307: , x_msg_data OUT NOCOPY VARCHAR2
1308: ) IS
1309: BEGIN
1310: x_return_status := FND_API.G_RET_STS_SUCCESS;
1311: FND_MSG_PUB.Initialize;
1312:
1313: BSC_ANALYSIS_OPTION_PVT.delete_extra_series(
1314: p_Bsc_Anal_Opt_Rec => p_Bsc_Anal_Opt_Rec
1315: , x_return_status => x_return_status
1316: , x_msg_count => x_msg_count
1317: , x_msg_data => x_msg_data
1318: );
1319: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1321: END IF;
1322:
1323:
1316: , x_msg_count => x_msg_count
1317: , x_msg_data => x_msg_data
1318: );
1319: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1321: END IF;
1322:
1323:
1324: EXCEPTION
1321: END IF;
1322:
1323:
1324: EXCEPTION
1325: WHEN FND_API.G_EXC_ERROR THEN
1326: IF (x_msg_data IS NULL) THEN
1327: FND_MSG_PUB.Count_And_Get
1328: ( p_encoded => FND_API.G_FALSE
1329: , p_count => x_msg_count
1324: EXCEPTION
1325: WHEN FND_API.G_EXC_ERROR THEN
1326: IF (x_msg_data IS NULL) THEN
1327: FND_MSG_PUB.Count_And_Get
1328: ( p_encoded => FND_API.G_FALSE
1329: , p_count => x_msg_count
1330: , p_data => x_msg_data
1331: );
1332: END IF;
1329: , p_count => x_msg_count
1330: , p_data => x_msg_data
1331: );
1332: END IF;
1333: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1334: x_return_status := FND_API.G_RET_STS_ERROR;
1335: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1336: IF (x_msg_data IS NULL) THEN
1337: FND_MSG_PUB.Count_And_Get
1330: , p_data => x_msg_data
1331: );
1332: END IF;
1333: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1334: x_return_status := FND_API.G_RET_STS_ERROR;
1335: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1336: IF (x_msg_data IS NULL) THEN
1337: FND_MSG_PUB.Count_And_Get
1338: ( p_encoded => FND_API.G_FALSE
1331: );
1332: END IF;
1333: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1334: x_return_status := FND_API.G_RET_STS_ERROR;
1335: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1336: IF (x_msg_data IS NULL) THEN
1337: FND_MSG_PUB.Count_And_Get
1338: ( p_encoded => FND_API.G_FALSE
1339: , p_count => x_msg_count
1334: x_return_status := FND_API.G_RET_STS_ERROR;
1335: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1336: IF (x_msg_data IS NULL) THEN
1337: FND_MSG_PUB.Count_And_Get
1338: ( p_encoded => FND_API.G_FALSE
1339: , p_count => x_msg_count
1340: , p_data => x_msg_data
1341: );
1342: END IF;
1339: , p_count => x_msg_count
1340: , p_data => x_msg_data
1341: );
1342: END IF;
1343: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1344: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1345: WHEN NO_DATA_FOUND THEN
1346: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1347: IF (x_msg_data IS NOT NULL) THEN
1340: , p_data => x_msg_data
1341: );
1342: END IF;
1343: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1344: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1345: WHEN NO_DATA_FOUND THEN
1346: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1347: IF (x_msg_data IS NOT NULL) THEN
1348: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PUB.Delete_Ana_Opt_Mult_Groups ';
1342: END IF;
1343: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1344: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1345: WHEN NO_DATA_FOUND THEN
1346: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1347: IF (x_msg_data IS NOT NULL) THEN
1348: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PUB.Delete_Ana_Opt_Mult_Groups ';
1349: ELSE
1350: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PUB.Delete_Ana_Opt_Mult_Groups ';
1350: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PUB.Delete_Ana_Opt_Mult_Groups ';
1351: END IF;
1352: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1353: WHEN OTHERS THEN
1354: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1355: IF (x_msg_data IS NOT NULL) THEN
1356: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PUB.Delete_Ana_Opt_Mult_Groups ';
1357: ELSE
1358: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PUB.Delete_Ana_Opt_Mult_Groups ';
1362:
1363: --------------------------------------------------------------------------------
1364:
1365: PROCEDURE Create_Data_Series
1366: ( p_commit IN VARCHAR2 -- FND_API.G_FALSE
1367: , p_Anal_Opt_Rec IN BSC_ANALYSIS_OPTION_PUB.Bsc_Option_Rec_Type
1368: , x_Anal_Opt_Rec OUT NOCOPY BSC_ANALYSIS_OPTION_PUB.Bsc_Option_Rec_Type
1369: , x_return_status OUT NOCOPY VARCHAR2
1370: , x_msg_count OUT NOCOPY NUMBER
1404:
1405:
1406: begin
1407: FND_MSG_PUB.Initialize;
1408: x_return_status := FND_API.G_RET_STS_SUCCESS;
1409: -- Assign all values in the passed "Record" parameter to the locally defined
1410: -- "Record" variable.
1411: l_Anal_Opt_Rec := p_Anal_Opt_Rec;
1412:
1419: if l_count = 0 then
1420: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
1421: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Anal_Opt_Rec.Bsc_Kpi_Id);
1422: FND_MSG_PUB.ADD;
1423: RAISE FND_API.G_EXC_ERROR;
1424: end if;
1425: else
1426: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
1427: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Anal_Opt_Rec.Bsc_Kpi_Id);
1425: else
1426: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
1427: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Anal_Opt_Rec.Bsc_Kpi_Id);
1428: FND_MSG_PUB.ADD;
1429: RAISE FND_API.G_EXC_ERROR;
1430: end if;
1431:
1432: -- Verify that this is not a Shared KPI.
1433: select share_flag
1438: if l_share_flag = 2 then
1439: FND_MESSAGE.SET_NAME('BSC','BSC_SHARED_KPI');
1440: FND_MESSAGE.SET_TOKEN('BSC_KPI', l_Anal_Opt_Rec.Bsc_Kpi_Id);
1441: FND_MSG_PUB.ADD;
1442: RAISE FND_API.G_EXC_ERROR;
1443: end if;
1444:
1445: -- Set Default values for Anaysis options parameter
1446: if l_Anal_Opt_Rec.Bsc_Option_Group0 is null then
1568: ,l_Anal_Opt_Rec
1569: ,x_return_status
1570: ,x_msg_count
1571: ,x_msg_data);
1572: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1573: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1574: END IF;
1575: BSC_DESIGNER_PVT.ActionFlag_Change( p_Anal_Opt_Rec.Bsc_Kpi_Id ,
1576: BSC_DESIGNER_PVT.G_ActionFlag.GAA_Structure );
1569: ,x_return_status
1570: ,x_msg_count
1571: ,x_msg_data);
1572: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1573: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1574: END IF;
1575: BSC_DESIGNER_PVT.ActionFlag_Change( p_Anal_Opt_Rec.Bsc_Kpi_Id ,
1576: BSC_DESIGNER_PVT.G_ActionFlag.GAA_Structure );
1577:
1584: ,l_Anal_Opt_Rec
1585: ,x_return_status
1586: ,x_msg_count
1587: ,x_msg_data);
1588: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1589: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1590: END IF;
1591: BSC_DESIGNER_PVT.ActionFlag_Change( p_Anal_Opt_Rec.Bsc_Kpi_Id ,
1592: BSC_DESIGNER_PVT.G_ActionFlag.GAA_Structure );
1585: ,x_return_status
1586: ,x_msg_count
1587: ,x_msg_data);
1588: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1589: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1590: END IF;
1591: BSC_DESIGNER_PVT.ActionFlag_Change( p_Anal_Opt_Rec.Bsc_Kpi_Id ,
1592: BSC_DESIGNER_PVT.G_ActionFlag.GAA_Structure );
1593: END LOOP;
1592: BSC_DESIGNER_PVT.G_ActionFlag.GAA_Structure );
1593: END LOOP;
1594: -----
1595:
1596: if (p_commit = FND_API.G_TRUE) then
1597: commit;
1598: end if;
1599:
1600: EXCEPTION
1597: commit;
1598: end if;
1599:
1600: EXCEPTION
1601: WHEN FND_API.G_EXC_ERROR THEN
1602: IF (c_Series_color%ISOPEN) THEN
1603: CLOSE c_Series_color;
1604: END IF;
1605: IF (x_msg_data IS NULL) THEN
1603: CLOSE c_Series_color;
1604: END IF;
1605: IF (x_msg_data IS NULL) THEN
1606: FND_MSG_PUB.Count_And_Get
1607: ( p_encoded => FND_API.G_FALSE
1608: , p_count => x_msg_count
1609: , p_data => x_msg_data
1610: );
1611: END IF;
1608: , p_count => x_msg_count
1609: , p_data => x_msg_data
1610: );
1611: END IF;
1612: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1613: x_return_status := FND_API.G_RET_STS_ERROR;
1614: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1615: IF (c_Series_color%ISOPEN) THEN
1616: CLOSE c_Series_color;
1609: , p_data => x_msg_data
1610: );
1611: END IF;
1612: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1613: x_return_status := FND_API.G_RET_STS_ERROR;
1614: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1615: IF (c_Series_color%ISOPEN) THEN
1616: CLOSE c_Series_color;
1617: END IF;
1610: );
1611: END IF;
1612: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1613: x_return_status := FND_API.G_RET_STS_ERROR;
1614: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1615: IF (c_Series_color%ISOPEN) THEN
1616: CLOSE c_Series_color;
1617: END IF;
1618: IF (x_msg_data IS NULL) THEN
1616: CLOSE c_Series_color;
1617: END IF;
1618: IF (x_msg_data IS NULL) THEN
1619: FND_MSG_PUB.Count_And_Get
1620: ( p_encoded => FND_API.G_FALSE
1621: , p_count => x_msg_count
1622: , p_data => x_msg_data
1623: );
1624: END IF;
1621: , p_count => x_msg_count
1622: , p_data => x_msg_data
1623: );
1624: END IF;
1625: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1626: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1627: WHEN NO_DATA_FOUND THEN
1628: IF (c_Series_color%ISOPEN) THEN
1629: CLOSE c_Series_color;
1622: , p_data => x_msg_data
1623: );
1624: END IF;
1625: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1626: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1627: WHEN NO_DATA_FOUND THEN
1628: IF (c_Series_color%ISOPEN) THEN
1629: CLOSE c_Series_color;
1630: END IF;
1627: WHEN NO_DATA_FOUND THEN
1628: IF (c_Series_color%ISOPEN) THEN
1629: CLOSE c_Series_color;
1630: END IF;
1631: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1632: IF (x_msg_data IS NOT NULL) THEN
1633: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PUB.Create_Data_Series ';
1634: ELSE
1635: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PUB.Create_Data_Series ';
1638: WHEN OTHERS THEN
1639: IF (c_Series_color%ISOPEN) THEN
1640: CLOSE c_Series_color;
1641: END IF;
1642: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1643: IF (x_msg_data IS NOT NULL) THEN
1644: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PUB.Create_Data_Series ';
1645: ELSE
1646: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PUB.Create_Data_Series ';
1649: end Create_Data_Series;
1650:
1651:
1652: procedure Update_Data_Series
1653: ( p_commit IN VARCHAR2 -- FND_API.G_FALSE
1654: , p_Anal_Opt_Rec IN BSC_ANALYSIS_OPTION_PUB.Bsc_Option_Rec_Type
1655: , x_return_status OUT NOCOPY VARCHAR2
1656: , x_msg_count OUT NOCOPY NUMBER
1657: , x_msg_data OUT NOCOPY VARCHAR2
1666: FROM BSC_KPIS_B
1667: WHERE Source_Indicator = p_Anal_Opt_Rec.Bsc_Kpi_Id
1668: AND Prototype_Flag <> 2;
1669: BEGIN
1670: x_return_status := FND_API.G_RET_STS_SUCCESS;
1671: l_Anal_Opt_Rec := p_Anal_Opt_Rec;
1672:
1673: --- Check Objective Id
1674: if p_Anal_Opt_Rec.Bsc_Kpi_Id is not null then
1679: if l_count = 0 then
1680: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
1681: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Anal_Opt_Rec.Bsc_Kpi_Id);
1682: FND_MSG_PUB.ADD;
1683: RAISE FND_API.G_EXC_ERROR;
1684: end if;
1685: else
1686: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
1687: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Anal_Opt_Rec.Bsc_Kpi_Id);
1685: else
1686: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
1687: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Anal_Opt_Rec.Bsc_Kpi_Id);
1688: FND_MSG_PUB.ADD;
1689: RAISE FND_API.G_EXC_ERROR;
1690: end if;
1691:
1692: -- Verify that this is not a Shared KPI.
1693: select share_flag
1698: if l_share_flag = 2 then
1699: FND_MESSAGE.SET_NAME('BSC','BSC_SHARED_KPI');
1700: FND_MESSAGE.SET_TOKEN('BSC_KPI', l_Anal_Opt_Rec.Bsc_Kpi_Id);
1701: FND_MSG_PUB.ADD;
1702: RAISE FND_API.G_EXC_ERROR;
1703: end if;
1704:
1705: -- Set Default vaues for Anaysis options parameter
1706: if l_Anal_Opt_Rec.Bsc_Option_Group0 is null then
1716: l_Anal_Opt_Rec.Bsc_Dataset_Series_Id := 0;
1717: -- THROUGH ERROR
1718: end if;
1719:
1720: BSC_ANALYSIS_OPTION_PUB.Update_Analysis_Measures( FND_API.G_FALSE
1721: ,l_Anal_Opt_Rec
1722: ,x_return_status
1723: ,x_msg_count
1724: ,x_msg_data);
1721: ,l_Anal_Opt_Rec
1722: ,x_return_status
1723: ,x_msg_count
1724: ,x_msg_data);
1725: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1726: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1727: END IF;
1728:
1729: -- if there are any shared KPIs update those also.
1722: ,x_return_status
1723: ,x_msg_count
1724: ,x_msg_data);
1725: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1726: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1727: END IF;
1728:
1729: -- if there are any shared KPIs update those also.
1730: FOR cd IN c_kpi_ids LOOP
1728:
1729: -- if there are any shared KPIs update those also.
1730: FOR cd IN c_kpi_ids LOOP
1731: l_Anal_Opt_Rec.Bsc_Kpi_Id := cd.Indicator;
1732: BSC_ANALYSIS_OPTION_PUB.Update_Analysis_Measures( FND_API.G_FALSE
1733: ,l_Anal_Opt_Rec
1734: ,x_return_status
1735: ,x_msg_count
1736: ,x_msg_data);
1733: ,l_Anal_Opt_Rec
1734: ,x_return_status
1735: ,x_msg_count
1736: ,x_msg_data);
1737: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1738: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1739: END IF;
1740: END LOOP;
1741:
1734: ,x_return_status
1735: ,x_msg_count
1736: ,x_msg_data);
1737: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1738: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1739: END IF;
1740: END LOOP;
1741:
1742: if (p_commit = FND_API.G_TRUE) then
1738: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1739: END IF;
1740: END LOOP;
1741:
1742: if (p_commit = FND_API.G_TRUE) then
1743: commit;
1744: end if;
1745:
1746: EXCEPTION
1743: commit;
1744: end if;
1745:
1746: EXCEPTION
1747: WHEN FND_API.G_EXC_ERROR THEN
1748: IF (x_msg_data IS NULL) THEN
1749: FND_MSG_PUB.Count_And_Get
1750: ( p_encoded => FND_API.G_FALSE
1751: , p_count => x_msg_count
1746: EXCEPTION
1747: WHEN FND_API.G_EXC_ERROR THEN
1748: IF (x_msg_data IS NULL) THEN
1749: FND_MSG_PUB.Count_And_Get
1750: ( p_encoded => FND_API.G_FALSE
1751: , p_count => x_msg_count
1752: , p_data => x_msg_data
1753: );
1754: END IF;
1751: , p_count => x_msg_count
1752: , p_data => x_msg_data
1753: );
1754: END IF;
1755: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1756: x_return_status := FND_API.G_RET_STS_ERROR;
1757: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1758: IF (x_msg_data IS NULL) THEN
1759: FND_MSG_PUB.Count_And_Get
1752: , p_data => x_msg_data
1753: );
1754: END IF;
1755: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1756: x_return_status := FND_API.G_RET_STS_ERROR;
1757: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1758: IF (x_msg_data IS NULL) THEN
1759: FND_MSG_PUB.Count_And_Get
1760: ( p_encoded => FND_API.G_FALSE
1753: );
1754: END IF;
1755: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1756: x_return_status := FND_API.G_RET_STS_ERROR;
1757: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1758: IF (x_msg_data IS NULL) THEN
1759: FND_MSG_PUB.Count_And_Get
1760: ( p_encoded => FND_API.G_FALSE
1761: , p_count => x_msg_count
1756: x_return_status := FND_API.G_RET_STS_ERROR;
1757: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1758: IF (x_msg_data IS NULL) THEN
1759: FND_MSG_PUB.Count_And_Get
1760: ( p_encoded => FND_API.G_FALSE
1761: , p_count => x_msg_count
1762: , p_data => x_msg_data
1763: );
1764: END IF;
1761: , p_count => x_msg_count
1762: , p_data => x_msg_data
1763: );
1764: END IF;
1765: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1766: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1767: WHEN NO_DATA_FOUND THEN
1768: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1769: IF (x_msg_data IS NOT NULL) THEN
1762: , p_data => x_msg_data
1763: );
1764: END IF;
1765: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1766: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1767: WHEN NO_DATA_FOUND THEN
1768: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1769: IF (x_msg_data IS NOT NULL) THEN
1770: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PUB.Update_Data_Series ';
1764: END IF;
1765: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1766: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1767: WHEN NO_DATA_FOUND THEN
1768: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1769: IF (x_msg_data IS NOT NULL) THEN
1770: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PUB.Update_Data_Series ';
1771: ELSE
1772: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PUB.Update_Data_Series ';
1772: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PUB.Update_Data_Series ';
1773: END IF;
1774: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1775: WHEN OTHERS THEN
1776: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1777: IF (x_msg_data IS NOT NULL) THEN
1778: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PUB.Update_Data_Series ';
1779: ELSE
1780: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PUB.Update_Data_Series ';
1782: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1783: end Update_Data_Series;
1784:
1785: procedure Delete_Data_Series(
1786: p_commit IN varchar2 -- := FND_API.G_FALSE
1787: ,p_Anal_Opt_Rec IN BSC_ANALYSIS_OPTION_PUB.Bsc_Option_Rec_Type
1788: ,x_return_status OUT NOCOPY varchar2
1789: ,x_msg_count OUT NOCOPY number
1790: ,x_msg_data OUT NOCOPY varchar2
1806:
1807: BEGIN
1808: FND_MSG_PUB.Initialize;
1809: SAVEPOINT DeleteBSCDataSeriesPUB;
1810: x_return_status := FND_API.G_RET_STS_SUCCESS;
1811: l_Anal_Opt_Rec := p_Anal_Opt_Rec;
1812:
1813:
1814: --- Check Objective Id
1820: if l_count = 0 then
1821: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_KPI_ID');
1822: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Anal_Opt_Rec.Bsc_Kpi_Id);
1823: FND_MSG_PUB.ADD;
1824: RAISE FND_API.G_EXC_ERROR;
1825: end if;
1826: else
1827: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
1828: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Anal_Opt_Rec.Bsc_Kpi_Id);
1826: else
1827: FND_MESSAGE.SET_NAME('BSC','BSC_NO_KPI_ID_ENTERED');
1828: FND_MESSAGE.SET_TOKEN('BSC_KPI', p_Anal_Opt_Rec.Bsc_Kpi_Id);
1829: FND_MSG_PUB.ADD;
1830: RAISE FND_API.G_EXC_ERROR;
1831: end if;
1832:
1833: -- Verify that this is not a Shared KPI.
1834: select share_flag
1839: if l_share_flag = 2 then
1840: FND_MESSAGE.SET_NAME('BSC','BSC_SHARED_KPI');
1841: FND_MESSAGE.SET_TOKEN('BSC_KPI', l_Anal_Opt_Rec.Bsc_Kpi_Id);
1842: FND_MSG_PUB.ADD;
1843: RAISE FND_API.G_EXC_ERROR;
1844: end if;
1845:
1846: -- Set Default vaues for Anaysis options parameter
1847: if l_Anal_Opt_Rec.Bsc_Option_Group0 is null then
1864: AND analysis_option2 = p_Anal_Opt_Rec.Bsc_Option_Group2;
1865:
1866: -- delete the dataseries metadata
1867: BSC_ANALYSIS_OPTION_PVT.delete_Data_Series(
1868: p_commit => FND_API.G_FALSE
1869: ,p_Anal_Opt_Rec => l_Anal_Opt_Rec
1870: ,x_return_status => x_return_status
1871: ,x_msg_count => x_msg_count
1872: ,x_msg_data => x_msg_data
1878: ,x_return_status => x_return_status
1879: ,x_msg_count => x_msg_count
1880: ,x_msg_data => x_msg_data
1881: ) ;
1882: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1883: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1884: END IF;
1885:
1886: BSC_DESIGNER_PVT.ActionFlag_Change( p_Anal_Opt_Rec.Bsc_Kpi_Id ,
1879: ,x_msg_count => x_msg_count
1880: ,x_msg_data => x_msg_data
1881: ) ;
1882: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1883: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1884: END IF;
1885:
1886: BSC_DESIGNER_PVT.ActionFlag_Change( p_Anal_Opt_Rec.Bsc_Kpi_Id ,
1887: BSC_DESIGNER_PVT.G_ActionFlag.GAA_Structure );
1889:
1890: FOR cd IN c_kpi_ids LOOP
1891: l_Anal_Opt_Rec.Bsc_Kpi_Id := cd.Indicator;
1892: BSC_ANALYSIS_OPTION_PVT.delete_Data_Series(
1893: p_commit => FND_API.G_FALSE
1894: ,p_Anal_Opt_Rec => l_Anal_Opt_Rec
1895: ,x_return_status => x_return_status
1896: ,x_msg_count => x_msg_count
1897: ,x_msg_data => x_msg_data
1903: ,x_return_status => x_return_status
1904: ,x_msg_count => x_msg_count
1905: ,x_msg_data => x_msg_data
1906: ) ;
1907: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1908: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1909: END IF;
1910:
1911: BSC_DESIGNER_PVT.ActionFlag_Change( l_Anal_Opt_Rec.Bsc_Kpi_Id ,
1904: ,x_msg_count => x_msg_count
1905: ,x_msg_data => x_msg_data
1906: ) ;
1907: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1908: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1909: END IF;
1910:
1911: BSC_DESIGNER_PVT.ActionFlag_Change( l_Anal_Opt_Rec.Bsc_Kpi_Id ,
1912: BSC_DESIGNER_PVT.G_ActionFlag.GAA_Structure );
1946: END IF;
1947:
1948: END IF;
1949:
1950: if (p_commit = FND_API.G_TRUE) then
1951: commit;
1952: end if;
1953:
1954:
1952: end if;
1953:
1954:
1955: EXCEPTION
1956: WHEN FND_API.G_EXC_ERROR THEN
1957: ROLLBACK TO DeleteBSCDataSeriesPUB;
1958: FND_MSG_PUB.Count_And_Get
1959: ( p_encoded => FND_API.G_FALSE
1960: , p_count => x_msg_count
1955: EXCEPTION
1956: WHEN FND_API.G_EXC_ERROR THEN
1957: ROLLBACK TO DeleteBSCDataSeriesPUB;
1958: FND_MSG_PUB.Count_And_Get
1959: ( p_encoded => FND_API.G_FALSE
1960: , p_count => x_msg_count
1961: , p_data => x_msg_data
1962: );
1963: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1959: ( p_encoded => FND_API.G_FALSE
1960: , p_count => x_msg_count
1961: , p_data => x_msg_data
1962: );
1963: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1964: x_return_status := FND_API.G_RET_STS_ERROR;
1965: RAISE;
1966: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1967: ROLLBACK TO DeleteBSCDataSeriesPUB;
1960: , p_count => x_msg_count
1961: , p_data => x_msg_data
1962: );
1963: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1964: x_return_status := FND_API.G_RET_STS_ERROR;
1965: RAISE;
1966: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1967: ROLLBACK TO DeleteBSCDataSeriesPUB;
1968: FND_MSG_PUB.Count_And_Get
1962: );
1963: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
1964: x_return_status := FND_API.G_RET_STS_ERROR;
1965: RAISE;
1966: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1967: ROLLBACK TO DeleteBSCDataSeriesPUB;
1968: FND_MSG_PUB.Count_And_Get
1969: ( p_encoded => FND_API.G_FALSE
1970: , p_count => x_msg_count
1965: RAISE;
1966: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1967: ROLLBACK TO DeleteBSCDataSeriesPUB;
1968: FND_MSG_PUB.Count_And_Get
1969: ( p_encoded => FND_API.G_FALSE
1970: , p_count => x_msg_count
1971: , p_data => x_msg_data
1972: );
1973: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1969: ( p_encoded => FND_API.G_FALSE
1970: , p_count => x_msg_count
1971: , p_data => x_msg_data
1972: );
1973: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1974: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1975: RAISE;
1976: WHEN OTHERS THEN
1977: ROLLBACK TO DeleteBSCDataSeriesPUB;
1970: , p_count => x_msg_count
1971: , p_data => x_msg_data
1972: );
1973: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1974: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1975: RAISE;
1976: WHEN OTHERS THEN
1977: ROLLBACK TO DeleteBSCDataSeriesPUB;
1978: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1974: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1975: RAISE;
1976: WHEN OTHERS THEN
1977: ROLLBACK TO DeleteBSCDataSeriesPUB;
1978: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1979: IF (x_msg_data IS NOT NULL) THEN
1980: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PUB.Delete_Data_Series ';
1981: ELSE
1982: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PUB.Delete_Data_Series ';
2022: p_Anal_Opt_Rec.Bsc_Dataset_Series_Id;
2023: p_Anal_Opt_Rec.Bsc_Dataset_New_Series_Id;
2024: ----------------------------------------------------------------------------*/
2025: procedure Swap_Data_Series_Id(
2026: p_commit IN varchar2 -- := FND_API.G_FALSE
2027: ,p_Anal_Opt_Rec IN BSC_ANALYSIS_OPTION_PUB.Bsc_Option_Rec_Type
2028: ,x_return_status OUT NOCOPY varchar2
2029: ,x_msg_count OUT NOCOPY number
2030: ,x_msg_data OUT NOCOPY varchar2
2041: BEGIN
2042: FND_MSG_PUB.Initialize;
2043: SAVEPOINT SwapDataSeriesPUB;
2044:
2045: x_return_status := FND_API.G_RET_STS_SUCCESS;
2046:
2047: l_Anal_Opt_Rec := p_Anal_Opt_Rec;
2048: -- Swaping
2049: BSC_ANALYSIS_OPTION_PVT.Swap_Data_Series_Id(
2046:
2047: l_Anal_Opt_Rec := p_Anal_Opt_Rec;
2048: -- Swaping
2049: BSC_ANALYSIS_OPTION_PVT.Swap_Data_Series_Id(
2050: p_commit => FND_API.G_FALSE
2051: ,p_Anal_Opt_Rec => l_Anal_Opt_Rec
2052: ,x_return_status => x_return_status
2053: ,x_msg_count => x_msg_count
2054: ,x_msg_data => x_msg_data
2056: -- Cascading Swaping
2057: FOR cd IN c_kpi_ids LOOP
2058: l_Anal_Opt_Rec.Bsc_Kpi_Id := cd.Indicator;
2059: BSC_ANALYSIS_OPTION_PVT.Swap_Data_Series_Id(
2060: p_commit => FND_API.G_FALSE
2061: ,p_Anal_Opt_Rec => l_Anal_Opt_Rec
2062: ,x_return_status => x_return_status
2063: ,x_msg_count => x_msg_count
2064: ,x_msg_data => x_msg_data
2064: ,x_msg_data => x_msg_data
2065: );
2066: END LOOP;
2067:
2068: IF p_commit = FND_API.G_TRUE THEN
2069: COMMIT;
2070: END IF;
2071:
2072: EXCEPTION
2069: COMMIT;
2070: END IF;
2071:
2072: EXCEPTION
2073: WHEN FND_API.G_EXC_ERROR THEN
2074: IF (c_kpi_ids%ISOPEN) THEN
2075: CLOSE c_kpi_ids;
2076: END IF;
2077: ROLLBACK TO SwapDataSeriesPUB;
2075: CLOSE c_kpi_ids;
2076: END IF;
2077: ROLLBACK TO SwapDataSeriesPUB;
2078: FND_MSG_PUB.Count_And_Get
2079: ( p_encoded => FND_API.G_FALSE
2080: , p_count => x_msg_count
2081: , p_data => x_msg_data
2082: );
2083: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2079: ( p_encoded => FND_API.G_FALSE
2080: , p_count => x_msg_count
2081: , p_data => x_msg_data
2082: );
2083: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2084: x_return_status := FND_API.G_RET_STS_ERROR;
2085: RAISE;
2086: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2087: IF (c_kpi_ids%ISOPEN) THEN
2080: , p_count => x_msg_count
2081: , p_data => x_msg_data
2082: );
2083: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2084: x_return_status := FND_API.G_RET_STS_ERROR;
2085: RAISE;
2086: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2087: IF (c_kpi_ids%ISOPEN) THEN
2088: CLOSE c_kpi_ids;
2082: );
2083: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2084: x_return_status := FND_API.G_RET_STS_ERROR;
2085: RAISE;
2086: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2087: IF (c_kpi_ids%ISOPEN) THEN
2088: CLOSE c_kpi_ids;
2089: END IF;
2090: ROLLBACK TO SwapDataSeriesPUB;
2088: CLOSE c_kpi_ids;
2089: END IF;
2090: ROLLBACK TO SwapDataSeriesPUB;
2091: FND_MSG_PUB.Count_And_Get
2092: ( p_encoded => FND_API.G_FALSE
2093: , p_count => x_msg_count
2094: , p_data => x_msg_data
2095: );
2096: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2092: ( p_encoded => FND_API.G_FALSE
2093: , p_count => x_msg_count
2094: , p_data => x_msg_data
2095: );
2096: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2097: IF (x_msg_data IS NOT NULL) THEN
2098: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PUB.Swap_Data_Series_Id ';
2099: ELSE
2100: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PUB.Swap_Data_Series_Id ';
2104: IF (c_kpi_ids%ISOPEN) THEN
2105: CLOSE c_kpi_ids;
2106: END IF;
2107: ROLLBACK TO SwapDataSeriesPUB;
2108: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2109: IF (x_msg_data IS NOT NULL) THEN
2110: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PUB.Swap_Data_Series_Id ';
2111: ELSE
2112: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PUB.Swap_Data_Series_Id ';
2123: p_Measure_Seq : contains the sh
2124:
2125: ------------------------------------------------------------------------*/
2126: procedure Rearrange_Data_Series(
2127: p_commit IN varchar2 -- FND_API.G_FALSE
2128: ,p_Kpi_Id IN number
2129: ,p_option_group0 IN number
2130: ,p_option_group1 IN number
2131: ,p_option_group2 IN number
2129: ,p_option_group0 IN number
2130: ,p_option_group1 IN number
2131: ,p_option_group2 IN number
2132: ,p_Measure_Seq IN varchar2
2133: ,p_add_flag IN varchar2 -- FND_API.G_FALSE
2134: ,p_remove_flag IN varchar2 -- FND_API.G_FALSE
2135: ,x_return_status OUT NOCOPY varchar2
2136: ,x_msg_count OUT NOCOPY number
2137: ,x_msg_data OUT NOCOPY varchar2
2130: ,p_option_group1 IN number
2131: ,p_option_group2 IN number
2132: ,p_Measure_Seq IN varchar2
2133: ,p_add_flag IN varchar2 -- FND_API.G_FALSE
2134: ,p_remove_flag IN varchar2 -- FND_API.G_FALSE
2135: ,x_return_status OUT NOCOPY varchar2
2136: ,x_msg_count OUT NOCOPY number
2137: ,x_msg_data OUT NOCOPY varchar2
2138: ) is
2218: -- Get the Series Id
2219: FOR CD1 IN c_Data_Series LOOP
2220: l_Anal_Opt_Rec.Bsc_Dataset_Series_Id := CD1.SERIES_ID;
2221: END LOOP;
2222: IF p_add_flag = FND_API.G_TRUE
2223: AND l_Anal_Opt_Rec.Bsc_Dataset_Series_Id IS NULL THEN
2224: --- Create the Data Series for the new Data Set ID
2225: Create_Data_Series(
2226: p_commit => p_commit
2247: ELSE
2248: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_MEAS_ID');
2249: FND_MESSAGE.SET_TOKEN('BSC_MEAS', l_short_name);
2250: FND_MSG_PUB.ADD;
2251: RAISE FND_API.G_EXC_ERROR;
2252: END IF;
2253:
2254: END LOOP;
2255: END IF;
2253:
2254: END LOOP;
2255: END IF;
2256: -- Remove the Data Series not used
2257: IF p_remove_flag = FND_API.G_TRUE THEN
2258: FOR CD IN c_Data_Series_Remove LOOP
2259: l_Anal_Opt_Rec.Bsc_Dataset_Series_Id := CD.SERIES_ID;
2260: Delete_Data_Series(
2261: p_commit => p_commit
2269: END IF;
2270:
2271:
2272: EXCEPTION
2273: WHEN FND_API.G_EXC_ERROR THEN
2274: IF (c_Data_Series%ISOPEN) THEN
2275: CLOSE c_Data_Series;
2276: END IF;
2277: ROLLBACK TO SwapDataSeriesPVT;
2275: CLOSE c_Data_Series;
2276: END IF;
2277: ROLLBACK TO SwapDataSeriesPVT;
2278: FND_MSG_PUB.Count_And_Get
2279: ( p_encoded => FND_API.G_FALSE
2280: , p_count => x_msg_count
2281: , p_data => x_msg_data
2282: );
2283: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2279: ( p_encoded => FND_API.G_FALSE
2280: , p_count => x_msg_count
2281: , p_data => x_msg_data
2282: );
2283: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2284: x_return_status := FND_API.G_RET_STS_ERROR;
2285: RAISE;
2286: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2287: IF (c_Data_Series%ISOPEN) THEN
2280: , p_count => x_msg_count
2281: , p_data => x_msg_data
2282: );
2283: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2284: x_return_status := FND_API.G_RET_STS_ERROR;
2285: RAISE;
2286: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2287: IF (c_Data_Series%ISOPEN) THEN
2288: CLOSE c_Data_Series;
2282: );
2283: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2284: x_return_status := FND_API.G_RET_STS_ERROR;
2285: RAISE;
2286: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2287: IF (c_Data_Series%ISOPEN) THEN
2288: CLOSE c_Data_Series;
2289: END IF;
2290: ROLLBACK TO RearrangeDataSeriesPVT;
2288: CLOSE c_Data_Series;
2289: END IF;
2290: ROLLBACK TO RearrangeDataSeriesPVT;
2291: FND_MSG_PUB.Count_And_Get
2292: ( p_encoded => FND_API.G_FALSE
2293: , p_count => x_msg_count
2294: , p_data => x_msg_data
2295: );
2296: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2292: ( p_encoded => FND_API.G_FALSE
2293: , p_count => x_msg_count
2294: , p_data => x_msg_data
2295: );
2296: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2297: RAISE;
2298: WHEN OTHERS THEN
2299: IF (c_Data_Series%ISOPEN) THEN
2300: CLOSE c_Data_Series;
2299: IF (c_Data_Series%ISOPEN) THEN
2300: CLOSE c_Data_Series;
2301: END IF;
2302: ROLLBACK TO RearrangeDataSeriesPVT;
2303: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2304: IF (x_msg_data IS NOT NULL) THEN
2305: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PUB.Rearrange_Data_Series ';
2306: ELSE
2307: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PUB.Rearrange_Data_Series ';
2497: );
2498:
2499:
2500: EXCEPTION
2501: WHEN FND_API.G_EXC_ERROR THEN
2502: FND_MSG_PUB.Count_And_Get
2503: ( p_encoded => FND_API.G_FALSE
2504: , p_count => x_msg_count
2505: , p_data => x_msg_data
2499:
2500: EXCEPTION
2501: WHEN FND_API.G_EXC_ERROR THEN
2502: FND_MSG_PUB.Count_And_Get
2503: ( p_encoded => FND_API.G_FALSE
2504: , p_count => x_msg_count
2505: , p_data => x_msg_data
2506: );
2507: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2503: ( p_encoded => FND_API.G_FALSE
2504: , p_count => x_msg_count
2505: , p_data => x_msg_data
2506: );
2507: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2508: x_return_status := FND_API.G_RET_STS_ERROR;
2509: RAISE;
2510: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2511: FND_MSG_PUB.Count_And_Get
2504: , p_count => x_msg_count
2505: , p_data => x_msg_data
2506: );
2507: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2508: x_return_status := FND_API.G_RET_STS_ERROR;
2509: RAISE;
2510: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2511: FND_MSG_PUB.Count_And_Get
2512: ( p_encoded => FND_API.G_FALSE
2506: );
2507: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
2508: x_return_status := FND_API.G_RET_STS_ERROR;
2509: RAISE;
2510: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2511: FND_MSG_PUB.Count_And_Get
2512: ( p_encoded => FND_API.G_FALSE
2513: , p_count => x_msg_count
2514: , p_data => x_msg_data
2508: x_return_status := FND_API.G_RET_STS_ERROR;
2509: RAISE;
2510: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2511: FND_MSG_PUB.Count_And_Get
2512: ( p_encoded => FND_API.G_FALSE
2513: , p_count => x_msg_count
2514: , p_data => x_msg_data
2515: );
2516: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2512: ( p_encoded => FND_API.G_FALSE
2513: , p_count => x_msg_count
2514: , p_data => x_msg_data
2515: );
2516: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2517: RAISE;
2518: WHEN OTHERS THEN
2519: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2520: IF (x_msg_data IS NOT NULL) THEN
2515: );
2516: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2517: RAISE;
2518: WHEN OTHERS THEN
2519: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2520: IF (x_msg_data IS NOT NULL) THEN
2521: x_msg_data := x_msg_data||' -> BSC_ANALYSIS_OPTION_PUB.Set_Default_Analysis_Option ';
2522: ELSE
2523: x_msg_data := SQLERRM||' at BSC_ANALYSIS_OPTION_PUB.Set_Default_Analysis_Option ';