266: OPEN l_batch_csr;
267: FETCH l_batch_csr into l_batch_rec;
268: IF (l_batch_csr%NOTFOUND) THEN
269: CLOSE l_batch_csr;
270: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
271: APP_EXCEPTION.Raise_Exception;
272: END IF;
273: CLOSE l_batch_csr;
274:
342: return;
343:
344: ELSE
345:
346: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
347: APP_EXCEPTION.Raise_Exception;
348:
349: END IF;
350:
443:
444: EXCEPTION
445: WHEN l_NO_EMP_RECORD THEN
446: RETCODE := '2';
447: fnd_message.set_name('PA', 'PA_ALL_WARN_NO_EMPL_REC');
448: ERRBUF := fnd_message.get;
449:
450: WHEN OTHERS THEN
451: RETCODE := '2';
444: EXCEPTION
445: WHEN l_NO_EMP_RECORD THEN
446: RETCODE := '2';
447: fnd_message.set_name('PA', 'PA_ALL_WARN_NO_EMPL_REC');
448: ERRBUF := fnd_message.get;
449:
450: WHEN OTHERS THEN
451: RETCODE := '2';
452: ERRBUF := SQLERRM;
620: --
621: -- First check to see if this is a PA error
622: --
623: IF (SUBSTRB(p_err_code, 1, 3) = 'PA_') THEN
624: fnd_message.set_name('PA', p_err_code);
625: l_error_msg := SUBSTRB(fnd_message.get, 1, 150);
626: ELSE
627: --
628: -- Not a PA error; check to see if it's a SQL error
621: -- First check to see if this is a PA error
622: --
623: IF (SUBSTRB(p_err_code, 1, 3) = 'PA_') THEN
624: fnd_message.set_name('PA', p_err_code);
625: l_error_msg := SUBSTRB(fnd_message.get, 1, 150);
626: ELSE
627: --
628: -- Not a PA error; check to see if it's a SQL error
629: --