[Home] [Help]
38: -- Populate Old Values.
39: Open cur_old_ref_values;
40: Fetch cur_old_ref_values INTO old_references;
41: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT', 'VALIDATE_INSERT')) THEN
42: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
43: IGS_GE_MSG_STACK.ADD;
44: App_Exception.Raise_Exception;
45: Close cur_old_ref_values;
46: Return;
98: END IF;
99:
100: IF upper(Column_Name) = 'SUBJECT_CD' OR Column_Name IS NULL THEN
101: IF new_references.subject_cd <> UPPER(new_references.subject_cd) THEN
102: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
103: IGS_GE_MSG_STACK.ADD;
104: App_Exception.Raise_Exception;
105: END IF;
106: END IF;
105: END IF;
106: END IF;
107: IF upper(Column_Name) = 'SUBJECT_DESC' OR Column_Name IS NULL THEN
108: IF new_references.subject_desc <> UPPER(new_references.subject_desc) THEN
109: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
110: IGS_GE_MSG_STACK.ADD;
111: App_Exception.Raise_Exception;
112: END IF;
113: END IF;
112: END IF;
113: END IF;
114: IF upper(Column_Name) = 'SUBJECT_MARK' OR Column_Name IS NULL THEN
115: IF new_references.subject_mark <> UPPER(new_references.subject_mark) THEN
116: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
117: IGS_GE_MSG_STACK.ADD;
118: App_Exception.Raise_Exception;
119: END IF;
120: END IF;
119: END IF;
120: END IF;
121: IF upper(Column_Name) = 'SUBJECT_MARK_LEVEL' OR Column_Name IS NULL THEN
122: IF new_references.subject_mark_level <> UPPER(new_references.subject_mark_level) THEN
123: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
124: IGS_GE_MSG_STACK.ADD;
125: App_Exception.Raise_Exception;
126: END IF;
127: END IF;
126: END IF;
127: END IF;
128: IF upper(Column_Name) = 'SUBJECT_ASS_TYPE' OR Column_Name IS NULL THEN
129: IF new_references.subject_ass_type <> UPPER(new_references.subject_ass_type) 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;
133: END IF;
134: END IF;
135: IF upper(Column_Name) = 'SUBJECT_WEIGHTING' OR Column_Name IS NULL THEN
136: IF new_references.subject_weighting <> UPPER(new_references.subject_weighting) 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;
140: END IF;
141: END IF;
142: IF upper(Column_Name) = 'SUBJECT_RESULT_YR' OR Column_Name IS NULL THEN
143: IF new_references.subject_result_yr < 1900 OR new_references.subject_result_yr > 2050 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;
147: END IF;
148: END IF;
149: IF ((UPPER (column_name) = 'ASE_SEQUENCE_NUMBER') OR (column_name IS NULL)) THEN
150: IF ((new_references.ase_sequence_number < 1) OR (new_references.ase_sequence_number > 9999999999)) 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;
165: IF NOT IGS_AD_AUSE_ED_AS_TY_PKG.Get_PK_For_Validation (
166: new_references.subject_ass_type,
167: 'N'
168: ) THEN
169: Fnd_Message.Set_Name('FND','FORM_RECORD_DELETED');
170: IGS_GE_MSG_STACK.ADD;
171: App_Exception.Raise_Exception;
172: END IF;
173: END IF;
181: IF NOT IGS_AD_AUS_SEC_EDU_PKG.Get_PK_For_Validation (
182: new_references.person_id,
183: new_references.ase_sequence_number
184: ) THEN
185: Fnd_Message.Set_Name('FND','FORM_RECORD_DELETED');
186: IGS_GE_MSG_STACK.ADD;
187: App_Exception.Raise_Exception;
188: END IF;
189: END IF;
238: Open cur_rowid;
239: Fetch cur_rowid INTO lv_rowid;
240: IF (cur_rowid%FOUND) THEN
241: Close cur_rowid;
242: Fnd_Message.Set_Name ('IGS', 'IGS_AD_AUSES_ASEAT_FK');
243: IGS_GE_MSG_STACK.ADD;
244: App_Exception.Raise_Exception;
245: Return;
246: END IF;
266: Open cur_rowid;
267: Fetch cur_rowid INTO lv_rowid;
268: IF (cur_rowid%FOUND) THEN
269: Close cur_rowid;
270: Fnd_Message.Set_Name ('IGS', 'IGS_AD_AUSES_ASE_FK');
271: IGS_GE_MSG_STACK.ADD;
272: App_Exception.Raise_Exception;
273: Return;
274: END IF;
323: new_references.ase_sequence_number,
324: new_references.subject_result_yr,
325: new_references.subject_cd
326: ) THEN
327: Fnd_Message.Set_Name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
328: IGS_GE_MSG_STACK.ADD;
329: App_Exception.Raise_Exception;
330: END IF;
331: Check_Constraints;
339: new_references.ase_sequence_number,
340: new_references.subject_result_yr,
341: new_references.subject_cd
342: ) THEN
343: Fnd_Message.Set_Name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
344: IGS_GE_MSG_STACK.ADD;
345: App_Exception.Raise_Exception;
346: END IF;
347: Check_Constraints;
412: else
413: X_PROGRAM_UPDATE_DATE := SYSDATE;
414: end if;
415: else
416: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
417: IGS_GE_MSG_STACK.ADD;
418: app_exception.raise_exception;
419: end if;
420:
521: begin
522: open c1;
523: fetch c1 into tlinfo;
524: if (c1%notfound) then
525: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
526: IGS_GE_MSG_STACK.ADD;
527: app_exception.raise_exception;
528: close c1;
529: return;
550: AND (X_NOTES is null)))
551: ) then
552: null;
553: else
554: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
555: IGS_GE_MSG_STACK.ADD;
556: app_exception.raise_exception;
557: end if;
558: return;
593: if X_LAST_UPDATE_LOGIN is NULL then
594: X_LAST_UPDATE_LOGIN := -1;
595: end if;
596: else
597: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
598: IGS_GE_MSG_STACK.ADD;
599: app_exception.raise_exception;
600: end if;
601: