The following lines contain the word 'select', 'insert', 'update' or 'delete':
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_POSITION_SET_GROUP_ID in NUMBER,
P_PAY_ELEMENT_ID in NUMBER,
P_NAME in VARCHAR2,
P_LAST_UPDATE_DATE in DATE,
P_LAST_UPDATED_BY in NUMBER,
P_LAST_UPDATE_LOGIN in NUMBER,
P_CREATED_BY in NUMBER,
P_CREATION_DATE in DATE
) IS
l_api_name CONSTANT VARCHAR2(30) := 'INSERT_ROW';
select ROWID from psb_element_pos_set_groups
where position_set_group_id = p_position_set_group_id
and pay_element_id = p_pay_element_id;
SAVEPOINT INSERT_ROW_PVT;
INSERT INTO psb_element_pos_set_groups
(
POSITION_SET_GROUP_ID ,
PAY_ELEMENT_ID ,
NAME ,
LAST_UPDATE_DATE ,
LAST_UPDATED_BY ,
LAST_UPDATE_LOGIN ,
CREATED_BY ,
CREATION_DATE
)
VALUES
(
P_POSITION_SET_GROUP_ID ,
P_PAY_ELEMENT_ID ,
P_NAME ,
P_LAST_UPDATE_DATE ,
P_LAST_UPDATED_BY ,
P_LAST_UPDATE_LOGIN ,
P_CREATED_BY ,
P_CREATION_DATE
);
rollback to INSERT_ROW_PVT;
rollback to INSERT_ROW_PVT;
rollback to INSERT_ROW_PVT;
END INSERT_ROW;
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_SET_GROUP_ID in NUMBER,
P_PAY_ELEMENT_ID in NUMBER,
P_NAME in VARCHAR2,
P_LAST_UPDATE_DATE in DATE,
P_LAST_UPDATED_BY in NUMBER,
P_LAST_UPDATE_LOGIN in NUMBER
) IS
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_ROW';
SAVEPOINT UPDATE_ROW_PVT;
UPDATE psb_element_pos_set_groups SET
NAME = P_NAME ,
LAST_UPDATE_DATE = P_LAST_UPDATE_DATE ,
LAST_UPDATED_BY = P_LAST_UPDATED_BY ,
LAST_UPDATE_LOGIN = P_LAST_UPDATE_LOGIN
WHERE position_set_group_id = p_position_set_group_id
AND pay_element_id = p_pay_element_id;
rollback to UPDATE_ROW_PVT;
rollback to UPDATE_ROW_PVT;
rollback to UPDATE_ROW_PVT;
END UPDATE_ROW;
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_SET_GROUP_ID IN NUMBER,
P_PAY_ELEMENT_ID IN NUMBER
) IS
l_api_name CONSTANT VARCHAR2(30) := 'DELETE_ROW';
SAVEPOINT DELETE_ROW_PVT;
DELETE FROM psb_pay_element_distributions
WHERE position_set_group_id = p_position_set_group_id;
DELETE FROM psb_element_pos_set_groups
WHERE position_set_group_id = p_position_set_group_id
AND pay_element_id = p_pay_element_id;
rollback to DELETE_ROW_PVT;
rollback to DELETE_ROW_PVT;
rollback to DELETE_ROW_PVT;
END DELETE_ROW;
CURSOR C IS SELECT * FROM PSB_ELEMENT_POS_SET_GROUPS
WHERE position_set_group_id = p_position_set_group_id
AND pay_element_id = p_pay_element_id
FOR UPDATE of POSITION_SET_GROUP_Id NOWAIT;
FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
SELECT '1'
FROM psb_element_pos_set_groups
WHERE p_pay_element_id IS NOT NULL
AND name = p_name
AND pay_element_id = p_pay_element_id
AND (
p_position_set_group_id IS NULL
OR
position_set_group_id <> p_position_set_group_id
);
SELECT '1'
FROM psb_set_relations
WHERE position_set_group_id = p_position_set_group_id;