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