[Home] [Help]
39: Fetch cur_old_ref_values INTO old_references;
40: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
41: Close cur_old_ref_values;
42: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
43: IGS_GE_MSG_STACK.ADD;
44: App_Exception.Raise_Exception;
45: Return;
46: END IF;
47: Close cur_old_ref_values;
82: new_references.subject_cd,
83: new_references.subject_desc,
84: v_message_name) = FALSE THEN
85: Fnd_Message.Set_Name('IGS',v_message_name);
86: IGS_GE_MSG_STACK.ADD;
87: App_Exception.Raise_Exception;
88: END IF;
89: END IF;
90: -- Validate System admission outcome status IGS_PS_UNIT outcome ind.
92: IF IGS_AD_VAL_OSES.admp_val_teua_sret(
93: new_references.result_type,
94: v_message_name) = FALSE THEN
95: Fnd_Message.Set_Name('IGS',v_message_name);
96: IGS_GE_MSG_STACK.ADD;
97: App_Exception.Raise_Exception;
98: END IF;
99: END IF;
100:
127:
128: IF upper(Column_Name) = 'SUBJECT_CD' OR Column_Name IS NULL THEN
129: IF new_references.subject_cd <> UPPER(new_references.subject_cd) THEN
130: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
131: IGS_GE_MSG_STACK.ADD;
132: App_Exception.Raise_Exception;
133: END IF;
134: END IF;
135: IF upper(Column_Name) = 'SUBJECT_DESC' OR Column_Name IS NULL THEN
134: END IF;
135: IF upper(Column_Name) = 'SUBJECT_DESC' OR Column_Name IS NULL THEN
136: IF new_references.subject_desc <> UPPER(new_references.subject_desc) THEN
137: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
138: IGS_GE_MSG_STACK.ADD;
139: App_Exception.Raise_Exception;
140: END IF;
141: END IF;
142: IF upper(Column_Name) = 'RESULT_TYPE' OR Column_Name IS NULL THEN
141: END IF;
142: IF upper(Column_Name) = 'RESULT_TYPE' OR Column_Name IS NULL THEN
143: IF new_references.result_type <> UPPER(new_references.result_type) THEN
144: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
145: IGS_GE_MSG_STACK.ADD;
146: App_Exception.Raise_Exception;
147: END IF;
148: END IF;
149: IF upper(Column_Name) = 'RESULT' OR Column_Name IS NULL THEN
148: END IF;
149: IF upper(Column_Name) = 'RESULT' OR Column_Name IS NULL THEN
150: IF new_references.result <> UPPER(new_references.result) THEN
151: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
152: IGS_GE_MSG_STACK.ADD;
153: App_Exception.Raise_Exception;
154: END IF;
155: END IF;
156: IF upper(Column_Name) = 'OSE_SEQUENCE_NUMBER' OR Column_Name IS NULL THEN
155: END IF;
156: IF upper(Column_Name) = 'OSE_SEQUENCE_NUMBER' OR Column_Name IS NULL THEN
157: IF new_references.ose_sequence_number < 1 OR new_references.ose_sequence_number > 999999 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: IF upper(Column_Name) = 'SEQUENCE_NUMBER' OR Column_Name IS NULL THEN
162: END IF;
163: IF upper(Column_Name) = 'SEQUENCE_NUMBER' OR Column_Name IS NULL THEN
164: IF new_references.sequence_number < 1 OR new_references.sequence_number > 999999 THEN
165: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
166: IGS_GE_MSG_STACK.ADD;
167: App_Exception.Raise_Exception;
168: END IF;
169: END IF;
170: IF upper(Column_Name) = 'SUBJECT_RESULT_YR' OR Column_Name IS NULL THEN
169: END IF;
170: IF upper(Column_Name) = 'SUBJECT_RESULT_YR' OR Column_Name IS NULL THEN
171: IF new_references.subject_result_yr < 1900 OR new_references.subject_result_yr > 2050 THEN
172: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
173: IGS_GE_MSG_STACK.ADD;
174: App_Exception.Raise_Exception;
175: END IF;
176: END IF;
177:
190: new_references.person_id,
191: new_references.ose_sequence_number
192: ) THEN
193: Fnd_Message.Set_Name('FND','FORM_RECORD_DELETED');
194: IGS_GE_MSG_STACK.ADD;
195: App_Exception.Raise_Exception;
196: END IF;
197: END IF;
198:
247: Fetch cur_rowid INTO lv_rowid;
248: IF (cur_rowid%FOUND) THEN
249: Close cur_rowid;
250: Fnd_Message.Set_Name ('IGS', 'IGS_AD_OSES_OSE_FK');
251: IGS_GE_MSG_STACK.ADD;
252: App_Exception.Raise_Exception;
253: Return;
254: END IF;
255: Close cur_rowid;
300: new_references.ose_sequence_number,
301: new_references.sequence_number
302: ) THEN
303: Fnd_Message.Set_Name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
304: IGS_GE_MSG_STACK.ADD;
305: App_Exception.Raise_Exception;
306: END IF;
307: Check_Constraints;
308: Check_Parent_Existance;
316: new_references.ose_sequence_number,
317: new_references.sequence_number
318: ) THEN
319: Fnd_Message.Set_Name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
320: IGS_GE_MSG_STACK.ADD;
321: App_Exception.Raise_Exception;
322: END IF;
323: Check_Constraints;
324: ELSIF (p_action = 'VALIDATE_UPDATE') THEN
373: X_LAST_UPDATE_LOGIN := -1;
374: end if;
375: else
376: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
377: IGS_GE_MSG_STACK.ADD;
378: app_exception.raise_exception;
379: end if;
380:
381: Before_DML(
469: fetch c1 into tlinfo;
470: if (c1%notfound) then
471: close c1;
472: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
473: IGS_GE_MSG_STACK.ADD;
474: app_exception.raise_exception;
475: return;
476: end if;
477: close c1;
492: ) then
493: null;
494: else
495: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
496: IGS_GE_MSG_STACK.ADD;
497: app_exception.raise_exception;
498: end if;
499: return;
500: end LOCK_ROW;
529: X_LAST_UPDATE_LOGIN := -1;
530: end if;
531: else
532: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
533: IGS_GE_MSG_STACK.ADD;
534: app_exception.raise_exception;
535: end if;
536:
537: Before_DML(