[Home] [Help]
PACKAGE BODY: APPS.IGI_AP_INV_LINES_PKG
Source
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;
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
16 ) IS
17 CURSOR C IS
18 SELECT *
19 FROM AP_INVOICE_LINES_ALL
20 WHERE rowid = X_Rowid
21 FOR UPDATE of invoice_id NOWAIT;
22 Recinfo C%ROWTYPE;
23
24 CURSOR C1 IS
25 SELECT *
26 FROM IGI_INVOICE_LINES_ALL
27 WHERE (invoice_id,line_number,org_id) =
28 (SELECT invoice_id,line_number,org_id
29 FROM AP_INVOICE_LINES_ALL
30 WHERE rowid = X_Rowid)
31 FOR UPDATE of igi_sap_flag NOWAIT;
32 Recinfo1 C1%ROWTYPE;
33 BEGIN
34
35 OPEN C;
36 FETCH C INTO Recinfo;
37 if (C%NOTFOUND) then
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;
47 CLOSE C;
48 OPEN C1;
49 FETCH C1 INTO Recinfo1;
50 if (C1%NOTFOUND) then
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;
60 CLOSE C1;
61 if (
62 (nvl(Recinfo1.igi_sap_flag,'N') = X_igi_sap_flag)
63 ) then
64 return;
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;
74 END Lock_Row;
75
76 PROCEDURE Update_Row (X_Rowid VARCHAR2
77 ,X_igi_sap_flag VARCHAR2
78 ,X_Last_Update_Login NUMBER
79 ,X_Last_Update_Date DATE
80 ,X_Last_Updated_By NUMBER
81 ) IS
82 BEGIN
83 UPDATE IGI_INVOICE_LINES_ALL
84 SET
85 igi_sap_flag = X_igi_sap_flag,
86 last_update_login = X_Last_Update_Login,
87 last_updated_by = X_Last_Updated_By,
88 last_updated_date = X_Last_Update_Date
89 WHERE rowid = X_Rowid;
90 if (SQL%NOTFOUND) then
91 Raise NO_DATA_FOUND;
92 end if;
93 END Update_Row;
94 END IGI_AP_INV_LINES_PKG;