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