[Home] [Help]
PACKAGE BODY: APPS.OKL_SRT_PVT_W
Source
1 package body okl_srt_pvt_w as
2 /* $Header: OKLISRTB.pls 120.0 2005/07/07 10:40:32 viselvar noship $ */
3 procedure rosetta_table_copy_in_p1(t out nocopy okl_srt_pvt.okl_srtv_tbl, a0 JTF_NUMBER_TABLE
4 , a1 JTF_VARCHAR2_TABLE_300
5 , a2 JTF_VARCHAR2_TABLE_2000
6 , a3 JTF_NUMBER_TABLE
7 , a4 JTF_NUMBER_TABLE
8 , a5 JTF_VARCHAR2_TABLE_100
9 , a6 JTF_VARCHAR2_TABLE_100
10 , a7 JTF_VARCHAR2_TABLE_100
11 , a8 JTF_NUMBER_TABLE
12 , a9 JTF_VARCHAR2_TABLE_100
13 , a10 JTF_VARCHAR2_TABLE_100
14 , a11 JTF_NUMBER_TABLE
15 , a12 JTF_VARCHAR2_TABLE_100
16 , a13 JTF_VARCHAR2_TABLE_100
17 , a14 JTF_DATE_TABLE
18 , a15 JTF_DATE_TABLE
19 , a16 JTF_NUMBER_TABLE
20 , a17 JTF_VARCHAR2_TABLE_100
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_VARCHAR2_TABLE_500
33 , a30 JTF_VARCHAR2_TABLE_500
34 , a31 JTF_VARCHAR2_TABLE_500
35 , a32 JTF_VARCHAR2_TABLE_500
36 , a33 JTF_NUMBER_TABLE
37 , a34 JTF_DATE_TABLE
38 , a35 JTF_NUMBER_TABLE
39 , a36 JTF_DATE_TABLE
40 , a37 JTF_NUMBER_TABLE
41 ) as
42 ddindx binary_integer; indx binary_integer;
43 begin
44 if a0 is not null and a0.count > 0 then
45 if a0.count > 0 then
46 indx := a0.first;
47 ddindx := 1;
48 while true loop
49 t(ddindx).std_rate_tmpl_id := a0(indx);
50 t(ddindx).template_name := a1(indx);
51 t(ddindx).template_desc := a2(indx);
52 t(ddindx).object_version_number := a3(indx);
53 t(ddindx).org_id := a4(indx);
54 t(ddindx).currency_code := a5(indx);
55 t(ddindx).rate_card_yn := a6(indx);
56 t(ddindx).pricing_engine_code := a7(indx);
57 t(ddindx).orig_std_rate_tmpl_id := a8(indx);
58 t(ddindx).rate_type_code := a9(indx);
59 t(ddindx).frequency_code := a10(indx);
60 t(ddindx).index_id := a11(indx);
61 t(ddindx).default_yn := a12(indx);
62 t(ddindx).sts_code := a13(indx);
63 t(ddindx).effective_from_date := a14(indx);
64 t(ddindx).effective_to_date := a15(indx);
65 t(ddindx).srt_rate := a16(indx);
66 t(ddindx).attribute_category := a17(indx);
67 t(ddindx).attribute1 := a18(indx);
68 t(ddindx).attribute2 := a19(indx);
69 t(ddindx).attribute3 := a20(indx);
70 t(ddindx).attribute4 := a21(indx);
71 t(ddindx).attribute5 := a22(indx);
72 t(ddindx).attribute6 := a23(indx);
73 t(ddindx).attribute7 := a24(indx);
74 t(ddindx).attribute8 := a25(indx);
75 t(ddindx).attribute9 := a26(indx);
76 t(ddindx).attribute10 := a27(indx);
77 t(ddindx).attribute11 := a28(indx);
78 t(ddindx).attribute12 := a29(indx);
79 t(ddindx).attribute13 := a30(indx);
80 t(ddindx).attribute14 := a31(indx);
81 t(ddindx).attribute15 := a32(indx);
82 t(ddindx).created_by := a33(indx);
83 t(ddindx).creation_date := a34(indx);
84 t(ddindx).last_updated_by := a35(indx);
85 t(ddindx).last_update_date := a36(indx);
86 t(ddindx).last_update_login := a37(indx);
87 ddindx := ddindx+1;
88 if a0.last =indx
89 then exit;
90 end if;
91 indx := a0.next(indx);
92 end loop;
93 end if;
94 end if;
95 end rosetta_table_copy_in_p1;
96 procedure rosetta_table_copy_out_p1(t okl_srt_pvt.okl_srtv_tbl, a0 out nocopy JTF_NUMBER_TABLE
97 , a1 out nocopy JTF_VARCHAR2_TABLE_300
98 , a2 out nocopy JTF_VARCHAR2_TABLE_2000
99 , a3 out nocopy JTF_NUMBER_TABLE
100 , a4 out nocopy JTF_NUMBER_TABLE
101 , a5 out nocopy JTF_VARCHAR2_TABLE_100
102 , a6 out nocopy JTF_VARCHAR2_TABLE_100
103 , a7 out nocopy JTF_VARCHAR2_TABLE_100
104 , a8 out nocopy JTF_NUMBER_TABLE
105 , a9 out nocopy JTF_VARCHAR2_TABLE_100
106 , a10 out nocopy JTF_VARCHAR2_TABLE_100
107 , a11 out nocopy JTF_NUMBER_TABLE
108 , a12 out nocopy JTF_VARCHAR2_TABLE_100
109 , a13 out nocopy JTF_VARCHAR2_TABLE_100
110 , a14 out nocopy JTF_DATE_TABLE
111 , a15 out nocopy JTF_DATE_TABLE
112 , a16 out nocopy JTF_NUMBER_TABLE
113 , a17 out nocopy JTF_VARCHAR2_TABLE_100
114 , a18 out nocopy JTF_VARCHAR2_TABLE_500
115 , a19 out nocopy JTF_VARCHAR2_TABLE_500
116 , a20 out nocopy JTF_VARCHAR2_TABLE_500
117 , a21 out nocopy JTF_VARCHAR2_TABLE_500
118 , a22 out nocopy JTF_VARCHAR2_TABLE_500
119 , a23 out nocopy JTF_VARCHAR2_TABLE_500
120 , a24 out nocopy JTF_VARCHAR2_TABLE_500
121 , a25 out nocopy JTF_VARCHAR2_TABLE_500
122 , a26 out nocopy JTF_VARCHAR2_TABLE_500
123 , a27 out nocopy JTF_VARCHAR2_TABLE_500
124 , a28 out nocopy JTF_VARCHAR2_TABLE_500
125 , a29 out nocopy JTF_VARCHAR2_TABLE_500
126 , a30 out nocopy JTF_VARCHAR2_TABLE_500
127 , a31 out nocopy JTF_VARCHAR2_TABLE_500
128 , a32 out nocopy JTF_VARCHAR2_TABLE_500
129 , a33 out nocopy JTF_NUMBER_TABLE
130 , a34 out nocopy JTF_DATE_TABLE
131 , a35 out nocopy JTF_NUMBER_TABLE
132 , a36 out nocopy JTF_DATE_TABLE
133 , a37 out nocopy JTF_NUMBER_TABLE
134 ) as
135 ddindx binary_integer; indx binary_integer;
136 begin
137 if t is null or t.count = 0 then
138 a0 := JTF_NUMBER_TABLE();
139 a1 := JTF_VARCHAR2_TABLE_300();
140 a2 := JTF_VARCHAR2_TABLE_2000();
141 a3 := JTF_NUMBER_TABLE();
142 a4 := JTF_NUMBER_TABLE();
143 a5 := JTF_VARCHAR2_TABLE_100();
144 a6 := JTF_VARCHAR2_TABLE_100();
145 a7 := JTF_VARCHAR2_TABLE_100();
146 a8 := JTF_NUMBER_TABLE();
147 a9 := JTF_VARCHAR2_TABLE_100();
148 a10 := JTF_VARCHAR2_TABLE_100();
149 a11 := JTF_NUMBER_TABLE();
150 a12 := JTF_VARCHAR2_TABLE_100();
151 a13 := JTF_VARCHAR2_TABLE_100();
152 a14 := JTF_DATE_TABLE();
153 a15 := JTF_DATE_TABLE();
154 a16 := JTF_NUMBER_TABLE();
155 a17 := JTF_VARCHAR2_TABLE_100();
156 a18 := JTF_VARCHAR2_TABLE_500();
157 a19 := JTF_VARCHAR2_TABLE_500();
158 a20 := JTF_VARCHAR2_TABLE_500();
159 a21 := JTF_VARCHAR2_TABLE_500();
160 a22 := JTF_VARCHAR2_TABLE_500();
161 a23 := JTF_VARCHAR2_TABLE_500();
162 a24 := JTF_VARCHAR2_TABLE_500();
163 a25 := JTF_VARCHAR2_TABLE_500();
164 a26 := JTF_VARCHAR2_TABLE_500();
165 a27 := JTF_VARCHAR2_TABLE_500();
166 a28 := JTF_VARCHAR2_TABLE_500();
167 a29 := JTF_VARCHAR2_TABLE_500();
168 a30 := JTF_VARCHAR2_TABLE_500();
169 a31 := JTF_VARCHAR2_TABLE_500();
170 a32 := JTF_VARCHAR2_TABLE_500();
171 a33 := JTF_NUMBER_TABLE();
172 a34 := JTF_DATE_TABLE();
173 a35 := JTF_NUMBER_TABLE();
174 a36 := JTF_DATE_TABLE();
175 a37 := JTF_NUMBER_TABLE();
176 else
177 a0 := JTF_NUMBER_TABLE();
178 a1 := JTF_VARCHAR2_TABLE_300();
179 a2 := JTF_VARCHAR2_TABLE_2000();
180 a3 := JTF_NUMBER_TABLE();
181 a4 := JTF_NUMBER_TABLE();
182 a5 := JTF_VARCHAR2_TABLE_100();
183 a6 := JTF_VARCHAR2_TABLE_100();
184 a7 := JTF_VARCHAR2_TABLE_100();
185 a8 := JTF_NUMBER_TABLE();
186 a9 := JTF_VARCHAR2_TABLE_100();
187 a10 := JTF_VARCHAR2_TABLE_100();
188 a11 := JTF_NUMBER_TABLE();
189 a12 := JTF_VARCHAR2_TABLE_100();
190 a13 := JTF_VARCHAR2_TABLE_100();
191 a14 := JTF_DATE_TABLE();
192 a15 := JTF_DATE_TABLE();
193 a16 := JTF_NUMBER_TABLE();
194 a17 := JTF_VARCHAR2_TABLE_100();
195 a18 := JTF_VARCHAR2_TABLE_500();
196 a19 := JTF_VARCHAR2_TABLE_500();
197 a20 := JTF_VARCHAR2_TABLE_500();
198 a21 := JTF_VARCHAR2_TABLE_500();
199 a22 := JTF_VARCHAR2_TABLE_500();
200 a23 := JTF_VARCHAR2_TABLE_500();
201 a24 := JTF_VARCHAR2_TABLE_500();
202 a25 := JTF_VARCHAR2_TABLE_500();
203 a26 := JTF_VARCHAR2_TABLE_500();
204 a27 := JTF_VARCHAR2_TABLE_500();
205 a28 := JTF_VARCHAR2_TABLE_500();
206 a29 := JTF_VARCHAR2_TABLE_500();
207 a30 := JTF_VARCHAR2_TABLE_500();
208 a31 := JTF_VARCHAR2_TABLE_500();
209 a32 := JTF_VARCHAR2_TABLE_500();
210 a33 := JTF_NUMBER_TABLE();
211 a34 := JTF_DATE_TABLE();
212 a35 := JTF_NUMBER_TABLE();
213 a36 := JTF_DATE_TABLE();
214 a37 := JTF_NUMBER_TABLE();
215 if t.count > 0 then
216 a0.extend(t.count);
217 a1.extend(t.count);
218 a2.extend(t.count);
219 a3.extend(t.count);
220 a4.extend(t.count);
221 a5.extend(t.count);
222 a6.extend(t.count);
223 a7.extend(t.count);
224 a8.extend(t.count);
225 a9.extend(t.count);
226 a10.extend(t.count);
227 a11.extend(t.count);
228 a12.extend(t.count);
229 a13.extend(t.count);
230 a14.extend(t.count);
231 a15.extend(t.count);
232 a16.extend(t.count);
233 a17.extend(t.count);
234 a18.extend(t.count);
235 a19.extend(t.count);
236 a20.extend(t.count);
237 a21.extend(t.count);
238 a22.extend(t.count);
239 a23.extend(t.count);
240 a24.extend(t.count);
241 a25.extend(t.count);
242 a26.extend(t.count);
243 a27.extend(t.count);
244 a28.extend(t.count);
245 a29.extend(t.count);
246 a30.extend(t.count);
247 a31.extend(t.count);
248 a32.extend(t.count);
249 a33.extend(t.count);
250 a34.extend(t.count);
251 a35.extend(t.count);
252 a36.extend(t.count);
253 a37.extend(t.count);
254 ddindx := t.first;
255 indx := 1;
256 while true loop
257 a0(indx) := t(ddindx).std_rate_tmpl_id;
258 a1(indx) := t(ddindx).template_name;
259 a2(indx) := t(ddindx).template_desc;
260 a3(indx) := t(ddindx).object_version_number;
261 a4(indx) := t(ddindx).org_id;
262 a5(indx) := t(ddindx).currency_code;
263 a6(indx) := t(ddindx).rate_card_yn;
264 a7(indx) := t(ddindx).pricing_engine_code;
265 a8(indx) := t(ddindx).orig_std_rate_tmpl_id;
266 a9(indx) := t(ddindx).rate_type_code;
267 a10(indx) := t(ddindx).frequency_code;
268 a11(indx) := t(ddindx).index_id;
269 a12(indx) := t(ddindx).default_yn;
270 a13(indx) := t(ddindx).sts_code;
271 a14(indx) := t(ddindx).effective_from_date;
272 a15(indx) := t(ddindx).effective_to_date;
273 a16(indx) := t(ddindx).srt_rate;
274 a17(indx) := t(ddindx).attribute_category;
275 a18(indx) := t(ddindx).attribute1;
276 a19(indx) := t(ddindx).attribute2;
277 a20(indx) := t(ddindx).attribute3;
278 a21(indx) := t(ddindx).attribute4;
279 a22(indx) := t(ddindx).attribute5;
280 a23(indx) := t(ddindx).attribute6;
281 a24(indx) := t(ddindx).attribute7;
282 a25(indx) := t(ddindx).attribute8;
283 a26(indx) := t(ddindx).attribute9;
284 a27(indx) := t(ddindx).attribute10;
285 a28(indx) := t(ddindx).attribute11;
286 a29(indx) := t(ddindx).attribute12;
287 a30(indx) := t(ddindx).attribute13;
288 a31(indx) := t(ddindx).attribute14;
289 a32(indx) := t(ddindx).attribute15;
290 a33(indx) := t(ddindx).created_by;
291 a34(indx) := t(ddindx).creation_date;
292 a35(indx) := t(ddindx).last_updated_by;
293 a36(indx) := t(ddindx).last_update_date;
294 a37(indx) := t(ddindx).last_update_login;
295 indx := indx+1;
296 if t.last =ddindx
297 then exit;
298 end if;
299 ddindx := t.next(ddindx);
300 end loop;
301 end if;
302 end if;
303 end rosetta_table_copy_out_p1;
304
305 procedure rosetta_table_copy_in_p3(t out nocopy okl_srt_pvt.okl_srtb_tbl, a0 JTF_NUMBER_TABLE
306 , a1 JTF_VARCHAR2_TABLE_300
307 , a2 JTF_NUMBER_TABLE
308 , a3 JTF_NUMBER_TABLE
309 , a4 JTF_VARCHAR2_TABLE_100
310 , a5 JTF_VARCHAR2_TABLE_100
311 , a6 JTF_VARCHAR2_TABLE_100
312 , a7 JTF_NUMBER_TABLE
313 , a8 JTF_VARCHAR2_TABLE_100
314 , a9 JTF_VARCHAR2_TABLE_100
315 , a10 JTF_NUMBER_TABLE
316 , a11 JTF_VARCHAR2_TABLE_100
317 , a12 JTF_VARCHAR2_TABLE_100
318 , a13 JTF_DATE_TABLE
319 , a14 JTF_DATE_TABLE
320 , a15 JTF_NUMBER_TABLE
321 , a16 JTF_VARCHAR2_TABLE_100
322 , a17 JTF_VARCHAR2_TABLE_500
323 , a18 JTF_VARCHAR2_TABLE_500
324 , a19 JTF_VARCHAR2_TABLE_500
325 , a20 JTF_VARCHAR2_TABLE_500
326 , a21 JTF_VARCHAR2_TABLE_500
327 , a22 JTF_VARCHAR2_TABLE_500
328 , a23 JTF_VARCHAR2_TABLE_500
329 , a24 JTF_VARCHAR2_TABLE_500
330 , a25 JTF_VARCHAR2_TABLE_500
331 , a26 JTF_VARCHAR2_TABLE_500
332 , a27 JTF_VARCHAR2_TABLE_500
333 , a28 JTF_VARCHAR2_TABLE_500
334 , a29 JTF_VARCHAR2_TABLE_500
335 , a30 JTF_VARCHAR2_TABLE_500
336 , a31 JTF_VARCHAR2_TABLE_500
337 , a32 JTF_NUMBER_TABLE
338 , a33 JTF_DATE_TABLE
339 , a34 JTF_NUMBER_TABLE
340 , a35 JTF_DATE_TABLE
341 , a36 JTF_NUMBER_TABLE
342 ) as
343 ddindx binary_integer; indx binary_integer;
344 begin
345 if a0 is not null and a0.count > 0 then
346 if a0.count > 0 then
347 indx := a0.first;
348 ddindx := 1;
349 while true loop
350 t(ddindx).std_rate_tmpl_id := a0(indx);
351 t(ddindx).template_name := a1(indx);
352 t(ddindx).object_version_number := a2(indx);
353 t(ddindx).org_id := a3(indx);
354 t(ddindx).currency_code := a4(indx);
355 t(ddindx).rate_card_yn := a5(indx);
356 t(ddindx).pricing_engine_code := a6(indx);
357 t(ddindx).orig_std_rate_tmpl_id := a7(indx);
358 t(ddindx).rate_type_code := a8(indx);
359 t(ddindx).frequency_code := a9(indx);
360 t(ddindx).index_id := a10(indx);
361 t(ddindx).default_yn := a11(indx);
362 t(ddindx).sts_code := a12(indx);
363 t(ddindx).effective_from_date := a13(indx);
364 t(ddindx).effective_to_date := a14(indx);
365 t(ddindx).srt_rate := a15(indx);
366 t(ddindx).attribute_category := a16(indx);
367 t(ddindx).attribute1 := a17(indx);
368 t(ddindx).attribute2 := a18(indx);
369 t(ddindx).attribute3 := a19(indx);
370 t(ddindx).attribute4 := a20(indx);
371 t(ddindx).attribute5 := a21(indx);
372 t(ddindx).attribute6 := a22(indx);
373 t(ddindx).attribute7 := a23(indx);
374 t(ddindx).attribute8 := a24(indx);
375 t(ddindx).attribute9 := a25(indx);
376 t(ddindx).attribute10 := a26(indx);
377 t(ddindx).attribute11 := a27(indx);
378 t(ddindx).attribute12 := a28(indx);
379 t(ddindx).attribute13 := a29(indx);
380 t(ddindx).attribute14 := a30(indx);
381 t(ddindx).attribute15 := a31(indx);
382 t(ddindx).created_by := a32(indx);
383 t(ddindx).creation_date := a33(indx);
384 t(ddindx).last_updated_by := a34(indx);
385 t(ddindx).last_update_date := a35(indx);
386 t(ddindx).last_update_login := a36(indx);
387 ddindx := ddindx+1;
388 if a0.last =indx
389 then exit;
390 end if;
391 indx := a0.next(indx);
392 end loop;
393 end if;
394 end if;
395 end rosetta_table_copy_in_p3;
396 procedure rosetta_table_copy_out_p3(t okl_srt_pvt.okl_srtb_tbl, a0 out nocopy JTF_NUMBER_TABLE
397 , a1 out nocopy JTF_VARCHAR2_TABLE_300
398 , a2 out nocopy JTF_NUMBER_TABLE
399 , a3 out nocopy JTF_NUMBER_TABLE
400 , a4 out nocopy JTF_VARCHAR2_TABLE_100
401 , a5 out nocopy JTF_VARCHAR2_TABLE_100
402 , a6 out nocopy JTF_VARCHAR2_TABLE_100
403 , a7 out nocopy JTF_NUMBER_TABLE
404 , a8 out nocopy JTF_VARCHAR2_TABLE_100
405 , a9 out nocopy JTF_VARCHAR2_TABLE_100
406 , a10 out nocopy JTF_NUMBER_TABLE
407 , a11 out nocopy JTF_VARCHAR2_TABLE_100
408 , a12 out nocopy JTF_VARCHAR2_TABLE_100
409 , a13 out nocopy JTF_DATE_TABLE
410 , a14 out nocopy JTF_DATE_TABLE
411 , a15 out nocopy JTF_NUMBER_TABLE
412 , a16 out nocopy JTF_VARCHAR2_TABLE_100
413 , a17 out nocopy JTF_VARCHAR2_TABLE_500
414 , a18 out nocopy JTF_VARCHAR2_TABLE_500
415 , a19 out nocopy JTF_VARCHAR2_TABLE_500
416 , a20 out nocopy JTF_VARCHAR2_TABLE_500
417 , a21 out nocopy JTF_VARCHAR2_TABLE_500
418 , a22 out nocopy JTF_VARCHAR2_TABLE_500
419 , a23 out nocopy JTF_VARCHAR2_TABLE_500
420 , a24 out nocopy JTF_VARCHAR2_TABLE_500
421 , a25 out nocopy JTF_VARCHAR2_TABLE_500
422 , a26 out nocopy JTF_VARCHAR2_TABLE_500
423 , a27 out nocopy JTF_VARCHAR2_TABLE_500
424 , a28 out nocopy JTF_VARCHAR2_TABLE_500
425 , a29 out nocopy JTF_VARCHAR2_TABLE_500
426 , a30 out nocopy JTF_VARCHAR2_TABLE_500
427 , a31 out nocopy JTF_VARCHAR2_TABLE_500
428 , a32 out nocopy JTF_NUMBER_TABLE
429 , a33 out nocopy JTF_DATE_TABLE
430 , a34 out nocopy JTF_NUMBER_TABLE
431 , a35 out nocopy JTF_DATE_TABLE
432 , a36 out nocopy JTF_NUMBER_TABLE
433 ) as
434 ddindx binary_integer; indx binary_integer;
435 begin
436 if t is null or t.count = 0 then
437 a0 := JTF_NUMBER_TABLE();
438 a1 := JTF_VARCHAR2_TABLE_300();
439 a2 := JTF_NUMBER_TABLE();
440 a3 := JTF_NUMBER_TABLE();
441 a4 := JTF_VARCHAR2_TABLE_100();
442 a5 := JTF_VARCHAR2_TABLE_100();
443 a6 := JTF_VARCHAR2_TABLE_100();
444 a7 := JTF_NUMBER_TABLE();
445 a8 := JTF_VARCHAR2_TABLE_100();
446 a9 := JTF_VARCHAR2_TABLE_100();
447 a10 := JTF_NUMBER_TABLE();
448 a11 := JTF_VARCHAR2_TABLE_100();
449 a12 := JTF_VARCHAR2_TABLE_100();
450 a13 := JTF_DATE_TABLE();
451 a14 := JTF_DATE_TABLE();
452 a15 := JTF_NUMBER_TABLE();
453 a16 := JTF_VARCHAR2_TABLE_100();
454 a17 := JTF_VARCHAR2_TABLE_500();
455 a18 := JTF_VARCHAR2_TABLE_500();
456 a19 := JTF_VARCHAR2_TABLE_500();
457 a20 := JTF_VARCHAR2_TABLE_500();
458 a21 := JTF_VARCHAR2_TABLE_500();
459 a22 := JTF_VARCHAR2_TABLE_500();
460 a23 := JTF_VARCHAR2_TABLE_500();
461 a24 := JTF_VARCHAR2_TABLE_500();
462 a25 := JTF_VARCHAR2_TABLE_500();
463 a26 := JTF_VARCHAR2_TABLE_500();
464 a27 := JTF_VARCHAR2_TABLE_500();
465 a28 := JTF_VARCHAR2_TABLE_500();
466 a29 := JTF_VARCHAR2_TABLE_500();
467 a30 := JTF_VARCHAR2_TABLE_500();
468 a31 := JTF_VARCHAR2_TABLE_500();
469 a32 := JTF_NUMBER_TABLE();
470 a33 := JTF_DATE_TABLE();
471 a34 := JTF_NUMBER_TABLE();
472 a35 := JTF_DATE_TABLE();
473 a36 := JTF_NUMBER_TABLE();
474 else
475 a0 := JTF_NUMBER_TABLE();
476 a1 := JTF_VARCHAR2_TABLE_300();
477 a2 := JTF_NUMBER_TABLE();
478 a3 := JTF_NUMBER_TABLE();
479 a4 := JTF_VARCHAR2_TABLE_100();
480 a5 := JTF_VARCHAR2_TABLE_100();
481 a6 := JTF_VARCHAR2_TABLE_100();
482 a7 := JTF_NUMBER_TABLE();
483 a8 := JTF_VARCHAR2_TABLE_100();
484 a9 := JTF_VARCHAR2_TABLE_100();
485 a10 := JTF_NUMBER_TABLE();
486 a11 := JTF_VARCHAR2_TABLE_100();
487 a12 := JTF_VARCHAR2_TABLE_100();
488 a13 := JTF_DATE_TABLE();
489 a14 := JTF_DATE_TABLE();
490 a15 := JTF_NUMBER_TABLE();
491 a16 := JTF_VARCHAR2_TABLE_100();
492 a17 := JTF_VARCHAR2_TABLE_500();
493 a18 := JTF_VARCHAR2_TABLE_500();
494 a19 := JTF_VARCHAR2_TABLE_500();
495 a20 := JTF_VARCHAR2_TABLE_500();
496 a21 := JTF_VARCHAR2_TABLE_500();
497 a22 := JTF_VARCHAR2_TABLE_500();
498 a23 := JTF_VARCHAR2_TABLE_500();
499 a24 := JTF_VARCHAR2_TABLE_500();
500 a25 := JTF_VARCHAR2_TABLE_500();
501 a26 := JTF_VARCHAR2_TABLE_500();
502 a27 := JTF_VARCHAR2_TABLE_500();
503 a28 := JTF_VARCHAR2_TABLE_500();
504 a29 := JTF_VARCHAR2_TABLE_500();
505 a30 := JTF_VARCHAR2_TABLE_500();
506 a31 := JTF_VARCHAR2_TABLE_500();
507 a32 := JTF_NUMBER_TABLE();
508 a33 := JTF_DATE_TABLE();
509 a34 := JTF_NUMBER_TABLE();
510 a35 := JTF_DATE_TABLE();
511 a36 := JTF_NUMBER_TABLE();
512 if t.count > 0 then
513 a0.extend(t.count);
514 a1.extend(t.count);
515 a2.extend(t.count);
516 a3.extend(t.count);
517 a4.extend(t.count);
518 a5.extend(t.count);
519 a6.extend(t.count);
520 a7.extend(t.count);
521 a8.extend(t.count);
522 a9.extend(t.count);
523 a10.extend(t.count);
524 a11.extend(t.count);
525 a12.extend(t.count);
526 a13.extend(t.count);
527 a14.extend(t.count);
528 a15.extend(t.count);
529 a16.extend(t.count);
530 a17.extend(t.count);
531 a18.extend(t.count);
532 a19.extend(t.count);
533 a20.extend(t.count);
534 a21.extend(t.count);
535 a22.extend(t.count);
536 a23.extend(t.count);
537 a24.extend(t.count);
538 a25.extend(t.count);
539 a26.extend(t.count);
540 a27.extend(t.count);
541 a28.extend(t.count);
542 a29.extend(t.count);
543 a30.extend(t.count);
544 a31.extend(t.count);
545 a32.extend(t.count);
546 a33.extend(t.count);
547 a34.extend(t.count);
548 a35.extend(t.count);
549 a36.extend(t.count);
550 ddindx := t.first;
551 indx := 1;
552 while true loop
553 a0(indx) := t(ddindx).std_rate_tmpl_id;
554 a1(indx) := t(ddindx).template_name;
555 a2(indx) := t(ddindx).object_version_number;
556 a3(indx) := t(ddindx).org_id;
557 a4(indx) := t(ddindx).currency_code;
558 a5(indx) := t(ddindx).rate_card_yn;
559 a6(indx) := t(ddindx).pricing_engine_code;
560 a7(indx) := t(ddindx).orig_std_rate_tmpl_id;
561 a8(indx) := t(ddindx).rate_type_code;
562 a9(indx) := t(ddindx).frequency_code;
563 a10(indx) := t(ddindx).index_id;
564 a11(indx) := t(ddindx).default_yn;
565 a12(indx) := t(ddindx).sts_code;
566 a13(indx) := t(ddindx).effective_from_date;
567 a14(indx) := t(ddindx).effective_to_date;
568 a15(indx) := t(ddindx).srt_rate;
569 a16(indx) := t(ddindx).attribute_category;
570 a17(indx) := t(ddindx).attribute1;
571 a18(indx) := t(ddindx).attribute2;
572 a19(indx) := t(ddindx).attribute3;
573 a20(indx) := t(ddindx).attribute4;
574 a21(indx) := t(ddindx).attribute5;
575 a22(indx) := t(ddindx).attribute6;
576 a23(indx) := t(ddindx).attribute7;
577 a24(indx) := t(ddindx).attribute8;
578 a25(indx) := t(ddindx).attribute9;
579 a26(indx) := t(ddindx).attribute10;
580 a27(indx) := t(ddindx).attribute11;
581 a28(indx) := t(ddindx).attribute12;
582 a29(indx) := t(ddindx).attribute13;
583 a30(indx) := t(ddindx).attribute14;
584 a31(indx) := t(ddindx).attribute15;
585 a32(indx) := t(ddindx).created_by;
586 a33(indx) := t(ddindx).creation_date;
587 a34(indx) := t(ddindx).last_updated_by;
588 a35(indx) := t(ddindx).last_update_date;
589 a36(indx) := t(ddindx).last_update_login;
590 indx := indx+1;
591 if t.last =ddindx
592 then exit;
593 end if;
594 ddindx := t.next(ddindx);
595 end loop;
596 end if;
597 end if;
598 end rosetta_table_copy_out_p3;
599
600 procedure rosetta_table_copy_in_p5(t out nocopy okl_srt_pvt.okl_srttl_tbl, a0 JTF_NUMBER_TABLE
601 , a1 JTF_VARCHAR2_TABLE_2000
602 , a2 JTF_VARCHAR2_TABLE_100
603 , a3 JTF_VARCHAR2_TABLE_100
604 , a4 JTF_VARCHAR2_TABLE_100
605 , a5 JTF_NUMBER_TABLE
606 , a6 JTF_DATE_TABLE
607 , a7 JTF_NUMBER_TABLE
608 , a8 JTF_DATE_TABLE
609 , a9 JTF_NUMBER_TABLE
610 ) as
611 ddindx binary_integer; indx binary_integer;
612 begin
613 if a0 is not null and a0.count > 0 then
614 if a0.count > 0 then
615 indx := a0.first;
616 ddindx := 1;
617 while true loop
618 t(ddindx).std_rate_tmpl_id := a0(indx);
619 t(ddindx).template_desc := a1(indx);
620 t(ddindx).language := a2(indx);
621 t(ddindx).source_lang := a3(indx);
622 t(ddindx).sfwt_flag := a4(indx);
623 t(ddindx).created_by := a5(indx);
624 t(ddindx).creation_date := a6(indx);
625 t(ddindx).last_updated_by := a7(indx);
626 t(ddindx).last_update_date := a8(indx);
627 t(ddindx).last_update_login := a9(indx);
628 ddindx := ddindx+1;
629 if a0.last =indx
630 then exit;
631 end if;
632 indx := a0.next(indx);
633 end loop;
634 end if;
635 end if;
636 end rosetta_table_copy_in_p5;
637 procedure rosetta_table_copy_out_p5(t okl_srt_pvt.okl_srttl_tbl, a0 out nocopy JTF_NUMBER_TABLE
638 , a1 out nocopy JTF_VARCHAR2_TABLE_2000
639 , a2 out nocopy JTF_VARCHAR2_TABLE_100
640 , a3 out nocopy JTF_VARCHAR2_TABLE_100
641 , a4 out nocopy JTF_VARCHAR2_TABLE_100
642 , a5 out nocopy JTF_NUMBER_TABLE
643 , a6 out nocopy JTF_DATE_TABLE
644 , a7 out nocopy JTF_NUMBER_TABLE
645 , a8 out nocopy JTF_DATE_TABLE
646 , a9 out nocopy JTF_NUMBER_TABLE
647 ) as
648 ddindx binary_integer; indx binary_integer;
649 begin
650 if t is null or t.count = 0 then
651 a0 := JTF_NUMBER_TABLE();
652 a1 := JTF_VARCHAR2_TABLE_2000();
653 a2 := JTF_VARCHAR2_TABLE_100();
654 a3 := JTF_VARCHAR2_TABLE_100();
655 a4 := JTF_VARCHAR2_TABLE_100();
656 a5 := JTF_NUMBER_TABLE();
657 a6 := JTF_DATE_TABLE();
658 a7 := JTF_NUMBER_TABLE();
659 a8 := JTF_DATE_TABLE();
660 a9 := JTF_NUMBER_TABLE();
661 else
662 a0 := JTF_NUMBER_TABLE();
663 a1 := JTF_VARCHAR2_TABLE_2000();
664 a2 := JTF_VARCHAR2_TABLE_100();
665 a3 := JTF_VARCHAR2_TABLE_100();
666 a4 := JTF_VARCHAR2_TABLE_100();
667 a5 := JTF_NUMBER_TABLE();
668 a6 := JTF_DATE_TABLE();
669 a7 := JTF_NUMBER_TABLE();
670 a8 := JTF_DATE_TABLE();
671 a9 := JTF_NUMBER_TABLE();
672 if t.count > 0 then
673 a0.extend(t.count);
674 a1.extend(t.count);
675 a2.extend(t.count);
676 a3.extend(t.count);
677 a4.extend(t.count);
678 a5.extend(t.count);
679 a6.extend(t.count);
680 a7.extend(t.count);
681 a8.extend(t.count);
682 a9.extend(t.count);
683 ddindx := t.first;
684 indx := 1;
685 while true loop
686 a0(indx) := t(ddindx).std_rate_tmpl_id;
687 a1(indx) := t(ddindx).template_desc;
688 a2(indx) := t(ddindx).language;
689 a3(indx) := t(ddindx).source_lang;
690 a4(indx) := t(ddindx).sfwt_flag;
691 a5(indx) := t(ddindx).created_by;
692 a6(indx) := t(ddindx).creation_date;
693 a7(indx) := t(ddindx).last_updated_by;
694 a8(indx) := t(ddindx).last_update_date;
695 a9(indx) := t(ddindx).last_update_login;
696 indx := indx+1;
697 if t.last =ddindx
698 then exit;
699 end if;
700 ddindx := t.next(ddindx);
701 end loop;
702 end if;
703 end if;
704 end rosetta_table_copy_out_p5;
705
706 procedure insert_row(p_api_version NUMBER
707 , p_init_msg_list VARCHAR2
708 , x_return_status out nocopy VARCHAR2
709 , x_msg_count out nocopy NUMBER
710 , x_msg_data out nocopy VARCHAR2
711 , p5_a0 NUMBER
712 , p5_a1 VARCHAR2
713 , p5_a2 VARCHAR2
714 , p5_a3 NUMBER
715 , p5_a4 NUMBER
716 , p5_a5 VARCHAR2
717 , p5_a6 VARCHAR2
718 , p5_a7 VARCHAR2
719 , p5_a8 NUMBER
720 , p5_a9 VARCHAR2
721 , p5_a10 VARCHAR2
722 , p5_a11 NUMBER
723 , p5_a12 VARCHAR2
724 , p5_a13 VARCHAR2
725 , p5_a14 DATE
726 , p5_a15 DATE
727 , p5_a16 NUMBER
728 , p5_a17 VARCHAR2
729 , p5_a18 VARCHAR2
730 , p5_a19 VARCHAR2
731 , p5_a20 VARCHAR2
732 , p5_a21 VARCHAR2
733 , p5_a22 VARCHAR2
734 , p5_a23 VARCHAR2
735 , p5_a24 VARCHAR2
736 , p5_a25 VARCHAR2
737 , p5_a26 VARCHAR2
738 , p5_a27 VARCHAR2
739 , p5_a28 VARCHAR2
740 , p5_a29 VARCHAR2
741 , p5_a30 VARCHAR2
742 , p5_a31 VARCHAR2
743 , p5_a32 VARCHAR2
744 , p5_a33 NUMBER
745 , p5_a34 DATE
746 , p5_a35 NUMBER
747 , p5_a36 DATE
748 , p5_a37 NUMBER
749 , p6_a0 out nocopy NUMBER
750 , p6_a1 out nocopy VARCHAR2
751 , p6_a2 out nocopy VARCHAR2
752 , p6_a3 out nocopy NUMBER
753 , p6_a4 out nocopy NUMBER
754 , p6_a5 out nocopy VARCHAR2
755 , p6_a6 out nocopy VARCHAR2
756 , p6_a7 out nocopy VARCHAR2
757 , p6_a8 out nocopy NUMBER
758 , p6_a9 out nocopy VARCHAR2
759 , p6_a10 out nocopy VARCHAR2
760 , p6_a11 out nocopy NUMBER
761 , p6_a12 out nocopy VARCHAR2
762 , p6_a13 out nocopy VARCHAR2
763 , p6_a14 out nocopy DATE
764 , p6_a15 out nocopy DATE
765 , p6_a16 out nocopy NUMBER
766 , p6_a17 out nocopy VARCHAR2
767 , p6_a18 out nocopy VARCHAR2
768 , p6_a19 out nocopy VARCHAR2
769 , p6_a20 out nocopy VARCHAR2
770 , p6_a21 out nocopy VARCHAR2
771 , p6_a22 out nocopy VARCHAR2
772 , p6_a23 out nocopy VARCHAR2
773 , p6_a24 out nocopy VARCHAR2
774 , p6_a25 out nocopy VARCHAR2
775 , p6_a26 out nocopy VARCHAR2
776 , p6_a27 out nocopy VARCHAR2
777 , p6_a28 out nocopy VARCHAR2
778 , p6_a29 out nocopy VARCHAR2
779 , p6_a30 out nocopy VARCHAR2
780 , p6_a31 out nocopy VARCHAR2
781 , p6_a32 out nocopy VARCHAR2
782 , p6_a33 out nocopy NUMBER
783 , p6_a34 out nocopy DATE
784 , p6_a35 out nocopy NUMBER
785 , p6_a36 out nocopy DATE
786 , p6_a37 out nocopy NUMBER
787 )
788
789 as
790 ddp_srtv_rec okl_srt_pvt.okl_srtv_rec;
791 ddx_srtv_rec okl_srt_pvt.okl_srtv_rec;
792 ddindx binary_integer; indx binary_integer;
793 begin
794
795 -- copy data to the local IN or IN-OUT args, if any
796
797
798
799
800
801 ddp_srtv_rec.std_rate_tmpl_id := p5_a0;
802 ddp_srtv_rec.template_name := p5_a1;
803 ddp_srtv_rec.template_desc := p5_a2;
804 ddp_srtv_rec.object_version_number := p5_a3;
805 ddp_srtv_rec.org_id := p5_a4;
806 ddp_srtv_rec.currency_code := p5_a5;
807 ddp_srtv_rec.rate_card_yn := p5_a6;
808 ddp_srtv_rec.pricing_engine_code := p5_a7;
809 ddp_srtv_rec.orig_std_rate_tmpl_id := p5_a8;
810 ddp_srtv_rec.rate_type_code := p5_a9;
811 ddp_srtv_rec.frequency_code := p5_a10;
812 ddp_srtv_rec.index_id := p5_a11;
813 ddp_srtv_rec.default_yn := p5_a12;
814 ddp_srtv_rec.sts_code := p5_a13;
815 ddp_srtv_rec.effective_from_date := p5_a14;
816 ddp_srtv_rec.effective_to_date := p5_a15;
817 ddp_srtv_rec.srt_rate := p5_a16;
818 ddp_srtv_rec.attribute_category := p5_a17;
819 ddp_srtv_rec.attribute1 := p5_a18;
820 ddp_srtv_rec.attribute2 := p5_a19;
821 ddp_srtv_rec.attribute3 := p5_a20;
822 ddp_srtv_rec.attribute4 := p5_a21;
823 ddp_srtv_rec.attribute5 := p5_a22;
824 ddp_srtv_rec.attribute6 := p5_a23;
825 ddp_srtv_rec.attribute7 := p5_a24;
826 ddp_srtv_rec.attribute8 := p5_a25;
827 ddp_srtv_rec.attribute9 := p5_a26;
828 ddp_srtv_rec.attribute10 := p5_a27;
829 ddp_srtv_rec.attribute11 := p5_a28;
830 ddp_srtv_rec.attribute12 := p5_a29;
831 ddp_srtv_rec.attribute13 := p5_a30;
832 ddp_srtv_rec.attribute14 := p5_a31;
833 ddp_srtv_rec.attribute15 := p5_a32;
834 ddp_srtv_rec.created_by := p5_a33;
835 ddp_srtv_rec.creation_date := p5_a34;
836 ddp_srtv_rec.last_updated_by := p5_a35;
837 ddp_srtv_rec.last_update_date := p5_a36;
838 ddp_srtv_rec.last_update_login := p5_a37;
839
840
841 -- here's the delegated call to the old PL/SQL routine
842 okl_srt_pvt.insert_row(p_api_version,
843 p_init_msg_list,
844 x_return_status,
845 x_msg_count,
846 x_msg_data,
847 ddp_srtv_rec,
848 ddx_srtv_rec);
849
850 -- copy data back from the local variables to OUT or IN-OUT args, if any
851
852
853
854
855
856
857 p6_a0 := ddx_srtv_rec.std_rate_tmpl_id;
858 p6_a1 := ddx_srtv_rec.template_name;
859 p6_a2 := ddx_srtv_rec.template_desc;
860 p6_a3 := ddx_srtv_rec.object_version_number;
861 p6_a4 := ddx_srtv_rec.org_id;
862 p6_a5 := ddx_srtv_rec.currency_code;
863 p6_a6 := ddx_srtv_rec.rate_card_yn;
864 p6_a7 := ddx_srtv_rec.pricing_engine_code;
865 p6_a8 := ddx_srtv_rec.orig_std_rate_tmpl_id;
866 p6_a9 := ddx_srtv_rec.rate_type_code;
867 p6_a10 := ddx_srtv_rec.frequency_code;
868 p6_a11 := ddx_srtv_rec.index_id;
869 p6_a12 := ddx_srtv_rec.default_yn;
870 p6_a13 := ddx_srtv_rec.sts_code;
871 p6_a14 := ddx_srtv_rec.effective_from_date;
872 p6_a15 := ddx_srtv_rec.effective_to_date;
873 p6_a16 := ddx_srtv_rec.srt_rate;
874 p6_a17 := ddx_srtv_rec.attribute_category;
875 p6_a18 := ddx_srtv_rec.attribute1;
876 p6_a19 := ddx_srtv_rec.attribute2;
877 p6_a20 := ddx_srtv_rec.attribute3;
878 p6_a21 := ddx_srtv_rec.attribute4;
879 p6_a22 := ddx_srtv_rec.attribute5;
880 p6_a23 := ddx_srtv_rec.attribute6;
881 p6_a24 := ddx_srtv_rec.attribute7;
882 p6_a25 := ddx_srtv_rec.attribute8;
883 p6_a26 := ddx_srtv_rec.attribute9;
884 p6_a27 := ddx_srtv_rec.attribute10;
885 p6_a28 := ddx_srtv_rec.attribute11;
886 p6_a29 := ddx_srtv_rec.attribute12;
887 p6_a30 := ddx_srtv_rec.attribute13;
888 p6_a31 := ddx_srtv_rec.attribute14;
889 p6_a32 := ddx_srtv_rec.attribute15;
890 p6_a33 := ddx_srtv_rec.created_by;
891 p6_a34 := ddx_srtv_rec.creation_date;
892 p6_a35 := ddx_srtv_rec.last_updated_by;
893 p6_a36 := ddx_srtv_rec.last_update_date;
894 p6_a37 := ddx_srtv_rec.last_update_login;
895 end;
896
897 procedure insert_row(p_api_version NUMBER
898 , p_init_msg_list VARCHAR2
899 , x_return_status out nocopy VARCHAR2
900 , x_msg_count out nocopy NUMBER
901 , x_msg_data out nocopy VARCHAR2
902 , p5_a0 JTF_NUMBER_TABLE
903 , p5_a1 JTF_VARCHAR2_TABLE_300
904 , p5_a2 JTF_VARCHAR2_TABLE_2000
905 , p5_a3 JTF_NUMBER_TABLE
906 , p5_a4 JTF_NUMBER_TABLE
907 , p5_a5 JTF_VARCHAR2_TABLE_100
908 , p5_a6 JTF_VARCHAR2_TABLE_100
909 , p5_a7 JTF_VARCHAR2_TABLE_100
910 , p5_a8 JTF_NUMBER_TABLE
911 , p5_a9 JTF_VARCHAR2_TABLE_100
912 , p5_a10 JTF_VARCHAR2_TABLE_100
913 , p5_a11 JTF_NUMBER_TABLE
914 , p5_a12 JTF_VARCHAR2_TABLE_100
915 , p5_a13 JTF_VARCHAR2_TABLE_100
916 , p5_a14 JTF_DATE_TABLE
917 , p5_a15 JTF_DATE_TABLE
918 , p5_a16 JTF_NUMBER_TABLE
919 , p5_a17 JTF_VARCHAR2_TABLE_100
920 , p5_a18 JTF_VARCHAR2_TABLE_500
921 , p5_a19 JTF_VARCHAR2_TABLE_500
922 , p5_a20 JTF_VARCHAR2_TABLE_500
923 , p5_a21 JTF_VARCHAR2_TABLE_500
924 , p5_a22 JTF_VARCHAR2_TABLE_500
925 , p5_a23 JTF_VARCHAR2_TABLE_500
926 , p5_a24 JTF_VARCHAR2_TABLE_500
927 , p5_a25 JTF_VARCHAR2_TABLE_500
928 , p5_a26 JTF_VARCHAR2_TABLE_500
929 , p5_a27 JTF_VARCHAR2_TABLE_500
930 , p5_a28 JTF_VARCHAR2_TABLE_500
931 , p5_a29 JTF_VARCHAR2_TABLE_500
932 , p5_a30 JTF_VARCHAR2_TABLE_500
933 , p5_a31 JTF_VARCHAR2_TABLE_500
934 , p5_a32 JTF_VARCHAR2_TABLE_500
935 , p5_a33 JTF_NUMBER_TABLE
936 , p5_a34 JTF_DATE_TABLE
937 , p5_a35 JTF_NUMBER_TABLE
938 , p5_a36 JTF_DATE_TABLE
939 , p5_a37 JTF_NUMBER_TABLE
940 , p6_a0 out nocopy JTF_NUMBER_TABLE
941 , p6_a1 out nocopy JTF_VARCHAR2_TABLE_300
942 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_2000
943 , p6_a3 out nocopy JTF_NUMBER_TABLE
944 , p6_a4 out nocopy JTF_NUMBER_TABLE
945 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_100
946 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_100
947 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_100
948 , p6_a8 out nocopy JTF_NUMBER_TABLE
949 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_100
950 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_100
951 , p6_a11 out nocopy JTF_NUMBER_TABLE
952 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_100
953 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_100
954 , p6_a14 out nocopy JTF_DATE_TABLE
955 , p6_a15 out nocopy JTF_DATE_TABLE
956 , p6_a16 out nocopy JTF_NUMBER_TABLE
957 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_100
958 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
959 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
960 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
961 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
962 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
963 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
964 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
965 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
966 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
967 , p6_a27 out nocopy JTF_VARCHAR2_TABLE_500
968 , p6_a28 out nocopy JTF_VARCHAR2_TABLE_500
969 , p6_a29 out nocopy JTF_VARCHAR2_TABLE_500
970 , p6_a30 out nocopy JTF_VARCHAR2_TABLE_500
971 , p6_a31 out nocopy JTF_VARCHAR2_TABLE_500
972 , p6_a32 out nocopy JTF_VARCHAR2_TABLE_500
973 , p6_a33 out nocopy JTF_NUMBER_TABLE
974 , p6_a34 out nocopy JTF_DATE_TABLE
975 , p6_a35 out nocopy JTF_NUMBER_TABLE
976 , p6_a36 out nocopy JTF_DATE_TABLE
977 , p6_a37 out nocopy JTF_NUMBER_TABLE
978 )
979
980 as
981 ddp_srtv_tbl okl_srt_pvt.okl_srtv_tbl;
982 ddx_srtv_tbl okl_srt_pvt.okl_srtv_tbl;
983 ddindx binary_integer; indx binary_integer;
984 begin
985
986 -- copy data to the local IN or IN-OUT args, if any
987
988
989
990
991
992 okl_srt_pvt_w.rosetta_table_copy_in_p1(ddp_srtv_tbl, p5_a0
993 , p5_a1
994 , p5_a2
995 , p5_a3
996 , p5_a4
997 , p5_a5
998 , p5_a6
999 , p5_a7
1000 , p5_a8
1001 , p5_a9
1002 , p5_a10
1003 , p5_a11
1004 , p5_a12
1005 , p5_a13
1006 , p5_a14
1007 , p5_a15
1008 , p5_a16
1009 , p5_a17
1010 , p5_a18
1011 , p5_a19
1012 , p5_a20
1013 , p5_a21
1014 , p5_a22
1015 , p5_a23
1016 , p5_a24
1017 , p5_a25
1018 , p5_a26
1019 , p5_a27
1020 , p5_a28
1021 , p5_a29
1022 , p5_a30
1023 , p5_a31
1024 , p5_a32
1025 , p5_a33
1026 , p5_a34
1027 , p5_a35
1028 , p5_a36
1029 , p5_a37
1030 );
1031
1032
1033 -- here's the delegated call to the old PL/SQL routine
1034 okl_srt_pvt.insert_row(p_api_version,
1035 p_init_msg_list,
1036 x_return_status,
1037 x_msg_count,
1038 x_msg_data,
1039 ddp_srtv_tbl,
1040 ddx_srtv_tbl);
1041
1042 -- copy data back from the local variables to OUT or IN-OUT args, if any
1043
1044
1045
1046
1047
1048
1049 okl_srt_pvt_w.rosetta_table_copy_out_p1(ddx_srtv_tbl, p6_a0
1050 , p6_a1
1051 , p6_a2
1052 , p6_a3
1053 , p6_a4
1054 , p6_a5
1055 , p6_a6
1056 , p6_a7
1057 , p6_a8
1058 , p6_a9
1059 , p6_a10
1060 , p6_a11
1061 , p6_a12
1062 , p6_a13
1063 , p6_a14
1064 , p6_a15
1065 , p6_a16
1066 , p6_a17
1067 , p6_a18
1068 , p6_a19
1069 , p6_a20
1070 , p6_a21
1071 , p6_a22
1072 , p6_a23
1073 , p6_a24
1074 , p6_a25
1075 , p6_a26
1076 , p6_a27
1077 , p6_a28
1078 , p6_a29
1079 , p6_a30
1080 , p6_a31
1081 , p6_a32
1082 , p6_a33
1083 , p6_a34
1084 , p6_a35
1085 , p6_a36
1086 , p6_a37
1087 );
1088 end;
1089
1090 procedure update_row(p_api_version NUMBER
1091 , p_init_msg_list VARCHAR2
1092 , x_return_status out nocopy VARCHAR2
1093 , x_msg_count out nocopy NUMBER
1094 , x_msg_data out nocopy VARCHAR2
1095 , p5_a0 NUMBER
1096 , p5_a1 VARCHAR2
1097 , p5_a2 VARCHAR2
1098 , p5_a3 NUMBER
1099 , p5_a4 NUMBER
1100 , p5_a5 VARCHAR2
1101 , p5_a6 VARCHAR2
1102 , p5_a7 VARCHAR2
1103 , p5_a8 NUMBER
1104 , p5_a9 VARCHAR2
1105 , p5_a10 VARCHAR2
1106 , p5_a11 NUMBER
1107 , p5_a12 VARCHAR2
1108 , p5_a13 VARCHAR2
1109 , p5_a14 DATE
1110 , p5_a15 DATE
1111 , p5_a16 NUMBER
1112 , p5_a17 VARCHAR2
1113 , p5_a18 VARCHAR2
1114 , p5_a19 VARCHAR2
1115 , p5_a20 VARCHAR2
1116 , p5_a21 VARCHAR2
1117 , p5_a22 VARCHAR2
1118 , p5_a23 VARCHAR2
1119 , p5_a24 VARCHAR2
1120 , p5_a25 VARCHAR2
1121 , p5_a26 VARCHAR2
1122 , p5_a27 VARCHAR2
1123 , p5_a28 VARCHAR2
1124 , p5_a29 VARCHAR2
1125 , p5_a30 VARCHAR2
1126 , p5_a31 VARCHAR2
1127 , p5_a32 VARCHAR2
1128 , p5_a33 NUMBER
1129 , p5_a34 DATE
1130 , p5_a35 NUMBER
1131 , p5_a36 DATE
1132 , p5_a37 NUMBER
1133 , p6_a0 out nocopy NUMBER
1134 , p6_a1 out nocopy VARCHAR2
1135 , p6_a2 out nocopy VARCHAR2
1136 , p6_a3 out nocopy NUMBER
1137 , p6_a4 out nocopy NUMBER
1138 , p6_a5 out nocopy VARCHAR2
1139 , p6_a6 out nocopy VARCHAR2
1140 , p6_a7 out nocopy VARCHAR2
1141 , p6_a8 out nocopy NUMBER
1142 , p6_a9 out nocopy VARCHAR2
1143 , p6_a10 out nocopy VARCHAR2
1144 , p6_a11 out nocopy NUMBER
1145 , p6_a12 out nocopy VARCHAR2
1146 , p6_a13 out nocopy VARCHAR2
1147 , p6_a14 out nocopy DATE
1148 , p6_a15 out nocopy DATE
1149 , p6_a16 out nocopy NUMBER
1150 , p6_a17 out nocopy VARCHAR2
1151 , p6_a18 out nocopy VARCHAR2
1152 , p6_a19 out nocopy VARCHAR2
1153 , p6_a20 out nocopy VARCHAR2
1154 , p6_a21 out nocopy VARCHAR2
1155 , p6_a22 out nocopy VARCHAR2
1156 , p6_a23 out nocopy VARCHAR2
1157 , p6_a24 out nocopy VARCHAR2
1158 , p6_a25 out nocopy VARCHAR2
1159 , p6_a26 out nocopy VARCHAR2
1160 , p6_a27 out nocopy VARCHAR2
1161 , p6_a28 out nocopy VARCHAR2
1162 , p6_a29 out nocopy VARCHAR2
1163 , p6_a30 out nocopy VARCHAR2
1164 , p6_a31 out nocopy VARCHAR2
1165 , p6_a32 out nocopy VARCHAR2
1166 , p6_a33 out nocopy NUMBER
1167 , p6_a34 out nocopy DATE
1168 , p6_a35 out nocopy NUMBER
1169 , p6_a36 out nocopy DATE
1170 , p6_a37 out nocopy NUMBER
1171 )
1172
1173 as
1174 ddp_srtv_rec okl_srt_pvt.okl_srtv_rec;
1175 ddx_srtv_rec okl_srt_pvt.okl_srtv_rec;
1176 ddindx binary_integer; indx binary_integer;
1177 begin
1178
1179 -- copy data to the local IN or IN-OUT args, if any
1180
1181
1182
1183
1184
1185 ddp_srtv_rec.std_rate_tmpl_id := p5_a0;
1186 ddp_srtv_rec.template_name := p5_a1;
1187 ddp_srtv_rec.template_desc := p5_a2;
1188 ddp_srtv_rec.object_version_number := p5_a3;
1189 ddp_srtv_rec.org_id := p5_a4;
1190 ddp_srtv_rec.currency_code := p5_a5;
1191 ddp_srtv_rec.rate_card_yn := p5_a6;
1192 ddp_srtv_rec.pricing_engine_code := p5_a7;
1193 ddp_srtv_rec.orig_std_rate_tmpl_id := p5_a8;
1194 ddp_srtv_rec.rate_type_code := p5_a9;
1195 ddp_srtv_rec.frequency_code := p5_a10;
1196 ddp_srtv_rec.index_id := p5_a11;
1197 ddp_srtv_rec.default_yn := p5_a12;
1198 ddp_srtv_rec.sts_code := p5_a13;
1199 ddp_srtv_rec.effective_from_date := p5_a14;
1200 ddp_srtv_rec.effective_to_date := p5_a15;
1201 ddp_srtv_rec.srt_rate := p5_a16;
1202 ddp_srtv_rec.attribute_category := p5_a17;
1203 ddp_srtv_rec.attribute1 := p5_a18;
1204 ddp_srtv_rec.attribute2 := p5_a19;
1205 ddp_srtv_rec.attribute3 := p5_a20;
1206 ddp_srtv_rec.attribute4 := p5_a21;
1207 ddp_srtv_rec.attribute5 := p5_a22;
1208 ddp_srtv_rec.attribute6 := p5_a23;
1209 ddp_srtv_rec.attribute7 := p5_a24;
1210 ddp_srtv_rec.attribute8 := p5_a25;
1211 ddp_srtv_rec.attribute9 := p5_a26;
1212 ddp_srtv_rec.attribute10 := p5_a27;
1213 ddp_srtv_rec.attribute11 := p5_a28;
1214 ddp_srtv_rec.attribute12 := p5_a29;
1215 ddp_srtv_rec.attribute13 := p5_a30;
1216 ddp_srtv_rec.attribute14 := p5_a31;
1217 ddp_srtv_rec.attribute15 := p5_a32;
1218 ddp_srtv_rec.created_by := p5_a33;
1219 ddp_srtv_rec.creation_date := p5_a34;
1220 ddp_srtv_rec.last_updated_by := p5_a35;
1221 ddp_srtv_rec.last_update_date := p5_a36;
1222 ddp_srtv_rec.last_update_login := p5_a37;
1223
1224
1225 -- here's the delegated call to the old PL/SQL routine
1226 okl_srt_pvt.update_row(p_api_version,
1227 p_init_msg_list,
1228 x_return_status,
1229 x_msg_count,
1230 x_msg_data,
1231 ddp_srtv_rec,
1232 ddx_srtv_rec);
1233
1234 -- copy data back from the local variables to OUT or IN-OUT args, if any
1235
1236
1237
1238
1239
1240
1241 p6_a0 := ddx_srtv_rec.std_rate_tmpl_id;
1242 p6_a1 := ddx_srtv_rec.template_name;
1243 p6_a2 := ddx_srtv_rec.template_desc;
1244 p6_a3 := ddx_srtv_rec.object_version_number;
1245 p6_a4 := ddx_srtv_rec.org_id;
1246 p6_a5 := ddx_srtv_rec.currency_code;
1247 p6_a6 := ddx_srtv_rec.rate_card_yn;
1248 p6_a7 := ddx_srtv_rec.pricing_engine_code;
1249 p6_a8 := ddx_srtv_rec.orig_std_rate_tmpl_id;
1250 p6_a9 := ddx_srtv_rec.rate_type_code;
1251 p6_a10 := ddx_srtv_rec.frequency_code;
1252 p6_a11 := ddx_srtv_rec.index_id;
1253 p6_a12 := ddx_srtv_rec.default_yn;
1254 p6_a13 := ddx_srtv_rec.sts_code;
1255 p6_a14 := ddx_srtv_rec.effective_from_date;
1256 p6_a15 := ddx_srtv_rec.effective_to_date;
1257 p6_a16 := ddx_srtv_rec.srt_rate;
1258 p6_a17 := ddx_srtv_rec.attribute_category;
1259 p6_a18 := ddx_srtv_rec.attribute1;
1260 p6_a19 := ddx_srtv_rec.attribute2;
1261 p6_a20 := ddx_srtv_rec.attribute3;
1262 p6_a21 := ddx_srtv_rec.attribute4;
1263 p6_a22 := ddx_srtv_rec.attribute5;
1264 p6_a23 := ddx_srtv_rec.attribute6;
1265 p6_a24 := ddx_srtv_rec.attribute7;
1266 p6_a25 := ddx_srtv_rec.attribute8;
1267 p6_a26 := ddx_srtv_rec.attribute9;
1268 p6_a27 := ddx_srtv_rec.attribute10;
1269 p6_a28 := ddx_srtv_rec.attribute11;
1270 p6_a29 := ddx_srtv_rec.attribute12;
1271 p6_a30 := ddx_srtv_rec.attribute13;
1272 p6_a31 := ddx_srtv_rec.attribute14;
1273 p6_a32 := ddx_srtv_rec.attribute15;
1274 p6_a33 := ddx_srtv_rec.created_by;
1275 p6_a34 := ddx_srtv_rec.creation_date;
1276 p6_a35 := ddx_srtv_rec.last_updated_by;
1277 p6_a36 := ddx_srtv_rec.last_update_date;
1278 p6_a37 := ddx_srtv_rec.last_update_login;
1279 end;
1280
1281 procedure update_row(p_api_version NUMBER
1282 , p_init_msg_list VARCHAR2
1283 , x_return_status out nocopy VARCHAR2
1284 , x_msg_count out nocopy NUMBER
1285 , x_msg_data out nocopy VARCHAR2
1286 , p5_a0 JTF_NUMBER_TABLE
1287 , p5_a1 JTF_VARCHAR2_TABLE_300
1288 , p5_a2 JTF_VARCHAR2_TABLE_2000
1289 , p5_a3 JTF_NUMBER_TABLE
1290 , p5_a4 JTF_NUMBER_TABLE
1291 , p5_a5 JTF_VARCHAR2_TABLE_100
1292 , p5_a6 JTF_VARCHAR2_TABLE_100
1293 , p5_a7 JTF_VARCHAR2_TABLE_100
1294 , p5_a8 JTF_NUMBER_TABLE
1295 , p5_a9 JTF_VARCHAR2_TABLE_100
1296 , p5_a10 JTF_VARCHAR2_TABLE_100
1297 , p5_a11 JTF_NUMBER_TABLE
1298 , p5_a12 JTF_VARCHAR2_TABLE_100
1299 , p5_a13 JTF_VARCHAR2_TABLE_100
1300 , p5_a14 JTF_DATE_TABLE
1301 , p5_a15 JTF_DATE_TABLE
1302 , p5_a16 JTF_NUMBER_TABLE
1303 , p5_a17 JTF_VARCHAR2_TABLE_100
1304 , p5_a18 JTF_VARCHAR2_TABLE_500
1305 , p5_a19 JTF_VARCHAR2_TABLE_500
1306 , p5_a20 JTF_VARCHAR2_TABLE_500
1307 , p5_a21 JTF_VARCHAR2_TABLE_500
1308 , p5_a22 JTF_VARCHAR2_TABLE_500
1309 , p5_a23 JTF_VARCHAR2_TABLE_500
1310 , p5_a24 JTF_VARCHAR2_TABLE_500
1311 , p5_a25 JTF_VARCHAR2_TABLE_500
1312 , p5_a26 JTF_VARCHAR2_TABLE_500
1313 , p5_a27 JTF_VARCHAR2_TABLE_500
1314 , p5_a28 JTF_VARCHAR2_TABLE_500
1315 , p5_a29 JTF_VARCHAR2_TABLE_500
1316 , p5_a30 JTF_VARCHAR2_TABLE_500
1317 , p5_a31 JTF_VARCHAR2_TABLE_500
1318 , p5_a32 JTF_VARCHAR2_TABLE_500
1319 , p5_a33 JTF_NUMBER_TABLE
1320 , p5_a34 JTF_DATE_TABLE
1321 , p5_a35 JTF_NUMBER_TABLE
1322 , p5_a36 JTF_DATE_TABLE
1323 , p5_a37 JTF_NUMBER_TABLE
1324 , p6_a0 out nocopy JTF_NUMBER_TABLE
1325 , p6_a1 out nocopy JTF_VARCHAR2_TABLE_300
1326 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_2000
1327 , p6_a3 out nocopy JTF_NUMBER_TABLE
1328 , p6_a4 out nocopy JTF_NUMBER_TABLE
1329 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_100
1330 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_100
1331 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_100
1332 , p6_a8 out nocopy JTF_NUMBER_TABLE
1333 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_100
1334 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_100
1335 , p6_a11 out nocopy JTF_NUMBER_TABLE
1336 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_100
1337 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_100
1338 , p6_a14 out nocopy JTF_DATE_TABLE
1339 , p6_a15 out nocopy JTF_DATE_TABLE
1340 , p6_a16 out nocopy JTF_NUMBER_TABLE
1341 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_100
1342 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
1343 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
1344 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
1345 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
1346 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
1347 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
1348 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
1349 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
1350 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
1351 , p6_a27 out nocopy JTF_VARCHAR2_TABLE_500
1352 , p6_a28 out nocopy JTF_VARCHAR2_TABLE_500
1353 , p6_a29 out nocopy JTF_VARCHAR2_TABLE_500
1354 , p6_a30 out nocopy JTF_VARCHAR2_TABLE_500
1355 , p6_a31 out nocopy JTF_VARCHAR2_TABLE_500
1356 , p6_a32 out nocopy JTF_VARCHAR2_TABLE_500
1357 , p6_a33 out nocopy JTF_NUMBER_TABLE
1358 , p6_a34 out nocopy JTF_DATE_TABLE
1359 , p6_a35 out nocopy JTF_NUMBER_TABLE
1360 , p6_a36 out nocopy JTF_DATE_TABLE
1361 , p6_a37 out nocopy JTF_NUMBER_TABLE
1362 )
1363
1364 as
1365 ddp_srtv_tbl okl_srt_pvt.okl_srtv_tbl;
1366 ddx_srtv_tbl okl_srt_pvt.okl_srtv_tbl;
1367 ddindx binary_integer; indx binary_integer;
1368 begin
1369
1370 -- copy data to the local IN or IN-OUT args, if any
1371
1372
1373
1374
1375
1376 okl_srt_pvt_w.rosetta_table_copy_in_p1(ddp_srtv_tbl, p5_a0
1377 , p5_a1
1378 , p5_a2
1379 , p5_a3
1380 , p5_a4
1381 , p5_a5
1382 , p5_a6
1383 , p5_a7
1384 , p5_a8
1385 , p5_a9
1386 , p5_a10
1387 , p5_a11
1388 , p5_a12
1389 , p5_a13
1390 , p5_a14
1391 , p5_a15
1392 , p5_a16
1393 , p5_a17
1394 , p5_a18
1395 , p5_a19
1396 , p5_a20
1397 , p5_a21
1398 , p5_a22
1399 , p5_a23
1400 , p5_a24
1401 , p5_a25
1402 , p5_a26
1403 , p5_a27
1404 , p5_a28
1405 , p5_a29
1406 , p5_a30
1407 , p5_a31
1408 , p5_a32
1409 , p5_a33
1410 , p5_a34
1411 , p5_a35
1412 , p5_a36
1413 , p5_a37
1414 );
1415
1416
1417 -- here's the delegated call to the old PL/SQL routine
1418 okl_srt_pvt.update_row(p_api_version,
1419 p_init_msg_list,
1420 x_return_status,
1421 x_msg_count,
1422 x_msg_data,
1423 ddp_srtv_tbl,
1424 ddx_srtv_tbl);
1425
1426 -- copy data back from the local variables to OUT or IN-OUT args, if any
1427
1428
1429
1430
1431
1432
1433 okl_srt_pvt_w.rosetta_table_copy_out_p1(ddx_srtv_tbl, p6_a0
1434 , p6_a1
1435 , p6_a2
1436 , p6_a3
1437 , p6_a4
1438 , p6_a5
1439 , p6_a6
1440 , p6_a7
1441 , p6_a8
1442 , p6_a9
1443 , p6_a10
1444 , p6_a11
1445 , p6_a12
1446 , p6_a13
1447 , p6_a14
1448 , p6_a15
1449 , p6_a16
1450 , p6_a17
1451 , p6_a18
1452 , p6_a19
1453 , p6_a20
1454 , p6_a21
1455 , p6_a22
1456 , p6_a23
1457 , p6_a24
1458 , p6_a25
1459 , p6_a26
1460 , p6_a27
1461 , p6_a28
1462 , p6_a29
1463 , p6_a30
1464 , p6_a31
1465 , p6_a32
1466 , p6_a33
1467 , p6_a34
1468 , p6_a35
1469 , p6_a36
1470 , p6_a37
1471 );
1472 end;
1473
1474 procedure delete_row(p_api_version NUMBER
1475 , p_init_msg_list VARCHAR2
1476 , x_return_status out nocopy VARCHAR2
1477 , x_msg_count out nocopy NUMBER
1478 , x_msg_data out nocopy VARCHAR2
1479 , p5_a0 NUMBER
1480 , p5_a1 VARCHAR2
1481 , p5_a2 VARCHAR2
1482 , p5_a3 NUMBER
1483 , p5_a4 NUMBER
1484 , p5_a5 VARCHAR2
1485 , p5_a6 VARCHAR2
1486 , p5_a7 VARCHAR2
1487 , p5_a8 NUMBER
1488 , p5_a9 VARCHAR2
1489 , p5_a10 VARCHAR2
1490 , p5_a11 NUMBER
1491 , p5_a12 VARCHAR2
1492 , p5_a13 VARCHAR2
1493 , p5_a14 DATE
1494 , p5_a15 DATE
1495 , p5_a16 NUMBER
1496 , p5_a17 VARCHAR2
1497 , p5_a18 VARCHAR2
1498 , p5_a19 VARCHAR2
1499 , p5_a20 VARCHAR2
1500 , p5_a21 VARCHAR2
1501 , p5_a22 VARCHAR2
1502 , p5_a23 VARCHAR2
1503 , p5_a24 VARCHAR2
1504 , p5_a25 VARCHAR2
1505 , p5_a26 VARCHAR2
1506 , p5_a27 VARCHAR2
1507 , p5_a28 VARCHAR2
1508 , p5_a29 VARCHAR2
1509 , p5_a30 VARCHAR2
1510 , p5_a31 VARCHAR2
1511 , p5_a32 VARCHAR2
1512 , p5_a33 NUMBER
1513 , p5_a34 DATE
1514 , p5_a35 NUMBER
1515 , p5_a36 DATE
1516 , p5_a37 NUMBER
1517 )
1518
1519 as
1520 ddp_srtv_rec okl_srt_pvt.okl_srtv_rec;
1521 ddindx binary_integer; indx binary_integer;
1522 begin
1523
1524 -- copy data to the local IN or IN-OUT args, if any
1525
1526
1527
1528
1529
1530 ddp_srtv_rec.std_rate_tmpl_id := p5_a0;
1531 ddp_srtv_rec.template_name := p5_a1;
1532 ddp_srtv_rec.template_desc := p5_a2;
1533 ddp_srtv_rec.object_version_number := p5_a3;
1534 ddp_srtv_rec.org_id := p5_a4;
1535 ddp_srtv_rec.currency_code := p5_a5;
1536 ddp_srtv_rec.rate_card_yn := p5_a6;
1537 ddp_srtv_rec.pricing_engine_code := p5_a7;
1538 ddp_srtv_rec.orig_std_rate_tmpl_id := p5_a8;
1539 ddp_srtv_rec.rate_type_code := p5_a9;
1540 ddp_srtv_rec.frequency_code := p5_a10;
1541 ddp_srtv_rec.index_id := p5_a11;
1542 ddp_srtv_rec.default_yn := p5_a12;
1543 ddp_srtv_rec.sts_code := p5_a13;
1544 ddp_srtv_rec.effective_from_date := p5_a14;
1545 ddp_srtv_rec.effective_to_date := p5_a15;
1546 ddp_srtv_rec.srt_rate := p5_a16;
1547 ddp_srtv_rec.attribute_category := p5_a17;
1548 ddp_srtv_rec.attribute1 := p5_a18;
1549 ddp_srtv_rec.attribute2 := p5_a19;
1550 ddp_srtv_rec.attribute3 := p5_a20;
1551 ddp_srtv_rec.attribute4 := p5_a21;
1552 ddp_srtv_rec.attribute5 := p5_a22;
1553 ddp_srtv_rec.attribute6 := p5_a23;
1554 ddp_srtv_rec.attribute7 := p5_a24;
1555 ddp_srtv_rec.attribute8 := p5_a25;
1556 ddp_srtv_rec.attribute9 := p5_a26;
1557 ddp_srtv_rec.attribute10 := p5_a27;
1558 ddp_srtv_rec.attribute11 := p5_a28;
1559 ddp_srtv_rec.attribute12 := p5_a29;
1560 ddp_srtv_rec.attribute13 := p5_a30;
1561 ddp_srtv_rec.attribute14 := p5_a31;
1562 ddp_srtv_rec.attribute15 := p5_a32;
1563 ddp_srtv_rec.created_by := p5_a33;
1564 ddp_srtv_rec.creation_date := p5_a34;
1565 ddp_srtv_rec.last_updated_by := p5_a35;
1566 ddp_srtv_rec.last_update_date := p5_a36;
1567 ddp_srtv_rec.last_update_login := p5_a37;
1568
1569 -- here's the delegated call to the old PL/SQL routine
1570 okl_srt_pvt.delete_row(p_api_version,
1571 p_init_msg_list,
1572 x_return_status,
1573 x_msg_count,
1574 x_msg_data,
1575 ddp_srtv_rec);
1576
1577 -- copy data back from the local variables to OUT or IN-OUT args, if any
1578
1579
1580
1581
1582
1583 end;
1584
1585 procedure delete_row(p_api_version NUMBER
1586 , p_init_msg_list VARCHAR2
1587 , x_return_status out nocopy VARCHAR2
1588 , x_msg_count out nocopy NUMBER
1589 , x_msg_data out nocopy VARCHAR2
1590 , p5_a0 JTF_NUMBER_TABLE
1591 , p5_a1 JTF_VARCHAR2_TABLE_300
1592 , p5_a2 JTF_VARCHAR2_TABLE_2000
1593 , p5_a3 JTF_NUMBER_TABLE
1594 , p5_a4 JTF_NUMBER_TABLE
1595 , p5_a5 JTF_VARCHAR2_TABLE_100
1596 , p5_a6 JTF_VARCHAR2_TABLE_100
1597 , p5_a7 JTF_VARCHAR2_TABLE_100
1598 , p5_a8 JTF_NUMBER_TABLE
1599 , p5_a9 JTF_VARCHAR2_TABLE_100
1600 , p5_a10 JTF_VARCHAR2_TABLE_100
1601 , p5_a11 JTF_NUMBER_TABLE
1602 , p5_a12 JTF_VARCHAR2_TABLE_100
1603 , p5_a13 JTF_VARCHAR2_TABLE_100
1604 , p5_a14 JTF_DATE_TABLE
1605 , p5_a15 JTF_DATE_TABLE
1606 , p5_a16 JTF_NUMBER_TABLE
1607 , p5_a17 JTF_VARCHAR2_TABLE_100
1608 , p5_a18 JTF_VARCHAR2_TABLE_500
1609 , p5_a19 JTF_VARCHAR2_TABLE_500
1610 , p5_a20 JTF_VARCHAR2_TABLE_500
1611 , p5_a21 JTF_VARCHAR2_TABLE_500
1612 , p5_a22 JTF_VARCHAR2_TABLE_500
1613 , p5_a23 JTF_VARCHAR2_TABLE_500
1614 , p5_a24 JTF_VARCHAR2_TABLE_500
1615 , p5_a25 JTF_VARCHAR2_TABLE_500
1616 , p5_a26 JTF_VARCHAR2_TABLE_500
1617 , p5_a27 JTF_VARCHAR2_TABLE_500
1618 , p5_a28 JTF_VARCHAR2_TABLE_500
1619 , p5_a29 JTF_VARCHAR2_TABLE_500
1620 , p5_a30 JTF_VARCHAR2_TABLE_500
1621 , p5_a31 JTF_VARCHAR2_TABLE_500
1622 , p5_a32 JTF_VARCHAR2_TABLE_500
1623 , p5_a33 JTF_NUMBER_TABLE
1624 , p5_a34 JTF_DATE_TABLE
1625 , p5_a35 JTF_NUMBER_TABLE
1626 , p5_a36 JTF_DATE_TABLE
1627 , p5_a37 JTF_NUMBER_TABLE
1628 )
1629
1630 as
1631 ddp_srtv_tbl okl_srt_pvt.okl_srtv_tbl;
1632 ddindx binary_integer; indx binary_integer;
1633 begin
1634
1635 -- copy data to the local IN or IN-OUT args, if any
1636
1637
1638
1639
1640
1641 okl_srt_pvt_w.rosetta_table_copy_in_p1(ddp_srtv_tbl, p5_a0
1642 , p5_a1
1643 , p5_a2
1644 , p5_a3
1645 , p5_a4
1646 , p5_a5
1647 , p5_a6
1648 , p5_a7
1649 , p5_a8
1650 , p5_a9
1651 , p5_a10
1652 , p5_a11
1653 , p5_a12
1654 , p5_a13
1655 , p5_a14
1656 , p5_a15
1657 , p5_a16
1658 , p5_a17
1659 , p5_a18
1660 , p5_a19
1661 , p5_a20
1662 , p5_a21
1663 , p5_a22
1664 , p5_a23
1665 , p5_a24
1666 , p5_a25
1667 , p5_a26
1668 , p5_a27
1669 , p5_a28
1670 , p5_a29
1671 , p5_a30
1672 , p5_a31
1673 , p5_a32
1674 , p5_a33
1675 , p5_a34
1676 , p5_a35
1677 , p5_a36
1678 , p5_a37
1679 );
1680
1681 -- here's the delegated call to the old PL/SQL routine
1682 okl_srt_pvt.delete_row(p_api_version,
1683 p_init_msg_list,
1684 x_return_status,
1685 x_msg_count,
1686 x_msg_data,
1687 ddp_srtv_tbl);
1688
1689 -- copy data back from the local variables to OUT or IN-OUT args, if any
1690
1691
1692
1693
1694
1695 end;
1696
1697 end okl_srt_pvt_w;