The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure delete_allRiskyInstr
is
begin
delete from iby_irf_risky_instr;
SELECT COUNT(-1) INTO l_payeecount
FROM iby_payee
WHERE payeeid = l_payeeid;
SELECT COUNT(-1) INTO l_instypecount
FROM fnd_lookups
WHERE lookup_type = 'IBY_INSTRUMENT_TYPES'
and lookup_code = l_instrtype;
SELECT COUNT(-1) INTO l_riskinscount
FROM iby_irf_risky_instr
WHERE payeeid = l_payeeid
and instrtype = l_instrtype
and cc_number_hash1 = l_cc_hash1
and cc_number_hash2 = l_cc_hash2;
insert into iby_irf_risky_instr
(payeeid, instrtype,
creditcard_no, object_version_number,
last_update_date, last_updated_by,
creation_date, created_by, cc_number_hash1,
cc_number_hash2)
values ( l_payeeid, l_instrtype,
null,
1, sysdate, fnd_global.user_id,
sysdate, fnd_global.user_id, l_cc_hash1, l_cc_hash2);
SELECT COUNT(-1) INTO l_riskinscount
FROM iby_irf_risky_instr
WHERE payeeid = l_payeeid
and instrtype = l_instrtype
and routing_no = i_riskyinstr(i).Routing_Num
and acct_number_hash1 = l_account_no_hash1
and acct_number_hash2 = l_account_no_hash2;
insert into iby_irf_risky_instr
(payeeid, instrtype, routing_no,
account_no, object_version_number,
last_update_date, last_updated_by,
creation_date, created_by,acct_number_hash1,
acct_number_hash2)
values ( l_payeeid, l_instrtype,
i_riskyinstr(i).Routing_Num,
null,
1, sysdate, fnd_global.user_id,
sysdate, fnd_global.user_id,l_account_no_hash1,
l_account_no_hash2);
** Procedure: delete_RiskyInstr
** Purpose: Delete the vector of RiskyInstr into the table. For
** each risky instrument, if it matches (payeeid,instrtype,and numbers)
** then delete the entry from table, else does nothing
*/
procedure delete_RiskyInstr (i_count in integer,
i_riskyinstr in RiskyInstr_Table,
o_results out nocopy Result_Table)
is
i int;
SELECT COUNT(-1) INTO l_payeecount
FROM iby_payee
WHERE payeeid = l_payeeid;
SELECT COUNT(-1) INTO l_instypecount
FROM fnd_lookups
WHERE lookup_type = 'IBY_INSTRUMENT_TYPES'
and lookup_code = l_instrtype;
Delete FROM iby_irf_risky_instr
WHERE payeeid = l_payeeid
and instrtype = l_instrtype
and cc_number_hash1 = l_cc_hash1
and cc_number_hash2 = l_cc_hash2;
Delete FROM iby_irf_risky_instr
WHERE payeeid = l_payeeid
and instrtype = l_instrtype
and routing_no = i_riskyinstr(i).Routing_Num
and acct_number_hash1 = l_account_no_hash1
and acct_number_hash2 = l_account_no_hash2;