The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE update_asset_type
(err_buf OUT NOCOPY VARCHAR2,
ret_code OUT NOCOPY VARCHAR2,
p_ledger_id IN NUMBER,
p_chart_of_accounts IN NUMBER,
p_asset_book IN VARCHAR2,
p_capital_acct_from IN VARCHAR2,
p_capital_acct_to IN VARCHAR2,
p_cip_acct_from IN VARCHAR2,
p_cip_acct_to IN VARCHAR2) IS
p_where_clause VARCHAR2(3000);
l_full_path VARCHAR2(100) := g_path || 'update_asset_type';
p_mass_add_query := 'SELECT DISTINCT mass_addition_id
FROM fa_mass_additions fma, gl_code_combinations cc
WHERE fma.payables_code_combination_id = cc.code_combination_id
AND fma.asset_type = '''||'EXPENSED'||''''||
' AND fma.posting_status IN ('''||'NEW'||''','''||'MERGED'||''''||')'||
' AND book_type_code = :p_asset_book';
'Select statement used for fetching mass additions (Capitalized)');
UPDATE fa_mass_additions
SET asset_type = 'CAPITALIZED',
depreciate_flag = 'YES'
WHERE mass_addition_id = l_mass_addition_id;
'Select statement used for fetching mass additions (CIP)');
UPDATE fa_mass_additions
SET asset_type = 'CIP'
WHERE mass_addition_id = l_mass_addition_id;
END update_asset_type;
FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'PROGRAM - UPDATE ASSET TYPE');
SELECT mass_addition_id, invoice_number, payables_cost, description
FROM fa_mass_additions
WHERE mass_addition_id = c_mass_addition_id;