[Home] [Help]
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;
41: Close cur_old_ref_values;
73: new_references.location_cd,
74: new_references.sub_location_cd,
75: v_message_name) = FALSE THEN
76: Fnd_Message.Set_Name('IGS',v_message_name);
77: IGS_GE_MSG_STACK.ADD;
78: App_Exception.Raise_Exception;
79: END IF;
80: END IF;
81:
95: IF IGS_OR_VAL_LR.orgp_val_lr (new_references.location_cd,
96: new_references.sub_location_cd,
97: v_message_name) = FALSE THEN
98: Fnd_Message.Set_Name('IGS',v_message_name);
99: IGS_GE_MSG_STACK.ADD;
100: App_Exception.Raise_Exception;
101: END IF;
102: --
103: -- Can only set default indicator when parent location is a campus and
109: new_references.sub_location_cd,
110: new_references.dflt_ind,
111: v_message_name) = FALSE THEN
112: Fnd_Message.Set_Name('IGS',v_message_name);
113: IGS_GE_MSG_STACK.ADD;
114: App_Exception.Raise_Exception;
115: END IF;
116:
117:
143:
144: IF upper(Column_Name) = 'DFLT_IND' OR Column_Name IS NULL THEN
145: IF new_references.dflt_ind NOT IN ('Y','N') 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;
151: IF upper(Column_Name) = 'LOCATION_CD' OR Column_Name IS NULL THEN
150: END IF;
151: IF upper(Column_Name) = 'LOCATION_CD' OR Column_Name IS NULL THEN
152: IF new_references.location_cd <> UPPER(new_references.location_cd) THEN
153: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
154: IGS_GE_MSG_STACK.ADD;
155: App_Exception.Raise_Exception;
156: END IF;
157: END IF;
158: IF upper(Column_Name) = 'SUB_LOCATION_CD' OR Column_Name IS NULL THEN
157: END IF;
158: IF upper(Column_Name) = 'SUB_LOCATION_CD' OR Column_Name IS NULL THEN
159: IF new_references.sub_location_cd <> UPPER(new_references.sub_location_cd) THEN
160: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
161: IGS_GE_MSG_STACK.ADD;
162: App_Exception.Raise_Exception;
163: END IF;
164: END IF;
165:
176: new_references.location_cd,
177: 'N'
178: ) THEN
179: Fnd_Message.Set_Name('FND','FORM_RECORD_DELETED');
180: IGS_GE_MSG_STACK.ADD;
181: App_Exception.Raise_Exception;
182: END IF;
183: END IF;
184:
190: new_references.sub_location_cd,
191: 'N'
192: ) THEN
193: Fnd_Message.Set_Name('FND','FORM_RECORD_DELETED');
194: IGS_GE_MSG_STACK.ADD;
195: App_Exception.Raise_Exception;
196: END IF;
197: END IF;
198:
244: Fetch cur_rowid INTO lv_rowid;
245: IF (cur_rowid%FOUND) THEN
246: Close cur_rowid;
247: Fnd_Message.Set_Name ('IGS', 'IGS_AD_LR_LOC_FK');
248: IGS_GE_MSG_STACK.ADD;
249: App_Exception.Raise_Exception;
250: Return;
251: END IF;
252: Close cur_rowid;
287: new_references.location_cd,
288: new_references.sub_location_cd
289: ) THEN
290: Fnd_Message.Set_Name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
291: IGS_GE_MSG_STACK.ADD;
292: App_Exception.Raise_Exception;
293: END IF;
294: Check_Constraints;
295: Check_Parent_Existance;
302: new_references.location_cd,
303: new_references.sub_location_cd
304: ) THEN
305: Fnd_Message.Set_Name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
306: IGS_GE_MSG_STACK.ADD;
307: App_Exception.Raise_Exception;
308: END IF;
309: Check_Constraints;
310: ELSIF (p_action = 'VALIDATE_UPDATE') THEN
359: X_LAST_UPDATE_LOGIN := -1;
360: end if;
361: else
362: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
363: IGS_GE_MSG_STACK.ADD;
364: app_exception.raise_exception;
365: end if;
366:
367: Before_DML(
430: fetch c1 into tlinfo;
431: if (c1%notfound) then
432: close c1;
433: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
434: IGS_GE_MSG_STACK.ADD;
435: app_exception.raise_exception;
436: return;
437: end if;
438: close c1;
441: ) then
442: null;
443: else
444: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
445: IGS_GE_MSG_STACK.ADD;
446: app_exception.raise_exception;
447: end if;
448: return;
449: end LOCK_ROW;
473: X_LAST_UPDATE_LOGIN := -1;
474: end if;
475: else
476: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
477: IGS_GE_MSG_STACK.ADD;
478: app_exception.raise_exception;
479: end if;
480:
481: Before_DML(