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