[Home] [Help]
2: /* $Header: pymaggen.pkb 120.7.12010000.1 2008/07/27 23:08:56 appldev ship $ */
3: as
4: g_debug boolean; /* NOTE: CANNOT be initialised here !! */
5: --
6: type cursname_array is table of pay_magnetic_blocks.cursor_name%TYPE
7: index by binary_integer;
8: type num_array is table of number
9: index by binary_integer;
10: type bool_array is table of boolean
18: row_counts num_array;
19: intermediate_run bool_array;
20: running_intermediate bool_array;
21: level_no number;
22: report_id pay_magnetic_blocks.report_format%TYPE;
23: int_prm_names pay_mag_tape.host_array;
24: int_prm_values pay_mag_tape.host_array;
25: --
26: -- Formula level details
131: /* Function - get_cursor_return
132: Action - This returns a value retrieved by a named cursor and position
133: in that the column was selected.
134: */
135: function get_cursor_return(curs_name pay_magnetic_blocks.cursor_name%TYPE,
136: pos number) return varchar is
137: column_no number;
138: level_cnt number;
139: cnt number;
161: /* Function curs_is_open
162: Action:- This function is passed a cursor name and test to see if the
163: cursor is open.
164: */
165: function curs_is_open(cur_name pay_magnetic_blocks.cursor_name%TYPE)
166: return boolean is
167: sql_curs number;
168: rows_processed number;
169: statem varchar2(256);
189:
190: /* Procedure - curs_close
191: Actions - This procedure close an already open cursor
192: */
193: procedure curs_close(cur_name pay_magnetic_blocks.cursor_name%TYPE) is
194: sql_curs number;
195: rows_processed number;
196: statem varchar2(256);
197: begin
283: /* Function curs_no_data
284: Action:- This function is passed a cursor name and test to see if data
285: was retrieved on the last fetch.
286: */
287: function curs_no_data(cur_name pay_magnetic_blocks.cursor_name%TYPE)
288: return boolean is
289: sql_curs number;
290: rows_processed number;
291: statem varchar2(256);
311: --
312: /* Procedure - curs_open
313: Action - This opens a specified cursor.
314: */
315: procedure curs_open(cur_name pay_magnetic_blocks.cursor_name%TYPE) is
316: sql_curs number;
317: rows_processed number;
318: statem varchar2(256);
319: begin
335: /* Procedure - curs_fetch
336: Action - This procedure executes a fetch into the retrieval table,
337: given the cursor name and the number of vales being selected.
338: */
339: procedure curs_fetch(cur_name pay_magnetic_blocks.cursor_name%TYPE,
340: return_no pay_magnetic_blocks.no_column_returned%TYPE)
341: is
342: sql_curs number;
343: rows_processed number;
336: Action - This procedure executes a fetch into the retrieval table,
337: given the cursor name and the number of vales being selected.
338: */
339: procedure curs_fetch(cur_name pay_magnetic_blocks.cursor_name%TYPE,
340: return_no pay_magnetic_blocks.no_column_returned%TYPE)
341: is
342: sql_curs number;
343: rows_processed number;
344: statem varchar2(6000);
425: /* Function - open_formula
426: Action - This opens a cursor for the formula for a particular cursor
427: and returns the new cursor id
428: */
429: function open_formula(block pay_magnetic_blocks.magnetic_block_id%TYPE)
430: return number is
431: sql_cur number;
432: ignore number;
433: statem varchar2(256);
499: statement only selects rows that have their last_run_execute
500: flag set to R, A or F (ie if a run may be required).
501: */
502: function open_inter_formula(block
503: pay_magnetic_blocks.magnetic_block_id%TYPE) return number is
504: sql_cur number;
505: ignore number;
506: statem varchar2(512);
507: begin
751: level_no := 1;
752: return_arr_offset := 0;
753: select cursor_name, nvl(no_column_returned,0), magnetic_block_id
754: into curs(1), column_num(1), block_id(1)
755: from pay_magnetic_blocks
756: where main_block_flag = 'Y'
757: and report_format = report_id;
758:
759: hr_utility.trace(curs(1)||'..'||to_char(column_num(1))||'..'||to_char(block_id(1)));
779: return_arr_offset := return_arr_offset + column_num(level_no);
780: level_no := level_no + 1;
781: select cursor_name, nvl(no_column_returned,0), magnetic_block_id
782: into curs(level_no), column_num(level_no), block_id(level_no)
783: from pay_magnetic_blocks
784: where magnetic_block_id = formula_next_block
785: and report_format = report_id;
786: hr_utility.trace(to_char(level_no)||'..'||curs(level_no)||'..'||to_char(column_num(level_no))||'..'||to_char(block_id(level_no)));
787: i:=1;