DECLARE bas, c1 VARCHAR(50);
DECLARE fin int DEFAULT FALSE;
DECLARE cur1 CURSOR FOR SELECT specific_name from information_schema.routines where routine_schema= bas;
DECLARE CONTINUE HANDLER FOR NOT FOUND SET fin = TRUE;

SET bas=’bayes’;

DROP TABLE IF EXISTS dependencias;
CREATE TABLE dependencias (a varchar(50), b varchar(50));
OPEN cur1;
rulo1: LOOP
FETCH cur1 INTO c1;
IF fin THEN
LEAVE rulo1;
END IF;
BLOCK2: BEGIN
DECLARE can int;
DECLARE c2,cad varchar(50);
DECLARE fin int DEFAULT FALSE;
DECLARE cur2 CURSOR FOR SELECT specific_name from information_schema.routines where routine_schema= bas;
DECLARE CONTINUE HANDLER FOR NOT FOUND SET fin = TRUE;
OPEN cur2;
rulo2: LOOP
FETCH cur2 INTO c2;
IF fin THEN
LEAVE rulo2;
END IF;
SET cad=CONCAT (‘%’,c2,'(%’);
SET can=(SELECT COUNT(*) FROM information_schema.routines WHERE Routine_Name = c1 AND routines.routine_definition LIKE cad AND Routine_Schema = bas);
IF c1!=c2 AND can>0 THEN
INSERT INTO dependencias values (c1,c2);
END IF;
END LOOP rulo2;
CLOSE cur2;
END BLOCK2;
END LOOP rulo1;
CLOSE cur1;
END BLOCK1