194: EXECUTE IMMEDIATE ('declare '||p_statement) using out business_group_id;
195:
196: else
197:
198: sql_cur := dbms_sql.open_cursor;
199: --
200: -- Added by exjones
201: begin
202: dbms_sql.parse(sql_cur,
198: sql_cur := dbms_sql.open_cursor;
199: --
200: -- Added by exjones
201: begin
202: dbms_sql.parse(sql_cur,
203: p_statement,
204: dbms_sql.v7);
205: exception
206: when others then
200: -- Added by exjones
201: begin
202: dbms_sql.parse(sql_cur,
203: p_statement,
204: dbms_sql.v7);
205: exception
206: when others then
207: hr_utility.trace('pay_core_utils.get_business_group post dbms_sql.parse exception');
208: dbms_sql.close_cursor(sql_cur);
203: p_statement,
204: dbms_sql.v7);
205: exception
206: when others then
207: hr_utility.trace('pay_core_utils.get_business_group post dbms_sql.parse exception');
208: dbms_sql.close_cursor(sql_cur);
209: return NULL;
210: end;
211: --
204: dbms_sql.v7);
205: exception
206: when others then
207: hr_utility.trace('pay_core_utils.get_business_group post dbms_sql.parse exception');
208: dbms_sql.close_cursor(sql_cur);
209: return NULL;
210: end;
211: --
212: dbms_sql.define_column(sql_cur, 1, business_group_id);
208: dbms_sql.close_cursor(sql_cur);
209: return NULL;
210: end;
211: --
212: dbms_sql.define_column(sql_cur, 1, business_group_id);
213: ignore := dbms_sql.execute(sql_cur);
214: if dbms_sql.fetch_rows(sql_cur) > 0 then
215: dbms_sql.column_value(sql_cur, 1, business_group_id);
216: else
209: return NULL;
210: end;
211: --
212: dbms_sql.define_column(sql_cur, 1, business_group_id);
213: ignore := dbms_sql.execute(sql_cur);
214: if dbms_sql.fetch_rows(sql_cur) > 0 then
215: dbms_sql.column_value(sql_cur, 1, business_group_id);
216: else
217: business_group_id := null;
210: end;
211: --
212: dbms_sql.define_column(sql_cur, 1, business_group_id);
213: ignore := dbms_sql.execute(sql_cur);
214: if dbms_sql.fetch_rows(sql_cur) > 0 then
215: dbms_sql.column_value(sql_cur, 1, business_group_id);
216: else
217: business_group_id := null;
218: end if;
211: --
212: dbms_sql.define_column(sql_cur, 1, business_group_id);
213: ignore := dbms_sql.execute(sql_cur);
214: if dbms_sql.fetch_rows(sql_cur) > 0 then
215: dbms_sql.column_value(sql_cur, 1, business_group_id);
216: else
217: business_group_id := null;
218: end if;
219: dbms_sql.close_cursor(sql_cur);
215: dbms_sql.column_value(sql_cur, 1, business_group_id);
216: else
217: business_group_id := null;
218: end if;
219: dbms_sql.close_cursor(sql_cur);
220: end if;
221: end if;
222: --
223: if (g_traces) then
226: return business_group_id;
227: --
228: exception
229: when others then
230: if dbms_sql.is_open(sql_cur) then
231: dbms_sql.close_cursor(sql_cur);
232: end if;
233: raise;
234: end get_business_group;
227: --
228: exception
229: when others then
230: if dbms_sql.is_open(sql_cur) then
231: dbms_sql.close_cursor(sql_cur);
232: end if;
233: raise;
234: end get_business_group;
235: --
292: EXECUTE IMMEDIATE ('declare '||p_statement) using out business_group_id;
293:
294: else
295:
296: sql_cur := dbms_sql.open_cursor;
297: --
298: -- Added by exjones
299: begin
300: dbms_sql.parse(sql_cur,
296: sql_cur := dbms_sql.open_cursor;
297: --
298: -- Added by exjones
299: begin
300: dbms_sql.parse(sql_cur,
301: p_statement,
302: dbms_sql.v7);
303: exception
304: when others then
298: -- Added by exjones
299: begin
300: dbms_sql.parse(sql_cur,
301: p_statement,
302: dbms_sql.v7);
303: exception
304: when others then
305: dbms_sql.close_cursor(sql_cur);
306: return NULL;
301: p_statement,
302: dbms_sql.v7);
303: exception
304: when others then
305: dbms_sql.close_cursor(sql_cur);
306: return NULL;
307: end;
308: --
309: dbms_sql.define_column(sql_cur, 1, business_group_id);
305: dbms_sql.close_cursor(sql_cur);
306: return NULL;
307: end;
308: --
309: dbms_sql.define_column(sql_cur, 1, business_group_id);
310: ignore := dbms_sql.execute(sql_cur);
311: if dbms_sql.fetch_rows(sql_cur) > 0 then
312: dbms_sql.column_value(sql_cur, 1, business_group_id);
313: else
306: return NULL;
307: end;
308: --
309: dbms_sql.define_column(sql_cur, 1, business_group_id);
310: ignore := dbms_sql.execute(sql_cur);
311: if dbms_sql.fetch_rows(sql_cur) > 0 then
312: dbms_sql.column_value(sql_cur, 1, business_group_id);
313: else
314: business_group_id := null;
307: end;
308: --
309: dbms_sql.define_column(sql_cur, 1, business_group_id);
310: ignore := dbms_sql.execute(sql_cur);
311: if dbms_sql.fetch_rows(sql_cur) > 0 then
312: dbms_sql.column_value(sql_cur, 1, business_group_id);
313: else
314: business_group_id := null;
315: end if;
308: --
309: dbms_sql.define_column(sql_cur, 1, business_group_id);
310: ignore := dbms_sql.execute(sql_cur);
311: if dbms_sql.fetch_rows(sql_cur) > 0 then
312: dbms_sql.column_value(sql_cur, 1, business_group_id);
313: else
314: business_group_id := null;
315: end if;
316: dbms_sql.close_cursor(sql_cur);
312: dbms_sql.column_value(sql_cur, 1, business_group_id);
313: else
314: business_group_id := null;
315: end if;
316: dbms_sql.close_cursor(sql_cur);
317:
318: end if;
319:
320: g_business_group_id := business_group_id;
328: return g_business_group_id;
329: --
330: exception
331: when others then
332: if dbms_sql.is_open(sql_cur) then
333: dbms_sql.close_cursor(sql_cur);
334: end if;
335: raise;
336: end get_dyt_business_group;
329: --
330: exception
331: when others then
332: if dbms_sql.is_open(sql_cur) then
333: dbms_sql.close_cursor(sql_cur);
334: end if;
335: raise;
336: end get_dyt_business_group;
337: --
463: :time_def_id);
464: end;
465: ';
466: --
467: sql_cursor := dbms_sql.open_cursor;
468: --
469: dbms_sql.parse(sql_cursor, statem, dbms_sql.v7);
470: --
471: --
465: ';
466: --
467: sql_cursor := dbms_sql.open_cursor;
468: --
469: dbms_sql.parse(sql_cursor, statem, dbms_sql.v7);
470: --
471: --
472: dbms_sql.bind_variable(sql_cursor, 'element_entry_id', p_element_entry);
473: --
468: --
469: dbms_sql.parse(sql_cursor, statem, dbms_sql.v7);
470: --
471: --
472: dbms_sql.bind_variable(sql_cursor, 'element_entry_id', p_element_entry);
473: --
474: dbms_sql.bind_variable(sql_cursor, 'assignment_id', l_asg_id);
475: --
476: dbms_sql.bind_variable(sql_cursor, 'assignment_action_id', p_asg_act_id);
470: --
471: --
472: dbms_sql.bind_variable(sql_cursor, 'element_entry_id', p_element_entry);
473: --
474: dbms_sql.bind_variable(sql_cursor, 'assignment_id', l_asg_id);
475: --
476: dbms_sql.bind_variable(sql_cursor, 'assignment_action_id', p_asg_act_id);
477: --
478: dbms_sql.bind_variable(sql_cursor, 'business_group_id', l_bus_grp_id);
472: dbms_sql.bind_variable(sql_cursor, 'element_entry_id', p_element_entry);
473: --
474: dbms_sql.bind_variable(sql_cursor, 'assignment_id', l_asg_id);
475: --
476: dbms_sql.bind_variable(sql_cursor, 'assignment_action_id', p_asg_act_id);
477: --
478: dbms_sql.bind_variable(sql_cursor, 'business_group_id', l_bus_grp_id);
479: --
480: dbms_sql.bind_variable(sql_cursor, 'time_def_id', p_time_def_id);
474: dbms_sql.bind_variable(sql_cursor, 'assignment_id', l_asg_id);
475: --
476: dbms_sql.bind_variable(sql_cursor, 'assignment_action_id', p_asg_act_id);
477: --
478: dbms_sql.bind_variable(sql_cursor, 'business_group_id', l_bus_grp_id);
479: --
480: dbms_sql.bind_variable(sql_cursor, 'time_def_id', p_time_def_id);
481: --
482: l_rows := dbms_sql.execute (sql_cursor);
476: dbms_sql.bind_variable(sql_cursor, 'assignment_action_id', p_asg_act_id);
477: --
478: dbms_sql.bind_variable(sql_cursor, 'business_group_id', l_bus_grp_id);
479: --
480: dbms_sql.bind_variable(sql_cursor, 'time_def_id', p_time_def_id);
481: --
482: l_rows := dbms_sql.execute (sql_cursor);
483: --
484: if (l_rows = 1) then
478: dbms_sql.bind_variable(sql_cursor, 'business_group_id', l_bus_grp_id);
479: --
480: dbms_sql.bind_variable(sql_cursor, 'time_def_id', p_time_def_id);
481: --
482: l_rows := dbms_sql.execute (sql_cursor);
483: --
484: if (l_rows = 1) then
485: dbms_sql.variable_value(sql_cursor, 'time_def_id',
486: p_time_def_id);
481: --
482: l_rows := dbms_sql.execute (sql_cursor);
483: --
484: if (l_rows = 1) then
485: dbms_sql.variable_value(sql_cursor, 'time_def_id',
486: p_time_def_id);
487: dbms_sql.close_cursor(sql_cursor);
488: --
489: else
483: --
484: if (l_rows = 1) then
485: dbms_sql.variable_value(sql_cursor, 'time_def_id',
486: p_time_def_id);
487: dbms_sql.close_cursor(sql_cursor);
488: --
489: else
490: p_time_def_id := null;
491: dbms_sql.close_cursor(sql_cursor);
487: dbms_sql.close_cursor(sql_cursor);
488: --
489: else
490: p_time_def_id := null;
491: dbms_sql.close_cursor(sql_cursor);
492: end if;
493: --
494: end get_time_definition;
495: --
1923: end loop;
1924: --
1925: if not l_found then
1926: begin
1927: l_sql_cur := dbms_sql.open_cursor;
1928: dbms_sql.parse(l_sql_cur,
1929: p_statement,
1930: dbms_sql.v7);
1931: l_found := TRUE;
1924: --
1925: if not l_found then
1926: begin
1927: l_sql_cur := dbms_sql.open_cursor;
1928: dbms_sql.parse(l_sql_cur,
1929: p_statement,
1930: dbms_sql.v7);
1931: l_found := TRUE;
1932: --
1926: begin
1927: l_sql_cur := dbms_sql.open_cursor;
1928: dbms_sql.parse(l_sql_cur,
1929: p_statement,
1930: dbms_sql.v7);
1931: l_found := TRUE;
1932: --
1933: l_cnt := g_sql_cursors.count + 1;
1934: g_sql_cursors(l_cnt).statement := p_statement;
1935: g_sql_cursors(l_cnt).sql_cur := l_sql_cur;
1936: --
1937: exception
1938: when others then
1939: if dbms_sql.is_open(l_sql_cur) then
1940: dbms_sql.close_cursor(l_sql_cur);
1941: end if;
1942: end;
1943: --
1936: --
1937: exception
1938: when others then
1939: if dbms_sql.is_open(l_sql_cur) then
1940: dbms_sql.close_cursor(l_sql_cur);
1941: end if;
1942: end;
1943: --
1944: end if;
1956: l_cnt number;
1957: begin
1958: --
1959: for l_cnt in 1..g_sql_cursors.count loop
1960: if dbms_sql.is_open(g_sql_cursors(l_cnt).sql_cur) then
1961: dbms_sql.close_cursor(g_sql_cursors(l_cnt).sql_cur);
1962: end if;
1963: end loop;
1964: --
1957: begin
1958: --
1959: for l_cnt in 1..g_sql_cursors.count loop
1960: if dbms_sql.is_open(g_sql_cursors(l_cnt).sql_cur) then
1961: dbms_sql.close_cursor(g_sql_cursors(l_cnt).sql_cur);
1962: end if;
1963: end loop;
1964: --
1965: g_sql_cursors.delete;
1973: --
1974: for l_cnt in 1..g_sql_cursors.count loop
1975: if g_sql_cursors(l_cnt).sql_cur = p_sql_cur then
1976: --
1977: if dbms_sql.is_open(g_sql_cursors(l_cnt).sql_cur) then
1978: dbms_sql.close_cursor(g_sql_cursors(l_cnt).sql_cur);
1979: end if;
1980: g_sql_cursors.delete(l_cnt);
1981: --
1974: for l_cnt in 1..g_sql_cursors.count loop
1975: if g_sql_cursors(l_cnt).sql_cur = p_sql_cur then
1976: --
1977: if dbms_sql.is_open(g_sql_cursors(l_cnt).sql_cur) then
1978: dbms_sql.close_cursor(g_sql_cursors(l_cnt).sql_cur);
1979: end if;
1980: g_sql_cursors.delete(l_cnt);
1981: --
1982: end if;