[Home] [Help]
24: AND period_type = p_user_period_type;
25:
26: BEGIN
27: -- get sob id
28: l_sob_id := OKL_ACCOUNTING_UTIL.get_set_of_books_id;
29:
30: --validate sob id
31: IF l_sob_id IS NULL OR l_sob_id = OKL_API.G_MISS_NUM THEN
32: okl_api.set_message(p_app_name => G_APP_NAME,
250: l_init_msg_list VARCHAR2(4000) := OKL_API.G_FALSE;
251: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
252: l_msg_count NUMBER;
253: l_msg_data VARCHAR2(2000);
254: l_outer_error_msg_tbl Okl_Accounting_Util.Error_Message_Type;
255: l_org_id NUMBER;
256: --l_org_name VARCHAR2(100);
257: --Bug# 2706328
258: l_org_name VARCHAR2(240);
371:
372: BEGIN
373:
374: -- Find set of books id
375: l_sob_id := Okl_Accounting_Util.GET_SET_OF_BOOKS_ID;
376: IF (l_sob_id IS NULL OR l_sob_id = OKL_API.G_MISS_NUM) THEN
377: Okl_Api.set_message(p_app_name => g_app_name,
378: p_msg_name => 'OKL_AGN_SOB_ID_ERROR');
379: RAISE Okl_Api.G_EXCEPTION_ERROR;
379: RAISE Okl_Api.G_EXCEPTION_ERROR;
380: END IF;
381:
382: -- Find set of books name
383: l_sob_name := Okl_Accounting_Util.GET_SET_OF_BOOKS_NAME(l_sob_id);
384:
385: -- Find org name for report
386: l_org_id := mo_global.get_current_org_id();
387: IF l_org_id IS NULL THEN
406: CLOSE org_name_csr;
407:
408:
409: -- Find currency code for the set of books id
410: l_currency_code := Okl_Accounting_Util.GET_FUNC_CURR_CODE;
411: IF (l_currency_code IS NULL) THEN
412: Okl_Api.set_message(p_app_name => g_app_name,
413: p_msg_name => 'OKL_AGN_CURR_CODE_ERROR');
414: RAISE Okl_Api.G_EXCEPTION_ERROR;
476: l_contract_number := l_depr_contracts_tbl(i).contract_number;
477:
478: DECLARE
479: -- Declare local variables which need to be re-initialized to null for each contract
480: l_error_msg_tbl Okl_Accounting_Util.Error_Message_Type;
481: l_record_status VARCHAR2(10);
482: l_deprn_amount NUMBER := 0;
483: l_agreement_id OKL_K_HEADERS_FULL_V.id%TYPE;
484: l_agreement_number OKL_K_HEADERS_FULL_V.contract_number%TYPE;
616: END IF;
617:
618: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
619:
620: Okl_Accounting_Util.GET_ERROR_MESSAGE(l_error_msg_tbl);
621: IF (l_error_msg_tbl.COUNT > 0) THEN
622: FOR i IN l_error_msg_tbl.FIRST..l_error_msg_tbl.LAST
623: LOOP
624: IF l_error_msg_tbl(i) IS NOT NULL THEN
630: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
631:
632: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
633:
634: Okl_Accounting_Util.GET_ERROR_MESSAGE(l_error_msg_tbl);
635: IF (l_error_msg_tbl.COUNT > 0) THEN
636: FOR i IN l_error_msg_tbl.FIRST..l_error_msg_tbl.LAST
637: LOOP
638: IF l_error_msg_tbl(i) IS NOT NULL THEN
651: ,p_token2_value => SQLERRM);
652:
653: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
654:
655: Okl_Accounting_Util.GET_ERROR_MESSAGE(l_error_msg_tbl);
656: IF (l_error_msg_tbl.COUNT > 0) THEN
657: FOR i IN l_error_msg_tbl.FIRST..l_error_msg_tbl.LAST
658: LOOP
659: IF l_error_msg_tbl(i) IS NOT NULL THEN
702:
703: -- print the error message in the log file
704: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET_STRING('OKL','OKL_AGN_RPT_PROGRAM_STATUS')
705: ||' '||l_return_status);
706: Okl_Accounting_Util.GET_ERROR_MESSAGE(l_outer_error_msg_tbl);
707: IF (l_outer_error_msg_tbl.COUNT > 0) THEN
708: FOR i IN l_outer_error_msg_tbl.FIRST..l_outer_error_msg_tbl.LAST
709: LOOP
710: IF l_outer_error_msg_tbl(i) IS NOT NULL THEN
720:
721: -- print the error message in the log file
722: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET_STRING('OKL','OKL_AGN_RPT_PROGRAM_STATUS')
723: ||' '||l_return_status);
724: Okl_Accounting_Util.GET_ERROR_MESSAGE(l_outer_error_msg_tbl);
725: IF (l_outer_error_msg_tbl.COUNT > 0) THEN
726: FOR i IN l_outer_error_msg_tbl.FIRST..l_outer_error_msg_tbl.LAST
727: LOOP
728: IF l_outer_error_msg_tbl(i) IS NOT NULL THEN