create or replace package body pkg_nkw_sdv
timestamp '2006-07-07:10:10:10'
is
   ------------------------------------------------------------------
   -- 2006 DataPRO Developers - m@urelio
   ------------------------------------------------------------------
   -- Version: 2.0.2
   ------------------------------------------------------------------
   -- Collections, Records, Variables, Constants, Exceptions, Cursors
   ------------------------------------------------------------------
   gv_sdvc1 constant varchar2(256) := 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' ||
                                      'ÁÀÂÃÄÉÈÊËÍÌÎÏÓÒÔÕÖÚÙÛÜÇ' ||
                                      '1234567890' ||
                                      '!@#$%&*()'' _"+-=/|\?,[.]{;}<:>';
   gv_sdvc2 constant varchar2(256) := 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' ||
                                      'ÁÀÂÃÄÉÈÊËÍÌÎÏÓÒÔÕÖÚÙÛÜÇ' ||
                                      'abcdefghijklmnopqrstuvwxyz' ||
                                      'áàâãäéèêëíìîïóòôõöúùûüç' ||
                                      '1234567890' ||
                                      '~!@#$%^&*()'' _"+-=/|\?,[.]{;}<:>ªº' || chr(10);
   gv_sdvc3 constant varchar2(256) := 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' ||
                                      '1234567890';
   ------------------------------------------------------------------
   ----------------------- Private Section --------------------------
   ------------------------------------------------------------------
   ------------------------------------------------------------------
   ------------------------ Public Section --------------------------
   ------------------------------------------------------------------
   ------------------------------------------------------------------
   -- IS_SDV
   ------------------------------------------------------------------
   function is_sdv(fv_value in date,
                   fv_std   in varchar2)
      return boolean
   is
      retval boolean := (FALSE);
   begin
      if (fv_value is not null) then
         if (upper(fv_std) = 'D1') then
            if (fv_value >= to_date('01/01/0001','dd/mm/yyyy') and
                fv_value = trunc(fv_value)) then
                   retval := (TRUE);
            end if;
         elsif (upper(fv_std) = 'D2') then
            if (fv_value >= to_date('01/01/0001','dd/mm/yyyy')) then
               retval := (TRUE);
            end if;
         elsif (upper(fv_std) = 'D3') then
            if (fv_value = trunc(fv_value)) then
               retval := (TRUE);
            end if;
         elsif (upper(fv_std) = 'D4') then
            retval := (TRUE);
         end if;
      else
         retval := (TRUE);
      end if;
      return retval;
      exception
         when others then raise;
   end is_sdv;
   ------------------------------------------------------------------
   function is_sdv(fv_value in number,
                   fv_std   in varchar2)
      return boolean
   is
      retval boolean := (FALSE);
   begin
      if (fv_value is not null) then
         if (upper(fv_std) = 'N1') then
            if (fv_value = trunc(fv_value) and fv_value >= 0) then
               retval := (TRUE);
            end if;
         elsif (upper(fv_std) = 'N2') then
            if (fv_value = trunc(fv_value)) then
               retval := (TRUE);
            end if;
         elsif (upper(fv_std) = 'N3') then
            if (fv_value >= 0) then
               retval := (TRUE);
            end if;
         elsif (upper(fv_std) = 'N4') then
            retval := (TRUE);
         end if;
      else
         retval := (TRUE);
      end if;
      return retval;
      exception
         when others then raise;
   end is_sdv;
   ------------------------------------------------------------------
   function is_sdv(fv_value in varchar2,
                   fv_std   in varchar2)
      return boolean
   is
      retval boolean := (FALSE);
   begin
      if (fv_value is not null) then
         if (upper(fv_std) = 'C1') then
            if (nvl(length(replace(translate(fv_value, gv_sdvc1, 'A'),'A','')),0) = 0 and
                ltrim(fv_value) = fv_value and rtrim(fv_value) = fv_value) then
                  retval := (TRUE);
            end if;
         elsif (upper(fv_std) = 'C2') then
            if (nvl(length(replace(translate(fv_value, gv_sdvc2, 'A'),'A','')),0) = 0) then
               retval := (TRUE);
            end if;
         elsif (upper(fv_std) = 'C3') then
            if (nvl(length(replace(translate(fv_value, gv_sdvc3, 'A'),'A','')),0) = 0 and
                ltrim(fv_value) = fv_value and rtrim(fv_value) = fv_value and
                substr(fv_value,1,1) between 'A' and 'Z') then
                  retval := (TRUE);
            end if;
         end if;
      else
         retval := (TRUE);
      end if;
      return retval;
      exception
         when others then raise;
   end is_sdv;
end pkg_nkw_sdv;
/
show errors