[Home] [Help]
30: Open cur_old_ref_values;
31: Fetch cur_old_ref_values INTO old_references;
32: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT', 'VALIDATE_INSERT')) THEN
33: Close cur_old_ref_values;
34: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
35: IGS_GE_MSG_STACK.ADD;
36: App_Exception.Raise_Exception;
37: Return;
38: END IF;
83: (old_references.closed_ind = 'Y' AND new_references.closed_ind = 'N'))) THEN
84: IF IGS_PS_VAL_FS.crsp_val_fs_govt (
85: new_references.govt_funding_source,
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;
142: IF upper(Column_Name) = 'CLOSED_IND' OR column_name is NULL THEN
143: IF new_references.closed_ind <> 'Y' AND
144: new_references.closed_ind <> 'N'
145: THEN
146: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
147: IGS_GE_MSG_STACK.ADD;
148: App_Exception.Raise_Exception;
149: END IF;
150: END IF;
150: END IF;
151: IF upper(Column_Name) = 'FUNDING_SOURCE' OR
152: column_name is NULL THEN
153: IF new_references.funding_source <> UPPER(new_references.funding_source) THEN
154: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
155: IGS_GE_MSG_STACK.ADD;
156: App_Exception.Raise_Exception;
157: END IF;
158: END IF;
165: ((new_references.govt_funding_source IS NULL))) THEN
166: NULL;
167: ELSIF NOT IGS_FI_GOVT_FUND_SRC_PKG.Get_PK_For_Validation (
168: new_references.govt_funding_source ) THEN
169: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
170: IGS_GE_MSG_STACK.ADD;
171: App_Exception.Raise_Exception;
172: END IF;
173: END Check_Parent_Existance;
235: Open cur_rowid;
236: Fetch cur_rowid INTO lv_rowid;
237: IF (cur_rowid%FOUND) THEN
238: Close cur_rowid;
239: Fnd_Message.Set_Name ('IGS', 'IGS_FI_FS_GFS_FK');
240: IGS_GE_MSG_STACK.ADD;
241: App_Exception.Raise_Exception;
242: Return;
243: END IF;
276: IF (p_action = 'INSERT') THEN
277: -- Call all the procedures related to Before Insert.
278: BeforeRowInsertUpdateDelete1 ( p_inserting => TRUE );
279: IF Get_PK_For_Validation ( new_references.funding_source) THEN
280: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
281: IGS_GE_MSG_STACK.ADD;
282: App_Exception.Raise_Exception;
283: END IF;
284: Check_Constraints;
295: Check_Child_Existance;
296: ELSIF (p_action = 'VALIDATE_INSERT') THEN
297: -- Call all the procedures related to Before Insert.
298: IF Get_PK_For_Validation ( new_references.funding_source) THEN
299: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
300: IGS_GE_MSG_STACK.ADD;
301: App_Exception.Raise_Exception;
302: END IF;
303: Check_Constraints;
342: if X_LAST_UPDATE_LOGIN is NULL then
343: X_LAST_UPDATE_LOGIN := -1;
344: end if;
345: else
346: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
347: IGS_GE_MSG_STACK.ADD;
348: app_exception.raise_exception;
349: end if;
350: Before_DML(
412: open c1;
413: fetch c1 into tlinfo;
414: if (c1%notfound) then
415: close c1;
416: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
417: IGS_GE_MSG_STACK.ADD;
418: app_exception.raise_exception;
419: return;
420: end if;
424: AND (tlinfo.CLOSED_IND = X_CLOSED_IND)
425: ) then
426: null;
427: else
428: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
429: IGS_GE_MSG_STACK.ADD;
430: app_exception.raise_exception;
431: end if;
432: return;
458: if X_LAST_UPDATE_LOGIN is NULL then
459: X_LAST_UPDATE_LOGIN := -1;
460: end if;
461: else
462: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
463: IGS_GE_MSG_STACK.ADD;
464: app_exception.raise_exception;
465: end if;
466: Before_DML(
560: --Who When What
561: -------------------------------------------------------------------
562: BEGIN
563: -- Preventing deletion of the Funding source records. As a part of Bug # 2729917
564: FND_MESSAGE.SET_NAME('IGS','IGS_FI_DEL_NOT_ALLWD');
565: IGS_GE_MSG_STACK.ADD;
566: APP_EXCEPTION.RAISE_EXCEPTION;
567: END beforerowdelete;
568: