1: package body BSC_DIMENSION_LEVELS_PUB as
2: /* $Header: BSCPDMLB.pls 120.0 2005/06/01 16:50:01 appldev noship $ */
3: /*
4: +======================================================================================+
5: | Copyright (c) 2001 Oracle Corporation, Redwood Shores, CA, USA |
40: | when called from upload of LDT file |
41: +======================================================================================+
42: */
43:
44: G_PKG_NAME CONSTANT varchar2(30) := 'BSC_DIMENSION_LEVELS_PUB';
45:
46: /*
47: The following procedures are used by BSC to create Dimension Levels.
48: */
51: --: It is the entry point to populate all necessary meta data.
52: --: This procedure is part of the Dimension API.
53: procedure Create_Dim_Level(
54: p_commit IN varchar2 ---:= FND_API.G_FALSE
55: ,p_Dim_Level_Rec IN BSC_DIMENSION_LEVELS_PUB.Bsc_Dim_Level_Rec_Type
56: ,p_create_tables IN BOOLEAN
57: ,x_return_status OUT NOCOPY varchar2
58: ,x_msg_count OUT NOCOPY number
59: ,x_msg_data OUT NOCOPY varchar2
58: ,x_msg_count OUT NOCOPY number
59: ,x_msg_data OUT NOCOPY varchar2
60: )is
61:
62: l_Dim_Level_Rec BSC_DIMENSION_LEVELS_PUB.Bsc_Dim_Level_Rec_Type;
63:
64: l_count number;
65:
66: begin
172: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
173: WHEN NO_DATA_FOUND THEN
174: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
175: IF (x_msg_data IS NOT NULL) THEN
176: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Create_Dim_Level ';
177: ELSE
178: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Create_Dim_Level ';
179: END IF;
180: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
174: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
175: IF (x_msg_data IS NOT NULL) THEN
176: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Create_Dim_Level ';
177: ELSE
178: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Create_Dim_Level ';
179: END IF;
180: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
181: WHEN OTHERS THEN
182: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
180: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
181: WHEN OTHERS THEN
182: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
183: IF (x_msg_data IS NOT NULL) THEN
184: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Create_Dim_Level ';
185: ELSE
186: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Create_Dim_Level ';
187: END IF;
188: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
182: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
183: IF (x_msg_data IS NOT NULL) THEN
184: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Create_Dim_Level ';
185: ELSE
186: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Create_Dim_Level ';
187: END IF;
188: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
189: end Create_Dim_Level;
190:
190:
191:
192: procedure Create_Dim_Level(
193: p_commit IN varchar2 --:= FND_API.G_FALSE
194: ,p_Dim_Level_Rec IN BSC_DIMENSION_LEVELS_PUB.Bsc_Dim_Level_Rec_Type
195: ,x_return_status OUT NOCOPY varchar2
196: ,x_msg_count OUT NOCOPY number
197: ,x_msg_data OUT NOCOPY varchar2
198: ) is
196: ,x_msg_count OUT NOCOPY number
197: ,x_msg_data OUT NOCOPY varchar2
198: ) is
199:
200: l_Dim_Level_Rec BSC_DIMENSION_LEVELS_PUB.Bsc_Dim_Level_Rec_Type;
201: BEGIN
202: x_return_status := FND_API.G_RET_STS_SUCCESS;
203: l_Dim_Level_Rec := p_Dim_Level_Rec;
204: l_Dim_Level_Rec.Bsc_Last_Update_Date := NVL(p_Dim_Level_Rec.Bsc_Last_Update_Date, SYSDATE);
202: x_return_status := FND_API.G_RET_STS_SUCCESS;
203: l_Dim_Level_Rec := p_Dim_Level_Rec;
204: l_Dim_Level_Rec.Bsc_Last_Update_Date := NVL(p_Dim_Level_Rec.Bsc_Last_Update_Date, SYSDATE);
205:
206: BSC_DIMENSION_LEVELS_PUB.Create_Dim_Level
207: (
208: p_commit => p_commit
209: , p_Dim_Level_Rec => l_Dim_Level_Rec
210: , p_create_tables => TRUE
238: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
239: WHEN NO_DATA_FOUND THEN
240: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
241: IF (x_msg_data IS NOT NULL) THEN
242: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Create_Dim_Level ';
243: ELSE
244: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Create_Dim_Level ';
245: END IF;
246: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
240: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
241: IF (x_msg_data IS NOT NULL) THEN
242: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Create_Dim_Level ';
243: ELSE
244: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Create_Dim_Level ';
245: END IF;
246: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
247: WHEN OTHERS THEN
248: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
246: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
247: WHEN OTHERS THEN
248: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
249: IF (x_msg_data IS NOT NULL) THEN
250: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Create_Dim_Level ';
251: ELSE
252: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Create_Dim_Level ';
253: END IF;
254: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
248: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
249: IF (x_msg_data IS NOT NULL) THEN
250: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Create_Dim_Level ';
251: ELSE
252: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Create_Dim_Level ';
253: END IF;
254: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
255: end Create_Dim_Level;
256:
258: ************************************************************************************/
259:
260: procedure Retrieve_Dim_Level(
261: p_commit IN varchar2 --:= FND_API.G_FALSE
262: ,p_Dim_Level_Rec IN BSC_DIMENSION_LEVELS_PUB.Bsc_Dim_Level_Rec_Type
263: ,x_Dim_Level_Rec IN OUT NOCOPY BSC_DIMENSION_LEVELS_PUB.Bsc_Dim_Level_Rec_Type
264: ,x_return_status OUT NOCOPY varchar2
265: ,x_msg_count OUT NOCOPY number
266: ,x_msg_data OUT NOCOPY varchar2
259:
260: procedure Retrieve_Dim_Level(
261: p_commit IN varchar2 --:= FND_API.G_FALSE
262: ,p_Dim_Level_Rec IN BSC_DIMENSION_LEVELS_PUB.Bsc_Dim_Level_Rec_Type
263: ,x_Dim_Level_Rec IN OUT NOCOPY BSC_DIMENSION_LEVELS_PUB.Bsc_Dim_Level_Rec_Type
264: ,x_return_status OUT NOCOPY varchar2
265: ,x_msg_count OUT NOCOPY number
266: ,x_msg_data OUT NOCOPY varchar2
267: ) is
300: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
301: WHEN NO_DATA_FOUND THEN
302: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
303: IF (x_msg_data IS NOT NULL) THEN
304: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Retrieve_Dim_Level ';
305: ELSE
306: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Retrieve_Dim_Level ';
307: END IF;
308: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
302: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
303: IF (x_msg_data IS NOT NULL) THEN
304: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Retrieve_Dim_Level ';
305: ELSE
306: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Retrieve_Dim_Level ';
307: END IF;
308: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
309: WHEN OTHERS THEN
310: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
308: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
309: WHEN OTHERS THEN
310: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
311: IF (x_msg_data IS NOT NULL) THEN
312: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Retrieve_Dim_Level ';
313: ELSE
314: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Retrieve_Dim_Level ';
315: END IF;
316: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
310: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
311: IF (x_msg_data IS NOT NULL) THEN
312: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Retrieve_Dim_Level ';
313: ELSE
314: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Retrieve_Dim_Level ';
315: END IF;
316: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
317: end Retrieve_Dim_Level;
318:
320: ************************************************************************************/
321:
322: procedure Update_Dim_Level(
323: p_commit IN varchar2 --:= FND_API.G_FALSE
324: ,p_Dim_Level_Rec IN BSC_DIMENSION_LEVELS_PUB.Bsc_Dim_Level_Rec_Type
325: ,x_return_status OUT NOCOPY varchar2
326: ,x_msg_count OUT NOCOPY number
327: ,x_msg_data OUT NOCOPY varchar2
328: ) is
326: ,x_msg_count OUT NOCOPY number
327: ,x_msg_data OUT NOCOPY varchar2
328: ) is
329:
330: l_Dim_Level_Rec BSC_DIMENSION_LEVELS_PUB.Bsc_Dim_Level_Rec_Type;
331: begin
332:
333: x_return_status := FND_API.G_RET_STS_SUCCESS;
334:
367: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
368: WHEN NO_DATA_FOUND THEN
369: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
370: IF (x_msg_data IS NOT NULL) THEN
371: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Update_Dim_Level ';
372: ELSE
373: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Update_Dim_Level ';
374: END IF;
375: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
369: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
370: IF (x_msg_data IS NOT NULL) THEN
371: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Update_Dim_Level ';
372: ELSE
373: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Update_Dim_Level ';
374: END IF;
375: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
376: WHEN OTHERS THEN
377: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
375: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
376: WHEN OTHERS THEN
377: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
378: IF (x_msg_data IS NOT NULL) THEN
379: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Update_Dim_Level ';
380: ELSE
381: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Update_Dim_Level ';
382: END IF;
383: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
377: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
378: IF (x_msg_data IS NOT NULL) THEN
379: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Update_Dim_Level ';
380: ELSE
381: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Update_Dim_Level ';
382: END IF;
383: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
384: end Update_Dim_Level;
385:
387: ************************************************************************************/
388:
389: procedure Delete_Dim_Level(
390: p_commit IN varchar2 --:= FND_API.G_FALSE
391: ,p_Dim_Level_Rec IN BSC_DIMENSION_LEVELS_PUB.Bsc_Dim_Level_Rec_Type
392: ,x_return_status OUT NOCOPY varchar2
393: ,x_msg_count OUT NOCOPY number
394: ,x_msg_data OUT NOCOPY varchar2
395: ) is
435: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
436: WHEN NO_DATA_FOUND THEN
437: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
438: IF (x_msg_data IS NOT NULL) THEN
439: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Delete_Dim_Level ';
440: ELSE
441: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Delete_Dim_Level ';
442: END IF;
443: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
437: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
438: IF (x_msg_data IS NOT NULL) THEN
439: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Delete_Dim_Level ';
440: ELSE
441: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Delete_Dim_Level ';
442: END IF;
443: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
444: WHEN OTHERS THEN
445: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
443: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
444: WHEN OTHERS THEN
445: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
446: IF (x_msg_data IS NOT NULL) THEN
447: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Delete_Dim_Level ';
448: ELSE
449: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Delete_Dim_Level ';
450: END IF;
451: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
445: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
446: IF (x_msg_data IS NOT NULL) THEN
447: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Delete_Dim_Level ';
448: ELSE
449: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Delete_Dim_Level ';
450: END IF;
451: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
452: end Delete_Dim_Level;
453:
459: --: This procedure is part of the Dimension API.
460:
461: procedure Create_Bsc_Dim_Levels_Md(
462: p_commit IN varchar2 -- := FND_API.G_FALSE
463: ,p_Dim_Level_Rec IN BSC_DIMENSION_LEVELS_PUB.Bsc_Dim_Level_Rec_Type
464: ,x_return_status OUT NOCOPY varchar2
465: ,x_msg_count OUT NOCOPY number
466: ,x_msg_data OUT NOCOPY varchar2
467: ) is
465: ,x_msg_count OUT NOCOPY number
466: ,x_msg_data OUT NOCOPY varchar2
467: ) is
468:
469: l_Dim_Level_Rec BSC_DIMENSION_LEVELS_PUB.Bsc_Dim_Level_Rec_Type;
470:
471: begin
472: x_return_status := FND_API.G_RET_STS_SUCCESS;
473: -- Assign all values in the passed "Record" parameter to the locally defined
539: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
540: WHEN NO_DATA_FOUND THEN
541: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
542: IF (x_msg_data IS NOT NULL) THEN
543: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Create_Bsc_Dim_Levels_Md ';
544: ELSE
545: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Create_Bsc_Dim_Levels_Md ';
546: END IF;
547: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
541: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
542: IF (x_msg_data IS NOT NULL) THEN
543: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Create_Bsc_Dim_Levels_Md ';
544: ELSE
545: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Create_Bsc_Dim_Levels_Md ';
546: END IF;
547: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
548: WHEN OTHERS THEN
549: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
547: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
548: WHEN OTHERS THEN
549: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
550: IF (x_msg_data IS NOT NULL) THEN
551: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Create_Bsc_Dim_Levels_Md ';
552: ELSE
553: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Create_Bsc_Dim_Levels_Md ';
554: END IF;
555: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
549: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
550: IF (x_msg_data IS NOT NULL) THEN
551: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Create_Bsc_Dim_Levels_Md ';
552: ELSE
553: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Create_Bsc_Dim_Levels_Md ';
554: END IF;
555: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
556: end Create_Bsc_Dim_Levels_Md;
557:
559: ************************************************************************************/
560:
561: procedure Retrieve_Bsc_Dim_Levels_Md(
562: p_commit IN varchar2 --:= FND_API.G_FALSE
563: ,p_Dim_Level_Rec IN BSC_DIMENSION_LEVELS_PUB.Bsc_Dim_Level_Rec_Type
564: ,x_Dim_Level_Rec IN OUT NOCOPY BSC_DIMENSION_LEVELS_PUB.Bsc_Dim_Level_Rec_Type
565: ,x_return_status OUT NOCOPY varchar2
566: ,x_msg_count OUT NOCOPY number
567: ,x_msg_data OUT NOCOPY varchar2
560:
561: procedure Retrieve_Bsc_Dim_Levels_Md(
562: p_commit IN varchar2 --:= FND_API.G_FALSE
563: ,p_Dim_Level_Rec IN BSC_DIMENSION_LEVELS_PUB.Bsc_Dim_Level_Rec_Type
564: ,x_Dim_Level_Rec IN OUT NOCOPY BSC_DIMENSION_LEVELS_PUB.Bsc_Dim_Level_Rec_Type
565: ,x_return_status OUT NOCOPY varchar2
566: ,x_msg_count OUT NOCOPY number
567: ,x_msg_data OUT NOCOPY varchar2
568: ) is
608: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
609: WHEN NO_DATA_FOUND THEN
610: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
611: IF (x_msg_data IS NOT NULL) THEN
612: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Retrieve_Bsc_Dim_Levels_Md ';
613: ELSE
614: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Retrieve_Bsc_Dim_Levels_Md ';
615: END IF;
616: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
610: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
611: IF (x_msg_data IS NOT NULL) THEN
612: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Retrieve_Bsc_Dim_Levels_Md ';
613: ELSE
614: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Retrieve_Bsc_Dim_Levels_Md ';
615: END IF;
616: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
617: WHEN OTHERS THEN
618: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
616: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
617: WHEN OTHERS THEN
618: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
619: IF (x_msg_data IS NOT NULL) THEN
620: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Retrieve_Bsc_Dim_Levels_Md ';
621: ELSE
622: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Retrieve_Bsc_Dim_Levels_Md ';
623: END IF;
624: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
618: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
619: IF (x_msg_data IS NOT NULL) THEN
620: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Retrieve_Bsc_Dim_Levels_Md ';
621: ELSE
622: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Retrieve_Bsc_Dim_Levels_Md ';
623: END IF;
624: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
625: end Retrieve_Bsc_Dim_Levels_Md;
626:
628: ************************************************************************************/
629:
630: procedure Update_Bsc_Dim_Levels_Md(
631: p_commit IN varchar2 --:= FND_API.G_FALSE
632: ,p_Dim_Level_Rec IN BSC_DIMENSION_LEVELS_PUB.Bsc_Dim_Level_Rec_Type
633: ,x_return_status OUT NOCOPY varchar2
634: ,x_msg_count OUT NOCOPY number
635: ,x_msg_data OUT NOCOPY varchar2
636: ) is
634: ,x_msg_count OUT NOCOPY number
635: ,x_msg_data OUT NOCOPY varchar2
636: ) is
637:
638: l_Dim_Level_Rec BSC_DIMENSION_LEVELS_PUB.Bsc_Dim_Level_Rec_Type;
639:
640: begin
641: x_return_status := FND_API.G_RET_STS_SUCCESS;
642: -- Assign all values in the passed "Record" parameter to the locally defined
682: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
683: WHEN NO_DATA_FOUND THEN
684: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
685: IF (x_msg_data IS NOT NULL) THEN
686: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Update_Bsc_Dim_Levels_Md ';
687: ELSE
688: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Update_Bsc_Dim_Levels_Md ';
689: END IF;
690: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
684: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
685: IF (x_msg_data IS NOT NULL) THEN
686: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Update_Bsc_Dim_Levels_Md ';
687: ELSE
688: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Update_Bsc_Dim_Levels_Md ';
689: END IF;
690: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
691: WHEN OTHERS THEN
692: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
690: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
691: WHEN OTHERS THEN
692: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
693: IF (x_msg_data IS NOT NULL) THEN
694: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Update_Bsc_Dim_Levels_Md ';
695: ELSE
696: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Update_Bsc_Dim_Levels_Md ';
697: END IF;
698: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
692: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
693: IF (x_msg_data IS NOT NULL) THEN
694: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Update_Bsc_Dim_Levels_Md ';
695: ELSE
696: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Update_Bsc_Dim_Levels_Md ';
697: END IF;
698: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
699: end Update_Bsc_Dim_Levels_Md;
700:
702: ************************************************************************************/
703:
704: procedure Delete_Bsc_Dim_Levels_Md(
705: p_commit IN varchar2 --:= FND_API.G_FALSE
706: ,p_Dim_Level_Rec IN BSC_DIMENSION_LEVELS_PUB.Bsc_Dim_Level_Rec_Type
707: ,x_return_status OUT NOCOPY varchar2
708: ,x_msg_count OUT NOCOPY number
709: ,x_msg_data OUT NOCOPY varchar2
710: ) is
753: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
754: WHEN NO_DATA_FOUND THEN
755: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
756: IF (x_msg_data IS NOT NULL) THEN
757: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Delete_Bsc_Dim_Levels_Md ';
758: ELSE
759: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Delete_Bsc_Dim_Levels_Md ';
760: END IF;
761: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
755: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
756: IF (x_msg_data IS NOT NULL) THEN
757: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Delete_Bsc_Dim_Levels_Md ';
758: ELSE
759: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Delete_Bsc_Dim_Levels_Md ';
760: END IF;
761: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
762: WHEN OTHERS THEN
763: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
761: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
762: WHEN OTHERS THEN
763: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
764: IF (x_msg_data IS NOT NULL) THEN
765: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Delete_Bsc_Dim_Levels_Md ';
766: ELSE
767: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Delete_Bsc_Dim_Levels_Md ';
768: END IF;
769: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
763: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
764: IF (x_msg_data IS NOT NULL) THEN
765: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Delete_Bsc_Dim_Levels_Md ';
766: ELSE
767: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Delete_Bsc_Dim_Levels_Md ';
768: END IF;
769: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
770: end Delete_Bsc_Dim_Levels_Md;
771:
776: --: This procedure is part of the Dimension API.
777:
778: procedure Create_Bsc_Sys_Dim_Lvl_Cols(
779: p_commit IN varchar2 -- := FND_API.G_FALSE
780: ,p_Dim_Level_Rec IN BSC_DIMENSION_LEVELS_PUB.Bsc_Dim_Level_Rec_Type
781: ,x_return_status OUT NOCOPY varchar2
782: ,x_msg_count OUT NOCOPY number
783: ,x_msg_data OUT NOCOPY varchar2
784: ) is
815: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
816: WHEN NO_DATA_FOUND THEN
817: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
818: IF (x_msg_data IS NOT NULL) THEN
819: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Create_Bsc_Sys_Dim_Lvl_Cols ';
820: ELSE
821: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Create_Bsc_Sys_Dim_Lvl_Cols ';
822: END IF;
823: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
817: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
818: IF (x_msg_data IS NOT NULL) THEN
819: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Create_Bsc_Sys_Dim_Lvl_Cols ';
820: ELSE
821: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Create_Bsc_Sys_Dim_Lvl_Cols ';
822: END IF;
823: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
824: WHEN OTHERS THEN
825: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
823: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
824: WHEN OTHERS THEN
825: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
826: IF (x_msg_data IS NOT NULL) THEN
827: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Create_Bsc_Sys_Dim_Lvl_Cols ';
828: ELSE
829: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Create_Bsc_Sys_Dim_Lvl_Cols ';
830: END IF;
831: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
825: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
826: IF (x_msg_data IS NOT NULL) THEN
827: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Create_Bsc_Sys_Dim_Lvl_Cols ';
828: ELSE
829: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Create_Bsc_Sys_Dim_Lvl_Cols ';
830: END IF;
831: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
832: end Create_Bsc_Sys_Dim_Lvl_Cols;
833:
835: ************************************************************************************/
836:
837: procedure Retrieve_Bsc_Sys_Dim_Lvl_Cols(
838: p_commit IN varchar2 --:= FND_API.G_FALSE
839: ,p_Dim_Level_Rec IN BSC_DIMENSION_LEVELS_PUB.Bsc_Dim_Level_Rec_Type
840: ,x_Dim_Level_Rec IN OUT NOCOPY BSC_DIMENSION_LEVELS_PUB.Bsc_Dim_Level_Rec_Type
841: ,x_return_status OUT NOCOPY varchar2
842: ,x_msg_count OUT NOCOPY number
843: ,x_msg_data OUT NOCOPY varchar2
836:
837: procedure Retrieve_Bsc_Sys_Dim_Lvl_Cols(
838: p_commit IN varchar2 --:= FND_API.G_FALSE
839: ,p_Dim_Level_Rec IN BSC_DIMENSION_LEVELS_PUB.Bsc_Dim_Level_Rec_Type
840: ,x_Dim_Level_Rec IN OUT NOCOPY BSC_DIMENSION_LEVELS_PUB.Bsc_Dim_Level_Rec_Type
841: ,x_return_status OUT NOCOPY varchar2
842: ,x_msg_count OUT NOCOPY number
843: ,x_msg_data OUT NOCOPY varchar2
844: ) is
875: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
876: WHEN NO_DATA_FOUND THEN
877: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
878: IF (x_msg_data IS NOT NULL) THEN
879: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Retrieve_Bsc_Sys_Dim_Lvl_Cols ';
880: ELSE
881: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Retrieve_Bsc_Sys_Dim_Lvl_Cols ';
882: END IF;
883: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
877: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
878: IF (x_msg_data IS NOT NULL) THEN
879: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Retrieve_Bsc_Sys_Dim_Lvl_Cols ';
880: ELSE
881: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Retrieve_Bsc_Sys_Dim_Lvl_Cols ';
882: END IF;
883: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
884: WHEN OTHERS THEN
885: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
883: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
884: WHEN OTHERS THEN
885: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
886: IF (x_msg_data IS NOT NULL) THEN
887: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Retrieve_Bsc_Sys_Dim_Lvl_Cols ';
888: ELSE
889: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Retrieve_Bsc_Sys_Dim_Lvl_Cols ';
890: END IF;
891: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
885: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
886: IF (x_msg_data IS NOT NULL) THEN
887: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Retrieve_Bsc_Sys_Dim_Lvl_Cols ';
888: ELSE
889: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Retrieve_Bsc_Sys_Dim_Lvl_Cols ';
890: END IF;
891: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
892: end Retrieve_Bsc_Sys_Dim_Lvl_Cols;
893:
895: ************************************************************************************/
896:
897: procedure Update_Bsc_Sys_Dim_Lvl_Cols(
898: p_commit IN varchar2 --:= FND_API.G_FALSE
899: ,p_Dim_Level_Rec IN BSC_DIMENSION_LEVELS_PUB.Bsc_Dim_Level_Rec_Type
900: ,x_return_status OUT NOCOPY varchar2
901: ,x_msg_count OUT NOCOPY number
902: ,x_msg_data OUT NOCOPY varchar2
903: ) is
934: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
935: WHEN NO_DATA_FOUND THEN
936: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
937: IF (x_msg_data IS NOT NULL) THEN
938: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Update_Bsc_Sys_Dim_Lvl_Cols ';
939: ELSE
940: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Update_Bsc_Sys_Dim_Lvl_Cols ';
941: END IF;
942: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
936: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
937: IF (x_msg_data IS NOT NULL) THEN
938: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Update_Bsc_Sys_Dim_Lvl_Cols ';
939: ELSE
940: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Update_Bsc_Sys_Dim_Lvl_Cols ';
941: END IF;
942: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
943: WHEN OTHERS THEN
944: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
942: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
943: WHEN OTHERS THEN
944: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
945: IF (x_msg_data IS NOT NULL) THEN
946: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Update_Bsc_Sys_Dim_Lvl_Cols ';
947: ELSE
948: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Update_Bsc_Sys_Dim_Lvl_Cols ';
949: END IF;
950: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
944: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
945: IF (x_msg_data IS NOT NULL) THEN
946: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Update_Bsc_Sys_Dim_Lvl_Cols ';
947: ELSE
948: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Update_Bsc_Sys_Dim_Lvl_Cols ';
949: END IF;
950: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
951: end Update_Bsc_Sys_Dim_Lvl_Cols;
952:
954: ************************************************************************************/
955:
956: procedure Delete_Bsc_Sys_Dim_Lvl_Cols(
957: p_commit IN varchar2 --:= FND_API.G_FALSE
958: ,p_Dim_Level_Rec IN BSC_DIMENSION_LEVELS_PUB.Bsc_Dim_Level_Rec_Type
959: ,x_return_status OUT NOCOPY varchar2
960: ,x_msg_count OUT NOCOPY number
961: ,x_msg_data OUT NOCOPY varchar2
962: ) is
996: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
997: WHEN NO_DATA_FOUND THEN
998: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
999: IF (x_msg_data IS NOT NULL) THEN
1000: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Delete_Bsc_Sys_Dim_Lvl_Cols ';
1001: ELSE
1002: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Delete_Bsc_Sys_Dim_Lvl_Cols ';
1003: END IF;
1004: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
998: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
999: IF (x_msg_data IS NOT NULL) THEN
1000: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Delete_Bsc_Sys_Dim_Lvl_Cols ';
1001: ELSE
1002: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Delete_Bsc_Sys_Dim_Lvl_Cols ';
1003: END IF;
1004: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1005: WHEN OTHERS THEN
1006: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1004: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1005: WHEN OTHERS THEN
1006: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1007: IF (x_msg_data IS NOT NULL) THEN
1008: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Delete_Bsc_Sys_Dim_Lvl_Cols ';
1009: ELSE
1010: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Delete_Bsc_Sys_Dim_Lvl_Cols ';
1011: END IF;
1012: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1006: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1007: IF (x_msg_data IS NOT NULL) THEN
1008: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Delete_Bsc_Sys_Dim_Lvl_Cols ';
1009: ELSE
1010: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Delete_Bsc_Sys_Dim_Lvl_Cols ';
1011: END IF;
1012: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1013: end Delete_Bsc_Sys_Dim_Lvl_Cols;
1014:
1024: Procedure :
1025: ---------------------------------------------------------------------------------------*/
1026: PROCEDURE Create_Dim_Level_Relation(
1027: p_commit IN varchar2 --:= FND_API.G_FALSE
1028: ,p_Dim_Level_Rec IN BSC_DIMENSION_LEVELS_PUB.Bsc_Dim_Level_Rec_Type
1029: ,x_return_status OUT NOCOPY varchar2
1030: ,x_msg_count OUT NOCOPY number
1031: ,x_msg_data OUT NOCOPY varchar2
1032: ) IS
1030: ,x_msg_count OUT NOCOPY number
1031: ,x_msg_data OUT NOCOPY varchar2
1032: ) IS
1033: v_count number;
1034: v_Dim_Level_Rec BSC_DIMENSION_LEVELS_PUB.Bsc_Dim_Level_Rec_Type;
1035: v_Bsc_Pmf_Dim_Rec BSC_PMF_UI_API_PUB.Bsc_Pmf_Dim_Rec_Type;
1036:
1037:
1038: BEGIN
1098: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1099: WHEN NO_DATA_FOUND THEN
1100: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1101: IF (x_msg_data IS NOT NULL) THEN
1102: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Create_Dim_Level_Relation ';
1103: ELSE
1104: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Create_Dim_Level_Relation ';
1105: END IF;
1106: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1100: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1101: IF (x_msg_data IS NOT NULL) THEN
1102: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Create_Dim_Level_Relation ';
1103: ELSE
1104: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Create_Dim_Level_Relation ';
1105: END IF;
1106: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1107: WHEN OTHERS THEN
1108: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1106: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1107: WHEN OTHERS THEN
1108: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1109: IF (x_msg_data IS NOT NULL) THEN
1110: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Create_Dim_Level_Relation ';
1111: ELSE
1112: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Create_Dim_Level_Relation ';
1113: END IF;
1114: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1108: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1109: IF (x_msg_data IS NOT NULL) THEN
1110: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Create_Dim_Level_Relation ';
1111: ELSE
1112: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Create_Dim_Level_Relation ';
1113: END IF;
1114: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1115: END Create_Dim_Level_Relation;
1116:
1118: Procedure :
1119: ---------------------------------------------------------------------------------------*/
1120: PROCEDURE Delete_Dim_Level_Relation(
1121: p_commit IN varchar2 --:= FND_API.G_FALSE
1122: ,p_Dim_Level_Rec IN BSC_DIMENSION_LEVELS_PUB.Bsc_Dim_Level_Rec_Type
1123: ,x_return_status OUT NOCOPY varchar2
1124: ,x_msg_count OUT NOCOPY number
1125: ,x_msg_data OUT NOCOPY varchar2
1126: ) IS
1125: ,x_msg_data OUT NOCOPY varchar2
1126: ) IS
1127:
1128: v_count number;
1129: v_Dim_Level_Rec BSC_DIMENSION_LEVELS_PUB.Bsc_Dim_Level_Rec_Type;
1130:
1131:
1132: BEGIN
1133: x_return_status := FND_API.G_RET_STS_SUCCESS;
1186: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1187: WHEN NO_DATA_FOUND 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_DIMENSION_LEVELS_PUB.Delete_Dim_Level_Relation ';
1191: ELSE
1192: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Delete_Dim_Level_Relation ';
1193: END IF;
1194: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
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_DIMENSION_LEVELS_PUB.Delete_Dim_Level_Relation ';
1191: ELSE
1192: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Delete_Dim_Level_Relation ';
1193: END IF;
1194: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1195: WHEN OTHERS THEN
1196: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1194: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1195: WHEN OTHERS THEN
1196: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1197: IF (x_msg_data IS NOT NULL) THEN
1198: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Delete_Dim_Level_Relation ';
1199: ELSE
1200: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Delete_Dim_Level_Relation ';
1201: END IF;
1202: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1196: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1197: IF (x_msg_data IS NOT NULL) THEN
1198: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Delete_Dim_Level_Relation ';
1199: ELSE
1200: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Delete_Dim_Level_Relation ';
1201: END IF;
1202: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1203: END Delete_Dim_Level_Relation;
1204: /*---------------------------------------------------------------------------------------
1206: Return tre if the future relation is valid
1207: --------------------------------------------------------------------------------------*/
1208: FUNCTION Is_Valid_Relationship(
1209: p_commit IN varchar2 --:= FND_API.G_FALSE
1210: ,p_Dim_Level_Rec IN BSC_DIMENSION_LEVELS_PUB.Bsc_Dim_Level_Rec_Type
1211: ,x_return_status OUT NOCOPY varchar2
1212: ,x_msg_count OUT NOCOPY number
1213: ,x_msg_data OUT NOCOPY varchar2
1214: ) RETURN BOOLEAN IS
1273: RETURN FALSE;
1274: WHEN NO_DATA_FOUND THEN
1275: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1276: IF (x_msg_data IS NOT NULL) THEN
1277: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Is_Valid_Relationship ';
1278: ELSE
1279: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Is_Valid_Relationship ';
1280: END IF;
1281: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1275: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1276: IF (x_msg_data IS NOT NULL) THEN
1277: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Is_Valid_Relationship ';
1278: ELSE
1279: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Is_Valid_Relationship ';
1280: END IF;
1281: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1282: RETURN FALSE;
1283: WHEN OTHERS THEN
1282: RETURN FALSE;
1283: WHEN OTHERS 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_DIMENSION_LEVELS_PUB.Is_Valid_Relationship ';
1287: ELSE
1288: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Is_Valid_Relationship ';
1289: END IF;
1290: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
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_DIMENSION_LEVELS_PUB.Is_Valid_Relationship ';
1287: ELSE
1288: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Is_Valid_Relationship ';
1289: END IF;
1290: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1291: RETURN FALSE;
1292: END Is_Valid_Relationship;
1368: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1369: WHEN NO_DATA_FOUND THEN
1370: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1371: IF (x_msg_data IS NOT NULL) THEN
1372: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.is_dependent ';
1373: ELSE
1374: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.is_dependent ';
1375: END IF;
1376: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1370: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1371: IF (x_msg_data IS NOT NULL) THEN
1372: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.is_dependent ';
1373: ELSE
1374: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.is_dependent ';
1375: END IF;
1376: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1377: WHEN OTHERS THEN
1378: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1376: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1377: WHEN OTHERS THEN
1378: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1379: IF (x_msg_data IS NOT NULL) THEN
1380: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.is_dependent ';
1381: ELSE
1382: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.is_dependent ';
1383: END IF;
1384: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1378: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1379: IF (x_msg_data IS NOT NULL) THEN
1380: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.is_dependent ';
1381: ELSE
1382: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.is_dependent ';
1383: END IF;
1384: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1385: END is_dependent;
1386:
1450: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1451: WHEN NO_DATA_FOUND THEN
1452: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1453: IF (x_msg_data IS NOT NULL) THEN
1454: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.get_parent_dimension_levels ';
1455: ELSE
1456: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.get_parent_dimension_levels ';
1457: END IF;
1458: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1452: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1453: IF (x_msg_data IS NOT NULL) THEN
1454: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.get_parent_dimension_levels ';
1455: ELSE
1456: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.get_parent_dimension_levels ';
1457: END IF;
1458: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1459: WHEN OTHERS THEN
1460: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1458: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1459: WHEN OTHERS THEN
1460: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1461: IF (x_msg_data IS NOT NULL) THEN
1462: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.get_parent_dimension_levels ';
1463: ELSE
1464: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.get_parent_dimension_levels ';
1465: END IF;
1466: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1460: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1461: IF (x_msg_data IS NOT NULL) THEN
1462: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.get_parent_dimension_levels ';
1463: ELSE
1464: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.get_parent_dimension_levels ';
1465: END IF;
1466: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1467: END get_parent_dimension_levels;
1468: --------------------------------------------------------------------------------------
1530: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1531: WHEN NO_DATA_FOUND THEN
1532: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1533: IF (x_msg_data IS NOT NULL) THEN
1534: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.get_child_dimension_levels ';
1535: ELSE
1536: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.get_child_dimension_levels ';
1537: END IF;
1538: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1532: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1533: IF (x_msg_data IS NOT NULL) THEN
1534: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.get_child_dimension_levels ';
1535: ELSE
1536: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.get_child_dimension_levels ';
1537: END IF;
1538: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1539: WHEN OTHERS THEN
1540: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1538: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1539: WHEN OTHERS THEN
1540: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1541: IF (x_msg_data IS NOT NULL) THEN
1542: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.get_child_dimension_levels ';
1543: ELSE
1544: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.get_child_dimension_levels ';
1545: END IF;
1546: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1540: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1541: IF (x_msg_data IS NOT NULL) THEN
1542: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.get_child_dimension_levels ';
1543: ELSE
1544: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.get_child_dimension_levels ';
1545: END IF;
1546: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1547: END get_child_dimension_levels;
1548:
1592: ************************************************************************************/
1593:
1594: procedure Retrieve_Relationship
1595: (
1596: p_Dim_Level_Rec IN BSC_DIMENSION_LEVELS_PUB.Bsc_Dim_Level_Rec_Type
1597: , x_Dim_Level_Rec OUT NOCOPY BSC_DIMENSION_LEVELS_PUB.Bsc_Dim_Level_Rec_Type
1598: , x_return_status OUT NOCOPY VARCHAR2
1599: , x_msg_count OUT NOCOPY NUMBER
1600: , x_msg_data OUT NOCOPY VARCHAR2
1593:
1594: procedure Retrieve_Relationship
1595: (
1596: p_Dim_Level_Rec IN BSC_DIMENSION_LEVELS_PUB.Bsc_Dim_Level_Rec_Type
1597: , x_Dim_Level_Rec OUT NOCOPY BSC_DIMENSION_LEVELS_PUB.Bsc_Dim_Level_Rec_Type
1598: , x_return_status OUT NOCOPY VARCHAR2
1599: , x_msg_count OUT NOCOPY NUMBER
1600: , x_msg_data OUT NOCOPY VARCHAR2
1601: ) IS
1632: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1633: WHEN NO_DATA_FOUND THEN
1634: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1635: IF (x_msg_data IS NOT NULL) THEN
1636: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Retrieve_Relationship ';
1637: ELSE
1638: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Retrieve_Relationship ';
1639: END IF;
1640: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1634: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1635: IF (x_msg_data IS NOT NULL) THEN
1636: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Retrieve_Relationship ';
1637: ELSE
1638: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Retrieve_Relationship ';
1639: END IF;
1640: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1641: WHEN OTHERS THEN
1642: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1640: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1641: WHEN OTHERS THEN
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_DIMENSION_LEVELS_PUB.Retrieve_Relationship ';
1645: ELSE
1646: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Retrieve_Relationship ';
1647: END IF;
1648: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
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_DIMENSION_LEVELS_PUB.Retrieve_Relationship ';
1645: ELSE
1646: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Retrieve_Relationship ';
1647: END IF;
1648: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1649: END Retrieve_Relationship;
1650:
1652: ************************************************************************************/
1653: --PAJOHRI added 01-JUN-2003
1654: PROCEDURE Drop_Dim_Level_Tabs
1655: (
1656: p_Dim_Level_Rec IN BSC_DIMENSION_LEVELS_PUB.Bsc_Dim_Level_Rec_Type
1657: , x_return_status OUT NOCOPY VARCHAR2
1658: , x_msg_count OUT NOCOPY NUMBER
1659: , x_msg_data OUT NOCOPY VARCHAR2
1660: ) IS
1691: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1692: WHEN NO_DATA_FOUND THEN
1693: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1694: IF (x_msg_data IS NOT NULL) THEN
1695: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Drop_Dim_Level_Tabs ';
1696: ELSE
1697: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Create_Dim_Level ';
1698: END IF;
1699: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1693: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1694: IF (x_msg_data IS NOT NULL) THEN
1695: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Drop_Dim_Level_Tabs ';
1696: ELSE
1697: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Create_Dim_Level ';
1698: END IF;
1699: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1700: WHEN OTHERS THEN
1701: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1699: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1700: WHEN OTHERS THEN
1701: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1702: IF (x_msg_data IS NOT NULL) THEN
1703: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Drop_Dim_Level_Tabs ';
1704: ELSE
1705: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Drop_Dim_Level_Tabs ';
1706: END IF;
1707: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1701: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1702: IF (x_msg_data IS NOT NULL) THEN
1703: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Drop_Dim_Level_Tabs ';
1704: ELSE
1705: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Drop_Dim_Level_Tabs ';
1706: END IF;
1707: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1708: end Drop_Dim_Level_Tabs;
1709: --=============================================================================
1709: --=============================================================================
1710: PROCEDURE Translate_Dimension_Level (
1711: p_Commit IN VARCHAR2 --:= FND_API.G_FALSE
1712: ,p_Bsc_Pmf_Dim_Rec IN BSC_PMF_UI_API_PUB.Bsc_Pmf_Dim_Rec_Type
1713: ,p_Bsc_Dim_Level_Rec IN BSC_DIMENSION_LEVELS_PUB.Bsc_Dim_Level_Rec_Type
1714: ,x_return_status OUT NOCOPY VARCHAR2
1715: ,x_msg_count OUT NOCOPY NUMBER
1716: ,x_msg_data OUT NOCOPY VARCHAR2
1717: )
1749: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
1750: WHEN NO_DATA_FOUND THEN
1751: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1752: IF (x_msg_data IS NOT NULL) THEN
1753: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Translate_Dimension_Level ';
1754: ELSE
1755: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Translate_Dimension_Level ';
1756: END IF;
1757: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1751: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1752: IF (x_msg_data IS NOT NULL) THEN
1753: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Translate_Dimension_Level ';
1754: ELSE
1755: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Translate_Dimension_Level ';
1756: END IF;
1757: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1758: WHEN OTHERS THEN
1759: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1757: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
1758: WHEN OTHERS THEN
1759: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1760: IF (x_msg_data IS NOT NULL) THEN
1761: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Translate_Dimension_Level ';
1762: ELSE
1763: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Translate_Dimension_Level ';
1764: END IF;
1765: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1759: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1760: IF (x_msg_data IS NOT NULL) THEN
1761: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.Translate_Dimension_Level ';
1762: ELSE
1763: x_msg_data := SQLERRM||' at BSC_DIMENSION_LEVELS_PUB.Translate_Dimension_Level ';
1764: END IF;
1765: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
1766: END Translate_Dimension_Level;
1767: --=============================================================================
1770: * API called from PMF for "All" enhancement
1771: */
1772: PROCEDURE load_dimension_level(
1773: p_commit IN VARCHAR2 --:= FND_API.G_FALSE
1774: ,p_dim_level_rec IN BSC_DIMENSION_LEVELS_PUB.Bsc_Dim_Level_Rec_Type
1775: ,x_return_status OUT NOCOPY VARCHAR2
1776: ,x_msg_count OUT NOCOPY NUMBER
1777: ,x_msg_data OUT NOCOPY VARCHAR2
1778: )
1776: ,x_msg_count OUT NOCOPY NUMBER
1777: ,x_msg_data OUT NOCOPY VARCHAR2
1778: )
1779: IS
1780: l_bsc_dim_rec BSC_DIMENSION_LEVELS_PUB.Bsc_Dim_Level_Rec_Type;
1781: l_level_view_name BSC_SYS_DIM_LEVELS_B.Level_View_Name%TYPE;
1782: l_count NUMBER;
1783: l_table_type BSC_SYS_DIM_LEVELS_B.Table_Type%TYPE;
1784: l_level_pk_col BSC_SYS_DIM_LEVELS_B.Level_Pk_Col%TYPE;
1803: l_Bsc_Dim_Rec.Bsc_Level_Id := NULL;
1804: END;
1805:
1806: IF (l_Bsc_Dim_Rec.Bsc_Level_Id IS NULL) THEN
1807: BSC_DIMENSION_LEVELS_PUB.Create_Dim_Level(
1808: p_commit => p_Commit
1809: ,p_Dim_Level_Rec => l_Bsc_Dim_Rec
1810: ,x_return_status => x_return_status
1811: ,x_msg_count => x_msg_count
1814: ELSE
1815: l_Bsc_Dim_Rec.Bsc_Level_Table_Type := l_table_type;
1816: l_Bsc_Dim_Rec.Bsc_Pk_Col := l_level_pk_col;
1817:
1818: BSC_DIMENSION_LEVELS_PUB.Update_Dim_Level(
1819: p_commit => p_Commit
1820: ,p_Dim_Level_Rec => l_Bsc_Dim_Rec
1821: ,x_return_status => x_return_status
1822: ,x_msg_count => x_msg_count
1842: );
1843: WHEN OTHERS THEN
1844: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1845: IF (x_msg_data IS NOT NULL) THEN
1846: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.load_dimension_level ';
1847: ELSE
1848: x_msg_data := 'BSC_DIMENSION_LEVELS_PUB.load_dimension_level '||SQLERRM;
1849: END IF;
1850:
1844: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1845: IF (x_msg_data IS NOT NULL) THEN
1846: x_msg_data := x_msg_data||' -> BSC_DIMENSION_LEVELS_PUB.load_dimension_level ';
1847: ELSE
1848: x_msg_data := 'BSC_DIMENSION_LEVELS_PUB.load_dimension_level '||SQLERRM;
1849: END IF;
1850:
1851: END load_dimension_level;
1852: --=============================================================================
1860:
1861: procedure Trans_DimObj_By_Given_Lang
1862: (
1863: p_commit IN VARCHAR2
1864: , p_dim_level_rec IN BSC_DIMENSION_LEVELS_PUB.Bsc_Dim_Level_Rec_Type
1865: , x_return_status OUT NOCOPY VARCHAR2
1866: , x_msg_count OUT NOCOPY NUMBER
1867: , x_msg_data OUT NOCOPY VARCHAR2
1868: )
1917: x_return_status VARCHAR2(1);
1918: x_msg_count NUMBER;
1919: x_msg_data VARCHAR2(200);
1920:
1921: l_dim_level_rec BSC_DIMENSION_LEVELS_PUB.Bsc_Dim_Level_Rec_Type;
1922: l_Error_Tbl BIS_UTILITIES_PUB.Error_Tbl_Type;
1923: l_Count number;
1924: l_Temp_Count NUMBER;
1925: l_Dummy VARCHAR2(100);
2055: RAISE;
2056:
2057: END Validate_Imported_Level_Views;
2058:
2059: end BSC_DIMENSION_LEVELS_PUB;