diff --git a/Modules/MIP_ENQUIRY.pck b/Modules/MIP_ENQUIRY.pck index 6e7ed38..a8d03d7 100644 --- a/Modules/MIP_ENQUIRY.pck +++ b/Modules/MIP_ENQUIRY.pck @@ -7,6 +7,8 @@ CREATE OR REPLACE PACKAGE mip_enquiry IS -- -- Public function and procedure declarations + FUNCTION get_enquiry_status(p_enquiryid IN NUMBER) RETURN VARCHAR2; + FUNCTION get_enquiry_role(p_enquiryid IN NUMBER ,p_rolecode IN VARCHAR2) RETURN NUMBER; FUNCTION set_enquiry_role(p_enquiryid IN NUMBER @@ -50,6 +52,29 @@ CREATE OR REPLACE PACKAGE mip_enquiry IS END mip_enquiry; / CREATE OR REPLACE PACKAGE BODY mip_enquiry IS + /* + FUNCTION get_enquiry_status + - This function returns the status of the enquiry provided + %param p_enquiryid - the enquiry we want to find the role from. + %return varchar2 - the current status of the enquiry + */ + FUNCTION get_enquiry_status(p_enquiryid IN NUMBER) RETURN VARCHAR2 AS + -- cursor to get the current enquiry + CURSOR c_get_enquiry_status(cp_enqu_id number) IS + SELECT enst_code + FROM v_current_enquiry_status + WHERE enqu_id=cp_enqu_id; + l_enqu_status varchar2(80); + BEGIN + IF NOT c_get_enquiry_status%ISOPEN THEN + OPEN c_get_enquiry_status(p_enquiryid); + END IF; + + FETCH c_get_enquiry_status + INTO l_enqu_status; + CLOSE c_get_enquiry_status; + return nvl(l_enqu_status,''); + END get_enquiry_status; /* FUNCTION get_enquiry_role - This function finds the enquiry and the role specified and returns the