3:
4: /************************************************************************************
5: ************************************************************************************/
6: PROCEDURE Create_Kpi_Measure_Weights (
7: p_commit IN VARCHAR2 := FND_API.G_FALSE
8: , p_kpi_measure_weights_rec IN BSC_KPI_MEASURE_WEIGHTS_PUB.kpi_measure_weights_rec
9: , p_cascade_shared IN BOOLEAN := TRUE
10: , x_return_status OUT NOCOPY VARCHAR2
11: , x_msg_count OUT NOCOPY NUMBER
24:
25: BEGIN
26:
27: FND_MSG_PUB.Initialize;
28: x_return_status := FND_API.G_RET_STS_SUCCESS;
29:
30: SAVEPOINT BscKpiMeasureWeightPub_Create;
31:
32: -- Any Business Logic Validation
37: , x_return_status => x_return_status
38: , x_msg_count => x_msg_count
39: , x_msg_data => x_msg_data
40: );
41: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
42: RAISE FND_API.G_EXC_ERROR;
43: END IF;
44:
45: IF p_cascade_shared THEN
38: , x_msg_count => x_msg_count
39: , x_msg_data => x_msg_data
40: );
41: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
42: RAISE FND_API.G_EXC_ERROR;
43: END IF;
44:
45: IF p_cascade_shared THEN
46: FOR c_shared IN c_shared_obj(p_kpi_measure_weights_rec.objective_id) LOOP
50: , p_kpi_measure_id => p_kpi_measure_weights_rec.kpi_measure_id
51: , p_shared_objective_id => c_shared.indicator
52: );
53: IF l_kpi_measure_id IS NULL THEN
54: RAISE FND_API.G_EXC_ERROR;
55: END IF;
56:
57: l_kpi_measure_weights_rec := p_kpi_measure_weights_rec;
58: l_kpi_measure_weights_rec.objective_id := c_shared.indicator;
64: , x_return_status => x_return_status
65: , x_msg_count => x_msg_count
66: , x_msg_data => x_msg_data
67: );
68: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
69: RAISE FND_API.G_EXC_ERROR;
70: END IF;
71:
72: END LOOP;
65: , x_msg_count => x_msg_count
66: , x_msg_data => x_msg_data
67: );
68: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
69: RAISE FND_API.G_EXC_ERROR;
70: END IF;
71:
72: END LOOP;
73: END IF;
72: END LOOP;
73: END IF;
74:
75: EXCEPTION
76: WHEN FND_API.G_EXC_ERROR THEN
77: ROLLBACK TO BscKpiMeasureWeightPub_Create;
78: IF (x_msg_data IS NULL) THEN
79: FND_MSG_PUB.Count_And_Get
80: ( p_encoded => FND_API.G_FALSE
76: WHEN FND_API.G_EXC_ERROR THEN
77: ROLLBACK TO BscKpiMeasureWeightPub_Create;
78: IF (x_msg_data IS NULL) THEN
79: FND_MSG_PUB.Count_And_Get
80: ( p_encoded => FND_API.G_FALSE
81: , p_count => x_msg_count
82: , p_data => x_msg_data
83: );
84: END IF;
81: , p_count => x_msg_count
82: , p_data => x_msg_data
83: );
84: END IF;
85: x_return_status := FND_API.G_RET_STS_ERROR;
86: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
87: ROLLBACK TO BscKpiMeasureWeightPub_Create;
88: IF (x_msg_data IS NULL) THEN
89: FND_MSG_PUB.Count_And_Get
82: , p_data => x_msg_data
83: );
84: END IF;
85: x_return_status := FND_API.G_RET_STS_ERROR;
86: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
87: ROLLBACK TO BscKpiMeasureWeightPub_Create;
88: IF (x_msg_data IS NULL) THEN
89: FND_MSG_PUB.Count_And_Get
90: ( p_encoded => FND_API.G_FALSE
86: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
87: ROLLBACK TO BscKpiMeasureWeightPub_Create;
88: IF (x_msg_data IS NULL) THEN
89: FND_MSG_PUB.Count_And_Get
90: ( p_encoded => FND_API.G_FALSE
91: , p_count => x_msg_count
92: , p_data => x_msg_data
93: );
94: END IF;
91: , p_count => x_msg_count
92: , p_data => x_msg_data
93: );
94: END IF;
95: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
96: WHEN NO_DATA_FOUND THEN
97: ROLLBACK TO BscKpiMeasureWeightPub_Create;
98: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
99: IF (x_msg_data IS NOT NULL) THEN
94: END IF;
95: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
96: WHEN NO_DATA_FOUND THEN
97: ROLLBACK TO BscKpiMeasureWeightPub_Create;
98: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
99: IF (x_msg_data IS NOT NULL) THEN
100: x_msg_data := x_msg_data || ' -> BSC_KPI_MEASURE_WEIGHTS_PUB.Create_Kpi_Measure_Weights ';
101: ELSE
102: x_msg_data := SQLERRM || ' at BSC_KPI_MEASURE_WEIGHTS_PUB.Create_Kpi_Measure_Weights ';
102: x_msg_data := SQLERRM || ' at BSC_KPI_MEASURE_WEIGHTS_PUB.Create_Kpi_Measure_Weights ';
103: END IF;
104: WHEN OTHERS THEN
105: ROLLBACK TO BscKpiMeasureWeightPub_Create;
106: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
107: IF (x_msg_data IS NOT NULL) THEN
108: x_msg_data := x_msg_data || ' -> BSC_KPI_MEASURE_WEIGHTS_PUB.Create_Kpi_Measure_Weights ';
109: ELSE
110: x_msg_data := SQLERRM || ' at BSC_KPI_MEASURE_WEIGHTS_PUB.Create_Kpi_Measure_Weights ';
113:
114: /************************************************************************************
115: ************************************************************************************/
116: PROCEDURE Update_Kpi_Measure_Weights (
117: p_commit IN VARCHAR2 := FND_API.G_FALSE
118: , p_kpi_measure_weights_rec IN BSC_KPI_MEASURE_WEIGHTS_PUB.kpi_measure_weights_rec
119: , p_cascade_shared IN BOOLEAN := TRUE
120: , x_return_status OUT NOCOPY VARCHAR2
121: , x_msg_count OUT NOCOPY NUMBER
133: l_kpi_measure_id NUMBER;
134: BEGIN
135:
136: FND_MSG_PUB.Initialize;
137: x_return_status := FND_API.G_RET_STS_SUCCESS;
138:
139: SAVEPOINT BscKpiMeasureWeightPub_Update;
140:
141: -- Any Business Logic Validation
146: , x_return_status => x_return_status
147: , x_msg_count => x_msg_count
148: , x_msg_data => x_msg_data
149: );
150: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
151: RAISE FND_API.G_EXC_ERROR;
152: END IF;
153:
154: IF p_cascade_shared THEN
147: , x_msg_count => x_msg_count
148: , x_msg_data => x_msg_data
149: );
150: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
151: RAISE FND_API.G_EXC_ERROR;
152: END IF;
153:
154: IF p_cascade_shared THEN
155: FOR c_shared IN c_shared_obj(p_kpi_measure_weights_rec.objective_id) LOOP
159: , p_kpi_measure_id => p_kpi_measure_weights_rec.kpi_measure_id
160: , p_shared_objective_id => c_shared.indicator
161: );
162: IF l_kpi_measure_id IS NULL THEN
163: RAISE FND_API.G_EXC_ERROR;
164: END IF;
165:
166: l_kpi_measure_weights_rec := p_kpi_measure_weights_rec;
167: l_kpi_measure_weights_rec.objective_id := c_shared.indicator;
173: , x_return_status => x_return_status
174: , x_msg_count => x_msg_count
175: , x_msg_data => x_msg_data
176: );
177: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
178: RAISE FND_API.G_EXC_ERROR;
179: END IF;
180:
181: END LOOP;
174: , x_msg_count => x_msg_count
175: , x_msg_data => x_msg_data
176: );
177: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
178: RAISE FND_API.G_EXC_ERROR;
179: END IF;
180:
181: END LOOP;
182: END IF;
181: END LOOP;
182: END IF;
183:
184: EXCEPTION
185: WHEN FND_API.G_EXC_ERROR THEN
186: ROLLBACK TO BscKpiMeasureWeightPub_Update;
187: IF (x_msg_data IS NULL) THEN
188: FND_MSG_PUB.Count_And_Get
189: ( p_encoded => FND_API.G_FALSE
185: WHEN FND_API.G_EXC_ERROR THEN
186: ROLLBACK TO BscKpiMeasureWeightPub_Update;
187: IF (x_msg_data IS NULL) THEN
188: FND_MSG_PUB.Count_And_Get
189: ( p_encoded => FND_API.G_FALSE
190: , p_count => x_msg_count
191: , p_data => x_msg_data
192: );
193: END IF;
190: , p_count => x_msg_count
191: , p_data => x_msg_data
192: );
193: END IF;
194: x_return_status := FND_API.G_RET_STS_ERROR;
195: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
196: ROLLBACK TO BscKpiMeasureWeightPub_Update;
197: IF (x_msg_data IS NULL) THEN
198: FND_MSG_PUB.Count_And_Get
191: , p_data => x_msg_data
192: );
193: END IF;
194: x_return_status := FND_API.G_RET_STS_ERROR;
195: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
196: ROLLBACK TO BscKpiMeasureWeightPub_Update;
197: IF (x_msg_data IS NULL) THEN
198: FND_MSG_PUB.Count_And_Get
199: ( p_encoded => FND_API.G_FALSE
195: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
196: ROLLBACK TO BscKpiMeasureWeightPub_Update;
197: IF (x_msg_data IS NULL) THEN
198: FND_MSG_PUB.Count_And_Get
199: ( p_encoded => FND_API.G_FALSE
200: , p_count => x_msg_count
201: , p_data => x_msg_data
202: );
203: END IF;
200: , p_count => x_msg_count
201: , p_data => x_msg_data
202: );
203: END IF;
204: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
205: WHEN NO_DATA_FOUND THEN
206: ROLLBACK TO BscKpiMeasureWeightPub_Update;
207: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
208: IF (x_msg_data IS NOT NULL) THEN
203: END IF;
204: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
205: WHEN NO_DATA_FOUND THEN
206: ROLLBACK TO BscKpiMeasureWeightPub_Update;
207: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
208: IF (x_msg_data IS NOT NULL) THEN
209: x_msg_data := x_msg_data || ' -> BSC_KPI_MEASURE_WEIGHTS_PUB.Update_Kpi_Measure_Weights ';
210: ELSE
211: x_msg_data := SQLERRM || ' at BSC_KPI_MEASURE_WEIGHTS_PUB.Update_Kpi_Measure_Weights ';
211: x_msg_data := SQLERRM || ' at BSC_KPI_MEASURE_WEIGHTS_PUB.Update_Kpi_Measure_Weights ';
212: END IF;
213: WHEN OTHERS THEN
214: ROLLBACK TO BscKpiMeasureWeightPub_Update;
215: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
216: IF (x_msg_data IS NOT NULL) THEN
217: x_msg_data := x_msg_data || ' -> BSC_KPI_MEASURE_WEIGHTS_PUB.Update_Kpi_Measure_Weights ';
218: ELSE
219: x_msg_data := SQLERRM || ' at BSC_KPI_MEASURE_WEIGHTS_PUB.Update_Kpi_Measure_Weights ';
222:
223: /************************************************************************************
224: ************************************************************************************/
225: PROCEDURE Del_Kpi_Measure_Weights (
226: p_commit IN VARCHAR2:= FND_API.G_FALSE
227: , p_objective_id IN NUMBER
228: , p_kpi_measure_id IN NUMBER
229: , p_cascade_shared IN BOOLEAN := TRUE
230: , x_return_status OUT NOCOPY VARCHAR2
243:
244: BEGIN
245:
246: FND_MSG_PUB.Initialize;
247: x_return_status := FND_API.G_RET_STS_SUCCESS;
248:
249: SAVEPOINT BscKpiMeasureWeightPub_Delete;
250:
251: -- Any Business Logic Validation
257: , x_return_status => x_return_status
258: , x_msg_count => x_msg_count
259: , x_msg_data => x_msg_data
260: );
261: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
262: RAISE FND_API.G_EXC_ERROR;
263: END IF;
264:
265: IF p_cascade_shared THEN
258: , x_msg_count => x_msg_count
259: , x_msg_data => x_msg_data
260: );
261: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
262: RAISE FND_API.G_EXC_ERROR;
263: END IF;
264:
265: IF p_cascade_shared THEN
266:
271: , p_kpi_measure_id => p_kpi_measure_id
272: , p_shared_objective_id => c_shared.indicator
273: );
274: IF l_kpi_measure_id IS NULL THEN
275: RAISE FND_API.G_EXC_ERROR;
276: END IF;
277:
278: BSC_KPI_MEASURE_WEIGHTS_PVT.Del_Kpi_Measure_Weights
279: ( p_commit => p_commit
282: , x_return_status => x_return_status
283: , x_msg_count => x_msg_count
284: , x_msg_data => x_msg_data
285: );
286: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
287: RAISE FND_API.G_EXC_ERROR;
288: END IF;
289:
290: END LOOP;
283: , x_msg_count => x_msg_count
284: , x_msg_data => x_msg_data
285: );
286: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
287: RAISE FND_API.G_EXC_ERROR;
288: END IF;
289:
290: END LOOP;
291:
291:
292: END IF;
293:
294: EXCEPTION
295: WHEN FND_API.G_EXC_ERROR THEN
296: ROLLBACK TO BscKpiMeasureWeightPub_Delete;
297: IF (x_msg_data IS NULL) THEN
298: FND_MSG_PUB.Count_And_Get
299: ( p_encoded => FND_API.G_FALSE
295: WHEN FND_API.G_EXC_ERROR THEN
296: ROLLBACK TO BscKpiMeasureWeightPub_Delete;
297: IF (x_msg_data IS NULL) THEN
298: FND_MSG_PUB.Count_And_Get
299: ( p_encoded => FND_API.G_FALSE
300: , p_count => x_msg_count
301: , p_data => x_msg_data
302: );
303: END IF;
300: , p_count => x_msg_count
301: , p_data => x_msg_data
302: );
303: END IF;
304: x_return_status := FND_API.G_RET_STS_ERROR;
305: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
306: ROLLBACK TO BscKpiMeasureWeightPub_Delete;
307: IF (x_msg_data IS NULL) THEN
308: FND_MSG_PUB.Count_And_Get
301: , p_data => x_msg_data
302: );
303: END IF;
304: x_return_status := FND_API.G_RET_STS_ERROR;
305: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
306: ROLLBACK TO BscKpiMeasureWeightPub_Delete;
307: IF (x_msg_data IS NULL) THEN
308: FND_MSG_PUB.Count_And_Get
309: ( p_encoded => FND_API.G_FALSE
305: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
306: ROLLBACK TO BscKpiMeasureWeightPub_Delete;
307: IF (x_msg_data IS NULL) THEN
308: FND_MSG_PUB.Count_And_Get
309: ( p_encoded => FND_API.G_FALSE
310: , p_count => x_msg_count
311: , p_data => x_msg_data
312: );
313: END IF;
310: , p_count => x_msg_count
311: , p_data => x_msg_data
312: );
313: END IF;
314: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
315: WHEN NO_DATA_FOUND THEN
316: ROLLBACK TO BscKpiMeasureWeightPub_Delete;
317: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
318: IF (x_msg_data IS NOT NULL) THEN
313: END IF;
314: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
315: WHEN NO_DATA_FOUND THEN
316: ROLLBACK TO BscKpiMeasureWeightPub_Delete;
317: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
318: IF (x_msg_data IS NOT NULL) THEN
319: x_msg_data := x_msg_data || ' -> BSC_KPI_MEASURE_WEIGHTS_PUB.Del_Kpi_Measure_Weights ';
320: ELSE
321: x_msg_data := SQLERRM || ' at BSC_KPI_MEASURE_WEIGHTS_PUB.Del_Kpi_Measure_Weights ';
321: x_msg_data := SQLERRM || ' at BSC_KPI_MEASURE_WEIGHTS_PUB.Del_Kpi_Measure_Weights ';
322: END IF;
323: WHEN OTHERS THEN
324: ROLLBACK TO BscKpiMeasureWeightPub_Delete;
325: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
326: IF (x_msg_data IS NOT NULL) THEN
327: x_msg_data := x_msg_data || ' -> BSC_KPI_MEASURE_WEIGHTS_PUB.Del_Kpi_Measure_Weights ';
328: ELSE
329: x_msg_data := SQLERRM || ' at BSC_KPI_MEASURE_WEIGHTS_PUB.Del_Kpi_Measure_Weights ';
332:
333: /************************************************************************************
334: ************************************************************************************/
335: PROCEDURE Del_Obj_Kpi_Measure_Weights (
336: p_commit IN VARCHAR2:= FND_API.G_FALSE
337: , p_objective_id IN NUMBER
338: , p_cascade_shared IN BOOLEAN := TRUE
339: , x_return_status OUT NOCOPY VARCHAR2
340: , x_msg_count OUT NOCOPY NUMBER
350:
351: BEGIN
352:
353: FND_MSG_PUB.Initialize;
354: x_return_status := FND_API.G_RET_STS_SUCCESS;
355:
356: SAVEPOINT BscKpiMeasureWeightPub_DelAll;
357:
358: -- Any Business Logic Validation
363: , x_return_status => x_return_status
364: , x_msg_count => x_msg_count
365: , x_msg_data => x_msg_data
366: );
367: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
368: RAISE FND_API.G_EXC_ERROR;
369: END IF;
370:
371: IF p_cascade_shared THEN
364: , x_msg_count => x_msg_count
365: , x_msg_data => x_msg_data
366: );
367: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
368: RAISE FND_API.G_EXC_ERROR;
369: END IF;
370:
371: IF p_cascade_shared THEN
372:
378: , x_return_status => x_return_status
379: , x_msg_count => x_msg_count
380: , x_msg_data => x_msg_data
381: );
382: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
383: RAISE FND_API.G_EXC_ERROR;
384: END IF;
385:
386: END LOOP;
379: , x_msg_count => x_msg_count
380: , x_msg_data => x_msg_data
381: );
382: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
383: RAISE FND_API.G_EXC_ERROR;
384: END IF;
385:
386: END LOOP;
387:
387:
388: END IF;
389:
390: EXCEPTION
391: WHEN FND_API.G_EXC_ERROR THEN
392: ROLLBACK TO BscKpiMeasureWeightPub_DelAll;
393: IF (x_msg_data IS NULL) THEN
394: FND_MSG_PUB.Count_And_Get
395: ( p_encoded => FND_API.G_FALSE
391: WHEN FND_API.G_EXC_ERROR THEN
392: ROLLBACK TO BscKpiMeasureWeightPub_DelAll;
393: IF (x_msg_data IS NULL) THEN
394: FND_MSG_PUB.Count_And_Get
395: ( p_encoded => FND_API.G_FALSE
396: , p_count => x_msg_count
397: , p_data => x_msg_data
398: );
399: END IF;
396: , p_count => x_msg_count
397: , p_data => x_msg_data
398: );
399: END IF;
400: x_return_status := FND_API.G_RET_STS_ERROR;
401: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
402: ROLLBACK TO BscKpiMeasureWeightPub_DelAll;
403: IF (x_msg_data IS NULL) THEN
404: FND_MSG_PUB.Count_And_Get
397: , p_data => x_msg_data
398: );
399: END IF;
400: x_return_status := FND_API.G_RET_STS_ERROR;
401: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
402: ROLLBACK TO BscKpiMeasureWeightPub_DelAll;
403: IF (x_msg_data IS NULL) THEN
404: FND_MSG_PUB.Count_And_Get
405: ( p_encoded => FND_API.G_FALSE
401: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
402: ROLLBACK TO BscKpiMeasureWeightPub_DelAll;
403: IF (x_msg_data IS NULL) THEN
404: FND_MSG_PUB.Count_And_Get
405: ( p_encoded => FND_API.G_FALSE
406: , p_count => x_msg_count
407: , p_data => x_msg_data
408: );
409: END IF;
406: , p_count => x_msg_count
407: , p_data => x_msg_data
408: );
409: END IF;
410: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
411: WHEN NO_DATA_FOUND THEN
412: ROLLBACK TO BscKpiMeasureWeightPub_DelAll;
413: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
414: IF (x_msg_data IS NOT NULL) THEN
409: END IF;
410: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
411: WHEN NO_DATA_FOUND THEN
412: ROLLBACK TO BscKpiMeasureWeightPub_DelAll;
413: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
414: IF (x_msg_data IS NOT NULL) THEN
415: x_msg_data := x_msg_data || ' -> BSC_KPI_MEASURE_WEIGHTS_PUB.Del_Obj_Kpi_Measure_Weights ';
416: ELSE
417: x_msg_data := SQLERRM || ' at BSC_KPI_MEASURE_WEIGHTS_PUB.Del_Obj_Kpi_Measure_Weights ';
417: x_msg_data := SQLERRM || ' at BSC_KPI_MEASURE_WEIGHTS_PUB.Del_Obj_Kpi_Measure_Weights ';
418: END IF;
419: WHEN OTHERS THEN
420: ROLLBACK TO BscKpiMeasureWeightPub_DelAll;
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_MEASURE_WEIGHTS_PUB.Del_Obj_Kpi_Measure_Weights ';
424: ELSE
425: x_msg_data := SQLERRM || ' at BSC_KPI_MEASURE_WEIGHTS_PUB.Del_Obj_Kpi_Measure_Weights ';
439: IS
440: BEGIN
441:
442: FND_MSG_PUB.Initialize;
443: x_return_status := FND_API.G_RET_STS_SUCCESS;
444:
445: -- Any Business Logic Validation
446:
447: BSC_KPI_MEASURE_WEIGHTS_PVT.Retrieve_Kpi_Measure_Weights
451: , x_return_status => x_return_status
452: , x_msg_count => x_msg_count
453: , x_msg_data => x_msg_data
454: );
455: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
456: RAISE FND_API.G_EXC_ERROR;
457: END IF;
458:
459: EXCEPTION
452: , x_msg_count => x_msg_count
453: , x_msg_data => x_msg_data
454: );
455: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
456: RAISE FND_API.G_EXC_ERROR;
457: END IF;
458:
459: EXCEPTION
460: WHEN FND_API.G_EXC_ERROR THEN
456: RAISE FND_API.G_EXC_ERROR;
457: END IF;
458:
459: EXCEPTION
460: WHEN FND_API.G_EXC_ERROR THEN
461: IF (x_msg_data IS NULL) THEN
462: FND_MSG_PUB.Count_And_Get
463: ( p_encoded => FND_API.G_FALSE
464: , p_count => x_msg_count
459: EXCEPTION
460: WHEN FND_API.G_EXC_ERROR THEN
461: IF (x_msg_data IS NULL) THEN
462: FND_MSG_PUB.Count_And_Get
463: ( p_encoded => FND_API.G_FALSE
464: , p_count => x_msg_count
465: , p_data => x_msg_data
466: );
467: END IF;
464: , p_count => x_msg_count
465: , p_data => x_msg_data
466: );
467: END IF;
468: x_return_status := FND_API.G_RET_STS_ERROR;
469: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
470: IF (x_msg_data IS NULL) THEN
471: FND_MSG_PUB.Count_And_Get
472: ( p_encoded => FND_API.G_FALSE
465: , p_data => x_msg_data
466: );
467: END IF;
468: x_return_status := FND_API.G_RET_STS_ERROR;
469: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
470: IF (x_msg_data IS NULL) THEN
471: FND_MSG_PUB.Count_And_Get
472: ( p_encoded => FND_API.G_FALSE
473: , p_count => x_msg_count
468: x_return_status := FND_API.G_RET_STS_ERROR;
469: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
470: IF (x_msg_data IS NULL) THEN
471: FND_MSG_PUB.Count_And_Get
472: ( p_encoded => FND_API.G_FALSE
473: , p_count => x_msg_count
474: , p_data => x_msg_data
475: );
476: END IF;
473: , p_count => x_msg_count
474: , p_data => x_msg_data
475: );
476: END IF;
477: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
478: WHEN NO_DATA_FOUND THEN
479: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
480: IF (x_msg_data IS NOT NULL) THEN
481: x_msg_data := x_msg_data || ' -> BSC_KPI_MEASURE_WEIGHTS_PUB.Retrieve_Kpi_Measure_Weights ';
475: );
476: END IF;
477: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
478: WHEN NO_DATA_FOUND THEN
479: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
480: IF (x_msg_data IS NOT NULL) THEN
481: x_msg_data := x_msg_data || ' -> BSC_KPI_MEASURE_WEIGHTS_PUB.Retrieve_Kpi_Measure_Weights ';
482: ELSE
483: x_msg_data := SQLERRM || ' at BSC_KPI_MEASURE_WEIGHTS_PUB.Retrieve_Kpi_Measure_Weights ';
482: ELSE
483: x_msg_data := SQLERRM || ' at BSC_KPI_MEASURE_WEIGHTS_PUB.Retrieve_Kpi_Measure_Weights ';
484: END IF;
485: WHEN OTHERS THEN
486: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
487: IF (x_msg_data IS NOT NULL) THEN
488: x_msg_data := x_msg_data || ' -> BSC_KPI_MEASURE_WEIGHTS_PUB.Retrieve_Kpi_Measure_Weights ';
489: ELSE
490: x_msg_data := SQLERRM || ' at BSC_KPI_MEASURE_WEIGHTS_PUB.Retrieve_Kpi_Measure_Weights ';