[Home] [Help]
PACKAGE BODY: APPS.OZF_ACCTNG_EVENTS_PKG
Source
1 PACKAGE BODY OZF_ACCTNG_EVENTS_PKG as
2 /* $Header: ozftaceb.pls 120.0 2005/06/01 02:57:44 appldev noship $ */
3 -- ===============================================================
4 -- Start of Comments
5 -- Package name
6 -- OZF_ACCTNG_EVENTS_PKG
7 -- Purpose
8 --
9 -- History
10 --
11 -- NOTE
12 --
13 -- End of Comments
14 -- ===============================================================
15
16
17 G_PKG_NAME CONSTANT VARCHAR2(30):= 'OZF_ACCTNG_EVENTS_PKG';
18 G_FILE_NAME CONSTANT VARCHAR2(12) := 'ozftaceb.pls';
19
20
21 ----------------------------------------------------------
22 ---- MEDIA ----
23 ----------------------------------------------------------
24
25 -- ========================================================
26 --
27 -- NAME
28 -- createInsertBody
29 --
30 -- PURPOSE
31 --
32 -- NOTES
33 --
34 -- HISTORY
35 --
36 -- ========================================================
37 PROCEDURE Insert_Row(
38 px_accounting_event_id IN OUT NOCOPY NUMBER,
39 px_object_version_number IN OUT NOCOPY NUMBER,
40 p_last_update_date DATE,
41 p_last_updated_by NUMBER,
42 p_creation_date DATE,
43 p_created_by NUMBER,
44 p_last_update_login NUMBER,
45 p_request_id NUMBER,
46 p_program_application_id NUMBER,
47 p_program_update_date DATE,
48 p_program_id NUMBER,
49 p_accounting_date DATE,
50 p_event_number NUMBER,
51 p_event_status_code VARCHAR2,
52 p_event_type_code VARCHAR2,
53 px_org_id IN OUT NOCOPY NUMBER,
54 p_source_id NUMBER,
55 p_source_table VARCHAR2,
56 p_attribute_category VARCHAR2,
57 p_attribute1 VARCHAR2,
58 p_attribute2 VARCHAR2,
59 p_attribute3 VARCHAR2,
60 p_attribute4 VARCHAR2,
61 p_attribute5 VARCHAR2,
62 p_attribute6 VARCHAR2,
63 p_attribute7 VARCHAR2,
64 p_attribute8 VARCHAR2,
65 p_attribute9 VARCHAR2,
66 p_attribute10 VARCHAR2,
67 p_attribute11 VARCHAR2,
68 p_attribute12 VARCHAR2,
69 p_attribute13 VARCHAR2,
70 p_attribute14 VARCHAR2,
71 p_attribute15 VARCHAR2)
72
73 IS
74 x_rowid VARCHAR2(30);
75
76
77 BEGIN
78
79 IF (px_org_id IS NULL OR px_org_id = FND_API.G_MISS_NUM) THEN
80 SELECT NVL(SUBSTRB(USERENV('CLIENT_INFO'),1,10),-99)
81 INTO px_org_id
82 FROM DUAL;
83 END IF;
84
85
86 px_object_version_number := 1;
87
88
89 INSERT INTO OZF_ACCTNG_EVENTS_ALL(
90 accounting_event_id,
91 object_version_number,
92 last_update_date,
93 last_updated_by,
94 creation_date,
95 created_by,
96 last_update_login,
97 request_id,
98 program_application_id,
99 program_update_date,
100 program_id,
101 accounting_date,
102 event_number,
103 event_status_code,
104 event_type_code,
105 org_id,
106 source_id,
107 source_table,
108 attribute_category,
109 attribute1,
110 attribute2,
111 attribute3,
112 attribute4,
113 attribute5,
114 attribute6,
115 attribute7,
116 attribute8,
117 attribute9,
118 attribute10,
119 attribute11,
120 attribute12,
121 attribute13,
122 attribute14,
123 attribute15
124 ) VALUES (
125 px_accounting_event_id,
126 px_object_version_number,
127 p_last_update_date,
128 p_last_updated_by,
129 p_creation_date,
130 p_created_by,
131 p_last_update_login,
132 p_request_id,
133 p_program_application_id,
134 p_program_update_date,
135 p_program_id,
136 p_accounting_date,
137 p_event_number,
138 p_event_status_code,
139 p_event_type_code,
140 px_org_id,
141 p_source_id,
142 p_source_table,
143 p_attribute_category,
144 p_attribute1,
145 p_attribute2,
146 p_attribute3,
147 p_attribute4,
148 p_attribute5,
149 p_attribute6,
150 p_attribute7,
151 p_attribute8,
152 p_attribute9,
153 p_attribute10,
154 p_attribute11,
155 p_attribute12,
156 p_attribute13,
157 p_attribute14,
158 p_attribute15);
159 END Insert_Row;
160
161
162 ----------------------------------------------------------
163 ---- MEDIA ----
164 ----------------------------------------------------------
165
166 -- ========================================================
167 --
168 -- NAME
169 -- createUpdateBody
170 --
171 -- PURPOSE
172 --
173 -- NOTES
174 --
175 -- HISTORY
176 --
177 -- ========================================================
178 PROCEDURE Update_Row(
179 p_accounting_event_id NUMBER,
180 p_object_version_number NUMBER,
181 p_last_update_date DATE,
182 p_last_updated_by NUMBER,
183 p_last_update_login NUMBER,
184 p_request_id NUMBER,
185 p_program_application_id NUMBER,
186 p_program_update_date DATE,
187 p_program_id NUMBER,
188 p_accounting_date DATE,
189 p_event_number NUMBER,
190 p_event_status_code VARCHAR2,
191 p_event_type_code VARCHAR2,
192 p_org_id NUMBER,
193 p_source_id NUMBER,
194 p_source_table VARCHAR2,
195 p_attribute_category VARCHAR2,
196 p_attribute1 VARCHAR2,
197 p_attribute2 VARCHAR2,
198 p_attribute3 VARCHAR2,
199 p_attribute4 VARCHAR2,
200 p_attribute5 VARCHAR2,
201 p_attribute6 VARCHAR2,
202 p_attribute7 VARCHAR2,
203 p_attribute8 VARCHAR2,
204 p_attribute9 VARCHAR2,
205 p_attribute10 VARCHAR2,
206 p_attribute11 VARCHAR2,
207 p_attribute12 VARCHAR2,
208 p_attribute13 VARCHAR2,
209 p_attribute14 VARCHAR2,
210 p_attribute15 VARCHAR2)
211
212 IS
213 BEGIN
214 Update OZF_ACCTNG_EVENTS_ALL
215 SET
216 accounting_event_id = p_accounting_event_id,
217 object_version_number = p_object_version_number,
218 last_update_date = p_last_update_date,
219 last_updated_by = p_last_updated_by,
220 last_update_login = p_last_update_login,
221 request_id = p_request_id,
222 program_application_id = p_program_application_id,
223 program_update_date = p_program_update_date,
224 program_id = p_program_id,
225 accounting_date = p_accounting_date,
226 event_number = p_event_number,
227 event_status_code = p_event_status_code,
228 event_type_code = p_event_type_code,
229 org_id = p_org_id,
230 source_id = p_source_id,
231 source_table = p_source_table,
232 attribute_category = p_attribute_category,
233 attribute1 = p_attribute1,
234 attribute2 = p_attribute2,
235 attribute3 = p_attribute3,
236 attribute4 = p_attribute4,
237 attribute5 = p_attribute5,
238 attribute6 = p_attribute6,
239 attribute7 = p_attribute7,
240 attribute8 = p_attribute8,
241 attribute9 = p_attribute9,
242 attribute10 = p_attribute10,
243 attribute11 = p_attribute11,
244 attribute12 = p_attribute12,
245 attribute13 = p_attribute13,
246 attribute14 = p_attribute14,
247 attribute15 = p_attribute15
248 WHERE ACCOUNTING_EVENT_ID = p_ACCOUNTING_EVENT_ID
249 AND object_version_number = p_object_version_number;
250
251 IF (SQL%NOTFOUND) THEN
252 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
253 END IF;
254 END Update_Row;
255
256
257 ----------------------------------------------------------
258 ---- MEDIA ----
259 ----------------------------------------------------------
260
261 -- ========================================================
262 --
263 -- NAME
264 -- createDeleteBody
265 --
266 -- PURPOSE
267 --
268 -- NOTES
269 --
270 -- HISTORY
271 --
272 -- ========================================================
273 PROCEDURE Delete_Row(
274 p_ACCOUNTING_EVENT_ID NUMBER)
275 IS
276 BEGIN
277 DELETE FROM OZF_ACCTNG_EVENTS_ALL
278 WHERE ACCOUNTING_EVENT_ID = p_ACCOUNTING_EVENT_ID;
279 If (SQL%NOTFOUND) then
280 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
281 End If;
282 END Delete_Row ;
283
284
285
286 ----------------------------------------------------------
287 ---- MEDIA ----
288 ----------------------------------------------------------
289
290 -- ========================================================
291 --
292 -- NAME
293 -- createLockBody
294 --
295 -- PURPOSE
296 --
297 -- NOTES
298 --
299 -- HISTORY
300 --
301 -- ========================================================
302 PROCEDURE Lock_Row(
303 p_accounting_event_id NUMBER,
304 p_object_version_number NUMBER,
305 p_last_update_date DATE,
306 p_last_updated_by NUMBER,
307 p_creation_date DATE,
308 p_created_by NUMBER,
309 p_last_update_login NUMBER,
310 p_request_id NUMBER,
311 p_program_application_id NUMBER,
312 p_program_update_date DATE,
313 p_program_id NUMBER,
314 p_accounting_date DATE,
315 p_event_number NUMBER,
316 p_event_status_code VARCHAR2,
317 p_event_type_code VARCHAR2,
318 p_org_id NUMBER,
319 p_source_id NUMBER,
320 p_source_table VARCHAR2,
321 p_attribute_category VARCHAR2,
322 p_attribute1 VARCHAR2,
323 p_attribute2 VARCHAR2,
324 p_attribute3 VARCHAR2,
325 p_attribute4 VARCHAR2,
326 p_attribute5 VARCHAR2,
327 p_attribute6 VARCHAR2,
328 p_attribute7 VARCHAR2,
329 p_attribute8 VARCHAR2,
330 p_attribute9 VARCHAR2,
331 p_attribute10 VARCHAR2,
332 p_attribute11 VARCHAR2,
333 p_attribute12 VARCHAR2,
334 p_attribute13 VARCHAR2,
335 p_attribute14 VARCHAR2,
336 p_attribute15 VARCHAR2)
337
338 IS
339 CURSOR C IS
340 SELECT *
341 FROM OZF_ACCTNG_EVENTS_ALL
342 WHERE ACCOUNTING_EVENT_ID = p_ACCOUNTING_EVENT_ID
343 FOR UPDATE of ACCOUNTING_EVENT_ID NOWAIT;
344 Recinfo C%ROWTYPE;
345 BEGIN
346 OPEN c;
347 FETCH c INTO Recinfo;
348 If (c%NOTFOUND) then
349 CLOSE c;
350 FND_MESSAGE.SET_NAME('OZF', 'OZF_API_RECORD_NOT_FOUND');
351 APP_EXCEPTION.RAISE_EXCEPTION;
352 END IF;
353 CLOSE C;
354 IF (
355 ( Recinfo.accounting_event_id = p_accounting_event_id)
356 AND ( ( Recinfo.object_version_number = p_object_version_number)
357 OR ( ( Recinfo.object_version_number IS NULL )
358 AND ( p_object_version_number IS NULL )))
359 AND ( ( Recinfo.last_update_date = p_last_update_date)
360 OR ( ( Recinfo.last_update_date IS NULL )
361 AND ( p_last_update_date IS NULL )))
362 AND ( ( Recinfo.last_updated_by = p_last_updated_by)
363 OR ( ( Recinfo.last_updated_by IS NULL )
364 AND ( p_last_updated_by IS NULL )))
365 AND ( ( Recinfo.creation_date = p_creation_date)
366 OR ( ( Recinfo.creation_date IS NULL )
367 AND ( p_creation_date IS NULL )))
368 AND ( ( Recinfo.created_by = p_created_by)
369 OR ( ( Recinfo.created_by IS NULL )
370 AND ( p_created_by IS NULL )))
371 AND ( ( Recinfo.last_update_login = p_last_update_login)
372 OR ( ( Recinfo.last_update_login IS NULL )
373 AND ( p_last_update_login IS NULL )))
374 AND ( ( Recinfo.request_id = p_request_id)
375 OR ( ( Recinfo.request_id IS NULL )
376 AND ( p_request_id IS NULL )))
377 AND ( ( Recinfo.program_application_id = p_program_application_id)
378 OR ( ( Recinfo.program_application_id IS NULL )
379 AND ( p_program_application_id IS NULL )))
380 AND ( ( Recinfo.program_update_date = p_program_update_date)
381 OR ( ( Recinfo.program_update_date IS NULL )
382 AND ( p_program_update_date IS NULL )))
383 AND ( ( Recinfo.program_id = p_program_id)
384 OR ( ( Recinfo.program_id IS NULL )
385 AND ( p_program_id IS NULL )))
386 AND ( ( Recinfo.accounting_date = p_accounting_date)
387 OR ( ( Recinfo.accounting_date IS NULL )
388 AND ( p_accounting_date IS NULL )))
389 AND ( ( Recinfo.event_number = p_event_number)
390 OR ( ( Recinfo.event_number IS NULL )
391 AND ( p_event_number IS NULL )))
392 AND ( ( Recinfo.event_status_code = p_event_status_code)
393 OR ( ( Recinfo.event_status_code IS NULL )
394 AND ( p_event_status_code IS NULL )))
395 AND ( ( Recinfo.event_type_code = p_event_type_code)
396 OR ( ( Recinfo.event_type_code IS NULL )
397 AND ( p_event_type_code IS NULL )))
398 AND ( ( Recinfo.org_id = p_org_id)
399 OR ( ( Recinfo.org_id IS NULL )
400 AND ( p_org_id IS NULL )))
401 AND ( ( Recinfo.source_id = p_source_id)
402 OR ( ( Recinfo.source_id IS NULL )
403 AND ( p_source_id IS NULL )))
404 AND ( ( Recinfo.source_table = p_source_table)
405 OR ( ( Recinfo.source_table IS NULL )
406 AND ( p_source_table IS NULL )))
407 AND ( ( Recinfo.attribute_category = p_attribute_category)
408 OR ( ( Recinfo.attribute_category IS NULL )
409 AND ( p_attribute_category IS NULL )))
410 AND ( ( Recinfo.attribute1 = p_attribute1)
411 OR ( ( Recinfo.attribute1 IS NULL )
412 AND ( p_attribute1 IS NULL )))
413 AND ( ( Recinfo.attribute2 = p_attribute2)
414 OR ( ( Recinfo.attribute2 IS NULL )
415 AND ( p_attribute2 IS NULL )))
416 AND ( ( Recinfo.attribute3 = p_attribute3)
417 OR ( ( Recinfo.attribute3 IS NULL )
418 AND ( p_attribute3 IS NULL )))
419 AND ( ( Recinfo.attribute4 = p_attribute4)
420 OR ( ( Recinfo.attribute4 IS NULL )
421 AND ( p_attribute4 IS NULL )))
422 AND ( ( Recinfo.attribute5 = p_attribute5)
423 OR ( ( Recinfo.attribute5 IS NULL )
424 AND ( p_attribute5 IS NULL )))
425 AND ( ( Recinfo.attribute6 = p_attribute6)
426 OR ( ( Recinfo.attribute6 IS NULL )
427 AND ( p_attribute6 IS NULL )))
428 AND ( ( Recinfo.attribute7 = p_attribute7)
429 OR ( ( Recinfo.attribute7 IS NULL )
430 AND ( p_attribute7 IS NULL )))
431 AND ( ( Recinfo.attribute8 = p_attribute8)
432 OR ( ( Recinfo.attribute8 IS NULL )
433 AND ( p_attribute8 IS NULL )))
434 AND ( ( Recinfo.attribute9 = p_attribute9)
435 OR ( ( Recinfo.attribute9 IS NULL )
436 AND ( p_attribute9 IS NULL )))
437 AND ( ( Recinfo.attribute10 = p_attribute10)
438 OR ( ( Recinfo.attribute10 IS NULL )
439 AND ( p_attribute10 IS NULL )))
440 AND ( ( Recinfo.attribute11 = p_attribute11)
441 OR ( ( Recinfo.attribute11 IS NULL )
442 AND ( p_attribute11 IS NULL )))
443 AND ( ( Recinfo.attribute12 = p_attribute12)
444 OR ( ( Recinfo.attribute12 IS NULL )
445 AND ( p_attribute12 IS NULL )))
446 AND ( ( Recinfo.attribute13 = p_attribute13)
447 OR ( ( Recinfo.attribute13 IS NULL )
448 AND ( p_attribute13 IS NULL )))
449 AND ( ( Recinfo.attribute14 = p_attribute14)
450 OR ( ( Recinfo.attribute14 IS NULL )
451 AND ( p_attribute14 IS NULL )))
452 AND ( ( Recinfo.attribute15 = p_attribute15)
453 OR ( ( Recinfo.attribute15 IS NULL )
454 AND ( p_attribute15 IS NULL )))
455 ) THEN
456 RETURN;
457 ELSE
458 FND_MESSAGE.SET_NAME('OZF', 'OZF_API_RECORD_NOT_FOUND');
459 APP_EXCEPTION.RAISE_EXCEPTION;
460 END IF;
461 END Lock_Row;
462
463 END OZF_ACCTNG_EVENTS_PKG;