[Home] [Help]
49: FETCH cur_old_ref_values INTO old_references;
50: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
51: CLOSE cur_old_ref_values;
52: fnd_message.set_name ('FND', 'FORM_RECORD_DELETED');
53: igs_ge_msg_stack.add;
54: app_exception.raise_exception;
55: RETURN;
56: END IF;
57: CLOSE cur_old_ref_values;
116: new_references.reference_code_type,
117: new_references.reference_code
118: ) THEN
119: fnd_message.set_name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
120: igs_ge_msg_stack.add;
121: app_exception.raise_exception;
122: END IF;
123: END check_uniqueness ;
124:
148: ELSIF NOT igs_ps_usec_ref_pkg.get_pk_for_validation (
149: new_references.unit_section_reference_id
150: ) THEN
151: fnd_message.set_name ('FND','FORM_RECORD_DELETED');
152: igs_ge_msg_stack.add;
153: app_exception.raise_exception;
154: END IF;
155:
156: OPEN cur_reference_cd_chk(new_references.reference_code_type);
166: new_references.reference_code
167: ) THEN
168: CLOSE cur_reference_cd_chk;
169: fnd_message.set_name ('FND', 'FORM_RECORD_DELETED');
170: igs_ge_msg_stack.add;
171: app_exception.raise_exception;
172: END IF;
173: END IF;
174: CLOSE cur_reference_cd_chk;
278: FETCH cur_rowid INTO lv_rowid;
279: IF (cur_rowid%FOUND) THEN
280: CLOSE cur_rowid;
281: fnd_message.set_name ('IGS', 'IGS_PS_USRCD_USREF_FK');
282: igs_ge_msg_stack.add;
283: app_exception.raise_exception;
284: RETURN;
285: END IF;
286: CLOSE cur_rowid;
314: FETCH cur_rowid INTO lv_rowid;
315: IF (cur_rowid%FOUND) THEN
316: CLOSE cur_rowid;
317: fnd_message.set_name ('IGS', 'IGS_PS_USRCD_RCT_FK');
318: igs_ge_msg_stack.add;
319: app_exception.raise_exception;
320: RETURN;
321: END IF;
322: CLOSE cur_rowid;
353: FETCH cur_rowid INTO lv_rowid;
354: IF (cur_rowid%FOUND) THEN
355: CLOSE cur_rowid;
356: fnd_message.set_name ('IGS', 'IGS_PS_USRCD_RC_FK');
357: igs_ge_msg_stack.add;
358: app_exception.raise_exception;
359: RETURN;
360: END IF;
361: CLOSE cur_rowid;
413: NULL;
414: IF get_pk_for_validation(
415: new_references.unit_section_reference_cd_id) THEN
416: fnd_message.set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
417: igs_ge_msg_stack.add;
418: app_exception.raise_exception;
419: END IF;
420: check_uniqueness;
421: check_constraints;
432: OPEN cur_ps_usec_ref_cd_v;
433: FETCH cur_ps_usec_ref_cd_v INTO lv_reference_code_type;
434: IF igs_ps_val_atl.chk_mandatory_ref_cd(lv_reference_code_type.reference_code_type) THEN
435: fnd_message.set_name ('IGS', 'IGS_PS_REF_CD_MANDATORY');
436: igs_ge_msg_stack.add;
437: app_exception.raise_exception;
438: END IF;
439: CLOSE cur_ps_usec_ref_cd_v;
440:
442: -- Call all the procedures related to Before Insert.
443: IF get_pk_for_validation (
444: new_references.unit_section_reference_cd_id) THEN
445: fnd_message.set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
446: igs_ge_msg_stack.add;
447: app_exception.raise_exception;
448: END IF;
449: check_uniqueness;
450: check_constraints;
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: SELECT igs_ps_usec_ref_cd_s.nextval
537: INTO x_unit_section_reference_cd_id
615: OPEN c1;
616: FETCH c1 INTO tlinfo;
617: IF (c1%NOTFOUND) THEN
618: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
619: igs_ge_msg_stack.add;
620: CLOSE c1;
621: app_exception.raise_exception;
622: RETURN;
623: END IF;
635: ) THEN
636: NULL;
637: ELSE
638: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
639: igs_ge_msg_stack.add;
640: app_exception.raise_exception;
641: END IF;
642: RETURN;
643: END lock_row;
679: x_last_update_login := -1;
680: END IF;
681: ELSE
682: fnd_message.set_name( 'FND', 'SYSTEM-INVALID ARGS');
683: igs_ge_msg_stack.add;
684: app_exception.raise_exception;
685: END IF;
686: before_dml(
687: p_action=>'UPDATE',