cae05e68a9
Add conditional compilation for debugging. Use correct NLS language in dads.conf git-svn-id: http://locode01.ad.dom/svn/WEBMIP/trunk@4793 248e525c-4dfb-0310-94bc-949c084e9493
101 lines
3.1 KiB
Plaintext
101 lines
3.1 KiB
Plaintext
CREATE OR REPLACE PACKAGE mip_friendly_messages IS
|
|
|
|
-- Author : HARDYA
|
|
-- Created : 19/02/2008 09:45:09
|
|
-- Purpose :
|
|
|
|
/** Attempt to produce a user friendly message for an Oracle message
|
|
%param p_ora_msg the message to be processed
|
|
%return either a friendly message or p_ora_msg
|
|
*/
|
|
FUNCTION get_friendly_message(p_ora_msg IN VARCHAR2) RETURN VARCHAR2;
|
|
|
|
END mip_friendly_messages;
|
|
/
|
|
CREATE OR REPLACE PACKAGE BODY mip_friendly_messages IS
|
|
|
|
PROCEDURE pl(p_in VARCHAR2
|
|
,p_line IN NUMBER DEFAULT NULL) IS
|
|
BEGIN
|
|
$IF mip_debug_constants.debugging OR mip_debug_constants.friendly_messages
|
|
$THEN
|
|
mip_debug.pl(p_unit => $$PLSQL_UNIT
|
|
,p_line => p_line
|
|
,p_in => p_in);
|
|
$END
|
|
NULL;
|
|
END pl;
|
|
|
|
FUNCTION get_constraint_message(p_ora_msg IN VARCHAR2) RETURN VARCHAR2 IS
|
|
c_marker CONSTANT VARCHAR2(30) := 'constraint (';
|
|
c_marker_length CONSTANT NUMBER := length(c_marker);
|
|
l_msg constraint_messages.msg%TYPE;
|
|
l_constraint VARCHAR2(30);
|
|
l_constraint_name VARCHAR2(30);
|
|
l_start_posn NUMBER;
|
|
l_end_posn NUMBER;
|
|
BEGIN
|
|
|
|
-- get the complete constraint "user.constraint_name"
|
|
l_start_posn := instr(p_ora_msg
|
|
,c_marker) + c_marker_length;
|
|
l_end_posn := instr(p_ora_msg
|
|
,')'
|
|
,l_start_posn) - 1;
|
|
l_constraint := substr(p_ora_msg
|
|
,l_start_posn
|
|
,l_end_posn - l_start_posn + 1);
|
|
|
|
|
|
-- get the "constraint_name"
|
|
l_start_posn := instr(l_constraint
|
|
,'.') + 1;
|
|
l_constraint_name := substr(l_constraint
|
|
,l_start_posn);
|
|
|
|
BEGIN
|
|
SELECT msg
|
|
INTO l_msg
|
|
FROM constraint_messages
|
|
WHERE constraint_name = l_constraint_name;
|
|
EXCEPTION
|
|
WHEN no_data_found THEN
|
|
l_msg := NULL;
|
|
END;
|
|
IF l_msg IS NULL
|
|
AND l_constraint_name LIKE 'SYS!_C%' ESCAPE
|
|
'!'
|
|
OR l_constraint_name LIKE 'AVCON!_%' ESCAPE '!' THEN
|
|
-- this is a system generated check constraint and should not be appearing
|
|
l_msg := 'Application error. Attempting to violate check constraint ' ||
|
|
l_constraint_name ||
|
|
'. Please report this error to Advantica.';
|
|
END IF;
|
|
RETURN l_msg;
|
|
END get_constraint_message;
|
|
|
|
FUNCTION get_friendly_message(p_ora_msg IN VARCHAR2) RETURN VARCHAR2 IS
|
|
l_ora_msg VARCHAR2(240) := p_ora_msg;
|
|
l_sqlcode NUMBER;
|
|
l_msg VARCHAR2(2000);
|
|
BEGIN
|
|
pl('get_friendly_message:entry:'||p_ora_msg);
|
|
l_sqlcode := substr(l_ora_msg
|
|
,1
|
|
,5);
|
|
|
|
IF instr(l_ora_msg
|
|
,'constraint (') > 0 THEN
|
|
l_msg := nvl(get_constraint_message(l_ora_msg)
|
|
,l_ora_msg);
|
|
ELSE
|
|
l_msg := l_ora_msg;
|
|
END IF;
|
|
|
|
pl('get_friendly_message:exit:'||l_msg);
|
|
return(l_msg);
|
|
END get_friendly_message;
|
|
|
|
END mip_friendly_messages;
|
|
/
|