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