48: return l_package_name;
49: end get_package_name;
50: --
51: procedure create_business_event_code(p_hook_package varchar2) is
52: l_header dbms_sql.varchar2s;
53: l_body dbms_sql.varchar2s;
54: i number:=0;
55: j number:=0;
56: l_overload dbms_describe.number_table;
49: end get_package_name;
50: --
51: procedure create_business_event_code(p_hook_package varchar2) is
52: l_header dbms_sql.varchar2s;
53: l_body dbms_sql.varchar2s;
54: i number:=0;
55: j number:=0;
56: l_overload dbms_describe.number_table;
57: l_position dbms_describe.number_table;
316: -- close off the packages
317: add_body_line('end '||l_package_name||';');
318: add_header_line('end '||l_package_name||';');
319: -- build the neader
320: l_csr_sql := dbms_sql.open_cursor;
321: dbms_sql.parse( l_csr_sql, l_header,0,i-1,FALSE, dbms_sql.v7 );
322: l_rows := dbms_sql.execute( l_csr_sql );
323: dbms_sql.close_cursor( l_csr_sql );
324: -- for k in 0..j loop
317: add_body_line('end '||l_package_name||';');
318: add_header_line('end '||l_package_name||';');
319: -- build the neader
320: l_csr_sql := dbms_sql.open_cursor;
321: dbms_sql.parse( l_csr_sql, l_header,0,i-1,FALSE, dbms_sql.v7 );
322: l_rows := dbms_sql.execute( l_csr_sql );
323: dbms_sql.close_cursor( l_csr_sql );
324: -- for k in 0..j loop
325: -- dbms_output.put_line(l_body(k));
318: add_header_line('end '||l_package_name||';');
319: -- build the neader
320: l_csr_sql := dbms_sql.open_cursor;
321: dbms_sql.parse( l_csr_sql, l_header,0,i-1,FALSE, dbms_sql.v7 );
322: l_rows := dbms_sql.execute( l_csr_sql );
323: dbms_sql.close_cursor( l_csr_sql );
324: -- for k in 0..j loop
325: -- dbms_output.put_line(l_body(k));
326: -- end loop;
319: -- build the neader
320: l_csr_sql := dbms_sql.open_cursor;
321: dbms_sql.parse( l_csr_sql, l_header,0,i-1,FALSE, dbms_sql.v7 );
322: l_rows := dbms_sql.execute( l_csr_sql );
323: dbms_sql.close_cursor( l_csr_sql );
324: -- for k in 0..j loop
325: -- dbms_output.put_line(l_body(k));
326: -- end loop;
327: -- build the body
324: -- for k in 0..j loop
325: -- dbms_output.put_line(l_body(k));
326: -- end loop;
327: -- build the body
328: l_csr_sql := dbms_sql.open_cursor;
329: dbms_sql.parse( l_csr_sql, l_body,0,j-1,FALSE, dbms_sql.v7 );
330: l_rows := dbms_sql.execute( l_csr_sql );
331: dbms_sql.close_cursor( l_csr_sql );
332: end create_business_event_code;
325: -- dbms_output.put_line(l_body(k));
326: -- end loop;
327: -- build the body
328: l_csr_sql := dbms_sql.open_cursor;
329: dbms_sql.parse( l_csr_sql, l_body,0,j-1,FALSE, dbms_sql.v7 );
330: l_rows := dbms_sql.execute( l_csr_sql );
331: dbms_sql.close_cursor( l_csr_sql );
332: end create_business_event_code;
333: --
326: -- end loop;
327: -- build the body
328: l_csr_sql := dbms_sql.open_cursor;
329: dbms_sql.parse( l_csr_sql, l_body,0,j-1,FALSE, dbms_sql.v7 );
330: l_rows := dbms_sql.execute( l_csr_sql );
331: dbms_sql.close_cursor( l_csr_sql );
332: end create_business_event_code;
333: --
334: procedure subscribe_business_event_code(p_hook_package varchar2
327: -- build the body
328: l_csr_sql := dbms_sql.open_cursor;
329: dbms_sql.parse( l_csr_sql, l_body,0,j-1,FALSE, dbms_sql.v7 );
330: l_rows := dbms_sql.execute( l_csr_sql );
331: dbms_sql.close_cursor( l_csr_sql );
332: end create_business_event_code;
333: --
334: procedure subscribe_business_event_code(p_hook_package varchar2
335: ,p_regenerate boolean) is