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;
112: new_references.special_interest_type_id
113: ,new_references.admission_appl_number
114: ,new_references.person_id
115: ) THEN
116: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
117: IGS_GE_MSG_STACK.ADD;
118: app_exception.raise_exception;
119: END IF;
120: END Check_Uniqueness ;
140: ELSIF NOT Igs_Ad_Appl_Pkg.Get_PK_For_Validation (
141: new_references.person_id,
142: new_references.admission_appl_number
143: ) THEN
144: FND_MESSAGE.SET_NAME('IGS','IGS_GE_PK_UK_NOT_FOUND');
145: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_APPL'));
146: IGS_GE_MSG_STACK.ADD;
147: App_Exception.Raise_Exception;
148: END IF;
141: new_references.person_id,
142: new_references.admission_appl_number
143: ) THEN
144: FND_MESSAGE.SET_NAME('IGS','IGS_GE_PK_UK_NOT_FOUND');
145: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_APPL'));
146: IGS_GE_MSG_STACK.ADD;
147: App_Exception.Raise_Exception;
148: END IF;
149:
154: new_references.special_interest_type_id ,
155: 'SPECIAL_INTERESTS',
156: 'N'
157: ) THEN
158: FND_MESSAGE.SET_NAME('IGS','IGS_GE_PK_UK_NOT_FOUND_CLOSED');
159: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_SPL_INTEREST_TYPE'));
160: IGS_GE_MSG_STACK.ADD;
161: App_Exception.Raise_Exception;
162: END IF;
155: 'SPECIAL_INTERESTS',
156: 'N'
157: ) THEN
158: FND_MESSAGE.SET_NAME('IGS','IGS_GE_PK_UK_NOT_FOUND_CLOSED');
159: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('IGS','IGS_AD_SPL_INTEREST_TYPE'));
160: IGS_GE_MSG_STACK.ADD;
161: App_Exception.Raise_Exception;
162: END IF;
163:
266: Open cur_rowid;
267: Fetch cur_rowid INTO lv_rowid;
268: IF (cur_rowid%FOUND) THEN
269: Close cur_rowid;
270: Fnd_Message.Set_Name ('IGS', 'IGS_AD_ASPLI_ACAI_FK');
271: IGS_GE_MSG_STACK.ADD;
272: App_Exception.Raise_Exception;
273: Return;
274: END IF;
303: Open cur_rowid;
304: Fetch cur_rowid INTO lv_rowid;
305: IF (cur_rowid%FOUND) THEN
306: Close cur_rowid;
307: Fnd_Message.Set_Name ('IGS', 'IGS_AD_ASPLI_ACDC_FK');
308: IGS_GE_MSG_STACK.ADD;
309: App_Exception.Raise_Exception;
310: Return;
311: END IF;
365: -- Call all the procedures related to Before Insert.
366: Null;
367: IF Get_Pk_For_Validation(
368: new_references.spl_interest_id) THEN
369: Fnd_Message.Set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
370: IGS_GE_MSG_STACK.ADD;
371: App_Exception.Raise_Exception;
372: END IF;
373: Check_Uniqueness;
385: ELSIF (p_action = 'VALIDATE_INSERT') THEN
386: -- Call all the procedures related to Before Insert.
387: IF Get_PK_For_Validation (
388: new_references.spl_interest_id) THEN
389: Fnd_Message.Set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
390: IGS_GE_MSG_STACK.ADD;
391: App_Exception.Raise_Exception;
392: END IF;
393: Check_Uniqueness;
490: else
491: X_PROGRAM_UPDATE_DATE := SYSDATE;
492: end if;
493: else
494: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
495: IGS_GE_MSG_STACK.ADD;
496: app_exception.raise_exception;
497: end if;
498:
565: -- 1) ORA-28115 (policy with check option violation) which is raised when Policy predicate was evaluated to FALSE with the updated values.
566: -- 2) ORA-28113 (policy predicate has error) which is raised when Policy function generates invalid predicate.
567: -- 3) ORA-28111 (insufficient privilege to evaluate policy predicate) which is raised when Predicate has a subquery which contains objects
568: -- that the ownerof policy function does not have privilege to access.
569: FND_MESSAGE.SET_NAME ('IGS', 'IGS_SC_POLICY_EXCEPTION');
570: FND_MESSAGE.SET_TOKEN('ERR_CD',SQLCODE);
571: IGS_GE_MSG_STACK.ADD;
572: app_exception.raise_exception;
573: ELSE
566: -- 2) ORA-28113 (policy predicate has error) which is raised when Policy function generates invalid predicate.
567: -- 3) ORA-28111 (insufficient privilege to evaluate policy predicate) which is raised when Predicate has a subquery which contains objects
568: -- that the ownerof policy function does not have privilege to access.
569: FND_MESSAGE.SET_NAME ('IGS', 'IGS_SC_POLICY_EXCEPTION');
570: FND_MESSAGE.SET_TOKEN('ERR_CD',SQLCODE);
571: IGS_GE_MSG_STACK.ADD;
572: app_exception.raise_exception;
573: ELSE
574: RAISE;
603: begin
604: open c1;
605: fetch c1 into tlinfo;
606: if (c1%notfound) then
607: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
608: IGS_GE_MSG_STACK.ADD;
609: close c1;
610: app_exception.raise_exception;
611: return;
616: AND (tlinfo.SPECIAL_INTEREST_TYPE_ID = X_SPECIAL_INTEREST_TYPE_ID)
617: ) then
618: null;
619: else
620: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
621: IGS_GE_MSG_STACK.ADD;
622: app_exception.raise_exception;
623: end if;
624: return;
664: if X_LAST_UPDATE_LOGIN is NULL then
665: X_LAST_UPDATE_LOGIN := -1;
666: end if;
667: else
668: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
669: IGS_GE_MSG_STACK.ADD;
670: app_exception.raise_exception;
671: end if;
672: Before_DML(
711: PROGRAM_APPLICATION_ID = PROGRAM_APPLICATION_ID,
712: PROGRAM_UPDATE_DATE = X_PROGRAM_UPDATE_DATE
713: where ROWID = X_ROWID;
714: IF (sql%notfound) THEN
715: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
716: igs_ge_msg_stack.add;
717: IF (x_mode = 'S') THEN
718: igs_sc_gen_001.unset_ctx('R');
719: END IF;
735: -- 1) ORA-28115 (policy with check option violation) which is raised when Policy predicate was evaluated to FALSE with the updated values.
736: -- 2) ORA-28113 (policy predicate has error) which is raised when Policy function generates invalid predicate.
737: -- 3) ORA-28111 (insufficient privilege to evaluate policy predicate) which is raised when Predicate has a subquery which contains objects
738: -- that the ownerof policy function does not have privilege to access.
739: FND_MESSAGE.SET_NAME ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
740: FND_MESSAGE.SET_TOKEN('ERR_CD',SQLCODE);
741: IGS_GE_MSG_STACK.ADD;
742: app_exception.raise_exception;
743: ELSE
736: -- 2) ORA-28113 (policy predicate has error) which is raised when Policy function generates invalid predicate.
737: -- 3) ORA-28111 (insufficient privilege to evaluate policy predicate) which is raised when Predicate has a subquery which contains objects
738: -- that the ownerof policy function does not have privilege to access.
739: FND_MESSAGE.SET_NAME ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
740: FND_MESSAGE.SET_TOKEN('ERR_CD',SQLCODE);
741: IGS_GE_MSG_STACK.ADD;
742: app_exception.raise_exception;
743: ELSE
744: RAISE;
815: END IF;
816: delete from IGS_AD_SPL_INTERESTS
817: where ROWID = X_ROWID;
818: IF (sql%notfound) THEN
819: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
820: igs_ge_msg_stack.add;
821: IF (x_mode = 'S') THEN
822: igs_sc_gen_001.set_ctx('R');
823: END IF;
841: -- 1) ORA-28115 (policy with check option violation) which is raised when Policy predicate was evaluated to FALSE with the updated values.
842: -- 2) ORA-28113 (policy predicate has error) which is raised when Policy function generates invalid predicate.
843: -- 3) ORA-28111 (insufficient privilege to evaluate policy predicate) which is raised when Predicate has a subquery which contains objects
844: -- that the ownerof policy function does not have privilege to access.
845: FND_MESSAGE.SET_NAME ('IGS', 'IGS_SC_POLICY_EXCEPTION');
846: FND_MESSAGE.SET_TOKEN('ERR_CD',SQLCODE);
847: IGS_GE_MSG_STACK.ADD;
848: app_exception.raise_exception;
849: ELSE
842: -- 2) ORA-28113 (policy predicate has error) which is raised when Policy function generates invalid predicate.
843: -- 3) ORA-28111 (insufficient privilege to evaluate policy predicate) which is raised when Predicate has a subquery which contains objects
844: -- that the ownerof policy function does not have privilege to access.
845: FND_MESSAGE.SET_NAME ('IGS', 'IGS_SC_POLICY_EXCEPTION');
846: FND_MESSAGE.SET_TOKEN('ERR_CD',SQLCODE);
847: IGS_GE_MSG_STACK.ADD;
848: app_exception.raise_exception;
849: ELSE
850: RAISE;