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

23
Modules/mip_mandatory.pck
View File

@@ -11,7 +11,11 @@ CREATE OR REPLACE PACKAGE mip_mandatory IS
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;
TYPE t_field IS RECORD(
field_name VARCHAR2(80)
,field_condition VARCHAR2(1));
TYPE t_fields IS TABLE OF t_field INDEX BY BINARY_INTEGER;
-- Public function and procedure declarations
@@ -19,11 +23,12 @@ CREATE OR REPLACE PACKAGE mip_mandatory IS
,p_field_name IN VARCHAR2
,p_error_message IN VARCHAR2);
PROCEDURE add_field(p_fields IN OUT t_fields
,p_field_name IN VARCHAR2);
PROCEDURE add_field(p_fields IN OUT t_fields
,p_field_name IN VARCHAR2
,p_field_condition IN VARCHAR2);
END mip_mandatory;
/
CREATE OR REPLACE PACKAGE BODY MIP_MANDATORY IS
CREATE OR REPLACE PACKAGE BODY mip_mandatory IS
PROCEDURE add_error(p_mandatory_checks IN OUT t_mandatory_checks
,p_field_name IN VARCHAR2
@@ -34,15 +39,17 @@ CREATE OR REPLACE PACKAGE BODY MIP_MANDATORY IS
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
PROCEDURE add_field(p_fields IN OUT t_fields
,p_field_name IN VARCHAR2
,p_field_condition IN VARCHAR2) IS
l_idx NUMBER := p_fields.COUNT + 1;
BEGIN
p_fields(l_idx) := p_field_name;
p_fields(l_idx).field_name := p_field_name;
p_fields(l_idx).field_condition := p_field_condition;
END add_field;
BEGIN
-- Initialization
NULL;
END MIP_MANDATORY;
END mip_mandatory;
/