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_ROW_ID IN OUT NOCOPY VARCHAR2,
P_DEFAULT_ASSIGNMENT_ID IN NUMBER,
P_DEFAULT_RULE_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_PAY_BASIS IN VARCHAR2,
P_ELEMENT_VALUE_TYPE IN VARCHAR2,
P_ELEMENT_VALUE IN NUMBER,
P_CURRENCY_CODE 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_default_assignments
where default_rule_id = p_default_rule_id
and default_assignment_id = p_default_assignment_id;
SAVEPOINT INSERT_ROW_PVT;
INSERT INTO psb_default_assignments
(
DEFAULT_ASSIGNMENT_ID ,
DEFAULT_RULE_ID ,
ASSIGNMENT_TYPE ,
ATTRIBUTE_ID ,
ATTRIBUTE_VALUE_ID ,
ATTRIBUTE_VALUE ,
PAY_ELEMENT_ID ,
PAY_ELEMENT_OPTION_ID ,
PAY_BASIS ,
ELEMENT_VALUE_TYPE ,
ELEMENT_VALUE ,
CURRENCY_CODE ,
LAST_UPDATE_DATE ,
LAST_UPDATED_BY ,
LAST_UPDATE_LOGIN ,
CREATED_BY ,
CREATION_DATE
)
VALUES
(
P_DEFAULT_ASSIGNMENT_ID ,
P_DEFAULT_RULE_ID ,
P_ASSIGNMENT_TYPE ,
P_ATTRIBUTE_ID ,
P_ATTRIBUTE_VALUE_ID ,
P_ATTRIBUTE_VALUE ,
P_PAY_ELEMENT_ID ,
P_PAY_ELEMENT_OPTION_ID ,
P_PAY_BASIS ,
P_ELEMENT_VALUE_TYPE ,
P_ELEMENT_VALUE ,
P_CURRENCY_CODE ,
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_ROW_ID IN VARCHAR2,
P_DEFAULT_ASSIGNMENT_ID IN NUMBER,
P_DEFAULT_RULE_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_PAY_BASIS IN VARCHAR2,
P_ELEMENT_VALUE_TYPE IN VARCHAR2,
P_ELEMENT_VALUE IN NUMBER,
P_CURRENCY_CODE 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_default_assignments SET
DEFAULT_ASSIGNMENT_ID = P_DEFAULT_ASSIGNMENT_ID,
DEFAULT_RULE_ID = P_DEFAULT_RULE_ID,
ASSIGNMENT_TYPE = P_ASSIGNMENT_TYPE,
ATTRIBUTE_ID = P_ATTRIBUTE_ID,
ATTRIBUTE_VALUE_ID = P_ATTRIBUTE_VALUE_ID,
ATTRIBUTE_VALUE = P_ATTRIBUTE_VALUE,
PAY_ELEMENT_ID = P_PAY_ELEMENT_ID,
PAY_ELEMENT_OPTION_ID = P_PAY_ELEMENT_OPTION_ID,
PAY_BASIS = P_PAY_BASIS,
ELEMENT_VALUE_TYPE = P_ELEMENT_VALUE_TYPE,
ELEMENT_VALUE = P_ELEMENT_VALUE,
CURRENCY_CODE = P_CURRENCY_CODE,
LAST_UPDATE_DATE = P_LAST_UPDATE_DATE,
LAST_UPDATED_BY = P_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = P_LAST_UPDATE_LOGIN
where ROWID = P_ROW_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_ROW_ID IN VARCHAR2
) IS
l_api_name CONSTANT VARCHAR2(30) := 'DELETE_ROW';
SAVEPOINT DELETE_ROW_PVT;
DELETE FROM psb_default_assignments
where rowid = p_row_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_default_assignments
WHERE rowid = p_row_id
FOR UPDATE of default_assignment_id NOWAIT;
FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
SELECT '1'
FROM psb_default_assignments
WHERE ( attribute_id = p_attribute_id
OR pay_element_id = p_pay_element_id
OR (pay_element_option_id = p_pay_element_option_id
and pay_element_id = p_pay_element_id )
)
AND (default_rule_id = p_default_rule_id )
AND (default_assignment_id <> p_default_assignment_id);