7: --: Data Set API.
8: --: This procedure is part of the Data Set API.
9: -- mdamle 03/12/2003 - PMD - Measure Definer - Added x_dataset_id
10: procedure Create_Measures (
11: p_commit IN varchar2 := FND_API.G_FALSE
12: ,p_Dataset_Rec IN BSC_DATASETS_PUB.Bsc_Dataset_Rec_Type
13: ,x_Dataset_Id OUT NOCOPY number
14: ,x_return_status OUT NOCOPY varchar2
15: ,x_msg_count OUT NOCOPY number
19: l_Dataset_Rec BSC_DATASETS_PUB.Bsc_Dataset_Rec_Type;
20: l_measure_col BSC_SYS_MEASURES.MEASURE_COL%TYPE;
21:
22: begin
23: x_return_status := FND_API.G_RET_STS_SUCCESS;
24: -- Assign all values in the passed "Record" parameter to the locally defined
25: -- "Record" variable.
26: l_Dataset_Rec := p_Dataset_Rec;
27:
117: end if;
118:
119:
120: EXCEPTION
121: WHEN FND_API.G_EXC_ERROR THEN
122: IF (x_msg_data IS NULL) THEN
123: FND_MSG_PUB.Count_And_Get
124: ( p_encoded => FND_API.G_FALSE
125: , p_count => x_msg_count
120: EXCEPTION
121: WHEN FND_API.G_EXC_ERROR THEN
122: IF (x_msg_data IS NULL) THEN
123: FND_MSG_PUB.Count_And_Get
124: ( p_encoded => FND_API.G_FALSE
125: , p_count => x_msg_count
126: , p_data => x_msg_data
127: );
128: END IF;
125: , p_count => x_msg_count
126: , p_data => x_msg_data
127: );
128: END IF;
129: x_return_status := FND_API.G_RET_STS_ERROR;
130: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
131: IF (x_msg_data IS NULL) THEN
132: FND_MSG_PUB.Count_And_Get
133: ( p_encoded => FND_API.G_FALSE
126: , p_data => x_msg_data
127: );
128: END IF;
129: x_return_status := FND_API.G_RET_STS_ERROR;
130: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
131: IF (x_msg_data IS NULL) THEN
132: FND_MSG_PUB.Count_And_Get
133: ( p_encoded => FND_API.G_FALSE
134: , p_count => x_msg_count
129: x_return_status := FND_API.G_RET_STS_ERROR;
130: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
131: IF (x_msg_data IS NULL) THEN
132: FND_MSG_PUB.Count_And_Get
133: ( p_encoded => FND_API.G_FALSE
134: , p_count => x_msg_count
135: , p_data => x_msg_data
136: );
137: END IF;
134: , p_count => x_msg_count
135: , p_data => x_msg_data
136: );
137: END IF;
138: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
139: WHEN NO_DATA_FOUND THEN
140: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
141: IF (x_msg_data IS NOT NULL) THEN
142: x_msg_data := x_msg_data||' -> BSC_DATASETS_PUB.Create_Measures ';
136: );
137: END IF;
138: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
139: WHEN NO_DATA_FOUND THEN
140: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
141: IF (x_msg_data IS NOT NULL) THEN
142: x_msg_data := x_msg_data||' -> BSC_DATASETS_PUB.Create_Measures ';
143: ELSE
144: x_msg_data := SQLERRM||' at BSC_DATASETS_PUB.Create_Measures ';
143: ELSE
144: x_msg_data := SQLERRM||' at BSC_DATASETS_PUB.Create_Measures ';
145: END IF;
146: WHEN OTHERS THEN
147: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
148: IF (x_msg_data IS NOT NULL) THEN
149: x_msg_data := x_msg_data||' -> BSC_DATASETS_PUB.Create_Measures ';
150: ELSE
151: x_msg_data := SQLERRM||' at BSC_DATASETS_PUB.Create_Measures ';
156: ************************************************************************************/
157:
158: -- ADRAO : Overloaded for iBuilder
159: procedure Create_Measures (
160: p_commit IN varchar2 := FND_API.G_FALSE
161: ,p_Dataset_Rec IN BSC_DATASETS_PUB.Bsc_Dataset_Rec_Type
162: ,x_return_status OUT NOCOPY varchar2
163: ,x_msg_count OUT NOCOPY number
164: ,x_msg_data OUT NOCOPY varchar2
167: l_Dataset_Rec BSC_DATASETS_PUB.Bsc_Dataset_Rec_Type;
168: l_measure_col BSC_SYS_MEASURES.MEASURE_COL%TYPE;
169:
170: begin
171: x_return_status := FND_API.G_RET_STS_SUCCESS;
172: -- Assign all values in the passed "Record" parameter to the locally defined
173: -- "Record" variable.
174: l_Dataset_Rec := p_Dataset_Rec;
175:
262: end if;
263:
264:
265: EXCEPTION
266: WHEN FND_API.G_EXC_ERROR THEN
267: IF (x_msg_data IS NULL) THEN
268: FND_MSG_PUB.Count_And_Get
269: ( p_encoded => FND_API.G_FALSE
270: , p_count => x_msg_count
265: EXCEPTION
266: WHEN FND_API.G_EXC_ERROR THEN
267: IF (x_msg_data IS NULL) THEN
268: FND_MSG_PUB.Count_And_Get
269: ( p_encoded => FND_API.G_FALSE
270: , p_count => x_msg_count
271: , p_data => x_msg_data
272: );
273: END IF;
270: , p_count => x_msg_count
271: , p_data => x_msg_data
272: );
273: END IF;
274: x_return_status := FND_API.G_RET_STS_ERROR;
275: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
276: IF (x_msg_data IS NULL) THEN
277: FND_MSG_PUB.Count_And_Get
278: ( p_encoded => FND_API.G_FALSE
271: , p_data => x_msg_data
272: );
273: END IF;
274: x_return_status := FND_API.G_RET_STS_ERROR;
275: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
276: IF (x_msg_data IS NULL) THEN
277: FND_MSG_PUB.Count_And_Get
278: ( p_encoded => FND_API.G_FALSE
279: , p_count => x_msg_count
274: x_return_status := FND_API.G_RET_STS_ERROR;
275: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
276: IF (x_msg_data IS NULL) THEN
277: FND_MSG_PUB.Count_And_Get
278: ( p_encoded => FND_API.G_FALSE
279: , p_count => x_msg_count
280: , p_data => x_msg_data
281: );
282: END IF;
279: , p_count => x_msg_count
280: , p_data => x_msg_data
281: );
282: END IF;
283: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
284: WHEN NO_DATA_FOUND THEN
285: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
286: IF (x_msg_data IS NOT NULL) THEN
287: x_msg_data := x_msg_data||' -> BSC_DATASETS_PUB.Create_Measures ';
281: );
282: END IF;
283: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
284: WHEN NO_DATA_FOUND THEN
285: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
286: IF (x_msg_data IS NOT NULL) THEN
287: x_msg_data := x_msg_data||' -> BSC_DATASETS_PUB.Create_Measures ';
288: ELSE
289: x_msg_data := SQLERRM||' at BSC_DATASETS_PUB.Create_Measures ';
288: ELSE
289: x_msg_data := SQLERRM||' at BSC_DATASETS_PUB.Create_Measures ';
290: END IF;
291: WHEN OTHERS THEN
292: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
293: IF (x_msg_data IS NOT NULL) THEN
294: x_msg_data := x_msg_data||' -> BSC_DATASETS_PUB.Create_Measures ';
295: ELSE
296: x_msg_data := SQLERRM||' at BSC_DATASETS_PUB.Create_Measures ';
302: ************************************************************************************/
303: -- ADRAO : Overloaded for iBuilder
304:
305: procedure Retrieve_Measures(
306: p_commit IN varchar2 := FND_API.G_FALSE
307: ,p_Dataset_Rec IN BSC_DATASETS_PUB.Bsc_Dataset_Rec_Type
308: ,x_Dataset_Rec IN OUT NOCOPY BSC_DATASETS_PUB.Bsc_Dataset_Rec_Type
309: ,x_return_status OUT NOCOPY varchar2
310: ,x_msg_count OUT NOCOPY number
311: ,x_msg_data OUT NOCOPY varchar2
312: ) is
313:
314: begin
315: x_return_status := FND_API.G_RET_STS_SUCCESS;
316: BSC_DATASETS_PVT.Retrieve_Measures( p_commit
317: ,p_Dataset_Rec
318: ,x_Dataset_Rec
319: ,x_return_status
327: ,x_msg_count
328: ,x_msg_data);
329:
330: EXCEPTION
331: WHEN FND_API.G_EXC_ERROR THEN
332: IF (x_msg_data IS NULL) THEN
333: FND_MSG_PUB.Count_And_Get
334: ( p_encoded => FND_API.G_FALSE
335: , p_count => x_msg_count
330: EXCEPTION
331: WHEN FND_API.G_EXC_ERROR THEN
332: IF (x_msg_data IS NULL) THEN
333: FND_MSG_PUB.Count_And_Get
334: ( p_encoded => FND_API.G_FALSE
335: , p_count => x_msg_count
336: , p_data => x_msg_data
337: );
338: END IF;
335: , p_count => x_msg_count
336: , p_data => x_msg_data
337: );
338: END IF;
339: x_return_status := FND_API.G_RET_STS_ERROR;
340: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
341: IF (x_msg_data IS NULL) THEN
342: FND_MSG_PUB.Count_And_Get
343: ( p_encoded => FND_API.G_FALSE
336: , p_data => x_msg_data
337: );
338: END IF;
339: x_return_status := FND_API.G_RET_STS_ERROR;
340: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
341: IF (x_msg_data IS NULL) THEN
342: FND_MSG_PUB.Count_And_Get
343: ( p_encoded => FND_API.G_FALSE
344: , p_count => x_msg_count
339: x_return_status := FND_API.G_RET_STS_ERROR;
340: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
341: IF (x_msg_data IS NULL) THEN
342: FND_MSG_PUB.Count_And_Get
343: ( p_encoded => FND_API.G_FALSE
344: , p_count => x_msg_count
345: , p_data => x_msg_data
346: );
347: END IF;
344: , p_count => x_msg_count
345: , p_data => x_msg_data
346: );
347: END IF;
348: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
349: WHEN NO_DATA_FOUND THEN
350: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
351: IF (x_msg_data IS NOT NULL) THEN
352: x_msg_data := x_msg_data||' -> BSC_DATASETS_PUB.Retrieve_Measures ';
346: );
347: END IF;
348: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
349: WHEN NO_DATA_FOUND THEN
350: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
351: IF (x_msg_data IS NOT NULL) THEN
352: x_msg_data := x_msg_data||' -> BSC_DATASETS_PUB.Retrieve_Measures ';
353: ELSE
354: x_msg_data := SQLERRM||' at BSC_DATASETS_PUB.Retrieve_Measures ';
353: ELSE
354: x_msg_data := SQLERRM||' at BSC_DATASETS_PUB.Retrieve_Measures ';
355: END IF;
356: WHEN OTHERS THEN
357: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
358: IF (x_msg_data IS NOT NULL) THEN
359: x_msg_data := x_msg_data||' -> BSC_DATASETS_PUB.Retrieve_Measures ';
360: ELSE
361: x_msg_data := SQLERRM||' at BSC_DATASETS_PUB.Retrieve_Measures ';
365: /************************************************************************************
366: ************************************************************************************/
367:
368: procedure Update_Measures(
369: p_commit IN varchar2 := FND_API.G_FALSE
370: ,p_Dataset_Rec IN BSC_DATASETS_PUB.Bsc_Dataset_Rec_Type
371: ,x_return_status OUT NOCOPY varchar2
372: ,x_msg_count OUT NOCOPY number
373: ,x_msg_data OUT NOCOPY varchar2
373: ,x_msg_data OUT NOCOPY varchar2
374: ) is
375:
376: begin
377: x_return_status := FND_API.G_RET_STS_SUCCESS;
378: BSC_DATASETS_PVT.Update_Measures( p_commit
379: ,p_Dataset_Rec
380: ,x_return_status
381: ,x_msg_count
387: ,x_msg_count
388: ,x_msg_data);
389:
390: EXCEPTION
391: WHEN FND_API.G_EXC_ERROR THEN
392: IF (x_msg_data IS NULL) THEN
393: FND_MSG_PUB.Count_And_Get
394: ( p_encoded => FND_API.G_FALSE
395: , p_count => x_msg_count
390: EXCEPTION
391: WHEN FND_API.G_EXC_ERROR THEN
392: IF (x_msg_data IS NULL) THEN
393: FND_MSG_PUB.Count_And_Get
394: ( p_encoded => FND_API.G_FALSE
395: , p_count => x_msg_count
396: , p_data => x_msg_data
397: );
398: END IF;
395: , p_count => x_msg_count
396: , p_data => x_msg_data
397: );
398: END IF;
399: x_return_status := FND_API.G_RET_STS_ERROR;
400: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
401: IF (x_msg_data IS NULL) THEN
402: FND_MSG_PUB.Count_And_Get
403: ( p_encoded => FND_API.G_FALSE
396: , p_data => x_msg_data
397: );
398: END IF;
399: x_return_status := FND_API.G_RET_STS_ERROR;
400: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
401: IF (x_msg_data IS NULL) THEN
402: FND_MSG_PUB.Count_And_Get
403: ( p_encoded => FND_API.G_FALSE
404: , p_count => x_msg_count
399: x_return_status := FND_API.G_RET_STS_ERROR;
400: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
401: IF (x_msg_data IS NULL) THEN
402: FND_MSG_PUB.Count_And_Get
403: ( p_encoded => FND_API.G_FALSE
404: , p_count => x_msg_count
405: , p_data => x_msg_data
406: );
407: END IF;
404: , p_count => x_msg_count
405: , p_data => x_msg_data
406: );
407: END IF;
408: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
409: WHEN NO_DATA_FOUND THEN
410: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
411: IF (x_msg_data IS NOT NULL) THEN
412: x_msg_data := x_msg_data||' -> BSC_DATASETS_PUB.Update_Measures ';
406: );
407: END IF;
408: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
409: WHEN NO_DATA_FOUND THEN
410: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
411: IF (x_msg_data IS NOT NULL) THEN
412: x_msg_data := x_msg_data||' -> BSC_DATASETS_PUB.Update_Measures ';
413: ELSE
414: x_msg_data := SQLERRM||' at BSC_DATASETS_PUB.Update_Measures ';
413: ELSE
414: x_msg_data := SQLERRM||' at BSC_DATASETS_PUB.Update_Measures ';
415: END IF;
416: WHEN OTHERS THEN
417: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
418: IF (x_msg_data IS NOT NULL) THEN
419: x_msg_data := x_msg_data||' -> BSC_DATASETS_PUB.Update_Measures ';
420: ELSE
421: x_msg_data := SQLERRM||' at BSC_DATASETS_PUB.Update_Measures ';
426: ************************************************************************************/
427:
428: -- mdamle 04/23/2003 - PMD - Measure Definer - Added p_update_dset_calc
429: procedure Update_Measures(
430: p_commit IN varchar2 := FND_API.G_FALSE
431: ,p_Dataset_Rec IN BSC_DATASETS_PUB.Bsc_Dataset_Rec_Type
432: ,p_update_dset_calc IN BOOLEAN
433: ,x_return_status OUT NOCOPY varchar2
434: ,x_msg_count OUT NOCOPY number
435: ,x_msg_data OUT NOCOPY varchar2
436: )is
437:
438: begin
439: x_return_status := FND_API.G_RET_STS_SUCCESS;
440: BSC_DATASETS_PVT.Update_Measures( p_commit
441: ,p_Dataset_Rec
442: ,x_return_status
443: ,x_msg_count
450: ,x_msg_count
451: ,x_msg_data);
452:
453: EXCEPTION
454: WHEN FND_API.G_EXC_ERROR THEN
455: IF (x_msg_data IS NULL) THEN
456: FND_MSG_PUB.Count_And_Get
457: ( p_encoded => FND_API.G_FALSE
458: , p_count => x_msg_count
453: EXCEPTION
454: WHEN FND_API.G_EXC_ERROR THEN
455: IF (x_msg_data IS NULL) THEN
456: FND_MSG_PUB.Count_And_Get
457: ( p_encoded => FND_API.G_FALSE
458: , p_count => x_msg_count
459: , p_data => x_msg_data
460: );
461: END IF;
458: , p_count => x_msg_count
459: , p_data => x_msg_data
460: );
461: END IF;
462: x_return_status := FND_API.G_RET_STS_ERROR;
463: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
464: IF (x_msg_data IS NULL) THEN
465: FND_MSG_PUB.Count_And_Get
466: ( p_encoded => FND_API.G_FALSE
459: , p_data => x_msg_data
460: );
461: END IF;
462: x_return_status := FND_API.G_RET_STS_ERROR;
463: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
464: IF (x_msg_data IS NULL) THEN
465: FND_MSG_PUB.Count_And_Get
466: ( p_encoded => FND_API.G_FALSE
467: , p_count => x_msg_count
462: x_return_status := FND_API.G_RET_STS_ERROR;
463: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
464: IF (x_msg_data IS NULL) THEN
465: FND_MSG_PUB.Count_And_Get
466: ( p_encoded => FND_API.G_FALSE
467: , p_count => x_msg_count
468: , p_data => x_msg_data
469: );
470: END IF;
467: , p_count => x_msg_count
468: , p_data => x_msg_data
469: );
470: END IF;
471: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
472: WHEN NO_DATA_FOUND THEN
473: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
474: IF (x_msg_data IS NOT NULL) THEN
475: x_msg_data := x_msg_data||' -> BSC_DATASETS_PUB.Update_Measures ';
469: );
470: END IF;
471: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
472: WHEN NO_DATA_FOUND THEN
473: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
474: IF (x_msg_data IS NOT NULL) THEN
475: x_msg_data := x_msg_data||' -> BSC_DATASETS_PUB.Update_Measures ';
476: ELSE
477: x_msg_data := SQLERRM||' at BSC_DATASETS_PUB.Update_Measures ';
476: ELSE
477: x_msg_data := SQLERRM||' at BSC_DATASETS_PUB.Update_Measures ';
478: END IF;
479: WHEN OTHERS THEN
480: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
481: IF (x_msg_data IS NOT NULL) THEN
482: x_msg_data := x_msg_data||' -> BSC_DATASETS_PUB.Update_Measures ';
483: ELSE
484: x_msg_data := SQLERRM||' at BSC_DATASETS_PUB.Update_Measures ';
488: /************************************************************************************
489: ************************************************************************************/
490:
491: procedure Delete_Measures(
492: p_commit IN varchar2 := FND_API.G_FALSE
493: ,p_Dataset_Rec IN BSC_DATASETS_PUB.Bsc_Dataset_Rec_Type
494: ,x_return_status OUT NOCOPY varchar2
495: ,x_msg_count OUT NOCOPY number
496: ,x_msg_data OUT NOCOPY varchar2
496: ,x_msg_data OUT NOCOPY varchar2
497: ) is
498:
499: begin
500: x_return_status := FND_API.G_RET_STS_SUCCESS;
501: Delete_Dataset( p_commit
502: ,p_Dataset_Rec
503: ,x_return_status
504: ,x_msg_count
503: ,x_return_status
504: ,x_msg_count
505: ,x_msg_data);
506:
507: IF ( (x_return_status = FND_API.G_RET_STS_SUCCESS) OR (x_return_status IS NULL) ) THEN
508: BSC_DATASETS_PVT.Delete_Measures( p_commit
509: ,p_Dataset_Rec
510: ,x_return_status
511: ,x_msg_count
512: ,x_msg_data);
513: END IF;
514:
515: EXCEPTION
516: WHEN FND_API.G_EXC_ERROR THEN
517: IF (x_msg_data IS NULL) THEN
518: FND_MSG_PUB.Count_And_Get
519: ( p_encoded => FND_API.G_FALSE
520: , p_count => x_msg_count
515: EXCEPTION
516: WHEN FND_API.G_EXC_ERROR THEN
517: IF (x_msg_data IS NULL) THEN
518: FND_MSG_PUB.Count_And_Get
519: ( p_encoded => FND_API.G_FALSE
520: , p_count => x_msg_count
521: , p_data => x_msg_data
522: );
523: END IF;
520: , p_count => x_msg_count
521: , p_data => x_msg_data
522: );
523: END IF;
524: x_return_status := FND_API.G_RET_STS_ERROR;
525: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
526: IF (x_msg_data IS NULL) THEN
527: FND_MSG_PUB.Count_And_Get
528: ( p_encoded => FND_API.G_FALSE
521: , p_data => x_msg_data
522: );
523: END IF;
524: x_return_status := FND_API.G_RET_STS_ERROR;
525: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
526: IF (x_msg_data IS NULL) THEN
527: FND_MSG_PUB.Count_And_Get
528: ( p_encoded => FND_API.G_FALSE
529: , p_count => x_msg_count
524: x_return_status := FND_API.G_RET_STS_ERROR;
525: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
526: IF (x_msg_data IS NULL) THEN
527: FND_MSG_PUB.Count_And_Get
528: ( p_encoded => FND_API.G_FALSE
529: , p_count => x_msg_count
530: , p_data => x_msg_data
531: );
532: END IF;
529: , p_count => x_msg_count
530: , p_data => x_msg_data
531: );
532: END IF;
533: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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_DATASETS_PUB.Delete_Measures ';
531: );
532: END IF;
533: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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_DATASETS_PUB.Delete_Measures ';
538: ELSE
539: x_msg_data := SQLERRM||' at BSC_DATASETS_PUB.Delete_Measures ';
538: ELSE
539: x_msg_data := SQLERRM||' at BSC_DATASETS_PUB.Delete_Measures ';
540: END IF;
541: WHEN OTHERS THEN
542: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
543: IF (x_msg_data IS NOT NULL) THEN
544: x_msg_data := x_msg_data||' -> BSC_DATASETS_PUB.Delete_Measures ';
545: ELSE
546: x_msg_data := SQLERRM||' at BSC_DATASETS_PUB.Delete_Measures ';
551: ************************************************************************************/
552: /*
553:
554: procedure Create_Formats(
555: p_commit IN varchar2 := FND_API.G_FALSE
556: ,p_Dataset_Rec IN BSC_DATASETS_PUB.Bsc_Dataset_Rec_Type
557: ,x_return_status OUT NOCOPY varchar2
558: ,x_msg_count OUT NOCOPY number
559: ,x_msg_data OUT NOCOPY varchar2
559: ,x_msg_data OUT NOCOPY varchar2
560: ) is
561:
562: begin
563: x_return_status := FND_API.G_RET_STS_SUCCESS;
564: EXCEPTION
565: WHEN FND_API.G_EXC_ERROR THEN
566: IF (x_msg_data IS NULL) THEN
567: FND_MSG_PUB.Count_And_Get
561:
562: begin
563: x_return_status := FND_API.G_RET_STS_SUCCESS;
564: EXCEPTION
565: WHEN FND_API.G_EXC_ERROR THEN
566: IF (x_msg_data IS NULL) THEN
567: FND_MSG_PUB.Count_And_Get
568: ( p_encoded => FND_API.G_FALSE
569: , p_count => x_msg_count
564: EXCEPTION
565: WHEN FND_API.G_EXC_ERROR THEN
566: IF (x_msg_data IS NULL) THEN
567: FND_MSG_PUB.Count_And_Get
568: ( p_encoded => FND_API.G_FALSE
569: , p_count => x_msg_count
570: , p_data => x_msg_data
571: );
572: END IF;
569: , p_count => x_msg_count
570: , p_data => x_msg_data
571: );
572: END IF;
573: x_return_status := FND_API.G_RET_STS_ERROR;
574: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
575: IF (x_msg_data IS NULL) THEN
576: FND_MSG_PUB.Count_And_Get
577: ( p_encoded => FND_API.G_FALSE
570: , p_data => x_msg_data
571: );
572: END IF;
573: x_return_status := FND_API.G_RET_STS_ERROR;
574: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
575: IF (x_msg_data IS NULL) THEN
576: FND_MSG_PUB.Count_And_Get
577: ( p_encoded => FND_API.G_FALSE
578: , p_count => x_msg_count
573: x_return_status := FND_API.G_RET_STS_ERROR;
574: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
575: IF (x_msg_data IS NULL) THEN
576: FND_MSG_PUB.Count_And_Get
577: ( p_encoded => FND_API.G_FALSE
578: , p_count => x_msg_count
579: , p_data => x_msg_data
580: );
581: END IF;
578: , p_count => x_msg_count
579: , p_data => x_msg_data
580: );
581: END IF;
582: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
583: WHEN NO_DATA_FOUND THEN
584: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
585: IF (x_msg_data IS NOT NULL) THEN
586: x_msg_data := x_msg_data||' -> BSC_DATASETS_PUB.Create_Formats ';
580: );
581: END IF;
582: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
583: WHEN NO_DATA_FOUND THEN
584: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
585: IF (x_msg_data IS NOT NULL) THEN
586: x_msg_data := x_msg_data||' -> BSC_DATASETS_PUB.Create_Formats ';
587: ELSE
588: x_msg_data := SQLERRM||' at BSC_DATASETS_PUB.Create_Formats ';
587: ELSE
588: x_msg_data := SQLERRM||' at BSC_DATASETS_PUB.Create_Formats ';
589: END IF;
590: WHEN OTHERS THEN
591: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
592: IF (x_msg_data IS NOT NULL) THEN
593: x_msg_data := x_msg_data||' -> BSC_DATASETS_PUB.Create_Formats ';
594: ELSE
595: x_msg_data := SQLERRM||' at BSC_DATASETS_PUB.Create_Formats ';
601: ************************************************************************************/
602: /*
603:
604: procedure Delete_Formats(
605: p_commit IN varchar2 := FND_API.G_FALSE
606: ,p_Dataset_Rec IN BSC_DATASETS_PUB.Bsc_Dataset_Rec_Type
607: ,x_return_status OUT NOCOPY varchar2
608: ,x_msg_count OUT NOCOPY number
609: ,x_msg_data OUT NOCOPY varchar2
609: ,x_msg_data OUT NOCOPY varchar2
610: ) is
611:
612: begin
613: x_return_status := FND_API.G_RET_STS_SUCCESS;
614: EXCEPTION
615: WHEN FND_API.G_EXC_ERROR THEN
616: IF (x_msg_data IS NULL) THEN
617: FND_MSG_PUB.Count_And_Get
611:
612: begin
613: x_return_status := FND_API.G_RET_STS_SUCCESS;
614: EXCEPTION
615: WHEN FND_API.G_EXC_ERROR THEN
616: IF (x_msg_data IS NULL) THEN
617: FND_MSG_PUB.Count_And_Get
618: ( p_encoded => FND_API.G_FALSE
619: , p_count => x_msg_count
614: EXCEPTION
615: WHEN FND_API.G_EXC_ERROR THEN
616: IF (x_msg_data IS NULL) THEN
617: FND_MSG_PUB.Count_And_Get
618: ( p_encoded => FND_API.G_FALSE
619: , p_count => x_msg_count
620: , p_data => x_msg_data
621: );
622: END IF;
619: , p_count => x_msg_count
620: , p_data => x_msg_data
621: );
622: END IF;
623: x_return_status := FND_API.G_RET_STS_ERROR;
624: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
625: IF (x_msg_data IS NULL) THEN
626: FND_MSG_PUB.Count_And_Get
627: ( p_encoded => FND_API.G_FALSE
620: , p_data => x_msg_data
621: );
622: END IF;
623: x_return_status := FND_API.G_RET_STS_ERROR;
624: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
625: IF (x_msg_data IS NULL) THEN
626: FND_MSG_PUB.Count_And_Get
627: ( p_encoded => FND_API.G_FALSE
628: , p_count => x_msg_count
623: x_return_status := FND_API.G_RET_STS_ERROR;
624: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
625: IF (x_msg_data IS NULL) THEN
626: FND_MSG_PUB.Count_And_Get
627: ( p_encoded => FND_API.G_FALSE
628: , p_count => x_msg_count
629: , p_data => x_msg_data
630: );
631: END IF;
628: , p_count => x_msg_count
629: , p_data => x_msg_data
630: );
631: END IF;
632: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
633: WHEN NO_DATA_FOUND THEN
634: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
635: IF (x_msg_data IS NOT NULL) THEN
636: x_msg_data := x_msg_data||' -> BSC_DATASETS_PUB.Delete_Formats ';
630: );
631: END IF;
632: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
633: WHEN NO_DATA_FOUND THEN
634: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
635: IF (x_msg_data IS NOT NULL) THEN
636: x_msg_data := x_msg_data||' -> BSC_DATASETS_PUB.Delete_Formats ';
637: ELSE
638: x_msg_data := SQLERRM||' at BSC_DATASETS_PUB.Delete_Formats ';
637: ELSE
638: x_msg_data := SQLERRM||' at BSC_DATASETS_PUB.Delete_Formats ';
639: END IF;
640: WHEN OTHERS THEN
641: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
642: IF (x_msg_data IS NOT NULL) THEN
643: x_msg_data := x_msg_data||' -> BSC_DATASETS_PUB.Delete_Formats ';
644: ELSE
645: x_msg_data := SQLERRM||' at BSC_DATASETS_PUB.Delete_Formats ';
653: --: This procedure creates a dataset for the given measure.
654: --: This procedure is part of the Data Set API.
655: -- mdamle 04/23/2003 - PMD - Measure Definer - Added x_dataset_id
656: procedure Create_Dataset(
657: p_commit IN varchar2 := FND_API.G_FALSE
658: ,p_Dataset_Rec IN BSC_DATASETS_PUB.Bsc_Dataset_Rec_Type
659: ,x_Dataset_Id OUT NOCOPY number
660: ,x_return_status OUT NOCOPY varchar2
661: ,x_msg_count OUT NOCOPY number
666:
667: l_count number;
668:
669: begin
670: x_return_status := FND_API.G_RET_STS_SUCCESS;
671: -- Assign all values in the passed "Record" parameter to the locally defined
672: -- "Record" variable.
673: l_Dataset_Rec := p_Dataset_Rec;
674:
736: */
737: -- end if;
738:
739: EXCEPTION
740: WHEN FND_API.G_EXC_ERROR THEN
741: IF (x_msg_data IS NULL) THEN
742: FND_MSG_PUB.Count_And_Get
743: ( p_encoded => FND_API.G_FALSE
744: , p_count => x_msg_count
739: EXCEPTION
740: WHEN FND_API.G_EXC_ERROR THEN
741: IF (x_msg_data IS NULL) THEN
742: FND_MSG_PUB.Count_And_Get
743: ( p_encoded => FND_API.G_FALSE
744: , p_count => x_msg_count
745: , p_data => x_msg_data
746: );
747: END IF;
744: , p_count => x_msg_count
745: , p_data => x_msg_data
746: );
747: END IF;
748: x_return_status := FND_API.G_RET_STS_ERROR;
749: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
750: IF (x_msg_data IS NULL) THEN
751: FND_MSG_PUB.Count_And_Get
752: ( p_encoded => FND_API.G_FALSE
745: , p_data => x_msg_data
746: );
747: END IF;
748: x_return_status := FND_API.G_RET_STS_ERROR;
749: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
750: IF (x_msg_data IS NULL) THEN
751: FND_MSG_PUB.Count_And_Get
752: ( p_encoded => FND_API.G_FALSE
753: , p_count => x_msg_count
748: x_return_status := FND_API.G_RET_STS_ERROR;
749: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
750: IF (x_msg_data IS NULL) THEN
751: FND_MSG_PUB.Count_And_Get
752: ( p_encoded => FND_API.G_FALSE
753: , p_count => x_msg_count
754: , p_data => x_msg_data
755: );
756: END IF;
753: , p_count => x_msg_count
754: , p_data => x_msg_data
755: );
756: END IF;
757: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
758: WHEN NO_DATA_FOUND THEN
759: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
760: IF (x_msg_data IS NOT NULL) THEN
761: x_msg_data := x_msg_data||' -> BSC_DATASETS_PUB.Create_Dataset ';
755: );
756: END IF;
757: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
758: WHEN NO_DATA_FOUND THEN
759: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
760: IF (x_msg_data IS NOT NULL) THEN
761: x_msg_data := x_msg_data||' -> BSC_DATASETS_PUB.Create_Dataset ';
762: ELSE
763: x_msg_data := SQLERRM||' at BSC_DATASETS_PUB.Create_Dataset ';
762: ELSE
763: x_msg_data := SQLERRM||' at BSC_DATASETS_PUB.Create_Dataset ';
764: END IF;
765: WHEN OTHERS THEN
766: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
767: IF (x_msg_data IS NOT NULL) THEN
768: x_msg_data := x_msg_data||' -> BSC_DATASETS_PUB.Create_Dataset ';
769: ELSE
770: x_msg_data := SQLERRM||' at BSC_DATASETS_PUB.Create_Dataset ';
774: /************************************************************************************
775: ************************************************************************************/
776: -- ADRAO : Overloaded for iBuilder
777: procedure Create_Dataset(
778: p_commit IN varchar2 := FND_API.G_FALSE
779: ,p_Dataset_Rec IN BSC_DATASETS_PUB.Bsc_Dataset_Rec_Type
780: ,x_return_status OUT NOCOPY varchar2
781: ,x_msg_count OUT NOCOPY number
782: ,x_msg_data OUT NOCOPY varchar2
786:
787: l_count number;
788:
789: begin
790: x_return_status := FND_API.G_RET_STS_SUCCESS;
791: -- Assign all values in the passed "Record" parameter to the locally defined
792: -- "Record" variable.
793: l_Dataset_Rec := p_Dataset_Rec;
794:
851:
852: -- end if;
853:
854: EXCEPTION
855: WHEN FND_API.G_EXC_ERROR THEN
856: IF (x_msg_data IS NULL) THEN
857: FND_MSG_PUB.Count_And_Get
858: ( p_encoded => FND_API.G_FALSE
859: , p_count => x_msg_count
854: EXCEPTION
855: WHEN FND_API.G_EXC_ERROR THEN
856: IF (x_msg_data IS NULL) THEN
857: FND_MSG_PUB.Count_And_Get
858: ( p_encoded => FND_API.G_FALSE
859: , p_count => x_msg_count
860: , p_data => x_msg_data
861: );
862: END IF;
859: , p_count => x_msg_count
860: , p_data => x_msg_data
861: );
862: END IF;
863: x_return_status := FND_API.G_RET_STS_ERROR;
864: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
865: IF (x_msg_data IS NULL) THEN
866: FND_MSG_PUB.Count_And_Get
867: ( p_encoded => FND_API.G_FALSE
860: , p_data => x_msg_data
861: );
862: END IF;
863: x_return_status := FND_API.G_RET_STS_ERROR;
864: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
865: IF (x_msg_data IS NULL) THEN
866: FND_MSG_PUB.Count_And_Get
867: ( p_encoded => FND_API.G_FALSE
868: , p_count => x_msg_count
863: x_return_status := FND_API.G_RET_STS_ERROR;
864: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
865: IF (x_msg_data IS NULL) THEN
866: FND_MSG_PUB.Count_And_Get
867: ( p_encoded => FND_API.G_FALSE
868: , p_count => x_msg_count
869: , p_data => x_msg_data
870: );
871: END IF;
868: , p_count => x_msg_count
869: , p_data => x_msg_data
870: );
871: END IF;
872: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
873: WHEN NO_DATA_FOUND THEN
874: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
875: IF (x_msg_data IS NOT NULL) THEN
876: x_msg_data := x_msg_data||' -> BSC_DATASETS_PUB.Create_Dataset ';
870: );
871: END IF;
872: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
873: WHEN NO_DATA_FOUND THEN
874: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
875: IF (x_msg_data IS NOT NULL) THEN
876: x_msg_data := x_msg_data||' -> BSC_DATASETS_PUB.Create_Dataset ';
877: ELSE
878: x_msg_data := SQLERRM||' at BSC_DATASETS_PUB.Create_Dataset ';
877: ELSE
878: x_msg_data := SQLERRM||' at BSC_DATASETS_PUB.Create_Dataset ';
879: END IF;
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_DATASETS_PUB.Create_Dataset ';
884: ELSE
885: x_msg_data := SQLERRM||' at BSC_DATASETS_PUB.Create_Dataset ';
892: ************************************************************************************/
893:
894:
895: procedure Retrieve_Dataset(
896: p_commit IN varchar2 := FND_API.G_FALSE
897: ,p_Dataset_Rec IN BSC_DATASETS_PUB.Bsc_Dataset_Rec_Type
898: ,x_Dataset_Rec IN OUT NOCOPY BSC_DATASETS_PUB.Bsc_Dataset_Rec_Type
899: ,x_return_status OUT NOCOPY varchar2
900: ,x_msg_count OUT NOCOPY number
901: ,x_msg_data OUT NOCOPY varchar2
902: ) is
903:
904: begin
905: x_return_status := FND_API.G_RET_STS_SUCCESS;
906: BSC_DATASETS_PVT.Retrieve_Dataset( p_commit
907: ,p_Dataset_Rec
908: ,x_Dataset_Rec
909: ,x_return_status
917: ,x_msg_count
918: ,x_msg_data);*/
919:
920: EXCEPTION
921: WHEN FND_API.G_EXC_ERROR THEN
922: IF (x_msg_data IS NULL) THEN
923: FND_MSG_PUB.Count_And_Get
924: ( p_encoded => FND_API.G_FALSE
925: , p_count => x_msg_count
920: EXCEPTION
921: WHEN FND_API.G_EXC_ERROR THEN
922: IF (x_msg_data IS NULL) THEN
923: FND_MSG_PUB.Count_And_Get
924: ( p_encoded => FND_API.G_FALSE
925: , p_count => x_msg_count
926: , p_data => x_msg_data
927: );
928: END IF;
925: , p_count => x_msg_count
926: , p_data => x_msg_data
927: );
928: END IF;
929: x_return_status := FND_API.G_RET_STS_ERROR;
930: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
931: IF (x_msg_data IS NULL) THEN
932: FND_MSG_PUB.Count_And_Get
933: ( p_encoded => FND_API.G_FALSE
926: , p_data => x_msg_data
927: );
928: END IF;
929: x_return_status := FND_API.G_RET_STS_ERROR;
930: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
931: IF (x_msg_data IS NULL) THEN
932: FND_MSG_PUB.Count_And_Get
933: ( p_encoded => FND_API.G_FALSE
934: , p_count => x_msg_count
929: x_return_status := FND_API.G_RET_STS_ERROR;
930: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
931: IF (x_msg_data IS NULL) THEN
932: FND_MSG_PUB.Count_And_Get
933: ( p_encoded => FND_API.G_FALSE
934: , p_count => x_msg_count
935: , p_data => x_msg_data
936: );
937: END IF;
934: , p_count => x_msg_count
935: , p_data => x_msg_data
936: );
937: END IF;
938: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
939: WHEN NO_DATA_FOUND THEN
940: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
941: IF (x_msg_data IS NOT NULL) THEN
942: x_msg_data := x_msg_data||' -> BSC_DATASETS_PUB.Retrieve_Dataset ';
936: );
937: END IF;
938: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
939: WHEN NO_DATA_FOUND THEN
940: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
941: IF (x_msg_data IS NOT NULL) THEN
942: x_msg_data := x_msg_data||' -> BSC_DATASETS_PUB.Retrieve_Dataset ';
943: ELSE
944: x_msg_data := SQLERRM||' at BSC_DATASETS_PUB.Retrieve_Dataset ';
943: ELSE
944: x_msg_data := SQLERRM||' at BSC_DATASETS_PUB.Retrieve_Dataset ';
945: END IF;
946: WHEN OTHERS THEN
947: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
948: IF (x_msg_data IS NOT NULL) THEN
949: x_msg_data := x_msg_data||' -> BSC_DATASETS_PUB.Retrieve_Dataset ';
950: ELSE
951: x_msg_data := SQLERRM||' at BSC_DATASETS_PUB.Retrieve_Dataset ';
955: /************************************************************************************
956: ************************************************************************************/
957: /*
958: procedure Update_Dataset(
959: p_commit IN varchar2 := FND_API.G_FALSE
960: ,p_Dataset_Rec IN BSC_DATASETS_PUB.Bsc_Dataset_Rec_Type
961: ,x_return_status OUT NOCOPY varchar2
962: ,x_msg_count OUT NOCOPY number
963: ,x_msg_data OUT NOCOPY varchar2
963: ,x_msg_data OUT NOCOPY varchar2
964: ) is
965:
966: begin
967: x_return_status := FND_API.G_RET_STS_SUCCESS;
968: BSC_DATASETS_PVT.Update_Dataset( p_commit
969: ,p_Dataset_Rec
970: ,x_return_status
971: ,x_msg_count
977: ,x_msg_count
978: ,x_msg_data);
979:
980: EXCEPTION
981: WHEN FND_API.G_EXC_ERROR THEN
982: IF (x_msg_data IS NULL) THEN
983: FND_MSG_PUB.Count_And_Get
984: ( p_encoded => FND_API.G_FALSE
985: , p_count => x_msg_count
980: EXCEPTION
981: WHEN FND_API.G_EXC_ERROR THEN
982: IF (x_msg_data IS NULL) THEN
983: FND_MSG_PUB.Count_And_Get
984: ( p_encoded => FND_API.G_FALSE
985: , p_count => x_msg_count
986: , p_data => x_msg_data
987: );
988: END IF;
985: , p_count => x_msg_count
986: , p_data => x_msg_data
987: );
988: END IF;
989: x_return_status := FND_API.G_RET_STS_ERROR;
990: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
991: IF (x_msg_data IS NULL) THEN
992: FND_MSG_PUB.Count_And_Get
993: ( p_encoded => FND_API.G_FALSE
986: , p_data => x_msg_data
987: );
988: END IF;
989: x_return_status := FND_API.G_RET_STS_ERROR;
990: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
991: IF (x_msg_data IS NULL) THEN
992: FND_MSG_PUB.Count_And_Get
993: ( p_encoded => FND_API.G_FALSE
994: , p_count => x_msg_count
989: x_return_status := FND_API.G_RET_STS_ERROR;
990: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
991: IF (x_msg_data IS NULL) THEN
992: FND_MSG_PUB.Count_And_Get
993: ( p_encoded => FND_API.G_FALSE
994: , p_count => x_msg_count
995: , p_data => x_msg_data
996: );
997: END IF;
994: , p_count => x_msg_count
995: , p_data => x_msg_data
996: );
997: END IF;
998: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
999: WHEN NO_DATA_FOUND THEN
1000: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1001: IF (x_msg_data IS NOT NULL) THEN
1002: x_msg_data := x_msg_data||' -> BSC_DATASETS_PUB.Update_Dataset ';
996: );
997: END IF;
998: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
999: WHEN NO_DATA_FOUND THEN
1000: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1001: IF (x_msg_data IS NOT NULL) THEN
1002: x_msg_data := x_msg_data||' -> BSC_DATASETS_PUB.Update_Dataset ';
1003: ELSE
1004: x_msg_data := SQLERRM||' at BSC_DATASETS_PUB.Update_Dataset ';
1003: ELSE
1004: x_msg_data := SQLERRM||' at BSC_DATASETS_PUB.Update_Dataset ';
1005: END IF;
1006: WHEN OTHERS THEN
1007: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1008: IF (x_msg_data IS NOT NULL) THEN
1009: x_msg_data := x_msg_data||' -> BSC_DATASETS_PUB.Update_Dataset ';
1010: ELSE
1011: x_msg_data := SQLERRM||' at BSC_DATASETS_PUB.Update_Dataset ';
1012: END IF;
1013: end Update_Dataset; */
1014:
1015: procedure Update_Dataset(
1016: p_commit IN varchar2 := FND_API.G_FALSE
1017: ,p_Dataset_Rec IN BSC_DATASETS_PUB.Bsc_Dataset_Rec_Type
1018: ,p_update_dset_calc IN BOOLEAN
1019: ,x_return_status OUT NOCOPY varchar2
1020: ,x_msg_count OUT NOCOPY number
1021: ,x_msg_data OUT NOCOPY varchar2
1022: ) is
1023:
1024: begin
1025: x_return_status := FND_API.G_RET_STS_SUCCESS;
1026: BSC_DATASETS_PVT.Update_Dataset( p_commit
1027: ,p_Dataset_Rec
1028: ,x_return_status
1029: ,x_msg_count
1036: ,x_msg_data);
1037: END IF;
1038:
1039: EXCEPTION
1040: WHEN FND_API.G_EXC_ERROR THEN
1041: IF (x_msg_data IS NULL) THEN
1042: FND_MSG_PUB.Count_And_Get
1043: ( p_encoded => FND_API.G_FALSE
1044: , p_count => x_msg_count
1039: EXCEPTION
1040: WHEN FND_API.G_EXC_ERROR THEN
1041: IF (x_msg_data IS NULL) THEN
1042: FND_MSG_PUB.Count_And_Get
1043: ( p_encoded => FND_API.G_FALSE
1044: , p_count => x_msg_count
1045: , p_data => x_msg_data
1046: );
1047: END IF;
1044: , p_count => x_msg_count
1045: , p_data => x_msg_data
1046: );
1047: END IF;
1048: x_return_status := FND_API.G_RET_STS_ERROR;
1049: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1050: IF (x_msg_data IS NULL) THEN
1051: FND_MSG_PUB.Count_And_Get
1052: ( p_encoded => FND_API.G_FALSE
1045: , p_data => x_msg_data
1046: );
1047: END IF;
1048: x_return_status := FND_API.G_RET_STS_ERROR;
1049: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1050: IF (x_msg_data IS NULL) THEN
1051: FND_MSG_PUB.Count_And_Get
1052: ( p_encoded => FND_API.G_FALSE
1053: , p_count => x_msg_count
1048: x_return_status := FND_API.G_RET_STS_ERROR;
1049: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1050: IF (x_msg_data IS NULL) THEN
1051: FND_MSG_PUB.Count_And_Get
1052: ( p_encoded => FND_API.G_FALSE
1053: , p_count => x_msg_count
1054: , p_data => x_msg_data
1055: );
1056: END IF;
1053: , p_count => x_msg_count
1054: , p_data => x_msg_data
1055: );
1056: END IF;
1057: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1058: WHEN NO_DATA_FOUND THEN
1059: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1060: IF (x_msg_data IS NOT NULL) THEN
1061: x_msg_data := x_msg_data||' -> BSC_DATASETS_PUB.Update_Dataset ';
1055: );
1056: END IF;
1057: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1058: WHEN NO_DATA_FOUND THEN
1059: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1060: IF (x_msg_data IS NOT NULL) THEN
1061: x_msg_data := x_msg_data||' -> BSC_DATASETS_PUB.Update_Dataset ';
1062: ELSE
1063: x_msg_data := SQLERRM||' at BSC_DATASETS_PUB.Update_Dataset ';
1062: ELSE
1063: x_msg_data := SQLERRM||' at BSC_DATASETS_PUB.Update_Dataset ';
1064: END IF;
1065: WHEN OTHERS THEN
1066: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1067: IF (x_msg_data IS NOT NULL) THEN
1068: x_msg_data := x_msg_data||' -> BSC_DATASETS_PUB.Update_Dataset ';
1069: ELSE
1070: x_msg_data := SQLERRM||' at BSC_DATASETS_PUB.Update_Dataset ';
1074:
1075:
1076: /****************************/
1077: procedure Update_Dataset(
1078: p_commit IN varchar2 := FND_API.G_FALSE
1079: ,p_Dataset_Rec IN BSC_DATASETS_PUB.Bsc_Dataset_Rec_Type
1080: ,x_return_status OUT NOCOPY varchar2
1081: ,x_msg_count OUT NOCOPY number
1082: ,x_msg_data OUT NOCOPY varchar2
1082: ,x_msg_data OUT NOCOPY varchar2
1083: ) is
1084:
1085: begin
1086: x_return_status := FND_API.G_RET_STS_SUCCESS;
1087: Update_Dataset(
1088: p_commit => p_commit
1089: ,p_Dataset_Rec => p_Dataset_Rec
1090: ,p_update_dset_calc => TRUE
1093: ,x_msg_data => x_msg_data
1094: );
1095:
1096: EXCEPTION
1097: WHEN FND_API.G_EXC_ERROR THEN
1098: IF (x_msg_data IS NULL) THEN
1099: FND_MSG_PUB.Count_And_Get
1100: ( p_encoded => FND_API.G_FALSE
1101: , p_count => x_msg_count
1096: EXCEPTION
1097: WHEN FND_API.G_EXC_ERROR THEN
1098: IF (x_msg_data IS NULL) THEN
1099: FND_MSG_PUB.Count_And_Get
1100: ( p_encoded => FND_API.G_FALSE
1101: , p_count => x_msg_count
1102: , p_data => x_msg_data
1103: );
1104: END IF;
1101: , p_count => x_msg_count
1102: , p_data => x_msg_data
1103: );
1104: END IF;
1105: x_return_status := FND_API.G_RET_STS_ERROR;
1106: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1107: IF (x_msg_data IS NULL) THEN
1108: FND_MSG_PUB.Count_And_Get
1109: ( p_encoded => FND_API.G_FALSE
1102: , p_data => x_msg_data
1103: );
1104: END IF;
1105: x_return_status := FND_API.G_RET_STS_ERROR;
1106: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1107: IF (x_msg_data IS NULL) THEN
1108: FND_MSG_PUB.Count_And_Get
1109: ( p_encoded => FND_API.G_FALSE
1110: , p_count => x_msg_count
1105: x_return_status := FND_API.G_RET_STS_ERROR;
1106: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1107: IF (x_msg_data IS NULL) THEN
1108: FND_MSG_PUB.Count_And_Get
1109: ( p_encoded => FND_API.G_FALSE
1110: , p_count => x_msg_count
1111: , p_data => x_msg_data
1112: );
1113: END IF;
1110: , p_count => x_msg_count
1111: , p_data => x_msg_data
1112: );
1113: END IF;
1114: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1115: WHEN NO_DATA_FOUND THEN
1116: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1117: IF (x_msg_data IS NOT NULL) THEN
1118: x_msg_data := x_msg_data||' -> BSC_DATASETS_PUB.Update_Dataset ';
1112: );
1113: END IF;
1114: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1115: WHEN NO_DATA_FOUND THEN
1116: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1117: IF (x_msg_data IS NOT NULL) THEN
1118: x_msg_data := x_msg_data||' -> BSC_DATASETS_PUB.Update_Dataset ';
1119: ELSE
1120: x_msg_data := SQLERRM||' at BSC_DATASETS_PUB.Update_Dataset ';
1119: ELSE
1120: x_msg_data := SQLERRM||' at BSC_DATASETS_PUB.Update_Dataset ';
1121: END IF;
1122: WHEN OTHERS THEN
1123: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1124: IF (x_msg_data IS NOT NULL) THEN
1125: x_msg_data := x_msg_data||' -> BSC_DATASETS_PUB.Update_Dataset ';
1126: ELSE
1127: x_msg_data := SQLERRM||' at BSC_DATASETS_PUB.Update_Dataset ';
1132: /************************************************************************************
1133: ************************************************************************************/
1134:
1135: procedure Delete_Dataset(
1136: p_commit IN varchar2 := FND_API.G_FALSE
1137: ,p_Dataset_Rec IN BSC_DATASETS_PUB.Bsc_Dataset_Rec_Type
1138: ,x_return_status OUT NOCOPY varchar2
1139: ,x_msg_count OUT NOCOPY number
1140: ,x_msg_data OUT NOCOPY varchar2
1140: ,x_msg_data OUT NOCOPY varchar2
1141: ) is
1142:
1143: begin
1144: x_return_status := FND_API.G_RET_STS_SUCCESS;
1145: -- mdamle 04/23/2003 - PMD - Measure Definer - Changed the order of deletion
1146: -- Delete from child table before deleting master record.
1147: Delete_Dataset_Calc( p_commit
1148: ,p_Dataset_Rec
1158: ,x_msg_data);
1159:
1160:
1161: EXCEPTION
1162: WHEN FND_API.G_EXC_ERROR THEN
1163: IF (x_msg_data IS NULL) THEN
1164: FND_MSG_PUB.Count_And_Get
1165: ( p_encoded => FND_API.G_FALSE
1166: , p_count => x_msg_count
1161: EXCEPTION
1162: WHEN FND_API.G_EXC_ERROR THEN
1163: IF (x_msg_data IS NULL) THEN
1164: FND_MSG_PUB.Count_And_Get
1165: ( p_encoded => FND_API.G_FALSE
1166: , p_count => x_msg_count
1167: , p_data => x_msg_data
1168: );
1169: END IF;
1166: , p_count => x_msg_count
1167: , p_data => x_msg_data
1168: );
1169: END IF;
1170: x_return_status := FND_API.G_RET_STS_ERROR;
1171: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1172: IF (x_msg_data IS NULL) THEN
1173: FND_MSG_PUB.Count_And_Get
1174: ( p_encoded => FND_API.G_FALSE
1167: , p_data => x_msg_data
1168: );
1169: END IF;
1170: x_return_status := FND_API.G_RET_STS_ERROR;
1171: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1172: IF (x_msg_data IS NULL) THEN
1173: FND_MSG_PUB.Count_And_Get
1174: ( p_encoded => FND_API.G_FALSE
1175: , p_count => x_msg_count
1170: x_return_status := FND_API.G_RET_STS_ERROR;
1171: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1172: IF (x_msg_data IS NULL) THEN
1173: FND_MSG_PUB.Count_And_Get
1174: ( p_encoded => FND_API.G_FALSE
1175: , p_count => x_msg_count
1176: , p_data => x_msg_data
1177: );
1178: END IF;
1175: , p_count => x_msg_count
1176: , p_data => x_msg_data
1177: );
1178: END IF;
1179: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1180: WHEN NO_DATA_FOUND THEN
1181: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1182: IF (x_msg_data IS NOT NULL) THEN
1183: x_msg_data := x_msg_data||' -> BSC_DATASETS_PUB.Delete_Dataset ';
1177: );
1178: END IF;
1179: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1180: WHEN NO_DATA_FOUND THEN
1181: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1182: IF (x_msg_data IS NOT NULL) THEN
1183: x_msg_data := x_msg_data||' -> BSC_DATASETS_PUB.Delete_Dataset ';
1184: ELSE
1185: x_msg_data := SQLERRM||' at BSC_DATASETS_PUB.Delete_Dataset ';
1184: ELSE
1185: x_msg_data := SQLERRM||' at BSC_DATASETS_PUB.Delete_Dataset ';
1186: END IF;
1187: WHEN OTHERS THEN
1188: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1189: IF (x_msg_data IS NOT NULL) THEN
1190: x_msg_data := x_msg_data||' -> BSC_DATASETS_PUB.Delete_Dataset ';
1191: ELSE
1192: x_msg_data := SQLERRM||' at BSC_DATASETS_PUB.Delete_Dataset ';
1200: --: for the given dimension.
1201: --: This procedure is part of the Data Set API.
1202:
1203: procedure Create_Dataset_Calc(
1204: p_commit IN varchar2 := FND_API.G_FALSE
1205: ,p_Dataset_Rec IN BSC_DATASETS_PUB.Bsc_Dataset_Rec_Type
1206: ,x_return_status OUT NOCOPY varchar2
1207: ,x_msg_count OUT NOCOPY number
1208: ,x_msg_data OUT NOCOPY varchar2
1210:
1211: l_Dataset_Rec BSC_DATASETS_PUB.Bsc_Dataset_Rec_Type;
1212:
1213: begin
1214: x_return_status := FND_API.G_RET_STS_SUCCESS;
1215: -- Assign all values in the passed "Record" parameter to the locally defined
1216: -- "Record" variable.
1217: l_Dataset_Rec := p_Dataset_Rec;
1218:
1231: end if;
1232: end loop;
1233:
1234: EXCEPTION
1235: WHEN FND_API.G_EXC_ERROR THEN
1236: IF (x_msg_data IS NULL) THEN
1237: FND_MSG_PUB.Count_And_Get
1238: ( p_encoded => FND_API.G_FALSE
1239: , p_count => x_msg_count
1234: EXCEPTION
1235: WHEN FND_API.G_EXC_ERROR THEN
1236: IF (x_msg_data IS NULL) THEN
1237: FND_MSG_PUB.Count_And_Get
1238: ( p_encoded => FND_API.G_FALSE
1239: , p_count => x_msg_count
1240: , p_data => x_msg_data
1241: );
1242: END IF;
1239: , p_count => x_msg_count
1240: , p_data => x_msg_data
1241: );
1242: END IF;
1243: x_return_status := FND_API.G_RET_STS_ERROR;
1244: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1245: IF (x_msg_data IS NULL) THEN
1246: FND_MSG_PUB.Count_And_Get
1247: ( p_encoded => FND_API.G_FALSE
1240: , p_data => x_msg_data
1241: );
1242: END IF;
1243: x_return_status := FND_API.G_RET_STS_ERROR;
1244: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1245: IF (x_msg_data IS NULL) THEN
1246: FND_MSG_PUB.Count_And_Get
1247: ( p_encoded => FND_API.G_FALSE
1248: , p_count => x_msg_count
1243: x_return_status := FND_API.G_RET_STS_ERROR;
1244: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1245: IF (x_msg_data IS NULL) THEN
1246: FND_MSG_PUB.Count_And_Get
1247: ( p_encoded => FND_API.G_FALSE
1248: , p_count => x_msg_count
1249: , p_data => x_msg_data
1250: );
1251: END IF;
1248: , p_count => x_msg_count
1249: , p_data => x_msg_data
1250: );
1251: END IF;
1252: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1253: WHEN NO_DATA_FOUND THEN
1254: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1255: IF (x_msg_data IS NOT NULL) THEN
1256: x_msg_data := x_msg_data||' -> BSC_DATASETS_PUB.Create_Dataset_Calc ';
1250: );
1251: END IF;
1252: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1253: WHEN NO_DATA_FOUND THEN
1254: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1255: IF (x_msg_data IS NOT NULL) THEN
1256: x_msg_data := x_msg_data||' -> BSC_DATASETS_PUB.Create_Dataset_Calc ';
1257: ELSE
1258: x_msg_data := SQLERRM||' at BSC_DATASETS_PUB.Create_Dataset_Calc ';
1257: ELSE
1258: x_msg_data := SQLERRM||' at BSC_DATASETS_PUB.Create_Dataset_Calc ';
1259: END IF;
1260: WHEN OTHERS THEN
1261: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1262: IF (x_msg_data IS NOT NULL) THEN
1263: x_msg_data := x_msg_data||' -> BSC_DATASETS_PUB.Create_Dataset_Calc ';
1264: ELSE
1265: x_msg_data := SQLERRM||' at BSC_DATASETS_PUB.Create_Dataset_Calc ';
1269: /************************************************************************************
1270: ************************************************************************************/
1271:
1272: procedure Retrieve_Dataset_Calc(
1273: p_commit IN varchar2 := FND_API.G_FALSE
1274: ,p_Dataset_Rec IN BSC_DATASETS_PUB.Bsc_Dataset_Rec_Type
1275: ,x_Dataset_Rec IN OUT NOCOPY BSC_DATASETS_PUB.Bsc_Dataset_Rec_Type
1276: ,x_return_status OUT NOCOPY varchar2
1277: ,x_msg_count OUT NOCOPY number
1278: ,x_msg_data OUT NOCOPY varchar2
1279: ) is
1280:
1281: begin
1282: x_return_status := FND_API.G_RET_STS_SUCCESS;
1283: BSC_DATASETS_PVT.Retrieve_Dataset_Calc( p_commit
1284: ,p_Dataset_Rec
1285: ,x_Dataset_Rec
1286: ,x_return_status
1287: ,x_msg_count
1288: ,x_msg_data);
1289:
1290: EXCEPTION
1291: WHEN FND_API.G_EXC_ERROR THEN
1292: IF (x_msg_data IS NULL) THEN
1293: FND_MSG_PUB.Count_And_Get
1294: ( p_encoded => FND_API.G_FALSE
1295: , p_count => x_msg_count
1290: EXCEPTION
1291: WHEN FND_API.G_EXC_ERROR THEN
1292: IF (x_msg_data IS NULL) THEN
1293: FND_MSG_PUB.Count_And_Get
1294: ( p_encoded => FND_API.G_FALSE
1295: , p_count => x_msg_count
1296: , p_data => x_msg_data
1297: );
1298: END IF;
1295: , p_count => x_msg_count
1296: , p_data => x_msg_data
1297: );
1298: END IF;
1299: x_return_status := FND_API.G_RET_STS_ERROR;
1300: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1301: IF (x_msg_data IS NULL) THEN
1302: FND_MSG_PUB.Count_And_Get
1303: ( p_encoded => FND_API.G_FALSE
1296: , p_data => x_msg_data
1297: );
1298: END IF;
1299: x_return_status := FND_API.G_RET_STS_ERROR;
1300: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1301: IF (x_msg_data IS NULL) THEN
1302: FND_MSG_PUB.Count_And_Get
1303: ( p_encoded => FND_API.G_FALSE
1304: , p_count => x_msg_count
1299: x_return_status := FND_API.G_RET_STS_ERROR;
1300: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1301: IF (x_msg_data IS NULL) THEN
1302: FND_MSG_PUB.Count_And_Get
1303: ( p_encoded => FND_API.G_FALSE
1304: , p_count => x_msg_count
1305: , p_data => x_msg_data
1306: );
1307: END IF;
1304: , p_count => x_msg_count
1305: , p_data => x_msg_data
1306: );
1307: END IF;
1308: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1309: WHEN NO_DATA_FOUND THEN
1310: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1311: IF (x_msg_data IS NOT NULL) THEN
1312: x_msg_data := x_msg_data||' -> BSC_DATASETS_PUB.Retrieve_Dataset_Calc ';
1306: );
1307: END IF;
1308: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1309: WHEN NO_DATA_FOUND THEN
1310: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1311: IF (x_msg_data IS NOT NULL) THEN
1312: x_msg_data := x_msg_data||' -> BSC_DATASETS_PUB.Retrieve_Dataset_Calc ';
1313: ELSE
1314: x_msg_data := SQLERRM||' at BSC_DATASETS_PUB.Retrieve_Dataset_Calc ';
1313: ELSE
1314: x_msg_data := SQLERRM||' at BSC_DATASETS_PUB.Retrieve_Dataset_Calc ';
1315: END IF;
1316: WHEN OTHERS THEN
1317: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1318: IF (x_msg_data IS NOT NULL) THEN
1319: x_msg_data := x_msg_data||' -> BSC_DATASETS_PUB.Retrieve_Dataset_Calc ';
1320: ELSE
1321: x_msg_data := SQLERRM||' at BSC_DATASETS_PUB.Retrieve_Dataset_Calc ';
1325: /************************************************************************************
1326: ************************************************************************************/
1327:
1328: procedure Update_Dataset_Calc(
1329: p_commit IN varchar2 := FND_API.G_FALSE
1330: ,p_Dataset_Rec IN BSC_DATASETS_PUB.Bsc_Dataset_Rec_Type
1331: ,x_return_status OUT NOCOPY varchar2
1332: ,x_msg_count OUT NOCOPY number
1333: ,x_msg_data OUT NOCOPY varchar2
1333: ,x_msg_data OUT NOCOPY varchar2
1334: ) is
1335:
1336: begin
1337: x_return_status := FND_API.G_RET_STS_SUCCESS;
1338: BSC_DATASETS_PVT.Update_Dataset_Calc( p_commit
1339: ,p_Dataset_Rec
1340: ,x_return_status
1341: ,x_msg_count
1341: ,x_msg_count
1342: ,x_msg_data);
1343:
1344: EXCEPTION
1345: WHEN FND_API.G_EXC_ERROR THEN
1346: IF (x_msg_data IS NULL) THEN
1347: FND_MSG_PUB.Count_And_Get
1348: ( p_encoded => FND_API.G_FALSE
1349: , p_count => x_msg_count
1344: EXCEPTION
1345: WHEN FND_API.G_EXC_ERROR THEN
1346: IF (x_msg_data IS NULL) THEN
1347: FND_MSG_PUB.Count_And_Get
1348: ( p_encoded => FND_API.G_FALSE
1349: , p_count => x_msg_count
1350: , p_data => x_msg_data
1351: );
1352: END IF;
1349: , p_count => x_msg_count
1350: , p_data => x_msg_data
1351: );
1352: END IF;
1353: x_return_status := FND_API.G_RET_STS_ERROR;
1354: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1355: IF (x_msg_data IS NULL) THEN
1356: FND_MSG_PUB.Count_And_Get
1357: ( p_encoded => FND_API.G_FALSE
1350: , p_data => x_msg_data
1351: );
1352: END IF;
1353: x_return_status := FND_API.G_RET_STS_ERROR;
1354: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1355: IF (x_msg_data IS NULL) THEN
1356: FND_MSG_PUB.Count_And_Get
1357: ( p_encoded => FND_API.G_FALSE
1358: , p_count => x_msg_count
1353: x_return_status := FND_API.G_RET_STS_ERROR;
1354: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1355: IF (x_msg_data IS NULL) THEN
1356: FND_MSG_PUB.Count_And_Get
1357: ( p_encoded => FND_API.G_FALSE
1358: , p_count => x_msg_count
1359: , p_data => x_msg_data
1360: );
1361: END IF;
1358: , p_count => x_msg_count
1359: , p_data => x_msg_data
1360: );
1361: END IF;
1362: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1363: WHEN NO_DATA_FOUND THEN
1364: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1365: IF (x_msg_data IS NOT NULL) THEN
1366: x_msg_data := x_msg_data||' -> BSC_DATASETS_PUB.Update_Dataset_Calc ';
1360: );
1361: END IF;
1362: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1363: WHEN NO_DATA_FOUND THEN
1364: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1365: IF (x_msg_data IS NOT NULL) THEN
1366: x_msg_data := x_msg_data||' -> BSC_DATASETS_PUB.Update_Dataset_Calc ';
1367: ELSE
1368: x_msg_data := SQLERRM||' at BSC_DATASETS_PUB.Update_Dataset_Calc ';
1367: ELSE
1368: x_msg_data := SQLERRM||' at BSC_DATASETS_PUB.Update_Dataset_Calc ';
1369: END IF;
1370: WHEN OTHERS THEN
1371: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1372: IF (x_msg_data IS NOT NULL) THEN
1373: x_msg_data := x_msg_data||' -> BSC_DATASETS_PUB.Update_Dataset_Calc ';
1374: ELSE
1375: x_msg_data := SQLERRM||' at BSC_DATASETS_PUB.Update_Dataset_Calc ';
1379: /************************************************************************************
1380: ************************************************************************************/
1381:
1382: procedure Delete_Dataset_Calc(
1383: p_commit IN varchar2 := FND_API.G_FALSE
1384: ,p_Dataset_Rec IN BSC_DATASETS_PUB.Bsc_Dataset_Rec_Type
1385: ,x_return_status OUT NOCOPY varchar2
1386: ,x_msg_count OUT NOCOPY number
1387: ,x_msg_data OUT NOCOPY varchar2
1387: ,x_msg_data OUT NOCOPY varchar2
1388: ) is
1389:
1390: begin
1391: x_return_status := FND_API.G_RET_STS_SUCCESS;
1392: BSC_DATASETS_PVT.Delete_Dataset_Calc( p_commit
1393: ,p_Dataset_Rec
1394: ,x_return_status
1395: ,x_msg_count
1395: ,x_msg_count
1396: ,x_msg_data);
1397:
1398: EXCEPTION
1399: WHEN FND_API.G_EXC_ERROR THEN
1400: IF (x_msg_data IS NULL) THEN
1401: FND_MSG_PUB.Count_And_Get
1402: ( p_encoded => FND_API.G_FALSE
1403: , p_count => x_msg_count
1398: EXCEPTION
1399: WHEN FND_API.G_EXC_ERROR THEN
1400: IF (x_msg_data IS NULL) THEN
1401: FND_MSG_PUB.Count_And_Get
1402: ( p_encoded => FND_API.G_FALSE
1403: , p_count => x_msg_count
1404: , p_data => x_msg_data
1405: );
1406: END IF;
1403: , p_count => x_msg_count
1404: , p_data => x_msg_data
1405: );
1406: END IF;
1407: x_return_status := FND_API.G_RET_STS_ERROR;
1408: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1409: IF (x_msg_data IS NULL) THEN
1410: FND_MSG_PUB.Count_And_Get
1411: ( p_encoded => FND_API.G_FALSE
1404: , p_data => x_msg_data
1405: );
1406: END IF;
1407: x_return_status := FND_API.G_RET_STS_ERROR;
1408: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1409: IF (x_msg_data IS NULL) THEN
1410: FND_MSG_PUB.Count_And_Get
1411: ( p_encoded => FND_API.G_FALSE
1412: , p_count => x_msg_count
1407: x_return_status := FND_API.G_RET_STS_ERROR;
1408: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1409: IF (x_msg_data IS NULL) THEN
1410: FND_MSG_PUB.Count_And_Get
1411: ( p_encoded => FND_API.G_FALSE
1412: , p_count => x_msg_count
1413: , p_data => x_msg_data
1414: );
1415: END IF;
1412: , p_count => x_msg_count
1413: , p_data => x_msg_data
1414: );
1415: END IF;
1416: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1417: WHEN NO_DATA_FOUND THEN
1418: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1419: IF (x_msg_data IS NOT NULL) THEN
1420: x_msg_data := x_msg_data||' -> BSC_DATASETS_PUB.Delete_Dataset_Calc ';
1414: );
1415: END IF;
1416: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1417: WHEN NO_DATA_FOUND THEN
1418: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1419: IF (x_msg_data IS NOT NULL) THEN
1420: x_msg_data := x_msg_data||' -> BSC_DATASETS_PUB.Delete_Dataset_Calc ';
1421: ELSE
1422: x_msg_data := SQLERRM||' at BSC_DATASETS_PUB.Delete_Dataset_Calc ';
1421: ELSE
1422: x_msg_data := SQLERRM||' at BSC_DATASETS_PUB.Delete_Dataset_Calc ';
1423: END IF;
1424: WHEN OTHERS THEN
1425: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1426: IF (x_msg_data IS NOT NULL) THEN
1427: x_msg_data := x_msg_data||' -> BSC_DATASETS_PUB.Delete_Dataset_Calc ';
1428: ELSE
1429: x_msg_data := SQLERRM||' at BSC_DATASETS_PUB.Delete_Dataset_Calc ';
1444: ) IS
1445:
1446: BEGIN
1447: BSC_DATASETS_PVT.Translate_Measure(
1448: p_commit => FND_API.G_FALSE
1449: ,p_measure_rec => p_measure_rec
1450: ,p_Dataset_Rec => p_Dataset_Rec
1451: ,x_return_status => x_return_status
1452: ,x_msg_count => x_msg_count
1453: ,x_msg_data => x_msg_data
1454: );
1455:
1456: EXCEPTION
1457: WHEN FND_API.G_EXC_ERROR THEN
1458: x_return_status := FND_API.G_RET_STS_ERROR;
1459: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1460: ,p_data => x_msg_data);
1461: RAISE;
1454: );
1455:
1456: EXCEPTION
1457: WHEN FND_API.G_EXC_ERROR THEN
1458: x_return_status := FND_API.G_RET_STS_ERROR;
1459: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1460: ,p_data => x_msg_data);
1461: RAISE;
1462: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1458: x_return_status := FND_API.G_RET_STS_ERROR;
1459: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1460: ,p_data => x_msg_data);
1461: RAISE;
1462: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1463: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1464: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1465: ,p_data => x_msg_data);
1466: RAISE;
1459: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1460: ,p_data => x_msg_data);
1461: RAISE;
1462: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1463: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1464: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1465: ,p_data => x_msg_data);
1466: RAISE;
1467: WHEN NO_DATA_FOUND THEN
1464: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1465: ,p_data => x_msg_data);
1466: RAISE;
1467: WHEN NO_DATA_FOUND THEN
1468: x_return_status := FND_API.G_RET_STS_ERROR;
1469: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1470: ,p_data => x_msg_data);
1471: RAISE;
1472: WHEN OTHERS THEN
1469: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1470: ,p_data => x_msg_data);
1471: RAISE;
1472: WHEN OTHERS THEN
1473: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1474: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1475: ,p_data => x_msg_data);
1476: RAISE;
1477:
1490: ) IS
1491:
1492: BEGIN
1493: BSC_DATASETS_PVT.Translate_Measure_By_Lang(
1494: p_commit => FND_API.G_FALSE
1495: ,p_Dataset_Rec => p_Dataset_Rec
1496: ,p_lang => p_lang
1497: ,p_source_lang => p_source_lang
1498: ,x_return_status => x_return_status
1500: ,x_msg_data => x_msg_data
1501: );
1502:
1503: EXCEPTION
1504: WHEN FND_API.G_EXC_ERROR THEN
1505: x_return_status := FND_API.G_RET_STS_ERROR;
1506: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1507: ,p_data => x_msg_data);
1508:
1501: );
1502:
1503: EXCEPTION
1504: WHEN FND_API.G_EXC_ERROR THEN
1505: x_return_status := FND_API.G_RET_STS_ERROR;
1506: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1507: ,p_data => x_msg_data);
1508:
1509: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1505: x_return_status := FND_API.G_RET_STS_ERROR;
1506: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1507: ,p_data => x_msg_data);
1508:
1509: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1510: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1511: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1512: ,p_data => x_msg_data);
1513: WHEN NO_DATA_FOUND THEN
1506: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1507: ,p_data => x_msg_data);
1508:
1509: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1510: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1511: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1512: ,p_data => x_msg_data);
1513: WHEN NO_DATA_FOUND THEN
1514: x_return_status := FND_API.G_RET_STS_ERROR;
1510: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1511: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1512: ,p_data => x_msg_data);
1513: WHEN NO_DATA_FOUND THEN
1514: x_return_status := FND_API.G_RET_STS_ERROR;
1515: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1516: ,p_data => x_msg_data);
1517: WHEN OTHERS THEN
1518: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1514: x_return_status := FND_API.G_RET_STS_ERROR;
1515: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1516: ,p_data => x_msg_data);
1517: WHEN OTHERS THEN
1518: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1519: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
1520: ,p_data => x_msg_data);
1521: END Translate_Measure_By_Lang;
1522: