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;
44: Close cur_old_ref_values;
45:
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.
100: IF p_inserting THEN
101: IF IGS_PS_VAL_CALul.crsp_val_uv_sys_sts (
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;
110:
111:
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;
146:
147: END Check_Constraints;
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;
173:
174: IF (((old_references.unit_cd = new_references.unit_cd) AND
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;
189:
190: END Check_Parent_Existance;
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;
257: Close cur_rowid;
258:
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;
285: Close cur_rowid;
286:
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;
337: Check_Parent_Existance;
338: ELSIF (p_action = 'UPDATE') THEN
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;
359: ELSIF (p_action = 'VALIDATE_UPDATE') THEN
360: Check_Constraints;
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:
415: Before_DML (
416: p_action => 'INSERT',
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;
497: close c1;
498: