[Home] [Help]
76: Fetch cur_old_ref_values INTO old_references;
77:
78: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
79:
80: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
81: IGS_GE_MSG_STACK.ADD;
82:
83:
84: Close cur_old_ref_values;
172: new_references.s_encmb_effect_type,
173:
174: v_message_name ) = FALSE THEN
175:
176: Fnd_Message.Set_Name('IGS', v_message_name);
177: IGS_GE_MSG_STACK.ADD;
178: App_Exception.Raise_Exception;
179:
180: END IF;
196: new_references.pee_start_dt,
197:
198: v_message_name ) = FALSE THEN
199:
200: Fnd_Message.Set_Name('IGS', v_message_name);
201: IGS_GE_MSG_STACK.ADD;
202: App_Exception.Raise_Exception;
203:
204: END IF;
220: new_references.pee_start_dt,
221:
222: v_message_name ) = FALSE THEN
223:
224: Fnd_Message.Set_Name('IGS', v_message_name);
225: IGS_GE_MSG_STACK.ADD;
226: App_Exception.Raise_Exception;
227:
228: END IF;
256: new_references.expiry_dt,
257:
258: v_message_name ) = FALSE THEN
259:
260: Fnd_Message.Set_Name('IGS', v_message_name);
261: IGS_GE_MSG_STACK.ADD;
262: App_Exception.Raise_Exception;
263:
264: END IF;
267: new_references.expiry_dt,
268:
269: v_message_name ) = FALSE THEN
270:
271: Fnd_Message.Set_Name('IGS', v_message_name);
272: IGS_GE_MSG_STACK.ADD;
273: App_Exception.Raise_Exception;
274: END IF;
275:
290: new_references.s_encmb_effect_type,
291:
292: v_message_name ) = FALSE THEN
293:
294: Fnd_Message.Set_Name('IGS', v_message_name);
295: IGS_GE_MSG_STACK.ADD;
296: App_Exception.Raise_Exception;
297:
298: END IF;
314: new_references.course_cd,
315:
316: v_message_name ) = FALSE THEN
317:
318: Fnd_Message.Set_Name('IGS', 'IGS_EN_CAN_SPEC_RESTR_ATT');
319: IGS_GE_MSG_STACK.ADD;
320: App_Exception.Raise_Exception;
321:
322: END IF;
332: (new_references.restricted_attendance_type IS NOT NULL) AND
333:
334: (new_references.s_encmb_effect_type <> 'RSTR_AT_TY') THEN
335:
336: Fnd_Message.Set_Name('IGS', v_message_name);
337: IGS_GE_MSG_STACK.ADD;
338: App_Exception.Raise_Exception;
339: END IF;
340:
351: new_references.restricted_attendance_type,
352:
353: v_message_name ) = FALSE THEN
354:
355: Fnd_Message.Set_Name('IGS', v_message_name);
356: IGS_GE_MSG_STACK.ADD;
357: App_Exception.Raise_Exception;
358: END IF;
359:
382: new_references.course_cd,
383:
384: v_message_name ) = FALSE THEN
385:
386: Fnd_Message.Set_Name('IGS', v_message_name);
387: IGS_GE_MSG_STACK.ADD;
388: App_Exception.Raise_Exception;
389:
390: END IF;
402: (new_references.s_encmb_effect_type <> 'RSTR_GE_CP' AND
403:
404: new_references.s_encmb_effect_type <> 'RSTR_LE_CP') THEN
405:
406: Fnd_Message.Set_Name('IGS','IGS_EN_CANT_SPEC_ENRL_CRDT');
407: IGS_GE_MSG_STACK.ADD;
408: App_Exception.Raise_Exception;
409:
410: END IF;
432: new_references.course_cd,
433:
434: v_message_name ) = FALSE THEN
435:
436: Fnd_Message.Set_Name('IGS', v_message_name);
437: IGS_GE_MSG_STACK.ADD;
438: App_Exception.Raise_Exception;
439:
440: END IF;
530: new_references.course_cd,
531:
532: v_message_name) = FALSE THEN
533:
534: Fnd_Message.Set_Name('IGS', v_message_name);
535: IGS_GE_MSG_STACK.ADD;
536: App_Exception.Raise_Exception;
537:
538: END IF;
562: v_message_name);
563:
564: IF v_message_name IS NOT NULL THEN
565:
566: Fnd_Message.Set_Name('IGS', v_message_name);
567: IGS_GE_MSG_STACK.ADD;
568: App_Exception.Raise_Exception;
569: END IF;
570:
592:
593: --IF v_message_name <> 0 THEN
594: IF v_message_name IS NOT NULL THEN
595:
596: Fnd_Message.Set_Name('IGS', v_message_name);
597: IGS_GE_MSG_STACK.ADD;
598: App_Exception.Raise_Exception;
599:
600: END IF;
644:
645: IF upper(column_name) = 'COURSE_CD' OR
646: column_name is null Then
647: IF new_references.course_cd <> UPPER(new_references.course_cd) Then
648: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
649: IGS_GE_MSG_STACK.ADD;
650: App_Exception.Raise_Exception;
651: END IF;
652: END IF;
654: IF upper(column_name) = 'ENCUMBRANCE_TYPE' OR
655: column_name is null Then
656: IF new_references.encumbrance_type <>
657: UPPER(new_references.encumbrance_type) Then
658: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
659: IGS_GE_MSG_STACK.ADD;
660: App_Exception.Raise_Exception;
661: END IF;
662: END IF;
663: IF upper(column_name) = 'RESTRICTED_ATTENDANCE_TYPE' OR
664: column_name is null Then
665: IF new_references.restricted_attendance_type <>
666: UPPER(new_references.restricted_attendance_type) Then
667: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
668: IGS_GE_MSG_STACK.ADD;
669: App_Exception.Raise_Exception;
670: END IF;
671: END IF;
672: IF upper(column_name) = 'S_ENCMB_EFFECT_TYPE' OR
673: column_name is null Then
674: IF new_references.s_encmb_effect_type<>
675: UPPER(new_references.s_encmb_effect_type) Then
676: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
677: IGS_GE_MSG_STACK.ADD;
678: App_Exception.Raise_Exception;
679: END IF;
680: END IF;
681: IF upper(column_name) = 'RESTRICTED_ENROLMENT_CP' OR
682: column_name is null Then
683: IF new_references.restricted_enrolment_cp < 0 OR
684: new_references.restricted_enrolment_cp > 999.999 Then
685: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
686: IGS_GE_MSG_STACK.ADD;
687: App_Exception.Raise_Exception;
688: END IF;
689: END IF;
710: ELSE
711: IF NOT IGS_EN_ATD_TYPE_PKG.Get_PK_For_Validation (
712: new_references.restricted_attendance_type
713: ) THEN
714: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
715: IGS_GE_MSG_STACK.ADD;
716: App_Exception.Raise_Exception;
717: END IF;
718:
741: IF NOT IGS_PE_PERS_ENCUMB_PKG.Get_PK_For_Validation (
742: new_references.person_id,
743: new_references.encumbrance_type,
744: new_references.pen_start_dt ) THEN
745: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
746: IGS_GE_MSG_STACK.ADD;
747: App_Exception.Raise_Exception;
748: END IF;
749:
761:
762:
763: IF NOT IGS_EN_ENCMB_EFCTTYP_Pkg.Get_PK_For_Validation (
764: new_references.s_encmb_effect_type ) THEN
765: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
766: IGS_GE_MSG_STACK.ADD;
767: App_Exception.Raise_Exception;
768: END IF;
769:
988: Fetch cur_rowid INTO lv_rowid;
989:
990: IF (cur_rowid%FOUND) THEN
991:
992: Fnd_Message.Set_Name ('IGS', 'IGS_PE_PEE_ATT_FK');
993:
994: IGS_GE_MSG_STACK.ADD;
995:
996: Close cur_rowid;
1045: Fetch cur_rowid INTO lv_rowid;
1046:
1047: IF (cur_rowid%FOUND) THEN
1048:
1049: Fnd_Message.Set_Name ('IGS', 'IGS_PE_PEE_PEN_FK');
1050:
1051: IGS_GE_MSG_STACK.ADD;
1052:
1053: Close cur_rowid;
1158: new_references.pen_start_dt ,
1159: new_references.s_encmb_effect_type,
1160: new_references.pee_start_dt,
1161: new_references.sequence_number) THEN
1162: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
1163: IGS_GE_MSG_STACK.ADD;
1164: App_Exception.Raise_Exception;
1165: END IF;
1166:
1188: new_references.pen_start_dt ,
1189: new_references.s_encmb_effect_type,
1190: new_references.pee_start_dt,
1191: new_references.sequence_number) THEN
1192: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
1193: IGS_GE_MSG_STACK.ADD;
1194: App_Exception.Raise_Exception;
1195: END IF;
1196: Check_Constraints; -- if procedure present
1293: if X_LAST_UPDATE_LOGIN is NULL then
1294: X_LAST_UPDATE_LOGIN := -1;
1295: end if;
1296: else
1297: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
1298: IGS_GE_MSG_STACK.ADD;
1299: app_exception.raise_exception;
1300: end if;
1301:
1419: begin
1420: open c1;
1421: fetch c1 into tlinfo;
1422: if (c1%notfound) then
1423: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
1424:
1425: close c1;
1426: App_Exception.Raise_Exception;
1427: return;
1442: AND (X_RESTRICTED_ATTENDANCE_TYPE is null)))
1443: ) then
1444: null;
1445: else
1446: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
1447: app_exception.raise_exception;
1448: end if;
1449: return;
1450: end LOCK_ROW;
1481: if X_LAST_UPDATE_LOGIN is NULL then
1482: X_LAST_UPDATE_LOGIN := -1;
1483: end if;
1484: else
1485: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
1486: IGS_GE_MSG_STACK.ADD;
1487: app_exception.raise_exception;
1488: end if;
1489: