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_RULE_ID in NUMBER,
P_NAME in VARCHAR2,
P_GLOBAL_DEFAULT_FLAG IN VARCHAR2,
P_DATA_EXTRACT_ID IN NUMBER,
P_BUSINESS_GROUP_ID IN NUMBER,
P_ENTITY_ID IN NUMBER,
P_PRIORITY IN NUMBER,
P_CREATION_DATE in DATE,
P_CREATED_BY in NUMBER,
P_LAST_UPDATE_DATE in DATE,
P_LAST_UPDATED_BY in NUMBER,
P_LAST_UPDATE_LOGIN in NUMBER,
/* Bug 1308558 Start */
P_OVERWRITE IN VARCHAR2 DEFAULT NULL
/* Bug 1308558 End */
) IS
l_api_name CONSTANT VARCHAR2(30) := 'INSERT_ROW';
select ROWID from psb_defaults
where default_rule_id = p_default_rule_id;
SAVEPOINT INSERT_ROW_PVT;
INSERT INTO psb_defaults
(
DEFAULT_RULE_ID ,
NAME ,
GLOBAL_DEFAULT_FLAG ,
DATA_EXTRACT_ID ,
BUSINESS_GROUP_ID ,
ENTITY_ID ,
PRIORITY ,
CREATION_DATE ,
CREATED_BY ,
LAST_UPDATE_DATE ,
LAST_UPDATED_BY ,
LAST_UPDATE_LOGIN ,
/* Bug 1308558 Start */
OVERWRITE
)
VALUES
(
P_DEFAULT_RULE_ID ,
P_NAME ,
P_GLOBAL_DEFAULT_FLAG ,
P_DATA_EXTRACT_ID ,
P_BUSINESS_GROUP_ID ,
P_ENTITY_ID ,
P_PRIORITY ,
P_CREATION_DATE ,
P_CREATED_BY ,
P_LAST_UPDATE_DATE ,
P_LAST_UPDATED_BY ,
P_LAST_UPDATE_LOGIN ,
P_OVERWRITE
);
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_RULE_ID in NUMBER,
P_NAME in VARCHAR2,
P_GLOBAL_DEFAULT_FLAG IN VARCHAR2,
P_DATA_EXTRACT_ID IN NUMBER,
P_BUSINESS_GROUP_ID IN NUMBER,
P_ENTITY_ID IN NUMBER,
P_PRIORITY IN NUMBER,
P_LAST_UPDATE_DATE in DATE,
P_LAST_UPDATED_BY in NUMBER,
P_LAST_UPDATE_LOGIN in NUMBER,
/* Bug 1308558 Start */
P_OVERWRITE IN VARCHAR2 DEFAULT NULL
/* Bug 1308558 End */
) IS
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_ROW';
SAVEPOINT UPDATE_ROW_PVT;
UPDATE psb_defaults SET
DEFAULT_RULE_ID = P_DEFAULT_RULE_ID,
NAME = P_NAME,
GLOBAL_DEFAULT_FLAG = P_GLOBAL_DEFAULT_FLAG,
DATA_EXTRACT_ID = P_DATA_EXTRACT_ID,
BUSINESS_GROUP_ID = P_BUSINESS_GROUP_ID,
ENTITY_ID = P_ENTITY_ID,
PRIORITY = P_PRIORITY,
LAST_UPDATE_DATE = P_LAST_UPDATE_DATE,
LAST_UPDATED_BY = P_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = P_LAST_UPDATE_LOGIN,
/* Bug 1308558 Start */
OVERWRITE = P_OVERWRITE
/* Bug 1308558 End */
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_DEFAULT_RULE_ID IN NUMBER,
P_ENTITY_ID IN NUMBER,
/* Bug 1308558 Start */
P_SOURCE_FORM IN VARCHAR2 DEFAULT NULL
/* Bug 1308558 End */
) IS
l_api_name CONSTANT VARCHAR2(30) := 'DELETE_ROW';
SAVEPOINT DELETE_ROW_PVT;
DELETE FROM psb_default_assignments
WHERE default_rule_id = p_default_rule_id;
DELETE FROM psb_default_account_distrs
WHERE default_rule_id = p_default_rule_id;
DELETE FROM psb_defaults
WHERE default_rule_id = p_default_rule_id
AND NOT EXISTS(
SELECT 1
FROM PSB_FTE_RULES_V
WHERE default_rule_id = p_default_rule_id
);
DELETE FROM psb_entity
WHERE entity_id = p_entity_id;
DELETE FROM psb_allocrule_percents
WHERE allocation_rule_id = p_entity_id;
DELETE FROM psb_defaults
WHERE default_rule_id = p_default_rule_id
AND NOT EXISTS(
SELECT 1
FROM PSB_NON_FTE_RULES_V
WHERE default_rule_id = p_default_rule_id
);
DELETE FROM psb_default_assignments
WHERE default_rule_id = p_default_rule_id;
DELETE FROM psb_default_account_distrs
WHERE default_rule_id = p_default_rule_id;
DELETE FROM psb_defaults
WHERE default_rule_id = p_default_rule_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_defaults
WHERE rowid = p_row_id
FOR UPDATE of default_rule_id NOWAIT;
FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
SELECT '1'
FROM psb_defaults
WHERE name = p_name
AND ( (p_default_rule_id IS NULL)
OR ( default_rule_id <> p_default_rule_id) )
AND (data_extract_id = p_data_extract_id);
SELECT (1)
FROM psb_defaults
WHERE data_extract_id = p_data_extract_id
AND global_default_flag = p_global_default_flag
AND ( (p_row_id IS NULL)
OR ( rowid <> p_row_id) );
SELECT '1'
FROM psb_position_assignments pa, psb_position_pay_distributions ppd
WHERE pa.assignment_default_rule_id = p_default_rule_id
OR ppd.distribution_default_rule_id = p_default_rule_id;