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;
314: -- close off the packages
315: add_body_line('end '||l_package_name||';');
316: add_header_line('end '||l_package_name||';');
317: -- build the neader
318: l_csr_sql := dbms_sql.open_cursor;
319: dbms_sql.parse( l_csr_sql, l_header,0,i-1,FALSE, dbms_sql.v7 );
320: l_rows := dbms_sql.execute( l_csr_sql );
321: dbms_sql.close_cursor( l_csr_sql );
322: -- for k in 0..j loop
315: add_body_line('end '||l_package_name||';');
316: add_header_line('end '||l_package_name||';');
317: -- build the neader
318: l_csr_sql := dbms_sql.open_cursor;
319: dbms_sql.parse( l_csr_sql, l_header,0,i-1,FALSE, dbms_sql.v7 );
320: l_rows := dbms_sql.execute( l_csr_sql );
321: dbms_sql.close_cursor( l_csr_sql );
322: -- for k in 0..j loop
323: -- dbms_output.put_line(l_body(k));
316: add_header_line('end '||l_package_name||';');
317: -- build the neader
318: l_csr_sql := dbms_sql.open_cursor;
319: dbms_sql.parse( l_csr_sql, l_header,0,i-1,FALSE, dbms_sql.v7 );
320: l_rows := dbms_sql.execute( l_csr_sql );
321: dbms_sql.close_cursor( l_csr_sql );
322: -- for k in 0..j loop
323: -- dbms_output.put_line(l_body(k));
324: -- end loop;
317: -- build the neader
318: l_csr_sql := dbms_sql.open_cursor;
319: dbms_sql.parse( l_csr_sql, l_header,0,i-1,FALSE, dbms_sql.v7 );
320: l_rows := dbms_sql.execute( l_csr_sql );
321: dbms_sql.close_cursor( l_csr_sql );
322: -- for k in 0..j loop
323: -- dbms_output.put_line(l_body(k));
324: -- end loop;
325: -- build the body
322: -- for k in 0..j loop
323: -- dbms_output.put_line(l_body(k));
324: -- end loop;
325: -- build the body
326: l_csr_sql := dbms_sql.open_cursor;
327: dbms_sql.parse( l_csr_sql, l_body,0,j-1,FALSE, dbms_sql.v7 );
328: l_rows := dbms_sql.execute( l_csr_sql );
329: dbms_sql.close_cursor( l_csr_sql );
330: end create_business_event_code;
323: -- dbms_output.put_line(l_body(k));
324: -- end loop;
325: -- build the body
326: l_csr_sql := dbms_sql.open_cursor;
327: dbms_sql.parse( l_csr_sql, l_body,0,j-1,FALSE, dbms_sql.v7 );
328: l_rows := dbms_sql.execute( l_csr_sql );
329: dbms_sql.close_cursor( l_csr_sql );
330: end create_business_event_code;
331: --
324: -- end loop;
325: -- build the body
326: l_csr_sql := dbms_sql.open_cursor;
327: dbms_sql.parse( l_csr_sql, l_body,0,j-1,FALSE, dbms_sql.v7 );
328: l_rows := dbms_sql.execute( l_csr_sql );
329: dbms_sql.close_cursor( l_csr_sql );
330: end create_business_event_code;
331: --
332: procedure subscribe_business_event_code(p_hook_package varchar2
325: -- build the body
326: l_csr_sql := dbms_sql.open_cursor;
327: dbms_sql.parse( l_csr_sql, l_body,0,j-1,FALSE, dbms_sql.v7 );
328: l_rows := dbms_sql.execute( l_csr_sql );
329: dbms_sql.close_cursor( l_csr_sql );
330: end create_business_event_code;
331: --
332: procedure subscribe_business_event_code(p_hook_package varchar2
333: ,p_regenerate boolean) is