[Home] [Help]
PACKAGE BODY: APPS.OKL_AM_INVOICES_PVT_W
Source
1 package body okl_am_invoices_pvt_w as
2 /* $Header: OKLEAMIB.pls 120.5 2008/06/16 18:34:13 asahoo ship $ */
3 procedure rosetta_table_copy_in_p5(t out nocopy okl_am_invoices_pvt.ariv_tbl_type, a0 JTF_NUMBER_TABLE
4 , a1 JTF_VARCHAR2_TABLE_200
5 , a2 JTF_VARCHAR2_TABLE_2000
6 , a3 JTF_VARCHAR2_TABLE_2000
7 , a4 JTF_VARCHAR2_TABLE_2000
8 , a5 JTF_NUMBER_TABLE
9 , a6 JTF_DATE_TABLE
10 , a7 JTF_NUMBER_TABLE
11 , a8 JTF_DATE_TABLE
12 , a9 JTF_VARCHAR2_TABLE_100
13 , a10 JTF_NUMBER_TABLE
14 , a11 JTF_NUMBER_TABLE
15 ) as
16 ddindx binary_integer; indx binary_integer;
17 begin
18 if a0 is not null and a0.count > 0 then
19 if a0.count > 0 then
20 indx := a0.first;
21 ddindx := 1;
22 while true loop
23 t(ddindx).p_acn_id := a0(indx);
24 t(ddindx).p_acs_code := a1(indx);
25 t(ddindx).p_part_name := a2(indx);
26 t(ddindx).p_condition_type := a3(indx);
27 t(ddindx).p_damage_type := a4(indx);
28 t(ddindx).p_actual_repair_cost := a5(indx);
29 t(ddindx).p_date_approved := a6(indx);
30 t(ddindx).p_bill_to := a7(indx);
31 t(ddindx).p_date_invoice := a8(indx);
32 t(ddindx).p_approved_yn := a9(indx);
33 t(ddindx).p_acd_id_cost := a10(indx);
34 t(ddindx).p_object_version_number := a11(indx);
35 ddindx := ddindx+1;
36 if a0.last =indx
37 then exit;
38 end if;
39 indx := a0.next(indx);
40 end loop;
41 end if;
42 end if;
43 end rosetta_table_copy_in_p5;
44 procedure rosetta_table_copy_out_p5(t okl_am_invoices_pvt.ariv_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
45 , a1 out nocopy JTF_VARCHAR2_TABLE_200
46 , a2 out nocopy JTF_VARCHAR2_TABLE_2000
47 , a3 out nocopy JTF_VARCHAR2_TABLE_2000
48 , a4 out nocopy JTF_VARCHAR2_TABLE_2000
49 , a5 out nocopy JTF_NUMBER_TABLE
50 , a6 out nocopy JTF_DATE_TABLE
51 , a7 out nocopy JTF_NUMBER_TABLE
52 , a8 out nocopy JTF_DATE_TABLE
53 , a9 out nocopy JTF_VARCHAR2_TABLE_100
54 , a10 out nocopy JTF_NUMBER_TABLE
55 , a11 out nocopy JTF_NUMBER_TABLE
56 ) as
57 ddindx binary_integer; indx binary_integer;
58 begin
59 if t is null or t.count = 0 then
60 a0 := JTF_NUMBER_TABLE();
61 a1 := JTF_VARCHAR2_TABLE_200();
62 a2 := JTF_VARCHAR2_TABLE_2000();
63 a3 := JTF_VARCHAR2_TABLE_2000();
64 a4 := JTF_VARCHAR2_TABLE_2000();
65 a5 := JTF_NUMBER_TABLE();
66 a6 := JTF_DATE_TABLE();
67 a7 := JTF_NUMBER_TABLE();
68 a8 := JTF_DATE_TABLE();
69 a9 := JTF_VARCHAR2_TABLE_100();
70 a10 := JTF_NUMBER_TABLE();
71 a11 := JTF_NUMBER_TABLE();
72 else
73 a0 := JTF_NUMBER_TABLE();
74 a1 := JTF_VARCHAR2_TABLE_200();
75 a2 := JTF_VARCHAR2_TABLE_2000();
76 a3 := JTF_VARCHAR2_TABLE_2000();
77 a4 := JTF_VARCHAR2_TABLE_2000();
78 a5 := JTF_NUMBER_TABLE();
79 a6 := JTF_DATE_TABLE();
80 a7 := JTF_NUMBER_TABLE();
81 a8 := JTF_DATE_TABLE();
82 a9 := JTF_VARCHAR2_TABLE_100();
83 a10 := JTF_NUMBER_TABLE();
84 a11 := JTF_NUMBER_TABLE();
85 if t.count > 0 then
86 a0.extend(t.count);
87 a1.extend(t.count);
88 a2.extend(t.count);
89 a3.extend(t.count);
90 a4.extend(t.count);
91 a5.extend(t.count);
92 a6.extend(t.count);
93 a7.extend(t.count);
94 a8.extend(t.count);
95 a9.extend(t.count);
96 a10.extend(t.count);
97 a11.extend(t.count);
98 ddindx := t.first;
99 indx := 1;
100 while true loop
101 a0(indx) := t(ddindx).p_acn_id;
102 a1(indx) := t(ddindx).p_acs_code;
103 a2(indx) := t(ddindx).p_part_name;
104 a3(indx) := t(ddindx).p_condition_type;
105 a4(indx) := t(ddindx).p_damage_type;
106 a5(indx) := t(ddindx).p_actual_repair_cost;
107 a6(indx) := t(ddindx).p_date_approved;
108 a7(indx) := t(ddindx).p_bill_to;
109 a8(indx) := t(ddindx).p_date_invoice;
110 a9(indx) := t(ddindx).p_approved_yn;
111 a10(indx) := t(ddindx).p_acd_id_cost;
112 a11(indx) := t(ddindx).p_object_version_number;
113 indx := indx+1;
114 if t.last =ddindx
115 then exit;
116 end if;
117 ddindx := t.next(ddindx);
118 end loop;
119 end if;
120 end if;
121 end rosetta_table_copy_out_p5;
122
123 procedure rosetta_table_copy_in_p6(t out nocopy okl_am_invoices_pvt.tld_tbl_type, a0 JTF_NUMBER_TABLE
124 , a1 JTF_NUMBER_TABLE
125 ) as
126 ddindx binary_integer; indx binary_integer;
127 begin
128 if a0 is not null and a0.count > 0 then
129 if a0.count > 0 then
130 indx := a0.first;
131 ddindx := 1;
132 while true loop
133 t(ddindx).inv_tld_id := a0(indx);
134 t(ddindx).cm_tld_id := a1(indx);
135 ddindx := ddindx+1;
136 if a0.last =indx
137 then exit;
138 end if;
139 indx := a0.next(indx);
140 end loop;
141 end if;
142 end if;
143 end rosetta_table_copy_in_p6;
144 procedure rosetta_table_copy_out_p6(t okl_am_invoices_pvt.tld_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
145 , a1 out nocopy JTF_NUMBER_TABLE
146 ) as
147 ddindx binary_integer; indx binary_integer;
148 begin
149 if t is null or t.count = 0 then
150 a0 := JTF_NUMBER_TABLE();
151 a1 := JTF_NUMBER_TABLE();
152 else
153 a0 := JTF_NUMBER_TABLE();
154 a1 := JTF_NUMBER_TABLE();
155 if t.count > 0 then
156 a0.extend(t.count);
157 a1.extend(t.count);
158 ddindx := t.first;
159 indx := 1;
160 while true loop
161 a0(indx) := t(ddindx).inv_tld_id;
162 a1(indx) := t(ddindx).cm_tld_id;
163 indx := indx+1;
164 if t.last =ddindx
165 then exit;
166 end if;
167 ddindx := t.next(ddindx);
168 end loop;
169 end if;
170 end if;
171 end rosetta_table_copy_out_p6;
172
173 procedure rosetta_table_copy_in_p7(t out nocopy okl_am_invoices_pvt.sdd_tbl_type, a0 JTF_NUMBER_TABLE
174 , a1 JTF_NUMBER_TABLE
175 , a2 JTF_NUMBER_TABLE
176 ) as
177 ddindx binary_integer; indx binary_integer;
178 begin
179 if a0 is not null and a0.count > 0 then
180 if a0.count > 0 then
181 indx := a0.first;
182 ddindx := 1;
183 while true loop
184 t(ddindx).lsm_id := a0(indx);
185 t(ddindx).tld_id := a1(indx);
186 t(ddindx).amount := a2(indx);
187 ddindx := ddindx+1;
188 if a0.last =indx
189 then exit;
190 end if;
191 indx := a0.next(indx);
192 end loop;
193 end if;
194 end if;
195 end rosetta_table_copy_in_p7;
196 procedure rosetta_table_copy_out_p7(t okl_am_invoices_pvt.sdd_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
197 , a1 out nocopy JTF_NUMBER_TABLE
198 , a2 out nocopy JTF_NUMBER_TABLE
199 ) as
200 ddindx binary_integer; indx binary_integer;
201 begin
202 if t is null or t.count = 0 then
203 a0 := JTF_NUMBER_TABLE();
204 a1 := JTF_NUMBER_TABLE();
205 a2 := JTF_NUMBER_TABLE();
206 else
207 a0 := JTF_NUMBER_TABLE();
208 a1 := JTF_NUMBER_TABLE();
209 a2 := JTF_NUMBER_TABLE();
210 if t.count > 0 then
211 a0.extend(t.count);
212 a1.extend(t.count);
213 a2.extend(t.count);
214 ddindx := t.first;
215 indx := 1;
216 while true loop
217 a0(indx) := t(ddindx).lsm_id;
218 a1(indx) := t(ddindx).tld_id;
219 a2(indx) := t(ddindx).amount;
220 indx := indx+1;
221 if t.last =ddindx
222 then exit;
223 end if;
224 ddindx := t.next(ddindx);
225 end loop;
226 end if;
227 end if;
228 end rosetta_table_copy_out_p7;
229
230 procedure get_vendor_billing_info(p_cpl_id NUMBER
231 , p1_a0 in out nocopy NUMBER
232 , p1_a1 in out nocopy NUMBER
233 , p1_a2 in out nocopy VARCHAR2
234 , p1_a3 in out nocopy VARCHAR2
235 , p1_a4 in out nocopy VARCHAR2
236 , p1_a5 in out nocopy NUMBER
237 , p1_a6 in out nocopy DATE
238 , p1_a7 in out nocopy NUMBER
239 , p1_a8 in out nocopy NUMBER
240 , p1_a9 in out nocopy NUMBER
241 , p1_a10 in out nocopy NUMBER
242 , p1_a11 in out nocopy NUMBER
243 , p1_a12 in out nocopy NUMBER
244 , p1_a13 in out nocopy NUMBER
245 , p1_a14 in out nocopy VARCHAR2
246 , p1_a15 in out nocopy NUMBER
247 , p1_a16 in out nocopy NUMBER
248 , p1_a17 in out nocopy NUMBER
249 , p1_a18 in out nocopy NUMBER
250 , p1_a19 in out nocopy NUMBER
251 , p1_a20 in out nocopy NUMBER
252 , p1_a21 in out nocopy NUMBER
253 , p1_a22 in out nocopy NUMBER
254 , p1_a23 in out nocopy DATE
255 , p1_a24 in out nocopy NUMBER
256 , p1_a25 in out nocopy VARCHAR2
257 , p1_a26 in out nocopy VARCHAR2
258 , p1_a27 in out nocopy NUMBER
259 , p1_a28 in out nocopy NUMBER
260 , p1_a29 in out nocopy NUMBER
261 , p1_a30 in out nocopy VARCHAR2
262 , p1_a31 in out nocopy VARCHAR2
263 , p1_a32 in out nocopy VARCHAR2
264 , p1_a33 in out nocopy VARCHAR2
265 , p1_a34 in out nocopy VARCHAR2
266 , p1_a35 in out nocopy VARCHAR2
267 , p1_a36 in out nocopy VARCHAR2
268 , p1_a37 in out nocopy VARCHAR2
269 , p1_a38 in out nocopy VARCHAR2
270 , p1_a39 in out nocopy VARCHAR2
271 , p1_a40 in out nocopy VARCHAR2
272 , p1_a41 in out nocopy VARCHAR2
273 , p1_a42 in out nocopy VARCHAR2
274 , p1_a43 in out nocopy VARCHAR2
275 , p1_a44 in out nocopy VARCHAR2
276 , p1_a45 in out nocopy VARCHAR2
277 , p1_a46 in out nocopy DATE
278 , p1_a47 in out nocopy NUMBER
279 , p1_a48 in out nocopy NUMBER
280 , p1_a49 in out nocopy NUMBER
281 , p1_a50 in out nocopy DATE
282 , p1_a51 in out nocopy NUMBER
283 , p1_a52 in out nocopy NUMBER
284 , p1_a53 in out nocopy DATE
285 , p1_a54 in out nocopy NUMBER
286 , p1_a55 in out nocopy DATE
287 , p1_a56 in out nocopy NUMBER
288 , p1_a57 in out nocopy NUMBER
289 , p1_a58 in out nocopy VARCHAR2
290 , p1_a59 in out nocopy VARCHAR2
291 , p1_a60 in out nocopy VARCHAR2
292 , p1_a61 in out nocopy NUMBER
293 , p1_a62 in out nocopy VARCHAR2
294 , p1_a63 in out nocopy DATE
295 , p1_a64 in out nocopy VARCHAR2
296 , p1_a65 in out nocopy NUMBER
297 , p1_a66 in out nocopy NUMBER
298 , p1_a67 in out nocopy NUMBER
299 , p1_a68 in out nocopy NUMBER
300 , p1_a69 in out nocopy VARCHAR2
301 , p1_a70 in out nocopy VARCHAR2
302 , p1_a71 in out nocopy NUMBER
303 , p1_a72 in out nocopy VARCHAR2
304 , p1_a73 in out nocopy DATE
305 , x_return_status out nocopy VARCHAR2
306 )
307
308 as
309 ddpx_taiv_rec okl_am_invoices_pvt.taiv_rec_type;
310 ddindx binary_integer; indx binary_integer;
311 begin
312
313 -- copy data to the local IN or IN-OUT args, if any
314
315 ddpx_taiv_rec.id := p1_a0;
316 ddpx_taiv_rec.object_version_number := p1_a1;
317 ddpx_taiv_rec.sfwt_flag := p1_a2;
318 ddpx_taiv_rec.currency_code := p1_a3;
319 ddpx_taiv_rec.currency_conversion_type := p1_a4;
320 ddpx_taiv_rec.currency_conversion_rate := p1_a5;
321 ddpx_taiv_rec.currency_conversion_date := p1_a6;
322 ddpx_taiv_rec.khr_id := p1_a7;
323 ddpx_taiv_rec.cra_id := p1_a8;
324 ddpx_taiv_rec.tap_id := p1_a9;
325 ddpx_taiv_rec.qte_id := p1_a10;
326 ddpx_taiv_rec.tcn_id := p1_a11;
327 ddpx_taiv_rec.tai_id_reverses := p1_a12;
328 ddpx_taiv_rec.ipy_id := p1_a13;
329 ddpx_taiv_rec.trx_status_code := p1_a14;
330 ddpx_taiv_rec.set_of_books_id := p1_a15;
331 ddpx_taiv_rec.try_id := p1_a16;
332 ddpx_taiv_rec.ibt_id := p1_a17;
333 ddpx_taiv_rec.ixx_id := p1_a18;
334 ddpx_taiv_rec.irm_id := p1_a19;
335 ddpx_taiv_rec.irt_id := p1_a20;
336 ddpx_taiv_rec.svf_id := p1_a21;
337 ddpx_taiv_rec.amount := p1_a22;
338 ddpx_taiv_rec.date_invoiced := p1_a23;
339 ddpx_taiv_rec.amount_applied := p1_a24;
340 ddpx_taiv_rec.description := p1_a25;
341 ddpx_taiv_rec.trx_number := p1_a26;
342 ddpx_taiv_rec.clg_id := p1_a27;
343 ddpx_taiv_rec.pox_id := p1_a28;
344 ddpx_taiv_rec.cpy_id := p1_a29;
345 ddpx_taiv_rec.attribute_category := p1_a30;
346 ddpx_taiv_rec.attribute1 := p1_a31;
347 ddpx_taiv_rec.attribute2 := p1_a32;
348 ddpx_taiv_rec.attribute3 := p1_a33;
349 ddpx_taiv_rec.attribute4 := p1_a34;
350 ddpx_taiv_rec.attribute5 := p1_a35;
351 ddpx_taiv_rec.attribute6 := p1_a36;
352 ddpx_taiv_rec.attribute7 := p1_a37;
353 ddpx_taiv_rec.attribute8 := p1_a38;
354 ddpx_taiv_rec.attribute9 := p1_a39;
355 ddpx_taiv_rec.attribute10 := p1_a40;
356 ddpx_taiv_rec.attribute11 := p1_a41;
357 ddpx_taiv_rec.attribute12 := p1_a42;
358 ddpx_taiv_rec.attribute13 := p1_a43;
359 ddpx_taiv_rec.attribute14 := p1_a44;
360 ddpx_taiv_rec.attribute15 := p1_a45;
361 ddpx_taiv_rec.date_entered := p1_a46;
362 ddpx_taiv_rec.request_id := p1_a47;
363 ddpx_taiv_rec.program_application_id := p1_a48;
364 ddpx_taiv_rec.program_id := p1_a49;
365 ddpx_taiv_rec.program_update_date := p1_a50;
366 ddpx_taiv_rec.org_id := p1_a51;
367 ddpx_taiv_rec.created_by := p1_a52;
368 ddpx_taiv_rec.creation_date := p1_a53;
369 ddpx_taiv_rec.last_updated_by := p1_a54;
370 ddpx_taiv_rec.last_update_date := p1_a55;
371 ddpx_taiv_rec.last_update_login := p1_a56;
372 ddpx_taiv_rec.legal_entity_id := p1_a57;
373 ddpx_taiv_rec.investor_agreement_number := p1_a58;
374 ddpx_taiv_rec.investor_name := p1_a59;
375 ddpx_taiv_rec.okl_source_billing_trx := p1_a60;
376 ddpx_taiv_rec.inf_id := p1_a61;
377 ddpx_taiv_rec.invoice_pull_yn := p1_a62;
378 ddpx_taiv_rec.due_date := p1_a63;
379 ddpx_taiv_rec.consolidated_invoice_number := p1_a64;
380 ddpx_taiv_rec.isi_id := p1_a65;
381 ddpx_taiv_rec.receivables_invoice_id := p1_a66;
382 ddpx_taiv_rec.cust_trx_type_id := p1_a67;
383 ddpx_taiv_rec.customer_bank_account_id := p1_a68;
384 ddpx_taiv_rec.tax_exempt_flag := p1_a69;
385 ddpx_taiv_rec.tax_exempt_reason_code := p1_a70;
386 ddpx_taiv_rec.reference_line_id := p1_a71;
387 ddpx_taiv_rec.private_label := p1_a72;
388 ddpx_taiv_rec.transaction_date := p1_a73;
389
390
391 -- here's the delegated call to the old PL/SQL routine
392 okl_am_invoices_pvt.get_vendor_billing_info(p_cpl_id,
393 ddpx_taiv_rec,
394 x_return_status);
395
396 -- copy data back from the local variables to OUT or IN-OUT args, if any
397
398 p1_a0 := ddpx_taiv_rec.id;
399 p1_a1 := ddpx_taiv_rec.object_version_number;
400 p1_a2 := ddpx_taiv_rec.sfwt_flag;
401 p1_a3 := ddpx_taiv_rec.currency_code;
402 p1_a4 := ddpx_taiv_rec.currency_conversion_type;
403 p1_a5 := ddpx_taiv_rec.currency_conversion_rate;
404 p1_a6 := ddpx_taiv_rec.currency_conversion_date;
405 p1_a7 := ddpx_taiv_rec.khr_id;
406 p1_a8 := ddpx_taiv_rec.cra_id;
407 p1_a9 := ddpx_taiv_rec.tap_id;
408 p1_a10 := ddpx_taiv_rec.qte_id;
409 p1_a11 := ddpx_taiv_rec.tcn_id;
410 p1_a12 := ddpx_taiv_rec.tai_id_reverses;
411 p1_a13 := ddpx_taiv_rec.ipy_id;
412 p1_a14 := ddpx_taiv_rec.trx_status_code;
413 p1_a15 := ddpx_taiv_rec.set_of_books_id;
414 p1_a16 := ddpx_taiv_rec.try_id;
415 p1_a17 := ddpx_taiv_rec.ibt_id;
416 p1_a18 := ddpx_taiv_rec.ixx_id;
417 p1_a19 := ddpx_taiv_rec.irm_id;
418 p1_a20 := ddpx_taiv_rec.irt_id;
419 p1_a21 := ddpx_taiv_rec.svf_id;
420 p1_a22 := ddpx_taiv_rec.amount;
421 p1_a23 := ddpx_taiv_rec.date_invoiced;
422 p1_a24 := ddpx_taiv_rec.amount_applied;
423 p1_a25 := ddpx_taiv_rec.description;
424 p1_a26 := ddpx_taiv_rec.trx_number;
425 p1_a27 := ddpx_taiv_rec.clg_id;
426 p1_a28 := ddpx_taiv_rec.pox_id;
427 p1_a29 := ddpx_taiv_rec.cpy_id;
428 p1_a30 := ddpx_taiv_rec.attribute_category;
429 p1_a31 := ddpx_taiv_rec.attribute1;
430 p1_a32 := ddpx_taiv_rec.attribute2;
431 p1_a33 := ddpx_taiv_rec.attribute3;
432 p1_a34 := ddpx_taiv_rec.attribute4;
433 p1_a35 := ddpx_taiv_rec.attribute5;
434 p1_a36 := ddpx_taiv_rec.attribute6;
435 p1_a37 := ddpx_taiv_rec.attribute7;
436 p1_a38 := ddpx_taiv_rec.attribute8;
437 p1_a39 := ddpx_taiv_rec.attribute9;
438 p1_a40 := ddpx_taiv_rec.attribute10;
439 p1_a41 := ddpx_taiv_rec.attribute11;
440 p1_a42 := ddpx_taiv_rec.attribute12;
441 p1_a43 := ddpx_taiv_rec.attribute13;
442 p1_a44 := ddpx_taiv_rec.attribute14;
443 p1_a45 := ddpx_taiv_rec.attribute15;
444 p1_a46 := ddpx_taiv_rec.date_entered;
445 p1_a47 := ddpx_taiv_rec.request_id;
446 p1_a48 := ddpx_taiv_rec.program_application_id;
447 p1_a49 := ddpx_taiv_rec.program_id;
448 p1_a50 := ddpx_taiv_rec.program_update_date;
449 p1_a51 := ddpx_taiv_rec.org_id;
450 p1_a52 := ddpx_taiv_rec.created_by;
451 p1_a53 := ddpx_taiv_rec.creation_date;
452 p1_a54 := ddpx_taiv_rec.last_updated_by;
453 p1_a55 := ddpx_taiv_rec.last_update_date;
454 p1_a56 := ddpx_taiv_rec.last_update_login;
455 p1_a57 := ddpx_taiv_rec.legal_entity_id;
456 p1_a58 := ddpx_taiv_rec.investor_agreement_number;
457 p1_a59 := ddpx_taiv_rec.investor_name;
458 p1_a60 := ddpx_taiv_rec.okl_source_billing_trx;
459 p1_a61 := ddpx_taiv_rec.inf_id;
460 p1_a62 := ddpx_taiv_rec.invoice_pull_yn;
461 p1_a63 := ddpx_taiv_rec.due_date;
462 p1_a64 := ddpx_taiv_rec.consolidated_invoice_number;
463 p1_a65 := ddpx_taiv_rec.isi_id;
464 p1_a66 := ddpx_taiv_rec.receivables_invoice_id;
465 p1_a67 := ddpx_taiv_rec.cust_trx_type_id;
466 p1_a68 := ddpx_taiv_rec.customer_bank_account_id;
467 p1_a69 := ddpx_taiv_rec.tax_exempt_flag;
468 p1_a70 := ddpx_taiv_rec.tax_exempt_reason_code;
469 p1_a71 := ddpx_taiv_rec.reference_line_id;
470 p1_a72 := ddpx_taiv_rec.private_label;
471 p1_a73 := ddpx_taiv_rec.transaction_date;
472
473 end;
474
475 procedure contract_remaining_sec_dep(p_contract_id NUMBER
476 , p_contract_line_id NUMBER
477 , p2_a0 out nocopy JTF_NUMBER_TABLE
478 , p2_a1 out nocopy JTF_NUMBER_TABLE
479 , p2_a2 out nocopy JTF_NUMBER_TABLE
480 , p3_a0 out nocopy JTF_NUMBER_TABLE
481 , p3_a1 out nocopy JTF_NUMBER_TABLE
482 , x_total_amount out nocopy NUMBER
483 )
484
485 as
486 ddx_sdd_tbl okl_am_invoices_pvt.sdd_tbl_type;
487 ddx_tld_tbl okl_am_invoices_pvt.tld_tbl_type;
488 ddindx binary_integer; indx binary_integer;
489 begin
490
491 -- copy data to the local IN or IN-OUT args, if any
492
493
494
495
496
497 -- here's the delegated call to the old PL/SQL routine
498 okl_am_invoices_pvt.contract_remaining_sec_dep(p_contract_id,
499 p_contract_line_id,
500 ddx_sdd_tbl,
501 ddx_tld_tbl,
502 x_total_amount);
503
504 -- copy data back from the local variables to OUT or IN-OUT args, if any
505
506
507 okl_am_invoices_pvt_w.rosetta_table_copy_out_p7(ddx_sdd_tbl, p2_a0
508 , p2_a1
509 , p2_a2
510 );
511
512 okl_am_invoices_pvt_w.rosetta_table_copy_out_p6(ddx_tld_tbl, p3_a0
513 , p3_a1
514 );
515
516 end;
517
518 procedure create_repair_invoice(p_api_version NUMBER
519 , p_init_msg_list VARCHAR2
520 , x_msg_count out nocopy NUMBER
521 , x_msg_data out nocopy VARCHAR2
522 , x_return_status out nocopy VARCHAR2
523 , p5_a0 JTF_NUMBER_TABLE
524 , p5_a1 JTF_VARCHAR2_TABLE_200
525 , p5_a2 JTF_VARCHAR2_TABLE_2000
526 , p5_a3 JTF_VARCHAR2_TABLE_2000
527 , p5_a4 JTF_VARCHAR2_TABLE_2000
528 , p5_a5 JTF_NUMBER_TABLE
529 , p5_a6 JTF_DATE_TABLE
530 , p5_a7 JTF_NUMBER_TABLE
531 , p5_a8 JTF_DATE_TABLE
532 , p5_a9 JTF_VARCHAR2_TABLE_100
533 , p5_a10 JTF_NUMBER_TABLE
534 , p5_a11 JTF_NUMBER_TABLE
535 , p6_a0 out nocopy JTF_NUMBER_TABLE
536 , p6_a1 out nocopy JTF_NUMBER_TABLE
537 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
538 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
539 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
540 , p6_a5 out nocopy JTF_NUMBER_TABLE
541 , p6_a6 out nocopy JTF_DATE_TABLE
542 , p6_a7 out nocopy JTF_NUMBER_TABLE
543 , p6_a8 out nocopy JTF_NUMBER_TABLE
544 , p6_a9 out nocopy JTF_NUMBER_TABLE
545 , p6_a10 out nocopy JTF_NUMBER_TABLE
546 , p6_a11 out nocopy JTF_NUMBER_TABLE
547 , p6_a12 out nocopy JTF_NUMBER_TABLE
548 , p6_a13 out nocopy JTF_NUMBER_TABLE
549 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_100
550 , p6_a15 out nocopy JTF_NUMBER_TABLE
551 , p6_a16 out nocopy JTF_NUMBER_TABLE
552 , p6_a17 out nocopy JTF_NUMBER_TABLE
553 , p6_a18 out nocopy JTF_NUMBER_TABLE
554 , p6_a19 out nocopy JTF_NUMBER_TABLE
555 , p6_a20 out nocopy JTF_NUMBER_TABLE
556 , p6_a21 out nocopy JTF_NUMBER_TABLE
557 , p6_a22 out nocopy JTF_NUMBER_TABLE
558 , p6_a23 out nocopy JTF_DATE_TABLE
559 , p6_a24 out nocopy JTF_NUMBER_TABLE
560 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_2000
561 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_300
562 , p6_a27 out nocopy JTF_NUMBER_TABLE
563 , p6_a28 out nocopy JTF_NUMBER_TABLE
564 , p6_a29 out nocopy JTF_NUMBER_TABLE
565 , p6_a30 out nocopy JTF_VARCHAR2_TABLE_100
566 , p6_a31 out nocopy JTF_VARCHAR2_TABLE_500
567 , p6_a32 out nocopy JTF_VARCHAR2_TABLE_500
568 , p6_a33 out nocopy JTF_VARCHAR2_TABLE_500
569 , p6_a34 out nocopy JTF_VARCHAR2_TABLE_500
570 , p6_a35 out nocopy JTF_VARCHAR2_TABLE_500
571 , p6_a36 out nocopy JTF_VARCHAR2_TABLE_500
572 , p6_a37 out nocopy JTF_VARCHAR2_TABLE_500
573 , p6_a38 out nocopy JTF_VARCHAR2_TABLE_500
574 , p6_a39 out nocopy JTF_VARCHAR2_TABLE_500
575 , p6_a40 out nocopy JTF_VARCHAR2_TABLE_500
576 , p6_a41 out nocopy JTF_VARCHAR2_TABLE_500
577 , p6_a42 out nocopy JTF_VARCHAR2_TABLE_500
578 , p6_a43 out nocopy JTF_VARCHAR2_TABLE_500
579 , p6_a44 out nocopy JTF_VARCHAR2_TABLE_500
580 , p6_a45 out nocopy JTF_VARCHAR2_TABLE_500
581 , p6_a46 out nocopy JTF_DATE_TABLE
582 , p6_a47 out nocopy JTF_NUMBER_TABLE
583 , p6_a48 out nocopy JTF_NUMBER_TABLE
584 , p6_a49 out nocopy JTF_NUMBER_TABLE
585 , p6_a50 out nocopy JTF_DATE_TABLE
586 , p6_a51 out nocopy JTF_NUMBER_TABLE
587 , p6_a52 out nocopy JTF_NUMBER_TABLE
588 , p6_a53 out nocopy JTF_DATE_TABLE
589 , p6_a54 out nocopy JTF_NUMBER_TABLE
590 , p6_a55 out nocopy JTF_DATE_TABLE
591 , p6_a56 out nocopy JTF_NUMBER_TABLE
592 , p6_a57 out nocopy JTF_NUMBER_TABLE
593 , p6_a58 out nocopy JTF_VARCHAR2_TABLE_200
594 , p6_a59 out nocopy JTF_VARCHAR2_TABLE_400
595 , p6_a60 out nocopy JTF_VARCHAR2_TABLE_100
596 , p6_a61 out nocopy JTF_NUMBER_TABLE
597 , p6_a62 out nocopy JTF_VARCHAR2_TABLE_100
598 , p6_a63 out nocopy JTF_DATE_TABLE
599 , p6_a64 out nocopy JTF_VARCHAR2_TABLE_100
600 , p6_a65 out nocopy JTF_NUMBER_TABLE
601 , p6_a66 out nocopy JTF_NUMBER_TABLE
602 , p6_a67 out nocopy JTF_NUMBER_TABLE
603 , p6_a68 out nocopy JTF_NUMBER_TABLE
604 , p6_a69 out nocopy JTF_VARCHAR2_TABLE_100
605 , p6_a70 out nocopy JTF_VARCHAR2_TABLE_100
606 , p6_a71 out nocopy JTF_NUMBER_TABLE
607 , p6_a72 out nocopy JTF_VARCHAR2_TABLE_4000
608 , p6_a73 out nocopy JTF_DATE_TABLE
609 )
610
611 as
612 ddp_ariv_tbl okl_am_invoices_pvt.ariv_tbl_type;
613 ddx_taiv_tbl okl_am_invoices_pvt.taiv_tbl_type;
614 ddindx binary_integer; indx binary_integer;
615 begin
616
617 -- copy data to the local IN or IN-OUT args, if any
618
619
620
621
622
623 okl_am_invoices_pvt_w.rosetta_table_copy_in_p5(ddp_ariv_tbl, p5_a0
624 , p5_a1
625 , p5_a2
626 , p5_a3
627 , p5_a4
628 , p5_a5
629 , p5_a6
630 , p5_a7
631 , p5_a8
632 , p5_a9
633 , p5_a10
634 , p5_a11
635 );
636
637
638 -- here's the delegated call to the old PL/SQL routine
639 okl_am_invoices_pvt.create_repair_invoice(p_api_version,
640 p_init_msg_list,
641 x_msg_count,
642 x_msg_data,
643 x_return_status,
644 ddp_ariv_tbl,
645 ddx_taiv_tbl);
646
647 -- copy data back from the local variables to OUT or IN-OUT args, if any
648
649
650
651
652
653
654 okl_tai_pvt_w.rosetta_table_copy_out_p8(ddx_taiv_tbl, p6_a0
655 , p6_a1
656 , p6_a2
657 , p6_a3
658 , p6_a4
659 , p6_a5
660 , p6_a6
661 , p6_a7
662 , p6_a8
663 , p6_a9
664 , p6_a10
665 , p6_a11
666 , p6_a12
667 , p6_a13
668 , p6_a14
669 , p6_a15
670 , p6_a16
671 , p6_a17
672 , p6_a18
673 , p6_a19
674 , p6_a20
675 , p6_a21
676 , p6_a22
677 , p6_a23
678 , p6_a24
679 , p6_a25
680 , p6_a26
681 , p6_a27
682 , p6_a28
683 , p6_a29
684 , p6_a30
685 , p6_a31
686 , p6_a32
687 , p6_a33
688 , p6_a34
689 , p6_a35
690 , p6_a36
691 , p6_a37
692 , p6_a38
693 , p6_a39
694 , p6_a40
695 , p6_a41
696 , p6_a42
697 , p6_a43
698 , p6_a44
699 , p6_a45
700 , p6_a46
701 , p6_a47
702 , p6_a48
703 , p6_a49
704 , p6_a50
705 , p6_a51
706 , p6_a52
707 , p6_a53
708 , p6_a54
709 , p6_a55
710 , p6_a56
711 , p6_a57
712 , p6_a58
713 , p6_a59
714 , p6_a60
715 , p6_a61
716 , p6_a62
717 , p6_a63
718 , p6_a64
719 , p6_a65
720 , p6_a66
721 , p6_a67
722 , p6_a68
723 , p6_a69
724 , p6_a70
725 , p6_a71
726 , p6_a72
727 , p6_a73
728 );
729 end;
730
731 procedure create_remarket_invoice(p_api_version NUMBER
732 , p_init_msg_list VARCHAR2
733 , x_msg_count out nocopy NUMBER
734 , x_msg_data out nocopy VARCHAR2
735 , x_return_status out nocopy VARCHAR2
736 , p_order_line_id NUMBER
737 , p6_a0 out nocopy JTF_NUMBER_TABLE
738 , p6_a1 out nocopy JTF_NUMBER_TABLE
739 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
740 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
741 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
742 , p6_a5 out nocopy JTF_NUMBER_TABLE
743 , p6_a6 out nocopy JTF_DATE_TABLE
744 , p6_a7 out nocopy JTF_NUMBER_TABLE
745 , p6_a8 out nocopy JTF_NUMBER_TABLE
746 , p6_a9 out nocopy JTF_NUMBER_TABLE
747 , p6_a10 out nocopy JTF_NUMBER_TABLE
748 , p6_a11 out nocopy JTF_NUMBER_TABLE
749 , p6_a12 out nocopy JTF_NUMBER_TABLE
750 , p6_a13 out nocopy JTF_NUMBER_TABLE
751 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_100
752 , p6_a15 out nocopy JTF_NUMBER_TABLE
753 , p6_a16 out nocopy JTF_NUMBER_TABLE
754 , p6_a17 out nocopy JTF_NUMBER_TABLE
755 , p6_a18 out nocopy JTF_NUMBER_TABLE
756 , p6_a19 out nocopy JTF_NUMBER_TABLE
757 , p6_a20 out nocopy JTF_NUMBER_TABLE
758 , p6_a21 out nocopy JTF_NUMBER_TABLE
759 , p6_a22 out nocopy JTF_NUMBER_TABLE
760 , p6_a23 out nocopy JTF_DATE_TABLE
761 , p6_a24 out nocopy JTF_NUMBER_TABLE
762 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_2000
763 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_300
764 , p6_a27 out nocopy JTF_NUMBER_TABLE
765 , p6_a28 out nocopy JTF_NUMBER_TABLE
766 , p6_a29 out nocopy JTF_NUMBER_TABLE
767 , p6_a30 out nocopy JTF_VARCHAR2_TABLE_100
768 , p6_a31 out nocopy JTF_VARCHAR2_TABLE_500
769 , p6_a32 out nocopy JTF_VARCHAR2_TABLE_500
770 , p6_a33 out nocopy JTF_VARCHAR2_TABLE_500
771 , p6_a34 out nocopy JTF_VARCHAR2_TABLE_500
772 , p6_a35 out nocopy JTF_VARCHAR2_TABLE_500
773 , p6_a36 out nocopy JTF_VARCHAR2_TABLE_500
774 , p6_a37 out nocopy JTF_VARCHAR2_TABLE_500
775 , p6_a38 out nocopy JTF_VARCHAR2_TABLE_500
776 , p6_a39 out nocopy JTF_VARCHAR2_TABLE_500
777 , p6_a40 out nocopy JTF_VARCHAR2_TABLE_500
778 , p6_a41 out nocopy JTF_VARCHAR2_TABLE_500
779 , p6_a42 out nocopy JTF_VARCHAR2_TABLE_500
780 , p6_a43 out nocopy JTF_VARCHAR2_TABLE_500
781 , p6_a44 out nocopy JTF_VARCHAR2_TABLE_500
782 , p6_a45 out nocopy JTF_VARCHAR2_TABLE_500
783 , p6_a46 out nocopy JTF_DATE_TABLE
784 , p6_a47 out nocopy JTF_NUMBER_TABLE
785 , p6_a48 out nocopy JTF_NUMBER_TABLE
786 , p6_a49 out nocopy JTF_NUMBER_TABLE
787 , p6_a50 out nocopy JTF_DATE_TABLE
788 , p6_a51 out nocopy JTF_NUMBER_TABLE
789 , p6_a52 out nocopy JTF_NUMBER_TABLE
790 , p6_a53 out nocopy JTF_DATE_TABLE
791 , p6_a54 out nocopy JTF_NUMBER_TABLE
792 , p6_a55 out nocopy JTF_DATE_TABLE
793 , p6_a56 out nocopy JTF_NUMBER_TABLE
794 , p6_a57 out nocopy JTF_NUMBER_TABLE
795 , p6_a58 out nocopy JTF_VARCHAR2_TABLE_200
796 , p6_a59 out nocopy JTF_VARCHAR2_TABLE_400
797 , p6_a60 out nocopy JTF_VARCHAR2_TABLE_100
798 , p6_a61 out nocopy JTF_NUMBER_TABLE
799 , p6_a62 out nocopy JTF_VARCHAR2_TABLE_100
800 , p6_a63 out nocopy JTF_DATE_TABLE
801 , p6_a64 out nocopy JTF_VARCHAR2_TABLE_100
802 , p6_a65 out nocopy JTF_NUMBER_TABLE
803 , p6_a66 out nocopy JTF_NUMBER_TABLE
804 , p6_a67 out nocopy JTF_NUMBER_TABLE
805 , p6_a68 out nocopy JTF_NUMBER_TABLE
806 , p6_a69 out nocopy JTF_VARCHAR2_TABLE_100
807 , p6_a70 out nocopy JTF_VARCHAR2_TABLE_100
808 , p6_a71 out nocopy JTF_NUMBER_TABLE
809 , p6_a72 out nocopy JTF_VARCHAR2_TABLE_4000
810 , p6_a73 out nocopy JTF_DATE_TABLE
811 )
812
813 as
814 ddx_taiv_tbl okl_am_invoices_pvt.taiv_tbl_type;
815 ddindx binary_integer; indx binary_integer;
816 begin
817
818 -- copy data to the local IN or IN-OUT args, if any
819
820
821
822
823
824
825
826 -- here's the delegated call to the old PL/SQL routine
827 okl_am_invoices_pvt.create_remarket_invoice(p_api_version,
828 p_init_msg_list,
829 x_msg_count,
830 x_msg_data,
831 x_return_status,
832 p_order_line_id,
833 ddx_taiv_tbl);
834
835 -- copy data back from the local variables to OUT or IN-OUT args, if any
836
837
838
839
840
841
842 okl_tai_pvt_w.rosetta_table_copy_out_p8(ddx_taiv_tbl, p6_a0
843 , p6_a1
844 , p6_a2
845 , p6_a3
846 , p6_a4
847 , p6_a5
848 , p6_a6
849 , p6_a7
850 , p6_a8
851 , p6_a9
852 , p6_a10
853 , p6_a11
854 , p6_a12
855 , p6_a13
856 , p6_a14
857 , p6_a15
858 , p6_a16
859 , p6_a17
860 , p6_a18
861 , p6_a19
862 , p6_a20
863 , p6_a21
864 , p6_a22
865 , p6_a23
866 , p6_a24
867 , p6_a25
868 , p6_a26
869 , p6_a27
870 , p6_a28
871 , p6_a29
872 , p6_a30
873 , p6_a31
874 , p6_a32
875 , p6_a33
876 , p6_a34
877 , p6_a35
878 , p6_a36
879 , p6_a37
880 , p6_a38
881 , p6_a39
882 , p6_a40
883 , p6_a41
884 , p6_a42
885 , p6_a43
886 , p6_a44
887 , p6_a45
888 , p6_a46
889 , p6_a47
890 , p6_a48
891 , p6_a49
892 , p6_a50
893 , p6_a51
894 , p6_a52
895 , p6_a53
896 , p6_a54
897 , p6_a55
898 , p6_a56
899 , p6_a57
900 , p6_a58
901 , p6_a59
902 , p6_a60
903 , p6_a61
904 , p6_a62
905 , p6_a63
906 , p6_a64
907 , p6_a65
908 , p6_a66
909 , p6_a67
910 , p6_a68
911 , p6_a69
912 , p6_a70
913 , p6_a71
914 , p6_a72
915 , p6_a73
916 );
917 end;
918
919 procedure create_quote_invoice(p_api_version NUMBER
920 , p_init_msg_list VARCHAR2
921 , x_msg_count out nocopy NUMBER
922 , x_msg_data out nocopy VARCHAR2
923 , x_return_status out nocopy VARCHAR2
924 , p_quote_id NUMBER
925 , p6_a0 out nocopy JTF_NUMBER_TABLE
926 , p6_a1 out nocopy JTF_NUMBER_TABLE
927 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
928 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
929 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
930 , p6_a5 out nocopy JTF_NUMBER_TABLE
931 , p6_a6 out nocopy JTF_DATE_TABLE
932 , p6_a7 out nocopy JTF_NUMBER_TABLE
933 , p6_a8 out nocopy JTF_NUMBER_TABLE
934 , p6_a9 out nocopy JTF_NUMBER_TABLE
935 , p6_a10 out nocopy JTF_NUMBER_TABLE
936 , p6_a11 out nocopy JTF_NUMBER_TABLE
937 , p6_a12 out nocopy JTF_NUMBER_TABLE
938 , p6_a13 out nocopy JTF_NUMBER_TABLE
939 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_100
940 , p6_a15 out nocopy JTF_NUMBER_TABLE
941 , p6_a16 out nocopy JTF_NUMBER_TABLE
942 , p6_a17 out nocopy JTF_NUMBER_TABLE
943 , p6_a18 out nocopy JTF_NUMBER_TABLE
944 , p6_a19 out nocopy JTF_NUMBER_TABLE
945 , p6_a20 out nocopy JTF_NUMBER_TABLE
946 , p6_a21 out nocopy JTF_NUMBER_TABLE
947 , p6_a22 out nocopy JTF_NUMBER_TABLE
948 , p6_a23 out nocopy JTF_DATE_TABLE
949 , p6_a24 out nocopy JTF_NUMBER_TABLE
950 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_2000
951 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_300
952 , p6_a27 out nocopy JTF_NUMBER_TABLE
953 , p6_a28 out nocopy JTF_NUMBER_TABLE
954 , p6_a29 out nocopy JTF_NUMBER_TABLE
955 , p6_a30 out nocopy JTF_VARCHAR2_TABLE_100
956 , p6_a31 out nocopy JTF_VARCHAR2_TABLE_500
957 , p6_a32 out nocopy JTF_VARCHAR2_TABLE_500
958 , p6_a33 out nocopy JTF_VARCHAR2_TABLE_500
959 , p6_a34 out nocopy JTF_VARCHAR2_TABLE_500
960 , p6_a35 out nocopy JTF_VARCHAR2_TABLE_500
961 , p6_a36 out nocopy JTF_VARCHAR2_TABLE_500
962 , p6_a37 out nocopy JTF_VARCHAR2_TABLE_500
963 , p6_a38 out nocopy JTF_VARCHAR2_TABLE_500
964 , p6_a39 out nocopy JTF_VARCHAR2_TABLE_500
965 , p6_a40 out nocopy JTF_VARCHAR2_TABLE_500
966 , p6_a41 out nocopy JTF_VARCHAR2_TABLE_500
967 , p6_a42 out nocopy JTF_VARCHAR2_TABLE_500
968 , p6_a43 out nocopy JTF_VARCHAR2_TABLE_500
969 , p6_a44 out nocopy JTF_VARCHAR2_TABLE_500
970 , p6_a45 out nocopy JTF_VARCHAR2_TABLE_500
971 , p6_a46 out nocopy JTF_DATE_TABLE
972 , p6_a47 out nocopy JTF_NUMBER_TABLE
973 , p6_a48 out nocopy JTF_NUMBER_TABLE
974 , p6_a49 out nocopy JTF_NUMBER_TABLE
975 , p6_a50 out nocopy JTF_DATE_TABLE
976 , p6_a51 out nocopy JTF_NUMBER_TABLE
977 , p6_a52 out nocopy JTF_NUMBER_TABLE
978 , p6_a53 out nocopy JTF_DATE_TABLE
979 , p6_a54 out nocopy JTF_NUMBER_TABLE
980 , p6_a55 out nocopy JTF_DATE_TABLE
981 , p6_a56 out nocopy JTF_NUMBER_TABLE
982 , p6_a57 out nocopy JTF_NUMBER_TABLE
983 , p6_a58 out nocopy JTF_VARCHAR2_TABLE_200
984 , p6_a59 out nocopy JTF_VARCHAR2_TABLE_400
985 , p6_a60 out nocopy JTF_VARCHAR2_TABLE_100
986 , p6_a61 out nocopy JTF_NUMBER_TABLE
987 , p6_a62 out nocopy JTF_VARCHAR2_TABLE_100
988 , p6_a63 out nocopy JTF_DATE_TABLE
989 , p6_a64 out nocopy JTF_VARCHAR2_TABLE_100
990 , p6_a65 out nocopy JTF_NUMBER_TABLE
991 , p6_a66 out nocopy JTF_NUMBER_TABLE
992 , p6_a67 out nocopy JTF_NUMBER_TABLE
993 , p6_a68 out nocopy JTF_NUMBER_TABLE
994 , p6_a69 out nocopy JTF_VARCHAR2_TABLE_100
995 , p6_a70 out nocopy JTF_VARCHAR2_TABLE_100
996 , p6_a71 out nocopy JTF_NUMBER_TABLE
997 , p6_a72 out nocopy JTF_VARCHAR2_TABLE_4000
998 , p6_a73 out nocopy JTF_DATE_TABLE
999 )
1000
1001 as
1002 ddx_taiv_tbl okl_am_invoices_pvt.taiv_tbl_type;
1003 ddindx binary_integer; indx binary_integer;
1004 begin
1005
1006 -- copy data to the local IN or IN-OUT args, if any
1007
1008
1009
1010
1011
1012
1013
1014 -- here's the delegated call to the old PL/SQL routine
1015 okl_am_invoices_pvt.create_quote_invoice(p_api_version,
1016 p_init_msg_list,
1017 x_msg_count,
1018 x_msg_data,
1019 x_return_status,
1020 p_quote_id,
1021 ddx_taiv_tbl);
1022
1023 -- copy data back from the local variables to OUT or IN-OUT args, if any
1024
1025
1026
1027
1028
1029
1030 okl_tai_pvt_w.rosetta_table_copy_out_p8(ddx_taiv_tbl, p6_a0
1031 , p6_a1
1032 , p6_a2
1033 , p6_a3
1034 , p6_a4
1035 , p6_a5
1036 , p6_a6
1037 , p6_a7
1038 , p6_a8
1039 , p6_a9
1040 , p6_a10
1041 , p6_a11
1042 , p6_a12
1043 , p6_a13
1044 , p6_a14
1045 , p6_a15
1046 , p6_a16
1047 , p6_a17
1048 , p6_a18
1049 , p6_a19
1050 , p6_a20
1051 , p6_a21
1052 , p6_a22
1053 , p6_a23
1054 , p6_a24
1055 , p6_a25
1056 , p6_a26
1057 , p6_a27
1058 , p6_a28
1059 , p6_a29
1060 , p6_a30
1061 , p6_a31
1062 , p6_a32
1063 , p6_a33
1064 , p6_a34
1065 , p6_a35
1066 , p6_a36
1067 , p6_a37
1068 , p6_a38
1069 , p6_a39
1070 , p6_a40
1071 , p6_a41
1072 , p6_a42
1073 , p6_a43
1074 , p6_a44
1075 , p6_a45
1076 , p6_a46
1077 , p6_a47
1078 , p6_a48
1079 , p6_a49
1080 , p6_a50
1081 , p6_a51
1082 , p6_a52
1083 , p6_a53
1084 , p6_a54
1085 , p6_a55
1086 , p6_a56
1087 , p6_a57
1088 , p6_a58
1089 , p6_a59
1090 , p6_a60
1091 , p6_a61
1092 , p6_a62
1093 , p6_a63
1094 , p6_a64
1095 , p6_a65
1096 , p6_a66
1097 , p6_a67
1098 , p6_a68
1099 , p6_a69
1100 , p6_a70
1101 , p6_a71
1102 , p6_a72
1103 , p6_a73
1104 );
1105 end;
1106
1107 procedure create_scrt_dpst_dsps_inv(p_api_version NUMBER
1108 , p_init_msg_list VARCHAR2
1109 , x_msg_count out nocopy NUMBER
1110 , x_msg_data out nocopy VARCHAR2
1111 , x_return_status out nocopy VARCHAR2
1112 , p_contract_id NUMBER
1113 , p_contract_line_id NUMBER
1114 , p_dispose_amount NUMBER
1115 , p_quote_id NUMBER
1116 , p9_a0 out nocopy JTF_NUMBER_TABLE
1117 , p9_a1 out nocopy JTF_NUMBER_TABLE
1118 , p9_a2 out nocopy JTF_VARCHAR2_TABLE_100
1119 , p9_a3 out nocopy JTF_VARCHAR2_TABLE_100
1120 , p9_a4 out nocopy JTF_VARCHAR2_TABLE_100
1121 , p9_a5 out nocopy JTF_NUMBER_TABLE
1122 , p9_a6 out nocopy JTF_DATE_TABLE
1123 , p9_a7 out nocopy JTF_NUMBER_TABLE
1124 , p9_a8 out nocopy JTF_NUMBER_TABLE
1125 , p9_a9 out nocopy JTF_NUMBER_TABLE
1126 , p9_a10 out nocopy JTF_NUMBER_TABLE
1127 , p9_a11 out nocopy JTF_NUMBER_TABLE
1128 , p9_a12 out nocopy JTF_NUMBER_TABLE
1129 , p9_a13 out nocopy JTF_NUMBER_TABLE
1130 , p9_a14 out nocopy JTF_VARCHAR2_TABLE_100
1131 , p9_a15 out nocopy JTF_NUMBER_TABLE
1132 , p9_a16 out nocopy JTF_NUMBER_TABLE
1133 , p9_a17 out nocopy JTF_NUMBER_TABLE
1134 , p9_a18 out nocopy JTF_NUMBER_TABLE
1135 , p9_a19 out nocopy JTF_NUMBER_TABLE
1136 , p9_a20 out nocopy JTF_NUMBER_TABLE
1137 , p9_a21 out nocopy JTF_NUMBER_TABLE
1138 , p9_a22 out nocopy JTF_NUMBER_TABLE
1139 , p9_a23 out nocopy JTF_DATE_TABLE
1140 , p9_a24 out nocopy JTF_NUMBER_TABLE
1141 , p9_a25 out nocopy JTF_VARCHAR2_TABLE_2000
1142 , p9_a26 out nocopy JTF_VARCHAR2_TABLE_300
1143 , p9_a27 out nocopy JTF_NUMBER_TABLE
1144 , p9_a28 out nocopy JTF_NUMBER_TABLE
1145 , p9_a29 out nocopy JTF_NUMBER_TABLE
1146 , p9_a30 out nocopy JTF_VARCHAR2_TABLE_100
1147 , p9_a31 out nocopy JTF_VARCHAR2_TABLE_500
1148 , p9_a32 out nocopy JTF_VARCHAR2_TABLE_500
1149 , p9_a33 out nocopy JTF_VARCHAR2_TABLE_500
1150 , p9_a34 out nocopy JTF_VARCHAR2_TABLE_500
1151 , p9_a35 out nocopy JTF_VARCHAR2_TABLE_500
1152 , p9_a36 out nocopy JTF_VARCHAR2_TABLE_500
1153 , p9_a37 out nocopy JTF_VARCHAR2_TABLE_500
1154 , p9_a38 out nocopy JTF_VARCHAR2_TABLE_500
1155 , p9_a39 out nocopy JTF_VARCHAR2_TABLE_500
1156 , p9_a40 out nocopy JTF_VARCHAR2_TABLE_500
1157 , p9_a41 out nocopy JTF_VARCHAR2_TABLE_500
1158 , p9_a42 out nocopy JTF_VARCHAR2_TABLE_500
1159 , p9_a43 out nocopy JTF_VARCHAR2_TABLE_500
1160 , p9_a44 out nocopy JTF_VARCHAR2_TABLE_500
1161 , p9_a45 out nocopy JTF_VARCHAR2_TABLE_500
1162 , p9_a46 out nocopy JTF_DATE_TABLE
1163 , p9_a47 out nocopy JTF_NUMBER_TABLE
1164 , p9_a48 out nocopy JTF_NUMBER_TABLE
1165 , p9_a49 out nocopy JTF_NUMBER_TABLE
1166 , p9_a50 out nocopy JTF_DATE_TABLE
1167 , p9_a51 out nocopy JTF_NUMBER_TABLE
1168 , p9_a52 out nocopy JTF_NUMBER_TABLE
1169 , p9_a53 out nocopy JTF_DATE_TABLE
1170 , p9_a54 out nocopy JTF_NUMBER_TABLE
1171 , p9_a55 out nocopy JTF_DATE_TABLE
1172 , p9_a56 out nocopy JTF_NUMBER_TABLE
1173 , p9_a57 out nocopy JTF_NUMBER_TABLE
1174 , p9_a58 out nocopy JTF_VARCHAR2_TABLE_200
1175 , p9_a59 out nocopy JTF_VARCHAR2_TABLE_400
1176 , p9_a60 out nocopy JTF_VARCHAR2_TABLE_100
1177 , p9_a61 out nocopy JTF_NUMBER_TABLE
1178 , p9_a62 out nocopy JTF_VARCHAR2_TABLE_100
1179 , p9_a63 out nocopy JTF_DATE_TABLE
1180 , p9_a64 out nocopy JTF_VARCHAR2_TABLE_100
1181 , p9_a65 out nocopy JTF_NUMBER_TABLE
1182 , p9_a66 out nocopy JTF_NUMBER_TABLE
1183 , p9_a67 out nocopy JTF_NUMBER_TABLE
1184 , p9_a68 out nocopy JTF_NUMBER_TABLE
1185 , p9_a69 out nocopy JTF_VARCHAR2_TABLE_100
1186 , p9_a70 out nocopy JTF_VARCHAR2_TABLE_100
1187 , p9_a71 out nocopy JTF_NUMBER_TABLE
1188 , p9_a72 out nocopy JTF_VARCHAR2_TABLE_4000
1189 , p9_a73 out nocopy JTF_DATE_TABLE
1190 )
1191
1192 as
1193 ddx_taiv_tbl okl_am_invoices_pvt.taiv_tbl_type;
1194 ddindx binary_integer; indx binary_integer;
1195 begin
1196
1197 -- copy data to the local IN or IN-OUT args, if any
1198
1199
1200
1201
1202
1203
1204
1205
1206
1207
1208 -- here's the delegated call to the old PL/SQL routine
1209 okl_am_invoices_pvt.create_scrt_dpst_dsps_inv(p_api_version,
1210 p_init_msg_list,
1211 x_msg_count,
1212 x_msg_data,
1213 x_return_status,
1214 p_contract_id,
1215 p_contract_line_id,
1216 p_dispose_amount,
1217 p_quote_id,
1218 ddx_taiv_tbl);
1219
1220 -- copy data back from the local variables to OUT or IN-OUT args, if any
1221
1222
1223
1224
1225
1226
1227
1228
1229
1230 okl_tai_pvt_w.rosetta_table_copy_out_p8(ddx_taiv_tbl, p9_a0
1231 , p9_a1
1232 , p9_a2
1233 , p9_a3
1234 , p9_a4
1235 , p9_a5
1236 , p9_a6
1237 , p9_a7
1238 , p9_a8
1239 , p9_a9
1240 , p9_a10
1241 , p9_a11
1242 , p9_a12
1243 , p9_a13
1244 , p9_a14
1245 , p9_a15
1246 , p9_a16
1247 , p9_a17
1248 , p9_a18
1249 , p9_a19
1250 , p9_a20
1251 , p9_a21
1252 , p9_a22
1253 , p9_a23
1254 , p9_a24
1255 , p9_a25
1256 , p9_a26
1257 , p9_a27
1258 , p9_a28
1259 , p9_a29
1260 , p9_a30
1261 , p9_a31
1262 , p9_a32
1263 , p9_a33
1264 , p9_a34
1265 , p9_a35
1266 , p9_a36
1267 , p9_a37
1268 , p9_a38
1269 , p9_a39
1270 , p9_a40
1271 , p9_a41
1272 , p9_a42
1273 , p9_a43
1274 , p9_a44
1275 , p9_a45
1276 , p9_a46
1277 , p9_a47
1278 , p9_a48
1279 , p9_a49
1280 , p9_a50
1281 , p9_a51
1282 , p9_a52
1283 , p9_a53
1284 , p9_a54
1285 , p9_a55
1286 , p9_a56
1287 , p9_a57
1288 , p9_a58
1289 , p9_a59
1290 , p9_a60
1291 , p9_a61
1292 , p9_a62
1293 , p9_a63
1294 , p9_a64
1295 , p9_a65
1296 , p9_a66
1297 , p9_a67
1298 , p9_a68
1299 , p9_a69
1300 , p9_a70
1301 , p9_a71
1302 , p9_a72
1303 , p9_a73
1304 );
1305 end;
1306
1307 end okl_am_invoices_pvt_w;