142: OPEN csr_get_ext_rslt_id;
143: FETCH csr_get_ext_rslt_id INTO l_ext_rslt_id;
144:
145: IF csr_get_ext_rslt_id%NOTFOUND THEN
146: fnd_message.set_name ('BEN', 'BEN_91873_EXT_NOT_FOUND');
147: fnd_file.put_line(fnd_file.log, 'Error: '
148: || fnd_message.get);
149: fnd_file.put_line(fnd_file.log, ' ');
150: CLOSE csr_get_ext_rslt_id;
144:
145: IF csr_get_ext_rslt_id%NOTFOUND THEN
146: fnd_message.set_name ('BEN', 'BEN_91873_EXT_NOT_FOUND');
147: fnd_file.put_line(fnd_file.log, 'Error: '
148: || fnd_message.get);
149: fnd_file.put_line(fnd_file.log, ' ');
150: CLOSE csr_get_ext_rslt_id;
151: fnd_message.raise_error;
152: END IF; -- End if of row not found check ...
147: fnd_file.put_line(fnd_file.log, 'Error: '
148: || fnd_message.get);
149: fnd_file.put_line(fnd_file.log, ' ');
150: CLOSE csr_get_ext_rslt_id;
151: fnd_message.raise_error;
152: END IF; -- End if of row not found check ...
153: CLOSE csr_get_ext_rslt_id;
154:
155: IF g_debug
379: THEN
380: DEBUG ( 'Leaving: '
381: || l_proc_name, -999);
382: END IF;
383: fnd_message.raise_error;
384: ELSE
385: RAISE;
386: END IF;
387:
902:
903: IF l_ext_rslt_info_rec.ext_rslt_id IS NULL THEN
904: -- Error
905: -- There is no result for master business group
906: fnd_message.set_name ('BEN', 'BEN_91873_EXT_NOT_FOUND');
907: fnd_file.put_line(fnd_file.log, 'Error: '
908: || fnd_message.get);
909: fnd_file.put_line(fnd_file.log, ' ');
910: fnd_message.raise_error;
904: -- Error
905: -- There is no result for master business group
906: fnd_message.set_name ('BEN', 'BEN_91873_EXT_NOT_FOUND');
907: fnd_file.put_line(fnd_file.log, 'Error: '
908: || fnd_message.get);
909: fnd_file.put_line(fnd_file.log, ' ');
910: fnd_message.raise_error;
911: END IF; -- End if of ext rslt id null check ...
912:
906: fnd_message.set_name ('BEN', 'BEN_91873_EXT_NOT_FOUND');
907: fnd_file.put_line(fnd_file.log, 'Error: '
908: || fnd_message.get);
909: fnd_file.put_line(fnd_file.log, ' ');
910: fnd_message.raise_error;
911: END IF; -- End if of ext rslt id null check ...
912:
913: --
914: -- Fetch the file id for the extract
922: OPEN csr_get_ext_param;
923: FETCH csr_get_ext_param INTO l_ext_param_rec;
924:
925: IF csr_get_ext_param%NOTFOUND THEN
926: fnd_message.set_name ('BEN', 'BEN_91873_EXT_NOT_FOUND');
927: fnd_file.put_line(fnd_file.log, 'Error: '
928: || fnd_message.get);
929: fnd_file.put_line(fnd_file.log, ' ');
930: CLOSE csr_get_ext_param;
924:
925: IF csr_get_ext_param%NOTFOUND THEN
926: fnd_message.set_name ('BEN', 'BEN_91873_EXT_NOT_FOUND');
927: fnd_file.put_line(fnd_file.log, 'Error: '
928: || fnd_message.get);
929: fnd_file.put_line(fnd_file.log, ' ');
930: CLOSE csr_get_ext_param;
931: fnd_message.raise_error;
932: END IF; -- End if of row not found check ...
927: fnd_file.put_line(fnd_file.log, 'Error: '
928: || fnd_message.get);
929: fnd_file.put_line(fnd_file.log, ' ');
930: CLOSE csr_get_ext_param;
931: fnd_message.raise_error;
932: END IF; -- End if of row not found check ...
933: CLOSE csr_get_ext_param;
934:
935: IF g_debug
1515: -- can not submit a second one
1516: CLOSE pqp_gb_t1_pension_extracts.csr_multiproc_data;
1517:
1518: -- Exiting because another process is running and you can not submit twice
1519: fnd_message.set_name('PQP', 'PQP_230036_MULTIPLE_TP_EXT_ERR');
1520: fnd_file.put_line(fnd_file.log, fnd_message.get);
1521: fnd_message.raise_error;
1522: RETURN;
1523:
1516: CLOSE pqp_gb_t1_pension_extracts.csr_multiproc_data;
1517:
1518: -- Exiting because another process is running and you can not submit twice
1519: fnd_message.set_name('PQP', 'PQP_230036_MULTIPLE_TP_EXT_ERR');
1520: fnd_file.put_line(fnd_file.log, fnd_message.get);
1521: fnd_message.raise_error;
1522: RETURN;
1523:
1524: END IF;
1517:
1518: -- Exiting because another process is running and you can not submit twice
1519: fnd_message.set_name('PQP', 'PQP_230036_MULTIPLE_TP_EXT_ERR');
1520: fnd_file.put_line(fnd_file.log, fnd_message.get);
1521: fnd_message.raise_error;
1522: RETURN;
1523:
1524: END IF;
1525:
1796:
1797: -- Error out as the current BG is not set up as an LEA
1798: fail_current_extract_run(p_ext_dfn_id => p_ext_dfn_id);
1799:
1800: fnd_message.set_name('PQP', 'PQP_230037_CURR_BG_NOT_LEA_ERR');
1801: l_err_msg := fnd_message.get;
1802: errbuf := l_err_msg;
1803: retcode := PROGRAM_FAILURE;
1804: fnd_file.put_line(fnd_file.log, l_err_msg);
1797: -- Error out as the current BG is not set up as an LEA
1798: fail_current_extract_run(p_ext_dfn_id => p_ext_dfn_id);
1799:
1800: fnd_message.set_name('PQP', 'PQP_230037_CURR_BG_NOT_LEA_ERR');
1801: l_err_msg := fnd_message.get;
1802: errbuf := l_err_msg;
1803: retcode := PROGRAM_FAILURE;
1804: fnd_file.put_line(fnd_file.log, l_err_msg);
1805:
1802: errbuf := l_err_msg;
1803: retcode := PROGRAM_FAILURE;
1804: fnd_file.put_line(fnd_file.log, l_err_msg);
1805:
1806: fnd_message.raise_error;
1807:
1808: RETURN;
1809:
1810: END IF; -- Chk Lea number from BG Level
1871: -- Bugfix 3671727:ENH1:ENH2 :Moved code from here into new proc
1872: -- as we need to call it from more than one places
1873: fail_current_extract_run(p_ext_dfn_id => p_ext_dfn_id);
1874:
1875: fnd_message.set_name('PQP', 'PQP_230037_CURR_BG_NOT_LEA_ERR');
1876: l_err_msg := fnd_message.get;
1877: errbuf := l_err_msg;
1878: retcode := PROGRAM_FAILURE;
1879: fnd_file.put_line(fnd_file.log, l_err_msg);
1872: -- as we need to call it from more than one places
1873: fail_current_extract_run(p_ext_dfn_id => p_ext_dfn_id);
1874:
1875: fnd_message.set_name('PQP', 'PQP_230037_CURR_BG_NOT_LEA_ERR');
1876: l_err_msg := fnd_message.get;
1877: errbuf := l_err_msg;
1878: retcode := PROGRAM_FAILURE;
1879: fnd_file.put_line(fnd_file.log, l_err_msg);
1880:
1877: errbuf := l_err_msg;
1878: retcode := PROGRAM_FAILURE;
1879: fnd_file.put_line(fnd_file.log, l_err_msg);
1880:
1881: fnd_message.raise_error;
1882:
1883: RETURN;
1884:
1885: END IF;
1964: OPEN csr_bg_name(l_curr_bg_id);
1965: FETCH csr_bg_name INTO l_bg_name;
1966: CLOSE csr_bg_name;
1967:
1968: fnd_message.set_name('PQP', 'PQP_230038_EXT_PROC_SUBMIT_ERR');
1969: fnd_message.set_token('BGNAME', l_bg_name);
1970: l_err_msg := fnd_message.get;
1971: errbuf := l_err_msg;
1972: fnd_file.put_line(fnd_file.log, l_err_msg);
1965: FETCH csr_bg_name INTO l_bg_name;
1966: CLOSE csr_bg_name;
1967:
1968: fnd_message.set_name('PQP', 'PQP_230038_EXT_PROC_SUBMIT_ERR');
1969: fnd_message.set_token('BGNAME', l_bg_name);
1970: l_err_msg := fnd_message.get;
1971: errbuf := l_err_msg;
1972: fnd_file.put_line(fnd_file.log, l_err_msg);
1973: l_retcode := PROGRAM_FAILURE ;
1966: CLOSE csr_bg_name;
1967:
1968: fnd_message.set_name('PQP', 'PQP_230038_EXT_PROC_SUBMIT_ERR');
1969: fnd_message.set_token('BGNAME', l_bg_name);
1970: l_err_msg := fnd_message.get;
1971: errbuf := l_err_msg;
1972: fnd_file.put_line(fnd_file.log, l_err_msg);
1973: l_retcode := PROGRAM_FAILURE ;
1974: l_err_msg := NULL;
2010: OPEN csr_bg_name(l_curr_bg_id);
2011: FETCH csr_bg_name INTO l_bg_name;
2012: CLOSE csr_bg_name;
2013:
2014: fnd_message.set_name('PQP', 'PQP_230039_EXT_PROC_EXEC_ERR');
2015: fnd_message.set_token('BGNAME', l_bg_name);
2016: l_err_msg := fnd_message.get;
2017: errbuf := l_err_msg;
2018: fnd_file.put_line(fnd_file.log, l_err_msg);
2011: FETCH csr_bg_name INTO l_bg_name;
2012: CLOSE csr_bg_name;
2013:
2014: fnd_message.set_name('PQP', 'PQP_230039_EXT_PROC_EXEC_ERR');
2015: fnd_message.set_token('BGNAME', l_bg_name);
2016: l_err_msg := fnd_message.get;
2017: errbuf := l_err_msg;
2018: fnd_file.put_line(fnd_file.log, l_err_msg);
2019: l_retcode := PROGRAM_FAILURE ;
2012: CLOSE csr_bg_name;
2013:
2014: fnd_message.set_name('PQP', 'PQP_230039_EXT_PROC_EXEC_ERR');
2015: fnd_message.set_token('BGNAME', l_bg_name);
2016: l_err_msg := fnd_message.get;
2017: errbuf := l_err_msg;
2018: fnd_file.put_line(fnd_file.log, l_err_msg);
2019: l_retcode := PROGRAM_FAILURE ;
2020: l_err_msg := NULL;
2063:
2064: COMMIT;
2065:
2066: retcode := l_retcode;
2067: fnd_message.raise_error;
2068: RETURN;
2069:
2070: END IF;
2071:
2104: OPEN csr_bg_name(l_curr_bg_id);
2105: FETCH csr_bg_name INTO l_bg_name;
2106: CLOSE csr_bg_name;
2107:
2108: fnd_message.set_name('PQP', 'PQP_230039_EXT_PROC_EXEC_ERR');
2109: fnd_message.set_token('BGNAME', l_bg_name);
2110: l_err_msg := fnd_message.get;
2111: errbuf := l_err_msg;
2112: fnd_file.put_line(fnd_file.log, l_err_msg);
2105: FETCH csr_bg_name INTO l_bg_name;
2106: CLOSE csr_bg_name;
2107:
2108: fnd_message.set_name('PQP', 'PQP_230039_EXT_PROC_EXEC_ERR');
2109: fnd_message.set_token('BGNAME', l_bg_name);
2110: l_err_msg := fnd_message.get;
2111: errbuf := l_err_msg;
2112: fnd_file.put_line(fnd_file.log, l_err_msg);
2113: l_retcode := PROGRAM_FAILURE ;
2106: CLOSE csr_bg_name;
2107:
2108: fnd_message.set_name('PQP', 'PQP_230039_EXT_PROC_EXEC_ERR');
2109: fnd_message.set_token('BGNAME', l_bg_name);
2110: l_err_msg := fnd_message.get;
2111: errbuf := l_err_msg;
2112: fnd_file.put_line(fnd_file.log, l_err_msg);
2113: l_retcode := PROGRAM_FAILURE ;
2114: l_err_msg:= NULL;
2146:
2147: COMMIT;
2148:
2149: retcode := l_retcode;
2150: fnd_message.raise_error;
2151: RETURN;
2152: END IF;
2153:
2154: END IF; -- g_execution_mode = 'PARALLEL' THEN