[Home] [Help]
PACKAGE BODY: APPS.IGI_IGI_EER_SETUP_PKG
Source
1 PACKAGE BODY IGI_IGI_EER_SETUP_PKG as
2 -- $Header: igihglab.pls 120.4.12000000.1 2007/09/12 10:11:39 mbremkum ship $
3 --following variables added for bug 3199481: fnd logging changes: sdixit
4 l_debug_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5 l_state_level number := FND_LOG.LEVEL_STATEMENT;
6 l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
7 l_event_level number := FND_LOG.LEVEL_EVENT;
8 l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
9 l_error_level number := FND_LOG.LEVEL_ERROR;
10 l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
11
12 PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
13 X_Gl_Set_Of_Books_Id NUMBER,
14 X_Level_1 NUMBER,
15 X_Level_2 NUMBER,
16 X_Level_3 NUMBER,
17 X_Level_4 NUMBER,
18 X_Level_5 NUMBER,
19 X_Level_6 NUMBER,
20 X_Creation_Date DATE,
21 X_Created_By NUMBER,
22 X_Last_Update_Date DATE,
23 X_Last_Updated_By NUMBER,
24 X_Last_Update_Login NUMBER
25 ) IS
26 CURSOR C IS SELECT rowid FROM IGI_EER_SETUP
27 WHERE gl_set_of_books_id = X_Gl_Set_Of_Books_Id;
28 BEGIN
29 INSERT INTO IGI_EER_SETUP(
30 gl_set_of_books_id,
31 level_1,
32 level_2,
33 level_3,
34 level_4,
35 level_5,
36 level_6,
37 creation_date,
38 created_by,
39 last_update_date,
40 last_updated_by,
41 last_update_login
42 ) VALUES (
43 X_Gl_Set_Of_Books_Id,
44 X_Level_1,
45 X_Level_2,
46 X_Level_3,
47 X_Level_4,
48 X_Level_5,
49 X_Level_6,
50 X_Creation_Date,
51 X_Created_By,
52 X_Last_Update_Date,
53 X_Last_Updated_By,
54 X_Last_Update_Login
55 );
56
57 OPEN C;
58 FETCH C INTO X_Rowid;
59 if (C%NOTFOUND) then
60 CLOSE C;
61 Raise NO_DATA_FOUND;
62 end if;
63 CLOSE C;
64 END Insert_Row;
65
66 PROCEDURE Lock_Row(X_Rowid VARCHAR2,
67 X_Gl_Set_Of_Books_Id NUMBER,
68 X_Level_1 NUMBER,
69 X_Level_2 NUMBER,
70 X_Level_3 NUMBER,
71 X_Level_4 NUMBER,
72 X_Level_5 NUMBER,
73 X_Level_6 NUMBER
74 ) IS
75 CURSOR C IS
76 SELECT *
77 FROM IGI_EER_SETUP
78 WHERE rowid = X_Rowid
79 FOR UPDATE of Gl_Set_Of_Books_Id NOWAIT;
80 Recinfo C%ROWTYPE;
81
82 BEGIN
83 OPEN C;
84 FETCH C INTO Recinfo;
85 if (C%NOTFOUND) then
86 CLOSE C;
87 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
88 --bug 3199481 fnd logging changes: sdixit: start block
89 IF (l_excep_level >= l_debug_level ) THEN
90 FND_LOG.MESSAGE (l_excep_level , 'igi.plsql.igihglab.IGI_IGI_ERR_SETUP_PKG.Lock_Row',FALSE);
91 END IF;
92 --bug 3199481 fnd logging changes: sdixit: end block
93 APP_EXCEPTION.Raise_Exception;
94 end if;
95 CLOSE C;
96 if (
97 (Recinfo.gl_set_of_books_id = X_Gl_Set_Of_Books_Id)
98 AND (Recinfo.level_1 = X_Level_1)
99 AND (Recinfo.level_2 = X_Level_2)
100 AND (Recinfo.level_3 = X_Level_3)
101 AND (Recinfo.level_4 = X_Level_4)
102 AND ( (Recinfo.level_5 = X_Level_5)
103 OR ( (Recinfo.level_5 IS NULL)
104 AND (X_Level_5 IS NULL)))
105 AND ( (Recinfo.level_6 = X_Level_6)
106 OR ( (Recinfo.level_6 IS NULL)
107 AND (X_Level_6 IS NULL)))
108 ) then
109 return;
110 else
111 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
112 --bug 3199481 fnd logging changes: sdixit: start block
113 IF (l_excep_level >= l_debug_level ) THEN
114 FND_LOG.MESSAGE (l_excep_level , 'igi.plsql.igihglab.IGI_IGI_ERR_SETUP_PKG.Lock_Row',FALSE);
115 END IF;
116 --bug 3199481 fnd logging changes: sdixit: end block
117 APP_EXCEPTION.Raise_Exception;
118 end if;
119 END Lock_Row;
120
121 PROCEDURE Update_Row(X_Rowid VARCHAR2,
122 X_Gl_Set_Of_Books_Id NUMBER,
123 X_Level_1 NUMBER,
124 X_Level_2 NUMBER,
125 X_Level_3 NUMBER,
126 X_Level_4 NUMBER,
127 X_Level_5 NUMBER,
128 X_Level_6 NUMBER,
129 X_Last_Update_Date DATE,
130 X_Last_Updated_By NUMBER,
131 X_Last_Update_Login NUMBER
132 ) IS
133 BEGIN
134 UPDATE IGI_EER_SETUP
135 SET
136 gl_set_of_books_id = X_Gl_Set_Of_Books_Id,
137 level_1 = X_Level_1,
138 level_2 = X_Level_2,
139 level_3 = X_Level_3,
140 level_4 = X_Level_4,
141 level_5 = X_Level_5,
142 level_6 = X_Level_6,
143 last_update_date = X_Last_Update_Date,
144 last_updated_by = X_Last_Updated_By,
145 last_update_login = X_Last_Update_Login
146 WHERE rowid = X_Rowid;
147
148 if (SQL%NOTFOUND) then
149 Raise NO_DATA_FOUND;
150 end if;
151 END Update_Row;
152
153 END IGI_IGI_EER_SETUP_PKG;