1: PACKAGE BODY IGI_DUN_LETTER_SETS_PKG as
2: /* $Header: igidunob.pls 120.4.12000000.1 2007/10/26 13:30:19 gigupta 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_DUN_LETTER_SETS_PKG as
2: /* $Header: igidunob.pls 120.4.12000000.1 2007/10/26 13:30:19 gigupta 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: igidunob.pls 120.4.12000000.1 2007/10/26 13:30:19 gigupta 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: PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
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: PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
14: X_Dunning_Letter_Set_Id NUMBER,
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: PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
14: X_Dunning_Letter_Set_Id NUMBER,
15: X_Use_Dunning_Flag VARCHAR2,
79: FETCH C INTO Recinfo;
80: if (C%NOTFOUND) then
81: CLOSE C;
82: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
83: --bug 3199481 fnd logging changes: sdixit: start block
84: IF (l_excep_level >= l_debug_level ) THEN
85: FND_LOG.MESSAGE (l_excep_level , 'igi.plsql.igidunob.IGI_DUN_LETTER_SETS_PKG.Lock_Row',FALSE);
86: END IF;
87: --bug 3199481 fnd logging changes: sdixit: end block
81: CLOSE C;
82: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
83: --bug 3199481 fnd logging changes: sdixit: start block
84: IF (l_excep_level >= l_debug_level ) THEN
85: FND_LOG.MESSAGE (l_excep_level , 'igi.plsql.igidunob.IGI_DUN_LETTER_SETS_PKG.Lock_Row',FALSE);
86: END IF;
87: --bug 3199481 fnd logging changes: sdixit: end block
88: APP_EXCEPTION.Raise_Exception;
89: end if;
83: --bug 3199481 fnd logging changes: sdixit: start block
84: IF (l_excep_level >= l_debug_level ) THEN
85: FND_LOG.MESSAGE (l_excep_level , 'igi.plsql.igidunob.IGI_DUN_LETTER_SETS_PKG.Lock_Row',FALSE);
86: END IF;
87: --bug 3199481 fnd logging changes: sdixit: end block
88: APP_EXCEPTION.Raise_Exception;
89: end if;
90: CLOSE C;
91: if (
96: ) then
97: return;
98: else
99: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
100: --bug 3199481 fnd logging changes: sdixit: start block
101: IF (l_excep_level >= l_debug_level ) THEN
102: FND_LOG.MESSAGE (l_excep_level , 'igi.plsql.igidunob.IGI_DUN_LETTER_SETS_PKG.Lock_Row',FALSE);
103: END IF;
104: --bug 3199481 fnd logging changes: sdixit: end block
98: else
99: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
100: --bug 3199481 fnd logging changes: sdixit: start block
101: IF (l_excep_level >= l_debug_level ) THEN
102: FND_LOG.MESSAGE (l_excep_level , 'igi.plsql.igidunob.IGI_DUN_LETTER_SETS_PKG.Lock_Row',FALSE);
103: END IF;
104: --bug 3199481 fnd logging changes: sdixit: end block
105: APP_EXCEPTION.Raise_Exception;
106: end if;
100: --bug 3199481 fnd logging changes: sdixit: start block
101: IF (l_excep_level >= l_debug_level ) THEN
102: FND_LOG.MESSAGE (l_excep_level , 'igi.plsql.igidunob.IGI_DUN_LETTER_SETS_PKG.Lock_Row',FALSE);
103: END IF;
104: --bug 3199481 fnd logging changes: sdixit: end block
105: APP_EXCEPTION.Raise_Exception;
106: end if;
107: END Lock_Row;
108: