[Home] [Help]
38: Fetch cur_old_ref_values INTO old_references;
39: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
40: Close cur_old_ref_values;
41: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
42: IGS_GE_MSG_STACK.ADD;
43: App_Exception.Raise_Exception;
44: Return;
45: END IF;
46: Close cur_old_ref_values;
95: IF IGS_PS_VAL_CRS.CRSP_VAL_IUD_CRV_DTL(v_course_cd,
96: v_version_number,
97: v_message_name) = FALSE THEN
98: Fnd_Message.Set_Name('IGS',v_message_name);
99: IGS_GE_MSG_STACK.ADD;
100: App_Exception.Raise_Exception;
101: END IF;
102: IF p_inserting THEN
103: -- Validate calendar type is not closed.
104: IF IGS_PS_VAL_CO.crsp_val_co_cal_type(
105: new_references.cal_type,
106: v_message_name) = FALSE THEN
107: Fnd_Message.Set_Name('IGS',v_message_name);
108: IGS_GE_MSG_STACK.ADD;
109: App_Exception.Raise_Exception;
110: END IF;
111: -- Validate calendar instance is active
112: IF igs_as_val_uai.crsp_val_crs_ci (
113: new_references.cal_type,
114: new_references.ci_sequence_number,
115: v_message_name) = FALSE THEN
116: Fnd_Message.Set_Name('IGS',v_message_name);
117: IGS_GE_MSG_STACK.ADD;
118: App_Exception.Raise_Exception;
119: END IF;
120: END IF;
121: IF p_inserting OR p_updating THEN
124: new_references.min_entry_ass_score,
125: new_references.guaranteed_entry_ass_scr,
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;
132:
155: IF upper(column_name) = 'MIN_ENTRY_ASS_SCORE' OR
156: column_name is null Then
157: IF ( new_references.min_entry_ass_score < 1 OR new_references.min_entry_ass_score > 999 ) Then
158: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
159: IGS_GE_MSG_STACK.ADD;
160: App_Exception.Raise_Exception;
161: END IF;
162: END IF;
163:
164: IF upper(column_name) = 'GUARANTEED_ENTRY_ASS_SCR' OR
165: column_name is null Then
166: IF ( new_references.guaranteed_entry_ass_scr < 1 OR new_references.guaranteed_entry_ass_scr > 999 ) Then
167: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
168: IGS_GE_MSG_STACK.ADD;
169: App_Exception.Raise_Exception;
170: END IF;
171: END IF;
172:
173: IF upper(column_name) = 'CAL_TYPE' OR
174: column_name is null Then
175: IF ( new_references.cal_type <> UPPER(new_references.cal_type) ) Then
176: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
177: IGS_GE_MSG_STACK.ADD;
178: App_Exception.Raise_Exception;
179: END IF;
180: END IF;
181:
182: IF upper(column_name) = 'COURSE_CD' OR
183: column_name is null Then
184: IF ( new_references.course_cd <> UPPER(new_references.course_cd) ) Then
185: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
186: IGS_GE_MSG_STACK.ADD;
187: App_Exception.Raise_Exception;
188: END IF;
189: END IF;
190:
209: new_references.ci_start_dt,
210: new_references.ci_end_dt
211: ) THEN
212: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
213: IGS_GE_MSG_STACK.ADD;
214: App_Exception.Raise_Exception;
215: END IF;
216: END IF;
217:
228: new_references.version_number,
229: new_references.cal_type
230: ) THEN
231: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
232: IGS_GE_MSG_STACK.ADD;
233: App_Exception.Raise_Exception;
234: END IF;
235: END IF;
236:
304: Fetch cur_rowid INTO lv_rowid;
305: IF (cur_rowid%FOUND) THEN
306: Close cur_rowid;
307: Fnd_Message.Set_Name ('IGS', 'IGS_PS_COI_CI_UFK');
308: IGS_GE_MSG_STACK.ADD;
309: App_Exception.Raise_Exception;
310: Return;
311: END IF;
312: Close cur_rowid;
334: Fetch cur_rowid INTO lv_rowid;
335: IF (cur_rowid%FOUND) THEN
336: Close cur_rowid;
337: Fnd_Message.Set_Name ('IGS', 'IGS_PS_COI_CO_FK');
338: IGS_GE_MSG_STACK.ADD;
339: App_Exception.Raise_Exception;
340: Return;
341: END IF;
342: Close cur_rowid;
388: new_references.version_number,
389: new_references.cal_type,
390: new_references.ci_sequence_number) THEN
391: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
392: IGS_GE_MSG_STACK.ADD;
393: App_Exception.Raise_Exception;
394: END IF;
395: Check_Constraints;
396: Check_Parent_Existance;
409: new_references.version_number,
410: new_references.cal_type,
411: new_references.ci_sequence_number) THEN
412: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
413: IGS_GE_MSG_STACK.ADD;
414: App_Exception.Raise_Exception;
415: END IF;
416: Check_Constraints;
417: ELSIF (p_action = 'VALIDATE_UPDATE') THEN
483: X_PROGRAM_UPDATE_DATE := SYSDATE;
484: END IF;
485: else
486: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
487: IGS_GE_MSG_STACK.ADD;
488: app_exception.raise_exception;
489: end if;
490: Before_DML (
491: p_action => 'INSERT',
580: fetch c1 into tlinfo;
581: if (c1%notfound) then
582: close c1;
583: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
584: IGS_GE_MSG_STACK.ADD;
585: app_exception.raise_exception;
586: return;
587: end if;
588: close c1;
598: ) then
599: null;
600: else
601: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
602: IGS_GE_MSG_STACK.ADD;
603: app_exception.raise_exception;
604: end if;
605: return;
606: end LOCK_ROW;
640: X_LAST_UPDATE_LOGIN := -1;
641: end if;
642: else
643: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
644: IGS_GE_MSG_STACK.ADD;
645: app_exception.raise_exception;
646: end if;
647: Before_DML (
648: p_action => 'UPDATE',