[Home] [Help]
48: Open cur_old_ref_values;
49: Fetch cur_old_ref_values INTO old_references;
50: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT', 'VALIDATE_INSERT')) THEN
51: Close cur_old_ref_values;
52: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
53: IGS_GE_MSG_STACK.ADD;
54: App_Exception.Raise_Exception;
55: Return;
56: END IF;
143: OPEN c_sft(new_references.fee_type);
144: FETCH c_sft INTO l_s_fee_type;
145: CLOSE c_sft;
146: IF( l_s_fee_type = 'REFUND') THEN
147: Fnd_Message.Set_Name('IGS','IGS_FI_INVALID_REFUND_FCFL');
148: IGS_GE_MSG_STACK.ADD;
149: App_Exception.Raise_Exception;
150: END IF;
151: END IF;
154: (new_references.fee_liability_status)) THEN
155: IF IGS_FI_VAL_FCCI.finp_val_fss_closed (
156: new_references.fee_liability_status,
157: v_message_name) = FALSE THEN
158: Fnd_Message.Set_Name('IGS',v_message_name);
159: IGS_GE_MSG_STACK.ADD;
160: App_Exception.Raise_Exception;
161: END IF;
162: -- Validate status can be set to 'ACTIVE'
164: new_references.fee_liability_status,
165: new_references.fee_cal_type,
166: new_references.fee_ci_sequence_number,
167: v_message_name) = FALSE THEN
168: Fnd_Message.Set_Name('IGS',v_message_name);
169: IGS_GE_MSG_STACK.ADD;
170: App_Exception.Raise_Exception;
171: END IF;
172: IF IGS_FI_VAL_FCFL.finp_val_fcfl_status (
175: new_references.fee_cat,
176: new_references.fee_type,
177: new_references.fee_liability_status,
178: v_message_name) = FALSE THEN
179: Fnd_Message.Set_Name('IGS',v_message_name);
180: IGS_GE_MSG_STACK.ADD;
181: App_Exception.Raise_Exception;
182: END IF;
183: END IF;
189: new_references.fee_type,
190: new_references.s_chg_method_type,
191: new_references.rul_sequence_number,
192: v_message_name) = FALSE THEN
193: Fnd_Message.Set_Name('IGS',v_message_name);
194: IGS_GE_MSG_STACK.ADD;
195: App_Exception.Raise_Exception;
196: END IF;
197: END IF;
202: new_references.fee_ci_sequence_number,
203: new_references.fee_type,
204: new_references.fee_cat,
205: v_message_name) = FALSE THEN
206: Fnd_Message.Set_Name('IGS',v_message_name);
207: IGS_GE_MSG_STACK.ADD;
208: App_Exception.Raise_Exception;
209: END IF;
210: END IF;
279: new_references.fee_ci_sequence_number,
280: new_references.fee_type,
281: new_references.s_chg_method_type
282: ) THEN
283: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
284: IGS_GE_MSG_STACK.ADD;
285: App_Exception.Raise_Exception;
286: END IF;
287: END Check_Uniqueness;
317: new_references.s_chg_method_type := column_value;
318: END IF;
319: IF ((UPPER (column_name) = 'START_DAI_SEQUENCE_NUMBER') OR (column_name IS NULL)) THEN
320: IF ((new_references.start_dai_sequence_number < 1) OR (new_references.start_dai_sequence_number > 999999)) THEN
321: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
322: IGS_GE_MSG_STACK.ADD;
323: App_Exception.Raise_Exception;
324: END IF;
325: END IF;
324: END IF;
325: END IF;
326: IF ((UPPER (column_name) = 'RUL_SEQUENCE_NUMBER') OR (column_name IS NULL)) THEN
327: IF ((new_references.rul_sequence_number < 1) OR (new_references.rul_sequence_number > 999999)) THEN
328: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
329: IGS_GE_MSG_STACK.ADD;
330: App_Exception.Raise_Exception;
331: END IF;
332: END IF;
331: END IF;
332: END IF;
333: IF ((UPPER (column_name) = 'FEE_CI_SEQUENCE_NUMBER') OR (column_name IS NULL)) THEN
334: IF ((new_references.fee_ci_sequence_number < 1) OR (new_references.fee_ci_sequence_number > 999999)) THEN
335: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
336: IGS_GE_MSG_STACK.ADD;
337: App_Exception.Raise_Exception;
338: END IF;
339: END IF;
338: END IF;
339: END IF;
340: IF ((UPPER (column_name) = 'FEE_CAL_TYPE') OR (column_name IS NULL)) THEN
341: IF (new_references.fee_cal_type <> UPPER (new_references.fee_cal_type)) THEN
342: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
343: IGS_GE_MSG_STACK.ADD;
344: App_Exception.Raise_Exception;
345: END IF;
346: END IF;
345: END IF;
346: END IF;
347: IF ((UPPER (column_name) = 'START_DT_ALIAS') OR (column_name IS NULL)) THEN
348: IF (new_references.start_dt_alias <> UPPER (new_references.start_dt_alias)) THEN
349: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
350: IGS_GE_MSG_STACK.ADD;
351: App_Exception.Raise_Exception;
352: END IF;
353: END IF;
352: END IF;
353: END IF;
354: IF ((UPPER (column_name) = 'S_CHG_METHOD_TYPE') OR (column_name IS NULL)) THEN
355: IF (new_references.s_chg_method_type <> UPPER (new_references.s_chg_method_type)) THEN
356: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
357: IGS_GE_MSG_STACK.ADD;
358: App_Exception.Raise_Exception;
359: END IF;
360: END IF;
376: new_references.start_dai_sequence_number,
377: new_references.fee_cal_type,
378: new_references.fee_ci_sequence_number
379: ) THEN
380: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
381: IGS_GE_MSG_STACK.ADD;
382: App_Exception.Raise_Exception;
383: END IF;
384: END IF;
394: new_references.fee_cat,
395: new_references.fee_cal_type,
396: new_references.fee_ci_sequence_number
397: ) THEN
398: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
399: IGS_GE_MSG_STACK.ADD;
400: App_Exception.Raise_Exception;
401: END IF;
402: END IF;
406: ELSE
407: IF NOT IGS_FI_FEE_STR_STAT_PKG.Get_PK_For_Validation (
408: new_references.fee_liability_status
409: ) THEN
410: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
411: IGS_GE_MSG_STACK.ADD;
412: App_Exception.Raise_Exception;
413: END IF;
414: END IF;
424: new_references.fee_type,
425: new_references.fee_cal_type,
426: new_references.fee_ci_sequence_number
427: ) THEN
428: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
429: IGS_GE_MSG_STACK.ADD;
430: App_Exception.Raise_Exception;
431: END IF;
432: END IF;
436: ELSE
437: IF NOT IGS_RU_RULE_PKG.Get_PK_For_Validation (
438: new_references.rul_sequence_number
439: ) THEN
440: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
441: IGS_GE_MSG_STACK.ADD;
442: App_Exception.Raise_Exception;
443: END IF;
444: END IF;
519: Open cur_rowid;
520: Fetch cur_rowid INTO lv_rowid;
521: IF (cur_rowid%FOUND) THEN
522: Close cur_rowid;
523: Fnd_Message.Set_Name ('IGS', 'IGS_FI_FCFL_DAI_FK');
524: IGS_GE_MSG_STACK.ADD;
525: App_Exception.Raise_Exception;
526: Return;
527: END IF;
543: Open cur_rowid;
544: Fetch cur_rowid INTO lv_rowid;
545: IF (cur_rowid%FOUND) THEN
546: Close cur_rowid;
547: Fnd_Message.Set_Name ('IGS', 'IGS_FI_FCFL_FCCI_FK');
548: IGS_GE_MSG_STACK.ADD;
549: App_Exception.Raise_Exception;
550: Return;
551: END IF;
563: Open cur_rowid;
564: Fetch cur_rowid INTO lv_rowid;
565: IF (cur_rowid%FOUND) THEN
566: Close cur_rowid;
567: Fnd_Message.Set_Name ('IGS', 'IGS_FI_FCFL_FSST_FK');
568: IGS_GE_MSG_STACK.ADD;
569: App_Exception.Raise_Exception;
570: Return;
571: END IF;
584: Open cur_rowid;
585: Fetch cur_rowid INTO lv_rowid;
586: IF (cur_rowid%FOUND) THEN
587: Close cur_rowid;
588: Fnd_Message.Set_Name ('IGS', 'IGS_FI_FCFL_RUL_FK');
589: IGS_GE_MSG_STACK.ADD;
590: App_Exception.Raise_Exception;
591: Return;
592: END IF;
604: Open cur_rowid;
605: Fetch cur_rowid INTO lv_rowid;
606: IF (cur_rowid%FOUND) THEN
607: Close cur_rowid;
608: Fnd_Message.Set_Name ('IGS', 'IGS_FI_FCFL_LKUP_FK');
609: IGS_GE_MSG_STACK.ADD;
610: App_Exception.Raise_Exception;
611: Return;
612: END IF;
680: x_fee_cal_type,
681: x_fee_ci_sequence_number,
682: x_fee_type
683: )) THEN
684: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
685: IGS_GE_MSG_STACK.ADD;
686: App_Exception.Raise_Exception;
687: END IF;
688: Check_Uniqueness;
700: x_fee_cal_type,
701: x_fee_ci_sequence_number,
702: x_fee_type
703: )) THEN
704: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
705: IGS_GE_MSG_STACK.ADD;
706: App_Exception.Raise_Exception;
707: END IF;
708: Check_Uniqueness;
798: else
799: X_PROGRAM_UPDATE_DATE:=SYSDATE;
800: end if;
801: else
802: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
803: IGS_GE_MSG_STACK.ADD;
804: app_exception.raise_exception;
805: end if;
806: Before_DML(
917: open c1;
918: fetch c1 into tlinfo;
919: if (c1%notfound) then
920: close c1;
921: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
922: IGS_GE_MSG_STACK.ADD;
923: app_exception.raise_exception;
924: return;
925: end if;
942: AND (X_WAIVER_CALC_FLAG is null)))
943: ) then
944: null;
945: else
946: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
947: IGS_GE_MSG_STACK.ADD;
948: app_exception.raise_exception;
949: end if;
950: return;
1006: else
1007: X_PROGRAM_UPDATE_DATE:=SYSDATE;
1008: end if;
1009: else
1010: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
1011: IGS_GE_MSG_STACK.ADD;
1012: app_exception.raise_exception;
1013: end if;
1014: Before_DML(