1: PACKAGE BODY igi_exp_tu_type_headers_pkg AS
2: /* $Header: igiexpub.pls 120.5.12000000.1 2007/09/13 04:24:51 mbremkum ship $ */
3:
4: --following variables added for bug 3199481: fnd logging changes: sdixit
5: l_debug_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6: l_state_level number := FND_LOG.LEVEL_STATEMENT;
7: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
8: l_event_level number := FND_LOG.LEVEL_EVENT;
1: PACKAGE BODY igi_exp_tu_type_headers_pkg AS
2: /* $Header: igiexpub.pls 120.5.12000000.1 2007/09/13 04:24:51 mbremkum ship $ */
3:
4: --following variables added for bug 3199481: fnd logging changes: sdixit
5: l_debug_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6: l_state_level number := FND_LOG.LEVEL_STATEMENT;
7: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
8: l_event_level number := FND_LOG.LEVEL_EVENT;
9: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
2: /* $Header: igiexpub.pls 120.5.12000000.1 2007/09/13 04:24:51 mbremkum ship $ */
3:
4: --following variables added for bug 3199481: fnd logging changes: sdixit
5: l_debug_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6: l_state_level number := FND_LOG.LEVEL_STATEMENT;
7: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
8: l_event_level number := FND_LOG.LEVEL_EVENT;
9: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
10: l_error_level number := FND_LOG.LEVEL_ERROR;
3:
4: --following variables added for bug 3199481: fnd logging changes: sdixit
5: l_debug_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6: l_state_level number := FND_LOG.LEVEL_STATEMENT;
7: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
8: l_event_level number := FND_LOG.LEVEL_EVENT;
9: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
10: l_error_level number := FND_LOG.LEVEL_ERROR;
11: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
4: --following variables added for bug 3199481: fnd logging changes: sdixit
5: l_debug_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6: l_state_level number := FND_LOG.LEVEL_STATEMENT;
7: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
8: l_event_level number := FND_LOG.LEVEL_EVENT;
9: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
10: l_error_level number := FND_LOG.LEVEL_ERROR;
11: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
12:
5: l_debug_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6: l_state_level number := FND_LOG.LEVEL_STATEMENT;
7: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
8: l_event_level number := FND_LOG.LEVEL_EVENT;
9: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
10: l_error_level number := FND_LOG.LEVEL_ERROR;
11: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
12:
13: l_rowid VARCHAR2(25);
6: l_state_level number := FND_LOG.LEVEL_STATEMENT;
7: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
8: l_event_level number := FND_LOG.LEVEL_EVENT;
9: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
10: l_error_level number := FND_LOG.LEVEL_ERROR;
11: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
12:
13: l_rowid VARCHAR2(25);
14: old_references igi_exp_tu_type_headers_all%ROWTYPE;
7: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
8: l_event_level number := FND_LOG.LEVEL_EVENT;
9: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
10: l_error_level number := FND_LOG.LEVEL_ERROR;
11: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
12:
13: l_rowid VARCHAR2(25);
14: old_references igi_exp_tu_type_headers_all%ROWTYPE;
15: new_references igi_exp_tu_type_headers_all%ROWTYPE;
55: FETCH cur_old_ref_values INTO old_references;
56: IF ((cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT', 'VALIDATE_INSERT'))) THEN
57: CLOSE cur_old_ref_values;
58: fnd_message.set_name ('FND', 'FORM_RECORD_DELETED');
59: --bug 3199481 fnd logging changes: sdixit: start block
60: IF (l_error_level >= l_debug_level ) THEN
61: FND_LOG.MESSAGE (l_error_level , 'igi.plsql.igiexpub.IGI_EXP_TU_TYPE_HEADERS_PKG.set_column_values',FALSE);
62: END IF;
63: --bug 3199481 fnd logging changes: sdixit: end block
57: CLOSE cur_old_ref_values;
58: fnd_message.set_name ('FND', 'FORM_RECORD_DELETED');
59: --bug 3199481 fnd logging changes: sdixit: start block
60: IF (l_error_level >= l_debug_level ) THEN
61: FND_LOG.MESSAGE (l_error_level , 'igi.plsql.igiexpub.IGI_EXP_TU_TYPE_HEADERS_PKG.set_column_values',FALSE);
62: END IF;
63: --bug 3199481 fnd logging changes: sdixit: end block
64:
65: app_exception.raise_exception;
59: --bug 3199481 fnd logging changes: sdixit: start block
60: IF (l_error_level >= l_debug_level ) THEN
61: FND_LOG.MESSAGE (l_error_level , 'igi.plsql.igiexpub.IGI_EXP_TU_TYPE_HEADERS_PKG.set_column_values',FALSE);
62: END IF;
63: --bug 3199481 fnd logging changes: sdixit: end block
64:
65: app_exception.raise_exception;
66: RETURN;
67: END IF;
110: ELSIF NOT igi_exp_apprv_profiles_pkg.get_pk_for_validation (
111: new_references.apprv_profile_id
112: ) THEN
113: fnd_message.set_name ('FND', 'FORM_RECORD_DELETED');
114: --bug 3199481 fnd logging changes: sdixit: start block
115: IF (l_error_level >= l_debug_level ) THEN
116: FND_LOG.MESSAGE (l_error_level , 'igi.plsql.igiexpub.IGI_EXP_TU_TYPE_HEADERS_PKG.check_parent_existance',FALSE);
117: END IF;
118: --bug 3199481 fnd logging changes: sdixit: end block
112: ) THEN
113: fnd_message.set_name ('FND', 'FORM_RECORD_DELETED');
114: --bug 3199481 fnd logging changes: sdixit: start block
115: IF (l_error_level >= l_debug_level ) THEN
116: FND_LOG.MESSAGE (l_error_level , 'igi.plsql.igiexpub.IGI_EXP_TU_TYPE_HEADERS_PKG.check_parent_existance',FALSE);
117: END IF;
118: --bug 3199481 fnd logging changes: sdixit: end block
119:
120: app_exception.raise_exception;
114: --bug 3199481 fnd logging changes: sdixit: start block
115: IF (l_error_level >= l_debug_level ) THEN
116: FND_LOG.MESSAGE (l_error_level , 'igi.plsql.igiexpub.IGI_EXP_TU_TYPE_HEADERS_PKG.check_parent_existance',FALSE);
117: END IF;
118: --bug 3199481 fnd logging changes: sdixit: end block
119:
120: app_exception.raise_exception;
121: END IF;
122:
202: FETCH cur_rowid INTO lv_rowid;
203: IF (cur_rowid%FOUND) THEN
204: CLOSE cur_rowid;
205: fnd_message.set_name ('FND','FND-CANNOT DELETE MASTER');
206: --bug 3199481 fnd logging changes: sdixit: start block
207: IF (l_error_level >= l_debug_level ) THEN
208: FND_LOG.MESSAGE (l_error_level , 'igi.plsql.igiexpub.IGI_EXP_TU_TYPE_HEADERS_PKG.get_fk_igi_exp_apprv_profiles',FALSE);
209: END IF;
210: --bug 3199481 fnd logging changes: sdixit: end block
204: CLOSE cur_rowid;
205: fnd_message.set_name ('FND','FND-CANNOT DELETE MASTER');
206: --bug 3199481 fnd logging changes: sdixit: start block
207: IF (l_error_level >= l_debug_level ) THEN
208: FND_LOG.MESSAGE (l_error_level , 'igi.plsql.igiexpub.IGI_EXP_TU_TYPE_HEADERS_PKG.get_fk_igi_exp_apprv_profiles',FALSE);
209: END IF;
210: --bug 3199481 fnd logging changes: sdixit: end block
211:
212: app_exception.raise_exception;
206: --bug 3199481 fnd logging changes: sdixit: start block
207: IF (l_error_level >= l_debug_level ) THEN
208: FND_LOG.MESSAGE (l_error_level , 'igi.plsql.igiexpub.IGI_EXP_TU_TYPE_HEADERS_PKG.get_fk_igi_exp_apprv_profiles',FALSE);
209: END IF;
210: --bug 3199481 fnd logging changes: sdixit: end block
211:
212: app_exception.raise_exception;
213: RETURN;
214: END IF;
269: new_references.tu_type_header_id
270: )
271: ) THEN
272: fnd_message.set_name('IGI','IGI_EXP_DUP_ROW');
273: --bug 3199481 fnd logging changes: sdixit: start block
274: IF (l_error_level >= l_debug_level ) THEN
275: FND_LOG.MESSAGE (l_error_level , 'igi.plsql.igiexpub.IGI_EXP_TU_TYPE_HEADERS_PKG.before_dml.msg1',FALSE);
276: END IF;
277: --bug 3199481 fnd logging changes: sdixit: end block
271: ) THEN
272: fnd_message.set_name('IGI','IGI_EXP_DUP_ROW');
273: --bug 3199481 fnd logging changes: sdixit: start block
274: IF (l_error_level >= l_debug_level ) THEN
275: FND_LOG.MESSAGE (l_error_level , 'igi.plsql.igiexpub.IGI_EXP_TU_TYPE_HEADERS_PKG.before_dml.msg1',FALSE);
276: END IF;
277: --bug 3199481 fnd logging changes: sdixit: end block
278:
279: app_exception.raise_exception;
273: --bug 3199481 fnd logging changes: sdixit: start block
274: IF (l_error_level >= l_debug_level ) THEN
275: FND_LOG.MESSAGE (l_error_level , 'igi.plsql.igiexpub.IGI_EXP_TU_TYPE_HEADERS_PKG.before_dml.msg1',FALSE);
276: END IF;
277: --bug 3199481 fnd logging changes: sdixit: end block
278:
279: app_exception.raise_exception;
280: END IF;
281: check_parent_existance;
291: new_references.tu_type_header_id
292: )
293: ) THEN
294: fnd_message.set_name('IGI','IGI_EXP_DUP_ROW');
295: --bug 3199481 fnd logging changes: sdixit: start block
296: IF (l_error_level >= l_debug_level ) THEN
297: FND_LOG.MESSAGE (l_error_level , 'igi.plsql.igiexpub.IGI_EXP_TU_TYPE_HEADERS_PKG.before_dml.msg1',FALSE);
298: END IF;
299: --bug 3199481 fnd logging changes: sdixit: end block
293: ) THEN
294: fnd_message.set_name('IGI','IGI_EXP_DUP_ROW');
295: --bug 3199481 fnd logging changes: sdixit: start block
296: IF (l_error_level >= l_debug_level ) THEN
297: FND_LOG.MESSAGE (l_error_level , 'igi.plsql.igiexpub.IGI_EXP_TU_TYPE_HEADERS_PKG.before_dml.msg1',FALSE);
298: END IF;
299: --bug 3199481 fnd logging changes: sdixit: end block
300:
301: app_exception.raise_exception;
295: --bug 3199481 fnd logging changes: sdixit: start block
296: IF (l_error_level >= l_debug_level ) THEN
297: FND_LOG.MESSAGE (l_error_level , 'igi.plsql.igiexpub.IGI_EXP_TU_TYPE_HEADERS_PKG.before_dml.msg1',FALSE);
298: END IF;
299: --bug 3199481 fnd logging changes: sdixit: end block
300:
301: app_exception.raise_exception;
302: END IF;
303: ELSIF (p_action = 'VALIDATE_DELETE') THEN
352: x_last_update_login := -1;
353: END IF;
354: ELSE
355: fnd_message.set_name ('FND', 'SYSTEM-INVALID ARGS');
356: --bug 3199481 fnd logging changes: sdixit: start block
357: IF (l_error_level >= l_debug_level ) THEN
358: FND_LOG.MESSAGE (l_error_level , 'igi.plsql.igiexpub.IGI_EXP_TU_TYPE_HEADERS_PKG.insert_row',FALSE);
359: END IF;
360: --bug 3199481 fnd logging changes: sdixit: end block
354: ELSE
355: fnd_message.set_name ('FND', 'SYSTEM-INVALID ARGS');
356: --bug 3199481 fnd logging changes: sdixit: start block
357: IF (l_error_level >= l_debug_level ) THEN
358: FND_LOG.MESSAGE (l_error_level , 'igi.plsql.igiexpub.IGI_EXP_TU_TYPE_HEADERS_PKG.insert_row',FALSE);
359: END IF;
360: --bug 3199481 fnd logging changes: sdixit: end block
361:
362: app_exception.raise_exception;
356: --bug 3199481 fnd logging changes: sdixit: start block
357: IF (l_error_level >= l_debug_level ) THEN
358: FND_LOG.MESSAGE (l_error_level , 'igi.plsql.igiexpub.IGI_EXP_TU_TYPE_HEADERS_PKG.insert_row',FALSE);
359: END IF;
360: --bug 3199481 fnd logging changes: sdixit: end block
361:
362: app_exception.raise_exception;
363: END IF;
364:
465: OPEN c1;
466: FETCH c1 INTO tlinfo;
467: IF (c1%notfound) THEN
468: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
469: --bug 3199481 fnd logging changes: sdixit: start block
470: IF (l_error_level >= l_debug_level ) THEN
471: FND_LOG.MESSAGE (l_error_level , 'igi.plsql.igiexpub.IGI_EXP_TU_TYPE_HEADERS_PKG.lock_row',FALSE);
472: END IF;
473: --bug 3199481 fnd logging changes: sdixit: end block
467: IF (c1%notfound) THEN
468: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
469: --bug 3199481 fnd logging changes: sdixit: start block
470: IF (l_error_level >= l_debug_level ) THEN
471: FND_LOG.MESSAGE (l_error_level , 'igi.plsql.igiexpub.IGI_EXP_TU_TYPE_HEADERS_PKG.lock_row',FALSE);
472: END IF;
473: --bug 3199481 fnd logging changes: sdixit: end block
474:
475: CLOSE c1;
469: --bug 3199481 fnd logging changes: sdixit: start block
470: IF (l_error_level >= l_debug_level ) THEN
471: FND_LOG.MESSAGE (l_error_level , 'igi.plsql.igiexpub.IGI_EXP_TU_TYPE_HEADERS_PKG.lock_row',FALSE);
472: END IF;
473: --bug 3199481 fnd logging changes: sdixit: end block
474:
475: CLOSE c1;
476: app_exception.raise_exception;
477: RETURN;
489: ) THEN
490: NULL;
491: ELSE
492: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
493: --bug 3199481 fnd logging changes: sdixit: start block
494: IF (l_error_level >= l_debug_level ) THEN
495: FND_LOG.MESSAGE (l_error_level , 'igi.plsql.igiexpub.IGI_EXP_TU_TYPE_HEADERS_PKG.lock_row',FALSE);
496: END IF;
497: --bug 3199481 fnd logging changes: sdixit: end block
491: ELSE
492: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
493: --bug 3199481 fnd logging changes: sdixit: start block
494: IF (l_error_level >= l_debug_level ) THEN
495: FND_LOG.MESSAGE (l_error_level , 'igi.plsql.igiexpub.IGI_EXP_TU_TYPE_HEADERS_PKG.lock_row',FALSE);
496: END IF;
497: --bug 3199481 fnd logging changes: sdixit: end block
498:
499: app_exception.raise_exception;
493: --bug 3199481 fnd logging changes: sdixit: start block
494: IF (l_error_level >= l_debug_level ) THEN
495: FND_LOG.MESSAGE (l_error_level , 'igi.plsql.igiexpub.IGI_EXP_TU_TYPE_HEADERS_PKG.lock_row',FALSE);
496: END IF;
497: --bug 3199481 fnd logging changes: sdixit: end block
498:
499: app_exception.raise_exception;
500: END IF;
501:
544: x_last_update_login := -1;
545: END IF;
546: ELSE
547: fnd_message.set_name( 'FND', 'SYSTEM-INVALID ARGS');
548: --bug 3199481 fnd logging changes: sdixit: start block
549: IF (l_error_level >= l_debug_level ) THEN
550: FND_LOG.MESSAGE (l_error_level , 'igi.plsql.igiexpub.IGI_EXP_TU_TYPE_HEADERS_PKG.update_row',FALSE);
551: END IF;
552: --bug 3199481 fnd logging changes: sdixit: end block
546: ELSE
547: fnd_message.set_name( 'FND', 'SYSTEM-INVALID ARGS');
548: --bug 3199481 fnd logging changes: sdixit: start block
549: IF (l_error_level >= l_debug_level ) THEN
550: FND_LOG.MESSAGE (l_error_level , 'igi.plsql.igiexpub.IGI_EXP_TU_TYPE_HEADERS_PKG.update_row',FALSE);
551: END IF;
552: --bug 3199481 fnd logging changes: sdixit: end block
553:
554: app_exception.raise_exception;
548: --bug 3199481 fnd logging changes: sdixit: start block
549: IF (l_error_level >= l_debug_level ) THEN
550: FND_LOG.MESSAGE (l_error_level , 'igi.plsql.igiexpub.IGI_EXP_TU_TYPE_HEADERS_PKG.update_row',FALSE);
551: END IF;
552: --bug 3199481 fnd logging changes: sdixit: end block
553:
554: app_exception.raise_exception;
555: END IF;
556: