The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE update_request_state(tbl IN OUT NOCOPY strm_request_id_table)
IS
r_phase VARCHAR2(30);
pa_debug.set_err_stack('update_request_table');
pa_debug.g_err_stage := 'Entering update_request_table()';
pa_debug.g_err_stage := 'Leaving update_request_table()';
pa_debug.write_file('LOG','update_request_table() exception: Others');
END update_request_state;
SELECT LOOKUP_code
FROM (SELECT LOOKUP_code
FROM pa_lookups
WHERE lookup_type = 'INTERFACE STREAMLINE OPTIONS'
AND lookup_code IN ('ETBC-ATBC', 'EBTC-ABTC', 'EBL-ABL', 'EINV-AINV', 'ELAB-ALAB', 'EPJ-APJ',
'EPC-APC', 'EDR-ADR', 'ESC-ASC', 'EUSG-AUSG', 'EWIP-AWIP'))
WHERE LOOKUP_CODE =
decode(p_strm_opt,'ALL-STRMLN',LOOKUP_CODE,p_strm_opt);
-- Insert request ID into PL/SQL table
commit;
SELECT v_request_id,strmln_opt.lookup_code,v_phase,v_status
INTO tbl(v_cnt).request_id,tbl(v_cnt).lookup_code,
tbl(v_cnt).phase,tbl(v_cnt).status
FROM dual;
SELECT LOOKUP_code, meaning
FROM (SELECT LOOKUP_code, meaning
FROM pa_lookups
WHERE lookup_type = 'INTERFACE STREAMLINE OPTIONS'
AND lookup_code IN ('ETBC-ATBC', 'EBTC-ABTC', 'EBL-ABL', 'EINV-AINV', 'ELAB-ALAB', 'EPJ-APJ',
'EPC-APC', 'EDR-ADR', 'ESC-ASC', 'EUSG-AUSG', 'EWIP-AWIP'))
WHERE LOOKUP_CODE =
decode(p_strm_opt,'ALL-STRMLN',LOOKUP_CODE,p_strm_opt);
SELECT set_of_books_id, org_id
INTO v_psob_id, v_org_id
FROM pa_implementations;
update_request_state(strm_request_table);
(strm_request_table(i).status = 'DELETED') AND
(retcode <> '-1') THEN
pa_debug.g_err_stage := strm_request_table(i).status||' '||
strm_request_table(i).phase;