[Home] [Help]
34: Open cur_old_ref_values;
35: Fetch cur_old_ref_values INTO old_references;
36: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT', 'VALIDATE_INSERT')) THEN
37: Close cur_old_ref_values;
38: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
39: IGS_GE_MSG_STACK.ADD;
40: App_Exception.Raise_Exception;
41: Return;
42: END IF;
83: IF new_references.s_relation_type <> 'FTCI' THEN
84: IF IGS_FI_VAL_ER.finp_val_er_ins (
85: new_references.fee_type,
86: v_message_name) = FALSE THEN
87: Fnd_Message.Set_Name('IGS',v_message_name);
88: IGS_GE_MSG_STACK.ADD;
89: App_Exception.Raise_Exception;
90: END IF;
91: END IF;
96: new_references.fee_ci_sequence_number,
97: new_references.fee_type,
98: new_references.fee_cat,
99: v_message_name) = FALSE THEN
100: Fnd_Message.Set_Name('IGS',v_message_name);
101: IGS_GE_MSG_STACK.ADD;
102: App_Exception.Raise_Exception;
103: END IF;
104: END IF;
107: IF IGS_FI_VAL_ER.finp_val_er_rltn (
108: new_references.s_relation_type,
109: new_references.fee_cat,
110: v_message_name) = FALSE THEN
111: Fnd_Message.Set_Name('IGS',v_message_name);
112: IGS_GE_MSG_STACK.ADD;
113: App_Exception.Raise_Exception;
114: END IF;
115: IF IGS_FI_VAL_ER.finp_val_er_ranges (
115: IF IGS_FI_VAL_ER.finp_val_er_ranges (
116: new_references.lower_range,
117: new_references.upper_range,
118: v_message_name) = FALSE THEN
119: Fnd_Message.Set_Name('IGS',v_message_name);
120: IGS_GE_MSG_STACK.ADD;
121: App_Exception.Raise_Exception;
122: END IF;
123: END IF;
169: new_references.fee_cal_type,
170: new_references.fee_ci_sequence_number,
171: new_references.s_relation_type,
172: v_message_name) = FALSE THEN
173: Fnd_Message.Set_Name('IGS',v_message_name);
174: IGS_GE_MSG_STACK.ADD;
175: App_Exception.Raise_Exception;
176: END IF;
177: IF IGS_FI_VAL_ER.finp_val_er_ovrlp(new_references.fee_type,
182: new_references.range_number,
183: new_references.lower_range,
184: new_references.upper_range,
185: v_message_name) = FALSE THEN
186: Fnd_Message.Set_Name('IGS',v_message_name);
187: IGS_GE_MSG_STACK.ADD;
188: App_Exception.Raise_Exception;
189: END IF;
190: END IF;
224: new_references.lower_range := igs_ge_number.To_Num (column_value);
225: END IF;
226: IF ((UPPER (column_name) = 'FEE_CAL_TYPE') OR (column_name IS NULL)) THEN
227: IF (new_references.fee_cal_type <> UPPER (new_references.fee_cal_type)) THEN
228: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
229: IGS_GE_MSG_STACK.ADD;
230: App_Exception.Raise_Exception;
231: END IF;
232: END IF;
231: END IF;
232: END IF;
233: IF ((UPPER (column_name) = 'FEE_CI_SEQUENCE_NUMBER') OR (column_name IS NULL)) THEN
234: IF ((new_references.fee_ci_sequence_number < 1) OR (new_references.fee_ci_sequence_number > 999999)) THEN
235: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
236: IGS_GE_MSG_STACK.ADD;
237: App_Exception.Raise_Exception;
238: END IF;
239: END IF;
238: END IF;
239: END IF;
240: IF ((UPPER (column_name) = 'S_RELATION_TYPE') OR (column_name IS NULL)) THEN
241: IF (new_references.s_relation_type NOT IN ('FTCI', 'FCFL')) THEN
242: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
243: IGS_GE_MSG_STACK.ADD;
244: App_Exception.Raise_Exception;
245: END IF;
246: END IF;
245: END IF;
246: END IF;
247: IF ((UPPER (column_name) = 'RANGE_NUMBER') OR (column_name IS NULL)) THEN
248: IF ((new_references.range_number < 1) OR (new_references.range_number > 999999)) THEN
249: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
250: IGS_GE_MSG_STACK.ADD;
251: App_Exception.Raise_Exception;
252: END IF;
253: END IF;
252: END IF;
253: END IF;
254: IF ((UPPER (column_name) = 'UPPER_RANGE') OR (column_name IS NULL)) THEN
255: IF ((new_references.upper_range < 0) OR (new_references.upper_range > 9999.999)) THEN
256: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
257: IGS_GE_MSG_STACK.ADD;
258: App_Exception.Raise_Exception;
259: END IF;
260: END IF;
259: END IF;
260: END IF;
261: IF ((UPPER (column_name) = 'S_CHG_METHOD_TYPE') OR (column_name IS NULL)) THEN
262: IF (new_references.s_chg_method_type NOT IN ('FLATRATE','INCREMENTAL')) THEN
263: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
264: IGS_GE_MSG_STACK.ADD;
265: App_Exception.Raise_Exception;
266: END IF;
267: END IF;
266: END IF;
267: END IF;
268: IF ((UPPER (column_name) = 'LOWER_RANGE') OR (column_name IS NULL)) THEN
269: IF ((new_references.lower_range < 0) OR (new_references.lower_range > 9999.999)) THEN
270: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
271: IGS_GE_MSG_STACK.ADD;
272: App_Exception.Raise_Exception;
273: END IF;
274: END IF;
281: new_references.fee_ci_sequence_number,
282: new_references.range_number,
283: new_references.fee_cat
284: )) THEN
285: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
286: IGS_GE_MSG_STACK.ADD;
287: App_Exception.Raise_Exception;
288: END IF;
289: IF (Get_UK2_For_Validation (
293: new_references.s_relation_type,
294: new_references.range_number,
295: new_references.fee_cat
296: )) THEN
297: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
298: IGS_GE_MSG_STACK.ADD;
299: App_Exception.Raise_Exception;
300: END IF;
301: IF (Get_UK3_For_Validation (
300: END IF;
301: IF (Get_UK3_For_Validation (
302: new_references.er_id
303: )) THEN
304: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
305: IGS_GE_MSG_STACK.ADD;
306: App_Exception.Raise_Exception;
307: END IF;
308: END Check_Uniqueness;
323: new_references.fee_cal_type,
324: new_references.fee_ci_sequence_number,
325: new_references.fee_type
326: ) THEN
327: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
328: IGS_GE_MSG_STACK.ADD;
329: App_Exception.Raise_Exception;
330: END IF;
331: END IF;
341: new_references.fee_type,
342: new_references.fee_cal_type,
343: new_references.fee_ci_sequence_number
344: ) THEN
345: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
346: IGS_GE_MSG_STACK.ADD;
347: App_Exception.Raise_Exception;
348: END IF;
349: END IF;
354: IF NOT IGS_LOOKUPS_VIEW_PKG.Get_PK_For_Validation (
355: 'CHG_METHOD',
356: new_references.s_chg_method_type
357: ) THEN
358: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
359: IGS_GE_MSG_STACK.ADD;
360: App_Exception.Raise_Exception;
361: END IF;
362: END IF;
511: Open cur_rowid;
512: Fetch cur_rowid INTO lv_rowid;
513: IF (cur_rowid%FOUND) THEN
514: Close cur_rowid;
515: Fnd_Message.Set_Name ('IGS', 'IGS_FI_ER_SLV_FK');
516: IGS_GE_MSG_STACK.ADD;
517: App_Exception.Raise_Exception;
518: Return;
519: END IF;
565: BeforeRowInsertUpdateDelete1 ( p_inserting => TRUE );
566: IF (Get_PK_For_Validation (
567: new_references.er_id
568: )) THEN
569: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
570: IGS_GE_MSG_STACK.ADD;
571: App_Exception.Raise_Exception;
572: END IF;
573: Check_Uniqueness;
585: ELSIF (p_action = 'VALIDATE_INSERT') THEN
586: IF (Get_PK_For_Validation (
587: new_references.er_id
588: )) THEN
589: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
590: IGS_GE_MSG_STACK.ADD;
591: App_Exception.Raise_Exception;
592: END IF;
593: Check_Uniqueness;
665: else
666: X_PROGRAM_UPDATE_DATE:=SYSDATE;
667: end if;
668: else
669: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
670: IGS_GE_MSG_STACK.ADD;
671: app_exception.raise_exception;
672: end if;
673: SELECT IGS_FI_ELM_RANGE_ER_ID_S.NextVal
781: open c1;
782: fetch c1 into tlinfo;
783: if (c1%notfound) then
784: close c1;
785: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
786: IGS_GE_MSG_STACK.ADD;
787: app_exception.raise_exception;
788: return;
789: end if;
810: AND (X_LOGICAL_DELETE_DT is null)))
811: ) then
812: null;
813: else
814: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
815: IGS_GE_MSG_STACK.ADD;
816: app_exception.raise_exception;
817: end if;
818: return;
864: else
865: X_PROGRAM_UPDATE_DATE:=SYSDATE;
866: end if;
867: else
868: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
869: IGS_GE_MSG_STACK.ADD;
870: app_exception.raise_exception;
871: end if;
872: Before_DML(