From 374ba0aee9ef90d41c634bbe3b8cf24f745393a5 Mon Sep 17 00:00:00 2001
From: PriestJ <PriestJ@248e525c-4dfb-0310-94bc-949c084e9493>
Date: Tue, 22 Jan 2008 17:08:03 +0000
Subject: [PATCH] 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 | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)

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