The following lines contain the word 'select', 'insert', 'update' or 'delete':
(EGO_Globals.G_OPR_UPDATE, EGO_Globals.G_OPR_DELETE)
THEN
l_token_tbl(1).token_name := 'CATALOG_GROUP_NAME';
EGO_Globals.G_OPR_UPDATE;
SELECT inactive_date INTO l_parent_inactive_date FROM mtl_item_catalog_groups_b
WHERE item_catalog_group_id = EGO_Globals.G_Catalog_Group_Rec.parent_catalog_group_id;
SELECT MICG.item_catalog_group_id
INTO l_ccid
FROM mtl_item_catalog_groups MICG
WHERE upper(decode(MICG.item_catalog_group_id, NULL, NULL,
FND_FLEX_SERVER.GET_KFV_CONCAT_SEGS_BY_CCID('COMPACT',401,'MICG',
101,MICG.item_catalog_group_id,NULL) )) = upper(EGO_Globals.G_Catalog_Group_Rec.catalog_group_name);
( EGO_Globals.G_Catalog_Group_Rec.Transaction_Type = EGO_Globals.G_OPR_UPDATE AND
EGO_Globals.G_Catalog_Group_Rec.Catalog_group_id <> l_ccid )
THEN
-- dbms_output.put_line('Duplicate error in : '||EGO_Globals.G_Catalog_Group_Rec.Transaction_Type);
PROCEDURE Check_Entity_Delete
( x_return_status OUT NOCOPY VARCHAR2
, x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
)
IS
l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;
-- dbms_output.put_line('Checking for items during delete');
SELECT 'x' INTO l_dummy FROM dual WHERE EXISTS (SELECT null FROM mtl_system_items_b
WHERE item_catalog_group_id = EGO_Globals.G_Catalog_Group_Rec.Catalog_group_id);
( p_message_text => 'Error in Check Entity Delete : Catalog group name is '||EGO_Globals.G_Catalog_Group_Rec.Catalog_group_name||'/'||SQLERRM
, x_mesg_token_tbl => x_mesg_token_tbl
);
-- dbms_output.put_line('Checking for parent catalog group during delete');
SELECT 'x' INTO l_dummy FROM dual WHERE EXISTS (SELECT null FROM mtl_item_catalog_groups_b
WHERE parent_catalog_group_id = EGO_Globals.G_Catalog_Group_Rec.Catalog_group_id);
-- dbms_output.put_line('Found parent catalog group during delete');
( p_message_text => 'Error in Check Entity Delete : Catalog group name is '||EGO_Globals.G_Catalog_Group_Rec.Catalog_group_name||'/'||SQLERRM
, x_mesg_token_tbl => x_mesg_token_tbl
);
END Check_Entity_Delete;