[Home] [Help]
32: -- Populate Old Values.
33: Open cur_old_ref_values;
34: Fetch cur_old_ref_values INTO old_references;
35: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
36: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
37: IGS_GE_MSG_STACK.ADD;
38: Close cur_old_ref_values;
39: App_Exception.Raise_Exception;
40: Return;
86: IF IGS_PS_VAL_CRS.crsp_val_iud_crv_dtl (
87: v_course_cd,
88: v_version_number,
89: v_message_name) = FALSE THEN
90: Fnd_Message.Set_Name('IGS', v_message_name);
91: IGS_GE_MSG_STACK.ADD;
92: App_Exception.Raise_Exception;
93: END IF;
94:
112:
113: IF upper(column_name) = 'COURSE_CD' OR
114: column_name is null Then
115: IF new_references.course_cd <> UPPER(new_references.course_cd ) Then
116: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
117: IGS_GE_MSG_STACK.ADD;
118: App_Exception.Raise_Exception;
119: END IF;
120: END IF;
122: IF upper(column_name) = 'EXIT_COURSE_CD' OR
123: column_name is null Then
124: IF new_references.exit_course_cd <>
125: UPPER(new_references.exit_course_cd ) Then
126: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
127: IGS_GE_MSG_STACK.ADD;
128: App_Exception.Raise_Exception;
129: END IF;
130: END IF;
139: ELSE
140: IF NOT IGS_PS_COURSE_PKG.Get_PK_For_Validation (
141: new_references.exit_course_cd
142: ) THEN
143: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
144: IGS_GE_MSG_STACK.ADD;
145: App_Exception.Raise_Exception;
146: END IF;
147: END IF;
154: ELSE
155: IF NOT (IGS_PS_VER_PKG.Get_PK_For_Validation (
156: new_references.course_cd,
157: new_references.version_number)) THEN
158: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
159: IGS_GE_MSG_STACK.ADD;
160: App_Exception.Raise_Exception;
161: END IF;
162:
220:
221: Open cur_rowid;
222: Fetch cur_rowid INTO lv_rowid;
223: IF (cur_rowid%FOUND) THEN
224: Fnd_Message.Set_Name ('IGS', 'IGS_PE_AE_CRS_FK');
225: IGS_GE_MSG_STACK.ADD;
226: Close cur_rowid;
227: App_Exception.Raise_Exception;
228: Return;
248:
249: Open cur_rowid;
250: Fetch cur_rowid INTO lv_rowid;
251: IF (cur_rowid%FOUND) THEN
252: Fnd_Message.Set_Name ('IGS', 'IGS_PE_AE_CRV_FK');
253: IGS_GE_MSG_STACK.ADD;
254: Close cur_rowid;
255: App_Exception.Raise_Exception;
256: Return;
295: NEW_REFERENCES.course_cd,
296: NEW_REFERENCES.version_number ,
297: NEW_REFERENCES.exit_course_cd
298: ) THEN
299: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
300: IGS_GE_MSG_STACK.ADD;
301: App_Exception.Raise_Exception;
302: END IF;
303:
318: NEW_REFERENCES.course_cd ,
319: NEW_REFERENCES.version_number ,
320: NEW_REFERENCES.exit_course_cd
321: ) THEN
322: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
323: IGS_GE_MSG_STACK.ADD;
324: App_Exception.Raise_Exception;
325: END IF;
326:
386: if X_LAST_UPDATE_LOGIN is NULL then
387: X_LAST_UPDATE_LOGIN := -1;
388: end if;
389: else
390: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
391: IGS_GE_MSG_STACK.ADD;
392: app_exception.raise_exception;
393: end if;
394: Before_DML(
457: begin
458: open c1;
459: fetch c1 into tlinfo;
460: if (c1%notfound) then
461: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
462:
463: close c1;
464: App_Exception.Raise_Exception;
465: return;
471: AND (X_EXIT_VERSION_SET is null)))
472: ) then
473: null;
474: else
475: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
476: app_exception.raise_exception;
477: end if;
478: return;
479: end LOCK_ROW;
503: if X_LAST_UPDATE_LOGIN is NULL then
504: X_LAST_UPDATE_LOGIN := -1;
505: end if;
506: else
507: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
508: IGS_GE_MSG_STACK.ADD;
509: app_exception.raise_exception;
510: end if;
511: Before_DML(