606: IF (l_req_list(i).request_id <> 0
607: AND NVL(l_req_list(i).dev_phase, 'PENDING') <> 'COMPLETE')
608: THEN
609: -- Get the request status
610: l_return_val := FND_CONCURRENT.get_request_status(
611: l_req_list(i).request_id
612: , NULL
613: , NULL
614: , l_req_list(i).phase
717: END IF;
718: -- Print error messages to log
719: FII_RECONVERSION_PKG.func_fail(l_procedure_name, l_process_step, errbuf);
720: -- Set the concurrent program completion status to ERROR
721: l_return_val := FND_CONCURRENT.set_completion_status('ERROR', NULL);
722: -- Raise application error
723: RAISE_APPLICATION_ERROR(-20010, errbuf);
724:
725: ELSE
725: ELSE
726: -- Process coompletes successfully
727: FII_UTIL.debug_line('This process completes successfully');
728: -- Commit changes to the database
729: FND_CONCURRENT.af_commit;
730: -- Set the concurrent program completion status
731: l_return_val := FND_CONCURRENT.set_completion_status('COMPLETE', NULL);
732: FII_RECONVERSION_PKG.func_succ(l_procedure_name);
733: END IF;
727: FII_UTIL.debug_line('This process completes successfully');
728: -- Commit changes to the database
729: FND_CONCURRENT.af_commit;
730: -- Set the concurrent program completion status
731: l_return_val := FND_CONCURRENT.set_completion_status('COMPLETE', NULL);
732: FII_RECONVERSION_PKG.func_succ(l_procedure_name);
733: END IF;
734:
735: EXCEPTION
739: FII_UTIL.debug_line('This process errors out because of invalid setup');
740: -- Print error messages to log
741: FII_RECONVERSION_PKG.func_fail(l_procedure_name, l_process_step, l_err_msg);
742: -- Set the concurrent program completion status to ERROR
743: l_return_val := FND_CONCURRENT.set_completion_status('ERROR', NULL);
744: -- Raise application error
745: errbuf := l_err_msg;
746: RAISE_APPLICATION_ERROR(-20020, errbuf);
747:
749: -- Process fails because of exceptions raised from other functions
750: -- and we need to rollback
751: FII_UTIL.debug_line('This process errors out because of other functions');
752: -- Rollback
753: FND_CONCURRENT.af_rollback;
754: -- Print error messages to log file
755: FII_RECONVERSION_PKG.func_fail(l_procedure_name, l_process_step);
756: -- Set the concurrent program completion status to ERROR
757: l_return_val := FND_CONCURRENT.set_completion_status('ERROR', NULL);
753: FND_CONCURRENT.af_rollback;
754: -- Print error messages to log file
755: FII_RECONVERSION_PKG.func_fail(l_procedure_name, l_process_step);
756: -- Set the concurrent program completion status to ERROR
757: l_return_val := FND_CONCURRENT.set_completion_status('ERROR', NULL);
758: -- Raise application error
759: errbuf := sqlerrm;
760: retcode := sqlcode;
761: RAISE_APPLICATION_ERROR(-20030, errbuf);
763: WHEN OTHERS THEN
764: -- Process fails because of other exceptions and we need to rollback
765: FII_UTIL.debug_line('This process errors out because of other exceptions');
766: -- Rollback
767: FND_CONCURRENT.af_rollback;
768: -- Print error messages to log file
769: errbuf := sqlerrm;
770: retcode := sqlcode;
771: FII_RECONVERSION_PKG.func_fail(l_procedure_name, l_process_step, errbuf);
769: errbuf := sqlerrm;
770: retcode := sqlcode;
771: FII_RECONVERSION_PKG.func_fail(l_procedure_name, l_process_step, errbuf);
772: -- Set the concurrent program completion status to ERROR
773: l_return_val := FND_CONCURRENT.set_completion_status('ERROR', NULL);
774: -- Raise application error
775: RAISE_APPLICATION_ERROR(-20040, errbuf);
776:
777: END reconvert_amounts;
1802: 'FII_RECONV_EXIT_PROCESS_STEP', NULL));
1803: FII_UTIL.debug_line('Process complete successfully');
1804:
1805: -- Commit changes to the database and print log messages
1806: FND_CONCURRENT.af_commit;
1807: -- Set the concurrent program completion status to COMPLETE
1808: l_return_val := FND_CONCURRENT.set_completion_status('COMPLETE', l_message);
1809:
1810: FII_RECONVERSION_PKG.func_succ(l_procedure_name);
1804:
1805: -- Commit changes to the database and print log messages
1806: FND_CONCURRENT.af_commit;
1807: -- Set the concurrent program completion status to COMPLETE
1808: l_return_val := FND_CONCURRENT.set_completion_status('COMPLETE', l_message);
1809:
1810: FII_RECONVERSION_PKG.func_succ(l_procedure_name);
1811:
1812: EXCEPTION
1814: -- Process fails because of exceptions raised from other functions
1815: -- and we need to rollback
1816: FII_UTIL.debug_line('Proces errors out because of other functions'' error');
1817: -- Rollback
1818: FND_CONCURRENT.af_rollback;
1819: -- Print error messages to log file
1820: FII_RECONVERSION_PKG.func_fail(l_procedure_name, l_process_step);
1821: -- Set the concurrent program completion status to ERROR
1822: l_return_val := FND_CONCURRENT.set_completion_status('ERROR', NULL);
1818: FND_CONCURRENT.af_rollback;
1819: -- Print error messages to log file
1820: FII_RECONVERSION_PKG.func_fail(l_procedure_name, l_process_step);
1821: -- Set the concurrent program completion status to ERROR
1822: l_return_val := FND_CONCURRENT.set_completion_status('ERROR', NULL);
1823: -- Raise application error
1824: errbuf := sqlerrm;
1825: retcode := sqlcode;
1826: RAISE_APPLICATION_ERROR(-20050, errbuf);
1828: WHEN OTHERS THEN
1829: -- Process fails because of other exceptions and we need to rollback
1830: FII_UTIL.debug_line('Proces errors out because of other exception');
1831: -- Rollback
1832: FND_CONCURRENT.af_rollback;
1833: -- Print error messages to log file
1834: errbuf := sqlerrm;
1835: retcode := sqlcode;
1836: FII_RECONVERSION_PKG.func_fail(l_procedure_name, l_process_step, errbuf);
1834: errbuf := sqlerrm;
1835: retcode := sqlcode;
1836: FII_RECONVERSION_PKG.func_fail(l_procedure_name, l_process_step, errbuf);
1837: -- Set the concurrent program completion status to ERROR
1838: l_return_val := FND_CONCURRENT.set_completion_status('ERROR', NULL);
1839: -- Raise application error
1840: RAISE_APPLICATION_ERROR(-20060, errbuf);
1841:
1842: END reconvert_gl;
1946: 'FII_RECONV_EXIT_PROCESS_STEP', NULL));
1947: FII_UTIL.debug_line('Process complete successfully');
1948:
1949: -- Commit changes to the database and print log messages
1950: FND_CONCURRENT.af_commit;
1951: -- Set the concurrent program completion status to COMPLETE
1952: l_return_val := FND_CONCURRENT.set_completion_status('COMPLETE', l_message);
1953:
1954: FII_RECONVERSION_PKG.func_succ(l_procedure_name);
1948:
1949: -- Commit changes to the database and print log messages
1950: FND_CONCURRENT.af_commit;
1951: -- Set the concurrent program completion status to COMPLETE
1952: l_return_val := FND_CONCURRENT.set_completion_status('COMPLETE', l_message);
1953:
1954: FII_RECONVERSION_PKG.func_succ(l_procedure_name);
1955:
1956: EXCEPTION
1957: WHEN OTHERS THEN
1958: -- Process fails because of other exceptions and we need to rollback
1959: FII_UTIL.debug_line('Proces errors out because of other exception');
1960: -- Rollback
1961: FND_CONCURRENT.af_rollback;
1962: -- Print error messages to log file
1963: errbuf := sqlerrm;
1964: retcode := sqlcode;
1965: FII_RECONVERSION_PKG.func_fail(l_procedure_name, l_process_step, errbuf);
1963: errbuf := sqlerrm;
1964: retcode := sqlcode;
1965: FII_RECONVERSION_PKG.func_fail(l_procedure_name, l_process_step, errbuf);
1966: -- Set the concurrent program completion status to ERROR
1967: l_return_val := FND_CONCURRENT.set_completion_status('ERROR', NULL);
1968: -- Raise application error
1969: RAISE_APPLICATION_ERROR(-20070, errbuf);
1970:
1971: END reconvert_ap;
2072: 'FII_RECONV_EXIT_PROCESS_STEP', NULL));
2073: FII_UTIL.debug_line('Process complete successfully');
2074:
2075: -- Commit changes to the database and print log messages
2076: FND_CONCURRENT.af_commit;
2077: -- Set the concurrent program completion status to COMPLETE
2078: l_return_val := FND_CONCURRENT.set_completion_status('COMPLETE', l_message);
2079:
2080: FII_RECONVERSION_PKG.func_succ(l_procedure_name);
2074:
2075: -- Commit changes to the database and print log messages
2076: FND_CONCURRENT.af_commit;
2077: -- Set the concurrent program completion status to COMPLETE
2078: l_return_val := FND_CONCURRENT.set_completion_status('COMPLETE', l_message);
2079:
2080: FII_RECONVERSION_PKG.func_succ(l_procedure_name);
2081:
2082: EXCEPTION
2083: WHEN OTHERS THEN
2084: -- Process fails because of other exceptions and we need to rollback
2085: FII_UTIL.debug_line('Proces errors out because of other exception');
2086: -- Rollback
2087: FND_CONCURRENT.af_rollback;
2088: -- Print error messages to log file
2089: errbuf := sqlerrm;
2090: retcode := sqlcode;
2091: FII_RECONVERSION_PKG.func_fail(l_procedure_name, l_process_step, errbuf);
2089: errbuf := sqlerrm;
2090: retcode := sqlcode;
2091: FII_RECONVERSION_PKG.func_fail(l_procedure_name, l_process_step, errbuf);
2092: -- Set the concurrent program completion status to ERROR
2093: l_return_val := FND_CONCURRENT.set_completion_status('ERROR', NULL);
2094: -- Raise application error
2095: RAISE_APPLICATION_ERROR(-20080, errbuf);
2096:
2097: END reconvert_ar;