[Home] [Help]
PACKAGE BODY: APPS.OZF_AE_HEADERS_PKG
Source
1 PACKAGE BODY OZF_AE_HEADERS_PKG as
2 /* $Header: ozftaehb.pls 120.0 2005/06/01 01:05:20 appldev noship $ */
3 -- ===============================================================
4 -- Start of Comments
5 -- Package name
6 -- OZF_AE_HEADERS_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_AE_HEADERS_PKG';
18 G_FILE_NAME CONSTANT VARCHAR2(12) := 'ozftaehb.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_ae_header_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_event_id NUMBER,
50 p_accounting_date DATE,
51 p_accounting_error_code VARCHAR2,
52 p_ae_category VARCHAR2,
53 p_ae_sequence_id NUMBER,
54 p_ae_sequence_value NUMBER,
55 p_cross_currency_flag VARCHAR2,
56 p_description VARCHAR2,
57 p_gl_reversal_flag VARCHAR2,
58 p_gl_transfer_error_code VARCHAR2,
59 p_gl_transfer_flag VARCHAR2,
60 p_gl_transfer_run_id NUMBER,
61 px_org_id IN OUT NOCOPY NUMBER,
62 p_period_name VARCHAR2,
63 p_set_of_books_id NUMBER,
64 p_attribute_category VARCHAR2,
65 p_attribute1 VARCHAR2,
66 p_attribute2 VARCHAR2,
67 p_attribute3 VARCHAR2,
68 p_attribute4 VARCHAR2,
69 p_attribute5 VARCHAR2,
70 p_attribute6 VARCHAR2,
71 p_attribute7 VARCHAR2,
72 p_attribute8 VARCHAR2,
73 p_attribute9 VARCHAR2,
74 p_attribute10 VARCHAR2,
75 p_attribute11 VARCHAR2,
76 p_attribute12 VARCHAR2,
77 p_attribute13 VARCHAR2,
78 p_attribute14 VARCHAR2,
79 p_attribute15 VARCHAR2)
80
81 IS
82 x_rowid VARCHAR2(30);
83
84
85 BEGIN
86
87 IF (px_org_id IS NULL OR px_org_id = FND_API.G_MISS_NUM) THEN
88 SELECT NVL(SUBSTRB(USERENV('CLIENT_INFO'),1,10),-99)
89 INTO px_org_id
90 FROM DUAL;
91 END IF;
92
93
94 px_object_version_number := 1;
95
96
97 INSERT INTO OZF_AE_HEADERS_ALL(
98 ae_header_id,
99 object_version_number,
100 last_update_date,
101 last_updated_by,
102 creation_date,
103 created_by,
104 last_update_login,
105 request_id,
106 program_application_id,
107 program_update_date,
108 program_id,
109 accounting_event_id,
110 accounting_date,
111 accounting_error_code,
112 ae_category,
113 ae_sequence_id,
114 ae_sequence_value,
115 cross_currency_flag,
116 description,
117 gl_reversal_flag,
118 gl_transfer_error_code,
119 gl_transfer_flag,
120 gl_transfer_run_id,
121 org_id,
122 period_name,
123 set_of_books_id,
124 attribute_category,
125 attribute1,
126 attribute2,
127 attribute3,
128 attribute4,
129 attribute5,
130 attribute6,
131 attribute7,
132 attribute8,
133 attribute9,
134 attribute10,
135 attribute11,
136 attribute12,
137 attribute13,
138 attribute14,
139 attribute15
140 ) VALUES (
141 px_ae_header_id,
142 px_object_version_number,
143 p_last_update_date,
144 p_last_updated_by,
145 p_creation_date,
146 p_created_by,
147 p_last_update_login,
148 p_request_id,
149 p_program_application_id,
150 p_program_update_date,
151 p_program_id,
152 p_accounting_event_id,
153 p_accounting_date,
154 p_accounting_error_code,
155 p_ae_category,
156 p_ae_sequence_id,
157 p_ae_sequence_value,
158 p_cross_currency_flag,
159 p_description,
160 p_gl_reversal_flag,
161 p_gl_transfer_error_code,
162 p_gl_transfer_flag,
163 p_gl_transfer_run_id,
164 px_org_id,
165 p_period_name,
166 p_set_of_books_id,
167 p_attribute_category,
168 p_attribute1,
169 p_attribute2,
170 p_attribute3,
171 p_attribute4,
172 p_attribute5,
173 p_attribute6,
174 p_attribute7,
175 p_attribute8,
176 p_attribute9,
177 p_attribute10,
178 p_attribute11,
179 p_attribute12,
180 p_attribute13,
181 p_attribute14,
182 p_attribute15);
183 END Insert_Row;
184
185
186 ----------------------------------------------------------
187 ---- MEDIA ----
188 ----------------------------------------------------------
189
190 -- ========================================================
191 --
192 -- NAME
193 -- createUpdateBody
194 --
195 -- PURPOSE
196 --
197 -- NOTES
198 --
199 -- HISTORY
200 --
201 -- ========================================================
202 PROCEDURE Update_Row(
203 p_ae_header_id NUMBER,
204 p_object_version_number NUMBER,
205 p_last_update_date DATE,
206 p_last_updated_by NUMBER,
207 p_last_update_login NUMBER,
208 p_request_id NUMBER,
209 p_program_application_id NUMBER,
210 p_program_update_date DATE,
211 p_program_id NUMBER,
212 p_accounting_event_id NUMBER,
213 p_accounting_date DATE,
214 p_accounting_error_code VARCHAR2,
215 p_ae_category VARCHAR2,
216 p_ae_sequence_id NUMBER,
217 p_ae_sequence_value NUMBER,
218 p_cross_currency_flag VARCHAR2,
219 p_description VARCHAR2,
220 p_gl_reversal_flag VARCHAR2,
221 p_gl_transfer_error_code VARCHAR2,
222 p_gl_transfer_flag VARCHAR2,
223 p_gl_transfer_run_id NUMBER,
224 p_org_id NUMBER,
225 p_period_name VARCHAR2,
226 p_set_of_books_id NUMBER,
227 p_attribute_category VARCHAR2,
228 p_attribute1 VARCHAR2,
229 p_attribute2 VARCHAR2,
230 p_attribute3 VARCHAR2,
231 p_attribute4 VARCHAR2,
232 p_attribute5 VARCHAR2,
233 p_attribute6 VARCHAR2,
234 p_attribute7 VARCHAR2,
235 p_attribute8 VARCHAR2,
236 p_attribute9 VARCHAR2,
237 p_attribute10 VARCHAR2,
238 p_attribute11 VARCHAR2,
239 p_attribute12 VARCHAR2,
240 p_attribute13 VARCHAR2,
241 p_attribute14 VARCHAR2,
242 p_attribute15 VARCHAR2)
243
244 IS
245 BEGIN
246 Update OZF_AE_HEADERS_ALL
247 SET
248 ae_header_id = p_ae_header_id,
249 object_version_number = p_object_version_number,
250 last_update_date = p_last_update_date,
251 last_updated_by = p_last_updated_by,
252 last_update_login = p_last_update_login,
253 request_id = p_request_id,
254 program_application_id = p_program_application_id,
255 program_update_date = p_program_update_date,
256 program_id = p_program_id,
257 accounting_event_id = p_accounting_event_id,
258 accounting_date = p_accounting_date,
259 accounting_error_code = p_accounting_error_code,
260 ae_category = p_ae_category,
261 ae_sequence_id = p_ae_sequence_id,
262 ae_sequence_value = p_ae_sequence_value,
263 cross_currency_flag = p_cross_currency_flag,
264 description = p_description,
265 gl_reversal_flag = p_gl_reversal_flag,
266 gl_transfer_error_code = p_gl_transfer_error_code,
267 gl_transfer_flag = p_gl_transfer_flag,
268 gl_transfer_run_id = p_gl_transfer_run_id,
269 org_id = p_org_id,
270 period_name = p_period_name,
271 set_of_books_id = p_set_of_books_id,
272 attribute_category = p_attribute_category,
273 attribute1 = p_attribute1,
274 attribute2 = p_attribute2,
275 attribute3 = p_attribute3,
276 attribute4 = p_attribute4,
277 attribute5 = p_attribute5,
278 attribute6 = p_attribute6,
279 attribute7 = p_attribute7,
280 attribute8 = p_attribute8,
281 attribute9 = p_attribute9,
282 attribute10 = p_attribute10,
283 attribute11 = p_attribute11,
284 attribute12 = p_attribute12,
285 attribute13 = p_attribute13,
286 attribute14 = p_attribute14,
287 attribute15 = p_attribute15
288 WHERE AE_HEADER_ID = p_AE_HEADER_ID
289 AND object_version_number = p_object_version_number;
290
291 IF (SQL%NOTFOUND) THEN
292 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
293 END IF;
294 END Update_Row;
295
296
297 ----------------------------------------------------------
298 ---- MEDIA ----
299 ----------------------------------------------------------
300
301 -- ========================================================
302 --
303 -- NAME
304 -- createDeleteBody
305 --
306 -- PURPOSE
307 --
308 -- NOTES
309 --
310 -- HISTORY
311 --
312 -- ========================================================
313 PROCEDURE Delete_Row(
314 p_AE_HEADER_ID NUMBER)
315 IS
316 BEGIN
317 DELETE FROM OZF_AE_HEADERS_ALL
318 WHERE AE_HEADER_ID = p_AE_HEADER_ID;
319 If (SQL%NOTFOUND) then
320 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
321 End If;
322 END Delete_Row ;
323
324
325
326 ----------------------------------------------------------
327 ---- MEDIA ----
328 ----------------------------------------------------------
329
330 -- ========================================================
331 --
332 -- NAME
333 -- createLockBody
334 --
335 -- PURPOSE
336 --
337 -- NOTES
338 --
339 -- HISTORY
340 --
341 -- ========================================================
342 PROCEDURE Lock_Row(
343 p_ae_header_id NUMBER,
344 p_object_version_number NUMBER,
345 p_last_update_date DATE,
346 p_last_updated_by NUMBER,
347 p_creation_date DATE,
348 p_created_by NUMBER,
349 p_last_update_login NUMBER,
350 p_request_id NUMBER,
351 p_program_application_id NUMBER,
352 p_program_update_date DATE,
353 p_program_id NUMBER,
354 p_accounting_event_id NUMBER,
355 p_accounting_date DATE,
356 p_accounting_error_code VARCHAR2,
357 p_ae_category VARCHAR2,
358 p_ae_sequence_id NUMBER,
359 p_ae_sequence_value NUMBER,
360 p_cross_currency_flag VARCHAR2,
361 p_description VARCHAR2,
362 p_gl_reversal_flag VARCHAR2,
363 p_gl_transfer_error_code VARCHAR2,
364 p_gl_transfer_flag VARCHAR2,
365 p_gl_transfer_run_id NUMBER,
366 p_org_id NUMBER,
367 p_period_name VARCHAR2,
368 p_set_of_books_id NUMBER,
369 p_attribute_category VARCHAR2,
370 p_attribute1 VARCHAR2,
371 p_attribute2 VARCHAR2,
372 p_attribute3 VARCHAR2,
373 p_attribute4 VARCHAR2,
374 p_attribute5 VARCHAR2,
375 p_attribute6 VARCHAR2,
376 p_attribute7 VARCHAR2,
377 p_attribute8 VARCHAR2,
378 p_attribute9 VARCHAR2,
379 p_attribute10 VARCHAR2,
380 p_attribute11 VARCHAR2,
381 p_attribute12 VARCHAR2,
382 p_attribute13 VARCHAR2,
383 p_attribute14 VARCHAR2,
384 p_attribute15 VARCHAR2)
385
386 IS
387 CURSOR C IS
388 SELECT *
389 FROM OZF_AE_HEADERS_ALL
390 WHERE AE_HEADER_ID = p_AE_HEADER_ID
391 FOR UPDATE of AE_HEADER_ID NOWAIT;
392 Recinfo C%ROWTYPE;
393 BEGIN
394 OPEN c;
395 FETCH c INTO Recinfo;
396 If (c%NOTFOUND) then
397 CLOSE c;
398 FND_MESSAGE.SET_NAME('OZF', 'OZF_API_RECORD_NOT_FOUND');
399 APP_EXCEPTION.RAISE_EXCEPTION;
400 END IF;
401 CLOSE C;
402 IF (
403 ( Recinfo.ae_header_id = p_ae_header_id)
404 AND ( ( Recinfo.object_version_number = p_object_version_number)
405 OR ( ( Recinfo.object_version_number IS NULL )
406 AND ( p_object_version_number IS NULL )))
407 AND ( ( Recinfo.last_update_date = p_last_update_date)
408 OR ( ( Recinfo.last_update_date IS NULL )
409 AND ( p_last_update_date IS NULL )))
410 AND ( ( Recinfo.last_updated_by = p_last_updated_by)
411 OR ( ( Recinfo.last_updated_by IS NULL )
412 AND ( p_last_updated_by IS NULL )))
413 AND ( ( Recinfo.creation_date = p_creation_date)
414 OR ( ( Recinfo.creation_date IS NULL )
415 AND ( p_creation_date IS NULL )))
416 AND ( ( Recinfo.created_by = p_created_by)
417 OR ( ( Recinfo.created_by IS NULL )
418 AND ( p_created_by IS NULL )))
419 AND ( ( Recinfo.last_update_login = p_last_update_login)
420 OR ( ( Recinfo.last_update_login IS NULL )
421 AND ( p_last_update_login IS NULL )))
422 AND ( ( Recinfo.request_id = p_request_id)
423 OR ( ( Recinfo.request_id IS NULL )
424 AND ( p_request_id IS NULL )))
425 AND ( ( Recinfo.program_application_id = p_program_application_id)
426 OR ( ( Recinfo.program_application_id IS NULL )
427 AND ( p_program_application_id IS NULL )))
428 AND ( ( Recinfo.program_update_date = p_program_update_date)
429 OR ( ( Recinfo.program_update_date IS NULL )
430 AND ( p_program_update_date IS NULL )))
431 AND ( ( Recinfo.program_id = p_program_id)
432 OR ( ( Recinfo.program_id IS NULL )
433 AND ( p_program_id IS NULL )))
434 AND ( ( Recinfo.accounting_event_id = p_accounting_event_id)
435 OR ( ( Recinfo.accounting_event_id IS NULL )
436 AND ( p_accounting_event_id IS NULL )))
437 AND ( ( Recinfo.accounting_date = p_accounting_date)
438 OR ( ( Recinfo.accounting_date IS NULL )
439 AND ( p_accounting_date IS NULL )))
440 AND ( ( Recinfo.accounting_error_code = p_accounting_error_code)
441 OR ( ( Recinfo.accounting_error_code IS NULL )
442 AND ( p_accounting_error_code IS NULL )))
443 AND ( ( Recinfo.ae_category = p_ae_category)
444 OR ( ( Recinfo.ae_category IS NULL )
445 AND ( p_ae_category IS NULL )))
446 AND ( ( Recinfo.ae_sequence_id = p_ae_sequence_id)
447 OR ( ( Recinfo.ae_sequence_id IS NULL )
448 AND ( p_ae_sequence_id IS NULL )))
449 AND ( ( Recinfo.ae_sequence_value = p_ae_sequence_value)
450 OR ( ( Recinfo.ae_sequence_value IS NULL )
451 AND ( p_ae_sequence_value IS NULL )))
452 AND ( ( Recinfo.cross_currency_flag = p_cross_currency_flag)
453 OR ( ( Recinfo.cross_currency_flag IS NULL )
454 AND ( p_cross_currency_flag IS NULL )))
455 AND ( ( Recinfo.description = p_description)
456 OR ( ( Recinfo.description IS NULL )
457 AND ( p_description IS NULL )))
458 AND ( ( Recinfo.gl_reversal_flag = p_gl_reversal_flag)
459 OR ( ( Recinfo.gl_reversal_flag IS NULL )
460 AND ( p_gl_reversal_flag IS NULL )))
461 AND ( ( Recinfo.gl_transfer_error_code = p_gl_transfer_error_code)
462 OR ( ( Recinfo.gl_transfer_error_code IS NULL )
463 AND ( p_gl_transfer_error_code IS NULL )))
464 AND ( ( Recinfo.gl_transfer_flag = p_gl_transfer_flag)
465 OR ( ( Recinfo.gl_transfer_flag IS NULL )
466 AND ( p_gl_transfer_flag IS NULL )))
467 AND ( ( Recinfo.gl_transfer_run_id = p_gl_transfer_run_id)
468 OR ( ( Recinfo.gl_transfer_run_id IS NULL )
469 AND ( p_gl_transfer_run_id IS NULL )))
470 AND ( ( Recinfo.org_id = p_org_id)
471 OR ( ( Recinfo.org_id IS NULL )
472 AND ( p_org_id IS NULL )))
473 AND ( ( Recinfo.period_name = p_period_name)
474 OR ( ( Recinfo.period_name IS NULL )
475 AND ( p_period_name IS NULL )))
476 AND ( ( Recinfo.set_of_books_id = p_set_of_books_id)
477 OR ( ( Recinfo.set_of_books_id IS NULL )
478 AND ( p_set_of_books_id IS NULL )))
479 AND ( ( Recinfo.attribute_category = p_attribute_category)
480 OR ( ( Recinfo.attribute_category IS NULL )
481 AND ( p_attribute_category IS NULL )))
482 AND ( ( Recinfo.attribute1 = p_attribute1)
483 OR ( ( Recinfo.attribute1 IS NULL )
484 AND ( p_attribute1 IS NULL )))
485 AND ( ( Recinfo.attribute2 = p_attribute2)
486 OR ( ( Recinfo.attribute2 IS NULL )
487 AND ( p_attribute2 IS NULL )))
488 AND ( ( Recinfo.attribute3 = p_attribute3)
489 OR ( ( Recinfo.attribute3 IS NULL )
490 AND ( p_attribute3 IS NULL )))
491 AND ( ( Recinfo.attribute4 = p_attribute4)
492 OR ( ( Recinfo.attribute4 IS NULL )
493 AND ( p_attribute4 IS NULL )))
494 AND ( ( Recinfo.attribute5 = p_attribute5)
495 OR ( ( Recinfo.attribute5 IS NULL )
496 AND ( p_attribute5 IS NULL )))
497 AND ( ( Recinfo.attribute6 = p_attribute6)
498 OR ( ( Recinfo.attribute6 IS NULL )
499 AND ( p_attribute6 IS NULL )))
500 AND ( ( Recinfo.attribute7 = p_attribute7)
501 OR ( ( Recinfo.attribute7 IS NULL )
502 AND ( p_attribute7 IS NULL )))
503 AND ( ( Recinfo.attribute8 = p_attribute8)
504 OR ( ( Recinfo.attribute8 IS NULL )
505 AND ( p_attribute8 IS NULL )))
506 AND ( ( Recinfo.attribute9 = p_attribute9)
507 OR ( ( Recinfo.attribute9 IS NULL )
508 AND ( p_attribute9 IS NULL )))
509 AND ( ( Recinfo.attribute10 = p_attribute10)
510 OR ( ( Recinfo.attribute10 IS NULL )
511 AND ( p_attribute10 IS NULL )))
512 AND ( ( Recinfo.attribute11 = p_attribute11)
513 OR ( ( Recinfo.attribute11 IS NULL )
514 AND ( p_attribute11 IS NULL )))
515 AND ( ( Recinfo.attribute12 = p_attribute12)
516 OR ( ( Recinfo.attribute12 IS NULL )
517 AND ( p_attribute12 IS NULL )))
518 AND ( ( Recinfo.attribute13 = p_attribute13)
519 OR ( ( Recinfo.attribute13 IS NULL )
520 AND ( p_attribute13 IS NULL )))
521 AND ( ( Recinfo.attribute14 = p_attribute14)
522 OR ( ( Recinfo.attribute14 IS NULL )
523 AND ( p_attribute14 IS NULL )))
524 AND ( ( Recinfo.attribute15 = p_attribute15)
525 OR ( ( Recinfo.attribute15 IS NULL )
526 AND ( p_attribute15 IS NULL )))
527 ) THEN
528 RETURN;
529 ELSE
530 FND_MESSAGE.SET_NAME('OZF', 'OZF_API_RECORD_NOT_FOUND');
531 APP_EXCEPTION.RAISE_EXCEPTION;
532 END IF;
533 END Lock_Row;
534
535 END OZF_AE_HEADERS_PKG;