The following lines contain the word 'select', 'insert', 'update' or 'delete':
FUNCTION INSERT_BATCH RETURN INTEGER is
l_next_seq INTEGER;
SELECT
FND_LOADER_OPEN_INTERFACE_S.nextval
INTO
l_next_seq
FROM
dual;
FUNCTION INSERT_BATCH
(
X_LCT IN FND_LCT_TAB,
X_LDT IN FND_LDT_TAB,
X_LOADER_MODE IN FND_LOADER_MODE_TAB,
X_ENTITY IN FND_ENTITY_TAB,
X_PARAMS IN FND_PARAMS_TAB
) RETURN INTEGER is
l_next_seq INTEGER;
SELECT
FND_LOADER_OPEN_INTERFACE_S.nextval
INTO
l_next_seq
FROM
dual;
indx := i; -- Store the index of the data being inserted, in case we need to print the exception message.
INSERT INTO FND_LOADER_OPEN_INTERFACE
(
batch_id,
seq_in_batch,
lct,
ldt,
loader_mode,
entity,params
)
VALUES
(
l_next_seq,
l_seq_in_batch(i),
X_LCT(i),
X_LDT(i),
X_LOADER_MODE(i),
X_ENTITY(i),
X_PARAMS(i)
);
raise_application_error(-20101,'INSERT_BATCH : Failed to insert element ' || to_char(indx) || ' of the batch into the table FND_LOADER_OPEN_INTERFACE.',true);
SELECT
nvl(MAX(SEQ_IN_BATCH),0)
INTO
l_max_seq_in_batch
FROM
FND_LOADER_OPEN_INTERFACE
WHERE
BATCH_ID=X_BATCH_ID;
indx := i; -- Store the index of the data being inserted, in case we need to print the exception message.
INSERT INTO FND_LOADER_OPEN_INTERFACE
(
batch_id,
seq_in_batch,
lct,
ldt,
loader_mode,
entity,params
)
VALUES
(
X_BATCH_ID,
l_seq_in_batch(i),
X_LCT(i),
X_LDT(i),
X_LOADER_MODE(i),
X_ENTITY(i),
X_PARAMS(i)
);
SELECT
nvl(MAX(SEQ_IN_BATCH),0)
INTO
l_max_seq_in_batch
FROM
FND_LOADER_OPEN_INTERFACE
WHERE
BATCH_ID=X_BATCH_ID;
INSERT INTO FND_LOADER_OPEN_INTERFACE
(
batch_id,
seq_in_batch,
lct,
ldt,
loader_mode,
entity,params
)
values
(
X_BATCH_ID,
l_max_seq_in_batch + 1,
X_LCT,
X_LDT,
X_LOADER_MODE,
X_ENTITY,
X_PARAMS
);
PROCEDURE DELETE_BATCH(
X_BATCH_ID IN INTEGER
) IS
BEGIN
BEGIN
DELETE FROM
fnd_loader_open_interface
WHERE
batch_id=X_BATCH_ID;
raise_application_error(-20401,'DELETE_BATCH : Failed to delete the batch : ' || to_char(X_BATCH_ID),true);
END DELETE_BATCH;