[Home] [Help]
34: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT', 'VALIDATE_INSERT')) THEN
35: Close cur_old_ref_values;
36: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
37: IGS_GE_MSG_STACK.ADD;
38: App_Exception.Raise_Exception;
39: Return;
40: END IF;
41: Close cur_old_ref_values;
42: -- Populate New Values.
81: IF upper(column_name) = 'COURSE_CD' OR COLUMN_NAME IS NULL THEN
82: IF new_references.COURSE_CD <> upper(NEW_REFERENCES.COURSE_CD) then
83: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
84: IGS_GE_MSG_STACK.ADD;
85: App_Exception.Raise_Exception ;
86: END IF;
87: END IF;
88: IF upper(column_name) = 'MILESTONE_TYPE' OR COLUMN_NAME IS NULL THEN
89: IF new_references.MILESTONE_TYPE <> upper(NEW_REFERENCES.MILESTONE_TYPE) then
88: IF upper(column_name) = 'MILESTONE_TYPE' OR COLUMN_NAME IS NULL THEN
89: IF new_references.MILESTONE_TYPE <> upper(NEW_REFERENCES.MILESTONE_TYPE) then
90: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
91: IGS_GE_MSG_STACK.ADD;
92: App_Exception.Raise_Exception ;
93: END IF;
94: END IF;
95: IF upper(column_name) = 'ATTENDANCE_TYPE' OR COLUMN_NAME IS NULL THEN
96: IF new_references.ATTENDANCE_TYPE <> upper(NEW_REFERENCES.ATTENDANCE_TYPE) then
95: IF upper(column_name) = 'ATTENDANCE_TYPE' OR COLUMN_NAME IS NULL THEN
96: IF new_references.ATTENDANCE_TYPE <> upper(NEW_REFERENCES.ATTENDANCE_TYPE) then
97: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
98: IGS_GE_MSG_STACK.ADD;
99: App_Exception.Raise_Exception ;
100: END IF;
101: END IF;
102: IF upper(column_name) = 'SEQUENCE_NUMBER' OR COLUMN_NAME IS NULL THEN
103: IF new_references.SEQUENCE_NUMBER < 1 OR new_references.SEQUENCE_NUMBER > 999999 then
102: IF upper(column_name) = 'SEQUENCE_NUMBER' OR COLUMN_NAME IS NULL THEN
103: IF new_references.SEQUENCE_NUMBER < 1 OR new_references.SEQUENCE_NUMBER > 999999 then
104: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
105: IGS_GE_MSG_STACK.ADD;
106: App_Exception.Raise_Exception ;
107: END IF;
108: END IF;
109: IF upper(column_name) = 'OFFSET_DAYS' OR COLUMN_NAME IS NULL THEN
110: IF new_references.OFFSET_DAYS < 0 OR new_references.OFFSET_DAYS > 9999 then
109: IF upper(column_name) = 'OFFSET_DAYS' OR COLUMN_NAME IS NULL THEN
110: IF new_references.OFFSET_DAYS < 0 OR new_references.OFFSET_DAYS > 9999 then
111: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
112: IGS_GE_MSG_STACK.ADD;
113: App_Exception.Raise_Exception ;
114: END IF;
115: END IF;
116: END Check_Constraints ;
117: PROCEDURE Check_Parent_Existance AS
124: new_references.attendance_type
125: ) THEN
126: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
127: IGS_GE_MSG_STACK.ADD;
128: App_Exception.Raise_Exception;
129: END IF;
130: END IF;
131: IF (((old_references.course_cd = new_references.course_cd) AND
132: (old_references.version_number = new_references.version_number)) OR
139: new_references.version_number
140: ) THEN
141: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
142: IGS_GE_MSG_STACK.ADD;
143: App_Exception.Raise_Exception;
144: END IF;
145: END IF;
146: IF (((old_references.milestone_type = new_references.milestone_type)) OR
147: ((new_references.milestone_type IS NULL))) THEN
151: new_references.milestone_type
152: ) THEN
153: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
154: IGS_GE_MSG_STACK.ADD;
155: App_Exception.Raise_Exception;
156: END IF;
157: END IF;
158: END Check_Parent_Existance;
159: FUNCTION Get_PK_For_Validation (
199: IF (cur_rowid%FOUND) THEN
200: Close cur_rowid;
201: Fnd_Message.Set_Name ('IGS', 'IGS_RE_DMS_ATT_FK');
202: IGS_GE_MSG_STACK.ADD;
203: App_Exception.Raise_Exception;
204: Return;
205: END IF;
206: Close cur_rowid;
207: END GET_FK_IGS_EN_ATD_TYPE;
221: IF (cur_rowid%FOUND) THEN
222: Close cur_rowid;
223: Fnd_Message.Set_Name ('IGS', 'IGS_RE_DMS_CRV_FK');
224: IGS_GE_MSG_STACK.ADD;
225: App_Exception.Raise_Exception;
226: Return;
227: END IF;
228: Close cur_rowid;
229: END GET_FK_IGS_PS_VER;
241: IF (cur_rowid%FOUND) THEN
242: Close cur_rowid;
243: Fnd_Message.Set_Name ('IGS', 'IGS_RE_DMS_MTY_FK');
244: IGS_GE_MSG_STACK.ADD;
245: App_Exception.Raise_Exception;
246: Return;
247: END IF;
248: Close cur_rowid;
249: END GET_FK_IGS_PR_MILESTONE_TYP;
294: new_references.sequence_number
295: ) THEN
296: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
297: IGS_GE_MSG_STACK.ADD;
298: App_Exception.Raise_Exception;
299: END IF;
300: Check_Constraints;
301: Check_Parent_Existance;
302: ELSIF (p_action = 'UPDATE') THEN
312: new_references.sequence_number
313: ) THEN
314: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
315: IGS_GE_MSG_STACK.ADD;
316: App_Exception.Raise_Exception;
317: END IF;
318: Check_Constraints;
319: ELSIF (p_action = 'VALIDATE_UPDATE') THEN
320: Check_Constraints;
359: end if;
360: else
361: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
362: IGS_GE_MSG_STACK.ADD;
363: app_exception.raise_exception;
364: end if;
365: Before_DML (
366: p_action => 'INSERT',
367: x_rowid => X_ROWID,
442: fetch c1 into tlinfo;
443: if (c1%notfound) then
444: close c1;
445: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
446: app_exception.raise_exception;
447: return;
448: end if;
449: close c1;
450: if ( (tlinfo.OFFSET_DAYS = X_OFFSET_DAYS)
454: ) then
455: null;
456: else
457: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
458: app_exception.raise_exception;
459: end if;
460: return;
461: end LOCK_ROW;
462: procedure UPDATE_ROW (
490: end if;
491: else
492: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
493: IGS_GE_MSG_STACK.ADD;
494: app_exception.raise_exception;
495: end if;
496: Before_DML (
497: p_action => 'UPDATE',
498: x_rowid => X_ROWID,