DBA Data[Home] [Help]

PACKAGE BODY: APPS.OKL_SUPP_INVOICE_DTLS_PVT_W

Source


1 package body okl_supp_invoice_dtls_pvt_w as
2   /* $Header: OKLOSIDB.pls 120.1 2005/07/18 13:22:22 viselvar noship $ */
3   rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4   rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5 
6   -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
7   function rosetta_g_miss_date_in_map(d date) return date as
8   begin
9     if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10     return d;
11   end;
12 
13   function rosetta_g_miss_num_map(n number) return number as
14     a number := fnd_api.g_miss_num;
15     b number := 0-1962.0724;
16   begin
17     if n=a then return b; end if;
18     if n=b then return a; end if;
19     return n;
20   end;
21 
22   procedure create_sup_inv_dtls(p_api_version  NUMBER
23     , p_init_msg_list  VARCHAR2
24     , x_return_status out nocopy  VARCHAR2
25     , x_msg_count out nocopy  NUMBER
26     , x_msg_data out nocopy  VARCHAR2
27     , p6_a0 out nocopy  NUMBER
28     , p6_a1 out nocopy  NUMBER
29     , p6_a2 out nocopy  NUMBER
30     , p6_a3 out nocopy  NUMBER
31     , p6_a4 out nocopy  VARCHAR2
32     , p6_a5 out nocopy  DATE
33     , p6_a6 out nocopy  DATE
34     , p6_a7 out nocopy  NUMBER
35     , p6_a8 out nocopy  VARCHAR2
36     , p6_a9 out nocopy  VARCHAR2
37     , p6_a10 out nocopy  VARCHAR2
38     , p6_a11 out nocopy  VARCHAR2
39     , p6_a12 out nocopy  VARCHAR2
40     , p6_a13 out nocopy  VARCHAR2
41     , p6_a14 out nocopy  VARCHAR2
42     , p6_a15 out nocopy  VARCHAR2
43     , p6_a16 out nocopy  VARCHAR2
44     , p6_a17 out nocopy  VARCHAR2
45     , p6_a18 out nocopy  VARCHAR2
46     , p6_a19 out nocopy  VARCHAR2
47     , p6_a20 out nocopy  VARCHAR2
48     , p6_a21 out nocopy  VARCHAR2
49     , p6_a22 out nocopy  VARCHAR2
50     , p6_a23 out nocopy  VARCHAR2
51     , p6_a24 out nocopy  VARCHAR2
52     , p6_a25 out nocopy  VARCHAR2
53     , p6_a26 out nocopy  NUMBER
54     , p6_a27 out nocopy  DATE
55     , p6_a28 out nocopy  NUMBER
56     , p6_a29 out nocopy  DATE
57     , p6_a30 out nocopy  NUMBER
58     , p5_a0  NUMBER := 0-1962.0724
59     , p5_a1  NUMBER := 0-1962.0724
60     , p5_a2  NUMBER := 0-1962.0724
61     , p5_a3  NUMBER := 0-1962.0724
62     , p5_a4  VARCHAR2 := fnd_api.g_miss_char
63     , p5_a5  DATE := fnd_api.g_miss_date
64     , p5_a6  DATE := fnd_api.g_miss_date
65     , p5_a7  NUMBER := 0-1962.0724
66     , p5_a8  VARCHAR2 := fnd_api.g_miss_char
67     , p5_a9  VARCHAR2 := fnd_api.g_miss_char
68     , p5_a10  VARCHAR2 := fnd_api.g_miss_char
69     , p5_a11  VARCHAR2 := fnd_api.g_miss_char
70     , p5_a12  VARCHAR2 := fnd_api.g_miss_char
71     , p5_a13  VARCHAR2 := fnd_api.g_miss_char
72     , p5_a14  VARCHAR2 := fnd_api.g_miss_char
73     , p5_a15  VARCHAR2 := fnd_api.g_miss_char
74     , p5_a16  VARCHAR2 := fnd_api.g_miss_char
75     , p5_a17  VARCHAR2 := fnd_api.g_miss_char
76     , p5_a18  VARCHAR2 := fnd_api.g_miss_char
77     , p5_a19  VARCHAR2 := fnd_api.g_miss_char
78     , p5_a20  VARCHAR2 := fnd_api.g_miss_char
79     , p5_a21  VARCHAR2 := fnd_api.g_miss_char
80     , p5_a22  VARCHAR2 := fnd_api.g_miss_char
81     , p5_a23  VARCHAR2 := fnd_api.g_miss_char
82     , p5_a24  VARCHAR2 := fnd_api.g_miss_char
83     , p5_a25  VARCHAR2 := fnd_api.g_miss_char
84     , p5_a26  NUMBER := 0-1962.0724
85     , p5_a27  DATE := fnd_api.g_miss_date
86     , p5_a28  NUMBER := 0-1962.0724
87     , p5_a29  DATE := fnd_api.g_miss_date
88     , p5_a30  NUMBER := 0-1962.0724
89   )
90 
91   as
92     ddp_sidv_rec okl_supp_invoice_dtls_pvt.sidv_rec_type;
93     ddx_sidv_rec okl_supp_invoice_dtls_pvt.sidv_rec_type;
94     ddindx binary_integer; indx binary_integer;
95   begin
96 
97     -- copy data to the local IN or IN-OUT args, if any
98 
99 
100 
101 
102 
103     ddp_sidv_rec.id := rosetta_g_miss_num_map(p5_a0);
104     ddp_sidv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
105     ddp_sidv_rec.cle_id := rosetta_g_miss_num_map(p5_a2);
106     ddp_sidv_rec.fa_cle_id := rosetta_g_miss_num_map(p5_a3);
107     ddp_sidv_rec.invoice_number := p5_a4;
108     ddp_sidv_rec.date_invoiced := rosetta_g_miss_date_in_map(p5_a5);
109     ddp_sidv_rec.date_due := rosetta_g_miss_date_in_map(p5_a6);
110     ddp_sidv_rec.shipping_address_id1 := rosetta_g_miss_num_map(p5_a7);
111     ddp_sidv_rec.shipping_address_id2 := p5_a8;
112     ddp_sidv_rec.shipping_address_code := p5_a9;
113     ddp_sidv_rec.attribute_category := p5_a10;
114     ddp_sidv_rec.attribute1 := p5_a11;
115     ddp_sidv_rec.attribute2 := p5_a12;
116     ddp_sidv_rec.attribute3 := p5_a13;
117     ddp_sidv_rec.attribute4 := p5_a14;
118     ddp_sidv_rec.attribute5 := p5_a15;
119     ddp_sidv_rec.attribute6 := p5_a16;
120     ddp_sidv_rec.attribute7 := p5_a17;
121     ddp_sidv_rec.attribute8 := p5_a18;
122     ddp_sidv_rec.attribute9 := p5_a19;
123     ddp_sidv_rec.attribute10 := p5_a20;
124     ddp_sidv_rec.attribute11 := p5_a21;
125     ddp_sidv_rec.attribute12 := p5_a22;
126     ddp_sidv_rec.attribute13 := p5_a23;
127     ddp_sidv_rec.attribute14 := p5_a24;
128     ddp_sidv_rec.attribute15 := p5_a25;
129     ddp_sidv_rec.created_by := rosetta_g_miss_num_map(p5_a26);
130     ddp_sidv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a27);
131     ddp_sidv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a28);
132     ddp_sidv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a29);
133     ddp_sidv_rec.last_update_login := rosetta_g_miss_num_map(p5_a30);
134 
135 
136     -- here's the delegated call to the old PL/SQL routine
137     okl_supp_invoice_dtls_pvt.create_sup_inv_dtls(p_api_version,
138       p_init_msg_list,
139       x_return_status,
140       x_msg_count,
141       x_msg_data,
142       ddp_sidv_rec,
143       ddx_sidv_rec);
144 
145     -- copy data back from the local variables to OUT or IN-OUT args, if any
146 
147 
148 
149 
150 
151 
152     p6_a0 := rosetta_g_miss_num_map(ddx_sidv_rec.id);
153     p6_a1 := rosetta_g_miss_num_map(ddx_sidv_rec.object_version_number);
154     p6_a2 := rosetta_g_miss_num_map(ddx_sidv_rec.cle_id);
155     p6_a3 := rosetta_g_miss_num_map(ddx_sidv_rec.fa_cle_id);
156     p6_a4 := ddx_sidv_rec.invoice_number;
157     p6_a5 := ddx_sidv_rec.date_invoiced;
158     p6_a6 := ddx_sidv_rec.date_due;
159     p6_a7 := rosetta_g_miss_num_map(ddx_sidv_rec.shipping_address_id1);
160     p6_a8 := ddx_sidv_rec.shipping_address_id2;
161     p6_a9 := ddx_sidv_rec.shipping_address_code;
162     p6_a10 := ddx_sidv_rec.attribute_category;
163     p6_a11 := ddx_sidv_rec.attribute1;
164     p6_a12 := ddx_sidv_rec.attribute2;
165     p6_a13 := ddx_sidv_rec.attribute3;
166     p6_a14 := ddx_sidv_rec.attribute4;
167     p6_a15 := ddx_sidv_rec.attribute5;
168     p6_a16 := ddx_sidv_rec.attribute6;
169     p6_a17 := ddx_sidv_rec.attribute7;
170     p6_a18 := ddx_sidv_rec.attribute8;
171     p6_a19 := ddx_sidv_rec.attribute9;
172     p6_a20 := ddx_sidv_rec.attribute10;
173     p6_a21 := ddx_sidv_rec.attribute11;
174     p6_a22 := ddx_sidv_rec.attribute12;
175     p6_a23 := ddx_sidv_rec.attribute13;
176     p6_a24 := ddx_sidv_rec.attribute14;
177     p6_a25 := ddx_sidv_rec.attribute15;
178     p6_a26 := rosetta_g_miss_num_map(ddx_sidv_rec.created_by);
179     p6_a27 := ddx_sidv_rec.creation_date;
180     p6_a28 := rosetta_g_miss_num_map(ddx_sidv_rec.last_updated_by);
181     p6_a29 := ddx_sidv_rec.last_update_date;
182     p6_a30 := rosetta_g_miss_num_map(ddx_sidv_rec.last_update_login);
183   end;
184 
185   procedure create_sup_inv_dtls(p_api_version  NUMBER
186     , p_init_msg_list  VARCHAR2
187     , x_return_status out nocopy  VARCHAR2
188     , x_msg_count out nocopy  NUMBER
189     , x_msg_data out nocopy  VARCHAR2
190     , p5_a0 JTF_NUMBER_TABLE
191     , p5_a1 JTF_NUMBER_TABLE
192     , p5_a2 JTF_NUMBER_TABLE
193     , p5_a3 JTF_NUMBER_TABLE
194     , p5_a4 JTF_VARCHAR2_TABLE_100
195     , p5_a5 JTF_DATE_TABLE
196     , p5_a6 JTF_DATE_TABLE
197     , p5_a7 JTF_NUMBER_TABLE
198     , p5_a8 JTF_VARCHAR2_TABLE_100
199     , p5_a9 JTF_VARCHAR2_TABLE_100
200     , p5_a10 JTF_VARCHAR2_TABLE_100
201     , p5_a11 JTF_VARCHAR2_TABLE_500
202     , p5_a12 JTF_VARCHAR2_TABLE_500
203     , p5_a13 JTF_VARCHAR2_TABLE_500
204     , p5_a14 JTF_VARCHAR2_TABLE_500
205     , p5_a15 JTF_VARCHAR2_TABLE_500
206     , p5_a16 JTF_VARCHAR2_TABLE_500
207     , p5_a17 JTF_VARCHAR2_TABLE_500
208     , p5_a18 JTF_VARCHAR2_TABLE_500
209     , p5_a19 JTF_VARCHAR2_TABLE_500
210     , p5_a20 JTF_VARCHAR2_TABLE_500
211     , p5_a21 JTF_VARCHAR2_TABLE_500
212     , p5_a22 JTF_VARCHAR2_TABLE_500
213     , p5_a23 JTF_VARCHAR2_TABLE_500
214     , p5_a24 JTF_VARCHAR2_TABLE_500
215     , p5_a25 JTF_VARCHAR2_TABLE_500
216     , p5_a26 JTF_NUMBER_TABLE
217     , p5_a27 JTF_DATE_TABLE
218     , p5_a28 JTF_NUMBER_TABLE
219     , p5_a29 JTF_DATE_TABLE
220     , p5_a30 JTF_NUMBER_TABLE
221     , p6_a0 out nocopy JTF_NUMBER_TABLE
222     , p6_a1 out nocopy JTF_NUMBER_TABLE
223     , p6_a2 out nocopy JTF_NUMBER_TABLE
224     , p6_a3 out nocopy JTF_NUMBER_TABLE
225     , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
226     , p6_a5 out nocopy JTF_DATE_TABLE
227     , p6_a6 out nocopy JTF_DATE_TABLE
228     , p6_a7 out nocopy JTF_NUMBER_TABLE
229     , p6_a8 out nocopy JTF_VARCHAR2_TABLE_100
230     , p6_a9 out nocopy JTF_VARCHAR2_TABLE_100
231     , p6_a10 out nocopy JTF_VARCHAR2_TABLE_100
232     , p6_a11 out nocopy JTF_VARCHAR2_TABLE_500
233     , p6_a12 out nocopy JTF_VARCHAR2_TABLE_500
234     , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
235     , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
236     , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
237     , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
238     , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
239     , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
240     , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
241     , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
242     , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
243     , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
244     , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
245     , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
246     , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
247     , p6_a26 out nocopy JTF_NUMBER_TABLE
248     , p6_a27 out nocopy JTF_DATE_TABLE
249     , p6_a28 out nocopy JTF_NUMBER_TABLE
250     , p6_a29 out nocopy JTF_DATE_TABLE
251     , p6_a30 out nocopy JTF_NUMBER_TABLE
252   )
253 
254   as
255     ddp_sidv_tbl okl_supp_invoice_dtls_pvt.sidv_tbl_type;
256     ddx_sidv_tbl okl_supp_invoice_dtls_pvt.sidv_tbl_type;
257     ddindx binary_integer; indx binary_integer;
258   begin
259 
260     -- copy data to the local IN or IN-OUT args, if any
261 
262 
263 
264 
265 
266     okl_sid_pvt_w.rosetta_table_copy_in_p2(ddp_sidv_tbl, p5_a0
267       , p5_a1
268       , p5_a2
269       , p5_a3
270       , p5_a4
271       , p5_a5
272       , p5_a6
273       , p5_a7
274       , p5_a8
275       , p5_a9
276       , p5_a10
277       , p5_a11
278       , p5_a12
279       , p5_a13
280       , p5_a14
281       , p5_a15
282       , p5_a16
283       , p5_a17
284       , p5_a18
285       , p5_a19
286       , p5_a20
287       , p5_a21
288       , p5_a22
289       , p5_a23
290       , p5_a24
291       , p5_a25
292       , p5_a26
293       , p5_a27
294       , p5_a28
295       , p5_a29
296       , p5_a30
297       );
298 
299 
300     -- here's the delegated call to the old PL/SQL routine
301     okl_supp_invoice_dtls_pvt.create_sup_inv_dtls(p_api_version,
302       p_init_msg_list,
303       x_return_status,
304       x_msg_count,
305       x_msg_data,
306       ddp_sidv_tbl,
307       ddx_sidv_tbl);
308 
309     -- copy data back from the local variables to OUT or IN-OUT args, if any
310 
311 
312 
313 
314 
315 
316     okl_sid_pvt_w.rosetta_table_copy_out_p2(ddx_sidv_tbl, p6_a0
317       , p6_a1
318       , p6_a2
319       , p6_a3
320       , p6_a4
321       , p6_a5
322       , p6_a6
323       , p6_a7
324       , p6_a8
325       , p6_a9
326       , p6_a10
327       , p6_a11
328       , p6_a12
329       , p6_a13
330       , p6_a14
331       , p6_a15
332       , p6_a16
333       , p6_a17
334       , p6_a18
335       , p6_a19
336       , p6_a20
337       , p6_a21
338       , p6_a22
339       , p6_a23
340       , p6_a24
341       , p6_a25
342       , p6_a26
343       , p6_a27
344       , p6_a28
345       , p6_a29
346       , p6_a30
347       );
348   end;
349 
350   procedure lock_sup_inv_dtls(p_api_version  NUMBER
351     , p_init_msg_list  VARCHAR2
352     , x_return_status out nocopy  VARCHAR2
353     , x_msg_count out nocopy  NUMBER
354     , x_msg_data out nocopy  VARCHAR2
355     , p5_a0  NUMBER := 0-1962.0724
356     , p5_a1  NUMBER := 0-1962.0724
357     , p5_a2  NUMBER := 0-1962.0724
358     , p5_a3  NUMBER := 0-1962.0724
359     , p5_a4  VARCHAR2 := fnd_api.g_miss_char
360     , p5_a5  DATE := fnd_api.g_miss_date
361     , p5_a6  DATE := fnd_api.g_miss_date
362     , p5_a7  NUMBER := 0-1962.0724
363     , p5_a8  VARCHAR2 := fnd_api.g_miss_char
364     , p5_a9  VARCHAR2 := fnd_api.g_miss_char
365     , p5_a10  VARCHAR2 := fnd_api.g_miss_char
366     , p5_a11  VARCHAR2 := fnd_api.g_miss_char
367     , p5_a12  VARCHAR2 := fnd_api.g_miss_char
368     , p5_a13  VARCHAR2 := fnd_api.g_miss_char
369     , p5_a14  VARCHAR2 := fnd_api.g_miss_char
370     , p5_a15  VARCHAR2 := fnd_api.g_miss_char
371     , p5_a16  VARCHAR2 := fnd_api.g_miss_char
372     , p5_a17  VARCHAR2 := fnd_api.g_miss_char
373     , p5_a18  VARCHAR2 := fnd_api.g_miss_char
374     , p5_a19  VARCHAR2 := fnd_api.g_miss_char
375     , p5_a20  VARCHAR2 := fnd_api.g_miss_char
376     , p5_a21  VARCHAR2 := fnd_api.g_miss_char
377     , p5_a22  VARCHAR2 := fnd_api.g_miss_char
378     , p5_a23  VARCHAR2 := fnd_api.g_miss_char
379     , p5_a24  VARCHAR2 := fnd_api.g_miss_char
380     , p5_a25  VARCHAR2 := fnd_api.g_miss_char
381     , p5_a26  NUMBER := 0-1962.0724
382     , p5_a27  DATE := fnd_api.g_miss_date
383     , p5_a28  NUMBER := 0-1962.0724
384     , p5_a29  DATE := fnd_api.g_miss_date
385     , p5_a30  NUMBER := 0-1962.0724
386   )
387 
388   as
389     ddp_sidv_rec okl_supp_invoice_dtls_pvt.sidv_rec_type;
390     ddindx binary_integer; indx binary_integer;
391   begin
392 
393     -- copy data to the local IN or IN-OUT args, if any
394 
395 
396 
397 
398 
399     ddp_sidv_rec.id := rosetta_g_miss_num_map(p5_a0);
400     ddp_sidv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
401     ddp_sidv_rec.cle_id := rosetta_g_miss_num_map(p5_a2);
402     ddp_sidv_rec.fa_cle_id := rosetta_g_miss_num_map(p5_a3);
403     ddp_sidv_rec.invoice_number := p5_a4;
404     ddp_sidv_rec.date_invoiced := rosetta_g_miss_date_in_map(p5_a5);
405     ddp_sidv_rec.date_due := rosetta_g_miss_date_in_map(p5_a6);
406     ddp_sidv_rec.shipping_address_id1 := rosetta_g_miss_num_map(p5_a7);
407     ddp_sidv_rec.shipping_address_id2 := p5_a8;
408     ddp_sidv_rec.shipping_address_code := p5_a9;
409     ddp_sidv_rec.attribute_category := p5_a10;
410     ddp_sidv_rec.attribute1 := p5_a11;
411     ddp_sidv_rec.attribute2 := p5_a12;
412     ddp_sidv_rec.attribute3 := p5_a13;
413     ddp_sidv_rec.attribute4 := p5_a14;
414     ddp_sidv_rec.attribute5 := p5_a15;
415     ddp_sidv_rec.attribute6 := p5_a16;
416     ddp_sidv_rec.attribute7 := p5_a17;
417     ddp_sidv_rec.attribute8 := p5_a18;
418     ddp_sidv_rec.attribute9 := p5_a19;
419     ddp_sidv_rec.attribute10 := p5_a20;
420     ddp_sidv_rec.attribute11 := p5_a21;
421     ddp_sidv_rec.attribute12 := p5_a22;
422     ddp_sidv_rec.attribute13 := p5_a23;
423     ddp_sidv_rec.attribute14 := p5_a24;
424     ddp_sidv_rec.attribute15 := p5_a25;
425     ddp_sidv_rec.created_by := rosetta_g_miss_num_map(p5_a26);
426     ddp_sidv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a27);
427     ddp_sidv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a28);
428     ddp_sidv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a29);
429     ddp_sidv_rec.last_update_login := rosetta_g_miss_num_map(p5_a30);
430 
431     -- here's the delegated call to the old PL/SQL routine
432     okl_supp_invoice_dtls_pvt.lock_sup_inv_dtls(p_api_version,
433       p_init_msg_list,
434       x_return_status,
435       x_msg_count,
436       x_msg_data,
437       ddp_sidv_rec);
438 
439     -- copy data back from the local variables to OUT or IN-OUT args, if any
440 
441 
442 
443 
444 
445   end;
446 
447   procedure lock_sup_inv_dtls(p_api_version  NUMBER
448     , p_init_msg_list  VARCHAR2
449     , x_return_status out nocopy  VARCHAR2
450     , x_msg_count out nocopy  NUMBER
451     , x_msg_data out nocopy  VARCHAR2
452     , p5_a0 JTF_NUMBER_TABLE
453     , p5_a1 JTF_NUMBER_TABLE
454     , p5_a2 JTF_NUMBER_TABLE
455     , p5_a3 JTF_NUMBER_TABLE
456     , p5_a4 JTF_VARCHAR2_TABLE_100
457     , p5_a5 JTF_DATE_TABLE
458     , p5_a6 JTF_DATE_TABLE
459     , p5_a7 JTF_NUMBER_TABLE
460     , p5_a8 JTF_VARCHAR2_TABLE_100
461     , p5_a9 JTF_VARCHAR2_TABLE_100
462     , p5_a10 JTF_VARCHAR2_TABLE_100
463     , p5_a11 JTF_VARCHAR2_TABLE_500
464     , p5_a12 JTF_VARCHAR2_TABLE_500
465     , p5_a13 JTF_VARCHAR2_TABLE_500
466     , p5_a14 JTF_VARCHAR2_TABLE_500
467     , p5_a15 JTF_VARCHAR2_TABLE_500
468     , p5_a16 JTF_VARCHAR2_TABLE_500
469     , p5_a17 JTF_VARCHAR2_TABLE_500
470     , p5_a18 JTF_VARCHAR2_TABLE_500
471     , p5_a19 JTF_VARCHAR2_TABLE_500
472     , p5_a20 JTF_VARCHAR2_TABLE_500
473     , p5_a21 JTF_VARCHAR2_TABLE_500
474     , p5_a22 JTF_VARCHAR2_TABLE_500
475     , p5_a23 JTF_VARCHAR2_TABLE_500
476     , p5_a24 JTF_VARCHAR2_TABLE_500
477     , p5_a25 JTF_VARCHAR2_TABLE_500
478     , p5_a26 JTF_NUMBER_TABLE
479     , p5_a27 JTF_DATE_TABLE
480     , p5_a28 JTF_NUMBER_TABLE
481     , p5_a29 JTF_DATE_TABLE
482     , p5_a30 JTF_NUMBER_TABLE
483   )
484 
485   as
486     ddp_sidv_tbl okl_supp_invoice_dtls_pvt.sidv_tbl_type;
487     ddindx binary_integer; indx binary_integer;
488   begin
489 
490     -- copy data to the local IN or IN-OUT args, if any
491 
492 
493 
494 
495 
496     okl_sid_pvt_w.rosetta_table_copy_in_p2(ddp_sidv_tbl, p5_a0
497       , p5_a1
498       , p5_a2
499       , p5_a3
500       , p5_a4
501       , p5_a5
502       , p5_a6
503       , p5_a7
504       , p5_a8
505       , p5_a9
506       , p5_a10
507       , p5_a11
508       , p5_a12
509       , p5_a13
510       , p5_a14
511       , p5_a15
512       , p5_a16
513       , p5_a17
514       , p5_a18
515       , p5_a19
516       , p5_a20
517       , p5_a21
518       , p5_a22
519       , p5_a23
520       , p5_a24
521       , p5_a25
522       , p5_a26
523       , p5_a27
524       , p5_a28
525       , p5_a29
526       , p5_a30
527       );
528 
529     -- here's the delegated call to the old PL/SQL routine
530     okl_supp_invoice_dtls_pvt.lock_sup_inv_dtls(p_api_version,
531       p_init_msg_list,
532       x_return_status,
533       x_msg_count,
534       x_msg_data,
535       ddp_sidv_tbl);
536 
537     -- copy data back from the local variables to OUT or IN-OUT args, if any
538 
539 
540 
541 
542 
543   end;
544 
545   procedure update_sup_inv_dtls(p_api_version  NUMBER
546     , p_init_msg_list  VARCHAR2
547     , x_return_status out nocopy  VARCHAR2
548     , x_msg_count out nocopy  NUMBER
549     , x_msg_data out nocopy  VARCHAR2
550     , p6_a0 out nocopy  NUMBER
551     , p6_a1 out nocopy  NUMBER
552     , p6_a2 out nocopy  NUMBER
553     , p6_a3 out nocopy  NUMBER
554     , p6_a4 out nocopy  VARCHAR2
555     , p6_a5 out nocopy  DATE
556     , p6_a6 out nocopy  DATE
557     , p6_a7 out nocopy  NUMBER
558     , p6_a8 out nocopy  VARCHAR2
559     , p6_a9 out nocopy  VARCHAR2
560     , p6_a10 out nocopy  VARCHAR2
561     , p6_a11 out nocopy  VARCHAR2
562     , p6_a12 out nocopy  VARCHAR2
563     , p6_a13 out nocopy  VARCHAR2
564     , p6_a14 out nocopy  VARCHAR2
565     , p6_a15 out nocopy  VARCHAR2
566     , p6_a16 out nocopy  VARCHAR2
567     , p6_a17 out nocopy  VARCHAR2
568     , p6_a18 out nocopy  VARCHAR2
569     , p6_a19 out nocopy  VARCHAR2
570     , p6_a20 out nocopy  VARCHAR2
571     , p6_a21 out nocopy  VARCHAR2
572     , p6_a22 out nocopy  VARCHAR2
573     , p6_a23 out nocopy  VARCHAR2
574     , p6_a24 out nocopy  VARCHAR2
575     , p6_a25 out nocopy  VARCHAR2
576     , p6_a26 out nocopy  NUMBER
577     , p6_a27 out nocopy  DATE
578     , p6_a28 out nocopy  NUMBER
579     , p6_a29 out nocopy  DATE
580     , p6_a30 out nocopy  NUMBER
581     , p5_a0  NUMBER := 0-1962.0724
582     , p5_a1  NUMBER := 0-1962.0724
583     , p5_a2  NUMBER := 0-1962.0724
584     , p5_a3  NUMBER := 0-1962.0724
585     , p5_a4  VARCHAR2 := fnd_api.g_miss_char
586     , p5_a5  DATE := fnd_api.g_miss_date
587     , p5_a6  DATE := fnd_api.g_miss_date
588     , p5_a7  NUMBER := 0-1962.0724
589     , p5_a8  VARCHAR2 := fnd_api.g_miss_char
590     , p5_a9  VARCHAR2 := fnd_api.g_miss_char
591     , p5_a10  VARCHAR2 := fnd_api.g_miss_char
592     , p5_a11  VARCHAR2 := fnd_api.g_miss_char
593     , p5_a12  VARCHAR2 := fnd_api.g_miss_char
594     , p5_a13  VARCHAR2 := fnd_api.g_miss_char
595     , p5_a14  VARCHAR2 := fnd_api.g_miss_char
596     , p5_a15  VARCHAR2 := fnd_api.g_miss_char
597     , p5_a16  VARCHAR2 := fnd_api.g_miss_char
598     , p5_a17  VARCHAR2 := fnd_api.g_miss_char
599     , p5_a18  VARCHAR2 := fnd_api.g_miss_char
600     , p5_a19  VARCHAR2 := fnd_api.g_miss_char
601     , p5_a20  VARCHAR2 := fnd_api.g_miss_char
602     , p5_a21  VARCHAR2 := fnd_api.g_miss_char
603     , p5_a22  VARCHAR2 := fnd_api.g_miss_char
604     , p5_a23  VARCHAR2 := fnd_api.g_miss_char
605     , p5_a24  VARCHAR2 := fnd_api.g_miss_char
606     , p5_a25  VARCHAR2 := fnd_api.g_miss_char
607     , p5_a26  NUMBER := 0-1962.0724
608     , p5_a27  DATE := fnd_api.g_miss_date
609     , p5_a28  NUMBER := 0-1962.0724
610     , p5_a29  DATE := fnd_api.g_miss_date
611     , p5_a30  NUMBER := 0-1962.0724
612   )
613 
614   as
615     ddp_sidv_rec okl_supp_invoice_dtls_pvt.sidv_rec_type;
616     ddx_sidv_rec okl_supp_invoice_dtls_pvt.sidv_rec_type;
617     ddindx binary_integer; indx binary_integer;
618   begin
619 
620     -- copy data to the local IN or IN-OUT args, if any
621 
622 
623 
624 
625 
626     ddp_sidv_rec.id := rosetta_g_miss_num_map(p5_a0);
627     ddp_sidv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
628     ddp_sidv_rec.cle_id := rosetta_g_miss_num_map(p5_a2);
629     ddp_sidv_rec.fa_cle_id := rosetta_g_miss_num_map(p5_a3);
630     ddp_sidv_rec.invoice_number := p5_a4;
631     ddp_sidv_rec.date_invoiced := rosetta_g_miss_date_in_map(p5_a5);
632     ddp_sidv_rec.date_due := rosetta_g_miss_date_in_map(p5_a6);
633     ddp_sidv_rec.shipping_address_id1 := rosetta_g_miss_num_map(p5_a7);
634     ddp_sidv_rec.shipping_address_id2 := p5_a8;
635     ddp_sidv_rec.shipping_address_code := p5_a9;
636     ddp_sidv_rec.attribute_category := p5_a10;
637     ddp_sidv_rec.attribute1 := p5_a11;
638     ddp_sidv_rec.attribute2 := p5_a12;
639     ddp_sidv_rec.attribute3 := p5_a13;
640     ddp_sidv_rec.attribute4 := p5_a14;
641     ddp_sidv_rec.attribute5 := p5_a15;
642     ddp_sidv_rec.attribute6 := p5_a16;
643     ddp_sidv_rec.attribute7 := p5_a17;
644     ddp_sidv_rec.attribute8 := p5_a18;
645     ddp_sidv_rec.attribute9 := p5_a19;
646     ddp_sidv_rec.attribute10 := p5_a20;
647     ddp_sidv_rec.attribute11 := p5_a21;
648     ddp_sidv_rec.attribute12 := p5_a22;
649     ddp_sidv_rec.attribute13 := p5_a23;
650     ddp_sidv_rec.attribute14 := p5_a24;
651     ddp_sidv_rec.attribute15 := p5_a25;
652     ddp_sidv_rec.created_by := rosetta_g_miss_num_map(p5_a26);
653     ddp_sidv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a27);
654     ddp_sidv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a28);
655     ddp_sidv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a29);
656     ddp_sidv_rec.last_update_login := rosetta_g_miss_num_map(p5_a30);
657 
658 
659     -- here's the delegated call to the old PL/SQL routine
660     okl_supp_invoice_dtls_pvt.update_sup_inv_dtls(p_api_version,
661       p_init_msg_list,
662       x_return_status,
663       x_msg_count,
664       x_msg_data,
665       ddp_sidv_rec,
666       ddx_sidv_rec);
667 
668     -- copy data back from the local variables to OUT or IN-OUT args, if any
669 
670 
671 
672 
673 
674 
675     p6_a0 := rosetta_g_miss_num_map(ddx_sidv_rec.id);
676     p6_a1 := rosetta_g_miss_num_map(ddx_sidv_rec.object_version_number);
677     p6_a2 := rosetta_g_miss_num_map(ddx_sidv_rec.cle_id);
678     p6_a3 := rosetta_g_miss_num_map(ddx_sidv_rec.fa_cle_id);
679     p6_a4 := ddx_sidv_rec.invoice_number;
680     p6_a5 := ddx_sidv_rec.date_invoiced;
681     p6_a6 := ddx_sidv_rec.date_due;
682     p6_a7 := rosetta_g_miss_num_map(ddx_sidv_rec.shipping_address_id1);
683     p6_a8 := ddx_sidv_rec.shipping_address_id2;
684     p6_a9 := ddx_sidv_rec.shipping_address_code;
685     p6_a10 := ddx_sidv_rec.attribute_category;
686     p6_a11 := ddx_sidv_rec.attribute1;
687     p6_a12 := ddx_sidv_rec.attribute2;
688     p6_a13 := ddx_sidv_rec.attribute3;
689     p6_a14 := ddx_sidv_rec.attribute4;
690     p6_a15 := ddx_sidv_rec.attribute5;
691     p6_a16 := ddx_sidv_rec.attribute6;
692     p6_a17 := ddx_sidv_rec.attribute7;
693     p6_a18 := ddx_sidv_rec.attribute8;
694     p6_a19 := ddx_sidv_rec.attribute9;
695     p6_a20 := ddx_sidv_rec.attribute10;
696     p6_a21 := ddx_sidv_rec.attribute11;
697     p6_a22 := ddx_sidv_rec.attribute12;
698     p6_a23 := ddx_sidv_rec.attribute13;
699     p6_a24 := ddx_sidv_rec.attribute14;
700     p6_a25 := ddx_sidv_rec.attribute15;
701     p6_a26 := rosetta_g_miss_num_map(ddx_sidv_rec.created_by);
702     p6_a27 := ddx_sidv_rec.creation_date;
703     p6_a28 := rosetta_g_miss_num_map(ddx_sidv_rec.last_updated_by);
704     p6_a29 := ddx_sidv_rec.last_update_date;
705     p6_a30 := rosetta_g_miss_num_map(ddx_sidv_rec.last_update_login);
706   end;
707 
708   procedure update_sup_inv_dtls(p_api_version  NUMBER
709     , p_init_msg_list  VARCHAR2
710     , x_return_status out nocopy  VARCHAR2
711     , x_msg_count out nocopy  NUMBER
712     , x_msg_data out nocopy  VARCHAR2
713     , p5_a0 JTF_NUMBER_TABLE
714     , p5_a1 JTF_NUMBER_TABLE
715     , p5_a2 JTF_NUMBER_TABLE
716     , p5_a3 JTF_NUMBER_TABLE
717     , p5_a4 JTF_VARCHAR2_TABLE_100
718     , p5_a5 JTF_DATE_TABLE
719     , p5_a6 JTF_DATE_TABLE
720     , p5_a7 JTF_NUMBER_TABLE
721     , p5_a8 JTF_VARCHAR2_TABLE_100
722     , p5_a9 JTF_VARCHAR2_TABLE_100
723     , p5_a10 JTF_VARCHAR2_TABLE_100
724     , p5_a11 JTF_VARCHAR2_TABLE_500
725     , p5_a12 JTF_VARCHAR2_TABLE_500
726     , p5_a13 JTF_VARCHAR2_TABLE_500
727     , p5_a14 JTF_VARCHAR2_TABLE_500
728     , p5_a15 JTF_VARCHAR2_TABLE_500
729     , p5_a16 JTF_VARCHAR2_TABLE_500
730     , p5_a17 JTF_VARCHAR2_TABLE_500
731     , p5_a18 JTF_VARCHAR2_TABLE_500
732     , p5_a19 JTF_VARCHAR2_TABLE_500
733     , p5_a20 JTF_VARCHAR2_TABLE_500
734     , p5_a21 JTF_VARCHAR2_TABLE_500
735     , p5_a22 JTF_VARCHAR2_TABLE_500
736     , p5_a23 JTF_VARCHAR2_TABLE_500
737     , p5_a24 JTF_VARCHAR2_TABLE_500
738     , p5_a25 JTF_VARCHAR2_TABLE_500
739     , p5_a26 JTF_NUMBER_TABLE
740     , p5_a27 JTF_DATE_TABLE
741     , p5_a28 JTF_NUMBER_TABLE
742     , p5_a29 JTF_DATE_TABLE
743     , p5_a30 JTF_NUMBER_TABLE
744     , p6_a0 out nocopy JTF_NUMBER_TABLE
745     , p6_a1 out nocopy JTF_NUMBER_TABLE
746     , p6_a2 out nocopy JTF_NUMBER_TABLE
747     , p6_a3 out nocopy JTF_NUMBER_TABLE
748     , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
749     , p6_a5 out nocopy JTF_DATE_TABLE
750     , p6_a6 out nocopy JTF_DATE_TABLE
751     , p6_a7 out nocopy JTF_NUMBER_TABLE
752     , p6_a8 out nocopy JTF_VARCHAR2_TABLE_100
753     , p6_a9 out nocopy JTF_VARCHAR2_TABLE_100
754     , p6_a10 out nocopy JTF_VARCHAR2_TABLE_100
755     , p6_a11 out nocopy JTF_VARCHAR2_TABLE_500
756     , p6_a12 out nocopy JTF_VARCHAR2_TABLE_500
757     , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
758     , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
759     , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
760     , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
761     , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
762     , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
763     , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
764     , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
765     , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
766     , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
767     , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
768     , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
769     , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
770     , p6_a26 out nocopy JTF_NUMBER_TABLE
771     , p6_a27 out nocopy JTF_DATE_TABLE
772     , p6_a28 out nocopy JTF_NUMBER_TABLE
773     , p6_a29 out nocopy JTF_DATE_TABLE
774     , p6_a30 out nocopy JTF_NUMBER_TABLE
775   )
776 
777   as
778     ddp_sidv_tbl okl_supp_invoice_dtls_pvt.sidv_tbl_type;
779     ddx_sidv_tbl okl_supp_invoice_dtls_pvt.sidv_tbl_type;
780     ddindx binary_integer; indx binary_integer;
781   begin
782 
783     -- copy data to the local IN or IN-OUT args, if any
784 
785 
786 
787 
788 
789     okl_sid_pvt_w.rosetta_table_copy_in_p2(ddp_sidv_tbl, p5_a0
790       , p5_a1
791       , p5_a2
792       , p5_a3
793       , p5_a4
794       , p5_a5
795       , p5_a6
796       , p5_a7
797       , p5_a8
798       , p5_a9
799       , p5_a10
800       , p5_a11
801       , p5_a12
802       , p5_a13
803       , p5_a14
804       , p5_a15
805       , p5_a16
806       , p5_a17
807       , p5_a18
808       , p5_a19
809       , p5_a20
810       , p5_a21
811       , p5_a22
812       , p5_a23
813       , p5_a24
814       , p5_a25
815       , p5_a26
816       , p5_a27
817       , p5_a28
818       , p5_a29
819       , p5_a30
820       );
821 
822 
823     -- here's the delegated call to the old PL/SQL routine
824     okl_supp_invoice_dtls_pvt.update_sup_inv_dtls(p_api_version,
825       p_init_msg_list,
826       x_return_status,
827       x_msg_count,
828       x_msg_data,
829       ddp_sidv_tbl,
830       ddx_sidv_tbl);
831 
832     -- copy data back from the local variables to OUT or IN-OUT args, if any
833 
834 
835 
836 
837 
838 
839     okl_sid_pvt_w.rosetta_table_copy_out_p2(ddx_sidv_tbl, p6_a0
840       , p6_a1
841       , p6_a2
842       , p6_a3
843       , p6_a4
844       , p6_a5
845       , p6_a6
846       , p6_a7
847       , p6_a8
848       , p6_a9
849       , p6_a10
850       , p6_a11
851       , p6_a12
852       , p6_a13
853       , p6_a14
854       , p6_a15
855       , p6_a16
856       , p6_a17
857       , p6_a18
858       , p6_a19
859       , p6_a20
860       , p6_a21
861       , p6_a22
862       , p6_a23
863       , p6_a24
864       , p6_a25
865       , p6_a26
866       , p6_a27
867       , p6_a28
868       , p6_a29
869       , p6_a30
870       );
871   end;
872 
873   procedure delete_sup_inv_dtls(p_api_version  NUMBER
874     , p_init_msg_list  VARCHAR2
875     , x_return_status out nocopy  VARCHAR2
876     , x_msg_count out nocopy  NUMBER
877     , x_msg_data out nocopy  VARCHAR2
878     , p5_a0  NUMBER := 0-1962.0724
879     , p5_a1  NUMBER := 0-1962.0724
880     , p5_a2  NUMBER := 0-1962.0724
881     , p5_a3  NUMBER := 0-1962.0724
882     , p5_a4  VARCHAR2 := fnd_api.g_miss_char
883     , p5_a5  DATE := fnd_api.g_miss_date
884     , p5_a6  DATE := fnd_api.g_miss_date
885     , p5_a7  NUMBER := 0-1962.0724
886     , p5_a8  VARCHAR2 := fnd_api.g_miss_char
887     , p5_a9  VARCHAR2 := fnd_api.g_miss_char
888     , p5_a10  VARCHAR2 := fnd_api.g_miss_char
889     , p5_a11  VARCHAR2 := fnd_api.g_miss_char
890     , p5_a12  VARCHAR2 := fnd_api.g_miss_char
891     , p5_a13  VARCHAR2 := fnd_api.g_miss_char
892     , p5_a14  VARCHAR2 := fnd_api.g_miss_char
893     , p5_a15  VARCHAR2 := fnd_api.g_miss_char
894     , p5_a16  VARCHAR2 := fnd_api.g_miss_char
895     , p5_a17  VARCHAR2 := fnd_api.g_miss_char
896     , p5_a18  VARCHAR2 := fnd_api.g_miss_char
897     , p5_a19  VARCHAR2 := fnd_api.g_miss_char
898     , p5_a20  VARCHAR2 := fnd_api.g_miss_char
899     , p5_a21  VARCHAR2 := fnd_api.g_miss_char
900     , p5_a22  VARCHAR2 := fnd_api.g_miss_char
901     , p5_a23  VARCHAR2 := fnd_api.g_miss_char
902     , p5_a24  VARCHAR2 := fnd_api.g_miss_char
903     , p5_a25  VARCHAR2 := fnd_api.g_miss_char
904     , p5_a26  NUMBER := 0-1962.0724
905     , p5_a27  DATE := fnd_api.g_miss_date
906     , p5_a28  NUMBER := 0-1962.0724
907     , p5_a29  DATE := fnd_api.g_miss_date
908     , p5_a30  NUMBER := 0-1962.0724
909   )
910 
911   as
912     ddp_sidv_rec okl_supp_invoice_dtls_pvt.sidv_rec_type;
913     ddindx binary_integer; indx binary_integer;
914   begin
915 
916     -- copy data to the local IN or IN-OUT args, if any
917 
918 
919 
920 
921 
922     ddp_sidv_rec.id := rosetta_g_miss_num_map(p5_a0);
923     ddp_sidv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
924     ddp_sidv_rec.cle_id := rosetta_g_miss_num_map(p5_a2);
925     ddp_sidv_rec.fa_cle_id := rosetta_g_miss_num_map(p5_a3);
926     ddp_sidv_rec.invoice_number := p5_a4;
927     ddp_sidv_rec.date_invoiced := rosetta_g_miss_date_in_map(p5_a5);
928     ddp_sidv_rec.date_due := rosetta_g_miss_date_in_map(p5_a6);
929     ddp_sidv_rec.shipping_address_id1 := rosetta_g_miss_num_map(p5_a7);
930     ddp_sidv_rec.shipping_address_id2 := p5_a8;
931     ddp_sidv_rec.shipping_address_code := p5_a9;
932     ddp_sidv_rec.attribute_category := p5_a10;
933     ddp_sidv_rec.attribute1 := p5_a11;
934     ddp_sidv_rec.attribute2 := p5_a12;
935     ddp_sidv_rec.attribute3 := p5_a13;
936     ddp_sidv_rec.attribute4 := p5_a14;
937     ddp_sidv_rec.attribute5 := p5_a15;
938     ddp_sidv_rec.attribute6 := p5_a16;
939     ddp_sidv_rec.attribute7 := p5_a17;
940     ddp_sidv_rec.attribute8 := p5_a18;
941     ddp_sidv_rec.attribute9 := p5_a19;
942     ddp_sidv_rec.attribute10 := p5_a20;
943     ddp_sidv_rec.attribute11 := p5_a21;
944     ddp_sidv_rec.attribute12 := p5_a22;
945     ddp_sidv_rec.attribute13 := p5_a23;
946     ddp_sidv_rec.attribute14 := p5_a24;
947     ddp_sidv_rec.attribute15 := p5_a25;
948     ddp_sidv_rec.created_by := rosetta_g_miss_num_map(p5_a26);
949     ddp_sidv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a27);
950     ddp_sidv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a28);
951     ddp_sidv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a29);
952     ddp_sidv_rec.last_update_login := rosetta_g_miss_num_map(p5_a30);
953 
954     -- here's the delegated call to the old PL/SQL routine
955     okl_supp_invoice_dtls_pvt.delete_sup_inv_dtls(p_api_version,
956       p_init_msg_list,
957       x_return_status,
958       x_msg_count,
959       x_msg_data,
960       ddp_sidv_rec);
961 
962     -- copy data back from the local variables to OUT or IN-OUT args, if any
963 
964 
965 
966 
967 
968   end;
969 
970   procedure delete_sup_inv_dtls(p_api_version  NUMBER
971     , p_init_msg_list  VARCHAR2
972     , x_return_status out nocopy  VARCHAR2
973     , x_msg_count out nocopy  NUMBER
974     , x_msg_data out nocopy  VARCHAR2
975     , p5_a0 JTF_NUMBER_TABLE
976     , p5_a1 JTF_NUMBER_TABLE
977     , p5_a2 JTF_NUMBER_TABLE
978     , p5_a3 JTF_NUMBER_TABLE
979     , p5_a4 JTF_VARCHAR2_TABLE_100
980     , p5_a5 JTF_DATE_TABLE
981     , p5_a6 JTF_DATE_TABLE
982     , p5_a7 JTF_NUMBER_TABLE
983     , p5_a8 JTF_VARCHAR2_TABLE_100
984     , p5_a9 JTF_VARCHAR2_TABLE_100
985     , p5_a10 JTF_VARCHAR2_TABLE_100
986     , p5_a11 JTF_VARCHAR2_TABLE_500
987     , p5_a12 JTF_VARCHAR2_TABLE_500
988     , p5_a13 JTF_VARCHAR2_TABLE_500
989     , p5_a14 JTF_VARCHAR2_TABLE_500
990     , p5_a15 JTF_VARCHAR2_TABLE_500
991     , p5_a16 JTF_VARCHAR2_TABLE_500
992     , p5_a17 JTF_VARCHAR2_TABLE_500
993     , p5_a18 JTF_VARCHAR2_TABLE_500
994     , p5_a19 JTF_VARCHAR2_TABLE_500
995     , p5_a20 JTF_VARCHAR2_TABLE_500
996     , p5_a21 JTF_VARCHAR2_TABLE_500
997     , p5_a22 JTF_VARCHAR2_TABLE_500
998     , p5_a23 JTF_VARCHAR2_TABLE_500
999     , p5_a24 JTF_VARCHAR2_TABLE_500
1000     , p5_a25 JTF_VARCHAR2_TABLE_500
1001     , p5_a26 JTF_NUMBER_TABLE
1002     , p5_a27 JTF_DATE_TABLE
1003     , p5_a28 JTF_NUMBER_TABLE
1004     , p5_a29 JTF_DATE_TABLE
1005     , p5_a30 JTF_NUMBER_TABLE
1006   )
1007 
1008   as
1009     ddp_sidv_tbl okl_supp_invoice_dtls_pvt.sidv_tbl_type;
1010     ddindx binary_integer; indx binary_integer;
1011   begin
1012 
1013     -- copy data to the local IN or IN-OUT args, if any
1014 
1015 
1016 
1017 
1018 
1019     okl_sid_pvt_w.rosetta_table_copy_in_p2(ddp_sidv_tbl, p5_a0
1020       , p5_a1
1021       , p5_a2
1022       , p5_a3
1023       , p5_a4
1024       , p5_a5
1025       , p5_a6
1026       , p5_a7
1027       , p5_a8
1028       , p5_a9
1029       , p5_a10
1030       , p5_a11
1031       , p5_a12
1032       , p5_a13
1033       , p5_a14
1034       , p5_a15
1035       , p5_a16
1036       , p5_a17
1037       , p5_a18
1038       , p5_a19
1039       , p5_a20
1040       , p5_a21
1041       , p5_a22
1042       , p5_a23
1043       , p5_a24
1044       , p5_a25
1045       , p5_a26
1046       , p5_a27
1047       , p5_a28
1048       , p5_a29
1049       , p5_a30
1050       );
1051 
1052     -- here's the delegated call to the old PL/SQL routine
1053     okl_supp_invoice_dtls_pvt.delete_sup_inv_dtls(p_api_version,
1054       p_init_msg_list,
1055       x_return_status,
1056       x_msg_count,
1057       x_msg_data,
1058       ddp_sidv_tbl);
1059 
1060     -- copy data back from the local variables to OUT or IN-OUT args, if any
1061 
1062 
1063 
1064 
1065 
1066   end;
1067 
1068   procedure validate_sup_inv_dtls(p_api_version  NUMBER
1069     , p_init_msg_list  VARCHAR2
1070     , x_return_status out nocopy  VARCHAR2
1071     , x_msg_count out nocopy  NUMBER
1072     , x_msg_data out nocopy  VARCHAR2
1073     , p5_a0  NUMBER := 0-1962.0724
1074     , p5_a1  NUMBER := 0-1962.0724
1075     , p5_a2  NUMBER := 0-1962.0724
1076     , p5_a3  NUMBER := 0-1962.0724
1077     , p5_a4  VARCHAR2 := fnd_api.g_miss_char
1078     , p5_a5  DATE := fnd_api.g_miss_date
1079     , p5_a6  DATE := fnd_api.g_miss_date
1080     , p5_a7  NUMBER := 0-1962.0724
1081     , p5_a8  VARCHAR2 := fnd_api.g_miss_char
1082     , p5_a9  VARCHAR2 := fnd_api.g_miss_char
1083     , p5_a10  VARCHAR2 := fnd_api.g_miss_char
1084     , p5_a11  VARCHAR2 := fnd_api.g_miss_char
1085     , p5_a12  VARCHAR2 := fnd_api.g_miss_char
1086     , p5_a13  VARCHAR2 := fnd_api.g_miss_char
1087     , p5_a14  VARCHAR2 := fnd_api.g_miss_char
1088     , p5_a15  VARCHAR2 := fnd_api.g_miss_char
1089     , p5_a16  VARCHAR2 := fnd_api.g_miss_char
1090     , p5_a17  VARCHAR2 := fnd_api.g_miss_char
1091     , p5_a18  VARCHAR2 := fnd_api.g_miss_char
1092     , p5_a19  VARCHAR2 := fnd_api.g_miss_char
1093     , p5_a20  VARCHAR2 := fnd_api.g_miss_char
1094     , p5_a21  VARCHAR2 := fnd_api.g_miss_char
1095     , p5_a22  VARCHAR2 := fnd_api.g_miss_char
1096     , p5_a23  VARCHAR2 := fnd_api.g_miss_char
1097     , p5_a24  VARCHAR2 := fnd_api.g_miss_char
1098     , p5_a25  VARCHAR2 := fnd_api.g_miss_char
1099     , p5_a26  NUMBER := 0-1962.0724
1100     , p5_a27  DATE := fnd_api.g_miss_date
1101     , p5_a28  NUMBER := 0-1962.0724
1102     , p5_a29  DATE := fnd_api.g_miss_date
1103     , p5_a30  NUMBER := 0-1962.0724
1104   )
1105 
1106   as
1107     ddp_sidv_rec okl_supp_invoice_dtls_pvt.sidv_rec_type;
1108     ddindx binary_integer; indx binary_integer;
1109   begin
1110 
1111     -- copy data to the local IN or IN-OUT args, if any
1112 
1113 
1114 
1115 
1116 
1117     ddp_sidv_rec.id := rosetta_g_miss_num_map(p5_a0);
1118     ddp_sidv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
1119     ddp_sidv_rec.cle_id := rosetta_g_miss_num_map(p5_a2);
1120     ddp_sidv_rec.fa_cle_id := rosetta_g_miss_num_map(p5_a3);
1121     ddp_sidv_rec.invoice_number := p5_a4;
1122     ddp_sidv_rec.date_invoiced := rosetta_g_miss_date_in_map(p5_a5);
1123     ddp_sidv_rec.date_due := rosetta_g_miss_date_in_map(p5_a6);
1124     ddp_sidv_rec.shipping_address_id1 := rosetta_g_miss_num_map(p5_a7);
1125     ddp_sidv_rec.shipping_address_id2 := p5_a8;
1126     ddp_sidv_rec.shipping_address_code := p5_a9;
1127     ddp_sidv_rec.attribute_category := p5_a10;
1128     ddp_sidv_rec.attribute1 := p5_a11;
1129     ddp_sidv_rec.attribute2 := p5_a12;
1130     ddp_sidv_rec.attribute3 := p5_a13;
1131     ddp_sidv_rec.attribute4 := p5_a14;
1132     ddp_sidv_rec.attribute5 := p5_a15;
1133     ddp_sidv_rec.attribute6 := p5_a16;
1134     ddp_sidv_rec.attribute7 := p5_a17;
1135     ddp_sidv_rec.attribute8 := p5_a18;
1136     ddp_sidv_rec.attribute9 := p5_a19;
1137     ddp_sidv_rec.attribute10 := p5_a20;
1138     ddp_sidv_rec.attribute11 := p5_a21;
1139     ddp_sidv_rec.attribute12 := p5_a22;
1140     ddp_sidv_rec.attribute13 := p5_a23;
1141     ddp_sidv_rec.attribute14 := p5_a24;
1142     ddp_sidv_rec.attribute15 := p5_a25;
1143     ddp_sidv_rec.created_by := rosetta_g_miss_num_map(p5_a26);
1144     ddp_sidv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a27);
1145     ddp_sidv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a28);
1146     ddp_sidv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a29);
1147     ddp_sidv_rec.last_update_login := rosetta_g_miss_num_map(p5_a30);
1148 
1149     -- here's the delegated call to the old PL/SQL routine
1150     okl_supp_invoice_dtls_pvt.validate_sup_inv_dtls(p_api_version,
1151       p_init_msg_list,
1152       x_return_status,
1153       x_msg_count,
1154       x_msg_data,
1155       ddp_sidv_rec);
1156 
1157     -- copy data back from the local variables to OUT or IN-OUT args, if any
1158 
1159 
1160 
1161 
1162 
1163   end;
1164 
1165   procedure validate_sup_inv_dtls(p_api_version  NUMBER
1166     , p_init_msg_list  VARCHAR2
1167     , x_return_status out nocopy  VARCHAR2
1168     , x_msg_count out nocopy  NUMBER
1169     , x_msg_data out nocopy  VARCHAR2
1170     , p5_a0 JTF_NUMBER_TABLE
1171     , p5_a1 JTF_NUMBER_TABLE
1172     , p5_a2 JTF_NUMBER_TABLE
1173     , p5_a3 JTF_NUMBER_TABLE
1174     , p5_a4 JTF_VARCHAR2_TABLE_100
1175     , p5_a5 JTF_DATE_TABLE
1176     , p5_a6 JTF_DATE_TABLE
1177     , p5_a7 JTF_NUMBER_TABLE
1178     , p5_a8 JTF_VARCHAR2_TABLE_100
1179     , p5_a9 JTF_VARCHAR2_TABLE_100
1180     , p5_a10 JTF_VARCHAR2_TABLE_100
1181     , p5_a11 JTF_VARCHAR2_TABLE_500
1182     , p5_a12 JTF_VARCHAR2_TABLE_500
1183     , p5_a13 JTF_VARCHAR2_TABLE_500
1184     , p5_a14 JTF_VARCHAR2_TABLE_500
1185     , p5_a15 JTF_VARCHAR2_TABLE_500
1186     , p5_a16 JTF_VARCHAR2_TABLE_500
1187     , p5_a17 JTF_VARCHAR2_TABLE_500
1188     , p5_a18 JTF_VARCHAR2_TABLE_500
1189     , p5_a19 JTF_VARCHAR2_TABLE_500
1190     , p5_a20 JTF_VARCHAR2_TABLE_500
1191     , p5_a21 JTF_VARCHAR2_TABLE_500
1192     , p5_a22 JTF_VARCHAR2_TABLE_500
1193     , p5_a23 JTF_VARCHAR2_TABLE_500
1194     , p5_a24 JTF_VARCHAR2_TABLE_500
1195     , p5_a25 JTF_VARCHAR2_TABLE_500
1196     , p5_a26 JTF_NUMBER_TABLE
1197     , p5_a27 JTF_DATE_TABLE
1198     , p5_a28 JTF_NUMBER_TABLE
1199     , p5_a29 JTF_DATE_TABLE
1200     , p5_a30 JTF_NUMBER_TABLE
1201   )
1202 
1203   as
1204     ddp_sidv_tbl okl_supp_invoice_dtls_pvt.sidv_tbl_type;
1205     ddindx binary_integer; indx binary_integer;
1206   begin
1207 
1208     -- copy data to the local IN or IN-OUT args, if any
1209 
1210 
1211 
1212 
1213 
1214     okl_sid_pvt_w.rosetta_table_copy_in_p2(ddp_sidv_tbl, p5_a0
1215       , p5_a1
1216       , p5_a2
1217       , p5_a3
1218       , p5_a4
1219       , p5_a5
1220       , p5_a6
1221       , p5_a7
1222       , p5_a8
1223       , p5_a9
1224       , p5_a10
1225       , p5_a11
1226       , p5_a12
1227       , p5_a13
1228       , p5_a14
1229       , p5_a15
1230       , p5_a16
1231       , p5_a17
1232       , p5_a18
1233       , p5_a19
1234       , p5_a20
1235       , p5_a21
1236       , p5_a22
1237       , p5_a23
1238       , p5_a24
1239       , p5_a25
1240       , p5_a26
1241       , p5_a27
1242       , p5_a28
1243       , p5_a29
1244       , p5_a30
1245       );
1246 
1247     -- here's the delegated call to the old PL/SQL routine
1248     okl_supp_invoice_dtls_pvt.validate_sup_inv_dtls(p_api_version,
1249       p_init_msg_list,
1250       x_return_status,
1251       x_msg_count,
1252       x_msg_data,
1253       ddp_sidv_tbl);
1254 
1255     -- copy data back from the local variables to OUT or IN-OUT args, if any
1256 
1257 
1258 
1259 
1260 
1261   end;
1262 
1263 end okl_supp_invoice_dtls_pvt_w;