The following lines contain the word 'select', 'insert', 'update' or 'delete':
select max(SS.effective_end_date)
into v_max_assignment_date
from per_all_assignments_f SS
where SS.assignment_id = p_assignment_id;
INSERT INTO FF_ARCHIVE_ITEMS
(ARCHIVE_ITEM_ID,
USER_ENTITY_ID,
CONTEXT1,
VALUE ,
ARCHIVE_TYPE,
NAME
)
VALUES
(ff_archive_items_s.nextval,
-1,
asg_act_id,
prm_value,
'AAP',
prm_name
);
in that the column was selected.
*/
function get_cursor_return(curs_name pay_magnetic_blocks.cursor_name%TYPE,
pos number) return varchar is
column_no number;
given the cursor name and the number of vales being selected.
*/
procedure curs_fetch(cur_name pay_magnetic_blocks.cursor_name%TYPE,
return_no pay_magnetic_blocks.no_column_returned%TYPE)
is
sql_curs number;
if first then -- the select statement
first := FALSE;
select 'M'
into dummy
from pay_magnetic_records pmr
where pmr.magnetic_block_id = block_id(level_no)
and pmr.last_run_executed_mode in ('A', 'R', 'F');
statem := 'select formula_id, next_block_id,'||
' frequency, overflow_mode, '||
'last_run_executed_mode, action_level ,'||
'block_label,block_row_label,xml_proc_name,sequence '||
' from pay_magnetic_records '||
'where magnetic_block_id = '||block||
' order by sequence';
Action - This function does the same as open_formula except it select
statement only selects rows that have their last_run_execute
flag set to R, A or F (ie if a run may be required).
*/
function open_inter_formula(block
pay_magnetic_blocks.magnetic_block_id%TYPE) return number is
sql_cur number;
statem := 'select formula_id,next_block_id,'||
'frequency,overflow_mode,'||
'last_run_executed_mode,action_level,'||
'block_label,block_row_label,xml_proc_name,sequence '||
'from pay_magnetic_records '||
'where magnetic_block_id='||block||
' and last_run_executed_mode in (''R'',''A'',''F'')'||
' order by sequence';
select cursor_name, nvl(no_column_returned,0), magnetic_block_id
into curs(1), column_num(1), block_id(1)
from pay_magnetic_blocks
where main_block_flag = 'Y'
and report_format = report_id;
select cursor_name, nvl(no_column_returned,0), magnetic_block_id
into curs(level_no), column_num(level_no), block_id(level_no)
from pay_magnetic_blocks
where magnetic_block_id = formula_next_block
and report_format = report_id;