PACKAGE BODY: APPS.IGI_BUD_CODE_COMBINATIONS_PKG

Source

1 PACKAGE BODY IGI_BUD_CODE_COMBINATIONS_PKG as
2 -- $Header: igibudib.pls 120.4 2005/10/30 05:57:53 appldev ship $
3 --
4 
5 --Bug 3199481(Start)
6 
7 l_debug_level   number := FND_LOG.G_CURRENT_RUNTIME_LEVEL ;
8 
9 l_state_level   number := FND_LOG.LEVEL_STATEMENT ;
10 l_proc_level    number := FND_LOG.LEVEL_PROCEDURE ;
11 l_event_level   number := FND_LOG.LEVEL_EVENT ;
12 l_excep_level   number := FND_LOG.LEVEL_EXCEPTION ;
13 l_error_level   number := FND_LOG.LEVEL_ERROR ;
14 l_unexp_level   number := FND_LOG.LEVEL_UNEXPECTED ;
15 
16 --Bug 3199481(End)
17 
18   PROCEDURE Lock_Row(X_Rowid                            VARCHAR2,
19                      X_Code_Combination_Id              NUMBER,
20                      X_Igi_Balanced_Budget_Flag         VARCHAR2
21   ) IS
22     CURSOR C IS
23         SELECT *
24         FROM   GL_CODE_COMBINATIONS
25         WHERE  rowid = X_Rowid
26         FOR UPDATE of igi_balanced_budget_flag NOWAIT;
27     Recinfo C%ROWTYPE;
28 
29   BEGIN
30     OPEN C;
31     FETCH C INTO Recinfo;
32     if (C%NOTFOUND) then
33       CLOSE C;
34       FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
35       --Bug 3199481 (start)
36       If (l_unexp_level >= l_debug_level) then
37             FND_LOG.MESSAGE(l_unexp_level,'igi.plsql.igi_bud_code_combinations_pkg.lock_row.Msg1',FALSE);
38       End if;
39       --Bug 3199481 (End)
40       APP_EXCEPTION.Raise_Exception;
41     end if;
42     CLOSE C;
43     if ( (Recinfo.code_combination_id    =  X_Code_Combination_Id   )
44         AND ( (Recinfo.igi_balanced_budget_flag =  X_igi_balanced_budget_flag )
45 	     OR (  (Recinfo.igi_balanced_budget_flag IS NULL)
46 		 AND  (X_igi_balanced_budget_flag IS NULL)))
47         ) then
48       return;
49     else
50       FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
51       --Bug 3199481 (start)
52       If (l_unexp_level >= l_debug_level) then
53             FND_LOG.MESSAGE(l_unexp_level,'igi.plsql.igi_bud_journals_periods_pkg.lock_row.Msg2',FALSE);
54       End if;
55       --Bug 3199481 (End)
56       APP_EXCEPTION.Raise_Exception;
57     end if;
58   END Lock_Row;
59 
60 
61   PROCEDURE Update_Row(X_Rowid                   IN OUT NOCOPY VARCHAR2,
62                        X_Code_Combination_Id             NUMBER,
63                        X_Igi_Balanced_Budget_Flag       VARCHAR2,
64                        X_Last_Update_Date               DATE,
65                        X_Last_Updated_By                NUMBER
66   ) IS
67   BEGIN
68     UPDATE GL_CODE_COMBINATIONS
69     SET
70        igi_balanced_budget_flag        =     X_igi_balanced_budget_flag,
71        last_update_date                =     X_Last_Update_Date,
72        last_updated_by                 =     X_Last_Updated_By
73     WHERE rowid = X_Rowid;
74 
75     if (SQL%NOTFOUND) then
76       Raise NO_DATA_FOUND;
77     end if;
78   END Update_Row;
79 
80 
81 END IGI_BUD_CODE_COMBINATIONS_PKG;