[Home] [Help]
32: Fetch cur_old_ref_values INTO old_references;
33: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT', 'VALIDATE_INSERT')) THEN
34: Close cur_old_ref_values;
35: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
36: IGS_GE_MSG_STACK.ADD;
37: App_Exception.Raise_Exception;
38: Return;
39: END IF;
40: Close cur_old_ref_values;
67: END IF;
68: IF upper(Column_name) = 'TABLE_NAME' OR column_name is null then
69: IF new_references.table_name <> UPPER(new_references.table_name ) then
70: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
71: IGS_GE_MSG_STACK.ADD;
72: App_Exception.Raise_Exception;
73: END IF;
74: END IF;
75: END Check_Constraints;
133: new_references.table_name,
134: new_references.session_id
135: )THEN
136: Fnd_Message.Set_Name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
137: IGS_GE_MSG_STACK.ADD;
138: App_Exception.Raise_Exception;
139: END IF ;
140: Check_Constraints;
141: ELSIF (p_action = 'UPDATE') THEN
150: new_references.table_name,
151: new_references.session_id
152: )THEN
153: Fnd_Message.Set_Name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
154: IGS_GE_MSG_STACK.ADD;
155: App_Exception.Raise_Exception;
156: END IF ;
157: Check_Constraints;
158: ELSIF (p_action = 'VALIDATE_UPDATE') THEN
217: X_LAST_UPDATE_LOGIN := -1;
218: end if;
219: else
220: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
221: IGS_GE_MSG_STACK.ADD;
222: app_exception.raise_exception;
223: end if;
224: Before_DML(
225: p_action => 'INSERT',
265:
266: EXCEPTION
267: WHEN OTHERS THEN
268: Fnd_Message.Set_Name('IGS' , 'IGS_GE_UNHANDLED_EXCEPTION');
269: IGS_GE_MSG_STACK.ADD;
270: App_Exception.Raise_Exception ;
271: end INSERT_ROW;
272:
273: procedure LOCK_ROW (
285: fetch c1 into tlinfo;
286: if (c1%notfound) then
287: close c1;
288: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
289: IGS_GE_MSG_STACK.ADD;
290: app_exception.raise_exception;
291: return;
292: end if;
293: close c1;