[Home] [Help]
102: FETCH cur_old_ref_values INTO old_references;
103: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
104: CLOSE cur_old_ref_values;
105:
106: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
107: IGS_GE_MSG_STACK.ADD;
108: App_Exception.Raise_Exception;
109: RETURN;
110: END IF;
470: --The following validations with Birth Date and Deceased Date have been moved here from plds to aviod duplication of
471: --code in IGSAD032, IGSEN022, IGSAD034, and IGSAD045. bug 2389837
472: IF (p_action IN ('INSERT','UPDATE')) THEN
473: IF(x_birth_dt IS NOT NULL AND x_birth_dt > sysdate) THEN
474: FND_MESSAGE.SET_NAME('IGS','IGS_AD_BIRTH_DT');
475: IGS_GE_MSG_STACK.ADD;
476: App_Exception.Raise_Exception;
477: END IF;
478: IF(x_deceased_date IS NOT NULL AND x_deceased_date > sysdate) THEN
475: IGS_GE_MSG_STACK.ADD;
476: App_Exception.Raise_Exception;
477: END IF;
478: IF(x_deceased_date IS NOT NULL AND x_deceased_date > sysdate) THEN
479: FND_MESSAGE.SET_NAME('IGS','IGS_AD_DEC_DT');
480: IGS_GE_MSG_STACK.ADD;
481: App_Exception.Raise_Exception;
482: END IF;
483: IF(x_deceased_date IS NOT NULL AND x_birth_dt IS NOT NULL AND x_deceased_date < x_birth_dt) THEN
480: IGS_GE_MSG_STACK.ADD;
481: App_Exception.Raise_Exception;
482: END IF;
483: IF(x_deceased_date IS NOT NULL AND x_birth_dt IS NOT NULL AND x_deceased_date < x_birth_dt) THEN
484: Fnd_Message.Set_Name('IGS','IGS_AD_DEC_BIRTH_DT');
485: IGS_GE_MSG_STACK.ADD;
486: App_Exception.Raise_Exception;
487: END IF;
488: END IF;
489: IF (p_action = 'INSERT') THEN
490: -- Call all the procedures related to Before Insert.
491: IF Get_PK_For_Validation (
492: new_references.person_id ) THEN
493: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
494: IGS_GE_MSG_STACK.ADD;
495: App_Exception.Raise_Exception;
496: END IF;
497: Check_Parent_Existance; -- if procedure present
503: NULL;
504: ELSIF (p_action = 'VALIDATE_INSERT') THEN
505: IF Get_PK_For_Validation (
506: new_references.person_id ) THEN
507: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
508: IGS_GE_MSG_STACK.ADD;
509: App_Exception.Raise_Exception;
510: END IF;
511: ELSIF (p_action = 'VALIDATE_UPDATE') THEN
828: OPEN c_pe_rowid (X_PERSON_ID);
829: FETCH c_pe_rowid INTO X_ROWID;
830: IF c_pe_rowid%NOTFOUND THEN
831: CLOSE c_pe_rowid;
832: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
833: IGS_GE_MSG_STACK.ADD;
834: App_Exception.Raise_Exception;
835: END IF;
836: CLOSE c_pe_rowid;