Committed prior to FAT testing

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

InstallMIP.cmd

@@ -111,7 +111,7 @@ cd Data\live
 call InstallData %3/%4@%5
 @echo Installed live data
 @echo Installing live application in APEX...
-ruby apex_auto_install.rb %3
+ruby apex_auto_install.rb %3 MIP
 cd ..\..
 
 @echo live install Complete

Modules/mip_quotation.pck

@@ -659,6 +659,7 @@ CREATE OR REPLACE PACKAGE BODY mip_quotation IS
 
   PROCEDURE open_body IS
   BEGIN
+    pl('open_body:entry');
     dbms_lob.createtemporary(lob_loc => g_email_plain_body
                             ,cache   => TRUE);
     dbms_lob.OPEN(lob_loc   => g_email_plain_body
@@ -677,6 +678,7 @@ CREATE OR REPLACE PACKAGE BODY mip_quotation IS
 RECEIVED AT THIS ADDRESS CANNOT BE RESPONDED TO.');
     al(' ');
     al(' ');
+    pl('open_body:exit');
   END open_body;
 
   FUNCTION get_quote_row(p_qute_id IN quotes.id%TYPE) RETURN t_quote_row IS
@@ -856,6 +858,10 @@ RECEIVED AT THIS ADDRESS CANNOT BE RESPONDED TO.');
     BEGIN
       l_agent_prty_id := mip_enquiry.get_enquiry_role(p_enquiryid => p_enqu_id
                                                      ,p_rolecode  => 'ENQ OWN');
+    
+      pl('l_agent_prty_id=' || l_agent_prty_id
+        ,$$PLSQL_LINE);
+    
     EXCEPTION
       WHEN OTHERS THEN
         pl('mip_enquiry.get_enquiry_role returned ' || SQLERRM
@@ -863,6 +869,7 @@ RECEIVED AT THIS ADDRESS CANNOT BE RESPONDED TO.');
         RAISE;
     END;
   
+    BEGIN
       SELECT agent_comt_code
             ,comt.description
             ,agent_contact_value
@@ -873,6 +880,12 @@ RECEIVED AT THIS ADDRESS CANNOT BE RESPONDED TO.');
             ,contact_mechanism_types comt
        WHERE enquiries.id = p_enqu_id
          AND comt.code = enquiries.agent_comt_code;
+    EXCEPTION
+      WHEN OTHERS THEN
+        pl('email_to_agent:' || SQLERRM
+          ,$$PLSQL_LINE);
+        RAISE;
+    END;
   
     open_body;
   
@@ -894,6 +907,9 @@ RECEIVED AT THIS ADDRESS CANNOT BE RESPONDED TO.');
       al(' ');
     END IF;
   
+    pl('l_email_recipient=' || l_email_recipient
+      ,$$PLSQL_LINE);
+  
     IF p_email_reason = gc_agent_q_sel_notification THEN
       --Scenario one: Automatic quote generation notification
       l_email_subject := get_system_name || ': Automatic Quote Selected';