[Home] [Help]
38: Fetch cur_old_ref_values INTO old_references;
39: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
40: Close cur_old_ref_values;
41: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
42: IGS_GE_MSG_STACK.ADD;
43: App_Exception.Raise_Exception;
44: Return;
45: END IF;
46: Close cur_old_ref_values;
87: IF IGS_EN_VAL_USFT.finp_val_usft_ins (
88: new_references.fee_type,
89: v_message_name) = FALSE THEN
90: Fnd_Message.Set_Name('IGS', v_message_name);
91: IGS_GE_MSG_STACK.ADD;
92: App_Exception.Raise_Exception;
93: END IF;
94: -- Validate the UNIT set is not inactive
95: IF IGS_EN_VAL_USFT.finp_val_us_status (
96: new_references.unit_set_cd,
97: new_references.version_number,
98: v_message_name) = FALSE THEN
99: Fnd_Message.Set_Name('IGS', v_message_name);
100: IGS_GE_MSG_STACK.ADD;
101: App_Exception.Raise_Exception;
102: END IF;
103: END IF;
104: -- Validate fee trigger group can be defined.
107: new_references.fee_type,
108: new_references.fee_trigger_group_number,
109: v_message_name) = FALSE THEN
110: Fnd_Message.Set_Name('IGS', v_message_name);
111: IGS_GE_MSG_STACK.ADD;
112: App_Exception.Raise_Exception;
113: END IF;
114: END IF;
115:
143: new_references.create_dt,
144: new_references.fee_trigger_group_number,
145: v_message_name) = FALSE THEN
146: Fnd_Message.Set_Name('IGS', v_message_name);
147: IGS_GE_MSG_STACK.ADD;
148: App_Exception.Raise_Exception;
149: END IF;
150:
151: v_rowid_saved := TRUE;
187: IF upper(column_name) = 'FEE_CI_SEQUENCE_NUMBER' OR
188: Column_name is null THEN
189: IF new_references.fee_ci_sequence_number NOT BETWEEN 1 AND 999999 THEN
190: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
191: IGS_GE_MSG_STACK.ADD;
192: App_Exception.Raise_Exception;
193: END IF;
194: END IF;
195:
196: IF upper(column_name) = 'FEE_TRIGGER_GROUP_NUMBER' OR
197: Column_name is null THEN
198: IF new_references.fee_trigger_group_number NOT BETWEEN 1 AND 999999 THEN
199: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
200: IGS_GE_MSG_STACK.ADD;
201: App_Exception.Raise_Exception;
202: END IF;
203: END IF;
204:
205: IF upper(column_name) = 'FEE_CAL_TYPE' OR
206: Column_name is null THEN
207: IF new_references.fee_cal_type <> UPPER(new_references.fee_cal_type) THEN
208: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
209: IGS_GE_MSG_STACK.ADD;
210: App_Exception.Raise_Exception;
211: END IF;
212: END IF;
213:
214: IF upper(column_name) = 'UNIT_SET_CD' OR
215: Column_name is null THEN
216: IF new_references.unit_set_cd <> UPPER(new_references.unit_set_cd) THEN
217: Fnd_Message.Set_Name ('IGS','IGS_GE_INVALID_VALUE');
218: IGS_GE_MSG_STACK.ADD;
219: App_Exception.Raise_Exception;
220: END IF;
221: END IF;
222:
242: new_references.fee_ci_sequence_number,
243: new_references.fee_type
244: ) Then
245: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
246: IGS_GE_MSG_STACK.ADD;
247: App_Exception.Raise_Exception;
248: END IF ;
249: END IF;
250:
267: new_references.fee_type,
268: new_references.fee_trigger_group_number
269: ) Then
270: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
271: IGS_GE_MSG_STACK.ADD;
272: App_Exception.Raise_Exception;
273: END IF ;
274: END IF;
275:
283: new_references.unit_set_cd,
284: new_references.version_number
285: )Then
286: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
287: IGS_GE_MSG_STACK.ADD;
288: App_Exception.Raise_Exception;
289: END IF;
290: END IF;
291:
354: Fetch cur_rowid INTO lv_rowid;
355: IF (cur_rowid%FOUND) THEN
356: Close cur_rowid;
357: Fnd_Message.Set_Name ('IGS', 'IGS_EN_USFT_FTG_FK');
358: IGS_GE_MSG_STACK.ADD;
359: App_Exception.Raise_Exception;
360: Return;
361: END IF;
362: Close cur_rowid;
382: Fetch cur_rowid INTO lv_rowid;
383: IF (cur_rowid%FOUND) THEN
384: Close cur_rowid;
385: Fnd_Message.Set_Name ('IGS', 'IGS_EN_USFT_US_FK');
386: IGS_GE_MSG_STACK.ADD;
387: App_Exception.Raise_Exception;
388: Return;
389: END IF;
390: Close cur_rowid;
442: new_references.version_number ,
443: new_references.create_dt
444: ) THEN
445: FND_Message.Set_Name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
446: IGS_GE_MSG_STACK.ADD;
447: App_Exception.Raise_Exception;
448: END if;
449: Check_Constraints;
450: Check_Parent_Existance;
466: new_references.version_number ,
467: new_references.create_dt
468: ) THEN
469: FND_Message.Set_Name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
470: IGS_GE_MSG_STACK.ADD;
471: App_Exception.Raise_Exception;
472: END if;
473: Check_constraints;
474: ELSif (p_action = 'VALIDATE_UPDATE') THEN
541: X_LAST_UPDATE_LOGIN := -1;
542: end if;
543: else
544: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
545: IGS_GE_MSG_STACK.ADD;
546: app_exception.raise_exception;
547: end if;
548: Before_DML (
549: p_action => 'INSERT',
633: fetch c1 into tlinfo;
634: if (c1%notfound) then
635: close c1;
636: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
637: IGS_GE_MSG_STACK.ADD;
638: app_exception.raise_exception;
639: return;
640: end if;
641: close c1;
649: ) then
650: null;
651: else
652: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
653: IGS_GE_MSG_STACK.ADD;
654: app_exception.raise_exception;
655: end if;
656: return;
657: end LOCK_ROW;
687: X_LAST_UPDATE_LOGIN := -1;
688: end if;
689: else
690: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
691: IGS_GE_MSG_STACK.ADD;
692: app_exception.raise_exception;
693: end if;
694: Before_DML (
695: p_action => 'UPDATE',