[Home] [Help]
30: -- Populate Old Values.
31: Open cur_old_ref_values;
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: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
35: IGS_GE_MSG_STACK.ADD;
36: Close cur_old_ref_values;
37: App_Exception.Raise_Exception;
38: Return;
73: END IF;
74: IF upper(column_name) = 'PERSON_RELATION_TYPE' OR
75: column_name is null Then
76: IF new_references.person_relation_type <>UPPER(new_references.person_relation_type )Then
77: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
78: IGS_GE_MSG_STACK.ADD;
79: App_Exception.Raise_Exception;
80: END IF;
81: END IF;
90: ELSE
91:
92: IF NOT IGS_PE_PERSON_PKG.Get_PK_For_Validation (
93: new_references.person_id) THEN
94: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
95: IGS_GE_MSG_STACK.ADD;
96: App_Exception.Raise_Exception;
97: END IF;
98: END IF;
102: NULL;
103: ELSE
104: IF NOT IGS_PE_PERSON_PKG.Get_PK_For_Validation (
105: new_references.person_id_also_related_to ) THEN
106: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
107: IGS_GE_MSG_STACK.ADD;
108: App_Exception.Raise_Exception;
109: END IF;
110: END IF;
115: ELSE
116:
117: IF NOT IGS_PE_PERS_RELN_TYP_PKG.Get_PK_For_Validation (
118: new_references.person_relation_type ) THEN
119: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
120: IGS_GE_MSG_STACK.ADD;
121: App_Exception.Raise_Exception;
122: END IF;
123: END IF;
171:
172: Open cur_rowid;
173: Fetch cur_rowid INTO lv_rowid;
174: IF (cur_rowid%FOUND) THEN
175: Fnd_Message.Set_Name ('IGS', 'IGS_PE_PR_PE_FK');
176: IGS_GE_MSG_STACK.ADD;
177: Close cur_rowid;
178: App_Exception.Raise_Exception;
179: Return;
199:
200: Open cur_rowid;
201: Fetch cur_rowid INTO lv_rowid;
202: IF (cur_rowid%FOUND) THEN
203: Fnd_Message.Set_Name ('IGS', 'IGS_PE_PR_PRT_FK');
204: IGS_GE_MSG_STACK.ADD;
205: Close cur_rowid;
206: App_Exception.Raise_Exception;
207: Return;
244: new_references.person_id ,
245: new_references.person_id_also_related_to ,
246: new_references.person_relation_type
247: ) THEN
248: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
249: IGS_GE_MSG_STACK.ADD;
250: App_Exception.Raise_Exception;
251: END IF;
252:
267: IF Get_PK_For_Validation (
268: new_references.person_id ,
269: new_references.person_id_also_related_to ,
270: new_references.person_relation_type ) THEN
271: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
272: IGS_GE_MSG_STACK.ADD;
273: App_Exception.Raise_Exception;
274: END IF;
275:
332: if X_LAST_UPDATE_LOGIN is NULL then
333: X_LAST_UPDATE_LOGIN := -1;
334: end if;
335: else
336: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
337: IGS_GE_MSG_STACK.ADD;
338: app_exception.raise_exception;
339: end if;
340:
392:
393: EXCEPTION
394: WHEN OTHERS THEN
395: IF (SQLCODE IN (-28115, -28113, -28111)) THEN
396: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_EXCEPTION');
397: fnd_message.set_token ('ERR_CD', SQLCODE);
398: igs_ge_msg_stack.add;
399: igs_sc_gen_001.unset_ctx('R');
400: app_exception.raise_exception;
393: EXCEPTION
394: WHEN OTHERS THEN
395: IF (SQLCODE IN (-28115, -28113, -28111)) THEN
396: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_EXCEPTION');
397: fnd_message.set_token ('ERR_CD', SQLCODE);
398: igs_ge_msg_stack.add;
399: igs_sc_gen_001.unset_ctx('R');
400: app_exception.raise_exception;
401: ELSE
420: begin
421: open c1;
422: fetch c1 into tlinfo;
423: if (c1%notfound) then
424: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
425:
426: close c1;
427: App_Exception.Raise_Exception;
428: return;
447: END IF;
448: delete from IGS_PE_PERS_RELATION
449: where ROWID = X_ROWID;
450: if (sql%notfound) then
451: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
452: igs_ge_msg_stack.add;
453: igs_sc_gen_001.unset_ctx('R');
454: app_exception.raise_exception;
455: end if;