[Home] [Help]
62: Open cur_old_ref_values;
63: Fetch cur_old_ref_values INTO old_references;
64: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
65: Close cur_old_ref_values;
66: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
67: IGS_GE_MSG_STACK.ADD;
68: App_Exception.Raise_Exception;
69: Return;
70: END IF;
222: END IF;
223:
224: IF Upper(Column_Name)='MINIMUM_CREDIT_POINTS' OR Column_Name IS NULL Then
225: IF New_References.minimum_credit_points < 0 OR New_References.minimum_credit_points > 999.999 Then
226: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
227: IGS_GE_MSG_STACK.ADD;
228: App_Exception.Raise_Exception;
229: END IF;
230: END IF;
230: END IF;
231:
232: IF Upper(Column_Name)='MAXIMUM_CREDIT_POINTS' OR Column_Name IS NULL Then
233: IF New_References.maximum_credit_points < 0 OR New_References.maximum_credit_points > 999.999 Then
234: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
235: IGS_GE_MSG_STACK.ADD;
236: App_Exception.Raise_Exception;
237: END IF;
238: END IF;
238: END IF;
239:
240: IF Upper(Column_Name)='VARIABLE_INCREMENT' OR Column_Name IS NULL Then
241: IF New_References.variable_increment < 0 OR New_References.variable_increment > 999.999 Then
242: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
243: IGS_GE_MSG_STACK.ADD;
244: App_Exception.Raise_Exception;
245: END IF;
246: END IF;
246: END IF;
247:
248: IF Upper(Column_Name)='LECTURE_CREDIT_POINTS' OR Column_Name IS NULL Then
249: IF New_References.lecture_credit_points < 0 OR New_References.lecture_credit_points > 999.999 Then
250: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
251: IGS_GE_MSG_STACK.ADD;
252: App_Exception.Raise_Exception;
253: END IF;
254: END IF;
254: END IF;
255:
256: IF Upper(Column_Name)='LAB_CREDIT_POINTS' OR Column_Name IS NULL Then
257: IF New_References.lab_credit_points < 0 OR New_References.lab_credit_points > 999.999 Then
258: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
259: IGS_GE_MSG_STACK.ADD;
260: App_Exception.Raise_Exception;
261: END IF;
262: END IF;
262: END IF;
263:
264: IF Upper(Column_Name)='OTHER_CREDIT_POINTS' OR Column_Name IS NULL Then
265: IF New_References.other_credit_points < 0 OR New_References.other_credit_points > 999.999 Then
266: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
267: IGS_GE_MSG_STACK.ADD;
268: App_Exception.Raise_Exception;
269: END IF;
270: END IF;
270: END IF;
271:
272: IF Upper(Column_Name)='CLOCK_HOURS' OR Column_Name IS NULL Then
273: IF New_References.clock_hours < 0 OR New_References.clock_hours > 999.999 Then
274: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
275: IGS_GE_MSG_STACK.ADD;
276: App_Exception.Raise_Exception;
277: END IF;
278: END IF;
278: END IF;
279:
280: IF Upper(Column_Name)='WORK_LOAD_CP_LECTURE' OR Column_Name IS NULL Then
281: IF New_References.work_load_cp_lecture < 0 OR New_References.work_load_cp_lecture > 999.99 Then
282: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
283: IGS_GE_MSG_STACK.ADD;
284: App_Exception.Raise_Exception;
285: END IF;
286: END IF;
286: END IF;
287:
288: IF Upper(Column_Name)='WORK_LOAD_CP_LAB' OR Column_Name IS NULL Then
289: IF New_References.work_load_cp_lab < 0 OR New_References.work_load_cp_lab > 999.99 Then
290: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
291: IGS_GE_MSG_STACK.ADD;
292: App_Exception.Raise_Exception;
293: END IF;
294: END IF;
294: END IF;
295:
296: IF Upper(Column_Name)='CONTINUING_EDUCATION_UNITS' OR Column_Name IS NULL Then
297: IF New_References.continuing_education_units < 0 OR New_References.continuing_education_units > 999.999 Then
298: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
299: IGS_GE_MSG_STACK.ADD;
300: App_Exception.Raise_Exception;
301: END IF;
302: END IF;
302: END IF;
303:
304: IF Upper(Column_Name)='WORK_LOAD_OTHER' OR Column_Name IS NULL Then
305: IF New_References.work_load_other < 0 OR New_References.WORK_LOAD_OTHER > 999.99 Then
306: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
307: IGS_GE_MSG_STACK.ADD;
308: App_Exception.Raise_Exception;
309: END IF;
310: END IF;
310: END IF;
311:
312: IF Upper(Column_Name)='CONTACT_HRS_LECTURE' OR Column_Name IS NULL Then
313: IF New_References.contact_hrs_lecture < 0 OR New_References.contact_hrs_lecture > 999.99 Then
314: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
315: IGS_GE_MSG_STACK.ADD;
316: App_Exception.Raise_Exception;
317: END IF;
318: END IF;
318: END IF;
319:
320: IF Upper(Column_Name)='CONTACT_HRS_LAB' OR Column_Name IS NULL Then
321: IF New_References.contact_hrs_lab < 0 OR New_References.contact_hrs_lab > 999.99 Then
322: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
323: IGS_GE_MSG_STACK.ADD;
324: App_Exception.Raise_Exception;
325: END IF;
326: END IF;
326: END IF;
327:
328: IF Upper(Column_Name)='CONTACT_HRS_OTHER' OR Column_Name IS NULL Then
329: IF New_References.contact_hrs_other < 0 OR New_References.contact_hrs_other > 999.99 Then
330: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
331: IGS_GE_MSG_STACK.ADD;
332: App_Exception.Raise_Exception;
333: END IF;
334: END IF;
334: END IF;
335:
336: IF Upper(Column_Name)='NON_SCHD_REQUIRED_HRS' OR Column_Name IS NULL Then
337: IF New_References.non_schd_required_hrs < 0 OR New_References.non_schd_required_hrs > 999.99 Then
338: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
339: IGS_GE_MSG_STACK.ADD;
340: App_Exception.Raise_Exception;
341: END IF;
342: END IF;
342: END IF;
343:
344: IF Upper(Column_Name)= 'EXCLUDE_FROM_MAX_CP_LIMIT' OR Column_Name IS NULL Then
345: IF New_References.exclude_from_max_cp_limit NOT IN ( 'Y' , 'N' ) Then
346: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
347: IGS_GE_MSG_STACK.ADD;
348: App_Exception.Raise_Exception;
349: END IF;
350: END IF;
350: END IF;
351:
352: IF Upper(Column_Name)='CLAIMABLE_HOURS' OR Column_Name IS NULL Then
353: IF New_References.claimable_hours < 0 OR New_References.claimable_hours > 99999.99 Then
354: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
355: IGS_GE_MSG_STACK.ADD;
356: App_Exception.Raise_Exception;
357: END IF;
358: END IF;
358: END IF;
359:
360: IF Upper(Column_Name)='ACHIEVABLE_CREDIT_POINTS' OR Column_Name IS NULL Then
361: IF New_References.achievable_credit_points < 0 OR New_References.achievable_credit_points > 999.999 Then
362: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
363: IGS_GE_MSG_STACK.ADD;
364: App_Exception.Raise_Exception;
365: END IF;
366: END IF;
366: END IF;
367:
368: IF Upper(Column_Name)='ENROLLED_CREDIT_POINTS' OR Column_Name IS NULL Then
369: IF New_References.enrolled_credit_points < 0 OR New_References.enrolled_credit_points > 999.999 Then
370: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
371: IGS_GE_MSG_STACK.ADD;
372: App_Exception.Raise_Exception;
373: END IF;
374: END IF;
374: END IF;
375:
376: IF Upper(Column_Name)='BILLING_CREDIT_POINTS' OR Column_Name IS NULL Then
377: IF New_References.billing_credit_points < 0 OR New_References.billing_credit_points > 999.999 Then
378: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
379: IGS_GE_MSG_STACK.ADD;
380: App_Exception.Raise_Exception;
381: END IF;
382: END IF;
382: END IF;
383:
384: IF Upper(Column_Name)='BILLING_HRS' OR Column_Name IS NULL Then
385: IF New_References.billing_hrs < 0 OR New_References.billing_hrs > 999.999 Then
386: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
387: IGS_GE_MSG_STACK.ADD;
388: App_Exception.Raise_Exception;
389: END IF;
390: END IF;
406: begin
407: IF Get_Uk_For_Validation (
408: new_references.uoo_id
409: ) THEN
410: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
411: IGS_GE_MSG_STACK.ADD;
412: app_exception.raise_exception;
413: END IF;
414: END Check_Uniqueness ;
431: NULL;
432: ELSIF NOT Igs_Ps_Unit_Ofr_Opt_Pkg.Get_UK_For_Validation (
433: new_references.uoo_id
434: ) THEN
435: Fnd_Message.Set_Name ('FND','FORM_RECORD_DELETED');
436: IGS_GE_MSG_STACK.ADD;
437: App_Exception.Raise_Exception;
438: END IF;
439:
537: Open cur_rowid;
538: Fetch cur_rowid INTO lv_rowid;
539: IF (cur_rowid%FOUND) THEN
540: Close cur_rowid;
541: Fnd_Message.Set_Name ('IGS', 'IGS_PS_USCP_UOO_UFK');
542: IGS_GE_MSG_STACK.ADD;
543: App_Exception.Raise_Exception;
544: Return;
545: END IF;
629: -- Call all the procedures related to Before Insert.
630: Null;
631: IF Get_Pk_For_Validation(
632: new_references.unit_sec_credit_points_id) THEN
633: Fnd_Message.Set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
634: IGS_GE_MSG_STACK.ADD;
635: App_Exception.Raise_Exception;
636: END IF;
637: Check_Uniqueness;
649: ELSIF (p_action = 'VALIDATE_INSERT') THEN
650: -- Call all the procedures related to Before Insert.
651: IF Get_PK_For_Validation (
652: new_references.unit_sec_credit_points_id) THEN
653: Fnd_Message.Set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
654: IGS_GE_MSG_STACK.ADD;
655: App_Exception.Raise_Exception;
656: END IF;
657: Check_Uniqueness;
756: if X_LAST_UPDATE_LOGIN is NULL then
757: X_LAST_UPDATE_LOGIN := -1;
758: end if;
759: else
760: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
761: IGS_GE_MSG_STACK.ADD;
762: app_exception.raise_exception;
763: end if;
764: SELECT
936: begin
937: open c1;
938: fetch c1 into tlinfo;
939: if (c1%notfound) then
940: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
941: IGS_GE_MSG_STACK.ADD;
942: close c1;
943: app_exception.raise_exception;
944: return;
1010: AND (X_BILLING_HRS IS NULL)))
1011: ) then
1012: null;
1013: else
1014: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
1015: IGS_GE_MSG_STACK.ADD;
1016: app_exception.raise_exception;
1017: end if;
1018: return;
1073: if X_LAST_UPDATE_LOGIN is NULL then
1074: X_LAST_UPDATE_LOGIN := -1;
1075: end if;
1076: else
1077: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
1078: IGS_GE_MSG_STACK.ADD;
1079: app_exception.raise_exception;
1080: end if;
1081: Before_DML(