CREATE PROCEDURE INSERT_DOC
(IN IDTM BIGINT,
 IN FILENAMEDOC VARCHAR(250),
 IN FILEDOC BLOB(50M),
 IN ABOUTDOC VARCHAR(250),
 IN ACTIVEDOC INTEGER,
 IN TEXTDOC CLOB(500M),
 OUT ERR INTEGER)
P1: BEGIN
	declare IDDOC BIGINT default null;
	declare IDTD BIGINT default null;
	set ERR=100;
	select ID_DOC into IDDOC from NEW TABLE(insert into DOCUMENT (FILENAME_DOC,FILE_DOC,ABOUT_DOC,ACTIVE_DOC,TEXT_DOC) values(FILENAMEDOC,FILEDOC,ABOUTDOC,ACTIVEDOC,TEXTDOC));
	if IDDOC is not null
	then
		select ID_TD into IDTD from NEW TABLE(insert into TEMA_DOC(ID_TM_TD,ID_DOC_TD) values(IDTM,IDDOC));
		if IDTD is not null
		then
			set ERR=0;
			commit;
		else
			set ERR=2;
			rollback;
		end if;
	else
		set ERR=1;
		rollback;
	end if;
END P1