added function to get enquiry status, intend to use it to make enquiry read only

git-svn-id: http://locode01.ad.dom/svn/WEBMIP/trunk@3345 248e525c-4dfb-0310-94bc-949c084e9493

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