230: Fetch C into Recinfo;
231: if (C%NOTFOUND) then
232: Close C;
233: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
234: APP_EXCEPTION.Raise_Exception;
235: end if;
236: Close C;
237: if (
238: (Recinfo.validation_tmplt_id = x_validation_tmplt_id)
268: ) then
269: return;
270: else
271: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
272: APP_EXCEPTION.Raise_Exception;
273: end if;
274:
275: Open C1;
276: Fetch C1 into tlinfo;
276: Fetch C1 into tlinfo;
277: if (C1%NOTFOUND) then
278: Close C1;
279: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
280: APP_EXCEPTION.Raise_Exception;
281: end if;
282: Close C1;
283:
284: if (
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: End Lock_Row;
302:
517: WHERE validation_tmplt_id = x_validation_tmplt_id);
518: EXCEPTION
519: WHEN NO_DATA_FOUND THEN
520: fnd_message.set_name('ONT', 'OE_PC_VT_REF_EXISTS');
521: app_exception.raise_exception;
522: End Check_References;
523: -----------------------------------------------------------------------
524: PROCEDURE Check_Unique(
525: x_rowid in varchar2
552: AND ((x_rowid IS null) OR (row_id <> x_rowid));
553:
554: if (dummy >= 1) then
555: fnd_message.set_name('ONT', 'OE_PC_VT_DUP_DISPLAY_NAME');
556: app_exception.raise_exception;
557: end if;
558: end if;
559:
560: if (chk_short_name = TRUE) then
567: AND ((x_rowid IS null) OR (rowid <> x_rowid));
568:
569: if (dummy >= 1) then
570: fnd_message.set_name('ONT', 'OE_PC_VT_DUP_SHORT_NAME');
571: app_exception.raise_exception;
572: end if;
573: end if;
574: End Check_Unique;
575: ------------------------------------------------------------------------