CREATE OR REPLACE PROCEDURE insertar_avisos_emt (usuarios VARCHAR2,aviso VARCHAR2,remLentext VARCHAR2,usuario VARCHAR2,seq NUMBER,fecha DATE)
AS
temp NUMBER;
LONG NUMBER;
avisow VARCHAR2(2048);
BEGIN
avisow:=aviso;
temp:=0;
htp.print('
Redireccionado
');
LONG:=LENGTH(avisow);
WHILE temp>=0 LOOP
IF SUBSTR(avisow,1,1) IS NULL THEN
avisow:=SUBSTR(avisow,2,LONG);
ELSE
temp:=-1;
END IF;
END LOOP;
INSERT INTO AVISOS_EMT VALUES(seq,avisow,fecha,usuarios,usuario,'N');
htp.print('');
END;
/