The following lines contain the word 'select', 'insert', 'update' or 'delete':
select fa_mass_external_transfers_s.nextval
into l_seq_num
from dual;
cse_util_pkg.write_log('Inserting record with MASS_EXTERNAL_TRANSFER_ID ' ||
l_seq_num);
INSERT INTO fa_mass_external_transfers(batch_name,
mass_external_transfer_id,
transaction_reference_num,
transaction_type,
from_asset_id,
book_type_code,
transaction_status,
from_location_id,
from_gl_ccid,
from_employee_id,
transfer_units,
created_by,
creation_date,
last_updated_by,
last_update_login,
last_updated_date,
last_update_date)
VALUES('FA_MODIFY_DISTS',
l_seq_num,
1,
'TRANSFER',
p_asset_id,
p_book_type_code,
'POST',
p_from_location_id,
p_from_expense_ccid,
p_from_employee_id,
l_from_units,
l_user_id,
sysdate,
l_user_id,
l_login_id,
sysdate,
sysdate);
select fa_mass_external_transfers_s.nextval
into l_seq_num
from dual;
cse_util_pkg.write_log('Inserting record with MASS_EXTERNAL_TRANSFER_ID ' ||
l_seq_num);
INSERT INTO fa_mass_external_transfers(batch_name,
mass_external_transfer_id,
transaction_reference_num,
transaction_type,
from_asset_id,
book_type_code,
transaction_status,
to_location_id,
to_gl_ccid,
to_employee_id,
transfer_units,
created_by,
creation_date,
last_updated_by,
last_update_login,
last_updated_date,
last_update_date)
VALUES('FA_MODIFY_DISTS',
l_seq_num,
1,
'TRANSFER',
p_asset_id,
p_book_type_code,
'POST',
p_to_location_id,
p_to_expense_ccid,
p_to_employee_id,
p_units,
l_user_id,
sysdate,
l_user_id,
l_login_id,
sysdate,
sysdate);
SELECT distribution_id
INTO l_new_from_dist_id
FROM fa_distribution_history
WHERE asset_id = p_asset_id AND
book_type_code = p_book_type_code AND
location_id = p_from_location_id AND
code_combination_id = p_from_expense_ccid AND
nvl(assigned_to, -1) = nvl(p_from_employee_id, -1) AND
date_ineffective is null;
SELECT distribution_id
INTO l_new_to_dist_id
FROM fa_distribution_history
WHERE asset_id = p_asset_id AND
book_type_code = p_book_type_code AND
location_id = p_to_location_id AND
code_combination_id = p_to_expense_ccid AND
nvl(assigned_to, -1) = nvl(p_to_employee_id, -1) AND
date_ineffective is null;
l_update_status VARCHAR2(10);
l_update_err_msg VARCHAR2(1024);
UPDATE_FAIL EXCEPTION;
SELECT distribution_id
FROM fa_distribution_history
WHERE asset_id = p_asset_id AND
book_type_code = p_book_type_code AND
location_id = p_location_id AND
code_combination_id = p_expense_ccid AND
nvl(assigned_to, -1) = nvl(p_employee_id, -1) AND
date_ineffective is null;
SELECT distribution_id
FROM fa_distribution_history
WHERE asset_id = p_asset_id AND
book_type_code = p_book_type_code AND
date_ineffective is null;
select location_id,
code_combination_id,
assigned_to
into l_location_id,
l_expense_ccid,
l_employee_id
from fa_distribution_history
where distribution_id = l_temp_dist_id;
select fa_mass_external_transfers_s.nextval
into l_seq_num
from dual;
cse_util_pkg.write_log('Inserting record with MASS_EXTERNAL_TRANSFER_ID ' ||
l_seq_num);
INSERT INTO fa_mass_external_transfers(batch_name,
mass_external_transfer_id,
transaction_reference_num,
transaction_type,
from_asset_id,
book_type_code,
transaction_status,
to_location_id,
to_gl_ccid,
to_employee_id,
transfer_units,
created_by,
creation_date,
last_updated_by,
last_update_login,
last_updated_date,
last_update_date)
VALUES('FA_MODIFY_DISTS',
l_seq_num,
1,
'UNIT ADJUSTMENT',
p_asset_id,
p_book_type_code,
'POST',
l_location_id,
l_expense_ccid,
l_employee_id,
p_units,
l_user_id,
sysdate,
l_user_id,
l_login_id,
sysdate,
sysdate);
select fa_mass_external_transfers_s.nextval
into l_seq_num
from dual;
cse_util_pkg.write_log('Inserting record with MASS_EXTERNAL_TRANSFER_ID ' ||
l_seq_num);
INSERT INTO fa_mass_external_transfers(batch_name,
mass_external_transfer_id,
transaction_reference_num,
transaction_type,
from_asset_id,
book_type_code,
transaction_status,
from_location_id,
from_gl_ccid,
from_employee_id,
transfer_units,
created_by,
creation_date,
last_updated_by,
last_update_login,
last_updated_date,
last_update_date)
VALUES('FA_MODIFY_DISTS',
l_seq_num,
2,
'TRANSFER',
p_asset_id,
p_book_type_code,
'POST',
l_location_id,
l_expense_ccid,
l_employee_id,
l_from_units,
l_user_id,
sysdate,
l_user_id,
l_login_id,
sysdate,
sysdate);
select fa_mass_external_transfers_s.nextval
into l_seq_num
from dual;
cse_util_pkg.write_log('Inserting record with MASS_EXTERNAL_TRANSFER_ID ' ||
l_seq_num);
INSERT INTO fa_mass_external_transfers(batch_name,
mass_external_transfer_id,
transaction_reference_num,
transaction_type,
from_asset_id,
book_type_code,
transaction_status,
to_location_id,
to_gl_ccid,
to_employee_id,
transfer_units,
created_by,
creation_date,
last_updated_by,
last_update_login,
last_updated_date,
last_update_date)
VALUES('FA_MODIFY_DISTS',
l_seq_num,
2,
'TRANSFER',
p_asset_id,
p_book_type_code,
'POST',
p_location_id,
p_expense_ccid,
p_employee_id,
p_units,
l_user_id,
sysdate,
l_user_id,
l_login_id,
sysdate,
sysdate);
SELECT distribution_id
INTO l_new_dist_id
FROM fa_distribution_history
WHERE asset_id = p_asset_id AND
book_type_code = p_book_type_code AND
location_id = l_location_id AND
code_combination_id = l_expense_ccid AND
nvl(assigned_to, -1) = nvl(l_employee_id, -1) AND
date_ineffective is null;
SELECT distribution_id
INTO l_new_dist_id
FROM fa_distribution_history
WHERE asset_id = p_asset_id AND
book_type_code = p_book_type_code AND
location_id = p_location_id AND
code_combination_id = p_expense_ccid AND
nvl(assigned_to, -1) = nvl(p_employee_id, -1) AND
date_ineffective is null;
select fa_mass_external_transfers_s.nextval
into l_seq_num
from dual;
cse_util_pkg.write_log('Distribution exists. Inserting record with MASS_EXTERNAL_TRANSFER_ID ' || l_seq_num);
INSERT INTO fa_mass_external_transfers(batch_name,
mass_external_transfer_id,
transaction_reference_num,
transaction_type,
from_asset_id,
book_type_code,
transaction_status,
from_location_id,
from_gl_ccid,
from_employee_id,
transfer_units,
created_by,
creation_date,
last_updated_by,
last_update_login,
last_updated_date,
last_update_date)
VALUES('FA_MODIFY_DISTS',
l_seq_num,
1,
'UNIT ADJUSTMENT',
p_asset_id,
p_book_type_code,
'POST',
p_location_id,
p_expense_ccid,
p_employee_id,
p_units,
l_user_id,
sysdate,
l_user_id,
l_login_id,
sysdate,
sysdate);
INSERT INTO fa_mass_external_transfers(batch_name,
mass_external_transfer_id,
transaction_reference_num,
transaction_type,
from_asset_id,
book_type_code,
transaction_status,
to_location_id,
to_gl_ccid,
to_employee_id,
transfer_units,
created_by,
creation_date,
last_updated_by,
last_update_login,
last_updated_date,
last_update_date)
VALUES('FA_MODIFY_DISTS',
l_seq_num,
1,
'UNIT ADJUSTMENT',
p_asset_id,
p_book_type_code,
'POST',
p_location_id,
p_expense_ccid,
p_employee_id,
p_units,
l_user_id,
sysdate,
l_user_id,
l_login_id,
sysdate,
sysdate);
SELECT distribution_id
INTO l_new_dist_id
FROM fa_distribution_history
WHERE asset_id = p_asset_id AND
book_type_code = p_book_type_code AND
location_id = p_location_id AND
code_combination_id = p_expense_ccid AND
nvl(assigned_to, -1) = nvl(p_employee_id, -1) AND
date_ineffective is null;
WHEN UPDATE_FAIL THEN
x_return_status := FND_API.G_RET_STS_ERROR;
x_error_msg := l_update_err_msg;