declare
s varchar2(1000);

  function I2of5(p_data_to_encode    varchar2) return varchar2
/***************************************************************************
** I2of5 will return the properly formatted string for a Interleaved 2of5 **
** barcode.                                                               **
** specification string.                                                  **
** Parameters : p_data_to_encode : Data to be encoded                     **
****************************************************************************/
is

startCode                    varchar2(1)  := chr(203);
endCode                      varchar2(1)  := chr(204);

onlyCorrectData              varchar2(4000);  -- Make it big enough to handle any string
weightedTotal                number := 0;     -- Used for calculating Check Digit
check_digit                  number;          -- Check digit variable
currentCharNum               number;          -- Temp character variable
printableString              varchar2(4000);  -- Variable to hold encoded string
printableStringAsHex varchar2(4000) := '';
begin

-- Only keep numbers; Leading and Trailing spaces will be removed as well
onlyCorrectData := p_data_to_encode;
/*
for i in 1..length(p_data_to_encode)
loop
  if is_number(substr(p_data_to_encode,i,1)) then
    onlyCorrectData := onlyCorrectData || substr(p_data_to_encode,i,1);
  end if;
end loop;
*/

-- Check to make sure there is an even number of characters
-- If not then prepend a "0"
if mod(length(onlyCorrectData),2) = 1 then
  onlyCorrectData := '0'||onlyCorrectData;
end if;

printableString := '';
for i in 1..length(onlyCorrectData)
loop
  -- Only execute this loop every second time eg. when i = 1,3,5,7, etc...
  if mod(i,2) = 1 then
    currentCharNum := to_number(substr(onlyCorrectData,i,2));
  -- Get the ASCII Value of the current char according to chart
  if currentCharNum < 94  then
     printableString := printableString || chr(currentCharNum + 33); 
     printableStringAsHex := printableStringAsHex || to_char(currentCharNum + 33, 'FMXX' ); 
     end if;
  if currentCharNum >= 94 then 
    printableString := printableString || chr(currentCharNum + 103); 
    printableStringAsHex := printableStringAsHex || to_char(currentCharNum + 103, 'FMXX' ); 
    end if;
  end if; -- mod(i,2)
end loop;

-- return startCode || printableString || endCode|| ' ';
return to_char(203,'FMXX') || printableStringAsHex || to_char(204,'FMXX') || '20';
end I2of5;

begin
  s := I2of5(p_data_to_encode=>'46110243811992298764' ); 
  dbms_output.put_line( '=======' );
  dbms_output.put_line( s );
  dbms_output.put_line( utl_raw.cast_to_varchar2( hextoraw(s) ) );
end;