[Home] [Help]
35: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
36: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
37: IGS_GE_MSG_STACK.ADD;
38: Close cur_old_ref_values;
39: APP_EXCEPTION.RAISE_EXCEPTION;
40:
41: Return;
42: END IF;
43: Close cur_old_ref_values;
75: new_references.ci_sequence_number
76: ) THEN
77: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
78: IGS_GE_MSG_STACK.ADD;
79: APP_EXCEPTION.RAISE_EXCEPTION;
80: END IF;
81: IF (((old_references.ENROLMENT_CAT = new_references.ENROLMENT_CAT)) OR
82: ((new_references.ENROLMENT_CAT IS NULL))) THEN
83: NULL;
85: new_references.ENROLMENT_CAT
86: ) THEN
87: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
88: IGS_GE_MSG_STACK.ADD;
89: APP_EXCEPTION.RAISE_EXCEPTION;
90: END IF;
91: IF (((old_references.person_id = new_references.person_id) OR
92: (old_references.course_cd = new_references.course_cd)) AND
93: ((new_references.person_id IS NULL) OR
98: new_references.course_cd
99: ) THEN
100: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
101: IGS_GE_MSG_STACK.ADD;
102: APP_EXCEPTION.RAISE_EXCEPTION;
103: END IF;
104: END Check_Parent_Existance;
105: FUNCTION Get_PK_For_Validation (
106: x_person_id IN NUMBER,
144: IF (cur_rowid%FOUND) THEN
145: Fnd_Message.Set_Name ('IGS', 'IGS_AS_SCAE_CI_FK');
146: IGS_GE_MSG_STACK.ADD;
147: Close cur_rowid;
148: APP_EXCEPTION.RAISE_EXCEPTION;
149:
150: Return;
151: END IF;
152: Close cur_rowid;
165: IF (cur_rowid%FOUND) THEN
166: Fnd_Message.Set_Name ('IGS', 'IGS_AS_SCAE_EC_FK');
167: IGS_GE_MSG_STACK.ADD;
168: Close cur_rowid;
169: APP_EXCEPTION.RAISE_EXCEPTION;
170:
171: Return;
172: END IF;
173: Close cur_rowid;
188: IF (cur_rowid%FOUND) THEN
189: Fnd_Message.Set_Name ('IGS', 'IGS_AS_SCAE_SCA_FK');
190: IGS_GE_MSG_STACK.ADD;
191: Close cur_rowid;
192: APP_EXCEPTION.RAISE_EXCEPTION;
193:
194: Return;
195: END IF;
196: Close cur_rowid;
241: NEW_REFERENCES.ci_sequence_number
242: ) THEN
243: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
244: IGS_GE_MSG_STACK.ADD;
245: APP_EXCEPTION.RAISE_EXCEPTION;
246: END IF;
247:
248: Check_Constraints;
249:
261: NEW_REFERENCES.cal_type ,
262: NEW_REFERENCES.ci_sequence_number ) THEN
263: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
264: IGS_GE_MSG_STACK.ADD;
265: APP_EXCEPTION.RAISE_EXCEPTION;
266: END IF;
267:
268: Check_Constraints;
269: ELSIF (p_action = 'VALIDATE_UPDATE') THEN
324: end if;
325: else
326: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
327: IGS_GE_MSG_STACK.ADD;
328: APP_EXCEPTION.RAISE_EXCEPTION;
329: end if;
330: Before_DML(
331: p_action=>'INSERT',
332: x_rowid=>X_ROWID,
405: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_EXCEPTION');
406: fnd_message.set_token ('ERR_CD', SQLCODE);
407: igs_ge_msg_stack.add;
408: igs_sc_gen_001.unset_ctx('R');
409: app_exception.raise_exception;
410: ELSE
411: igs_sc_gen_001.unset_ctx('R');
412: RAISE;
413: END IF;
439: fetch c1 into tlinfo;
440: if (c1%notfound) then
441: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
442: IGS_GE_MSG_STACK.ADD;
443: APP_EXCEPTION.RAISE_EXCEPTION;
444: close c1;
445: return;
446: end if;
447: close c1;
462: null;
463: else
464: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
465: IGS_GE_MSG_STACK.ADD;
466: APP_EXCEPTION.RAISE_EXCEPTION;
467: end if;
468: return;
469: end LOCK_ROW;
470: procedure UPDATE_ROW (
503: end if;
504: else
505: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
506: IGS_GE_MSG_STACK.ADD;
507: APP_EXCEPTION.RAISE_EXCEPTION;
508: end if;
509: Before_DML(
510: p_action=>'UPDATE',
511: x_rowid=>X_ROWID,
557: if (sql%notfound) then
558: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
559: igs_ge_msg_stack.add;
560: igs_sc_gen_001.unset_ctx('R');
561: app_exception.raise_exception;
562: end if;
563: IF (x_mode = 'S') THEN
564: igs_sc_gen_001.unset_ctx('R');
565: END IF;
571: fnd_message.set_name ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
572: fnd_message.set_token ('ERR_CD', SQLCODE);
573: igs_ge_msg_stack.add;
574: igs_sc_gen_001.unset_ctx('R');
575: app_exception.raise_exception;
576: ELSE
577: igs_sc_gen_001.unset_ctx('R');
578: RAISE;
579: END IF;
647: if (sql%notfound) then
648: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
649: igs_ge_msg_stack.add;
650: igs_sc_gen_001.unset_ctx('R');
651: app_exception.raise_exception;
652: end if;
653: IF (x_mode = 'S') THEN
654: igs_sc_gen_001.unset_ctx('R');
655: END IF;
675: column_name is null Then
676: IF new_references.CAL_TYPE <> UPPER(new_references.CAL_TYPE) Then
677: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
678: IGS_GE_MSG_STACK.ADD;
679: APP_EXCEPTION.RAISE_EXCEPTION;
680: END IF;
681: END IF;
682:
683: IF upper(column_name) = 'COURSE_CD' OR
684: column_name is null Then
685: IF new_references.COURSE_CD <> UPPER(new_references.COURSE_CD) Then
686: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
687: IGS_GE_MSG_STACK.ADD;
688: APP_EXCEPTION.RAISE_EXCEPTION;
689: END IF;
690: END IF;
691: IF upper(column_name) = 'ENROLMENT_CAT' OR
692: column_name is null Then
692: column_name is null Then
693: IF new_references.ENROLMENT_CAT <> UPPER(new_references.ENROLMENT_CAT) Then
694: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
695: IGS_GE_MSG_STACK.ADD;
696: APP_EXCEPTION.RAISE_EXCEPTION;
697: END IF;
698: END IF;
699: END Check_Constraints;
700: