90: OPEN C;
91: FETCH C INTO Recinfo;
92: if (C%NOTFOUND) then
93: CLOSE C;
94: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
95: APP_EXCEPTION.Raise_Exception;
96: end if;
97: CLOSE C;
98: /* Bug 2032728. Modified the lock row procedures for headers to compare truncated
293: AND (p_shipping_control IS NULL))) --
294: ) then
295: return;
296: else
297: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
298: APP_EXCEPTION.RAISE_EXCEPTION;
299: end if;
300:
301: EXCEPTION --Bug 12373682