[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;
93: new_references.fee_cal_type,
94: new_references.fee_ci_sequence_number,
95: v_message_name) = FALSE THEN
96: Fnd_Message.Set_Name('IGS',v_message_name);
97: IGS_GE_MSG_STACK.ADD;
98: App_Exception.Raise_Exception;
99: END IF;
100: END IF;
101: -- Validate Fee Structure Status.
104: IF IGS_FI_VAL_FCCI.finp_val_fss_closed (
105: new_references.fee_cat_ci_status,
106: v_message_name) = FALSE THEN
107: Fnd_Message.Set_Name('IGS',v_message_name);
108: IGS_GE_MSG_STACK.ADD;
109: App_Exception.Raise_Exception;
110: END IF;
111: IF IGS_FI_VAL_FCCI.finp_val_fcci_active (
112: new_references.fee_cat_ci_status,
113: new_references.fee_cal_type,
114: new_references.fee_ci_sequence_number,
115: v_message_name) = FALSE THEN
116: Fnd_Message.Set_Name('IGS',v_message_name);
117: IGS_GE_MSG_STACK.ADD;
118: App_Exception.Raise_Exception;
119: END IF;
120: IF IGS_FI_VAL_FCCI.finp_val_fcci_status (
121: new_references.fee_cat,
124: new_references.fee_cat_ci_status,
125: old_references.fee_cat_ci_status,
126: v_message_name) = FALSE THEN
127: Fnd_Message.Set_Name('IGS',v_message_name);
128: IGS_GE_MSG_STACK.ADD;
129: App_Exception.Raise_Exception;
130: END IF;
131: END IF;
132: -- Validate Date Alias Values.
143: new_references.retro_dt_alias,
144: new_references.retro_dai_sequence_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: END IF;
151: END BeforeRowInsertUpdateDelete1;
230: END IF;
231: IF ((UPPER (column_name) = 'RETRO_DAI_SEQUENCE_NUMBER') OR (column_name IS NULL)) THEN
232: IF ((new_references.retro_dai_sequence_number < 1) OR (new_references.retro_dai_sequence_number > 999999)) THEN
233: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
234: IGS_GE_MSG_STACK.ADD;
235: App_Exception.Raise_Exception;
236: END IF;
237: END IF;
238: IF ((UPPER (column_name) = 'END_DAI_SEQUENCE_NUMBER') OR (column_name IS NULL)) THEN
237: END IF;
238: IF ((UPPER (column_name) = 'END_DAI_SEQUENCE_NUMBER') OR (column_name IS NULL)) THEN
239: IF ((new_references.end_dai_sequence_number < 1) OR (new_references.end_dai_sequence_number > 999999)) THEN
240: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
241: IGS_GE_MSG_STACK.ADD;
242: App_Exception.Raise_Exception;
243: END IF;
244: END IF;
245: IF ((UPPER (column_name) = 'END_DT_ALIAS') OR (column_name IS NULL)) THEN
244: END IF;
245: IF ((UPPER (column_name) = 'END_DT_ALIAS') OR (column_name IS NULL)) THEN
246: IF (new_references.end_dt_alias <> UPPER (new_references.end_dt_alias)) THEN
247: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
248: IGS_GE_MSG_STACK.ADD;
249: App_Exception.Raise_Exception;
250: END IF;
251: END IF;
252: IF ((UPPER (column_name) = 'FEE_CAL_TYPE') OR (column_name IS NULL)) THEN
251: END IF;
252: IF ((UPPER (column_name) = 'FEE_CAL_TYPE') OR (column_name IS NULL)) THEN
253: IF (new_references.fee_cal_type <> UPPER (new_references.fee_cal_type)) THEN
254: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
255: IGS_GE_MSG_STACK.ADD;
256: App_Exception.Raise_Exception;
257: END IF;
258: END IF;
259: IF ((UPPER (column_name) = 'RETRO_DT_ALIAS') OR (column_name IS NULL)) THEN
258: END IF;
259: IF ((UPPER (column_name) = 'RETRO_DT_ALIAS') OR (column_name IS NULL)) THEN
260: IF (new_references.retro_dt_alias <> UPPER (new_references.retro_dt_alias)) THEN
261: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
262: IGS_GE_MSG_STACK.ADD;
263: App_Exception.Raise_Exception;
264: END IF;
265: END IF;
266: IF ((UPPER (column_name) = 'START_DT_ALIAS') OR (column_name IS NULL)) THEN
265: END IF;
266: IF ((UPPER (column_name) = 'START_DT_ALIAS') OR (column_name IS NULL)) THEN
267: IF (new_references.start_dt_alias <> UPPER (new_references.start_dt_alias)) THEN
268: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
269: IGS_GE_MSG_STACK.ADD;
270: App_Exception.Raise_Exception;
271: END IF;
272: END IF;
273: IF ((UPPER (column_name) = 'FEE_CI_SEQUENCE_NUMBER') OR (column_name IS NULL)) THEN
272: END IF;
273: IF ((UPPER (column_name) = 'FEE_CI_SEQUENCE_NUMBER') OR (column_name IS NULL)) THEN
274: IF ((new_references.fee_ci_sequence_number < 1) OR (new_references.fee_ci_sequence_number > 999999)) THEN
275: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
276: IGS_GE_MSG_STACK.ADD;
277: App_Exception.Raise_Exception;
278: END IF;
279: END IF;
280: IF ((UPPER (column_name) = 'START_DAI_SEQUENCE_NUMBER') OR (column_name IS NULL)) THEN
279: END IF;
280: IF ((UPPER (column_name) = 'START_DAI_SEQUENCE_NUMBER') OR (column_name IS NULL)) THEN
281: IF ((new_references.start_dai_sequence_number < 1) OR (new_references.start_dai_sequence_number > 999999)) THEN
282: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
283: IGS_GE_MSG_STACK.ADD;
284: App_Exception.Raise_Exception;
285: END IF;
286: END IF;
287: END Check_Constraints;
303: new_references.fee_cal_type,
304: new_references.fee_ci_sequence_number
305: ) THEN
306: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
307: IGS_GE_MSG_STACK.ADD;
308: App_Exception.Raise_Exception;
309: END IF;
310: END IF;
311: IF (((old_references.fee_cal_type = new_references.fee_cal_type) AND
318: new_references.fee_cal_type,
319: new_references.fee_ci_sequence_number
320: ) THEN
321: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
322: IGS_GE_MSG_STACK.ADD;
323: App_Exception.Raise_Exception;
324: END IF;
325: END IF;
326: IF (((old_references.end_dt_alias = new_references.end_dt_alias) AND
339: new_references.fee_cal_type,
340: new_references.fee_ci_sequence_number
341: ) THEN
342: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
343: IGS_GE_MSG_STACK.ADD;
344: App_Exception.Raise_Exception;
345: END IF;
346: END IF;
347: IF (((old_references.fee_cat = new_references.fee_cat)) OR
351: IF NOT IGS_FI_FEE_CAT_PKG.Get_PK_For_Validation (
352: new_references.fee_cat
353: ) THEN
354: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
355: IGS_GE_MSG_STACK.ADD;
356: App_Exception.Raise_Exception;
357: END IF;
358: END IF;
359: IF (((old_references.fee_cat_ci_status = new_references.fee_cat_ci_status)) OR
363: IF NOT IGS_FI_FEE_STR_STAT_PKG.Get_PK_For_Validation (
364: new_references.fee_cat_ci_status
365: ) THEN
366: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
367: IGS_GE_MSG_STACK.ADD;
368: App_Exception.Raise_Exception;
369: END IF;
370: END IF;
371: IF (((old_references.retro_dt_alias = new_references.retro_dt_alias) AND
384: new_references.fee_cal_type,
385: new_references.fee_ci_sequence_number
386: ) THEN
387: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
388: IGS_GE_MSG_STACK.ADD;
389: App_Exception.Raise_Exception;
390: END IF;
391: END IF;
392: END Check_Parent_Existance;
468: Fetch cur_rowid INTO lv_rowid;
469: IF (cur_rowid%FOUND) THEN
470: Close cur_rowid;
471: Fnd_Message.Set_Name ('IGS', 'IGS_FI_FCCI_END_DAI_FK');
472: IGS_GE_MSG_STACK.ADD;
473: App_Exception.Raise_Exception;
474: Return;
475: END IF;
476: Close cur_rowid;
490: Fetch cur_rowid INTO lv_rowid;
491: IF (cur_rowid%FOUND) THEN
492: Close cur_rowid;
493: Fnd_Message.Set_Name ('IGS', 'IGS_FI_FCCI_CI_FK');
494: IGS_GE_MSG_STACK.ADD;
495: App_Exception.Raise_Exception;
496: Return;
497: END IF;
498: Close cur_rowid;
510: Fetch cur_rowid INTO lv_rowid;
511: IF (cur_rowid%FOUND) THEN
512: Close cur_rowid;
513: Fnd_Message.Set_Name ('IGS', 'IGS_FI_FCCI_FC_FK');
514: IGS_GE_MSG_STACK.ADD;
515: App_Exception.Raise_Exception;
516: Return;
517: END IF;
518: Close cur_rowid;
530: Fetch cur_rowid INTO lv_rowid;
531: IF (cur_rowid%FOUND) THEN
532: Close cur_rowid;
533: Fnd_Message.Set_Name ('IGS', 'IGS_FI_FCCI_FSST_FK');
534: IGS_GE_MSG_STACK.ADD;
535: App_Exception.Raise_Exception;
536: Return;
537: END IF;
538: Close cur_rowid;
599: new_references.fee_cal_type,
600: new_references.fee_ci_sequence_number
601: )) THEN
602: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
603: IGS_GE_MSG_STACK.ADD;
604: App_Exception.Raise_Exception;
605: END IF;
606: Check_Constraints;
607: Check_Parent_Existance;
624: new_references.fee_cal_type,
625: new_references.fee_ci_sequence_number
626: )) THEN
627: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
628: IGS_GE_MSG_STACK.ADD;
629: App_Exception.Raise_Exception;
630: END IF;
631: Check_Constraints;
632: ELSIF (p_action = 'VALIDATE_UPDATE') THEN
712: X_PROGRAM_UPDATE_DATE:=SYSDATE;
713: end if;
714: else
715: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
716: IGS_GE_MSG_STACK.ADD;
717: app_exception.raise_exception;
718: end if;
719: Before_DML(
720: p_action=>'INSERT',
818: fetch c1 into tlinfo;
819: if (c1%notfound) then
820: close c1;
821: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
822: IGS_GE_MSG_STACK.ADD;
823: app_exception.raise_exception;
824: return;
825: end if;
826: close c1;
838: ) then
839: null;
840: else
841: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
842: IGS_GE_MSG_STACK.ADD;
843: app_exception.raise_exception;
844: end if;
845: return;
846: end LOCK_ROW;
891: X_PROGRAM_UPDATE_DATE:=SYSDATE;
892: end if;
893: else
894: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
895: IGS_GE_MSG_STACK.ADD;
896: app_exception.raise_exception;
897: end if;
898: Before_DML(
899: p_action=>'UPDATE',