[Home] [Help]
39: -- Populate Old Values.
40: Open cur_old_ref_values;
41: Fetch cur_old_ref_values INTO old_references;
42: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
43: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
44: IGS_GE_MSG_STACK.ADD;
45: Close cur_old_ref_values;
46: App_Exception.Raise_Exception;
47: Return;
88: THEN
89: IF IGS_EN_VAL_PCE.enrp_val_encmb_dt (
90: new_references.pce_start_dt,
91: v_message_name) = FALSE THEN
92: Fnd_Message.Set_Name('IGS', v_message_name);
93: IGS_GE_MSG_STACK.ADD;
94: App_Exception.Raise_Exception;
95: END IF;
96: END IF;
100: IF IGS_EN_VAL_PCE.enrp_val_encmb_dts (
101: new_references.pee_start_dt,
102: new_references.pce_start_dt,
103: v_message_name) = FALSE THEN
104: Fnd_Message.Set_Name('IGS', v_message_name);
105: IGS_GE_MSG_STACK.ADD;
106: App_Exception.Raise_Exception;
107: END IF;
108: END IF;
116: IF IGS_EN_VAL_PCE.enrp_val_strt_exp_dt (
117: new_references.pce_start_dt,
118: new_references.expiry_dt,
119: v_message_name) = FALSE THEN
120: Fnd_Message.Set_Name('IGS', v_message_name);
121: IGS_GE_MSG_STACK.ADD;
122: App_Exception.Raise_Exception;
123: END IF;
124: IF IGS_EN_VAL_PCE.enrp_val_encmb_dt (
123: END IF;
124: IF IGS_EN_VAL_PCE.enrp_val_encmb_dt (
125: new_references.expiry_dt,
126: v_message_name) = FALSE THEN
127: Fnd_Message.Set_Name('IGS', v_message_name);
128: IGS_GE_MSG_STACK.ADD;
129: App_Exception.Raise_Exception;
130: END IF;
131: END IF;
135: IF IGS_EN_VAL_PCE.enrp_val_pee_table (
136: new_references.s_encmb_effect_type,
137: 'IGS_PE_COURSE_EXCL',
138: v_message_name) = FALSE THEN
139: Fnd_Message.Set_Name('IGS', v_message_name);
140: IGS_GE_MSG_STACK.ADD;
141: App_Exception.Raise_Exception;
142: END IF;
143: END IF;
171: new_references.pee_start_dt,
172: new_references.course_cd,
173: new_references.pce_start_dt,
174: v_message_name) = FALSE THEN
175: Fnd_Message.Set_Name('IGS', v_message_name);
176: IGS_GE_MSG_STACK.ADD;
177: App_Exception.Raise_Exception;
178: END IF;
179: END IF;
208:
209: IF upper(column_name) = 'COURSE_CD' OR
210: column_name is null Then
211: IF new_references.course_cd <> UPPER(new_references.course_cd) Then
212: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
213: IGS_GE_MSG_STACK.ADD;
214: App_Exception.Raise_Exception;
215: END IF;
216: END IF;
218: IF upper(column_name) = 'ENCUMBRANCE_TYPE' OR
219: column_name is null Then
220: IF new_references.encumbrance_type <>
221: UPPER(new_references.encumbrance_type) Then
222: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
223: IGS_GE_MSG_STACK.ADD;
224: App_Exception.Raise_Exception;
225: END IF;
226: END IF;
227: IF upper(column_name) = 'S_ENCMB_EFFECT_TYPE' OR
228: column_name is null Then
229: IF new_references.s_encmb_effect_type<>
230: UPPER(new_references.s_encmb_effect_type) Then
231: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
232: IGS_GE_MSG_STACK.ADD;
233: App_Exception.Raise_Exception;
234: END IF;
235: END IF;
248:
249: IF NOT IGS_PS_COURSE_PKG.Get_PK_For_Validation (
250: new_references.course_cd
251: ) THEN
252: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
253: IGS_GE_MSG_STACK.ADD;
254: App_Exception.Raise_Exception;
255: END IF;
256: END IF;
276: new_references.pen_start_dt,
277: new_references.s_encmb_effect_type,
278: new_references.pee_start_dt,
279: new_references.pee_sequence_number) THEN
280: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
281: IGS_GE_MSG_STACK.ADD;
282: App_Exception.Raise_Exception;
283: END IF;
284: END IF;
340:
341: Open cur_rowid;
342: Fetch cur_rowid INTO lv_rowid;
343: IF (cur_rowid%FOUND) THEN
344: Fnd_Message.Set_Name ('IGS', 'IGS_PE_PCE_CRS_FK');
345: IGS_GE_MSG_STACK.ADD;
346: Close cur_rowid;
347: App_Exception.Raise_Exception;
348: Return;
376:
377: Open cur_rowid;
378: Fetch cur_rowid INTO lv_rowid;
379: IF (cur_rowid%FOUND) THEN
380: Fnd_Message.Set_Name ('IGS', 'IGS_PE_PCE_PEE_FK');
381: IGS_GE_MSG_STACK.ADD;
382: Close cur_rowid;
383: App_Exception.Raise_Exception;
384: Return;
437: new_references.pee_start_dt ,
438: new_references.pee_sequence_number ,
439: new_references.course_cd ,
440: new_references.pce_start_dt ) THEN
441: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
442: IGS_GE_MSG_STACK.ADD;
443: App_Exception.Raise_Exception;
444: END IF;
445: Check_Constraints; -- if procedure present
464: new_references.pee_start_dt ,
465: new_references.pee_sequence_number ,
466: new_references.course_cd ,
467: new_references.pce_start_dt ) THEN
468: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
469: IGS_GE_MSG_STACK.ADD;
470: App_Exception.Raise_Exception;
471: END IF;
472:
542: if X_LAST_UPDATE_LOGIN is NULL 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: Before_DML(
634: begin
635: open c1;
636: fetch c1 into tlinfo;
637: if (c1%notfound) then
638: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
639:
640: close c1;
641: App_Exception.Raise_Exception;
642: return;
648: AND (X_EXPIRY_DT is null)))
649: ) then
650: null;
651: else
652: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
653: app_exception.raise_exception;
654: end if;
655: return;
656: end LOCK_ROW;
685: if X_LAST_UPDATE_LOGIN is NULL then
686: X_LAST_UPDATE_LOGIN := -1;
687: end if;
688: else
689: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
690: IGS_GE_MSG_STACK.ADD;
691: app_exception.raise_exception;
692: end if;
693: Before_DML(