The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT H1.to_period_name, H1.calculation_effective_date,
H1.journal_effective_date
FROM GL_ALLOC_HISTORY H1
WHERE H1.ALLOCATION_BATCH_ID = batch_id
AND H1.ACCESS_SET_ID = access_set_id
AND H1.LAST_UPDATE_DATE
= (SELECT MAX(H2.LAST_UPDATE_DATE)
FROM GL_ALLOC_HISTORY H2
WHERE H2.ALLOCATION_BATCH_ID
= batch_id
AND H2.ACCESS_SET_ID
= access_set_id
AND RUN_STATUS = 'C')
AND RUN_STATUS = 'C';
x_line_selection VARCHAR2,
x_ledger_override_id NUMBER) RETURN NUMBER IS
CURSOR random_abc_ledger IS
SELECT ldg.ledger_id
FROM gl_alloc_formulas af,
gl_alloc_formula_lines afl,
gl_ledger_set_assignments lsa,
gl_ledgers ldg
WHERE af.allocation_batch_id = x_allocation_batch_id
AND afl.allocation_formula_id = af.allocation_formula_id
AND afl.line_number IN (1, 2, 3)
AND lsa.ledger_set_id (+) = nvl(afl.ledger_id, x_ledger_override_id)
AND sysdate BETWEEN
nvl(trunc(lsa.start_date), sysdate - 1)
AND nvl(trunc(lsa.end_date), sysdate + 1)
AND ldg.ledger_id = nvl(lsa.ledger_id,
nvl(afl.ledger_id, x_ledger_override_id))
AND ldg.object_type_code = 'L';
SELECT ldg.ledger_id
FROM gl_alloc_formulas af,
gl_alloc_formula_lines afl,
gl_ledger_set_assignments lsa,
gl_ledgers ldg
WHERE af.allocation_batch_id = x_allocation_batch_id
AND afl.allocation_formula_id = af.allocation_formula_id
AND afl.line_number IN (4, 5)
AND lsa.ledger_set_id (+) = nvl(afl.ledger_id, x_ledger_override_id)
AND sysdate BETWEEN
nvl(trunc(lsa.start_date), sysdate - 1)
AND nvl(trunc(lsa.end_date), sysdate + 1)
AND ldg.ledger_id = nvl(lsa.ledger_id,
nvl(afl.ledger_id, x_ledger_override_id))
AND ldg.object_type_code = 'L';
SELECT 'has null ledger'
FROM gl_alloc_formulas af,
gl_alloc_formula_lines afl
WHERE af.allocation_batch_id = x_allocation_batch_id
AND af.allocation_formula_id = afl.allocation_formula_id
AND afl.line_number IN (4, 5)
AND afl.ledger_id IS NULL;
IF (x_line_selection = 'ABC') THEN
OPEN random_abc_ledger;
ELSIF (x_line_selection = 'TO') THEN
OPEN random_to_ledger;
x_selected_ced DATE) RETURN BOOLEAN IS
CURSOR ledger_ids (formula_id NUMBER) IS
SELECT ldg.ledger_id
FROM gl_alloc_formula_lines afl,
gl_ledgers ldg,
gl_ledger_set_assignments lsa
WHERE afl.allocation_formula_id = formula_id
AND afl.line_number IN (1, 2, 3)
AND afl.ledger_id IS NOT NULL
AND lsa.ledger_set_id(+) = afl.ledger_id
AND sysdate BETWEEN
nvl(trunc(lsa.start_date),sysdate - 1)
AND nvl(trunc(lsa.end_date), sysdate + 1)
AND ldg.ledger_id = nvl(lsa.ledger_id, afl.ledger_id)
AND ldg.object_type_code = 'L';
SELECT allocation_formula_id
FROM gl_alloc_formulas
WHERE allocation_batch_id = x_allocation_batch_id
AND rownum <= num;
if ( x_selected_ced > end_date
OR x_selected_ced < start_date) then
RETURN FALSE;
SELECT 'non consolidation ledger exist'
FROM gl_alloc_formula_lines afl,
gl_ledgers ldg,
gl_ledger_set_assignments lsa
WHERE afl.allocation_formula_id = formula_id
AND afl.line_number IN (4,5)
AND lsa.ledger_set_id(+) = nvl(afl.ledger_id, x_ledger_override_id)
AND sysdate BETWEEN
nvl(trunc(lsa.start_date), sysdate - 1)
AND nvl(trunc(lsa.end_date), sysdate + 1)
AND ldg.ledger_id = decode(lsa.ledger_id, null,
nvl(afl.ledger_id,x_ledger_override_id),
lsa.ledger_id)
AND ldg.consolidation_ledger_flag = 'N'
AND ldg.object_type_code = 'L'
AND rownum < 2;
SELECT allocation_formula_id
FROM gl_alloc_formulas
WHERE allocation_batch_id = x_allocation_batch_id
AND rownum <= num;