The following lines contain the word 'select', 'insert', 'update' or 'delete':
select 1 into dummy from dual where not exists
(select 1 from ENG_ENGINEERING_CHANGES
where CHANGE_NOTICE = X_Change_Notice
and ORGANIZATION_ID = X_Organization_Id
and ((X_Rowid IS NULL) OR (ROWID <> X_Rowid))
);
PROCEDURE Delete_Row( X_Rowid VARCHAR2,
X_Change_Notice VARCHAR2,
X_Organization_Id NUMBER )IS
BEGIN
delete from ENG_ENGINEERING_CHANGES
where rowid = X_Rowid;
Delete_ECO_Revisions( X_Change_Notice, X_Organization_Id);
END Delete_Row;
PROCEDURE Delete_ECO_Revisions( X_Change_Notice VARCHAR2,
X_Organization_Id NUMBER ) IS
BEGIN
delete from ENG_CHANGE_ORDER_REVISIONS
where CHANGE_NOTICE = X_Change_Notice
and ORGANIZATION_ID = X_Organization_Id;
END Delete_ECO_Revisions;