[Home] [Help]
35: Open cur_old_ref_values;
36: Fetch cur_old_ref_values INTO old_references;
37: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
38: Close cur_old_ref_values;
39: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
40: IGS_GE_MSG_STACK.ADD;
41: App_Exception.Raise_Exception;
42: Return;
43: END IF;
91: IF IGS_PS_VAL_CRS.crsp_val_iud_crv_dtl (
92: v_course_cd,
93: v_crv_version_number,
94: v_message_name) = FALSE THEN
95: Fnd_Message.Set_Name('IGS',v_message_name);
96: IGS_GE_MSG_STACK.ADD;
97: App_Exception.Raise_Exception;
98: END IF;
99: -- Validate the IGS_PS_UNIT version. IGS_PS_UNIT version is not updateable.
101: IF IGS_PS_VAL_CALul.crsp_val_uv_sys_sts (
102: new_references.unit_cd,
103: new_references.uv_version_number,
104: v_message_name) = FALSE THEN
105: Fnd_Message.Set_Name('IGS',v_message_name);
106: IGS_GE_MSG_STACK.ADD;
107: App_Exception.Raise_Exception;
108: END IF;
109: END IF;
128:
129: IF upper(column_name) = 'COURSE_CD' OR
130: column_name is null Then
131: IF ( new_references.course_cd <> UPPER(new_references.course_cd) ) Then
132: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
133: IGS_GE_MSG_STACK.ADD;
134: App_Exception.Raise_Exception;
135: END IF;
136: END IF;
137:
138: IF upper(column_name) = 'UNIT_CD' OR
139: column_name is null Then
140: IF ( new_references.unit_cd <> UPPER(new_references.unit_cd) ) Then
141: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
142: IGS_GE_MSG_STACK.ADD;
143: App_Exception.Raise_Exception;
144: END IF;
145: END IF;
164: new_references.crv_version_number,
165: new_references.yr_num,
166: new_references.effective_start_dt
167: ) THEN
168: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
169: IGS_GE_MSG_STACK.ADD;
170: App_Exception.Raise_Exception;
171: END IF;
172: END IF;
180: IF NOT IGS_PS_UNIT_VER_PKG.Get_PK_For_Validation (
181: new_references.unit_cd,
182: new_references.uv_version_number
183: ) THEN
184: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
185: IGS_GE_MSG_STACK.ADD;
186: App_Exception.Raise_Exception;
187: END IF;
188: END IF;
248: Open cur_rowid;
249: Fetch cur_rowid INTO lv_rowid;
250: IF (cur_rowid%FOUND) THEN
251: Close cur_rowid;
252: Fnd_Message.Set_Name ('IGS', 'IGS_PS_CALUL_CAL_FK');
253: IGS_GE_MSG_STACK.ADD;
254: App_Exception.Raise_Exception;
255: Return;
256: END IF;
276: Open cur_rowid;
277: Fetch cur_rowid INTO lv_rowid;
278: IF (cur_rowid%FOUND) THEN
279: Close cur_rowid;
280: Fnd_Message.Set_Name ('IGS', 'IGS_PS_CALUL_UV_FK');
281: IGS_GE_MSG_STACK.ADD;
282: App_Exception.Raise_Exception;
283: Return;
284: END IF;
328: new_references.yr_num ,
329: new_references.effective_start_dt ,
330: new_references.unit_cd ,
331: new_references.uv_version_number) THEN
332: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
333: IGS_GE_MSG_STACK.ADD;
334: App_Exception.Raise_Exception;
335: END IF;
336: Check_Constraints;
350: new_references.yr_num ,
351: new_references.effective_start_dt ,
352: new_references.unit_cd ,
353: new_references.uv_version_number) THEN
354: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
355: IGS_GE_MSG_STACK.ADD;
356: App_Exception.Raise_Exception;
357: END IF;
358: Check_Constraints;
406: if X_LAST_UPDATE_LOGIN is NULL then
407: X_LAST_UPDATE_LOGIN := -1;
408: end if;
409: else
410: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
411: IGS_GE_MSG_STACK.ADD;
412: app_exception.raise_exception;
413: end if;
414:
488: open c1;
489: fetch c1 into tlinfo;
490: if (c1%notfound) then
491: close c1;
492: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
493: IGS_GE_MSG_STACK.ADD;
494: app_exception.raise_exception;
495: return;
496: end if;