The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT 1
FROM dual
WHERE EXISTS (SELECT NULL
FROM ego_mtl_catalog_grp_vers_b ver
WHERE ver.item_catalog_group_id = p_catalog_group_id
AND version_seq_id > 0);
FUNCTION is_parent_update_allowed (p_catalog_group_id IN NUMBER) RETURN BOOLEAN IS
l_p4t_enabled fnd_profile_option_values.profile_option_value%TYPE;
END is_parent_update_allowed;
FUNCTION is_parent_updated (p_catalog_group_id IN NUMBER,
p_parent_group_id IN NUMBER,
p_parent_group_name IN VARCHAR2) RETURN BOOLEAN IS
l_parent_group_id mtl_item_catalog_groups_b.parent_catalog_group_id%TYPE;
SELECT parent.item_catalog_group_id, parent.catalog_concat_segs
FROM mtl_item_catalog_groups_b cat,
mtl_item_catalog_groups_v parent
WHERE cat.item_catalog_group_id = p_catalog_group_id
AND cat.parent_catalog_group_id = parent.item_catalog_group_id ;
END is_parent_updated;
if profile_value = 'Y' AND EGO_Globals.G_Catalog_Group_Rec.transaction_type = Ego_Globals.G_OPR_UPDATE THEN
SELECT Count(*) INTO version_count FROM EGO_MTL_CATALOG_GRP_VERS_B
WHERE
item_catalog_group_id = (SELECT item_catalog_group_id FROM mtl_item_catalog_groups_b WHERE segment1=EGO_Globals.G_Catalog_Group_Rec.Catalog_Group_Name)
AND version_seq_id>0;
IF EGO_Globals.G_Catalog_Group_Rec.transaction_type = Ego_Globals.G_OPR_UPDATE THEN
IF (EGO_Globals.G_Catalog_Group_Rec.Parent_Catalog_Group_Name IS NOT NULL OR
EGO_Globals.G_Catalog_Group_Rec.Parent_Catalog_Group_Name <> FND_API.G_MISS_CHAR) OR
(EGO_Globals.G_Catalog_Group_Rec.Parent_Catalog_Group_Id IS NOT NULL OR
EGO_Globals.G_Catalog_Group_Rec.Parent_Catalog_Group_Id <> FND_API.G_MISS_NUM) THEN
IF is_parent_updated (p_catalog_group_id => EGO_Globals.G_Catalog_Group_Rec.Catalog_Group_Id,
p_parent_group_id => EGO_Globals.G_Catalog_Group_Rec.Parent_Catalog_Group_Id,
p_parent_group_name => EGO_Globals.G_Catalog_Group_Rec.Parent_Catalog_Group_Name) THEN
IF (NOT is_parent_update_allowed(EGO_Globals.G_Catalog_Group_Rec.Catalog_Group_Id)) THEN
l_return_status := FND_API.G_RET_STS_ERROR;
Error_Handler.Write_Debug('Raising exception as parent update is not allowed. . .QUIT_RECORD');
END IF; -- parent update allowed
END IF; -- parent updated
END IF; -- update
(Ego_Globals.G_OPR_UPDATE, Ego_Globals.G_OPR_CREATE)
THEN
Error_Handler.Write_Debug('Performing check attributes');
-- Process Flow step 10: Populate null columns for UPDATE
-- OR Perform attribute defaulting for CREATE
--
IF EGO_Globals.G_Catalog_Group_Rec.transaction_type IN
(EGO_Globals.G_OPR_UPDATE, EGO_Globals.G_OPR_DELETE)
THEN
Error_Handler.Write_Debug('Populate NULL columns . . .');
IF EGO_Globals.G_Catalog_Group_Rec.transaction_type <> EGO_Globals.G_OPR_DELETE
THEN
Ego_Validate_Catalog_Group.Check_Entity
( x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
, x_return_status => l_Return_Status
);
ELSIF EGO_Globals.G_Catalog_Group_Rec.transaction_type = EGO_Globals.G_OPR_DELETE
THEN
Ego_Validate_Catalog_Group.Check_Entity_Delete
( x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
, x_return_status => l_Return_Status
);
-- dbms_output.put_line('Raising exception in delete');