[Home] [Help]
58: Open cur_old_ref_values;
59: Fetch cur_old_ref_values INTO old_references;
60: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
61: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
62: IGS_GE_MSG_STACK.ADD;
63: Close cur_old_ref_values;
64: App_Exception.Raise_Exception;
65: Return;
66: END IF;
114: new_references.start_dt,
115: new_references.end_dt,
116: v_message_name) = FALSE THEN
117: Fnd_Message.Set_Name('IGS', v_message_name);
118: IGS_GE_MSG_STACK.ADD;
119: App_Exception.Raise_Exception;
120: END IF;
121: END IF;
122: -- Validate that if both are specified, then end is not greater than start.
127: new_references.start_dt,
128: new_references.end_dt,
129: v_message_name) = FALSE THEN
130: Fnd_Message.Set_Name('IGS', v_message_name);
131: IGS_GE_MSG_STACK.ADD;
132: App_Exception.Raise_Exception;
133: END IF;
134: END IF;
135: -- Prevent the start date being set to null if the end date is specified.
134: END IF;
135: -- Prevent the start date being set to null if the end date is specified.
136: IF p_updating AND (new_references.start_dt IS NULL AND new_references.end_dt IS NOT NULL) THEN
137: Fnd_Message.Set_Name('IGS', 'IGS_EN_CANT_REMOVE_ST_DATE');
138: IGS_GE_MSG_STACK.ADD;
139: App_Exception.Raise_Exception;
140: END IF;
141: -- Validate Surname and Given Names.
142: IF (p_inserting OR p_updating) THEN
144: new_references.surname,
145: new_references.given_names,
146: v_message_name) = FALSE THEN
147: Fnd_Message.Set_Name('IGS', v_message_name);
148: IGS_GE_MSG_STACK.ADD;
149: App_Exception.Raise_Exception;
150: END IF;
151: -- Validate that if both are specified, then the Effective start date must not be earlier than the person's year of birth.
152: OPEN get_dob_dt_cur(new_references.person_id);
154: CLOSE get_dob_dt_cur;
155: IF l_birth_dt IS NOT NULL AND new_references.start_dt IS NOT NULL THEN
156: IF l_birth_dt > new_references.start_dt THEN
157: FND_MESSAGE.SET_NAME ('IGS', 'IGS_EN_STDT_NOTLESS_BIRTHDT');
158: IGS_GE_MSG_STACK.ADD;
159: APP_EXCEPTION.RAISE_EXCEPTION;
160: END IF;
161: END IF;
162: END IF;
169: new_references.given_names,
170: new_references.title,
171: v_message_name) = FALSE THEN
172: Fnd_Message.Set_Name('IGS', v_message_name);
173: IGS_GE_MSG_STACK.ADD;
174: App_Exception.Raise_Exception;
175: END IF;
176: END IF;
177: */
197: column_name is null Then
198: IF new_references.given_names <>
199: UPPER(new_references.given_names) Then
200: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
201: IGS_GE_MSG_STACK.ADD;
202: App_Exception.Raise_Exception;
203: END IF;
204: END IF;
205: IF upper(column_name) = 'SURNAME' OR
206: column_name is null Then
207: IF new_references.surname<>
208: UPPER(new_references.surname) Then
209: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
210: IGS_GE_MSG_STACK.ADD;
211: App_Exception.Raise_Exception;
212: END IF;
213: END IF;
214:
224: ELSE
225: IF NOT IGS_PE_PERSON_PKG.Get_PK_For_Validation (
226: new_references.person_id ) THEN
227: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
228: IGS_GE_MSG_STACK.ADD;
229: App_Exception.Raise_Exception;
230: END IF;
231: END IF;
232:
276: Open cur_rowid;
277: Fetch cur_rowid INTO lv_rowid;
278: IF (cur_rowid%FOUND) THEN
279: Fnd_Message.Set_Name ('IGS', 'IGS_PE_PAL_PE_FK');
280: IGS_GE_MSG_STACK.ADD;
281: Close cur_rowid;
282: App_Exception.Raise_Exception;
283: Return;
284: END IF;
331: IF Get_PK_For_Validation (
332: new_references.person_id ,
333: new_references.sequence_number) THEN
334: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
335: IGS_GE_MSG_STACK.ADD;
336: App_Exception.Raise_Exception;
337: END IF;
338:
339: Check_Parent_Existance; -- if procedure present
351: IF Get_PK_For_Validation (
352: new_references.person_id ,
353: new_references.sequence_number) THEN
354: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
355: IGS_GE_MSG_STACK.ADD;
356: App_Exception.Raise_Exception;
357: END IF;
358:
359: END IF;
415: X_LAST_UPDATE_LOGIN := -1;
416: end if;
417: else
418: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
419: IGS_GE_MSG_STACK.ADD;
420: app_exception.raise_exception;
421: end if;
422:
423: Before_DML(
494: WHEN OTHERS THEN
495: IF (SQLCODE IN (-28115, -28113, -28111)) THEN
496: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_EXCEPTION');
497: fnd_message.set_token ('ERR_CD', SQLCODE);
498: igs_ge_msg_stack.add;
499: igs_sc_gen_001.unset_ctx('R');
500: app_exception.raise_exception;
501: ELSE
502: igs_sc_gen_001.unset_ctx('R');
599: X_LAST_UPDATE_LOGIN := -1;
600: end if;
601: else
602: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
603: IGS_GE_MSG_STACK.ADD;
604: app_exception.raise_exception;
605: end if;
606: Before_DML(
607: p_action=>'UPDATE',
637: where ROWID = X_ROWID
638: ;
639: if (sql%notfound) then
640: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
641: igs_ge_msg_stack.add;
642: igs_sc_gen_001.unset_ctx('R');
643: app_exception.raise_exception;
644: end if;
645: IF (x_mode = 'S') THEN
654: WHEN OTHERS THEN
655: IF (SQLCODE = (-28115)) THEN
656: fnd_message.set_name ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
657: fnd_message.set_token ('ERR_CD', SQLCODE);
658: igs_ge_msg_stack.add;
659: igs_sc_gen_001.unset_ctx('R');
660: app_exception.raise_exception;
661: ELSE
662: igs_sc_gen_001.unset_ctx('R');
732: delete from IGS_PE_PERSON_ALIAS
733: where ROWID = X_ROWID;
734: if (sql%notfound) then
735: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
736: igs_ge_msg_stack.add;
737: igs_sc_gen_001.unset_ctx('R');
738: app_exception.raise_exception;
739: end if;
740: IF (x_mode = 'S') THEN