Changes made following test of the training environment.

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

Data/BulkLoad/LeadTimes.csv

@@ -0,0 +1,18 @@
+Enquiry,Type of Meter,To Meter Size,Service Pressure Type,
+ENTY_CODE,METY_CODE,MESC_CODE,SVCPT_CODE,LEAD_TIME
+INSTALL,DIAPHRAGM,U25,LP,10
+INSTALL,DIAPHRAGM,U65,LP,15
+INSTALL,DIAPHRAGM,U160,LP,20
+INSTALL,DIAPHRAGM,U25,MP,15
+INSTALL,DIAPHRAGM,U65,MP,20
+INSTALL,DIAPHRAGM,U160,MP,30
+INSTALL,ROTARY,,LP,20
+INSTALL,ROTARY,,MP,30
+REMOVE,DIAPHRAGM,U25,LP,10
+REMOVE,DIAPHRAGM,U160,LP,15
+REMOVE,DIAPHRAGM,U25,MP,10
+REMOVE,DIAPHRAGM,U160,MP,15
+REMOVE,ROTARY,,LP,15
+REMOVE,ROTARY,,MP,15
+REMOVE,TURBINE,,LP,15
+REMOVE,TURBINE,,MP,15

Modules/mip_quotation.pck

@@ -1159,7 +1159,7 @@ RECEIVED AT THIS ADDRESS CANNOT BE RESPONDED TO.');
                             ,p_reason               IN quote_reasoning.reason%TYPE
                             ,p_internal_or_external IN quote_reasoning.internal_or_external%TYPE DEFAULT gc_external_reason) IS
   BEGIN
-  
+    pl('add_quote_reason:' || p_enqu_id || ':' || p_reason);
     INSERT INTO quote_reasoning
       (enqu_id
       ,reason
@@ -1510,7 +1510,7 @@ RECEIVED AT THIS ADDRESS CANNOT BE RESPONDED TO.');
     RETURN t_rec_additional_costs IS
     l_rec_costs t_rec_additional_costs;
   BEGIN
-    pl('get_aico');
+    pl('get_aico:' || p_adit_code || ':' || p_regi_code);
     SELECT lead_time
           ,selling_price
           ,cost_price
@@ -1545,11 +1545,16 @@ RECEIVED AT THIS ADDRESS CANNOT BE RESPONDED TO.');
      WHERE adit.code = cost.adit_code
        AND adit.code = p_adit_code;
   
+    pl('get_aico:exit');
     RETURN l_rec_costs;
   
   EXCEPTION
     WHEN no_data_found THEN
+      pl('get_aico:exit:NDF');
       RETURN l_rec_costs;
+    WHEN OTHERS THEN
+      pl('get_aico:exit:' || SQLERRM);
+      RAISE;
   END get_aico;
 
   FUNCTION get_laco(p_enty_code IN enquiry_types.code%TYPE
@@ -1610,6 +1615,8 @@ RECEIVED AT THIS ADDRESS CANNOT BE RESPONDED TO.');
     l_days NUMBER;
   BEGIN
   
+    pl('get_lead_time:' || p_enty_code || ':' || p_mety_code || ':' ||
+       p_svcp_code || ':' || p_qmax);
     SELECT days
       INTO l_days
       FROM (SELECT enty_code
@@ -1630,11 +1637,16 @@ RECEIVED AT THIS ADDRESS CANNOT BE RESPONDED TO.');
        AND ((v.svcp_code = p_svcp_code) OR
             (v.svcp_code IS NULL AND p_svcp_code IS NULL));
   
+    pl('get_lead_time:exit:' || l_days);
     RETURN l_days;
   
   EXCEPTION
     WHEN no_data_found THEN
+      pl('get_lead_time:exit:NDF');
       RETURN NULL;
+    WHEN OTHERS THEN
+      pl('get_lead_time:exit:' || SQLERRM);
+      RAISE;
   END get_lead_time;
 
   PROCEDURE produce_module_quotes(p_enqu                      IN t_enqu
@@ -2180,6 +2192,7 @@ RECEIVED AT THIS ADDRESS CANNOT BE RESPONDED TO.');
     
     END IF;
   
+    pl('produce_module_quotes:exit');
   END produce_module_quotes;
 
   PROCEDURE produce_install_quotes(p_enqu                      IN t_enqu
@@ -2202,6 +2215,7 @@ RECEIVED AT THIS ADDRESS CANNOT BE RESPONDED TO.');
                          ,p_owner_prty_id             => p_owner_prty_id
                          ,p_manual_or_automatic_quote => p_manual_or_automatic_quote);
   
+    pl('produce_install_quotes:exit');
   END produce_install_quotes;
 
   PROCEDURE produce_exchange_quotes(p_enqu                      IN t_enqu
@@ -2676,6 +2690,7 @@ RECEIVED AT THIS ADDRESS CANNOT BE RESPONDED TO.');
       cout_err.report_and_stop(p_exception_message => 'Attempted to produce automatic quote for unexpected enquiry type of ' ||
                                                       p_enqu.enty_code);
     END IF;
+    pl('produce_automatic_quotes:exit');
   END produce_automatic_quotes;
 
   PROCEDURE produce_quotes(p_enqu_id       IN enquiries.id%TYPE