174: statem := 'BEGIN IF '||cur_name||'%ISOPEN THEN '||
175: 'pay_magtape_generic.boolean_flag := TRUE; '||
176: 'ELSE pay_magtape_generic.boolean_flag := FALSE;'||
177: ' END IF; END;';
178: sql_curs := dbms_sql.open_cursor;
179: dbms_sql.parse(sql_curs,
180: statem,
181: dbms_sql.v7);
182: rows_processed := dbms_sql.execute(sql_curs);
175: 'pay_magtape_generic.boolean_flag := TRUE; '||
176: 'ELSE pay_magtape_generic.boolean_flag := FALSE;'||
177: ' END IF; END;';
178: sql_curs := dbms_sql.open_cursor;
179: dbms_sql.parse(sql_curs,
180: statem,
181: dbms_sql.v7);
182: rows_processed := dbms_sql.execute(sql_curs);
183: dbms_sql.close_cursor(sql_curs);
177: ' END IF; END;';
178: sql_curs := dbms_sql.open_cursor;
179: dbms_sql.parse(sql_curs,
180: statem,
181: dbms_sql.v7);
182: rows_processed := dbms_sql.execute(sql_curs);
183: dbms_sql.close_cursor(sql_curs);
184: if g_debug then
185: hr_utility.trace('Exiting pay_magtape_generic.curs_is_open');
178: sql_curs := dbms_sql.open_cursor;
179: dbms_sql.parse(sql_curs,
180: statem,
181: dbms_sql.v7);
182: rows_processed := dbms_sql.execute(sql_curs);
183: dbms_sql.close_cursor(sql_curs);
184: if g_debug then
185: hr_utility.trace('Exiting pay_magtape_generic.curs_is_open');
186: end if;
179: dbms_sql.parse(sql_curs,
180: statem,
181: dbms_sql.v7);
182: rows_processed := dbms_sql.execute(sql_curs);
183: dbms_sql.close_cursor(sql_curs);
184: if g_debug then
185: hr_utility.trace('Exiting pay_magtape_generic.curs_is_open');
186: end if;
187: return boolean_flag;
198: if g_debug then
199: hr_utility.trace('Entering pay_magtape_generic.curs_close');
200: end if;
201: statem := 'BEGIN CLOSE '||cur_name||'; '||'end;';
202: sql_curs := dbms_sql.open_cursor;
203: dbms_sql.parse(sql_curs,
204: statem,
205: dbms_sql.v7);
206: rows_processed := dbms_sql.execute(sql_curs);
199: hr_utility.trace('Entering pay_magtape_generic.curs_close');
200: end if;
201: statem := 'BEGIN CLOSE '||cur_name||'; '||'end;';
202: sql_curs := dbms_sql.open_cursor;
203: dbms_sql.parse(sql_curs,
204: statem,
205: dbms_sql.v7);
206: rows_processed := dbms_sql.execute(sql_curs);
207: dbms_sql.close_cursor(sql_curs);
201: statem := 'BEGIN CLOSE '||cur_name||'; '||'end;';
202: sql_curs := dbms_sql.open_cursor;
203: dbms_sql.parse(sql_curs,
204: statem,
205: dbms_sql.v7);
206: rows_processed := dbms_sql.execute(sql_curs);
207: dbms_sql.close_cursor(sql_curs);
208: if g_debug then
209: hr_utility.trace('Exiting pay_magtape_generic.curs_close');
202: sql_curs := dbms_sql.open_cursor;
203: dbms_sql.parse(sql_curs,
204: statem,
205: dbms_sql.v7);
206: rows_processed := dbms_sql.execute(sql_curs);
207: dbms_sql.close_cursor(sql_curs);
208: if g_debug then
209: hr_utility.trace('Exiting pay_magtape_generic.curs_close');
210: end if;
203: dbms_sql.parse(sql_curs,
204: statem,
205: dbms_sql.v7);
206: rows_processed := dbms_sql.execute(sql_curs);
207: dbms_sql.close_cursor(sql_curs);
208: if g_debug then
209: hr_utility.trace('Exiting pay_magtape_generic.curs_close');
210: end if;
211: end curs_close;
235: begin
236: if g_debug then
237: hr_utility.trace('Entering pay_magtape_generic.tab_is_open' || sql_cur(sql_pos));
238: end if;
239: res := dbms_sql.is_open(sql_cur(sql_pos));
240: if g_debug then
241: hr_utility.trace('Exiting pay_magtape_generic.tab_is_open');
242: end if;
243: return res;
296: statem := 'BEGIN IF '||cur_name||'%FOUND THEN '||
297: 'pay_magtape_generic.boolean_flag := FALSE; '||
298: 'ELSE pay_magtape_generic.boolean_flag := TRUE;'||
299: ' END IF; END;';
300: sql_curs := dbms_sql.open_cursor;
301: dbms_sql.parse(sql_curs,
302: statem,
303: dbms_sql.v7);
304: rows_processed := dbms_sql.execute(sql_curs);
297: 'pay_magtape_generic.boolean_flag := FALSE; '||
298: 'ELSE pay_magtape_generic.boolean_flag := TRUE;'||
299: ' END IF; END;';
300: sql_curs := dbms_sql.open_cursor;
301: dbms_sql.parse(sql_curs,
302: statem,
303: dbms_sql.v7);
304: rows_processed := dbms_sql.execute(sql_curs);
305: dbms_sql.close_cursor(sql_curs);
299: ' END IF; END;';
300: sql_curs := dbms_sql.open_cursor;
301: dbms_sql.parse(sql_curs,
302: statem,
303: dbms_sql.v7);
304: rows_processed := dbms_sql.execute(sql_curs);
305: dbms_sql.close_cursor(sql_curs);
306: if g_debug then
307: hr_utility.trace('Exiting pay_magtape_generic.curs_no_data');
300: sql_curs := dbms_sql.open_cursor;
301: dbms_sql.parse(sql_curs,
302: statem,
303: dbms_sql.v7);
304: rows_processed := dbms_sql.execute(sql_curs);
305: dbms_sql.close_cursor(sql_curs);
306: if g_debug then
307: hr_utility.trace('Exiting pay_magtape_generic.curs_no_data');
308: end if;
301: dbms_sql.parse(sql_curs,
302: statem,
303: dbms_sql.v7);
304: rows_processed := dbms_sql.execute(sql_curs);
305: dbms_sql.close_cursor(sql_curs);
306: if g_debug then
307: hr_utility.trace('Exiting pay_magtape_generic.curs_no_data');
308: end if;
309: return boolean_flag;
320: if g_debug then
321: hr_utility.trace('Entering pay_magtape_generic.curs_open');
322: end if;
323: statem := 'BEGIN OPEN '||cur_name||'; '||'end;';
324: sql_curs := dbms_sql.open_cursor;
325: dbms_sql.parse(sql_curs,
326: statem,
327: dbms_sql.v7);
328: rows_processed := dbms_sql.execute(sql_curs);
321: hr_utility.trace('Entering pay_magtape_generic.curs_open');
322: end if;
323: statem := 'BEGIN OPEN '||cur_name||'; '||'end;';
324: sql_curs := dbms_sql.open_cursor;
325: dbms_sql.parse(sql_curs,
326: statem,
327: dbms_sql.v7);
328: rows_processed := dbms_sql.execute(sql_curs);
329: dbms_sql.close_cursor(sql_curs);
323: statem := 'BEGIN OPEN '||cur_name||'; '||'end;';
324: sql_curs := dbms_sql.open_cursor;
325: dbms_sql.parse(sql_curs,
326: statem,
327: dbms_sql.v7);
328: rows_processed := dbms_sql.execute(sql_curs);
329: dbms_sql.close_cursor(sql_curs);
330: if g_debug then
331: hr_utility.trace('Exiting pay_magtape_generic.curs_open');
324: sql_curs := dbms_sql.open_cursor;
325: dbms_sql.parse(sql_curs,
326: statem,
327: dbms_sql.v7);
328: rows_processed := dbms_sql.execute(sql_curs);
329: dbms_sql.close_cursor(sql_curs);
330: if g_debug then
331: hr_utility.trace('Exiting pay_magtape_generic.curs_open');
332: end if;
325: dbms_sql.parse(sql_curs,
326: statem,
327: dbms_sql.v7);
328: rows_processed := dbms_sql.execute(sql_curs);
329: dbms_sql.close_cursor(sql_curs);
330: if g_debug then
331: hr_utility.trace('Exiting pay_magtape_generic.curs_open');
332: end if;
333: end curs_open;
375: cnt := cnt + 1;
376: end loop;
377: statem := statem||'; END;';
378: hr_utility.trace(statem);
379: sql_curs := dbms_sql.open_cursor;
380: dbms_sql.parse(sql_curs,
381: statem,
382: dbms_sql.v7);
383: rows_processed := dbms_sql.execute(sql_curs);
376: end loop;
377: statem := statem||'; END;';
378: hr_utility.trace(statem);
379: sql_curs := dbms_sql.open_cursor;
380: dbms_sql.parse(sql_curs,
381: statem,
382: dbms_sql.v7);
383: rows_processed := dbms_sql.execute(sql_curs);
384: dbms_sql.close_cursor(sql_curs);
378: hr_utility.trace(statem);
379: sql_curs := dbms_sql.open_cursor;
380: dbms_sql.parse(sql_curs,
381: statem,
382: dbms_sql.v7);
383: rows_processed := dbms_sql.execute(sql_curs);
384: dbms_sql.close_cursor(sql_curs);
385: if g_debug then
386: hr_utility.trace('Exiting pay_magtape_generic.curs_fetch');
379: sql_curs := dbms_sql.open_cursor;
380: dbms_sql.parse(sql_curs,
381: statem,
382: dbms_sql.v7);
383: rows_processed := dbms_sql.execute(sql_curs);
384: dbms_sql.close_cursor(sql_curs);
385: if g_debug then
386: hr_utility.trace('Exiting pay_magtape_generic.curs_fetch');
387: end if;
380: dbms_sql.parse(sql_curs,
381: statem,
382: dbms_sql.v7);
383: rows_processed := dbms_sql.execute(sql_curs);
384: dbms_sql.close_cursor(sql_curs);
385: if g_debug then
386: hr_utility.trace('Exiting pay_magtape_generic.curs_fetch');
387: end if;
388: end curs_fetch;
434: begin
435: if g_debug then
436: hr_utility.trace('Entering pay_magtape_generic.open_formula');
437: end if;
438: sql_cur := dbms_sql.open_cursor;
439: statem := 'select formula_id, next_block_id,'||
440: ' frequency, overflow_mode, '||
441: 'last_run_executed_mode, action_level ,'||
442: 'block_label,block_row_label,xml_proc_name,sequence '||
442: 'block_label,block_row_label,xml_proc_name,sequence '||
443: ' from pay_magnetic_records '||
444: 'where magnetic_block_id = '||block||
445: ' order by sequence';
446: dbms_sql.parse(sql_cur,
447: statem,
448: dbms_sql.v7);
449: dbms_sql.define_column(sql_cur, 1, formula_id);
450: dbms_sql.define_column(sql_cur, 2, formula_next_block);
444: 'where magnetic_block_id = '||block||
445: ' order by sequence';
446: dbms_sql.parse(sql_cur,
447: statem,
448: dbms_sql.v7);
449: dbms_sql.define_column(sql_cur, 1, formula_id);
450: dbms_sql.define_column(sql_cur, 2, formula_next_block);
451: dbms_sql.define_column(sql_cur, 3, formula_frequency);
452: dbms_sql.define_column(sql_cur, 4, formula_overflow, 1);
445: ' order by sequence';
446: dbms_sql.parse(sql_cur,
447: statem,
448: dbms_sql.v7);
449: dbms_sql.define_column(sql_cur, 1, formula_id);
450: dbms_sql.define_column(sql_cur, 2, formula_next_block);
451: dbms_sql.define_column(sql_cur, 3, formula_frequency);
452: dbms_sql.define_column(sql_cur, 4, formula_overflow, 1);
453: dbms_sql.define_column(sql_cur, 5, formula_inter_repeat, 1);
446: dbms_sql.parse(sql_cur,
447: statem,
448: dbms_sql.v7);
449: dbms_sql.define_column(sql_cur, 1, formula_id);
450: dbms_sql.define_column(sql_cur, 2, formula_next_block);
451: dbms_sql.define_column(sql_cur, 3, formula_frequency);
452: dbms_sql.define_column(sql_cur, 4, formula_overflow, 1);
453: dbms_sql.define_column(sql_cur, 5, formula_inter_repeat, 1);
454: dbms_sql.define_column(sql_cur, 6, formula_action_level, 1);
447: statem,
448: dbms_sql.v7);
449: dbms_sql.define_column(sql_cur, 1, formula_id);
450: dbms_sql.define_column(sql_cur, 2, formula_next_block);
451: dbms_sql.define_column(sql_cur, 3, formula_frequency);
452: dbms_sql.define_column(sql_cur, 4, formula_overflow, 1);
453: dbms_sql.define_column(sql_cur, 5, formula_inter_repeat, 1);
454: dbms_sql.define_column(sql_cur, 6, formula_action_level, 1);
455: dbms_sql.define_column(sql_cur, 7, formula_block_label,30);
448: dbms_sql.v7);
449: dbms_sql.define_column(sql_cur, 1, formula_id);
450: dbms_sql.define_column(sql_cur, 2, formula_next_block);
451: dbms_sql.define_column(sql_cur, 3, formula_frequency);
452: dbms_sql.define_column(sql_cur, 4, formula_overflow, 1);
453: dbms_sql.define_column(sql_cur, 5, formula_inter_repeat, 1);
454: dbms_sql.define_column(sql_cur, 6, formula_action_level, 1);
455: dbms_sql.define_column(sql_cur, 7, formula_block_label,30);
456: dbms_sql.define_column(sql_cur, 8, formula_block_row_label,30);
449: dbms_sql.define_column(sql_cur, 1, formula_id);
450: dbms_sql.define_column(sql_cur, 2, formula_next_block);
451: dbms_sql.define_column(sql_cur, 3, formula_frequency);
452: dbms_sql.define_column(sql_cur, 4, formula_overflow, 1);
453: dbms_sql.define_column(sql_cur, 5, formula_inter_repeat, 1);
454: dbms_sql.define_column(sql_cur, 6, formula_action_level, 1);
455: dbms_sql.define_column(sql_cur, 7, formula_block_label,30);
456: dbms_sql.define_column(sql_cur, 8, formula_block_row_label,30);
457: dbms_sql.define_column(sql_cur, 9, xml_proc_name,256);
450: dbms_sql.define_column(sql_cur, 2, formula_next_block);
451: dbms_sql.define_column(sql_cur, 3, formula_frequency);
452: dbms_sql.define_column(sql_cur, 4, formula_overflow, 1);
453: dbms_sql.define_column(sql_cur, 5, formula_inter_repeat, 1);
454: dbms_sql.define_column(sql_cur, 6, formula_action_level, 1);
455: dbms_sql.define_column(sql_cur, 7, formula_block_label,30);
456: dbms_sql.define_column(sql_cur, 8, formula_block_row_label,30);
457: dbms_sql.define_column(sql_cur, 9, xml_proc_name,256);
458: dbms_sql.define_column(sql_cur, 10, rec_sequence);
451: dbms_sql.define_column(sql_cur, 3, formula_frequency);
452: dbms_sql.define_column(sql_cur, 4, formula_overflow, 1);
453: dbms_sql.define_column(sql_cur, 5, formula_inter_repeat, 1);
454: dbms_sql.define_column(sql_cur, 6, formula_action_level, 1);
455: dbms_sql.define_column(sql_cur, 7, formula_block_label,30);
456: dbms_sql.define_column(sql_cur, 8, formula_block_row_label,30);
457: dbms_sql.define_column(sql_cur, 9, xml_proc_name,256);
458: dbms_sql.define_column(sql_cur, 10, rec_sequence);
459: ignore := dbms_sql.execute(sql_cur);
452: dbms_sql.define_column(sql_cur, 4, formula_overflow, 1);
453: dbms_sql.define_column(sql_cur, 5, formula_inter_repeat, 1);
454: dbms_sql.define_column(sql_cur, 6, formula_action_level, 1);
455: dbms_sql.define_column(sql_cur, 7, formula_block_label,30);
456: dbms_sql.define_column(sql_cur, 8, formula_block_row_label,30);
457: dbms_sql.define_column(sql_cur, 9, xml_proc_name,256);
458: dbms_sql.define_column(sql_cur, 10, rec_sequence);
459: ignore := dbms_sql.execute(sql_cur);
460: if g_debug then
453: dbms_sql.define_column(sql_cur, 5, formula_inter_repeat, 1);
454: dbms_sql.define_column(sql_cur, 6, formula_action_level, 1);
455: dbms_sql.define_column(sql_cur, 7, formula_block_label,30);
456: dbms_sql.define_column(sql_cur, 8, formula_block_row_label,30);
457: dbms_sql.define_column(sql_cur, 9, xml_proc_name,256);
458: dbms_sql.define_column(sql_cur, 10, rec_sequence);
459: ignore := dbms_sql.execute(sql_cur);
460: if g_debug then
461: hr_utility.trace('Exiting pay_magtape_generic.open_formula');
454: dbms_sql.define_column(sql_cur, 6, formula_action_level, 1);
455: dbms_sql.define_column(sql_cur, 7, formula_block_label,30);
456: dbms_sql.define_column(sql_cur, 8, formula_block_row_label,30);
457: dbms_sql.define_column(sql_cur, 9, xml_proc_name,256);
458: dbms_sql.define_column(sql_cur, 10, rec_sequence);
459: ignore := dbms_sql.execute(sql_cur);
460: if g_debug then
461: hr_utility.trace('Exiting pay_magtape_generic.open_formula');
462: end if;
455: dbms_sql.define_column(sql_cur, 7, formula_block_label,30);
456: dbms_sql.define_column(sql_cur, 8, formula_block_row_label,30);
457: dbms_sql.define_column(sql_cur, 9, xml_proc_name,256);
458: dbms_sql.define_column(sql_cur, 10, rec_sequence);
459: ignore := dbms_sql.execute(sql_cur);
460: if g_debug then
461: hr_utility.trace('Exiting pay_magtape_generic.open_formula');
462: end if;
463: return sql_cur;
507: begin
508: if g_debug then
509: hr_utility.trace('Entering pay_magtape_generic.intermediate_needed');
510: end if;
511: sql_cur := dbms_sql.open_cursor;
512: statem := 'select formula_id,next_block_id,'||
513: 'frequency,overflow_mode,'||
514: 'last_run_executed_mode,action_level,'||
515: 'block_label,block_row_label,xml_proc_name,sequence '||
516: 'from pay_magnetic_records '||
517: 'where magnetic_block_id='||block||
518: ' and last_run_executed_mode in (''R'',''A'',''F'')'||
519: ' order by sequence';
520: dbms_sql.parse(sql_cur,
521: statem,
522: dbms_sql.v7);
523: dbms_sql.define_column(sql_cur, 1, formula_id);
524: dbms_sql.define_column(sql_cur, 2, formula_next_block);
518: ' and last_run_executed_mode in (''R'',''A'',''F'')'||
519: ' order by sequence';
520: dbms_sql.parse(sql_cur,
521: statem,
522: dbms_sql.v7);
523: dbms_sql.define_column(sql_cur, 1, formula_id);
524: dbms_sql.define_column(sql_cur, 2, formula_next_block);
525: dbms_sql.define_column(sql_cur, 3, formula_frequency);
526: dbms_sql.define_column(sql_cur, 4, formula_overflow, 1);
519: ' order by sequence';
520: dbms_sql.parse(sql_cur,
521: statem,
522: dbms_sql.v7);
523: dbms_sql.define_column(sql_cur, 1, formula_id);
524: dbms_sql.define_column(sql_cur, 2, formula_next_block);
525: dbms_sql.define_column(sql_cur, 3, formula_frequency);
526: dbms_sql.define_column(sql_cur, 4, formula_overflow, 1);
527: dbms_sql.define_column(sql_cur, 5, formula_inter_repeat, 1);
520: dbms_sql.parse(sql_cur,
521: statem,
522: dbms_sql.v7);
523: dbms_sql.define_column(sql_cur, 1, formula_id);
524: dbms_sql.define_column(sql_cur, 2, formula_next_block);
525: dbms_sql.define_column(sql_cur, 3, formula_frequency);
526: dbms_sql.define_column(sql_cur, 4, formula_overflow, 1);
527: dbms_sql.define_column(sql_cur, 5, formula_inter_repeat, 1);
528: dbms_sql.define_column(sql_cur, 6, formula_action_level, 1);
521: statem,
522: dbms_sql.v7);
523: dbms_sql.define_column(sql_cur, 1, formula_id);
524: dbms_sql.define_column(sql_cur, 2, formula_next_block);
525: dbms_sql.define_column(sql_cur, 3, formula_frequency);
526: dbms_sql.define_column(sql_cur, 4, formula_overflow, 1);
527: dbms_sql.define_column(sql_cur, 5, formula_inter_repeat, 1);
528: dbms_sql.define_column(sql_cur, 6, formula_action_level, 1);
529: dbms_sql.define_column(sql_cur, 7, formula_block_label, 30);
522: dbms_sql.v7);
523: dbms_sql.define_column(sql_cur, 1, formula_id);
524: dbms_sql.define_column(sql_cur, 2, formula_next_block);
525: dbms_sql.define_column(sql_cur, 3, formula_frequency);
526: dbms_sql.define_column(sql_cur, 4, formula_overflow, 1);
527: dbms_sql.define_column(sql_cur, 5, formula_inter_repeat, 1);
528: dbms_sql.define_column(sql_cur, 6, formula_action_level, 1);
529: dbms_sql.define_column(sql_cur, 7, formula_block_label, 30);
530: dbms_sql.define_column(sql_cur, 8, formula_block_row_label, 30);
523: dbms_sql.define_column(sql_cur, 1, formula_id);
524: dbms_sql.define_column(sql_cur, 2, formula_next_block);
525: dbms_sql.define_column(sql_cur, 3, formula_frequency);
526: dbms_sql.define_column(sql_cur, 4, formula_overflow, 1);
527: dbms_sql.define_column(sql_cur, 5, formula_inter_repeat, 1);
528: dbms_sql.define_column(sql_cur, 6, formula_action_level, 1);
529: dbms_sql.define_column(sql_cur, 7, formula_block_label, 30);
530: dbms_sql.define_column(sql_cur, 8, formula_block_row_label, 30);
531: dbms_sql.define_column(sql_cur, 9, xml_proc_name, 256);
524: dbms_sql.define_column(sql_cur, 2, formula_next_block);
525: dbms_sql.define_column(sql_cur, 3, formula_frequency);
526: dbms_sql.define_column(sql_cur, 4, formula_overflow, 1);
527: dbms_sql.define_column(sql_cur, 5, formula_inter_repeat, 1);
528: dbms_sql.define_column(sql_cur, 6, formula_action_level, 1);
529: dbms_sql.define_column(sql_cur, 7, formula_block_label, 30);
530: dbms_sql.define_column(sql_cur, 8, formula_block_row_label, 30);
531: dbms_sql.define_column(sql_cur, 9, xml_proc_name, 256);
532: dbms_sql.define_column(sql_cur, 10, rec_sequence);
525: dbms_sql.define_column(sql_cur, 3, formula_frequency);
526: dbms_sql.define_column(sql_cur, 4, formula_overflow, 1);
527: dbms_sql.define_column(sql_cur, 5, formula_inter_repeat, 1);
528: dbms_sql.define_column(sql_cur, 6, formula_action_level, 1);
529: dbms_sql.define_column(sql_cur, 7, formula_block_label, 30);
530: dbms_sql.define_column(sql_cur, 8, formula_block_row_label, 30);
531: dbms_sql.define_column(sql_cur, 9, xml_proc_name, 256);
532: dbms_sql.define_column(sql_cur, 10, rec_sequence);
533: ignore := dbms_sql.execute(sql_cur);
526: dbms_sql.define_column(sql_cur, 4, formula_overflow, 1);
527: dbms_sql.define_column(sql_cur, 5, formula_inter_repeat, 1);
528: dbms_sql.define_column(sql_cur, 6, formula_action_level, 1);
529: dbms_sql.define_column(sql_cur, 7, formula_block_label, 30);
530: dbms_sql.define_column(sql_cur, 8, formula_block_row_label, 30);
531: dbms_sql.define_column(sql_cur, 9, xml_proc_name, 256);
532: dbms_sql.define_column(sql_cur, 10, rec_sequence);
533: ignore := dbms_sql.execute(sql_cur);
534: if g_debug then
527: dbms_sql.define_column(sql_cur, 5, formula_inter_repeat, 1);
528: dbms_sql.define_column(sql_cur, 6, formula_action_level, 1);
529: dbms_sql.define_column(sql_cur, 7, formula_block_label, 30);
530: dbms_sql.define_column(sql_cur, 8, formula_block_row_label, 30);
531: dbms_sql.define_column(sql_cur, 9, xml_proc_name, 256);
532: dbms_sql.define_column(sql_cur, 10, rec_sequence);
533: ignore := dbms_sql.execute(sql_cur);
534: if g_debug then
535: hr_utility.trace('Exiting pay_magtape_generic.intermediate_needed');
528: dbms_sql.define_column(sql_cur, 6, formula_action_level, 1);
529: dbms_sql.define_column(sql_cur, 7, formula_block_label, 30);
530: dbms_sql.define_column(sql_cur, 8, formula_block_row_label, 30);
531: dbms_sql.define_column(sql_cur, 9, xml_proc_name, 256);
532: dbms_sql.define_column(sql_cur, 10, rec_sequence);
533: ignore := dbms_sql.execute(sql_cur);
534: if g_debug then
535: hr_utility.trace('Exiting pay_magtape_generic.intermediate_needed');
536: end if;
529: dbms_sql.define_column(sql_cur, 7, formula_block_label, 30);
530: dbms_sql.define_column(sql_cur, 8, formula_block_row_label, 30);
531: dbms_sql.define_column(sql_cur, 9, xml_proc_name, 256);
532: dbms_sql.define_column(sql_cur, 10, rec_sequence);
533: ignore := dbms_sql.execute(sql_cur);
534: if g_debug then
535: hr_utility.trace('Exiting pay_magtape_generic.intermediate_needed');
536: end if;
537: return sql_cur;
839: running_intermediate(level_no) := TRUE;
840: else
841: if (formula_id=-9999 and xml_proc_name is null) then
842:
843: no_rows := dbms_sql.last_row_count;
844: if (level_no >1) then
845: dbms_sql.column_value(formulas(level_no-1), 7,
846: temp_formula_block_label);
847: /* if (no_rows=0 and temp_formula_block_label is not NULL) then
841: if (formula_id=-9999 and xml_proc_name is null) then
842:
843: no_rows := dbms_sql.last_row_count;
844: if (level_no >1) then
845: dbms_sql.column_value(formulas(level_no-1), 7,
846: temp_formula_block_label);
847: /* if (no_rows=0 and temp_formula_block_label is not NULL) then
848: cnt :=pay_mag_tape.internal_xml_values(1)-1;
849: pay_mag_tape.internal_xml_values(1) := cnt;
873: end if;
874: end if;
875: else
876: -- Get formula details
877: if dbms_sql.fetch_rows(formulas(level_no)) > 0 then
878: dbms_sql.column_value(formulas(level_no), 1, formula_id);
879: dbms_sql.column_value(formulas(level_no), 2, formula_next_block);
880: dbms_sql.column_value(formulas(level_no), 3, formula_frequency);
881: dbms_sql.column_value(formulas(level_no), 4, formula_overflow);
874: end if;
875: else
876: -- Get formula details
877: if dbms_sql.fetch_rows(formulas(level_no)) > 0 then
878: dbms_sql.column_value(formulas(level_no), 1, formula_id);
879: dbms_sql.column_value(formulas(level_no), 2, formula_next_block);
880: dbms_sql.column_value(formulas(level_no), 3, formula_frequency);
881: dbms_sql.column_value(formulas(level_no), 4, formula_overflow);
882: dbms_sql.column_value(formulas(level_no), 5,
875: else
876: -- Get formula details
877: if dbms_sql.fetch_rows(formulas(level_no)) > 0 then
878: dbms_sql.column_value(formulas(level_no), 1, formula_id);
879: dbms_sql.column_value(formulas(level_no), 2, formula_next_block);
880: dbms_sql.column_value(formulas(level_no), 3, formula_frequency);
881: dbms_sql.column_value(formulas(level_no), 4, formula_overflow);
882: dbms_sql.column_value(formulas(level_no), 5,
883: formula_inter_repeat);
876: -- Get formula details
877: if dbms_sql.fetch_rows(formulas(level_no)) > 0 then
878: dbms_sql.column_value(formulas(level_no), 1, formula_id);
879: dbms_sql.column_value(formulas(level_no), 2, formula_next_block);
880: dbms_sql.column_value(formulas(level_no), 3, formula_frequency);
881: dbms_sql.column_value(formulas(level_no), 4, formula_overflow);
882: dbms_sql.column_value(formulas(level_no), 5,
883: formula_inter_repeat);
884: dbms_sql.column_value(formulas(level_no), 6,
877: if dbms_sql.fetch_rows(formulas(level_no)) > 0 then
878: dbms_sql.column_value(formulas(level_no), 1, formula_id);
879: dbms_sql.column_value(formulas(level_no), 2, formula_next_block);
880: dbms_sql.column_value(formulas(level_no), 3, formula_frequency);
881: dbms_sql.column_value(formulas(level_no), 4, formula_overflow);
882: dbms_sql.column_value(formulas(level_no), 5,
883: formula_inter_repeat);
884: dbms_sql.column_value(formulas(level_no), 6,
885: formula_action_level);
878: dbms_sql.column_value(formulas(level_no), 1, formula_id);
879: dbms_sql.column_value(formulas(level_no), 2, formula_next_block);
880: dbms_sql.column_value(formulas(level_no), 3, formula_frequency);
881: dbms_sql.column_value(formulas(level_no), 4, formula_overflow);
882: dbms_sql.column_value(formulas(level_no), 5,
883: formula_inter_repeat);
884: dbms_sql.column_value(formulas(level_no), 6,
885: formula_action_level);
886: dbms_sql.column_value(formulas(level_no), 7,
880: dbms_sql.column_value(formulas(level_no), 3, formula_frequency);
881: dbms_sql.column_value(formulas(level_no), 4, formula_overflow);
882: dbms_sql.column_value(formulas(level_no), 5,
883: formula_inter_repeat);
884: dbms_sql.column_value(formulas(level_no), 6,
885: formula_action_level);
886: dbms_sql.column_value(formulas(level_no), 7,
887: formula_block_label);
888: dbms_sql.column_value(formulas(level_no), 8,
882: dbms_sql.column_value(formulas(level_no), 5,
883: formula_inter_repeat);
884: dbms_sql.column_value(formulas(level_no), 6,
885: formula_action_level);
886: dbms_sql.column_value(formulas(level_no), 7,
887: formula_block_label);
888: dbms_sql.column_value(formulas(level_no), 8,
889: formula_block_row_label);
890: dbms_sql.column_value(formulas(level_no), 9, xml_proc_name);
884: dbms_sql.column_value(formulas(level_no), 6,
885: formula_action_level);
886: dbms_sql.column_value(formulas(level_no), 7,
887: formula_block_label);
888: dbms_sql.column_value(formulas(level_no), 8,
889: formula_block_row_label);
890: dbms_sql.column_value(formulas(level_no), 9, xml_proc_name);
891: dbms_sql.column_value(formulas(level_no), 10, rec_sequence);
892:
886: dbms_sql.column_value(formulas(level_no), 7,
887: formula_block_label);
888: dbms_sql.column_value(formulas(level_no), 8,
889: formula_block_row_label);
890: dbms_sql.column_value(formulas(level_no), 9, xml_proc_name);
891: dbms_sql.column_value(formulas(level_no), 10, rec_sequence);
892:
893: -- set up mgnetic record id a s a paramter
894: i:=1;
887: formula_block_label);
888: dbms_sql.column_value(formulas(level_no), 8,
889: formula_block_row_label);
890: dbms_sql.column_value(formulas(level_no), 9, xml_proc_name);
891: dbms_sql.column_value(formulas(level_no), 10, rec_sequence);
892:
893: -- set up mgnetic record id a s a paramter
894: i:=1;
895: while (pay_mag_tape.internal_prm_names(i) <>'rec_sequence')
943: end if;
944: end if;
945: end if;
946: else
947: dbms_sql.close_cursor(formulas(level_no));
948: end if;
949: end if;
950: end loop;
951:
950: end loop;
951:
952: if (formula_id=-9999 and xml_proc_name is null) then
953: if (level_no>1) then
954: dbms_sql.column_value(formulas(level_no-1), 8, temp_formula_block_row_label);
955: if (cur_fetch=TRUE and temp_formula_block_row_label is not null)
956: then
957: hr_utility.trace(to_char(cnt)||temp_formula_block_row_label);
958: cnt :=pay_mag_tape.internal_xml_values(1)+1;
982: procedure clear_cursors is
983: begin
984: while level_no >0
985: loop
986: if (dbms_sql.is_open(formulas(level_no))) then
987: dbms_sql.close_cursor(formulas(level_no));
988: end if;
989: if curs_is_open(curs(level_no)) then
990: curs_close(curs(level_no));
983: begin
984: while level_no >0
985: loop
986: if (dbms_sql.is_open(formulas(level_no))) then
987: dbms_sql.close_cursor(formulas(level_no));
988: end if;
989: if curs_is_open(curs(level_no)) then
990: curs_close(curs(level_no));
991: end if;