[Home] [Help]
PACKAGE BODY: APPS.IGI_AP_INVOICE_PKG
Source
1 PACKAGE BODY IGI_AP_INVOICE_PKG as
2 -- $Header: igisiafb.pls 120.3.12000000.1 2007/09/12 11:47:47 mbremkum ship $
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;
12
13
14 PROCEDURE Lock_Row(X_Rowid VARCHAR2
15 ,X_Invoice_Id NUMBER
16 ) IS
17 CURSOR C IS
18 SELECT *
19 FROM AP_INVOICES
20 WHERE rowid = X_Rowid
21 FOR UPDATE of Invoice_Id NOWAIT;
22 Recinfo C%ROWTYPE;
23 BEGIN
24 OPEN C;
25 FETCH C INTO Recinfo;
26 if (C%NOTFOUND) then
27 CLOSE C;
28 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
29 --Bug 3199481 (start)
30 If (l_unexp_level >= l_debug_level) then
31 FND_LOG.MESSAGE(l_unexp_level,'igi.plsql.igi_ap_invoice_pkg.lock_row.Msg1',FALSE);
32 End if;
33 --Bug 3199481 (end)
34 APP_EXCEPTION.Raise_Exception;
35 end if;
36 CLOSE C;
37 if (
38 (Recinfo.invoice_id = X_Invoice_Id)
39 ) then
40 return;
41 else
42 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
43 --Bug 3199481 (start)
44 If (l_unexp_level >= l_debug_level) then
45 FND_LOG.MESSAGE(l_unexp_level,'igi.plsql.igi_ap_invoice_pkg.lock_row.Msg2',FALSE);
46 End if;
47 --Bug 3199481 (end)
48 APP_EXCEPTION.Raise_Exception;
49 end if;
50 END Lock_Row;
51
52
53 PROCEDURE Update_Row (X_Rowid VARCHAR2
54 ,X_igi_sap_flag VARCHAR2
55 ,X_Last_Update_Login NUMBER
56 ,X_Last_Update_Date DATE
57 ,X_Last_Updated_By NUMBER
58 ) IS
59 BEGIN
60 UPDATE IGI_INVOICE_DISTRIBUTIONS_ALL
61 SET
62 igi_sap_flag = X_igi_sap_flag,
63 last_update_login = X_Last_Update_Login,
64 last_updated_by = X_Last_Updated_By,
65 last_update_date = X_Last_Update_Date
66 WHERE rowid = X_Rowid;
67 if (SQL%NOTFOUND) then
68 Raise NO_DATA_FOUND;
69 end if;
70 END Update_Row;
71 END IGI_AP_INVOICE_PKG;