diff --git a/ora/string_util_pkg.pkb b/ora/string_util_pkg.pkb
index de009e6..2be224a 100755
--- a/ora/string_util_pkg.pkb
+++ b/ora/string_util_pkg.pkb
@@ -557,6 +557,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 3fbc4db..32561a9 100755
--- a/ora/string_util_pkg.pks
+++ b/ora/string_util_pkg.pks
@@ -100,6 +100,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,