180: --
181: if (g_cache_business_group) then
182: business_group_id := get_dyt_business_group(p_statement);
183: else
184: sql_cur := dbms_sql.open_cursor;
185: --
186: -- Added by exjones
187: begin
188: dbms_sql.parse(sql_cur,
184: sql_cur := dbms_sql.open_cursor;
185: --
186: -- Added by exjones
187: begin
188: dbms_sql.parse(sql_cur,
189: p_statement,
190: dbms_sql.v7);
191: exception
192: when others then
186: -- Added by exjones
187: begin
188: dbms_sql.parse(sql_cur,
189: p_statement,
190: dbms_sql.v7);
191: exception
192: when others then
193: dbms_sql.close_cursor(sql_cur);
194: return NULL;
189: p_statement,
190: dbms_sql.v7);
191: exception
192: when others then
193: dbms_sql.close_cursor(sql_cur);
194: return NULL;
195: end;
196: --
197: dbms_sql.define_column(sql_cur, 1, business_group_id);
193: dbms_sql.close_cursor(sql_cur);
194: return NULL;
195: end;
196: --
197: dbms_sql.define_column(sql_cur, 1, business_group_id);
198: ignore := dbms_sql.execute(sql_cur);
199: if dbms_sql.fetch_rows(sql_cur) > 0 then
200: dbms_sql.column_value(sql_cur, 1, business_group_id);
201: else
194: return NULL;
195: end;
196: --
197: dbms_sql.define_column(sql_cur, 1, business_group_id);
198: ignore := dbms_sql.execute(sql_cur);
199: if dbms_sql.fetch_rows(sql_cur) > 0 then
200: dbms_sql.column_value(sql_cur, 1, business_group_id);
201: else
202: business_group_id := null;
195: end;
196: --
197: dbms_sql.define_column(sql_cur, 1, business_group_id);
198: ignore := dbms_sql.execute(sql_cur);
199: if dbms_sql.fetch_rows(sql_cur) > 0 then
200: dbms_sql.column_value(sql_cur, 1, business_group_id);
201: else
202: business_group_id := null;
203: end if;
196: --
197: dbms_sql.define_column(sql_cur, 1, business_group_id);
198: ignore := dbms_sql.execute(sql_cur);
199: if dbms_sql.fetch_rows(sql_cur) > 0 then
200: dbms_sql.column_value(sql_cur, 1, business_group_id);
201: else
202: business_group_id := null;
203: end if;
204: dbms_sql.close_cursor(sql_cur);
200: dbms_sql.column_value(sql_cur, 1, business_group_id);
201: else
202: business_group_id := null;
203: end if;
204: dbms_sql.close_cursor(sql_cur);
205: end if;
206: --
207: if (g_traces) then
208: hr_utility.trace('pay_core_utils.get_business_group_id '||business_group_id);
210: return business_group_id;
211: --
212: exception
213: when others then
214: if dbms_sql.is_open(sql_cur) then
215: dbms_sql.close_cursor(sql_cur);
216: end if;
217: raise;
218: end get_business_group;
211: --
212: exception
213: when others then
214: if dbms_sql.is_open(sql_cur) then
215: dbms_sql.close_cursor(sql_cur);
216: end if;
217: raise;
218: end get_business_group;
219: --
235: begin
236: --
237: if (g_business_group_id is null) then
238:
239: sql_cur := dbms_sql.open_cursor;
240: --
241: -- Added by exjones
242: begin
243: dbms_sql.parse(sql_cur,
239: sql_cur := dbms_sql.open_cursor;
240: --
241: -- Added by exjones
242: begin
243: dbms_sql.parse(sql_cur,
244: p_statement,
245: dbms_sql.v7);
246: exception
247: when others then
241: -- Added by exjones
242: begin
243: dbms_sql.parse(sql_cur,
244: p_statement,
245: dbms_sql.v7);
246: exception
247: when others then
248: dbms_sql.close_cursor(sql_cur);
249: return NULL;
244: p_statement,
245: dbms_sql.v7);
246: exception
247: when others then
248: dbms_sql.close_cursor(sql_cur);
249: return NULL;
250: end;
251: --
252: dbms_sql.define_column(sql_cur, 1, business_group_id);
248: dbms_sql.close_cursor(sql_cur);
249: return NULL;
250: end;
251: --
252: dbms_sql.define_column(sql_cur, 1, business_group_id);
253: ignore := dbms_sql.execute(sql_cur);
254: if dbms_sql.fetch_rows(sql_cur) > 0 then
255: dbms_sql.column_value(sql_cur, 1, business_group_id);
256: else
249: return NULL;
250: end;
251: --
252: dbms_sql.define_column(sql_cur, 1, business_group_id);
253: ignore := dbms_sql.execute(sql_cur);
254: if dbms_sql.fetch_rows(sql_cur) > 0 then
255: dbms_sql.column_value(sql_cur, 1, business_group_id);
256: else
257: business_group_id := null;
250: end;
251: --
252: dbms_sql.define_column(sql_cur, 1, business_group_id);
253: ignore := dbms_sql.execute(sql_cur);
254: if dbms_sql.fetch_rows(sql_cur) > 0 then
255: dbms_sql.column_value(sql_cur, 1, business_group_id);
256: else
257: business_group_id := null;
258: end if;
251: --
252: dbms_sql.define_column(sql_cur, 1, business_group_id);
253: ignore := dbms_sql.execute(sql_cur);
254: if dbms_sql.fetch_rows(sql_cur) > 0 then
255: dbms_sql.column_value(sql_cur, 1, business_group_id);
256: else
257: business_group_id := null;
258: end if;
259: dbms_sql.close_cursor(sql_cur);
255: dbms_sql.column_value(sql_cur, 1, business_group_id);
256: else
257: business_group_id := null;
258: end if;
259: dbms_sql.close_cursor(sql_cur);
260:
261: g_business_group_id := business_group_id;
262:
263: end if;
268: return g_business_group_id;
269: --
270: exception
271: when others then
272: if dbms_sql.is_open(sql_cur) then
273: dbms_sql.close_cursor(sql_cur);
274: end if;
275: raise;
276: end get_dyt_business_group;
269: --
270: exception
271: when others then
272: if dbms_sql.is_open(sql_cur) then
273: dbms_sql.close_cursor(sql_cur);
274: end if;
275: raise;
276: end get_dyt_business_group;
277: --
371: :time_def_id);
372: end;
373: ';
374: --
375: sql_cursor := dbms_sql.open_cursor;
376: --
377: dbms_sql.parse(sql_cursor, statem, dbms_sql.v7);
378: --
379: --
373: ';
374: --
375: sql_cursor := dbms_sql.open_cursor;
376: --
377: dbms_sql.parse(sql_cursor, statem, dbms_sql.v7);
378: --
379: --
380: dbms_sql.bind_variable(sql_cursor, 'element_entry_id', p_element_entry);
381: --
376: --
377: dbms_sql.parse(sql_cursor, statem, dbms_sql.v7);
378: --
379: --
380: dbms_sql.bind_variable(sql_cursor, 'element_entry_id', p_element_entry);
381: --
382: dbms_sql.bind_variable(sql_cursor, 'assignment_id', l_asg_id);
383: --
384: dbms_sql.bind_variable(sql_cursor, 'assignment_action_id', p_asg_act_id);
378: --
379: --
380: dbms_sql.bind_variable(sql_cursor, 'element_entry_id', p_element_entry);
381: --
382: dbms_sql.bind_variable(sql_cursor, 'assignment_id', l_asg_id);
383: --
384: dbms_sql.bind_variable(sql_cursor, 'assignment_action_id', p_asg_act_id);
385: --
386: dbms_sql.bind_variable(sql_cursor, 'business_group_id', l_bus_grp_id);
380: dbms_sql.bind_variable(sql_cursor, 'element_entry_id', p_element_entry);
381: --
382: dbms_sql.bind_variable(sql_cursor, 'assignment_id', l_asg_id);
383: --
384: dbms_sql.bind_variable(sql_cursor, 'assignment_action_id', p_asg_act_id);
385: --
386: dbms_sql.bind_variable(sql_cursor, 'business_group_id', l_bus_grp_id);
387: --
388: dbms_sql.bind_variable(sql_cursor, 'time_def_id', p_time_def_id);
382: dbms_sql.bind_variable(sql_cursor, 'assignment_id', l_asg_id);
383: --
384: dbms_sql.bind_variable(sql_cursor, 'assignment_action_id', p_asg_act_id);
385: --
386: dbms_sql.bind_variable(sql_cursor, 'business_group_id', l_bus_grp_id);
387: --
388: dbms_sql.bind_variable(sql_cursor, 'time_def_id', p_time_def_id);
389: --
390: l_rows := dbms_sql.execute (sql_cursor);
384: dbms_sql.bind_variable(sql_cursor, 'assignment_action_id', p_asg_act_id);
385: --
386: dbms_sql.bind_variable(sql_cursor, 'business_group_id', l_bus_grp_id);
387: --
388: dbms_sql.bind_variable(sql_cursor, 'time_def_id', p_time_def_id);
389: --
390: l_rows := dbms_sql.execute (sql_cursor);
391: --
392: if (l_rows = 1) then
386: dbms_sql.bind_variable(sql_cursor, 'business_group_id', l_bus_grp_id);
387: --
388: dbms_sql.bind_variable(sql_cursor, 'time_def_id', p_time_def_id);
389: --
390: l_rows := dbms_sql.execute (sql_cursor);
391: --
392: if (l_rows = 1) then
393: dbms_sql.variable_value(sql_cursor, 'time_def_id',
394: p_time_def_id);
389: --
390: l_rows := dbms_sql.execute (sql_cursor);
391: --
392: if (l_rows = 1) then
393: dbms_sql.variable_value(sql_cursor, 'time_def_id',
394: p_time_def_id);
395: dbms_sql.close_cursor(sql_cursor);
396: --
397: else
391: --
392: if (l_rows = 1) then
393: dbms_sql.variable_value(sql_cursor, 'time_def_id',
394: p_time_def_id);
395: dbms_sql.close_cursor(sql_cursor);
396: --
397: else
398: p_time_def_id := null;
399: dbms_sql.close_cursor(sql_cursor);
395: dbms_sql.close_cursor(sql_cursor);
396: --
397: else
398: p_time_def_id := null;
399: dbms_sql.close_cursor(sql_cursor);
400: end if;
401: --
402: end get_time_definition;
403: --
1810: end loop;
1811: --
1812: if not l_found then
1813: begin
1814: l_sql_cur := dbms_sql.open_cursor;
1815: dbms_sql.parse(l_sql_cur,
1816: p_statement,
1817: dbms_sql.v7);
1818: l_found := TRUE;
1811: --
1812: if not l_found then
1813: begin
1814: l_sql_cur := dbms_sql.open_cursor;
1815: dbms_sql.parse(l_sql_cur,
1816: p_statement,
1817: dbms_sql.v7);
1818: l_found := TRUE;
1819: --
1813: begin
1814: l_sql_cur := dbms_sql.open_cursor;
1815: dbms_sql.parse(l_sql_cur,
1816: p_statement,
1817: dbms_sql.v7);
1818: l_found := TRUE;
1819: --
1820: l_cnt := g_sql_cursors.count + 1;
1821: g_sql_cursors(l_cnt).statement := p_statement;
1822: g_sql_cursors(l_cnt).sql_cur := l_sql_cur;
1823: --
1824: exception
1825: when others then
1826: if dbms_sql.is_open(l_sql_cur) then
1827: dbms_sql.close_cursor(l_sql_cur);
1828: end if;
1829: end;
1830: --
1823: --
1824: exception
1825: when others then
1826: if dbms_sql.is_open(l_sql_cur) then
1827: dbms_sql.close_cursor(l_sql_cur);
1828: end if;
1829: end;
1830: --
1831: end if;
1843: l_cnt number;
1844: begin
1845: --
1846: for l_cnt in 1..g_sql_cursors.count loop
1847: if dbms_sql.is_open(g_sql_cursors(l_cnt).sql_cur) then
1848: dbms_sql.close_cursor(g_sql_cursors(l_cnt).sql_cur);
1849: end if;
1850: end loop;
1851: --
1844: begin
1845: --
1846: for l_cnt in 1..g_sql_cursors.count loop
1847: if dbms_sql.is_open(g_sql_cursors(l_cnt).sql_cur) then
1848: dbms_sql.close_cursor(g_sql_cursors(l_cnt).sql_cur);
1849: end if;
1850: end loop;
1851: --
1852: g_sql_cursors.delete;
1860: --
1861: for l_cnt in 1..g_sql_cursors.count loop
1862: if g_sql_cursors(l_cnt).sql_cur = p_sql_cur then
1863: --
1864: if dbms_sql.is_open(g_sql_cursors(l_cnt).sql_cur) then
1865: dbms_sql.close_cursor(g_sql_cursors(l_cnt).sql_cur);
1866: end if;
1867: g_sql_cursors.delete(l_cnt);
1868: --
1861: for l_cnt in 1..g_sql_cursors.count loop
1862: if g_sql_cursors(l_cnt).sql_cur = p_sql_cur then
1863: --
1864: if dbms_sql.is_open(g_sql_cursors(l_cnt).sql_cur) then
1865: dbms_sql.close_cursor(g_sql_cursors(l_cnt).sql_cur);
1866: end if;
1867: g_sql_cursors.delete(l_cnt);
1868: --
1869: end if;