ACS3 Data Model

     1: function mobin_function_definition (function_name IN varchar2)
     2: return varchar2
     3: IS
     4: 	CURSOR fn_line_cursor IS
     5: 		select Text from USER_SOURCE
     6: 		where Name = upper(function_name)
     7: 		and Type = 'FUNCTION'
     8: 		order by Line;
     9: 	fn_line		varchar(500);
    10: 	fn_total	varchar(4000);
    11: BEGIN
    12: 	OPEN fn_line_cursor;
    13: 	LOOP
    14: 		FETCH fn_line_cursor INTO fn_line;
    15: 		EXIT WHEN fn_line_cursor%NOTFOUND;
    16: 		fn_total := CONCAT(fn_total,fn_line);
    17: 	END LOOP;
    18: 	return fn_total;
    19: 
    20: END;