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