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