[Home] [Help]
48: OPEN cur_old_ref_values;
49: FETCH cur_old_ref_values INTO old_references;
50: IF (cur_old_ref_values%NOTFOUND)
51: AND (p_action NOT IN ('INSERT', 'VALIDATE_INSERT')) THEN
52: fnd_message.set_name ('FND', 'FORM_RECORD_DELETED');
53: igs_ge_msg_stack.ADD;
54: CLOSE cur_old_ref_values;
55: app_exception.raise_exception;
56: RETURN;
165: IF UPPER (column_name) = 'KEY_ALLOW_INVALID_IND'
166: OR column_name IS NULL THEN
167: IF new_references.key_allow_invalid_ind <> UPPER (new_references.key_allow_invalid_ind)
168: OR new_references.key_allow_invalid_ind NOT IN ('Y', 'N') THEN
169: fnd_message.set_name ('IGS', 'IGS_GE_INVALID_VALUE');
170: igs_ge_msg_stack.ADD;
171: app_exception.raise_exception;
172: END IF;
173: END IF;
174: IF UPPER (column_name) = 'KEY_COLLECT_MARK_IND'
175: OR column_name IS NULL THEN
176: IF new_references.key_collect_mark_ind <> UPPER (new_references.key_collect_mark_ind)
177: OR new_references.key_collect_mark_ind NOT IN ('Y', 'N') THEN
178: fnd_message.set_name ('IGS', 'IGS_GE_INVALID_VALUE');
179: igs_ge_msg_stack.ADD;
180: app_exception.raise_exception;
181: END IF;
182: END IF;
183: IF UPPER (column_name) = 'KEY_GRADE_DERIVE_IND'
184: OR column_name IS NULL THEN
185: IF new_references.key_grade_derive_ind <> UPPER (new_references.key_grade_derive_ind)
186: OR new_references.key_grade_derive_ind NOT IN ('Y', 'N') THEN
187: fnd_message.set_name ('IGS', 'IGS_GE_INVALID_VALUE');
188: igs_ge_msg_stack.ADD;
189: app_exception.raise_exception;
190: END IF;
191: END IF;
192: IF UPPER (column_name) = 'KEY_MARK_MNDTRY_IND'
193: OR column_name IS NULL THEN
194: IF new_references.key_mark_mndtry_ind <> UPPER (new_references.key_mark_mndtry_ind)
195: OR new_references.key_mark_mndtry_ind NOT IN ('Y', 'N') THEN
196: fnd_message.set_name ('IGS', 'IGS_GE_INVALID_VALUE');
197: igs_ge_msg_stack.ADD;
198: app_exception.raise_exception;
199: END IF;
200: END IF;
201: IF UPPER (column_name) = 'UPLD_CRS_NOT_ENROLLED'
202: OR column_name IS NULL THEN
203: IF new_references.upld_crs_not_enrolled <> UPPER (new_references.upld_crs_not_enrolled)
204: OR new_references.upld_crs_not_enrolled NOT IN ('A', 'D', 'H') THEN
205: fnd_message.set_name ('IGS', 'IGS_GE_INVALID_VALUE');
206: igs_ge_msg_stack.ADD;
207: app_exception.raise_exception;
208: END IF;
209: END IF;
210: IF UPPER (column_name) = 'UPLD_GRADE_INVALID'
211: OR column_name IS NULL THEN
212: IF new_references.upld_grade_invalid <> UPPER (new_references.upld_grade_invalid)
213: OR new_references.upld_grade_invalid NOT IN ('D', 'A') THEN
214: fnd_message.set_name ('IGS', 'IGS_GE_INVALID_VALUE');
215: igs_ge_msg_stack.ADD;
216: app_exception.raise_exception;
217: END IF;
218: END IF;
219: IF UPPER (column_name) = 'UPLD_MARK_GRADE_INVALID'
220: OR column_name IS NULL THEN
221: IF new_references.upld_mark_grade_invalid <> UPPER (new_references.upld_mark_grade_invalid)
222: OR new_references.upld_mark_grade_invalid NOT IN ('A', 'D', 'H', 'W') THEN
223: fnd_message.set_name ('IGS', 'IGS_GE_INVALID_VALUE');
224: igs_ge_msg_stack.ADD;
225: app_exception.raise_exception;
226: END IF;
227: END IF;
228: IF UPPER (column_name) = 'UPLD_PERSON_NO_EXIST'
229: OR column_name IS NULL THEN
230: IF new_references.upld_person_no_exist <> UPPER (new_references.upld_person_no_exist)
231: OR new_references.upld_person_no_exist NOT IN ('A', 'D') THEN
232: fnd_message.set_name ('IGS', 'IGS_GE_INVALID_VALUE');
233: igs_ge_msg_stack.ADD;
234: app_exception.raise_exception;
235: END IF;
236: END IF;
237: IF UPPER (column_name) = 'UPLD_UNIT_DISCONT'
238: OR column_name IS NULL THEN
239: IF new_references.upld_unit_discont <> UPPER (new_references.upld_unit_discont)
240: OR new_references.upld_unit_discont NOT IN ('D', 'A', 'H') THEN
241: fnd_message.set_name ('IGS', 'IGS_GE_INVALID_VALUE');
242: igs_ge_msg_stack.ADD;
243: app_exception.raise_exception;
244: END IF;
245: END IF;
246: IF UPPER (column_name) = 'UPLD_UNIT_NOT_ENROLLED'
247: OR column_name IS NULL THEN
248: IF new_references.upld_unit_not_enrolled <> UPPER (new_references.upld_unit_not_enrolled)
249: OR new_references.upld_unit_not_enrolled NOT IN ('A', 'D', 'H') THEN
250: fnd_message.set_name ('IGS', 'IGS_GE_INVALID_VALUE');
251: igs_ge_msg_stack.ADD;
252: app_exception.raise_exception;
253: END IF;
254: END IF;
255: IF UPPER (column_name) = 'S_CONTROL_NUM'
256: OR column_name IS NULL THEN
257: IF new_references.s_control_num < 1
258: AND new_references.s_control_num > 1 THEN
259: fnd_message.set_name ('IGS', 'IGS_GE_INVALID_VALUE');
260: igs_ge_msg_stack.ADD;
261: app_exception.raise_exception;
262: END IF;
263: END IF;
264: IF UPPER (column_name) = 'KEY_ALLOW_INVALID_IND'
265: OR column_name IS NULL THEN
266: IF new_references.key_allow_invalid_ind <> UPPER (new_references.key_allow_invalid_ind)
267: OR new_references.key_allow_invalid_ind NOT IN ('Y', 'N') THEN
268: fnd_message.set_name ('IGS', 'IGS_GE_INVALID_VALUE');
269: igs_ge_msg_stack.ADD;
270: app_exception.raise_exception;
271: END IF;
272: END IF;
273: IF UPPER (column_name) = 'KEY_PRTL_SBMN_ALLOWED_IND'
274: OR column_name IS NULL THEN
275: IF new_references.key_prtl_sbmn_allowed_ind <> UPPER (new_references.key_prtl_sbmn_allowed_ind)
276: OR new_references.key_prtl_sbmn_allowed_ind NOT IN ('Y', 'N') THEN
277: fnd_message.set_name ('IGS', 'IGS_GE_INVALID_VALUE');
278: igs_ge_msg_stack.ADD;
279: app_exception.raise_exception;
280: END IF;
281: END IF;
282: IF UPPER (column_name) = 'UPLD_UG_SBMTD_GRADE_EXIST'
283: OR column_name IS NULL THEN
284: IF new_references.upld_ug_sbmtd_grade_exist <> UPPER (new_references.upld_ug_sbmtd_grade_exist)
285: OR new_references.upld_ug_sbmtd_grade_exist NOT IN ('D', 'A') THEN
286: fnd_message.set_name ('IGS', 'IGS_GE_INVALID_VALUE');
287: igs_ge_msg_stack.ADD;
288: app_exception.raise_exception;
289: END IF;
290: END IF;
291: IF UPPER (column_name) = 'UPLD_UG_SAVED_GRADE_EXIST'
292: OR column_name IS NULL THEN
293: IF new_references.upld_ug_saved_grade_exist <> UPPER (new_references.upld_ug_saved_grade_exist)
294: OR new_references.upld_ug_saved_grade_exist NOT IN ('D', 'A', 'W') THEN
295: fnd_message.set_name ('IGS', 'IGS_GE_INVALID_VALUE');
296: igs_ge_msg_stack.ADD;
297: app_exception.raise_exception;
298: END IF;
299: END IF;
300: IF UPPER (column_name) = 'UPLD_ASMNT_ITEM_NOT_EXIST'
301: OR column_name IS NULL THEN
302: IF new_references.upld_asmnt_item_not_exist <> UPPER (new_references.upld_asmnt_item_not_exist)
303: OR new_references.upld_asmnt_item_not_exist NOT IN ('D', 'A') THEN
304: fnd_message.set_name ('IGS', 'IGS_GE_INVALID_VALUE');
305: igs_ge_msg_stack.ADD;
306: app_exception.raise_exception;
307: END IF;
308: END IF;
309: IF UPPER (column_name) = 'UPLD_ASMNT_ITEM_GRD_EXIST'
310: OR column_name IS NULL THEN
311: IF new_references.upld_asmnt_item_grd_exist <> UPPER (new_references.upld_asmnt_item_grd_exist)
312: OR new_references.upld_asmnt_item_grd_exist NOT IN ('D', 'A', 'W') THEN
313: fnd_message.set_name ('IGS', 'IGS_GE_INVALID_VALUE');
314: igs_ge_msg_stack.ADD;
315: app_exception.raise_exception;
316: END IF;
317: END IF;
318: IF UPPER (column_name) = 'KEY_DERIVE_UNIT_GRADE_FLAG'
319: OR column_name IS NULL THEN
320: IF new_references.key_derive_unit_grade_flag <> UPPER (new_references.key_derive_unit_grade_flag)
321: OR new_references.key_derive_unit_grade_flag NOT IN ('Y', 'N') THEN
322: fnd_message.set_name ('IGS', 'IGS_GE_INVALID_VALUE');
323: igs_ge_msg_stack.ADD;
324: app_exception.raise_exception;
325: END IF;
326: END IF;
327: IF UPPER (column_name) = 'KEY_ALLOW_INST_FINALIZE_FLAG'
328: OR column_name IS NULL THEN
329: IF new_references.key_allow_inst_finalize_flag <> UPPER (new_references.key_allow_inst_finalize_flag)
330: OR new_references.key_allow_inst_finalize_flag NOT IN ('Y', 'N') THEN
331: fnd_message.set_name ('IGS', 'IGS_GE_INVALID_VALUE');
332: igs_ge_msg_stack.ADD;
333: app_exception.raise_exception;
334: END IF;
335: END IF;
336: IF UPPER (column_name) = 'KEY_AI_COLLECT_MARK_FLAG'
337: OR column_name IS NULL THEN
338: IF new_references.key_ai_collect_mark_flag <> UPPER (new_references.key_ai_collect_mark_flag)
339: OR new_references.key_ai_collect_mark_flag NOT IN ('Y', 'N') THEN
340: fnd_message.set_name ('IGS', 'IGS_GE_INVALID_VALUE');
341: igs_ge_msg_stack.ADD;
342: app_exception.raise_exception;
343: END IF;
344: END IF;
345: IF UPPER (column_name) = 'KEY_AI_MARK_MNDTRY_FLAG'
346: OR column_name IS NULL THEN
347: IF new_references.key_ai_mark_mndtry_flag <> UPPER (new_references.key_ai_mark_mndtry_flag)
348: OR new_references.key_ai_mark_mndtry_flag NOT IN ('Y', 'N') THEN
349: fnd_message.set_name ('IGS', 'IGS_GE_INVALID_VALUE');
350: igs_ge_msg_stack.ADD;
351: app_exception.raise_exception;
352: END IF;
353: END IF;
354: IF UPPER (column_name) = 'KEY_AI_GRADE_DERIVE_FLAG'
355: OR column_name IS NULL THEN
356: IF new_references.key_ai_grade_derive_flag <> UPPER (new_references.key_ai_grade_derive_flag)
357: OR new_references.key_ai_grade_derive_flag NOT IN ('Y', 'N') THEN
358: fnd_message.set_name ('IGS', 'IGS_GE_INVALID_VALUE');
359: igs_ge_msg_stack.ADD;
360: app_exception.raise_exception;
361: END IF;
362: END IF;
363: IF UPPER (column_name) = 'KEY_AI_ALLOW_INVALID_FLAG'
364: OR column_name IS NULL THEN
365: IF new_references.key_ai_allow_invalid_flag <> UPPER (new_references.key_ai_allow_invalid_flag)
366: OR new_references.key_ai_allow_invalid_flag NOT IN ('Y', 'N') THEN
367: fnd_message.set_name ('IGS', 'IGS_GE_INVALID_VALUE');
368: igs_ge_msg_stack.ADD;
369: app_exception.raise_exception;
370: END IF;
371: END IF;
440: );
441: IF (p_action = 'INSERT') THEN
442: -- Call all the procedures related to Before Insert.
443: IF get_pk_for_validation (new_references.s_control_num) THEN
444: fnd_message.set_name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
445: igs_ge_msg_stack.ADD;
446: app_exception.raise_exception;
447: END IF;
448: check_constraints;
453: -- Call all the procedures related to Before Delete.
454: NULL;
455: ELSIF (p_action = 'VALIDATE_INSERT') THEN
456: IF get_pk_for_validation (new_references.s_control_num) THEN
457: fnd_message.set_name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
458: igs_ge_msg_stack.ADD;
459: app_exception.raise_exception;
460: END IF;
461: check_constraints;
515: IF x_last_update_login IS NULL THEN
516: x_last_update_login := -1;
517: END IF;
518: ELSE
519: fnd_message.set_name ('FND', 'SYSTEM-INVALID ARGS');
520: igs_ge_msg_stack.ADD;
521: app_exception.raise_exception;
522: END IF;
523: before_dml (
672: BEGIN
673: OPEN c1;
674: FETCH c1 INTO tlinfo;
675: IF (c1%NOTFOUND) THEN
676: fnd_message.set_name ('FND', 'FORM_RECORD_DELETED');
677: igs_ge_msg_stack.ADD;
678: CLOSE c1;
679: app_exception.raise_exception;
680: RETURN;
757: )
758: ) THEN
759: NULL;
760: ELSE
761: fnd_message.set_name ('FND', 'FORM_RECORD_CHANGED');
762: igs_ge_msg_stack.ADD;
763: app_exception.raise_exception;
764: END IF;
765: RETURN;
810: IF x_last_update_login IS NULL THEN
811: x_last_update_login := -1;
812: END IF;
813: ELSE
814: fnd_message.set_name ('FND', 'SYSTEM-INVALID ARGS');
815: igs_ge_msg_stack.ADD;
816: app_exception.raise_exception;
817: END IF;
818: before_dml (