The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT item_group_id
FROM ahl_item_groups_b
WHERE upper(name) = upper (p_ig_name) AND
source_item_group_id IS NULL;
SELECT mc_header_id
FROM ahl_mc_headers_b
WHERE upper(name) = upper (p_name)
AND version_number = p_version_number;
IF (p_module_type = 'JSP' AND p_x_node_rec.operation_flag <> G_DML_DELETE)
THEN
-- Validate and Convert node position reference meaning to code
p_x_node_rec.position_ref_meaning := RTRIM(p_x_node_rec.position_ref_meaning);
IF (p_x_subconfig_tbl(i).operation_flag <> G_DML_DELETE)
THEN
p_x_subconfig_tbl(i).name := RTRIM(p_x_subconfig_tbl(i).name);
IF (p_x_counter_rules_tbl(i).operation_flag <> G_DML_DELETE)
THEN
-- This field is represented in UI with a dropdown, hence need to check for validity of the code only
IF (p_x_counter_rules_tbl(i).rule_code IS NULL)
THEN
-- This is a mandatory field, hence throw error
FND_MESSAGE.Set_Name('AHL', 'AHL_MC_RULE_NULL');
ELSIF (p_x_node_rec.operation_flag = G_DML_DELETE)
THEN
AHL_MC_Node_PVT.Delete_Node
(
p_api_version => 1.0,
p_init_msg_list => FND_API.G_FALSE,
p_commit => FND_API.G_FALSE,
p_validation_level => FND_API.G_VALID_LEVEL_FULL,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_node_id => p_x_node_rec.relationship_id,
p_object_ver_num => p_x_node_rec.object_version_number
);
PROCEDURE Delete_Nodes
(
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,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_nodes_tbl IN AHL_MC_Node_PVT.Node_Tbl_Type
)
IS
-- 1. Define local variables
l_api_name CONSTANT VARCHAR2(30) := 'Delete_Nodes';
SAVEPOINT Delete_Nodes_SP;
AHL_MC_Node_PVT.Delete_Node
(
p_api_version => 1.0,
p_init_msg_list => FND_API.G_FALSE,
p_commit => FND_API.G_FALSE,
p_validation_level => FND_API.G_VALID_LEVEL_FULL,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_node_id => p_nodes_tbl(i).relationship_id,
p_object_ver_num => p_nodes_tbl(i).object_version_number
);
'Deleted Node ['||p_nodes_tbl(i).relationship_id||']'
);
Rollback to Delete_Nodes_SP;
Rollback to Delete_Nodes_SP;
Rollback to Delete_Nodes_SP;
p_procedure_name => 'Delete_Nodes',
p_error_text => SUBSTR(SQLERRM,1,240)
);
END Delete_Nodes;