The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Insert_Row( X_deprn_basis_rule_id IN OUT NOCOPY NUMBER,
X_rule_name VARCHAR2,
X_user_rule_name VARCHAR2,
X_last_update_date DATE,
X_last_updated_by NUMBER,
X_created_by NUMBER,
X_creation_date DATE,
X_last_update_login NUMBER,
X_rate_source VARCHAR2,
X_calculation_basis VARCHAR2,
X_enabled_flag VARCHAR2,
X_program_name VARCHAR2,
X_description VARCHAR2
, p_log_level_rec IN FA_API_TYPES.log_level_rec_type) IS
CURSOR C is SELECT FA_DEPRN_BASIS_RULES_S.nextval from sys.dual;
select nvl(max(deprn_basis_rule_id),0)+1
from FA_DEPRN_BASIS_RULES;
Insert into fa_deprn_basis_rules (
deprn_basis_rule_id,
rule_name,
user_rule_name,
last_update_date,
last_updated_by,
created_by,
creation_date,
last_update_login,
rate_source,
deprn_basis,
enabled_flag,
program_name,
description
)
values (
X_deprn_basis_rule_id,
X_rule_name,
X_user_rule_name,
X_last_update_date,
X_last_updated_by,
X_created_by,
X_creation_date,
X_last_update_login,
X_rate_source,
X_calculation_basis,
X_enabled_flag,
X_program_name,
X_description
);
calling_fn => 'fa_deprn_basis_rules_pkg.insert_row', p_log_level_rec => p_log_level_rec);
END Insert_Row;
X_last_update_date DATE,
X_last_updated_by NUMBER,
X_last_update_login NUMBER,
X_rate_source VARCHAR2,
X_calculation_basis VARCHAR2,
X_enabled_flag VARCHAR2,
X_program_name VARCHAR2,
X_description VARCHAR2
, p_log_level_rec IN FA_API_TYPES.log_level_rec_type) IS
CURSOR C IS
Select deprn_basis_rule_id,
rule_name,
user_rule_name,
last_update_date,
last_updated_by,
last_update_login,
rate_source,
deprn_basis,
enabled_flag,
program_name,
description
from FA_DEPRN_BASIS_RULES
Where DEPRN_BASIS_RULE_ID = x_deprn_basis_rule_id
for update of deprn_basis_rule_id nowait;
FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
PROCEDURE Update_Row( X_deprn_basis_rule_id NUMBER,
X_rule_name VARCHAR2,
X_user_rule_name VARCHAR2,
X_last_update_date DATE,
X_last_updated_by NUMBER,
X_last_update_login NUMBER,
X_rate_source VARCHAR2,
X_calculation_basis VARCHAR2,
X_enabled_flag VARCHAR2,
X_program_name VARCHAR2,
X_description VARCHAR2
, p_log_level_rec IN FA_API_TYPES.log_level_rec_type) IS
BEGIN
UPDATE FA_DEPRN_BASIS_RULES
SET
rule_name = X_rule_name,
user_rule_name = X_user_rule_name,
last_update_date = X_last_update_date,
last_updated_by = X_last_updated_by,
last_update_login = X_last_update_login,
rate_source = X_rate_source,
deprn_basis = X_calculation_basis,
enabled_flag = X_enabled_flag,
program_name = X_program_name,
description = X_description
WHERE deprn_basis_rule_id = X_deprn_basis_rule_id;
calling_fn => 'fa_deprn_basis_rules_pkg.update_row', p_log_level_rec => p_log_level_rec);
END Update_Row;
PROCEDURE Delete_Row(X_deprn_basis_rule_id NUMBER
, p_log_level_rec IN FA_API_TYPES.log_level_rec_type) IS
h_count number;
DELETE FROM fa_deprn_basis_rules
WHERE deprn_basis_rule_id = x_deprn_basis_rule_id;
select count(*)
into h_count
from FA_DEPRN_RULE_DETAILS
where deprn_basis_rule_id = x_deprn_basis_rule_id;
DELETE from fa_deprn_rule_details
WHERE deprn_basis_rule_id = x_deprn_basis_rule_id;
calling_fn => 'fa_deprn_basis_rules_pkg.delete_row', p_log_level_rec => p_log_level_rec);
END DELETE_ROW;
select count(*)
into h_record_exists
from fa_deprn_basis_rules
where deprn_basis_rule_id = x_deprn_basis_rule_id;
fa_deprn_basis_rules_pkg.update_row (
X_deprn_basis_rule_id => h_deprn_basis_rule_id,
X_rule_name => X_rule_name,
X_user_rule_name => X_user_rule_name,
X_last_update_date => sysdate,
X_last_updated_by => user_id,
X_last_update_login => 0,
X_rate_source => X_rate_source,
X_calculation_basis => X_calculation_basis,
X_enabled_flag => X_enabled_flag,
X_program_name => X_program_name,
X_description => X_description
, p_log_level_rec => p_log_level_rec);
fa_deprn_basis_rules_pkg.insert_row (
X_deprn_basis_rule_id => h_deprn_basis_rule_id,
X_rule_name => X_rule_name,
X_user_rule_name => X_user_rule_name,
X_last_update_date => sysdate,
X_last_updated_by => user_id,
X_created_by => user_id,
X_creation_date => sysdate,
X_last_update_login => 0,
X_rate_source => X_rate_source,
X_calculation_basis => X_calculation_basis,
X_enabled_flag => X_enabled_flag,
X_program_name => X_program_name,
X_description => X_description
, p_log_level_rec => p_log_level_rec);
X_last_update_date IN DATE,
X_rule_name IN VARCHAR2,
X_user_rule_name IN VARCHAR2 DEFAULT NULL,
X_rate_source IN VARCHAR2 DEFAULT NULL,
X_calculation_basis IN VARCHAR2 DEFAULT NULL,
X_enabled_flag IN VARCHAR2,
X_program_name IN VARCHAR2,
X_description IN VARCHAR2 DEFAULT NULL,
p_log_level_rec IN FA_API_TYPES.log_level_rec_type
DEFAULT NULL) IS
h_record_exists number(15);
db_last_updated_by number;
db_last_update_date date;
select count(*)
into h_record_exists
from fa_deprn_basis_rules
where deprn_basis_rule_id = x_deprn_basis_rule_id;
select last_updated_by, last_update_date
into db_last_updated_by, db_last_update_date
from fa_deprn_basis_rules
where deprn_basis_rule_id = x_deprn_basis_rule_id;
if (fnd_load_util.upload_test(user_id, x_last_update_date,
db_last_updated_by, db_last_update_date,
X_CUSTOM_MODE)) then
fa_deprn_basis_rules_pkg.update_row (
X_deprn_basis_rule_id => h_deprn_basis_rule_id,
X_rule_name => X_rule_name,
X_user_rule_name => X_user_rule_name,
X_last_update_date => sysdate,
X_last_updated_by => user_id,
X_last_update_login => 0,
X_rate_source => X_rate_source,
X_calculation_basis => X_calculation_basis,
X_enabled_flag => X_enabled_flag,
X_program_name => X_program_name,
X_description => X_description,
p_log_level_rec => p_log_level_rec);
fa_deprn_basis_rules_pkg.insert_row (
X_deprn_basis_rule_id => h_deprn_basis_rule_id,
X_rule_name => X_rule_name,
X_user_rule_name => X_user_rule_name,
X_last_update_date => sysdate,
X_last_updated_by => user_id,
X_created_by => user_id,
X_creation_date => sysdate,
X_last_update_login => 0,
X_rate_source => X_rate_source,
X_calculation_basis => X_calculation_basis,
X_enabled_flag => X_enabled_flag,
X_program_name => X_program_name,
X_description => X_description,
p_log_level_rec => p_log_level_rec);
update FA_DEPRN_BASIS_RULES set
USER_RULE_NAME=nvl(X_USER_RULE_NAME, USER_RULE_NAME),
LAST_UPDATED_BY = user_id,
LAST_UPDATE_LOGIN =0,
DESCRIPTION = X_DESCRIPTION
where DEPRN_BASIS_RULE_ID = nvl(X_DEPRN_BASIS_RULE_ID,DEPRN_BASIS_RULE_ID)
and RULE_NAME = nvl(X_RULE_NAME,RULE_NAME)
and userenv('LANG') =
(select language_code
from FND_LANGUAGES
where installed_flag='B');
X_LAST_UPDATE_DATE in DATE,
X_USER_RULE_NAME in VARCHAR2 DEFAULT NULL,
X_RULE_NAME in VARCHAR2 DEFAULT NULL,
X_DESCRIPTION in VARCHAR2 DEFAULT NULL,
p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null) IS
user_id number;
db_last_updated_by number;
db_last_update_date date;
select last_updated_by, last_update_date
into db_last_updated_by, db_last_update_date
from fa_deprn_basis_rules
where deprn_basis_rule_id = x_deprn_basis_rule_id;
if (fnd_load_util.upload_test(user_id, x_last_update_date,
db_last_updated_by, db_last_update_date,
X_CUSTOM_MODE)) then
update FA_DEPRN_BASIS_RULES set
USER_RULE_NAME =nvl(X_USER_RULE_NAME, USER_RULE_NAME),
LAST_UPDATED_BY = user_id,
LAST_UPDATE_LOGIN = 0,
DESCRIPTION = X_DESCRIPTION
where DEPRN_BASIS_RULE_ID = nvl(X_DEPRN_BASIS_RULE_ID,DEPRN_BASIS_RULE_ID)
and RULE_NAME = nvl(X_RULE_NAME,RULE_NAME)
and userenv('LANG') =
(select language_code
from FND_LANGUAGES
where installed_flag = 'B');
X_last_update_date IN DATE,
X_rule_name IN VARCHAR2,
X_user_rule_name IN VARCHAR2,
X_description IN VARCHAR2,
X_enabled_flag IN VARCHAR2,
X_program_name IN VARCHAR2) IS
BEGIN
if (X_upload_mode = 'NLS') then
fa_deprn_basis_rules_pkg.TRANSLATE_ROW (
X_custom_mode => X_custom_mode,
X_deprn_basis_rule_id => X_deprn_basis_rule_id,
X_owner => X_owner,
X_last_update_date => X_last_update_date,
X_user_rule_name => X_user_rule_name,
X_description => X_description);
X_last_update_date => X_last_update_date,
X_rule_name => X_rule_name,
X_user_rule_name => X_user_rule_name,
X_description => X_description,
X_enabled_flag => X_enabled_flag,
X_program_name => X_program_name);