[Home] [Help]
PACKAGE BODY: APPS.OKL_SUPP_INVOICE_DTLS_PUB_W
Source
1 package body okl_supp_invoice_dtls_pub_w as
2 /* $Header: OKLUSIDB.pls 120.1 2005/07/19 09:47:39 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_pub.sidv_rec_type;
93 ddx_sidv_rec okl_supp_invoice_dtls_pub.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_pub.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_pub.sidv_tbl_type;
256 ddx_sidv_tbl okl_supp_invoice_dtls_pub.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_pub.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 update_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 , p6_a0 out nocopy NUMBER
356 , p6_a1 out nocopy NUMBER
357 , p6_a2 out nocopy NUMBER
358 , p6_a3 out nocopy NUMBER
359 , p6_a4 out nocopy VARCHAR2
360 , p6_a5 out nocopy DATE
361 , p6_a6 out nocopy DATE
362 , p6_a7 out nocopy NUMBER
363 , p6_a8 out nocopy VARCHAR2
364 , p6_a9 out nocopy VARCHAR2
365 , p6_a10 out nocopy VARCHAR2
366 , p6_a11 out nocopy VARCHAR2
367 , p6_a12 out nocopy VARCHAR2
368 , p6_a13 out nocopy VARCHAR2
369 , p6_a14 out nocopy VARCHAR2
370 , p6_a15 out nocopy VARCHAR2
371 , p6_a16 out nocopy VARCHAR2
372 , p6_a17 out nocopy VARCHAR2
373 , p6_a18 out nocopy VARCHAR2
374 , p6_a19 out nocopy VARCHAR2
375 , p6_a20 out nocopy VARCHAR2
376 , p6_a21 out nocopy VARCHAR2
377 , p6_a22 out nocopy VARCHAR2
378 , p6_a23 out nocopy VARCHAR2
379 , p6_a24 out nocopy VARCHAR2
380 , p6_a25 out nocopy VARCHAR2
381 , p6_a26 out nocopy NUMBER
382 , p6_a27 out nocopy DATE
383 , p6_a28 out nocopy NUMBER
384 , p6_a29 out nocopy DATE
385 , p6_a30 out nocopy NUMBER
386 , p5_a0 NUMBER := 0-1962.0724
387 , p5_a1 NUMBER := 0-1962.0724
388 , p5_a2 NUMBER := 0-1962.0724
389 , p5_a3 NUMBER := 0-1962.0724
390 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
391 , p5_a5 DATE := fnd_api.g_miss_date
392 , p5_a6 DATE := fnd_api.g_miss_date
393 , p5_a7 NUMBER := 0-1962.0724
394 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
395 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
396 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
397 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
398 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
399 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
400 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
401 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
402 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
403 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
404 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
405 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
406 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
407 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
408 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
409 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
410 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
411 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
412 , p5_a26 NUMBER := 0-1962.0724
413 , p5_a27 DATE := fnd_api.g_miss_date
414 , p5_a28 NUMBER := 0-1962.0724
415 , p5_a29 DATE := fnd_api.g_miss_date
416 , p5_a30 NUMBER := 0-1962.0724
417 )
418
419 as
420 ddp_sidv_rec okl_supp_invoice_dtls_pub.sidv_rec_type;
421 ddx_sidv_rec okl_supp_invoice_dtls_pub.sidv_rec_type;
422 ddindx binary_integer; indx binary_integer;
423 begin
424
425 -- copy data to the local IN or IN-OUT args, if any
426
427
428
429
430
431 ddp_sidv_rec.id := rosetta_g_miss_num_map(p5_a0);
432 ddp_sidv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
433 ddp_sidv_rec.cle_id := rosetta_g_miss_num_map(p5_a2);
434 ddp_sidv_rec.fa_cle_id := rosetta_g_miss_num_map(p5_a3);
435 ddp_sidv_rec.invoice_number := p5_a4;
436 ddp_sidv_rec.date_invoiced := rosetta_g_miss_date_in_map(p5_a5);
437 ddp_sidv_rec.date_due := rosetta_g_miss_date_in_map(p5_a6);
438 ddp_sidv_rec.shipping_address_id1 := rosetta_g_miss_num_map(p5_a7);
439 ddp_sidv_rec.shipping_address_id2 := p5_a8;
440 ddp_sidv_rec.shipping_address_code := p5_a9;
441 ddp_sidv_rec.attribute_category := p5_a10;
442 ddp_sidv_rec.attribute1 := p5_a11;
443 ddp_sidv_rec.attribute2 := p5_a12;
444 ddp_sidv_rec.attribute3 := p5_a13;
445 ddp_sidv_rec.attribute4 := p5_a14;
446 ddp_sidv_rec.attribute5 := p5_a15;
447 ddp_sidv_rec.attribute6 := p5_a16;
448 ddp_sidv_rec.attribute7 := p5_a17;
449 ddp_sidv_rec.attribute8 := p5_a18;
450 ddp_sidv_rec.attribute9 := p5_a19;
451 ddp_sidv_rec.attribute10 := p5_a20;
452 ddp_sidv_rec.attribute11 := p5_a21;
453 ddp_sidv_rec.attribute12 := p5_a22;
454 ddp_sidv_rec.attribute13 := p5_a23;
455 ddp_sidv_rec.attribute14 := p5_a24;
456 ddp_sidv_rec.attribute15 := p5_a25;
457 ddp_sidv_rec.created_by := rosetta_g_miss_num_map(p5_a26);
458 ddp_sidv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a27);
459 ddp_sidv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a28);
460 ddp_sidv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a29);
461 ddp_sidv_rec.last_update_login := rosetta_g_miss_num_map(p5_a30);
462
463
464 -- here's the delegated call to the old PL/SQL routine
465 okl_supp_invoice_dtls_pub.update_sup_inv_dtls(p_api_version,
466 p_init_msg_list,
467 x_return_status,
468 x_msg_count,
469 x_msg_data,
470 ddp_sidv_rec,
471 ddx_sidv_rec);
472
473 -- copy data back from the local variables to OUT or IN-OUT args, if any
474
475
476
477
478
479
480 p6_a0 := rosetta_g_miss_num_map(ddx_sidv_rec.id);
481 p6_a1 := rosetta_g_miss_num_map(ddx_sidv_rec.object_version_number);
482 p6_a2 := rosetta_g_miss_num_map(ddx_sidv_rec.cle_id);
483 p6_a3 := rosetta_g_miss_num_map(ddx_sidv_rec.fa_cle_id);
484 p6_a4 := ddx_sidv_rec.invoice_number;
485 p6_a5 := ddx_sidv_rec.date_invoiced;
486 p6_a6 := ddx_sidv_rec.date_due;
487 p6_a7 := rosetta_g_miss_num_map(ddx_sidv_rec.shipping_address_id1);
488 p6_a8 := ddx_sidv_rec.shipping_address_id2;
489 p6_a9 := ddx_sidv_rec.shipping_address_code;
490 p6_a10 := ddx_sidv_rec.attribute_category;
491 p6_a11 := ddx_sidv_rec.attribute1;
492 p6_a12 := ddx_sidv_rec.attribute2;
493 p6_a13 := ddx_sidv_rec.attribute3;
494 p6_a14 := ddx_sidv_rec.attribute4;
495 p6_a15 := ddx_sidv_rec.attribute5;
496 p6_a16 := ddx_sidv_rec.attribute6;
497 p6_a17 := ddx_sidv_rec.attribute7;
498 p6_a18 := ddx_sidv_rec.attribute8;
499 p6_a19 := ddx_sidv_rec.attribute9;
500 p6_a20 := ddx_sidv_rec.attribute10;
501 p6_a21 := ddx_sidv_rec.attribute11;
502 p6_a22 := ddx_sidv_rec.attribute12;
503 p6_a23 := ddx_sidv_rec.attribute13;
504 p6_a24 := ddx_sidv_rec.attribute14;
505 p6_a25 := ddx_sidv_rec.attribute15;
506 p6_a26 := rosetta_g_miss_num_map(ddx_sidv_rec.created_by);
507 p6_a27 := ddx_sidv_rec.creation_date;
508 p6_a28 := rosetta_g_miss_num_map(ddx_sidv_rec.last_updated_by);
509 p6_a29 := ddx_sidv_rec.last_update_date;
510 p6_a30 := rosetta_g_miss_num_map(ddx_sidv_rec.last_update_login);
511 end;
512
513 procedure update_sup_inv_dtls(p_api_version NUMBER
514 , p_init_msg_list VARCHAR2
515 , x_return_status out nocopy VARCHAR2
516 , x_msg_count out nocopy NUMBER
517 , x_msg_data out nocopy VARCHAR2
518 , p5_a0 JTF_NUMBER_TABLE
519 , p5_a1 JTF_NUMBER_TABLE
520 , p5_a2 JTF_NUMBER_TABLE
521 , p5_a3 JTF_NUMBER_TABLE
522 , p5_a4 JTF_VARCHAR2_TABLE_100
523 , p5_a5 JTF_DATE_TABLE
524 , p5_a6 JTF_DATE_TABLE
525 , p5_a7 JTF_NUMBER_TABLE
526 , p5_a8 JTF_VARCHAR2_TABLE_100
527 , p5_a9 JTF_VARCHAR2_TABLE_100
528 , p5_a10 JTF_VARCHAR2_TABLE_100
529 , p5_a11 JTF_VARCHAR2_TABLE_500
530 , p5_a12 JTF_VARCHAR2_TABLE_500
531 , p5_a13 JTF_VARCHAR2_TABLE_500
532 , p5_a14 JTF_VARCHAR2_TABLE_500
533 , p5_a15 JTF_VARCHAR2_TABLE_500
534 , p5_a16 JTF_VARCHAR2_TABLE_500
535 , p5_a17 JTF_VARCHAR2_TABLE_500
536 , p5_a18 JTF_VARCHAR2_TABLE_500
537 , p5_a19 JTF_VARCHAR2_TABLE_500
538 , p5_a20 JTF_VARCHAR2_TABLE_500
539 , p5_a21 JTF_VARCHAR2_TABLE_500
540 , p5_a22 JTF_VARCHAR2_TABLE_500
541 , p5_a23 JTF_VARCHAR2_TABLE_500
542 , p5_a24 JTF_VARCHAR2_TABLE_500
543 , p5_a25 JTF_VARCHAR2_TABLE_500
544 , p5_a26 JTF_NUMBER_TABLE
545 , p5_a27 JTF_DATE_TABLE
546 , p5_a28 JTF_NUMBER_TABLE
547 , p5_a29 JTF_DATE_TABLE
548 , p5_a30 JTF_NUMBER_TABLE
549 , p6_a0 out nocopy JTF_NUMBER_TABLE
550 , p6_a1 out nocopy JTF_NUMBER_TABLE
551 , p6_a2 out nocopy JTF_NUMBER_TABLE
552 , p6_a3 out nocopy JTF_NUMBER_TABLE
553 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
554 , p6_a5 out nocopy JTF_DATE_TABLE
555 , p6_a6 out nocopy JTF_DATE_TABLE
556 , p6_a7 out nocopy JTF_NUMBER_TABLE
557 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_100
558 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_100
559 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_100
560 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_500
561 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_500
562 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
563 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
564 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
565 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
566 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
567 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
568 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
569 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
570 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
571 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
572 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
573 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
574 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
575 , p6_a26 out nocopy JTF_NUMBER_TABLE
576 , p6_a27 out nocopy JTF_DATE_TABLE
577 , p6_a28 out nocopy JTF_NUMBER_TABLE
578 , p6_a29 out nocopy JTF_DATE_TABLE
579 , p6_a30 out nocopy JTF_NUMBER_TABLE
580 )
581
582 as
583 ddp_sidv_tbl okl_supp_invoice_dtls_pub.sidv_tbl_type;
584 ddx_sidv_tbl okl_supp_invoice_dtls_pub.sidv_tbl_type;
585 ddindx binary_integer; indx binary_integer;
586 begin
587
588 -- copy data to the local IN or IN-OUT args, if any
589
590
591
592
593
594 okl_sid_pvt_w.rosetta_table_copy_in_p2(ddp_sidv_tbl, p5_a0
595 , p5_a1
596 , p5_a2
597 , p5_a3
598 , p5_a4
599 , p5_a5
600 , p5_a6
601 , p5_a7
602 , p5_a8
603 , p5_a9
604 , p5_a10
605 , p5_a11
606 , p5_a12
607 , p5_a13
608 , p5_a14
609 , p5_a15
610 , p5_a16
611 , p5_a17
612 , p5_a18
613 , p5_a19
614 , p5_a20
615 , p5_a21
616 , p5_a22
617 , p5_a23
618 , p5_a24
619 , p5_a25
620 , p5_a26
621 , p5_a27
622 , p5_a28
623 , p5_a29
624 , p5_a30
625 );
626
627
628 -- here's the delegated call to the old PL/SQL routine
629 okl_supp_invoice_dtls_pub.update_sup_inv_dtls(p_api_version,
630 p_init_msg_list,
631 x_return_status,
632 x_msg_count,
633 x_msg_data,
634 ddp_sidv_tbl,
635 ddx_sidv_tbl);
636
637 -- copy data back from the local variables to OUT or IN-OUT args, if any
638
639
640
641
642
643
644 okl_sid_pvt_w.rosetta_table_copy_out_p2(ddx_sidv_tbl, p6_a0
645 , p6_a1
646 , p6_a2
647 , p6_a3
648 , p6_a4
649 , p6_a5
650 , p6_a6
651 , p6_a7
652 , p6_a8
653 , p6_a9
654 , p6_a10
655 , p6_a11
656 , p6_a12
657 , p6_a13
658 , p6_a14
659 , p6_a15
660 , p6_a16
661 , p6_a17
662 , p6_a18
663 , p6_a19
664 , p6_a20
665 , p6_a21
666 , p6_a22
667 , p6_a23
668 , p6_a24
669 , p6_a25
670 , p6_a26
671 , p6_a27
672 , p6_a28
673 , p6_a29
674 , p6_a30
675 );
676 end;
677
678 procedure delete_sup_inv_dtls(p_api_version NUMBER
679 , p_init_msg_list VARCHAR2
680 , x_return_status out nocopy VARCHAR2
681 , x_msg_count out nocopy NUMBER
682 , x_msg_data out nocopy VARCHAR2
683 , p5_a0 NUMBER := 0-1962.0724
684 , p5_a1 NUMBER := 0-1962.0724
685 , p5_a2 NUMBER := 0-1962.0724
686 , p5_a3 NUMBER := 0-1962.0724
687 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
688 , p5_a5 DATE := fnd_api.g_miss_date
689 , p5_a6 DATE := fnd_api.g_miss_date
690 , p5_a7 NUMBER := 0-1962.0724
691 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
692 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
693 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
694 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
695 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
696 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
697 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
698 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
699 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
700 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
701 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
702 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
703 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
704 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
705 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
706 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
707 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
708 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
709 , p5_a26 NUMBER := 0-1962.0724
710 , p5_a27 DATE := fnd_api.g_miss_date
711 , p5_a28 NUMBER := 0-1962.0724
712 , p5_a29 DATE := fnd_api.g_miss_date
713 , p5_a30 NUMBER := 0-1962.0724
714 )
715
716 as
717 ddp_sidv_rec okl_supp_invoice_dtls_pub.sidv_rec_type;
718 ddindx binary_integer; indx binary_integer;
719 begin
720
721 -- copy data to the local IN or IN-OUT args, if any
722
723
724
725
726
727 ddp_sidv_rec.id := rosetta_g_miss_num_map(p5_a0);
728 ddp_sidv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
729 ddp_sidv_rec.cle_id := rosetta_g_miss_num_map(p5_a2);
730 ddp_sidv_rec.fa_cle_id := rosetta_g_miss_num_map(p5_a3);
731 ddp_sidv_rec.invoice_number := p5_a4;
732 ddp_sidv_rec.date_invoiced := rosetta_g_miss_date_in_map(p5_a5);
733 ddp_sidv_rec.date_due := rosetta_g_miss_date_in_map(p5_a6);
734 ddp_sidv_rec.shipping_address_id1 := rosetta_g_miss_num_map(p5_a7);
735 ddp_sidv_rec.shipping_address_id2 := p5_a8;
736 ddp_sidv_rec.shipping_address_code := p5_a9;
737 ddp_sidv_rec.attribute_category := p5_a10;
738 ddp_sidv_rec.attribute1 := p5_a11;
739 ddp_sidv_rec.attribute2 := p5_a12;
740 ddp_sidv_rec.attribute3 := p5_a13;
741 ddp_sidv_rec.attribute4 := p5_a14;
742 ddp_sidv_rec.attribute5 := p5_a15;
743 ddp_sidv_rec.attribute6 := p5_a16;
744 ddp_sidv_rec.attribute7 := p5_a17;
745 ddp_sidv_rec.attribute8 := p5_a18;
746 ddp_sidv_rec.attribute9 := p5_a19;
747 ddp_sidv_rec.attribute10 := p5_a20;
748 ddp_sidv_rec.attribute11 := p5_a21;
749 ddp_sidv_rec.attribute12 := p5_a22;
750 ddp_sidv_rec.attribute13 := p5_a23;
751 ddp_sidv_rec.attribute14 := p5_a24;
752 ddp_sidv_rec.attribute15 := p5_a25;
753 ddp_sidv_rec.created_by := rosetta_g_miss_num_map(p5_a26);
754 ddp_sidv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a27);
755 ddp_sidv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a28);
756 ddp_sidv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a29);
757 ddp_sidv_rec.last_update_login := rosetta_g_miss_num_map(p5_a30);
758
759 -- here's the delegated call to the old PL/SQL routine
760 okl_supp_invoice_dtls_pub.delete_sup_inv_dtls(p_api_version,
761 p_init_msg_list,
762 x_return_status,
763 x_msg_count,
764 x_msg_data,
765 ddp_sidv_rec);
766
767 -- copy data back from the local variables to OUT or IN-OUT args, if any
768
769
770
771
772
773 end;
774
775 procedure delete_sup_inv_dtls(p_api_version NUMBER
776 , p_init_msg_list VARCHAR2
777 , x_return_status out nocopy VARCHAR2
778 , x_msg_count out nocopy NUMBER
779 , x_msg_data out nocopy VARCHAR2
780 , p5_a0 JTF_NUMBER_TABLE
781 , p5_a1 JTF_NUMBER_TABLE
782 , p5_a2 JTF_NUMBER_TABLE
783 , p5_a3 JTF_NUMBER_TABLE
784 , p5_a4 JTF_VARCHAR2_TABLE_100
785 , p5_a5 JTF_DATE_TABLE
786 , p5_a6 JTF_DATE_TABLE
787 , p5_a7 JTF_NUMBER_TABLE
788 , p5_a8 JTF_VARCHAR2_TABLE_100
789 , p5_a9 JTF_VARCHAR2_TABLE_100
790 , p5_a10 JTF_VARCHAR2_TABLE_100
791 , p5_a11 JTF_VARCHAR2_TABLE_500
792 , p5_a12 JTF_VARCHAR2_TABLE_500
793 , p5_a13 JTF_VARCHAR2_TABLE_500
794 , p5_a14 JTF_VARCHAR2_TABLE_500
795 , p5_a15 JTF_VARCHAR2_TABLE_500
796 , p5_a16 JTF_VARCHAR2_TABLE_500
797 , p5_a17 JTF_VARCHAR2_TABLE_500
798 , p5_a18 JTF_VARCHAR2_TABLE_500
799 , p5_a19 JTF_VARCHAR2_TABLE_500
800 , p5_a20 JTF_VARCHAR2_TABLE_500
801 , p5_a21 JTF_VARCHAR2_TABLE_500
802 , p5_a22 JTF_VARCHAR2_TABLE_500
803 , p5_a23 JTF_VARCHAR2_TABLE_500
804 , p5_a24 JTF_VARCHAR2_TABLE_500
805 , p5_a25 JTF_VARCHAR2_TABLE_500
806 , p5_a26 JTF_NUMBER_TABLE
807 , p5_a27 JTF_DATE_TABLE
808 , p5_a28 JTF_NUMBER_TABLE
809 , p5_a29 JTF_DATE_TABLE
810 , p5_a30 JTF_NUMBER_TABLE
811 )
812
813 as
814 ddp_sidv_tbl okl_supp_invoice_dtls_pub.sidv_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 okl_sid_pvt_w.rosetta_table_copy_in_p2(ddp_sidv_tbl, p5_a0
825 , p5_a1
826 , p5_a2
827 , p5_a3
828 , p5_a4
829 , p5_a5
830 , p5_a6
831 , p5_a7
832 , p5_a8
833 , p5_a9
834 , p5_a10
835 , p5_a11
836 , p5_a12
837 , p5_a13
838 , p5_a14
839 , p5_a15
840 , p5_a16
841 , p5_a17
842 , p5_a18
843 , p5_a19
844 , p5_a20
845 , p5_a21
846 , p5_a22
847 , p5_a23
848 , p5_a24
849 , p5_a25
850 , p5_a26
851 , p5_a27
852 , p5_a28
853 , p5_a29
854 , p5_a30
855 );
856
857 -- here's the delegated call to the old PL/SQL routine
858 okl_supp_invoice_dtls_pub.delete_sup_inv_dtls(p_api_version,
859 p_init_msg_list,
860 x_return_status,
861 x_msg_count,
862 x_msg_data,
863 ddp_sidv_tbl);
864
865 -- copy data back from the local variables to OUT or IN-OUT args, if any
866
867
868
869
870
871 end;
872
873 procedure lock_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_pub.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_pub.lock_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 lock_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_pub.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_pub.lock_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_pub.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_pub.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_pub.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_pub.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_pub_w;