313: IF (p_reverse_mode = 'N' and p_status_code NOT IN ('DRAFT', 'UPDATED','SUBMITTED','RESUBMITTED')) THEN
314:
315: -- Set the message name, so that exception handler can get translated text
316: IF g_dbg THEN op(l_proc, g_DEBUG_LOG, 20); END IF;
317: fnd_message.set_name('PER','HR_50294_WPM_INV_PLAN_STS_PUB');
318: g_error_txt := nvl(fnd_message.get, 'HR_50294_WPM_INV_PLAN_STS_PUB');
319: raise e_status_check_failed;
320:
321: ELSIF (p_reverse_mode <> 'N' and p_status_code NOT IN ('PUBLISHED')) THEN
314:
315: -- Set the message name, so that exception handler can get translated text
316: IF g_dbg THEN op(l_proc, g_DEBUG_LOG, 20); END IF;
317: fnd_message.set_name('PER','HR_50294_WPM_INV_PLAN_STS_PUB');
318: g_error_txt := nvl(fnd_message.get, 'HR_50294_WPM_INV_PLAN_STS_PUB');
319: raise e_status_check_failed;
320:
321: ELSIF (p_reverse_mode <> 'N' and p_status_code NOT IN ('PUBLISHED')) THEN
322:
321: ELSIF (p_reverse_mode <> 'N' and p_status_code NOT IN ('PUBLISHED')) THEN
322:
323: -- Set the message name, so that exception handler can get translated text
324: IF g_dbg THEN op(l_proc, g_DEBUG_LOG, 30); END IF;
325: fnd_message.set_name('PER','HR_50295_WPM_INV_PLAN_STS_RPUB');
326: g_error_txt := nvl(fnd_message.get, 'HR_50295_WPM_INV_PLAN_STS_RPUB');
327: raise e_status_check_failed;
328:
329: END IF;
322:
323: -- Set the message name, so that exception handler can get translated text
324: IF g_dbg THEN op(l_proc, g_DEBUG_LOG, 30); END IF;
325: fnd_message.set_name('PER','HR_50295_WPM_INV_PLAN_STS_RPUB');
326: g_error_txt := nvl(fnd_message.get, 'HR_50295_WPM_INV_PLAN_STS_RPUB');
327: raise e_status_check_failed;
328:
329: END IF;
330: --
404: exception
405: when others then
406: IF g_dbg THEN op('Leaving:'|| l_proc, g_REGULAR_LOG, 90); END IF;
407: --
408: fnd_message.set_name('PER','HR_50297_WPM_CP_ERROR');
409: g_cp_error_txt := nvl(fnd_message.get, 'HR_50297_WPM_CP_ERROR');
410: g_retcode := WARNING;
411: g_errbuf := g_cp_error_txt;
412: g_num_errors := g_num_errors + 1;
405: when others then
406: IF g_dbg THEN op('Leaving:'|| l_proc, g_REGULAR_LOG, 90); END IF;
407: --
408: fnd_message.set_name('PER','HR_50297_WPM_CP_ERROR');
409: g_cp_error_txt := nvl(fnd_message.get, 'HR_50297_WPM_CP_ERROR');
410: g_retcode := WARNING;
411: g_errbuf := g_cp_error_txt;
412: g_num_errors := g_num_errors + 1;
413: IF g_dbg THEN op(g_error_txt, g_REGULAR_LOG); END IF;
417: -- If the max number of errors has been exceeded, raise the error and
418: -- terminate processing of this plan.
419: --
420: IF g_num_errors > g_max_errors THEN
421: fnd_message.set_name('PER','HR_50298_WPM_MAX_ERRORS');
422: g_error_txt := nvl(fnd_message.get, 'HR_50298_WPM_MAX_ERRORS');
423: g_retcode := ERROR;
424: g_errbuf := g_error_txt;
425: RAISE;
418: -- terminate processing of this plan.
419: --
420: IF g_num_errors > g_max_errors THEN
421: fnd_message.set_name('PER','HR_50298_WPM_MAX_ERRORS');
422: g_error_txt := nvl(fnd_message.get, 'HR_50298_WPM_MAX_ERRORS');
423: g_retcode := ERROR;
424: g_errbuf := g_error_txt;
425: RAISE;
426: END IF;
1124: if(not l_found_appraisal) then
1125:
1126: IF l_main_appraiser_id IS NULL THEN
1127: fnd_file.put_line(fnd_file.log,'Unable to create appraisal for : '||l_scorecard_info.person_id||' as main appraiser could not be identified.');
1128: fnd_message.set_name('PER','HR_50297_WPM_CP_ERROR');
1129: g_cp_error_txt := nvl(fnd_message.get, 'HR_50297_WPM_CP_ERROR');
1130: g_retcode := WARNING;
1131: g_errbuf := g_cp_error_txt;
1132: g_num_errors := g_num_errors + 1;
1125:
1126: IF l_main_appraiser_id IS NULL THEN
1127: fnd_file.put_line(fnd_file.log,'Unable to create appraisal for : '||l_scorecard_info.person_id||' as main appraiser could not be identified.');
1128: fnd_message.set_name('PER','HR_50297_WPM_CP_ERROR');
1129: g_cp_error_txt := nvl(fnd_message.get, 'HR_50297_WPM_CP_ERROR');
1130: g_retcode := WARNING;
1131: g_errbuf := g_cp_error_txt;
1132: g_num_errors := g_num_errors + 1;
1133: --
1131: g_errbuf := g_cp_error_txt;
1132: g_num_errors := g_num_errors + 1;
1133: --
1134: IF g_num_errors > g_max_errors THEN
1135: fnd_message.set_name('PER','HR_50298_WPM_MAX_ERRORS');
1136: g_error_txt := nvl(fnd_message.get, 'HR_50298_WPM_MAX_ERRORS');
1137: g_retcode := ERROR;
1138: g_errbuf := g_error_txt;
1139: fnd_message.raise_error; --RAISE;
1132: g_num_errors := g_num_errors + 1;
1133: --
1134: IF g_num_errors > g_max_errors THEN
1135: fnd_message.set_name('PER','HR_50298_WPM_MAX_ERRORS');
1136: g_error_txt := nvl(fnd_message.get, 'HR_50298_WPM_MAX_ERRORS');
1137: g_retcode := ERROR;
1138: g_errbuf := g_error_txt;
1139: fnd_message.raise_error; --RAISE;
1140: END IF;
1135: fnd_message.set_name('PER','HR_50298_WPM_MAX_ERRORS');
1136: g_error_txt := nvl(fnd_message.get, 'HR_50298_WPM_MAX_ERRORS');
1137: g_retcode := ERROR;
1138: g_errbuf := g_error_txt;
1139: fnd_message.raise_error; --RAISE;
1140: END IF;
1141: RETURN;
1142: END IF;
1143:
1355: exception
1356: when others then
1357: IF g_dbg THEN op('Leaving:'||l_proc, g_REGULAR_LOG, 90); END IF;
1358: --
1359: fnd_message.set_name('PER','HR_50297_WPM_CP_ERROR');
1360: g_cp_error_txt := nvl(fnd_message.get, 'HR_50297_WPM_CP_ERROR');
1361: g_retcode := WARNING;
1362: g_errbuf := g_cp_error_txt;
1363: g_num_errors := g_num_errors + 1;
1356: when others then
1357: IF g_dbg THEN op('Leaving:'||l_proc, g_REGULAR_LOG, 90); END IF;
1358: --
1359: fnd_message.set_name('PER','HR_50297_WPM_CP_ERROR');
1360: g_cp_error_txt := nvl(fnd_message.get, 'HR_50297_WPM_CP_ERROR');
1361: g_retcode := WARNING;
1362: g_errbuf := g_cp_error_txt;
1363: g_num_errors := g_num_errors + 1;
1364: IF g_dbg THEN op(g_error_txt, g_REGULAR_LOG); END IF;
1368: -- If the max number of errors has been exceeded, raise the error and
1369: -- terminate processing of this plan.
1370: --
1371: IF g_num_errors > g_max_errors THEN
1372: fnd_message.set_name('PER','HR_50298_WPM_MAX_ERRORS');
1373: g_error_txt := nvl(fnd_message.get, 'HR_50298_WPM_MAX_ERRORS');
1374: g_retcode := ERROR;
1375: g_errbuf := g_error_txt;
1376: RAISE;
1369: -- terminate processing of this plan.
1370: --
1371: IF g_num_errors > g_max_errors THEN
1372: fnd_message.set_name('PER','HR_50298_WPM_MAX_ERRORS');
1373: g_error_txt := nvl(fnd_message.get, 'HR_50298_WPM_MAX_ERRORS');
1374: g_retcode := ERROR;
1375: g_errbuf := g_error_txt;
1376: RAISE;
1377: END IF;
1495: --
1496: exception
1497: when SCORECARD_PENDING_TRANSACTION then
1498: retcode := ERROR;
1499: fnd_message.set_name('PER','HR_SC_PENDING_TXN_ERR');
1500: errbuf := nvl(fnd_message.get, 'HR_SC_PENDING_TXN_ERR');
1501: rollback;
1502: when others then
1503: rollback;
1496: exception
1497: when SCORECARD_PENDING_TRANSACTION then
1498: retcode := ERROR;
1499: fnd_message.set_name('PER','HR_SC_PENDING_TXN_ERR');
1500: errbuf := nvl(fnd_message.get, 'HR_SC_PENDING_TXN_ERR');
1501: rollback;
1502: when others then
1503: rollback;
1504: --
1723: op('Maximum errors allowed:'|| g_max_errors, g_REGULAR_LOG, 89);
1724: op('Leaving:'||l_proc, g_REGULAR_LOG, 90);
1725: END IF;
1726: --
1727: fnd_message.set_name('PER','HR_50297_WPM_CP_ERROR');
1728: g_cp_error_txt := nvl(fnd_message.get, 'HR_50297_WPM_CP_ERROR');
1729: g_retcode := WARNING;
1730: g_errbuf := g_cp_error_txt;
1731: g_num_errors := g_num_errors + 1;
1724: op('Leaving:'||l_proc, g_REGULAR_LOG, 90);
1725: END IF;
1726: --
1727: fnd_message.set_name('PER','HR_50297_WPM_CP_ERROR');
1728: g_cp_error_txt := nvl(fnd_message.get, 'HR_50297_WPM_CP_ERROR');
1729: g_retcode := WARNING;
1730: g_errbuf := g_cp_error_txt;
1731: g_num_errors := g_num_errors + 1;
1732: IF g_dbg THEN op(g_error_txt, g_REGULAR_LOG); END IF;
1736: -- If the max number of errors has been exceeded, raise the error and
1737: -- terminate processing of this plan.
1738: --
1739: IF g_num_errors > g_max_errors THEN
1740: fnd_message.set_name('PER','HR_50298_WPM_MAX_ERRORS');
1741: g_error_txt := nvl(fnd_message.get, 'HR_50298_WPM_MAX_ERRORS');
1742: g_retcode := ERROR;
1743: g_errbuf := g_error_txt;
1744: RAISE;
1737: -- terminate processing of this plan.
1738: --
1739: IF g_num_errors > g_max_errors THEN
1740: fnd_message.set_name('PER','HR_50298_WPM_MAX_ERRORS');
1741: g_error_txt := nvl(fnd_message.get, 'HR_50298_WPM_MAX_ERRORS');
1742: g_retcode := ERROR;
1743: g_errbuf := g_error_txt;
1744: RAISE;
1745: END IF;