125: AND ((X_rowid is NULL) OR (rowid <> X_rowid))
126: );
127: EXCEPTION
128: WHEN no_data_found THEN
129: Fnd_Message.Set_Name('BOM','BOM_BILL_ALREADY_EXISTS');
130: Fnd_Message.Set_Token('ENTITY','BILL OF MATERIAL', TRUE);
131: App_Exception.Raise_Exception;
132: END Check_Unique;
133:
126: );
127: EXCEPTION
128: WHEN no_data_found THEN
129: Fnd_Message.Set_Name('BOM','BOM_BILL_ALREADY_EXISTS');
130: Fnd_Message.Set_Token('ENTITY','BILL OF MATERIAL', TRUE);
131: App_Exception.Raise_Exception;
132: END Check_Unique;
133:
134: PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
353: OPEN C;
354: FETCH C INTO Recinfo;
355: if (C%NOTFOUND) then
356: CLOSE C;
357: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
358: APP_EXCEPTION.Raise_Exception;
359: end if;
360: CLOSE C;
361: if (
438: AND (X_Implementation_Date IS NULL)))
439: ) then
440: return;
441: else
442: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
443: APP_EXCEPTION.Raise_Exception;
444: end if;
445: END Lock_Row;
446: