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