The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE UPDATE_ROW (
p_api_version in number,
p_init_msg_list in varchar2 := fnd_api.g_false,
p_commit in varchar2 := fnd_api.g_false,
p_validation_level in number := fnd_api.g_valid_level_full,
p_return_status OUT NOCOPY varchar2,
p_msg_count OUT NOCOPY number,
p_msg_data OUT NOCOPY varchar2,
p_position_assignment_id in number,
p_pay_element_id in number := FND_API.G_MISS_NUM,
p_pay_element_option_id in number := FND_API.G_MISS_NUM,
p_attribute_value_id in number := FND_API.G_MISS_NUM,
p_attribute_value in varchar2 := FND_API.G_MISS_CHAR,
p_effective_start_date in date := FND_API.G_MISS_DATE,
p_effective_end_date in date := FND_API.G_MISS_DATE,
p_element_value_type in varchar2 := FND_API.G_MISS_CHAR,
p_element_value in number := FND_API.G_MISS_NUM,
p_pay_basis in varchar2 := FND_API.G_MISS_CHAR,
p_employee_id in number := FND_API.G_MISS_NUM,
p_primary_employee_flag in varchar2 := FND_API.G_MISS_CHAR,
p_global_default_flag in varchar2 := FND_API.G_MISS_CHAR,
p_assignment_default_rule_id in number := FND_API.G_MISS_NUM,
p_modify_flag in varchar2,
p_mode in varchar2
) is
P_LAST_UPDATE_DATE DATE;
P_LAST_UPDATED_BY NUMBER;
P_LAST_UPDATE_LOGIN NUMBER;
l_api_name CONSTANT VARCHAR2(30) := 'Update_Row';
l_insert_flag VARCHAR2(1) DEFAULT 'N';
SAVEPOINT Update_Row ;
P_LAST_UPDATE_DATE := SYSDATE;
P_LAST_UPDATED_BY := 1;
P_LAST_UPDATE_LOGIN := 0;
P_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
if P_LAST_UPDATED_BY is NULL then
P_LAST_UPDATED_BY := -1;
P_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;
if P_LAST_UPDATE_LOGIN is NULL then
P_LAST_UPDATE_LOGIN := -1;
update PSB_POSITION_ASSIGNMENTS set
pay_element_id = decode(p_pay_element_id, FND_API.G_MISS_NUM, pay_element_id, p_pay_element_id),
pay_element_option_id = decode(p_pay_element_option_id, FND_API.G_MISS_NUM, pay_element_option_id, p_pay_element_option_id),
attribute_value_id = decode(p_attribute_value_id, FND_API.G_MISS_NUM, attribute_value_id, p_attribute_value_id),
attribute_value = decode(p_attribute_value, FND_API.G_MISS_CHAR, attribute_value, p_attribute_value),
effective_start_date = decode(p_effective_start_date, FND_API.G_MISS_DATE, effective_start_date, trunc(p_effective_start_date)),
effective_end_date = decode(p_effective_end_date, FND_API.G_MISS_DATE, effective_end_date, trunc(p_effective_end_date)),
element_value_type = decode(p_element_value_type, FND_API.G_MISS_CHAR, element_value_type, p_element_value_type),
element_value = decode(p_element_value, FND_API.G_MISS_NUM, element_value, p_element_value),
pay_basis = decode(p_pay_basis, FND_API.G_MISS_CHAR, pay_basis, p_pay_basis),
employee_id = decode(p_employee_id, FND_API.G_MISS_NUM, employee_id, p_employee_id),
primary_employee_flag = decode(p_primary_employee_flag,
FND_API.G_MISS_CHAR,
primary_employee_flag, p_primary_employee_flag),
global_default_flag = decode(p_global_default_flag, FND_API.G_MISS_CHAR, global_default_flag, p_global_default_flag),
assignment_default_rule_id = decode(p_assignment_default_rule_id, FND_API.G_MISS_NUM, assignment_default_rule_id, p_assignment_default_rule_id),
modify_flag = p_modify_flag,
last_update_date = p_last_update_date,
last_updated_by = p_last_updated_by,
last_update_login = p_last_update_login
where position_assignment_id = p_position_assignment_id;
rollback to Update_Row ;
rollback to Update_Row ;
rollback to Update_Row ;
END UPDATE_ROW;
PROCEDURE INSERT_ROW (
p_api_version in number,
p_init_msg_list in varchar2 := fnd_api.g_false,
p_commit in varchar2 := fnd_api.g_false,
p_validation_level in number := fnd_api.g_valid_level_full,
p_return_status OUT NOCOPY varchar2,
p_msg_count OUT NOCOPY number,
p_msg_data OUT NOCOPY varchar2,
p_rowid in OUT NOCOPY varchar2,
p_position_assignment_id in OUT NOCOPY number,
p_data_extract_id in number,
p_worksheet_id in number,
p_position_id in number,
p_assignment_type in varchar2,
p_attribute_id in number,
p_attribute_value_id in number,
p_attribute_value in varchar2,
p_pay_element_id in number,
p_pay_element_option_id in number,
p_effective_start_date in date,
p_effective_end_date in date,
p_element_value_type in varchar2,
p_element_value in number,
p_currency_code in varchar2,
p_pay_basis in varchar2,
p_employee_id in number,
p_primary_employee_flag in varchar2,
p_global_default_flag in varchar2,
p_assignment_default_rule_id in number,
p_modify_flag in varchar2,
p_mode in varchar2
) is
cursor C is select ROWID from PSB_POSITION_ASSIGNMENTS
where position_assignment_id = p_position_assignment_id;
P_LAST_UPDATE_DATE DATE;
P_LAST_UPDATED_BY NUMBER;
P_LAST_UPDATE_LOGIN NUMBER;
l_api_name CONSTANT VARCHAR2(30) := 'Insert_Row' ;
SAVEPOINT INSERT_ROW ;
P_LAST_UPDATE_DATE := SYSDATE;
P_LAST_UPDATED_BY := 1;
P_LAST_UPDATE_LOGIN := 0;
P_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
if P_LAST_UPDATED_BY is NULL then
P_LAST_UPDATED_BY := -1;
P_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;
if P_LAST_UPDATE_LOGIN is NULL then
P_LAST_UPDATE_LOGIN := -1;
SELECT psb_position_assignments_s.NEXTVAL
INTO p_position_assignment_id
FROM dual;
insert into PSB_POSITION_ASSIGNMENTS (
position_assignment_id ,
data_extract_id ,
worksheet_id ,
position_id ,
assignment_type ,
attribute_id ,
attribute_value_id ,
attribute_value ,
pay_element_id ,
pay_element_option_id ,
effective_start_date ,
effective_end_date ,
element_value_type ,
element_value ,
currency_code ,
pay_basis ,
employee_id ,
primary_employee_flag,
global_default_flag ,
assignment_default_rule_id ,
modify_flag ,
creation_date,
created_by,
last_update_date,
last_updated_by,
last_update_login
) values (
p_position_assignment_id ,
p_data_extract_id ,
p_worksheet_id ,
p_position_id ,
p_assignment_type ,
p_attribute_id ,
p_attribute_value_id ,
p_attribute_value ,
p_pay_element_id ,
p_pay_element_option_id ,
trunc(p_effective_start_date) , -- truncated the date for bug 4377166
trunc(p_effective_end_date) , -- truncated the date for bug 4377166
p_element_value_type ,
p_element_value ,
p_currency_code ,
p_pay_basis ,
p_employee_id ,
p_primary_employee_flag,
p_global_default_flag ,
p_assignment_default_rule_id ,
p_modify_flag ,
p_last_update_date,
p_last_updated_by,
p_last_update_date,
p_last_updated_by,
p_last_update_login
);
rollback to INSERT_ROW ;
rollback to INSERT_ROW ;
rollback to INSERT_ROW ;
END INSERT_ROW;
cursor c1 is select
position_assignment_id ,
data_extract_id ,
worksheet_id ,
position_id ,
assignment_type ,
attribute_id ,
attribute_value_id ,
attribute_value ,
pay_element_id ,
pay_element_option_id ,
effective_start_date ,
effective_end_date ,
element_value_type ,
element_value ,
currency_code ,
pay_basis ,
employee_id ,
primary_employee_flag ,
global_default_flag ,
assignment_default_rule_id ,
modify_flag
from PSB_POSITION_ASSIGNMENTS
where position_assignment_id = P_position_assignment_id
for update of position_assignment_id nowait;
PROCEDURE DELETE_ROW (
p_api_version in number,
p_init_msg_list in varchar2 := fnd_api.g_false,
p_commit in varchar2 := fnd_api.g_false,
p_validation_level in number := fnd_api.g_valid_level_full,
p_return_status OUT NOCOPY varchar2,
p_msg_count OUT NOCOPY number,
p_msg_data OUT NOCOPY varchar2,
p_position_assignment_id in number
) is
--
l_api_name CONSTANT VARCHAR2(30) := 'Delete Row' ;
SAVEPOINT DELETE_ROW ;
delete from PSB_POSITION_ASSIGNMENTS
where position_assignment_id = p_position_assignment_id;
rollback to DELETE_ROW;
rollback to DELETE_ROW;
rollback to DELETE_ROW ;
END DELETE_ROW;