The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Insert_Relation
( p_api_version_number IN NUMBER ,
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
p_simulate 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 VARCHAR2 ,
p_msg_count OUT NUMBER ,
p_msg_data OUT VARCHAR2 ,
p_template IN VARCHAR2 DEFAULT NULL ,
p_related_template IN VARCHAR2 DEFAULT NULL ,
p_relationship_type IN VARCHAR2 ,
p_created_by IN NUMBER
) IS
l_api_version_number CONSTANT NUMBER := 1.0;
SAVEPOINT Insert_Relation_PUB;
'Insert_Relation',
G_PKG_NAME)
THEN
RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
select count(*) into l_count
from po_reqexpress_headers
where express_name = p_template;
select count(*) into l_count
from po_reqexpress_headers
where express_name = p_related_template;
select count(*) into l_count
from po_related_templates
where express_name = p_template
and related_express_name = p_related_template;
select count(*) into l_count
from po_related_templates
where express_name = p_template
and related_express_name = p_related_template;
select count(*) into l_count
from fnd_lookups
where lookup_type = 'ICX_RELATIONS'
and enabled_flag = 'Y'
and lookup_code = p_relationship_type;
insert into po_related_templates
(express_name,
related_express_name,
relationship_type,
created_by,
creation_date,
last_updated_by,
last_update_date)
values
(p_template,
p_related_template,
p_relationship_type,
p_created_by,
sysdate,
p_created_by,
sysdate);
ROLLBACK TO Insert_Relation_PUB;
'Insert_Relation'
);
END; -- Insert_Relation
PROCEDURE Delete_Relation
( p_api_version_number IN NUMBER ,
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
p_simulate 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 VARCHAR2 ,
p_msg_count OUT NUMBER ,
p_msg_data OUT VARCHAR2 ,
p_template IN VARCHAR2 DEFAULT NULL ,
p_related_template IN VARCHAR2 DEFAULT NULL
) IS
l_api_version_number CONSTANT NUMBER := 1.0;
SAVEPOINT Delete_Relation_PUB;
'Delete Relation',
G_PKG_NAME)
THEN
RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
delete from po_related_templates
where express_name = p_template
and related_express_name = p_related_template;
ROLLBACK TO Insert_Relation_PUB;
-- add message: Relation to delete does not exist
FND_MESSAGE.SET_NAME('ICX','ICX_CAT_DELETE');
'Delete_Relation'
);
END; -- Delete_Relation