36: -- Populate Old Values.
37: Open cur_old_ref_values;
38: Fetch cur_old_ref_values INTO old_references;
39: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
40: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
41: IGS_GE_MSG_STACK.ADD;
42: App_Exception.Raise_Exception;
43: Close cur_old_ref_values;
44: Return;
148: new_references.org_unit_cd ,
149: new_references.ou_start_dt ,
150: new_references.hist_start_dt
151: )THEN
152: Fnd_Message.Set_Name('IGS','IGS_GE_MULTI_ORG_DUP_REC');
153: IGS_GE_MSG_STACK.ADD;
154: App_Exception.Raise_Exception ;
155:
156: END IF;
169: new_references.org_unit_cd ,
170: new_references.ou_start_dt ,
171: new_references.hist_start_dt
172: )THEN
173: Fnd_Message.Set_Name('IGS','IGS_GE_MULTI_ORG_DUP_REC');
174: IGS_GE_MSG_STACK.ADD;
175: App_Exception.Raise_Exception ;
176: end if;
177: Check_Constraints ;
231: if X_LAST_UPDATE_LOGIN is NULL then
232: X_LAST_UPDATE_LOGIN := -1;
233: end if;
234: else
235: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
236: IGS_GE_MSG_STACK.ADD;
237: app_exception.raise_exception;
238: end if;
239: Before_DML(
342: begin
343: open c1;
344: fetch c1 into tlinfo;
345: if (c1%notfound) then
346: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
347: app_exception.raise_exception;
348: close c1;
349: return;
350: end if;
375:
376: ) then
377: null;
378: else
379: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
380: app_exception.raise_exception;
381: end if;
382: return;
383: end LOCK_ROW;
415: if X_LAST_UPDATE_LOGIN is NULL then
416: X_LAST_UPDATE_LOGIN := -1;
417: end if;
418: else
419: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
420: IGS_GE_MSG_STACK.ADD;
421: app_exception.raise_exception;
422: end if;
423: Before_DML(
581: END IF ;
582:
583: IF upper(Column_name) = 'MEMBER_TYPE' OR COLUMN_NAME IS NULL THEN
584: IF new_references.MEMBER_TYPE<> upper(new_references.MEMBER_TYPE) then
585: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
586: IGS_GE_MSG_STACK.ADD;
587: App_Exception.Raise_Exception ;
588: END IF;
589:
592: -- Bug : 2040069. REmoved the check that checks for the Upper Case of field 'Name'
593:
594: IF upper(Column_name) = 'ORG_STATUS' OR COLUMN_NAME IS NULL THEN
595: IF new_references.ORG_STATUS<> upper(new_references.ORG_STATUS) then
596: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
597: IGS_GE_MSG_STACK.ADD;
598: App_Exception.Raise_Exception ;
599: END IF;
600:
601: END IF ;
602:
603: IF upper(Column_name) = 'ORG_TYPE' OR COLUMN_NAME IS NULL THEN
604: IF new_references.ORG_TYPE<> upper(new_references.ORG_TYPE) then
605: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
606: IGS_GE_MSG_STACK.ADD;
607: App_Exception.Raise_Exception ;
608: END IF;
609: