40: OPEN cur_old_ref_values;
41: FETCH cur_old_ref_values INTO old_references;
42: IF ((cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT', 'VALIDATE_INSERT'))) THEN
43: CLOSE cur_old_ref_values;
44: fnd_message.set_name ('FND', 'FORM_RECORD_DELETED');
45: igs_ge_msg_stack.add;
46: app_exception.raise_exception;
47: RETURN;
48: END IF;
142: IF ( get_pk_for_validation(
143: new_references.party_relationship_id
144: )
145: ) THEN
146: fnd_message.set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
147: igs_ge_msg_stack.add;
148: app_exception.raise_exception;
149: END IF;
150: ELSIF (p_action = 'VALIDATE_INSERT') THEN
152: IF ( get_pk_for_validation (
153: new_references.party_relationship_id
154: )
155: ) THEN
156: fnd_message.set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
157: igs_ge_msg_stack.add;
158: app_exception.raise_exception;
159: END IF;
160: END IF;
217: ELSE
218: x_program_update_date := SYSDATE;
219: END IF;
220: ELSE
221: fnd_message.set_name ('FND', 'SYSTEM-INVALID ARGS');
222: igs_ge_msg_stack.add;
223: app_exception.raise_exception;
224: END IF;
225:
279:
280: EXCEPTION
281: WHEN OTHERS THEN
282: IF (SQLCODE IN (-28115, -28113, -28111)) THEN
283: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_EXCEPTION');
284: fnd_message.set_token ('ERR_CD', SQLCODE);
285: igs_ge_msg_stack.add;
286: igs_sc_gen_001.unset_ctx('R');
287: app_exception.raise_exception;
280: EXCEPTION
281: WHEN OTHERS THEN
282: IF (SQLCODE IN (-28115, -28113, -28111)) THEN
283: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_EXCEPTION');
284: fnd_message.set_token ('ERR_CD', SQLCODE);
285: igs_ge_msg_stack.add;
286: igs_sc_gen_001.unset_ctx('R');
287: app_exception.raise_exception;
288: ELSE
319:
320: OPEN c1;
321: FETCH c1 INTO tlinfo;
322: IF (c1%notfound) THEN
323: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
324: igs_ge_msg_stack.add;
325: CLOSE c1;
326: app_exception.raise_exception;
327: RETURN;
332: ((tlinfo.other_rel_type = x_other_rel_type) OR ((tlinfo.other_rel_type IS NULL) AND (X_other_rel_type IS NULL)))
333: ) THEN
334: NULL;
335: ELSE
336: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
337: igs_ge_msg_stack.add;
338: app_exception.raise_exception;
339: END IF;
340:
381: IF (x_last_update_login IS NULL) THEN
382: x_last_update_login := -1;
383: END IF;
384: ELSE
385: fnd_message.set_name( 'FND', 'SYSTEM-INVALID ARGS');
386: igs_ge_msg_stack.add;
387: app_exception.raise_exception;
388: END IF;
389:
428: program_update_date = x_program_update_date
429: WHERE rowid = x_rowid;
430:
431: IF (SQL%NOTFOUND) THEN
432: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
433: igs_ge_msg_stack.add;
434: igs_sc_gen_001.unset_ctx('R');
435: app_exception.raise_exception;
436: END IF;
442:
443: EXCEPTION
444: WHEN OTHERS THEN
445: IF (SQLCODE = (-28115)) THEN
446: fnd_message.set_name ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
447: fnd_message.set_token ('ERR_CD', SQLCODE);
448: igs_ge_msg_stack.add;
449: igs_sc_gen_001.unset_ctx('R');
450: app_exception.raise_exception;
443: EXCEPTION
444: WHEN OTHERS THEN
445: IF (SQLCODE = (-28115)) THEN
446: fnd_message.set_name ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
447: fnd_message.set_token ('ERR_CD', SQLCODE);
448: igs_ge_msg_stack.add;
449: igs_sc_gen_001.unset_ctx('R');
450: app_exception.raise_exception;
451: ELSE
528: DELETE FROM igs_pe_hz_party_rel
529: WHERE rowid = x_rowid;
530:
531: IF (SQL%NOTFOUND) THEN
532: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
533: igs_ge_msg_stack.add;
534: igs_sc_gen_001.unset_ctx('R');
535: app_exception.raise_exception;
536: END IF;