[Home] [Help]
32: Open cur_old_ref_values;
33: Fetch cur_old_ref_values INTO old_references;
34: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT', 'VALIDATE_INSERT')) THEN
35: Close cur_old_ref_values;
36: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
37: IGS_GE_MSG_STACK.ADD;
38: App_Exception.Raise_Exception;
39: Return;
40: END IF;
73: END IF;
74:
75: IF upper(Column_name) = 'EFFECTIVE_END_DT_ALIAS' OR column_name is null then
76: IF new_references.effective_end_dt_alias <> UPPER(new_references.effective_end_dt_alias) then
77: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
78: IGS_GE_MSG_STACK.ADD;
79: App_Exception.Raise_Exception;
80: END IF;
81: END IF;
80: END IF;
81: END IF;
82: IF upper(Column_name) = 'EFFECTIVE_STRT_DT_ALIAS' OR column_name is null then
83: IF new_references.effective_strt_dt_alias <> UPPER(new_references.effective_strt_dt_alias) then
84: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
85: IGS_GE_MSG_STACK.ADD;
86: App_Exception.Raise_Exception;
87: END IF;
88: END IF;
87: END IF;
88: END IF;
89: IF upper(Column_name) = 'S_CONTROL_NUM' OR column_name is null then
90: IF new_references.s_control_num <> 1 THEN
91: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
92: IGS_GE_MSG_STACK.ADD;
93: App_Exception.Raise_Exception;
94: END IF;
95: END IF;
105: ELSE
106: IF NOT IGS_CA_DA_PKG.Get_PK_For_Validation (
107: new_references.effective_end_dt_alias
108: )THEN
109: Fnd_Message.Set_Name('FND','FORM_RECORD_DELETED');
110: IGS_GE_MSG_STACK.ADD;
111: App_Exception.Raise_Exception;
112: END IF;
113: END IF;
118: ELSE
119: IF NOT IGS_CA_DA_PKG.Get_PK_For_Validation (
120: new_references.effective_strt_dt_alias
121: ) THEN
122: Fnd_Message.Set_Name('FND','FORM_RECORD_DELETED');
123: IGS_GE_MSG_STACK.ADD;
124: App_Exception.Raise_Exception;
125: END IF;
126: END IF;
170: Open cur_rowid;
171: Fetch cur_rowid INTO lv_rowid;
172: IF (cur_rowid%FOUND) THEN
173: Close cur_rowid;
174: Fnd_Message.Set_Name ('IGS', 'IGS_RE_SRCC_DA_END_FK');
175: IGS_GE_MSG_STACK.ADD;
176: App_Exception.Raise_Exception;
177: Return;
178: END IF;
211: -- Call all the procedures related to Before Insert.
212: IF Get_PK_For_Validation(
213: new_references.s_control_num
214: )THEN
215: Fnd_Message.Set_Name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
216: IGS_GE_MSG_STACK.ADD;
217: App_Exception.Raise_Exception;
218: END IF;
219: Check_Constraints;
225: ELSIF (p_action = 'VALIDATE_INSERT') THEN
226: IF Get_PK_For_Validation(
227: new_references.s_control_num
228: )THEN
229: Fnd_Message.Set_Name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
230: IGS_GE_MSG_STACK.ADD;
231: App_Exception.Raise_Exception;
232: END IF ;
233: Check_Constraints;
264: if X_LAST_UPDATE_LOGIN is NULL then
265: X_LAST_UPDATE_LOGIN := -1;
266: end if;
267: else
268: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
269: IGS_GE_MSG_STACK.ADD;
270: app_exception.raise_exception;
271: end if;
272:
331: open c1;
332: fetch c1 into tlinfo;
333: if (c1%notfound) then
334: close c1;
335: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
336: app_exception.raise_exception;
337: return;
338: end if;
339: close c1;
346: AND (X_EFFECTIVE_END_DT_ALIAS is null)))
347: ) then
348: null;
349: else
350: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
351: app_exception.raise_exception;
352: end if;
353: return;
354: end LOCK_ROW;
377: if X_LAST_UPDATE_LOGIN is NULL then
378: X_LAST_UPDATE_LOGIN := -1;
379: end if;
380: else
381: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
382: IGS_GE_MSG_STACK.ADD;
383: app_exception.raise_exception;
384: end if;
385: