[Home] [Help]
36: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
37: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
38: IGS_GE_MSG_STACK.ADD;
39: Close cur_old_ref_values;
40: APP_EXCEPTION.RAISE_EXCEPTION;
41:
42: Return;
43: END IF;
44: Close cur_old_ref_values;
74: new_references.sheet_number
75: ) THEN
76: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
77: IGS_GE_MSG_STACK.ADD;
78: APP_EXCEPTION.RAISE_EXCEPTION;
79: END IF;
80: IF (((old_references.person_id = new_references.person_id) AND
81: (old_references.course_cd = new_references.course_cd) AND
82: (old_references.uoo_id = new_references.uoo_id)) OR
90: new_references.uoo_id
91: ) THEN
92: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
93: IGS_GE_MSG_STACK.ADD;
94: APP_EXCEPTION.RAISE_EXCEPTION;
95: END IF;
96: END Check_Parent_Existance;
97:
98: -------------------------------------------------------------------------------------------
140: IF (cur_rowid%FOUND) THEN
141: Fnd_Message.Set_Name ('IGS', 'IGS_AS_MSSUA_MS_FK');
142: IGS_GE_MSG_STACK.ADD;
143: Close cur_rowid;
144: APP_EXCEPTION.RAISE_EXCEPTION;
145:
146: Return;
147: END IF;
148: Close cur_rowid;
167: IF (cur_rowid%FOUND) THEN
168: Fnd_Message.Set_Name ('IGS', 'IGS_AS_MSSUA_SUA_FK');
169: IGS_GE_MSG_STACK.ADD;
170: Close cur_rowid;
171: APP_EXCEPTION.RAISE_EXCEPTION;
172:
173: Return;
174: END IF;
175: Close cur_rowid;
224: NEW_REFERENCES.uoo_id
225: ) 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:
231: Check_Constraints;
232:
245: NEW_REFERENCES.uoo_id
246: ) THEN
247: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
248: IGS_GE_MSG_STACK.ADD;
249: APP_EXCEPTION.RAISE_EXCEPTION;
250: END IF;
251:
252: CHECK_Constraints;
253: ELSIF (p_action = 'VALIDATE_UPDATE') THEN
314: end if;
315: else
316: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
317: IGS_GE_MSG_STACK.ADD;
318: APP_EXCEPTION.RAISE_EXCEPTION;
319: end if;
320: Before_DML(
321: p_action=>'INSERT',
322: x_rowid=>X_ROWID,
416: fetch c1 into tlinfo;
417: if (c1%notfound) then
418: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
419: IGS_GE_MSG_STACK.ADD;
420: APP_EXCEPTION.RAISE_EXCEPTION;
421: close c1;
422: return;
423: end if;
424: close c1;
430: null;
431: else
432: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
433: IGS_GE_MSG_STACK.ADD;
434: APP_EXCEPTION.RAISE_EXCEPTION;
435: end if;
436: return;
437: end LOCK_ROW;
438: procedure UPDATE_ROW (
473: end if;
474: else
475: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
476: IGS_GE_MSG_STACK.ADD;
477: APP_EXCEPTION.RAISE_EXCEPTION;
478: end if;
479: Before_DML(
480: p_action=>'UPDATE',
481: x_rowid=>X_ROWID,
619: column_name is null Then
620: IF new_references.STUDENT_SEQUENCE < 1 OR new_references.STUDENT_SEQUENCE > 999999 Then
621: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
622: IGS_GE_MSG_STACK.ADD;
623: APP_EXCEPTION.RAISE_EXCEPTION;
624: END IF;
625: END IF;
626: IF upper(column_name) = 'CAL_TYPE' OR
627: column_name is null Then
627: column_name is null Then
628: IF new_references.CAL_TYPE <> UPPER(new_references.CAL_TYPE) Then
629: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
630: IGS_GE_MSG_STACK.ADD;
631: APP_EXCEPTION.RAISE_EXCEPTION;
632: END IF;
633: END IF;
634: IF upper(column_name) = 'COURSE_CD' OR
635: column_name is null Then
635: column_name is null Then
636: IF new_references.COURSE_CD <> UPPER(new_references.COURSE_CD) Then
637: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
638: IGS_GE_MSG_STACK.ADD;
639: APP_EXCEPTION.RAISE_EXCEPTION;
640: END IF;
641: END IF;
642: IF upper(column_name) = 'UNIT_CD' OR
643: column_name is null Then
643: column_name is null Then
644: IF new_references.UNIT_CD <> UPPER(new_references.UNIT_CD) Then
645: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
646: IGS_GE_MSG_STACK.ADD;
647: APP_EXCEPTION.RAISE_EXCEPTION;
648: END IF;
649: END IF;
650: END Check_Constraints;
651: