create or replace package body UOIDgenerator AS
 function createNewUOID
 return varchar2
 IS
   uoids VARCHAR2(4000) := '';
   temp VARCHAR2(40);
   BEGIN
     for i in 1..100 LOOP
       select sys_guid() into temp from dual;
       uoids := uoids || ':' || temp;
     END LOOP;
     return uoids;
   END createNewUOID;
END UOIDgenerator;