Наверно должна быть функция обработки ошибок,
а в ней для Oracle примерно такой текст

CHOOSE CASE p_sqldbcode
.........
.......
CASE 60
MessageBox(txt,'Операция прервана. ПЕРЕГРУЗКА СИСТЕМЫ')
goto m_txt
CASE 257,1034,1033,1035,1089,1090,12500
exit_programm = NOT error.start_post
error.start_post=false
error.error_oracle=true
error.last_errtext=p_sqlerrtext
MessageBox('','БД УКЭР Остановлена~nт.хх-хх-хх Петров Михаил')
IF exit_programm THEN
HALT CLOSE
ELSE
OpenWithParm(w_error_oracle,p_sqldbcode)
RETURN true
END IF
CASE 942
MessageBox(txt,'У Вас нет прав до этой информации')
goto m_txt
CASE 1012
error.start_post=false
error.error_oracle=true
error.last_errtext=p_sqlerrtext
MessageBox(txt,'Ваш ПРОЦЕСС убили!')
OpenWithParm(w_error_oracle,p_sqldbcode)
RETURN true
CASE 1013
MessageBox(txt,'Операция прервана')
RETURN true
CASE 1031
MessageBox(txt,'У Вас нет прав на выполнение такой операции.')
RETURN true
CASE 1400
MessageBox(txt,'Не все ОБЯЗАТЕЛЬНЫЕ ПОЛЯ заполнены')
goto m_txt
CASE 1401
MessageBox(txt,'Текст превысил размеры поля')
goto m_txt
CASE 1653
err_txt='Нет места в БАЗЕ'
CASE 1756
MessageBox(txt,'Из строки УБРАТЬ КАВЫЧКИ')
goto m_txt
CASE 2019
MessageBox(txt,'Времено отсутствует соединение с удаленной базой данных.~nПовторите попытку.')
RETURN true
CASE 980,2068
MessageBox(txt,'Ошибка УДАЛЕННОГО СЕРВЕРА.~nОшибка зафиксирована. Будем разбираться.')
goto m_txt
CASE 3113,3114,12203 // обрыв с Базой
error.start_post=false
error.error_oracle=true
error.last_errtext=p_sqlerrtext
OpenWithParm(w_error_oracle,p_sqldbcode)
RETURN true
CASE 12569,12571
err_txt='Ошибка в линии связи'
CASE 20500
err_txt=p_sqlerrtext
CASE ELSE
err_txt='Ошибка '+'~013~010SQLCode='+string(p_sqlcode)+&
'~013~010SQLDBCode='+String(p_sqldbcode)+ "~013~010~013~010"+p_sqlerrtext