1: PACKAGE BODY IGI_MPP_AP_INVOICE_DISTS_PKG as
2: /* $Header: igipmudb.pls 115.7 2003/12/01 16:13:45 sdixit ship $ */
3:
4: --bug 3199481: following variables added for fnd logging changes:sdixit :start
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_MPP_AP_INVOICE_DISTS_PKG as
2: /* $Header: igipmudb.pls 115.7 2003/12/01 16:13:45 sdixit ship $ */
3:
4: --bug 3199481: following variables added for fnd logging changes:sdixit :start
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: igipmudb.pls 115.7 2003/12/01 16:13:45 sdixit ship $ */
3:
4: --bug 3199481: following variables added for fnd logging changes:sdixit :start
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: --bug 3199481: following variables added for fnd logging changes:sdixit :start
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: --bug 3199481: following variables added for fnd logging changes:sdixit :start
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 Lock_Row(X_Rowid 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 Lock_Row(X_Rowid VARCHAR2,
14: X_Distribution_Line_Number 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 Lock_Row(X_Rowid VARCHAR2,
14: X_Distribution_Line_Number NUMBER,
15: X_Invoice_Id NUMBER,
32: FETCH C INTO Recinfo;
33: if (C%NOTFOUND) then
34: CLOSE C;
35: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
36: --bug 3199481: fnd logging changes:sdixit :start
37: IF (l_error_level >= l_debug_level ) THEN
38: FND_LOG.MESSAGE (l_error_level , 'igi.pls.igipmudb.IGI_MPP_AP_INVOICE_DISTS_PKG.Lock_Row.FORM_RECORD_DELETED',FALSE);
39: END IF;
40: --bug 3199481 fnd logging changes: sdixit: end block
34: CLOSE C;
35: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
36: --bug 3199481: fnd logging changes:sdixit :start
37: IF (l_error_level >= l_debug_level ) THEN
38: FND_LOG.MESSAGE (l_error_level , 'igi.pls.igipmudb.IGI_MPP_AP_INVOICE_DISTS_PKG.Lock_Row.FORM_RECORD_DELETED',FALSE);
39: END IF;
40: --bug 3199481 fnd logging changes: sdixit: end block
41: APP_EXCEPTION.Raise_Exception;
42: end if;
36: --bug 3199481: fnd logging changes:sdixit :start
37: IF (l_error_level >= l_debug_level ) THEN
38: FND_LOG.MESSAGE (l_error_level , 'igi.pls.igipmudb.IGI_MPP_AP_INVOICE_DISTS_PKG.Lock_Row.FORM_RECORD_DELETED',FALSE);
39: END IF;
40: --bug 3199481 fnd logging changes: sdixit: end block
41: APP_EXCEPTION.Raise_Exception;
42: end if;
43: CLOSE C;
44: if (
58: ) then
59: return;
60: else
61: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
62: --bug 3199481: fnd logging changes:sdixit :start
63: IF (l_error_level >= l_debug_level ) THEN
64: FND_LOG.MESSAGE (l_error_level , 'igi.pls.igipmerb.IGI_MPP_EXPENSE_RULES_PKG.Lock_Row.FORM_RECORD_CHANGED',FALSE);
65: END IF;
66: --bug 3199481 fnd logging changes: sdixit: end block
60: else
61: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
62: --bug 3199481: fnd logging changes:sdixit :start
63: IF (l_error_level >= l_debug_level ) THEN
64: FND_LOG.MESSAGE (l_error_level , 'igi.pls.igipmerb.IGI_MPP_EXPENSE_RULES_PKG.Lock_Row.FORM_RECORD_CHANGED',FALSE);
65: END IF;
66: --bug 3199481 fnd logging changes: sdixit: end block
67: APP_EXCEPTION.Raise_Exception;
68: end if;
62: --bug 3199481: fnd logging changes:sdixit :start
63: IF (l_error_level >= l_debug_level ) THEN
64: FND_LOG.MESSAGE (l_error_level , 'igi.pls.igipmerb.IGI_MPP_EXPENSE_RULES_PKG.Lock_Row.FORM_RECORD_CHANGED',FALSE);
65: END IF;
66: --bug 3199481 fnd logging changes: sdixit: end block
67: APP_EXCEPTION.Raise_Exception;
68: end if;
69: END Lock_Row;
70:
93: last_update_login = X_Last_Update_Login
94: WHERE rowid = X_Rowid;
95:
96: if (SQL%NOTFOUND) then
97: --bug 3199481: fnd logging changes:sdixit :start
98: IF (l_error_level >= l_debug_level ) THEN
99: FND_LOG.MESSAGE (l_error_level , 'igi.pls.igipmudb.IGI_MPP_AP_INVOICE_DISTS_PKG.Update_Row.NO_DATA_FOUND',FALSE);
100: END IF;
101: --bug 3199481 fnd logging changes: sdixit: end block
95:
96: if (SQL%NOTFOUND) then
97: --bug 3199481: fnd logging changes:sdixit :start
98: IF (l_error_level >= l_debug_level ) THEN
99: FND_LOG.MESSAGE (l_error_level , 'igi.pls.igipmudb.IGI_MPP_AP_INVOICE_DISTS_PKG.Update_Row.NO_DATA_FOUND',FALSE);
100: END IF;
101: --bug 3199481 fnd logging changes: sdixit: end block
102: Raise NO_DATA_FOUND;
103: end if;
97: --bug 3199481: fnd logging changes:sdixit :start
98: IF (l_error_level >= l_debug_level ) THEN
99: FND_LOG.MESSAGE (l_error_level , 'igi.pls.igipmudb.IGI_MPP_AP_INVOICE_DISTS_PKG.Update_Row.NO_DATA_FOUND',FALSE);
100: END IF;
101: --bug 3199481 fnd logging changes: sdixit: end block
102: Raise NO_DATA_FOUND;
103: end if;
104: END Update_Row;
105: