47: OPEN cur_old_ref_values;
48: FETCH cur_old_ref_values INTO old_references;
49: IF ((cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT', 'VALIDATE_INSERT'))) THEN
50: CLOSE cur_old_ref_values;
51: fnd_message.set_name ('FND', 'FORM_RECORD_DELETED');
52: igs_ge_msg_stack.add;
53: app_exception.raise_exception;
54: RETURN;
55: END IF;
216: new_references.action_date,
217: new_references.action_type
218: )
219: ) THEN
220: fnd_message.set_name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
221: igs_ge_msg_stack.add;
222: app_exception.raise_exception;
223: END IF;
224:
242: NULL;
243: ELSIF NOT igs_pe_ev_form_pkg.get_pk_for_validation (
244: new_references.ev_form_id
245: ) THEN
246: fnd_message.set_name ('FND', 'FORM_RECORD_DELETED');
247: igs_ge_msg_stack.add;
248: app_exception.raise_exception;
249: END IF;
250:
349: OPEN cur_rowid;
350: FETCH cur_rowid INTO lv_rowid;
351: IF (cur_rowid%FOUND) THEN
352: CLOSE cur_rowid;
353: fnd_message.set_name ('IGS', 'IGS_PE_PEFMS_PEVF_FK');
354: igs_ge_msg_stack.add;
355: app_exception.raise_exception;
356: RETURN;
357: END IF;
414: IF ( get_pk_for_validation(
415: new_references.ev_form_stat_id
416: )
417: ) THEN
418: fnd_message.set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
419: igs_ge_msg_stack.add;
420: app_exception.raise_exception;
421: END IF;
422: check_uniqueness;
430: IF ( get_pk_for_validation (
431: new_references.ev_form_stat_id
432: )
433: ) THEN
434: fnd_message.set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
435: igs_ge_msg_stack.add;
436: app_exception.raise_exception;
437: END IF;
438: check_uniqueness;
485: IF (x_last_update_login IS NULL) THEN
486: x_last_update_login := -1;
487: END IF;
488: ELSE
489: fnd_message.set_name ('FND', 'SYSTEM-INVALID ARGS');
490: igs_ge_msg_stack.add;
491: app_exception.raise_exception;
492: END IF;
493:
554:
555: EXCEPTION
556: WHEN OTHERS THEN
557: IF (SQLCODE IN (-28115, -28113, -28111)) THEN
558: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_EXCEPTION');
559: fnd_message.set_token ('ERR_CD', SQLCODE);
560: igs_ge_msg_stack.add;
561: igs_sc_gen_001.unset_ctx('R');
562: app_exception.raise_exception;
555: EXCEPTION
556: WHEN OTHERS THEN
557: IF (SQLCODE IN (-28115, -28113, -28111)) THEN
558: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_EXCEPTION');
559: fnd_message.set_token ('ERR_CD', SQLCODE);
560: igs_ge_msg_stack.add;
561: igs_sc_gen_001.unset_ctx('R');
562: app_exception.raise_exception;
563: ELSE
608:
609: OPEN c1;
610: FETCH c1 INTO tlinfo;
611: IF (c1%notfound) THEN
612: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
613: igs_ge_msg_stack.add;
614: CLOSE c1;
615: app_exception.raise_exception;
616: RETURN;
628: AND ((tlinfo.end_program_reason = x_end_program_reason) OR ((tlinfo.end_program_reason IS NULL) AND (X_end_program_reason IS NULL)))
629: ) THEN
630: NULL;
631: ELSE
632: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
633: igs_ge_msg_stack.add;
634: app_exception.raise_exception;
635: END IF;
636:
680: IF (x_last_update_login IS NULL) THEN
681: x_last_update_login := -1;
682: END IF;
683: ELSE
684: fnd_message.set_name( 'FND', 'SYSTEM-INVALID ARGS');
685: igs_ge_msg_stack.add;
686: app_exception.raise_exception;
687: END IF;
688:
723: last_update_login = x_last_update_login
724: WHERE rowid = x_rowid;
725:
726: IF (SQL%NOTFOUND) THEN
727: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
728: igs_ge_msg_stack.add;
729: igs_sc_gen_001.unset_ctx('R');
730: app_exception.raise_exception;
731: END IF;
737:
738: EXCEPTION
739: WHEN OTHERS THEN
740: IF (SQLCODE = (-28115)) THEN
741: fnd_message.set_name ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
742: fnd_message.set_token ('ERR_CD', SQLCODE);
743: igs_ge_msg_stack.add;
744: igs_sc_gen_001.unset_ctx('R');
745: app_exception.raise_exception;
738: EXCEPTION
739: WHEN OTHERS THEN
740: IF (SQLCODE = (-28115)) THEN
741: fnd_message.set_name ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
742: fnd_message.set_token ('ERR_CD', SQLCODE);
743: igs_ge_msg_stack.add;
744: igs_sc_gen_001.unset_ctx('R');
745: app_exception.raise_exception;
746: ELSE
844: DELETE FROM igs_pe_ev_form_stat
845: WHERE rowid = x_rowid;
846:
847: IF (SQL%NOTFOUND) THEN
848: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
849: igs_ge_msg_stack.add;
850: igs_sc_gen_001.unset_ctx('R');
851: app_exception.raise_exception;
852: END IF;