The following lines contain the word 'select', 'insert', 'update' or 'delete':
gl_access_sets_pkg.select_columns(
x_access_set_id,
access_set_name,
c_security_code,
coa_id,
period_set_name,
accounted_period_type,
c_auto_created_flag);
SELECT 'associated with ledger'
INTO dumdum
FROM gl_access_sets acc, gl_ledgers lgr
WHERE acc.access_set_id = c_access_set_id
AND lgr.ledger_id = acc.default_ledger_id
AND lgr.implicit_access_set_id = acc.access_set_id
AND lgr.object_type_code = 'L';
'SELECT acc.ledger_id ' ||
'FROM gl_access_set_ledgers acc ' ||
'WHERE acc.access_set_id = ' || to_char(access_set_id) || ' '||
gl_access_set_security_pkg.build_privilege_clause(access_privilege_code) ||
gl_access_set_security_pkg.build_date_clause(edate) || ')' );
'SELECT acc.ledger_id, acc.segment_value ' ||
'FROM gl_access_set_assignments acc ' ||
'WHERE acc.access_set_id = ' || to_char(access_set_id) || ' '||
gl_access_set_security_pkg.build_privilege_clause(access_privilege_code) ||
gl_access_set_security_pkg.build_date_clause(edate) || ')' );
SELECT to_number(ledger_context)
INTO dum_num
FROM dual;
'SELECT acc.segment_value ' ||
'FROM gl_access_set_assignments acc ' ||
'WHERE acc.access_set_id = ' || to_char(access_set_id) || ' '||
'AND acc.ledger_id = ' || ledger_context || ' ' ||
gl_access_set_security_pkg.build_privilege_clause(access_privilege_code) ||
gl_access_set_security_pkg.build_date_clause(edate) || ')' );
'SELECT acc.segment_value ' ||
'FROM gl_access_set_assignments acc ' ||
'WHERE acc.access_set_id = ' || to_char(access_set_id) || ' '||
gl_access_set_security_pkg.build_privilege_clause(access_privilege_code) ||
gl_access_set_security_pkg.build_date_clause(edate) || ')' );
'(SELECT ''valid date'' '||
'FROM gl_access_set_ledgers acc ' ||
'WHERE acc.access_set_id = ' || to_char(access_set_id) || ' '||
'AND acc.ledger_id = '||journal_table_alias||'.ledger_id '||
'AND '||journal_table_alias||'.default_effective_date ' ||
'BETWEEN nvl(acc.start_date, '||
journal_table_alias||'.default_effective_date-1) '||
'AND nvl(acc.end_date, '||
journal_table_alias||'.default_effective_date+1) '||
')');
'(SELECT ''unwriteable journal'' '||
'FROM gl_je_headers sv ' ||
'WHERE sv.je_batch_id = '||journal_table_alias||'.je_batch_id '||
'AND NOT EXISTS ' ||
'(SELECT ''no access'' ' ||
'FROM gl_access_set_ledgers acc ' ||
'WHERE acc.access_set_id = ' || to_char(access_set_id) || ' '||
'AND acc.ledger_id = sv.ledger_id '||
'AND acc.access_privilege_code IN (''B'', ''F'') '||
edatestr || '))');
'(SELECT ''readable line'' '||
'FROM gl_je_segment_values sv, ' ||
'gl_access_set_assignments acc ' ||
'WHERE sv.je_header_id = '||journal_table_alias||'.je_header_id '||
'AND sv.segment_type_code = '''||security_code||''' '||
'AND acc.access_set_id = '||to_char(access_set_id)|| ' '||
'AND acc.ledger_id = '||journal_table_alias||'.ledger_id '||
'AND acc.segment_value = sv.segment_value '||
edatestr || ') ');
'(SELECT ''unwriteable line'' '||
'FROM gl_je_segment_values sv, gl_je_headers sv2 ' ||
'WHERE sv2.je_batch_id = '||journal_table_alias||'.je_batch_id '||
'AND sv.je_header_id = sv2.je_header_id ' ||
'AND sv.segment_type_code = '''||security_code||''' '||
'AND NOT EXISTS '||
'(SELECT ''unwriteable line'' ' ||
'FROM gl_access_set_assignments acc ' ||
'WHERE acc.access_set_id = '||to_char(access_set_id)|| ' '||
'AND acc.ledger_id = sv2.ledger_id '||
'AND acc.segment_value = sv.segment_value '||
'AND acc.access_privilege_code = ''B'' '||
edatestr || ')) ');
'(SELECT ''readable journal'' '||
'FROM gl_je_headers jeh, ' ||
'gl_access_set_ledgers acc ' ||
'WHERE jeh.je_batch_id = '||batch_table_alias||'.je_batch_id '||
'AND acc.access_set_id = '||to_char(access_set_id)||' '||
'AND acc.ledger_id = jeh.ledger_id ' ||
edatestr || ') ');
'(SELECT ''unwriteable journal'' '||
'FROM gl_je_headers jeh ' ||
'WHERE jeh.je_batch_id = '||batch_table_alias||'.je_batch_id '||
'AND NOT EXISTS ' ||
'(SELECT ''unwriteable journal'' '||
'FROM gl_access_set_ledgers acc ' ||
'WHERE acc.access_set_id = '||to_char(access_set_id)||' '||
'AND acc.ledger_id = jeh.ledger_id ' ||
'AND acc.access_privilege_code IN (''B'', ''F'') '||
edatestr || ')) ');
'(SELECT ''readable line'' '||
'FROM gl_je_headers jeh, '||
'gl_je_segment_values sv, ' ||
'gl_access_set_assignments acc ' ||
'WHERE jeh.je_batch_id = '||batch_table_alias||'.je_batch_id '||
'AND sv.je_header_id = jeh.je_header_id '||
'AND sv.segment_type_code = '''||security_code||''' '||
'AND acc.access_set_id = '||to_char(access_set_id)|| ' '||
'AND acc.ledger_id = jeh.ledger_id '||
'AND acc.segment_value = sv.segment_value '||
edatestr || ') ');
'(SELECT ''unwriteable line'' '||
'FROM gl_je_headers jeh, '||
'gl_je_segment_values sv ' ||
'WHERE jeh.je_batch_id = '||batch_table_alias||'.je_batch_id '||
'AND sv.je_header_id = jeh.je_header_id '||
'AND sv.segment_type_code = '''||security_code||''' '||
'AND NOT EXISTS '||
'(SELECT ''unwriteable line'' ' ||
'FROM gl_access_set_assignments acc ' ||
'WHERE acc.access_set_id = '||to_char(access_set_id)|| ' '||
'AND acc.ledger_id = jeh.ledger_id '||
'AND acc.segment_value = sv.segment_value '||
'AND acc.access_privilege_code = ''B'' '||
edatestr || ')) ');
SELECT 'has lines'
INTO dummy
FROM gl_je_headers jeh
WHERE jeh.je_batch_id = je_id
AND rownum = 1;
SELECT 'has lines'
INTO dummy
FROM gl_je_headers jeh
WHERE jeh.je_header_id = je_id
AND rownum = 1;
SELECT 'has journals'
INTO dummy
FROM gl_je_headers jeh
WHERE jeh.je_batch_id = je_id
AND rownum = 1;
sqlbuf := 'SELECT ''no write'' '||
'FROM dual ' ||
'WHERE EXISTS ' ||
'(SELECT ''no write'' ' ||
'FROM gl_je_headers jeh ';
'(SELECT ''write row'' '||
'FROM gl_access_set_assignments asa ' ||
'WHERE asa.access_set_id = :access_set_id ' ||
'AND asa.ledger_id = jeh.ledger_id ' ||
'AND asa.access_privilege_code = ''B'' ';
sqlbuf := 'SELECT ''has read'' '||
'FROM dual ' ||
'WHERE EXISTS ' ||
'(SELECT ''has read'' ' ||
'FROM gl_je_headers jeh, ';
SELECT asl.ledger_id
FROM gl_access_set_ledgers asl
WHERE asl.access_set_id = x_access_set_id
AND asl.ledger_id = (select gas.default_ledger_id
from gl_access_sets gas
where gas.access_set_id = asl.access_set_id)
AND ( ( (x_access_privilege_code
= gl_access_set_security_pkg.FULL_ACCESS)
AND (asl.access_privilege_code = 'F'))
OR ( (x_access_privilege_code
= gl_access_set_security_pkg.WRITE_ACCESS)
AND (asl.access_privilege_code IN ('F', 'B')))
OR (x_access_privilege_code = 'R'));
SELECT DISTINCT ledger_id
FROM gl_access_set_ledgers
WHERE access_set_id = x_access_set_id
AND ( ( (x_access_privilege_code
= gl_access_set_security_pkg.FULL_ACCESS)
AND (access_privilege_code = 'F'))
OR ( (x_access_privilege_code
= gl_access_set_security_pkg.WRITE_ACCESS)
AND (access_privilege_code IN ('F', 'B')))
OR (x_access_privilege_code = 'R'));
SELECT access_privilege_code
FROM gl_access_set_ledgers
WHERE access_set_id = x_access_set_id
AND ledger_id = x_ledger_id
AND ( (x_edate IS NULL)
OR (trunc(x_edate) BETWEEN nvl(trunc(start_date), trunc(x_edate)-1)
AND nvl(trunc(end_date), trunc(x_edate)+1)));
SELECT decode(max(decode(access_privilege_code, 'B', 2, 1)),
1, 'R', 2, 'B', 'N')
FROM gl_access_set_assignments
WHERE access_set_id = x_access_set_id
AND segment_value = seg_val
AND ( (x_edate IS NULL)
OR (trunc(x_edate) BETWEEN nvl(trunc(start_date), trunc(x_edate)-1)
AND nvl(trunc(end_date), trunc(x_edate)+1)));
SELECT access_privilege_code
FROM gl_access_set_assignments
WHERE access_set_id = x_access_set_id
AND ledger_id = x_ledger_id
AND segment_value = seg_val
AND ( (x_edate IS NULL)
OR (trunc(x_edate) BETWEEN nvl(trunc(start_date), trunc(x_edate)-1)
AND nvl(trunc(end_date), trunc(x_edate)+1)));
sql_stmt := 'SELECT max(' || security_col || ') ' ||
'FROM gl_code_combinations ' ||
'WHERE code_combination_id = :x_ccid';