1190dfb87e
Expose addon_allowed in mip_tripartite.pck. git-svn-id: http://locode01.ad.dom/svn/WEBMIP/trunk@3957 248e525c-4dfb-0310-94bc-949c084e9493
56 lines
1.8 KiB
Plaintext
56 lines
1.8 KiB
Plaintext
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_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
|
|
|
|
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
|
|
,p_field_condition 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
|
|
,p_field_condition IN VARCHAR2) IS
|
|
l_idx NUMBER := p_fields.COUNT + 1;
|
|
BEGIN
|
|
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;
|
|
/
|