diff --git a/ora/string_util_pkg.pkb b/ora/string_util_pkg.pkb
index f6e048d..1d2e90e 100755
--- a/ora/string_util_pkg.pkb
+++ b/ora/string_util_pkg.pkb
@@ -579,6 +579,28 @@ begin
 end is_str_number;
 
 
+function is_str_integer (p_str in varchar2) return boolean
+as
+  l_returnvalue boolean;
+begin
+
+  /*
+
+  Purpose:    returns true if string is an integer
+
+  Who     Date        Description
+  ------  ----------  -------------------------------------
+  MJH     12.05.2015  Created
+  
+  */
+
+  l_returnvalue := regexp_instr(p_str, '[^0-9]') = 0;
+
+  return l_returnvalue;
+
+end is_str_integer;
+
+
 function short_str (p_str in varchar2,
                     p_length in number,
                     p_truncation_indicator in varchar2 := '...') return varchar2
diff --git a/ora/string_util_pkg.pks b/ora/string_util_pkg.pks
index a665e5d..6800abd 100755
--- a/ora/string_util_pkg.pks
+++ b/ora/string_util_pkg.pks
@@ -103,6 +103,9 @@ as
                           p_decimal_separator in varchar2 := null,
                           p_thousand_separator in varchar2 := null) return boolean;
 
+  -- returns true if string is an integer
+  function is_str_integer (p_str in varchar2) return boolean;
+
   -- returns substring and indicates if string has been truncated
   function short_str (p_str in varchar2,
                       p_length in number,