40:
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
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;
57: -- Assign all values in the passed "Record" parameter to the locally defined
58: -- "Record" variable.
59: l_Bsc_Tab_Entity_Rec := p_Bsc_Tab_Entity_Rec;
60:
63: if BSC_SCORECARD_PVT.Validate_Tab(l_Bsc_Tab_Entity_Rec.Bsc_Tab_Name) > 0 then
64: FND_MESSAGE.SET_NAME('BSC','BSC_TAB_NAME_EXISTS');
65: FND_MESSAGE.SET_TOKEN('BSC_TAB', l_Bsc_Tab_Entity_Rec.Bsc_Tab_Name);
66: FND_MSG_PUB.ADD;
67: RAISE FND_API.G_EXC_ERROR;
68: end if;
69: end if;
70:
71: -- Get the next id available for the current Tab.
99: ,l_Bsc_Tab_Entity_Rec
100: ,x_return_status
101: ,x_msg_count
102: ,x_msg_data);
103: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
104: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
105: END IF;
106:
107: IF(l_Bsc_Tab_Entity_Rec.Bsc_Short_Name is NULL) THEN
100: ,x_return_status
101: ,x_msg_count
102: ,x_msg_data);
103: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
104: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
105: END IF;
106:
107: IF(l_Bsc_Tab_Entity_Rec.Bsc_Short_Name is NULL) THEN
108: Create_Tab_Access( p_commit
109: ,l_Bsc_Tab_Entity_Rec
110: ,x_return_status
111: ,x_msg_count
112: ,x_msg_data);
113: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
114: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
115: END IF;
116:
117: -- Role-based scorecard security.
110: ,x_return_status
111: ,x_msg_count
112: ,x_msg_data);
113: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
114: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
115: END IF;
116:
117: -- Role-based scorecard security.
118: -- Initally, grant admin access to scorecard creater, and view access to all other designers.
121: ,x_return_status
122: ,x_msg_count
123: ,x_msg_data);
124:
125: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
126: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
127: END IF;
128: END IF;
129: x_Bsc_Tab_Entity_Rec := l_Bsc_Tab_Entity_Rec;
122: ,x_msg_count
123: ,x_msg_data);
124:
125: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
126: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
127: END IF;
128: END IF;
129: x_Bsc_Tab_Entity_Rec := l_Bsc_Tab_Entity_Rec;
130:
128: END IF;
129: x_Bsc_Tab_Entity_Rec := l_Bsc_Tab_Entity_Rec;
130:
131: EXCEPTION
132: WHEN FND_API.G_EXC_ERROR THEN
133: IF (x_msg_data IS NULL) THEN
134: FND_MSG_PUB.Count_And_Get
135: ( p_encoded => FND_API.G_FALSE
136: , p_count => x_msg_count
131: EXCEPTION
132: WHEN FND_API.G_EXC_ERROR THEN
133: IF (x_msg_data IS NULL) THEN
134: FND_MSG_PUB.Count_And_Get
135: ( p_encoded => FND_API.G_FALSE
136: , p_count => x_msg_count
137: , p_data => x_msg_data
138: );
139: END IF;
136: , p_count => x_msg_count
137: , p_data => x_msg_data
138: );
139: END IF;
140: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
141: x_return_status := FND_API.G_RET_STS_ERROR;
142: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
143: IF (x_msg_data IS NULL) THEN
144: FND_MSG_PUB.Count_And_Get
137: , p_data => x_msg_data
138: );
139: END IF;
140: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
141: x_return_status := FND_API.G_RET_STS_ERROR;
142: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
143: IF (x_msg_data IS NULL) THEN
144: FND_MSG_PUB.Count_And_Get
145: ( p_encoded => FND_API.G_FALSE
138: );
139: END IF;
140: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
141: x_return_status := FND_API.G_RET_STS_ERROR;
142: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
143: IF (x_msg_data IS NULL) THEN
144: FND_MSG_PUB.Count_And_Get
145: ( p_encoded => FND_API.G_FALSE
146: , p_count => x_msg_count
141: x_return_status := FND_API.G_RET_STS_ERROR;
142: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
143: IF (x_msg_data IS NULL) THEN
144: FND_MSG_PUB.Count_And_Get
145: ( p_encoded => FND_API.G_FALSE
146: , p_count => x_msg_count
147: , p_data => x_msg_data
148: );
149: END IF;
146: , p_count => x_msg_count
147: , p_data => x_msg_data
148: );
149: END IF;
150: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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
147: , p_data => x_msg_data
148: );
149: END IF;
150: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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 ';
149: END IF;
150: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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 ';
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;
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 ';
172: /************************************************************************************
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
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;
189: l_Bsc_Tab_Entity_Rec := p_Bsc_Tab_Entity_Rec;
190:
191: BSC_SCORECARD_PUB.Create_Tab(
192: p_commit => p_commit
195: ,x_return_status => x_return_status
196: ,x_msg_count => x_msg_count
197: ,x_msg_data => x_msg_data
198: );
199: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
200: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
201: END IF;
202:
203:
196: ,x_msg_count => x_msg_count
197: ,x_msg_data => x_msg_data
198: );
199: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
200: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
201: END IF;
202:
203:
204: EXCEPTION
201: END IF;
202:
203:
204: EXCEPTION
205: WHEN FND_API.G_EXC_ERROR THEN
206: IF (x_msg_data IS NULL) THEN
207: FND_MSG_PUB.Count_And_Get
208: ( p_encoded => FND_API.G_FALSE
209: , p_count => x_msg_count
204: EXCEPTION
205: WHEN FND_API.G_EXC_ERROR THEN
206: IF (x_msg_data IS NULL) THEN
207: FND_MSG_PUB.Count_And_Get
208: ( p_encoded => FND_API.G_FALSE
209: , p_count => x_msg_count
210: , p_data => x_msg_data
211: );
212: END IF;
209: , p_count => x_msg_count
210: , p_data => x_msg_data
211: );
212: END IF;
213: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
214: x_return_status := FND_API.G_RET_STS_ERROR;
215: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
216: IF (x_msg_data IS NULL) THEN
217: FND_MSG_PUB.Count_And_Get
210: , p_data => x_msg_data
211: );
212: END IF;
213: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
214: x_return_status := FND_API.G_RET_STS_ERROR;
215: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
216: IF (x_msg_data IS NULL) THEN
217: FND_MSG_PUB.Count_And_Get
218: ( p_encoded => FND_API.G_FALSE
211: );
212: END IF;
213: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
214: x_return_status := FND_API.G_RET_STS_ERROR;
215: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
216: IF (x_msg_data IS NULL) THEN
217: FND_MSG_PUB.Count_And_Get
218: ( p_encoded => FND_API.G_FALSE
219: , p_count => x_msg_count
214: x_return_status := FND_API.G_RET_STS_ERROR;
215: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
216: IF (x_msg_data IS NULL) THEN
217: FND_MSG_PUB.Count_And_Get
218: ( p_encoded => FND_API.G_FALSE
219: , p_count => x_msg_count
220: , p_data => x_msg_data
221: );
222: END IF;
219: , p_count => x_msg_count
220: , p_data => x_msg_data
221: );
222: END IF;
223: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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
220: , p_data => x_msg_data
221: );
222: END IF;
223: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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 ';
222: END IF;
223: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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 ';
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;
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 ';
254: ) is
255:
256: begin
257: FND_MSG_PUB.Initialize;
258: x_return_status := FND_API.G_RET_STS_SUCCESS;
259:
260: x_Bsc_Tab_Entity_Rec := p_Bsc_Tab_Entity_Rec;
261:
262: --set some default values
274:
275:
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 ';
288: /************************************************************************************
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
298: ) is
299:
300: begin
301: FND_MSG_PUB.Initialize;
302: x_return_status := FND_API.G_RET_STS_SUCCESS;
303: BSC_SCORECARD_PVT.Retrieve_Tab( p_commit
304: ,p_Bsc_Tab_Entity_Rec
305: ,x_Bsc_Tab_Entity_Rec
306: ,x_return_status
307: ,x_msg_count
308: ,x_msg_data);
309:
310: EXCEPTION
311: WHEN FND_API.G_EXC_ERROR THEN
312: IF (x_msg_data IS NULL) THEN
313: FND_MSG_PUB.Count_And_Get
314: ( p_encoded => FND_API.G_FALSE
315: , p_count => x_msg_count
310: EXCEPTION
311: WHEN FND_API.G_EXC_ERROR THEN
312: IF (x_msg_data IS NULL) THEN
313: FND_MSG_PUB.Count_And_Get
314: ( p_encoded => FND_API.G_FALSE
315: , p_count => x_msg_count
316: , p_data => x_msg_data
317: );
318: END IF;
315: , p_count => x_msg_count
316: , p_data => x_msg_data
317: );
318: END IF;
319: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
320: x_return_status := FND_API.G_RET_STS_ERROR;
321: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
322: IF (x_msg_data IS NULL) THEN
323: FND_MSG_PUB.Count_And_Get
316: , p_data => x_msg_data
317: );
318: END IF;
319: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
320: x_return_status := FND_API.G_RET_STS_ERROR;
321: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
322: IF (x_msg_data IS NULL) THEN
323: FND_MSG_PUB.Count_And_Get
324: ( p_encoded => FND_API.G_FALSE
317: );
318: END IF;
319: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
320: x_return_status := FND_API.G_RET_STS_ERROR;
321: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
322: IF (x_msg_data IS NULL) THEN
323: FND_MSG_PUB.Count_And_Get
324: ( p_encoded => FND_API.G_FALSE
325: , p_count => x_msg_count
320: x_return_status := FND_API.G_RET_STS_ERROR;
321: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
322: IF (x_msg_data IS NULL) THEN
323: FND_MSG_PUB.Count_And_Get
324: ( p_encoded => FND_API.G_FALSE
325: , p_count => x_msg_count
326: , p_data => x_msg_data
327: );
328: END IF;
325: , p_count => x_msg_count
326: , p_data => x_msg_data
327: );
328: END IF;
329: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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
326: , p_data => x_msg_data
327: );
328: END IF;
329: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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 ';
328: END IF;
329: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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 ';
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;
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 ';
350: /************************************************************************************
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
360:
361: begin
362: FND_MSG_PUB.Initialize;
363: x_return_status := FND_API.G_RET_STS_SUCCESS;
364: BSC_SCORECARD_PVT.Update_Tab( p_commit
365: ,p_Bsc_Tab_Entity_Rec
366: ,x_return_status
367: ,x_msg_count
367: ,x_msg_count
368: ,x_msg_data);
369:
370: EXCEPTION
371: WHEN FND_API.G_EXC_ERROR THEN
372: IF (x_msg_data IS NULL) THEN
373: FND_MSG_PUB.Count_And_Get
374: ( p_encoded => FND_API.G_FALSE
375: , p_count => x_msg_count
370: EXCEPTION
371: WHEN FND_API.G_EXC_ERROR THEN
372: IF (x_msg_data IS NULL) THEN
373: FND_MSG_PUB.Count_And_Get
374: ( p_encoded => FND_API.G_FALSE
375: , p_count => x_msg_count
376: , p_data => x_msg_data
377: );
378: END IF;
375: , p_count => x_msg_count
376: , p_data => x_msg_data
377: );
378: END IF;
379: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
380: x_return_status := FND_API.G_RET_STS_ERROR;
381: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
382: IF (x_msg_data IS NULL) THEN
383: FND_MSG_PUB.Count_And_Get
376: , p_data => x_msg_data
377: );
378: END IF;
379: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
380: x_return_status := FND_API.G_RET_STS_ERROR;
381: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
382: IF (x_msg_data IS NULL) THEN
383: FND_MSG_PUB.Count_And_Get
384: ( p_encoded => FND_API.G_FALSE
377: );
378: END IF;
379: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
380: x_return_status := FND_API.G_RET_STS_ERROR;
381: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
382: IF (x_msg_data IS NULL) THEN
383: FND_MSG_PUB.Count_And_Get
384: ( p_encoded => FND_API.G_FALSE
385: , p_count => x_msg_count
380: x_return_status := FND_API.G_RET_STS_ERROR;
381: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
382: IF (x_msg_data IS NULL) THEN
383: FND_MSG_PUB.Count_And_Get
384: ( p_encoded => FND_API.G_FALSE
385: , p_count => x_msg_count
386: , p_data => x_msg_data
387: );
388: END IF;
385: , p_count => x_msg_count
386: , p_data => x_msg_data
387: );
388: END IF;
389: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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
386: , p_data => x_msg_data
387: );
388: END IF;
389: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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 ';
388: END IF;
389: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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 ';
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;
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 ';
410: /************************************************************************************
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
420:
421: begin
422: FND_MSG_PUB.Initialize;
423: x_return_status := FND_API.G_RET_STS_SUCCESS;
424: BSC_SCORECARD_PVT.Delete_Tab( p_commit
425: ,p_Bsc_Tab_Entity_Rec
426: ,x_return_status
427: ,x_msg_count
427: ,x_msg_count
428: ,x_msg_data);
429:
430: EXCEPTION
431: WHEN FND_API.G_EXC_ERROR THEN
432: IF (x_msg_data IS NULL) THEN
433: FND_MSG_PUB.Count_And_Get
434: ( p_encoded => FND_API.G_FALSE
435: , p_count => x_msg_count
430: EXCEPTION
431: WHEN FND_API.G_EXC_ERROR THEN
432: IF (x_msg_data IS NULL) THEN
433: FND_MSG_PUB.Count_And_Get
434: ( p_encoded => FND_API.G_FALSE
435: , p_count => x_msg_count
436: , p_data => x_msg_data
437: );
438: END IF;
435: , p_count => x_msg_count
436: , p_data => x_msg_data
437: );
438: END IF;
439: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
440: x_return_status := FND_API.G_RET_STS_ERROR;
441: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
442: IF (x_msg_data IS NULL) THEN
443: FND_MSG_PUB.Count_And_Get
436: , p_data => x_msg_data
437: );
438: END IF;
439: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
440: x_return_status := FND_API.G_RET_STS_ERROR;
441: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
442: IF (x_msg_data IS NULL) THEN
443: FND_MSG_PUB.Count_And_Get
444: ( p_encoded => FND_API.G_FALSE
437: );
438: END IF;
439: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
440: x_return_status := FND_API.G_RET_STS_ERROR;
441: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
442: IF (x_msg_data IS NULL) THEN
443: FND_MSG_PUB.Count_And_Get
444: ( p_encoded => FND_API.G_FALSE
445: , p_count => x_msg_count
440: x_return_status := FND_API.G_RET_STS_ERROR;
441: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
442: IF (x_msg_data IS NULL) THEN
443: FND_MSG_PUB.Count_And_Get
444: ( p_encoded => FND_API.G_FALSE
445: , p_count => x_msg_count
446: , p_data => x_msg_data
447: );
448: END IF;
445: , p_count => x_msg_count
446: , p_data => x_msg_data
447: );
448: END IF;
449: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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
446: , p_data => x_msg_data
447: );
448: END IF;
449: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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 ';
448: END IF;
449: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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 ';
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;
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 ';
471: Description : This function will assign a scorecard to a given responsibility
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
487: WHERE INSTR(','||p_Resposibility_Key||',',','||responsibility_key||',') > 0;
488:
489: BEGIN
490: FND_MSG_PUB.Initialize;
491: x_return_status := FND_API.G_RET_STS_SUCCESS;
492: l_Bsc_Tab_Entity_Rec := p_Bsc_Tab_Entity_Rec;
493:
494: FOR CD IN c_Resp_Ids LOOP
495: SELECT COUNT(1)
508: , x_return_status
509: , x_msg_count
510: , x_msg_data
511: );
512: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
513: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
514: END IF;
515: END IF;
516:
509: , x_msg_count
510: , x_msg_data
511: );
512: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
513: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
514: END IF;
515: END IF;
516:
517: END LOOP;
518:
519: --dbms_output.put_line(' end loop:-' );
520:
521: EXCEPTION
522: WHEN FND_API.G_EXC_ERROR THEN
523: IF (x_msg_data IS NULL) THEN
524: FND_MSG_PUB.Count_And_Get
525: ( p_encoded => FND_API.G_FALSE
526: , p_count => x_msg_count
521: EXCEPTION
522: WHEN FND_API.G_EXC_ERROR THEN
523: IF (x_msg_data IS NULL) THEN
524: FND_MSG_PUB.Count_And_Get
525: ( p_encoded => FND_API.G_FALSE
526: , p_count => x_msg_count
527: , p_data => x_msg_data
528: );
529: END IF;
526: , p_count => x_msg_count
527: , p_data => x_msg_data
528: );
529: END IF;
530: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
531: x_return_status := FND_API.G_RET_STS_ERROR;
532: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
533: IF (x_msg_data IS NULL) THEN
534: FND_MSG_PUB.Count_And_Get
527: , p_data => x_msg_data
528: );
529: END IF;
530: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
531: x_return_status := FND_API.G_RET_STS_ERROR;
532: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
533: IF (x_msg_data IS NULL) THEN
534: FND_MSG_PUB.Count_And_Get
535: ( p_encoded => FND_API.G_FALSE
528: );
529: END IF;
530: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
531: x_return_status := FND_API.G_RET_STS_ERROR;
532: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
533: IF (x_msg_data IS NULL) THEN
534: FND_MSG_PUB.Count_And_Get
535: ( p_encoded => FND_API.G_FALSE
536: , p_count => x_msg_count
531: x_return_status := FND_API.G_RET_STS_ERROR;
532: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
533: IF (x_msg_data IS NULL) THEN
534: FND_MSG_PUB.Count_And_Get
535: ( p_encoded => FND_API.G_FALSE
536: , p_count => x_msg_count
537: , p_data => x_msg_data
538: );
539: END IF;
536: , p_count => x_msg_count
537: , p_data => x_msg_data
538: );
539: END IF;
540: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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
537: , p_data => x_msg_data
538: );
539: END IF;
540: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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 ';
539: END IF;
540: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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 ';
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;
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 ';
560: /************************************************************************************
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
574: l_Tab_Short_Name BSC_TABS_B.SHORT_NAME%TYPE := NULL;
575:
576: BEGIN
577: FND_MSG_PUB.Initialize;
578: x_return_status := FND_API.G_RET_STS_SUCCESS;
579: l_Bsc_Tab_Entity_Rec := p_Bsc_Tab_Entity_Rec;
580:
581: BEGIN
582: SELECT T.SHORT_NAME
610: , x_return_status => x_return_status
611: , x_msg_count => x_msg_count
612: , x_msg_data => x_msg_data
613: );
614: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
615: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
616: END IF;
617:
618: EXCEPTION
611: , x_msg_count => x_msg_count
612: , x_msg_data => x_msg_data
613: );
614: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
615: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
616: END IF;
617:
618: EXCEPTION
619: WHEN FND_API.G_EXC_ERROR THEN
615: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
616: END IF;
617:
618: EXCEPTION
619: WHEN FND_API.G_EXC_ERROR THEN
620: IF (x_msg_data IS NULL) THEN
621: FND_MSG_PUB.Count_And_Get
622: ( p_encoded => FND_API.G_FALSE
623: , p_count => x_msg_count
618: EXCEPTION
619: WHEN FND_API.G_EXC_ERROR THEN
620: IF (x_msg_data IS NULL) THEN
621: FND_MSG_PUB.Count_And_Get
622: ( p_encoded => FND_API.G_FALSE
623: , p_count => x_msg_count
624: , p_data => x_msg_data
625: );
626: END IF;
623: , p_count => x_msg_count
624: , p_data => x_msg_data
625: );
626: END IF;
627: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
628: x_return_status := FND_API.G_RET_STS_ERROR;
629: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
630: IF (x_msg_data IS NULL) THEN
631: FND_MSG_PUB.Count_And_Get
624: , p_data => x_msg_data
625: );
626: END IF;
627: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
628: x_return_status := FND_API.G_RET_STS_ERROR;
629: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
630: IF (x_msg_data IS NULL) THEN
631: FND_MSG_PUB.Count_And_Get
632: ( p_encoded => FND_API.G_FALSE
625: );
626: END IF;
627: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
628: x_return_status := FND_API.G_RET_STS_ERROR;
629: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
630: IF (x_msg_data IS NULL) THEN
631: FND_MSG_PUB.Count_And_Get
632: ( p_encoded => FND_API.G_FALSE
633: , p_count => x_msg_count
628: x_return_status := FND_API.G_RET_STS_ERROR;
629: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
630: IF (x_msg_data IS NULL) THEN
631: FND_MSG_PUB.Count_And_Get
632: ( p_encoded => FND_API.G_FALSE
633: , p_count => x_msg_count
634: , p_data => x_msg_data
635: );
636: END IF;
633: , p_count => x_msg_count
634: , p_data => x_msg_data
635: );
636: END IF;
637: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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
634: , p_data => x_msg_data
635: );
636: END IF;
637: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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 ';
636: END IF;
637: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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 ';
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;
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 ';
658: /************************************************************************************
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
671: l_responsibility_key varchar2(30);
672:
673: begin
674: FND_MSG_PUB.Initialize;
675: x_return_status := FND_API.G_RET_STS_SUCCESS;
676: -- set local record equal to the one passed.
677: l_Bsc_Tab_Entity_Rec := p_Bsc_Tab_Entity_Rec;
678:
679: -- Insert the record for the current responsibility.
683: ,x_msg_count
684: ,x_msg_data);
685:
686: EXCEPTION
687: WHEN FND_API.G_EXC_ERROR THEN
688: IF (x_msg_data IS NULL) THEN
689: FND_MSG_PUB.Count_And_Get
690: ( p_encoded => FND_API.G_FALSE
691: , p_count => x_msg_count
686: EXCEPTION
687: WHEN FND_API.G_EXC_ERROR THEN
688: IF (x_msg_data IS NULL) THEN
689: FND_MSG_PUB.Count_And_Get
690: ( p_encoded => FND_API.G_FALSE
691: , p_count => x_msg_count
692: , p_data => x_msg_data
693: );
694: END IF;
691: , p_count => x_msg_count
692: , p_data => x_msg_data
693: );
694: END IF;
695: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
696: x_return_status := FND_API.G_RET_STS_ERROR;
697: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
698: IF (x_msg_data IS NULL) THEN
699: FND_MSG_PUB.Count_And_Get
692: , p_data => x_msg_data
693: );
694: END IF;
695: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
696: x_return_status := FND_API.G_RET_STS_ERROR;
697: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
698: IF (x_msg_data IS NULL) THEN
699: FND_MSG_PUB.Count_And_Get
700: ( p_encoded => FND_API.G_FALSE
693: );
694: END IF;
695: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
696: x_return_status := FND_API.G_RET_STS_ERROR;
697: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
698: IF (x_msg_data IS NULL) THEN
699: FND_MSG_PUB.Count_And_Get
700: ( p_encoded => FND_API.G_FALSE
701: , p_count => x_msg_count
696: x_return_status := FND_API.G_RET_STS_ERROR;
697: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
698: IF (x_msg_data IS NULL) THEN
699: FND_MSG_PUB.Count_And_Get
700: ( p_encoded => FND_API.G_FALSE
701: , p_count => x_msg_count
702: , p_data => x_msg_data
703: );
704: END IF;
701: , p_count => x_msg_count
702: , p_data => x_msg_data
703: );
704: END IF;
705: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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
702: , p_data => x_msg_data
703: );
704: END IF;
705: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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 ';
704: END IF;
705: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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 ';
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;
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 ';
726: /************************************************************************************
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
736:
737: begin
738: FND_MSG_PUB.Initialize;
739: x_return_status := FND_API.G_RET_STS_SUCCESS;
740: BSC_SCORECARD_PVT.Update_System_Time_Stamp( p_commit
741: ,p_Bsc_Tab_Entity_Rec
742: ,x_return_status
743: ,x_msg_count
743: ,x_msg_count
744: ,x_msg_data);
745:
746: EXCEPTION
747: WHEN FND_API.G_EXC_ERROR THEN
748: IF (x_msg_data IS NULL) THEN
749: FND_MSG_PUB.Count_And_Get
750: ( p_encoded => FND_API.G_FALSE
751: , p_count => x_msg_count
746: EXCEPTION
747: WHEN FND_API.G_EXC_ERROR THEN
748: IF (x_msg_data IS NULL) THEN
749: FND_MSG_PUB.Count_And_Get
750: ( p_encoded => FND_API.G_FALSE
751: , p_count => x_msg_count
752: , p_data => x_msg_data
753: );
754: END IF;
751: , p_count => x_msg_count
752: , p_data => x_msg_data
753: );
754: END IF;
755: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
756: x_return_status := FND_API.G_RET_STS_ERROR;
757: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
758: IF (x_msg_data IS NULL) THEN
759: FND_MSG_PUB.Count_And_Get
752: , p_data => x_msg_data
753: );
754: END IF;
755: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
756: x_return_status := FND_API.G_RET_STS_ERROR;
757: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
758: IF (x_msg_data IS NULL) THEN
759: FND_MSG_PUB.Count_And_Get
760: ( p_encoded => FND_API.G_FALSE
753: );
754: END IF;
755: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
756: x_return_status := FND_API.G_RET_STS_ERROR;
757: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
758: IF (x_msg_data IS NULL) THEN
759: FND_MSG_PUB.Count_And_Get
760: ( p_encoded => FND_API.G_FALSE
761: , p_count => x_msg_count
756: x_return_status := FND_API.G_RET_STS_ERROR;
757: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
758: IF (x_msg_data IS NULL) THEN
759: FND_MSG_PUB.Count_And_Get
760: ( p_encoded => FND_API.G_FALSE
761: , p_count => x_msg_count
762: , p_data => x_msg_data
763: );
764: END IF;
761: , p_count => x_msg_count
762: , p_data => x_msg_data
763: );
764: END IF;
765: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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
762: , p_data => x_msg_data
763: );
764: END IF;
765: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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 ';
764: END IF;
765: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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 ';
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;
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 ';
786: /************************************************************************************
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
796:
797: begin
798: FND_MSG_PUB.Initialize;
799: x_return_status := FND_API.G_RET_STS_SUCCESS;
800: BSC_SCORECARD_PVT.Update_Tab_Time_Stamp( p_commit
801: ,p_Bsc_Tab_Entity_Rec
802: ,x_return_status
803: ,x_msg_count
803: ,x_msg_count
804: ,x_msg_data);
805:
806: EXCEPTION
807: WHEN FND_API.G_EXC_ERROR THEN
808: IF (x_msg_data IS NULL) THEN
809: FND_MSG_PUB.Count_And_Get
810: ( p_encoded => FND_API.G_FALSE
811: , p_count => x_msg_count
806: EXCEPTION
807: WHEN FND_API.G_EXC_ERROR THEN
808: IF (x_msg_data IS NULL) THEN
809: FND_MSG_PUB.Count_And_Get
810: ( p_encoded => FND_API.G_FALSE
811: , p_count => x_msg_count
812: , p_data => x_msg_data
813: );
814: END IF;
811: , p_count => x_msg_count
812: , p_data => x_msg_data
813: );
814: END IF;
815: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
816: x_return_status := FND_API.G_RET_STS_ERROR;
817: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
818: IF (x_msg_data IS NULL) THEN
819: FND_MSG_PUB.Count_And_Get
812: , p_data => x_msg_data
813: );
814: END IF;
815: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
816: x_return_status := FND_API.G_RET_STS_ERROR;
817: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
818: IF (x_msg_data IS NULL) THEN
819: FND_MSG_PUB.Count_And_Get
820: ( p_encoded => FND_API.G_FALSE
813: );
814: END IF;
815: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
816: x_return_status := FND_API.G_RET_STS_ERROR;
817: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
818: IF (x_msg_data IS NULL) THEN
819: FND_MSG_PUB.Count_And_Get
820: ( p_encoded => FND_API.G_FALSE
821: , p_count => x_msg_count
816: x_return_status := FND_API.G_RET_STS_ERROR;
817: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
818: IF (x_msg_data IS NULL) THEN
819: FND_MSG_PUB.Count_And_Get
820: ( p_encoded => FND_API.G_FALSE
821: , p_count => x_msg_count
822: , p_data => x_msg_data
823: );
824: END IF;
821: , p_count => x_msg_count
822: , p_data => x_msg_data
823: );
824: END IF;
825: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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
822: , p_data => x_msg_data
823: );
824: END IF;
825: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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 ';
824: END IF;
825: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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 ';
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;
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 ';
859:
860: --DBMS_OUTPUT.PUT_LINE('Begin is_child_tab_of' );
861: --DBMS_OUTPUT.PUT_LINE(' is_child_tab_of p_child_tab_id = ' || p_child_tab_id );
862: --DBMS_OUTPUT.PUT_LINE(' is_child_tab_of p_parent_tab_id = ' || p_parent_tab_id );
863: l_return_value := FND_API.G_FALSE;
864:
865: l_tab_child := p_child_tab_id;
866: while l_tab_child is not null loop
867: select PARENT_TAB_ID into l_tab_parent
869: --DBMS_OUTPUT.PUT_LINE(' is_child_tab_of l_tab_parent = ' || l_tab_parent );
870:
871: if l_tab_parent is not null then
872: if l_tab_parent = p_parent_tab_id then
873: l_return_value := FND_API.G_TRUE;
874: exit;
875: end if;
876: end if;
877: l_tab_child := l_tab_parent;