The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT 1 INTO dummy FROM sys.dual WHERE EXISTS
(SELECT 1 FROM pa_cost_plus_structures
WHERE cost_plus_structure = cp_structure);
SELECT 1 INTO dummy FROM sys.dual WHERE NOT EXISTS
(SELECT 1 FROM pa_cost_base_cost_codes
WHERE cost_plus_structure = cp_structure)
AND NOT EXISTS
(SELECT 1 FROM pa_cost_base_exp_types
WHERE cost_plus_structure = cp_structure)
;
SELECT cost_base,
cost_base_type,
ind_cost_code,
precedence
FROM pa_cost_base_cost_codes
WHERE cost_plus_structure = source;
SELECT cost_base,
cost_base_type,
expenditure_type
FROM pa_cost_base_exp_types
WHERE cost_plus_structure = source;
x_last_updated_by NUMBER(15);
x_last_update_login NUMBER(15);
x_last_updated_by := FND_GLOBAL.USER_ID;
x_last_update_login := FND_GLOBAL.LOGIN_ID;
SELECT cost_plus_structure_type
INTO structure_type
FROM pa_cost_plus_structures
WHERE cost_plus_structure = destination;
SELECT pa_cost_base_cost_codes_s.nextval into cbicc_id FROM sys.dual;
INSERT INTO pa_cost_base_cost_codes
(cost_base_cost_code_id,
cost_plus_structure,
cost_base,
cost_base_type,
ind_cost_code,
precedence,
last_update_date,
last_updated_by,
creation_date,
created_by,
last_update_login
)
VALUES
(cbicc_id,
destination,
icc_row.cost_base,
icc_row.cost_base_type,
icc_row.ind_cost_code,
NVL(icc_precedence,icc_row.precedence),
SYSDATE,
x_last_updated_by,
SYSDATE,
x_created_by,
x_last_update_login);
INSERT INTO pa_cost_base_exp_types
(cost_plus_structure,
cost_base,
cost_base_type,
expenditure_type,
last_update_date,
last_updated_by,
creation_date,
created_by,
last_update_login
)
VALUES
(destination,
et_row.cost_base,
et_row.cost_base_type,
et_row.expenditure_type,
SYSDATE,
x_last_updated_by,
SYSDATE,
x_created_by,
x_last_update_login);