5:
6:
7: --New procedure with OUT parameter
8: procedure Create_Kpi_Group(
9: p_commit IN varchar2 := FND_API.G_FALSE
10: ,p_Bsc_Kpi_Group_Rec IN BSC_KPI_GROUP_PUB.Bsc_Kpi_Group_Rec
11: ,x_Bsc_Kpi_Group_Rec OUT NOCOPY BSC_KPI_GROUP_PUB.Bsc_Kpi_Group_Rec
12: ,x_return_status OUT NOCOPY varchar2
13: ,x_msg_count OUT NOCOPY number
17: l_Bsc_Kpi_Group_Rec BSC_KPI_GROUP_PUB.Bsc_Kpi_Group_Rec;
18:
19: begin
20: FND_MSG_PUB.Initialize;
21: x_return_status := FND_API.G_RET_STS_SUCCESS;
22: SAVEPOINT BSCCreateKPIGROUP;
23: -- Assign all values in the passed "Record" parameter to the locally defined
24: -- "Record" variable.
25: l_Bsc_Kpi_Group_Rec := p_Bsc_Kpi_Group_Rec;
34: if BSC_SCORECARD_PVT.Validate_Kpi_Group(l_Bsc_Kpi_Group_Rec.Bsc_Kpi_Group_Name) <> 0 then
35: FND_MESSAGE.SET_NAME('BSC','BSC_KGROUP_NAME_EXISTS');
36: FND_MESSAGE.SET_TOKEN('BSC_KGROUP', l_Bsc_Kpi_Group_Rec.Bsc_Kpi_Group_Name);
37: FND_MSG_PUB.ADD;
38: RAISE FND_API.G_EXC_ERROR;
39: end if;
40: end if;
41:
42: -- Bug #3236356
68: ,l_Bsc_Kpi_Group_Rec
69: ,x_return_status
70: ,x_msg_count
71: ,x_msg_data);
72: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
73: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
74: END IF;
75:
76: x_Bsc_Kpi_Group_Rec := l_Bsc_Kpi_Group_Rec;
69: ,x_return_status
70: ,x_msg_count
71: ,x_msg_data);
72: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
73: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
74: END IF;
75:
76: x_Bsc_Kpi_Group_Rec := l_Bsc_Kpi_Group_Rec;
77:
75:
76: x_Bsc_Kpi_Group_Rec := l_Bsc_Kpi_Group_Rec;
77:
78: EXCEPTION
79: WHEN FND_API.G_EXC_ERROR THEN
80: ROLLBACK TO BSCCreateKPIGROUP;
81: IF (x_msg_data IS NULL) THEN
82: FND_MSG_PUB.Count_And_Get
83: ( p_encoded => FND_API.G_FALSE
79: WHEN FND_API.G_EXC_ERROR THEN
80: ROLLBACK TO BSCCreateKPIGROUP;
81: IF (x_msg_data IS NULL) THEN
82: FND_MSG_PUB.Count_And_Get
83: ( p_encoded => FND_API.G_FALSE
84: , p_count => x_msg_count
85: , p_data => x_msg_data
86: );
87: END IF;
84: , p_count => x_msg_count
85: , p_data => x_msg_data
86: );
87: END IF;
88: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
89: x_return_status := FND_API.G_RET_STS_ERROR;
90: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
91: ROLLBACK TO BSCCreateKPIGROUP;
92: IF (x_msg_data IS NULL) THEN
85: , p_data => x_msg_data
86: );
87: END IF;
88: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
89: x_return_status := FND_API.G_RET_STS_ERROR;
90: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
91: ROLLBACK TO BSCCreateKPIGROUP;
92: IF (x_msg_data IS NULL) THEN
93: FND_MSG_PUB.Count_And_Get
86: );
87: END IF;
88: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
89: x_return_status := FND_API.G_RET_STS_ERROR;
90: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
91: ROLLBACK TO BSCCreateKPIGROUP;
92: IF (x_msg_data IS NULL) THEN
93: FND_MSG_PUB.Count_And_Get
94: ( p_encoded => FND_API.G_FALSE
90: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
91: ROLLBACK TO BSCCreateKPIGROUP;
92: IF (x_msg_data IS NULL) THEN
93: FND_MSG_PUB.Count_And_Get
94: ( p_encoded => FND_API.G_FALSE
95: , p_count => x_msg_count
96: , p_data => x_msg_data
97: );
98: END IF;
95: , p_count => x_msg_count
96: , p_data => x_msg_data
97: );
98: END IF;
99: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
100: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
101: WHEN NO_DATA_FOUND THEN
102: ROLLBACK TO BSCCreateKPIGROUP;
103: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
96: , p_data => x_msg_data
97: );
98: END IF;
99: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
100: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
101: WHEN NO_DATA_FOUND THEN
102: ROLLBACK TO BSCCreateKPIGROUP;
103: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
104: IF (x_msg_data IS NOT NULL) THEN
99: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
100: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
101: WHEN NO_DATA_FOUND THEN
102: ROLLBACK TO BSCCreateKPIGROUP;
103: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
104: IF (x_msg_data IS NOT NULL) THEN
105: x_msg_data := x_msg_data||' -> BSC_KPI_GROUP_PUB.Create_Kpi_Group with parameter x_Bsc_Kpi_Group_Rec ';
106: ELSE
107: x_msg_data := SQLERRM||' at BSC_KPI_GROUP_PUB.Create_Kpi_Group with parameter x_Bsc_Kpi_Group_Rec ';
108: END IF;
109: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
110: WHEN OTHERS THEN
111: ROLLBACK TO BSCCreateKPIGROUP;
112: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
113: IF (x_msg_data IS NOT NULL) THEN
114: x_msg_data := x_msg_data||' -> BSC_KPI_GROUP_PUB.Create_Kpi_Group with parameter x_Bsc_Kpi_Group_Rec ';
115: ELSE
116: x_msg_data := SQLERRM||' at BSC_KPI_GROUP_PUB.Create_Kpi_Group with parameter x_Bsc_Kpi_Group_Rec ';
123: /************************************************************************************
124: ************************************************************************************/
125: --Modified procedure without OUT parameter
126: procedure Create_Kpi_Group(
127: p_commit IN varchar2 := FND_API.G_FALSE
128: ,p_Bsc_Kpi_Group_Rec IN BSC_KPI_GROUP_PUB.Bsc_Kpi_Group_Rec
129: ,x_return_status OUT NOCOPY varchar2
130: ,x_msg_count OUT NOCOPY number
131: ,x_msg_data OUT NOCOPY varchar2
135: l_Bsc_Kpi_Group_Rec_Out BSC_KPI_GROUP_PUB.Bsc_Kpi_Group_Rec;
136:
137: begin
138: FND_MSG_PUB.Initialize;
139: x_return_status := FND_API.G_RET_STS_SUCCESS;
140:
141: l_Bsc_Kpi_Group_Rec := p_Bsc_Kpi_Group_Rec;
142:
143: -- Call the create kpi group API with OUT parameter for kpi group record.
146: ,x_Bsc_Kpi_Group_Rec => l_Bsc_Kpi_Group_Rec_Out
147: ,x_return_status => x_return_status
148: ,x_msg_count => x_msg_count
149: ,x_msg_data => x_msg_data);
150: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
151: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
152: END IF;
153:
154:
147: ,x_return_status => x_return_status
148: ,x_msg_count => x_msg_count
149: ,x_msg_data => x_msg_data);
150: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
151: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
152: END IF;
153:
154:
155: EXCEPTION
152: END IF;
153:
154:
155: EXCEPTION
156: WHEN FND_API.G_EXC_ERROR THEN
157: IF (x_msg_data IS NULL) THEN
158: FND_MSG_PUB.Count_And_Get
159: ( p_encoded => FND_API.G_FALSE
160: , p_count => x_msg_count
155: EXCEPTION
156: WHEN FND_API.G_EXC_ERROR THEN
157: IF (x_msg_data IS NULL) THEN
158: FND_MSG_PUB.Count_And_Get
159: ( p_encoded => FND_API.G_FALSE
160: , p_count => x_msg_count
161: , p_data => x_msg_data
162: );
163: END IF;
160: , p_count => x_msg_count
161: , p_data => x_msg_data
162: );
163: END IF;
164: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
165: x_return_status := FND_API.G_RET_STS_ERROR;
166: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
167: IF (x_msg_data IS NULL) THEN
168: FND_MSG_PUB.Count_And_Get
161: , p_data => x_msg_data
162: );
163: END IF;
164: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
165: x_return_status := FND_API.G_RET_STS_ERROR;
166: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
167: IF (x_msg_data IS NULL) THEN
168: FND_MSG_PUB.Count_And_Get
169: ( p_encoded => FND_API.G_FALSE
162: );
163: END IF;
164: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
165: x_return_status := FND_API.G_RET_STS_ERROR;
166: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
167: IF (x_msg_data IS NULL) THEN
168: FND_MSG_PUB.Count_And_Get
169: ( p_encoded => FND_API.G_FALSE
170: , p_count => x_msg_count
165: x_return_status := FND_API.G_RET_STS_ERROR;
166: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
167: IF (x_msg_data IS NULL) THEN
168: FND_MSG_PUB.Count_And_Get
169: ( p_encoded => FND_API.G_FALSE
170: , p_count => x_msg_count
171: , p_data => x_msg_data
172: );
173: END IF;
170: , p_count => x_msg_count
171: , p_data => x_msg_data
172: );
173: END IF;
174: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
175: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
176: WHEN NO_DATA_FOUND THEN
177: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
178: IF (x_msg_data IS NOT NULL) THEN
171: , p_data => x_msg_data
172: );
173: END IF;
174: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
175: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
176: WHEN NO_DATA_FOUND THEN
177: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
178: IF (x_msg_data IS NOT NULL) THEN
179: x_msg_data := x_msg_data||' -> BSC_KPI_GROUP_PUB.Create_Kpi_Group ';
173: END IF;
174: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
175: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
176: WHEN NO_DATA_FOUND THEN
177: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
178: IF (x_msg_data IS NOT NULL) THEN
179: x_msg_data := x_msg_data||' -> BSC_KPI_GROUP_PUB.Create_Kpi_Group ';
180: ELSE
181: x_msg_data := SQLERRM||' at BSC_KPI_GROUP_PUB.Create_Kpi_Group ';
181: x_msg_data := SQLERRM||' at BSC_KPI_GROUP_PUB.Create_Kpi_Group ';
182: END IF;
183: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
184: WHEN OTHERS THEN
185: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
186: IF (x_msg_data IS NOT NULL) THEN
187: x_msg_data := x_msg_data||' -> BSC_KPI_GROUP_PUB.Create_Kpi_Group ';
188: ELSE
189: x_msg_data := SQLERRM||' at BSC_KPI_GROUP_PUB.Create_Kpi_Group ';
205: ) is
206:
207: begin
208: FND_MSG_PUB.Initialize;
209: x_return_status := FND_API.G_RET_STS_SUCCESS;
210:
211: x_Bsc_Kpi_Group_Rec := p_Bsc_Kpi_Group_Rec;
212:
213: -- set some default values.
223: x_Bsc_Kpi_Group_Rec.Bsc_Top_Position_In_Tab := 0;
224:
225: EXCEPTION
226: WHEN OTHERS THEN
227: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
228: IF (x_msg_data IS NOT NULL) THEN
229: x_msg_data := x_msg_data||' -> BSC_KPI_GROUP_PUB.Initialize_Kpi_Group_Rec ';
230: ELSE
231: x_msg_data := SQLERRM||' at BSC_KPI_GROUP_PUB.Initialize_Kpi_Group_Rec ';
236: /************************************************************************************
237: ************************************************************************************/
238:
239: procedure Retrieve_Kpi_Group(
240: p_commit IN varchar2 := FND_API.G_FALSE
241: ,p_Bsc_Kpi_Group_Rec IN BSC_KPI_GROUP_PUB.Bsc_Kpi_Group_Rec
242: ,x_Bsc_Kpi_Group_Rec IN OUT NOCOPY BSC_KPI_GROUP_PUB.Bsc_Kpi_Group_Rec
243: ,x_return_status OUT NOCOPY varchar2
244: ,x_msg_count OUT NOCOPY number
246: ) is
247:
248: begin
249: FND_MSG_PUB.Initialize;
250: x_return_status := FND_API.G_RET_STS_SUCCESS;
251: BSC_KPI_GROUP_PVT.Retrieve_Kpi_Group( p_commit
252: ,p_Bsc_Kpi_Group_Rec
253: ,x_Bsc_Kpi_Group_Rec
254: ,x_return_status
255: ,x_msg_count
256: ,x_msg_data);
257:
258: EXCEPTION
259: WHEN FND_API.G_EXC_ERROR THEN
260: IF (x_msg_data IS NULL) THEN
261: FND_MSG_PUB.Count_And_Get
262: ( p_encoded => FND_API.G_FALSE
263: , p_count => x_msg_count
258: EXCEPTION
259: WHEN FND_API.G_EXC_ERROR THEN
260: IF (x_msg_data IS NULL) THEN
261: FND_MSG_PUB.Count_And_Get
262: ( p_encoded => FND_API.G_FALSE
263: , p_count => x_msg_count
264: , p_data => x_msg_data
265: );
266: END IF;
263: , p_count => x_msg_count
264: , p_data => x_msg_data
265: );
266: END IF;
267: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
268: x_return_status := FND_API.G_RET_STS_ERROR;
269: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
270: IF (x_msg_data IS NULL) THEN
271: FND_MSG_PUB.Count_And_Get
264: , p_data => x_msg_data
265: );
266: END IF;
267: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
268: x_return_status := FND_API.G_RET_STS_ERROR;
269: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
270: IF (x_msg_data IS NULL) THEN
271: FND_MSG_PUB.Count_And_Get
272: ( p_encoded => FND_API.G_FALSE
265: );
266: END IF;
267: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
268: x_return_status := FND_API.G_RET_STS_ERROR;
269: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
270: IF (x_msg_data IS NULL) THEN
271: FND_MSG_PUB.Count_And_Get
272: ( p_encoded => FND_API.G_FALSE
273: , p_count => x_msg_count
268: x_return_status := FND_API.G_RET_STS_ERROR;
269: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
270: IF (x_msg_data IS NULL) THEN
271: FND_MSG_PUB.Count_And_Get
272: ( p_encoded => FND_API.G_FALSE
273: , p_count => x_msg_count
274: , p_data => x_msg_data
275: );
276: END IF;
273: , p_count => x_msg_count
274: , p_data => x_msg_data
275: );
276: END IF;
277: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
278: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
279: WHEN NO_DATA_FOUND THEN
280: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
281: IF (x_msg_data IS NOT NULL) THEN
274: , p_data => x_msg_data
275: );
276: END IF;
277: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
278: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
279: WHEN NO_DATA_FOUND THEN
280: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
281: IF (x_msg_data IS NOT NULL) THEN
282: x_msg_data := x_msg_data||' -> BSC_KPI_GROUP_PUB.Retrieve_Kpi_Group ';
276: END IF;
277: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
278: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
279: WHEN NO_DATA_FOUND THEN
280: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
281: IF (x_msg_data IS NOT NULL) THEN
282: x_msg_data := x_msg_data||' -> BSC_KPI_GROUP_PUB.Retrieve_Kpi_Group ';
283: ELSE
284: x_msg_data := SQLERRM||' at BSC_KPI_GROUP_PUB.Retrieve_Kpi_Group ';
284: x_msg_data := SQLERRM||' at BSC_KPI_GROUP_PUB.Retrieve_Kpi_Group ';
285: END IF;
286: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
287: WHEN OTHERS THEN
288: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
289: IF (x_msg_data IS NOT NULL) THEN
290: x_msg_data := x_msg_data||' -> BSC_KPI_GROUP_PUB.Retrieve_Kpi_Group ';
291: ELSE
292: x_msg_data := SQLERRM||' at BSC_KPI_GROUP_PUB.Retrieve_Kpi_Group ';
298: /************************************************************************************
299: ************************************************************************************/
300:
301: procedure Update_Kpi_Group(
302: p_commit IN varchar2 := FND_API.G_FALSE
303: ,p_Bsc_Kpi_Group_Rec IN BSC_KPI_GROUP_PUB.Bsc_Kpi_Group_Rec
304: ,x_return_status OUT NOCOPY varchar2
305: ,x_msg_count OUT NOCOPY number
306: ,x_msg_data OUT NOCOPY varchar2
307: ) is
308:
309: begin
310: FND_MSG_PUB.Initialize;
311: x_return_status := FND_API.G_RET_STS_SUCCESS;
312: SAVEPOINT BSCUpdateKPIGROUP;
313: BSC_KPI_GROUP_PVT.Update_Kpi_Group( p_commit
314: ,p_Bsc_Kpi_Group_Rec
315: ,x_return_status
316: ,x_msg_count
317: ,x_msg_data);
318:
319: EXCEPTION
320: WHEN FND_API.G_EXC_ERROR THEN
321: ROLLBACK TO BSCUpdateKPIGROUP;
322: IF (x_msg_data IS NULL) THEN
323: FND_MSG_PUB.Count_And_Get
324: ( p_encoded => FND_API.G_FALSE
320: WHEN FND_API.G_EXC_ERROR THEN
321: ROLLBACK TO BSCUpdateKPIGROUP;
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: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
330: x_return_status := FND_API.G_RET_STS_ERROR;
331: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
332: ROLLBACK TO BSCUpdateKPIGROUP;
333: IF (x_msg_data IS NULL) THEN
326: , p_data => x_msg_data
327: );
328: END IF;
329: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
330: x_return_status := FND_API.G_RET_STS_ERROR;
331: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
332: ROLLBACK TO BSCUpdateKPIGROUP;
333: IF (x_msg_data IS NULL) THEN
334: FND_MSG_PUB.Count_And_Get
327: );
328: END IF;
329: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
330: x_return_status := FND_API.G_RET_STS_ERROR;
331: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
332: ROLLBACK TO BSCUpdateKPIGROUP;
333: IF (x_msg_data IS NULL) THEN
334: FND_MSG_PUB.Count_And_Get
335: ( p_encoded => FND_API.G_FALSE
331: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
332: ROLLBACK TO BSCUpdateKPIGROUP;
333: IF (x_msg_data IS NULL) THEN
334: FND_MSG_PUB.Count_And_Get
335: ( p_encoded => FND_API.G_FALSE
336: , p_count => x_msg_count
337: , p_data => x_msg_data
338: );
339: END IF;
336: , p_count => x_msg_count
337: , p_data => x_msg_data
338: );
339: END IF;
340: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
341: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
342: WHEN NO_DATA_FOUND THEN
343: ROLLBACK TO BSCUpdateKPIGROUP;
344: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
337: , p_data => x_msg_data
338: );
339: END IF;
340: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
341: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
342: WHEN NO_DATA_FOUND THEN
343: ROLLBACK TO BSCUpdateKPIGROUP;
344: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
345: IF (x_msg_data IS NOT NULL) THEN
340: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
341: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
342: WHEN NO_DATA_FOUND THEN
343: ROLLBACK TO BSCUpdateKPIGROUP;
344: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
345: IF (x_msg_data IS NOT NULL) THEN
346: x_msg_data := x_msg_data||' -> BSC_KPI_GROUP_PUB.Update_Kpi_Group ';
347: ELSE
348: x_msg_data := SQLERRM||' at BSC_KPI_GROUP_PUB.Update_Kpi_Group ';
349: END IF;
350: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
351: WHEN OTHERS THEN
352: ROLLBACK TO BSCUpdateKPIGROUP;
353: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
354: IF (x_msg_data IS NOT NULL) THEN
355: x_msg_data := x_msg_data||' -> BSC_KPI_GROUP_PUB.Update_Kpi_Group ';
356: ELSE
357: x_msg_data := SQLERRM||' at BSC_KPI_GROUP_PUB.Update_Kpi_Group ';
363: /************************************************************************************
364: ************************************************************************************/
365:
366: procedure Delete_Kpi_Group(
367: p_commit IN varchar2 := FND_API.G_FALSE
368: ,p_Bsc_Kpi_Group_Rec IN BSC_KPI_GROUP_PUB.Bsc_Kpi_Group_Rec
369: ,x_return_status OUT NOCOPY varchar2
370: ,x_msg_count OUT NOCOPY number
371: ,x_msg_data OUT NOCOPY varchar2
374: l_Bsc_Kpi_Group_Rec BSC_KPI_GROUP_PUB.Bsc_Kpi_Group_Rec;
375:
376: begin
377: FND_MSG_PUB.Initialize;
378: x_return_status := FND_API.G_RET_STS_SUCCESS;
379: SAVEPOINT BSCDeleteKPIGROUP;
380: l_Bsc_Kpi_Group_Rec := p_Bsc_Kpi_Group_Rec;
381:
382: -- Get the Group name.
393: ,x_msg_count
394: ,x_msg_data);
395:
396: EXCEPTION
397: WHEN FND_API.G_EXC_ERROR THEN
398: ROLLBACK TO BSCDeleteKPIGROUP;
399: IF (x_msg_data IS NULL) THEN
400: FND_MSG_PUB.Count_And_Get
401: ( p_encoded => FND_API.G_FALSE
397: WHEN FND_API.G_EXC_ERROR THEN
398: ROLLBACK TO BSCDeleteKPIGROUP;
399: IF (x_msg_data IS NULL) THEN
400: FND_MSG_PUB.Count_And_Get
401: ( p_encoded => FND_API.G_FALSE
402: , p_count => x_msg_count
403: , p_data => x_msg_data
404: );
405: END IF;
402: , p_count => x_msg_count
403: , p_data => x_msg_data
404: );
405: END IF;
406: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
407: x_return_status := FND_API.G_RET_STS_ERROR;
408: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
409: ROLLBACK TO BSCDeleteKPIGROUP;
410: IF (x_msg_data IS NULL) THEN
403: , p_data => x_msg_data
404: );
405: END IF;
406: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
407: x_return_status := FND_API.G_RET_STS_ERROR;
408: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
409: ROLLBACK TO BSCDeleteKPIGROUP;
410: IF (x_msg_data IS NULL) THEN
411: FND_MSG_PUB.Count_And_Get
404: );
405: END IF;
406: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_ERROR '||x_msg_data);
407: x_return_status := FND_API.G_RET_STS_ERROR;
408: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
409: ROLLBACK TO BSCDeleteKPIGROUP;
410: IF (x_msg_data IS NULL) THEN
411: FND_MSG_PUB.Count_And_Get
412: ( p_encoded => FND_API.G_FALSE
408: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
409: ROLLBACK TO BSCDeleteKPIGROUP;
410: IF (x_msg_data IS NULL) THEN
411: FND_MSG_PUB.Count_And_Get
412: ( p_encoded => FND_API.G_FALSE
413: , p_count => x_msg_count
414: , p_data => x_msg_data
415: );
416: END IF;
413: , p_count => x_msg_count
414: , p_data => x_msg_data
415: );
416: END IF;
417: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
418: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
419: WHEN NO_DATA_FOUND THEN
420: ROLLBACK TO BSCDeleteKPIGROUP;
421: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
414: , p_data => x_msg_data
415: );
416: END IF;
417: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
418: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
419: WHEN NO_DATA_FOUND THEN
420: ROLLBACK TO BSCDeleteKPIGROUP;
421: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
422: IF (x_msg_data IS NOT NULL) THEN
417: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
418: --DBMS_OUTPUT.PUT_LINE('EXCEPTION FND_API.G_EXC_UNEXPECTED_ERROR '||x_msg_data);
419: WHEN NO_DATA_FOUND THEN
420: ROLLBACK TO BSCDeleteKPIGROUP;
421: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
422: IF (x_msg_data IS NOT NULL) THEN
423: x_msg_data := x_msg_data||' -> BSC_KPI_GROUP_PUB.Delete_Kpi_Group ';
424: ELSE
425: x_msg_data := SQLERRM||' at BSC_KPI_GROUP_PUB.Delete_Kpi_Group ';
426: END IF;
427: --DBMS_OUTPUT.PUT_LINE('EXCEPTION NO_DATA_FOUND '||x_msg_data);
428: WHEN OTHERS THEN
429: ROLLBACK TO BSCDeleteKPIGROUP;
430: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
431: IF (x_msg_data IS NOT NULL) THEN
432: x_msg_data := x_msg_data||' -> BSC_KPI_GROUP_PUB.Delete_Kpi_Group ';
433: ELSE
434: x_msg_data := SQLERRM||' at BSC_KPI_GROUP_PUB.Delete_Kpi_Group ';