[Home] [Help]
42: Open cur_old_ref_values;
43: Fetch cur_old_ref_values INTO old_references;
44: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT', 'VALIDATE_INSERT')) THEN
45: Close cur_old_ref_values;
46: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
47: IGS_GE_MSG_STACK.ADD;
48: App_Exception.Raise_Exception;
49: Return;
50: END IF;
130: new_references.s_fee_type <> 'PAY_PLAN' AND
131: new_references.s_fee_type <> 'AUDIT' AND
132: new_references.s_fee_type <> 'SPECIAL' AND
133: new_references.s_fee_type <> 'WAIVER_ADJ' THEN
134: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
135: IGS_GE_MSG_STACK.ADD;
136: App_Exception.Raise_Exception;
137: END IF;
138: END IF;
138: END IF;
139: IF upper(Column_Name) = 'OPTIONAL_PAYMENT_IND' OR column_name is NULL THEN
140: IF new_references.optional_payment_ind <> 'Y' AND
141: new_references.optional_payment_ind <> 'N' THEN
142: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
143: IGS_GE_MSG_STACK.ADD;
144: App_Exception.Raise_Exception;
145: END IF;
146: END IF;
146: END IF;
147: IF upper(Column_Name) = 'CLOSED_IND' OR column_name is NULL THEN
148: IF new_references.closed_ind <> 'Y' AND
149: new_references.closed_ind <> 'N' THEN
150: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
151: IGS_GE_MSG_STACK.ADD;
152: App_Exception.Raise_Exception;
153: END IF;
154: END IF;
161: new_references.S_FEE_TRIGGER_CAT <> 'COMPOSITE' AND
162: new_references.S_FEE_TRIGGER_CAT <> 'UNITSET' AND
163: new_references.S_FEE_TRIGGER_CAT <> 'AUDIT' AND
164: new_references.S_FEE_TRIGGER_CAT <> 'SPECIAL' THEN
165: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
166: IGS_GE_MSG_STACK.ADD;
167: App_Exception.Raise_Exception;
168: END IF;
169: END IF;
179: NULL;
180: ELSE
181: IF NOT igs_lookups_view_pkg.get_pk_for_validation('FEE_CLASS',
182: new_references.fee_class) THEN
183: FND_MESSAGE.SET_NAME('FND','FORM_RECORD_DELETED');
184: IGS_GE_MSG_STACK.ADD;
185: APP_EXCEPTION.RAISE_EXCEPTION;
186: END IF;
187: END IF;
267: -- Call all the procedures related to Before Insert.
268:
269: IF Get_PK_For_Validation ( new_references.fee_type,
270: new_references.hist_start_dt) THEN
271: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
272: IGS_GE_MSG_STACK.ADD;
273: App_Exception.Raise_Exception;
274: END IF;
275: Check_Constraints;
281: ELSIF (p_action = 'VALIDATE_INSERT') THEN
282: -- Call all the procedures related to Before Insert.
283: IF Get_PK_For_Validation ( new_references.fee_type,
284: new_references.hist_start_dt) THEN
285: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
286: IGS_GE_MSG_STACK.ADD;
287: App_Exception.Raise_Exception;
288: END IF;
289: Check_Constraints;
337: if X_LAST_UPDATE_LOGIN is NULL then
338: X_LAST_UPDATE_LOGIN := -1;
339: end if;
340: else
341: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
342: IGS_GE_MSG_STACK.ADD;
343: app_exception.raise_exception;
344: end if;
345:
453: open c1;
454: fetch c1 into tlinfo;
455: if (c1%notfound) then
456: close c1;
457: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
458: IGS_GE_MSG_STACK.ADD;
459: app_exception.raise_exception;
460: return;
461: end if;
488: ((tlinfo.designated_payment_flag IS NULL) AND (x_designated_payment_flag IS NULL)))
489: ) then
490: null;
491: else
492: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
493: IGS_GE_MSG_STACK.ADD;
494: app_exception.raise_exception;
495: end if;
496: return;
530: if X_LAST_UPDATE_LOGIN is NULL then
531: X_LAST_UPDATE_LOGIN := -1;
532: end if;
533: else
534: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
535: IGS_GE_MSG_STACK.ADD;
536: app_exception.raise_exception;
537: end if;
538: