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

Scheme Changes:

Browse Source 
Replaced Access_Controls with APEX_AUTHORISATION
Created POSTCODES, ERROR_LOGS and SYSTEM_CONFIGURATION.
Added missing columns to ENQUIRIES, REGULATORS, etc.
Added views V_PROFILE_RT_CODE_FOR_ENRO.vw, V_PARTY_RELATIONSHIPS.vw, V_LATEST_RT_CODE_FOR_ENRO.vw.

Modules:

Added cout_err.pck, cout_system_configuration.pck.

Data:

Added Data/Demo files
Added Data/Seed files for postcodes, regions and DatabaseItemToFunctionalSpecificationReference.csv

Documentation:

Added Documentation/pldoc for plsqldoc-generated files.
Added Documentation/SupportingDocumentation/Regions to hold region definition information.

git-svn-id: http://locode01.ad.dom/svn/WEBMIP/trunk@2890 248e525c-4dfb-0310-94bc-949c084e9493
This commit is contained in:
hardya
2007-11-27 11:48:13 +00:00
parent 2a490afbbc
commit 2920f4d016
49 changed files with 18360 additions and 97 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
Modules/cout_err.pck
View File

@@ -78,8 +78,6 @@ CREATE OR REPLACE PACKAGE BODY cout_err IS
g_file VARCHAR2(2000) := 'err.log';
g_dir VARCHAR2(2000) := '/export/home/mcdonald/INBOX';
g_tapi_exception_number CONSTANT NUMBER := -20999;
PROCEDURE pl(p_msg VARCHAR2) IS
l_start NUMBER := 1;
l_len CONSTANT NUMBER := 255;
@@ -201,26 +199,7 @@ CREATE OR REPLACE PACKAGE BODY cout_err IS
l_err_loc VARCHAR2(240);
BEGIN
IF p_exception_number = g_tapi_exception_number THEN
IF cg$errors.pop_head(msg => l_err_msg
,error => l_err_error
,msg_type => l_err_msg_type
,msgid => l_err_msgid
,loc => l_err_loc) THEN
p_message := l_err_msg;
p_exme_type := substr(l_err_error
,1
,1);
cg$errors.push(msg => l_err_msg
,error => l_err_error
,msg_type => l_err_msg_type
,msgid => l_err_msgid
,loc => l_err_loc);
ELSE
p_message := 'Unable to retrieve TAPI error';
p_exme_type := 'E';
END IF;
ELSE
BEGIN
SELECT to_char(abs(exception_number)) || ': ' || message
,exme_type
@@ -244,8 +223,7 @@ CREATE OR REPLACE PACKAGE BODY cout_err IS
,p_substitution_list(l_index));
l_index := p_substitution_list.NEXT(l_index);
END LOOP;
END IF;
END get_exception_message;
PROCEDURE log(p_exception_number IN PLS_INTEGER := NULL