44: FETCH cur_old_ref_values INTO old_references;
45: IF ((cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT', 'VALIDATE_INSERT'))) THEN
46: CLOSE cur_old_ref_values;
47: fnd_message.set_name ('FND', 'FORM_RECORD_DELETED');
48: igs_ge_msg_stack.add;
49: app_exception.raise_exception;
50: RETURN;
51: END IF;
52: CLOSE cur_old_ref_values;
90: new_references.contact_name
91: )
92: ) THEN
93: fnd_message.set_name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
94: igs_ge_msg_stack.add;
95: app_exception.raise_exception;
96: END IF;
97:
98: END check_uniqueness;
116: ELSIF NOT igs_pe_pers_disablty_pkg.get_pk_for_validation (
117: new_references.disability_id
118: ) 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:
124: END check_parent_existance;
223: FETCH cur_rowid INTO lv_rowid;
224: IF (cur_rowid%FOUND) THEN
225: CLOSE cur_rowid;
226: fnd_message.set_name ('IGS', 'IGS_PE_SNCT_PD_FK');
227: igs_ge_msg_stack.add;
228: app_exception.raise_exception;
229: RETURN;
230: END IF;
231: CLOSE cur_rowid;
280: new_references.sn_contact_id
281: )
282: ) THEN
283: fnd_message.set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
284: igs_ge_msg_stack.add;
285: app_exception.raise_exception;
286: END IF;
287: check_uniqueness;
288: check_parent_existance;
296: new_references.sn_contact_id
297: )
298: ) THEN
299: fnd_message.set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
300: igs_ge_msg_stack.add;
301: app_exception.raise_exception;
302: END IF;
303: check_uniqueness;
304:
352: x_last_update_login := -1;
353: END IF;
354: ELSE
355: fnd_message.set_name ('FND', 'SYSTEM-INVALID ARGS');
356: igs_ge_msg_stack.add;
357: app_exception.raise_exception;
358: END IF;
359:
360: SELECT igs_pe_sn_contact_s.NEXTVAL
420: WHEN OTHERS THEN
421: IF (SQLCODE IN (-28115, -28113, -28111)) THEN
422: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_EXCEPTION');
423: fnd_message.set_token ('ERR_CD', SQLCODE);
424: igs_ge_msg_stack.add;
425: igs_sc_gen_001.unset_ctx('R');
426: app_exception.raise_exception;
427: ELSE
428: igs_sc_gen_001.unset_ctx('R');
465: OPEN c1;
466: FETCH c1 INTO tlinfo;
467: IF (c1%notfound) THEN
468: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
469: igs_ge_msg_stack.add;
470: CLOSE c1;
471: app_exception.raise_exception;
472: RETURN;
473: END IF;
481: ) THEN
482: NULL;
483: ELSE
484: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
485: igs_ge_msg_stack.add;
486: app_exception.raise_exception;
487: END IF;
488:
489: RETURN;
529: x_last_update_login := -1;
530: END IF;
531: ELSE
532: fnd_message.set_name( 'FND', 'SYSTEM-INVALID ARGS');
533: igs_ge_msg_stack.add;
534: app_exception.raise_exception;
535: END IF;
536:
537: before_dml(
564: WHERE rowid = x_rowid;
565:
566: IF (SQL%NOTFOUND) THEN
567: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
568: igs_ge_msg_stack.add;
569: igs_sc_gen_001.unset_ctx('R');
570: app_exception.raise_exception;
571: END IF;
572: IF (x_mode = 'S') THEN
579: WHEN OTHERS THEN
580: IF (SQLCODE = (-28115)) THEN
581: fnd_message.set_name ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
582: fnd_message.set_token ('ERR_CD', SQLCODE);
583: igs_ge_msg_stack.add;
584: igs_sc_gen_001.unset_ctx('R');
585: app_exception.raise_exception;
586: ELSE
587: igs_sc_gen_001.unset_ctx('R');
673: WHERE rowid = x_rowid;
674:
675: IF (SQL%NOTFOUND) THEN
676: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
677: igs_ge_msg_stack.add;
678: igs_sc_gen_001.unset_ctx('R');
679: app_exception.raise_exception;
680: END IF;
681: IF (x_mode = 'S') THEN