1: PACKAGE BODY PA_FORECAST_DTLS_PKG as
2: --/* $Header: PARFFIDB.pls 120.1 2005/08/19 16:51:13 mwasowic noship $ */
3:
4: l_empty_tab_record EXCEPTION; -- Variable to raise the exception if the passing table of records is empty
5:
60: l_line_num_reversed PA_PLSQL_DATATYPES.NumTabTyp;
61:
62:
63: BEGIN
64: PA_DEBUG.Init_err_stack( 'PA_FORECAST_DTLS_PKG.Insert_Rows');
65: x_return_status := FND_API.G_RET_STS_SUCCESS;
66:
67: /* Checking for the empty table of record */
68: IF (p_forecast_dtls_tab.count = 0 ) THEN
246: x_msg_count := 1;
247: x_msg_data := SQLERRM;
248: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
249: FND_MSG_PUB.add_exc_msg
250: (p_pkg_name => 'PA_FORECAST_DTLS_PKG.Insert_Rows',
251: p_procedure_name => PA_DEBUG.G_Err_Stack);
252:
253: RAISE;
254:
312:
313:
314: BEGIN
315:
316: PA_DEBUG.Init_err_stack( 'PA_FORECAST_DTLS_PKG.Update_Rows');
317: x_return_status := FND_API.G_RET_STS_SUCCESS;
318:
319: /* Checking for the empty table of record */
320: IF (p_forecast_dtls_tab.count = 0 ) THEN
437: x_msg_count := 1;
438: x_msg_data := SQLERRM;
439: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
440: FND_MSG_PUB.add_exc_msg
441: (p_pkg_name => 'PA_FORECAST_DTLS_PKG.Update_Rows',
442: p_procedure_name => PA_DEBUG.G_Err_Stack);
443: RAISE;
444:
445: PA_FORECAST_ITEMS_UTILS.log_message('ERROR in update row '||sqlerrm);
444:
445: PA_FORECAST_ITEMS_UTILS.log_message('ERROR in update row '||sqlerrm);
446: END update_rows;
447:
448: END PA_FORECAST_DTLS_PKG;