1: PACKAGE BODY IGI_AP_INV_LINES_PKG as
2: -- $Header: igisialb.pls 120.1.12000000.1 2007/09/12 11:47:57 mbremkum noship $
3:
4: l_debug_level number:=FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5:
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;
2: -- $Header: igisialb.pls 120.1.12000000.1 2007/09/12 11:47:57 mbremkum noship $
3:
4: l_debug_level number:=FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5:
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: l_debug_level number:=FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5:
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: l_debug_level number:=FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5:
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:
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:
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:
14: PROCEDURE Lock_Row(X_Rowid VARCHAR2
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:
14: PROCEDURE Lock_Row(X_Rowid VARCHAR2
15: ,X_igi_sap_flag VARCHAR2
38: CLOSE C;
39: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
40: --Bug 3199481 (start)
41: If (l_unexp_level >= l_debug_level) then
42: FND_LOG.MESSAGE(l_unexp_level,'igi.plsql.igi_ap_inv_lines_pkg.lock_row.Msg1',FALSE);
43: End if;
44: --Bug 3199481 (end)
45: APP_EXCEPTION.Raise_Exception;
46: end if;
51: CLOSE C1;
52: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
53: --Bug 3199481 (start)
54: If (l_unexp_level >= l_debug_level) then
55: FND_LOG.MESSAGE(l_unexp_level,'igi.plsql.igi_ap_inv_lines_pkg.lock_row.Msg2',FALSE);
56: End if;
57: --Bug 3199481 (end)
58: APP_EXCEPTION.Raise_Exception;
59: end if;
65: else
66: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
67: --Bug 3199481 (start)
68: If (l_unexp_level >= l_debug_level) then
69: FND_LOG.MESSAGE(l_unexp_level,'igi.plsql.igi_ap_inv_lines_pkg.lock_row.Msg3',FALSE);
70: End if;
71: --Bug 3199481 (end)
72: APP_EXCEPTION.Raise_Exception;
73: end if;