[Home] [Help]
PACKAGE BODY: APPS.GL_CONS_SET_ASSIGN_PKG
Source
1 PACKAGE BODY GL_CONS_SET_ASSIGN_PKG as
2 /* $Header: glicomab.pls 120.3 2005/05/05 01:05:22 kvora ship $ */
3
4 --
5 -- PUBLIC PROCEDURES
6 --
7
8 PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
9 X_Consolidation_Set_Id IN OUT NOCOPY NUMBER,
10 X_Consolidation_Id IN OUT NOCOPY NUMBER,
11 X_Last_Update_Date DATE,
12 X_Last_Updated_By NUMBER,
13 X_Creation_Date DATE,
14 X_Created_By NUMBER,
15 x_Last_Update_Login NUMBER,
16 X_Context VARCHAR2,
17 X_Child_Cons_Set_Id NUMBER,
18 X_attribute1 VARCHAR2,
19 X_attribute2 VARCHAR2,
20 X_attribute3 VARCHAR2,
21 X_attribute4 VARCHAR2,
22 X_attribute5 VARCHAR2,
23 X_attribute6 VARCHAR2,
24 X_attribute7 VARCHAR2,
25 X_attribute8 VARCHAR2,
26 X_attribute9 VARCHAR2,
27 X_attribute10 VARCHAR2,
28 X_attribute11 VARCHAR2,
29 X_attribute12 VARCHAR2,
30 X_attribute13 VARCHAR2,
31 X_attribute14 VARCHAR2,
32 X_attribute15 VARCHAR2
33 ) IS
34 CURSOR C IS SELECT rowid FROM GL_CONS_SET_ASSIGNMENTS
35 WHERE consolidation_set_id = X_Consolidation_Set_Id;
36 BEGIN
37
38 INSERT INTO GL_CONS_SET_ASSIGNMENTS(
39 consolidation_set_id,
40 consolidation_id,
41 last_update_date,
42 last_updated_by,
43 creation_date,
44 created_by,
45 last_update_login,
46 child_consolidation_set_id,
47 context,
48 attribute1,
49 attribute2,
50 attribute3,
51 attribute4,
52 attribute5,
53 attribute6,
54 attribute7,
55 attribute8,
56 attribute9,
57 attribute10,
58 attribute11,
59 attribute12,
60 attribute13,
61 attribute14,
62 attribute15
63 ) VALUES (
64 X_Consolidation_Set_Id,
65 X_Consolidation_Id,
66 X_Last_Update_Date,
67 X_Last_Updated_By,
68 X_Creation_Date,
69 X_Created_By,
70 X_Last_Update_Login,
71 X_child_cons_set_id,
72 X_Context,
73 X_Attribute1,
74 X_Attribute2,
75 X_Attribute3,
76 X_Attribute4,
77 X_Attribute5,
78 X_Attribute6,
79 X_Attribute7,
80 X_Attribute8,
81 X_Attribute9,
82 X_Attribute10,
83 X_Attribute11,
84 X_Attribute12,
85 X_Attribute13,
86 X_Attribute14,
87 X_Attribute15
88 );
89
90 OPEN C;
91 FETCH C INTO X_Rowid;
92 if (C%NOTFOUND) then
93 CLOSE C;
94 RAISE NO_DATA_FOUND;
95 end if;
96 CLOSE C;
97 END Insert_Row;
98
99 PROCEDURE Update_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
100 X_Consolidation_Set_Id IN OUT NOCOPY NUMBER,
101 X_Consolidation_Id IN OUT NOCOPY NUMBER,
102 X_Last_Update_Date DATE,
103 X_Last_Updated_By NUMBER,
104 X_Creation_Date DATE,
105 X_Created_By NUMBER,
106 X_Last_Update_Login NUMBER,
107 X_Context VARCHAR2,
108 X_Child_Cons_Set_Id NUMBER,
109 X_attribute1 VARCHAR2,
110 X_attribute2 VARCHAR2,
111 X_attribute3 VARCHAR2,
112 X_attribute4 VARCHAR2,
113 X_attribute5 VARCHAR2,
114 X_attribute6 VARCHAR2,
115 X_attribute7 VARCHAR2,
116 X_attribute8 VARCHAR2,
117 X_attribute9 VARCHAR2,
118 X_attribute10 VARCHAR2,
119 X_attribute11 VARCHAR2,
120 X_attribute12 VARCHAR2,
121 X_attribute13 VARCHAR2,
122 X_attribute14 VARCHAR2,
123 X_attribute15 VARCHAR2
124 ) IS
125
126 BEGIN
127
128 UPDATE GL_CONS_SET_ASSIGNMENTS
129 SET
130 consolidation_set_id = X_Consolidation_Set_Id,
131 consolidation_id = X_Consolidation_Id,
132 last_update_date = X_Last_Update_Date,
133 last_updated_by = X_Last_Updated_By,
134 creation_date = X_Creation_Date,
135 created_by = X_Created_By,
136 last_update_login = X_Last_Update_Login,
137 child_consolidation_set_id = X_child_cons_set_id,
138 context = X_Context,
139 attribute1 = X_attribute1 ,
140 attribute2 = X_attribute2 ,
141 attribute3 = X_attribute3 ,
142 attribute4 = X_attribute4 ,
143 attribute5 = X_attribute5 ,
144 attribute6 = X_attribute6 ,
145 attribute7 = X_attribute7 ,
146 attribute8 = X_attribute8 ,
147 attribute9 = X_attribute9 ,
148 attribute10 = X_attribute10,
149 attribute11 = X_attribute11,
150 attribute12 = X_attribute12,
151 attribute13 = X_attribute13,
152 attribute14 = X_attribute14,
153 attribute15 = X_attribute15
154 WHERE rowid = X_rowid;
155
156 IF ( SQL%NOTFOUND ) THEN
157 RAISE NO_DATA_FOUND;
158 END IF;
159
160 END Update_Row;
161
162 PROCEDURE Lock_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
163 X_Consolidation_Set_Id IN OUT NOCOPY NUMBER,
164 X_Consolidation_Id IN OUT NOCOPY NUMBER,
165 X_Last_Update_Date DATE,
166 X_Last_Updated_By NUMBER,
167 X_Creation_Date DATE,
168 X_Created_By NUMBER,
169 X_Last_Update_Login NUMBER,
170 X_Context VARCHAR2,
171 X_attribute1 VARCHAR2,
172 X_attribute2 VARCHAR2,
173 X_attribute3 VARCHAR2,
174 X_attribute4 VARCHAR2,
175 X_attribute5 VARCHAR2,
176 X_attribute6 VARCHAR2,
177 X_attribute7 VARCHAR2,
178 X_attribute8 VARCHAR2,
179 X_attribute9 VARCHAR2,
180 X_attribute10 VARCHAR2,
181 X_attribute11 VARCHAR2,
182 X_attribute12 VARCHAR2,
183 X_attribute13 VARCHAR2,
184 X_attribute14 VARCHAR2,
185 X_attribute15 VARCHAR2
186 ) IS
187 CURSOR C IS SELECT * FROM GL_CONS_SET_ASSIGNMENTS
188 WHERE rowid = X_Rowid
189 FOR UPDATE of consolidation_set_id NOWAIT;
190 Recinfo C%ROWTYPE;
191
192 BEGIN
193
194 OPEN C;
195
196 FETCH C INTO Recinfo;
197
198 IF ( C%NOTFOUND ) THEN
199 CLOSE C;
200 RAISE NO_DATA_FOUND;
201 END IF;
202
203 CLOSE C;
204
205 IF (
206 ( Recinfo.consolidation_set_id = X_Consolidation_Set_id
207 OR ( ( Recinfo.consolidation_set_id IS NULL )
208 AND ( X_Consolidation_Set_Id IS NULL ) ) )
209 AND ( Recinfo.consolidation_id = X_Consolidation_id
210 OR ( ( Recinfo.consolidation_id IS NULL )
211 AND ( X_Consolidation_id IS NULL ) ) )
212 AND ( Recinfo.creation_date = X_Creation_Date
213 OR ( ( Recinfo.creation_date IS NULL )
214 AND ( X_Creation_Date IS NULL ) ) )
215 AND ( Recinfo.created_by = X_Created_By
216 OR ( ( Recinfo.created_by IS NULL )
217 AND ( X_Created_By IS NULL ) ) )
218 AND ( Recinfo.last_update_date = X_Last_Update_Date
219 OR ( ( Recinfo.last_update_date IS NULL )
220 AND ( X_Last_Update_Date IS NULL ) ) )
221 AND ( Recinfo.last_updated_by = X_Last_Updated_By
222 OR ( ( Recinfo.last_updated_by IS NULL )
223 AND ( X_Last_Updated_By IS NULL ) ) )
224 AND ( Recinfo.last_update_login = X_Last_Update_Login
225 OR ( ( Recinfo.last_update_login IS NULL )
226 AND ( X_Last_Update_Login IS NULL ) ) )
227 AND ( Recinfo.context = X_Context
228 OR ( ( Recinfo.context IS NULL )
229 AND ( X_Context IS NULL ) ) )
230 AND ( Recinfo.attribute1 = X_Attribute1
231 OR ( ( Recinfo.attribute1 IS NULL )
232 AND ( X_Attribute1 IS NULL ) ) )
233 AND ( Recinfo.attribute2 = X_Attribute2
234 OR ( ( Recinfo.attribute2 IS NULL )
235 AND ( X_Attribute2 IS NULL ) ) )
236 AND ( Recinfo.attribute3 = X_Attribute3
237 OR ( ( Recinfo.attribute3 IS NULL )
238 AND ( X_Attribute3 IS NULL ) ) )
239 AND ( Recinfo.attribute4 = X_Attribute4
240 OR ( ( Recinfo.attribute4 IS NULL )
241 AND ( X_Attribute4 IS NULL ) ) )
242 AND ( Recinfo.attribute5 = X_Attribute5
243 OR ( ( Recinfo.attribute5 IS NULL )
244 AND ( X_Attribute5 IS NULL ) ) )
245 AND ( Recinfo.attribute6 = X_Attribute6
246 OR ( ( Recinfo.attribute6 IS NULL )
247 AND ( X_Attribute6 IS NULL ) ) )
248 AND ( Recinfo.attribute7 = X_Attribute7
249 OR ( ( Recinfo.attribute7 IS NULL )
250 AND ( X_Attribute7 IS NULL ) ) )
251 AND ( Recinfo.attribute8 = X_Attribute8
252 OR ( ( Recinfo.attribute8 IS NULL )
253 AND ( X_Attribute8 IS NULL ) ) )
254 AND ( Recinfo.attribute9 = X_Attribute9
255 OR ( ( Recinfo.attribute9 IS NULL )
256 AND ( X_Attribute9 IS NULL ) ) )
257 AND ( Recinfo.attribute10 = X_Attribute10
258 OR ( ( Recinfo.attribute10 IS NULL )
259 AND ( X_Attribute10 IS NULL ) ) )
260 AND ( Recinfo.attribute11 = X_Attribute11
261 OR ( ( Recinfo.attribute11 IS NULL )
262 AND ( X_Attribute11 IS NULL ) ) )
263 AND ( Recinfo.attribute12 = X_Attribute12
264 OR ( ( Recinfo.attribute12 IS NULL )
265 AND ( X_Attribute12 IS NULL ) ) )
266 AND ( Recinfo.attribute13 = X_Attribute13
267 OR ( ( Recinfo.attribute13 IS NULL )
268 AND ( X_Attribute13 IS NULL ) ) )
269 AND ( Recinfo.attribute14 = X_Attribute14
270 OR ( ( Recinfo.attribute14 IS NULL )
271 AND ( X_Attribute14 IS NULL ) ) )
272 AND ( Recinfo.attribute15 = X_Attribute15
273 OR ( ( Recinfo.attribute15 IS NULL )
274 AND ( X_Attribute15 IS NULL ) ) )
275 ) THEN
276 RETURN;
277 ELSE
278 FND_MESSAGE.Set_Name( 'FND', 'FORM_RECORD_CHANGED' );
279 APP_EXCEPTION.RAISE_EXCEPTION;
280 END IF;
281
282 END Lock_Row;
283
284 PROCEDURE Delete_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
285 X_Consolidation_Set_Id IN OUT NOCOPY NUMBER,
286 X_Consolidation_Id IN OUT NOCOPY NUMBER,
287 X_Last_Update_Date DATE,
288 X_Last_Updated_By NUMBER,
289 X_Creation_Date DATE,
290 X_Created_By NUMBER,
291 X_Last_Update_Login NUMBER,
292 X_Context VARCHAR2
293 ) IS
294 BEGIN
295
296 DELETE FROM GL_CONS_SET_ASSIGNMENTS
297 WHERE rowid = X_Rowid;
298
299 IF ( SQL%NOTFOUND ) THEN
300 RAISE NO_DATA_FOUND;
301 END IF;
302
303 END Delete_Row;
304
305 PROCEDURE Delete_All_Child_Rows( X_Consolidation_Set_Id IN OUT NOCOPY NUMBER) IS
306 BEGIN
307
308 DELETE FROM GL_CONS_SET_ASSIGNMENTS
309 WHERE consolidation_set_id = X_Consolidation_Set_Id;
310
311 END Delete_All_Child_Rows;
312
313 PROCEDURE Check_Unique_Name(X_Rowid IN OUT NOCOPY VARCHAR2,
314 X_Consolidation_Set_Id IN OUT NOCOPY NUMBER,
315 X_Consolidation_Id IN OUT NOCOPY NUMBER ) IS
316 CURSOR check_dups IS
317 SELECT 1
318 FROM GL_CONS_SET_ASSIGNMENTS gla
319 WHERE gla.consolidation_set_id = X_Consolidation_Set_Id
320 AND gla.consolidation_id = X_consolidation_id
321 AND ( X_Rowid is NULL
322 OR gla.rowid <> X_Rowid);
323
324 dummy NUMBER;
325
326 BEGIN
327 OPEN check_dups;
328 FETCH check_dups INTO dummy;
329
330 IF check_dups%FOUND THEN
331 CLOSE check_dups;
332 fnd_message.set_name('SQLGL','GL_DUP_CONSOLIDATION_NAME');
333 app_exception.raise_exception;
334 END IF;
335
336 CLOSE check_dups;
337 END Check_Unique_Name;
338
339
340 END GL_CONS_SET_ASSIGN_PKG;