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

Address #483 with changes to DATAITEM_ROLES.csv, DATAITEM_ROLES.xls.

Browse Source 
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
This commit is contained in:
hardya
2008-04-14 17:04:06 +00:00
parent da43803539
commit cae05e68a9
14 changed files with 59 additions and 58 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Modules/MIP_ENQUIRY.pck
View File

@@ -100,13 +100,13 @@ CREATE OR REPLACE PACKAGE BODY mip_enquiry IS
PROCEDURE pl(p_in VARCHAR2
,p_line IN NUMBER DEFAULT NULL) IS
BEGIN
NULL;
/* $IF mip_debug_constants.debugging OR mip_debug_constants.enquiry
$THEN*/
$IF mip_debug_constants.debugging OR mip_debug_constants.enquiry
$THEN
mip_debug.pl(p_unit => $$PLSQL_UNIT
,p_line => p_line
,p_in => p_in);
/* $END*/
$END
NULL;
END pl;
/*
FUNCTION enquiry_has_quotes

8
Modules/MIP_FILES.pck
View File

@@ -36,13 +36,13 @@ CREATE OR REPLACE PACKAGE BODY mip_files AS
PROCEDURE pl(p_in VARCHAR2
,p_line NUMBER DEFAULT NULL) IS
BEGIN
NULL;
-- $IF $$DEBUGGING OR mip_debug_constants.debugging OR mip_debug_constants.files
-- $THEN
$IF mip_debug_constants.debugging OR mip_debug_constants.files
$THEN
mip_debug.pl(p_unit => $$PLSQL_UNIT
,p_in => p_in
,p_line => p_line);
-- $END
$END
NULL;
END pl;
/*

11
Modules/mip_bulk_load.pck
View File

@@ -31,12 +31,11 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
PROCEDURE pl(p_in IN VARCHAR2
,p_line IN NUMBER DEFAULT NULL) IS
BEGIN
NULL;
--$IF $$DEBUGGING OR mip_debug_constants.debugging OR mip_debug_constants.bulk_load $THEN
mip_debug.pl(p_unit => $$PLSQL_UNIT
,p_line => p_line
,p_in => p_in);
--$END
$IF mip_debug_constants.debugging OR mip_debug_constants.bulk_load $THEN mip_debug.pl(p_unit => $$PLSQL_UNIT
,p_line => p_line
,p_in => p_in);
$END NULL;
END pl;
PROCEDURE get_dir_list(p_directory IN VARCHAR2) AS

13
Modules/mip_debug_constants.pks
View File

@@ -5,10 +5,15 @@ CREATE OR REPLACE PACKAGE mip_debug_constants IS
-- Purpose : Constants used for conditional compilation of debug functions
-- Public constant declarations
debugging CONSTANT BOOLEAN := TRUE;
bulk_load CONSTANT BOOLEAN := TRUE;
quotation CONSTANT BOOLEAN := TRUE;
files CONSTANT BOOLEAN := TRUE;
debugging CONSTANT BOOLEAN := TRUE;
bulk_load CONSTANT BOOLEAN := TRUE;
quotation CONSTANT BOOLEAN := TRUE;
enquiry CONSTANT BOOLEAN := TRUE;
files CONSTANT BOOLEAN := TRUE;
tripartite CONSTANT BOOLEAN := TRUE;
security CONSTANT BOOLEAN := TRUE;
select_xml CONSTANT BOOLEAN := TRUE;
friendly_messages CONSTANT BOOLEAN := TRUE;
END mip_debug_constants;
/

8
Modules/mip_friendly_messages.pck
View File

@@ -17,13 +17,13 @@ CREATE OR REPLACE PACKAGE BODY mip_friendly_messages IS
PROCEDURE pl(p_in VARCHAR2
,p_line IN NUMBER DEFAULT NULL) IS
BEGIN
NULL;
/* $IF mip_debug_constants.debugging OR mip_debug_constants.friendly_messages
$THEN*/
$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
NULL;
END pl;
FUNCTION get_constraint_message(p_ora_msg IN VARCHAR2) RETURN VARCHAR2 IS

6
Modules/mip_helper_special_cases.pck
View File

@@ -69,8 +69,8 @@ CREATE OR REPLACE PACKAGE BODY mip_helper_special_cases IS
-- O-M6
IF p_rec.enty_code IN ('OFMAT', 'EXCHANGE', 'STD EXCHANGE', 'REMOVE',
'STD REMOVE', 'ADVERSARIAL', 'CHANGE CAPACITY')
AND p_rec.existing_metr_code = 'OTHER'
'STD REMOVE', 'ADVERSARIAL', 'CHANGE CAPACITY', 'ALTERATION')
AND nvl(p_rec.existing_metr_code, 'OTHER') = 'OTHER'
AND (p_rec.existing_mesc_code IS NULL OR
p_rec.existing_mety_code IS NULL) THEN
mip_mandatory.add_error(p_mandatory_checks => p_mandatory_checks
@@ -95,7 +95,7 @@ CREATE OR REPLACE PACKAGE BODY mip_helper_special_cases IS
,p_field_name => 'BYPASS_OTHER'
,p_error_message => '''Other'' reason must be completed.');
END IF;
END IF;
END IF;
END table_enquiries;
BEGIN
-- Initialization

7
Modules/mip_quotation.pck
View File

@@ -213,13 +213,12 @@ CREATE OR REPLACE PACKAGE BODY mip_quotation IS
PROCEDURE pl(p_in VARCHAR2
,p_line IN NUMBER DEFAULT NULL) IS
BEGIN
NULL;
/* $IF mip_debug_constants.debugging OR mip_debug_constants.quotation
$THEN*/
$IF mip_debug_constants.debugging OR mip_debug_constants.quotation $THEN
mip_debug.pl(p_unit => $$PLSQL_UNIT
,p_line => p_line
,p_in => p_in);
/* $END*/
$END
NULL;
END pl;
PROCEDURE add_quote_reason(p_enqu_id IN enquiries.id%TYPE

8
Modules/mip_security.pck
View File

@@ -106,13 +106,13 @@ CREATE OR REPLACE PACKAGE BODY mip_security AS
PROCEDURE pl(p_in VARCHAR2
,p_line IN NUMBER DEFAULT NULL) IS
BEGIN
NULL;
/* $IF mip_debug_constants.debugging OR mip_debug_constants.security
$THEN*/
$IF mip_debug_constants.debugging OR mip_debug_constants.security
$THEN
mip_debug.pl(p_unit => $$PLSQL_UNIT
,p_line => p_line
,p_in => p_in);
/* $END*/
$END
NULL;
END pl;
/*
returns the current status of the user

8
Modules/mip_select_xml.pck
View File

@@ -22,13 +22,13 @@ CREATE OR REPLACE PACKAGE BODY mip_select_xml IS
PROCEDURE pl(p_in VARCHAR2
,p_line IN NUMBER DEFAULT NULL) IS
BEGIN
NULL;
/* $IF mip_debug_constants.debugging OR mip_debug_constants.select_xml
$THEN*/
$IF mip_debug_constants.debugging OR mip_debug_constants.select_xml
$THEN
mip_debug.pl(p_unit => $$PLSQL_UNIT
,p_line => p_line
,p_in => p_in);
/* $END*/
$END
NULL;
END pl;
PROCEDURE select_xml(p_select_list IN VARCHAR2

8
Modules/mip_tripartite.pck
View File

@@ -85,13 +85,13 @@ CREATE OR REPLACE PACKAGE BODY mip_tripartite IS
PROCEDURE pl(p_in VARCHAR2
,p_line IN NUMBER DEFAULT NULL) IS
BEGIN
NULL;
/* $IF mip_debug_constants.debugging OR mip_debug_constants.tripartite
$THEN*/
$IF mip_debug_constants.debugging OR mip_debug_constants.tripartite
$THEN
mip_debug.pl(p_unit => $$PLSQL_UNIT
,p_line => p_line
,p_in => p_in);
/* $END*/
$END
NULL;
END pl;
PROCEDURE al(p_in IN VARCHAR2

22
Modules/mip_virus_check.pck
View File

@@ -26,8 +26,6 @@ CREATE OR REPLACE PACKAGE mip_virus_check IS
%return VARCHAR2 - the actual name of the file
*/
FUNCTION get_fs_name(p_name IN documents.uri%TYPE) RETURN VARCHAR2;
--
PROCEDURE pl(p_in VARCHAR2);
END mip_virus_check;
/
CREATE OR REPLACE PACKAGE BODY mip_virus_check IS
@@ -35,17 +33,17 @@ CREATE OR REPLACE PACKAGE BODY mip_virus_check IS
Updates:
MM 25-Feb-2008 added the load file
*/
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_virus_check', p_in);
l_fh := utl_file.fopen(location => 'WEBMIP_VIRUS',
filename => 'WEBMIP_VIRUS.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;
$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;
PROCEDURE write_file(p_name IN wwv_flow_files.NAME%TYPE,
p_location IN VARCHAR2 DEFAULT 'WEBMIP_VIRUS',