[Home] [Help]
62: Fetch cur_old_ref_values INTO old_references;
63: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
64: Close cur_old_ref_values;
65: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
66: IGS_GE_MSG_STACK.ADD;
67: App_Exception.Raise_Exception;
68: Return;
69: END IF;
70: Close cur_old_ref_values;
134:
135: IF NOT IGS_LOOKUPS_VIEW_PKG.Get_PK_For_Validation ('PERSON_PRIVACY_ACTION',
136: new_references.ACTION) THEN
137: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
138: IGS_GE_MSG_STACK.ADD;
139: App_Exception.Raise_Exception;
140: END IF;
141:
142: IF (((old_references.person_id = new_references.person_id)) OR
145: ELSIF NOT Igs_Pe_Person_Pkg.Get_PK_For_Validation (
146: new_references.person_id
147: ) THEN
148: Fnd_Message.Set_Name ('FND','FORM_RECORD_DELETED');
149: IGS_GE_MSG_STACK.ADD;
150: App_Exception.Raise_Exception;
151: END IF;
152:
153: IF (((old_references.data_group_id = new_references.data_group_id)) OR
156: ELSIF NOT Igs_Pe_Data_Groups_Pkg.Get_PK_For_Validation (
157: new_references.data_group_id
158: ) THEN
159: Fnd_Message.Set_Name ('FND','FORM_RECORD_DELETED');
160: IGS_GE_MSG_STACK.ADD;
161: App_Exception.Raise_Exception;
162: END IF;
163: IF (((old_references.ref_notes_id = new_references.ref_notes_id)) OR
164: ((new_references.ref_notes_id IS NULL))) THEN
166: ELSIF NOT Igs_Ge_Note_Pkg.Get_PK_For_Validation (
167: new_references.ref_notes_id
168: ) THEN
169: Fnd_Message.Set_Name ('FND','FORM_RECORD_DELETED');
170: IGS_GE_MSG_STACK.ADD;
171: App_Exception.Raise_Exception;
172: END IF;
173:
174: END Check_Parent_Existance;
239: Fetch cur_rowid INTO lv_rowid;
240: IF (cur_rowid%FOUND) THEN
241: Close cur_rowid;
242: Fnd_Message.Set_Name ('IGS', 'IGS_PE_PP_PPL_FK');
243: IGS_GE_MSG_STACK.ADD;
244: App_Exception.Raise_Exception;
245: Return;
246: END IF;
247: Close cur_rowid;
266: BEGIN
267: IF ( p_inserting = TRUE OR ( p_updating = TRUE AND new_references.data_group_id <> old_references.data_group_id ) ) THEN
268: IF NOT igs_pe_data_groups_pkg.val_data_group(new_references.data_group_id , p_message_name) THEN
269: Fnd_Message.Set_Name ('IGS',p_message_name);
270: IGS_GE_MSG_STACK.ADD;
271: App_Exception.Raise_Exception;
272: END IF;
273: END IF;
274:
279:
280: --IF(trunc(new_references.start_date) <> trunc(sysdate) aND new_references.start_date < sysdate) THEN
281: IF(trunc(new_references.start_date) < trunc(sysdate) AND new_references.start_date <> nvl((old_references.start_date),trunc(sysdate))) THEN
282: Fnd_Message.Set_Name('IGS','IGS_FI_ST_NOT_LT_CURRDT');
283: IGS_GE_MSG_STACK.ADD;
284: App_Exception.Raise_Exception;
285: END IF;
286: END IF;
287:
286: END IF;
287:
288: IF(new_references.start_date > new_references.end_date) THEN
289: Fnd_Message.Set_name('IGS','IGS_PE_FROM_DT_GRT_TO_DATE');
290: IGS_GE_MSG_STACK.ADD;
291: App_Exception.Raise_Exception;
292: END IF;
293: END IF;
294: END;
351: beforeinsertupdate(TRUE,FALSE);
352: IF Get_Pk_For_Validation(
353: new_references.privacy_level_id) 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: Check_Constraints;
359: Check_Parent_Existance;
370: -- Call all the procedures related to Before Insert.
371: IF Get_PK_For_Validation (
372: new_references.privacy_level_id) THEN
373: Fnd_Message.Set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
374: IGS_GE_MSG_STACK.ADD;
375: App_Exception.Raise_Exception;
376: END IF;
377: Check_Constraints;
378: ELSIF (p_action = 'VALIDATE_UPDATE') THEN
421: CLOSE c_priv_overlap;
422:
423: IF l_count > 0 THEN
424: FND_MESSAGE.SET_NAME('IGS','IGS_PE_PRIV_DT_OVERLAP');
425: IGS_GE_MSG_STACK.ADD;
426: APP_EXCEPTION.RAISE_EXCEPTION;
427: END IF;
428: END afterrowinsertupdate;
429:
520: X_LAST_UPDATE_LOGIN := -1;
521: end if;
522: else
523: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
524: IGS_GE_MSG_STACK.ADD;
525: app_exception.raise_exception;
526: end if;
527:
528: Select IGS_PE_PRIV_LEVEL_S.NEXTVAL into X_PRIVACY_LEVEL_ID from Dual;
598: WHEN OTHERS THEN
599: IF (SQLCODE IN (-28115, -28113, -28111)) THEN
600: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_EXCEPTION');
601: fnd_message.set_token ('ERR_CD', SQLCODE);
602: igs_ge_msg_stack.add;
603: igs_sc_gen_001.unset_ctx('R');
604: app_exception.raise_exception;
605: ELSE
606: igs_sc_gen_001.unset_ctx('R');
652: open c1;
653: fetch c1 into tlinfo;
654: if (c1%notfound) then
655: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
656: IGS_GE_MSG_STACK.ADD;
657: close c1;
658: app_exception.raise_exception;
659: return;
660: end if;
674: ) then
675: null;
676: else
677: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
678: IGS_GE_MSG_STACK.ADD;
679: app_exception.raise_exception;
680: end if;
681: return;
682: end LOCK_ROW;
726: X_LAST_UPDATE_LOGIN := -1;
727: end if;
728: else
729: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
730: IGS_GE_MSG_STACK.ADD;
731: app_exception.raise_exception;
732: end if;
733: Before_DML(
734: p_action=>'UPDATE',
764: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
765: where ROWID = X_ROWID;
766: if (sql%notfound) then
767: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
768: igs_ge_msg_stack.add;
769: igs_sc_gen_001.unset_ctx('R');
770: app_exception.raise_exception;
771: end if;
772: IF (x_mode = 'S') THEN
782: WHEN OTHERS THEN
783: IF (SQLCODE = (-28115)) THEN
784: fnd_message.set_name ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
785: fnd_message.set_token ('ERR_CD', SQLCODE);
786: igs_ge_msg_stack.add;
787: igs_sc_gen_001.unset_ctx('R');
788: app_exception.raise_exception;
789: ELSE
790: igs_sc_gen_001.unset_ctx('R');
887: delete from IGS_PE_PRIV_LEVEL
888: where ROWID = X_ROWID;
889: if (sql%notfound) then
890: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
891: igs_ge_msg_stack.add;
892: igs_sc_gen_001.unset_ctx('R');
893: app_exception.raise_exception;
894: end if;
895: IF (x_mode = 'S') THEN