RMS EAN 13 clarification

Good morning,

     I have a quick question where one of our client wants EAN act like UPC. Our current RMS instance only has the ability to auto generate a 13 digit EAN (12 digits plus the final number being the check digit).

     We would like to modify RMS to create a UPC using the EAN logic. RMS is creating a 13-digit EAN instead of 12-digit UPC. It is adding an extra “0” (zero) to the company’s UPC-prefix.

     Below is the piece of code from the package which tells you the final output:

     O_ean13 := L_system_options.auto_ean13_prefix * 1000000;

      select EAN13_SEQ.NEXTVAL