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