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