25: PROCEDURE save_obj_calculations(
26: p_obj_id IN NUMBER
27: , p_params IN VARCHAR2
28: , p_ytd_as_default IN VARCHAR2
29: , p_commit IN VARCHAR2 := FND_API.G_FALSE
30: , x_return_status OUT NOCOPY VARCHAR2
31: , x_msg_count OUT NOCOPY NUMBER
32: , x_msg_data OUT NOCOPY VARCHAR2
33: )
57:
58: BEGIN
59:
60: FND_MSG_PUB.Initialize;
61: x_return_status := FND_API.G_RET_STS_SUCCESS;
62:
63: IF (p_obj_id IS NULL OR p_params IS NULL) THEN
64: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
65: x_msg_data := x_msg_data || ' INSUFFICIENT DATA ';
60: FND_MSG_PUB.Initialize;
61: x_return_status := FND_API.G_RET_STS_SUCCESS;
62:
63: IF (p_obj_id IS NULL OR p_params IS NULL) THEN
64: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
65: x_msg_data := x_msg_data || ' INSUFFICIENT DATA ';
66: RETURN;
67: ELSE
68: BSC_UTILITY.Parse_String(
193: ,x_msg_count => x_msg_count
194: ,x_msg_data => x_msg_data
195: );
196:
197: IF (p_commit = FND_API.G_TRUE) THEN
198: COMMIT;
199: END IF;
200: x_return_status := FND_API.G_RET_STS_SUCCESS;
201: END IF;
196:
197: IF (p_commit = FND_API.G_TRUE) THEN
198: COMMIT;
199: END IF;
200: x_return_status := FND_API.G_RET_STS_SUCCESS;
201: END IF;
202:
203: END IF;
204:
203: END IF;
204:
205: EXCEPTION
206:
207: WHEN FND_API.G_EXC_ERROR THEN
208: ROLLBACK TO BSCPCLCB_save_obj_calculations;
209: FND_MSG_PUB.Count_And_Get
210: ( p_encoded => FND_API.G_FALSE
211: , p_count => x_msg_count
206:
207: WHEN FND_API.G_EXC_ERROR THEN
208: ROLLBACK TO BSCPCLCB_save_obj_calculations;
209: FND_MSG_PUB.Count_And_Get
210: ( p_encoded => FND_API.G_FALSE
211: , p_count => x_msg_count
212: , p_data => x_msg_data
213: );
214: x_return_status := FND_API.G_RET_STS_ERROR;
210: ( p_encoded => FND_API.G_FALSE
211: , p_count => x_msg_count
212: , p_data => x_msg_data
213: );
214: x_return_status := FND_API.G_RET_STS_ERROR;
215: RAISE;
216:
217: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
218: ROLLBACK TO BSCPCLCB_save_obj_calculations;
213: );
214: x_return_status := FND_API.G_RET_STS_ERROR;
215: RAISE;
216:
217: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
218: ROLLBACK TO BSCPCLCB_save_obj_calculations;
219: FND_MSG_PUB.Count_And_Get
220: ( p_encoded => FND_API.G_FALSE
221: , p_count => x_msg_count
216:
217: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
218: ROLLBACK TO BSCPCLCB_save_obj_calculations;
219: FND_MSG_PUB.Count_And_Get
220: ( p_encoded => FND_API.G_FALSE
221: , p_count => x_msg_count
222: , p_data => x_msg_data
223: );
224: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
220: ( p_encoded => FND_API.G_FALSE
221: , p_count => x_msg_count
222: , p_data => x_msg_data
223: );
224: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
225: RAISE;
226:
227: WHEN NO_DATA_FOUND THEN
228: ROLLBACK TO BSCPCLCB_save_obj_calculations;
225: RAISE;
226:
227: WHEN NO_DATA_FOUND THEN
228: ROLLBACK TO BSCPCLCB_save_obj_calculations;
229: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
230: IF (x_msg_data IS NOT NULL) THEN
231: x_msg_data := x_msg_data||' -> BSC_CALCULATIONS_PUB.save_obj_calculations ';
232: ELSE
233: x_msg_data := SQLERRM||' at BSC_CALCULATIONS_PUB.save_obj_calculations ';
235: RAISE;
236:
237: WHEN OTHERS THEN
238: ROLLBACK TO BSCPCLCB_save_obj_calculations;
239: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
240: IF (x_msg_data IS NOT NULL) THEN
241: x_msg_data := x_msg_data||' -> BSC_CALCULATIONS_PUB.save_obj_calculations ';
242: ELSE
243: x_msg_data := SQLERRM||' at BSC_CALCULATIONS_PUB.save_obj_calculations ';
251:
252: PROCEDURE save_ytd_as_default_calc(
253: p_obj_id IN NUMBER
254: , p_ytd_as_default IN VARCHAR2
255: , p_commit IN VARCHAR2 := FND_API.G_FALSE
256: , x_return_status OUT NOCOPY VARCHAR2
257: , x_msg_count OUT NOCOPY NUMBER
258: , x_msg_data OUT NOCOPY VARCHAR2
259: ) IS
317:
318: END IF;
319:
320: EXCEPTION
321: WHEN FND_API.G_EXC_ERROR THEN
322: ROLLBACK TO BSCPCLCB_save_obj_calculations;
323: FND_MSG_PUB.Count_And_Get
324: ( p_encoded => FND_API.G_FALSE
325: , p_count => x_msg_count
320: EXCEPTION
321: WHEN FND_API.G_EXC_ERROR THEN
322: ROLLBACK TO BSCPCLCB_save_obj_calculations;
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: x_return_status := FND_API.G_RET_STS_ERROR;
324: ( p_encoded => FND_API.G_FALSE
325: , p_count => x_msg_count
326: , p_data => x_msg_data
327: );
328: x_return_status := FND_API.G_RET_STS_ERROR;
329: RAISE;
330:
331: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
332: ROLLBACK TO BSCPCLCB_save_obj_calculations;
327: );
328: x_return_status := FND_API.G_RET_STS_ERROR;
329: RAISE;
330:
331: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
332: ROLLBACK TO BSCPCLCB_save_obj_calculations;
333: FND_MSG_PUB.Count_And_Get
334: ( p_encoded => FND_API.G_FALSE
335: , p_count => x_msg_count
330:
331: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
332: ROLLBACK TO BSCPCLCB_save_obj_calculations;
333: FND_MSG_PUB.Count_And_Get
334: ( p_encoded => FND_API.G_FALSE
335: , p_count => x_msg_count
336: , p_data => x_msg_data
337: );
338: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
334: ( p_encoded => FND_API.G_FALSE
335: , p_count => x_msg_count
336: , p_data => x_msg_data
337: );
338: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
339: RAISE;
340:
341: WHEN NO_DATA_FOUND THEN
342: ROLLBACK TO BSCPCLCB_save_obj_calculations;
339: RAISE;
340:
341: WHEN NO_DATA_FOUND THEN
342: ROLLBACK TO BSCPCLCB_save_obj_calculations;
343: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
344: IF (x_msg_data IS NOT NULL) THEN
345: x_msg_data := x_msg_data||' -> BSC_CALCULATIONS_PUB.save_ytd_as_default_calc ';
346: ELSE
347: x_msg_data := SQLERRM||' at BSC_CALCULATIONS_PUB.save_ytd_as_default_calc ';
349: RAISE;
350:
351: WHEN OTHERS THEN
352: ROLLBACK TO BSCPCLCB_save_obj_calculations;
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_CALCULATIONS_PUB.save_ytd_as_default_calc ';
356: ELSE
357: x_msg_data := SQLERRM||' at BSC_CALCULATIONS_PUB.save_ytd_as_default_calc ';
365: PROCEDURE save_user_wizard_calculations
366: (p_tab_id IN NUMBER
367: ,p_obj_id IN NUMBER
368: ,p_calcs_list IN VARCHAR2
369: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
370: ,x_return_status OUT NOCOPY VARCHAR2
371: ,x_msg_count OUT NOCOPY NUMBER
372: ,x_msg_data OUT NOCOPY VARCHAR2
373: ) IS
394:
395: BEGIN
396:
397: FND_MSG_PUB.Initialize;
398: x_return_status := FND_API.G_RET_STS_SUCCESS;
399:
400:
401: IF (p_obj_id is null OR p_tab_id IS NULL) THEN
402: RETURN;
507: AND calculation_id = cd.calculation_id;
508: END IF;
509: END LOOP;
510:
511: IF (p_commit = FND_API.G_TRUE) THEN
512: COMMIT;
513: END IF;
514:
515: EXCEPTION
512: COMMIT;
513: END IF;
514:
515: EXCEPTION
516: WHEN FND_API.G_EXC_ERROR THEN
517: ROLLBACK TO bscpclcb_savepoint_save_calcs;
518: FND_MSG_PUB.Count_And_Get
519: ( p_encoded => FND_API.G_FALSE
520: , p_count => x_msg_count
515: EXCEPTION
516: WHEN FND_API.G_EXC_ERROR THEN
517: ROLLBACK TO bscpclcb_savepoint_save_calcs;
518: FND_MSG_PUB.Count_And_Get
519: ( p_encoded => FND_API.G_FALSE
520: , p_count => x_msg_count
521: , p_data => x_msg_data
522: );
523: x_return_status := FND_API.G_RET_STS_ERROR;
519: ( p_encoded => FND_API.G_FALSE
520: , p_count => x_msg_count
521: , p_data => x_msg_data
522: );
523: x_return_status := FND_API.G_RET_STS_ERROR;
524: RAISE;
525:
526: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
527: ROLLBACK TO bscpclcb_savepoint_save_calcs;
522: );
523: x_return_status := FND_API.G_RET_STS_ERROR;
524: RAISE;
525:
526: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
527: ROLLBACK TO bscpclcb_savepoint_save_calcs;
528: FND_MSG_PUB.Count_And_Get
529: ( p_encoded => FND_API.G_FALSE
530: , p_count => x_msg_count
525:
526: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
527: ROLLBACK TO bscpclcb_savepoint_save_calcs;
528: FND_MSG_PUB.Count_And_Get
529: ( p_encoded => FND_API.G_FALSE
530: , p_count => x_msg_count
531: , p_data => x_msg_data
532: );
533: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
529: ( p_encoded => FND_API.G_FALSE
530: , p_count => x_msg_count
531: , p_data => x_msg_data
532: );
533: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
534: RAISE;
535:
536: WHEN NO_DATA_FOUND THEN
537: ROLLBACK TO bscpclcb_savepoint_save_calcs;
534: RAISE;
535:
536: WHEN NO_DATA_FOUND THEN
537: ROLLBACK TO bscpclcb_savepoint_save_calcs;
538: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
539: IF (x_msg_data IS NOT NULL) THEN
540: x_msg_data := x_msg_data||' -> BSC_CALCULATIONS_PUB.save_user_wizard_calculations ';
541: ELSE
542: x_msg_data := SQLERRM||' at BSC_CALCULATIONS_PUB.save_user_wizard_calculations ';
545: RAISE;
546:
547: WHEN OTHERS THEN
548: ROLLBACK TO bscpclcb_savepoint_save_calcs;
549: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
550: IF (x_msg_data IS NOT NULL) THEN
551: x_msg_data := x_msg_data||' -> BSC_CALCULATIONS_PUB.save_user_wizard_calculations ';
552: ELSE
553: x_msg_data := SQLERRM||' at BSC_CALCULATIONS_PUB.save_user_wizard_calculations ';