[Home] [Help]
83: OPEN cur_old_ref_values;
84: FETCH cur_old_ref_values INTO old_references;
85: IF ((cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT', 'VALIDATE_INSERT'))) THEN
86: CLOSE cur_old_ref_values;
87: fnd_message.set_name ('FND', 'FORM_RECORD_DELETED');
88: igs_ge_msg_stack.add;
89: app_exception.raise_exception;
90: RETURN;
91: END IF;
190: OPEN cur_overlapping_u(new_references.credit_type_id,new_references.credit_class);
191: FETCH cur_overlapping_u INTO l_var;
192: IF cur_overlapping_u%FOUND THEN
193: CLOSE cur_overlapping_u;
194: FND_MESSAGE.SET_NAME('IGS','IGS_FI_SUB_ACCT_CR_TYP_EXIST');
195: FND_MESSAGE.SET_TOKEN('CRCLASS',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_CREDIT_CLASS',new_references.credit_class));
196: IGS_GE_MSG_STACK.ADD;
197: APP_EXCEPTION.RAISE_EXCEPTION;
198: END IF;
191: FETCH cur_overlapping_u INTO l_var;
192: IF cur_overlapping_u%FOUND THEN
193: CLOSE cur_overlapping_u;
194: FND_MESSAGE.SET_NAME('IGS','IGS_FI_SUB_ACCT_CR_TYP_EXIST');
195: FND_MESSAGE.SET_TOKEN('CRCLASS',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_CREDIT_CLASS',new_references.credit_class));
196: IGS_GE_MSG_STACK.ADD;
197: APP_EXCEPTION.RAISE_EXCEPTION;
198: END IF;
199: CLOSE cur_overlapping_u;
218: new_references.credit_type_name,
219: new_references.effective_start_date
220: )
221: ) THEN
222: fnd_message.set_name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
223: igs_ge_msg_stack.add;
224: app_exception.raise_exception;
225: END IF;
226:
248: ELSE
249: IF NOT IGS_FI_ACC_PKG.Get_PK_For_Validation (
250: new_references.cr_account_cd
251: ) THEN
252: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
253: IGS_GE_MSG_STACK.ADD;
254: App_Exception.Raise_Exception;
255: END IF;
256: END IF;
260: ELSE
261: IF NOT IGS_FI_ACC_PKG.Get_PK_For_Validation (
262: new_references.dr_account_cd
263: ) THEN
264: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
265: IGS_GE_MSG_STACK.ADD;
266: App_Exception.Raise_Exception;
267: END IF;
268: END IF;
274: ELSE
275: IF NOT igs_fi_a_hierarchies_pkg.Get_PK_For_Validation (
276: new_references.appl_hierarchy_id
277: ) THEN
278: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
279: IGS_GE_MSG_STACK.ADD;
280: App_Exception.Raise_Exception;
281: END IF;
282: END IF;
287: ELSIF NOT IGS_LOOKUPS_VIEW_PKG.Get_PK_For_Validation(
288: 'IGS_FI_CREDIT_CLASS',
289: new_references.credit_class
290: )THEN
291: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
292: IGS_GE_MSG_STACK.ADD;
293: App_Exception.Raise_Exception;
294: END IF;
295:
301: ELSE
302: IF NOT igs_fi_acc_pkg.get_pk_for_validation (
303: x_account_cd => new_references.forfeiture_account_cd
304: ) THEN
305: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
306: IGS_GE_MSG_STACK.ADD;
307: App_Exception.Raise_Exception;
308: END IF;
309: END IF;
314: ELSE
315: IF NOT igs_fi_cr_types_pkg.get_pk_for_validation (
316: x_credit_type_id => new_references.payment_credit_type_id
317: ) THEN
318: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
319: IGS_GE_MSG_STACK.ADD;
320: App_Exception.Raise_Exception;
321: END IF;
322: END IF;
375: BEGIN
376: Open cur_rowid;
377: Fetch cur_rowid INTO lv_rowid;
378: IF (cur_rowid%FOUND) THEN
379: Fnd_Message.Set_Name ('IGS', 'IGS_FI_CRTY_CRTY_FK');
380: IGS_GE_MSG_STACK.ADD;
381: App_Exception.Raise_Exception;
382: Close cur_rowid;
383: Return;
582: IF ( get_pk_for_validation(
583: new_references.credit_type_id
584: )
585: ) THEN
586: fnd_message.set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
587: igs_ge_msg_stack.add;
588: app_exception.raise_exception;
589: END IF;
590: check_uniqueness;
608: IF ( get_pk_for_validation (
609: new_references.credit_type_id
610: )
611: ) THEN
612: fnd_message.set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
613: igs_ge_msg_stack.add;
614: app_exception.raise_exception;
615: END IF;
616: check_uniqueness;
708: IF (x_last_update_login IS NULL) THEN
709: x_last_update_login := -1;
710: END IF;
711: ELSE
712: fnd_message.set_name ('FND', 'SYSTEM-INVALID ARGS');
713: igs_ge_msg_stack.add;
714: app_exception.raise_exception;
715: END IF;
716:
977:
978: OPEN c1;
979: FETCH c1 INTO tlinfo;
980: IF (c1%notfound) THEN
981: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
982: igs_ge_msg_stack.add;
983: CLOSE c1;
984: app_exception.raise_exception;
985: RETURN;
1026: AND ((tlinfo.appl_hierarchy_id = x_appl_hierarchy_id) OR ((tlinfo.appl_hierarchy_id IS NULL) AND (x_appl_hierarchy_id IS NULL)))
1027: ) THEN
1028: NULL;
1029: ELSE
1030: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
1031: igs_ge_msg_stack.add;
1032: app_exception.raise_exception;
1033: END IF;
1034:
1114: IF (x_last_update_login IS NULL) THEN
1115: x_last_update_login := -1;
1116: END IF;
1117: ELSE
1118: fnd_message.set_name( 'FND', 'SYSTEM-INVALID ARGS');
1119: igs_ge_msg_stack.add;
1120: app_exception.raise_exception;
1121: END IF;
1122:
1429: -- Through the forms, deletion of the IGS_FI_CR_TYPES records are not happening. To ensure that none of the
1430: -- other process which manipulates the records of the IGS_FI_CR_TYPES should not delete any of the records present
1431: -- in the table, explicitly the logic has been coded to prevent the deletion of records.
1432: -- done as part of bug 2404523
1433: FND_MESSAGE.SET_NAME('IGS','IGS_FI_DEL_NOT_ALLWD');
1434: IGS_GE_MSG_STACK.ADD;
1435: APP_EXCEPTION.RAISE_EXCEPTION;
1436: END beforerowdelete;
1437: