1: PACKAGE BODY BSC_KPI_MEASURE_WEIGHTS_PVT AS
2: /* $Header: BSCVKMWB.pls 120.0.12000000.1 2007/07/17 07:44:49 appldev noship $ */
3:
4: /************************************************************************************
5: ************************************************************************************/
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: , x_return_status OUT NOCOPY VARCHAR2
10: , x_msg_count OUT NOCOPY NUMBER
11: , x_msg_data OUT NOCOPY VARCHAR2
12: )
28: FND_MSG_PUB.ADD;
29: RAISE FND_API.G_EXC_ERROR;
30: END IF;
31:
32: INSERT INTO bsc_kpi_measure_weights
33: ( indicator
34: , kpi_measure_id
35: , weight
36: , creation_date
78: WHEN NO_DATA_FOUND THEN
79: ROLLBACK TO BscKpiMeasureWeightPvt_Create;
80: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
81: IF (x_msg_data IS NOT NULL) THEN
82: x_msg_data := x_msg_data || ' -> BSC_KPI_MEASURE_WEIGHTS_PVT.Create_Kpi_Measure_Weights ';
83: ELSE
84: x_msg_data := SQLERRM || ' at BSC_KPI_MEASURE_WEIGHTS_PVT.Create_Kpi_Measure_Weights ';
85: END IF;
86: WHEN OTHERS THEN
80: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
81: IF (x_msg_data IS NOT NULL) THEN
82: x_msg_data := x_msg_data || ' -> BSC_KPI_MEASURE_WEIGHTS_PVT.Create_Kpi_Measure_Weights ';
83: ELSE
84: x_msg_data := SQLERRM || ' at BSC_KPI_MEASURE_WEIGHTS_PVT.Create_Kpi_Measure_Weights ';
85: END IF;
86: WHEN OTHERS THEN
87: ROLLBACK TO BscKpiMeasureWeightPvt_Create;
88: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
86: WHEN OTHERS THEN
87: ROLLBACK TO BscKpiMeasureWeightPvt_Create;
88: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
89: IF (x_msg_data IS NOT NULL) THEN
90: x_msg_data := x_msg_data || ' -> BSC_KPI_MEASURE_WEIGHTS_PVT.Create_Kpi_Measure_Weights ';
91: ELSE
92: x_msg_data := SQLERRM || ' at BSC_KPI_MEASURE_WEIGHTS_PVT.Create_Kpi_Measure_Weights ';
93: END IF;
94: END Create_Kpi_Measure_Weights;
88: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
89: IF (x_msg_data IS NOT NULL) THEN
90: x_msg_data := x_msg_data || ' -> BSC_KPI_MEASURE_WEIGHTS_PVT.Create_Kpi_Measure_Weights ';
91: ELSE
92: x_msg_data := SQLERRM || ' at BSC_KPI_MEASURE_WEIGHTS_PVT.Create_Kpi_Measure_Weights ';
93: END IF;
94: END Create_Kpi_Measure_Weights;
95:
96: /************************************************************************************
96: /************************************************************************************
97: ************************************************************************************/
98: PROCEDURE Update_Kpi_Measure_Weights (
99: p_commit IN VARCHAR2 := FND_API.G_FALSE
100: , p_kpi_measure_weights_rec IN BSC_KPI_MEASURE_WEIGHTS_PUB.kpi_measure_weights_rec
101: , x_return_status OUT NOCOPY VARCHAR2
102: , x_msg_count OUT NOCOPY NUMBER
103: , x_msg_data OUT NOCOPY VARCHAR2
104: )
102: , x_msg_count OUT NOCOPY NUMBER
103: , x_msg_data OUT NOCOPY VARCHAR2
104: )
105: IS
106: l_kpi_measure_weights_rec BSC_KPI_MEASURE_WEIGHTS_PUB.kpi_measure_weights_rec;
107: BEGIN
108: FND_MSG_PUB.Initialize;
109: x_return_status := FND_API.G_RET_STS_SUCCESS;
110:
150: ELSE
151: l_kpi_measure_weights_rec.last_update_login := p_kpi_measure_weights_rec.last_update_login;
152: END IF;
153:
154: UPDATE bsc_kpi_measure_weights
155: SET weight = l_kpi_measure_weights_rec.weight
156: , last_updated_by = l_kpi_measure_weights_rec.last_updated_by
157: , last_update_date = l_kpi_measure_weights_rec.last_update_date
158: , last_update_login = l_kpi_measure_weights_rec.last_update_login
187: WHEN NO_DATA_FOUND THEN
188: ROLLBACK TO BscKpiMeasureWeightPvt_Update;
189: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
190: IF (x_msg_data IS NOT NULL) THEN
191: x_msg_data := x_msg_data || ' -> BSC_KPI_MEASURE_WEIGHTS_PVT.Update_Kpi_Measure_Weights ';
192: ELSE
193: x_msg_data := SQLERRM || ' at BSC_KPI_MEASURE_WEIGHTS_PVT.Update_Kpi_Measure_Weights ';
194: END IF;
195: WHEN OTHERS THEN
189: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
190: IF (x_msg_data IS NOT NULL) THEN
191: x_msg_data := x_msg_data || ' -> BSC_KPI_MEASURE_WEIGHTS_PVT.Update_Kpi_Measure_Weights ';
192: ELSE
193: x_msg_data := SQLERRM || ' at BSC_KPI_MEASURE_WEIGHTS_PVT.Update_Kpi_Measure_Weights ';
194: END IF;
195: WHEN OTHERS THEN
196: ROLLBACK TO BscKpiMeasureWeightPvt_Update;
197: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
195: WHEN OTHERS THEN
196: ROLLBACK TO BscKpiMeasureWeightPvt_Update;
197: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
198: IF (x_msg_data IS NOT NULL) THEN
199: x_msg_data := x_msg_data || ' -> BSC_KPI_MEASURE_WEIGHTS_PVT.Update_Kpi_Measure_Weights ';
200: ELSE
201: x_msg_data := SQLERRM || ' at BSC_KPI_MEASURE_WEIGHTS_PVT.Update_Kpi_Measure_Weights ';
202: END IF;
203: END Update_Kpi_Measure_Weights;
197: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
198: IF (x_msg_data IS NOT NULL) THEN
199: x_msg_data := x_msg_data || ' -> BSC_KPI_MEASURE_WEIGHTS_PVT.Update_Kpi_Measure_Weights ';
200: ELSE
201: x_msg_data := SQLERRM || ' at BSC_KPI_MEASURE_WEIGHTS_PVT.Update_Kpi_Measure_Weights ';
202: END IF;
203: END Update_Kpi_Measure_Weights;
204:
205: /************************************************************************************
228: FND_MSG_PUB.ADD;
229: RAISE FND_API.G_EXC_ERROR;
230: END IF;
231:
232: DELETE FROM bsc_kpi_measure_weights
233: WHERE indicator = p_objective_id
234: AND kpi_measure_id = p_kpi_measure_id;
235:
236: IF (p_commit = FND_API.G_TRUE) THEN
261: WHEN NO_DATA_FOUND THEN
262: ROLLBACK TO BscKpiMeasureWeightPvt_Delete;
263: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
264: IF (x_msg_data IS NOT NULL) THEN
265: x_msg_data := x_msg_data || ' -> BSC_KPI_MEASURE_WEIGHTS_PVT.Del_Kpi_Measure_Weights ';
266: ELSE
267: x_msg_data := SQLERRM || ' at BSC_KPI_MEASURE_WEIGHTS_PVT.Del_Kpi_Measure_Weights ';
268: END IF;
269: WHEN OTHERS THEN
263: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
264: IF (x_msg_data IS NOT NULL) THEN
265: x_msg_data := x_msg_data || ' -> BSC_KPI_MEASURE_WEIGHTS_PVT.Del_Kpi_Measure_Weights ';
266: ELSE
267: x_msg_data := SQLERRM || ' at BSC_KPI_MEASURE_WEIGHTS_PVT.Del_Kpi_Measure_Weights ';
268: END IF;
269: WHEN OTHERS THEN
270: ROLLBACK TO BscKpiMeasureWeightPvt_Delete;
271: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
269: WHEN OTHERS THEN
270: ROLLBACK TO BscKpiMeasureWeightPvt_Delete;
271: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
272: IF (x_msg_data IS NOT NULL) THEN
273: x_msg_data := x_msg_data || ' -> BSC_KPI_MEASURE_WEIGHTS_PVT.Del_Kpi_Measure_Weights ';
274: ELSE
275: x_msg_data := SQLERRM || ' at BSC_KPI_MEASURE_WEIGHTS_PVT.Del_Kpi_Measure_Weights ';
276: END IF;
277: END Del_Kpi_Measure_Weights;
271: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
272: IF (x_msg_data IS NOT NULL) THEN
273: x_msg_data := x_msg_data || ' -> BSC_KPI_MEASURE_WEIGHTS_PVT.Del_Kpi_Measure_Weights ';
274: ELSE
275: x_msg_data := SQLERRM || ' at BSC_KPI_MEASURE_WEIGHTS_PVT.Del_Kpi_Measure_Weights ';
276: END IF;
277: END Del_Kpi_Measure_Weights;
278:
279: /************************************************************************************
297: FND_MSG_PUB.ADD;
298: RAISE FND_API.G_EXC_ERROR;
299: END IF;
300:
301: DELETE FROM bsc_kpi_measure_weights
302: WHERE indicator = p_objective_id;
303:
304: IF (p_commit = FND_API.G_TRUE) THEN
305: COMMIT;
329: WHEN NO_DATA_FOUND THEN
330: ROLLBACK TO BscKpiMeasureWeightPvt_DelAll;
331: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
332: IF (x_msg_data IS NOT NULL) THEN
333: x_msg_data := x_msg_data || ' -> BSC_KPI_MEASURE_WEIGHTS_PVT.Del_Obj_Kpi_Measure_Weights ';
334: ELSE
335: x_msg_data := SQLERRM || ' at BSC_KPI_MEASURE_WEIGHTS_PVT.Del_Obj_Kpi_Measure_Weights ';
336: END IF;
337: WHEN OTHERS THEN
331: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
332: IF (x_msg_data IS NOT NULL) THEN
333: x_msg_data := x_msg_data || ' -> BSC_KPI_MEASURE_WEIGHTS_PVT.Del_Obj_Kpi_Measure_Weights ';
334: ELSE
335: x_msg_data := SQLERRM || ' at BSC_KPI_MEASURE_WEIGHTS_PVT.Del_Obj_Kpi_Measure_Weights ';
336: END IF;
337: WHEN OTHERS THEN
338: ROLLBACK TO BscKpiMeasureWeightPvt_DelAll;
339: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
337: WHEN OTHERS THEN
338: ROLLBACK TO BscKpiMeasureWeightPvt_DelAll;
339: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
340: IF (x_msg_data IS NOT NULL) THEN
341: x_msg_data := x_msg_data || ' -> BSC_KPI_MEASURE_WEIGHTS_PVT.Del_Obj_Kpi_Measure_Weights ';
342: ELSE
343: x_msg_data := SQLERRM || ' at BSC_KPI_MEASURE_WEIGHTS_PVT.Del_Obj_Kpi_Measure_Weights ';
344: END IF;
345: END Del_Obj_Kpi_Measure_Weights;
339: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
340: IF (x_msg_data IS NOT NULL) THEN
341: x_msg_data := x_msg_data || ' -> BSC_KPI_MEASURE_WEIGHTS_PVT.Del_Obj_Kpi_Measure_Weights ';
342: ELSE
343: x_msg_data := SQLERRM || ' at BSC_KPI_MEASURE_WEIGHTS_PVT.Del_Obj_Kpi_Measure_Weights ';
344: END IF;
345: END Del_Obj_Kpi_Measure_Weights;
346:
347: /************************************************************************************
348: ************************************************************************************/
349: PROCEDURE Retrieve_Kpi_Measure_Weights (
350: p_objective_id IN NUMBER
351: , p_kpi_measure_id IN NUMBER
352: , x_kpi_measure_weights_rec OUT NOCOPY BSC_KPI_MEASURE_WEIGHTS_PUB.kpi_measure_weights_rec
353: , x_return_status OUT NOCOPY VARCHAR2
354: , x_msg_count OUT NOCOPY NUMBER
355: , x_msg_data OUT NOCOPY VARCHAR2
356: )
386: , x_kpi_measure_weights_rec.created_by
387: , x_kpi_measure_weights_rec.last_update_date
388: , x_kpi_measure_weights_rec.last_updated_by
389: , x_kpi_measure_weights_rec.last_update_login
390: FROM bsc_kpi_measure_weights
391: WHERE indicator = p_objective_id
392: AND kpi_measure_id = p_kpi_measure_id;
393:
394: EXCEPTION
412: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
413: WHEN NO_DATA_FOUND THEN
414: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
415: IF (x_msg_data IS NOT NULL) THEN
416: x_msg_data := x_msg_data || ' -> BSC_KPI_MEASURE_WEIGHTS_PVT.Retrieve_Kpi_Measure_Weights ';
417: ELSE
418: x_msg_data := SQLERRM || ' at BSC_KPI_MEASURE_WEIGHTS_PVT.Retrieve_Kpi_Measure_Weights ';
419: END IF;
420: WHEN OTHERS THEN
414: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
415: IF (x_msg_data IS NOT NULL) THEN
416: x_msg_data := x_msg_data || ' -> BSC_KPI_MEASURE_WEIGHTS_PVT.Retrieve_Kpi_Measure_Weights ';
417: ELSE
418: x_msg_data := SQLERRM || ' at BSC_KPI_MEASURE_WEIGHTS_PVT.Retrieve_Kpi_Measure_Weights ';
419: END IF;
420: WHEN OTHERS THEN
421: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
422: IF (x_msg_data IS NOT NULL) THEN
419: END IF;
420: WHEN OTHERS THEN
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_PVT.Retrieve_Kpi_Measure_Weights ';
424: ELSE
425: x_msg_data := SQLERRM || ' at BSC_KPI_MEASURE_WEIGHTS_PVT.Retrieve_Kpi_Measure_Weights ';
426: END IF;
427: END Retrieve_Kpi_Measure_Weights;
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_PVT.Retrieve_Kpi_Measure_Weights ';
424: ELSE
425: x_msg_data := SQLERRM || ' at BSC_KPI_MEASURE_WEIGHTS_PVT.Retrieve_Kpi_Measure_Weights ';
426: END IF;
427: END Retrieve_Kpi_Measure_Weights;
428:
429: END BSC_KPI_MEASURE_WEIGHTS_PVT;
425: x_msg_data := SQLERRM || ' at BSC_KPI_MEASURE_WEIGHTS_PVT.Retrieve_Kpi_Measure_Weights ';
426: END IF;
427: END Retrieve_Kpi_Measure_Weights;
428:
429: END BSC_KPI_MEASURE_WEIGHTS_PVT;