[Home] [Help]
46: Fetch cur_old_ref_values INTO old_references;
47: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
48: Close cur_old_ref_values;
49: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
50: IGS_GE_MSG_STACK.ADD;
51: App_Exception.Raise_Exception;
52: Return;
53: END IF;
54: Close cur_old_ref_values;
99: --If entered value in program column is not in upper case ,error out.
100: IF UPPER(column_name) = 'PROGRAM' OR column_name IS NULL THEN
101: IF new_references.program <> UPPER(new_references.program) THEN
102: FND_MESSAGE.SET_NAME('IGS','IGS_GE_INVALID_VALUE');
103: IGS_GE_MSG_STACK.ADD;
104: APP_EXCEPTION.RAISE_EXCEPTION;
105: END IF;
106: END IF;
107:
125: ,new_references.person_id
126: ,new_references.program
127: ) THEN
128: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
129: IGS_GE_MSG_STACK.ADD;
130: app_exception.raise_exception;
131: END IF;
132: END Check_Uniqueness ;
133: PROCEDURE Check_Parent_Existance AS
150: ELSIF NOT Igs_Ps_Degrees_Pkg.Get_PK_For_Validation (
151: new_references.degree_cd
152: ) THEN
153: Fnd_Message.Set_Name ('FND','FORM_RECORD_DELETED');
154: IGS_GE_MSG_STACK.ADD;
155: App_Exception.Raise_Exception;
156: END IF;
157:
158: IF (((old_references.institution_cd = new_references.institution_cd)) OR
161: ELSIF NOT Igs_Or_Institution_Pkg.Get_PK_For_Validation (
162: new_references.institution_cd
163: ) THEN
164: Fnd_Message.Set_Name ('FND','FORM_RECORD_DELETED');
165: IGS_GE_MSG_STACK.ADD;
166: App_Exception.Raise_Exception;
167: END IF;
168:
169: IF (((old_references.person_id = new_references.person_id)) OR
172: ELSIF NOT Igs_Pe_Person_Pkg.Get_PK_For_Validation (
173: new_references.person_id
174: ) THEN
175: Fnd_Message.Set_Name ('FND','FORM_RECORD_DELETED');
176: IGS_GE_MSG_STACK.ADD;
177: App_Exception.Raise_Exception;
178: END IF;
179:
180: END Check_Parent_Existance;
284: Fetch cur_rowid INTO lv_rowid;
285: IF (cur_rowid%FOUND) THEN
286: Close cur_rowid;
287: Fnd_Message.Set_Name ('IGS', 'IGS_PS_FD_DEG_FK');
288: IGS_GE_MSG_STACK.ADD;
289: App_Exception.Raise_Exception;
290: Return;
291: END IF;
292: Close cur_rowid;
321: Fetch cur_rowid INTO lv_rowid;
322: IF (cur_rowid%FOUND) THEN
323: Close cur_rowid;
324: Fnd_Message.Set_Name ('IGS', 'IGS_PS_FD_INS_FK');
325: IGS_GE_MSG_STACK.ADD;
326: App_Exception.Raise_Exception;
327: Return;
328: END IF;
329: Close cur_rowid;
358: Fetch cur_rowid INTO lv_rowid;
359: IF (cur_rowid%FOUND) THEN
360: Close cur_rowid;
361: Fnd_Message.Set_Name ('IGS', 'IGS_PS_FD_PE_FK');
362: IGS_GE_MSG_STACK.ADD;
363: App_Exception.Raise_Exception;
364: Return;
365: END IF;
366: Close cur_rowid;
416: Null;
417: IF Get_Pk_For_Validation(
418: new_references.faclty_degrd_id) THEN
419: Fnd_Message.Set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
420: IGS_GE_MSG_STACK.ADD;
421: App_Exception.Raise_Exception;
422: END IF;
423: Check_Uniqueness;
424: Check_Constraints;
436: -- Call all the procedures related to Before Insert.
437: IF Get_PK_For_Validation (
438: new_references.faclty_degrd_id) THEN
439: Fnd_Message.Set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
440: IGS_GE_MSG_STACK.ADD;
441: App_Exception.Raise_Exception;
442: END IF;
443: Check_Uniqueness;
444: Check_Constraints;
526: X_LAST_UPDATE_LOGIN := -1;
527: end if;
528: else
529: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
530: IGS_GE_MSG_STACK.ADD;
531: app_exception.raise_exception;
532: end if;
533: SELECT IGS_PS_FACLTY_DEGRD_ID_S.nextval INTO x_FACLTY_DEGRD_ID FROM dual;
534: Before_DML(
591: WHEN OTHERS THEN
592: IF (SQLCODE IN (-28115, -28113, -28111)) THEN
593: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_EXCEPTION');
594: fnd_message.set_token ('ERR_CD', SQLCODE);
595: igs_ge_msg_stack.add;
596: igs_sc_gen_001.unset_ctx('R');
597: app_exception.raise_exception;
598: ELSE
599: igs_sc_gen_001.unset_ctx('R');
634: open c1;
635: fetch c1 into tlinfo;
636: if (c1%notfound) then
637: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
638: IGS_GE_MSG_STACK.ADD;
639: close c1;
640: app_exception.raise_exception;
641: return;
642: end if;
649: ) then
650: null;
651: else
652: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
653: IGS_GE_MSG_STACK.ADD;
654: app_exception.raise_exception;
655: end if;
656: return;
657: end LOCK_ROW;
694: X_LAST_UPDATE_LOGIN := -1;
695: end if;
696: else
697: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
698: IGS_GE_MSG_STACK.ADD;
699: app_exception.raise_exception;
700: end if;
701: Before_DML(
702: p_action=>'UPDATE',
726: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
727: where ROWID = X_ROWID;
728: if (sql%notfound) then
729: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
730: igs_ge_msg_stack.add;
731: igs_sc_gen_001.unset_ctx('R');
732: app_exception.raise_exception;
733: end if;
734: IF (x_mode = 'S') THEN
744: WHEN OTHERS THEN
745: IF (SQLCODE = (-28115)) THEN
746: fnd_message.set_name ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
747: fnd_message.set_token ('ERR_CD', SQLCODE);
748: igs_ge_msg_stack.add;
749: igs_sc_gen_001.unset_ctx('R');
750: app_exception.raise_exception;
751: ELSE
752: igs_sc_gen_001.unset_ctx('R');
831: delete from IGS_PS_FACLTY_DEGRS
832: where ROWID = X_ROWID;
833: if (sql%notfound) then
834: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
835: igs_ge_msg_stack.add;
836: igs_sc_gen_001.unset_ctx('R');
837: app_exception.raise_exception;
838: end if;
839: IF (x_mode = 'S') THEN