[Home] [Help]
43: Open cur_old_ref_values;
44: Fetch cur_old_ref_values INTO old_references;
45: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
46: Close cur_old_ref_values;
47: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
48: IGS_GE_MSG_STACK.ADD;
49: App_Exception.Raise_Exception;
50: Return;
51: END IF;
80: END IF;
81: IF upper(column_name) = 'COURSE_CD' OR
82: column_name is null Then
83: IF ( new_references.course_cd <> UPPER(new_references.course_cd) ) 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;
209:
210: IF (p_action = 'INSERT') THEN
211: -- Call all the procedures related to Before Insert.
212: IF Get_PK_For_Validation ( new_references.course_cd ) THEN
213: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
214: IGS_GE_MSG_STACK.ADD;
215: App_Exception.Raise_Exception;
216: END IF;
217: Check_Constraints;
222: -- Call all the procedures related to Before Delete.
223: Check_Child_Existance;
224: ELSIF (p_action = 'VALIDATE_INSERT') THEN
225: IF Get_PK_For_Validation (new_references.course_cd ) THEN
226: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
227: IGS_GE_MSG_STACK.ADD;
228: App_Exception.Raise_Exception;
229: END IF;
230: Check_Constraints;
270: if X_LAST_UPDATE_LOGIN is NULL then
271: X_LAST_UPDATE_LOGIN := -1;
272: end if;
273: else
274: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
275: IGS_GE_MSG_STACK.ADD;
276: app_exception.raise_exception;
277: end if;
278:
332: open c1;
333: fetch c1 into tlinfo;
334: if (c1%notfound) then
335: close c1;
336: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
337: IGS_GE_MSG_STACK.ADD;
338: app_exception.raise_exception;
339: return;
340: end if;