From 8e4a27db73372fde4dd1365da5dbd56e253750e7 Mon Sep 17 00:00:00 2001
From: Matthew Hasbach <hasbach.git@gmail.com>
Date: Wed, 13 May 2015 18:00:45 -0400
Subject: [PATCH] Added string_util_pkg.is_str_alpha

---
 ora/string_util_pkg.pkb | 22 ++++++++++++++++++++++
 ora/string_util_pkg.pks |  3 +++
 2 files changed, 25 insertions(+)

diff --git a/ora/string_util_pkg.pkb b/ora/string_util_pkg.pkb
index de009e6..9ba05ca 100755
--- a/ora/string_util_pkg.pkb
+++ b/ora/string_util_pkg.pkb
@@ -487,6 +487,28 @@ begin
 end remove_non_alpha_chars;
 
 
+function is_str_alpha (p_str in varchar2) return boolean
+as
+  l_returnvalue boolean;
+begin
+
+  /*
+  
+  Purpose:    returns true if string only contains alpha characters
+  
+  Who     Date        Description
+  ------  ----------  -------------------------------------
+  MJH     12.05.2015  Created
+  
+  */
+
+  l_returnvalue := regexp_instr(p_str, '[^a-z|A-Z]') = 0;
+
+  return l_returnvalue;
+
+end is_str_alpha;
+  
+  
 function is_str_empty (p_str in varchar2) return boolean
 as
   l_returnvalue boolean;
diff --git a/ora/string_util_pkg.pks b/ora/string_util_pkg.pks
index 3fbc4db..62c0805 100755
--- a/ora/string_util_pkg.pks
+++ b/ora/string_util_pkg.pks
@@ -92,6 +92,9 @@ as
   -- remove all non-alpha characters (A-Z) from string
   function remove_non_alpha_chars (p_str in varchar2) return varchar2;
 
+  -- returns true if string only contains alpha characters
+  function is_str_alpha (p_str in varchar2) return boolean;  
+  
   -- returns true if string is "empty" (contains only whitespace characters)
   function is_str_empty (p_str in varchar2) return boolean;