Added cout_assert.pck - provides assertion utilities.
Added cout_err.pck - 'standard' error logging utilities.
Added gen_mandatory.prc - generates packages to provided mandatory field checks.

Schema:
Changed primary key of ENQUIRIES to an ID (also made sequence ENQU_SEQ available).
Changes ENQUIRIES.CONSUMER_NAME to FIRST_CONTACT_NAME.
Added tables DATA_ITEMS and DATA_ITEM_ROLES to support Modules/gen_mandatory.prc.

git-svn-id: http://locode01.ad.dom/svn/WEBMIP/trunk@2865 248e525c-4dfb-0310-94bc-949c084e9493
This commit is contained in:
hardya
2007-11-16 16:43:58 +00:00
parent bc54399097
commit b736bb6136
13 changed files with 1460 additions and 120 deletions

48
Modules/mip_mandatory.pck Normal file
View File

@@ -0,0 +1,48 @@
CREATE OR REPLACE PACKAGE mip_mandatory IS
-- Author : HARDYA
-- Created : 15/11/2007 15:44:36
-- Purpose : Support Mandatory Field Processing
-- Public type declarations
TYPE t_mandatory_check IS RECORD(
field_name VARCHAR2(80)
,error_message data_item_roles.error_message%TYPE);
TYPE t_mandatory_checks IS TABLE OF t_mandatory_check INDEX BY BINARY_INTEGER;
TYPE t_fields IS TABLE OF VARCHAR2(80) INDEX BY BINARY_INTEGER;
-- Public function and procedure declarations
PROCEDURE add_error(p_mandatory_checks IN OUT t_mandatory_checks
,p_field_name IN VARCHAR2
,p_error_message IN VARCHAR2);
PROCEDURE add_field(p_fields IN OUT t_fields
,p_field_name IN VARCHAR2);
END mip_mandatory;
/
CREATE OR REPLACE PACKAGE BODY MIP_MANDATORY IS
PROCEDURE add_error(p_mandatory_checks IN OUT t_mandatory_checks
,p_field_name IN VARCHAR2
,p_error_message IN VARCHAR2) IS
l_idx NUMBER := p_mandatory_checks.COUNT + 1;
BEGIN
p_mandatory_checks(l_idx).field_name := p_field_name;
p_mandatory_checks(l_idx).error_message := p_error_message;
END;
PROCEDURE add_field(p_fields IN OUT t_fields
,p_field_name IN VARCHAR2) IS
l_idx NUMBER := p_fields.COUNT + 1;
BEGIN
p_fields(l_idx) := p_field_name;
END add_field;
BEGIN
-- Initialization
NULL;
END MIP_MANDATORY;
/