[Home] [Help]
42: Fetch cur_old_ref_values INTO old_references;
43: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
44: Close cur_old_ref_values;
45: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
46: IGS_GE_MSG_STACK.ADD;
47: App_Exception.Raise_Exception;
48: Return;
49: END IF;
50: Close cur_old_ref_values;
100: IF upper(column_name) = 'ADMISSION_CAT' OR
101: column_name is null Then
102: IF ( new_references.admission_cat <> UPPER(new_references.admission_cat) ) Then
103: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
104: IGS_GE_MSG_STACK.ADD;
105: App_Exception.Raise_Exception;
106: END IF;
107: END IF;
108:
109: IF upper(column_name) = 'ATTENDANCE_MODE' OR
110: column_name is null Then
111: IF ( new_references.attendance_mode <> UPPER(new_references.attendance_mode) ) Then
112: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
113: IGS_GE_MSG_STACK.ADD;
114: App_Exception.Raise_Exception;
115: END IF;
116: END IF;
117:
118: IF upper(column_name) = 'ATTENDANCE_TYPE' OR
119: column_name is null Then
120: IF ( new_references.attendance_type <> UPPER(new_references.attendance_type) ) Then
121: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
122: IGS_GE_MSG_STACK.ADD;
123: App_Exception.Raise_Exception;
124: END IF;
125: END IF;
126:
127: IF upper(column_name) = 'CAL_TYPE' OR
128: column_name is null Then
129: IF ( new_references.cal_type <> UPPER(new_references.cal_type) ) Then
130: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
131: IGS_GE_MSG_STACK.ADD;
132: App_Exception.Raise_Exception;
133: END IF;
134: END IF;
135:
136: IF upper(column_name) = 'COURSE_CD' OR
137: column_name is null Then
138: IF ( new_references.course_cd <> UPPER(new_references.course_cd) ) Then
139: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
140: IGS_GE_MSG_STACK.ADD;
141: App_Exception.Raise_Exception;
142: END IF;
143: END IF;
144:
145: IF upper(column_name) = 'LOCATION_CD' OR
146: column_name is null Then
147: IF ( new_references.location_cd <> UPPER(new_references.location_cd) ) Then
148: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
149: IGS_GE_MSG_STACK.ADD;
150: App_Exception.Raise_Exception;
151: END IF;
152: END IF;
153:
154: IF upper(column_name) = 'UNIT_SET_CD' OR
155: column_name is null Then
156: IF ( new_references.unit_set_cd <> UPPER(new_references.unit_set_cd) ) Then
157: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
158: IGS_GE_MSG_STACK.ADD;
159: App_Exception.Raise_Exception;
160: END IF;
161: END IF;
162:
211: new_references.attendance_type,
212: new_references.admission_cat
213: ) THEN
214: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
215: IGS_GE_MSG_STACK.ADD;
216: App_Exception.Raise_Exception;
217: END IF;
218: END IF;
219:
227: new_references.unit_set_cd,
228: new_references.us_version_number
229: ) THEN
230: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
231: IGS_GE_MSG_STACK.ADD;
232: App_Exception.Raise_Exception;
233: END IF;
234:
235: --Added the check parent existance for the IGS_PS_OFR_UNIT_SET and IGS_PS_OF_OPT_UNT_ST
244: FETCH cur_check INTO l_c_var;
245: IF cur_check%NOTFOUND THEN
246: CLOSE cur_check;
247: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
248: IGS_GE_MSG_STACK.ADD;
249: App_Exception.Raise_Exception;
250: END IF;
251: CLOSE cur_check;
252:
326: Fetch cur_rowid INTO lv_rowid;
327: IF (cur_rowid%FOUND) THEN
328: Close cur_rowid;
329: Fnd_Message.Set_Name ('IGS', 'IGS_PS_CACUS_COOAC_FK');
330: IGS_GE_MSG_STACK.ADD;
331: App_Exception.Raise_Exception;
332: Return;
333: END IF;
334: Close cur_rowid;
354: Fetch cur_rowid INTO lv_rowid;
355: IF (cur_rowid%FOUND) THEN
356: Close cur_rowid;
357: Fnd_Message.Set_Name ('IGS', 'IGS_PS_CACUS_US_FK');
358: IGS_GE_MSG_STACK.ADD;
359: App_Exception.Raise_Exception;
360: Return;
361: END IF;
362: Close cur_rowid;
398: Fetch cur_rowid INTO lv_rowid;
399: IF (cur_rowid%FOUND) THEN
400: Close cur_rowid;
401: Fnd_Message.Set_Name ('IGS', 'IGS_PS_CACUS_US_FK');
402: IGS_GE_MSG_STACK.ADD;
403: App_Exception.Raise_Exception;
404: Return;
405: END IF;
406: Close cur_rowid;
460: new_references.admission_cat,
461: new_references.unit_set_cd,
462: new_references.us_version_number) THEN
463: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
464: IGS_GE_MSG_STACK.ADD;
465: App_Exception.Raise_Exception;
466: END IF;
467: Check_Constraints;
468: Check_Parent_Existance;
481: new_references.admission_cat,
482: new_references.unit_set_cd,
483: new_references.us_version_number) THEN
484: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
485: IGS_GE_MSG_STACK.ADD;
486: App_Exception.Raise_Exception;
487: END IF;
488: Check_Constraints;
489: ELSIF (p_action = 'VALIDATE_UPDATE') THEN
543: X_LAST_UPDATE_LOGIN := -1;
544: end if;
545: else
546: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
547: IGS_GE_MSG_STACK.ADD;
548: app_exception.raise_exception;
549: end if;
550:
551: Before_DML (
637: fetch c1 into tlinfo;
638: if (c1%notfound) then
639: close c1;
640: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
641: IGS_GE_MSG_STACK.ADD;
642: app_exception.raise_exception;
643: return;
644: end if;
645: close c1;