[Home] [Help]
53: Fetch cur_old_ref_values INTO old_references;
54: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
55: Close cur_old_ref_values;
56: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
57: IGS_GE_MSG_STACK.ADD;
58: App_Exception.Raise_Exception;
59: Return;
60: END IF;
61: Close cur_old_ref_values;
202: Null;
203: IF Get_Pk_For_Validation(
204: new_references.data_element) THEN
205: Fnd_Message.Set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
206: IGS_GE_MSG_STACK.ADD;
207: App_Exception.Raise_Exception;
208: END IF;
209: Check_Constraints;
210: ELSIF (p_action = 'UPDATE') THEN
219: -- Call all the procedures related to Before Insert.
220: IF Get_PK_For_Validation (
221: new_references.data_element) THEN
222: Fnd_Message.Set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
223: IGS_GE_MSG_STACK.ADD;
224: App_Exception.Raise_Exception;
225: END IF;
226: Check_Constraints;
227: ELSIF (p_action = 'VALIDATE_UPDATE') THEN
303: X_LAST_UPDATE_LOGIN := -1;
304: end if;
305: else
306: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
307: IGS_GE_MSG_STACK.ADD;
308: app_exception.raise_exception;
309: end if;
310: Before_DML(
311: p_action=>'INSERT',
375: open c1;
376: fetch c1 into tlinfo;
377: if (c1%notfound) then
378: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
379: IGS_GE_MSG_STACK.ADD;
380: close c1;
381: app_exception.raise_exception;
382: return;
383: end if;
387: ) then
388: null;
389: else
390: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
391: IGS_GE_MSG_STACK.ADD;
392: app_exception.raise_exception;
393: end if;
394: return;
395: end LOCK_ROW;
429: X_LAST_UPDATE_LOGIN := -1;
430: end if;
431: else
432: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
433: IGS_GE_MSG_STACK.ADD;
434: app_exception.raise_exception;
435: end if;
436: Before_DML(
437: p_action=>'UPDATE',