[Home] [Help]
57: -- Populate Old Values.
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;
113: IF IGS_EN_VAL_PAL.enrp_val_api_end_dt (
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;
126: IF igs_ad_val_edtl.genp_val_strt_end_dt (
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;
133: END IF;
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.
143: IF IGS_EN_VAL_PAL.enrp_val_pal_names (
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.
153: FETCH get_dob_dt_cur INTO l_birth_dt;
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;
168: new_references.surname,
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;
196: IF upper(column_name) = 'GIVEN_NAMES' OR
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;
223: NULL;
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;
275:
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;
330: BeforeRowInsertUpdate1 ( p_inserting => TRUE );
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:
350: ELSIF (p_action = 'VALIDATE_INSERT') THEN
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:
414: if X_LAST_UPDATE_LOGIN is NULL then
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:
492:
493: EXCEPTION
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;
493: EXCEPTION
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
532: begin
533: open c1;
534: fetch c1 into tlinfo;
535: if (c1%notfound) then
536: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
537:
538: close c1;
539: App_Exception.Raise_Exception;
540: return;
561: AND (X_GIVEN_NAMES is null)))
562: ) then
563: null;
564: else
565: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
566: app_exception.raise_exception;
567: end if;
568: return;
569: end LOCK_ROW;
598: if X_LAST_UPDATE_LOGIN is NULL then
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(
636: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
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;
652: );
653: EXCEPTION
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;
653: EXCEPTION
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
731: END IF;
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;