create or replace procedure ajax_test4 is
begin
  htp.p('
  <script type="text/javascript" language="javascript">
    function makeRequest(url) {
    //
    // This javascript function makes the connection
    // to the server to execute a script
    //
        var httpRequest;

        if (window.XMLHttpRequest) 
        { // Mozilla, Safari, ...
            //alert("Create a new httpRequest for Mozilla");
            httpRequest = new XMLHttpRequest();
            if (httpRequest.overrideMimeType) 
            { httpRequest.overrideMimeType(''text/xml''); }
        } 
        else if (window.ActiveXObject) 
        { // IE
            //alert("Create a new httpRequest for IE");
            try {httpRequest = new ActiveXObject("Msxml2.XMLHTTP"); } 
                catch (e) 
                { try {httpRequest = new ActiveXObject("Microsoft.XMLHTTP"); } 
                  catch (e) {}
                }
        }
        if (!httpRequest) 
         {
            alert(''Giving up :( Cannot create an XMLHTTP instance'');
            return false;
         }
        httpRequest.onreadystatechange = function() { alertContents(httpRequest); };
        httpRequest.open(''GET'', url, true);
        httpRequest.send(null);

    }  //end function makeRequest(url)

    function alertContents(httpRequest) 
    {
    //
    // This function collects the response from the server
    // and puts it into a form variable
    //
       if (httpRequest.readyState == 4) 
       {
         if (httpRequest.status == 200) 
          {
           if (httpRequest.responseText == "Valid\n")
            { alert("A valid response was returned"); }
           else
            { document.loadme.f_emp_lname.value = httpRequest.responseText; 
              //alert(httpRequest.responseText); 
            }
           //document.loadme.f_emp_lname.value = httpRequest.responseText;
          } 
         else 
          {
            alert(''There was a problem with the request.'');
          }
        }
    }  //end function alertContents(httpRequest)
    
function checkName(p_emp_id)
{
  //
  // This function executes the makeRequest function that connects to the
  // server, executes the URL.
  //
  url = ''/pls/portal/pickcreator.ajax_procedure?p_emp_id='' + p_emp_id;
    //alert("URL is " + url);
    makeRequest(url);
}  //end function checkName(input)
</script>

<!--  This portion creates the form and runs the query when the EMP_ID field is exited -->
<form name="loadme">
EMP_ID:  <input type="text" name="f_emp_id" onblur="makeRequest(''/pls/portal/itcreator.ajax_procedure?p_emp_id='' + f_emp_id.value)"><br>
EMP_LNAME: <input type="text" name="f_emp_lname">
</form>

  ');
  
end ajax_test4;

create or replace procedure ajax_procedure(p_emp_id in varchar2 default null) is

   v_emp_id    itcreator.employees.emp_id%TYPE;
   v_emp_name  itcreator.employees.emp_lname%TYPE;
   
begin
  
  if p_emp_id is NULL then 
     v_emp_id := '09357';
  else
     v_emp_id := p_emp_id;
  end if;
  
     select emp_lname||', '||emp_fname 
     into   v_emp_name
     from  employees 
     where emp_id = v_emp_id;

  htp.p(v_emp_name);
  
end ajax_procedure;