[Home] [Help]
43: Open cur_old_ref_values;
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;
97: -- The following code checks for check constraints on the Columns.
98: IF Upper(Column_Name) = 'DISPLN_UNIT_TYPE' OR
99: Column_Name IS NULL THEN
100: IF NOT (new_references.displn_unit_type IN ('DISCIPLINE', 'UNIT')) THEN
101: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
102: IGS_GE_MSG_STACK.ADD;
103: App_Exception.Raise_Exception;
104: END IF;
105: END IF;
124: new_references.displn_unit_cd
125: ,new_references.displn_unit_type
126: ,new_references.person_id
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 ;
149: NULL;
150: ELSIF NOT Igs_Pe_Person_Pkg.Get_PK_For_Validation (
151: new_references.person_id
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:
164: ELSIF NOT Igs_Ps_Unit_Ver_Pkg.Get_PK_For_Validation (
165: new_references.displn_unit_cd,
166: 1
167: ) THEN
168: Fnd_Message.Set_Name ('FND','FORM_RECORD_DELETED');
169: IGS_GE_MSG_STACK.ADD;
170: App_Exception.Raise_Exception;
171: END IF;
172:
177: NULL;
178: ELSIF NOT Igs_Ps_Fld_OF_Study_Pkg.Get_PK_For_Validation (
179: new_references.displn_unit_cd
180: ) THEN
181: Fnd_Message.Set_Name ('FND','FORM_RECORD_DELETED');
182: IGS_GE_MSG_STACK.ADD;
183: App_Exception.Raise_Exception;
184: END IF;
185:
288: Open cur_rowid;
289: Fetch cur_rowid INTO lv_rowid;
290: IF (cur_rowid%FOUND) THEN
291: Close cur_rowid;
292: Fnd_Message.Set_Name ('IGS', 'IGS_PS_FDS_PE_FK');
293: IGS_GE_MSG_STACK.ADD;
294: App_Exception.Raise_Exception;
295: Return;
296: END IF;
327: Open cur_rowid;
328: Fetch cur_rowid INTO lv_rowid;
329: IF (cur_rowid%FOUND) THEN
330: Close cur_rowid;
331: Fnd_Message.Set_Name ('IGS', 'IGS_PS_FDS_UV_FK');
332: IGS_GE_MSG_STACK.ADD;
333: App_Exception.Raise_Exception;
334: Return;
335: END IF;
381: -- Call all the procedures related to Before Insert.
382: Null;
383: IF Get_Pk_For_Validation(
384: new_references.displn_unit_id) THEN
385: Fnd_Message.Set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
386: IGS_GE_MSG_STACK.ADD;
387: App_Exception.Raise_Exception;
388: END IF;
389: Check_Uniqueness;
401: ELSIF (p_action = 'VALIDATE_INSERT') THEN
402: -- Call all the procedures related to Before Insert.
403: IF Get_PK_For_Validation (
404: new_references.displn_unit_id) THEN
405: Fnd_Message.Set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
406: IGS_GE_MSG_STACK.ADD;
407: App_Exception.Raise_Exception;
408: END IF;
409: Check_Uniqueness;
489: if X_LAST_UPDATE_LOGIN is NULL then
490: X_LAST_UPDATE_LOGIN := -1;
491: end if;
492: else
493: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
494: IGS_GE_MSG_STACK.ADD;
495: app_exception.raise_exception;
496: end if;
497: SELECT IGS_PS_DISPLN_UNIT_CD_S.nextval into x_DISPLN_UNIT_ID FROM dual;
547: x_rowid => X_ROWID );
548: EXCEPTION
549: WHEN OTHERS THEN
550: IF (SQLCODE IN (-28115, -28113, -28111)) THEN
551: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_EXCEPTION');
552: fnd_message.set_token ('ERR_CD', SQLCODE);
553: igs_ge_msg_stack.add;
554: igs_sc_gen_001.unset_ctx('R');
555: app_exception.raise_exception;
548: EXCEPTION
549: WHEN OTHERS THEN
550: IF (SQLCODE IN (-28115, -28113, -28111)) THEN
551: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_EXCEPTION');
552: fnd_message.set_token ('ERR_CD', SQLCODE);
553: igs_ge_msg_stack.add;
554: igs_sc_gen_001.unset_ctx('R');
555: app_exception.raise_exception;
556: ELSE
587: begin
588: open c1;
589: fetch c1 into tlinfo;
590: if (c1%notfound) then
591: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
592: IGS_GE_MSG_STACK.ADD;
593: close c1;
594: app_exception.raise_exception;
595: return;
600: AND (tlinfo.DISPLN_UNIT_CD = X_DISPLN_UNIT_CD)
601: ) then
602: null;
603: else
604: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
605: IGS_GE_MSG_STACK.ADD;
606: app_exception.raise_exception;
607: end if;
608: return;
643: if X_LAST_UPDATE_LOGIN is NULL then
644: X_LAST_UPDATE_LOGIN := -1;
645: end if;
646: else
647: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
648: IGS_GE_MSG_STACK.ADD;
649: app_exception.raise_exception;
650: end if;
651: Before_DML(
671: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
672: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
673: where ROWID = X_ROWID;
674: if (sql%notfound) then
675: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
676: igs_ge_msg_stack.add;
677: igs_sc_gen_001.unset_ctx('R');
678: app_exception.raise_exception;
679: end if;
688: );
689: EXCEPTION
690: WHEN OTHERS THEN
691: IF (SQLCODE = (-28115)) THEN
692: fnd_message.set_name ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
693: fnd_message.set_token ('ERR_CD', SQLCODE);
694: igs_ge_msg_stack.add;
695: igs_sc_gen_001.unset_ctx('R');
696: app_exception.raise_exception;
689: EXCEPTION
690: WHEN OTHERS THEN
691: IF (SQLCODE = (-28115)) THEN
692: fnd_message.set_name ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
693: fnd_message.set_token ('ERR_CD', SQLCODE);
694: igs_ge_msg_stack.add;
695: igs_sc_gen_001.unset_ctx('R');
696: app_exception.raise_exception;
697: ELSE
770: END IF;
771: delete from IGS_PS_FACLTY_DISP
772: where ROWID = X_ROWID;
773: if (sql%notfound) then
774: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
775: igs_ge_msg_stack.add;
776: igs_sc_gen_001.unset_ctx('R');
777: app_exception.raise_exception;
778: end if;