414: RAISE Okl_Api.G_EXCEPTION_ERROR;
415: END IF;
416:
417: -- Create report header
418: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' '||
419: FND_MESSAGE.GET_STRING('OKL','OKL_ADA_RPT_TITLE'));
420: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' '||
421: FND_MESSAGE.GET_STRING('OKL','OKL_ADA_RPT_TITLE_UNDERLINE'));
422: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'');
416:
417: -- Create report header
418: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' '||
419: FND_MESSAGE.GET_STRING('OKL','OKL_ADA_RPT_TITLE'));
420: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' '||
421: FND_MESSAGE.GET_STRING('OKL','OKL_ADA_RPT_TITLE_UNDERLINE'));
422: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'');
423: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,FND_MESSAGE.GET_STRING('OKL','OKL_GLP_RPT_SOB_TITLE')
424: ||' '||RPAD(l_sob_name, 65)
418: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' '||
419: FND_MESSAGE.GET_STRING('OKL','OKL_ADA_RPT_TITLE'));
420: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' '||
421: FND_MESSAGE.GET_STRING('OKL','OKL_ADA_RPT_TITLE_UNDERLINE'));
422: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'');
423: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,FND_MESSAGE.GET_STRING('OKL','OKL_GLP_RPT_SOB_TITLE')
424: ||' '||RPAD(l_sob_name, 65)
425: ||FND_MESSAGE.GET_STRING('OKL','OKL_GLP_RPT_OU_TITLE')
426: ||' '||l_org_name);
419: FND_MESSAGE.GET_STRING('OKL','OKL_ADA_RPT_TITLE'));
420: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' '||
421: FND_MESSAGE.GET_STRING('OKL','OKL_ADA_RPT_TITLE_UNDERLINE'));
422: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'');
423: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,FND_MESSAGE.GET_STRING('OKL','OKL_GLP_RPT_SOB_TITLE')
424: ||' '||RPAD(l_sob_name, 65)
425: ||FND_MESSAGE.GET_STRING('OKL','OKL_GLP_RPT_OU_TITLE')
426: ||' '||l_org_name);
427: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,FND_MESSAGE.GET_STRING('OKL','OKL_GLP_RPT_CURR_TITLE')
423: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,FND_MESSAGE.GET_STRING('OKL','OKL_GLP_RPT_SOB_TITLE')
424: ||' '||RPAD(l_sob_name, 65)
425: ||FND_MESSAGE.GET_STRING('OKL','OKL_GLP_RPT_OU_TITLE')
426: ||' '||l_org_name);
427: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,FND_MESSAGE.GET_STRING('OKL','OKL_GLP_RPT_CURR_TITLE')
428: ||' '||RPAD(l_currency_code,58)||FND_MESSAGE.GET_STRING('OKL','OKL_AGN_RPT_BATCH_NAME')
429: ||' '||p_batch_name);
430: -- Bug 3130551
431: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,FND_MESSAGE.GET_STRING('OKL','OKL_MGP_RPT_DATE_RANGE')||' '||l_period_from||' '||FND_MESSAGE.GET_STRING('OKL','OKL_MGP_RPT_TO_FIELD')||' '||l_period_to);
427: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,FND_MESSAGE.GET_STRING('OKL','OKL_GLP_RPT_CURR_TITLE')
428: ||' '||RPAD(l_currency_code,58)||FND_MESSAGE.GET_STRING('OKL','OKL_AGN_RPT_BATCH_NAME')
429: ||' '||p_batch_name);
430: -- Bug 3130551
431: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,FND_MESSAGE.GET_STRING('OKL','OKL_MGP_RPT_DATE_RANGE')||' '||l_period_from||' '||FND_MESSAGE.GET_STRING('OKL','OKL_MGP_RPT_TO_FIELD')||' '||l_period_to);
432: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'');
433:
434: -- Create Report Content
435: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD(FND_MESSAGE.GET_STRING('OKL','OKL_ADA_RPT_AST_CAT_PROMPT'),35)
428: ||' '||RPAD(l_currency_code,58)||FND_MESSAGE.GET_STRING('OKL','OKL_AGN_RPT_BATCH_NAME')
429: ||' '||p_batch_name);
430: -- Bug 3130551
431: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,FND_MESSAGE.GET_STRING('OKL','OKL_MGP_RPT_DATE_RANGE')||' '||l_period_from||' '||FND_MESSAGE.GET_STRING('OKL','OKL_MGP_RPT_TO_FIELD')||' '||l_period_to);
432: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'');
433:
434: -- Create Report Content
435: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD(FND_MESSAGE.GET_STRING('OKL','OKL_ADA_RPT_AST_CAT_PROMPT'),35)
436: ||RPAD(FND_MESSAGE.GET_STRING('OKL','OKL_ADA_RPT_PRD_NAME_PROMPT'),20)
431: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,FND_MESSAGE.GET_STRING('OKL','OKL_MGP_RPT_DATE_RANGE')||' '||l_period_from||' '||FND_MESSAGE.GET_STRING('OKL','OKL_MGP_RPT_TO_FIELD')||' '||l_period_to);
432: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'');
433:
434: -- Create Report Content
435: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD(FND_MESSAGE.GET_STRING('OKL','OKL_ADA_RPT_AST_CAT_PROMPT'),35)
436: ||RPAD(FND_MESSAGE.GET_STRING('OKL','OKL_ADA_RPT_PRD_NAME_PROMPT'),20)
437: ||RPAD(FND_MESSAGE.GET_STRING('OKL','OKL_AGN_RPT_ACTIVITY'),23)
438: ||LPAD(FND_MESSAGE.GET_STRING('OKL','OKL_GLP_RPT_AMT_TITLE'),18));
439:
436: ||RPAD(FND_MESSAGE.GET_STRING('OKL','OKL_ADA_RPT_PRD_NAME_PROMPT'),20)
437: ||RPAD(FND_MESSAGE.GET_STRING('OKL','OKL_AGN_RPT_ACTIVITY'),23)
438: ||LPAD(FND_MESSAGE.GET_STRING('OKL','OKL_GLP_RPT_AMT_TITLE'),18));
439:
440: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD(FND_MESSAGE.GET_STRING('OKL','OKL_ADA_RPT_AST_CAT_UNDERLINE'),35)
441: ||RPAD(FND_MESSAGE.GET_STRING('OKL','OKL_ADA_RPT_PRD_NAME_UNDERLINE'),20)
442: ||RPAD(FND_MESSAGE.GET_STRING('OKL','OKL_ADA_RPT_ACTIVITY_UNDERLINE'),23)
443: ||LPAD(FND_MESSAGE.GET_STRING('OKL','OKL_GLP_RPT_AMT_LINE'),18));
444:
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
625: FND_FILE.PUT_LINE(FND_FILE.LOG,l_error_msg_tbl(i));
626: END IF;
627: END LOOP;
628: END IF;
629:
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
639: FND_FILE.PUT_LINE(FND_FILE.LOG,l_error_msg_tbl(i));
640: END IF;
641: END LOOP;
642: END IF;
643:
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
660: FND_FILE.PUT_LINE(FND_FILE.LOG,l_error_msg_tbl(i));
661: END IF;
662: END LOOP;
663: END IF;
664: END; -- END of sub PL/SQL Block
669: IF l_asset_deprn_tbl.COUNT > 0 THEN
670: FOR j IN l_asset_deprn_tbl.FIRST..l_asset_deprn_tbl.LAST
671: LOOP
672: IF SIGN(l_asset_deprn_tbl(j).deprn_amount) = -1 THEN
673: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD(l_asset_deprn_tbl(j).category_name,35)||
674: RPAD(l_asset_deprn_tbl(j).period_name,20)||
675: RPAD(FND_MESSAGE.GET_STRING('OKL','OKL_ADA_RPT_ROLLBACK_DEPRN'),23)||
676: LPAD(ABS(l_asset_deprn_tbl(j).deprn_amount),18));
677: ELSE
674: RPAD(l_asset_deprn_tbl(j).period_name,20)||
675: RPAD(FND_MESSAGE.GET_STRING('OKL','OKL_ADA_RPT_ROLLBACK_DEPRN'),23)||
676: LPAD(ABS(l_asset_deprn_tbl(j).deprn_amount),18));
677: ELSE
678: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD(l_asset_deprn_tbl(j).category_name,35)||
679: RPAD(l_asset_deprn_tbl(j).period_name,20)||
680: RPAD(FND_MESSAGE.GET_STRING('OKL','OKL_ADA_RPT_ADD_DEPRN'),23)||
681: LPAD(ABS(l_asset_deprn_tbl(j).deprn_amount),18));
682: END IF;
700: -- set return status needed in report
701: l_return_status := Okl_Api.G_RET_STS_ERROR;
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
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
711: FND_FILE.PUT_LINE(FND_FILE.LOG,l_outer_error_msg_tbl(i));
712: END IF;
713: END LOOP;
714: END IF;
715:
718: WHEN OTHERS THEN
719: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
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
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
729: FND_FILE.PUT_LINE(FND_FILE.LOG,l_outer_error_msg_tbl(i));
730: END IF;
731: END LOOP;
732: END IF;
733:
732: END IF;
733:
734: errbuf := SQLERRM;
735: retcode := 2;
736: FND_FILE.PUT_LINE(FND_FILE.LOG,errbuf);
737:
738: END ADJUST_DEPRECIATION;
739:
740: END OKL_ACCRUAL_DEPRN_ADJ_PVT;