44: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
45: Close cur_old_ref_values;
46: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
47: IGS_GE_MSG_STACK.ADD;
48: App_Exception.Raise_Exception;
49: Return;
50: END IF;
51: Close cur_old_ref_values;
52:
108: ,new_references.person_id
109: ) THEN
110: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
111: IGS_GE_MSG_STACK.ADD;
112: app_exception.raise_exception;
113: END IF;
114: END Check_Uniqueness ;
115: PROCEDURE Check_Parent_Existance AS
116: /*************************************************************
133: new_references.person_id
134: ) THEN
135: Fnd_Message.Set_Name ('FND','FORM_RECORD_DELETED');
136: IGS_GE_MSG_STACK.ADD;
137: App_Exception.Raise_Exception;
138: END IF;
139:
140: IF (((old_references.exemption_id = new_references.exemption_id)) OR
141: ((new_references.exemption_id IS NULL))) THEN
146: 'N'
147: ) THEN
148: Fnd_Message.Set_Name ('FND','FORM_RECORD_DELETED');
149: IGS_GE_MSG_STACK.ADD;
150: App_Exception.Raise_Exception;
151: END IF;
152:
153: END Check_Parent_Existance;
154:
254: IF (cur_rowid%FOUND) THEN
255: Close cur_rowid;
256: Fnd_Message.Set_Name ('IGS', 'IGS_AD_AAP_PE_FK');
257: IGS_GE_MSG_STACK.ADD;
258: App_Exception.Raise_Exception;
259: Return;
260: END IF;
261: Close cur_rowid;
262:
291: IF (cur_rowid%FOUND) THEN
292: Close cur_rowid;
293: Fnd_Message.Set_Name ('IGS', 'IGS_AD_AAP_ACDC_FK');
294: IGS_GE_MSG_STACK.ADD;
295: App_Exception.Raise_Exception;
296: Return;
297: END IF;
298: Close cur_rowid;
299:
343: IF Get_Pk_For_Validation(
344: new_references.test_exemption_id) THEN
345: Fnd_Message.Set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
346: IGS_GE_MSG_STACK.ADD;
347: App_Exception.Raise_Exception;
348: END IF;
349: Check_Uniqueness;
350: Check_Constraints;
351: Check_Parent_Existance;
363: IF Get_PK_For_Validation (
364: new_references.test_exemption_id) THEN
365: Fnd_Message.Set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
366: IGS_GE_MSG_STACK.ADD;
367: App_Exception.Raise_Exception;
368: END IF;
369: Check_Uniqueness;
370: Check_Constraints;
371: ELSIF (p_action = 'VALIDATE_UPDATE') THEN
450: end if;
451: else
452: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
453: IGS_GE_MSG_STACK.ADD;
454: app_exception.raise_exception;
455: end if;
456:
457: X_TEST_EXEMPTION_ID := -1;
458: Before_DML(
525: if (c1%notfound) then
526: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
527: IGS_GE_MSG_STACK.ADD;
528: close c1;
529: app_exception.raise_exception;
530: return;
531: end if;
532: close c1;
533: if ( ( tlinfo.PERSON_ID = X_PERSON_ID)
536: null;
537: else
538: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
539: IGS_GE_MSG_STACK.ADD;
540: app_exception.raise_exception;
541: end if;
542: return;
543: end LOCK_ROW;
544: Procedure UPDATE_ROW (
578: end if;
579: else
580: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
581: IGS_GE_MSG_STACK.ADD;
582: app_exception.raise_exception;
583: end if;
584: Before_DML(
585: p_action=>'UPDATE',
586: x_rowid=>X_ROWID,