[Home] [Help]
PACKAGE BODY: APPS.OKL_OPERANDS_PUB_W
Source
1 package body okl_operands_pub_w as
2 /* $Header: OKLUOPDB.pls 120.1 2005/07/18 10:30:36 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_operands(p_api_version NUMBER
23 , p_init_msg_list VARCHAR2
24 , x_return_status out nocopy VARCHAR2
25 , x_msg_count out nocopy NUMBER
26 , x_msg_data out nocopy VARCHAR2
27 , p6_a0 out nocopy NUMBER
28 , p6_a1 out nocopy NUMBER
29 , p6_a2 out nocopy VARCHAR2
30 , p6_a3 out nocopy NUMBER
31 , p6_a4 out nocopy NUMBER
32 , p6_a5 out nocopy VARCHAR2
33 , p6_a6 out nocopy VARCHAR2
34 , p6_a7 out nocopy VARCHAR2
35 , p6_a8 out nocopy DATE
36 , p6_a9 out nocopy DATE
37 , p6_a10 out nocopy VARCHAR2
38 , p6_a11 out nocopy VARCHAR2
39 , p6_a12 out nocopy NUMBER
40 , p6_a13 out nocopy NUMBER
41 , p6_a14 out nocopy DATE
42 , p6_a15 out nocopy NUMBER
43 , p6_a16 out nocopy DATE
44 , p6_a17 out nocopy NUMBER
45 , p5_a0 NUMBER := 0-1962.0724
46 , p5_a1 NUMBER := 0-1962.0724
47 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
48 , p5_a3 NUMBER := 0-1962.0724
49 , p5_a4 NUMBER := 0-1962.0724
50 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
51 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
52 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
53 , p5_a8 DATE := fnd_api.g_miss_date
54 , p5_a9 DATE := fnd_api.g_miss_date
55 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
56 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
57 , p5_a12 NUMBER := 0-1962.0724
58 , p5_a13 NUMBER := 0-1962.0724
59 , p5_a14 DATE := fnd_api.g_miss_date
60 , p5_a15 NUMBER := 0-1962.0724
61 , p5_a16 DATE := fnd_api.g_miss_date
62 , p5_a17 NUMBER := 0-1962.0724
63 )
64
65 as
66 ddp_opdv_rec okl_operands_pub.opdv_rec_type;
67 ddx_opdv_rec okl_operands_pub.opdv_rec_type;
68 ddindx binary_integer; indx binary_integer;
69 begin
70
71 -- copy data to the local IN or IN-OUT args, if any
72
73
74
75
76
77 ddp_opdv_rec.id := rosetta_g_miss_num_map(p5_a0);
78 ddp_opdv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
79 ddp_opdv_rec.sfwt_flag := p5_a2;
80 ddp_opdv_rec.fma_id := rosetta_g_miss_num_map(p5_a3);
81 ddp_opdv_rec.dsf_id := rosetta_g_miss_num_map(p5_a4);
82 ddp_opdv_rec.name := p5_a5;
83 ddp_opdv_rec.description := p5_a6;
84 ddp_opdv_rec.version := p5_a7;
85 ddp_opdv_rec.start_date := rosetta_g_miss_date_in_map(p5_a8);
86 ddp_opdv_rec.end_date := rosetta_g_miss_date_in_map(p5_a9);
87 ddp_opdv_rec.source := p5_a10;
88 ddp_opdv_rec.opd_type := p5_a11;
89 ddp_opdv_rec.org_id := rosetta_g_miss_num_map(p5_a12);
90 ddp_opdv_rec.created_by := rosetta_g_miss_num_map(p5_a13);
91 ddp_opdv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a14);
92 ddp_opdv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a15);
93 ddp_opdv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a16);
94 ddp_opdv_rec.last_update_login := rosetta_g_miss_num_map(p5_a17);
95
96
97 -- here's the delegated call to the old PL/SQL routine
98 okl_operands_pub.insert_operands(p_api_version,
99 p_init_msg_list,
100 x_return_status,
101 x_msg_count,
102 x_msg_data,
103 ddp_opdv_rec,
104 ddx_opdv_rec);
105
106 -- copy data back from the local variables to OUT or IN-OUT args, if any
107
108
109
110
111
112
113 p6_a0 := rosetta_g_miss_num_map(ddx_opdv_rec.id);
114 p6_a1 := rosetta_g_miss_num_map(ddx_opdv_rec.object_version_number);
115 p6_a2 := ddx_opdv_rec.sfwt_flag;
116 p6_a3 := rosetta_g_miss_num_map(ddx_opdv_rec.fma_id);
117 p6_a4 := rosetta_g_miss_num_map(ddx_opdv_rec.dsf_id);
118 p6_a5 := ddx_opdv_rec.name;
119 p6_a6 := ddx_opdv_rec.description;
120 p6_a7 := ddx_opdv_rec.version;
121 p6_a8 := ddx_opdv_rec.start_date;
122 p6_a9 := ddx_opdv_rec.end_date;
123 p6_a10 := ddx_opdv_rec.source;
124 p6_a11 := ddx_opdv_rec.opd_type;
125 p6_a12 := rosetta_g_miss_num_map(ddx_opdv_rec.org_id);
126 p6_a13 := rosetta_g_miss_num_map(ddx_opdv_rec.created_by);
127 p6_a14 := ddx_opdv_rec.creation_date;
128 p6_a15 := rosetta_g_miss_num_map(ddx_opdv_rec.last_updated_by);
129 p6_a16 := ddx_opdv_rec.last_update_date;
130 p6_a17 := rosetta_g_miss_num_map(ddx_opdv_rec.last_update_login);
131 end;
132
133 procedure insert_operands(p_api_version NUMBER
134 , p_init_msg_list VARCHAR2
135 , x_return_status out nocopy VARCHAR2
136 , x_msg_count out nocopy NUMBER
137 , x_msg_data out nocopy VARCHAR2
138 , p5_a0 JTF_NUMBER_TABLE
139 , p5_a1 JTF_NUMBER_TABLE
140 , p5_a2 JTF_VARCHAR2_TABLE_100
141 , p5_a3 JTF_NUMBER_TABLE
142 , p5_a4 JTF_NUMBER_TABLE
143 , p5_a5 JTF_VARCHAR2_TABLE_200
144 , p5_a6 JTF_VARCHAR2_TABLE_2000
145 , p5_a7 JTF_VARCHAR2_TABLE_100
146 , p5_a8 JTF_DATE_TABLE
147 , p5_a9 JTF_DATE_TABLE
148 , p5_a10 JTF_VARCHAR2_TABLE_200
149 , p5_a11 JTF_VARCHAR2_TABLE_100
150 , p5_a12 JTF_NUMBER_TABLE
151 , p5_a13 JTF_NUMBER_TABLE
152 , p5_a14 JTF_DATE_TABLE
153 , p5_a15 JTF_NUMBER_TABLE
154 , p5_a16 JTF_DATE_TABLE
155 , p5_a17 JTF_NUMBER_TABLE
156 , p6_a0 out nocopy JTF_NUMBER_TABLE
157 , p6_a1 out nocopy JTF_NUMBER_TABLE
158 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
159 , p6_a3 out nocopy JTF_NUMBER_TABLE
160 , p6_a4 out nocopy JTF_NUMBER_TABLE
161 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_200
162 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_2000
163 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_100
164 , p6_a8 out nocopy JTF_DATE_TABLE
165 , p6_a9 out nocopy JTF_DATE_TABLE
166 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_200
167 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_100
168 , p6_a12 out nocopy JTF_NUMBER_TABLE
169 , p6_a13 out nocopy JTF_NUMBER_TABLE
170 , p6_a14 out nocopy JTF_DATE_TABLE
171 , p6_a15 out nocopy JTF_NUMBER_TABLE
172 , p6_a16 out nocopy JTF_DATE_TABLE
173 , p6_a17 out nocopy JTF_NUMBER_TABLE
174 )
175
176 as
177 ddp_opdv_tbl okl_operands_pub.opdv_tbl_type;
178 ddx_opdv_tbl okl_operands_pub.opdv_tbl_type;
179 ddindx binary_integer; indx binary_integer;
180 begin
181
182 -- copy data to the local IN or IN-OUT args, if any
183
184
185
186
187
188 okl_opd_pvt_w.rosetta_table_copy_in_p8(ddp_opdv_tbl, p5_a0
189 , p5_a1
190 , p5_a2
191 , p5_a3
192 , p5_a4
193 , p5_a5
194 , p5_a6
195 , p5_a7
196 , p5_a8
197 , p5_a9
198 , p5_a10
199 , p5_a11
200 , p5_a12
201 , p5_a13
202 , p5_a14
203 , p5_a15
204 , p5_a16
205 , p5_a17
206 );
207
208
209 -- here's the delegated call to the old PL/SQL routine
210 okl_operands_pub.insert_operands(p_api_version,
211 p_init_msg_list,
212 x_return_status,
213 x_msg_count,
214 x_msg_data,
215 ddp_opdv_tbl,
216 ddx_opdv_tbl);
217
218 -- copy data back from the local variables to OUT or IN-OUT args, if any
219
220
221
222
223
224
225 okl_opd_pvt_w.rosetta_table_copy_out_p8(ddx_opdv_tbl, p6_a0
226 , p6_a1
227 , p6_a2
228 , p6_a3
229 , p6_a4
230 , p6_a5
231 , p6_a6
232 , p6_a7
233 , p6_a8
234 , p6_a9
235 , p6_a10
236 , p6_a11
237 , p6_a12
238 , p6_a13
239 , p6_a14
240 , p6_a15
241 , p6_a16
242 , p6_a17
243 );
244 end;
245
246 procedure lock_operands(p_api_version NUMBER
247 , p_init_msg_list VARCHAR2
248 , x_return_status out nocopy VARCHAR2
249 , x_msg_count out nocopy NUMBER
250 , x_msg_data out nocopy VARCHAR2
251 , p5_a0 NUMBER := 0-1962.0724
252 , p5_a1 NUMBER := 0-1962.0724
253 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
254 , p5_a3 NUMBER := 0-1962.0724
255 , p5_a4 NUMBER := 0-1962.0724
256 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
257 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
258 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
259 , p5_a8 DATE := fnd_api.g_miss_date
260 , p5_a9 DATE := fnd_api.g_miss_date
261 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
262 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
263 , p5_a12 NUMBER := 0-1962.0724
264 , p5_a13 NUMBER := 0-1962.0724
265 , p5_a14 DATE := fnd_api.g_miss_date
266 , p5_a15 NUMBER := 0-1962.0724
267 , p5_a16 DATE := fnd_api.g_miss_date
268 , p5_a17 NUMBER := 0-1962.0724
269 )
270
271 as
272 ddp_opdv_rec okl_operands_pub.opdv_rec_type;
273 ddindx binary_integer; indx binary_integer;
274 begin
275
276 -- copy data to the local IN or IN-OUT args, if any
277
278
279
280
281
282 ddp_opdv_rec.id := rosetta_g_miss_num_map(p5_a0);
283 ddp_opdv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
284 ddp_opdv_rec.sfwt_flag := p5_a2;
285 ddp_opdv_rec.fma_id := rosetta_g_miss_num_map(p5_a3);
286 ddp_opdv_rec.dsf_id := rosetta_g_miss_num_map(p5_a4);
287 ddp_opdv_rec.name := p5_a5;
288 ddp_opdv_rec.description := p5_a6;
289 ddp_opdv_rec.version := p5_a7;
290 ddp_opdv_rec.start_date := rosetta_g_miss_date_in_map(p5_a8);
291 ddp_opdv_rec.end_date := rosetta_g_miss_date_in_map(p5_a9);
292 ddp_opdv_rec.source := p5_a10;
293 ddp_opdv_rec.opd_type := p5_a11;
294 ddp_opdv_rec.org_id := rosetta_g_miss_num_map(p5_a12);
295 ddp_opdv_rec.created_by := rosetta_g_miss_num_map(p5_a13);
296 ddp_opdv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a14);
297 ddp_opdv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a15);
298 ddp_opdv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a16);
299 ddp_opdv_rec.last_update_login := rosetta_g_miss_num_map(p5_a17);
300
301 -- here's the delegated call to the old PL/SQL routine
302 okl_operands_pub.lock_operands(p_api_version,
303 p_init_msg_list,
304 x_return_status,
305 x_msg_count,
306 x_msg_data,
307 ddp_opdv_rec);
308
309 -- copy data back from the local variables to OUT or IN-OUT args, if any
310
311
312
313
314
315 end;
316
317 procedure lock_operands(p_api_version NUMBER
318 , p_init_msg_list VARCHAR2
319 , x_return_status out nocopy VARCHAR2
320 , x_msg_count out nocopy NUMBER
321 , x_msg_data out nocopy VARCHAR2
322 , p5_a0 JTF_NUMBER_TABLE
323 , p5_a1 JTF_NUMBER_TABLE
324 , p5_a2 JTF_VARCHAR2_TABLE_100
325 , p5_a3 JTF_NUMBER_TABLE
326 , p5_a4 JTF_NUMBER_TABLE
327 , p5_a5 JTF_VARCHAR2_TABLE_200
328 , p5_a6 JTF_VARCHAR2_TABLE_2000
329 , p5_a7 JTF_VARCHAR2_TABLE_100
330 , p5_a8 JTF_DATE_TABLE
331 , p5_a9 JTF_DATE_TABLE
332 , p5_a10 JTF_VARCHAR2_TABLE_200
333 , p5_a11 JTF_VARCHAR2_TABLE_100
334 , p5_a12 JTF_NUMBER_TABLE
335 , p5_a13 JTF_NUMBER_TABLE
336 , p5_a14 JTF_DATE_TABLE
337 , p5_a15 JTF_NUMBER_TABLE
338 , p5_a16 JTF_DATE_TABLE
339 , p5_a17 JTF_NUMBER_TABLE
340 )
341
342 as
343 ddp_opdv_tbl okl_operands_pub.opdv_tbl_type;
344 ddindx binary_integer; indx binary_integer;
345 begin
346
347 -- copy data to the local IN or IN-OUT args, if any
348
349
350
351
352
353 okl_opd_pvt_w.rosetta_table_copy_in_p8(ddp_opdv_tbl, p5_a0
354 , p5_a1
355 , p5_a2
356 , p5_a3
357 , p5_a4
358 , p5_a5
359 , p5_a6
360 , p5_a7
361 , p5_a8
362 , p5_a9
363 , p5_a10
364 , p5_a11
365 , p5_a12
366 , p5_a13
367 , p5_a14
368 , p5_a15
369 , p5_a16
370 , p5_a17
371 );
372
373 -- here's the delegated call to the old PL/SQL routine
374 okl_operands_pub.lock_operands(p_api_version,
375 p_init_msg_list,
376 x_return_status,
377 x_msg_count,
378 x_msg_data,
379 ddp_opdv_tbl);
380
381 -- copy data back from the local variables to OUT or IN-OUT args, if any
382
383
384
385
386
387 end;
388
389 procedure update_operands(p_api_version NUMBER
390 , p_init_msg_list VARCHAR2
391 , x_return_status out nocopy VARCHAR2
392 , x_msg_count out nocopy NUMBER
393 , x_msg_data out nocopy VARCHAR2
394 , p6_a0 out nocopy NUMBER
395 , p6_a1 out nocopy NUMBER
396 , p6_a2 out nocopy VARCHAR2
397 , p6_a3 out nocopy NUMBER
398 , p6_a4 out nocopy NUMBER
399 , p6_a5 out nocopy VARCHAR2
400 , p6_a6 out nocopy VARCHAR2
401 , p6_a7 out nocopy VARCHAR2
402 , p6_a8 out nocopy DATE
403 , p6_a9 out nocopy DATE
404 , p6_a10 out nocopy VARCHAR2
405 , p6_a11 out nocopy VARCHAR2
406 , p6_a12 out nocopy NUMBER
407 , p6_a13 out nocopy NUMBER
408 , p6_a14 out nocopy DATE
409 , p6_a15 out nocopy NUMBER
410 , p6_a16 out nocopy DATE
411 , p6_a17 out nocopy NUMBER
412 , p5_a0 NUMBER := 0-1962.0724
413 , p5_a1 NUMBER := 0-1962.0724
414 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
415 , p5_a3 NUMBER := 0-1962.0724
416 , p5_a4 NUMBER := 0-1962.0724
417 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
418 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
419 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
420 , p5_a8 DATE := fnd_api.g_miss_date
421 , p5_a9 DATE := fnd_api.g_miss_date
422 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
423 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
424 , p5_a12 NUMBER := 0-1962.0724
425 , p5_a13 NUMBER := 0-1962.0724
426 , p5_a14 DATE := fnd_api.g_miss_date
427 , p5_a15 NUMBER := 0-1962.0724
428 , p5_a16 DATE := fnd_api.g_miss_date
429 , p5_a17 NUMBER := 0-1962.0724
430 )
431
432 as
433 ddp_opdv_rec okl_operands_pub.opdv_rec_type;
434 ddx_opdv_rec okl_operands_pub.opdv_rec_type;
435 ddindx binary_integer; indx binary_integer;
436 begin
437
438 -- copy data to the local IN or IN-OUT args, if any
439
440
441
442
443
444 ddp_opdv_rec.id := rosetta_g_miss_num_map(p5_a0);
445 ddp_opdv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
446 ddp_opdv_rec.sfwt_flag := p5_a2;
447 ddp_opdv_rec.fma_id := rosetta_g_miss_num_map(p5_a3);
448 ddp_opdv_rec.dsf_id := rosetta_g_miss_num_map(p5_a4);
449 ddp_opdv_rec.name := p5_a5;
450 ddp_opdv_rec.description := p5_a6;
451 ddp_opdv_rec.version := p5_a7;
452 ddp_opdv_rec.start_date := rosetta_g_miss_date_in_map(p5_a8);
453 ddp_opdv_rec.end_date := rosetta_g_miss_date_in_map(p5_a9);
454 ddp_opdv_rec.source := p5_a10;
455 ddp_opdv_rec.opd_type := p5_a11;
456 ddp_opdv_rec.org_id := rosetta_g_miss_num_map(p5_a12);
457 ddp_opdv_rec.created_by := rosetta_g_miss_num_map(p5_a13);
458 ddp_opdv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a14);
459 ddp_opdv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a15);
460 ddp_opdv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a16);
461 ddp_opdv_rec.last_update_login := rosetta_g_miss_num_map(p5_a17);
462
463
464 -- here's the delegated call to the old PL/SQL routine
465 okl_operands_pub.update_operands(p_api_version,
466 p_init_msg_list,
467 x_return_status,
468 x_msg_count,
469 x_msg_data,
470 ddp_opdv_rec,
471 ddx_opdv_rec);
472
473 -- copy data back from the local variables to OUT or IN-OUT args, if any
474
475
476
477
478
479
480 p6_a0 := rosetta_g_miss_num_map(ddx_opdv_rec.id);
481 p6_a1 := rosetta_g_miss_num_map(ddx_opdv_rec.object_version_number);
482 p6_a2 := ddx_opdv_rec.sfwt_flag;
483 p6_a3 := rosetta_g_miss_num_map(ddx_opdv_rec.fma_id);
484 p6_a4 := rosetta_g_miss_num_map(ddx_opdv_rec.dsf_id);
485 p6_a5 := ddx_opdv_rec.name;
486 p6_a6 := ddx_opdv_rec.description;
487 p6_a7 := ddx_opdv_rec.version;
488 p6_a8 := ddx_opdv_rec.start_date;
489 p6_a9 := ddx_opdv_rec.end_date;
490 p6_a10 := ddx_opdv_rec.source;
491 p6_a11 := ddx_opdv_rec.opd_type;
492 p6_a12 := rosetta_g_miss_num_map(ddx_opdv_rec.org_id);
493 p6_a13 := rosetta_g_miss_num_map(ddx_opdv_rec.created_by);
494 p6_a14 := ddx_opdv_rec.creation_date;
495 p6_a15 := rosetta_g_miss_num_map(ddx_opdv_rec.last_updated_by);
496 p6_a16 := ddx_opdv_rec.last_update_date;
497 p6_a17 := rosetta_g_miss_num_map(ddx_opdv_rec.last_update_login);
498 end;
499
500 procedure update_operands(p_api_version NUMBER
501 , p_init_msg_list VARCHAR2
502 , x_return_status out nocopy VARCHAR2
503 , x_msg_count out nocopy NUMBER
504 , x_msg_data out nocopy VARCHAR2
505 , p5_a0 JTF_NUMBER_TABLE
506 , p5_a1 JTF_NUMBER_TABLE
507 , p5_a2 JTF_VARCHAR2_TABLE_100
508 , p5_a3 JTF_NUMBER_TABLE
509 , p5_a4 JTF_NUMBER_TABLE
510 , p5_a5 JTF_VARCHAR2_TABLE_200
511 , p5_a6 JTF_VARCHAR2_TABLE_2000
512 , p5_a7 JTF_VARCHAR2_TABLE_100
513 , p5_a8 JTF_DATE_TABLE
514 , p5_a9 JTF_DATE_TABLE
515 , p5_a10 JTF_VARCHAR2_TABLE_200
516 , p5_a11 JTF_VARCHAR2_TABLE_100
517 , p5_a12 JTF_NUMBER_TABLE
518 , p5_a13 JTF_NUMBER_TABLE
519 , p5_a14 JTF_DATE_TABLE
520 , p5_a15 JTF_NUMBER_TABLE
521 , p5_a16 JTF_DATE_TABLE
522 , p5_a17 JTF_NUMBER_TABLE
523 , p6_a0 out nocopy JTF_NUMBER_TABLE
524 , p6_a1 out nocopy JTF_NUMBER_TABLE
525 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
526 , p6_a3 out nocopy JTF_NUMBER_TABLE
527 , p6_a4 out nocopy JTF_NUMBER_TABLE
528 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_200
529 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_2000
530 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_100
531 , p6_a8 out nocopy JTF_DATE_TABLE
532 , p6_a9 out nocopy JTF_DATE_TABLE
533 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_200
534 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_100
535 , p6_a12 out nocopy JTF_NUMBER_TABLE
536 , p6_a13 out nocopy JTF_NUMBER_TABLE
537 , p6_a14 out nocopy JTF_DATE_TABLE
538 , p6_a15 out nocopy JTF_NUMBER_TABLE
539 , p6_a16 out nocopy JTF_DATE_TABLE
540 , p6_a17 out nocopy JTF_NUMBER_TABLE
541 )
542
543 as
544 ddp_opdv_tbl okl_operands_pub.opdv_tbl_type;
545 ddx_opdv_tbl okl_operands_pub.opdv_tbl_type;
546 ddindx binary_integer; indx binary_integer;
547 begin
548
549 -- copy data to the local IN or IN-OUT args, if any
550
551
552
553
554
555 okl_opd_pvt_w.rosetta_table_copy_in_p8(ddp_opdv_tbl, p5_a0
556 , p5_a1
557 , p5_a2
558 , p5_a3
559 , p5_a4
560 , p5_a5
561 , p5_a6
562 , p5_a7
563 , p5_a8
564 , p5_a9
565 , p5_a10
566 , p5_a11
567 , p5_a12
568 , p5_a13
569 , p5_a14
570 , p5_a15
571 , p5_a16
572 , p5_a17
573 );
574
575
576 -- here's the delegated call to the old PL/SQL routine
577 okl_operands_pub.update_operands(p_api_version,
578 p_init_msg_list,
579 x_return_status,
580 x_msg_count,
581 x_msg_data,
582 ddp_opdv_tbl,
583 ddx_opdv_tbl);
584
585 -- copy data back from the local variables to OUT or IN-OUT args, if any
586
587
588
589
590
591
592 okl_opd_pvt_w.rosetta_table_copy_out_p8(ddx_opdv_tbl, p6_a0
593 , p6_a1
594 , p6_a2
595 , p6_a3
596 , p6_a4
597 , p6_a5
598 , p6_a6
599 , p6_a7
600 , p6_a8
601 , p6_a9
602 , p6_a10
603 , p6_a11
604 , p6_a12
605 , p6_a13
606 , p6_a14
607 , p6_a15
608 , p6_a16
609 , p6_a17
610 );
611 end;
612
613 procedure delete_operands(p_api_version NUMBER
614 , p_init_msg_list VARCHAR2
615 , x_return_status out nocopy VARCHAR2
616 , x_msg_count out nocopy NUMBER
617 , x_msg_data out nocopy VARCHAR2
618 , p5_a0 NUMBER := 0-1962.0724
619 , p5_a1 NUMBER := 0-1962.0724
620 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
621 , p5_a3 NUMBER := 0-1962.0724
622 , p5_a4 NUMBER := 0-1962.0724
623 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
624 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
625 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
626 , p5_a8 DATE := fnd_api.g_miss_date
627 , p5_a9 DATE := fnd_api.g_miss_date
628 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
629 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
630 , p5_a12 NUMBER := 0-1962.0724
631 , p5_a13 NUMBER := 0-1962.0724
632 , p5_a14 DATE := fnd_api.g_miss_date
633 , p5_a15 NUMBER := 0-1962.0724
634 , p5_a16 DATE := fnd_api.g_miss_date
635 , p5_a17 NUMBER := 0-1962.0724
636 )
637
638 as
639 ddp_opdv_rec okl_operands_pub.opdv_rec_type;
640 ddindx binary_integer; indx binary_integer;
641 begin
642
643 -- copy data to the local IN or IN-OUT args, if any
644
645
646
647
648
649 ddp_opdv_rec.id := rosetta_g_miss_num_map(p5_a0);
650 ddp_opdv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
651 ddp_opdv_rec.sfwt_flag := p5_a2;
652 ddp_opdv_rec.fma_id := rosetta_g_miss_num_map(p5_a3);
653 ddp_opdv_rec.dsf_id := rosetta_g_miss_num_map(p5_a4);
654 ddp_opdv_rec.name := p5_a5;
655 ddp_opdv_rec.description := p5_a6;
656 ddp_opdv_rec.version := p5_a7;
657 ddp_opdv_rec.start_date := rosetta_g_miss_date_in_map(p5_a8);
658 ddp_opdv_rec.end_date := rosetta_g_miss_date_in_map(p5_a9);
659 ddp_opdv_rec.source := p5_a10;
660 ddp_opdv_rec.opd_type := p5_a11;
661 ddp_opdv_rec.org_id := rosetta_g_miss_num_map(p5_a12);
662 ddp_opdv_rec.created_by := rosetta_g_miss_num_map(p5_a13);
663 ddp_opdv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a14);
664 ddp_opdv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a15);
665 ddp_opdv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a16);
666 ddp_opdv_rec.last_update_login := rosetta_g_miss_num_map(p5_a17);
667
668 -- here's the delegated call to the old PL/SQL routine
669 okl_operands_pub.delete_operands(p_api_version,
670 p_init_msg_list,
671 x_return_status,
672 x_msg_count,
673 x_msg_data,
674 ddp_opdv_rec);
675
676 -- copy data back from the local variables to OUT or IN-OUT args, if any
677
678
679
680
681
682 end;
683
684 procedure delete_operands(p_api_version NUMBER
685 , p_init_msg_list VARCHAR2
686 , x_return_status out nocopy VARCHAR2
687 , x_msg_count out nocopy NUMBER
688 , x_msg_data out nocopy VARCHAR2
689 , p5_a0 JTF_NUMBER_TABLE
690 , p5_a1 JTF_NUMBER_TABLE
691 , p5_a2 JTF_VARCHAR2_TABLE_100
692 , p5_a3 JTF_NUMBER_TABLE
693 , p5_a4 JTF_NUMBER_TABLE
694 , p5_a5 JTF_VARCHAR2_TABLE_200
695 , p5_a6 JTF_VARCHAR2_TABLE_2000
696 , p5_a7 JTF_VARCHAR2_TABLE_100
697 , p5_a8 JTF_DATE_TABLE
698 , p5_a9 JTF_DATE_TABLE
699 , p5_a10 JTF_VARCHAR2_TABLE_200
700 , p5_a11 JTF_VARCHAR2_TABLE_100
701 , p5_a12 JTF_NUMBER_TABLE
702 , p5_a13 JTF_NUMBER_TABLE
703 , p5_a14 JTF_DATE_TABLE
704 , p5_a15 JTF_NUMBER_TABLE
705 , p5_a16 JTF_DATE_TABLE
706 , p5_a17 JTF_NUMBER_TABLE
707 )
708
709 as
710 ddp_opdv_tbl okl_operands_pub.opdv_tbl_type;
711 ddindx binary_integer; indx binary_integer;
712 begin
713
714 -- copy data to the local IN or IN-OUT args, if any
715
716
717
718
719
720 okl_opd_pvt_w.rosetta_table_copy_in_p8(ddp_opdv_tbl, p5_a0
721 , p5_a1
722 , p5_a2
723 , p5_a3
724 , p5_a4
725 , p5_a5
726 , p5_a6
727 , p5_a7
728 , p5_a8
729 , p5_a9
730 , p5_a10
731 , p5_a11
732 , p5_a12
733 , p5_a13
734 , p5_a14
735 , p5_a15
736 , p5_a16
737 , p5_a17
738 );
739
740 -- here's the delegated call to the old PL/SQL routine
741 okl_operands_pub.delete_operands(p_api_version,
742 p_init_msg_list,
743 x_return_status,
744 x_msg_count,
745 x_msg_data,
746 ddp_opdv_tbl);
747
748 -- copy data back from the local variables to OUT or IN-OUT args, if any
749
750
751
752
753
754 end;
755
756 procedure validate_operands(p_api_version NUMBER
757 , p_init_msg_list VARCHAR2
758 , x_return_status out nocopy VARCHAR2
759 , x_msg_count out nocopy NUMBER
760 , x_msg_data out nocopy VARCHAR2
761 , p5_a0 NUMBER := 0-1962.0724
762 , p5_a1 NUMBER := 0-1962.0724
763 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
764 , p5_a3 NUMBER := 0-1962.0724
765 , p5_a4 NUMBER := 0-1962.0724
766 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
767 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
768 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
769 , p5_a8 DATE := fnd_api.g_miss_date
770 , p5_a9 DATE := fnd_api.g_miss_date
771 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
772 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
773 , p5_a12 NUMBER := 0-1962.0724
774 , p5_a13 NUMBER := 0-1962.0724
775 , p5_a14 DATE := fnd_api.g_miss_date
776 , p5_a15 NUMBER := 0-1962.0724
777 , p5_a16 DATE := fnd_api.g_miss_date
778 , p5_a17 NUMBER := 0-1962.0724
779 )
780
781 as
782 ddp_opdv_rec okl_operands_pub.opdv_rec_type;
783 ddindx binary_integer; indx binary_integer;
784 begin
785
786 -- copy data to the local IN or IN-OUT args, if any
787
788
789
790
791
792 ddp_opdv_rec.id := rosetta_g_miss_num_map(p5_a0);
793 ddp_opdv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
794 ddp_opdv_rec.sfwt_flag := p5_a2;
795 ddp_opdv_rec.fma_id := rosetta_g_miss_num_map(p5_a3);
796 ddp_opdv_rec.dsf_id := rosetta_g_miss_num_map(p5_a4);
797 ddp_opdv_rec.name := p5_a5;
798 ddp_opdv_rec.description := p5_a6;
799 ddp_opdv_rec.version := p5_a7;
800 ddp_opdv_rec.start_date := rosetta_g_miss_date_in_map(p5_a8);
801 ddp_opdv_rec.end_date := rosetta_g_miss_date_in_map(p5_a9);
802 ddp_opdv_rec.source := p5_a10;
803 ddp_opdv_rec.opd_type := p5_a11;
804 ddp_opdv_rec.org_id := rosetta_g_miss_num_map(p5_a12);
805 ddp_opdv_rec.created_by := rosetta_g_miss_num_map(p5_a13);
806 ddp_opdv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a14);
807 ddp_opdv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a15);
808 ddp_opdv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a16);
809 ddp_opdv_rec.last_update_login := rosetta_g_miss_num_map(p5_a17);
810
811 -- here's the delegated call to the old PL/SQL routine
812 okl_operands_pub.validate_operands(p_api_version,
813 p_init_msg_list,
814 x_return_status,
815 x_msg_count,
816 x_msg_data,
817 ddp_opdv_rec);
818
819 -- copy data back from the local variables to OUT or IN-OUT args, if any
820
821
822
823
824
825 end;
826
827 procedure validate_operands(p_api_version NUMBER
828 , p_init_msg_list VARCHAR2
829 , x_return_status out nocopy VARCHAR2
830 , x_msg_count out nocopy NUMBER
831 , x_msg_data out nocopy VARCHAR2
832 , p5_a0 JTF_NUMBER_TABLE
833 , p5_a1 JTF_NUMBER_TABLE
834 , p5_a2 JTF_VARCHAR2_TABLE_100
835 , p5_a3 JTF_NUMBER_TABLE
836 , p5_a4 JTF_NUMBER_TABLE
837 , p5_a5 JTF_VARCHAR2_TABLE_200
838 , p5_a6 JTF_VARCHAR2_TABLE_2000
839 , p5_a7 JTF_VARCHAR2_TABLE_100
840 , p5_a8 JTF_DATE_TABLE
841 , p5_a9 JTF_DATE_TABLE
842 , p5_a10 JTF_VARCHAR2_TABLE_200
843 , p5_a11 JTF_VARCHAR2_TABLE_100
844 , p5_a12 JTF_NUMBER_TABLE
845 , p5_a13 JTF_NUMBER_TABLE
846 , p5_a14 JTF_DATE_TABLE
847 , p5_a15 JTF_NUMBER_TABLE
848 , p5_a16 JTF_DATE_TABLE
849 , p5_a17 JTF_NUMBER_TABLE
850 )
851
852 as
853 ddp_opdv_tbl okl_operands_pub.opdv_tbl_type;
854 ddindx binary_integer; indx binary_integer;
855 begin
856
857 -- copy data to the local IN or IN-OUT args, if any
858
859
860
861
862
863 okl_opd_pvt_w.rosetta_table_copy_in_p8(ddp_opdv_tbl, p5_a0
864 , p5_a1
865 , p5_a2
866 , p5_a3
867 , p5_a4
868 , p5_a5
869 , p5_a6
870 , p5_a7
871 , p5_a8
872 , p5_a9
873 , p5_a10
874 , p5_a11
875 , p5_a12
876 , p5_a13
877 , p5_a14
878 , p5_a15
879 , p5_a16
880 , p5_a17
881 );
882
883 -- here's the delegated call to the old PL/SQL routine
884 okl_operands_pub.validate_operands(p_api_version,
885 p_init_msg_list,
886 x_return_status,
887 x_msg_count,
888 x_msg_data,
889 ddp_opdv_tbl);
890
891 -- copy data back from the local variables to OUT or IN-OUT args, if any
892
893
894
895
896
897 end;
898
899 end okl_operands_pub_w;