Seed/enst.ctl - add INVALID status
Documentation/Design/DatabaseItemToFunctionalSpecificationReference.xls - add rule O-M5 Documentation/pldoc - regenerated Modules/mip_helper_special_cases.pck - make reference to Tripartite rule O-M5 (handled by mip_quotation.pck and mip_tripartite.pck Schema - removed DATA_ITEM_ROLES_IMPORT, added views of enquiries and quote statuses git-svn-id: http://locode01.ad.dom/svn/WEBMIP/trunk@3354 248e525c-4dfb-0310-94bc-949c084e9493
This commit is contained in:
hardya
245
Modules/mip_tripartite.pck
Normal file
245
Modules/mip_tripartite.pck
Normal file
@@ -0,0 +1,245 @@
|
||||
CREATE OR REPLACE PACKAGE mip_tripartite IS
|
||||
|
||||
-- Author : HARDYA
|
||||
-- Created : 22/01/2008 11:02:06
|
||||
-- Purpose : Handle Tripartite queries
|
||||
|
||||
TYPE t_tab_messages IS TABLE OF VARCHAR(240) INDEX BY BINARY_INTEGER;
|
||||
|
||||
/** Is the given postcode within a Tripartite region?
|
||||
%param p_postcode the postcode to be checked
|
||||
%return TRUE if within a Tripartite region
|
||||
*/
|
||||
FUNCTION tripartite_region(p_postcode IN VARCHAR2) RETURN BOOLEAN;
|
||||
|
||||
/** Is the given supplier (party) a Tripartite member?
|
||||
%param p_prty_id the prty_id of the supplier to be checked
|
||||
%return TRUE if a Tripartite member
|
||||
*/
|
||||
FUNCTION tripartite_member(p_supp_prty_id IN parties.id%TYPE)
|
||||
RETURN BOOLEAN;
|
||||
/** Is the given supplier (party) allowed to submit a particular enquiry type for the given region?
|
||||
%param p_supp_prty_id the id of the supplier to be checked
|
||||
%param p_enty_code the enquiry type to be checked
|
||||
%param p_regi_code the region to be checked against
|
||||
%return TRUE if the enquiry is allowed
|
||||
*/
|
||||
FUNCTION enquiry_allowed(p_supp_prty_id IN parties.id%TYPE
|
||||
,p_enty_code IN enquiry_types.code%TYPE
|
||||
,p_regi_code IN regions.code%TYPE)
|
||||
RETURN BOOLEAN;
|
||||
|
||||
/** Is the given enquiry allowed under Tripartite arrangements?
|
||||
%param p_enqu_id the id of the enquiry to be checked
|
||||
%return TRUE if the enquiry is allowed
|
||||
*/
|
||||
FUNCTION enquiry_allowed(p_enqu_id IN enquiries.id%TYPE) RETURN BOOLEAN;
|
||||
|
||||
/** Is the given enquiry allowed to request the addons under Tripartite arrangements?
|
||||
%param p_enqu_id the id of the enquiry to be checked
|
||||
%return TRUE if the enquiry is allowed
|
||||
*/
|
||||
FUNCTION addons_allowed(p_enqu_id IN enquiries.id%TYPE
|
||||
,p_tab_messages IN OUT t_tab_messages)
|
||||
RETURN BOOLEAN;
|
||||
|
||||
/** Is the given enquiry valid with respect to the Tripartite arrangements?
|
||||
%param p_enqu_id the id of the enquiry to be checked
|
||||
%param p_tab_messages reasons for the enquiry not being valid
|
||||
%return TRUE if the enquiry is valid
|
||||
*/
|
||||
FUNCTION valid_enquiry(p_enqu_id IN enquiries.id%TYPE
|
||||
,p_tab_messages OUT t_tab_messages) RETURN BOOLEAN;
|
||||
END mip_tripartite;
|
||||
/
|
||||
CREATE OR REPLACE PACKAGE BODY mip_tripartite IS
|
||||
|
||||
PROCEDURE al(p_in IN VARCHAR2
|
||||
,p_tab_messages IN OUT t_tab_messages) IS
|
||||
BEGIN
|
||||
p_tab_messages(p_tab_messages.COUNT + 1) := p_in;
|
||||
END al;
|
||||
|
||||
FUNCTION tripartite_region(p_postcode IN VARCHAR2) RETURN BOOLEAN IS
|
||||
l_regi_code regions.code%TYPE;
|
||||
l_rec_found NUMBER DEFAULT 0;
|
||||
BEGIN
|
||||
|
||||
cout_assert.istrue(mip_regions.valid_postcode_format(p_postcode => p_postcode)
|
||||
,'Invalid Postcode format');
|
||||
|
||||
l_regi_code := mip_regions.get_region_for_postcode(p_postcode => p_postcode);
|
||||
|
||||
BEGIN
|
||||
SELECT 1
|
||||
INTO l_rec_found
|
||||
FROM regi_enqu_exclusions reee
|
||||
WHERE reee.regi_code = l_regi_code;
|
||||
EXCEPTION
|
||||
WHEN no_data_found THEN
|
||||
NULL;
|
||||
END;
|
||||
|
||||
RETURN(CASE l_rec_found WHEN 0 THEN FALSE ELSE TRUE END);
|
||||
|
||||
END tripartite_region;
|
||||
|
||||
FUNCTION tripartite_member(p_supp_prty_id IN parties.id%TYPE)
|
||||
RETURN BOOLEAN IS
|
||||
l_rec_found NUMBER DEFAULT 0;
|
||||
BEGIN
|
||||
BEGIN
|
||||
SELECT 1
|
||||
INTO l_rec_found
|
||||
FROM parties
|
||||
WHERE id = p_supp_prty_id
|
||||
AND tripartite_member = 'YES';
|
||||
EXCEPTION
|
||||
WHEN no_data_found THEN
|
||||
NULL;
|
||||
END;
|
||||
|
||||
RETURN(CASE l_rec_found WHEN 0 THEN FALSE ELSE TRUE END);
|
||||
|
||||
END tripartite_member;
|
||||
|
||||
FUNCTION enquiry_allowed(p_supp_prty_id IN parties.id%TYPE
|
||||
,p_enty_code enquiry_types.code%TYPE
|
||||
,p_regi_code IN regions.code%TYPE)
|
||||
RETURN BOOLEAN IS
|
||||
l_rec_found NUMBER DEFAULT 0;
|
||||
BEGIN
|
||||
|
||||
IF NOT tripartite_member(p_supp_prty_id) THEN
|
||||
BEGIN
|
||||
SELECT 1
|
||||
INTO l_rec_found
|
||||
FROM regi_enqu_exclusions
|
||||
WHERE regi_code = p_regi_code
|
||||
AND enty_code = p_enty_code;
|
||||
EXCEPTION
|
||||
WHEN no_data_found THEN
|
||||
NULL;
|
||||
END;
|
||||
END IF;
|
||||
|
||||
RETURN(CASE l_rec_found WHEN 0 THEN TRUE ELSE FALSE END);
|
||||
|
||||
END enquiry_allowed;
|
||||
|
||||
FUNCTION enquiry_allowed(p_enqu_id IN enquiries.id%TYPE) RETURN BOOLEAN IS
|
||||
l_regi_code regions.code%TYPE;
|
||||
l_postcode enquiries.install_postcode%TYPE;
|
||||
l_supp_prty_id parties.id%TYPE;
|
||||
l_enty_code enquiry_types.code%TYPE;
|
||||
BEGIN
|
||||
|
||||
SELECT install_postcode
|
||||
,enty_code
|
||||
INTO l_postcode
|
||||
,l_enty_code
|
||||
FROM enquiries
|
||||
WHERE id = p_enqu_id;
|
||||
l_regi_code := mip_regions.get_region_for_postcode(p_postcode => l_postcode);
|
||||
l_supp_prty_id := mip_enquiry.get_enquiry_role(p_enquiryid => p_enqu_id
|
||||
,p_rolecode => 'SUPP');
|
||||
|
||||
RETURN enquiry_allowed(p_supp_prty_id => l_supp_prty_id
|
||||
,p_enty_code => l_enty_code
|
||||
,p_regi_code => l_regi_code);
|
||||
|
||||
END enquiry_allowed;
|
||||
|
||||
FUNCTION addon_allowed(p_adit_code IN additional_items.code%TYPE
|
||||
,p_regi_code IN regions.code%TYPE) RETURN BOOLEAN IS
|
||||
l_rec_found NUMBER DEFAULT 0;
|
||||
BEGIN
|
||||
|
||||
BEGIN
|
||||
SELECT 1
|
||||
INTO l_rec_found
|
||||
FROM regi_enqu_exclusions
|
||||
WHERE regi_code = p_regi_code
|
||||
AND adit_code = p_adit_code;
|
||||
EXCEPTION
|
||||
WHEN no_data_found THEN
|
||||
NULL;
|
||||
END;
|
||||
|
||||
RETURN(CASE l_rec_found WHEN 0 THEN TRUE ELSE FALSE END);
|
||||
|
||||
END addon_allowed;
|
||||
|
||||
FUNCTION addons_allowed(p_enqu_id IN enquiries.id%TYPE
|
||||
,p_tab_messages IN OUT t_tab_messages)
|
||||
RETURN BOOLEAN IS
|
||||
l_amr_required enquiries.amr_required%TYPE;
|
||||
l_ems_required enquiries.ems_required%TYPE;
|
||||
l_bypass_required enquiries.bypass_required%TYPE;
|
||||
l_postcode enquiries.install_postcode%TYPE;
|
||||
l_regi_code regions.code%TYPE;
|
||||
l_valid BOOLEAN DEFAULT TRUE;
|
||||
BEGIN
|
||||
|
||||
SELECT enqu.amr_required
|
||||
,enqu.ems_required
|
||||
,enqu.bypass_required
|
||||
,enqu.install_postcode
|
||||
INTO l_amr_required
|
||||
,l_ems_required
|
||||
,l_bypass_required
|
||||
,l_postcode
|
||||
FROM enquiries enqu
|
||||
WHERE id = p_enqu_id;
|
||||
|
||||
l_regi_code := mip_regions.get_region_for_postcode(p_postcode => l_postcode);
|
||||
IF l_amr_required = 'YES'
|
||||
AND NOT addon_allowed(p_adit_code => 'AMR'
|
||||
,p_regi_code => l_regi_code) THEN
|
||||
l_valid := FALSE;
|
||||
al('Tripartite agreement prevents AMR being requested.'
|
||||
,p_tab_messages);
|
||||
END IF;
|
||||
IF l_ems_required = 'YES'
|
||||
AND NOT addon_allowed(p_adit_code => 'EMS'
|
||||
,p_regi_code => l_regi_code) THEN
|
||||
l_valid := FALSE;
|
||||
al('Tripartite agreement prevents EMS being requested.'
|
||||
,p_tab_messages);
|
||||
END IF;
|
||||
IF l_bypass_required = 'YES'
|
||||
AND NOT addon_allowed(p_adit_code => 'BYPASS'
|
||||
,p_regi_code => l_regi_code) THEN
|
||||
l_valid := FALSE;
|
||||
al('Tripartite agreement prevents Bypass being requested.'
|
||||
,p_tab_messages);
|
||||
END IF;
|
||||
|
||||
RETURN l_valid;
|
||||
END addons_allowed;
|
||||
|
||||
FUNCTION valid_enquiry(p_enqu_id IN enquiries.id%TYPE
|
||||
,p_tab_messages OUT t_tab_messages) RETURN BOOLEAN IS
|
||||
l_tab_messages t_tab_messages;
|
||||
l_valid BOOLEAN DEFAULT TRUE;
|
||||
BEGIN
|
||||
IF NOT enquiry_allowed(p_enqu_id => p_enqu_id) THEN
|
||||
al('Tripartite agreement prevents this enquiry being processed.'
|
||||
,l_tab_messages);
|
||||
l_valid := FALSE;
|
||||
ELSE
|
||||
l_valid := addons_allowed(p_enqu_id => p_enqu_id
|
||||
,p_tab_messages => l_tab_messages);
|
||||
END IF;
|
||||
|
||||
p_tab_messages := l_tab_messages;
|
||||
|
||||
RETURN l_valid;
|
||||
|
||||
END valid_enquiry;
|
||||
|
||||
BEGIN
|
||||
-- Initialization
|
||||
NULL;
|
||||
END mip_tripartite;
|
||||
/
|
||||
Reference in New Issue
Block a user