[Home] [Help]
PACKAGE BODY: APPS.OKL_CSH_ORDER_SEQ_PVT_W
Source
1 package body okl_csh_order_seq_pvt_w as
2 /* $Header: OKLESATB.pls 120.1 2005/07/08 10:34:12 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_p4(t out nocopy okl_csh_order_seq_pvt.okl_csh_order_tbl_type, a0 JTF_VARCHAR2_TABLE_200
23 , a1 JTF_NUMBER_TABLE
24 , a2 JTF_NUMBER_TABLE
25 , a3 JTF_NUMBER_TABLE
26 , a4 JTF_NUMBER_TABLE
27 , a5 JTF_NUMBER_TABLE
28 , a6 JTF_VARCHAR2_TABLE_100
29 , a7 JTF_NUMBER_TABLE
30 , a8 JTF_DATE_TABLE
31 , a9 JTF_NUMBER_TABLE
32 , a10 JTF_DATE_TABLE
33 , a11 JTF_NUMBER_TABLE
34 ) as
35 ddindx binary_integer; indx binary_integer;
36 begin
37 if a0 is not null and a0.count > 0 then
38 if a0.count > 0 then
39 indx := a0.first;
40 ddindx := 1;
41 while true loop
42 t(ddindx).name := a0(indx);
43 t(ddindx).sty_id := rosetta_g_miss_num_map(a1(indx));
44 t(ddindx).cat_id := rosetta_g_miss_num_map(a2(indx));
45 t(ddindx).id := rosetta_g_miss_num_map(a3(indx));
46 t(ddindx).object_version_number := rosetta_g_miss_num_map(a4(indx));
47 t(ddindx).sequence_number := rosetta_g_miss_num_map(a5(indx));
48 t(ddindx).stream_allc_type := a6(indx);
49 t(ddindx).created_by := rosetta_g_miss_num_map(a7(indx));
50 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a8(indx));
51 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a9(indx));
52 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a10(indx));
53 t(ddindx).last_update_login := rosetta_g_miss_num_map(a11(indx));
54 ddindx := ddindx+1;
55 if a0.last =indx
56 then exit;
57 end if;
58 indx := a0.next(indx);
59 end loop;
60 end if;
61 end if;
62 end rosetta_table_copy_in_p4;
63 procedure rosetta_table_copy_out_p4(t okl_csh_order_seq_pvt.okl_csh_order_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_200
64 , a1 out nocopy JTF_NUMBER_TABLE
65 , a2 out nocopy JTF_NUMBER_TABLE
66 , a3 out nocopy JTF_NUMBER_TABLE
67 , a4 out nocopy JTF_NUMBER_TABLE
68 , a5 out nocopy JTF_NUMBER_TABLE
69 , a6 out nocopy JTF_VARCHAR2_TABLE_100
70 , a7 out nocopy JTF_NUMBER_TABLE
71 , a8 out nocopy JTF_DATE_TABLE
72 , a9 out nocopy JTF_NUMBER_TABLE
73 , a10 out nocopy JTF_DATE_TABLE
74 , a11 out nocopy JTF_NUMBER_TABLE
75 ) as
76 ddindx binary_integer; indx binary_integer;
77 begin
78 if t is null or t.count = 0 then
79 a0 := JTF_VARCHAR2_TABLE_200();
80 a1 := JTF_NUMBER_TABLE();
81 a2 := JTF_NUMBER_TABLE();
82 a3 := JTF_NUMBER_TABLE();
83 a4 := JTF_NUMBER_TABLE();
84 a5 := JTF_NUMBER_TABLE();
85 a6 := JTF_VARCHAR2_TABLE_100();
86 a7 := JTF_NUMBER_TABLE();
87 a8 := JTF_DATE_TABLE();
88 a9 := JTF_NUMBER_TABLE();
89 a10 := JTF_DATE_TABLE();
90 a11 := JTF_NUMBER_TABLE();
91 else
92 a0 := JTF_VARCHAR2_TABLE_200();
93 a1 := JTF_NUMBER_TABLE();
94 a2 := JTF_NUMBER_TABLE();
95 a3 := JTF_NUMBER_TABLE();
96 a4 := JTF_NUMBER_TABLE();
97 a5 := JTF_NUMBER_TABLE();
98 a6 := JTF_VARCHAR2_TABLE_100();
99 a7 := JTF_NUMBER_TABLE();
100 a8 := JTF_DATE_TABLE();
101 a9 := JTF_NUMBER_TABLE();
102 a10 := JTF_DATE_TABLE();
103 a11 := JTF_NUMBER_TABLE();
104 if t.count > 0 then
105 a0.extend(t.count);
106 a1.extend(t.count);
107 a2.extend(t.count);
108 a3.extend(t.count);
109 a4.extend(t.count);
110 a5.extend(t.count);
111 a6.extend(t.count);
112 a7.extend(t.count);
113 a8.extend(t.count);
114 a9.extend(t.count);
115 a10.extend(t.count);
116 a11.extend(t.count);
117 ddindx := t.first;
118 indx := 1;
119 while true loop
120 a0(indx) := t(ddindx).name;
121 a1(indx) := rosetta_g_miss_num_map(t(ddindx).sty_id);
122 a2(indx) := rosetta_g_miss_num_map(t(ddindx).cat_id);
123 a3(indx) := rosetta_g_miss_num_map(t(ddindx).id);
124 a4(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
125 a5(indx) := rosetta_g_miss_num_map(t(ddindx).sequence_number);
126 a6(indx) := t(ddindx).stream_allc_type;
127 a7(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
128 a8(indx) := t(ddindx).creation_date;
129 a9(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
130 a10(indx) := t(ddindx).last_update_date;
131 a11(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
132 indx := indx+1;
133 if t.last =ddindx
134 then exit;
135 end if;
136 ddindx := t.next(ddindx);
137 end loop;
138 end if;
139 end if;
140 end rosetta_table_copy_out_p4;
141
142 procedure insert_row(p_api_version NUMBER
143 , p_init_msg_list VARCHAR2
144 , x_return_status out nocopy VARCHAR2
145 , x_msg_count out nocopy NUMBER
146 , x_msg_data out nocopy VARCHAR2
147 , p6_a0 out nocopy VARCHAR2
148 , p6_a1 out nocopy NUMBER
149 , p6_a2 out nocopy NUMBER
150 , p6_a3 out nocopy NUMBER
151 , p6_a4 out nocopy NUMBER
152 , p6_a5 out nocopy NUMBER
153 , p6_a6 out nocopy VARCHAR2
154 , p6_a7 out nocopy NUMBER
155 , p6_a8 out nocopy DATE
156 , p6_a9 out nocopy NUMBER
157 , p6_a10 out nocopy DATE
158 , p6_a11 out nocopy NUMBER
159 , p5_a0 VARCHAR2 := fnd_api.g_miss_char
160 , p5_a1 NUMBER := 0-1962.0724
161 , p5_a2 NUMBER := 0-1962.0724
162 , p5_a3 NUMBER := 0-1962.0724
163 , p5_a4 NUMBER := 0-1962.0724
164 , p5_a5 NUMBER := 0-1962.0724
165 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
166 , p5_a7 NUMBER := 0-1962.0724
167 , p5_a8 DATE := fnd_api.g_miss_date
168 , p5_a9 NUMBER := 0-1962.0724
169 , p5_a10 DATE := fnd_api.g_miss_date
170 , p5_a11 NUMBER := 0-1962.0724
171 )
172
173 as
174 ddp_okl_csh_order_rec okl_csh_order_seq_pvt.okl_csh_order_rec_type;
175 ddx_okl_csh_order_rec okl_csh_order_seq_pvt.okl_csh_order_rec_type;
176 ddindx binary_integer; indx binary_integer;
177 begin
178
179 -- copy data to the local IN or IN-OUT args, if any
180
181
182
183
184
185 ddp_okl_csh_order_rec.name := p5_a0;
186 ddp_okl_csh_order_rec.sty_id := rosetta_g_miss_num_map(p5_a1);
187 ddp_okl_csh_order_rec.cat_id := rosetta_g_miss_num_map(p5_a2);
188 ddp_okl_csh_order_rec.id := rosetta_g_miss_num_map(p5_a3);
189 ddp_okl_csh_order_rec.object_version_number := rosetta_g_miss_num_map(p5_a4);
190 ddp_okl_csh_order_rec.sequence_number := rosetta_g_miss_num_map(p5_a5);
191 ddp_okl_csh_order_rec.stream_allc_type := p5_a6;
192 ddp_okl_csh_order_rec.created_by := rosetta_g_miss_num_map(p5_a7);
193 ddp_okl_csh_order_rec.creation_date := rosetta_g_miss_date_in_map(p5_a8);
194 ddp_okl_csh_order_rec.last_updated_by := rosetta_g_miss_num_map(p5_a9);
195 ddp_okl_csh_order_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a10);
196 ddp_okl_csh_order_rec.last_update_login := rosetta_g_miss_num_map(p5_a11);
197
198
199 -- here's the delegated call to the old PL/SQL routine
200 okl_csh_order_seq_pvt.insert_row(p_api_version,
201 p_init_msg_list,
202 x_return_status,
203 x_msg_count,
204 x_msg_data,
205 ddp_okl_csh_order_rec,
206 ddx_okl_csh_order_rec);
207
208 -- copy data back from the local variables to OUT or IN-OUT args, if any
209
210
211
212
213
214
215 p6_a0 := ddx_okl_csh_order_rec.name;
216 p6_a1 := rosetta_g_miss_num_map(ddx_okl_csh_order_rec.sty_id);
217 p6_a2 := rosetta_g_miss_num_map(ddx_okl_csh_order_rec.cat_id);
218 p6_a3 := rosetta_g_miss_num_map(ddx_okl_csh_order_rec.id);
219 p6_a4 := rosetta_g_miss_num_map(ddx_okl_csh_order_rec.object_version_number);
220 p6_a5 := rosetta_g_miss_num_map(ddx_okl_csh_order_rec.sequence_number);
221 p6_a6 := ddx_okl_csh_order_rec.stream_allc_type;
222 p6_a7 := rosetta_g_miss_num_map(ddx_okl_csh_order_rec.created_by);
223 p6_a8 := ddx_okl_csh_order_rec.creation_date;
224 p6_a9 := rosetta_g_miss_num_map(ddx_okl_csh_order_rec.last_updated_by);
225 p6_a10 := ddx_okl_csh_order_rec.last_update_date;
226 p6_a11 := rosetta_g_miss_num_map(ddx_okl_csh_order_rec.last_update_login);
227 end;
228
229 procedure insert_row(p_api_version NUMBER
230 , p_init_msg_list VARCHAR2
231 , x_return_status out nocopy VARCHAR2
232 , x_msg_count out nocopy NUMBER
233 , x_msg_data out nocopy VARCHAR2
234 , p5_a0 JTF_VARCHAR2_TABLE_200
235 , p5_a1 JTF_NUMBER_TABLE
236 , p5_a2 JTF_NUMBER_TABLE
237 , p5_a3 JTF_NUMBER_TABLE
238 , p5_a4 JTF_NUMBER_TABLE
239 , p5_a5 JTF_NUMBER_TABLE
240 , p5_a6 JTF_VARCHAR2_TABLE_100
241 , p5_a7 JTF_NUMBER_TABLE
242 , p5_a8 JTF_DATE_TABLE
243 , p5_a9 JTF_NUMBER_TABLE
244 , p5_a10 JTF_DATE_TABLE
245 , p5_a11 JTF_NUMBER_TABLE
246 , p6_a0 out nocopy JTF_VARCHAR2_TABLE_200
247 , p6_a1 out nocopy JTF_NUMBER_TABLE
248 , p6_a2 out nocopy JTF_NUMBER_TABLE
249 , p6_a3 out nocopy JTF_NUMBER_TABLE
250 , p6_a4 out nocopy JTF_NUMBER_TABLE
251 , p6_a5 out nocopy JTF_NUMBER_TABLE
252 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_100
253 , p6_a7 out nocopy JTF_NUMBER_TABLE
254 , p6_a8 out nocopy JTF_DATE_TABLE
255 , p6_a9 out nocopy JTF_NUMBER_TABLE
256 , p6_a10 out nocopy JTF_DATE_TABLE
257 , p6_a11 out nocopy JTF_NUMBER_TABLE
258 )
259
260 as
261 ddp_okl_csh_order_tbl okl_csh_order_seq_pvt.okl_csh_order_tbl_type;
262 ddx_okl_csh_order_tbl okl_csh_order_seq_pvt.okl_csh_order_tbl_type;
263 ddindx binary_integer; indx binary_integer;
264 begin
265
266 -- copy data to the local IN or IN-OUT args, if any
267
268
269
270
271
272 okl_csh_order_seq_pvt_w.rosetta_table_copy_in_p4(ddp_okl_csh_order_tbl, p5_a0
273 , p5_a1
274 , p5_a2
275 , p5_a3
276 , p5_a4
277 , p5_a5
278 , p5_a6
279 , p5_a7
280 , p5_a8
281 , p5_a9
282 , p5_a10
283 , p5_a11
284 );
285
286
287 -- here's the delegated call to the old PL/SQL routine
288 okl_csh_order_seq_pvt.insert_row(p_api_version,
289 p_init_msg_list,
290 x_return_status,
291 x_msg_count,
292 x_msg_data,
293 ddp_okl_csh_order_tbl,
294 ddx_okl_csh_order_tbl);
295
296 -- copy data back from the local variables to OUT or IN-OUT args, if any
297
298
299
300
301
302
303 okl_csh_order_seq_pvt_w.rosetta_table_copy_out_p4(ddx_okl_csh_order_tbl, p6_a0
304 , p6_a1
305 , p6_a2
306 , p6_a3
307 , p6_a4
308 , p6_a5
309 , p6_a6
310 , p6_a7
311 , p6_a8
312 , p6_a9
313 , p6_a10
314 , p6_a11
315 );
316 end;
317
318 procedure update_row(p_api_version NUMBER
319 , p_init_msg_list VARCHAR2
320 , x_return_status out nocopy VARCHAR2
321 , x_msg_count out nocopy NUMBER
322 , x_msg_data out nocopy VARCHAR2
323 , p6_a0 out nocopy VARCHAR2
324 , p6_a1 out nocopy NUMBER
325 , p6_a2 out nocopy NUMBER
326 , p6_a3 out nocopy NUMBER
327 , p6_a4 out nocopy NUMBER
328 , p6_a5 out nocopy NUMBER
329 , p6_a6 out nocopy VARCHAR2
330 , p6_a7 out nocopy NUMBER
331 , p6_a8 out nocopy DATE
332 , p6_a9 out nocopy NUMBER
333 , p6_a10 out nocopy DATE
334 , p6_a11 out nocopy NUMBER
335 , p5_a0 VARCHAR2 := fnd_api.g_miss_char
336 , p5_a1 NUMBER := 0-1962.0724
337 , p5_a2 NUMBER := 0-1962.0724
338 , p5_a3 NUMBER := 0-1962.0724
339 , p5_a4 NUMBER := 0-1962.0724
340 , p5_a5 NUMBER := 0-1962.0724
341 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
342 , p5_a7 NUMBER := 0-1962.0724
343 , p5_a8 DATE := fnd_api.g_miss_date
344 , p5_a9 NUMBER := 0-1962.0724
345 , p5_a10 DATE := fnd_api.g_miss_date
346 , p5_a11 NUMBER := 0-1962.0724
347 )
348
349 as
350 ddp_okl_csh_order_rec okl_csh_order_seq_pvt.okl_csh_order_rec_type;
351 ddx_okl_csh_order_rec okl_csh_order_seq_pvt.okl_csh_order_rec_type;
352 ddindx binary_integer; indx binary_integer;
353 begin
354
355 -- copy data to the local IN or IN-OUT args, if any
356
357
358
359
360
361 ddp_okl_csh_order_rec.name := p5_a0;
362 ddp_okl_csh_order_rec.sty_id := rosetta_g_miss_num_map(p5_a1);
363 ddp_okl_csh_order_rec.cat_id := rosetta_g_miss_num_map(p5_a2);
364 ddp_okl_csh_order_rec.id := rosetta_g_miss_num_map(p5_a3);
365 ddp_okl_csh_order_rec.object_version_number := rosetta_g_miss_num_map(p5_a4);
366 ddp_okl_csh_order_rec.sequence_number := rosetta_g_miss_num_map(p5_a5);
367 ddp_okl_csh_order_rec.stream_allc_type := p5_a6;
368 ddp_okl_csh_order_rec.created_by := rosetta_g_miss_num_map(p5_a7);
369 ddp_okl_csh_order_rec.creation_date := rosetta_g_miss_date_in_map(p5_a8);
370 ddp_okl_csh_order_rec.last_updated_by := rosetta_g_miss_num_map(p5_a9);
371 ddp_okl_csh_order_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a10);
372 ddp_okl_csh_order_rec.last_update_login := rosetta_g_miss_num_map(p5_a11);
373
374
375 -- here's the delegated call to the old PL/SQL routine
376 okl_csh_order_seq_pvt.update_row(p_api_version,
377 p_init_msg_list,
378 x_return_status,
379 x_msg_count,
380 x_msg_data,
381 ddp_okl_csh_order_rec,
382 ddx_okl_csh_order_rec);
383
384 -- copy data back from the local variables to OUT or IN-OUT args, if any
385
386
387
388
389
390
391 p6_a0 := ddx_okl_csh_order_rec.name;
392 p6_a1 := rosetta_g_miss_num_map(ddx_okl_csh_order_rec.sty_id);
393 p6_a2 := rosetta_g_miss_num_map(ddx_okl_csh_order_rec.cat_id);
394 p6_a3 := rosetta_g_miss_num_map(ddx_okl_csh_order_rec.id);
395 p6_a4 := rosetta_g_miss_num_map(ddx_okl_csh_order_rec.object_version_number);
396 p6_a5 := rosetta_g_miss_num_map(ddx_okl_csh_order_rec.sequence_number);
397 p6_a6 := ddx_okl_csh_order_rec.stream_allc_type;
398 p6_a7 := rosetta_g_miss_num_map(ddx_okl_csh_order_rec.created_by);
399 p6_a8 := ddx_okl_csh_order_rec.creation_date;
400 p6_a9 := rosetta_g_miss_num_map(ddx_okl_csh_order_rec.last_updated_by);
401 p6_a10 := ddx_okl_csh_order_rec.last_update_date;
402 p6_a11 := rosetta_g_miss_num_map(ddx_okl_csh_order_rec.last_update_login);
403 end;
404
405 procedure update_row(p_api_version NUMBER
406 , p_init_msg_list VARCHAR2
407 , x_return_status out nocopy VARCHAR2
408 , x_msg_count out nocopy NUMBER
409 , x_msg_data out nocopy VARCHAR2
410 , p5_a0 JTF_VARCHAR2_TABLE_200
411 , p5_a1 JTF_NUMBER_TABLE
412 , p5_a2 JTF_NUMBER_TABLE
413 , p5_a3 JTF_NUMBER_TABLE
414 , p5_a4 JTF_NUMBER_TABLE
415 , p5_a5 JTF_NUMBER_TABLE
416 , p5_a6 JTF_VARCHAR2_TABLE_100
417 , p5_a7 JTF_NUMBER_TABLE
418 , p5_a8 JTF_DATE_TABLE
419 , p5_a9 JTF_NUMBER_TABLE
420 , p5_a10 JTF_DATE_TABLE
421 , p5_a11 JTF_NUMBER_TABLE
422 , p6_a0 out nocopy JTF_VARCHAR2_TABLE_200
423 , p6_a1 out nocopy JTF_NUMBER_TABLE
424 , p6_a2 out nocopy JTF_NUMBER_TABLE
425 , p6_a3 out nocopy JTF_NUMBER_TABLE
426 , p6_a4 out nocopy JTF_NUMBER_TABLE
427 , p6_a5 out nocopy JTF_NUMBER_TABLE
428 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_100
429 , p6_a7 out nocopy JTF_NUMBER_TABLE
430 , p6_a8 out nocopy JTF_DATE_TABLE
431 , p6_a9 out nocopy JTF_NUMBER_TABLE
432 , p6_a10 out nocopy JTF_DATE_TABLE
433 , p6_a11 out nocopy JTF_NUMBER_TABLE
434 )
435
436 as
437 ddp_okl_csh_order_tbl okl_csh_order_seq_pvt.okl_csh_order_tbl_type;
438 ddx_okl_csh_order_tbl okl_csh_order_seq_pvt.okl_csh_order_tbl_type;
439 ddindx binary_integer; indx binary_integer;
440 begin
441
442 -- copy data to the local IN or IN-OUT args, if any
443
444
445
446
447
448 okl_csh_order_seq_pvt_w.rosetta_table_copy_in_p4(ddp_okl_csh_order_tbl, p5_a0
449 , p5_a1
450 , p5_a2
451 , p5_a3
452 , p5_a4
453 , p5_a5
454 , p5_a6
455 , p5_a7
456 , p5_a8
457 , p5_a9
458 , p5_a10
459 , p5_a11
460 );
461
462
463 -- here's the delegated call to the old PL/SQL routine
464 okl_csh_order_seq_pvt.update_row(p_api_version,
465 p_init_msg_list,
466 x_return_status,
467 x_msg_count,
468 x_msg_data,
469 ddp_okl_csh_order_tbl,
470 ddx_okl_csh_order_tbl);
471
472 -- copy data back from the local variables to OUT or IN-OUT args, if any
473
474
475
476
477
478
479 okl_csh_order_seq_pvt_w.rosetta_table_copy_out_p4(ddx_okl_csh_order_tbl, p6_a0
480 , p6_a1
481 , p6_a2
482 , p6_a3
483 , p6_a4
484 , p6_a5
485 , p6_a6
486 , p6_a7
487 , p6_a8
488 , p6_a9
489 , p6_a10
490 , p6_a11
491 );
492 end;
493
494 procedure delete_row(p_api_version NUMBER
495 , p_init_msg_list VARCHAR2
496 , x_return_status out nocopy VARCHAR2
497 , x_msg_count out nocopy NUMBER
498 , x_msg_data out nocopy VARCHAR2
499 , p5_a0 VARCHAR2 := fnd_api.g_miss_char
500 , p5_a1 NUMBER := 0-1962.0724
501 , p5_a2 NUMBER := 0-1962.0724
502 , p5_a3 NUMBER := 0-1962.0724
503 , p5_a4 NUMBER := 0-1962.0724
504 , p5_a5 NUMBER := 0-1962.0724
505 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
506 , p5_a7 NUMBER := 0-1962.0724
507 , p5_a8 DATE := fnd_api.g_miss_date
508 , p5_a9 NUMBER := 0-1962.0724
509 , p5_a10 DATE := fnd_api.g_miss_date
510 , p5_a11 NUMBER := 0-1962.0724
511 )
512
513 as
514 ddp_okl_csh_order_rec okl_csh_order_seq_pvt.okl_csh_order_rec_type;
515 ddindx binary_integer; indx binary_integer;
516 begin
517
518 -- copy data to the local IN or IN-OUT args, if any
519
520
521
522
523
524 ddp_okl_csh_order_rec.name := p5_a0;
525 ddp_okl_csh_order_rec.sty_id := rosetta_g_miss_num_map(p5_a1);
526 ddp_okl_csh_order_rec.cat_id := rosetta_g_miss_num_map(p5_a2);
527 ddp_okl_csh_order_rec.id := rosetta_g_miss_num_map(p5_a3);
528 ddp_okl_csh_order_rec.object_version_number := rosetta_g_miss_num_map(p5_a4);
529 ddp_okl_csh_order_rec.sequence_number := rosetta_g_miss_num_map(p5_a5);
530 ddp_okl_csh_order_rec.stream_allc_type := p5_a6;
531 ddp_okl_csh_order_rec.created_by := rosetta_g_miss_num_map(p5_a7);
532 ddp_okl_csh_order_rec.creation_date := rosetta_g_miss_date_in_map(p5_a8);
533 ddp_okl_csh_order_rec.last_updated_by := rosetta_g_miss_num_map(p5_a9);
534 ddp_okl_csh_order_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a10);
535 ddp_okl_csh_order_rec.last_update_login := rosetta_g_miss_num_map(p5_a11);
536
537 -- here's the delegated call to the old PL/SQL routine
538 okl_csh_order_seq_pvt.delete_row(p_api_version,
539 p_init_msg_list,
540 x_return_status,
541 x_msg_count,
542 x_msg_data,
543 ddp_okl_csh_order_rec);
544
545 -- copy data back from the local variables to OUT or IN-OUT args, if any
546
547
548
549
550
551 end;
552
553 procedure delete_row(p_api_version NUMBER
554 , p_init_msg_list VARCHAR2
555 , x_return_status out nocopy VARCHAR2
556 , x_msg_count out nocopy NUMBER
557 , x_msg_data out nocopy VARCHAR2
558 , p5_a0 JTF_VARCHAR2_TABLE_200
559 , p5_a1 JTF_NUMBER_TABLE
560 , p5_a2 JTF_NUMBER_TABLE
561 , p5_a3 JTF_NUMBER_TABLE
562 , p5_a4 JTF_NUMBER_TABLE
563 , p5_a5 JTF_NUMBER_TABLE
564 , p5_a6 JTF_VARCHAR2_TABLE_100
565 , p5_a7 JTF_NUMBER_TABLE
566 , p5_a8 JTF_DATE_TABLE
567 , p5_a9 JTF_NUMBER_TABLE
568 , p5_a10 JTF_DATE_TABLE
569 , p5_a11 JTF_NUMBER_TABLE
570 )
571
572 as
573 ddp_okl_csh_order_tbl okl_csh_order_seq_pvt.okl_csh_order_tbl_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 okl_csh_order_seq_pvt_w.rosetta_table_copy_in_p4(ddp_okl_csh_order_tbl, p5_a0
584 , p5_a1
585 , p5_a2
586 , p5_a3
587 , p5_a4
588 , p5_a5
589 , p5_a6
590 , p5_a7
591 , p5_a8
592 , p5_a9
593 , p5_a10
594 , p5_a11
595 );
596
597 -- here's the delegated call to the old PL/SQL routine
598 okl_csh_order_seq_pvt.delete_row(p_api_version,
599 p_init_msg_list,
600 x_return_status,
601 x_msg_count,
602 x_msg_data,
603 ddp_okl_csh_order_tbl);
604
605 -- copy data back from the local variables to OUT or IN-OUT args, if any
606
607
608
609
610
611 end;
612
613 end okl_csh_order_seq_pvt_w;