FUNCTION getpath RETURN VARCHAR2 IS
  path 	VARCHAR2(255) := get_application_property(current_form);
  slash PLS_INTEGER;
BEGIN
   slash := instr(path, '\', -1);
    
  RETURN (substr(path, 1, slash));
END;