[Home] [Help]
PACKAGE BODY: APPS.OKL_AET_PVT_W
Source
1 package body okl_aet_pvt_w as
2 /* $Header: OKLIAETB.pls 120.2 2005/12/02 12:56:41 dkagrawa noship $ */
3 rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4 rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5
6 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
7 function rosetta_g_miss_date_in_map(d date) return date as
8 begin
9 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10 return d;
11 end;
12
13 function rosetta_g_miss_num_map(n number) return number as
14 a number := fnd_api.g_miss_num;
15 b number := 0-1962.0724;
16 begin
17 if n=a then return b; end if;
18 if n=b then return a; end if;
19 return n;
20 end;
21
22 procedure rosetta_table_copy_in_p2(t out nocopy okl_aet_pvt.aet_tbl_type, a0 JTF_NUMBER_TABLE
23 , a1 JTF_NUMBER_TABLE
24 , a2 JTF_VARCHAR2_TABLE_100
25 , a3 JTF_DATE_TABLE
26 , a4 JTF_NUMBER_TABLE
27 , a5 JTF_VARCHAR2_TABLE_100
28 , a6 JTF_NUMBER_TABLE
29 , a7 JTF_VARCHAR2_TABLE_100
30 , a8 JTF_NUMBER_TABLE
31 , a9 JTF_NUMBER_TABLE
32 , a10 JTF_NUMBER_TABLE
33 , a11 JTF_DATE_TABLE
34 , a12 JTF_NUMBER_TABLE
35 , a13 JTF_NUMBER_TABLE
36 , a14 JTF_DATE_TABLE
37 , a15 JTF_NUMBER_TABLE
38 , a16 JTF_DATE_TABLE
39 , a17 JTF_NUMBER_TABLE
40 ) as
41 ddindx binary_integer; indx binary_integer;
42 begin
43 if a0 is not null and a0.count > 0 then
44 if a0.count > 0 then
45 indx := a0.first;
46 ddindx := 1;
47 while true loop
48 t(ddindx).accounting_event_id := rosetta_g_miss_num_map(a0(indx));
49 t(ddindx).org_id := rosetta_g_miss_num_map(a1(indx));
50 t(ddindx).event_type_code := a2(indx);
51 t(ddindx).accounting_date := rosetta_g_miss_date_in_map(a3(indx));
52 t(ddindx).event_number := rosetta_g_miss_num_map(a4(indx));
53 t(ddindx).event_status_code := a5(indx);
54 t(ddindx).source_id := rosetta_g_miss_num_map(a6(indx));
55 t(ddindx).source_table := a7(indx);
56 t(ddindx).object_version_number := rosetta_g_miss_num_map(a8(indx));
57 t(ddindx).program_id := rosetta_g_miss_num_map(a9(indx));
58 t(ddindx).program_application_id := rosetta_g_miss_num_map(a10(indx));
59 t(ddindx).program_update_date := rosetta_g_miss_date_in_map(a11(indx));
60 t(ddindx).request_id := rosetta_g_miss_num_map(a12(indx));
61 t(ddindx).created_by := rosetta_g_miss_num_map(a13(indx));
62 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a14(indx));
63 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a15(indx));
64 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a16(indx));
65 t(ddindx).last_update_login := rosetta_g_miss_num_map(a17(indx));
66 ddindx := ddindx+1;
67 if a0.last =indx
68 then exit;
69 end if;
70 indx := a0.next(indx);
71 end loop;
72 end if;
73 end if;
74 end rosetta_table_copy_in_p2;
75 procedure rosetta_table_copy_out_p2(t okl_aet_pvt.aet_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
76 , a1 out nocopy JTF_NUMBER_TABLE
77 , a2 out nocopy JTF_VARCHAR2_TABLE_100
78 , a3 out nocopy JTF_DATE_TABLE
79 , a4 out nocopy JTF_NUMBER_TABLE
80 , a5 out nocopy JTF_VARCHAR2_TABLE_100
81 , a6 out nocopy JTF_NUMBER_TABLE
82 , a7 out nocopy JTF_VARCHAR2_TABLE_100
83 , a8 out nocopy JTF_NUMBER_TABLE
84 , a9 out nocopy JTF_NUMBER_TABLE
85 , a10 out nocopy JTF_NUMBER_TABLE
86 , a11 out nocopy JTF_DATE_TABLE
87 , a12 out nocopy JTF_NUMBER_TABLE
88 , a13 out nocopy JTF_NUMBER_TABLE
89 , a14 out nocopy JTF_DATE_TABLE
90 , a15 out nocopy JTF_NUMBER_TABLE
91 , a16 out nocopy JTF_DATE_TABLE
92 , a17 out nocopy JTF_NUMBER_TABLE
93 ) as
94 ddindx binary_integer; indx binary_integer;
95 begin
96 if t is null or t.count = 0 then
97 a0 := JTF_NUMBER_TABLE();
98 a1 := JTF_NUMBER_TABLE();
99 a2 := JTF_VARCHAR2_TABLE_100();
100 a3 := JTF_DATE_TABLE();
101 a4 := JTF_NUMBER_TABLE();
102 a5 := JTF_VARCHAR2_TABLE_100();
103 a6 := JTF_NUMBER_TABLE();
104 a7 := JTF_VARCHAR2_TABLE_100();
105 a8 := JTF_NUMBER_TABLE();
106 a9 := JTF_NUMBER_TABLE();
107 a10 := JTF_NUMBER_TABLE();
108 a11 := JTF_DATE_TABLE();
109 a12 := JTF_NUMBER_TABLE();
110 a13 := JTF_NUMBER_TABLE();
111 a14 := JTF_DATE_TABLE();
112 a15 := JTF_NUMBER_TABLE();
113 a16 := JTF_DATE_TABLE();
114 a17 := JTF_NUMBER_TABLE();
115 else
116 a0 := JTF_NUMBER_TABLE();
117 a1 := JTF_NUMBER_TABLE();
118 a2 := JTF_VARCHAR2_TABLE_100();
119 a3 := JTF_DATE_TABLE();
120 a4 := JTF_NUMBER_TABLE();
121 a5 := JTF_VARCHAR2_TABLE_100();
122 a6 := JTF_NUMBER_TABLE();
123 a7 := JTF_VARCHAR2_TABLE_100();
124 a8 := JTF_NUMBER_TABLE();
125 a9 := JTF_NUMBER_TABLE();
126 a10 := JTF_NUMBER_TABLE();
127 a11 := JTF_DATE_TABLE();
128 a12 := JTF_NUMBER_TABLE();
129 a13 := JTF_NUMBER_TABLE();
130 a14 := JTF_DATE_TABLE();
131 a15 := JTF_NUMBER_TABLE();
132 a16 := JTF_DATE_TABLE();
133 a17 := JTF_NUMBER_TABLE();
134 if t.count > 0 then
135 a0.extend(t.count);
136 a1.extend(t.count);
137 a2.extend(t.count);
138 a3.extend(t.count);
139 a4.extend(t.count);
140 a5.extend(t.count);
141 a6.extend(t.count);
142 a7.extend(t.count);
143 a8.extend(t.count);
144 a9.extend(t.count);
145 a10.extend(t.count);
146 a11.extend(t.count);
147 a12.extend(t.count);
148 a13.extend(t.count);
149 a14.extend(t.count);
150 a15.extend(t.count);
151 a16.extend(t.count);
152 a17.extend(t.count);
153 ddindx := t.first;
154 indx := 1;
155 while true loop
156 a0(indx) := rosetta_g_miss_num_map(t(ddindx).accounting_event_id);
157 a1(indx) := rosetta_g_miss_num_map(t(ddindx).org_id);
158 a2(indx) := t(ddindx).event_type_code;
159 a3(indx) := t(ddindx).accounting_date;
160 a4(indx) := rosetta_g_miss_num_map(t(ddindx).event_number);
161 a5(indx) := t(ddindx).event_status_code;
162 a6(indx) := rosetta_g_miss_num_map(t(ddindx).source_id);
163 a7(indx) := t(ddindx).source_table;
164 a8(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
165 a9(indx) := rosetta_g_miss_num_map(t(ddindx).program_id);
166 a10(indx) := rosetta_g_miss_num_map(t(ddindx).program_application_id);
167 a11(indx) := t(ddindx).program_update_date;
168 a12(indx) := rosetta_g_miss_num_map(t(ddindx).request_id);
169 a13(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
170 a14(indx) := t(ddindx).creation_date;
171 a15(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
172 a16(indx) := t(ddindx).last_update_date;
173 a17(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
174 indx := indx+1;
175 if t.last =ddindx
176 then exit;
177 end if;
178 ddindx := t.next(ddindx);
179 end loop;
180 end if;
181 end if;
182 end rosetta_table_copy_out_p2;
183
184 procedure rosetta_table_copy_in_p5(t out nocopy okl_aet_pvt.aetv_tbl_type, a0 JTF_NUMBER_TABLE
185 , a1 JTF_NUMBER_TABLE
186 , a2 JTF_NUMBER_TABLE
187 , a3 JTF_VARCHAR2_TABLE_100
188 , a4 JTF_DATE_TABLE
189 , a5 JTF_NUMBER_TABLE
190 , a6 JTF_VARCHAR2_TABLE_100
191 , a7 JTF_NUMBER_TABLE
192 , a8 JTF_VARCHAR2_TABLE_100
193 , a9 JTF_NUMBER_TABLE
194 , a10 JTF_NUMBER_TABLE
195 , a11 JTF_DATE_TABLE
196 , a12 JTF_NUMBER_TABLE
197 , a13 JTF_NUMBER_TABLE
198 , a14 JTF_DATE_TABLE
199 , a15 JTF_NUMBER_TABLE
200 , a16 JTF_DATE_TABLE
201 , a17 JTF_NUMBER_TABLE
202 ) as
203 ddindx binary_integer; indx binary_integer;
204 begin
205 if a0 is not null and a0.count > 0 then
206 if a0.count > 0 then
207 indx := a0.first;
208 ddindx := 1;
209 while true loop
210 t(ddindx).accounting_event_id := rosetta_g_miss_num_map(a0(indx));
211 t(ddindx).object_version_number := rosetta_g_miss_num_map(a1(indx));
212 t(ddindx).org_id := rosetta_g_miss_num_map(a2(indx));
213 t(ddindx).event_type_code := a3(indx);
214 t(ddindx).accounting_date := rosetta_g_miss_date_in_map(a4(indx));
215 t(ddindx).event_number := rosetta_g_miss_num_map(a5(indx));
216 t(ddindx).event_status_code := a6(indx);
217 t(ddindx).source_id := rosetta_g_miss_num_map(a7(indx));
218 t(ddindx).source_table := a8(indx);
219 t(ddindx).program_id := rosetta_g_miss_num_map(a9(indx));
220 t(ddindx).program_application_id := rosetta_g_miss_num_map(a10(indx));
221 t(ddindx).program_update_date := rosetta_g_miss_date_in_map(a11(indx));
222 t(ddindx).request_id := rosetta_g_miss_num_map(a12(indx));
223 t(ddindx).created_by := rosetta_g_miss_num_map(a13(indx));
224 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a14(indx));
225 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a15(indx));
226 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a16(indx));
227 t(ddindx).last_update_login := rosetta_g_miss_num_map(a17(indx));
228 ddindx := ddindx+1;
229 if a0.last =indx
230 then exit;
231 end if;
232 indx := a0.next(indx);
233 end loop;
234 end if;
235 end if;
236 end rosetta_table_copy_in_p5;
237 procedure rosetta_table_copy_out_p5(t okl_aet_pvt.aetv_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
238 , a1 out nocopy JTF_NUMBER_TABLE
239 , a2 out nocopy JTF_NUMBER_TABLE
240 , a3 out nocopy JTF_VARCHAR2_TABLE_100
241 , a4 out nocopy JTF_DATE_TABLE
242 , a5 out nocopy JTF_NUMBER_TABLE
243 , a6 out nocopy JTF_VARCHAR2_TABLE_100
244 , a7 out nocopy JTF_NUMBER_TABLE
245 , a8 out nocopy JTF_VARCHAR2_TABLE_100
246 , a9 out nocopy JTF_NUMBER_TABLE
247 , a10 out nocopy JTF_NUMBER_TABLE
248 , a11 out nocopy JTF_DATE_TABLE
249 , a12 out nocopy JTF_NUMBER_TABLE
250 , a13 out nocopy JTF_NUMBER_TABLE
251 , a14 out nocopy JTF_DATE_TABLE
252 , a15 out nocopy JTF_NUMBER_TABLE
253 , a16 out nocopy JTF_DATE_TABLE
254 , a17 out nocopy JTF_NUMBER_TABLE
255 ) as
256 ddindx binary_integer; indx binary_integer;
257 begin
258 if t is null or t.count = 0 then
259 a0 := JTF_NUMBER_TABLE();
260 a1 := JTF_NUMBER_TABLE();
261 a2 := JTF_NUMBER_TABLE();
262 a3 := JTF_VARCHAR2_TABLE_100();
263 a4 := JTF_DATE_TABLE();
264 a5 := JTF_NUMBER_TABLE();
265 a6 := JTF_VARCHAR2_TABLE_100();
266 a7 := JTF_NUMBER_TABLE();
267 a8 := JTF_VARCHAR2_TABLE_100();
268 a9 := JTF_NUMBER_TABLE();
269 a10 := JTF_NUMBER_TABLE();
270 a11 := JTF_DATE_TABLE();
271 a12 := JTF_NUMBER_TABLE();
272 a13 := JTF_NUMBER_TABLE();
273 a14 := JTF_DATE_TABLE();
274 a15 := JTF_NUMBER_TABLE();
275 a16 := JTF_DATE_TABLE();
276 a17 := JTF_NUMBER_TABLE();
277 else
278 a0 := JTF_NUMBER_TABLE();
279 a1 := JTF_NUMBER_TABLE();
280 a2 := JTF_NUMBER_TABLE();
281 a3 := JTF_VARCHAR2_TABLE_100();
282 a4 := JTF_DATE_TABLE();
283 a5 := JTF_NUMBER_TABLE();
284 a6 := JTF_VARCHAR2_TABLE_100();
285 a7 := JTF_NUMBER_TABLE();
286 a8 := JTF_VARCHAR2_TABLE_100();
287 a9 := JTF_NUMBER_TABLE();
288 a10 := JTF_NUMBER_TABLE();
289 a11 := JTF_DATE_TABLE();
290 a12 := JTF_NUMBER_TABLE();
291 a13 := JTF_NUMBER_TABLE();
292 a14 := JTF_DATE_TABLE();
293 a15 := JTF_NUMBER_TABLE();
294 a16 := JTF_DATE_TABLE();
295 a17 := JTF_NUMBER_TABLE();
296 if t.count > 0 then
297 a0.extend(t.count);
298 a1.extend(t.count);
299 a2.extend(t.count);
300 a3.extend(t.count);
301 a4.extend(t.count);
302 a5.extend(t.count);
303 a6.extend(t.count);
304 a7.extend(t.count);
305 a8.extend(t.count);
306 a9.extend(t.count);
307 a10.extend(t.count);
308 a11.extend(t.count);
309 a12.extend(t.count);
310 a13.extend(t.count);
311 a14.extend(t.count);
312 a15.extend(t.count);
313 a16.extend(t.count);
314 a17.extend(t.count);
315 ddindx := t.first;
316 indx := 1;
317 while true loop
318 a0(indx) := rosetta_g_miss_num_map(t(ddindx).accounting_event_id);
319 a1(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
320 a2(indx) := rosetta_g_miss_num_map(t(ddindx).org_id);
321 a3(indx) := t(ddindx).event_type_code;
322 a4(indx) := t(ddindx).accounting_date;
323 a5(indx) := rosetta_g_miss_num_map(t(ddindx).event_number);
324 a6(indx) := t(ddindx).event_status_code;
325 a7(indx) := rosetta_g_miss_num_map(t(ddindx).source_id);
326 a8(indx) := t(ddindx).source_table;
327 a9(indx) := rosetta_g_miss_num_map(t(ddindx).program_id);
328 a10(indx) := rosetta_g_miss_num_map(t(ddindx).program_application_id);
329 a11(indx) := t(ddindx).program_update_date;
330 a12(indx) := rosetta_g_miss_num_map(t(ddindx).request_id);
331 a13(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
332 a14(indx) := t(ddindx).creation_date;
333 a15(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
334 a16(indx) := t(ddindx).last_update_date;
335 a17(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
336 indx := indx+1;
337 if t.last =ddindx
338 then exit;
339 end if;
340 ddindx := t.next(ddindx);
341 end loop;
342 end if;
343 end if;
344 end rosetta_table_copy_out_p5;
345
346 procedure insert_row(p_api_version NUMBER
347 , p_init_msg_list VARCHAR2
348 , x_return_status out nocopy VARCHAR2
349 , x_msg_count out nocopy NUMBER
350 , x_msg_data out nocopy VARCHAR2
351 , p6_a0 out nocopy NUMBER
352 , p6_a1 out nocopy NUMBER
353 , p6_a2 out nocopy NUMBER
354 , p6_a3 out nocopy VARCHAR2
355 , p6_a4 out nocopy DATE
356 , p6_a5 out nocopy NUMBER
357 , p6_a6 out nocopy VARCHAR2
358 , p6_a7 out nocopy NUMBER
359 , p6_a8 out nocopy VARCHAR2
360 , p6_a9 out nocopy NUMBER
361 , p6_a10 out nocopy NUMBER
362 , p6_a11 out nocopy DATE
363 , p6_a12 out nocopy NUMBER
364 , p6_a13 out nocopy NUMBER
365 , p6_a14 out nocopy DATE
366 , p6_a15 out nocopy NUMBER
367 , p6_a16 out nocopy DATE
368 , p6_a17 out nocopy NUMBER
369 , p5_a0 NUMBER := 0-1962.0724
370 , p5_a1 NUMBER := 0-1962.0724
371 , p5_a2 NUMBER := 0-1962.0724
372 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
373 , p5_a4 DATE := fnd_api.g_miss_date
374 , p5_a5 NUMBER := 0-1962.0724
375 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
376 , p5_a7 NUMBER := 0-1962.0724
377 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
378 , p5_a9 NUMBER := 0-1962.0724
379 , p5_a10 NUMBER := 0-1962.0724
380 , p5_a11 DATE := fnd_api.g_miss_date
381 , p5_a12 NUMBER := 0-1962.0724
382 , p5_a13 NUMBER := 0-1962.0724
383 , p5_a14 DATE := fnd_api.g_miss_date
384 , p5_a15 NUMBER := 0-1962.0724
385 , p5_a16 DATE := fnd_api.g_miss_date
386 , p5_a17 NUMBER := 0-1962.0724
387 )
388
389 as
390 ddp_aetv_rec okl_aet_pvt.aetv_rec_type;
391 ddx_aetv_rec okl_aet_pvt.aetv_rec_type;
392 ddindx binary_integer; indx binary_integer;
393 begin
394
395 -- copy data to the local IN or IN-OUT args, if any
396
397
398
399
400
401 ddp_aetv_rec.accounting_event_id := rosetta_g_miss_num_map(p5_a0);
402 ddp_aetv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
403 ddp_aetv_rec.org_id := rosetta_g_miss_num_map(p5_a2);
404 ddp_aetv_rec.event_type_code := p5_a3;
405 ddp_aetv_rec.accounting_date := rosetta_g_miss_date_in_map(p5_a4);
406 ddp_aetv_rec.event_number := rosetta_g_miss_num_map(p5_a5);
407 ddp_aetv_rec.event_status_code := p5_a6;
408 ddp_aetv_rec.source_id := rosetta_g_miss_num_map(p5_a7);
409 ddp_aetv_rec.source_table := p5_a8;
410 ddp_aetv_rec.program_id := rosetta_g_miss_num_map(p5_a9);
411 ddp_aetv_rec.program_application_id := rosetta_g_miss_num_map(p5_a10);
412 ddp_aetv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a11);
413 ddp_aetv_rec.request_id := rosetta_g_miss_num_map(p5_a12);
414 ddp_aetv_rec.created_by := rosetta_g_miss_num_map(p5_a13);
415 ddp_aetv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a14);
416 ddp_aetv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a15);
417 ddp_aetv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a16);
418 ddp_aetv_rec.last_update_login := rosetta_g_miss_num_map(p5_a17);
419
420
421 -- here's the delegated call to the old PL/SQL routine
422 okl_aet_pvt.insert_row(p_api_version,
423 p_init_msg_list,
424 x_return_status,
425 x_msg_count,
426 x_msg_data,
427 ddp_aetv_rec,
428 ddx_aetv_rec);
429
430 -- copy data back from the local variables to OUT or IN-OUT args, if any
431
432
433
434
435
436
437 p6_a0 := rosetta_g_miss_num_map(ddx_aetv_rec.accounting_event_id);
438 p6_a1 := rosetta_g_miss_num_map(ddx_aetv_rec.object_version_number);
439 p6_a2 := rosetta_g_miss_num_map(ddx_aetv_rec.org_id);
440 p6_a3 := ddx_aetv_rec.event_type_code;
441 p6_a4 := ddx_aetv_rec.accounting_date;
442 p6_a5 := rosetta_g_miss_num_map(ddx_aetv_rec.event_number);
443 p6_a6 := ddx_aetv_rec.event_status_code;
444 p6_a7 := rosetta_g_miss_num_map(ddx_aetv_rec.source_id);
445 p6_a8 := ddx_aetv_rec.source_table;
446 p6_a9 := rosetta_g_miss_num_map(ddx_aetv_rec.program_id);
447 p6_a10 := rosetta_g_miss_num_map(ddx_aetv_rec.program_application_id);
448 p6_a11 := ddx_aetv_rec.program_update_date;
449 p6_a12 := rosetta_g_miss_num_map(ddx_aetv_rec.request_id);
450 p6_a13 := rosetta_g_miss_num_map(ddx_aetv_rec.created_by);
451 p6_a14 := ddx_aetv_rec.creation_date;
452 p6_a15 := rosetta_g_miss_num_map(ddx_aetv_rec.last_updated_by);
453 p6_a16 := ddx_aetv_rec.last_update_date;
454 p6_a17 := rosetta_g_miss_num_map(ddx_aetv_rec.last_update_login);
455 end;
456
457 procedure insert_row(p_api_version NUMBER
458 , p_init_msg_list VARCHAR2
459 , x_return_status out nocopy VARCHAR2
460 , x_msg_count out nocopy NUMBER
461 , x_msg_data out nocopy VARCHAR2
462 , p5_a0 JTF_NUMBER_TABLE
463 , p5_a1 JTF_NUMBER_TABLE
464 , p5_a2 JTF_NUMBER_TABLE
465 , p5_a3 JTF_VARCHAR2_TABLE_100
466 , p5_a4 JTF_DATE_TABLE
467 , p5_a5 JTF_NUMBER_TABLE
468 , p5_a6 JTF_VARCHAR2_TABLE_100
469 , p5_a7 JTF_NUMBER_TABLE
470 , p5_a8 JTF_VARCHAR2_TABLE_100
471 , p5_a9 JTF_NUMBER_TABLE
472 , p5_a10 JTF_NUMBER_TABLE
473 , p5_a11 JTF_DATE_TABLE
474 , p5_a12 JTF_NUMBER_TABLE
475 , p5_a13 JTF_NUMBER_TABLE
476 , p5_a14 JTF_DATE_TABLE
477 , p5_a15 JTF_NUMBER_TABLE
478 , p5_a16 JTF_DATE_TABLE
479 , p5_a17 JTF_NUMBER_TABLE
480 , p6_a0 out nocopy JTF_NUMBER_TABLE
481 , p6_a1 out nocopy JTF_NUMBER_TABLE
482 , p6_a2 out nocopy JTF_NUMBER_TABLE
483 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
484 , p6_a4 out nocopy JTF_DATE_TABLE
485 , p6_a5 out nocopy JTF_NUMBER_TABLE
486 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_100
487 , p6_a7 out nocopy JTF_NUMBER_TABLE
488 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_100
489 , p6_a9 out nocopy JTF_NUMBER_TABLE
490 , p6_a10 out nocopy JTF_NUMBER_TABLE
491 , p6_a11 out nocopy JTF_DATE_TABLE
492 , p6_a12 out nocopy JTF_NUMBER_TABLE
493 , p6_a13 out nocopy JTF_NUMBER_TABLE
494 , p6_a14 out nocopy JTF_DATE_TABLE
495 , p6_a15 out nocopy JTF_NUMBER_TABLE
496 , p6_a16 out nocopy JTF_DATE_TABLE
497 , p6_a17 out nocopy JTF_NUMBER_TABLE
498 )
499
500 as
501 ddp_aetv_tbl okl_aet_pvt.aetv_tbl_type;
502 ddx_aetv_tbl okl_aet_pvt.aetv_tbl_type;
503 ddindx binary_integer; indx binary_integer;
504 begin
505
506 -- copy data to the local IN or IN-OUT args, if any
507
508
509
510
511
512 okl_aet_pvt_w.rosetta_table_copy_in_p5(ddp_aetv_tbl, p5_a0
513 , p5_a1
514 , p5_a2
515 , p5_a3
516 , p5_a4
517 , p5_a5
518 , p5_a6
519 , p5_a7
520 , p5_a8
521 , p5_a9
522 , p5_a10
523 , p5_a11
524 , p5_a12
525 , p5_a13
526 , p5_a14
527 , p5_a15
528 , p5_a16
529 , p5_a17
530 );
531
532
533 -- here's the delegated call to the old PL/SQL routine
534 okl_aet_pvt.insert_row(p_api_version,
535 p_init_msg_list,
536 x_return_status,
537 x_msg_count,
538 x_msg_data,
539 ddp_aetv_tbl,
540 ddx_aetv_tbl);
541
542 -- copy data back from the local variables to OUT or IN-OUT args, if any
543
544
545
546
547
548
549 okl_aet_pvt_w.rosetta_table_copy_out_p5(ddx_aetv_tbl, p6_a0
550 , p6_a1
551 , p6_a2
552 , p6_a3
553 , p6_a4
554 , p6_a5
555 , p6_a6
556 , p6_a7
557 , p6_a8
558 , p6_a9
559 , p6_a10
560 , p6_a11
561 , p6_a12
562 , p6_a13
563 , p6_a14
564 , p6_a15
565 , p6_a16
566 , p6_a17
567 );
568 end;
569
570 procedure lock_row(p_api_version NUMBER
571 , p_init_msg_list VARCHAR2
572 , x_return_status out nocopy VARCHAR2
573 , x_msg_count out nocopy NUMBER
574 , x_msg_data out nocopy VARCHAR2
575 , p5_a0 NUMBER := 0-1962.0724
576 , p5_a1 NUMBER := 0-1962.0724
577 , p5_a2 NUMBER := 0-1962.0724
578 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
579 , p5_a4 DATE := fnd_api.g_miss_date
580 , p5_a5 NUMBER := 0-1962.0724
581 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
582 , p5_a7 NUMBER := 0-1962.0724
583 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
584 , p5_a9 NUMBER := 0-1962.0724
585 , p5_a10 NUMBER := 0-1962.0724
586 , p5_a11 DATE := fnd_api.g_miss_date
587 , p5_a12 NUMBER := 0-1962.0724
588 , p5_a13 NUMBER := 0-1962.0724
589 , p5_a14 DATE := fnd_api.g_miss_date
590 , p5_a15 NUMBER := 0-1962.0724
591 , p5_a16 DATE := fnd_api.g_miss_date
592 , p5_a17 NUMBER := 0-1962.0724
593 )
594
595 as
596 ddp_aetv_rec okl_aet_pvt.aetv_rec_type;
597 ddindx binary_integer; indx binary_integer;
598 begin
599
600 -- copy data to the local IN or IN-OUT args, if any
601
602
603
604
605
606 ddp_aetv_rec.accounting_event_id := rosetta_g_miss_num_map(p5_a0);
607 ddp_aetv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
608 ddp_aetv_rec.org_id := rosetta_g_miss_num_map(p5_a2);
609 ddp_aetv_rec.event_type_code := p5_a3;
610 ddp_aetv_rec.accounting_date := rosetta_g_miss_date_in_map(p5_a4);
611 ddp_aetv_rec.event_number := rosetta_g_miss_num_map(p5_a5);
612 ddp_aetv_rec.event_status_code := p5_a6;
613 ddp_aetv_rec.source_id := rosetta_g_miss_num_map(p5_a7);
614 ddp_aetv_rec.source_table := p5_a8;
615 ddp_aetv_rec.program_id := rosetta_g_miss_num_map(p5_a9);
616 ddp_aetv_rec.program_application_id := rosetta_g_miss_num_map(p5_a10);
617 ddp_aetv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a11);
618 ddp_aetv_rec.request_id := rosetta_g_miss_num_map(p5_a12);
619 ddp_aetv_rec.created_by := rosetta_g_miss_num_map(p5_a13);
620 ddp_aetv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a14);
621 ddp_aetv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a15);
622 ddp_aetv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a16);
623 ddp_aetv_rec.last_update_login := rosetta_g_miss_num_map(p5_a17);
624
625 -- here's the delegated call to the old PL/SQL routine
626 okl_aet_pvt.lock_row(p_api_version,
627 p_init_msg_list,
628 x_return_status,
629 x_msg_count,
630 x_msg_data,
631 ddp_aetv_rec);
632
633 -- copy data back from the local variables to OUT or IN-OUT args, if any
634
635
636
637
638
639 end;
640
641 procedure lock_row(p_api_version NUMBER
642 , p_init_msg_list VARCHAR2
643 , x_return_status out nocopy VARCHAR2
644 , x_msg_count out nocopy NUMBER
645 , x_msg_data out nocopy VARCHAR2
646 , p5_a0 JTF_NUMBER_TABLE
647 , p5_a1 JTF_NUMBER_TABLE
648 , p5_a2 JTF_NUMBER_TABLE
649 , p5_a3 JTF_VARCHAR2_TABLE_100
650 , p5_a4 JTF_DATE_TABLE
651 , p5_a5 JTF_NUMBER_TABLE
652 , p5_a6 JTF_VARCHAR2_TABLE_100
653 , p5_a7 JTF_NUMBER_TABLE
654 , p5_a8 JTF_VARCHAR2_TABLE_100
655 , p5_a9 JTF_NUMBER_TABLE
656 , p5_a10 JTF_NUMBER_TABLE
657 , p5_a11 JTF_DATE_TABLE
658 , p5_a12 JTF_NUMBER_TABLE
659 , p5_a13 JTF_NUMBER_TABLE
660 , p5_a14 JTF_DATE_TABLE
661 , p5_a15 JTF_NUMBER_TABLE
662 , p5_a16 JTF_DATE_TABLE
663 , p5_a17 JTF_NUMBER_TABLE
664 )
665
666 as
667 ddp_aetv_tbl okl_aet_pvt.aetv_tbl_type;
668 ddindx binary_integer; indx binary_integer;
669 begin
670
671 -- copy data to the local IN or IN-OUT args, if any
672
673
674
675
676
677 okl_aet_pvt_w.rosetta_table_copy_in_p5(ddp_aetv_tbl, p5_a0
678 , p5_a1
679 , p5_a2
680 , p5_a3
681 , p5_a4
682 , p5_a5
683 , p5_a6
684 , p5_a7
685 , p5_a8
686 , p5_a9
687 , p5_a10
688 , p5_a11
689 , p5_a12
690 , p5_a13
691 , p5_a14
692 , p5_a15
693 , p5_a16
694 , p5_a17
695 );
696
697 -- here's the delegated call to the old PL/SQL routine
698 okl_aet_pvt.lock_row(p_api_version,
699 p_init_msg_list,
700 x_return_status,
701 x_msg_count,
702 x_msg_data,
703 ddp_aetv_tbl);
704
705 -- copy data back from the local variables to OUT or IN-OUT args, if any
706
707
708
709
710
711 end;
712
713 procedure update_row(p_api_version NUMBER
714 , p_init_msg_list VARCHAR2
715 , x_return_status out nocopy VARCHAR2
716 , x_msg_count out nocopy NUMBER
717 , x_msg_data out nocopy VARCHAR2
718 , p6_a0 out nocopy NUMBER
719 , p6_a1 out nocopy NUMBER
720 , p6_a2 out nocopy NUMBER
721 , p6_a3 out nocopy VARCHAR2
722 , p6_a4 out nocopy DATE
723 , p6_a5 out nocopy NUMBER
724 , p6_a6 out nocopy VARCHAR2
725 , p6_a7 out nocopy NUMBER
726 , p6_a8 out nocopy VARCHAR2
727 , p6_a9 out nocopy NUMBER
728 , p6_a10 out nocopy NUMBER
729 , p6_a11 out nocopy DATE
730 , p6_a12 out nocopy NUMBER
731 , p6_a13 out nocopy NUMBER
732 , p6_a14 out nocopy DATE
733 , p6_a15 out nocopy NUMBER
734 , p6_a16 out nocopy DATE
735 , p6_a17 out nocopy NUMBER
736 , p5_a0 NUMBER := 0-1962.0724
737 , p5_a1 NUMBER := 0-1962.0724
738 , p5_a2 NUMBER := 0-1962.0724
739 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
740 , p5_a4 DATE := fnd_api.g_miss_date
741 , p5_a5 NUMBER := 0-1962.0724
742 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
743 , p5_a7 NUMBER := 0-1962.0724
744 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
745 , p5_a9 NUMBER := 0-1962.0724
746 , p5_a10 NUMBER := 0-1962.0724
747 , p5_a11 DATE := fnd_api.g_miss_date
748 , p5_a12 NUMBER := 0-1962.0724
749 , p5_a13 NUMBER := 0-1962.0724
750 , p5_a14 DATE := fnd_api.g_miss_date
751 , p5_a15 NUMBER := 0-1962.0724
752 , p5_a16 DATE := fnd_api.g_miss_date
753 , p5_a17 NUMBER := 0-1962.0724
754 )
755
756 as
757 ddp_aetv_rec okl_aet_pvt.aetv_rec_type;
758 ddx_aetv_rec okl_aet_pvt.aetv_rec_type;
759 ddindx binary_integer; indx binary_integer;
760 begin
761
762 -- copy data to the local IN or IN-OUT args, if any
763
764
765
766
767
768 ddp_aetv_rec.accounting_event_id := rosetta_g_miss_num_map(p5_a0);
769 ddp_aetv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
770 ddp_aetv_rec.org_id := rosetta_g_miss_num_map(p5_a2);
771 ddp_aetv_rec.event_type_code := p5_a3;
772 ddp_aetv_rec.accounting_date := rosetta_g_miss_date_in_map(p5_a4);
773 ddp_aetv_rec.event_number := rosetta_g_miss_num_map(p5_a5);
774 ddp_aetv_rec.event_status_code := p5_a6;
775 ddp_aetv_rec.source_id := rosetta_g_miss_num_map(p5_a7);
776 ddp_aetv_rec.source_table := p5_a8;
777 ddp_aetv_rec.program_id := rosetta_g_miss_num_map(p5_a9);
778 ddp_aetv_rec.program_application_id := rosetta_g_miss_num_map(p5_a10);
779 ddp_aetv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a11);
780 ddp_aetv_rec.request_id := rosetta_g_miss_num_map(p5_a12);
781 ddp_aetv_rec.created_by := rosetta_g_miss_num_map(p5_a13);
782 ddp_aetv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a14);
783 ddp_aetv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a15);
784 ddp_aetv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a16);
785 ddp_aetv_rec.last_update_login := rosetta_g_miss_num_map(p5_a17);
786
787
788 -- here's the delegated call to the old PL/SQL routine
789 okl_aet_pvt.update_row(p_api_version,
790 p_init_msg_list,
791 x_return_status,
792 x_msg_count,
793 x_msg_data,
794 ddp_aetv_rec,
795 ddx_aetv_rec);
796
797 -- copy data back from the local variables to OUT or IN-OUT args, if any
798
799
800
801
802
803
804 p6_a0 := rosetta_g_miss_num_map(ddx_aetv_rec.accounting_event_id);
805 p6_a1 := rosetta_g_miss_num_map(ddx_aetv_rec.object_version_number);
806 p6_a2 := rosetta_g_miss_num_map(ddx_aetv_rec.org_id);
807 p6_a3 := ddx_aetv_rec.event_type_code;
808 p6_a4 := ddx_aetv_rec.accounting_date;
809 p6_a5 := rosetta_g_miss_num_map(ddx_aetv_rec.event_number);
810 p6_a6 := ddx_aetv_rec.event_status_code;
811 p6_a7 := rosetta_g_miss_num_map(ddx_aetv_rec.source_id);
812 p6_a8 := ddx_aetv_rec.source_table;
813 p6_a9 := rosetta_g_miss_num_map(ddx_aetv_rec.program_id);
814 p6_a10 := rosetta_g_miss_num_map(ddx_aetv_rec.program_application_id);
815 p6_a11 := ddx_aetv_rec.program_update_date;
816 p6_a12 := rosetta_g_miss_num_map(ddx_aetv_rec.request_id);
817 p6_a13 := rosetta_g_miss_num_map(ddx_aetv_rec.created_by);
818 p6_a14 := ddx_aetv_rec.creation_date;
819 p6_a15 := rosetta_g_miss_num_map(ddx_aetv_rec.last_updated_by);
820 p6_a16 := ddx_aetv_rec.last_update_date;
821 p6_a17 := rosetta_g_miss_num_map(ddx_aetv_rec.last_update_login);
822 end;
823
824 procedure update_row(p_api_version NUMBER
825 , p_init_msg_list VARCHAR2
826 , x_return_status out nocopy VARCHAR2
827 , x_msg_count out nocopy NUMBER
828 , x_msg_data out nocopy VARCHAR2
829 , p5_a0 JTF_NUMBER_TABLE
830 , p5_a1 JTF_NUMBER_TABLE
831 , p5_a2 JTF_NUMBER_TABLE
832 , p5_a3 JTF_VARCHAR2_TABLE_100
833 , p5_a4 JTF_DATE_TABLE
834 , p5_a5 JTF_NUMBER_TABLE
835 , p5_a6 JTF_VARCHAR2_TABLE_100
836 , p5_a7 JTF_NUMBER_TABLE
837 , p5_a8 JTF_VARCHAR2_TABLE_100
838 , p5_a9 JTF_NUMBER_TABLE
839 , p5_a10 JTF_NUMBER_TABLE
840 , p5_a11 JTF_DATE_TABLE
841 , p5_a12 JTF_NUMBER_TABLE
842 , p5_a13 JTF_NUMBER_TABLE
843 , p5_a14 JTF_DATE_TABLE
844 , p5_a15 JTF_NUMBER_TABLE
845 , p5_a16 JTF_DATE_TABLE
846 , p5_a17 JTF_NUMBER_TABLE
847 , p6_a0 out nocopy JTF_NUMBER_TABLE
848 , p6_a1 out nocopy JTF_NUMBER_TABLE
849 , p6_a2 out nocopy JTF_NUMBER_TABLE
850 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
851 , p6_a4 out nocopy JTF_DATE_TABLE
852 , p6_a5 out nocopy JTF_NUMBER_TABLE
853 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_100
854 , p6_a7 out nocopy JTF_NUMBER_TABLE
855 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_100
856 , p6_a9 out nocopy JTF_NUMBER_TABLE
857 , p6_a10 out nocopy JTF_NUMBER_TABLE
858 , p6_a11 out nocopy JTF_DATE_TABLE
859 , p6_a12 out nocopy JTF_NUMBER_TABLE
860 , p6_a13 out nocopy JTF_NUMBER_TABLE
861 , p6_a14 out nocopy JTF_DATE_TABLE
862 , p6_a15 out nocopy JTF_NUMBER_TABLE
863 , p6_a16 out nocopy JTF_DATE_TABLE
864 , p6_a17 out nocopy JTF_NUMBER_TABLE
865 )
866
867 as
868 ddp_aetv_tbl okl_aet_pvt.aetv_tbl_type;
869 ddx_aetv_tbl okl_aet_pvt.aetv_tbl_type;
870 ddindx binary_integer; indx binary_integer;
871 begin
872
873 -- copy data to the local IN or IN-OUT args, if any
874
875
876
877
878
879 okl_aet_pvt_w.rosetta_table_copy_in_p5(ddp_aetv_tbl, p5_a0
880 , p5_a1
881 , p5_a2
882 , p5_a3
883 , p5_a4
884 , p5_a5
885 , p5_a6
886 , p5_a7
887 , p5_a8
888 , p5_a9
889 , p5_a10
890 , p5_a11
891 , p5_a12
892 , p5_a13
893 , p5_a14
894 , p5_a15
895 , p5_a16
896 , p5_a17
897 );
898
899
900 -- here's the delegated call to the old PL/SQL routine
901 okl_aet_pvt.update_row(p_api_version,
902 p_init_msg_list,
903 x_return_status,
904 x_msg_count,
905 x_msg_data,
906 ddp_aetv_tbl,
907 ddx_aetv_tbl);
908
909 -- copy data back from the local variables to OUT or IN-OUT args, if any
910
911
912
913
914
915
916 okl_aet_pvt_w.rosetta_table_copy_out_p5(ddx_aetv_tbl, p6_a0
917 , p6_a1
918 , p6_a2
919 , p6_a3
920 , p6_a4
921 , p6_a5
922 , p6_a6
923 , p6_a7
924 , p6_a8
925 , p6_a9
926 , p6_a10
927 , p6_a11
928 , p6_a12
929 , p6_a13
930 , p6_a14
931 , p6_a15
932 , p6_a16
933 , p6_a17
934 );
935 end;
936
937 procedure delete_row(p_api_version NUMBER
938 , p_init_msg_list VARCHAR2
939 , x_return_status out nocopy VARCHAR2
940 , x_msg_count out nocopy NUMBER
941 , x_msg_data out nocopy VARCHAR2
942 , p5_a0 NUMBER := 0-1962.0724
943 , p5_a1 NUMBER := 0-1962.0724
944 , p5_a2 NUMBER := 0-1962.0724
945 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
946 , p5_a4 DATE := fnd_api.g_miss_date
947 , p5_a5 NUMBER := 0-1962.0724
948 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
949 , p5_a7 NUMBER := 0-1962.0724
950 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
951 , p5_a9 NUMBER := 0-1962.0724
952 , p5_a10 NUMBER := 0-1962.0724
953 , p5_a11 DATE := fnd_api.g_miss_date
954 , p5_a12 NUMBER := 0-1962.0724
955 , p5_a13 NUMBER := 0-1962.0724
956 , p5_a14 DATE := fnd_api.g_miss_date
957 , p5_a15 NUMBER := 0-1962.0724
958 , p5_a16 DATE := fnd_api.g_miss_date
959 , p5_a17 NUMBER := 0-1962.0724
960 )
961
962 as
963 ddp_aetv_rec okl_aet_pvt.aetv_rec_type;
964 ddindx binary_integer; indx binary_integer;
965 begin
966
967 -- copy data to the local IN or IN-OUT args, if any
968
969
970
971
972
973 ddp_aetv_rec.accounting_event_id := rosetta_g_miss_num_map(p5_a0);
974 ddp_aetv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
975 ddp_aetv_rec.org_id := rosetta_g_miss_num_map(p5_a2);
976 ddp_aetv_rec.event_type_code := p5_a3;
977 ddp_aetv_rec.accounting_date := rosetta_g_miss_date_in_map(p5_a4);
978 ddp_aetv_rec.event_number := rosetta_g_miss_num_map(p5_a5);
979 ddp_aetv_rec.event_status_code := p5_a6;
980 ddp_aetv_rec.source_id := rosetta_g_miss_num_map(p5_a7);
981 ddp_aetv_rec.source_table := p5_a8;
982 ddp_aetv_rec.program_id := rosetta_g_miss_num_map(p5_a9);
983 ddp_aetv_rec.program_application_id := rosetta_g_miss_num_map(p5_a10);
984 ddp_aetv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a11);
985 ddp_aetv_rec.request_id := rosetta_g_miss_num_map(p5_a12);
986 ddp_aetv_rec.created_by := rosetta_g_miss_num_map(p5_a13);
987 ddp_aetv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a14);
988 ddp_aetv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a15);
989 ddp_aetv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a16);
990 ddp_aetv_rec.last_update_login := rosetta_g_miss_num_map(p5_a17);
991
992 -- here's the delegated call to the old PL/SQL routine
993 okl_aet_pvt.delete_row(p_api_version,
994 p_init_msg_list,
995 x_return_status,
996 x_msg_count,
997 x_msg_data,
998 ddp_aetv_rec);
999
1000 -- copy data back from the local variables to OUT or IN-OUT args, if any
1001
1002
1003
1004
1005
1006 end;
1007
1008 procedure delete_row(p_api_version NUMBER
1009 , p_init_msg_list VARCHAR2
1010 , x_return_status out nocopy VARCHAR2
1011 , x_msg_count out nocopy NUMBER
1012 , x_msg_data out nocopy VARCHAR2
1013 , p5_a0 JTF_NUMBER_TABLE
1014 , p5_a1 JTF_NUMBER_TABLE
1015 , p5_a2 JTF_NUMBER_TABLE
1016 , p5_a3 JTF_VARCHAR2_TABLE_100
1017 , p5_a4 JTF_DATE_TABLE
1018 , p5_a5 JTF_NUMBER_TABLE
1019 , p5_a6 JTF_VARCHAR2_TABLE_100
1020 , p5_a7 JTF_NUMBER_TABLE
1021 , p5_a8 JTF_VARCHAR2_TABLE_100
1022 , p5_a9 JTF_NUMBER_TABLE
1023 , p5_a10 JTF_NUMBER_TABLE
1024 , p5_a11 JTF_DATE_TABLE
1025 , p5_a12 JTF_NUMBER_TABLE
1026 , p5_a13 JTF_NUMBER_TABLE
1027 , p5_a14 JTF_DATE_TABLE
1028 , p5_a15 JTF_NUMBER_TABLE
1029 , p5_a16 JTF_DATE_TABLE
1030 , p5_a17 JTF_NUMBER_TABLE
1031 )
1032
1033 as
1034 ddp_aetv_tbl okl_aet_pvt.aetv_tbl_type;
1035 ddindx binary_integer; indx binary_integer;
1036 begin
1037
1038 -- copy data to the local IN or IN-OUT args, if any
1039
1040
1041
1042
1043
1044 okl_aet_pvt_w.rosetta_table_copy_in_p5(ddp_aetv_tbl, p5_a0
1045 , p5_a1
1046 , p5_a2
1047 , p5_a3
1048 , p5_a4
1049 , p5_a5
1050 , p5_a6
1051 , p5_a7
1052 , p5_a8
1053 , p5_a9
1054 , p5_a10
1055 , p5_a11
1056 , p5_a12
1057 , p5_a13
1058 , p5_a14
1059 , p5_a15
1060 , p5_a16
1061 , p5_a17
1062 );
1063
1064 -- here's the delegated call to the old PL/SQL routine
1065 okl_aet_pvt.delete_row(p_api_version,
1066 p_init_msg_list,
1067 x_return_status,
1068 x_msg_count,
1069 x_msg_data,
1070 ddp_aetv_tbl);
1071
1072 -- copy data back from the local variables to OUT or IN-OUT args, if any
1073
1074
1075
1076
1077
1078 end;
1079
1080 procedure validate_row(p_api_version NUMBER
1081 , p_init_msg_list VARCHAR2
1082 , x_return_status out nocopy VARCHAR2
1083 , x_msg_count out nocopy NUMBER
1084 , x_msg_data out nocopy VARCHAR2
1085 , p5_a0 NUMBER := 0-1962.0724
1086 , p5_a1 NUMBER := 0-1962.0724
1087 , p5_a2 NUMBER := 0-1962.0724
1088 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
1089 , p5_a4 DATE := fnd_api.g_miss_date
1090 , p5_a5 NUMBER := 0-1962.0724
1091 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
1092 , p5_a7 NUMBER := 0-1962.0724
1093 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
1094 , p5_a9 NUMBER := 0-1962.0724
1095 , p5_a10 NUMBER := 0-1962.0724
1096 , p5_a11 DATE := fnd_api.g_miss_date
1097 , p5_a12 NUMBER := 0-1962.0724
1098 , p5_a13 NUMBER := 0-1962.0724
1099 , p5_a14 DATE := fnd_api.g_miss_date
1100 , p5_a15 NUMBER := 0-1962.0724
1101 , p5_a16 DATE := fnd_api.g_miss_date
1102 , p5_a17 NUMBER := 0-1962.0724
1103 )
1104
1105 as
1106 ddp_aetv_rec okl_aet_pvt.aetv_rec_type;
1107 ddindx binary_integer; indx binary_integer;
1108 begin
1109
1110 -- copy data to the local IN or IN-OUT args, if any
1111
1112
1113
1114
1115
1116 ddp_aetv_rec.accounting_event_id := rosetta_g_miss_num_map(p5_a0);
1117 ddp_aetv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
1118 ddp_aetv_rec.org_id := rosetta_g_miss_num_map(p5_a2);
1119 ddp_aetv_rec.event_type_code := p5_a3;
1120 ddp_aetv_rec.accounting_date := rosetta_g_miss_date_in_map(p5_a4);
1121 ddp_aetv_rec.event_number := rosetta_g_miss_num_map(p5_a5);
1122 ddp_aetv_rec.event_status_code := p5_a6;
1123 ddp_aetv_rec.source_id := rosetta_g_miss_num_map(p5_a7);
1124 ddp_aetv_rec.source_table := p5_a8;
1125 ddp_aetv_rec.program_id := rosetta_g_miss_num_map(p5_a9);
1126 ddp_aetv_rec.program_application_id := rosetta_g_miss_num_map(p5_a10);
1127 ddp_aetv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a11);
1128 ddp_aetv_rec.request_id := rosetta_g_miss_num_map(p5_a12);
1129 ddp_aetv_rec.created_by := rosetta_g_miss_num_map(p5_a13);
1130 ddp_aetv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a14);
1131 ddp_aetv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a15);
1132 ddp_aetv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a16);
1133 ddp_aetv_rec.last_update_login := rosetta_g_miss_num_map(p5_a17);
1134
1135 -- here's the delegated call to the old PL/SQL routine
1136 okl_aet_pvt.validate_row(p_api_version,
1137 p_init_msg_list,
1138 x_return_status,
1139 x_msg_count,
1140 x_msg_data,
1141 ddp_aetv_rec);
1142
1143 -- copy data back from the local variables to OUT or IN-OUT args, if any
1144
1145
1146
1147
1148
1149 end;
1150
1151 procedure validate_row(p_api_version NUMBER
1152 , p_init_msg_list VARCHAR2
1153 , x_return_status out nocopy VARCHAR2
1154 , x_msg_count out nocopy NUMBER
1155 , x_msg_data out nocopy VARCHAR2
1156 , p5_a0 JTF_NUMBER_TABLE
1157 , p5_a1 JTF_NUMBER_TABLE
1158 , p5_a2 JTF_NUMBER_TABLE
1159 , p5_a3 JTF_VARCHAR2_TABLE_100
1160 , p5_a4 JTF_DATE_TABLE
1161 , p5_a5 JTF_NUMBER_TABLE
1162 , p5_a6 JTF_VARCHAR2_TABLE_100
1163 , p5_a7 JTF_NUMBER_TABLE
1164 , p5_a8 JTF_VARCHAR2_TABLE_100
1165 , p5_a9 JTF_NUMBER_TABLE
1166 , p5_a10 JTF_NUMBER_TABLE
1167 , p5_a11 JTF_DATE_TABLE
1168 , p5_a12 JTF_NUMBER_TABLE
1169 , p5_a13 JTF_NUMBER_TABLE
1170 , p5_a14 JTF_DATE_TABLE
1171 , p5_a15 JTF_NUMBER_TABLE
1172 , p5_a16 JTF_DATE_TABLE
1173 , p5_a17 JTF_NUMBER_TABLE
1174 )
1175
1176 as
1177 ddp_aetv_tbl okl_aet_pvt.aetv_tbl_type;
1178 ddindx binary_integer; indx binary_integer;
1179 begin
1180
1181 -- copy data to the local IN or IN-OUT args, if any
1182
1183
1184
1185
1186
1187 okl_aet_pvt_w.rosetta_table_copy_in_p5(ddp_aetv_tbl, p5_a0
1188 , p5_a1
1189 , p5_a2
1190 , p5_a3
1191 , p5_a4
1192 , p5_a5
1193 , p5_a6
1194 , p5_a7
1195 , p5_a8
1196 , p5_a9
1197 , p5_a10
1198 , p5_a11
1199 , p5_a12
1200 , p5_a13
1201 , p5_a14
1202 , p5_a15
1203 , p5_a16
1204 , p5_a17
1205 );
1206
1207 -- here's the delegated call to the old PL/SQL routine
1208 okl_aet_pvt.validate_row(p_api_version,
1209 p_init_msg_list,
1210 x_return_status,
1211 x_msg_count,
1212 x_msg_data,
1213 ddp_aetv_tbl);
1214
1215 -- copy data back from the local variables to OUT or IN-OUT args, if any
1216
1217
1218
1219
1220
1221 end;
1222
1223 end okl_aet_pvt_w;