[Home] [Help]
PACKAGE BODY: APPS.GL_CONS_MAPPING_SET_PKG
Source
1 PACKAGE BODY GL_CONS_MAPPING_SET_PKG as
2 /* $Header: glicompb.pls 120.11 2005/05/05 01:05:36 kvora ship $ */
3 --
4 -- PUBLIC PROCEDURES
5 --
6
7 --** Added Security_Flag column for DAS Project
8 PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
9 X_Consolidation_Set_Id IN OUT NOCOPY NUMBER,
10 X_Parent_Ledger_Id IN OUT NOCOPY NUMBER,
11 X_Consolidation_Set_Name VARCHAR2,
12 X_Last_Update_Date DATE,
13 X_Last_Updated_By NUMBER,
14 X_Creation_Date DATE,
15 X_Created_By NUMBER,
16 X_Last_Update_Login NUMBER,
17 X_Description VARCHAR2,
18 X_Context VARCHAR2,
19 X_Method VARCHAR2,
20 X_Run_Journal_Import_Flag VARCHAR2,
21 X_Audit_Mode_Flag VARCHAR2,
22 X_Summarize_Lines_Flag VARCHAR2,
23 X_Run_Posting_Flag VARCHAR2,
24 X_Security_Flag VARCHAR2,
25 X_Attribute1 VARCHAR2,
26 X_Attribute2 VARCHAR2,
27 X_Attribute3 VARCHAR2,
28 X_Attribute4 VARCHAR2,
29 X_Attribute5 VARCHAR2,
30 X_Attribute6 VARCHAR2,
31 X_Attribute7 VARCHAR2,
32 X_Attribute8 VARCHAR2,
33 X_Attribute9 VARCHAR2,
34 X_Attribute10 VARCHAR2,
35 X_Attribute11 VARCHAR2,
36 X_Attribute12 VARCHAR2,
37 X_Attribute13 VARCHAR2,
38 X_Attribute14 VARCHAR2,
39 X_Attribute15 VARCHAR2
40 ) IS
41 CURSOR C IS SELECT rowid FROM GL_CONSOLIDATION_SETS
42 WHERE consolidation_set_id = X_Consolidation_Set_Id;
43
44 BEGIN
45
46 INSERT INTO GL_CONSOLIDATION_SETS(
47 consolidation_set_id,
48 to_ledger_id,
49 name,
50 last_update_date,
51 last_updated_by,
52 creation_date,
53 created_by,
54 last_update_login,
55 description,
56 context,
57 method,
58 run_journal_import_flag,
59 audit_mode_flag,
60 summarize_lines_flag,
61 run_posting_flag,
62 security_flag,
63 attribute1,
64 attribute2,
65 attribute3,
66 attribute4,
67 attribute5,
68 attribute6,
69 attribute7,
70 attribute8,
71 attribute9,
72 attribute10,
73 attribute11,
74 attribute12,
75 attribute13,
76 attribute14,
77 attribute15
78 ) VALUES (
79 X_Consolidation_Set_Id,
80 X_Parent_Ledger_Id,
81 X_Consolidation_Set_Name,
82 X_Last_Update_Date,
83 X_Last_Updated_By,
84 X_Creation_Date,
85 X_Created_By,
86 X_Last_Update_Login,
87 X_Description,
88 X_Context,
89 X_Method,
90 X_Run_journal_import_flag,
91 X_Audit_mode_flag,
92 X_Summarize_lines_flag,
93 X_Run_posting_flag,
94 X_Security_Flag,
95 X_Attribute1,
96 X_Attribute2,
97 X_Attribute3,
98 X_Attribute4,
99 X_Attribute5,
100 X_Attribute6,
101 X_Attribute7,
102 X_Attribute8,
103 X_Attribute9,
104 X_Attribute10,
105 X_Attribute11,
106 X_Attribute12,
107 X_Attribute13,
108 X_Attribute14,
109 X_Attribute15
110 );
111
112 OPEN C;
113 FETCH C INTO X_Rowid;
114 if (C%NOTFOUND) then
115 CLOSE C;
116 RAISE NO_DATA_FOUND;
117 end if;
118 CLOSE C;
119 END Insert_Row;
120
121 --** Added Security_Flag column for DAS Project
122 PROCEDURE Update_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
123 X_Consolidation_Set_Id IN OUT NOCOPY NUMBER,
124 X_Parent_Ledger_Id IN OUT NOCOPY NUMBER,
125 X_Consolidation_Set_Name VARCHAR2,
126 X_Last_Update_Date DATE,
127 X_Last_Updated_By NUMBER,
128 X_Creation_Date DATE,
129 X_Created_By NUMBER,
130 X_Last_Update_Login NUMBER,
131 X_Description VARCHAR2,
132 X_Context VARCHAR2,
133 X_Method VARCHAR2,
134 X_Run_Journal_Import_Flag VARCHAR2,
135 X_Audit_Mode_Flag VARCHAR2,
136 X_Summarize_Lines_Flag VARCHAR2,
137 X_Run_Posting_Flag VARCHAR2,
138 X_Security_Flag VARCHAR2,
139 X_Attribute1 VARCHAR2,
140 X_Attribute2 VARCHAR2,
141 X_Attribute3 VARCHAR2,
142 X_Attribute4 VARCHAR2,
143 X_Attribute5 VARCHAR2,
144 X_Attribute6 VARCHAR2,
145 X_Attribute7 VARCHAR2,
146 X_Attribute8 VARCHAR2,
147 X_Attribute9 VARCHAR2,
148 X_Attribute10 VARCHAR2,
149 X_Attribute11 VARCHAR2,
150 X_Attribute12 VARCHAR2,
151 X_Attribute13 VARCHAR2,
152 X_Attribute14 VARCHAR2,
153 X_Attribute15 VARCHAR2
154 ) IS
155
156 BEGIN
157
158 UPDATE GL_CONSOLIDATION_SETS
159 SET
160 consolidation_set_id = X_Consolidation_Set_Id,
161 to_ledger_id = X_parent_ledger_id,
162 name = X_Consolidation_Set_Name,
163 last_update_date = X_Last_Update_Date,
164 last_updated_by = X_Last_Updated_By,
165 creation_date = X_Creation_Date,
166 created_by = X_Created_By,
167 last_update_login = X_Last_Update_Login,
168 description = X_Description,
169 context = X_Context,
170 method = X_Method,
171 run_journal_import_flag = X_Run_Journal_Import_Flag,
172 audit_mode_flag = X_Audit_Mode_Flag,
173 summarize_lines_flag = X_Summarize_Lines_Flag,
174 run_posting_flag = X_Run_Posting_Flag,
175 security_flag = X_Security_Flag,
176 attribute1 = X_Attribute1,
177 attribute2 = X_Attribute2,
178 attribute3 = X_Attribute3,
179 attribute4 = X_Attribute4,
180 attribute5 = X_Attribute5,
181 attribute6 = X_Attribute6,
182 attribute7 = X_Attribute7,
183 attribute8 = X_Attribute8,
184 attribute9 = X_Attribute9,
185 attribute10 = X_Attribute10,
186 attribute11 = X_Attribute11,
187 attribute12 = X_Attribute12,
188 attribute13 = X_Attribute13,
189 attribute14 = X_Attribute14,
190 attribute15 = X_Attribute15
191 WHERE rowid = X_rowid;
192
193 IF ( SQL%NOTFOUND ) THEN
194 RAISE NO_DATA_FOUND;
195 END IF;
196
197 END Update_Row;
198
199 --** Added Security_Flag column for DAS Project
200 PROCEDURE Lock_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
201 X_Consolidation_Set_Id IN OUT NOCOPY NUMBER,
202 X_Parent_Ledger_Id IN OUT NOCOPY NUMBER,
203 X_Consolidation_Set_Name VARCHAR2,
204 X_Last_Update_Date DATE,
205 X_Last_Updated_By NUMBER,
206 X_Creation_Date DATE,
207 X_Created_By NUMBER,
208 X_Last_Update_Login NUMBER,
209 X_Description VARCHAR2,
210 X_Context VARCHAR2,
211 X_Method VARCHAR2,
212 X_Run_Journal_Import_Flag VARCHAR2,
213 X_Audit_Mode_Flag VARCHAR2,
214 X_Summarize_Lines_Flag VARCHAR2,
215 X_Run_Posting_Flag VARCHAR2,
216 X_Security_Flag VARCHAR2,
217 X_Attribute1 VARCHAR2,
218 X_Attribute2 VARCHAR2,
219 X_Attribute3 VARCHAR2,
220 X_Attribute4 VARCHAR2,
221 X_Attribute5 VARCHAR2,
222 X_Attribute6 VARCHAR2,
223 X_Attribute7 VARCHAR2,
224 X_Attribute8 VARCHAR2,
225 X_Attribute9 VARCHAR2,
226 X_Attribute10 VARCHAR2,
227 X_Attribute11 VARCHAR2,
228 X_Attribute12 VARCHAR2,
229 X_Attribute13 VARCHAR2,
230 X_Attribute14 VARCHAR2,
231 X_Attribute15 VARCHAR2
232 ) IS
233 CURSOR C IS SELECT * FROM GL_CONSOLIDATION_SETS
234 WHERE rowid = X_Rowid
235 FOR UPDATE of consolidation_set_id NOWAIT;
236 Recinfo C%ROWTYPE;
237
238 BEGIN
239
240 OPEN C;
241
242 FETCH C INTO Recinfo;
243
244 IF ( C%NOTFOUND ) THEN
245 CLOSE C;
246 RAISE NO_DATA_FOUND;
247 END IF;
248
249 CLOSE C;
250
251 IF (
252 ( Recinfo.consolidation_set_id = X_Consolidation_Set_id
253 OR ( ( Recinfo.consolidation_set_id IS NULL )
254 AND ( X_Consolidation_Set_Id IS NULL ) ) )
255 AND ( Recinfo.to_ledger_id = X_Parent_Ledger_Id
256 OR ( ( Recinfo.to_ledger_id IS NULL )
257 AND ( X_Parent_Ledger_Id IS NULL ) ) )
258 AND ( Recinfo.name = X_Consolidation_Set_Name
259 OR ( ( Recinfo.name IS NULL )
260 AND ( X_Consolidation_Set_Name IS NULL ) ) )
261 AND ( Recinfo.creation_date = X_Creation_Date
262 OR ( ( Recinfo.creation_date IS NULL )
263 AND ( X_Creation_Date IS NULL ) ) )
264 AND ( Recinfo.created_by = X_Created_By
265 OR ( ( Recinfo.created_by IS NULL )
266 AND ( X_Created_By IS NULL ) ) )
267 AND ( Recinfo.last_update_date = X_Last_Update_Date
268 OR ( ( Recinfo.last_update_date IS NULL )
269 AND ( X_Last_Update_Date IS NULL ) ) )
270 AND ( Recinfo.last_updated_by = X_Last_Updated_By
271 OR ( ( Recinfo.last_updated_by IS NULL )
272 AND ( X_Last_Updated_By IS NULL ) ) )
273 AND ( Recinfo.last_update_login = X_Last_Update_Login
274 OR ( ( Recinfo.last_update_login IS NULL )
275 AND ( X_Last_Update_Login IS NULL ) ) )
276 AND ( Recinfo.description = X_Description
277 OR ( ( Recinfo.description IS NULL )
278 AND ( X_Description IS NULL ) ) )
279 AND ( Recinfo.context = X_Context
280 OR ( ( Recinfo.context IS NULL )
281 AND ( X_Context IS NULL ) ) )
282 AND ( Recinfo.method = X_Method
283 OR ( ( Recinfo.method IS NULL )
284 AND ( X_Method IS NULL ) ) )
285 AND ( Recinfo.run_journal_import_flag = X_Run_Journal_Import_Flag
286 OR ( ( Recinfo.run_journal_import_flag IS NULL )
287 AND ( X_Run_Journal_Import_Flag IS NULL ) ) )
288 AND ( Recinfo.audit_mode_flag = X_Audit_Mode_Flag
289 OR ( ( Recinfo.audit_mode_flag IS NULL )
290 AND ( X_Audit_Mode_Flag IS NULL ) ) )
291 AND ( Recinfo.summarize_lines_flag = X_Summarize_Lines_Flag
292 OR ( ( Recinfo.summarize_lines_flag IS NULL )
293 AND ( X_Summarize_Lines_Flag IS NULL ) ) )
294 AND ( Recinfo.run_posting_flag = X_Run_Posting_Flag
295 OR ( ( Recinfo.run_posting_flag IS NULL )
296 AND ( X_Run_Posting_Flag IS NULL ) ) )
297 AND ( Recinfo.security_flag = X_Security_Flag
298 OR ( ( Recinfo.security_flag IS NULL )
299 AND ( X_Security_Flag IS NULL ) ) )
300 AND ( Recinfo.attribute1 = X_Attribute1
301 OR ( ( Recinfo.attribute1 IS NULL )
302 AND ( X_Attribute1 IS NULL ) ) )
303 AND ( Recinfo.attribute2 = X_Attribute2
304 OR ( ( Recinfo.attribute2 IS NULL )
305 AND ( X_Attribute2 IS NULL ) ) )
306 AND ( Recinfo.attribute3 = X_Attribute3
307 OR ( ( Recinfo.attribute3 IS NULL )
308 AND ( X_Attribute3 IS NULL ) ) )
309 AND ( Recinfo.attribute4 = X_Attribute4
310 OR ( ( Recinfo.attribute4 IS NULL )
311 AND ( X_Attribute4 IS NULL ) ) )
312 AND ( Recinfo.attribute5 = X_Attribute5
313 OR ( ( Recinfo.attribute5 IS NULL )
314 AND ( X_Attribute5 IS NULL ) ) )
315 AND ( Recinfo.attribute6 = X_Attribute6
316 OR ( ( Recinfo.attribute6 IS NULL )
317 AND ( X_Attribute6 IS NULL ) ) )
318 AND ( Recinfo.attribute7 = X_Attribute7
319 OR ( ( Recinfo.attribute7 IS NULL )
320 AND ( X_Attribute7 IS NULL ) ) )
321 AND ( Recinfo.attribute8 = X_Attribute8
322 OR ( ( Recinfo.attribute8 IS NULL )
323 AND ( X_Attribute8 IS NULL ) ) )
324 AND ( Recinfo.attribute9 = X_Attribute9
325 OR ( ( Recinfo.attribute9 IS NULL )
326 AND ( X_Attribute9 IS NULL ) ) )
327 AND ( Recinfo.attribute10 = X_Attribute10
328 OR ( ( Recinfo.attribute10 IS NULL )
329 AND ( X_Attribute10 IS NULL ) ) )
330 AND ( Recinfo.attribute11 = X_Attribute11
331 OR ( ( Recinfo.attribute11 IS NULL )
332 AND ( X_Attribute11 IS NULL ) ) )
333 AND ( Recinfo.attribute12 = X_Attribute12
334 OR ( ( Recinfo.attribute12 IS NULL )
335 AND ( X_Attribute12 IS NULL ) ) )
336 AND ( Recinfo.attribute13 = X_Attribute13
337 OR ( ( Recinfo.attribute13 IS NULL )
338 AND ( X_Attribute13 IS NULL ) ) )
339 AND ( Recinfo.attribute14 = X_Attribute14
340 OR ( ( Recinfo.attribute14 IS NULL )
341 AND ( X_Attribute14 IS NULL ) ) )
342 AND ( Recinfo.attribute15 = X_Attribute15
343 OR ( ( Recinfo.attribute15 IS NULL )
344 AND ( X_Attribute15 IS NULL ) ) )
345 ) THEN
346 RETURN;
347 ELSE
348 FND_MESSAGE.Set_Name( 'FND', 'FORM_RECORD_CHANGED' );
349 APP_EXCEPTION.RAISE_EXCEPTION;
350 END IF;
351
352 END Lock_Row;
353
354 --** Added Security_Flag column for DAS Project
355 PROCEDURE Delete_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
356 X_Consolidation_Set_Id IN OUT NOCOPY NUMBER,
357 X_Parent_Ledger_Id IN OUT NOCOPY NUMBER,
358 X_Consolidation_Set_Name VARCHAR2,
359 X_Last_Update_Date DATE,
360 X_Last_Updated_By NUMBER,
361 X_Creation_Date DATE,
362 X_Created_By NUMBER,
363 X_Last_Update_Login NUMBER,
364 X_Description VARCHAR2,
365 X_Context VARCHAR2,
366 X_Method VARCHAR2,
367 X_Run_Journal_Import_Flag VARCHAR2,
368 X_Audit_Mode_Flag VARCHAR2,
369 X_Summarize_Lines_Flag VARCHAR2,
370 X_Run_Posting_Flag VARCHAR2,
371 X_Security_Flag VARCHAR2
372 ) IS
373 BEGIN
374
375 DELETE FROM GL_CONSOLIDATION_SETS
376 WHERE rowid = X_Rowid;
377
378 IF ( SQL%NOTFOUND ) THEN
379 RAISE NO_DATA_FOUND;
380 END IF;
381
382 END Delete_Row;
383
384 PROCEDURE Check_Unique_Name(X_Rowid VARCHAR2,
385 X_Name VARCHAR2) IS
386 CURSOR check_dups IS
387 SELECT 1
388 FROM GL_CONSOLIDATION_SETS glc
389 WHERE glc.name = X_Name
390 AND ( X_Rowid is NULL
391 OR glc.rowid <> X_Rowid);
392
393 dummy NUMBER;
394
395 BEGIN
396 OPEN check_dups;
397 FETCH check_dups INTO dummy;
398
399 IF check_dups%FOUND THEN
400 CLOSE check_dups;
401 fnd_message.set_name('SQLGL','GL_DUP_CONSOLIDATION_SETS_NAME');
402 app_exception.raise_exception;
403 END IF;
404
405 CLOSE check_dups;
406 END Check_Unique_Name;
407
408
409 END GL_CONS_MAPPING_SET_PKG;