andy/mip
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Changed mandatory packages (mip_mandatory.pck and gen_mandatory.prc) to produce label conditions for the enquiry screen.

Browse Source 
Expose addon_allowed in mip_tripartite.pck.

git-svn-id: http://locode01.ad.dom/svn/WEBMIP/trunk@3957 248e525c-4dfb-0310-94bc-949c084e9493
This commit is contained in:
hardya
2008-03-12 14:16:55 +00:00
parent 99aaa74017
commit 1190dfb87e
4 changed files with 145 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
Modules/mip_friendly_messages.pck
View File

@@ -14,19 +14,17 @@ END mip_friendly_messages;
/
CREATE OR REPLACE PACKAGE BODY mip_friendly_messages IS
PROCEDURE pl(p_in VARCHAR2) IS
l_fh utl_file.file_type;
PROCEDURE pl(p_in VARCHAR2
,p_line IN NUMBER DEFAULT NULL) IS
BEGIN
dbms_application_info.set_module('MIP_FRIENDLY_MESSAGES'
,p_in);
l_fh := utl_file.fopen(location => 'WEBMIP_BULK_LOAD'
,filename => 'MIP_FRIENDLY_MESSAGES.txt'
,open_mode => 'A');
utl_file.put_line(l_fh
,to_char(SYSDATE
,'DD/MM/YYYY HH24:MI:SS') || ',' || p_in);
utl_file.fclose(l_fh);
END pl;
NULL;
/* $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*/
END pl;
FUNCTION get_constraint_message(p_ora_msg IN VARCHAR2) RETURN VARCHAR2 IS
c_marker CONSTANT VARCHAR2(30) := 'constraint (';
@@ -81,9 +79,11 @@ CREATE OR REPLACE PACKAGE BODY mip_friendly_messages IS
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)
@@ -92,6 +92,7 @@ CREATE OR REPLACE PACKAGE BODY mip_friendly_messages IS
l_msg := l_ora_msg;
END IF;
pl('get_friendly_message:exit:'||l_msg);
return(l_msg);
END get_friendly_message;