Address #408, Tripartite region check.

Address #422, Missing mandatory fields when meter model selected. Removed Popup LOV with AJAX select lists. Supporred by mip_select_xml.pck)


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

Modules/mip_tripartite.pck

@@ -68,6 +68,18 @@ END mip_tripartite;
 /
 CREATE OR REPLACE PACKAGE BODY mip_tripartite IS
 
+  PROCEDURE pl(p_in   VARCHAR2
+              ,p_line IN NUMBER DEFAULT NULL) IS
+  BEGIN
+    NULL;
+    /*  $IF mip_debug_constants.debugging OR mip_debug_constants.tripartite 
+    $THEN*/
+    mip_debug.pl(p_unit => $$PLSQL_UNIT
+                ,p_line => p_line
+                ,p_in   => p_in);
+    /*  $END*/
+  END pl;
+
   PROCEDURE al(p_in           IN VARCHAR2
               ,p_tab_messages IN OUT t_tab_messages) IS
   BEGIN
@@ -78,6 +90,8 @@ CREATE OR REPLACE PACKAGE BODY mip_tripartite IS
     l_regi_code regions.code%TYPE;
     l_rec_found NUMBER DEFAULT 0;
   BEGIN
+    pl('tripartite_region:entry:' || p_postcode
+      ,$$PLSQL_LINE);
   
     cout_assert.istrue(mip_regions.valid_postcode_format(p_postcode => p_postcode)
                       ,'Invalid Postcode format');
@@ -88,20 +102,33 @@ CREATE OR REPLACE PACKAGE BODY mip_tripartite IS
       SELECT 1
         INTO l_rec_found
         FROM regi_enqu_exclusions reee
-       WHERE reee.regi_code = l_regi_code;
+       WHERE reee.regi_code = l_regi_code
+         AND rownum < 2;
     EXCEPTION
       WHEN no_data_found THEN
         NULL;
     END;
   
+    pl('tripartite_region:exit:' || CASE l_rec_found WHEN 0 THEN 'FALSE' ELSE
+       'TRUE' END
+      ,$$PLSQL_LINE);
+  
     RETURN(CASE l_rec_found WHEN 0 THEN FALSE ELSE TRUE END);
   
+  EXCEPTION
+    WHEN OTHERS THEN
+      pl('tripartite_region:EXCEPTION:' || SQLERRM
+        ,$$PLSQL_LINE);
+      RAISE;
   END tripartite_region;
 
   FUNCTION tripartite_member(p_supp_prty_id IN parties.id%TYPE)
     RETURN BOOLEAN IS
     l_rec_found NUMBER DEFAULT 0;
   BEGIN
+    pl('tripartite_member:entry:' || p_supp_prty_id
+      ,$$PLSQL_LINE);
+  
     BEGIN
       SELECT 1
         INTO l_rec_found
@@ -113,6 +140,10 @@ CREATE OR REPLACE PACKAGE BODY mip_tripartite IS
         NULL;
     END;
   
+    pl('tripartite_member:exit:' || CASE l_rec_found WHEN 0 THEN 'FALSE' ELSE
+       'TRUE' END
+      ,$$PLSQL_LINE);
+  
     RETURN(CASE l_rec_found WHEN 0 THEN FALSE ELSE TRUE END);
   
   END tripartite_member;