254: OPEN C;
255: FETCH C INTO Recinfo;
256: if (C%NOTFOUND) then
257: CLOSE C;
258: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
259: APP_EXCEPTION.Raise_Exception;
260: end if;
261: CLOSE C;
262: if ( ( (Recinfo.employee_id = X_Employee_Id)
401: AND (X_CardProgramId IS NULL)))
402: ) then
403: return;
404: else
405: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
406: APP_EXCEPTION.Raise_Exception;
407: end if;
408: END Lock_Row;
409:
618: OPEN C;
619: FETCH C INTO Recinfo;
620: IF (C%NOTFOUND) THEN
621: CLOSE C;
622: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
623: APP_EXCEPTION.Raise_Exception;
624: END IF;
625: CLOSE C;
626:
629: AND (X_Vendor_Site_Id IS NULL)))
630: THEN
631: RETURN;
632: ELSE
633: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
634: APP_EXCEPTION.Raise_Exception;
635: END IF;
636: END Supplier_Lock_Row;
637: