1: package body BSC_SCORECARD_PUB as
2: /* $Header: BSCPTABB.pls 120.6 2007/12/10 11:19:39 bijain ship $ */
3: /*
4: +======================================================================================+
5: | Copyright (c) 2001 Oracle Corporation, Redwood Shores, CA, USA |
35: | 02-NOV-07 bijain BugFix 6340598 |
36: +======================================================================================+
37: */
38:
39: G_PKG_NAME CONSTANT varchar2(30) := 'BSC_SCORECARD_PUB';
40:
41:
42: --New procedure with OUT parameter
43: procedure Create_Tab(
41:
42: --New procedure with OUT parameter
43: procedure Create_Tab(
44: p_commit IN varchar2 := FND_API.G_FALSE
45: ,p_Bsc_Tab_Entity_Rec IN BSC_SCORECARD_PUB.Bsc_Tab_Entity_Rec
46: ,x_Bsc_Tab_Entity_Rec OUT NOCOPY BSC_SCORECARD_PUB.Bsc_Tab_Entity_Rec
47: ,x_return_status OUT NOCOPY varchar2
48: ,x_msg_count OUT NOCOPY number
49: ,x_msg_data OUT NOCOPY varchar2
42: --New procedure with OUT parameter
43: procedure Create_Tab(
44: p_commit IN varchar2 := FND_API.G_FALSE
45: ,p_Bsc_Tab_Entity_Rec IN BSC_SCORECARD_PUB.Bsc_Tab_Entity_Rec
46: ,x_Bsc_Tab_Entity_Rec OUT NOCOPY BSC_SCORECARD_PUB.Bsc_Tab_Entity_Rec
47: ,x_return_status OUT NOCOPY varchar2
48: ,x_msg_count OUT NOCOPY number
49: ,x_msg_data OUT NOCOPY varchar2
50: ) is
48: ,x_msg_count OUT NOCOPY number
49: ,x_msg_data OUT NOCOPY varchar2
50: ) is
51:
52: l_Bsc_Tab_Entity_Rec BSC_SCORECARD_PUB.Bsc_Tab_Entity_Rec;
53:
54: begin
55: FND_MSG_PUB.Initialize;
56: x_return_status := FND_API.G_RET_STS_SUCCESS;
151: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
152: WHEN NO_DATA_FOUND THEN
153: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
154: IF (x_msg_data IS NOT NULL) THEN
155: x_msg_data := x_msg_data||' -> BSC_SCORECARD_PUB.Create_Tab with parameter x_Bsc_Tab_Entity_Rec ';
156: ELSE
157: x_msg_data := SQLERRM||' at BSC_SCORECARD_PUB.Create_Tab with parameter x_Bsc_Tab_Entity_Rec ';
158: END IF;
159: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
153: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
154: IF (x_msg_data IS NOT NULL) THEN
155: x_msg_data := x_msg_data||' -> BSC_SCORECARD_PUB.Create_Tab with parameter x_Bsc_Tab_Entity_Rec ';
156: ELSE
157: x_msg_data := SQLERRM||' at BSC_SCORECARD_PUB.Create_Tab with parameter x_Bsc_Tab_Entity_Rec ';
158: END IF;
159: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
160: WHEN OTHERS THEN
161: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
159: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
160: WHEN OTHERS THEN
161: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
162: IF (x_msg_data IS NOT NULL) THEN
163: x_msg_data := x_msg_data||' -> BSC_SCORECARD_PUB.Create_Tab with parameter x_Bsc_Tab_Entity_Rec ';
164: ELSE
165: x_msg_data := SQLERRM||' at BSC_SCORECARD_PUB.Create_Tab with parameter x_Bsc_Tab_Entity_Rec ';
166: END IF;
167: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
161: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
162: IF (x_msg_data IS NOT NULL) THEN
163: x_msg_data := x_msg_data||' -> BSC_SCORECARD_PUB.Create_Tab with parameter x_Bsc_Tab_Entity_Rec ';
164: ELSE
165: x_msg_data := SQLERRM||' at BSC_SCORECARD_PUB.Create_Tab with parameter x_Bsc_Tab_Entity_Rec ';
166: END IF;
167: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
168:
169: end Create_Tab;
173: ************************************************************************************/
174: --Modified procedure without OUT parameter
175: procedure Create_Tab(
176: p_commit IN varchar2 := FND_API.G_FALSE
177: ,p_Bsc_Tab_Entity_Rec IN BSC_SCORECARD_PUB.Bsc_Tab_Entity_Rec
178: ,x_return_status OUT NOCOPY varchar2
179: ,x_msg_count OUT NOCOPY number
180: ,x_msg_data OUT NOCOPY varchar2
181: ) is
179: ,x_msg_count OUT NOCOPY number
180: ,x_msg_data OUT NOCOPY varchar2
181: ) is
182:
183: l_Bsc_Tab_Entity_Rec BSC_SCORECARD_PUB.Bsc_Tab_Entity_Rec;
184: l_Bsc_Tab_Entity_Rec_Out BSC_SCORECARD_PUB.Bsc_Tab_Entity_Rec;
185:
186: begin
187: FND_MSG_PUB.Initialize;
180: ,x_msg_data OUT NOCOPY varchar2
181: ) is
182:
183: l_Bsc_Tab_Entity_Rec BSC_SCORECARD_PUB.Bsc_Tab_Entity_Rec;
184: l_Bsc_Tab_Entity_Rec_Out BSC_SCORECARD_PUB.Bsc_Tab_Entity_Rec;
185:
186: begin
187: FND_MSG_PUB.Initialize;
188: x_return_status := FND_API.G_RET_STS_SUCCESS;
187: FND_MSG_PUB.Initialize;
188: x_return_status := FND_API.G_RET_STS_SUCCESS;
189: l_Bsc_Tab_Entity_Rec := p_Bsc_Tab_Entity_Rec;
190:
191: BSC_SCORECARD_PUB.Create_Tab(
192: p_commit => p_commit
193: ,p_Bsc_Tab_Entity_Rec => l_Bsc_Tab_Entity_Rec
194: ,x_Bsc_Tab_Entity_Rec => l_Bsc_Tab_Entity_Rec_Out
195: ,x_return_status => x_return_status
224: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
225: WHEN NO_DATA_FOUND THEN
226: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
227: IF (x_msg_data IS NOT NULL) THEN
228: x_msg_data := x_msg_data||' -> BSC_SCORECARD_PUB.Create_Tab ';
229: ELSE
230: x_msg_data := SQLERRM||' at BSC_SCORECARD_PUB.Create_Tab ';
231: END IF;
232: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
226: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
227: IF (x_msg_data IS NOT NULL) THEN
228: x_msg_data := x_msg_data||' -> BSC_SCORECARD_PUB.Create_Tab ';
229: ELSE
230: x_msg_data := SQLERRM||' at BSC_SCORECARD_PUB.Create_Tab ';
231: END IF;
232: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
233: WHEN OTHERS THEN
234: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
232: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
233: WHEN OTHERS THEN
234: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
235: IF (x_msg_data IS NOT NULL) THEN
236: x_msg_data := x_msg_data||' -> BSC_SCORECARD_PUB.Create_Tab ';
237: ELSE
238: x_msg_data := SQLERRM||' at BSC_SCORECARD_PUB.Create_Tab ';
239: END IF;
240: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
234: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
235: IF (x_msg_data IS NOT NULL) THEN
236: x_msg_data := x_msg_data||' -> BSC_SCORECARD_PUB.Create_Tab ';
237: ELSE
238: x_msg_data := SQLERRM||' at BSC_SCORECARD_PUB.Create_Tab ';
239: END IF;
240: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
241:
242: end Create_Tab;
245: /************************************************************************************
246: ************************************************************************************/
247: --new procedure. Initializing the Tab Entity record.
248: procedure Initialize_Tab_Entity_Rec(
249: p_Bsc_Tab_Entity_Rec IN BSC_SCORECARD_PUB.Bsc_Tab_Entity_Rec
250: ,x_Bsc_Tab_Entity_Rec OUT NOCOPY BSC_SCORECARD_PUB.Bsc_Tab_Entity_Rec
251: ,x_return_status OUT NOCOPY varchar2
252: ,x_msg_count OUT NOCOPY number
253: ,x_msg_data OUT NOCOPY varchar2
246: ************************************************************************************/
247: --new procedure. Initializing the Tab Entity record.
248: procedure Initialize_Tab_Entity_Rec(
249: p_Bsc_Tab_Entity_Rec IN BSC_SCORECARD_PUB.Bsc_Tab_Entity_Rec
250: ,x_Bsc_Tab_Entity_Rec OUT NOCOPY BSC_SCORECARD_PUB.Bsc_Tab_Entity_Rec
251: ,x_return_status OUT NOCOPY varchar2
252: ,x_msg_count OUT NOCOPY number
253: ,x_msg_data OUT NOCOPY varchar2
254: ) is
276: EXCEPTION
277: WHEN OTHERS THEN
278: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
279: IF (x_msg_data IS NOT NULL) THEN
280: x_msg_data := x_msg_data||' -> BSC_SCORECARD_PUB.Initialize_Tab_Entity_Rec ';
281: ELSE
282: x_msg_data := SQLERRM||' at BSC_SCORECARD_PUB.Initialize_Tab_Entity_Rec ';
283: END IF;
284: RAISE;
278: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
279: IF (x_msg_data IS NOT NULL) THEN
280: x_msg_data := x_msg_data||' -> BSC_SCORECARD_PUB.Initialize_Tab_Entity_Rec ';
281: ELSE
282: x_msg_data := SQLERRM||' at BSC_SCORECARD_PUB.Initialize_Tab_Entity_Rec ';
283: END IF;
284: RAISE;
285: end Initialize_Tab_Entity_Rec;
286:
289: ************************************************************************************/
290:
291: procedure Retrieve_Tab(
292: p_commit IN varchar2 := FND_API.G_FALSE
293: ,p_Bsc_Tab_Entity_Rec IN BSC_SCORECARD_PUB.Bsc_Tab_Entity_Rec
294: ,x_Bsc_Tab_Entity_Rec IN OUT NOCOPY BSC_SCORECARD_PUB.Bsc_Tab_Entity_Rec
295: ,x_return_status OUT NOCOPY varchar2
296: ,x_msg_count OUT NOCOPY number
297: ,x_msg_data OUT NOCOPY varchar2
290:
291: procedure Retrieve_Tab(
292: p_commit IN varchar2 := FND_API.G_FALSE
293: ,p_Bsc_Tab_Entity_Rec IN BSC_SCORECARD_PUB.Bsc_Tab_Entity_Rec
294: ,x_Bsc_Tab_Entity_Rec IN OUT NOCOPY BSC_SCORECARD_PUB.Bsc_Tab_Entity_Rec
295: ,x_return_status OUT NOCOPY varchar2
296: ,x_msg_count OUT NOCOPY number
297: ,x_msg_data OUT NOCOPY varchar2
298: ) is
330: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
331: WHEN NO_DATA_FOUND THEN
332: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
333: IF (x_msg_data IS NOT NULL) THEN
334: x_msg_data := x_msg_data||' -> BSC_SCORECARD_PUB.Retrieve_Tab ';
335: ELSE
336: x_msg_data := SQLERRM||' at BSC_SCORECARD_PUB.Retrieve_Tab ';
337: END IF;
338: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
332: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
333: IF (x_msg_data IS NOT NULL) THEN
334: x_msg_data := x_msg_data||' -> BSC_SCORECARD_PUB.Retrieve_Tab ';
335: ELSE
336: x_msg_data := SQLERRM||' at BSC_SCORECARD_PUB.Retrieve_Tab ';
337: END IF;
338: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
339: WHEN OTHERS THEN
340: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
338: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
339: WHEN OTHERS THEN
340: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
341: IF (x_msg_data IS NOT NULL) THEN
342: x_msg_data := x_msg_data||' -> BSC_SCORECARD_PUB.Retrieve_Tab ';
343: ELSE
344: x_msg_data := SQLERRM||' at BSC_SCORECARD_PUB.Retrieve_Tab ';
345: END IF;
346: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
340: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
341: IF (x_msg_data IS NOT NULL) THEN
342: x_msg_data := x_msg_data||' -> BSC_SCORECARD_PUB.Retrieve_Tab ';
343: ELSE
344: x_msg_data := SQLERRM||' at BSC_SCORECARD_PUB.Retrieve_Tab ';
345: END IF;
346: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
347:
348: end Retrieve_Tab;
351: ************************************************************************************/
352:
353: procedure Update_Tab(
354: p_commit IN varchar2 := FND_API.G_FALSE
355: ,p_Bsc_Tab_Entity_Rec IN BSC_SCORECARD_PUB.Bsc_Tab_Entity_Rec
356: ,x_return_status OUT NOCOPY varchar2
357: ,x_msg_count OUT NOCOPY number
358: ,x_msg_data OUT NOCOPY varchar2
359: ) is
390: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
391: WHEN NO_DATA_FOUND THEN
392: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
393: IF (x_msg_data IS NOT NULL) THEN
394: x_msg_data := x_msg_data||' -> BSC_SCORECARD_PUB.Update_Tab ';
395: ELSE
396: x_msg_data := SQLERRM||' at BSC_SCORECARD_PUB.Update_Tab ';
397: END IF;
398: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
392: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
393: IF (x_msg_data IS NOT NULL) THEN
394: x_msg_data := x_msg_data||' -> BSC_SCORECARD_PUB.Update_Tab ';
395: ELSE
396: x_msg_data := SQLERRM||' at BSC_SCORECARD_PUB.Update_Tab ';
397: END IF;
398: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
399: WHEN OTHERS THEN
400: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
398: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
399: WHEN OTHERS THEN
400: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
401: IF (x_msg_data IS NOT NULL) THEN
402: x_msg_data := x_msg_data||' -> BSC_SCORECARD_PUB.Update_Tab ';
403: ELSE
404: x_msg_data := SQLERRM||' at BSC_SCORECARD_PUB.Update_Tab ';
405: END IF;
406: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
400: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
401: IF (x_msg_data IS NOT NULL) THEN
402: x_msg_data := x_msg_data||' -> BSC_SCORECARD_PUB.Update_Tab ';
403: ELSE
404: x_msg_data := SQLERRM||' at BSC_SCORECARD_PUB.Update_Tab ';
405: END IF;
406: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
407:
408: end Update_Tab;
411: ************************************************************************************/
412:
413: procedure Delete_Tab(
414: p_commit IN varchar2 := FND_API.G_FALSE
415: ,p_Bsc_Tab_Entity_Rec IN BSC_SCORECARD_PUB.Bsc_Tab_Entity_Rec
416: ,x_return_status OUT NOCOPY varchar2
417: ,x_msg_count OUT NOCOPY number
418: ,x_msg_data OUT NOCOPY varchar2
419: ) is
450: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
451: WHEN NO_DATA_FOUND THEN
452: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
453: IF (x_msg_data IS NOT NULL) THEN
454: x_msg_data := x_msg_data||' -> BSC_SCORECARD_PUB.Delete_Tab ';
455: ELSE
456: x_msg_data := SQLERRM||' at BSC_SCORECARD_PUB.Delete_Tab ';
457: END IF;
458: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
452: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
453: IF (x_msg_data IS NOT NULL) THEN
454: x_msg_data := x_msg_data||' -> BSC_SCORECARD_PUB.Delete_Tab ';
455: ELSE
456: x_msg_data := SQLERRM||' at BSC_SCORECARD_PUB.Delete_Tab ';
457: END IF;
458: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
459: WHEN OTHERS THEN
460: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
458: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
459: WHEN OTHERS THEN
460: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
461: IF (x_msg_data IS NOT NULL) THEN
462: x_msg_data := x_msg_data||' -> BSC_SCORECARD_PUB.Delete_Tab ';
463: ELSE
464: x_msg_data := SQLERRM||' at BSC_SCORECARD_PUB.Delete_Tab ';
465: END IF;
466: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
460: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
461: IF (x_msg_data IS NOT NULL) THEN
462: x_msg_data := x_msg_data||' -> BSC_SCORECARD_PUB.Delete_Tab ';
463: ELSE
464: x_msg_data := SQLERRM||' at BSC_SCORECARD_PUB.Delete_Tab ';
465: END IF;
466: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
467:
468: end Delete_Tab;
472: ***********************************************************************************/
473: PROCEDURE Create_Tab_Access_For_Resp(
474: p_Resposibility_Key IN VARCHAR2
475: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
476: ,p_Bsc_Tab_Entity_Rec IN BSC_SCORECARD_PUB.Bsc_Tab_Entity_Rec
477: ,x_return_status OUT NOCOPY VARCHAR2
478: ,x_msg_count OUT NOCOPY NUMBER
479: ,x_msg_data OUT NOCOPY VARCHAR2
480: )IS
477: ,x_return_status OUT NOCOPY VARCHAR2
478: ,x_msg_count OUT NOCOPY NUMBER
479: ,x_msg_data OUT NOCOPY VARCHAR2
480: )IS
481: l_Bsc_Tab_Entity_Rec BSC_SCORECARD_PUB.Bsc_Tab_Entity_Rec;
482: l_Count NUMBER;
483:
484: CURSOR c_Resp_Ids IS
485: SELECT responsibility_id
541: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
542: WHEN NO_DATA_FOUND THEN
543: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
544: IF (x_msg_data IS NOT NULL) THEN
545: x_msg_data := x_msg_data||' -> BSC_SCORECARD_PUB.Create_Tab_Access_For_Resp ';
546: ELSE
547: x_msg_data := SQLERRM||' at BSC_SCORECARD_PUB.Create_Tab_Access_For_Resp ';
548: END IF;
549: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
543: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
544: IF (x_msg_data IS NOT NULL) THEN
545: x_msg_data := x_msg_data||' -> BSC_SCORECARD_PUB.Create_Tab_Access_For_Resp ';
546: ELSE
547: x_msg_data := SQLERRM||' at BSC_SCORECARD_PUB.Create_Tab_Access_For_Resp ';
548: END IF;
549: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
550: WHEN OTHERS THEN
551: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
549: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
550: WHEN OTHERS THEN
551: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
552: IF (x_msg_data IS NOT NULL) THEN
553: x_msg_data := x_msg_data||' -> BSC_SCORECARD_PUB.Create_Tab_Access_For_Resp ';
554: ELSE
555: x_msg_data := SQLERRM||' AT BSC_SCORECARD_PUB.Create_Tab_Access_For_Resp ';
556: END IF;
557: END Create_Tab_Access_For_Resp;
551: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
552: IF (x_msg_data IS NOT NULL) THEN
553: x_msg_data := x_msg_data||' -> BSC_SCORECARD_PUB.Create_Tab_Access_For_Resp ';
554: ELSE
555: x_msg_data := SQLERRM||' AT BSC_SCORECARD_PUB.Create_Tab_Access_For_Resp ';
556: END IF;
557: END Create_Tab_Access_For_Resp;
558:
559:
561: ************************************************************************************/
562:
563: PROCEDURE Create_Tab_Access(
564: p_commit IN VARCHAR2 := FND_API.G_FALSE
565: ,p_Bsc_Tab_Entity_Rec IN BSC_SCORECARD_PUB.Bsc_Tab_Entity_Rec
566: ,x_return_status OUT NOCOPY VARCHAR2
567: ,x_msg_count OUT NOCOPY NUMBER
568: ,x_msg_data OUT NOCOPY VARCHAR2
569: ) IS
567: ,x_msg_count OUT NOCOPY NUMBER
568: ,x_msg_data OUT NOCOPY VARCHAR2
569: ) IS
570:
571: l_Bsc_Tab_Entity_Rec BSC_SCORECARD_PUB.Bsc_Tab_Entity_Rec;
572: l_Responsibility_Key FND_RESPONSIBILITY.RESPONSIBILITY_KEY%TYPE;
573: l_Comma_Sep_Resp_Key VARCHAR2(32000):= NULL;
574: l_Tab_Short_Name BSC_TABS_B.SHORT_NAME%TYPE := NULL;
575:
638: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
639: WHEN NO_DATA_FOUND THEN
640: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
641: IF (x_msg_data IS NOT NULL) THEN
642: x_msg_data := x_msg_data||' -> BSC_SCORECARD_PUB.Create_Tab_Access ';
643: ELSE
644: x_msg_data := SQLERRM||' at BSC_SCORECARD_PUB.Create_Tab_Access ';
645: END IF;
646: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
640: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
641: IF (x_msg_data IS NOT NULL) THEN
642: x_msg_data := x_msg_data||' -> BSC_SCORECARD_PUB.Create_Tab_Access ';
643: ELSE
644: x_msg_data := SQLERRM||' at BSC_SCORECARD_PUB.Create_Tab_Access ';
645: END IF;
646: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
647: WHEN OTHERS THEN
648: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
646: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
647: WHEN OTHERS THEN
648: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
649: IF (x_msg_data IS NOT NULL) THEN
650: x_msg_data := x_msg_data||' -> BSC_SCORECARD_PUB.Create_Tab_Access ';
651: ELSE
652: x_msg_data := SQLERRM||' at BSC_SCORECARD_PUB.Create_Tab_Access ';
653: END IF;
654: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
648: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
649: IF (x_msg_data IS NOT NULL) THEN
650: x_msg_data := x_msg_data||' -> BSC_SCORECARD_PUB.Create_Tab_Access ';
651: ELSE
652: x_msg_data := SQLERRM||' at BSC_SCORECARD_PUB.Create_Tab_Access ';
653: END IF;
654: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
655:
656: end Create_Tab_Access;
659: ************************************************************************************/
660:
661: procedure Create_Tab_Grants(
662: p_commit IN varchar2 := FND_API.G_FALSE
663: ,p_Bsc_Tab_Entity_Rec IN BSC_SCORECARD_PUB.Bsc_Tab_Entity_Rec
664: ,x_return_status OUT NOCOPY varchar2
665: ,x_msg_count OUT NOCOPY number
666: ,x_msg_data OUT NOCOPY varchar2
667: ) is
665: ,x_msg_count OUT NOCOPY number
666: ,x_msg_data OUT NOCOPY varchar2
667: ) is
668:
669: l_Bsc_Tab_Entity_Rec BSC_SCORECARD_PUB.Bsc_Tab_Entity_Rec;
670:
671: l_responsibility_key varchar2(30);
672:
673: begin
706: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
707: WHEN NO_DATA_FOUND THEN
708: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
709: IF (x_msg_data IS NOT NULL) THEN
710: x_msg_data := x_msg_data||' -> BSC_SCORECARD_PUB.Create_Tab_Grants ';
711: ELSE
712: x_msg_data := SQLERRM||' at BSC_SCORECARD_PUB.Create_Tab_Grants ';
713: END IF;
714: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
708: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
709: IF (x_msg_data IS NOT NULL) THEN
710: x_msg_data := x_msg_data||' -> BSC_SCORECARD_PUB.Create_Tab_Grants ';
711: ELSE
712: x_msg_data := SQLERRM||' at BSC_SCORECARD_PUB.Create_Tab_Grants ';
713: END IF;
714: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
715: WHEN OTHERS THEN
716: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
714: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
715: WHEN OTHERS THEN
716: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
717: IF (x_msg_data IS NOT NULL) THEN
718: x_msg_data := x_msg_data||' -> BSC_SCORECARD_PUB.Create_Tab_Grants ';
719: ELSE
720: x_msg_data := SQLERRM||' at BSC_SCORECARD_PUB.Create_Tab_Grants ';
721: END IF;
722: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
716: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
717: IF (x_msg_data IS NOT NULL) THEN
718: x_msg_data := x_msg_data||' -> BSC_SCORECARD_PUB.Create_Tab_Grants ';
719: ELSE
720: x_msg_data := SQLERRM||' at BSC_SCORECARD_PUB.Create_Tab_Grants ';
721: END IF;
722: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
723:
724: end Create_Tab_Grants;
727: ************************************************************************************/
728:
729: procedure Update_System_Time_Stamp(
730: p_commit IN varchar2 := FND_API.G_FALSE
731: ,p_Bsc_Tab_Entity_Rec IN BSC_SCORECARD_PUB.Bsc_Tab_Entity_Rec
732: ,x_return_status OUT NOCOPY varchar2
733: ,x_msg_count OUT NOCOPY number
734: ,x_msg_data OUT NOCOPY varchar2
735: ) is
766: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
767: WHEN NO_DATA_FOUND THEN
768: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
769: IF (x_msg_data IS NOT NULL) THEN
770: x_msg_data := x_msg_data||' -> BSC_SCORECARD_PUB.Update_System_Time_Stamp ';
771: ELSE
772: x_msg_data := SQLERRM||' at BSC_SCORECARD_PUB.Update_System_Time_Stamp ';
773: END IF;
774: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
768: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
769: IF (x_msg_data IS NOT NULL) THEN
770: x_msg_data := x_msg_data||' -> BSC_SCORECARD_PUB.Update_System_Time_Stamp ';
771: ELSE
772: x_msg_data := SQLERRM||' at BSC_SCORECARD_PUB.Update_System_Time_Stamp ';
773: END IF;
774: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
775: WHEN OTHERS THEN
776: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
774: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
775: WHEN OTHERS THEN
776: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
777: IF (x_msg_data IS NOT NULL) THEN
778: x_msg_data := x_msg_data||' -> BSC_SCORECARD_PUB.Update_System_Time_Stamp ';
779: ELSE
780: x_msg_data := SQLERRM||' at BSC_SCORECARD_PUB.Update_System_Time_Stamp ';
781: END IF;
782: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
776: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
777: IF (x_msg_data IS NOT NULL) THEN
778: x_msg_data := x_msg_data||' -> BSC_SCORECARD_PUB.Update_System_Time_Stamp ';
779: ELSE
780: x_msg_data := SQLERRM||' at BSC_SCORECARD_PUB.Update_System_Time_Stamp ';
781: END IF;
782: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
783:
784: end Update_System_Time_Stamp;
787: ************************************************************************************/
788:
789: procedure Update_Tab_Time_Stamp(
790: p_commit IN varchar2 := FND_API.G_FALSE
791: ,p_Bsc_Tab_Entity_Rec IN BSC_SCORECARD_PUB.Bsc_Tab_Entity_Rec
792: ,x_return_status OUT NOCOPY varchar2
793: ,x_msg_count OUT NOCOPY number
794: ,x_msg_data OUT NOCOPY varchar2
795: ) is
826: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
827: WHEN NO_DATA_FOUND THEN
828: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
829: IF (x_msg_data IS NOT NULL) THEN
830: x_msg_data := x_msg_data||' -> BSC_SCORECARD_PUB.Update_Tab_Time_Stamp ';
831: ELSE
832: x_msg_data := SQLERRM||' at BSC_SCORECARD_PUB.Update_Tab_Time_Stamp ';
833: END IF;
834: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
828: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
829: IF (x_msg_data IS NOT NULL) THEN
830: x_msg_data := x_msg_data||' -> BSC_SCORECARD_PUB.Update_Tab_Time_Stamp ';
831: ELSE
832: x_msg_data := SQLERRM||' at BSC_SCORECARD_PUB.Update_Tab_Time_Stamp ';
833: END IF;
834: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
835: WHEN OTHERS THEN
836: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
834: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
835: WHEN OTHERS THEN
836: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
837: IF (x_msg_data IS NOT NULL) THEN
838: x_msg_data := x_msg_data||' -> BSC_SCORECARD_PUB.Update_Tab_Time_Stamp ';
839: ELSE
840: x_msg_data := SQLERRM||' at BSC_SCORECARD_PUB.Update_Tab_Time_Stamp ';
841: END IF;
842: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
836: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
837: IF (x_msg_data IS NOT NULL) THEN
838: x_msg_data := x_msg_data||' -> BSC_SCORECARD_PUB.Update_Tab_Time_Stamp ';
839: ELSE
840: x_msg_data := SQLERRM||' at BSC_SCORECARD_PUB.Update_Tab_Time_Stamp ';
841: END IF;
842: --DBMS_OUTPUT.PUT_LINE('EXCEPTION OTHERS '||x_msg_data);
843:
844: end Update_Tab_Time_Stamp;
1086: BEGIN
1087:
1088: FOR cd IN c_chid_scorecards LOOP
1089:
1090: IF (BSC_SCORECARD_PUB.Check_Tab_UserAccess_Func_Only(cd.tab_id,p_user,'BSC_SCORECARD_ACCESS_VIEW') ='Y') THEN
1091:
1092: IF (l_tablist_name IS NULL) THEN
1093: l_tablist_name := cd.name ;
1094: ELSE
1203: l_istaborderEnabled := 'N';
1204:
1205: IF(p_tab_id IS NULL) THEN
1206: FOR root_tabs IN c_root_tab_ids LOOP
1207: l_istaborderEnabled := BSC_SCORECARD_PUB.Check_Tab_UserAccess
1208: (
1209: p_tab_id => root_tabs.tab_id
1210: ,p_user_name => p_user_name
1211: ,p_user_access => 'BSC_SCORECARD_ACCESS_UPDATE'
1213: EXIT WHEN (l_istaborderEnabled<>'Y');
1214: END LOOP;
1215: ELSE
1216: FOR child_tabs IN c_child_tab_ids LOOP
1217: l_istaborderEnabled := BSC_SCORECARD_PUB.Check_Tab_UserAccess
1218: (
1219: p_tab_id => child_tabs.tab_id
1220: ,p_user_name => p_user_name
1221: ,p_user_access => 'BSC_SCORECARD_ACCESS_UPDATE'
1228:
1229: END is_Tab_Ordering_Enabled;
1230:
1231:
1232: end BSC_SCORECARD_PUB;